goo-0.155/0040755000175000017500000000000007756746032011734 5ustar vomjomvomjomgoo-0.155/c/0040755000175000017500000000000007756746032012156 5ustar vomjomvomjomgoo-0.155/c/CVS/0040755000175000017500000000000007756746021012607 5ustar vomjomvomjomgoo-0.155/c/CVS/Root0100644000175000017500000000003307756746014013450 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/CVS/Repository0100644000175000017500000000000607756746014014704 0ustar vomjomvomjomgoo/c goo-0.155/c/CVS/Entries0100644000175000017500000000066107756746021014143 0ustar vomjomvomjom/Makefile.in/1.5/Sat Aug 24 04:16:51 2002// /config.h.in/1.2/Sat Jul 6 04:27:17 2002// /cygwin1.dll/1.2/Thu Oct 11 03:51:01 2001/-kb/ /dlgrt.h/1.9/Fri Sep 6 02:30:02 2002// /dllentry.c/1.1/Tue Sep 3 17:15:46 2002// /grt.c/1.59/Mon Oct 20 22:45:38 2003// /grt.h/1.52/Wed Nov 19 19:49:36 2003// /mini-prt.h/1.3/Sat Jul 6 04:27:17 2002// /unexelf.c/1.1/Mon Aug 6 21:43:59 2001// /unexw32.c/1.1/Thu Oct 11 03:51:07 2001// D/g2c//// goo-0.155/c/Makefile.in0100644000175000017500000000355707531604263014220 0ustar vomjomvomjom export ## generic autoconf stuff SHELL = /bin/sh VPATH = @srcdir@ subdirs = @subdirs@ top_srcdir = @top_srcdir@ srcdir = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ datadir = @datadir@ bindir = $(exec_prefix)/bin infodir = $(prefix)/info libdir = $(prefix)/lib/goo/ mandir = $(prefix)/man/man1 exe_suffix=@exe_suffix@ CC = @CC@ CPPFLAGS = @CPPFLAGS@ CFLAGS = $(CPPFLAGS) @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ INSTALL = @INSTALL@ INSTALL_PROGRAM=@INSTALL_PROGRAM@ INSTALL_SCRIPT=@INSTALL_PROGRAM@ INSTALL_DATA=@INSTALL_DATA@ ## end generic stuff THREADKIND=@THREADKIND@ GOO_ROOT=$(libdir) GOO_LIB = $(libdir)/lib GOO_MODS = $(libdir)/mods build_gc = @build_gc@ ifeq ($(sub), ) sub = g2c endif C_OBJS = grt.o # unexelf.o midi.o threads.o timer.o ifeq ($(build_gc), yes) C_OBJS += gc.a endif LDFLAGS += -Wl,--export-dynamic default: all gc-stamp: Makefile touch gc-stamp ifeq ($(build_gc), yes) cd $(top_srcdir)/gc && $(MAKE) clean && ./configure --enable-threads=$(THREADKIND) && $(MAKE) libgc.la rm -f gc ln -s -f $(top_srcdir)/gc/include gc ln -s -f $(top_srcdir)/gc/.libs/libgc.a gc.a; else rm -f gc gc.a; endif all: gc-stamp (cd $(sub); $(MAKE)) # Create installation install: all $(top_srcdir)/mkinstalldirs $(bindir) $(top_srcdir)/mkinstalldirs $(GOO_LIB) $(top_srcdir)/mkinstalldirs $(GOO_MODS) ifeq ($(sub), g2c) $(INSTALL_PROGRAM) $(sub)/$(sub)$(exe_suffix) $(bindir)/goo$(exe_suffix) else $(INSTALL_PROGRAM) $(sub)/$(sub)$(exe_suffix) $(bindir) endif $(INSTALL_DATA) grt.h $(GOO_LIB) $(INSTALL_DATA) config.h $(GOO_LIB) $(INSTALL_DATA) dlgrt.h $(GOO_LIB) ifeq ($(build_gc), yes) cd $(top_srcdir)/gc/include/ && find . -name \*.h -exec $(INSTALL_DATA) -D {} $(GOO_LIB)/gc/{} \; endif clean: rm -f grt.o unexelf.o gc gc.a gc-stamp (cd $(sub); $(MAKE) clean) distclean: clean rm -f Makefile config.h .PHONY: all install clean distclean goo-0.155/c/config.h.in0100644000175000017500000000552607511470645014177 0ustar vomjomvomjom/* c/config.h.in. Generated automatically from configure.in by autoheader 2.13. */ /* Define if using alloca.c. */ #undef C_ALLOCA /* Define to one of _getb67, GETB67, getb67 for Cray-2 and Cray-YMP systems. This function is required for alloca.c support on those systems. */ #undef CRAY_STACKSEG_END /* Define if you have alloca, as a function or macro. */ #undef HAVE_ALLOCA /* Define if you have and it should be used (not on Ultrix). */ #undef HAVE_ALLOCA_H /* Define if you have a working `mmap' system call. */ #undef HAVE_MMAP /* Define as __inline if that's what the C compiler calls it. */ #undef inline /* Define as the return type of signal handlers (int or void). */ #undef RETSIGTYPE /* Define to `unsigned' if doesn't define. */ #undef size_t /* If using the C implementation of alloca, define if you know the direction of stack growth for your system; otherwise it will be automatically deduced at run-time. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #undef STACK_DIRECTION /* Define if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define if you can safely include both and . */ #undef TIME_WITH_SYS_TIME /* Define if the system supports the standard shared library functions like dlopen. */ #undef HAVE_DLOPEN /* Define if the system supports any kind of threading */ #undef WITH_THREADS /* Define if the system supports the posix threading API */ #undef HAVE_POSIX_THREAD /* Define if the compiler supports thread local variables */ #undef HAVE_THREAD_LOCAL_VARIABLE /* Define if you have the ftruncate function. */ #undef HAVE_FTRUNCATE /* Define if you have the getpagesize function. */ #undef HAVE_GETPAGESIZE /* Define if you have the memset function. */ #undef HAVE_MEMSET /* Define if you have the mkdir function. */ #undef HAVE_MKDIR /* Define if you have the munmap function. */ #undef HAVE_MUNMAP /* Define if you have the pow function. */ #undef HAVE_POW /* Define if you have the putenv function. */ #undef HAVE_PUTENV /* Define if you have the select function. */ #undef HAVE_SELECT /* Define if you have the setenv function. */ #undef HAVE_SETENV /* Define if you have the sqrt function. */ #undef HAVE_SQRT /* Define if you have the strerror function. */ #undef HAVE_STRERROR /* Define if you have the header file. */ #undef HAVE_ERRNO_H /* Define if you have the header file. */ #undef HAVE_FCNTL_H /* Define if you have the header file. */ #undef HAVE_MEMORY_H /* Define if you have the header file. */ #undef HAVE_STDLIB_H /* Define if you have the header file. */ #undef HAVE_STRING_H /* Define if you have the header file. */ #undef HAVE_UNISTD_H goo-0.155/c/cygwin1.dll0100644000175000017500000251346007361213445014231 0ustar vomjomvomjomMZ@ !L!This program cannot be run in DOS mode. $PEL; " 8 l X8n aP 0 g[ d  p.text``.data\i j@/4p X @/17x Z @/31 ^ @/46 d /61 n @/76 p /91 r @/1030 t /115x v @/129 x /143 z @/156 ~ /1690  /183h@  /1964P  @/211@`  /226Dp  @/238`  /2504  @/265@  /280  @/2928  .bssW .edatag[0 \ .idatad  @.rsrc  @.relocp  NULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---CONOUT$vFailed assertion %s at line %d of file %sassertion "%s" failed: file "%s", line %d U WVS} ujhjh<\ ajh@ha?tuwtzt8"t+B8"t&B8"t!Bttt uBB)Bs$ iEPWVhaS h jSj4 !P?WEPVh ax 舉couldn't dynamically determine load address for '%s' (handle %p), %EZBtHZĸPj>1pBPh@a/.$P@@PH>uYA)ȃAPaP%P: *** could not load %s, %EUWVSEEӉUS= t+]S=j= S= uUv]ExuFÃS= t UB)vUB4tSh a>-E@URb=EaEe[x u^_]WSAStartupres %dlong long int wsock_init(...)wVersion %dwHighVersion %dszDescription %sszSystemStatus %siMaxSockets %diMaxUdpDg %dlpVendorInfo %dUWVSEE8hG a<j< hG ah< uՀ=G a= au = p ahaGP%<h ahЃ=# a`Phah aj@h# aM =# a6 aPh(ah aj@h# a =# a aPh4ah aj@h# a =# ah ahDah aj@h# a =# ah ahUah aj@h# a =# at| aPhgah aj@h# ab =# atO aPhvah aj@h# a5 =# at" aPhah aj@h# a  G ahG a:Eaae؋][^_]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---t&'%P: *** Couldn't reserve space for cygwin's heap, %Et&'%P: *** couldn't commit memory for cygwin heap, %EUVSu=H at6jh h\,Nj8H auhaK(v\G aG a؉G a%ut9t 9tt,jhuPSG8uh@a'e[^]vUjhG as#]cygheap_protectvUS= au ah0aUG ahIajS"(i a H a(i aG ajH aPHxHuB]]ÉU WV aS9} Ft9|G aj":t Ë:3 CP8H aÉ3 CG aP#eC[^_]ÐUSÃG aj`"K aCG aP"]]U WVSЅu /N9WVS~s؍e[^_]Ð%P: *** Couldn't reserve space for cygwin's heap (%p) in child, cygheap, %E%P: *** Couldn't allocate space for child's heap %p, size %d, %E%P: *** Couldn't read parent's cygwin heap %d bytes != %d, %EU$SH aG aj)h h\,NP5uH aPh a$vjhSH aP4uSH aPhau$EEPSH aPPEP4 t9]tEPSha7$v} t9H at.C;wS~c dSvc[uԋ]؉]&/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/cygheap.cccmalloc returned NULL void * cmalloc(cygheap_types, long unsigned int)vUVSƍZu0h[ahahh# a a}109G asG ae[^]!inheap (s)crealloc returned NULLvoid * crealloc(void *, long unsigned int)U WVSÅu-=  at*; ar"; awhahh aCs_u1h)ah@ahh# a a|109G asG ae[^_]ÉUSÃ=  at*; ar"; awhahh aC]]ccalloc returned NULLvoid * ccalloc(cygheap_types, long unsigned int, long unsigned int)UWVSEٍCƅtSj^S40hsahahh# ag az1ED>9G asG aЍe[^_]ÉUVSƉtzt80t-@80t(@80t#@tttu@@)PÅtVS1e[^]ÍvUVSƉtzt80t-@80t(@80t#@tttu@@)PtÅtVS茶1e[^]ÍvUSU ]Bt1C[]US]CtE t SfY]]ÍvUVuS] Ft NFtx;tsuNʃtzt80t-@80t(@80t#@tttu@@)ȉt|/uH>uFFF[^]UE t EPX]US]tE u"a[]ÍvUVuS] FtVt;t 1F[^]ÐUVuS] Ftt;t R1F[^]ÐUVS]u uC tC '{ u(KC VC Pj(=} e[^]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---CUS atX;t Ѓ;u[]ÍvUVSu} u= auR= auI a^~t ;u9v 9w= au h$awe[^]NT9598ME??%s-%d.%dUS`hjS贝Dž`S+ptuZR a[%aXhuR a^%aa11t {:u71<"t<'ut"{tSt1Ct :h*aS误tA؉߃tzt8't+G8't&G8't!Gttt uGG)߉ډ؃tzt80t-@80t(@80t#@tttu@@)؍D%}Ѓ%?9Oẻ:t}v1"t'uut :\u\AI]Bt/8t2u:\u B8t<\uB\ABAt8u׊:]uItBA:uEWjh EP$uEЅu 1U:M;~#P ,PM PfU M ]4;t:=# at!PWh*aGh@*aj@h# a ;uNjEPee[^_] %P: *** Too many levels of nesting for %svoid build_argv(char *, char **&, int &, int)argc %dU,WVS}EE Elu,aЈĊ8tCu1ۉ؉‰t Fu;E>tu<"t}t<'tC])]1}t ?PEP EU,a ȈĊ8tCu1ۉ؉Ӆu:u:tE?t69ut1>@u,E} ~Vh-aEPVu~;E|$P U,PM Pc] }t?tEPWE PVu5=# at VPh*ah@-aj@h# a M 4E8] =# atPhn-ah@-aj@h# aGe[^_]v%P: *** per_process sanity check failed%P: *** cygwin DLL and APP are out of sync -- DLL version mismatch %d < %d%P: *** Incompatible cygwin .dll -- incompatible per_process info %d != %d%P: *** cygwin DLL and APP are out of sync -- API version mismatch %d < %dUS]SwjRh/a2C=thPh0avd a9tPQh`0a)ЍS ==Jw  a]]%P: *** fork: can't reserve memory for stack %p - %p, %E&%P: *** fork: can't commit memory for stack %p(%d), %E'%P: *** fork: couldn't get new stack info, %E%P: *** fork: couldn't allocate new stack guard page %p, %EUmain %pvoid dll_crt0_1()vU,WEVSPcjhla$ h a< a a aPG aP@ aP蛣 J1t1P_4a[hd4ahS a 0H aB H aB$G aB=w =t=ti=fj0H a@PS aPj4H aPW0H aB0 aB4 aB8  agvS a@,P' S a@,t afjS a@P S aA(xt(EjjjPH aRA(@PRAuEEP4H aP=W S aQ(BT arB X aZAPH aHP@0H axfP蹟S a@PKS a @(@t&Ph0 aP aS a@(@"S aZ a@(f Z af ujH a Ph@S a/:wH aHPC j$HH a8P_N = at;S az,tdS a dB PB

S a@  aS a@P S a0H aP@ H a4H aB%=u h;aHe^_]ÉUWVut  at a'󥡰 a a`^_]ÉU a  a ajjjhH ayPsPmPGu [H ajjjhH aH aPEPH aP a a8 a aH a]ÍvUj aP]do_exit (%d)void do_exit(int)%d == pgrp %d, send SIG{HUP,CONT} to stopped childrenv'%d == sid %d, send SIGHUP to childrenwinpid %d, exit %dvU WVS]=# atSh=ah=ajh# a HH aP t!8}څ}ڃjP=8H aH8H au6jjzjjyz jjjzjj^z =8H a8H a=8H a8H aCt Z aƀP at= at P( Z a0tM;$uC=# at!RRh>ah=ahh# a Z aj$PހjY~ Z a1;(uo,|e=@t^Z ai <=# at#VPh@>ah=ahh# a6 Z a(9ujGPV舨o=# at&S)Phf>ah=ahh# a Z afjOvUEP CONOUT$vU9WE VSUPRVǹh@aVm ttt uCCjW)SVjf PejVP` t7jjjh0\ ajhh@aatjWSVP ؛Z afjNU} }DH ah a+t <\ a vF0\ aURURShPEajP ÃtEP:e؉[^_]unknown (%p)vU WVS1Åu ÅtS at jO1ɡT at.9T au"AwT at 9T auօtS atP}uV aShTFahV ale[^_]Ðcygtty%d.output.mutexcygtty%d.input.mutexUEǀejdejP{]adding '%s' to queue %dvoid delqueue_list::queue_file(const char *)Out of queue slotsU,WVSE RShP Eeu91ƐeÀ<7tRS.Gc~ӋE1ۋuƐe<3uRRPj3Eǀe=# atISRhuGahGaj@h# a&Cc~hGahGahh# a[^_]Running delqueuev'void delqueue_list::process_queue()Deleted %sStill using %sHmm, don't know what to do with '%s', %EvU WEVSeǀe=# athHahIajh# a]1}ǐe<>SQ t=# aSh$Iad3Uǂe t=R at0u+=# atLSh/IahIajh# a\ -v=# atSh@IahIajh# a1 >FcBe[^_]ÐNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---not_opennot openU]*\*%p = opendir (%s)struct DIR * opendir(const char *)U1|WVSDžjUUt  aEPH aUxuRE@u atzt8#t+C8#t&C8#t!Cttt uCC)~ a[Aj$Eƃu a CPtEFuVyE a h?EFu)FPAEV8E a WFPkVЉӃtzt8#t+C8#t&C8#t!Cttt uCC)tDCP> S>=# atShSahSajh# a1]]%d = mkdir (%s, %d)int mkdir(const char *, int)U",WVS}jEt  a}u‰oډESH tPjSt/H a1@,%#E @PSE%Pu ENa}E=# atE PWVhTahTajh# a[^_]%d = rmdir (%s)int rmdir(const char *)U",WVS}jUt avEtu at$PSS t#S t aZ\1Wu*=R at  aZ#zNaADv}Na-DEt PS\=# atWVhUahUajh# ay[^_]Ð%s: %EUEPh@Wa9$P +@ ]\/.dllLD_LIBRARY_PATH=U,WVS]؉ރtzt8&t+F8&t&F8&t!Fttt uFF} )t~SW|3.tA.1҉ވĬ8uVuthzWaRwth}WaWZ~EEEEEEƅat:uGt0)ʃHRP ea1Ge| ;^}<uea5eu SU% uF oad߃W =# atSE PWhoahoajh# ale؉[^_]%s fd %dstruct select_record * dtable::select_read(int, select_record *)vUeaWVS]} udE| ;{}<uEeac}t a 1ZS8VPЉƃ>^F =# atWC,Ph8rah`raj@h# a.e[^_]Ív'struct select_record * dtable::select_write(int, select_record *)UeaWVS]} ubE| ;{}<uEeab}t a 1ZS8VPЉƃ>^F =# atWC,Ph8rahsaj@h# ae[^_]Ív'struct select_record * dtable::select_except(int, select_record *)UeaWVS]} uaE| ;{}<uEeaa}t a 1ZS8VPЉƃ>^F =# atWC,Ph8rahtaj@h# ae[^_]fixup_before_forkfd %d(%s)&'void dtable::fixup_before_fork(long unsigned int)Uua WV}S1`;wsStC=# at!C,PVhuahuaj@h# a, C8U RP0R@4ЃF;wruaB`e[^_]fixup_before_execvoid dtable::fixup_before_exec(long unsigned int)Uva WV}S1_;wsYtIC@uC=# at!C,PVhuahvaj@h# aF C8U RP0R@4ЃF;wrva\_e[^_]ÉU WV}S1G;wC(CC C$CC@tVWzvC8U RP@R@DЃu'S8pPtЋPd a,w.S8xP|ЋPd aP,F;w7e[^_]Ðvoid dtable::fixup_after_fork(void *)U WV}S1;wsatQ@utC=# at!C,PVhuahxaj@h# a~ C8U RP8R@<ЃF;wre[^_]ÉUWVuS1ۋV|EoaM];^svea12]| ;^}<uea ]u,PVEUu a vC;^rFEoa\eظ[^_]restoreU'zaS]~\CC'zah\[]ÍvU WVuSF>1ۉm@H taA(AA A$AA@tSV)Q8BhPBlЃSH aHP CH a;XX|>FFe[^_]Ðnot_opennot openU]PATH=HOME=LD_LIBRARY_PATH=TMPDIR=TMP=TEMP=posix %s&void win_env::add_cache(const char *, const char * = 0)native %sU WVS} tzt8"t+B8"t&B8"t!Bttt uBB])uBRCP[CWP[ tzt80t-@80t(@80t#@tttu@@S)DPC PƒS PR[ VCC P[IvWCЉ‹CDPC Pƒ S PRZCC PWCЃ =# atFCPh{ah{aj@h# aL =# atC Ph{ah{aj@h# a#e[^_]Ðcan't set native for %s since no environ yetstruct win_env * getwinenv(const char *, const char * = 0)UWVS}p a= a a1]UBP3PWh[}t] uB􋆐 aPÅu*=# atQPh}ah}aj@h# a3v=t atUBtPSXt jSWE <3G1e[^_]=env var converted to %s void posify(char **, const char *)UWVSEEjPǃh~aURXXE PGЍDP0ƃSURVBSE PGЃ 1U :/tPSW=# atVh~ah aj@h# a蜱 E0URxe[^_]U WV1S]CGt<=uƃ>tu1e[^_]UUEPRv]%sint envsize(const char *const *, int = 0)U WVSu} ;t6t(=# atPhahaj@h# ak ;u̍Fe)Ã[^_]UWVSE ‹]tzt8"t+B8"t&B8"t!Bttt uBB}E )։UEPWatpʉȃtzt80t-@80t(@80t#@tttu@@);EU RQUrjPÃCSEx a9 auRP/ ax a0Rƒx at aSPR? a aED>uB)Ƌ]  a)$ aЃwWrvt<=t At=u)UÃD2P)ƒEӅuGVWSV=E PDP\T jSntjU RP@1e[^_] UVS]…tu1Rv aA=މЈĊ8tFu1…uS1vBjPS)e[^]UVS] uƒu aE…tu1- a;=uC}PSVe[^]U VSu] ?‹EvBuSV6uύe[^]ignorecasevUEt8u a4 a t aH a aH a]relaxFile case checking set to RELAXEDvoid check_case_init(const char *)adjustFile case checking set to ADJUSTstrictFile case checking set to STRICTWrong case checking name: %sU WVS];jhaaSRu  a=# aha]޿au a=# atmha.v޿!au- a=# at=h@ahaj@h# aX%=# atShaahaj@h# a1e[^_]oemFile APIs set to OEMvoid codepage_init(const char *)ansiFile APIs set to ANSIWrong codepage name: %sUWVE8ƿqau! a=# atphua2ƿau1 an=# atat ` aB9r;TujhaScGuE;Cu&jhaS@GuCP] >t3Up at!F>uFPUP=# at'UPPh ah aj@h# a豞 1ҋ]ЈĊ8tCu1ۉ؉BEEEzn}uU  aBUEUR蠿 = a}t#ha+Et Pd jWe[^_]ÐUE UPPC]SYSTEMDRIVESYSTEMROOTenvp %p, keep_posix %dt&char * winenv(const char *const *, int)warning: %s not present in environmentenv count %d, bytes %dUatmy:ugy=uaʉȃtzt80t-@80t(@80t#@tttu@@)ȃ$QSA=M1۸0 aM؉}ԃ=0 at3}v<;uM;C0 a<0 auӋE؉E}ԃ8%E=0 aLEU|*Eк0 a ȉ΃tzt8&t+F8&t&F8&t!Fttt uFF)΍$QS@h~aSK? D0 ahPMЋ Pru/=# atxMPh ahaj@h# a Tډ؃tzt80t-@80t(@80t#@tttu@@U)؍TUE0 aEEЃ<+]=# at!URShGahaj@h# aH hajSMQH0EPE܃ EE}܃8tfU ȉ΃tzt8&t+F8&t&F8&t!Fttt uFF)΍^SQW)߃EM9ue[^E_]U a; at  a a]Ðwindows error %u == errno %dvint geterrno_from_win_error(long unsigned int, int)unknown windows error %u, setting errno to %dU WVSƋ# a=@atH@aHa1;4u+HatPVh@ah`ajh# au;- <uątWVhah`ajh# aEe[^_]%s:%d errno %dvoid seterrno_from_win_error(const char *, int, long unsigned int)US˃=# atSRPh_ahajh# a視 ¡ a]]ÍvUVSƉډ[^]No errorNot super-userNo such file or directoryNo such processInterrupted system callI/O errorNo such device or addressArg list too longExec format errorBad file numberNo childrenResource temporarily unavailableNot enough corePermission deniedBad addressBlock device requiredMount device busyFile existsCross-device linkNo such deviceNot a directoryIs a directoryInvalid argumentToo many open files in systemToo many open filesNot a typewriterText file busyFile too largeNo space left on deviceIllegal seekRead only file systemToo many linksBroken pipeMath arg out of domain of funcMath result not representableNo message of desired typeIdentifier removedChannel number out of rangeLevel 2 not synchronizedLevel 3 haltedLevel 3 resetLink number out of rangeProtocol driver not attachedNo CSI structure availableLevel 2 haltedDeadlock conditionNo record locks available474849Invalid exchangeInvalid request descriptorExchange fullNo anodeInvalid request codeInvalid slotFile locking deadlock errorBad font file fmt5859Device not a streamNo data (for no delay io)Timer expiredOut of streams resourcesMachine is not on the networkPackage not installedThe object is remoteThe link has been severedAdvertise errorSrmount errorCommunication error on sendProtocol error7273Multihop attemptedInode is remote (not really error)Cross mount point (not really error)Trying to read unreadable message7879Given log. name not uniquef.d. invalid for this operationRemote address changed'Can't access a needed shared libAccessing a corrupted shared lib.lib section in a.out corruptedAttempting to link in too many libsAttempting to exec a shared libraryFunction not implementedNo more filesDirectory not emptyFile or path name too longToo many symbolic links9394&Operation not supported on transport endpointProtocol family not supported979899100101102103Connection reset by peerNo buffer space available&Address family not supported by protocolProtocol wrong type for transport endpointSocket operation on non-socketProtocol not availablev'Cannot send after transport endpoint shutdownConnection refusedAddress already in useConnection abortedNetwork is unreachableNetwork is downConnection timed outHost is downNo route to hostOperation now in progressOperation already in progressDestination address requiredMessage too longProtocol not supportedSocket type not supportedt&Cannot assign requested addressNetwork dropped connection because of resetTransport endpoint is already connectedTransport endpoint is not connectedToo many references: cannot spliceProcess limit exceededToo many usersQuota exceededStale NFS file handle134no mediumNo such host or network path&Filename exists with different case6a?aNahaxaaaaƛa؛aaa!a1aCaOaeawaaaaaÜaԜaaaa&a5aMaZapaaaaݝaa a'a@aOa]avaaaaОaaaaaaa-a6aKaXataaaaaaȟaaaa*aDaTaba~aaaaaa@abaeahaaaa a`aaaaa aa:aRaUa`aaaaaaaaaţaޣaa@aaaaaaa+aBaRagataaaaڥaaa a@aaaa#a:aIaXanara|aaNot ownerNot enough memoryDevice or resource busyNot a character deviceRead-only file systemMath result out of rangeNo lockNot a streamStream ioctl timeoutNo stream resourcesNo packageResource is remoteVirtual circuit is goneCommunication errorBad messagev'Cannot access a needed shared libraryAccessing a corrupted shared libraryAttempting to link in more shared libraries than system limitCannot exec a shared library directlyNo buffer space available; the socket cannot be connectedAddresses in the specified family cannot be used with this socketerrno EPROTOTYPE triggeredvThe descriptor is a file, not a socketThis option is unsupportederrno ESHUTDOWN triggeredThe connection was aborted'The network can't be reached from this host at this timeNetwork failed.Attempt to connect timed out without establishing a connectionerrno EHOSTDOWN triggerederrno EHOSTUNREACH triggerederrno EINPROGRESS triggerederrno EALREADY triggerederrno EDESTADDRREQ triggerederrno EMSGSIZE triggerederrno EPROTONOSUPPORT triggerederrno ESOCKTNOSUPPORT triggerederrno EADDRNOTAVAIL triggerederrno ENETRESET triggered&The socket is already connectedThe socket is not connectederrno ETOOMANYREFS triggerederrno EPROCLIM triggerederrno EUSERS triggerederrno EDQUOT triggerederrno ESTALE triggerederrno ENOTSUP triggerederror %dUVSuF=$a<aHaTa`alaxaaaaaaa̲aزaaaaaa a,a8aDaPa\ahataaaaaaaȳaԳaaaaaaa(a4a@aLaXaaaadapa|aaaaaaaaĴaдaܴaaaa aa$a0a<aHaaaTa`alaxaaaaaaaaa̵aصaaaaaaaa a,aaaaaaaa8aDaPa\ahataaaaaaaȶaԶaaaaaaa(a4a<aDaLaTa\adalata|aaaaarNafhaZxaNaBa6a*ƛa؛aaaa1aCaOa$awaaaaaÜavԜaja^<aRaF&a:5a.Ma"Sapa aaiaݝaa a'a@aOa]avaazanabaVaJa>a2-a&6aKaXataaaaaaa˪aުaDaTa~ar~afaZaNaB a6ha*aa a`a`aaaaa aa:a`aaţav aj`a^aRaFa:a.a"aa @ayaa߭aaa2aKahaaaa}au am@ae\a]yaUaMaEa=ׯa5ra-|a%aVhaSF؍e[^]INVALID_FUNCTIONFILE_NOT_FOUNDPATH_NOT_FOUNDTOO_MANY_OPEN_FILESACCESS_DENIEDINVALID_HANDLENOT_ENOUGH_MEMORYINVALID_DATAOUTOFMEMORYINVALID_DRIVENOT_SAME_DEVICENO_MORE_FILESWRITE_PROTECTBAD_UNITSHARING_VIOLATIONLOCK_VIOLATIONSHARING_BUFFER_EXCEEDEDHANDLE_EOFHANDLE_DISK_FULLNOT_SUPPORTEDREM_NOT_LISTDUP_NAMEBAD_NETPATHBAD_NET_NAMEFILE_EXISTSCANNOT_MAKEINVALID_PARAMETERNO_PROC_SLOTSBROKEN_PIPEOPEN_FAILEDNO_MORE_SEARCH_HANDLESCALL_NOT_IMPLEMENTEDINVALID_NAMEWAIT_NO_CHILDRENCHILD_NOT_COMPLETEDIR_NOT_EMPTYSIGNAL_REFUSEDBAD_PATHNAMESIGNAL_PENDINGMAX_THRDS_REACHEDBUSYALREADY_EXISTSNO_SIGNAL_SENTFILENAME_EXCED_RANGEMETA_EXPANSION_TOO_LONGINVALID_SIGNAL_NUMBERTHREAD_1_INACTIVEBAD_PIPEPIPE_BUSYNO_DATAPIPE_NOT_CONNECTEDMORE_DATADIRECTORYPIPE_CONNECTEDPIPE_LISTENINGNO_TOKENPROCESS_ABORTEDBAD_DEVICEBAD_USERNAMENOT_CONNECTEDOPEN_FILESACTIVE_CONNECTIONSDEVICE_IN_USEINVALID_AT_INTERRUPT_TIMEIO_DEVICENOT_OWNEREND_OF_MEDIAEOM_OVERFLOWBEGINNING_OF_MEDIASETMARK_DETECTEDNO_DATA_DETECTEDPOSSIBLE_DEADLOCKCRCNEGATIVE_SEEKNOT_READYDISK_FULLNOACCESSFILE_INVALIDa6ҷaaaa a !a 3a@a LaZajaYxaa a !a $a.&ȸa='Ӹa2aX3a@4aP5aCaP!aR-aW9aYKa mYa neaqqaxaX{aa aιaZܹaaaa aa-a<aQaiaaaaa aFa ɺaӺaaFa+a aa"aCa 0a b ;a d Na h\a]va aLaiaNaOaPȻakٻa8aaapaaacygtty%d.output.mutexcygtty%d.input.mutexNULL%s %s'void cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vUdE@ad]Ð&SetConsoleCtrlHandler failed, %Evoid set_console_handler()UT\ a H\ a <\ a 0\ a P\ a8\ a\\ aD\ a@\ a4\ aX\ aL\ ajhajhauh ahAahh# ao]UEP]ÉU VSut>u  a)SZ aPSVh1ah a;[^]%s.stackdumpDumping stack trace to %svoid open_stackdumpfile()UWVSZ axX\1މȈĬ8uVuхtAىȉʃtzt8"t+B8"t&B8"t!Bttt uBB)ʍX%?肷QhaV;jjjh<\ ajh@V芍Ãt+Vhahahh# am Sjݎe[^_]Exception: %s at eip=%08x Exception %d at eip=%08x eax=%08x ebx=%08x ecx=%08x edx=%08x esi=%08x edi=%08x &ebp=%08x esp=%08x program=%s cs=%04x ds=%04x es=%04x fs=%04x gs=%04x ss=%04x U WV1S] }t81X at-U 9 X auFX at 9X auׅtPWhaPUPha9PPPPPPhaH9Z a PPPh@a$9PPPPPPh`a8e[^_]ÍvU WVSu]} FjtjPru~ F~F GeFF(E[^_]ÍvUS]C t CS Cu1*vC;t1Ƀ<Av[]Ð&Stack trace: Frame Function Args %08x %08x (, %s%08x) (more stack frames may be present)End of stack trace%svU WVS]= a} tfS1fjEPhY avh`aI7 ^Y aP1ۡY aaPFha#7Y aPuaPCha6vփha6hY aHu0auaPha6e[^_]ÉUDž00P誉PfjjEP]debugger_command '%s'int try_to_debug(bool = 1) %uCYGWIN=error_startCYGWINFailed to start debugger: %EvUlWVS=# at!h ah0ahFaj@h# ah a= ap1Phaa؈Ċ8tGu1}Ra5jH aPEEEEEEEEDpX aP虉aà u}1҉ЈĊ8tCu1ۉ؉Z;tCjheaSuʃhmaSt_CPhya-WVjjhjjjh ajt+}u 9jH aPԈdX auhahFahh# aCg1e[^_]ÐIn cygwin_except_handler exc %p at %p sp %pint handle_exceptions(EXCEPTION_RECORD *, void *, CONTEXT *, void *)In cygwin_except_handler sig = %d at %psignal %d, masked %pvIn cygwin_except_handler calling %pException: %s&'Error while dumping state (probably corrupted stack)vU:t80vE.vE"vEvE vE=# at^]PPRhahaj@h# a=d =# at'PuVh ahaj@h# a d Z atMɋ}C8Uҋ]׍M+ aCt]=# aZ atu>@8M9@P]ShHahajh# aac =# atJZ atu>@8 M9Ph`ahaj@h# ac um Z a9v*9tv;]v9uu9Cuy谂;] aZ atE8F8U:8t\tu>@8U:8t0tM9@8u>8}tN1FX at8}9X auZ axu Qhahahh# aa lX aPlX at hahahh# aaOfjthX aTvMQuV_fjjS M}WCvك1fjU1e[^_]old mask %x, new mask %xv'int handle_sigsuspend(long unsigned int)vUWVS=S auB詀9S au5S aES a-S appid_handle %pvoid sig_handle_tty_stop(int)U$S]Z axtPZ a1ɋPjE}Efj E }t}t P=# at,Z aPRSPh ahXahh# av^ H aP]؉]Ícouldn't get memory info, pc %p, %Eint interruptible(long unsigned int, int = 0)h %p, interruptible %dvU0VSuj]jSejSV}u)=# at Vh@ahahh# a|] a$貦jjS UtC}u:} u; au Ev;X at aPSR}u1ڋ a a؃=# atShahahh# a\eȉ[^]ÐUSE} t jP },vX vj.| jS|u]]UEj P|]ÐUWVS֋Z aEL a atPah`ahh# aG a a(؋]]ÐUS]t=P,i@@$P"P iV]]reset signal_arrivedvoid reset_signal_arrived(...)Ud aPh =# ath5ah`ahh# aF]ÍvU$= atX| aX[YZ_^]5 aUVWRQSP5 a5 a5 aha`5 a a5 aX]STATUS_ABANDONED_WAIT_0STATUS_ACCESS_VIOLATIONSTATUS_ARRAY_BOUNDS_EXCEEDEDSTATUS_BREAKPOINTSTATUS_CONTROL_C_EXITSTATUS_DATATYPE_MISALIGNMENTSTATUS_FLOAT_DENORMAL_OPERANDSTATUS_FLOAT_DIVIDE_BY_ZEROSTATUS_FLOAT_INEXACT_RESULTSTATUS_FLOAT_INVALID_OPERATIONSTATUS_FLOAT_OVERFLOWSTATUS_FLOAT_STACK_CHECKSTATUS_FLOAT_UNDERFLOWSTATUS_GUARD_PAGE_VIOLATIONSTATUS_ILLEGAL_INSTRUCTIONSTATUS_INTEGER_DIVIDE_BY_ZEROSTATUS_INTEGER_OVERFLOWSTATUS_INVALID_DISPOSITIONSTATUS_IN_PAGE_ERRORSTATUS_NONCONTINUABLE_EXCEPTIONSTATUS_NO_MEMORYSTATUS_PENDINGSTATUS_PRIVILEGED_INSTRUCTIONSTATUS_SINGLE_STEPSTATUS_STACK_OVERFLOWSTATUS_TIMEOUTSTATUS_USER_APCSTATUS_WAIT_0UEu aPE PEPjj9]ÍvUVUSE ރBAunPSEP[^]ÍvUVSu] >PSVZe[^]ÐUS]M UEPRQjS/9]]ÍvUϋVUSEރBAuPSE PEP[^]ÉUwVUSEރBAuPSE PEP1[^]ÐU#VUSEރBAuPSE PEP[^]ÉUˊVUSEރBAuPSE PEP[^]ÐU WVS}u ]荨PSVWXe[^_]ÉU WVS}u ]aPSVWDe[^_]ÉUSM U] Bt8u[] PATH=U4S]EUEEEEEEƅPRajjE pPS~]cygtty%d.output.mutexcygtty%d.input.mutexUjh a]ÍvUWVS}}mt= auLf1  aa a ah a] ahaê= at}u} fPh adu T ahjh aGv aI4 aA\ T auA}u9=R atأ a5, a a@ a}u9;t} 9,L a@ a8 aC$ aC( aC, a f4 a"f6 a$8 a(< aD a4H aC aPh aJ a aC a T a;  a= at a%T a ah a_1e[^_]ÍvUS]EM UPRQSZ aP_e]]U(MU PPRQ]USE U $avaaaaaaaaa a,a@aPa`aQvPPOvjND aZ aPn1o afh a1ZPPREjP[6P1(vXHPPRQS]]not_opennot open_fcntl%d = fcntl (%d, %d, %p)int _fcntl(int, int, ...)UaWV1SEH asH}|E;F} CHU<uat a adMM} u(QH aHPrPEP=à 5H aM@HEJ8PE PRЉÃa=# at#URM QEPShahajh# a:e؉[^_]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vU WV}Su ]>u t"rPFWuԍe[^_]ÉU$S]E EC(9C$r C(PCPu1CMS$C C$C]؉]ÍvUUSJ Z9sBB 9Z rBB$B []ÐUM} uQ ;QsAQ$tAD]ÐUUE} uB$B Bt PR]ÍvUMSU Y}څ~=t9)ЉAyAQ9Q rAA$A 9Q$vQ$[]ÐU WVS1} ]>KFtEP}e[^_]fatal error. strdup failedvoid fhandler_base::set_name(const char *, const char * = 0, int = 0)U WVSu] }Fu(F,t =X atY$F0t~,X atD$F0F,;b%F,u'h,ah\ahh# an6j 豯t )%F0~V8PЉÉڃtzt80t-@80t(@80t#@tttu@@)؍P"ƒV0EPSR ~0u(h,ah\ahh# a5j e[^_]ÉU VESuPVTUÃ}u Vu(EEjPjV;W9uE9EuE PT1e[^]ReadFile %s failed, %Eint fhandler_base::raw_read(void *, unsigned int)&'/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/fhandler.ccU VESuM UjPRQV8hPlЃPT TÁ mtNtBE{vSV8hPlЃPAt1I=# at F,Phmahajh# a3 aٺ辜vEe[^]U$SEM] jUPQSJ8hRlЃPS u;SpuEu-a蓜 a8 u j E]؉]ÉUWVS h aUˋB,‰ǃtzt87t-G87t(G87t#GtttuGG)NjE E;ր>uKȃ;Eu Mtzt8"t+B8"t&B8"t!Bttt uBBA,) )9w89tA) failedUVS]=# at:S8hPlЃPh ah ajh# a$ S8hPlЋPCt1\v=# atAC,PS8hPlЃPh ah ahh# a$ aoe[^]ioctl (FIONBIO, %p)int fhandler_base::ioctl(unsigned int, void *)ioctl (%x, %p)UE U=~fu%=# at@Rh ah ajh# aF#$=# atRPh ah ajh# a # a]U塸 aX]\vUSA<:uafAT9\uK<\uGQAvBt <\u:u a1!BaBt<\uf1ɉ[]Ð%d = GetFileInformationByHandle (%s, %d)int fhandler_disk_file::fstat(stat *)0 = fstat (, %p)'0 = fstat (, %p) st_atime=%x st_size=%d, st_mode=%p, st_ino=%d, sizeof=%dU\WV}SE a] Ej@jSW80P4Ѓ tvoid fhandler_base::fork_fixup(void *, void *&, const char *)UVSu]U jF@PjSH aPPR+u'PEPF,Ph?%ah\%ahh# a e[^]Ðset close_on_exec for %s to %dvoid fhandler_base::set_close_on_exec(int)UVS]u C S8jVPBPPBTЃt K@vc=# atVC,Ph&ah<&aj@h# a e[^]inheriting '%s' from parentvoid fhandler_base::fixup_after_fork(void *)io_handleUS]=# at C,Ph&ah&aj@h# a4  h)'aC PE PS"]]ÐCYGWIN_NATIVE_CLIPBOARDUSE j]PjSC8pE aCLCHC<C@CDjp aP2t a%؋]]error opening clipboard, %Eint fhandler_dev_clipboard::dup(fhandler_base *)vUVSu] S8jFPF,PBXPB\Ѓuh$(ah\(ahh# aF@eC@Fh VSPjR!tjjSWSVjEP!u1[^_]ÉUZ auMjhH a4PjyƒZ aB@Z a(EPh@RZ av]Uj]UE = au a0 a a=@u jK} aiФZ aD ]CONIN$USjhjh<\ ajhh33aÃtu1/=Z atjSX Z aHS{]]endisraw keyboard mode %sabled&'BOOL fhandler_console::set_raw_win32_keyboard_mode(int)UESU =# at(3at3aPh3ah3ajh# a:؋]]ÐU4SE]PS8xP|ЃPtLEf9u Ef9t3EPS8xP|ЃPE䉃]ȉ]Í/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/fhandler_console.ccReadConsoleInput failed, %Eint fhandler_console::read(void *, unsigned int){%u;%u;%u;%u;%u;%luKmouse: double-click -> clickmouse: position out of rangemouse: button state unchangedbtn upbtn1 downbtn2 downbtn3 down%c%c%cmouse: %s at (%d,%d)UWVS}u 1vUB8pURtЋpMQ EMPU RQMl[pxCtDžhvd a|DžhvUB8jURЃMQCxjjPhPt4actuP1jVpRu94ac=# aoh@5ah\5ajh# aTE tvMtpE]PEPEPEPEPEPh5aSZډ؃tzt80t-@80t(@80t#@tttu@@ p}f}tEtiEPV,Ã_ڃtzt80t-@80t(@80t#@tttu@@)؉tvEE}0]jSPS= au P UE#BLu ]ovEE]` aEtMM<u~ u)=# ath5ah\5ajh# aF ~ TdV!`=!\~=# ah5a.^1؋UF9u.=# ah5ah\5ajh# a{v9s$5a5aEBfEBEpډȃ9t6a6aECvډȃ9t 6a 6aE9t 6a6aEBEBfEFMt:ǁFt ǁFt EF t UM\] Pd!PG Ph 6aS =# at.`REdQPh*6ah\5ajh# a) DžtUjB@@PDTLjMtPSQ蕻|B,lU MAl}tEP}ыlj蒜8[^_]UUB@@tPjR ]ÍvU0VES]PS8xP|ЃP3ƃtNEfUHf)fEUH)fEE䉃Ef.jjPefǃfǃPfǃeȉ[^]ÍvU,WVS]} uS} HfEu fE}} JvUEfPƃ}u E}fFfEfEf} EfPJfPNPf9V~f9U  щN}} HvEfE} u E } fEE fEEPEPWVS8xP|ЃPM Af;AtPUf9E,GPGPRADQ)PjS BHPGPAPjS e[^_]CONOUT$opened conin$ %p, conout$ %pv'int fhandler_console::open(const char *, int, int = 0)U VSu]jSPV.F F<^jjjh0\ ajhh33agu4a;vF Njjjh0\ ajhh>a*u4a)[1Fah?aj@h# ae[^]ÐUS]S8pPtЋPS8xP|ЋPC 1C<]]error opening console, %Eint fhandler_console::dup(fhandler_base *)U,WVSu] S8jFPF,PBXPB\ЃuhqAahAahh# aFDfCD1FF fCFFHfCHFPCPF|C|}E~TCT}E}}IyhEP}W虗ffftJR*OǃRQW~eȉ[1^_]WINSZ: (row=%d,col=%d)int fhandler_console::ioctl(unsigned int, void *)WINSZ failedUVS]E u=Tt=TStDffF=# atxPPhCahCajh# aUv=# ath.DahCajh# a4a+V+C8jR1 VPSe[^]USME 1ۅtu>Q8pPtЋPU u4aU؋]]Ð%d = tcsetattr (,%x) (ENABLE FLAGS %x) (lflag %x oflag %x)t&int fhandler_console::output_tcsetattr(int, const termios *)vUVMSuF4tI a߀Ij1ۋQ8xP|ЃPv u=# at%FPF PjVShEahEajh# ae[^]É'%d = tcsetattr (,%x) enable flags %p, c_lflag %p iflag %pint fhandler_console::input_tcsetattr(int, const termios *)UWEVSPEP8pEPtЃP uEU1ۋ4t MI E`Uuz@J EP tt؃utZ a@tU1ۋB@@B@@$;]u1|MS1Q8pPtЃP u} 4aR=# at&UPB PSRVhFahFajh# a Me؋A@`[^_]U WV}Su ]SVW[u SVWee[^_]Ð%d = tcgetattr (%p) enable flags %p, t->lflag %p, t->iflag %pint fhandler_console::tcgetattr(termios *)UWUVESr@]  K0PJ8pRtЃPg u.4aIQ"EtK EtK EtK 1=# at&PC PEPSVhHahR[>ƒ􉖬EPjPRV8xP|ЃP~EPV8xP|ЃP*G9EPjPRV8xP|ЃPuP=džfdžfdžh=# a3at3aRhOa1vhPV=# a{PhOahNajh# a%\FTt@ tItS>EPEPVjjEPEP.vEPEPVEPEPjjjjjV jjj}FTtRj>FTuPj*jFTuPjFTtRVovFTt\ tYt+NEPEPVEPjPEPBvEPEPVEPjP vEPEPVUREPRjVFT1҅tPRFX1҅tPRjgvEPEPVKE1PFTtPR;EPEPV#FT1҅tPREPjPPVHPEPEPVEPE}FTuFTEPEPVUFTPjjjRjGFTuFTEPEPVLEPjjjFTPj FTuFTEPEPVUFTuFTEPEPVUREPRjRFTPFTuFTjjjjPjVoVTuVTPjjjjjQFTuFTEPEPVXUREPRjRFTPV0URMFTPRjRQVxEPEPV EPE}$PjVIt/EPEPVURMFXPRjRQVK0FXPVXvEjPjFTPV8xP|ЃPFX PVXu4OaE8OafEjEPL~TEP]ЍEPVU)‰ЋUEB@RPh:OaS jSV褝B~Tt FTHv1f~Xt FXHfjjjVe[^]conversion error, handle %pvconst unsigned char * fhandler_console::write_normal(const unsigned char *, const unsigned char *)write failed, handle %p vU,WWVSuU E9sja<uB;Us <t;U +} vvSM Q= au vPP6P uU=# at:V8xP|ЃPhZahZaj@h# a5 4azvt9PPVR PRjRQVU0jPSRV8xP|ЃP u\=# at:V8xP|ЃPh_[ahZaj@h# a` 4a=1v)E mM9M ZU ja A$]aT_a_a]a_a_a_a]a]a_a_a_a_a_a(_ajdh}FPPPVyf}9}.Ћ99| ftYPjf} vPjDPjVk 9jPjhw[aV8xP|ЃP F u Dž@PPBjj vjjVPPV9PjjVLxjPjM QV8xP|ЃP[?PPVP}PjVE E [^_]%x, %dint fhandler_console::write(const void *, unsigned int)at %d(%c) state is %d%d = write_console (,..%d)vUWV}S] E؉E=# aEPSh_ah_aj@h# a }=# at7GPP >atQPh4`ah_aj@h# a GPPE)$aav0aaXaacabacaba`ca`caEPSW>à v<[uJGPSLJOTG|G|G|X_|؃ ~G|v<]u LJSƇGPatO|WTCDFЉc;;,W|CBG| GW|?PCWFGP"v>atDBЉ;;utu GPGPE֊ ttt uBB)A<^v6u(}u"P at VP(tV GP% 2D;u GPG|C;>at GP%@tu?uLJˉGP;]|=# at]SShJ`ah_ajh# a9Ee[^_][5~[5~[6~[6~[1~[1~[4~[4~[2~[2~[3~[3~[[A[23~[[B[24~[[C[25~[[D[26~[[E[28~[17~[29~[18~[31~[19~[32~[20~[33~[21~[34~UWV1SEu Pt v t t=x at"Ex aX 1v;tB9uEPu1| a vF[^_]ÐU WVSu]E} SPWV<@ЁuF8jRjPXR@\Ѓt W F@PjVe[^_]UE]@@@%ÍvUVSu V]SܿS8CUEufEfEf}EÉufEE@1}tPEPhraEPjEPQ u&=# ath=mahlaj@h# a$v=# athQmahlaj@h# ae[^_]ÐUS];tBS SSuPAQ PYQ C]]ÐUE]@ÍvUUEPP ae^ %u3fEUFBK8RhmAxPA|ЉǃF{<tCDKH)9r~;S@RE{@v9CDSH)Cc_ospeed %dInvalid t->c_cflag byte size %dvtime %d, vmin %d 'ReadTotalTimeoutConstant %d, ReadIntervalTimeout %d, ReadTotalTimeoutMultiplier %dSetCommTimeout failed, %EvU|WEVUSE] @@ER=# at 0Ph<ahahh# au a~vMA@tEEuFttUvEMEʋueUuMUUEЀM$MEAt EUuFt MveUBt‹MUAtˆUuU$Ef~} EE$ E$ψU EE@ @t E$ EE$ϋU EB t$ @EM@u߹t-MSQ8hPlЃPL]4t uN E`Uu] ʀ΀F4t͠ ߋEUJ}ujQ8hv]jS8hPlЃPіuF tE@<@@UMB!kdA@BA<=# at']C=# atPhahahh# an a}uK@}uK }uK Et v EtKEtKEtˆSEtˆSE%0f= uK E$0< uK @E@uK F uK=# at!F@PFtPhuiPS8hPlЋPeZǃ=# at,>a>t6aPhHahajh# a[ >t Kcv} ~fu2>u-jjhPS8hPlЋPYVE PS8hPlЋPv\ǃu}_a} ~fup=# at,ha>teaPhiahajh# aZ >t6Ct0jh,hPS8hPlЋPY=# at"VE PWhahajh# aZ Et?P|E@E@$EPEP{Ee[^_]ÍvU1ɉ$S]E Uue@t @CU9t!S8EPh~fBxPB|Љu*}t K@cvRPS?]؉ȉ]Ðnot_opennot openUE@T@XPh]end of mediumint fhandler_dev_tape::is_eom(int)USE 1=Lt=it=Put=# ath4ah\aj@h# aX؋]]end of fileint fhandler_dev_tape::is_eof(int)USE 1=Mt=Out=# athahaj@h# a6X؋]]ÐUSU EP]RjSBC84 aC\]]ÍvU1ɉlWUVSu ]}[t a}C@STjWVSpƃS8EPhmH@BxPB|Ѓu EuEC@}SLˆSLC@vPޡC<S8EPhm@BxPB|Ѓu*}u$fES8EPhmBxPB|Ѓt(fE E@S8PhmBxPB|Љe[^_]writing filemark int fhandler_dev_tape::close()rewinding U VS1]CLtsS8PЉƃCL$<uM=# athahaj@h# aVfEE@S8PhmBxPB|ЃKL{TuF=# athahaj@h# aUfES8EPhmBxPB|ЃuSvSe[^]U\WVSu V]Sۿǃu8S8EPhmH@BxPB|ЃuF0RPEЋURPyF4e[^_]lseek (%s, %d, %d) off_t fhandler_dev_tape::lseek(long int, int)U,WVSu} =# at%EPWF,Phahaj@h# arT V8]PЀfLFHFDV8Shm@BxPB|Ѓ uH}ta }tEGv}u>fEE@V8PhmBxPB|Ѓt} avUfEU1v@}u+EUB} fEZF8URhmPxR@|ЃuF8Shm@PxR@|ЅpEF@e[^_]ÉUMU ATBTAXBXRQ]Ð/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/fhandler_tape.ccvU|WVSuE 1ۋ}=m"$aTaaaaaalaaTaaaaa<aaaaaaaLaaaHaapaaaaaaaaaajGPjV.ZjGPjVDvjGPjV.jGPjVvhV tGPjVLvhV tGPjV vGPjV jjjVlvjV hVZ SjjjV/ÃjV CjGPjV,vjGPjVhV tjjjVjhjVjVqhV EjPjEPV à W~<t;V@u FL uhVG @W~;U0;U'~<t~FDNH)9s aRV ÃIEu EPVC Ã"EEE}v#MQEu v~@v*}v$FDVH)Ft:jVE PW8hPlЃPGXhaGXP*e[^_]tape_eraseUEPE VjP8hEPlЃPfUBXtEjHjS}u%EtEPC(S, CEt }uEEC}tK_EtCPEP^{uK@C S Et}t C EtEP]C S$Et }tKEt }tKEt }tKEt }tKUBXCEC0EC4EC8ECpgid %d, tty->sid %d&void tty_min::set_ctty(int, int)resetting tty%d sid. Was %d, now %d. pgid was %d, now %d.U VSZ a]u ,|9 f},=# at4PCPZ aP(PVh|ahajh# a=0jE1wZ a9(utE9t ud=# at;Z a$PCP(PPVhahahh# aw=0Z a(Z a$CvZ a({uZ a$CE}t}t P2e[^]Ðbg I/O pgid %d, tpgid %d, ctty %denum bg_check_types fhandler_termios::bg_check(int)closed by mastervUWV}SZ a] Ƌ$,W@9J B9,u z$}ۃ=# at4,PG@@P$Phahahh# a; G@8u+=# athahahh# a;1Z a$EZ at [@8 [8t+Z aLtr<ٸ+ atEu3}t u(1d a1t S ae[^_] char %cint fhandler_termios::line_edit(const char *, int, int = 0)t&got interrupt %d, sending signal %d EOFEOLU,WV}SEEG@@$EEMvU BEU =# at#Phahahh# a9 E< t< uBG@@@t#E 3uG@Nx @tE 1}u}tEG@@ teA$EQ/؈E9u A39uA79u`=# at%SEPhahahh# a9 jWSG@@P:G@ `%E^AUA69u>uNy A G8jhhaRЃA59u4G@@ W8hhaPvfy}y uY$tUA*9uuY$}]A.9uPjWuNNG@@$AG8jhaRЃA:9upuNPG@@$t"G8jhaRЃjW>ajWSuvA09uXjW1ËuG@N@$wnG8jhaRЃs@A49uXuNA$*W8jh@aPЋW8GPGPPЃ vA-9u4=# athCahahh# a^6uEA+9t A,9t u,E=# athGahahh# a6G@@@tU>at Š` aEG@@$t!W8jEPPЃEPWuNEu}t}t1}utE}t E}tG8RЍeȋE[^_]output_handlevUVSu ]VS*h[aS8xP|ЃPVS(e[^]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexvUSU EP]jRS%C8C aCtClCp]]Creating master for tty%d&int fhandler_tty_master::init(int)can't create fhandlercygtty%x.master_alivettyincan't create input threadttyioctlcan't create ioctl threadttyoutcan't create output threadU%p from tty_owner %pcan't duplicate output, %Etty%d openedUWV}Su]jZ aiV` PVF`PRSF`PF@P0^F`P]h aW6WjhEFDF@@PhaS SjhEFPu5=# ath ah< ahh# a!<a+F@@PhaSSjhGEFTu5=# athu ah< ahh# a!<aF`Ph aWFWjhDFXu4=# ath ah< ahh# a.!<afF`Ph aWWjh>DFHF`Ph aW WjhDV8FLhhh< aPЃ jh aF@P F\F@ǀV8hh< aPЃF@t u4=# athah< ahh# a&  a 1Pjj@CÃuH=# at-F@PF`Ph<ah< ahh# a <av|jjjWH aPF@PS?u7=# athbah< ahh# aa<av|F =# at.SPF@Ph|ah< ahh# a vjjjWH aPF@PS>u9=# athah< ahh# a<a'-1J|F F4=# at!F`Phah< ahh# aiX[^_]ÉUSU]@ȁuC8jQjPXR@\Ћ]]tty%d, write(%x, %d)int fhandler_tty_slave::write(const void *, unsigned int)WriteFile failed, %Ewaited %d ms for output_done_event, WFSO %dUWVSE} Eƃ=# at(UPWB`Phahahh# a UB8jhKhaURЃEjPEQSP8xEP|ЃP< uc2=Ã=# athahahh# azu]ٺg<a腅jEUJDtGU)Ѝډ=# at!PShahahh# a t=uvEUM)΋B@ aEUB8hvhaURЍe؋E[^_]read(%x, %d) handle %d&int fhandler_tty_slave::read(void *, unsigned int)'wait for input event failed, %Ewait for input mutex failed, %Efailed to acquire input mutex after input event arrivedPeekNamedPipe failed, %Ereading %d bytes (vtime %d)read failed, %Esaw EOF%d=read(%x, %d)vU,WV}SDžDžDž=# atEW8hPlЃPEPU Rhah<ahh# a G@@$uXP2@9Džt;t2kd# aډDžZDžd aWXPj:Xu=# a@h|a=GTu=# a haS=u=# aha5jjVhSW8hPlЃP<u<=# athah<ahh# aVjDž=v]9vÅD=# at'RSh ah<ahh# a jPSSW8hPlЃP7 u2=# ath)ah<ahh# aj(jjVjPW8hPlЃP:u<=# athah<ahh# aj軤Džt#)EPSU R蹧E uGXP8 GTP%8G@ u+=# ah9ah<ahh# aub@$u\G@uV9| D;t2}t,PjRj8=# at+EPU RPhAah<ahh# a[^_]Ít&'dup %d failed in DuplicateHandle, %Eint fhandler_tty_common::dup(fhandler_base *)UWVuS] F`C`jF@PS8F`PFPF`PF@P0VDt.CDjjjPH aPRP4uvCDVHt.CHjjjPH aPRP4uvCHVLt.CLjjjPH aPRPh4uvCLCXjjjPH aRFXPR/4u FCPjjjPH aRFPPR3u CTjjjPH aRFTPR3u }jjjWH aPV8hPlЋPH aP3u vEC jjjWH aPV8xP|ЋPH aP-3u GvECC@@|K@WAPQTCHt P$1 CLt C8hhaRЃ=# at$VC@@|Ph` ahahh# a C@@|e[^_]ÉUVSu]E USPRVN^`F8? aeFlFHFLFhFdF\[^]opened pty master tty%d<%p>int fhandler_pty_master::open(const char *, int, int = 0)US]jZ a PƒS`}1pviҤSZ a P&jhaC@PC\ ECC4=# at!SC`Ph#ah#ahh# a ]]CloseHandle (output_done_event), %Eint fhandler_tty_common::close()CloseHandle (ioctl_done_event), %ECloseHandle (ioctl_request_event), %ECloseHandle (inuse), %ECloseHandle (output_mutex<%p>), %ECloseHandle (input_mutex<%p>), %Eno more masters left. sending EOFCloseHandle (input_available_event<%p>), %ECloseHandle (get_handle ()<%p>), %ECloseHandle (get_output_handle ()<%p>), %Etty%d closedUS]CDt5P* u%=# ath#ah<$ahh# a CLt5PR* u%=# ath|$ah<$ahh# a CHt5P* u%=# ath$ah<$ahh# ai C\t5P) u%=# ath$ah<$ahh# a- CPP) u,=# at#CPPh$ah<$ahh# a  CTPc) u,=# at#CTPh<%ah<$ahh# a  C@Pu4=# ath|%ah<$ahh# aw CXP+ CXP( u,=# at#CXPh%ah<$ahh# a)  S8hPlЋP(uF=# at=S8hPlЃPh%ah<$ahh# a S8xP|ЋP(uF=# at=S8xP|ЃPh<&ah<$ahh# aI C\=# at C`Phg&ah<$ahh# a]1]freeing tty%d (%d)int fhandler_pty_master::close()vUS]SC@Puq=# at*C@@PC`Ph)ah)ahh# a_ C@t P& C@t P& C@P]1]ÐUSU]E jSPR؋]]ÐUMS] UAdPRSQ]]ÐUWEV} Z ai@` t 1^_]ÐUWEVuZ ai@` | 1^_]ÐU1]ÍvUVS]E u=Tt$w tcv=Tt!=~ft>PCd]C@PH@DVLK@VADQHjC@@P)>tK@c a1e[^]/dev/tty%dUE@`Ph+ah am a]output_mutexinput_mutexto_ptyUVSu V]S {DtS8CDjVPBPPBTЃ{HtS8CHjVPBPPBTЃ{LtS8CLjVPBPPBTЃ{\tS8C\jVPBPPBTЃS8CPh,aVPBPPBTЋS8CTh,aVPBPPBTЃ S8jCXVPBPPBTЋS8Ca=# athF>ah|=aj@h# a5]]child is running. pid %d, ppid %d, stack here %p&'int fork_child(void *&, dll *&, bool &)Impersonation of child, token: %dImpersonate for forked child failed: %Eafter longjmp.'hParent %p, child 1 first_dll %p, load_dlls %d performed fork fixup.loaded dlls&'%P: *** recreate_mmaps_after_fork_failedvU WVS]} u=# at)UZ aPRPh|?ah?aj@h# aO H ax(ti=# at @$Ph?ah?aj@h# a H a@$uf,Pa uh<@ah?ahh# afjhd@a=# at)PPPh|@ah?ahh# a 0H ax,t@|>a0H a@JPH aHP}6>ufjh@a)PPhV ay fjh@aPx0H a@Pj0H a@(P\Xst h@a$ H a= H at) ytAjPR@Ѓ;u輘e1[^_] couldn't create last_fork_proc, %Evoid slow_pid_reuse(void *)US=dZ av dZ adZ aDZ at Pi  jjjdZ aDZ aPH aREPR u+dZ ahVPH a x(Z@$NPY@H aHz ~EPRX,EP| U=R atڃjFHZ aPPЍH ax(t@$t PMY EBEBZ aBABA sDžRjvu#jEP a EPhhEajVW w=# ath|Eah|Daj@h# ajh' ah ahG ah aMPEPA8PA4P aP aP aP aPhEaWÃ@W aV aW ahV a-Ãtx=# athEah|Daj@h# ajC PCPCPCPhEaW W aV aV at t9P0uV auPW9hEaUPVWM9W aV aW ahV aFÃty=# athFah|Daj@h# ajC PCPCPCPh>FaW W aV aV at t9P0uV auPWVEPRE褞tt􋍈QIGxEt P Et P t V} t􋅌Pb tt􋕈RFh[^_]enteringpid_t fork()The heap has been split, CYGWIN can't fork this process.&Increase the heap_chunk_size in the registry and try again.-1 = fork (), split heap%d = fork()vUdS=S auA9S au4S aES a-S aBu4‍9sWtvf9sBufuVPTVP[^_]ÍvUWVSu} f>{u,f~}u%f~u0E4vEPWVS0tj{SN ÃuكWVe[^_]ÐU,7(WVSM] 9tf9uqDžf>tgf[u/f]tftf]tfuf>u*&f{u f}utf>uuf>uEPRU Dž9[t ,ti{tC}tFكf]tftf]tfuf;{tjvtf;,tX~9sf9rFf ffuEPRUK9E1[^_]HOMEU WVSu} f>~upE@ tg^FvBftf/u?u.hTa+ƒu/P跿tW_u2vP:tffB:uffue[^_]ÍvU,s%WVSE PSߋURƃE ?*v[!uf>tVj]Ruf[!f[!uf!شff>-u^]tf-؃f]uNjE H f]8U J f?)E H 9tf*tf*شffE PRueE P ;u%u%=uU REPB0 u)hPWaj+QU BBPnq1[^_]ÍvUE UPP]ÉUc#Uf:tE PRPP 1]ÉU\WVSu EM}vffW]SEP:t1G tLf~/tEE%=@t+=u/WSEPSuE%=@u f/fFGWEPtf/t(f}Efftf/uڃ}u,щf/#vff/t WRQVEP e[^_]ÉU@!WVSu fAEPURǃuPExt?SURAPSUBЅu E@ t 1DžUDžNaB @Bvz.u Ef8.ugfB^fftffBfuUREPV_uf#UREPSURuW҉ƒqE@ @tWB vWؿ[^_]U WVS} GWtPR(8 P7Åu Eu W~J|vIy‰_Ef8t fu+UR7ƃtVEPG4G1ue[^_]ÉUWVS}u ;u=?tX=*t=[tQ|;utvEPVWt fu1fuvEfEftf>!Et=H af]vf>-uQ>at Uъ>a$tJ 9$фt V>at 9E+ʻ>a t Ut 9uEf]n>f>-uf;UwEf;FwEf;UuEf]u‹E9EU=H at/>a t t 9f9pf?e[^_]U WVS}Wt7G4Ktt P5sGP4e[^_].U@+VSEu f8u]afvSP F @u P PF Ѝ[^]ÍvU @WVSE} uSPF @uWS$ WSF$Ѝ[^_]ÐU @_WVSE} uSP[F @uWSw WSF(Ѝ[^_]ÐUUM v9tfu1Љ]ÉUMU vBu]not_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---/etc/groupU,WVS] ؉߃tzt8't+G8't&G8't!Gttt uGG)ߍwVO"2EVSPb U< u:UĊ8tBu1҉ЉÅ_UC}:ZڈĊ8tBu1҉ЉÅ1UCBƒtzt8*t-B8*t(B8*t#B tttuBB9u }Gj jSsUfBĊ8tCu1ۉ؉‰ӅCzt1ڹ,FBȉ׈Ċ8tGu1…uFjP11t:1 vFZ,߈Ċ8tGu1…u؉DEH jj0UB v1e[^_]U塠 a; au" aP aPw0 aEP a aPt a]AdministratorsrtEmulating /etc/groupvoid read_etc_group()unknownFailed to get local admins group name. %E%s::%u: U WVSDžh hZbaS!whZ a|E = athZ aEs ahibaZ aPOƃtn08؉tttu@@9t SUVhSLuVG aDž=# athlbahbaj@h# a PPPPS" aPjo@u8ba ba$=# athbahbaj@h# a+h Shba0hSmp Sa ahZ aD[^_]ÉU WVS1}= a1ɡ a9}#á aPf uf9t A9|[^_]ÐU WVS}= a1;5 a}- aH2t  a F;5 a|1[^_]ÉUq@]ÉU= aHp¡ a9B|1vp‹B aB]ÉUp@]ÉUS]= a; a|1  a[]Ð%d = GetTokenInformation(NULL) %Eint getgroups(int, gid_t *, short unsigned int, const char *)U\WV1SEEfEƃ= a = a|EPjH aP>]]SjjjEP< uzEȉe%%?eSEPRjEP; UEUESPtl1aEUЋtu 9PR9t/;}} CU fzG}t ;}~EP+FE;0rEURÃde,v=# at EPh4fahtfaj@h# aN EP EovEf;Cu;}}U fzG}tL;}jEC t>18t7E.t;}} CU fzG}t;}-FC <uEEPÃ{v ae[^_]ÉUH aMU @ PZ a"PRQs]ÍvU1]Ðcygtty%d.output.mutexcygtty%d.input.mutex%P: *** 1. unable to allocate heap %p, heap_chunk_size %d, pid %d, %E%P: *** heap allocated but not at %p%P: *** MEM_COMMIT failed, %E%P: *** 2. unable to allocate heap, heap_chunk_size %d, %Eheap base %p, heap top %pvoid heap_init()U WVS# a a= aZ aPE5 a a)ƍ\11ِjh S aP5u5+ a9wߡZ aPZ aP-EP aPhia a9tRhiajhVPu^hjaqjh Z aPDPj a a  auZ aPDPhTja!=# at( aP aPhjahjaj@h# a aL*e[^_]ÉUWVS=S auBM9S au5S aES a-S aEPVƃtpM Qh}qaÃt E >uVƋUu)U}v$t+<,t'<;t#EPVƃu<vMM<,t<;n]SFVƃtŠF<,u]SVƃt>uE @M @ϋUǀPLE@TUǁd`ǁhEEEEMPQEPURÍMEPQEPUR 9~FFFEMu6QE])kd9Eu)i9EuEMvaEiQE}C@c[MEE AM1ۋH9}]E Pƃ<2uE LډU+C9}&E <0uU L؉EE19}cE E Pƃ<2tE LډU.vC9}&E <0tU L؉E19M 1u EMUPEUM M lPM E l\u+1tE Xu M E+E M E+ED9M Lڃ<0tUUCE ;XmMU ىLǂPǂTEǂd`MhB>EE @@UǀPLǀTMAMUE P }tMUD M A E x UR] MLQSY]C}tEPURSYM1H[^_]ÉUS]Sh\patjSh\paI]]%d:%d,M%d.%d.%d/%dTZUWVS= a" aPPPNT LfTtwCf:u9u_h aWV aƒtzt8*t-B8*t(B8*t#B tttuBB)߃ju[^_]ÐUVS9u .1*9t` a280uAC9u;[^]UVSÀ;u 9u'%` aA9t280tC;u1[^]Ðnot_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ----1 = alloc_map (): %Evoid mmap_record::alloc_map()vUWV}S1~‹GH1E+E 9wY}Mu/1;] s$ωC;] s3уtEF+E 9v[^_]-1 = map_map (): %E'DWORD mmap_record::map_map(long unsigned int, long unsigned int)vUWUVSuB t tEvE vE\UD31ÉދE8} VPE =R auLEPURVME APsu"=# athǙahajh# a蔖st'U] Bك NuE E 1MI)M j‹E 1ǃ=R auHEPEPGP>UBP軹u=# athǙahajh# aܕst#MAG NuދE e[^_]-1 = unmap_map (): %EBOOL mmap_record::unmap_map(char *, long unsigned int)UWUVSB} )NjuP‰щ1?8D31Éރ=R auIEPjV UBP舸u"=# athah$ajh# a詔st'vMAG!NuM‹AH1ptUBN<t1 ue[^_]ÐU,WVS=R aUB ttEvE vE M‹AH1ÅtTE{PE@EMtuVP؋EXS0ue[^_]UUt jh;aBPjH aHP , a  a]ÉUE8tE 螀]ÉUS]CC C Ch@؋]]ÉUVuSFCt PF NPyE t Ve[^]ÐUWVS]C;CuCPPK{u ;s3jIB‹FH1PF=R au6EPjFPFP蒵u=# athahajh# a賑CeC[^_]ÉUWV}Su u[} uUD311EE ;G}WMQPu F;w|1+1ɋG9}u P9U rP9v A9|1e[^_]ÐUWUVSM} AB9}-ÉuvP9r P9w A9|[^_]U WUVS] @t PrMAEUC8w BH9|ߋMeI[^_]ÍvUS]j(CC ]]ÍvUVuS] Pt Vne[^]ÐU,W}VS1G9}QH aUEv} uËz t$'vMAHM EBU;BuF;u|1[^_]ÐUVSu U]V tH a@H@FC;CuCPP1Se4CS[^D]ÉUS]M CTCAH9|K[]Ív'addr %x, len %d, prot %x, flags %x, fd %d, off %d&'char * mmap(char *, unsigned int, int, int, int, long int)-1 = mmap(): EINVAL mmap-1 = mmap(): ENOMEM-1 = mmap(): EBADF%x = mmap() succeededUWVS]u}=# at+EPWURVM QShĢahajh# a躍0= auEЃP莮E  a‹E1u9E4tEt)UtuMt15 au} u6 a=# ah?ahajh# avEtEEt=R attESa1=` au*j Pk` a u  a(U t5 aE učT]ĉЋM1!Mĉ]uH a$at1sHE|;~} CH<uE-aU1}t# a =# ahmaH a@HE‹%uEjjjPH aPSP螖uhaC Su]؋]؉]UMȉ% ]% ʉÉUEP]ÉUEf]ÍvUEP]protoent %s %x %xvoid dump_protoent(protoent *)UUt.=# at%BPBPPhahĻaj@h# ayu]ÐUEPrv]ÉUEPv]255.255.255.255U WVSu] VuuRat1 te[^_]ÍvUEPu]ÉUEPz…} v%=u v]ÍvUEU  = = ЃP]WSAEINTRWSAEWOULDBLOCKWSAEINPROGRESSWSAEALREADYWSAENOTSOCKWSAEDESTADDRREQWSAEMSGSIZEWSAEPROTOTYPEWSAENOPROTOOPTWSAEPROTONOSUPPORTWSAESOCKTNOSUPPORTWSAEOPNOTSUPPWSAEPFNOSUPPORTWSAEAFNOSUPPORTWSAEADDRINUSEWSAEADDRNOTAVAILWSAENETDOWNWSAENETUNREACHWSAENETRESETWSAECONNABORTEDWSAECONNRESETWSAENOBUFSWSAEISCONNWSAENOTCONNWSAESHUTDOWNWSAETOOMANYREFSWSAETIMEDOUTWSAECONNREFUSEDWSAELOOPWSAENAMETOOLONGWSAEHOSTDOWNWSAEHOSTUNREACHWSAENOTEMPTYWSAEPROCLIMWSAEUSERSWSAEDQUOTWSAESTALEWSAEREMOTEWSAEINVALWSAEFAULTNOERRORvUU=d at` a;u@v xu]Ð%s:%d - winsock error %d -> errno %dvoid __set_winsock_errno(const char *, int)U WVSoS+ƒ a=# atRSVWhĿahajh# aqe[^_]Unknown hostHost name lookup failureUnknown server errorvNo address associated with nameUVSOo1ۋ` at3` a9t Ct9u[<0th ap a p a[^]cygwin_getprotobynameUSEP=pà ut@aSX؋]]cygwin_getprotobynumbervUSEPpà uaUS؋]]ÍvUS]f= awSà jE Pj EPH aHPЪ¡H aZ BH@ ]Љ]socketsocket (%d, %d, %d)int cygwin_socket(int, int, int)cygwin_socket/dev/tcp/dev/udp/dev/streamsocket/dev/dgsocket%d = socket (%d, %d, %d)UPaWVS}Eu H aHBPR`Ã} av=# at"EPVWhWahaj@h# an 1tEPVjcpua|=uauaauaPRSx<]=# at#EPVWEPhahajh# a|m Pae؋E[^_]%hu %08x-%08x-%08x-%08xUWVSU}uuufu+BGBGB G UE (vfBjP谋\DžXhpjSVhS\P9  fDž`F PFPFPVbPh@azP, bPfbhƒ d`WUhGlG DžX\PXv aj18[^_]Ív'Fallback to winsock 1 sendto callint cygwin_sendto(int, const void *, int, unsigned int, const sockaddr *, int)cygwin_sendto%d = sendto (%d, %x, %x, %x)U\WVSEUH a]@H<=S auB轊9S au5S aES a-S atCtFyt\ tE@tHctLtLOMaFVa>da6qa.~a&aaaaaUREPSU RQ8hPlЋPXdǃ }u+=# at"UPhahajh# aa taw=# at,EPURVSE PURWhDahajh# aae[^_]cygwin_getsockopt%d = getsockopt (%d, %d, %x (%s), %x, %d)int cygwin_getsockopt(int, int, int, void *, int *)U WVSGa]EPtltM t>tCtFyt\ tE@tHctLtLOMaFVa>da6qa.~a&aaaaaUREPSU RQ8hPlЋP`ǃ uUPUtab=# at,EPURVSE PURWh$ahdajh# a_e[^_]cygwin_connectaccept from unauthorized serverint cygwin_connect(int, const sockaddr *, int)UEVPWu)=# ath$ahDaj@h# a\]E}t,Wt S\  aoE܅t?P~E@E@$EPE܃Pu~E؍e[^_]cygwin_getservbyname%x = getservbyname (%s, %s)'struct servent * cygwin_getservbyname(const char *, const char *)U WVS}u VW\Ãua=# atVWShahajh# a[e[^_]cygwin_getservbyport%x = getservbyport (%d, %s)'struct servent * cygwin_getservbyport(int, const char *)vU WVS}u VW[Ãu*a=# atVWShahajh# a"[e[^_]cygwin_gethostnamename %s int cygwin_gethostname(char *, unsigned int)vU VS]u = atVSsZu/uEPSw~ua< 1=# atShahaj@h# aIZp a1e[^]%d.%d.%d.%dcygwin_gethostbynameh_name %sstruct hostent * cygwin_gethostbyname(const char *)US]hp ah` ahP ah@ ahdaSl uxjjh0 a+@ a a  a  aP a0 a! a` a4 a a" ap af8 a# a0 af: a< a a[SXà ucpa:/=# atPhahaj@h# aXp a؋]]connect from unauthorized clientint cygwin_accept(int, sockaddr *, int *)acceptcygwin_accept%d = accept (%d, %x, %x)UWVS1ۃ=S auCw9S au6S aES a-S a%s%u %d = bind (%d, %x, %d)vUWVSEEPƃU f:EUЃt 80t(@80t#@tttu@@+Ekv a[vfEfE]hEEPSV8hPlЋP*St7=# at$ aPhah$ajh# aS EPSV8hPlЋPT|t8=# at$ aPhdah$ajh# aJS EPfE=# at Phah$aj@h# aS jh EPqǃ} a8PpE]V,EPhahaS |وĊ8tAu1ɉȉRVx؋tttu@@)@EPSWm ;Et4 aEW=uEPb a EWuH a@,%PUR蟄E RvEPU RV8hPlЋPPtPa( E=# at&EPU REPURhah$ajh# aVQXE[^_]cygwin_getsockname%d = getsockname (%d, %x, %d)int cygwin_getsockname(int, sockaddr *, int *)U WVS} uEPt@VWQ8hPlЋP#QÃtRa=# atVWEPSheahajh# aUPe[^_]cygwin_gethostbyaddrstruct hostent * cygwin_gethostbyaddr(const char *, int, int)USMU EPRQiOÃu*OaY1=# atPhahdaj@h# aOp a؋]]cygwin_listen%d = listen (%d, %d)int cygwin_listen(int, int)U WVS}u W3t?VQ8hPlЋPCPÃtAas=# atVWSh&ah;ajh# aNe[^_]cygwin_shutdown%d = shutdown (%d, %d)int cygwin_shutdown(int, int)UWVS}u =S auC6n9S au6S aES a-S aO$afPShGaS RhjSh$ DžSVjjhYaP CDžSSjjhcaPԲM AvjhnaP uaPR aPQjjSDP) ^DžRWjjhvaPʱ#DžQVjjhaP菱} hs tc} fs t4B} dst)} js |a} ks vCWGVV3Cf@fCojjP fBCA/@} hs } fs t8N} dst-} js } ks vRaC+PIR8Ѓ CfAfCsP CfBfCHvjjPfA@Bƒtzt8"t+B8"t&B8"t!Bttt uBBB‹tzt8"t+B8"t&B8"t!Bttt uBBB9t#:tU B9/P謭 ƒtzt8"t+B8"t&B8"t!Bttt uBBB:M[^_]Enum\Network\MSTCPDriver'System\CurrentControlSet\Services\Class\IPMaskBindingsVREDIR\System\CurrentControlSet\Services\Class\Net\AdapterNameMS$PPPUaLWVSffEDž@Phjhah tU )DžPhjQP般 UDžPSjjhaPmtPWa 󥤃SSVhjShÃtPvDžPSjjhYaP辫DžRVjjh-aP胫MM A9^} hs } fs t:h} dst/} js } ks vWCf@fCSVЃ CfBfCrV访CfAfCEjjPf@BAPPhjh4aPݩ tPv1FjjjjDžRWVPdÁtjh=aW6uPt  da 󥤍PSPhjShtP DžRSjjhaPШu1a=t!aPQaPRPc PQ QjjjDžPRQP誧Á(PE[^_]255.0.0.0Service Pack 4UWVSEp8? aaf^aFjjS؁} hs t|} fs t5G} dst*} js |u} ks vh8vhhFaЃ ChFaCfFfCOvfFjFjP1F'vFTv av`hjSDž`SPpt+dvuhuE PEPTpu;dvu+tPasE PEPLE PEP1H[^_]%d = rcmd (...)'int cygwin_rcmd(char **, short unsigned int, char *, char *, char *, int *)UWVSE ufE=S auCO9S au6S aES a-S aÅtHCU 蔋tS;UCRD PEPI[]t VJWDEe[^_]vULWVSEEu܍E}؉EVjjWEPSURHtIS݅}uXEP谅ÃVjjWEPSEPHuS蔅}v]̋EU mvEVPEPEPEPEPkHtFVjjWjUREPDHt'}t!ENPÃVjjWjjURHeE[^_]ÍvULWVSu = au Ejhjh<\ ajjEP3CEԃu1Etzt80t-@80t(@80t#@tttu@@U)| WÍU؍E܃EȉU̅WjSҴtzt80t-@80t(@80t#@tttu@@(ЈCEfCVCP  SEPT EPR肳UEEE}ERjjEPjEPURqFt(EȃPjjURWSEPPFtEUȃRjjEPjjURFEPA t SEЍe[^_]not_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vUS] Ȋ@t :t u8:u@[ȉ]ÐUVSuj jSCt :t u;:uCe[^]ÉUWVS] ؉߃tzt8't+G8't&G8't!Gttt uGG)ߍwVO&EVSPE < u]SUSU BSUBS U B BSUBSU BSUe؉B[^_]ÍvU a9 a|"  aP aP胀 aEP a aP a]rt/etc/passwdEmulating /etc/passwdvoid read_etc_passwd()HOME/%s::%u:%u::%s:/bin/shU WVShZ a= athZ a% ahJahMa4ƃto9v؉tttu@@9t SVhSuV a=# athYahoaj@h# a halatRh hH a@ PhahS" S  ahZ aД[^_]ÍvUWVS1EE} fE= a~Dv aSu]t:tPE9tF;5 a|= au-uZ aUf; tH aP tE1[^_]ÍvUS]= a/jP%]]ÉU WVS} ]ET}J= axۖjPƃu1‰tzt81t-A81t(A81t#AtttuAAV)ӉЃtzt88t-@88t(@88t#@tttu@@)ЋVӉЃtzt88t-@88t(@88t#@tttu@@)ЋVӉЃtzt88t-@88t(@88t#@tttu@@)ЋVӉЃtzt88t-@88t(@88t#@tttu@@)ЍL;MU:FGF G EщЃtzt8(t-@8(t(@8(t#@tttu@@)ЋULOVӉЃtzt88t-@88t(@88t#@tttu@@)ЍLOVӉЃtzt88t-@88t(@88t#@tttu@@)ЍLOVӉЃtzt88t-@88t(@88t#@tttu@@)ЍLOPEPFPGP豿 FPGP螿FPGP莿 FPGP{1v"e[^_]ÐU= a{EPjq]ÐU WVS]} EX}NF= a#Sjƃu1‰tzt81t-A81t(A81t#AtttuAAV)ӉЃtzt88t-@88t(@88t#@tttu@@)ЋVӉЃtzt88t-@88t(@88t#@tttu@@)ЋVӉЃtzt88t-@88t(@88t#@tttu@@)ЋVӉЃtzt88t-@88t(@88t#@tttu@@)ЍL;MU:FGF G EщЃtzt8(t-@8(t(@8(t#@tttu@@)ЋULOVӉЃtzt88t-@88t(@88t#@tttu@@)ЍLOVӉЃtzt88t-@88t(@88t#@tttu@@)ЍLOVӉЃtzt88t-@88t(@88t#@tttu@@)ЍLOPEP FPGP FPGPFPGPڻ FPGPǻ1v"e[^_]ÐU= adS¡ a9|1;‹ a]U= a1]ÉU= aǀ]ÐU= aùǀ]ÐU= a1]ÉUS]= a; a|1  a[] U|WVSRDE= aH=H aa_HS1;s}GH8uaCt a EH aMЃ}@HS8MQPЋuE eS8PjP С a @ PEP? a@PhuV h4a a@ PЕ1҃M>t"vu2< t< uEBu<2uC8QjR ЍxE[^_]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vU WVS}u ]~Datz:th3!aEPhEtSWh_HvU:/hjjVH a8Pf u a EĊ8tBu1҉ЉËU:.uF9C>/:39{/z/CqEx/ukH axt0=# atURhD!ah!aj@h# ajo/FF/^}Uz/ /GvH aPxt"BPVWH aXv [Fv2K9v;/u=# atEPVh!ah!aj@h# a 1e[^_].U,WVSƃhjjWH a8PQd .ttt uCC)` a:` aSVWtzt80t-@80t(@80t#@tttu@@)9u 3"Du $af[^_]src/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/path.cc/.\.::ENAMETOOLONG::%s is a non-directoryvoid path_conv::check(const char *, unsigned int = PC_SYM_FOLLOW, const suffix_info * = 0)t&GetVolumeInformation(%s) = ERR, this->path(%s), set_has_acls(FALSE)GetVolumeInformation(%s) = OK, this->path(%s), set_has_acls(%d)SUNWNFS\\.\unc\.exe.bat.comvUWVSӉƅƅDžǀǀǀǀǀǀ ǀ ǁovS) Ovǁǁ -PRa\ 9 `uh)&ahhD&a1҉޸/Ĭ8uVutzt=ֿ|&a(\ވĬ8uVut ztֿ&auƅDžat{:uCtat/:u&t# uBfǁ \v&aǀ [vt ޿'at t ptttu@@*؋|\tBjh'aP4u'aeu\Dt  uqPuc؋Ċ8tAu1ɉȉZ;r=ڸ'aeu ڸ'ayeuڸ'aiet H[^_]\dev\consoleconinconout\dev\ttym\dev\tty%d\dev\ptym\\.\com%d\dev\pipe\dev\piper\dev\pipew\dev\socket\dev\windows\dev\disk\dev\fd%d\dev\st%dnul\dev\zero\dev\%srandom\dev\mem\dev\clipboard\dev\dsp\\.\tape/dev/n\\.\physicaldriveU$3aWVS] uctKEj PSU9v:u-3aEctv.qC>at{:uC` aF43aCct/Ej PS脷U9v:u选e؉[^_]/dev/\dev\ttyttymptmxwindowsdspnullzerorandomurandomumemclipboardportcomttySpipepiperpipewtcpudpstreamsocketdgsocketULWVSƉ>/u84a?bu">\>4a!bD4afbt:Z a,?=@t&D4aatGj ^PS9v:uȋ| H4aat M4aat R4aat jZ4alat NZ2aPat 2`2a4at ^4aat c4a`t h4a`uo4a`t4w4aZ`t vy4a`tb}4ad`t F4aH`t4a_t@j ^PS9v:uȋ4aj_t@j ^PS譳9v:uȋm4av_u 4af_u4aV_t 84a<_u04a,_u 4a_u4a _t P^$jڍPSk4aG^tj ^PS99v:uȋ|[^_]ÐU WVSu]E} ‰t%  au16uw4a>uaPQW}vPQWke[^_]ÍENOENT = normalize_win32_path (%s)int normalize_win32_path(const char *, char *)\/&'ENAMETOOLONG = normalize_win32_path (%s)%s = normalize_win32_path (%s)U/whjjSH a8PM u  a}tJ{:uC>t1Ch:aP4t@h:aPt؉كtzt8!t+A8!t&A8!t!Attt uAA)كtzt80t-@80t(@80t#@tttu@@)D=v-=# atVh:ahd:aj@h# aN[u؃tzt8#t+C8#t&C8#t!Cttt uCC}\CatAtat3Bt,ae[^]ÉUWVS}E:E] tE;E;tE:EԀatE|aEEEĊ8tBu1҉ЉƅtlS$a?tP~U҉؃tzt8#t+C8#t&C8#t!Cttt uCCEUCv$aS?tPU҃We[^_]ÐUE@ǀ`@P]conv_to_win32_path (%s)int mount_info::conv_to_win32_path(const char *, char *, DWORD &, int &, unsigned int * = 0)vENAMETOOLONG = conv_to_win32_path (%s):\%s already win32t&normalize_win32_path failed, rc %dconv_to_posix_path failed, rc %dischrootpath failed%d = conv_to_win32_path (%s)src_path %s, dst %s, flags %pU<WV}SZ a@9Gs!W3GPW@Z a;BrߋE Ãtzt8#t+C8#t&C8#t!Cttt uCC+] ME}u UvM=# at E PhBahDBaj@h# a1 ~2=# atU RhBahDBaj@h# a[0}hBaM QuE >=# at E PhBahDBaj@h# a URM Qƃt=# aVhBajEPW UH axKM9?y:5jSQZ aPMƃt,=# atVh$CahDBaj@h# a H aPHt)BoQtH a@` a:` ah?PPd>Pt~Z ah?)>atb /t\uvuh?@(u5jURQWu l?U?1;_}cp?Ѝt ` a8` au$ PQP$uC;_|;_|VP+tjURQWvjEPRMCPVEP9z :/t(M>at y:uyt:tE\CREPZjURR M=# at(UPMQE PhvCahDBaj@h# a1[^_]\vUM UAB:y0u HafBEPBPAP]U WEVSh?}sVd>PW$yU ` a;Bt:>/^U BatBaty:uAtat/:u&PUREQP [IRMQE PI=# at!U RMQhKahDKaj@h# a1[^_]ÍvU WV}S1;w}W?M Ѝ\ ` a8` au"PQSt  F;w|1e[^_]ÉRegEnumKeyEx failed, error %d! void mount_info::read_mounts(reg_key &)nativeflagsvULWVSE P|wDžjWhPVs haSShPaV8v jhPaVujPWSZ aP 0t a8ujV$wvjRwjjjjPWPPU=t++=# atPhDPahdPaj@h# a[^_]mounts v2CygwinCygnus SolutionsSOFTWAREUWV}Su]h?WsVS FWVOjhQahQahQahRahhSr0SV`@u VOjSujWue[^_]UWVS}E]h?S`rWSRuƃ t Ej]Wh?PuPSpq E PhPaStƃtjS;uEEPhPaSsjSu EjPuj]hQahQahQahRah?hSp WS~tƃttjStEj]Wh?P6tPSp E PhPaSsƃtjSWtEjPIt @EPhPaSrE@Z a@jSt EjPt1D&a>3Fe[^_]U VESu Eu4j]hQah?SpVSis ƃjSsQ@]Z a@jhQahQahQahRah?hSto VSsjSNs u1vD&a_oEe[^]cygdrive prefix/cygdrivecygdrive flagsU,WV}Sd>]h?SohahVhcUaSq0j]hQahQahQahRahhSn hahVhcUaSPV`Z a]d>l?ȋ]tttu@@)ȉh?EjPo1e[^_]ÍvUWVSEtBtE@Z a@juhQahQahQahRah?RVjk hcUaV)oh}UaVoǃ EP4ujVoe؉[^_]binmodetextmodevUWVSu h?]SkhahVhcUaSmƃ0u1j h}UaSlYatxYaREP}j]hQahQahQahRahhSkj hahEPhcUaSmǃ u1j h}UaSolYatxYaREPa}ujSmEjPme؉[^_]ÍvU,WVSEM  a‹ ȍ4]؉tttu@@)؉ʋ]tttuBB))u+QEP|…uu Ѝe[^_]UWVSE]  aЍ4ЍMtttu@@) tttuBB))u(SVZ{…uu Ѝe[^_]U1҉S];S}1p??B;S|C  ahZajCPp?P.lhx[ajCP?Pl]]%s[%s], %s[%s], %pint mount_info::add_item(const char *, const char *, unsigned int, int)U<WVS} uF<4*a :Gta~:Ftat ~:yWtjSEWPjSWEPREQP[tV aCU;zuOJEPiRUQD PMQu1[^_]ÉU,WVSu Dž3)a ~:Ftat Xw#q‰ٸ!V qPBrpE PpPr pGEu p¡dada,pdadaBfBtpMGu,_pYaYa8B<B@3p¡xYa8|Ya<E@t hdaMthdao8PoE thdao8Poo8GG eG[^_]UERRP]%c:\%s%cU,WVSaDžvFzw #otVh gaSPtS un‰!ICVZ ad>Ph%gaP苖Z al?PPSvn>[^_]ÍvUMU |;Q| ?ЍD P]UWVSuE ]PSHoVV8o؋tttu@@e)؉Utttu@@) E[^_]%d = mount (%s, %s, %p)int mount(const char *, const char *, unsigned int)U WVSu} t1WE PZ aPdÃjWE PVZ aPJà =# atWE PVShiahDiajh# ae[^_]ÍvUEjPd]%d = cygwin_umount (%s, %d)int cygwin_umount(const char *, unsigned int)U WVS}u tVWZ aP=vjVWZ aP!Ã=# atVWShjahDjajh# ae[^_]ÍvUSkǀkE[]Urk‹PZ aP]U].lnksymlink (%s, %s)int symlink(const char *, const char *)!%s%s%d = symlink (%s, %s)UWV1SDžddEEEEEEƅDžDžDžDžDžƅƅcjU iP=X atEEuEU RS1khPkaSi jPEt  a}u‰ =# at'PVEPhUkahkajh# as U u avEƒtzt8"t+B8"t&B8"t!Bttt uBB+Uv a[d}u}t aG=X aJ/t\uu>at%~:uFv'%d = symlink.check_sysfile (%s, %s) (%p)vU,WEVSEj]EPj SUR9 u2=# athGrahdraj@h# a7M\U ޿ka EjURhMQEPE u3=# athrahdraj@h# a贽UvEPjMQMtKE‹Mtzt8"t+B8"t&B8"t!Bttt uBB)ʉUsEEj޿ra u UJ@NMPuE~&U#u}!t:u} t Mu}Zut U M=# at+UPMQEPEPhrahdrajh# a虼 UReȋE[^_]ÐU1҉,WV}SM.Gu O؉Ĭ8uVuE UU] G1Ċ8tCu1ۉ؉‰W }tTt2˃;t+vE"tG/v;uغPkaE!t G }[^E_]ÉUS]tX8tMxu8PC Pa{uhPkaC Ps`uC$`vaxvavavavavavaSu C몉8uC듍vPkaC TkaPClhPkaC P_COvC 1]]Í'GetFileAttributesA (%s) failedint symlink_info::check(char *, const suffix_info *, unsigned int)not a symlink %d = symlink.check (%s, %p) (%p)vU,WV1SuE]džPE PSE‰+U  8dž$wvdž EP> uD=# at EPhwah$waj@h# a>  d!  = atE PVU}tjhjh<\ ajhEPƒt tFP PVRPEP<ǃ u`}~fdž2P PVRPEPǃ t,XEPTu=vƆ1vdž=# athgwah$wajh# a÷1=# at#PVEPWhwah$wajh# a蒷eȉ[^_]ÉU\WV1SM \Ή؈Ĭ8uVuӅuCPQtEPVS\ t%Eǀ$= au1VS6][^_]-1 = readlink (%s, %p, %d)int readlink(const char *, char *, int)U,WVSu} ]} a[!h# a(蒬Ut0 a=# atSWVhzahzajh# a 뢉Uu a닍vEu arƒtzt8*t-B8*t(B8*t#B tttuBB)‰9|?˃tzt8#t+C8#t&C8#t!Cttt uCC)˃SQWF؍[^_]U WVSƉӊ FS:؉ڃtzt8"t+B8"t&B8"t!Bttt uBB)ڍB$>at` avȈB:;\tB\BSRZj/t\uuW>at:uCt?cwd.posix '%s' native '%s'vU,WVS=# at#EPh~ah~ajh# a vj1U 1҃Ћ]Ċ8tCu1ۉ؉J;Ur#>atvJ;Ur uUt7 a=# auVh2~ah~ajh# aR/uȈĬ8uVuuUvBЉӃtzt8#t+C8#t&C8#t!Cttt uCC)Ӄv-h$aR{[9u av>atC<:uCuC\C1S uu D&aXvEu2hBaEPUZu= auuVP jVH a8P=# at$SH a@8PWhD~ah~ajh# aְ[^_]ÍvU!(UjUuPE PV1 a]U1(Uj蟦UuPE PvV1 a]US]…t  aujE PSZ aP1]]US]…t  aujE PSZ aP1]]U14SU] j迥Eu!jSPZ aP…u a1]U;WVSM1ۉψĊ8tGu1…u>aty:t[^_]ÐU:WVS} t;Uȋ5Z aBGȉӈĊ8tCu1ۉ؉…uE1ɉ;H}91ۍv} t 9E}EA;H|ҋU}tzt80t-@80t(@80t#@tttu@@[+EDd^_]ÉUEjP]UEjP]UE UjPR1]ÉUE UjPR1]ÉUWVSUE} >atBz:u<BGBG/GuEroot: %s, posix: %s&'char * cwdstuff::get(char *, int = 1, int = 0, unsigned int = 260)(%s) = cwdstuff::get (%p, %d, %d, %d), errno %dU WV}Su }ut avEWu 1}u_C}t:H aXHt+C tH aP /tu=# at+PH a@Phyahaj@h# a虧 ډ؃tzt80t-@80t(@80t#@tttu@@);Er a1"uvuRډ؃tzt80t-@80t(@80t#@tttu@@)@PƃSV M>u KafG P芲=# at/PEPEPEPVVhahajh# a胦e[^_]Ðnot_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---t&'couldn't save current process handle %p, %Evoid pinfo_fixup_after_fork()Ut at P jjjht aH aPPPu,H aPhah0ahh# at a]cYg%8x %x**********************************************Program name: %s (%d)App version: %d.%d, api: %d.%dDLL version: %d.%d, api: %d.%dDLL build: %sOS version: Windows %sU0VS]ƃu =R at؉ÃE PڹZ aHZ apZ aHZ aj4h# a]jhaSIp ShZ aPj-=# ahajjh# a&Z aRPhajjh# a $ aP  aP aP aPhDajjh# aӢ f aPd aPj aPh aPhdajjh# a蝢 p aPhajjh# a~ hXS ahajjh# a` hajjh# aJe[^]pid %d, pgid %dvoid pinfo_init(char **, int)UUtE PRZ aHZjjZ a@Z a($Z aǀ,Z afǀ jj9=# at(Z a$RPhYahiaj@h# a]]Calling ExitProcess %dvoid _pinfo::exit(unsigned int, bool = 0)U\WVSƀ}uFH aP]S4<S8P;=# at WhAahdahh# a覠 Wcygpid.%x/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/pinfo.cc!it&execed process windows pid %d, cygwin pid %dvoid pinfo::init(int, long unsigned int = 0, void * = 0)&%P: *** retrieval of execed process info for pid %d failed due to recursion.vU<WVSƉZ a;8u9FF:V? a!v8@@DžWhaPkt }t U1ۉ^uP1jj7vRPjjhT\ ajt׾=؋u&t$aFjjjjP?F Pt @tsth]ahh$ao}F=# atSWhdahaj@h# a菝 9uShaVX'u't}jVV)t7H@Z aV -F[^_]ÐUS];t!CPCPB]]ÐU1ɉ$SEUj3EtE}t P) aE}t}t Pi]؉]Ðerror %p reading system process informationDWORD winpids::enumNT(bool)U,WVSE=x aumx ahL=t%Phdahahh# a蔛1`x ax aP aPv ajx aP aPjJu aEURDUMӉM=R atۋUB9ErAJ$PPUB@@PBPM AME@QjP} uP]MISxtP1M9s2ƍZN9u; Z at/V!v G;}rӋEM]EUt ‰UvEe[^_] Couldn't create process snapshot, %EDWORD winpids::enum9x(bool)vU\WVSDžjjZ aЉu#hahahh# a膙1}vDž(SPZ a3v։=R atދ]C9r;S$PPC@@PCPC M@QjW} uZ]ISxt`19s6ƍZN9u; Z at;V-v G;rЋMRQZ aЃS茷[^_]ÐUS]E fPC PCЉ‰S]]kernel32.dllCreateToolhelp32SnapshotProcess32FirstProcess32Next&Couldn't find toolhelp processes, %EDWORD winpids::enum_init(bool)UVSu=R auf1 ahڙa賷haScZ ahaSSZ ahaSCZ a=Z at =Z atuh$ahdahh# ax1*f1 ȗaF VE fPF PFЍe[^]ÐU WV}S1;_s.1vGPt;Z at P# C;_r׍e[^_]ÐUS]{t&SP CPE t S2]]ÍvU} u4}tZ aZ a"v=Z at=Z at hZ ay]ÐUhj]ÍvUhj]Ðnot_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist --- make_pipe/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/pipe.cc/dev/piper/dev/pipew%d = make_pipe ([%d, %d], %d, %p)int make_pipe(int *, unsigned int, int)U,YaWVS0\ a~8EUEUEet<\ aH aH]BPRE| E@PH aHPE} aYE PVEPEPu%da+Shaj URH aHP ǃShaj EPH aHP] W8ƃShEPPЋV8Sh@EPPЃ }tO@N@E1ۋUEB=# at-URE PUREPShĝahajh# aƑ0Ya6eȉ[^_]ÍvUl at=uPh@EP]US]U EPRSuH a@HH]ȉ] dupUkaS]>6H aHBPRPSùka6؋]]UE UPRH aHP]Ðnot_opennot openUMbLWVS1EEE)iUU)iEP=S auB%9S au5S aES a-S a3E1;U sM9~B;U rF S?ЉeЉeee}t }t}u^ a Et?PE@E@$EP2EP̰EvFSjEP SjUR  SjMQ SjEP E uU 9Uu=H aOHM؋a3E|E;X} GH<uE a3}ub<E FtM Ft؉уM Ft؉уM E܋E 9E-1}|EPURMQEPURټEЃ EM 9M ]3U4tfC v=H aOHMȹa2E|E;p} GH<uE a2}t fCiv}} fCXfCUtfCUtKUtKE̋M 9MEt?P%E@E@$EP0EPEEЍe[^_]ÐUS]M UEPRQSD]]ÐUUE PRbE]ÉUMU EPRQF]ÉUEPG]ÉUEPJ]ÉUUE PRH]ÉUUE PRH]ÉUUE PR2J]ÉUUE PRNJ]ÉUUE PRH]ÉUUE PRVG]ÉUUE PRH]ÉUUE PRVG]ÉUUE PRH]ÉUUE PRVG]ÉUUE PRH]ÉUUE PRVG]ÉUEPI]ÉUE PEPJ]ÉUEPvJ]ÉUEPJ]ÉUEPJ]ÉUEPfK]ÉUUE PR~K]ÉUEPK]ÉUUE PRL]ÉUEPL]ÉUUE PRfT]ÉUMU EPRQT]ÉUT]ÐUE PEPT]ÉUUE PRT]ÉUEP"V]ÉUEPrV]ÉUEPV]ÉUEP"W]ÉUMU EPRQvW]ÉUUE PRFU]ÉUEPX]ÉUUE PRFY]ÉUUE PRbW]ÉUUE PRvW]ÉUUE PRW]ÉUEPW]ÉUUE PRX]ÉUUE PRBX]ÉUUE PRX]ÉUUE PRX]ÉUEPJ]ÉUUE PRJ]ÉUEPK]ÉUEPrK]ÉUMU EPRQ6L]ÉUUE PRN]ÉUEPnP]ÉUEP:Q]ÉUUE PRP]ÉUUE PRP]ÉUeG]ÐUEPH]ÉUMU EPRQ>G]ÉUMU EPRQzH]ÉUEPV?]ÉUUE PRZ?]ÉUUE PRr?]ÉU?]ÐUMU EPRQ*W]ÉUEPW]ÉUEPW]ÉUEPW]ÉUEP"X]ÐNULL argumentregexp too bigout of spaceUWVS]u ha{ a a} a a ajW Wj t; a=~ ha v`P$ƃuha1SvF\ a a aj WjS tƒFPFQ^]FTFXSR8^`F`<uCFP<uFQEE1;Kʉȃtzt80t-@80t(@80t#@tttu@@)9|DMȉǃtzt8't+G8't&G8't!Gttt uGG)σSpÃSEFT~Xe[^_]too many ()unmatched ()junk on endUWVSEE }t= a ~hƮa2EB aEP ǃ1]Sƃu 1u% aSƃt׃VWV EuE U E  a<|t< t}t E1P^ SW t"vSV: Vƃu}t a a<)t:hҮa$ at%<)u hҮa vh߮ae[^_]UWVS1}j E aMEPÃu1VvUЃ u  ЉvSV  aފt <)t< t<|uu j 4 Ee[^_]*+ operand could be emptynested *?+U VESuP Ãu1 aB<v?t EvEu?t hab+t  v*uYEtSj  vSjjTPSI 0SS< j3PS^v+uwEtSj rjƃVS SjPjPV|0j PSe M?uHSjjPS<0j ƃVS# VSb aP aPB<v?uh+aM1؍e[^]invalid [] rangeunmatched []internal urp?+* follows nothingtrailing \vUWVSE a a|$aa\a\a\a\a\a\a\a\a\aa\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\aa\a\a\aaaaa\a\aa\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\aa\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\aaa\aa\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\aajjjUǀ { a8^ujt aj^ǃ a<]t<-uzc9-uWA aŠA<]tu j-HvBXqF99PC'9~ aP a at ]yj a8]th a@ aU uvEPj&Džu1YME Fh-abh:aV a a<t>hNa&j j vha 1  aj1aǃ a a a|$vaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaĹaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaP_vPWvt aHP a@<t  aC ay amjVU u e[^_]ÉU aU= at@P@ a a]ÐU aU= at  a a]ÉU$SEE]  a= au  a*vB a9v JI9wECC[]UVSEu = at-vÃS u)ڀ;u)ЈSCe[^]ÐUUt at:uE PBP]NULL parametercorrupted programUWVSu} tuhbav~\thqaVTtEVTCىEĊ8tAu1ɉȉÅFXPRSuątx= a~Qt WVnb~Pt@SVVu#CNPډȈĊ8tBu1҉ЉÅu!SVuCu1e[^_]U VS]u C(5 aډ0 a@ avIC]PIu1 a3C(e[^]memory corruptioncorrupted pointersvUWVS]Sǃ'n$havaa aa8alaaaaaXaXa4a|aaaaaaaaaaaaaaaaaaaaaaaaaaa a9 a a8 a>a u ;_; azC{_bt a>a]:_=O a8A@ av  aS8CЉӃtzt8#t+C8#t&C8#t!Cttt uCC)Ӄ~SQR a  a9ЈĊ8tCu1ۉ؉…2  a9tЈĊ8tCu1ۉ؉…QA  a.5 aXWo&0 a<45 aXW;@ aʀ?t {v5 aCP 5 aSÃ;tE?uWU;  aECPÃ9|bv}t  aU8uWuEKأ a9},&habha]1e[^_]internal foulupUWVS1U aJ<ty <t<<tPv؉ރtzt8&t+F8&t&F8&t!Fttt uFF)rvB:uhFC:t_FC;tXωЈĊ8tGu1…u8FC;t0ωЈĊ8tGu1…t1haM ae؉[^_]ÍvUM atAQu1v9tv)ȉ]U]ÐNULL parm to regsubdamaged regexp fed to regsubdamaged match stringU WVSE U}ttuhTaMy\t'hhajhaWƉ}&u1;v\u2afSV  PhjVhL u}ƅPSPjhaP(uWVSP tVE P 1[^_]User registry hive for %s already existsvoid load_registry_hive(void *)\NTUSER.DATLoading user registry hive for %s failed: %dvU\WVS}WS?VSj0􍅼PhjVSO0Phu:=# atVhXahaj@h# af 􋅼PqbvSWhtHhaS SVht$=# atPVhahaj@h# ae[^_]UE M@AA=?B~ BA]ÉUVS]u VSFPCPFeCFCFCFCF C F$C$F(C(F,C,F0C0F4C4F8C8F<C=# athah(aj@h# aQavPP8jjPNƃfh jSDžfDžfDž PPPWeu: aC=# a5hah(aj@h# aPvt uEKy]~[PPEP!1fxmUPWPI"PPDžtu 9PRֿtDžtu 9PR莿tDž` atu 9vPRFtDž 1aPjPƃt:DžPjPu Dž@uHVRhPÃ|,PBPVP[PM @t^E tWVPhPiÃ|,PBPVP[P G@9}};}jjhPÃ}~@1ߍv5ƒ8ҁ!‰% ‰5 OujjhP}jjhPz|VjjhP^Ã|8[DŽ+jjhP/@jhhP}jhhP|ijhhPƃ|HjhhPÃ|'E t [vDŽ* jjhPaÃ};]~]}t[PPEPEPjS =# atEPShah(ajh# aK؍[^_]U| WVSEShjP|E U1;Xv?H+$taaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaBaZ a f9*%1ۍ*Px-PPQ1mSPtStu 9vPRt!CPZ a PyuFV~ÃuG Z a"f9*t *P PtVU t tUt aRv}t, t aXm aY}t"PEP苋t&4vPEP~6Džpft  Љx~4Dž|f8  ‰~.Dž fDž  Љ~0Dž8fDž  ‰~}tvpPREPM=# atEPWh ahajh# a@Ft? t [vt;QEPjVEu:EPVPBZ~ EPVjjEPP 8 a=# atEPhahajh# aEX[^_]ÐUS]M UEjPRQS]]US]M UEjPRQS]]-1 = facl (%d)int facl(int, int, int, aclent_t *)-1 = facl (%d) (no name)facl (%d): calling acl (%s)vUaWVSH au{HE|;w} CH<uEa}t9=# atVh\ahajh# a.D a H a@HX,u6=# atVhahajh# aC aX?=# atSVhahajh# aC jEPEPE PS*e[^_]Uu NjhraPuCx:u wvP@>aRdvjhxaPx:u vP@>atHRk@:fD;ЈĊ8tAu1ɉȉ‰'vt j PPfD;t:8:tu3vjhaPu'x:uB a1jhaPux:uÀ P+=t R hajR4VܗÃt VWS؍[^_]Ðnot_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---S-1-%u-%luU,WEVS} 8tu1aUaG]1P迦@PhaSsSW0+UVFP车PhaSCSWl UP迦 9re[^_]ÐU WVSuM ]}w tv 17vVPIE aPRC19sDA9re[^_]-U<WVS1] DžtjhaStE1S1P4uj jRj jRwF1GwPhaRcƒuSVPEP[^_]ÍvUVE tpt,1҈Ĭ8uVu1ҸatBPEPu]ÉU1҉E t @t¸atЃPEP]/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/sec_helper.ccIsValidSid failed with %EUlWUVSu axP; u0Ha)ha@{v= aEԿEЃ} 1DESPst-UUЅtu 9PRBuFVÃu| }E{f} u}tt1BESPCt-UUЅtu 9PR躡uFVeÃu|}t EUPˢUHPP蓢t }UPPPPVPjuHaW~tt6[V|Q}t EuJRdt-X'}t Uu VOtXuK2؉؍[^_]ÐU0VSu EPXƒt vH a@ PtB Z a"P]Sje19}f9utىB9}f94Que9[^]name : %st&'BOOL lookup_name(const char *, const char *, void *)\LookupAccountName(%s) %Esid : [%d]U|WEVSEЃ=# at)EuaPhahaj@h# a/ }u 1vH a x URha@PSPPWDžPVDž(REPSjt'1ɍBv tu} aE 8tcWDžRVDž(PEPSU R覠t'1ɍBv tu } E 8WDžRVDž(PEPURE P*t'1ɍBv tuuqURhaVS`PPWDžPVDž(REPSE P荟WDžRVDž(PEPURjLt'1ɍBv tuukEPhaVSPAP8WDžRVDž(PEPSj豞u>=# at URhahaj@h# a+ HaD61o=# atBEЃP  HPEPМPh8ahaj@h# al+ }tPEPEP$x[^_] &Privilege %s couldn't be assignedint set_process_privilege(const char *, int = 1) %d = set_process_privilege (%s, %d)ULWEVSEu] Pj(H aP轞u `EPVjmu fEEUԉEUt EEEPEPjEPjEP蹘u q>vtDcJ=u8=# atVhhahaj@h# a) yHa }E܅t PH =# atSVWhahajh# aN)e[^_]S-1-1-0S-1-2-0S-1-3-0S-1-5-1S-1-5-2S-1-5-3S-1-5-4S-1-5-6S-1-5-11S-1-5-18S-1-5-32-544vU} }hVah` aqh^ah a\hfah aGhnah ! a2hvah`! ah~ah! ahah! ahah " ahah`" ahah" ahah" a]ÍvUhj]Ðnot_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---set_impersonation_token (%d)&'void cygwin_set_impersonation_token(void *)US]=# atSh ah aj@h# aW&H a9X$t X$@(]]pw_gecos = %x (%s)void extract_nt_dom_user(const passwd *, char *, char *)U-UWVS} aU ވPS=# at!GPPh\ ah aj@h# a}% Gtah aPUÃtJ;_t{,u?ƅhCPV,ȉĊ8tBu1҉ЉÅt\ȈĊ8tBu1҉ЉÅt"VCE P%SUR aU VEP[^_]LogonUserA (%s, %s, %s, ...)void * cygwin_logon_user(const passwd *, const char *)'/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/security.cc%d = logon_user(%s,...)U<WVS}=R at aXvu avVSW=# at"E PSVh ah( aj@h# aN# PjjE P1tPV轕tjjPFuh a~q4=# at#PPh ah( aj@h# a"[^_]ÐUSU щЃtzt8(t-@8(t(@8(t#@tttu@@])ЉSf@fC[]ÍvUVS]ډ؃tzt80t-@80t(@80t#@tttu@@u M)f@qfAPSV跲e[^]ÉUVS]ډ؃tzt80t-@80t(@80t#@tttu@@u )؋MqffAPSVSe[^]ÉUVSU EHu9}ÃBSPVf^e[^]ÍvU1DW}EEPhEPjєtP蜔¡ aE܋}]ÐUS]t P]]\\U\WVS}PjW胔ƃuEhPSPPjW>ƃ$tV¡ a1hPWP芓jWjPPjPjej蝮ƃu@t7h@PS}tOhWEP8hRSe}thPURDu􋅼P蒭 aU faBSR[^_]ÉUUE jPR@]U$S1ۉ‰UtE PEPRÃEP؋]؉]%d = NetUserGetGroups ()BOOL get_user_groups(WCHAR *, cygsidlist &, char *)LookupAccountName(%s): %lu \UWVSuEhPSPPjPjSVʬÃt==# atShah(aj@h# a a1;lhdDžDžDžhPPlRhQPdRPQj|u2=# at)@=PPh\ah(aj@h# a 1ɍBv tu&hxaRQPI|ttt uBB+)PPxtttu@@P lDžDžQhPRdQPPj/u2=# at);PRh\ah(aj@h# aA 1ɍBv tuC`E tCk,Peǃ؃tJ ,sDžpE p;}ewDž\M \APu3PVj(蒉p,\,,pE ;|M At PiU E xk,tQƒuCRPj(`;􋅔P;8[^_]ÐU,WEVSMEU jPEPjEPjRQAt 1EE;EUEPUPpt uEFTu1F}uHUE;}>1ۋUEPUBP'tE,G}uE;8|ĉu}u ;unEP:Ee[^_]%d = NetLocalGroupEnum ()BOOL get_user_local_groups(WCHAR *, const char *, cygsidlist &, cygsid &)UWVSjPPjPjEP虦Ãt4=# atShahaj@h# a a1vDž;|MQEPPMQBx+MԃMЍDžDžDžhPS/Q|PWVEPSj踉u9DžDžRQWVEPSE P1ɍBv tuhxaWS˼P芻ڋttt uBB)ڸ)PP؋tttu@@P  DžDžPRWVEPSj苈u,=# at#O6PSh\ahaj@h# a 1ɍBv tu@xMUЉCk,P_ǃ؃tJ ,sDžE;}ewDžtMtAPsu3PVj(,t,,E;|MAt PcUExk,QƒuCRPj(wx;􋅤P蕢X[^_]ÍvU WVSu} u Ev=1;s4F؅tu 9PRuC;r1e[^_]ÉU,WVS}Džu" atu 9vPR膃t;h" aƒu FRPj(WhE PSPjSEPt 1vWkƒu FRPj(P- t>P <v*HPP҃ƒ@dDžPɠ[^_]LookupAccountSid () %E&BOOL get_group_sidlist(const char *, cygsidlist &, cygsid &, cygsid &, _TOKEN_GROUPS *, _LARGE_INTEGER, int &)S-1-5-5-%u-%uvUWVSEU HLU$T} XPMQVK\PXPPTPSUPj6u;=# athJahhaj@h# ah arz1)vCk,P{[DڃtvH,sDDž@@;}lDDžDGPu v3PVj(n@,,,@;|Gt Pj_Dk,Oh` aƒuCRPj(~M" atu 9 PR3Ck,P6Z<ڃtH,s<Dž88;}l<Dž<GPu v3PVj(*~8,,,8;|Gt P&^Xk,Oh! aUƒuCRPj(wh! aEPCk,PS ڃtvH,s Dž;}l Dž GP薼u v3PVj(w,,,;|Gt PW k,Oh! a%ƒuCRPj(vh " aEPSCk,PQڃtvH,sDž;}lDžGPfu v3PVj(u,,,;|Gt PUk,Oh " aƒuCRPj(ouCk,PPڃtvH,sDž;}lDžGPRu v3PVj(t,,,;|Gt PTk,Oh`" aƒ(+vCk,POڃtvH,sDž;}lDžGPNu v3PVj(s,,,;|Gt PSk,Oh aݸƒuCRPj(WsCk,PNڃtvH,sDž;}lDžGP:u v3PVj(r,,,;|Gt PRk,Oh! aɷƒuCRPj(CrCk,PMڃtvH,sDž;}lDžGP&u v3PVj(q,,,;|Gt PQk,Oh`" a赶ƒuCRPj(/qHu L[HPLRhaS`SQ{Ck,PGLڃtvH,sDž;}lDžGP辵u v3PVj(:p,,,;|Gt P6Pk,OPKƒu CRPj(oIU$ E8uPURQPRWQB]EPWURQ=19}TDžEGtu 9RPp,F9|Ck,PhJڃt H,sDž;}lDžGPu v3PVj(^n,,,;|Gt PZNk,OEPrƒu CRPj(mh[^_]SeTcbPrivilegeSeAssignPrimaryTokenPrivilegeSeCreateTokenPrivilegeSeChangeNotifyPrivilegeSeSecurityPrivilegeSeBackupPrivilegeSeRestorePrivilegeSeSystemtimePrivilegeSeShutdownPrivilegeSeRemoteShutdownPrivilegeSeTakeOwnershipPrivilegeSeDebugPrivilegeSeSystemEnvironmentPrivilegeSeSystemProfilePrivilegeSeProfileSingleProcessPrivilegeSeIncreaseBasePriorityPrivilegeSeLoadDriverPrivilegeSeCreatePagefilePrivilegeSeIncreaseQuotaPrivilegemalloc (system_privs) failed.struct _TOKEN_PRIVILEGES * get_system_priv_list(cygsidlist &)UWVSh2]Ãu%=# ath4ah4aj@h# a21T1}W aPj=ot$ E IUTDS @Fv؍e[^_]realloc (privs) failed.&struct _TOKEN_PRIVILEGES * get_priv_list(void *, cygsid &, cygsidlist &)vULWVSM Dž" atu 9PR>kt]SLDžE;)DžvuPPM P]S"PPUBPMQ nDž;~hDPS;PSjUm 1ۃt<9s0ȃǹ Ct9r1t3DvPPZuVtRvZPm =# ath5ah5aj@h# aR1v0 vTDڋ @;Pl ,U; [^_]ÐU WVS}8jjpEPjuh ag1;7}f1ۉ؋" aGtu 9RPdht)" aPhjEPfu;h ao]v,F;7|E PhjEPhfu h au." aPhjEPBft vh a{9a1e[^_]Cygwin.1OpenProcessToken(my_token): %E void * create_token(cygsid &, cygsid &)GetTokenInformation(my_token, TokenStatistics): %E GetTokenInformation(my_token, TokenGroups): %E malloc (my_grps) failed.Loading NtCreateToken failed.%d = create_token ()t&U1,;a|WVSDžDžDžDžDž Dž󫍅Dž(;aDžDž DžDžDžDž9a9aDžDžDžjh 3aPSPUCPjPiu(=# ah:ah(:aj@h# aM" atu 9 PRzduaSj8Pj Pe u'=# at6hh:ah(:aj@h# avSjjjPve u3fzt)=# ah:ah(:aj@h# aPmTu(=# ah:ah(:aj@h# aeevSPPjPd u>=# ath:ah(:aj@h# a􋕘RSDžPRPRM QEPSV M 1ɉ %?;$9s?11vDD|9u|,A; r̓PURP)L$0|$u 󥍵 4$8@􍅠PPPPPSRPPjPhP tP轠ƒ  a>vu1h aZ=# ath:ah(:aj@h# a,PjjPhP`uh aiZ|Qh 3aDt P= t􋅜PQt􋕘RsQ􋍔Q=# at#􋅨Ph;ah(:aj@h# aE t Pu?x[^_]CygwinLsaRegisterLogonProcess: %dvoid * subauth(passwd *)Couldn't load Secur32.dllMICROSOFT_AUTHENTICATION_PACKAGE_V1_0LsaLookupAuthenticationPackage: %d12345678LsaLogonUser: %dvU WVSDžDDž@ DžH$ jh2aZ} 28h~AaVj>4P0PV諽Ã$tB=# atShAahAaj@h# ao S#bƒ  au.=# ahhAahAaj@h# a#JvhAaV^,PV0PӼÃt=# aSh(Ba|vEh~Aa}PPW`_9a9aDžDžVSEP DžSPPuVPP^ E܃h aPPCKBaOBah aEPP E߃h aPP4 a(PpP$PPPPPjh@S,PjW0P.ÃtI=# atShTBahAaj@h# aB S_¡ a0P艺 KP襺 Pj@jPh$P[uvh aMUPh2a1$t P*  [^_]file = %sLONG read_sd(const char *, _SECURITY_DESCRIPTOR *, DWORD *)file = %s: len=%dU,WVS}}u ay=# atWhFah(Faj@h# a Dž= atzt80t-@80t(@80t#@tttu@@)=wEtzt8&t+F8&t&F8&t!Fttt uFF)hSVVSWڃPMPE PjR+Z uh aISI=# at!PWhdFah(Faj@h# aU;w  M1[^_] U=# at EPhIahJajh# aI DžPVURÃ)=# athDJahJaj@h# avSPVVu"=# athOJahJaj@h# aSPVWVu"=# athmJahJaj@h# aySPPVUu9(h aN=# athJahJaj@h# a/PSjjSƃPSØjjS߱ƒ}tMf1}tMf} u(=# avPPEPhJaLVS4t u8U  =# a QRPMQhJaDž1DžfxxvPWPT@@0t tPPatTtJRP|St9@tK@t @  @RPSt@t t Fu @t t >| @  t @u H` atu 9vPRfR@t u$u ȉ@tu>| Љ@ tNu @uƒ@ ʉ@@uM %=@u FuG@9E M  !‰=# at)PQREPhJahJajh# a11[^_].UNIXATTRU WVS]u}}t8= at/WVSE P_t%=uftftfu1EjShvPaE P{%=u  aX1e[^_]vUWVS]Eu}VPjSNuh aI1tVPuPEPSty=# atIPO HPPNPShBRahhRaj@h# an jR0"Smƃt:VP薩uEPURP豭u(=# athRahhRaj@h# apjSNuh av=< au% |<v< a < a=< a~phhPRpjPR!Suh auvt*jPpPRuh a@pjh RMuh a& 4t@uDž<DžDžt Dž} @t %u@Dž  t Dž t t u @Džt Džt t u@RPNt'  !! DžӁg#w@t Dž<t<PVPRjDžPRVPPRBP>Ct8RVPSP@RPVP RP@RPV` aPRPRDž4Dž08S4PEPIu"=# athOJahhRaj@h# a0SPUR$Iu"=# athmJahhRaj@h# aFS,P(PEPH(,1fywv$PSQHC$@PR蟋4t@tRPGt@tRPG0t@tRPhGt@tRP?G` a@tu 9vPR GuR$BPR:uPjRlE $@<,CP9<fB=# at#tv_sec %d, to->tv_usec %d, ms %dto NULL, ms %xsel.always_ready %dsignal receivedUWEVS}DžPDžTDžXDž\Dž`DždDžhDžlDžpDžtDžxDž|EEEEEEjdjPa]s?`SjPaHBSjPaD$SjP~aÃ=S auD9S au7S aDžLS a-S at2MbЋw)Ѝщ)э ى@ vDž@@ut Dž@t!=# atv@PGPPhH`a=# atU@Rhm`ah_ahh# a =# at&PPh|`ah_ahh# a] }d a@u4=# ath`ah_ahh# ajt)LtQP~L@L@$LPhpLPNDžLj4RX1u{?SjP^<SjP]8SjP]ǃP@@PW8Rh-kahHjahh# ar=# athTkahHjahh# aM1[^_]me %p, testing fd %d (%s)int set_bits(select_record *, _types_fd_set *, _types_fd_set *, _types_fd_set *)ready %dU WVS1]} =# at*C@,PPShZoahoahh# as { t{tѾ {$t{tFM {tFM =# atVhoahoahh# ae[^_]ÍvU]US]M UEPRQS]]ÐU]U1]already readyint peek_pipe(select_record *, int)readahead%s, PeekNamedPipe failed, %E%s, n %d%s, ready for read%s, saw EOFsaw eof on '%s'U,WVSEEEpF8hRlЋEH_a=H aEWHUdE|U;Z} GH<uEQ_ad}t!E@  a Uz uz(zExt'=# ateh qah(qahh# aJvF8jRЃ~c‰tu~htSE@E} u6F9F s.=# athLqah(qahh# a\UB뷁 tREjPjjjEPu3=# at#F,PhVqah(qahh# a EE}W=# at$PF,Phsqah(qahh# a½ Uz(tBEEx t @E}~BUz t9=# at#F,Ph|qah(qahh# a] E@E}UBH8PЃt=# at#F,Phqah(qahh# a Ex(t@EUz t BE=# at F,Phqah(qahh# a蟼1}u Uzte[^_]ÍvUS]jS{u1EPEPE PS]]ÍvULWMVSE MEE]EEEEEEEEEEEEEQ8SQЃf} |M5H aH_a`^H1U ;S} FH<uQ_a`u4d a t!EPURFu }yeE[^_]stoppingDWORD thread_pipe(void *)stopping from outer loopU WV1Su^Ov{,wauCjSt~t&=# at_hvahvahh# axD[overlapped_armed %dt&int peek_serial(select_record *, int)ClearCommErrorWaitCommEventgot somethinginterruptWaitForMultipleObjectsoperation abortederror %EvU\WVSEpF9F KFH@=# at Phkahahh# a4 UBH8hPlЋ8H aH_aEċUHEȋPE|E;X} UċBH<uEQ_aO}tE@  a EUz tzuEx$t5xt/=# ath qahahh# aEEjW~HF\P]EPSWu=# ahae}FLPSWtE@?=t=# a7ha FHF\UЉEСd aBj jRjtor=EPEPW+u=# aha}tUBj  IjW=# athمahahh# aĨjOEFjW7vjW=# at%hahaj@h# ao Ewv=u(=# athahahh# a21BiaE@ =# ath ahahh# ae[^_]DWORD thread_serial(void *)exitingU WV1Su^#v{,aujSt[ =# ath2ahahh# a肕v~(t>  =# athDahahh# a>vv<jjj臗ƃ0u;Wa#=# ahkahahh# aڔEjEP0jh0PۖEjjVG& fǃ0h 0jV0P覓}=# aFha]vEPV0PĔ}=# aha+j0PWt0=# ahahahh# aړ=# at&0Phahahh# a褓 S0DC 0 U ZtE$0=# at"Phahahh# a= h˚a1ɸa*UBz%'Wa!0PFe[^_]si %p si->thread %pvoid socket_cleanup(select_record *, select_stuff *)connection to si->exitsock %psocket_cleanupconnect failedreturningUWVSE pt=# at)1tPVhahahh# a 2>)=# at&0Phahahh# a趑 ]jjj EfEjShhW譓jShh0P蔓0jPWʐ}4@;a=# athJahahh# ajW\W[Vj0P30P,PPE @tV@ =# athYahahh# a藐e[^_]ÐUE uyj@Q@@@ @@@@@ @$@(@<@,ܚa@0a@4pa@8da@ ]ÍvUE uyj@@@@ @@@@@ @$@(@<@,ܚa@0a@4pa@8da@$]ÍvUE uyj@)@@@ @@@@@ @$@(@<@,ܚa@0a@4pa@8da@(]window %d(%p) ready int peek_windows(select_record *, int)window %d(%p) not readyUu\u1jWaSjj>u0SEPjjhH\ ajtuhaEPjjjjPMÃu0jjjjjP/ÃuPWhȪa豔=# atPEPSWhahHaj@h# a e[^_]%P: *** Shared region version mismatch. Version %x != %x. Are you using multiple versions of cygwin1.dll? Run 'cygcheck -r -s -v' to find out.heap_chunk_in_mbvU VuSt+d af a 9RQha虓 RP]ҙF Pj jhS?hhaS F FjhaSRd af a ЉjSe[^]sharedunknownopening mount table for '%s' at %pvoid memory_init()mount table version %x at %pinitializing mount tableU,WVSH at @0 Džh hPhaZ aP?ʻDžPSLuaajhd@hH aSUZ a=# ats5# aZ a21VH a@ Ph(ahKaj@h# a =# at&Z aPPh^ahKaj@h# a =H auiSH a PrH aB0Z a8u6=# ath{ahKaj@h# a{Z aP辑[^_]ÐUH a@0t PŠ H at P谠]UE]@UZ a]U=\ au,jh\ ajjjh\ a[\ a\ a\ a]InitializeAcl %E&struct _SECURITY_ATTRIBUTES * sec_user(void *, void * = 0, int = 1)AddAccessAllowedAce(%s) %EAddAccessAllowedAce(admin) %EvAddAccessAllowedAce(system) %EAddAccessAllowedAce(creator_owner) %EAddAccessAllowedAce(sid2) %EInitializeSecurityDescriptor %ESetSecurityDescriptorDacl %EvULWVS}u0\ a}<\ aEUԃ UЉE̋}H a B uEPBPۀPOu룍MԃMPPj(EPIEȃ " aP8ƃ" aP(à aP‹MȍD1(؍} tE P\ jSWu"=# athаahaj@h# aW~EPhjWu+=# at"Ph,ahaj@h# a~ " aPhjWiu"=# athGahaj@h# a}" aPhjW0u"=# athhahaj@h# a} aPhjWu"=# athahaj@h# al}} t7U RhjWu"=# athahaj@h# a/}jMQFu"=# athahaj@h# a|jWjEPgu=# athahaj@h# a|U EM̉BEJe[^_] UUE jPR]U1M} ~(#uy!t:uy t Mu yZu]ÉU=L auB% aL% a% a% a% a% aF% a % aL a]ÉUWV}% aL1t ^_]\vUWVS1}DžLDžHDž@DžDjLPh`ajjhpa LH PhaRЃdhSjEPjj?HjSPBЃ'DjPjLSUR袚 uEE DLuy􍅐PucLhWPBЃ|tzt8&t+F8&t&F8&t!Fttt uFF)U:\uz\t7UP@~*UPZEx:u 1;ShܝƃU:\u|3\t afFEPPLjSPBHЃ|~LP jPhWRA Ѓ |Wtzt8"t+B8"t&B8"t!Bttt uBB)@t9E.vUPu#DPPZtU HtR@Ѓ LtR@Ѓ EP(@[^_]ÐSIG_ERR = signal (%d, %p)void (* signal(int, void (*)(int)))(int)%p = signal (%d, %p)U WVS}w tu= a=# atE PWh0ahPajh# awZ aƋt ?C8?эt @8 U Z at @8 @w} v # a } w # a=# atE PWShyahPajh# av؍e[^_]sleep (%d)t&unsigned int sleep(unsigned int)%d = sleep (%d)vUVSu@Ã=# atVhahкajh# a_v id a<=u1¹Mb)ډ)Ӄ=# atVShahкajh# ave[^]usleep (%d)t&unsigned int usleep(unsigned int)0 = usleep (%d)US]=# atShahajh# au Mbd a ;=# atShһahajh# aEu]1]ÐSIG_ERR = sigprocmask signal %d out of rangeint sigprocmask(int, const sigset_t *, sigset_t *)UVSM] uv6 a=# aQhpahajh# altqtZ aLtB<t^Z aLtB<t tvt  ! a RG"1e[^]%d = sig_send, %E int kill_worker(int, int)%d = kill_worker (%d, %d)U1ɉWEV1Su jUEu. aE}t}t P_ǀtޅuEu utmEfj!ǃ t.=# atЃWhahϽahh# ar 뮍vtEfjd! =# at"VEPWhahϽajh# a}r E}t}t Pze[^_]ÉUEPZ aP>]kill (%d, %d)int _kill(int, int)signal %d out of rangeUVSu] =# atSVhbahpajh# aq v6 a=# atShahpajh# aq;Z a@ tt tu1ۅSV SVe[^]pid %d, signal %dint kill_pgrp(int, int)killing pid %d, pgrp %d, p->ctty %d, myself->ctty %d%d = kill (%d, %d)Uppid_handleBOOL my_parent_is_alive()parent dead.parent still aliveWFSO for myself->ppid_handle(%p) failed, error %dUVSZ axu)=# athahaj@h# aBg1v1Z a1ҋ@,Át?w ttW=# ahahaj@h# afmv=# athahaj@h# afDCut*1PZ a@Phahahh# a~f F>e[^]ÍvUUt\ atu\ at;Z au3\ at"+\ aP覅\ a1RuAAu]vU‰$1SEjtE%ÍE}t}t P؋]؉]ÉU1҅t @Љ]U1҉VSu] a9}ù^ a90t B9|1ҡ] a9}ùa a90u  v B9|1[^]args: %x, %dint proc_subproc(long unsigned int, long unsigned int)'couldn't get proc lock. Something is wrong.Couldn't duplicate child handle for pid %d, %ECouldn't duplicate my handle<%p> for pid %d, %Eadded pid %d to wait list, slot %d, winpid %p, handle %p&pid %d[%d], reparented old hProcess %p, new %ppid %d[%d] terminated, handle %p, nchildren %d, nzombies %dt&removing [%d], pid %d, handle %p, nchildren %dwval->pid %d, wval->options %dclear waiting threadslooking for processes to reapreleased waiting threadonly found non-terminated childrenwaiting thread found no childrencouldn't wake up wait event %p, %Efinished processing terminated/stopped childfinished clearingreturning %dUWVS]Eu =# at!VShjahahh# a?a VS)uhahahh# aaw t vB] a=~ Et[^ aFDFDF@\ ajjjNA PH aRAPRtu%FPhahahh# aO` jjjVBPBPH aPP(u-FPH aPhPahahh# a_ Z aVBZ aV f Z aV"f"Z aV$$Z aV((Z aV,,NZ aQ@% ‰Q=# at0VBPBP] aPPhahahh# a2_ ] a\ aPπ vv\ a<^ aA9tZ=# at"PRVPhahahh# a^ \ aP;~^ a @\ aEG=# at0] aP] aPRVPhahahh# ab^0] a^ a@;a aT;TT;T] aa a@=# at4] aP\ aP^ aPVhPahahh# a] ] a] a9\ a\ aR;TT;DD;PF ~P .F=# at&FPPhahahh# aL] FF ujjjh<\ a FF F P~] a 5] a^E=t=# at,ha=# athahahh# a\u] a{SWƃ ~=# aha*}u>C@4t2}.=# ahahahh# aP\=# athPahahh# a\Cx }t C@t C@4t C@ W} u Whahahh# a[ C@CCt Ã{}u=# at6ha] a=# athahahh# aT[] aPg=# at EPhahahh# a[e؋E[^_]nchildren %d, nzombies %dvoid proc_terminate()WFSO(hwait_subproc) timed outWFSO(hwait_subproc), rc %d, %E%d(%d) hProcess cleared already?%d(%d) closed child handleleavingU WVS=# at+] aP] aPhahahh# a Z =\ ax\ a\ aP{\ a NtE=uhahahh# aY Phahahh# aY \ a\ a1Px] ah@djj;5] a}Pa aa a@tPx @ Px@ WF ;5] a|1;5] a^ a^ aBu7=# aBPPhahahh# aX ]Px =# at(PRPh1ahahh# abX @Z a9$uJ WFL ;5] aF] a] a] a=# athLahahh# aWe[^_]UjEXZ aP"x]&%E releasing sigcatch_nosync(%p)int sig_dispatch_pending(int = 0)UVS]=\ au15] au\ at%\ aPyv\ a uZ afjMjj\ aP2{u4=\ at+=|\ at"\ aPhah0ahh# a{Ve[^]sigcannot create wait_sig thread, %Evoid sigproc_init()%P: *** terminatingUjh] a'a]sync_proc_subproc'process/signal handling enabled(%x)USjjjh<\ ax\ ajjjh<\ atxd ah*a11Ҹai\ a u)h0ahRahh# aXUhfad=,# au,# ah|ah] ahajS_(i a] a(i ajj\ aPb=# athahahh# a!>|\ aPjEPjg`ǁu =|\ at2؉s=|\ athTahahh# a==# athahahh# a=e1[^_]startingDWORD wait_subproc(void *)v'wait failed. nchildren %d, wait %d, %Enchildren %d, event[%d] %p, %Enchildren %d, event[%d] %p, pchildren[%d] %p, events[0] %p, %Epid %d, dwProcessId %u, hProcess %p, progname '%s'U WVS=# athah ahh# ai<1vCujj fx\ aP1ۡ] aPh0ah ahh# a< ;] ao ^ a1\ a1=u\ aPj] aPhpaP\ aPPCP\ aPS] aPhah ahh# a;0BPBPBPPhah ahh# a\; C;] aJ1ۃrs>sma a^ at-d a9t${t{t Sxa au݅t-a a^ at {t{tSDۍve[^]ÍvUS]] atYh@DCt ^ a:=] at/^ aPE PShahahh# a71]]ÍvUhj]ÍvUhj]Ð0123456789ABCDEFU,WVS1]UE}t} - ~~+CUOUM1u 0aD.Fȅu}9~vECO9~UNC[^_]Win32 error cygwin program(null)U,WVSu}@vU Dž<%t E vBƅ Dž1ۉE B<%u%E <+uDžU E @E AJ$aa@aaaaaaaaaaa@a@a@a@a@a@a@a@a@a@a@aa@a@a@a@a@a@a@a@a@a@aa@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@aaLa@a@a@a@a@a@a@axa@a@a@aa@a@aa@ala@a@aau ƅ0\PWB߃^f0FxFPSRaaBFBFB F PSTPjF j P^PSGPPj =PSGPjj "v0FxFPSGPjjVƃ hSjTڅu?a8E j PE PE E at ~:jS~{P tP18=# atPShah0aj@h# a. Pxj;QSt\.u tN\V@P=# atShah0aj@h# a8. WSu88c}t Džj9$=# atVWhah0aj@h# a-} t$uЈĊ8tGu1‹M [^_]vUH aERH tA@t <} tA8xR|A8hRlЋ]ÉU WVSuM tzt8#t+C8#t&C8#t!Cttt uCCȉʃtzt8"t+B8"t&B8"t!Bttt uBB)))Ӄ~ ~:t151|+3dttDdwProcessId %dold hProcess %p, hProcess %pULoWVS=S auCvF9S au6S aES a-S aÃPa諈1;4}0 C;4|鋅0 Xt Ps> hZ@tb h@Ã;= ;uƅ(ƅ"ƅ!ƅ jPh PSB> S=1ۃPa躇;4}0 C;4|鋅0 Xt P= hj@tr h@*Ã;M ;uS+= Mu !Z=# at#Rhahpaj@h# ae #u !!t,DžaDž0"0haPDžIvu:< t< u0ha^SYÃt < t< tNFt< t< u4uE ‹0Dž4tjQW3PajBjRW 8E@tL 4890 ‹0C89|܉] 1;8 ;4|0 ‹0t 04tzt8#t+C8#t&C8#t!Cttt uCC)t/haVuSVS_4jh3aS_v)PVRshaWEƃ ujhaQF8VWP/>t<"uVWR|7whaVDǃc>tWtzt80t-@80t(@80t#@tttu@@)PVQjh3aPyjh5aR^;8vtDjh2aP84hP0hP jMQthƒhPhP‹]hPt alhp;t;u}u-jjjhPH aRZ aPR8u h@Dž Dž$Dž(Dž,DžtDžxDžjjjj jjDžpDH aP;}t lu}tH aHx ~E@t DžjEPBzH a`G ad}uz(t B$tEDžu =# at1PQPhahpajh# a }ƒhpfH aTRQjPRj= at jjPT\ aP= at jjPT\ aPPQ7ƃ40Pj,0PjUR袇 u&Dž0hahpahh# a= at(0tjP PH DžT\ aH ax(t x$t蔋0P DžhfT 4PWQZVhSjPb5P4 PWRVh VjQhaS͹ VSxpPRjQPjRRPQEP褃ƃ}t%}tH ax(t@$t P tRuPa}=# ath ahpajh# avtQP3 1;4}v0>C;4|鋅0*Xt P 3 h@th@Ã;;uH aHz ~+(PRuX}u($P4 }uZ a(=R atډ=# at7PE PtRh* ahpajh# a }u;R0Z aP豸# a L# aZ a9$uƂ00jr4 a =# athP ahpajh# a08t4t Pt1;4}02C;4|鋅0Xt P0 h@th@Ã;;uw@40(B4 BDž8Sjs$P2 8t4t Ss$P10 =# at&(Pht ahpahh# a~ }tH aM;H$t Q/ @d aDH048Dž1jjSVe2t|rv=# ath ahpahh# aP PQ3u Dž av=# ath ahpahh# afd aP11 }Z axt跧)Z a1ۋBPPVh ahpahh# a 1҃0P0Ph ahpahh# a 1҃4YP4Ph ahpahh# a 1҃8%P8Ph ahpahh# aL  a fj8;4}0C;4|鋅0Xt Pw- htb@tjh@t&Ã;tM;uh@7h@P-hEt?P.E@E@$EPEP.EGcR, =# at&Ph ahpahh# a }&Z axp=# at Vh ahpahh# a jjjZ aPV PH aPu,Ã=# at*Z a@PWSh0 ahpahh# aD twVhp ahpahh# a Z a @P;,Ph ahpahh# a Z a @PWh ahpahh# a }M$%al&a@&al&a &al&a`&a P+1Z afjQjjPPvDž 1;4}0C;4|鋅0~Xt P_* htb@tRh@t&Ã;t5;uh@h@P*hEt?P+E@E@$EPحEP+E[^_]UEU jPR]_spawnve (%s, %s, %x)int _spawnve(void *, int, const char *, const char *const *, const char *const *)U WVS] }HH aP) ƅt>} u1=# at'WUPEPh'ah'ajh# a wq$(a(a(a(a(a(a(aSWUREPUR.C_SWEPUREP t&~"jFPr ae[^_]ÉUVUSEރBAuoPSE PEPj[^]ÐUVUSEރBAuPSE PEPjd[^]UVUSEރBAunPSE PEP[^]ÉUVUSEރBAuPSE PEP[^]ÐU WVS}u ]vnPSVWje[^_]ÐUS]M UEPRQSjc]]U WVS}u ]!nPSVW e[^_]ÉUa4S]EUEEEEEEƅPRjjE ePSj].com.cmd.bat.dllvU} }T# aaX# a\# a2a`# ad# am+ah# al# ar+ap# at# aw+ax# a|# a|+a# a# a# a]ÉUhj?]Ð.AU(=Dd au1Dd ahau y_ttIuȉĊ8tBu1҉Љ9vJ9v 9t: uB:*u BBC9r:C C+][^_]%s %d%s%7d [%s] %s *** unknown ***.exe!?UWVS} $1Fá auZ auVFh-aSP]h-aS0P" Hd at1(u-af\ʋ؈Ĭ8uVuӅtC@HHd a$/ڋȈĬ8uVuCuS1P¨.ڋȈĬ8uVuӋt-aFht-aUz t-aPZ aP-atPuVWà }tEP;PnÃEPEP;P)Í;9vP u @H9w @Hd ah)[^_]%x %scYg%08xU WVSEM %U%?JR^ Qh 0aS#؋tttu@@)@Ph0aV F V+%e[^_]array bound exceeded %d U,'JWVSu]}R!EP7 SEVWSPƃ }thh0awj$f} }1jPVSj  P j Pg# ExtVSE PEPP[^_]ÐUVESu] MUPRQSVe[^]ÍvUUf| =# atEPEPE PRh# a]wndproc %d %s %d %dwndproc %d unknown %d %dU WVSƉˋ}~t\Xd a=Xd at619Td auWSPRh1ajhV#'Xd a<u΃WSRh2ajhVe[^_]U} u}t # a]WM_NULLWM_CREATEWM_DESTROYWM_MOVEWM_SIZEWM_ACTIVATEWM_SETFOCUSWM_KILLFOCUSWM_ENABLEWM_SETREDRAWWM_SETTEXTWM_GETTEXTWM_GETTEXTLENGTHWM_PAINTWM_CLOSEWM_QUERYENDSESSIONWM_QUITWM_QUERYOPENWM_ERASEBKGNDWM_SYSCOLORCHANGEWM_ENDSESSIONWM_SHOWWINDOWWM_WININICHANGEWM_DEVMODECHANGEWM_ACTIVATEAPPWM_FONTCHANGEWM_TIMECHANGEWM_CANCELMODEWM_SETCURSORWM_MOUSEACTIVATEWM_CHILDACTIVATEWM_QUEUESYNCWM_GETMINMAXINFOWM_PAINTICONWM_ICONERASEBKGNDWM_NEXTDLGCTLWM_SPOOLERSTATUSWM_DRAWITEMWM_MEASUREITEMWM_DELETEITEMWM_VKEYTOITEMWM_CHARTOITEMWM_SETFONTWM_GETFONTWM_SETHOTKEYWM_GETHOTKEYWM_QUERYDRAGICONWM_COMPAREITEMWM_COMPACTINGWM_WINDOWPOSCHANGINGWM_WINDOWPOSCHANGEDWM_POWERWM_COPYDATAWM_CANCELJOURNALWM_NCCREATEWM_NCDESTROYWM_NCCALCSIZEWM_NCHITTESTWM_NCPAINTWM_NCACTIVATEWM_GETDLGCODEWM_NCMOUSEMOVEWM_NCLBUTTONDOWNWM_NCLBUTTONUPWM_NCLBUTTONDBLCLKWM_NCRBUTTONDOWNWM_NCRBUTTONUPWM_NCRBUTTONDBLCLKWM_NCMBUTTONDOWNWM_NCMBUTTONUPWM_NCMBUTTONDBLCLKWM_KEYFIRSTWM_KEYDOWNWM_KEYUPWM_CHARWM_DEADCHARWM_SYSKEYDOWNWM_SYSKEYUPWM_SYSCHARWM_SYSDEADCHARWM_KEYLASTWM_INITDIALOGWM_COMMANDWM_SYSCOMMANDWM_TIMERWM_HSCROLLWM_VSCROLLWM_INITMENUWM_INITMENUPOPUPWM_MENUSELECTWM_MENUCHARWM_ENTERIDLEWM_CTLCOLORMSGBOXWM_CTLCOLOREDITWM_CTLCOLORLISTBOXWM_CTLCOLORBTNWM_CTLCOLORDLGWM_CTLCOLORSCROLLBARWM_CTLCOLORSTATICWM_MOUSEFIRSTWM_MOUSEMOVEWM_LBUTTONDOWNWM_LBUTTONUPWM_LBUTTONDBLCLKWM_RBUTTONDOWNWM_RBUTTONUPWM_RBUTTONDBLCLKWM_MBUTTONDOWNWM_MBUTTONUPWM_MBUTTONDBLCLKWM_MOUSELASTWM_PARENTNOTIFYWM_ENTERMENULOOPWM_EXITMENULOOPWM_MDICREATEWM_MDIDESTROYWM_MDIACTIVATEWM_MDIRESTOREWM_MDINEXTWM_MDIMAXIMIZEWM_MDITILEWM_MDICASCADEWM_MDIICONARRANGEWM_MDIGETACTIVEWM_MDISETMENUWM_DROPFILESWM_MDIREFRESHMENUWM_CUTWM_COPYWM_PASTEWM_CLEARWM_UNDOWM_RENDERFORMATWM_RENDERALLFORMATSWM_DESTROYCLIPBOARDWM_DRAWCLIPBOARDWM_PAINTCLIPBOARDWM_VSCROLLCLIPBOARDWM_SIZECLIPBOARDWM_ASKCBFORMATNAMEWM_CHANGECBCHAINWM_HSCROLLCLIPBOARDWM_QUERYNEWPALETTEWM_PALETTEISCHANGINGWM_PALETTECHANGEDWM_HOTKEYWM_PENWINFIRSTWM_PENWINLASTASYNCIOUhj]ÐUWVS}u11ƉM @A9uu1@ u։[^_]ÐNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vUS]U CCCCCPj<\ ajtT\ aPC uPEC؋]]ÐUS]{tS{u]]ÍvU WVS9~tP^S- $EPF Pt(S1)9~tuӃjVuF~PVЍe[^_]ÐUS]9CuCuh 1APSu1CjSWCP | C P]]US]CCCjPC t!PCPjjh<\ aHC ]]ÉU} u}ujhi a\]Uhj]ÍvUhj]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---close_all_filesvU?aSݖ13@H t'Q8BhPBlЃSH aHP( CH a;XX|Ĺ?a蠖Z a RP ]]_unlink (%s)int _unlink(const char *)unlinking a directorynon-writable directory.lnkDeleteFile succeededCreateFile/CloseHandle succeededaccess denied on remote drivei %d, couldn't delete file, %E/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/syscalls.cc%d = unlink (%s)vU\WVSDž=S auA9S au4S aES a-S aU =# at#􋅸Ph Aahk@ajh# a .uhWt,AaQVDžP@W<  =# ath@ahk@ajh# aDž=# at'EPPhhAahk@ajh# aL Et?P E@E@$EP赏EP E[^_]-1 = remove (%s)int remove(const char *)U24S]jUt2 a=# atShEahEajh# al"Ett S S']ÐUZ a]ÉUZ a]@sid %d, pgid %d, ctty %dpid_t setsid()USZ a9$t~Z aǀ,Z a(Z as$=# at4Z a,P$P(PhFahFajh# ahZ a(v a]]nonread (%d, %p, %d) %sblocking, sigcatchers %dssize_t _read(int, void *, unsigned int)non-interruptible read %d = read (%d<%s>, %p, %d), bin %d, errno %dvUWVSv=S auC6 9S au6S aES a-S aasH1}|E;F} CHU<u>at[ a Et?P E@E@$EPEP E`H a1U@HC@u=# at= # aPWGat>aPEPU REPhlGahGajh# a0tL= # atC8P R@$ЃtCt$=# at_hGahGaj@h# aDC8jVURRЃu!u j jb ^C8jRЉƃ~7Z aHS8EPE PPЉƃZ a`} a8uEP$uQEPNE@E@$EPAEP*EVE-PE@E@$EPEPE=# at: aP%PURE PC,PURVh HahGajh# ave[^_]write (%d, %p, %d)vssize_t _write(int, const void *, unsigned int)write fh %p, name '%s' bg_check %d, bg_eof %d%d = write (%d, %p, %d)UWVS}E=S auD9S au7S aES a-S aasHE|;~} CH<uE>a؉}t aw vww(=# atMEPE PWhKahKah#=# at%EPE PWhKahKajh# a H a@HS8jPЉE=# at!jPC,PSh LahKajh# a }~8Z aHS8EPE PPЉEZ a`w*=# atPEPE PWEPh:LahKah%v=# at&EPE PWEPh:LahKajh# a$ EtBPE@E@$EP荆EPvEve؋E[^_]ÍvUWVSEH=v av1E;}}EU |@UE9|E1;}}CE X0~'SVUR}t~)ƅEE E9E|e[^_]ÉUWVS} EEE9E}O_7~6vSVEPz}}u "~)EƅEE9E|Ee[^_]open (%s, %p)int _open(const char *, int, ...) open open%d = open (%s, %p)UWVS}E=S auD9S au7S aES a-S aasHg1}|E;F} CHU<u>aJt a 3H aM@HEJ8PE PRЉÃ=# at&URM QEPSh}RahRajh# a Et?PE@E@$EPEPEe؉[^_]close (%d)int _close(int)handle %d not open close%d = close (%d)vUWVS}=S auC9S au6S aES a-S aa聁sHE|;~} CH<uE>aa}t;=# atWhTahoTaj@h# a  a _vTaH a@HH8QhPAlЃWH aHP TaĀ=# atWShTahoTajh# aT EtBPE@E@$EP~EPEve؉[^_]0 = isatty (%d)int isatty(int)%d = isatty (%d)vUWVS}=S auC9S au6S aES a-S aasHE|;~} CH<uE>ad}tv=# atWhVahVajh# a Et?PeE@E@$EPX}EPAE1vH a@HH8(P,ЉÃ=# atWShVahVajh# aP Et?PE@E@$EP|EPE؍e[^_]file '%s' exists?int _link(const char *, const char *)trailing dot, bailing outcannot open source, %Ecannot write linkname, %Ecannot write streamId, %E%d = link (%s, %s)UWVSDžt=S auA9S au4S aES a-S a=# at+E PEPtPhWYahXajh# ad Et?PE@E@$EPwEPEHt[^_]l%d = %schown (%s,...)t&int chown_worker(const char *, unsigned int, short unsigned int, short unsigned int)vU<WVS}uE6'…t at K=R ajUM Ut a}DžEt Dž@PPPPE%Pà ubfufuEt@H a @PPPPRE%PÃt  a8Xu1ۃ=# at1EP>aU t]aPSh]ah]ajh# a؍[^_]ÐU VSu ]=S auA9S au4S aES a-S aactsHE|;~} CH<uE>aDt}t6=# atWhaahLaajh# a  a JvH a@HX,=# atWhaahLaajh# a  aXEt?PE@E@$EPqEPE=# atSWhaahLaajh# a EPEPjSWËEt?PbE@E@$EPUqEP>E؍e[^_]ÍvUH aMP,H,]%d = chmod (%s, %p)int chmod(const char *, int)ULWVSu Dž=S auB9S au5S aES a-S aa;osHE|;~} CH<uE>ao}t:=# at!E PWhfahfajh# a  a NvH a@HX,=# at!E PWhfahfajh# aS  aXEt?PE@E@$EPlEPE=# at E PSPWhfahfajh# a E PSzËEt?P5E@E@$EP(lEPE؍e[^_]*/*U\WVSEPSn؋tttu@@)؉tDjEH a>asHl1}|E;F} CHU<u>akt?=# at$E PURhjah#jajh# am  a jj@jE PWH aU@HU H8RQpPAtЉÃ=# at%E PURSh;jah#jajh# a Et?PgE@E@$EPZiEPCEe؉[^_]-1 = fsync (%d)int fsync(int)UWVS}=S auCV9S au6S aES a-S aa7jsHE|;~} CH<uE>aj}t6=# atWhkah lajh# a  a GvH a@HH8hPlЋPu_,Aa-Et?PE@E@$EPgEPEKvEt?PuE@E@$EPhgEPQE1e[^_]ÉU1]ÍvU VSu]=S auAt9S au4S aES a-S aEEE}aEE}aEPh}ajիà uEPj:Wju: jVj=Et?PE@E@$EPUEPE؍e[^_]ÍvUH aUHX9~)RHPt1]ÍvUH a]@XÐU=# au h# a# a]ÍvU$SM=R a} Zu= at = aȉʃtzt8"t+B8"t&B8"t!Bttt uBB)ʍB$hQPXWÃ= au;\u{\tIS t8jEjPEPEPjjSt E,Aa)1]؉]UWVS}} [zE $aaaaaaĂaaaЂaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaW7t  a W a vH a>aSsHE|;~} CH<uE>aS}t  a 7H a@H%uE PB0Pqv ae[^_]ÉU0VS]u [*$ăavaaaa4aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa؉ڃtzt8"t+B8"t&B8"t!Bttt uBB)ڸ)vme]Uj11Ut  a%}uVP a[^]U>aWVSH a}sHPE|;~} CH<uE>aP}u*H a@HH8(P,Ѓu1&vH a@HH8PЍe[^_]/dev/conin/dev/tty%dUS]u0i aZ a,|=@u#aaBCBfCB C Ph̆aSAw؋]]Ð_cygwin_istext_for_stdio (%d) int _cygwin_istext_for_stdio(int) _cifs: old API _cifs: fd not open _cifs: fd not disk file _cifs: get_*_binary &_cygwin_istext_for_stdio says yes UWVS}=# atWhLahlajh# aY  a)$ aЃw=# ahavH a>a:NsHE|;~} CH<uE>aN}t=# at]haEH a@H%t=# at3hav ut&=# ath·ahlajh# ac1'v=# athahlajh# a=e[^_]clerawsetmode: file was %s now %s int setmode_helper(FILE *)US]S';# au\=# at=na# atjaPC @tjaPhrahajh# a舧# atK @fc 1]]ÐU>aWVSH a}sHsLE|;~} CH<uE>aWL}uH a@H@% a [^_]textbinarysetmode (%d<%s>, %s) returns %s int setmode(int, int)U>aWVSH a}sHKE|;~} CH<uE>aK}t a 4} t'} t} t avH a@H tt 1t 4} uC4O% E t  ρWt # a # a=# aha aPU=# atCĊataPЋU taPC,PWh̊ahajh# ae[^_]%d = ftruncate (%d, %d)int ftruncate(int, long int)UWVS}=S auC9S au6S aES a-S aaH asHYIE|;~} CH<uE>a=I}t a vH a@HH8hPlЋH a@HJ8jjRЉƃH a@HJ8jE PRЃSu,Aa EH a@HJ8jVRЃ=# at%E PWEPhahҌajh# aբ Et?PKE@E@$EP>FEP'Ee؋E[^_]%d = truncate (%s, %d)int truncate(const char *, long int)vUWVS} =S auC9S au6S aES a-S aaWVSE}H aEsHE|;~} CH<uE>aE}t a ,H a@HH8hPlЋE=# atWEPhahajh# ae؋E[^_]statfs %sint statfs(const char *, statfs *)U`VSu =S auA耿9S au4S aES a-S aa;BsHE|;~} CH<uE>aB}tZ a Et?P8E@E@$EP+@EPEgH a@HE PB,PËEt?P̽E@E@$EP?EP訽E؍e[^_]pid %d, pgid %d, res %dint setpgid(int, int)vU,WVSu] =S auD觻9S au7S aES a-S a vEu'ƅu} avj1ɍEUu  a;Z a9t9Bu $U䋂$9tƂ01  aE}t}t P=# atWSVhahajh# a蝚 Et?PE@E@$EP>EPEeȉ[^_]U4S]=S auA$9S au4S aES a-S aE@E@$EP1;EPE؋]؉]ÉUWVS}=S auCN9S au6S aES a-S aa/<sHE|;~} CH<uE>a<}tV a Et?P,E@E@$EP:EPE1nH a@HH88P<ЉËEt?P輷E@E@$EP9EP蘷E؍e[^_]ÐU1]ÍvU塸 aX]ÐU塸 aX]ÐUEPi uZ aH a"fB"]real: %d, effective: %dint setuid(short unsigned int)USEPÃuZ aH a fB =# at0Z a PH a@ PhahLaj@h# a؋]]Ít&'new euid == current euid, nothing happensint seteuid(short unsigned int)RevertToSelf () (uid == orig_uid, token=%d)myself->gid: %d, gr: %dGetTokenInformation(): %Etsid != usersidcreate token failed, try subauthentication.Cygwin.1Impersonate (uid == %d)SetTokenInformation(user.token, TokenOwner): %ESetTokenInformation(user.token, TokenPrimaryGroup): %E'Impersonating (%d) in set(e)uid failed: %EDiffs!!! token: %d, cur: %d, new: %d, orig: %dU WVSEf=S auAL9S au4S aES a-S aw=# at:u>aRt  a1Phbahsajh# aӆ Et?PIE@E@$EP<*EP%E[^_]ÍvU$S=S auDW9S au7S aES a-S aa# a# aa# a# a# a]ÉUhj]Ðnot_opennot open&'/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/sysconf.cct&NtQuerySystemInformation: ret = %d, Dos(ret) = %dlong int sysconf(int)U@VS] T$жaa8a,aDaamaPaXa adadaxaxaH a@Xv?1a =R at jEj,Pj(ƅtOVJ)J,a =# attV!) PVhlahaj@h# ayK t|9 t t t(E3vE+vE#vEU)‰@v ae[^]Ðnot_opennot openC:\CYGWIN_SYSLOG.TXTU^a]t&openlog called with (%s, %d, %d)void openlog(const char *, int, int)failed to allocate memory for process_identU WVS]} =# at-EPW؅uaPhah̸aj@h# ax t&PǀƉډ؃tzt80t-@80t(@80t#@tttu@@)@Pcu$=# atLh ah̸aj@h# aUw4vSGP3(Ue[^_]ÐUVSut [^]ÍvUE@@]ÉUVSu] Vt Ve[^]ÍvUS]tP/]]wb/dev/nullfailed to open /dev/null&int pass_handler::initialize(int)UVSu] VqtF@Mh>ahAafu)=# athKahlaj@h# au vF1e[^]ÉUU EMPRQz]ÉFAILURE ! fp_ and message_ both 0!! int pass_handler::print_va(const char *, void *)vUVS]u MtQVPE|}C1{vStMЃtzt8"t+B8"t&B8"t!Bttt uBBQVRmp1%=# ath,ahlaj@h# aUte[^]%x %svoid syslog(int, const char *, ...)failing message %x due to priority mask %xfailed to allocate newmessage%s : Win32 Process Id = 0x%X : Cygwin Process Id = 0x%X : LOG_ERRLOG_WARNINGLOG_INFOCygwinRegisterEventSourceA failed with %Eafailed to open file %sfailed to lock file %serror in writing syslogU,WVS}u =# atVWhQahlaj@h# ar u8=# acPWhahlaj@h# aEr a1ۋPEtzt8!t+A8!t&A8!t!Attt uAA}+M}>t8%uxmuC@8utzt80t-@80t(@80t#@tttu@@)D$轺e>t8v<%u&~mu EPFS;t C;uCF>u}t ~}t 1W,SW~$ e$t&PhaWpt#PPh aW?=R atA}t ~#}tvhJahVa hBahaWEPEPWCMȉʃtzt8"t+B8"t&B8"t!Bttt uBB)t | uDM=R atv_aPj+Ãu.=# a(hlahlaj@h# a?o vEjPjjH a @ PjjPSS BvhaP}Ãu4=# aPhahlaj@h# an SƒH a@HH8hPlЋ0jjjjV|uA=# at",Phahlaj@h# a9n SjWnnSEPSj  jjjjV C @t"=# athahlaj@h# amSjWe[^_]U]Ðnot_opennot open%d = tcsendbreak (%d, %d)int tcsendbreak(int, int)U aWVSH aPsHE}|E;F} CHU<uEa)}t a vH aU@HS8(P,Ѓu aFC8jRЉǃ~!C8U RRЉǃ=# at"E PURWhah8ajh# ale؉[^_]tcdrainint tcdrain(int)%d = tcdrain (%d)UWVSE=# athahahh# akH a asH1}|E;F} CHU<uat  a ~H aU@HS8(P,Ѓu aDC8jRЉE~C8RЉE=# at!EPURhahajh# aje؋E[^_]%d = tcflush (%d, %d)int tcflush(int, int)vU aWVSH apsHE}|E;F} CHU<uEaI}t a vH aU@HS8(P,Ѓu aFC8jRЉǃ~!C8U RRЉǃ=# at%E PURWhahahh# a6ie؉[^_]%d = tcflow (%d, %d)int tcflow(int, int)U aWVSH a sHE}|E;F} CHU<uEa }t a vH aU@HS8(P,Ѓu aFC8jRЉǃ~!C8U RRЉǃ=# at"E PURWhnahajh# age؉[^_]Ðiflag %x, oflag %x, cflag %x, lflag %x, VMIN %d, VTIME %dint tcsetattr(int, int, const termios *)%d = tcsetattr (%d, %d, %x)vUWVSEM  a)$ aЃvL0$|$Aq D$AD$AD$ AD$AD$$AD$(f5H a a ~HE}|E;G} FHU<uEa }t a H aM@H4V8(P,Ѓu aIF8jRЉE~#F8SU RR ЉE=# atgC!PCPC PCPCPPhah,ahh# ase0=# at&SM QEPURhUah,ahh# aAee؋E[^_]%d = tcgetattr (%d, %x)int tcgetattr(int, termios *)UWVSE  a)$ aЃw0] 5H a a ~HE}|E;G} FHU<uEa }t a H aM@HH8(P,Ѓu avH aU@HH8SPЉEun  a)$ aЃv] GsM fC fACfAC fACAC$AC(Af}t5=# atjE PURMQhdah|ahh# aDc@=# at5C!PCPC PCPCPPhah|ahh# ace؋E[^_]%d = tcgetpgrp (%d)int tcgetpgrp(int)U aWVSE}H asHE|;~} CH<uEa}t a bH a@HH8(P,Ѓu a*H a@HH8 P$ЉE=# at!WEPhahahh# aae؋E[^_]%d = tcsetpgrp (%d, %x)int tcsetpgrp(int, int)U aWVSE}H asHE|;~} CH<uEat}t a fH a@HH8(P,Ѓu a.H aU @HH8RPЉE=# at%E PWURhahahh# a`e؋E[^_]UWV  a‹M)$ aЃvK0$|$Aq D$AD$AD$ AD$AD$$AD$(feB(^_]ÐUWV  a‹M)$ aЃvK0$|$Aq D$AD$AD$ AD$AD$$AD$(feB$^_]ÐUWVS  a‹])$ aЃv]Ov0s e|$$CD$CD$CD$ CD$CD$$CD$(fE UB(  a)Ѝ$ aƒwEM{ ΃fAfCAfCA fCACA$CA(Cfe1[^_]UWVS  a‹])$ aЃv]Ov0s e|$$CD$CD$CD$ CD$CD$$CD$(fE UB$  a)Ѝ$ aƒwEM{ ΃fAfCAfCA fCACA$CA(Cfe1[^_]NULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vUEU HP]ÍvUVuS^t SFe[^]ÍvUE]@ÍvUVSu] tPSue[^]ÐUVUSu t,t&;pu RRFSÃu1,SstSc;puǃS&e[^]ÐUVS]3V2e[^]ÐUME UAȉQ]ÉUESt)CP PЃ SÃu׋]]UVS{ƃ@ aPI{Vze[^]ÉUVS{ƃ@ aP{VezeC[^]ÐU< aPD|]U< aP4|]lock %p inited by %p , %dvoid ResourceLocks::Init()vUS]S=zC =# at*Z aPh aShahah h# aZ]]Close Resource Locks %p void ResourceLocks::Delete()US]{t6=# at Shahah h# aY Sb|C]]Ðlocal storage for thread couldn't be set This means that we are not thread safe! void MTinterface::Init(int)UVuSHyƒ aFFdžFFPR'y~u0F yFuh,ah~ahh# aXF FZ a@WxPSFPx} u` vIye[^]ÍvUS]hE S, CCPC0C4]]ÉUS]Ct PJw CjPE PS ]]ÐUS]U{ubtBC BCB CBCE C EC$CDPjShaCPh<\ awCu  Px]]US]hH S, CCC CC]]UE UPR ]ÉUS]hK S C؋]]UE UPR ]Ðcouldn't init mutex, this %0p errno=%d pthread_cond::pthread_cond(pthread_condattr *)UVSu hJ ߋ]S t FCCC Cjjjh<\ axCCCjPt$PSh,ahlahh# anU{ue[^]ÐUS]Ct Pt CPwE PSK ]]Ít&Failed to lock condition variable access mutex, this %0p void pthread_cond::BroadCast()Failed to unlock condition variable access mutex, this %0p t&Broadcast called with invalid mutex vU WV}SwV4t Whahahh# aT _hF ߋG P uNVt Whahahh# aS h,ahahh# aSLvrvGP\x sVtWhahahh# aSSe[^_]void pthread_cond::Signal()UVS]sVt ShahOahh# aR hF ߋC Pmt6CPwVtShahOahh# aRe[^]ÍvUVS]u =R at!C @PsCvjVCPC @P=u tv1e[^]ÐUVSu ]hG S0drCu0t,SVj PHP@ aTPhe[^]ÐUS]S@ aTPnt PCP[v E PS]]UUE PBPq1]ÐU aE@P[q]CYGWINMUTEX0x%0xname of mutex to transparently open %s pthread_mutex::pthread_mutex(short unsigned int) couldn't get pshared mutex %x, %d U,WVSu] hF VkÃ<@ ad<؃]PhuajSxShahahh# aO Sjh<\ aqFt fp=tGWpPFPh ahahh# aO FPoFvF @ ad4eȉ[^_]name of mutex to create %s pthread_mutex::pthread_mutex(pthread_mutex **, pthread_mutexattr *)U,WVSuhF ߋ]S~uPhuajVVh4ahlahh# ayN Vjh<\ a2pCt n=u(CPGm fvCZ@ adU BC C-jjh<\ aoCuCC eȉ[^_]UVSu hF ߋ]St~u /vjjh<\ aKoCuCC e[^]ÐUS]Ct Pl CE PS[]]UE@]ÉU1҉E@]ÐUE@PKn]ÍvUVSuF$1e[^]ÍvUS]hE ߋP2u #vx t @ 1 @(]]ÐUS]hE ߋPux,u@,@P`1]]ÐUS]hE ߋPux,u @P`@,1]]ÐU@ a]@ ÐUS]hE SPtPhahahh# a9P*YB PYP詰t"Phahahh# aK9 E)ЍPPÃP" t"Phahahh# a8 @ PPyXu @ P[XPtPhahahh# a8؍e[^_]Í&'int __pthread_cond_wait(pthread_cond **, pthread_mutex **)U WVSu] ;ujSCtS/ÃhF ߋPzhJ ߋP_t|P®t"Phah,ahh# a7 xtIP tB;t>P誮tPhah,ahh# aL7 PVB PVPMt"Phah,ahh# a6 jPKǃP׭ t"Phah,ahh# a6 @ PxP.Vu @ PVP虭tPhah,ahh# a;6e[^_]ÍvUS]jPK hK Pu!t jPH v1]]ÍvUS]hK ߋP>tPE 1]]UVSu] hK ߋPtwu @1e[^]ÉUS]hK ߋPut jPs1]]US]hE Sxu '{8t Z aE PZ aP]]U-ƒz8t Z aEPE PEPƿ]ÉU@ a@PT]ÐUUE )]i98ÉUVS]u Cu?t$hI ߋPu vhF ߋP|t vtTxuLPSjPS ÃhF ߋP$uetRjVE1tPjFPhF ߋP u t jP 1e[^]ÐUS];ujSCtS ÃhF ߋPktX]]US];ujSrC$ޱUVSUu  D aH aډȉF[^]É>ޱUWVSMu EU QEU a aډȉF[^_]UEEEUE]*!NbU1ɉ WVSEP1҉։0 tT5 a= ajhWV.zjh@KLWVu׉ƺk_k)ډЙ׉1e[^_]%d = time (%x)time_t time(time_t *)U,WVSu}V]HSVHS&Ãt=# atWSh ah ajh# a#eȉ[^_]-1 = utimes (%s, %x)int utimes(const char *, timeval *)/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/times.ccincoming lastaccess %08x %08x%d = utimes (%s, %x); (h%d)U!\WVSu DžjUU܅t9 a=# atVEPh!ahLajh# a/"Xjhjh<\ ajh@S|AǃuFSB tDža1u]jSEUEUPVeSFP[=# at#FPPhahLaj@h# a;! SPjW,Fua葊DžW@ =# at#WVEPPhahLajh# a [^_]incoming utime act %xint utime(const char *, utimbuf *)U VSu] ujVV=# atPhah aj@h# a# PaEUCPREUEPV[e[^]ÉUWV}SuW]S|4EMbK)fVEfFGfF1e[^_]ÐU]Ðnot_opennot opencygtty%d.output.mutexcygtty%d.input.mutexNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vU1]ÍvU1]ÍvUZ a@t ,]Can't attach to ttyvoid tty_init()vUSZ aCtS,uH{|BP, Z a,u"=# ath}ahahh# a]]/dev/ttym%P: *** Can't create master ttytty%dUPVSuVhajjH aHPX Z aVPth,a],h4S謉P jPPWhP VhLaPgfDžZ a,S臜[^]UZ a@tZ a P]ÉUUtRZ a P@$Z a@tjZ a PzЉ]waiting for children using tty%d to terminate tty %d master about to finishvoid tty_list::terminate()UaSfSjh=tP8 Vwu0=# atWhahahh# a*ve[^_]UVS1]vSsäF~e[^]ÐCan't *allocate console title bufferint tty_list::allocate_tty(int)Can't read console title&WFSO for title_mutext %p failed, %Ecygwin.find.console.%dCan't find console windowt&'console %x already associated with tty%dNo free ttys availableconsole %x associated with tty%dtty%d allocatedvUWVS} uDž|[vhaƃu.=# aahah ahh# aCvhV7u+=# ah,ah ahh# apX ayu.=# at%pX aPhLah ahh# a Z a]ЋPhpaSQS09j(6Sj(|V 9j(5pX aP7 |u.=# aMhah ahh# a/v]Džx1}DžtCPh>aWWjhJ9tP25 Sux}x} } ti|9u[=# at!VPhah ahh# a@ tUPjj@8xätFxu%hah ahh# aix]SnZ a$C|} tQ=# at'xRPhah ahh# aX xQWT\ ajStH\ aP&4Ãu5=# atWhahahh# a a1(=# atWhahahh# a؍e[^_]can't create input pipeint tty::make_pipes(fhandler_pty_master *)can't create output pipetty%d from_slave %p, to_slave %pcan't set to_slave to non-blocking modeU VSu j]hH\ aPP4u=# atGh a,jhH\ aPP3u6=# ath!ah ahh# ah a1=# at3PPCPhL!ah ahh# a EEjjPP 4u"=# ath!ah ahh# aF F<e[^]Ít&'Can't set process security, %Ecygtty%d.output.donecygtty%d.ioctl.donecygtty%d.ioctl.requestcygtty%d.input.availcan't create %sBOOL tty::common_init(fhandler_pty_master *)tty%d openedUaSSjhH\ ag.FPt,GPhTaS[SjhH\ a;.FTu5=# atSh`#ah#ahh# a?  a1=fGFPfGD=# at#GPh#ah#ahh# a ve[^_]Ðnot_opennot openNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---unknownGetUserName() = %sstruct passwd * internal_getlogin(cygheap_user &)USERNAMELOGONSERVERUSERDOMAINDomain: %s, Logon Server: %sSYSTEM\\\SYSTEMDRIVEHOMEPATHHOMEDRIVEDomain: %s, Logon Server: %s, Windows Username: %sNetWkstaUserGetInfo() Err %dget_logon_server_and_user_domain() failedOpenProcessToken(): %E GetTokenInformation(): %Et&Couldn't retrieve SID from access token!Couldn't retrieve SID locally!Couldn't retrieve SID from '%s'!USERPROFILESetTokenInformation(TokenOwner): %ESetTokenInformation(TokenPrimaryGroup): %ECygwins Username: %sU\WVS}DžDžPSyu h&aSW=# atPh&ah&aj@h# a =R av1h&aVtÃh'aVtPWh'amVt PWtMTmt@Wt9Gt2=# aPRh'ah&aj@h# a Pjj5jjhSjPj= aP)SWjjhSj@ Pj= aP(SW jjhSj@Pj= aP(SW;'a4aFPPSv94aFP=4aFT>D4aFPH4afFT'vJ4aFPN4aFTO4aFPS4aFTe1[^_]UEjjPj3]ÍvUMU EjPRQ]ÍvUMU EPRQj]Í&calling proc_subproc, pid %d, options %dpid_t wait4(int, int *, int, rusage *)proc_subproc returned 0%d = WaitForSingleObject (...)intpid %d, status %p, w->status %d, options %d, res %d*** errno = %dUWVSv=S auC9S au6S aES a-S at } tE }tEPuREPE@E@$EPޚEPEWvE PE@E@$EP茚EPuE=# at0WEPFPE PEPh47ah6ahh# a0F}-=# at$ aPhk7ah6ahh# a_e[^_]ÐNULL%s %svoid cygsid::debug_print(const char * = 0) const-- begin sidlist ---void cygsidlist::debug_print(const char * = 0) constNo elements-- ende sidlist ---vU WVS] uڋE}P# at3w t"t(vjr1v;5@i auHi aMbЃ)ЍLi aыLi aV)W7u @i a0jSjW@i aSXi aLi aHi aTi aPi ajVcjFSEPVSW8e[^_]Cannot register window classDWORD Winmain(void *)Cannot create windowUdSEE,<aEE aEEEEEEEP aP* fu hT=a]vj aPjjhhhhhhP ahP aj"Di a$$ aP =Di auh=ahq=ahh# a"1.]vS jjDi aPStߋE]]winCannot start window threadstruct HWND__ * gethwnd()USDi ajjjh<\ ad$$ ah>a11Ҹ=auà u h>ah>ahh# aKjSS $$ aַ$$ aPDi a]]UDi at jjjP]Ð/cygnus/netrel/src/cygwin-1.3.2-1/winsup/cygwin/window.ccUVSu ]}t a =Pi a6A~ a@i atPP@i atHi aHi aBCBCB C u aHi aHi aFBFBF B Pi aЋTi a)4غMb)ʍuu1BjPjP@i atMXi a1?aYe[^]ÍvUWVS} }t au avHi aHi aBGBGB G =@i at]Pi aƉ+5Xi aMb)ЍETi aӋETi a)Ӎ)1Wi)Ӊ_ G1G [^_]ÐU4SE]Pj]EEEEjPjEu }t]ȉ]ÐU}E u@Go[fG*Ћgw SfG$fG(G_OW wÐUW}G_OW wEGEG GEG ffG$ffG&ffG(ffG*_USU( a=, atf;0 a} ( aiD NA90C;0 a|4 a1ۡ( a£$ a0 a  a kC0 a9|[]ÍvUVS( a]r , au B$ a)ȉBw=wV1 , a0 a4 a?w#, a0 a4 aevw, a0 a=w , a0 a4 a, a0 a?4 aE 0 a( aУ8 aEPK , au( a@v( a$ a)ȉBe[^]ÐUWVS}gfff؋Ӊ)Ӎ( a)BE5, au B$ a)B-|) , a` at a0 a4 av'U1EO ( a=, at$ a4 a=0 a  a0 a 8 aE[^_]ÐUS=, au#( aimNA90( aa$ a  a  aP  a8 a9r( a  a$ a$ aX$ a9r ( a$ a[]Ð#KaKaKa KaKaJaJaJaJaJaJaJaJaJaJaJa {JatJa mJacJa [JaHJa AJa1Ja )JaJaJa JaJaIaIaIaIaIaIaIaIaIaIayIarIa]IaWIaJIaBIa*Ia"IaIa IaHaHaHaHaHaHaHaHaHaHaoHagHaOHaGHa.Ha&HaHaResource lostSIGLOSTFile size limit exceededSIGXFSZCPU time limit exceededSIGXCPUProfiling timer expiredSIGPROFVirtual timer expiredSIGVTALRMStopped (tty output)SIGTTOUStopped (tty input)SIGTTINContinuedSIGCONTStopped (user)SIGTSTPStopped (signal)SIGSTOPPollable event occurredSIGPOLLI/O possibleSIGIOUrgent I/O conditionSIGURGWindow size changedSIGWINCHSIGCHLDChild status changedSIGCLDUser defined signal 2SIGUSR2User defined signal 1SIGUSR1TerminatedSIGTERMAlarm clockSIGALRMBroken pipeSIGPIPEBad system callSIGSYSSegmentation faultSIGSEGVBus errorSIGBUSKilledSIGKILLArithmetic exceptionSIGFPEEmulation trapSIGEMTAbortedSIGABRTTrace/breakpoint trapSIGTRAPIllegal instructionSIGILLQuitSIGQUITInterruptSIGINTHangupSIGHUPUS=@ au(Fa{t1ҍv9|P {u@ a=t$ auR@ aSFt$ at4SjFaPw{tv Ct$ a {u=$ auW@ aSF$ at9SjFaPQw@ a$ a{t C$ a {u]]ÉU=t$ au@ a$ a9}ЉH]Signal %dUS]=t$ au|;$ a|1($ atuShRLah4$ a衇4$ a]]ÐUS]=t$ au`|;@ a|1(t$ atuShRLahT$ aIT$ a]]ÐUVSu1ۅtC=t$ au vC;@ a}t$ atPVu;@ au1ۍe[^]%s: unknown signal %s: %s UVS]u =t$ aut;$ arVhkMa a@ Pif v$ aPVhMa a@ PGfe[^]ÐBEGIN_CYGWIN_VERSION_INFO %%% Cygwin dll major: 1003 %%% Cygwin dll minor: 2 %%% Cygwin dll epoch: 19 %%% Cygwin dll bad signal mask: 19005 %%% Cygwin dll old termios: 5 %%% Cygwin dll malloc env: 28 %%% Cygwin api major: 0 %%% Cygwin api minor: 39 %%% Cygwin shared data: 3 %%% Cygwin dll identifier: cygwin1 %%% Cygwin mount registry: 2 %%% Cygwin cygnus registry name: Cygnus Solutions %%% Cygwin cygwin registry name: Cygwin %%% Cygwin program options name: Program Options %%% Cygwin cygwin mount registry name: mounts v2 %%% Cygwin cygdrive flags: cygdrive flags %%% Cygwin cygdrive prefix: cygdrive prefix %%% Cygwin cygdrive default prefix: %%% Cygwin build date: Sun May 20 23:28:17 EDT 2001 %%% Cygwin shared id: cygwin1S3 END_CYGWIN_VERSION_INFO 2001-05-20 23:28%( a% a%H a% a%p a%h a%l a%x a% a%ܔ a%L a% a%ؔ a% a%d a%ȓ a%P a%( a% a% a% a%ē a% a% a% a% a% a% a%| a% a%l a%d a%@ a% a%H a% a%x a%| a%t a% a%8 a% a% a% a% a% a%( a% a%| a%T a% a% a% a% a% a%4 a%0 a%ԓ a% a%ؓ a% a%< a%h a% a%$ a%8 a%T a%t a%p a%d a% a%, a%@ a%x a%0 a%$ a% a%< a% a%Г a% a% a% a% a%T a%\ a%` a%X a% a% a% a% a% a%Д a% a% a% a% a% a%p a%l a%Ԕ a% a% a% a% a%D a%L a%$ a% a% a% a% a%Ĕ a% a% a% a% a% a% a%\ a% a%ȕ a%8 a%` a%4 a%X a% a%\ a% a% a% a%ĕ a%ܓ a% a%D a% a%, a% a% a% a%D a% a% a% a% a%P a% a% a% a% a%` a% a% a%4 a%h a% a%P a%H a% a% a%< a% a% a%̔ a%Ȕ a% a% a% a% a%̓ a% a% a%X a%0 a%, a%t a%@ a%L aacosvUTSEUȃ$蕆]auuIuu<EuhEEEԴVaUE]EEtEPeu KC!}t :C‹EEE]]ÐacosfUdSu҈]auZHu <EuoEEEԘWaEEEU]؃tEPdu vB!}t eB‹EE]EvE]]ÐacoshUTSEUȃ$y]auu>Guo]EucEEUEtXa]E|Xa]tEPcu A!}t A‹EEE]]ÐacoshfUdSu辊]auFus]EugEEEDYaEU]LYa]tEP/cu @!}t @‹EE]EE]]ÐasinvUTSEUȃ$Ջ]auuEuua9EuhEEE ZaUE]EEtEPGbu ?!}t ?‹EEE]]ÐasinfUdSu]auEu8EuoEEEZaEEEU]؃tEPrau ?!}t ?‹EE]EvE]]Ð?9B.?u<7~u<7~9B.?UdSE]EUӁ~/>[aEvA~($o7$l[a@~T$}?7m$}}mmЃm$P$}6]mЃ$mEU$.X]]Ð?r1?IqIqr1?UHEUU~18]aEvM~($S6$x<]a@~T$}#6m$}} mЃm$P$}5]mЃ$趑mEU$Z}]ÐOag?-DT!? s?-DT!?e/"+z<\3&_aE8v$3?1?1 _aK6ف@!(_a =0_a _a^a^a^a^a^a ^a^a^a^a^aɅ} ܠ^aܨp^a}e[^]Ðatan2UdSEEUU$$j]auu>uuz>ED@uyED@uhEE]Eaa]EEEtEP[u 8!}t 8‹EE؍vE]]Ðatan2fUdSu u]au =u=E D@uED@unE ]]EEEEE,batEPZu 7!}t 7‹EE]EE]]Ð8c>I?^{??i71h!"33h!3>L%I>8n.=5k=knYK=!i<?IqIq@?U$SEU]P~>~؃}~4caDcay4ca%Dcad>00|caE:v$/?1/?1caK6ف@!ca =ca pcahca`caXcaPcaHca lcadca\caTcaLcaɅ} ؠ8caب(ca}}]؉]ÐatanhUTSEUȃ$A]auu^:uu.È@Eu&EEUETea]E\ea#EEUETea]E}]tEPVu q4!}t `4‹EEE]]ÐatanhfUdSu]auv9u(-È@Eu)EEEtfaEU]|fa'vEEEtfaEUU]tEPUu \3!}t K3‹EE]EؐE]]ÐUE$E$4]ÐUu u5]Óx*x)__?42%ޑ?n۶m۶?m۶m?t&__??42%ޑn۶m۶?m۶m?ULWVSE]ȋEȋỦщρ1~ UȋEȋU ]MEBEEEPCE]ȋEȋU]%ha“x)UE.VUUUEE)“x*UEhahaha ha(ha]ȋEȋU̍r1ۉ]ȉuE]ȋEȋU] UEٍv[^_]ÐQ*Q& ?4P?۶?n۶> ?P?4۶?n۶>KU4SEU]#M~ v؉ME ia]iaeꍂQ&vVUUU)Q*EEiaiaia=iaia]E ؉EE[]Ðu<7~u<7~U,WVSE]EUӉ‰%M}AjaE} 1 ?1EM}#E jaE~ MU1#]j}3~}uieEmUtOjaEu-~#}uC4+M9sCU#U߉։u}E[^_]ÐIqIqU VSE]E‰сXj}.kaEu^} SvtL?Et?kaEu#~ !v UE[^]ÐU(E]EU]E% ‰UE]ÐUEU % ЉEE]ÐU(E]EU%=!?jjL=~ EP$~t/ t cvt?YE$E$[vjE$E$(8E$E$譓jE$E$]?U$SEU#E=I?jP=~ ]S$:ڃt-t et?]B$E$J\jB$E$8=c땗Y6*?? 8a#f>?3oJ?\c?5c`&?Qk?5WT?5d `4`s4&A% 0Of"(Ld\gWeRT\š#vp3@!jR 5a@q ){@h(!+@pW!z@,H([@JHG@bt﮿Jo94ޅpZ_U 1C]d(uY.ja?8ܛN8~Q&V>@ "\t@Q@j$h@;@ct}@b-qBp6 @in??in?hf#wOQ*i}Կhn? aBCо"]!?k"t?6UL? yw?? 8a땗Y6*?(>=c Q_?ø@׿M?8uYc5WT?Qk?5c`&?\c?3oJ?#f>?` ?` \š#WeRT\gf"(Ld 0O&A%`s45d `4bt﮿JHG@,H([@pW!z@h(!+@q ){@!jR 5a@vp3@?8ܛN8~Y.ja(uC]dZ_U 1ޅpJo94b-qBp6ct}@;@j$h@Q@ "\t@Q&V>@?UVSE]EU։~!6)EEv?/>4 ra ra rayv raz rasa sasa $sasa,sa4sa=c Q_?ø@׿M?8uYc5WT?Qk?5c`&?\c?3oJ?#f>??` ?\š#WeRT\gf"(Ld 0O&A%`s45d `4bt﮿JHG@,H([@pW!z@h(!+@q ){@!jR 5a@vp3@@?8ܛN8~Y.ja(uC]dZ_U 1ޅpJo94b-qBp6ct}@;@j$h@Q@ "\t@Q&V>@?UVSE]EU։~61҉EUm?o< v xaxaxaxa xaxaya yayaya?+$ya?$ ,ya4yau?u>kR鼉VǷλ>c*=;I 9ℶh>T>㽳Q= 1=W ?=3>n_u>VǷRkℶI 9;c*=λ> Q=T>h>ZD<n_<3>=W ?1= VX? VX~+8Ìe"Wy"(1!w|?@EB CX!DoHCc C5Au #Ad KԝL!CCΐEGEYDqCYA?UpVSE]u~!6)EEvW?14 a a av az aaaa aaaaaa?$ aaaaa a aaaa a$a(a|,a30a#@~؅| v4a$2m6@ 8a<a@aDaHaLa XaPa\aTa`adahalapata xa|aaaaa aaaaaaaa]E%EE%a$}}}}=]mmmm$Em} e[^]ÐVǷRku>ℶI 9;c*=λ>? Q=T>h>ZD<n_<3>=W ?1=ԧ> VX?~+8Ìe"Wy"(1!w|?@EB CX!DoHCc C5A@u #Ad KԝL!CCΐEGEYDqCYA?UpVSE]u~61҉EUmW?# v aaĄaȄa ЄāaԄa؄a܄aa>/a?$* aaaaaa aaa aaaa|aO a=vA$R l6@ $a(a,a0a4a8a Da<aHa@aLaPaTaXa\a`a؅} @, halapataxa|a aaaaaaaa]E%EE%a$}}}}E]mЃmmm$Em~$da؅dae[^]Ð9B.@Q0-Iexpt&9B.@GQ0-IUdSE$}Uȃamك$} maEu;EUE܉a]EuaVa]=atS>aEucEUE܉a]EEEtEP2u "}t ‹EE E؋]]ÐqBexpfvqBt&GUdSuVUa؃uE,aEu=EE$aEU]؅u 4aVa]=atXCE<aEuiEE$aEEEU]؃tEP0u "}t ‹EE]EE]]Ð?u<7~Yn9B.@B.?v- n9B.@YnB.?v۪UZ?@@пUTSE]ȋEȋỦщˁyhC@A.@v]v9]ȋEȋÚ t vavČaEǔat(ԌaEuaWB.?ف?w2ua%܌aha܌aRv auaa}fEf fEm]MmME a ܌aف?w2ua%ahaaRv auĐaȐa}fEf fEm]MmME a a2w̐ar1 Đa АaԐaؐaܐaaa-aɅuu Đa%Đau7aEuĐa avA9v ]EȉEEdv/ظ?)‰UE]EȉEE-)EE]EȉEEى]ÐU(E]EU]%EE]UE%EE]UE %]ÐUE%=]Ðu<7~u<7~U,WVSE]EUӉE%}OHaE|E1% EEvE}#E EHaE} U#]Eo3~usovEmEEtTHaEu/}"uC4)E;EsCEUM!Mߋuu}Ev[^_]ÐIqIqU VSE]E‰сXf}*aEuZ|1RtLEt?aEu#} !v UE[^]ÐfmodvUdSEEUU$$}]auu? uu& ED@umEEEdaU]Etla]=atEP%u p!}t _‹EEؐE]]ÐfmodfUdSu u]au su]E D@usEEEtaEU]t|a]=atEP$u {!}t j‹EE]E؉E]]ÐPCPCU0VSuE]EUӉفS tO# |a]EUӉفȉ%] ?EE[^]ÐLLU$S] E]EʁOtK a]Eʁ؍vЁ?ME[]ÐgammaGUTSEUȡ aP$:~Ua ؃uuuuEEԠaEU]؅u aVa]uuED@u;u2E=atEPj"u=!0E=atEP8"u "}t ‹EEvE]]ÐgammafGUdS aPu}Ua9؃uuu=ED@ugu\EEaEU]؅u a vVa]=atEP!uo!bEEEaEU]؃=au aVa]=atEP u f"}t U‹EE]EvE]]ÐhypotGUdSE]EU$uu{Ua؃uu+uuuutvEE]EԈaEE]u aVa]=atEPu F"}t 5‹EEE]]ÐhypotfGUdSu u|Ua؃u=u'u t~EE]E EԠaE]u aVa]=atEPu F"}t 5‹EE]EvE]]ÐUVSM] ΉځC u Ou~@vH4v ~%H҅v~ [^]ÐUE%u5=~J= ]ÐU1EUE]ÐUEE]ÐUU Eс‰]  )ȉ )ÐUE%=]ÐUU Eс‰]  )ÐUE%=]Ðj0t&-DT!ICUTSEUȃ$q|]auujuuPaEuiEEEHaUE]EEtEPu "}t ‹EEvE]]y0v-DT!ICUdSE$}~]ȃam$wmu^EUE2a]Eu 8a vVa]=atEPuf!Y@aEucEUE2a]EEEtEPu e"}t T‹EEEȋ]]Ðj0fIZUdSu袅]auru$aEulEEEԀaEEEU]؃tEPu "}t ~‹EE]EE]]y0fIZUdSuR]au]u_EEEVaEU]؅u `a Va]=atEPui!\EhaEuiEEVaEEEU]؃tEPu N"}t =‹EE]EؐE]]Ðj1t&-DT!ICUTSEUȃ$]auuuuaEuiEEEԠaUE]EEtEPu X"}t G‹EEvE]]y1v-DT!ICUdSE$}赍]ȃam$mu^EUEԊa]Eu a vVa]=atEPufh!YaEucEUEԊa]EEEtEPau "}t ‹EEEȋ]]Ðj1fIZUdSu֔]auuܦaEulEEEئaEEEU]؃tEPu 7"}t &‹EE]EE]]y1fIZUdSu]au6]u_EEEԮaEU]؅u a Va]=atEPuiT!\EaEuiEEԮaEEEU]؃tEPJu "}t ‹EE]EؐE]]Ðjnt&-DT!ICU`VSE Uu$VD]auuuuhaEuluEEEEEaE]E]tEPIu "}t ‹EEEe[^]yn-DT!ICU`VSE Uu$V輝]auu]ufuEEEaE]E]u a Va]=atEPTur!eEaEuluEEEEEaE]E]tEPu "}t ‹EEEe[^]jnfIZU`VSuu V]au u WLaEusuEEEEEHaE]E ]tEPu "}t ‹EE]EEe[^]ynfIZU`VSuu V1]a u ] ufuEEE,aE]E ]u 0a Va]=atEP$ur!eE 8aEutuEEEEE,aE]E ]tEPu i"}t X‹EE]EEe[^]UEU$rtWEE@tFEPuuD#U$7 tED@u "E]ÐUutTEE@tCE Pu$U$ tED@u R"E]ÐlgammaGUTSEUȡ aP$2Ua ؃uu=uu$EEtaEU]u |aVa]uu!ED@u;u2E=atEP u=B!0E=atEPd u "}t ‹EEvE]]ÐlgammafGUdS aPu׮Ua ؃uuEEԯaEU]؅u ܯaVa]u<ED@u;u5E=atEPI u@!3؍vE=atEP u "}t ‹EE]EE]]Ðlogt&UTSEUȃ$}<]at$uuu]EuEEE,aEU]u 4a Va]ED@u E=au "1vE=atEP u !}t ‹EE]]Ðlog10UTSEUȃ$轲]auun]EEDaEU]uLaVa]ED@u E=au "1vE=atEP u !}t s‹EEvE]]Ðlog10fUdSu趲]au]EEdaEU]؅ulaVa]ED@u E=au "1vE=atEPu p!}t _‹EE]EE]]ÐB.?v?PC?v?x ?˖dF?xq?Y"$I??UUUUU?U@VSE]؋E؋U܉ցy??~1ԴaD@uܴa\Qv><aEu<!v a v%I>)c>%3:>O>>L?7q1?*?@>O>%3:>)c>%I>>U0VSE]Uց~ k>?~08aD@u<a3)v0<@aEu$v Dav jA= jAv 1۹فY4UEX~ ]UЉX5 ?EEvC ?EE)ȉ DaʅuxD@u-څى]E La Ha PaɅu ]E La HaTa Xa\a`adahalaPaɅt0‰]E La Ha[^]U(E]EUс u$v=a,~tEE v a]ÐUEU#Eu$8=a&=~tEE va]ÐlogfvUdSu5]at!uu]EuEEEaEU]؅u a Va]ED@u E=au "1vE=atEP8u !}t ‹EE]E̋]]ÐUE@1]Ð?ULWVSE]ȋEȋỦUE%r}]E1ɉXE! Eu)E]ȋEȋỦ%EEEӋM#]]EET3~'E]ȋEȋỦЉǁ1uȉ}EV]tEӉE܋M#]]E'vE]ȋEȋỦ%EEE[^_]Ð?U$SE] ]U%H)} +vt !‰#vUE[]ÐU1EUE]ÐUEE]ÐU N>F$O:89-W@a30.Ɲ=I@?8O:F$ N>*>.Ɲ=a30-W@9h!3??I@UXEUE%=?u؃}~ NDaA=?~ 0=>=#Ha LaPaTaXa\a`a dahalapa-taxa} |a$}[m]E%EE LaPaTaXa\a`a dahalapa |a La$PaTaXa\a`a da}halapa} mma%ta]?9B.?9B.?UHE]ȋEȋỦщ? vA~,~$j av u @8$}bmЃ$BɃ$}}/mm$ ]Ð?r1?r1?UHE]̋E=? v=M~-=~ v$  av=?u =@9$}C mЃ$CɃ$}} mm$ ]Ð?u<7~-DT!?\3&<-DT!?UUUUUU?}oԿUDU?;h(uI? =?K-':ȊY*@Yl濂.Ÿ?-DT!?\3& aE aaaaaa aaaa9$讬 a a$}aaaaa a}aaa}cmmmЁ23?~a%aZU1Mȋ]̉ډEȉUEaaɉe[^]Ð?Iq?.;I?*> N>F$O:89-W@a30.Ɲ=?.;Iq8O:F$ N>*>.Ɲ=a30-W@9?I?UdSEU]?u a a?~ v>1 aE aaaaaa aaaa9v$ a a$}aaaaa a}aaa}mmmy?~a%aVUU%EEaaɐ}]]Ð?YnU?PCB.?v?˖dF?Y"$I?UUUUU?U4SE]EUщ1ہE% uda}v la]EUс~ȁd_ ]5? ȉEEA%zD@u)م>؉]E ta |a a-aɅ]E ta |aQɉ])a E aaa aaaa~9 a̅uIv ta |at ta |a []Ð?`B UWVSEUEv ؅}|؉w1ҍKu Bt)%Á t1199<)ut3?EE[^_]Àq1?7L*?>%I>)c>%3:>O>>Lq1?7>?@O>)c>>>%3:>%I>*?U4SE]E1ua}v~ a]EؐЁ J\5? ЉEEB%|D@u)م@؉]E a a! a-aɅ]E a a5ɉ]0\)a E a aa aaa a~9 a̅uIv a at a a []ÐYn-DT!?-DT!?-DT! @\3&<-DT! @-DT! -DT!-DT!?-DT!?-DT!!3|@!3|\3&Pa/Ta Xat" tGvt!t+8\a<a@au HaDa)<~ `a2}} !v$轛$Jktt?-t%]E5EE!%da-<a%da%<a؍e[^_]Ð?u<7~u<7~?U4SE]EUӉ‰ف  ʁ?v ?uv/>aEtWv]ME?Ƀv$ػ a}]ȉ]Ð?IqIq?U(EUU?~ ?ut1aEtU؉UE>Ƀv$8 a}}]Ð?IUUUUUſ?a*}W>+Z|Z:=|Z:=+Z}W>a*?IUUUUUſ?U(EEUEU%=?>*}fUf fUmUEm؍v aaaaa}t& a aa؉]ÐDNn)W'4b<ACcQޫa:n$MBI .)>5D.&pA~_֑9S99_(;/ Zmm~6 'FOf?-_'u={9Rk_]0V{Fk 6^ae_@h'sM1Vɨs{`k!?! @|@!@zj@|"@%@!)@:F,@zj/@\G1@|2@k4@5@ۏ7@!9@:@:F<@Z=@zj?@L~@@\GA@lB@|B@C@kD@4E@E@F@ۏG@XH@!I@?pAm0_?@T!?1cba=`a=sp.;.;I %{9@T!?1cba=`a=sp.;m0_??.;I %{9pAULWVSE}]ȋEȋỦUԉց!?1GG {@}~F%ta!?t |a%aa_vta!?t |aaa_<v!9AL$ aa}fEf fEm]؋MmމME ta |a;4at ]ȋEȋỦ%)ƒ~} a a]ȋEȋỦ%)ƃ1~9 a aɍvW}}ɉ؉v~1W]ȋMȋ]̉ȉ)ʉEȉUE1aMɐ}fuf fumU؋EmމEE\BɃ~UD@uqJE@t؃hajRSWQ }}G_e[^_]Ð?LUUUUU?wQlV>RO~ı!>88ı!>RO~>wQlVLUUUUU???U0VSEE]EU?>1}fuf fumUEmu ɉ a$a,a4a<aDaɁ23? LaJ?~Ta1ɉM]Ev La[^]Ð?*< P864/ײ././4/ײ86 P<*?UEE Ue}1&}fUf fUmUEm aaaaa}t& a aaى]ânND)'W4b<CAQca$n:BMI. )>5.Dp&_~A99S9_(;/Z mm6~' OF?f_-u'{=9Rk_]V0F{k 6a^e_h@Ms'1Vs`{k?I@˖@@S@A/AIA1bAS{A:A˖A\AA~AAA1AASAB: BBBB\#B)B/B66B~U(EE U#U1+}fMf fMmUEmu a a a a a aɁ> aBH?~ a EE a]??u<7~?U$SE]EUӁ~ B.?@$Ç$H<5@0${$ aA.@$$C$ a`]EU3@~3@u7=}w0$ a$: a a؋]؉]Ð??Iq?U$SEU#]~r>@$蟆$蔃#A,$W$ arrB$$#$  aFԲB~  a4$  a$  a؋]؉]Ð??࿜u<7~p9B.@Q0-IB.?B.vUUUUU?lf,%jV?kAФri7f>9B.@Q0-I+eG?u<7~Фri7f>kA,%jV?lf>UUUUU?@pU@VSE]؋E؋U܉щA.@v}v5]؋E؋U܁ tvaEuaaEurvB.?vxف?w )݀|a)ܠlaE<a a}fEf fEm]umuE la |a//>w aEu1 aaaaau% ae- a}(]]؋E؋U܉Ѝ0>uE a]]؋E؋U܉ƉuE[^]Ð??Iq q1?q17;?*>a 6U8ݵL13;?IqL13ݵU8a 6*>@ U4SE]Uщ%=v =urB~atv}=Bv Y=r>vy=?w")ـ`a)ؠXaGHa a}fEf fEm]]m]E Xa `a/=1w!aEu1 aaaaau%aO-a}]U2EE a]E؉EE[]Ð?U]EU uڍv]EU uN`ɁځھX]ME]]E l<]EU u EEEEʁ(Ɂ%%ƨ]ЉME]ȉ]EEu;EEMEɃ̃WvEE]EEEME˃$t]?uEɍx[^]U$SMU 9~ȉщMEUE)=~ K1ہX~J~!uځu4؁<MEUE&Hu?EEʃ ؁]]ĉMEUEEu3؁MEɃ̃EUEፁEE˃ʃ$t?EEɋ]؉]Üu<7~?mBP ?m0_??(9P ѱ>?s3Ȃ?WҦ?ՄT;>]t>mBP ?u<7~??s39P ѱ>(?]t>ՄT;>WҦ?Ȃ?п?UtSE]EUЉÁ~ $v?$}^m$}Om Um]E]?$eOmMmEu u]u]H~$HEQv$}/]m$ ]؃m$EEMM |a?4aEu?> a aaaa aaaa?~# aUaً]]˙䲿?lLk M6?\sϾԫN;WU>ȳ?i=Žɑp?x?-d>;P=mBP ?m0_?˙䲿ȳ?i=ŽԫN;WU>\sϾk M6?lL?;P=-d>x?ɑp?UdSEUEUщˁ~E]u u ta} |a?uuF]uuLE U]E]؁=E$PLEMEu u]u]H~uu8EHvuu"]Ѓuu ]ȃuuEEMM a@>EU aaaaaaMa] aaaa]uuuu}Emu avuu aa]]Ít&'2yO) c{pMnj=d6 Qg3"]@8iYP}@_n@@I,OwA@̕Gk p}Z/PcBgt׋(uŘ `N@d(~\m@`Z@8v@d ̢@o%KtENLJ5E B" Mؒr?}A@|JF9v@amn@~ø@7e@m'wB^IbC$96c$b&珯 YYe86@a@Bp@:M@f@9[6xd@ckNX@?TRfAC+ڃ(A= (k)A0,mٌ)==Lr?=W@鈇 `@ȝ @S@C^T@!ڠ;@mY{g@r#@Tz@ ۾Wj2>B?a @ݮ-OE@^Ye@!|d@C"aH@NT-@cMK@(jl<@O٪@ bkT;1>4>>ž?w'?o,@J)?@Kq@0@z]>@@Kp@""Ef@\|@eSj@1)j>UE]EU%=@~$a4%a4=.@~ t%a%a=l@~ %a4&a t&a&a]H(@ @@@J(B BBB&aÐIq?n?"?<.5G5<5.5GFgbi*9<2!/P€/l!4e8Pu]uK ]u EEMM *av2EU *a*a*a*a*a*aM*a] *a*a*a*a]uu}hEmu *auE *a*a]]ÉNvSZ(ŘBoEەG|G :GH{Y›y7sBhD׺EeF`E/-RQhelBCs3DD-C̱W63 N-ñA4C2F]G GRh1p=V@|*B*C&C CBl1D_gEgEWEEY?ۉ!4*=?gAqTAAAC)2SD\DTCXUEU#E=@~ h.a.a3=W@~ .a.a=g6@~ .a.a .a/a]H@@ @@JBB BB(/aÜu<7~?mBP ?m0_?a,G W?h Fj>S~c ?d͹V_(??3>,}Ɉ5>~*=mBP ?u<7~? Fj>ha,G W?~*=,}Ɉ5>?3>d͹V_(?S~c ?UpVSE]EU։~ v$}bUȃm?؃$j]uu;] Ee]e]>Eȃ$q;EM]]Eu u]u]H~uuXEHvuu]؃uu ]ЃuuEEMM p0aف?>x0aEu 0a{ 0a0a0a0a 0a 0a0a0a0a0ae[^]Í'<fɿ,)vө?DHU_>VxM? e?dw%l*?NZ>[:>*w9P=mBP ?m0_促m0_?UdSEUEUщˁ~E]u u H3a} P3a?uuŸ]uu9] Ee]e]>E$8EM]]Eu u]u]H~uu谶EHvuu&]Ѓuu ]ȃuuuEEMM X3a<E 3a2a2a2a2a] @3a83a03a(3a 3a]E]uusuu}fmEuu]EM h3a vE=`3a]]Í?5z*@.ey@2}E@݂'z@leE\@O'M܅@ŗ @,@- zi@}g=C?cn6@&E[@IR-@ ~@=cM@g6@WD@@Q^o0@ݞ!)>{![?^v@)ѦHA@7,MV@>GH@4IeA@_3 u@#7P|[@1.}֋@S.|mY@DU|> vB?@dq7|(@1@tIK@Պo5@,R_@ۢm@zk]@QN @UE]EU%=@~5a6a4=.@~ @6a6a=l@~ 6a7a @7a7aȉ]H(@ @@@J BBBÍ'?ygE0vSмt@$jeЦ[ަ,d@b@^WArS%A\wW$AiCY?K lmfOs1ithZQT@9{1@)d @ѺmW@K6|K@.oOȏө5TQ?3p]qL_GӇl\_fkg#G@>1@|DNh@T@K z@1 )p`&D&H>Nih3Jޣ)ERn96_5dx=@ho@I@)H%@><^~c@k?UE]EU%=@~8a8a4=.@~ 9a@9a=l@~ 9a9a :a@:a]H(@ @@@J(B BBBp:aÐIq?n?"?l:6.WU3Yu ]u ]u&EEMM ;a}ف1;aEu ;az ;a;a;a;a ;a ;a;a;a;a;a]]Ív1Hu]uO ]uEEMM =av$E =a=a=a=a=a] =a=a=a=a=a]E]u u}XmEuu]EM =a E==a]]=SAC+rESE,jB.dE5\GfGF?3h-=#@ʝBhD-DUmBwD#JE%ED O1={@Ez B*B|d5[>B^w(DrBSE]ED32?uѽ#$0OM)²TDAG|C.`=D*8DC7>UEU#E=@~ AaAa3=W@~ AaAa=g6@~ AaAa Ba,Ba]H@@ @@JBB BBDBamBP ?@?mBP ??@eA9B.@}Ô%ITUlWVSE uUEUljщˁ  =v U؅}E]u؃uu vu؃uuM!u uu}O]muE]È@ZRtM tti؃uua(uu}m ؃uu3(uu}Ҏm T؃uu(uu}襎m '؃uu'uu}zm uu}٥m B!~ E DCa9UEB9~6EE=LCaTCa^EuEu"ɐBEt؍29|vUEu9}؉uE]LCauM$}}} M$M mmm\CaEu9ڍEELCaJuXڍEE~OLCadCaːuEuJ؃uu}}Fmm؃}ue[^_]ÍmBP ?ULWVSE uUEUщ‰ˁ  =v U uGav}Gav} މ)Džu؃uu|vu؃uu}Eu rvRtO tvti؃uu譊uu}#m ؃uuuu}#m T؃uuRuu}#m '؃uu'uu}f#m uu}um Gae؃uu(uu}]ȋEȋỦйm ɍ EEu]ȋEȋỦA9}=u؅e[^_]Ðn?@??@(knNqBPUlWVS]E ]EƁ~ } 5u$u$ǃ$!#I]EÈ@sd$}/m$}mm93ɍ‰EBE9|v0@!~  ?{T"?O@~?kحg?]?oS?ƶ@?M,?}P?RBtp>7X??Vcb?BüP8+? ƍ'¿AՔB?5ߨɠ f?j쑺Dpx?.n.ӂb?-Va L?sAlm4?8$4>5?Ȱ}gij]@?o\G?PDvI?$ N? +g?aץ@+%@PP?|SU?aWZj?Ȱ}gijx6?YO?徜?a~H?9hs&^?E?tbE?ӓ?'?u.t?[A}I?@>i}ɐ?;UUUUU?\.lf8ϘJ?AˀCLgK?C Z-DT! @?@0C?@UDSE]؋E؋U܉Ӂ? Pajjj$艩j$}CmE@tK Pa$}Bm Pa}fUf fUm]EmB?C~ 1./C Pa]؋E؋U܃EEv$QaRa(Ra(RaHRaHRa`Ra`Ra PajjjpvPajj Pa$Yjjj Pa8%Pajj Pa$!%Pajjj Pa$]]Ív-DT! @Za?@?Vcb?RBtp>M,?]?oS?O@~?bU>?Ȱ}gij?7X?}P?ƶ@?kحg?{T"?L??lm4?-VDpx?5ߨɠ8+?8$4a L?.n f? ƍ'¿>5?sA.ӂb?j쑺AՔB?PBü +g?$ N?PDvI?o\G?]@?Ȱ}gijaWZj?|SU?PP?+%@aץ@E?9hs&^?a~H?徜?YO?x6?@>[A}I?u.t?'?ӓ?tbE?@@@@C ZLgK?AˀC8ϘJ?\.lf;UUUUU?i}ɐ?U\WVS}E]EUU]~ v tr;.}}v$膘v}/C*$}yUmD@uRaLvEɃ$}>=Ra$] m]Eu t u ??D$}觗mCi?~0`?~ɸ%RaD:´?~Ra1#ô?~ɸ%Ra Ƀt3vo  RaRaRaRa SaRa SaRaSaSa$Sa,Sa 4Sa =<~;n=;T:4:gg9E87u,<8?R1^>^<[<.@-9@D?r=R;?#Z$\>z̦>>@<5:g8;-?8?n0>T=a 6 P:\=[:պI@?@K?@U4SEU#]> \ajj$[b$}M9mE@tK \a$}"9m \a}fUf fUm]Em>K~ 1*J \a]#EEE$]a0]a@]a@]a`]a`]ax]ax]a \ajjl\aj \a$BVjj \a8%\aj \a$ %\ajj \a$]ȉ]ÐI@ [>@?7gg9T:~;=?#=u,<8E84:n=;?k{9v;GM^>'gf:wq=7<Kz?:?"??#R;r=D?-9@.@g85:@<>z̦>Z$\>6K:T8?;-?@@@@@պ=[:\ P:a 6=>ULWVSu E]̋}~tn,}v$vJ*$}UmD@u]aDEɃ$}O4=]a$n] m]Eu?t@u ?fff?D$}mJ;?~03m>~ɸ%]aD:?~]a1#?~ɸ%]a Ƀt3vo  ]a]a]a]a ]a]a]a]a]a]a]a^a ^a ^a ^a^a^a ^a^a ^a$^a(^a 0^a,^a4^a8^a<^aD^a@^aH^av L^aP^aT^aX^a\^a`^a d^ah^al^ap^a x^at^a'v@`}fUf fUmUEmEE |^a ^a^a^a^a^a^a ^a`^a^a^a^a^a^a8$cavcacacacaca^a^a^a^a]a$}!mv\$}m]mU%^a ^a^a^a^a^a^a^a%$}omم}me[^_]ÐPC&{?`PD?6+Y=PC6+Y=&{?`PD?UDSE]؋E؋U܉щ1ہE% uea}v ea]؋E؋U܉сhȺ]؃)؉E EME$}m ea $ea ea]]ÐL[> >'T5L'T5[> >UDSE]܋E܉1u(fa}v~ ,fa]܋E܉ؐ\ڸ)U EME܃$}9m 4fa 8fa 0fa]]Ð??@?CL>?@@Cu<7~Yn33333?o۶m?M&QUU?A`t?eɓJ?NEJ(~?>UUUUU?lf,%jV?kAФri7f>9B.?C.?9l a\ +eG<: ? ?[/>+eG?`G?D] T>?UUUUUU??`G?D] T>+eG?@CNEJ(~?eɓJ?A`t?M&QUU?o۶m?33333?@ ?[/>: ?u<7~+eGkA,%jV?lf>UUUUU?@UWVSEE]ݝXX\MUԋ]uu܉]Љωu؁eE u uu}ut EmvE}}?C~E}?E~*4E)ډTӭTT;EuK2v}MغT)ډӽTT;EuTET)E}}uS؍ EuEU?~}rEh}ZEN}?u};2}@u"}?u}|$$۽`(ۭ`}uUt t?uA؃}}} Eu v}vUBt Euȁ}Aف}C~<؁?}<؉}*hav?~ȁ? $ha >>U2l>BS>*>a 6U8ݵL13r1?r1?5<83O8v?8v?Ý6;??p6>>??p6;?KBS>U2l>>m>?@@8v?Ý6O8v?Iq<83`B r1?r1?5L13ݵU8a 6*>@ULWVSEU} ]u d~E JE}}@K~ E/?~%)9u E)UuK؁?u E U ?~E E ?uv@u?u}|$|]v$} mЁt t?u=؅}} Eu }vUB Eu΁Mف??~qav qa qa-qa qa-qa qa]̋E%EE1 qa]̋Ẻؐډ؁Ӎ|8?1q~ֳ]~ 1G]Eقqa]E%EE 3EEE qaqaqaqaqaEqaqa]̋E%EEM]̋E%EE qaʉ} qaE qaقqa؂$qa]̋E%EEɐUAJE? u qa]E %EEE M U ]̋]̉ډс~dC~E qa qaCqaEuqE qa qaUC~E qa qapCu&uE qa qaU@؉1p?~LN<%p!EÉ)}߉]̋E%EE qa qa qa qaqararara% raUUW$Y؉UEMUe[^_]?ULWVSEE]ȋEȋỦӉE]ȋEȋỦ։lj]e t~ t v $$}Xm))} ]uv$}OmЃ$};m Eu<u-% xaEuu]ȋEȋỦ]3]]Ee[^_]Ð?ULWVSE E]ɋẺU߾#ut~ v~#$Ƀ$}m9u Ƀ$}=mЃ$})mEu:u+# zaEuu]̋E1EE̍ve[^_]Ð@U(EUE$}$muA$$mu)$}smu%EuM}Uv$}[OmE@te<{aEu؃h9Et"}fUf fUm]EmP ؃huuT]}GU(E u}#muA$#mu)$}zmu$EuM}Uv$}OmE@tb\|aEu؃h9Et"}fUf fUm]EmP ؃huT]Ð?3t<{?3t<{U4SE]EUЉÁ~ |}a]} }a]5@v/>}aE$$=?MUA.@$$[$蠐MUZ]EU3@~3@u9=}w2$ |}a$REU }a]ȉ]Ð?½|?½|U$SEU]~ v~a]}} ~a]Ax1~aEv$w$l?MUjrB$$$đM-DT!?\3&d}fuf fumUEmu@ًE؋U C u$avɁ'?~"}a-aPa aaapa`a aaaxahaXaHa'?~8]EɃ)ЉEESvtDa]EEUEEٍve[^]Ð?I?h!"3>> ]='<7<ik;H޾:&:79E8z8_S7I?h!"3U0VSEE ]]Mʁ1[}fuf fumUEmu7ٍC u$na~Ɂ?,?~"} a-aa aaaaa a aaaaaa?,?~8]EɃ)ȉEE[vtNa]E%EE]E%EEِe[^]Ð@!?-Dt>F<`Qx;9@ %z8"6i5?pAp>p>pA? @?UWVS*EMUY0aJ؉)‰y DžD[+)MxM@1ۉx|uۅݜDŽDŽBxuDžx9x_x1ҋxF;*xMB;~x9~DžxaaW|ٽff f٭۝٭xۅٽff f٭۝٭|ӉFÉxJ`؋S$H a$۽ aDžۭ ٽff f٭ە|٭ۅ|~U)؍ xӽx؋x|) +7utau Dž|Dž~c1txtu"t.Dž)֋4)Ӊxu~2t tdd?u7ჽt(R$۽ GۭD@,O1҉x9|!x Nx9}ػO|uDC8t߉x91xMxۅݜ+xxF;"v]B;~ꋅx9mD@uF؋|O艕<tO苝<tZvP$QEaÈ@ʋ aٽff f٭۝٭ۅٽff f٭۝٭ٽff f٭۝٭G|Mٽff f٭۝٭|Vh?jCx|3avxxy؉xxNp1ۉ+x|;:90xΉ@aC;;~ዅ|Ћx}}}}\}t}x|pxxy] x|pxxyE tܭpDžx9xpxBx9~M QYvx~Dv݄p݄xݜpݜxxxƉx~A݄p݄xݜpݜxxxx݅p~$pɐɋxKxɃuu ݅x^^$vɋE ݅xXX؍X[^_] ?973.P+'"D?C;;C>A?UWVSEMUIaB}By DžM)‰+|A@1ۉX|uۅٜ` DŽ`BXuDžX9XbvX1ҋXF;*X`MB;~X9~DžXHaLaW\ٽff f٭۝٭Xۅٽff f٭۝٭\FÉXJ`؋S$? Pa$۽` TaDžۭ` ٽff f٭ە\٭ۅ\~U)؍ XӽX؋X\) +7utXau Dž\Dž~c1TXTu"t.Dž)֋4)ӉXu~/t tdvd?u7ჽt(R$۽`=ۭ`D@+O1҉X9| X NX9}ػO|uTC:t߉X|9`1XMXۅٜ+`XXF;"v]B;~ꋅX|9m|D@uF؋\O<qO<tWvP$;LaÈ@G Haٽff f٭۝٭ۅٽff f٭۝٭ٽff f٭۝٭Dٽff f٭۝٭2\Sh?:X|5HavXy؉XXH1ۉ\+X;:90X a C;;~ዕ\X}}}}\}t}X|XXyu X|XXyM tحDžX9XXCX9~u V^vX~DvللٜٜXXƉX~AللٜٜXXXم~$ɐɋXJXɃuM مYY$vɋ] م[[؍8[^_]USE]M UPR aQS@ P< U塸 a]US]Sat K]]ÐUVSu] {Tu aCTCTx8u PڷCCC t{uS(uLC);S|S+u+1ҋKB;St C t uSt e[^]ÐUj4jUE}؉]U塸 a`UPR]ÐSunMonTueWedThuFriSatt&'JanFebMarAprMayJunJulAugSepOctNovDec%.3s %.3s%3d %.2d:%.2d:%.2d %d USU] BlPPBPBPB PB@aPB@aPhXaS7؋]]ÐU aHu LHy~8hdu 0v aAHHQED A1]ÐUEjPL]UEjP$L]UEj jPN]ÐUEj jPM]ÐUMU EPRQJ$]ÐUEM URPQ$]ÐUWVSEutF}u;>;]} EWEPU҃} ~C]9ur1e[^_]ÐUE UHt Bs]ÐUVS] ut PVSVͬe[^]U WVS};= aGLt=1ҍvrt؃PW膬uGL~ՃPWkHt#L9tÉ؃PWB9uGTt PW*8t WG<Ѓt PW e[^_]ÍvU WVS}u aEUHt^Kx~vKy6uUBtR9u0C.CM}~0OCAyMt ~ vFCOtv0OCe[^_]ÉUWVSEEU}E] EPEPEPFPj$Rƒ }'uRS4BC} ut.Ct~BCNt}guEe}Gu EE 0NCUECPUЅ}-CEv+CMc~"Q)ˆ0kdC)MgfffM)ˆ0C)MU0Ce[^_]ÐU,WVSE}] auIG#9BP7w$VBTPR}|Ãmu 1v apPXT a‹XTEuaEuEPEPEPWjEPEPEPWj$RU‹E;UsvABC;Ur9} )ω0CIue[^_]ÉUWVS1E]] au;E9BP)ǃGWBTPR蕛Ãu1` axPXT a‹XTEPEPEPEPjuuR蟽;Us FBC;Ur;u}E)0CNue[^_]É-C6?U,WVS]EE EuEuD@u0GnaÈ@rV}蒺mu%U REPFP$WEPEuEPEPEPVj$UREPEPEPVj$EP~ E='uQSQ1t~>AECPNUtH}~~0NECPUЅ~} u9tZ9u0_.C}}&~"0NECPUЅ} ACNt} t~ v0NCe[^_]U WVSU B}] EMu$"$avXaa4apapapapapapapapapapapapapapapapapapapapapapapapapapapapapaXaa4ajuPPQ$SW@uVPSQ$W=vVPQ$SWB؍e[^_]ÐUVUSE ރBAuPSEPbE[^]ÐUVUSE ރBAuSEPe[^]ÐUMU EPRQD]ÐUVSU M]BAt8u[^]PATH/U WVShkaƃt*j/EPP-uj\UR;-tE PURDvU>atz:tE8\uU REPDVW;t:$ a>v$ aPVWt$W.|/thpaW-,URW,E PWDà u 8u-$ at8tщFt8u8uF>c[^_]ÐU a WVSHt^Kx~vKy6u桸 ax<t P@<ЃEP裕UEEÐUEE ÐUVS]t/{Tu  aCTvCTx8u PnC fu 1vtS1S,tCP҃}{ }CPCTP茟S0tC@9tRCTPnC0CDtPCTPPCDfC e[^]UMU EPRQzI]ÐUWEVS]UPRScǃt3jjE P>Iƃ|tE9t  1S7Ãtf{ Etu f{ E fC[C hqaC$qaC(lraC,raEt hthCPCPwtK @؍e[^_]ÍvUE UPR aP]UE]@ fÐUE]@ fÐU(EUEU%y&!}jmD@u]ÐU(EUeEy&!} mD@u]ÐU WVS}uha aPTu  aGTGTx8u P&G tPwtI)7uGG3O @,GvSVGPG$Ѓ~)Å1e[^_]ÐUEEXUEE XUVS]CPSЅ}S 0C @tA u;] v] Sj W{u)^SWUR])] uEEe[^_]ÐUS]{Tu aCTCTx8u P"C]]ÐUMU EPRQ@]ÐUEEÐUE EÐUEUEUEUEU VES]UPRS\ƃt5SjÃt#hEPE PCTP} fC 1XfCfs [C hqaC$qaC(lraC,ratjjS4CP贿tK @؍e[^]ÐUE UPR aP$]UEEEuEUEU%y)Eؐ$$ ]ÐU(EE Eu9UeEy(E$$H]UMU EPRQ^N]ÐUUE PR]ÐU4SE] EP#ƒUEPEEEPS9]ȉ]ÐU WVSE }u 1vUƍ<G9s; u{ uCCF9r9sm; uMMAPQЅ}Q M u  ))}0URP;MQtЈF9rEe[^_]UWVSuu u1Ex}@EUUX9vH)SUPEP U]RZ tE@ @u:)LUZ9wVUPEP_ U)r2B @uEj)jWEPURp1u e[^_]ÐUWVS]{Tu  aCTCTx8u P肜sTEPE PVOEuS19C fu fC &vt SS,t CP҃hEPEPV覼ǃE{ }CPVeCS0CCCCtC@9tRCTPC0C4CDtPCTPCDCH}fC E1AEfC f{lj[C hqaC$qaC(lraC,raPtK @؍e[^_]ÐUMEU PRQ aPd]ÍvUSE]M UPRQSd]]ÐU\WVSu~Tu  aFTFTx8u P薚F ^T%f=u VF(Euv}t}}tzVF u"jjFPU҉ǃu v~PF t+~V~0t+~<Vt t)} EEEV Du VF uO}lrau/f~|(EPFPSvuE%=t N vN FL}u E E,vEPFPS&CU UEE}u;F t~P jjFPU҉ǃF)ljƒ~0t!+~a$ÐUE]>a$ÐU}]ÐUE]>a$ ÐUE]>a$ÐUE]>a$ÍvUE]>a%ÐUE]>a$ÐUE]>a$ÐUE]>a$ÐUE]>a$ÐUE]>a$DÐUUE PR]ÐUE}؉]U VSMu șӉE]| }E)u ~Mu[EU^]ÐUUE PR]Ðaaaaaaaaaa.CvUVSu]t7haSthaSt1vE F0^4ae[^]ÐUXa]UE UPR aP]U塸 aP]ÐUMU EPRQ~]ÐUEt8u1} t v]ÐUVS1]M UtffAftFJu[^]UMU u1'v}u vtff:]UWE M}1҅t OJ!Ѝe_ÐUSWV}u M1t1 ut 1ҊV1G)Ѝe^_[ÐUVWS}Mu v&˃t)у)vكEe[_^UVWS}Mu 9sC\19w;v+˃t NO)FGكNO*v#˃t)у)كEe[_^ÐUWS}E M%uv Љ Ee[_ÐU\WVS} uV;t C;ua)0 K;XtSUK9v/;/uEPWVIE@/}t>hh WVmU|raύvt) t$XEPWV޳t >8]>at(zu aCvuˆn1e[^_]ÉUU MEPRQtU]USE] jSP1҅tڋ]Љ]ÉUEURP aP\tU]ÉUS]jS aP-1҅tڋ]Љ]UMU EPRQފ]Ð: US]U t&:t!C PRC Pha PƒtC PRxC Pj K]]UEP aPx]UMEU PRAPQ=]ÐUSM  a]BPTQSBP9<]]ÐUVSu] C @tG uBCPSЅ},;C| 8 u Sj vSj 1 CPSЅ}.;C|8 u$Sj vSV e[^]ÐUVS]u SB @tZ uUBHJȅ}9SB9B| S8 t(vRj Rj q C CSBHJȅ}=SB9B|"S8 t .vRj RVCC e[^]ÉUEP aP] U0VSu] S5E@]EEE$aEEEEPFPi teȉ[^]UEP aP]U\WVSEuUuE EE} EE }E܋U}9gv}}}[}uMD}&]uvNvu]NCA}E9EvUR+]SߋMуE}E9fE }ENjE HE} %UEUЉE} (M ӉMmEEES4BRMу},VSU҃|GVMQU҃U}2.VSMуVEPU҃}UډUM+]49WSU҃}+VWMу|FVSU҉ƒ؅}3/VWMуVSU҉ƒ}Nj]Eu+])SVMу}/EPSU҃|KMQVU҃}7U2MQSU҃MQVU҃U}ډUWMQU҃}7MQWU҃|[MQEPU҉ƒE}AEu_uWiƃu@EhGƅu!CCK CCCETK }t!}u-K t ؉C vCCT@a@C8tt t 9tt t [)^]ÐUSUu$!€tB:uE PR؋]]UWS1ۋ}] u@ ˉ Ӄ!€u1ȍ!€tэG@t8u8t1e[_USU] بu0 !€t1&9t܉BCt:t)‰[]ÐUUE PR]ÐUVSU uЉ u'Ӌ !€tڊBAu[^]ÐUWVS]} ހ;t't8t At 8u9uC;u)[^_]ÐUWU׹1)׍Ge_ÐUSMȀ9t>at @8u[ȉ]ÐUWVS]u Eu1T>at-;t(>t#CFr t t 9tt t )[^_]ÐUWVSUu ׋]u !€tʍC:t vB:uÃt ur FBu[^_]ÐUWVSUu MtY u?Ӊv29u,t;!€u'v9t։ډIttu1BFI:t)‰[^_]ÐUWVSU }ЋM u3v.v!€tډt IBCuCIu[^_]UVS]u ;u1/t8t At 8u9u C;uڀ9u1ۉ[^]ÐUVSE1ۋu tÍCVPu jPÍe[^]UWVS]} ހ;t't8t At8u9tC;u)[^_]ÐUSE] 8u ;t%1!1Ɋt:u At :t@8u1[]Ð@?5?55?5?U1҉WVSEE EEM-$<aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaEEE8uU U: vEM90uEEM<0t EEE1EE.ELAЉM ELAЉMEGE/~9~Ɖ}Ѓ.EE0uEBE0tAσEỦE1҉EB@Љ|tcŨ~/JvGEEv EEJuՉGUAEv UAE1ҋ|M AЃ uEet Euu }MEEM E+t -uEEEAЃ w~0uEE0tAσwVЉMMEMEEELAЋEM/~9~E+E~E}t]vE vM Mu } E E U)U}u}Љ~E1҉EUmݕHHL ~) _aEUEmݝHHLE}R ~]}EHL݅H h_a^)B9EeHL݅H h_a)UU h_a&}|6]HLM݅H4h_aݝHHL)Eƒt+HL݅H h_aݝHHL$:=4~E"Va5Va1҃~;0`avt'HL݅H ݝHHLB́HL݅H 0`aݝHHLU|S|voPbY؉ƒt+HL݅H4h_aݝHHL$1҃~:X`at'HL݅H ݝHHLBX`aHL݅Hɉ]uݕHHLD@EݕHD@u]E"})zvVSzyHL݅HݝHHL1؋EPWURMQEPqE UMUMvjEPURRvEMQP>w G{t(%=uFuA%1Fu$u %ƁVSaxHL݅HݝHHL݅HE@wvEPURzaÈ@s[t ]vut؃u a5vEu a v a auU]uVS۽`۽PQwۭ`ɉHL݅HۭPݝHHL%=|v&؁}u }*P}@wBÈ@s2a}fUf fUm]EmEEuVS۽`۽Pwvۭ`ɉHL݅HۭPݝHHL%9Eut}fUf fUmUEmEEu ut*aEaEvvaE]؃URMQmEPURm MQEPmURMQqm UBPMQlUEBPЃ PE PV MQEPVSURv EjMQ}oE}|EEE1E}EE}E|v)EM}؍T} 3 v6)UU9~;U~U؅~)U))U؃}~IURMQEPpEURQEPn EURMQ5lEE~WURMQwqE}~EPURMQpE}~EPURMQ7qE}~EPURMQqEEPURMQQrEx @ EPURqƒ uu[؃MQEPKkURMQ;k EPUR(kMQEPk URMQk}tUEHL݅H}t([^_]UE UPR aP\]UE UPR aP<]E]ÐU塸 a\MU PRQ]ÐUWVSE}u u1ZM @v9tAuu 12pM @A9uu1@ u։[^_]ÐU>aWVS}E]  Cu-u E+u Ctu0uattQtQɉ9|}}}tFE" v}tރ}tE }tCU[^_]UEMU PRQ aP]ÐU>aWVS}E]  Cu-u E+u Ctu0uattQtQɉ9|}}E" }tރ}tE }tCU[^_]UEMU PRQ aP]ÐUSMȀ9t>at@8u[ȉ]ÐUVS1UЋ]M ACtFJu9tAF9u[^]ÐUWVS}u ]9}9TD19|9uD[^_]Ð%s/%s%x.%xU WVS]} u PSPEPEPEPhaWS jjWS虅u;Xt1e[^_]t/tmpUVSu] u^VrƒFPRh+ah-aSVKu1vF؍e[^]TMPDIRU WVSu }uauhaבƃu-aVW DPEPWÃt4EPEP趉3EPWVSEPu1v؍e[^_]UE UPR aP<]UEP aP]wb+UWVSPEPƃt(htaV~ǃEVVE1[^_]ÐU塸 aP]UE]ÐUE>at ]ÐUE>at]ÐUWVS}G@W0U9u?hGTP:Vƅthw0G4U3Ky71F_4EPURGTPPƃtSVSw0EG41e[^_]ÐUVSu] {Tu  aCTvCTx8u PaC €fS u.tJt"SYu6c CCK {0t1C49C|St`PPCLvCt9vB9u JC,vCC<C4C8C@SBC0CBCe[^]UEPO]ÐUS] {t SEPǁCC vC1]]UlWVSu}M UGTEG $fEGfEGEG$EčEEEEERQV4Ã|VڻtE@tO @[^_]US]{Tu aCTCTx8u P_EPE PSCTPm]] 00000000000000000123456789abcdef(null)0123456789ABCDEFbug in vfprintf: bad basevUWVS]DžLDž|E @ txuU R\t M A f ufy|EPSQC }|zp}EEDž`DHphDR aPpQHP aP蛄à ~pfz%upp+htEhwEHuMȃ~EPE P- }` pDždDžTDž\DžXƅyppllX$Paa<a<aa<a<a<a<a<a<aaa<aaa<aaaaaaaaaaa<a<a<a<a<a<a<a<a<a<a|a<a<a<a<a<a<a<a<a<a<ada<a<a<a<a<aa<a<aa<a<a<a<a<a<a<a<a<a<a8aa<a<a<aaa<a<aa<aakaa,a<aa<aa<a<aay_ƅy SvdDEMI\,ى\dƅy+ plp*u*EUZXDžXl1$l\AЋplpЃ v։XDžXdh1ۉpl\B ȉlpЃ vԉ\Bd@ p8lu@d pdd EUMhdℊAEGDžPƅyadDžlxwvEMIhu DžhOaX|MXPjhRt+hPX9~0P(XPhRPdO$dd tEMYq3vdud@tEEX1 E1UZ}DžLVa DžL>ad tEEXp0dud@tEUZ1 E1MYdt tdƅyXT|dEh u$dO$}a_EP]UЃ~EPM Q?}[aGEPE(G(EEPUЃ~EPM Q}([aGEPEUЃ~EPM Qz4}(,)‰W(,)EEPUЃEPM Q,1$B$@.GEHEMȃ~EPE Pl}݅E@tH,JWEH,EEHMȃEPE P,K~JaGEPEUЃ~EPM Q}a_EP]vGEPEUЃ~EPM QU}EWEHUMȃ~EPE PY} +~MvaGEHEMȃ~EPE P}a_EP]UЃ~EPM Quh; } }tEPE Psu1E}}tEPU RFuEM A @u[^_]ÉUatDE BhHU zR1M >au덐f%Džt1x3Cxx$a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!aa!a!a!a!a a!a!a!a!a!a4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a!a!a!a!a!a!a!a!a!a!a!a a!a a!a!a!a!a$ a!a!al a!a!a!a!a!a!a!a!a a!a!a a!a!a!a!a!a!a!a a!a a a a, aL a!a!a a!a !ao a a!a!a a!a a!a!a ax1KvE xP^/7 U  95 E ACFHh|ttFЉtjDž`haDždKDž`aDžd(vDž`aVxQP c x 1Dž`aDždtE]hCftEMhAEUhB >atDž`haDžd ] {Sq-J uZE >atIU hBXZ؅~A vE P - U >au$D"aX"a #a$$a$a$(atu Džtt]1ۍvM q;t}*)t1Q,t؅t ?vt+tE ptM QtSjEUBP苒$ hl#vtu DžttY1M <8t3ABXFYtt؅׃Q+tDžEEU Xp <:teE HU CttMM yQf+t;p7$E <8tM ICtu+pl\tu DžttM1v] >au+CBHFKttȅԃS*thEElFXpM >au(ICtty׃Qb*t+plh5tt\v Džt\LtAU 0FՃM+$P%a'as'a'as'as'a&a&a&a&a&a&a&a&a&a&as'as'as'as'as'as'as'a&a&a&a&a&a&as'as'as'as'as'as'as'as'as'as'as'as'as'as'as'as'as'a'as'as'as'as'as'as'as'as'a&a&a&a&a&a&as'as'as'as'as'as'as'as'as'as'as'as'as'as'as'as'as'a'aduDždtD?d? MadfdEad?Avd ~r@tg%vtW9uMDždM CAPQЅ~vM Q'u t}#;LU RCPBsxtXuM QKV uUdPjLRMQ`҉ƒutEMAf EMAl+LDž\tDžPt\v Džt\DžXDžTLtU 0FՃ:$(a)a*a)a)a*a)a)a)a)a)a)a)a)a)a)a*a*a*a*a*a*a*a*a*a*a*a)a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*a)a}X?@}X\]%=tXuXP+\TDžX tCU hBHJȅ~E P$u tXt}yt3;L|vM QKP;LwXvK3hetEtE PKV3hU RV %=u!XP+\ʉT,vTt[j jP@P]Sƒ+TTt29Pr PRhaPR蓨jLQ]S+tEUBvtEMA8vE]Cvlu l([^_]UWVS]  C^u  C1EE}O}JyuCi)ƍvUC-t t ?v]t35C3v]t9}-CvA}99|뵐[^_]ÐUE UPR a@P]ÐUMEU PRAPQ]ÐUUE PR aBPR]ÉUMEU PRAPQe]ÐUhEfEEUEM EE aEREQP‹E]ÍvUtSE fE]EUE]MEEERQPSH‹E]Љ]ÐUtSEfE] EEt CE vEEE aEEPEPEP+…tE]Љ]ÉUtSE fEUE]EtCEEEUEEPEPEPR…tE]Љ]ÐU1]ÍvUEMU PRQ aP]ÍvUlWVSE ]fE}EuEP&EE]EE.aEEVWPSte[^_]ÐUEP]ÐUVS1]M UtCtFJu[^]UUE t 1]ÐUMU EPRQR]ÐUUPR]ÍvU塸 aP]U4S] ESPHjEE$} ]jCEE$|]jCEE$|EE]U]ÐUEP aPh]US] ESPYHCS]Љ]ÐUEP aP]UU MfBfBfBfBfB fB f]ÍvUEP aP]US]PSG]f]ÉU塸 aP]US]PSBG]Љ]U塸 aP]US] ESPFSC]f]ÍvUEP aP]USU$ aM f$ af$ af$ afAfAffǂmfǂfǂfǂ []ÍvUEP aPd]UU Effǀ3ffǀmfǀfǀfǀ ]ÐUEP aP]-csh/bin/shU VSU a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a>a9a8:a>a>a>a>a>a8;a`;a>a>a>a<a>a>a>a>a>at<a>a<a>a=a=ah>a>a>a>a>a>a>a>a9a:a:a;a>a>a>a>a>a;a>a>a;a>a>a@<a>a>a>a>a>a>a<ah=a>aM 1I9G]46aBF~vG16a;E HEv;uG]46aBGF;|M 1I9G]6aBF~wvG16a;^E HEv;u?G]6aBGF;|$E 9 1ҹ46avG]BF~ 1F6avG]BF~GlPPGPGPG Ph^7aPE 9G Ph{7aEPTE 9ZGPh7aEP,E 92Ot uE1F2 *)R)Qh{7aEPvE 9G@Ph7aEPvE 9G@Ph{7aEPwvE 9zGPh7aEPLE 9R  UA vMPF]M7E 9Ph7aEPE 9G$IO)Ӎ)Ph7aEPE H9GPh7aEPFE 9$I+_ډ)))_ډ)Rh7aEP$E 9*1ҹ46avG]BF~ 1F6avG]BF~GlPG Ph7aPE 9PGPGPh7aEP9 E 9s~OQ)ڃkd)dQ)kd)Qh7aEP$E 9s.GlPh7aEP跕E H9r1%U%FM9t AMv]e[^_]Ð ((((( AAAAAABBBBBB CUSE UEPR}Ãu1vC$P$w[؃v<CCv'CCC #vCCC@ RjS谂؋]]ÐU,WVS] uEPUR"vMQsVuC$EEEE ~$EU9UyM a<1P9t G$D8ukO9uAEE9|UM1)ʣ aPuC ȉCVUsU ;E|O WJ QE11ɋuF)ЉEP;= a EEE9EuN VJ QuFE}$waىƒv@KFVCF v*CKFVC F#vCKFV CFABWSUREE aM)MupUB ȉBv E;E|O WJ Qv}M;EuN VJ QuEFE}$weىƒv@KFVCF v*CKFVC F#vCKFV CFABvWSUR~MQuVEuVmS1=UuB$9uM֋A$EEvu$wqًUvOKUCBUv4CMAC A UK#vCKuFCFABVSEP ~SURMQREdM+Mv5U2V UVʃPLPMQF EFEL0UR,RFe[^_]ÐU aWVSPU֋JM΋ aU z= at WEP4Ã39s } a" a a9uM a9P= au  av)‰ aCt )1)VEP4)5 a aS} atX}w a@cvUEeB EBMDD vЃPEP a; av a; av ae[^_]ÉU,WVSE E ~$EEP8P}wXUUmE a a9u Nq 9t"~^ NY EKL7QEvE u UUmowE8E\w [ENvTwE nE8=TwEwE"v=TwE|E vE~E a a v 9t~+U~ME ap9~+U~7M1Nѣ a a@  a@ aH. a a a a|L7UR vw@ a C a aV N aq u [w P8JwP[?Tw Pn.=Tw Pwv=Tw P|v~ a aE9u a G'vUBMIM9t A$9rEX ^ UVsr M}Ee aP9UUu,EM$ɉEMuЍvU҃EUtE  aˋs 9t$~+U$v 9uEUuǍvtL7^ VZ MSQ(5 aE FM1 aPEPKFe[^_]UWVS] EP{YKSу49F$E;5 auWMuC)_ WZ S G= a;  ar aPMQEPKEFEu%C)G= au E _ ‰Z SED0u2F}u= auEx xG G ^ ‰Z S G 9}w=  a a aO W a u [w p8Jwp[?Tw pn.=Tw pwv=Tw p|v~ a a9u  aR9t B$9rZ _ W{z EPuIe[^_]ÍvU WVSu EP/I ax)1p 9|kjEP+ƒ a9uLPEP+uFjEP+ƒ a)ǃ~+ a axEPH1'v a)x)5 aEPHe[^_]ÐUE>at]ÐUWVS}Et/w_Nxvf{ tSU EXNy?uҍe؋E[^_]ÐUUB f t1 R__]ÍvUS]{Tu aCTCTx8u PCC u8t&S^c CCK 8S0t1C@9tRCTPCuvM;uv>t]UZE PUR]E}CE܉]uEEv]Љ]%] ɍ]mۋ%))EE}UU}fWfE9Evu>uM;uv>t]UZEe[^_]InfinityNaN0&?aCoc?`(?yPD?$@@@?UWVSMUE UE] Q@t6ADBEQ@HDBUB@PRMA@}}e vE%=uK]'Eba}uEuEba}$tNEUztЃM$3vED@u'EEba}$t U$baE_ EPEPuuMQ}E t"UME?kEE썸2 ~@U)⍈E U)Ё1҉EUmEݝxx|x|}݅x%baE ba baba}fEf fEmUmEuEE@tME}w!EEh_aEuMEE)X| E] E]}|EEEEUE)UU]} vE}~E1EMEM̃}wt]$eavfafafa4fafa;faEAE}E}}̉} EEEȍxẺ}ԅE@Dv1ҍvBC9vMQD]CDPSuF]UEP2]ÉUS]U Et fxt1)uC҉ƒC PC PRtC]]ÐU WVS] uj$[NjE_ wGGGG \afGfGeG:[^_]ÐUS]‹CHKuw9u{tktK9tP@t9uu'v StjC P҃C PuC PS]]ÍvUu@]UWVSDžE9}FBPB PU P1t qM9|AEEEm@a`EBsAEEEȉm@Йa`\M 9tbUDž 9 }GAPA P M P)t i E9 |"LUDž9vAPPM PkMBPUMUEaPEG a‰AEEEEEaeM E aBBjA@DžDHH@`a` v@G aAEEEEEaeM  aBBAQBBEG aha@PQBE9ONGvB Dž$((@ta`v6 RwAAvUWVSt|@PUUEaUUPtEG a‹BEEEEEaeЍUtEpG aAAjtxtAEEEm@xa` vEtxG attAEEEEEƝaeЍM xpG a|BBtAAPPEG ahax@PxQ3vSvUWVSot|@PUUE`aUUPtEG a‹BEEEEE̞aeЍUtEH aAAj^txtAEEEm@a` vEtxG attAEEEEEFaeЍM xH a|BBtAAPPEG ah`ax@PxQvvU tx‰]UEt @ C1]9exception13bad_exception8bad_cast10bad_typeidbad_allocU% aE% a]9bad_alloc9exceptionbad_allocUUE BG at R]USUE 9tPP6u؋]]US‹]JBEEmEaeEBBCG aJE BEEEEE<aeECH' aJBB@EDžDHDžL|aP@C2 aECEC BB[]US‹]JBEEmEաaeEBBCG aJE BEEEEEaeECH' aJBB@EDžDHDžLXaP@CH# aECBB[]ÉUtS,‹]JBEEmE쪢aeEBBtBCG aJE BEEEEEaeЍECH' aBB[]ÉUE UPR~1҄tU]ÍvU WVSu} ]WVPu%VEJPEPSEPWARA؍e[^_]UWUVSE PRtEE1UE;P EH}tD<D%]D tPEPEPSEPE PBPBЉÃ tv}tf9]tk}taE PjjEPjEPBE PBЉƃ E PjjSjEPBE PBЃ 9t;ut;Eu]1GU;z Ee[^_]9type_info8bad_cast10bad_typeid16__user_type_info14__si_type_info17__class_type_info9exceptionUWVS1}G}ЉG Ä|E [^_]UWVS1}1ۍvىG Ƅ|w@t ƋE 0[^_]ÍvUWVSE ptYUZM N}uWVEPP;uEPEPURUBPEPURUeȉB EEB[^_]ÉU WVS% av[t!;u SE;r;Cs111s9s&[ >P9Us P 9Ur y9r1e[^_]ehU,WVaSE] P)ЉE EU1t Eat)}ֹ1t tEx zt13tzt8"t+B8"t&B8"t!Bttt uBB}UBuuFC CCPR4ƒC PRaƒ CB8zuEPRUЍe[^_]UWVS]uUC@t?F}?E,t?U ED\/$adaHaLaXahaxaadadaܬaaaaDada\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\aȭaaa C vEPSÃEPSMN E MUD\E  vEPSOËU ED\EPS/ÃEPS ËME D\ƒEOvEPSÃEPSËU EfBX4EPSËM EfAXEPSËU EBvjtu U BpM ϋApPu EM \0UBEvfEPS ËU EB JEPSÃEPSMN ME UD\E ى Kve؉[^_]UEU B% aBB BB% a]ÍvUS]jPS]]ÍvUEU BB % aBBB% a]ÍvUS]jPPS]]ÍvU% aSE=% at-9CuC;t C PvS{u.]]ÐUEPP]ÐUWVSEPTt ]STRLu1 `1󫍝`EfETE䉅dTB)r9Ls"jMQSLPL9rLE8zu'\PRL\LTTpBX9Ls7;Ew2XWMQSLPNL9s U9Xv֋} E ([^_]ÐUWV1SE@E%?e;}smӍGEU&U JE U@EtE֋ I@)ȅ|UE};}r11;]sEtCG;}rUe؉Z[^_]Ðbad_allocUWVSE]ЉNjwFESUPEPURU PFPUBЍe[^_]ÍvUE UPP%]ÍvUWVSu] SVtEEtMShaCRjha@P7 t"AjjURjVPR@ShaCRjha@P ÅqiVhaFRjha@P <sxt6VhaFPjh@aF@Pq t X p1ۅt:WhaGPjh@aG@P5 tP Ux vEڋE9E9VWvPW}t>t,VhaFPjhaF@P uUU+vtPVhaFPjhaF@Pc t"AjjURjWPR@VhaFPjhaF@P ƅWhaGPjhaG@P Å`E$Evu1*WhaGPjhaG@P Åu1,VhaFPjhaF@PS ƅE4tE{vt7VhaFPjh@aF@P t X pv1ۅt:WhaGPjh@aG@P tP Ux vEڋM96E9)}u9|9|VW!EEEe[^_]ÍvUMu1%vQhaARjha@P]ÐUtS‹]JBEEmEaeEBBtHCG aJE BEEEEEEaeЍEC< aECBB[]UtSD‹]JBEEmE쒷aeEBBtNCG aJE BEEEEEѷaeЍEC& aECEC BB[]ÉUtS‹]JBEEmE&aeEBBtBCG aJE BEEEEEeaeЍEC' aBB[]ÉUtS(‹]JBEEmE쮸aeEBBtBCG aJE BEEEEEaeЍEC0' aBB[]ÉUtS‹]JBEEmE6aeEBBtBCG aJE BEEEEEuaeЍEC' aBB[]ÉUtS‹]JBEEmE쾹aeEBBtBCG aJE BEEEEEaeЍEC2 aBB[]vUtSƒ=% auzJBEEmELaeEB% aBtGAG a% aaBZEEEEE̕aeЍEA< aBB[% a]xvUtSƒ= % auzJBEEmEaeEB % aBtGAG a % aaBZEEEEE5aeЍEA< aBB[ % a]lvUtSPƒ=(% auzJBEEmE쌻aeEB(% aBtGAG a(% aSaBZEEEEEջaeЍEA< aBB[(% a]ivUtSƒ=0% auzJBEEmE,aeEB0% aBtGAG a0% aaBZEEEEEuaeЍEA< aBB[0% a]svUtSƒ=8% auzJBEEmE̼aeEB8% aBtGAG a8% aaBZEEEEEaeЍEA< aBB[8% a]bvUtSpƒ=@% auzJBEEmElaeEB@% aBtGAG a@% a3aBZEEEEE̵aeЍEA< aBB[@% a]cvUtSƒ=H% auzJBEEmE aeEBH% aBtGAG aH% aӽaBZEEEEEUaeЍEA< aBB[H% a]wvUtS0ƒ=P% auzJBEEmE쬾aeEBP% aBtGAG aP% asaBZEEEEEaeЍEA< aBB[P% a]rvUtSƒ=X% auzJBEEmELaeEBX% aBtGAG aX% aaBZEEEEE̕aeЍEA< aBB[X% a]dvUtSƒ=`% auzJBEEmEaeEB`% aBtGAG a`% aaBZEEEEE5aeЍEA< aBB[`% a]fvUtSPƒ=h% auzJBEEmEaeEBh% aBtGAG ah% aSaBZEEEEEaeЍEA< aBB[h% a]UiUtSƒ=p% auzJBEEmE,aeEBp% aBtGAG ap% aaBZEEEEEuaeЍEA< aBB[p% a]UlUtSƒ=x% auzJBEEmEaeEBx% aBtGAG ax% aaBZEEEEEaeЍEA< aBB[x% a]UxUtSpƒ=% auzJBEEmElaeEB% aBtGAG a% a3aBZEEEEE̵aeЍEA< aBB[% a]UsUtSƒ=% auzJBEEmE aeEB% aBtGAG a% aaBZEEEEEUaeЍEA< aBB[% a]UcUtS0ƒ=% auzJBEEmEaeEB% aBtGAG a% asaBZEEEEEaeЍEA< aBB[% a]ScUtSƒ=% auzJBEEmELaeEB% aBtGAG a% aaBZEEEEE̕aeЍEA< aBB[% a]9type_info16__user_type_info19__pointer_type_info16__attr_type_info19__builtin_type_info16__func_type_info16__ptmf_type_info16__ptmd_type_info17__array_type_infoFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFx5i+.b*0[ *0[ *0[ *0[ *0[ *0[ *0[ FFFF F@呰 חb@;>V;>V~-)=sRn@8$6%n@8$6%n@8$6%j +)=sRn@8$6%n@8$6%Vj +)=sRUj +)=sRQj +)=sRWj +)=sRRj +)=sRTj +)=sRSj +)=sRn@8$6%n@8$6%Pj +)=sRX}lBX}lB0FR KQR KQR KQR KQ"d+.2FyK yK yK yK yK FF1FyK FF FFF FFFyK !d+.FFFFFFR KQyK yK FR KQyK yK 0+)=sR՜.+,Oh+'՜.+, CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 F CPf0 F CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 CPf0 * _,da _,d* _,d+ _,dag _,dF%FB: ` yK yK FH+)=sRyK yK yK yK FFv nrFF4Fi;Yi+-zyK 44*Fʼ"hN@Gp@3"}Te++FFFFFF#F$FFFFF!F"FFF44FFFyK FFFȼ"hN@Gp@糗`F;F9F FBJ7<}iFFFF }Te++@'1nD5KQFʙ^Ai@aUt0 t0 yK yK yK yK yK yK yK FMm8gh FFFFFYtNOF F[ _,dH+)=sRFF(F)FF˼"hN@GpF444ż"hN@GpǼ"hN@GpƼ"hN@GpFFFV ^>;)FF,$4pLؠ.$4pLFFFFF0` FЗ`J`F(R h 7p@8I h 7 Fi;Yi+-zFk7E8+. F F7PByK `O7B5KQ FF F#N-+. {20 {20 U5qLɼ"hN@GpXשFh *'UB5KQ444eF$+.4:F8F4:KQ'FFQbH6k!Pi)? F FFF`k;Yi+-zFj;Yi+-zFj;Yi+-z&FFF0:s *Dw=i;Yi+-zF@Qm6t4` +tN0 4FF F F&FF`= ߏTe++TtUI#RRBnFFFFFFFAJ7<}iF F'FB: ` yK yK yK 0FFFFFFF!FF F FFFF FFFFFF"F F#F FFFFFF FFFFFFF"hN@GpH+)=sRUUE G at R蝞]ÐUUE G at Ry]ÐUVSu] jV=t VaaBaaXaa|>a a a4 a$a3ͫ4m 0aaaЕa'`H aH a a`{ãaaaaf{aa(aT{aT{al{aa(aT{aT{a}{aa(aT{aT{a{aa(aT{aT{a{aa(aT{aT{aal aaaaa at aa,a aXX a'a$Z a 1aa6a=a aBa aHa aQap a[a agaara axa|aX aTERM=cygwinaasome disk file'a%ldaldaldapda'udaudaudayda&~da~da~dada(dadadada!dadadada"dadadada$dadadada#dadadada-dadadada.dadadadapdadaqdadardadasdadatdaeau eaeaeaveaeaw#ea)eax/ea5eay;eaAeazda{daeGea Gea6ea0a a awp``pP`@p0`p ` ` p ٢ gpfeyHiGY*I)9 ) ")` ` p`p`p` v!`"U#j$5%J&'*s'p) U)ޥp*7+p,T`-ip.6`/~Kp0`1gg2r`3GI4R`5'+62`7 889:;۞p?b@opA`BOpCda`D/vpEDC`FXpG$%`GtI`IVJ`K8LMNOwPQapRlS@pTLU pV,oWpX`XpYn`Zp[P`\]2`^_``ica~0bIEc^d)'e=fDpgg&phipjݚkplƷ`mpn`oqpp{`qZrf]`s:tF?`uv/[vpx=xRyz4{|Qp}~3pcpw`BpW`"p7` `j`˹L`h}Jk_,T|p`4^p?@p) `"p`p` ȳ`𝨕`|w`\q?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~'Ta3']a 4'law5'{ax6'al7'ay8'az9'ak:'am;'̽a{<'߽a|='a_>'a`?'aj@' apA'.a}B'?asC'KarD'Za~E'gaqF'wahG'aiH'aI'aJ'anK'aL'ľatM'ѾaoN'a\O'a[P'auQ'avR'aZS'$aT'0aU':aV'DaW'NaB&'Ya'cama*a*a*a*aM2aZ2a`2ag2aq2a|2a2a2a2a2a2a2a2a2a2a2a2a2a3a 3a3acygnus2a2a 3a#3a;3aO3aa3at3a3a3a3a3a3a3a(4aH4ah4a~4a4aCygwinWndClass?91$21fB];޵o @HkIt۱Y\Teh.y=kC-*.gڈʈ]si5O֏Qokna?A6"Ƹ*{׈ "G' a a a  aMa'Pacygwin1S3 a a\ a?a3ͫ4m  a a a a a a a a a a a a a a a a a a a a a a a  a  a( a( a0 a0 a8 a8 a@ a@ aH aH aP aP aX aX a` a` ah ah ap ap ax ax a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a  a  a( a( a0 a0 a8 a8 a@ a@ aH aH aP aP aX aX a` a` ah ah ap ap ax ax a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a  a  a( a( a0 a0 a8 a8 a@ a@ aH aH aP aP aX aX a` a` ah ah ap ap ax ax a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a  a  a( a( a0 a0 a8 a8 a@ a@ aH aH aP aP aX aX a` a` ah ah ap ap ax ax a a a a a a a a a a a a a a a a a a a$a܌aa0a`aԟaaa5ataaaaԟaahaaah&axa4'aaa$aaa aaaaa aa aaaaTalaaa8aaaa a$a<aTaladaaHaLaaaaaaa(aa̎aaaaadaaaa8ah&axa4'aaa$aaa aaaaa aa$aaaaTalaaa8aaaa a$a<aTaladaaHaLaaaaaaa(aa@xaxayaXuaadaaa,aaaaah&axa,aaa$aaaijaaaaa aaaa̯aaTalaaaaĶadaaaaaaapaaHaLaaa@aaaa(aaaHa(aaadaaaaah&adaa aa$aaaaaadaaaaaaa(aTalaaa8aaaa a$a<aTaladaaHaXaaaaaaa(aa aa4aĕaada@a,aaHaada0aaaaaaaaatfaxa,gaiaa$aT?aaAaa3' 8X\;(0pppРؤ<teDk0tzTШt@@\@P,Dd ,L\<Lij̓ga`DȠlL < $Pt,N0PlxP<ld̐}333edei`3k08l̽pFx,x$ 3}QP]$l(@xn\ȾV $T,<lXP1̿4X`1<(<TtLp(tB18|u0XPpHTL0PxiԾ p2TxK8t5 03<tHx|@N {OȬLl\E|DS4UP83R`8`0eBjȕDF` l`p<t )x)) *p****Hx3p0Ld,ؒ7t88 ;@0lkmP ؾ}4Tt R8  Xt diX40Q$8-H-l-,.-/$//P6Э///Nț|e Ee Pe Xe _e ge me te e e e e e e e e e e e e e f f f %f .f ;f Df Mf Uf ^f if sf }f f f f f f f f f f f f f f f f g g g g %g 0g 7g @g Ig Rg [g cg lg ug ~g g g g g g g g g g g g g g g g g g g h h h h !h )h /h 7h @h Fh Rh ]h jh oh vh ~h h h h h h h h h h h h h h h h h i i i i #i *i 3i ;i Ci Ii Pi Wi \i bi mi yi i i i i i i i i i i i i i i i i i i j j j j j %j +j 4j >j Ej Nj Wj aj jj sj {j j j j j j j j j j j j j j j j k k k k !k )k 1k @k Ik Qk Zk bk lk tk k k k k k k k k k k k k k l l l 'l 4l n Dn Mn Sn `n jn sn {n n n n n n n n n n n n n n n o o o o o (o 1o :o Co Mo Vo ^o eo lo to {o o o o o o o o o o o o o o o p p p p )p /p 8p @p Hp Rp Zp cp jp rp xp |p p p p p p p p p p p p p p p p q q q q "q (q .q 5q :q @q Gq Mq Sq Zq aq fq lq qq vq {q q q q q q q q q q q q q q q q q q q r r r !r 'r 0r 9r Ar Jr Tr Xr ]r br hr nr vr |r r r r r r r s )s =s Ps bs }s s s s t +t Bt ]t |t t t t t t u u $u =u ]u u u u u u u v 4v =v Av Iv Qv Xv rv ~v v v v v v v v v v v v v v v v w w w w w w &w -w 4w :w Aw Hw Mw Qw Vw \w cw hw nw sw zw w w w w w w w w w w w w w w w w w w w w x x x x x 'x -x 3x 9x >x Fx Lx Sx Zx cx ix qx wx x x x x x x x x x x x x x x x x y y y y y (y 1y ;y Iy Wy cy my vy y y y y y y y y y y y y y z z z "z ,z 6z ;z Iz Wz cz nz {z z z z z z z z z z z z z z z z z z z { { { %{ 2{ <{ E{ O{ Z{ d{ j{ r{ z{ { { { { { { { { { { { { { { { { { { { | | | | | | "| '| .| 6| <| C| H| O| W| \| c| n| x| | | | | | | | | | | | | | | | | | | | } } } } } %} ,} 2} 9} ?} G} N} U} Z} _} e} k} t} |} } } } } } } } } } } } } } } } } } } } ~ ~ ~ ~ !~ 6~ R~ o~ ~ ~ ~ ~ ~  ! < X n        + G ] y À ڀ   $ 7 D Z w Ё > [ u ˂    3 I ` v Ń ʃ ҃ ك ރ    $ - 2 ; F N W _ g n x ʄ τ Մ ܄   / > Q g v Ʌ Յ ޅ     & 1 ; B L W a i t | Ɔ Ά Ն ݆   * 4 @ K W ^ j w Ň · Շ    ( - 3 9 A I P Y ^ e p w ~ È ψ ׈ ߈     % , 5 < G O V ^ c k p x  ʼn щ ۉ   ( 0 9 A I O U \ b i p y Ɋ ъ ؊     & - 6 = E K R U Y \ ` c   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~cygwin1.dll__argc__argv__assert__assertfail__cygwin_environ__cygwin_user_data__eprintf__errno__f_atan2__f_atan2f__f_exp__f_expf__f_frexp__f_frexpf__f_ldexp__f_ldexpf__f_log__f_log10__f_log10f__f_logf__f_pow__f_powf__f_tan__f_tanf__infinity__main__mb_cur_max__srget__swbuf_abort_abs_access_acl_aclcheck_aclfrommode_aclfrompbits_aclfromtext_aclsort_acltomode_acltopbits_acltotext_acos_acosf_acosh_acoshf_alarm_alloca_alphasort_asctime_asctime_r_asin_asinf_asinh_asinhf_atan_atan2_atan2f_atanf_atanh_atanhf_atexit_atof_atoff_atoi_atol_bcmp_bcopy_bsearch_bzero_cabs_cabsf_calloc_cbrt_cbrtf_ceil_ceilf_chdir_check_for_executable_chmod_chown_chroot_clearerr_clock_close_closedir_closelog_copysign_copysignf_cos_cosf_cosh_coshf_creat_ctime_ctime_r_ctype__cuserid_cwait_daylight_difftime_div_dll_crt0@0_drand48_drem_dremf_dup_dup2_ecvt_ecvtbuf_ecvtf_endgrent_endmntent_endpwent_erand48_erf_erfc_erfcf_erff_execl_execle_execlp_execv_execve_execvp_exit_exp_expf_expm1_expm1f_f_atan2_f_atan2f_f_exp_f_expf_f_frexp_f_frexpf_f_ldexp_f_ldexpf_f_log_f_log10_f_log10f_f_logf_f_pow_f_powf_f_tan_f_tanf_fabs_fabsf_facl_fchmod_fchown_fclose_fcntl_fcvt_fcvtbuf_fcvtf_fdopen_feof_ferror_fflush_ffs_fgetc_fgetpos_fgets_fileno_finite_finitef_fiprintf_floor_floorf_fmod_fmodf_fopen_fork_fprintf_fputc_fputs_fread_free_freopen_frexp_frexpf_fscanf_fscanf_r_fseek_fsetpos_fstat_fstatfs_fsync_ftell_ftime_ftruncate_fwrite_gamma_gammaf_gcvt_gcvtf_get_osfhandle_getc_getchar_getcwd_getdomainname_getdtablesize_getegid_getenv_geteuid_getgid_getgrent_getgrgid_getgrnam_getgroups_gethostname_getlogin_getmntent_getmode_getpagesize_getpass_getpgrp_getpid_getppid_getpwduid_getpwent_getpwnam_getpwuid_getrlimit_getrusage_gets_gettimeofday_getuid_getw_getwd_glob_globfree_gmtime_gmtime_r_htonl_htons_hypot_hypotf_ilogb_ilogbf_index_infinity_infinityf_ioctl_iprintf_isalnum_isalpha_isascii_isatty_iscntrl_isdigit_isgraph_isinf_isinff_islower_isnan_isnanf_isprint_ispunct_isspace_isupper_isxdigit_j0_j0f_j1_j1f_jn_jnf_jrand48_kill_labs_lacl_lchown_lcong48_ldexp_ldexpf_ldiv_lgamma_lgammaf_link_localeconv_localtime_localtime_r_log_log10_log10f_log1p_log1pf_logb_logbf_logf_longjmp_lrand48_lseek_lstat_malloc_matherr_mblen_mbstowcs_mbtowc_memccpy_memchr_memcmp_memcpy_memmove_memset_mkdir_mknod_mkstemp_mktemp_mktime_modf_modff_mount_nan_nanf_nextafter_nextafterf_nice_nrand48_ntohl_ntohs_open_opendir_openlog_pathconf_pclose_perror_pipe_poll_popen_pow_powf_printf_putc_putchar_putenv_puts_putw_qsort_raise_rand_read_readdir_readlink_readv_realloc_regcomp_regerror_regexec_regfree_regsub_remainder_remainderf_remove_rename_rewind_rewinddir_rindex_rint_rintf_rmdir_sbrk_scalb_scalbf_scalbn_scalbnf_scandir_scanf_scanf_r_seed48_seekdir_select_setbuf_setdtablesize_setegid_setenv_seteuid_setgid_setgrent_setjmp_setlocale_setmntent_setmode_setpassent_setpgid_setpgrp_setpwent_setrlimit_setsid_settimeofday_setuid_setvbuf_sigaction_sigaddset_sigdelset_sigemptyset_sigfillset_sigismember_signal_significand_significandf_sigpending_sigprocmask_sigsuspend_sin_sinf_sinh_sinhf_siprintf_sleep_snprintf_spawnl_spawnle_spawnlp_spawnlpe_spawnv_spawnve_spawnvp_spawnvpe_sprintf_sqrt_sqrtf_srand_srand48_sscanf_sscanf_r_stat_statfs_strcasecmp_strcat_strchr_strcmp_strcoll_strcpy_strcspn_strdup_strerror_strftime_strlen_strlwr_strncasecmp_strncat_strncmp_strncpy_strpbrk_strrchr_strsep_strspn_strstr_strtod_strtodf_strtok_strtok_r_strtol_strtoul_strupr_strxfrm_swab_symlink_sync_sys_errlist_sys_nerr_sysconf_syslog_system_tan_tanf_tanh_tanhf_tcdrain_tcflow_tcflush_tcgetattr_tcgetpgrp_tcsendbreak_tcsetattr_tcsetpgrp_telldir_tempnam_time_times_timezone_tmpfile_tmpnam_toascii_tolower_toupper_truncate_ttyname_tzname_tzset_umask_umount_uname_ungetc_unlink_unsetenv_usleep_utime_utimes_vfiprintf_vfork_vfprintf_vfscanf_vfscanf_r_vhangup_vprintf_vscanf_vscanf_r_vsnprintf_vsprintf_vsscanf_vsscanf_r_wait_waitpid_wcscmp_wcslen_wcstombs_wctomb_wprintf_write_writevabortabsacceptaccessaclaclcheckaclfrommodeaclfrompbitsaclfromtextaclsortacltomodeacltopbitsacltotextacosacosfacoshacoshfalarmalphasortasctimeasctime_rasinasinfasinhasinhfatanatan2atan2fatanfatanhatanhfatexitatofatoffatoiatolbcmpbcopybindbsearchbzerocabscabsfcalloccbrtcbrtfceilceilfcfgetispeedcfgetospeedcfsetispeedcfsetospeedchdirchmodchownchrootcleanup_glueclearerrclockcloseclosedircloselogconnectcopysigncopysignfcoscosfcoshcoshfcreatctermidctimectime_rcuseridcwaitcygwin32_attach_handle_to_fdcygwin32_conv_to_full_posix_pathcygwin32_conv_to_full_win32_pathcygwin32_conv_to_posix_pathcygwin32_conv_to_win32_pathcygwin32_detach_dllcygwin32_getsharedcygwin32_internalcygwin32_posix_path_list_pcygwin32_posix_to_win32_path_listcygwin32_posix_to_win32_path_list_buf_sizecygwin32_split_pathcygwin32_win32_to_posix_path_listcygwin32_win32_to_posix_path_list_buf_sizecygwin32_winpid_to_pidcygwin_attach_handle_to_fdcygwin_conv_to_full_posix_pathcygwin_conv_to_full_win32_pathcygwin_conv_to_posix_pathcygwin_conv_to_win32_pathcygwin_detach_dllcygwin_dll_initcygwin_getsharedcygwin_internalcygwin_logon_usercygwin_posix_path_list_pcygwin_posix_to_win32_path_listcygwin_posix_to_win32_path_list_buf_sizecygwin_set_impersonation_tokencygwin_split_pathcygwin_stackdumpcygwin_umountcygwin_win32_to_posix_path_listcygwin_win32_to_posix_path_list_buf_sizecygwin_winpid_to_piddifftimedivdlclosedlerrordlforkdll_crt0__FP11per_processdll_dllcrt0dll_entry@12dll_noncygwin_dllcrt0dlopendlsymdrand48dremdremfdupdup2ecvtecvtbufecvtfendgrentendhostentendmntentendpwenterand48erferfcerfcferffexeclexecleexeclpexecvexecveexecvpexitexpexpfexpm1expm1ffabsfabsffaclfchmodfchownfclosefcntlfcvtfcvtbuffcvtffdopenfeofferrorfflushffsfgetcfgetposfgetsfilenofinitefiniteffiprintffloorfloorffmodfmodffopenforkfpathconffprintffputcfputsfreadfreefreopenfrexpfrexpffscanffscanf_rfseekfsetposfstatfstatfsfsyncftellftimeftruncatefwritegammagammafgcvtgcvtfget_osfhandlegetcgetchargetcwdgetdomainnamegetdtablesizegetegidgetenvgeteuidgetgidgetgrentgetgrgidgetgrnamgetgroupsgethostbyaddrgethostbynamegethostnamegetitimergetlogingetmntentgetmodegetpagesizegetpassgetpeernamegetpgidgetpgrpgetpidgetppidgetprotobynamegetprotobynumbergetpwduidgetpwentgetpwnamgetpwnam_rgetpwuidgetpwuid_rgetrlimitgetrusagegetsgetservbynamegetservbyportgetsocknamegetsockoptgettimeofdaygetuidgetwgetwdglobglobfreegmtimegmtime_rgrantpth_errnoherrorhstrerrorhtonlhtonshypothypotfilogbilogbfindexinet_addrinet_atoninet_makeaddrinet_netofinet_networkinet_ntoainfinityinfinityfinitgroupsinitstateioctliprintfisalnumisalphaisasciiisattyiscntrlisdigitisgraphisinfisinffislowerisnanisnanfisprintispunctisspaceisupperisxdigitj0j0fj1j1fjnjnfjrand48killkillpglabslacllchownlcong48ldexpldexpfldivlgammalgammaflinklistenlocaleconvlocaltimelocaltime_rloglog10log10flog1plog1pflogblogbflogfloginlogoutlongjmplrand48lseeklstatmallocmatherrmblenmbstowcsmbtowcmemccpymemchrmemcmpmemcpymemmovememsetmkdirmkfifomknodmkstempmktempmktimemmapmodfmodffmountmprotectmrand48msyncmunmapnannanfnextafternextafterfnicenrand48ntohlntohsopenopendiropenlogpathconfpausepcloseperrorpipepollpopenpowpowfprintfpthread_atforkpthread_attr_destroypthread_attr_getdetachstatepthread_attr_getinheritschedpthread_attr_getschedparampthread_attr_getschedpolicypthread_attr_getscopepthread_attr_getstacksizepthread_attr_initpthread_attr_setdetachstatepthread_attr_setinheritschedpthread_attr_setschedparampthread_attr_setschedpolicypthread_attr_setscopepthread_attr_setstacksizepthread_cancelpthread_cond_broadcastpthread_cond_destroypthread_cond_initpthread_cond_signalpthread_cond_timedwaitpthread_cond_waitpthread_condattr_destroypthread_condattr_getpsharedpthread_condattr_initpthread_condattr_setpsharedpthread_continuepthread_createpthread_detachpthread_equalpthread_exitpthread_getconcurrencypthread_getschedparampthread_getspecificpthread_joinpthread_key_createpthread_key_deletepthread_killpthread_mutex_destroypthread_mutex_getprioceilingpthread_mutex_initpthread_mutex_lockpthread_mutex_setprioceilingpthread_mutex_trylockpthread_mutex_unlockpthread_mutexattr_destroypthread_mutexattr_getprioceilingpthread_mutexattr_getprotocolpthread_mutexattr_getpsharedpthread_mutexattr_gettypepthread_mutexattr_initpthread_mutexattr_setprioceilingpthread_mutexattr_setprotocolpthread_mutexattr_setpsharedpthread_mutexattr_settypepthread_oncepthread_selfpthread_setcancelstatepthread_setcanceltypepthread_setconcurrencypthread_setschedparampthread_setspecificpthread_sigmaskpthread_suspendpthread_testcancelptsnameputcputcharputenvputsputwqsortraiserandrandomrcmdreadreaddirreadlinkreadvreallocrealpathrecvrecvfromreent_dataregcompregerrorregexecregfreeregsubremainderremainderfremoverenamerewindrewinddirrexecrindexrintrintfrmdirrresvportsbrkscalbscalbfscalbnscalbnfscandirscanfscanf_rsched_get_priority_maxsched_get_priority_minsched_getparamsched_getschedulersched_rr_get_intervalsched_setparamsched_setschedulersched_yieldseed48seekdirselectsem_destroysem_initsem_postsem_trywaitsem_waitsendsendtosetbufsetdtablesizesetegidsetenvseteuidsetgidsetgrentsethostentsetitimersetjmpsetlocalesetlogmasksetmntentsetmodesetpassentsetpgidsetpgrpsetpwentsetrlimitsetsidsetsockoptsetstatesettimeofdaysetuidsetvbufsexeclsexeclesexeclpsexeclpesexecpsexecvsexecvesexecvpeshutdownsigactionsigaddsetsigdelsetsigemptysetsigfillsetsigismembersignalsignificandsignificandfsigpausesigpendingsigprocmasksigsuspendsinsinfsinhsinhfsiprintfsleepsnprintfsocketsocketpairspawnlspawnlespawnlpspawnlpespawnvspawnvespawnvpspawnvpesprintfsqrtsqrtfsrandsrand48srandomsscanfsscanf_rstatstatfsstrcasecmpstrcatstrchrstrcmpstrcollstrcpystrcspnstrdupstrerrorstrftimestrlenstrlwrstrncasecmpstrncatstrncmpstrncpystrpbrkstrrchrstrsepstrsignalstrspnstrstrstrtodstrtodfstrtokstrtok_rstrtolstrtosignostrtoulstruprstrxfrmswabsymlinksyncsysconfsyslogsystemtantanftanhtanhftcdraintcflowtcflushtcgetattrtcgetpgrptcsendbreaktcsetattrtcsetpgrptelldirtempnamtimetimestimezonetmpfiletmpnamtoasciitolowertouppertruncatettynamettyslottzsetumaskumountunameungetcunlinkunlockptunsetenvusleeputimeutimesvfiprintfvforkvfprintfvfscanfvfscanf_rvhangupvprintfvscanfvscanf_rvsnprintfvsprintfvsscanfvsscanf_rwaitwait3wait4waitpidwcscmpwcslenwcstombswctombwprintfwritewritevy0y0fy1y1fynynf, T Е   0 @ L ` p ̖   , @ X d | ؗ   ( D X l Ș ܘ  8 L d x Й  , D d t Ԛ   , @ T h | ě   , H X h ܜ $ < L ` l | ԝ   , D X h x ̞   ( < P ` p ԟ   8 L d t Ԡ  ( 8 T h x ġ ء   ( 4 D T h x Т $ < T ` x Е   0 @ L ` p ̖   , @ X d | ؗ   ( D X l Ș ܘ  8 L d x Й  , D d t Ԛ   , @ T h | ě   , H X h ܜ $ < L ` l | ԝ   , D X h x ̞   ( < P ` p ԟ   8 L d t Ԡ  ( 8 T h x ġ ء   ( 4 D T h x Т $ < T ` x BackupReadBackupSeek BackupWrite BeepClearCommBreakClearCommErrorCloseHandle(CopyFileA-CreateDirectoryA1CreateEventA4CreateFileA5CreateFileMappingA?CreateMutexACCreatePipeDCreateProcessAGCreateSemaphoreAJCreateThreadUDeleteCriticalSectionWDeleteFileA\DeviceIoControlaDuplicateHandledEnterCriticalSectionyEraseTapezEscapeCommFunction{ExitProcess|ExitThread~ExpandEnvironmentStringsAFillConsoleOutputAttributeFillConsoleOutputCharacterAFindCloseFindFirstFileAFindNextFileAFlushConsoleInputBufferFlushFileBuffersFlushViewOfFileFreeEnvironmentStringsAFreeLibraryGetACPGetCommStateGetCommandLineAGetComputerNameAGetConsoleCPGetConsoleModeGetConsoleOutputCPGetConsoleScreenBufferInfoGetConsoleTitleAGetCurrentDirectoryAGetCurrentProcessGetCurrentProcessIdGetCurrentThreadGetCurrentThreadIdGetDiskFreeSpaceAGetDriveTypeAGetEnvironmentStringsGetEnvironmentVariableAGetExitCodeProcess GetFileAttributesA GetFileInformationByHandleGetFileSizeGetFileTypeGetFullPathNameAGetLastErrorGetLogicalDrives GetModuleFileNameA"GetModuleHandleA+GetNumberOfConsoleInputEvents-GetOEMCP.GetOverlappedResult/GetPriorityClass:GetProcAddress@GetProcessTimesMGetStartupInfoAOGetStdHandleVGetSystemDirectoryAXGetSystemInfoZGetSystemTime\GetSystemTimeAsFileTime]GetTapeParameters^GetTapePositiondGetThreadContextjGetTickCountmGetTimeZoneInformationqGetVersionrGetVersionExAtGetVolumeInformationA~GlobalAllocGlobalFreeGlobalLockGlobalUnlockInitializeCriticalSectionInterlockedDecrementInterlockedExchangeInterlockedIncrementLeaveCriticalSectionLoadLibraryALoadLibraryExALockFileLockFileExMapViewOfFileMapViewOfFileExMoveFileAMoveFileExAMultiByteToWideCharOpenEventAOpenFileMappingAOpenMutexAOpenProcessOpenSemaphoreAOutputDebugStringAPeekConsoleInputAPeekNamedPipePrepareTapePulseEventPurgeCommQueryPerformanceCounterQueryPerformanceFrequencyReadConsoleInputAReadConsoleOutputA ReadFileReadProcessMemoryReleaseMutexReleaseSemaphoreRemoveDirectoryAResetEventResumeThread#ScrollConsoleScreenBufferA)SetCommBreak+SetCommMask,SetCommState-SetCommTimeouts3SetConsoleCtrlHandler6SetConsoleCursorPosition@SetConsoleModeFSetConsoleTextAttributeGSetConsoleTitleAKSetCurrentDirectoryAOSetEndOfFilePSetEnvironmentVariableARSetErrorModeSSetEventTSetFileApisToANSIUSetFileApisToOEMVSetFileAttributesAXSetFilePointerZSetFileTime\SetHandleInformation_SetLastErrordSetNamedPipeHandleStateeSetPriorityClassjSetStdHandlelSetSystemTimenSetTapeParametersoSetTapePositionqSetThreadContextuSetThreadPrioritySleepSuspendThreadSystemTimeToFileTimeTerminateProcessTlsAllocTlsFreeTlsGetValueTlsSetValueTransmitCommCharUnlockFileUnlockFileExUnmapViewOfFileVirtualAllocVirtualFreeVirtualProtectVirtualQueryWaitCommEventWaitForMultipleObjectsWaitForSingleObjectWideCharToMultiByteWriteConsoleOutputAWriteFileWriteProcessMemoryWriteTapemark KERNEL32.dllQ;Q;0Q;HX 4VS_VERSION_INFO?StringFileInfo040904B00CompanyNameRed Hat`FileDescriptionCygwin POSIX Emulation DLL,FileVersion1.3.28 InternalNamecygwin1.dllbLegalCopyrightCopyright Red Hat. 1996-2000@ OriginalFilenamecygwin1.dll.ProductNameCygwin0ProductVersion1.3.2&APIVersion0.394SharedMemoryVersion3PRegistryKeyCygnus Solutions\Cygwin>BuildDate2001-05-20 23:28DVarFileInfo$Translation h1t11223334444445&565;5B5P5a5g5l5s555555555555555666!6&6-6;6H6N6S6Z6h6s6y6~6666668888889<9e9q9z999999999 :>:T:y:::(<. >>>>>>>>>> ??3?v>>>>>.?>>>>>>7?@?O?X?y?????????@0)0;0J0O0Y0f000000-11112 222%2)2/232=2C2M2Q2W2[2e2n2x2|2222222224-494B4R4W4d4j4o4u444444455'5}555566#66666666668888888999999 ::':,:3:F:R:W:^:<0<\<<<=Q===>$>)>0>>> ???p??????P;02W22222P3\3a3h334%41464=444445Z555555.6I6666666 777V7+8@888 990:A:O:[:`:g:y:::;;;6;r;;;;;;<)<0???`00000001g2o22333#40484A4k4y4444555"5*5<5D5I5P5c5m5t55556-6666667 77777888'878D8X8h8y88$9":4:_:d:::::;;;9;Y;<8=<=@=D=H=L=P=T=X=\=`=d=h=l=p=t=x=|========>>>>>p"02070>0M0000011"1'1.1;1p111222#2223E3U3Z3a33 4$4e4u4z444*5D555556G6W6\6c666-7=7B7I7u788f889 99l9999 :2:i::;(=7=<=C=Q=`=e=l= >>&>g>|>>>>>q????? 111$1V2\2r2z22222223M4y45*595C5N5X56666666677#7+70777F7R7W7^78%848<8G8Y8h8p8u8|88888899 :7:U:::::::;^;<<<<< =={====>3>;>@>G>>;?y?~????U0^0f0k0p0000011d122)2?2b222222&3I3\3x444445c6o66666O7d777778+8;8@8G8T8999"999999:::>:C:J:::::;77777777888 88888 8$8(8,8084888<8@8D8H8L8P8T8X8\8`8d8h8l8p8t8x8|888888888888888888888888888888888999 99999 9$9(9,9094989<9@9D9H9L9P9T9X9\9`9d9h9l9p9t9x9|999999999999999999999999999999999::000 0$0(0,0004080<0@0D0H0L0P0T0X0\0`0d0h0l0p0t0x0|000000000000000000000000000000000111 11111 1$1(1,1014181<1@1D1H1L1P1T1X1\1`1d1h1l1p1t1x1|111111111111111111111111111111111222 22222 2$2(2,2024282=2I2U2a2m2y222222222222 33!3-393E3Q3]3i3u333333333333444)454A4M4Y4e4q4}444444444445 55%515=5I5U5a5m5y555555555555 66!6-696E6Q6]6i6u666666666666777)757=7E7M7U7]7e7m7u7}77777D >>$>0><>H>T>`>l>x>>>>>>>>>>>>?? ?,?8?D?P?\?h?t??????????1a1n1x111111111111112E2W2g2l22e3y333344444 5C5M5g55 757B7T7\7a7h7w77777777888888889i99999&:4:=:B:L:;;<<)=F=K=R=`=v={======">'>.><>E>u>z>>>>>???????????00000001(1@1v1111112222 333)334 44 4X4j4q4444444\5k5p55555555566)6H6Q6[6d6n6666788'8B8Z8l8x8}8888::::::;;,;4;9;C;_;o;;;;;;;;<+<0<:<_>=>I>N>X>m>y>~>>>> ?1?0000%0+0=0W0d00000001.1F1W1]1b1l1222222#323W3h33333334(4]4j4o4y444444*565;5E55555646B6P6g6s6x6667777 8880858B8K8T8Y8_8j8t888888888889 9 9299999999::::::::; ;;;";(;2;2>3111111112 2272I2\2q2|222222222333 3-3:3E3P3V3e3u333333333333#4}444444444444444455#555'6?6U6|6666667::;;!;;;;=====s>>>?000011 222272>2[2r23{333333+4B4G4N455F6q6{666666777"7)77,9;999999::B:G:N:;7;<;C;;;;;V<<===N={====1>=>B>I>V>c>h>o>y>>>>>000 11111111j444445555666'6666667F7K7U7_77777777888=8I8N8U888889(9@9X9p999u::::;;;;;1s>>>?? 0 00E0u01%1Y1u11U223d3l3q3{334#4(4/494445 5555556666@7O7T7[7h7788888.999D9:::;;';-;2;<;f;k;u;;;;<<6<;??00000`2s222222223'3P3\3z33/4:4C4I4N4U46M77777788=9k9s9x99999: ::-:2:_:d:::::.;=;Z;_;f;??????@000012 2444444444l5|66667V8a8y8~8899:::R:d?h?l?p?t?x?|?????????????????????????????????P000 00000 0$0(0,0004080<0^0d0h0l0p0t0x0|000000000000000000000000000000000111 11111 1$1(103?3H3N3 55%5+5N5^5c5j5!:.:w:;;%`000000000 11111 1$1(1,12333:4J4O4V4555777t88888888889:I:N:X:::::::::========X>t>|>>>>>>>p333;4a4E5c5k5555555555*6J6m66688888"9-92979>9V9a9f9k9r999::%:*:/:6:F:e::::::::::;;;;Z;j;o;v;;;;;;;;;; <(<-<7<<<<,>4>9>@>^>j>r>w>~>>tQ0_0g0l0s000|1111123&3.3Q3Y3^3e3e44q55666688$8+8Y9w9|99:;+<@>>>>>\?h?????????pZ1b1g1n1x111112444*7S8m88g:p::::g;w;|;;;;<<<<<=.=3=:=====M>U>Z>a>>>?????x1111[2h222222=3B3L333334445555599$9.9s9{999B;T;Y;c;m;;;;;;=>S>X>_>>>??M?R?\?f?R2a222222p3333Z4i4n4u44444556/6:6K6W6p6667O8`8e8l889:: :':\:h:m:t:;;;;;;;<< <<"<'<.<&=7=<=C=r=z=============>>>>>>>>> ?Y????????H0W00000011^12222222333334 44&42474>4^4j4o4v444444445555555b6v66666666678888E9M9R9Y999c;k;p;w;;;;;<====?? ?$?(?,?0?4?8?->2><>Z>f>>>>>>?/?4?H?P?w?|?????T0a0l00000 1111222)2N3Z3_3i3333333364>4C4M444G5O5T5^5777880959?999999#:>:F:K:U:~::: ;;$;);3;A;p;;}<<<<<>4?_??????????0 0$0J0R0W0a0n00000"1R1Z1_1i1s111111122$2.2;2W2n2s2}2222222333&3^4r4w44445 556555555577778;8s888888"9*9/9999999999:\:d:i:s:: ;;;;;;;<< =V==== >9>]>>>>>>>?? 000000000I1k1H2c2v2{222h333333366666666777&7K7S7X7b7777777778 888H8W8\8f88888979<9F9[9j9o9y9 :!:&:0:: ;;;; <<<=====>+>>>-?t?y??00%00K1111 22734 444 6%6/6Y6m6r6y6788$8+8J8k8p8z888888 ; ;%;,;{;;;;;;;;; <<l>q>x>>>>>>>>??.?:?F?N?S?Z?@81(14191@1M1Y1h1m1t1111111111 22!2>2b2z2222222333333333344666677!7+7A7K7T7e7y7777888<8c8k8t888888889929=9E9J9Q9s9999 :M:::::; ;;";';,;G;M;S;Y;_;{;;;;;;;;;;;;<4>>>>>??%?*?1?Q?`?e?o?|????????P(000047s9;<*f>n>>>?>?X?n?~????p@0000000000 111"1'191B1G111n22139:;=000091D111I2Z222B3}334A4u44444565B5555555556 656\6x6666677T7`7i7}777I:l:|:<^=>>>>/161?1E2~2222333333394C4R4h4u44445525?5Q5V5`55566!6&606P6q6}6666666666667b777:::::m;;;;;<<<<U>e>j>?????1B2333333@4O4[4g4l4s4444445@5E5|55555!6,65666666m7r777 8/878<8C8U8y888888:.:3:::a:m:y:~::::::::::;;;;;;;;;<< <<'=>=C=J=n=v={=========== >>>>>>>>>>????#?5?X?p???u1111112)21292E2M2R2Y22$42474>44444444444 5555+666<6A6H6U6l6q6{666667777777 999%99*:2:7:>:::;; <<<>>? ???!?)?1?9?}?????????01!1)11191A1I1Q1Y1a111111222222234'4,434i4p5{5555H6S6a6f6m667.7:7?7F7Q77777788$8(8-82888=8B8H8L8Q8V8]8d8i8p8x8|88888889999999::::::;%;?;h;};;;;R======&>.>9>>>E>r>>>>>>>]?}???0-0209011.131:111111222222J3X3_3f3l3r3333344p4x4445?5555555V6667#7*7s7~7777p8|88888888888C99:%:A:F:M:X;d;r;y;;;;;;;;;+<<< =%=*=1=>,>6><>A>F>P>u>>>>?L0030;022#3Y333344444>5y599::J;; ===8>P>i>>x???#0<00(11112 22$2=2k222222233333333'484M4R4Y4N5\5c5j5p5v5555676H6T6Y6`6v7777888%878s8{88888889999.9m9u9z9999999 : :5:D:I:P:b:;;==x11 222-262=2222222c3r3z333333333.4?4s4{4444 5884.>N>S> l0012 22&272z222 333%3i333394E4J4Q444444$5*569&9X999:R;;<*>&?8?=?D??????0000,0w00n1122&2Q3333345'575v5556!6=6Y6u666667)7E7r778'878Q8a8q888;9999L;X;d;i;p;;;'<<>>>@80000!1,1\1133C4R4W4^4t4444444445*5F5u5555555555626B6G6N66666677S888889W9b::::::<<<<<<<<<<= ==A=z====>>>>?????P0011%181L11111P2U2Z2_2+3\333334H4\44444455E555555566%6:66-7:7?7D7I7q77 8?8Q8d8v889 999-9=999999:: ::,:::S:a:m::;c{>>>(?m?`0w0%22223333b3t3344 44[4`4e4j4o4^55556<6A6h6s66667777999999::::::6;<<<<===2===== ?G?Z?p0111122$2+2D3L3Q3X333333g444445$6[6`6d6h6l6p6t666668E8J8Q8z8899999999:&;B;a;i;w;|;;;;<<7=[=~===>>>>>??1?6?=????20J0`00000001m11111>2Z222'455666#60656;667 7777N99999999K:::;; ;T>!>@>T>`>i>s>>>>>>>>>>>>>>>>??!?&?/?E>k>q>>>>>??"???????PR0r0000[1i1p1w1}11122234#4P4<<<<= =(=7=Y=s=y== ??/?u??00*010C0P000a11222o3x3333333333333333333333333333333444 44444 4$4(4,4044484<4@4D4H4L4P4T4X4\4`4d4h4l4p4t4x4|444444444444444444444444444444444555 55555 5$5(5,5054585<5@5D5H5L5P5T5X5\5`5d5h5l5p5t5x5|55556N6]6j66666667$7L7a7o7y7777777777777777777777777777888 88888 8$8(8,8084888<8@8D8H8L8P8T8X8\8`8d8h8l8p8t8x8|888888888888888888888888888888888999 99999 9$9(9,9094989<9@9D9H9L9P9T9X9\9`9d9h9l9p9t9x9|999999999:<:D:Y:b:p:x::::::::C;;;<<<<> >>!>5>:>T>~>>>>>.?:?n??????060t000001122222444P5U5Z5_5,676h6t6y6666o99t;;;;;;;;< >,>E>X>l>q>x>>>>>>>>?? ?%?w???t50E0k0041Q11142m22233b4445'83888?8889@9t99>>>?0y11X2j2p2u2|222n4L555555566#61777777'858:8A888889999-929B9G9W9\9l9q9999999 ;,;1;8;B;;;< <<)<<===$>5>:>A>>>>>>D0w1t2233333444585*6B6G6N699999;;;;;>5> <s0{0000112324.5`5^6677889 :;2<6=J>^??0`I5Q5V5]55N6)81868=89$9T9n99997;; <>#>*>a>i>n>u>@)0D0O0W0\0c000,1>1C1J122333 3;3T3`3e3l3333333p44444455A5F5M5e55566666677777C8Z8g8r888)99;+;:;?;F;;;;;;;;;< <<o>>>>>>??`1111112(2D2I2S222223333344#4(424I4^4f4k4u4e7m7r7|77777;8s889999m;;;4&>+>5>V>b>g>q>>>>>>>>>????+?3?8?B??p 00000001122V222223$3)333t333333334#4(424|4444444456,6D6677 77F7N7S7]7778888d9k9r9::!:(:::::::::+;0;o;;p=z===>>>v???>0H0O0111U2]2b2l2y22222s3z33K4R4Y4#5*515@6L6Q6[6666637;7@7J777788b8n88888 999 9F9N9S9]9m999999#:+:0:::N:V:[:e:::(<2<\>>c?j?q?C0J0Q011122223 3%3/3C3X3]3g333333444o4{4444444d6n666777778 88'888=8G8g88888888899$9.9W9_9d9n99999K;w;;;;;;;;;;< <:C>H>R>f>m>>u????????S0^0f0k0u00000y1111 222"22222X3^3334A4F4P4^44445555666777888*:/:4:J:^:d:p:;;F>>??1?0[0000000082G2d2222$3,31383[3l3q3x333333333333444#4L4T4Y4`444444444i5r5y55555555536<6c67999999A:z::::::;$;);0;C;s;;;;;;<<'<2<>>>>>>? ??R?????????? 00 111511112 22"2p2222223333333344a4z444555555666666*767B7G7N7b777B8-:9:A:F:M:e::::::::::;;;?;G;O;V;l;x;<"<9 >>>*>2>7>A>O>[>j>r>w>>P000000000011131I1N1X1e1v111111111111112222222223#33383B3b3q3v33333344!44494C4485J5T5\5e5o5{555555555Q6\6b6h6m6w6666666677>7F7R7W7a7G8Z8x8}88889V9p9z99999:::::::::;;(;;;;;;q%>0>>? ??$?2?t0000000011111b22222?3K3P3W333334 7 ;;;&;,;2;D;c;k;q;x;;;;;;;;i<<<<<<=>3>C>>>??? 0r000152`2Q3 44#4*4T444c56667^7778888899):4:v::::::; ;A;;;;;;;<>======b>>>>>>>?-???J?????? 0111$1T11111222)292W222222223334393C3P344444444455&5.5<5A5K5m5r5|5555555555555666'678`8v8{8888888889:;;;;;;;;;;;;;;;<<<<"<`1>Q>[>|>>>G?]?k?q?y??0,G00111C2I2V2d2|222z<<#>S>?@0'010E0111111122(2-242R2Z2_2f2s222222H33333334=4E4J4Q4g4y4~444445 5!575<5C56 666#6b6r66666667 7'717A7J8X8_8f8l8r888888M9l9t9}9999999999h:::f;n;;;;i >5>:>J>_>d>k>>P(000000000001111R1i11111222222223323J3O333333344444444 555%53585p555555555 6"6/646;666667771767m777777&83888?89999999:(:Q:c:h:o:|::::::;/;P;\;a;h;;O:>f>>;?H?W?d?k?p?w????????`h0v0}000002222"2(2:2Q2V22222222233 33v33334o4}4444444a55556)6.656&747;7B7H7N7`7y7~7777777 8 80858<8I8888899[:i:p:w:}::::::;;;";/;Q;~;;;;*<8= >>!>(>.>4>F>????p0;00000+11112W4o4t4{44444444555555555L6Z6a6h6n6t6666C7778$92999@9F9L9^999999[:~::::::.;;;@;G;T;n;v;{;;;T<<<<<<<<< =4=N=S=Z======= >>>>??????X0"0001111 1$1(1,1014181<1@1D1H1L1P1T1X1\1`1d1h1l1p1t1x1|111111111111111111111111111111111222 22222 2$2(2,2024282<2@2D2H2L2P2T2X2\2`2d2h2l2p2t2x2|22222223L3Y333333333333333333444 44444 4$4(4,4044484<4@4D4H4L4P4T4X4\4`4d4h4l4p4t4x4|444444444444444444444444444444444555 55555 5$5(5,5055566J6d666677)78*8/868C8R8`8l8z888888899 9%9,9>9F9K9R99999999:::2:J:z:::;;N;h;;;1<>[>p>>>>>????????0+0007000171E1q11112222"2(2:2T2222223&444;4B4H4N4`4y4~444)55555566F6t6666666\7j7q7x7~77778888888u99999992:@:G:N:T:Z:l:::::1;;;;<<<<<<<<<4?B?I?P?V?\?n???????000$03080?0Q00000001W1_1d1k11111122$2+2=2Y22222$3,31383O33333333444$4?4R4Z4_4f4s4444444#5,5H5M5T5a555Q6]6e6u6666l7z77777777E8R888888888 99999999:1:Q:e:u:::::::);7;>;E;K;Q;c;; <<<<%<7<<<<<<<=<>>>>>>>>>?o??11111111,2y23$3+32383>3P3|3455555555666666666666677f7777778v8I9_9e9j9q9&:.:3:::;;;;;;&=.=3=:=>>>?"?>?C?J?Y?01.1L1X1d1i11!282D2I2P2r222222293J3O3V33333V4s44445V5j5o5v5555555,6D6Q6~6666667S7777768J8O8Y888899F99999::::9;S;e;;; <<<*<>A>K>Z>~>>>>>?7?E?o?}?????000]0w00000011*1<111.2@222"34333w6666P7X7c7i7n7x777778889#9>:G:;<2><>>>>>>>???`U0[1x11111111223 33)3q3344F5Z5l55<88o9999999999:;;<<<-=T1412477777758:8D888888 99994:9:C:::::::E;J;T;<<=&=p666666667 7777 888$8L8Q8X888999:D::;;;<<> >6666667(7M7778J8V8[8e8\:h:m:w::::::::::: ;;X;p;|;;;;3<@>>? ??(?4?9?C? 80D0Y0e0j0t0~000001111222'212F2c2h2r22222 4444i4444445 555A5F5P5Z5v555599999999:X:i:n:u:::2;S;;;;;;;e<<<<<4=Q=q========>/>B>J>O>V>d>>>>>?? ?'?R?????????001F1111111122 2'2R2`2e2l222222233-353I3m33333h4m44444444445,5=5T555555556 66!677777777a8v88888889 9929>9F9K9U9999999::::;;!;&;0;J<<<<<<<== ======= >.>3>?>G>V>^>c>m>>>???"?5?:?D?q?~???@00!010J0Z0_0|00000011C1]1u1z11111133-363M3U3\3f3k3q333333344!4+4?4I4^4h4r4~4444444444'555I5l5r5x5~555555555555666(636=6F6K6Q6Y6b6m6r666666666666666666666677 777 7$7,70787<7D7H7P7T7\7`7h7l7t7x77777777777777777777777885;=;`;f;o;;;;;;;;;;<0<=1F1N1V1^1f1n1v1~111111111111111112222&2.262>2F2N2V2^2f2n2v2~222222222222222223333&3.363>3F3N3V3^3f3n3v3~333333333333333334444&4.464>4F4N4V4^4f4n4v4~444444444444444445555&5.565>5F5N5V5^5f5n5v5~555555555555555556666&6.666>6F6N6V6^6f6n6v6~66666661778888n9997::;^;00?H?_?j?s??p!090P0Z0c00585@5P5f5p5|555555556666*666@6H6P6\6h6t6|66666777)757?7G7O7]7e7q7}777777777777888*828:8a8;$;0;<;F;N;V;b;n;x;;;;;; << <(<0<<>>">K>>>P1 1(181N1X1d1p1z111111111222(20282D2P2\2d2v222222333'3/373E3M3Y3e3q3}333333333333444"4M466(646>6F6N6Z6f6p666666777 7(747@7L7T7h7z7777777888%8-898E8Q8]8g888888888888 999G999:R:j:~:::::Z;;;;;;;;===>>A>I>W>_>l>v>~>>>>>>???"?*?J?{?????<1b1t1111111112#2F2`2p2v22222222 33#344V55667 7)777888W999%:<:F:::;5;;;;;<A>J>S>{000k1111122222333334.44 5$5566&616Z6r66-7E77818:8E8q8809i99(:j::::::o;;;[<<<<<<=>>>??W??? 0J0a0j000_111111w2222233333 4)4555567717R7Z7l7777777777889"99:&:=:^:f:x::::::::::X;;;;]>>>m???60]0@1h1111111 2~2222330356'626:6T667?7J7R7m7728Z8c889B9K9C;K;k;;/<7>> >,>8>B>H>T>\>p>x>>>>>>>???#?-?Z?h?u???????????0001 11$101:1@1L1T1h1p1111111222!2+2V2d2q2}2222222222l3p4:6B6t66666666666.7<7N7Z7f7r7~7777777"8088809V9\9h9t999999999 ::":.:::D:Q:]:e:::::>&>>>>>>>$?C?I?U?_?e?m?w??????F1~1122!292A2h22222222222334444!505?5V5h55556 6E7T7c7r777777 8n8t8~889v99::;*;6;@;J;\;h;;>$>.>4>Z>j>r>x>>>>>?E?M???800111111 2*2T22 33 3*3<3H3d377777888V8\888888%9-990::; ;;$;,;D;b;;`<<<<<=== >>??????`01090X0000000012N2X2c2i22222223 3&3<3i3e67,>H>e>>>>>>>>>> ? +0:031_1e1q1}11111111122?4D4T4Y4h4m4u4z477$7)787=7E7J77x99999999: ::,:U:;;<3<94>?H?N?Z?b?r?}??????@X000001 111d2i2x2}222223H555 666797?7(8<89;;;Y<<<<<==P1a111111222 222*292Z2b2o22255Q6l66666667 77 7,787B7L7r7|77777777777778 8868<8H8T8`8l8v8|888889 999+979C9M9U9_9m9y9999999999999:i::::::::;<<<<==== =$=(=,=2=B=R=p=z====??`50P0m000000000111&101V1`1l1x111111111111122 2,282D2P2Z2`2l2x222222333'31393C3Q3]3i3u333333333333M4c4i4u44444^5~5555^66667;<<<$<2<<>>)>1>{>> ??U?[?p00)0O0U0a0m0u0044(40484F4P444J5V5b5n5z5555566"6d666667#7)7P7V77778#8/8;8C8W89:;====>>*?9?X??d0K1n1x111111111112 2,223333334 44(4.4:4B4T4\4|445@7H78388;;%==4u011223J6q67;8:: ;;<<<<=>??14A4L4d445(55}77777777777777777777777777777777888 899":>:m:::;v;<= ==~=>>>D12222>3c677778O89%<=2>h>>>>?/?H?_?w????<X0\0`0d0h0l0p0t0x0|000001134.5]556T68U8800012233r4555556X6886<<<@b>>>>J?f???0 002S4g4J5P5T5X5\5`5d5h5l5p5t5x5|555555555555555555555555555555555666 66666 6$6(6,6064686<6@6D6H6L6P6T6X6\6`6d6h6l6p6t6x6|666666666666669:::<=,>:???$0012O4c4F5L5P5T5X5\5`5d5h5l5p5t5x5|555555555555555555555555555555555666 66666 6$6(6,6064686<6@6D6H6L6P6T6X6\6`6d6h6l6p6t6x6|666666666666699S<>> >>>>> >$>(>,>0>4>8><>@>D>H>L>P>T>X>\>`>d>h>l>p>t>x>|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>??? ????? ?$?(?,?0?4?8??]?0<,00111(2~2222233444444X5c5554686<6@6D6H6L6666666666677'8,8084888<8@8D8H8L8P8T8X8\8`8d8h8l8p8t8x8|888888888888888888888888888888888999 99999 9$9(9,9094989<9@9D9H9L9P9T9X9\9`9d9h9l9p9t9x9|9999:A:l::::&;N;;;<.<<<>@1S11245'5\5j5p5|555555 66j6p6w6}666677788"8)8:8>8D8H8o88889$909992:c:m::; ;;;F;_;;;;;1:>I>R>m>~>>I?P 0}0|1111223339`P0033334444@5555555666607=77778 8899h99::pX33%7=778]8u888889 :4:M:t::::H;;;d<< ===>>9>Q>>>>?0?5??81001o112<<<<<<===4=8=?=J=i==j>>?dQ5|5556Z66666667v99:::;V;;;;;;h<<<=/=m====>>e>{>>>>???V???=0E000151D1r11112 2N2c222229:7:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<<< <<<<< <$<(<,<0<4<8<<<@>>?6?E?2222$343[3k333+4;4i4y4444 5E5U5y5555666667>7M777778<8^8m88888/9L9n9}9999:(:E:U:e:m:q:::::::; ;;.;=;K;h;;;;;;;;;<%<5>%>->1>N>]>k>>>>>>>>> ?(?E?U?e?m?q???????0 00.0=0K0h0000000001%151E1M1Q1n1}1111111122+2H2e2u2222222233%3-313N3]3k333333333 4(4E4U4e4m4q4444 n<<@121V111112"232j222223 323g333333<4h44444586A6L6Q6a6f6k6w66666666666666 777$7)7.7:7H7Q7\7a7q7v7{77777777777778888'888A8L8Q8a8f8k8w888888888888899 99(919:9E9J9Z9_9d9t9y9~9999999999999::::':8:A:L:Q:a:f:k:w:::::::::::9;=?,=2I6_6p6t6x6|66666666666 000003333<4@4D44444444444444444555 55 5$5(5,505@5D5H5L5p6t666666666667777,70747H7L7`7d7x7|77777777770848p8|88888888888888888888888888899 9999 9$9(9094989<9D9H9X9\9l9p9999999999999999 : :4:H:d:p::: d2p2|222222222223 33$303<3H3T3`3l3x33333333333344 4,484D4d4p4|4444555 55555 5$54585<5@5D5H5L5P5T5555555666 66666 6$6(6,606 7$7(787D7p77777:::::::::::::;;; ;;;;; ;$;(;,;0;4;8;<;@;D;H;L;P;T;X;\;`;d;h;l;p;t;x;|;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<<< <<<<< <$<(<,<0<4<8<<<@>> >>>>> >$>(>,>0>4>8><>@>D>H>L>P>T>X>\>`>d>h>l>p>t>x>|>>>>>>>>>>>>>>>>>>>>>8? >>>$>,>4><>D>L>T>\>d>l>t>|>>>>>>>>>>>>>>>? ???$?,?4?>$>,>4><>D>L>T>\>d>l>t>|>>>>>>>>>>>>>>>>>? ???$?,?4?0K0W0d0p0}00000000000111,181E1Q1^1j1w111111111112 22&222?2K2X2d2q2}2222222222233 3,393E3R3^3k3w333333333334 44&434?4L4X4e4q4~4444444444455 5-595F5R5_5k5x5555555555 00)0/0Q0W0i0o000000000!1'1A1G1i1o11111111122!2'2Q2W2222222 331373Y3_3y33333333441474Q4W4y44444444 5595?5Y5_5555555556696?6Y6_6y66666666667797?7Y7_77777777788I8O8y8888 $0 00%020>0K0W0d0p0}0000 $00!0'0I0O0q0w0000000 (0 00"0,080B0N0X0d0n0z00000 (00!0'0I0O0i0o0000000 11 0 00$000<0H0T0`0l0 001070Y0_0y0000 |0 00#0.0:0E0Q0\0h0s0000000000000 11 1+171B1N1Y1e1p1|111111111111222(242?2K2V2b2m2y222 |00!0'0A0G0a0g00000000011!1'1I1O1i1o1111111221272Q2W22222222233!3'3A3G3i3o33333330 00!0'0A0G0a0g0000000000011)1/1I1O1i1o111111111 22)2/2I2O2i2o22222222233331373I3O3a3g3333333333344@ 400!0'0A0G0i0o00000000011!1'1A1G1P 0 00%0` 00!0'0p 0 00"0,080 00!0'0A0G0 0 00%0 00)0/0 ,0 00"0,080B0N0X0d0n0z0000000 ,00)0/0I0O0i0o000000000110.ws2_32_info.wsock32_info.advapi32_info.advapi32_text.netapi32_info.netapi32_text.ntdll_info.ntdll_text.secur32_info.secur32_text.user32_info.user32_text.wsock32_text.ws2_32_text.iphlpapi_info.iphlpapi_text.ole32_info.ole32_text.kernel32_info.kernel32_text.winmm_info.winmm_textgoo-0.155/c/dlgrt.h0100644000175000017500000000166407536011452013432 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #undef FUNFOR #undef FUNCODEDEF #undef EXT #undef DEF #undef VARREF #undef VARSET #undef BOUNDP #undef VARREF_OR #define FUNFOR(x) static P x##I(REGS) #define FUNCODEDEF(x) static P x##I (REGS regs) #define LOCNAM(x) x##V #define EXT(x, m, n) static DLVAR_DAT LOCNAM(x) = { n, m, PNUL }; #define DEF(x, m, n) static P x = PNUL; static DLVAR_DAT LOCNAM(x) = { n, m, PNUL }; #define BOUNDP(x, d) (P)YevalSast_evalYPbinding_boundQ((P)&LOCNAM(x)) #define VARREF(x) YevalSast_evalYPbinding_value((P)&LOCNAM(x)) #define VARSET(x, v) YevalSast_evalYPbinding_value_setter((P)v, (P)&LOCNAM(x)) #define VARREF_OR(x, d) (P)YevalSast_evalYPbinding_value_or((P)&LOCNAM(x), (P)d) #undef DYNEXT #undef DYNDEF #undef DYNREF #undef DYNSET #define DYNEXT(x, m, n) EXT(x, m, n) #define DYNDEF(x, m, n) DEF(x, m, n) #define DYNREF(x) VARREF(x) #define DYNSET(x, v) VARSET(x, v) goo-0.155/c/dllentry.c0100644000175000017500000000161607535167102014146 0ustar vomjomvomjom#include BOOL WINAPI DllMain( HINSTANCE hinstDLL, // handle to DLL module DWORD fdwReason, // reason for calling function LPVOID lpReserved ) // reserved { // Perform actions based on the reason for calling. switch( fdwReason ) { case DLL_PROCESS_ATTACH: // Initialize once for each new process. // Return FALSE to fail DLL load. break; case DLL_THREAD_ATTACH: // Do thread-specific initialization. break; case DLL_THREAD_DETACH: // Do thread-specific cleanup. break; case DLL_PROCESS_DETACH: // Perform any necessary cleanup. break; } return TRUE; // Successful DLL_PROCESS_ATTACH. } extern void load_module_dl (void); __declspec(dllexport) void LoadModuleDl(void) { load_module_dl(); } goo-0.155/c/grt.c0100644000175000017500000006202307745062622013110 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #ifdef _CYGWIN32__ #define WIN32 #endif #define IN_GRT_C #include "grt.h" #if !defined(MSWIN32) && !defined(_MSC_VER) #include #include #include #endif #if defined(_MSC_VER) #include #include #include #include #include #endif extern P Ynil; /* DEBUGGING */ P YPbreak(char* message) { #if defined(macintosh) Debugger(); #elif defined(WIN32) extern void __stdcall DebugBreak(void); DebugBreak(); #else int *ptr = (int*)0; printf("%s\n", message); *ptr = 0; /* generate a memory fault */ #endif return PNUL; } P unbound () { // YPbreak("unbound binding"); return PNUL; } extern void println (P adr); P YPinvoke_debugger(P condition) { printf("ERROR: "); println(condition); YPbreak(""); } /* STACK */ extern P YLmetG; extern P YLgenG; extern P YLlstG; extern P YPpair (P, P); extern P Yunknown_function_error; // FIXME: gives args backwards. Rewrite in goo. P YPdo_stack_frames (P fun) { DEFREGS(); P* xfp = REG(fp); while (xfp != REG(stack)) { P* nfp = *xfp; P args = Ynil; P f = *(--xfp); PINT numargs = (PINT)(*(--xfp)); PINT i; for (i = 0; i < numargs; i++) args = YPpair(*(--xfp), args); CALL2(1, fun, f, args); xfp = nfp; } return YPfalse; } /* OBJECT */ unsigned long nallocd = 0; /* BYTES TOTAL ALLOCATED */ unsigned long nsallocd = 0; /* BYTES STACK ALLOCATED */ int any_stack_allocp = 1; INLINE P _allocate (unsigned long size, int atomicp) { nallocd += size; if (size > 100000000) YPbreak("ALLOCATE: BAD SIZE"); if (any_stack_allocp) { DEFREGS(); if (REG(stack_allocp)) { P res = (P)REG(sp); PINT nwords = ((size - 1) / sizeof(P)) + 1; nsallocd += size; REGSET(sp, REG(sp)+nwords); /* bzero(res, size); */ return res; } } if (atomicp) return((P)GC_malloc_atomic((size_t)size)); else return((P)GC_malloc((size_t)size)); } INLINE P allocate (unsigned long size) { return _allocate(size, 0); } INLINE P allocate_atomic (unsigned long size) { return _allocate(size, 1); } INLINE P stack_allocate (unsigned long size) { DEFREGS(); P res; int old_stack_allocp = REG(stack_allocp); REGSET(stack_allocp, 1); res = allocate(size); REGSET(stack_allocp, old_stack_allocp); return res; } #define OBJECT_DATA_SIZE (sizeof(OBJECT_DATA)) INLINE P YPraw_alloc (P size) { return allocate((unsigned long)size*(sizeof(P))); } INLINE P YPobject_of (P class, P size) { PINT i; P obj = allocate(((PINT)size + 1) * sizeof(P)); for (i = 0; i < (PINT)size; i++) YPprop_elt_setter(Ynul_prop, obj, (P)i); YPobject_class_setter(class, obj); return obj; } extern P YPclass_prop_len(P); INLINE P YPclone (P x) { PINT i, size; P c, y; c = YPobject_class(x); size = YPiu(YPclass_prop_len(c)); y = YPobject_of(c, (P)size); for (i = 0; i < (PINT)size; i++) YPprop_elt_setter(YPprop_elt(x, (P)i), y, (P)i); return y; } /* DEBUG */ P YPPROP_ELT (P x, P i) { return YPprop_elt(x, i); } P YPPROP_ELT_SETTER (P z, P x, P i) { return YPprop_elt_setter(z, x, i); } /* REP */ extern P YLrepG; P YPPrfab (P len, P fill) { PINT i; P obj = allocate(((PINT)len + 2) * sizeof(P)); YPprop_elt_setter(len, obj, (P)REP_LEN_OFF); for (i = 0; i < (PINT)len; i++) YPprop_elt_setter(fill, obj, (P)(i + REP_DAT_OFF)); YPobject_class_setter(YLrepG, obj); return obj; } /* TUP */ extern P YLtupG; P YPPtfab (P len, P fill) { PINT i; P obj = allocate(((PINT)len + 2) * sizeof(P)); YPprop_elt_setter(len, obj, (P)REP_LEN_OFF); for (i = 0; i < (PINT)len; i++) YPprop_elt_setter(fill, obj, (P)(i + REP_DAT_OFF)); YPobject_class_setter(YLtupG, obj); return obj; } /* STR */ extern P YLstrG; P YPPsfab (P len, P fill) { PINT i; P obj = allocate_atomic((2) * sizeof(P) + ((PINT)len + 1)*sizeof(PCHR)); PSTR str = (PSTR)YPrep_dat(obj); YPprop_elt_setter(len, obj, (P)REP_LEN_OFF); for (i = 0; i < (PINT)len; i++) str[i] = (PCHR)(PINT)fill; str[(PINT)len] = (PCHR)0; YPobject_class_setter(YLstrG, obj); return obj; } P YPsb (P pstr) { PSTR str = (PSTR)pstr; PINT len = strlen(str); P obj = allocate_atomic((2) * sizeof(P) + ((PINT)len + 1)*sizeof(PCHR)); PSTR dat = (PSTR)YPrep_dat(obj); YPprop_elt_setter((P)len, obj, (P)REP_LEN_OFF); strcpy(dat, str); YPobject_class_setter(YLstrG, obj); return obj; } P YPsb_with_len (P pstr, PINT len) { PSTR str = (PSTR)pstr; PINT i; P obj = allocate_atomic((2) * sizeof(P) + ((PINT)len + 1)*sizeof(PCHR)); PSTR dat = (PSTR)YPrep_dat(obj); YPprop_elt_setter((P)len, obj, (P)REP_LEN_OFF); memcpy(dat, str, len); dat[len] = 0; YPobject_class_setter(YLstrG, obj); return obj; } /* This is a lot more correct than calling YPsb directly. ** XXX - Fix uses of YPsb. */ static P cstr_to_pstr (char *cstr) { size_t buflen; char *raw_pstr; buflen = strlen(cstr) + 1; raw_pstr = allocate_atomic(strlen(cstr)); strncpy(raw_pstr, cstr, buflen); return YPsb(raw_pstr); } /* CLOSURES */ ENV envnul = (ENV)PNUL; unsigned long env_nallocd = 0; INLINE P ENVFAB (int n) { unsigned long snallocd = nallocd; ENV env = allocate(sizeof(ENV_DATA) + ((n - 1) * sizeof(P))); env_nallocd += nallocd - snallocd; env->size = n; return env; } P YPvm_fun_env_fab (P n) { return ENVFAB((int)n); } P FABENV (int size, ...) { int i; ENV env = ENVFAB(size); va_list ap; va_start(ap, size); for (i = 0; i < size; i++) ENVPUT((P)va_arg(ap, P), env, i); return (P)env; } P FUNINIT (P fun, int n, ...) { int i; va_list ap; va_start(ap, n); for (i = 0; i < n; i++) FUNENVGET(fun, i) = va_arg(ap, P); va_end(ap); return fun; } unsigned long fun_nallocd = 0; extern P YPib(P); extern P YPclass_prop_len_setter(P, P); /* TODO: TEMP */ INLINE P FUNSHELL (int d, P x, int n) { DEFREGS(); P fun; unsigned int snallocd = nallocd; int old_stack_allocp = REG(stack_allocp); REGSET(stack_allocp, d); // YPclass_prop_len_setter(YPib((P)4), YLmetG); fun = YPclone(x); fun_nallocd += nallocd - snallocd; FUNENVSETTER(ENVFAB(n), fun); REGSET(stack_allocp, old_stack_allocp); return fun; } P FUNFAB (P x, int n, ...) { int i; va_list ap; unsigned long snallocd = nallocd; P fun; // YPclass_prop_len_setter(YPib((P)4), YLmetG); fun = YPclone(x); FUNENVSETTER(ENVFAB(n), fun); fun_nallocd += nallocd - snallocd; va_start(ap, n); for (i = 0; i < n; i++) FUNENVGET(fun, i) = va_arg(ap, P); va_end(ap); return fun; } /* CALLS */ // INLINE OBJECT STACK_PAIR(P h, P t) { // OBJECT pair = (OBJECT)stack_allocate(3 * sizeof(P)); // pair->class = YLlstG; // YPprop_elt_setter(h, pair, (P)0); // YPprop_elt_setter(t, pair, (P)1); // return pair; // } P _CALLN (REGS regs, int check, P fun, int n, ...) { int i; P res; va_list ap; va_start(ap, n); INC_STACK(n); for (i = 0; i < n; i++) REG(sp)[- i - 1] = va_arg(ap, P); va_end(ap); PUSH((P)(PINT)n); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(n+2); return res; } #if defined(_MSC_VER) DEFTVAR(msc_calln_regs); P _MSC_CALLN (int check, P fun, int n, ...) { REGS regs = (REGS)TREF(msc_calln_regs); int i; P res; va_list ap; va_start(ap, n); INC_STACK(n); for (i = 0; i < n; i++) REG(sp)[- i - 1] = va_arg(ap, P); va_end(ap); PUSH((P)(PINT)n); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(n+2); return res; } #endif /* NLX */ void print_frame_count () { DEFREGS(); int i; UNWIND_PROTECT_FRAME ptr = REG(current_unwind_protect_frame); for (i = 0; ptr != REG(top_unwind_protect_frame); i++) ptr = ptr->previous_unwind_protect_frame; printf("FRAME COUNT = %d\n", i); } P do_exit (REGS regs) { P value; BIND_EXIT_FRAME frame = (BIND_EXIT_FRAME)FUNENVGET(FUNREG(), 0); LINK_STACK() ARG(value, 0); UNLINK_STACK() // handle all unwinds. If any unwind handler calls a non-local exit // itself, it may longjump out of here. while (REG(current_unwind_protect_frame) != frame->present_unwind_protect_frame) { UNWIND_PROTECT_FRAME upf = REG(current_unwind_protect_frame); REGSET(current_unwind_protect_frame, REG(current_unwind_protect_frame)->previous_unwind_protect_frame); CALL0(1, upf->cleanup_fun); } // do the jump frame->value = value; REGSET(sp, frame->sp); REGSET(fp, frame->fp); REGSET(vsp, frame->vsp); REGSET(vfp, frame->vfp); REGSET(vpc, frame->vpc); REGSET(vfn, frame->vfn); REGSET(vnm, frame->vnm); longjmp(frame->destination, 1); return(PNUL); /* NEVER RETURNS BUT KEEPS COMPILER HAPPY */ } P MAKE_BIND_EXIT_FRAME () { DEFREGS(); P *osp = REG(sp), *ofp = REG(fp); P *ovsp = REG(vsp), *ovfp = REG(vfp); P *ovpc = REG(vpc), *ovfn = REG(vfn), *ovnm = REG(vnm); BIND_EXIT_FRAME frame = (BIND_EXIT_FRAME)stack_allocate(sizeof(BIND_EXIT_FRAME_DATA)); frame->sp = osp; frame->fp = ofp; frame->vsp = ovsp; frame->vfp = ovfp; frame->vpc = ovpc; frame->vfn = ovfn; frame->vnm = ovnm; frame->present_unwind_protect_frame = REG(current_unwind_protect_frame); return((P)frame); } extern P YLanyG; // creates non-local exit label P with_exit (P fun) { DEFREGS(); BIND_EXIT_FRAME frame; P exit; int old_stack_allocp = REG(stack_allocp); REGSET(stack_allocp, 1); frame = MAKE_BIND_EXIT_FRAME(); exit = YPfab_met (&do_exit, YPsig(YPpair(YLanyG, Ynil), YPfalse, YPib((P)1), YPfalse, Ynil), YPfalse, Ynil, YPfalse, YPfalse); FUNENVSETTER(FABENV(1, frame), exit); REGSET(stack_allocp, old_stack_allocp); if (!setjmp(frame->destination)) return CALL1(1, fun, exit); else return frame->value; } // creates finally handler P with_cleanup (P body_fun, P cleanup_fun) { DEFREGS(); P value = YPfalse; UNWIND_PROTECT_FRAME frame = (UNWIND_PROTECT_FRAME)stack_allocate(sizeof(UNWIND_PROTECT_FRAME_DATA)); /* print_frame_count(); */ frame->previous_unwind_protect_frame = REG(current_unwind_protect_frame); frame->cleanup_fun = cleanup_fun; REGSET(current_unwind_protect_frame, frame); value = CALL0(1, body_fun); REGSET(current_unwind_protect_frame, REG(current_unwind_protect_frame)->previous_unwind_protect_frame); CALL0(1, cleanup_fun); return value; } /* BOXES */ unsigned long box_nallocd = 0; extern P YLboxG; INLINE P BOXFAB(P x) { unsigned long snallocd = nallocd; P* box = (P*)allocate(2 * sizeof(P)); box_nallocd += nallocd - snallocd; YPobject_class_setter(YLboxG, box); BOXPUT(x, box); return box; } /* SYMBOL TABLE */ extern P YPclass_name(P); extern P YPsym_nam(P); extern P YPfun_info_name(P); extern P YPmet_info(P); P YPmet_name (P fun) { return YPfun_info_name(YPmet_info(fun)); } char* type (P adr) { if (adr == PNUL) return "UNBOUND"; else { int tag = tag_bits(adr); P class; switch (tag) { case adr_tag: class = YPobject_class(adr); if (class == PNUL) return "UNBOUND"; else if (tag_bits(class) != adr_tag) return "BOGUS"; else { P class_name = (P)YPsym_nam(YPclass_name(class)); if (class_name == NULL) return "DYN"; else return (char*)YPsu(class_name); } case int_tag: return ""; case chr_tag: return ""; case loc_tag: return ""; } } } #define MIN(x,y) ((x)<(y) ? (x) : (y)) extern void print_kind(P, int, int); void print (P adr) { print_kind(adr, 0, 0); } int max_depth = 3; int max_length = 10; void print_kind (P adr, int prettyp, int depth) { if (depth < max_depth) { char* typename = type(adr); int t = tag_bits(adr); if (adr == 0x0 || strcmp(typename, "UNBOUND") == 0) { printf("UNBOUND"); return; } else if (adr == YPfalse) { printf("#f"); return; } else if (adr == YPtrue) { printf("#t"); return; } else if (adr == Ynil) { printf("()"); return; } switch (t) { case int_tag: printf("%d", untag(adr)); return; case chr_tag: printf("%c", untag(adr)); return; case loc_tag: printf("&0x%lx", tag((P)untag(adr), 0)); return; default: break; } if (strcmp(typename, "") == 0) { printf("%ld", (PINT)YPprop_elt(adr, (P)0)); } else if (strcmp(typename, "") == 0) { printf("%c", (char)(PINT)YPprop_elt(adr, (P)0)); } else if (strcmp(typename, "") == 0) { printf("&0x%lx", YPprop_elt(adr, (P)0)); } else if (strcmp(typename, "") == 0) { INTFLO x; x.i = (PINT)YPprop_elt(adr, (P)0); printf("%f", x.f); } else if (strcmp(typename, "") == 0) { printf("%s", YPsu(YPprop_elt(adr, (P)0))); } else if (strcmp(typename, "") == 0) { print_kind(YPclass_name(adr), 0, depth); } else if (strcmp(typename, "") == 0) { printf("\""); printf("%s", YPsu(adr)); printf("\""); } else if (strcmp(typename, "") == 0) { P ptr; int j; printf("("); for (ptr = adr, j = 0; ptr != Ynil; ptr = YPprop_elt(ptr, (P)1), j++) { if (j != 0) printf(" "); if (j < max_length) { print_kind(YPprop_elt(ptr, (P)0), 0, depth + 1); } else { printf("..."); break; } } printf(")"); } else if (strcmp(typename, "") == 0) { int j, n; n = (PINT)YPtlen(adr); printf("#("); for (j = 0; j < n; j++) { if (j != 0) printf(" "); if (j < max_length) { print_kind(YPtelt(adr, j), 0, depth + 1); } else { printf("..."); break; } } printf(")"); } else if (strcmp(typename, "") == 0) { int j, n; n = (PINT)YPrlen(adr); printf("#<"); for (j = 0; j < n; j++) { if (j != 0) printf(" "); if (j < max_length) { print_kind(YPrelt(adr, j), 0, depth + 1); } else { printf("..."); break; } } printf(">"); } else if (strcmp(typename, "") == 0) { OBJECT p = (OBJECT)adr; int j, n; P* v = (P*)YPtag(YPuntag(p->values[0]), 0); // TODO: USE ALIASES n = (PINT)YPuntag(p->values[1]); printf("#<"); for (j = 0; j < n; j++) { if (j != 0) printf(" "); if (j < max_length) { print_kind(v[-j], 0, depth + 1); } else { printf("..."); break; } } printf(">"); } else if (strcmp(typename, "") == 0) { ENV env; int j, n; printf("(MET "); print_kind((P)YPmet_name(adr), 0, depth + 1); print_kind(FUNSPECS(adr), 0, depth + 1); /* env = (ENV)YPprop_elt(adr, (P)FUNENVOFFSET); n = env->size; if (n > 0) { printf(" ["); for (j = 0; j < n; j++) { P val = ENVGET(env, j); if (j != 0) printf(" "); if (j < max_length) { if (val == adr) printf("SELF"); else print_kind(val, 0, depth + 1); } else { printf("..."); break; } } printf("]"); } */ printf(" 0x%lx)", adr); } else if (strcmp(typename, "") == 0) { printf("(GEN "); print_kind((P)YPmet_name(adr), 0, depth+1); print_kind(FUNSPECS(adr), 0, depth + 1); printf(" 0x%lx)", adr); } else if (strcmp(typename, "") == 0) { printf("(OUT-PORT 0x%lx)", adr); } else if (strcmp(typename, "") == 0) { printf("(IN-PORT 0x%lx)", adr); } else { int i; P c = YPobject_class(adr); int size = (int)YPiu(YPclass_prop_len(c)); int below = MIN(size, 10); printf("(%s", typename); for (i = 0; i < below; i++) { printf(" "); if (i < max_length) { print_kind(YPprop_elt(adr, (PINT)i), 0, depth + 1); } else { printf("..."); break; } } printf(" 0x%lx)", adr); }} else { printf("<>"); } } void println (P adr) { print_kind(adr, 1, 0); printf("\n"); } void prtobj (P adr) { if (adr == 0) printf("NUL"); else { char* typename = type(adr); printf("0x%lx", adr); if (typename) printf(" ISA %s", typename); } } void desprop (int i, P adr) { printf("%d: ", i); prtobj(adr); printf("\n"); } void desobj (P adr) { int i; if (adr == PNUL) { printf("PNUL\n"); } else { char* typename = type(adr); if ((strcmp(typename, "") == 0)| (strcmp(typename, "") == 0)| (strcmp(typename, "") == 0)| (strcmp(typename, "") == 0)| (strcmp(typename, "") == 0)| (strcmp(typename, "") == 0)| (strcmp(typename, "") == 0)) { printf("1: "); print(adr); printf("\n"); } else { int metp = strcmp(typename, "") == 0; int genp = strcmp(typename, "") == 0; int funp = metp | genp; P c = YPobject_class(adr); int size = (int)YPiu(YPclass_prop_len(c)); int from = funp ? 1 : 0; int below = MIN(metp ? size - 1 : size, 10); for (i = from; i < below; i++) desprop(i, YPprop_elt(adr, (PINT)i)); if (metp) { int j; ENV env = (ENV)YPprop_elt(adr, (P)FUNENVOFFSET); printf("ENV SIZE %d\n", env->size); for (j = 0; j < env->size; j++, i++) desprop(i, ENVGET(env, j)); } } } } void des (P adr) { int tag = tag_bits(adr); if (tag == adr_tag) { P class = YPobject_class(adr); printf("CLASS: %s", YPsu(YPclass_name(class))); desobj(class); printf("OBJECT: "); desobj(adr); } else desobj(adr); } /* KEYBOARD INTERRUPT HANDLING */ #include extern P Ykeyboard_interrupt; void setup_keyboard_interrupts (void); #if defined(HAVE_POSIX_THREAD) extern pthread_t main_thread; #endif void keyboard_interrupt (int value) { #if !defined(_MSC_VER) sigset_t set; sigemptyset(&set); sigaddset(&set, SIGINT); sigprocmask(SIG_UNBLOCK, &set, NULL); #endif #ifdef HAVE_POSIX_THREAD if (pthread_self() == main_thread) #endif XXCALL0(1, Ykeyboard_interrupt); #ifdef HAVE_POSIX_THREAD else pthread_kill(main_thread, SIGINT); #endif } void setup_keyboard_interrupts (void) { signal(SIGINT, keyboard_interrupt); } int Pargc; char** Pargv; P YPapp_filename () { char* filename = Pargv[0]; #if defined(_WIN32) || defined(WIN32) || defined(WINNT) { int i; for (i = 0; i < strlen(filename); i++) if (filename[i] == '/') filename[i] = '\\'; } #endif return YPsb(filename); } P YPapp_args () { int i; P args = Ynil; for (i = 1; i < Pargc; i++) args = YPpair(YPsb(Pargv[i]), args); return args; } #define NO_UNEXEC #if defined(WIN32) || defined(_MSC_VER) #define NO_UNEXEC #endif extern P Yerror; P YPunexec(P name) { #if defined(_MSC_VER) _CALL1(REGSREF(),1, Yerror, YPsb("Cannot unexec.")); #else #ifdef NO_UNEXEC XXCALL1(1, Yerror, YPsb("Cannot unexec.")); #else unexec((char *)name, YPsu(YPapp_filename()), 0, 0, 0); #endif #endif return YPfalse; } P YevalSg2cYPprint_cpu_usage(char *message) { return; /* struct rusage usage; getrusage(RUSAGE_SELF, &usage); printf("%20s %d.%06.6d %d.%06.6d\n", message, usage.ru_utime.tv_sec, usage.ru_utime.tv_usec, usage.ru_stime.tv_sec, usage.ru_stime.tv_usec); return YPfalse; // return YPpair(YPib(usage.ru_utime), YPpair(YPib(*(void**)&usage.ru_stime), Ynil)); */ } #if !defined(_MSC_VER) struct timeval get_rusage() { struct rusage usage; getrusage(RUSAGE_SELF, &usage); return usage.ru_utime; } #endif P YPPlist(int num, ...) { if (num == 0) return Ynil; else { int i; P lst = YPpair(Ynil, Ynil); P nxt = lst; va_list ap; va_start(ap, num); for (i = 0; i < num; i++) { P now = nxt; YPhead_setter(va_arg(ap, P), now); if (i < (num - 1)) { nxt = YPpair(Ynil, Ynil); YPtail_setter(nxt, now); } } return lst; } } P YPprocess_module( P mod_info, P import_fun, P export_fun) { DEFREGS(); MODULE_INFO *module_info = (MODULE_INFO*)(tag((P)untag(mod_info), 0)); P modobj = module_info->module_object; IMPORT_INFO *import_info; EXPORT_INFO *export_info; /* Import bindings into this module. */ for (import_info = module_info->imports; import_info->variable_name; import_info++) { P name = YPsb(import_info->variable_name); P orig_name = import_info->original_name; CALL4(0, import_fun, modobj, name, import_info->module_info->module_object, (orig_name == NULL) ? name : YPsb(orig_name)); } /* Export bindings from this module. */ for (export_info = module_info->exports; export_info->variable_name; export_info++) { P name = YPsb(export_info->variable_name); P exp_as = export_info->exported_as; CALL3(0, export_fun, modobj, name, (exp_as == NULL) ? name : YPsb(exp_as)); } return PNUL; } static void process_runtime_module_shell (MODULE_INFO *module_info, P create_module_fun, P use_module_fun, P runtime_binding_fun, P other_binding_fun, P dynamic_binding_fun) { DEFREGS(); P modobj; USE_INFO *use_info; BINDING_INFO *binding_info; /* Don't initialize ourself more than once. */ if (module_info->module_object) return; /* Create our own module object. */ module_info->module_object = CALL2(0, create_module_fun, YPsb(module_info->module_name), (P)YPlb(module_info)); modobj = module_info->module_object; /* Recursively initialize all the modules we depend upon, and mark ** them as used. */ for (use_info = module_info->uses; use_info->module_info; use_info++) { process_runtime_module_shell (use_info->module_info, create_module_fun, use_module_fun, runtime_binding_fun, other_binding_fun, dynamic_binding_fun); CALL2(0, use_module_fun, modobj, use_info->module_info->module_object); } /* Define bindings in this module. */ for (binding_info = module_info->bindings; binding_info->variable_name; binding_info++) { switch (binding_info->kind) { case DVAR: CALL3(0, dynamic_binding_fun, modobj, YPsb(binding_info->variable_name), (P)YPlb((P)binding_info->location)); break; case PVAR: CALL2(0, other_binding_fun, modobj, YPsb(binding_info->variable_name)); break; case CVAR: CALL3(0, runtime_binding_fun, modobj, YPsb(binding_info->variable_name), (P)YPlb((P)binding_info->location)); break; } /* if (binding_info->location == DYNNUL) { DEFDYNVAR(key); CALL3(0, dynamic_binding_fun, modobj, YPsb(binding_info->variable_name), (P)YPlb(key)); } else if (binding_info->location) CALL3(0, runtime_binding_fun, modobj, YPsb(binding_info->variable_name), (P)YPlb((P)binding_info->location)); else CALL2(0, other_binding_fun, modobj, YPsb(binding_info->variable_name)); */ } } P YPbuild_runtime_modules( P create_module_fun, P use_module_fun, P runtime_binding_fun, P other_binding_fun, P dynamic_binding_fun) { process_runtime_module_shell (goo_toplevel_module_info, create_module_fun, use_module_fun, runtime_binding_fun, other_binding_fun, dynamic_binding_fun); return YPfalse; } P YPfab_dyn_var() { T* key = (T*)allocate(sizeof(T)); DYNFAB(key); return (P)key; } /* TODO: GET THIS WORKING ON WINDOWS */ P YgooSsystemYPpid () { return (P)(PINT)getpid(); } /* OVERALL INITIALIZATION */ void* _DYNAMIC; extern P YPTstart_running_atT; DEFTVAR(goo_thread); DEFTVAR(tregs); REGS main_regs = (REGS)0; #ifdef HAVE_POSIX_THREAD pthread_t main_thread = (pthread_t)0; #endif #define MAX_DYNVARS 256 int dynvar_key = 0; // NO LOCK NEEDED BECAUSE DDV OCCURS ON ONE THREAD ONLY // TODO: PROPAGATE NEW VAR VALS TO EXISTING THREADS // TODO: EXTEND WHEN OVERFLOW P DYNFAB(P v) { int* key = (int*)v; *key = dynvar_key++; if (dynvar_key > MAX_DYNVARS) XXCALL1(1, Yerror, YPsb("TOO MANY DYNAMIC VARIABLES.")); return (P)*key; } REGS YPfab_regs() { REGS regs; int old_any_stack_allocp = any_stack_allocp; any_stack_allocp = 0; regs = (REGS)allocate(sizeof(REGS_DATA)); REGSET(stack, (P*)allocate(MAX_STACK_SIZE * sizeof(P))); REGSET(fp, REG(stack)); REGSET(sp, REG(stack)); REGSET(top_unwind_protect_frame, allocate(sizeof(UNWIND_PROTECT_FRAME_DATA))); REGSET(current_unwind_protect_frame, REG(top_unwind_protect_frame)); REGSET(stack_allocp, 0); REGSET(stack_checkp, 1); REGSET(vfp, YPib((P)0)); REGSET(vsp, YPib((P)0)); REGSET(dynvars, YPPtfab((P)MAX_DYNVARS, YPfalse)); if (main_regs != (REGS)0) { int i; P vars = REG(dynvars); P mainvars = main_regs->dynvars; for (i = 0; i < dynvar_key; i++) YPtelt_setter(YPtelt(mainvars, i), vars, i); } any_stack_allocp = old_any_stack_allocp; return regs; } void YPinit_world(int argc, char* argv[]) { static int need_init = 1; Pargc = argc; Pargv = argv; if(!need_init) { /* stdin = fdopen(0, "r"); stdout = fdopen(1, "a"); setvbuf(stdout, NULL, _IOLBF, 0); stderr = fdopen(2, "a"); setvbuf(stderr, NULL, _IONBF, 0); */ XXCALL0(1, YPTstart_running_atT); // TODO: WHAT IS THIS FOR? exit(0); } // GC_enable_incremental(); GC_init(); #if !defined(HAVE_THREAD_LOCAL_VARIABLE) #if defined(HAVE_POSIX_THREAD) pthread_key_create(&tregs, NULL); pthread_key_create(&goo_thread, NULL); #elif defined(MSVC_THREAD) tregs = TlsAlloc(); goo_thread = TlsAlloc(); msc_calln_regs = TlsAlloc(); #endif #endif main_regs = YPfab_regs(); REGSSET(main_regs); envnul = ENVFAB(0); #ifdef HAVE_POSIX_THREAD main_thread = pthread_self(); #endif setup_keyboard_interrupts(); need_init = 0; } goo-0.155/c/grt.h0100644000175000017500000006334007756744520013126 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #ifndef IN_GRT #define IN_GRT #if !defined(_MSC_VER) #include "config.h" #else #undef PINT #define NOGDI #define NOUSER #pragma warning (disable:4047) #include #undef PINT #undef WIN32 #endif #include #include #include #include #include #include #ifdef HAVE_POSIX_THREAD #include #include #endif #if defined(_MSC_VER) #define INLINE #else #define INLINE inline #endif #ifdef IN_GRT_C #define STATIC_NOT_GRT_C #else #define STATIC_NOT_GRT_C static #endif #if defined(_MSC_VER) #if defined(BUILD_DLL) #define IMPORTEXPORT __declspec(dllimport) #else #define IMPORTEXPORT __declspec(dllexport) #endif #else #define IMPORTEXPORT #endif /* LOW LEVEL */ typedef FILE* PPORT; typedef float PFLO; #if defined(_MSC_VER) #define PINT long #else typedef long PINT; #endif typedef unsigned long PADR; typedef unsigned char PCHR; typedef unsigned long PLOG; typedef void* P; #define PNUL ((P)0) typedef union { PINT i; PFLO f; } INTFLO; IMPORTEXPORT extern P YPsb(P); IMPORTEXPORT extern P YPsb_with_len(P, PINT); IMPORTEXPORT extern P YPlb(P); IMPORTEXPORT extern P YPlu(P); IMPORTEXPORT extern P YPinvoke_debugger(P condition); IMPORTEXPORT extern P YPbreak(char*); IMPORTEXPORT extern P YPfalse; IMPORTEXPORT extern P YPtrue; IMPORTEXPORT extern P YPopts(P loc, P len); IMPORTEXPORT extern P YPib(P i); /* Not used yet. #define YPprim_nary_start(arg) va_list ap; va_start(ap, arg) #define YPprim_nary_next() va_arg(ap, P) #define YPprim_nary_end() va_end(ap) */ #define YPEE(x, y) ((x) == (y)) #define YPeqQ(x, y) ((x) == (y)) #define YPbb(x) (((x) == 0) ? YPfalse : YPtrue) #define YPbu(x) ((x) == YPfalse) #define YPiE(x, y) (((PINT)(x)) == ((PINT)(y))) #define YPiL(x, y) (((PINT)(x)) < ((PINT)(y))) #define YPiA(x, y) (((PINT)(x)) + ((PINT)(y))) #define YPi_(x, y) (((PINT)(x)) - ((PINT)(y))) #define YPiT(x, y) (((PINT)(x)) * ((PINT)(y))) #define YPim(x, y) (((PINT)(x)) % ((PINT)(y))) #define YPir(x, y) (((PINT)x) - ((PINT)y) * (((PINT)(x)) / ((PINT)(y)))) #define YPitS(x, y) (((PINT)(x)) / ((PINT)(y))) #define YPiv(x, y) (((PINT)(x)) | ((PINT)(y))) #define YPiC(x, y) (((PINT)(x)) ^ ((PINT)(y))) #define YPiB(x, y) (((PINT)(x)) & ((PINT)(y))) #define YPiX(x) (~((PINT)(x))) #define YPiQ(x, y) (((PINT)(x) >> ((PINT)(y))) & 1) #define YPiLL(x, y) (((PINT)(x)) << ((PINT)(y))) #define YPiGG(x, y) (((PINT)(x)) >> ((PINT)(y))) #define YPiLLL(x, y) (((PINT)(x)) << ((PINT)(y))) /* TODO: FIX THIS <<< */ #define YPiGGG(x, y) (((PINT)(x)) >> ((PINT)(y))) /* TODO: FIX THIS >>> */ #define YPcE(x, y) (((PCHR)(PINT)(x)) == ((PCHR)(PINT)(y))) #define YPcL(x, y) (((PCHR)(PINT)(x)) < ((PCHR)(PINT)(y))) #define RTVBOUNDP(x) (((x) == PNUL) ? YPfalse : YPtrue) #define BOUNDP(x) RTVBOUNDP(x) #define DYNNUL ((P)1) #define RTVVARREF_OR(x, d) (((x) == PNUL) ? d : (x)) #define VARREF_OR(x, d) RTVVARREF_OR(x, d) /* OBJ */ typedef struct _obj { P class; P values[1]; } *OBJECT, OBJECT_DATA; #define YPobject_class(x) (((OBJECT)(x))->class) #define YPobject_class_setter(z, x) (((OBJECT)(x))->class = (z)) #if defined(_MSC_VER) #include "gc/gc.h" #else #include #endif IMPORTEXPORT extern P Ynul; IMPORTEXPORT extern P Ynul_prop; #define OBJECT_DATA_SIZE (sizeof(OBJECT_DATA)) IMPORTEXPORT extern P YPobject_of (P class, P size); IMPORTEXPORT extern P YPclone (P x); IMPORTEXPORT extern P YPraw_alloc (P size); #define YPprop_elt(x, i) (((OBJECT)(x))->values[(PINT)(i)]) #define YPprop_elt_setter(z, x, i) (((OBJECT)(x))->values[(PINT)(i)] = (z)) #define YPprop_dat_at(x, i) (&(((OBJECT)(x))->values[(PINT)(i)])) /* FLO */ IMPORTEXPORT extern P FLOINT (PFLO x); IMPORTEXPORT extern P YPflo_bits (P x); /* REP */ #define REP_LEN_OFF 0 #define REP_DAT_OFF 1 #define YPrep_dat(x) (YPprop_dat_at((x), (P)REP_DAT_OFF)) /* REP */ IMPORTEXPORT extern P YPPrfab (P size, P fill); #define YPru(x) ((P)(YPrep_dat(x))) #define YPrlen(x) ((P)(YPprop_elt((x), (P)REP_LEN_OFF))) #define YPrelt(x, i) ((P)(YPprop_elt((x), (P)((char*)REP_DAT_OFF + (long)(i))))) #define YPrelt_setter(z, x, i) ((P)(YPprop_elt_setter((z), (x), (P)((char*)REP_DAT_OFF + (long)(i))))) /* TUP */ IMPORTEXPORT extern P Ytup; IMPORTEXPORT extern P YPPtfab (P size, P fill); #define YPtu(x) ((P)(YPrep_dat(x))) #define YPtlen(x) ((P)(YPprop_elt((x), (PINT)REP_LEN_OFF))) #define YPtelt(x, i) ((P)(YPprop_elt((x), (PINT)((char*)REP_DAT_OFF + (long)(i))))) #define YPtelt_setter(z, x, i) ((P)(YPprop_elt_setter((z), (x), (PINT)((char*)REP_DAT_OFF + (long)(i))))) /* STR */ #if !defined(_MSC_VER) typedef PCHR* PSTR; #endif IMPORTEXPORT extern P YPPsfab (P size, P fill); IMPORTEXPORT extern P YPsb (P str); #define YPsu(x) ((P)(YPrep_dat(x))) #define YPslen(x) ((P)(YPprop_elt((x), (PINT)REP_LEN_OFF))) #define YPselt(x, i) ((P)(PINT)(((PSTR)(YPsu(x)))[((PINT)(i))])) #define YPselt_setter(z, x, i) ((P)(PINT)(((PSTR)(YPsu(x)))[((PINT)(i))] = ((PCHR)(PINT)(z)))) /* OS */ P YgooSsystemYPpid (); #define timeval_diff(a, b, result) \ do { \ (result)->tv_sec = (a)->tv_sec - (b)->tv_sec; \ (result)->tv_usec = (a)->tv_usec - (b)->tv_usec; \ if ((result)->tv_usec < 0) { \ --(result)->tv_sec; \ (result)->tv_usec += 1000000; \ } \ } while (0) /* CLOSURES */ typedef struct _env { PINT size; P values[1]; } *ENV, ENV_DATA; IMPORTEXPORT extern ENV envnul; #define ENVNUL (envnul) typedef struct _bind_exit_frame { jmp_buf destination; P* sp; P* fp; P vsp, vfp, vpc, vfn, vnm; P value; struct _unwind_protect_frame* present_unwind_protect_frame; } *BIND_EXIT_FRAME, BIND_EXIT_FRAME_DATA; typedef struct _unwind_protect_frame { P cleanup_fun; struct _unwind_protect_frame* previous_unwind_protect_frame; } *UNWIND_PROTECT_FRAME, UNWIND_PROTECT_FRAME_DATA; // GOO REGISTERS typedef struct { P* stack; P* sp; P* fp; P next_methods; int stack_allocp; int stack_checkp; UNWIND_PROTECT_FRAME current_unwind_protect_frame; UNWIND_PROTECT_FRAME top_unwind_protect_frame; P dynvars; // VM STATE P vsp; P vfp; P vpc; P vfn; P vnm; } *REGS, REGS_DATA; // GOO FUNCTIONS typedef P (*PFUN)(REGS); #define FUNCODEOFFSET 0 #define FUNSIGOFFSET 1 #define FUNINFOOFFSET 2 #define FUNENVOFFSET 3 #define FUNINFONAMEOFFSET 0 #define FUNINFONAMESOFFSET 1 #define FUNINFOSRCOFFSET 2 #define FUNINFOSRCLOCOFFSET 3 #define FUNINFOCOUNTOFFSET 4 #define SIGSPECSOFFSET 0 #define SIGNARYPOFFSET 1 #define SIGARITYOFFSET 2 #define SIGVALUEOFFSET 3 #define PAIRHEADOFFSET 0 #define PAIRTAILOFFSET 1 #define Phead(x) (YPprop_elt((x), (P)PAIRHEADOFFSET)) #define Ptail(x) (YPprop_elt((x), (P)PAIRTAILOFFSET)) #define Phead_setter(z, x) (YPprop_elt_setter((z), (x), (P)PAIRHEADOFFSET)) #define Ptail_setter(z, x) (YPprop_elt_setter((z), (x), (P)PAIRTAILOFFSET)) #define tag_mask 3 #define TAG_BITS 2 #define adr_tag 0 #define int_tag 1 #define chr_tag 2 #define loc_tag 3 /* #define IU(x) (YPprop_elt((x), (P)0)) */ #define IU(x) ((PINT)(x)>>TAG_BITS) #define FUNCODE(fun) ((PFUN)YPprop_elt(fun, (P)FUNCODEOFFSET)) #define FUNSIG(fun) ((PFUN)YPprop_elt(fun, (P)FUNSIGOFFSET)) #define FUNINFO(fun) ((PFUN)YPprop_elt(fun, (P)FUNINFOOFFSET)) #define FUNNAME(fun) ((PFUN)YPprop_elt(FUNINFO(fun), (P)FUNINFONAMEOFFSET)) #define FUNNAMES(fun) ((PFUN)YPprop_elt(FUNINFO(fun), (P)FUNINFONAMESOFFSET)) #define FUNCOUNT(fun) ((PFUN)YPprop_elt(FUNINFO(fun), (P)FUNINFOCOUNTOFFSET)) #define SIGARITY(x) (PINT)(IU(YPprop_elt((x), (P)SIGARITYOFFSET))) #define SIGVALUE(x) YPprop_elt((x), (P)SIGVALUEOFFSET) #define SIGSPECS(x) (P)(YPprop_elt((x), (P)SIGSPECSOFFSET)) #define SIGNARYP(x) ((PLOG)(YPprop_elt((x), (P)SIGNARYPOFFSET) != YPfalse)) #define FUNARITY(x) SIGARITY(FUNSIG(x)) #define FUNVALUE(x) SIGVALUE(FUNSIG(x)) #define FUNSPECS(x) SIGSPECS(FUNSIG(x)) #define FUNNARYP(x) SIGNARYP(FUNSIG(x)) STATIC_NOT_GRT_C INLINE P* FUNENV (P fun) { return (P*)YPprop_elt(fun, (P)FUNENVOFFSET); } STATIC_NOT_GRT_C INLINE P* FUNENVSETTER (P* env, P fun) { return (P*)YPprop_elt_setter(env, fun, (P)FUNENVOFFSET); } #define ENVGET(e, i) (((ENV)(e))->values[((PINT)(i))]) #define ENVPUT(z, e, i) (((ENV)(e))->values[((PINT)(i))] = ((P)(z))) #define FUNENVGET(f, i) ENVGET(FUNENV((f)), (i)) #define FUNENVPUT(z, f, i) ENVPUT((z), FUNENV((f)), (i)) // THREAD LOCAL VARIABLE SUPPORT #ifdef WITH_THREADS #if defined(HAVE_THREAD_LOCAL_VARIABLE) #if defined(MSVC_THREAD) #define THREAD __declspec(thread) #else /* MSVC_THREAD */ #define THREAD __thread #endif /* !MSVC_THREAD */ typedef P* T; #define TREF(x) (x) #define TSET(x, v) (x = (v)) #elif defined(HAVE_POSIX_THREAD) #define THREAD typedef pthread_key_t T; #define TREF(x) ((P*)pthread_getspecific(x)) #define TSET(x, v) pthread_setspecific(x, v) #elif defined(MSVC_THREAD) #define THREAD typedef unsigned long T; #define TREF(x) ((P*)TlsGetValue(x)) #define TSET(x, v) TlsSetValue(x, v) #else #error Unknown threading type #endif #else /* WITH_THREADS */ #define THREAD typedef P* T; #define TREF(x) (x) #define TSET(x, v) (x = (v)) #endif /* WITH_THREADS */ #define DEFTVAR(v) THREAD T v #define EXTTVAR(v) extern THREAD T v // GOO REGISTERS extern REGS YPfab_regs(); IMPORTEXPORT EXTTVAR(tregs); EXTTVAR(goo_thread); #define Pregs() TREF(tregs) #define REGSREF() ((REGS)(TREF(tregs))) #define REGSCREF() (regs?regs:(regs=REGSREF())) #define REGSSET(v) TSET(tregs, (P)(v)) #define DEFREGS() REGS regs = REGSREF() #define DEFCREGS() REGS regs = (REGS)0 #define YPdef_regs() regs = REGSREF() #define YPset_regs(x) regs = (REGS)(x) #define REG(x) (regs->x) #define CREG(x) (REGSCREF()->x) #define REGSET(x, v) (regs->x = (v)) #define MAX_STACK_SIZE 70000 #define YPmax_stack_len() (MAX_STACK_SIZE) #define YPfun_reg() (Pfun) #define YPnext_methods_reg() (REG(next_methods)) #define YPnext_methods_reg_setter(x) (REG(next_methods) = (x)) #define YPsp_reg() (REG(sp)) #define YPsp_elt(i) (REG(sp)[(int)i]) #define YPfp_reg() (REG(fp)) #define YPsp_reg_setter(value) (REGSET(sp, value)) #define YPfp_reg_setter(value) (REGSET(fp, value)) #define YPstack_reg() (REG(stack)) #define YPstack_check_regQ() (P)(REG(stack_checkp)) #define YPstack_check_regQ_setter(x) (REGSET(stack_checkp, (int)x)) #define YPvpc() (REG(vpc)) #define YPvfn() (REG(vfn)) #define YPvnm() (REG(vnm)) #define YPvsp() (REG(vsp)) #define YPvfp() (REG(vfp)) #define YPvpc_setter(value) (REGSET(vpc, value)) #define YPvfn_setter(value) (REGSET(vfn, value)) #define YPvnm_setter(value) (REGSET(vnm, value)) #define YPvsp_setter(value) (REGSET(vsp, value)) #define YPvfp_setter(value) (REGSET(vfp, value)) #define FREEREF(x) (FUNENVGET(Pfun, (x))) #define YPvm_fun_env_elt(x, i) (FUNENVGET((x), (i))) #define YPvm_fun_env_elt_setter(v, x, i) (FUNENVPUT((v), (x), (i))) IMPORTEXPORT extern P FABENV (int size, ...); IMPORTEXPORT extern P FUNINIT (P fun, int n, ...); IMPORTEXPORT extern P FUNSHELL (int d, P x, int n); IMPORTEXPORT extern P FUNFAB (P x, int n, ...); extern P YPvm_fun_env_fab (P n); extern P YPenable_stack_checks (); /* TAG */ #define MAX_GOO_FIXNUM LONG_MAX >> TAG_BITS #define MIN_GOO_FIXNUM LONG_MIN >> TAG_BITS STATIC_NOT_GRT_C INLINE int tag_bits (P adr) { return (PADR)adr & tag_mask; } STATIC_NOT_GRT_C INLINE long untag (P adr) { return (PADR)adr >> TAG_BITS; } STATIC_NOT_GRT_C INLINE long tag (P adr, int tag) { return (PADR)adr << TAG_BITS | tag; } // STATIC_NOT_GRT_C INLINE P YPiu (P x) { return (P)untag(x); } // STATIC_NOT_GRT_C INLINE P YPib (P x) { return (P)tag(x, int_tag); } STATIC_NOT_GRT_C INLINE P YPelt (P v, P i) { return ((P*)v)[(PINT)i]; } STATIC_NOT_GRT_C INLINE P YPelt_setter (P x, P v, P i) { return ((P*)v)[(PINT)i] = x; } /* CALLS */ #define ON_STACK(a) do { \ int old_stack_allocp = REG(stack_allocp); \ REGSET(stack_allocp, 1); \ a; \ REGSET(stack_allocp, old_stack_allocp); \ } while(0) #define PUSH(x) (*(REG(sp)) = (x), REGSET(sp, REG(sp)+1)) #define POP() (REGSET(sp, REG(sp)-1), *(REG(sp))) #define DEC_STACK(n) (REGSET(sp, REG(sp)-(n))) #define INC_STACK(n) (REGSET(sp, REG(sp)+(n))) /* #define ARG(x) P x = POP() */ /* STACK LAYOUT arg2...n arg1 arg0 arglen fun obj fp-> prev fp locals... */ #define FUNREG() *(REG(sp)-1) #define LINK_STACK() P Pfun = FUNREG(); P Pnext_methods = REG(next_methods); *REG(sp) = REG(fp); REGSET(fp, REG(sp)); REGSET(sp, REG(sp)+1); #define UNLINK_STACK() {REGSET(sp, REG(fp)); REGSET(fp, *REG(sp)); } #define YPunlink_stack() (0);UNLINK_STACK() #define ARGLEN() (REG(fp)[-2]) #define ARG(x, n) x = (REG(fp)[- (n) - 3]) #define NARGS(x, n) x = (opts_stackalloc(regs, (P)tag((P)untag(REG(fp) - (n) - 3), loc_tag), \ YPib((char*)ARGLEN() - (n)))) IMPORTEXPORT extern P YLoptsG; // IMPORTEXPORT extern P _YPcheck_call_types(REGS); IMPORTEXPORT extern P YPPcheck_call_types(P); #define YPcheck_call_types() YPPcheck_call_types(regs) // #define YPcheck_call_types() _YPcheck_call_types(regs) STATIC_NOT_GRT_C INLINE P opts_stackalloc(REGS regs, P loc, P len) { OBJECT opts; opts = (OBJECT)(REG(sp)); opts->class = YLoptsG; opts->values[0] = loc; opts->values[1] = len; REGSET(sp, REG(sp) + 3); // sizeof OBJECT in P's return opts; } // #define MAXFUNCOUNT (2<<28) // #define FUNINC(x) (FUNCOUNT(fun) = MIN(FUNCOUNT(fun), MAXFUNCOUNT)) // #define FUNINC(x) (FUNCOUNT(fun)+=4, FUNCOUNT(fun)) #define FUNINC(x) (FUNCOUNT(fun)+=4) // #define FUNCALL(fun) (FUNINC(fun), (FUNCODE(fun))(regs)) #define FUNCALL(fun) ((FUNCODE(fun))(regs)) STATIC_NOT_GRT_C INLINE P _CALL0 (REGS regs, int check, P fun) { P res; PUSH(0); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(2); return res; } STATIC_NOT_GRT_C INLINE P _CALL1 (REGS regs, int check, P fun, P a1) { P res; PUSH(a1); PUSH((P)1); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(3); return res; } STATIC_NOT_GRT_C INLINE P _CALL2 (REGS regs, int check, P fun, P a1, P a2) { P res; PUSH(a2); PUSH(a1); PUSH((P)2); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(4); return res; } STATIC_NOT_GRT_C INLINE P _CALL3 (REGS regs, int check, P fun, P a1, P a2, P a3) { P res; PUSH(a3); PUSH(a2); PUSH(a1); PUSH((P)3); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(5); return res; } STATIC_NOT_GRT_C INLINE P _CALL4 (REGS regs, int check, P fun, P a1, P a2, P a3, P a4) { P res; PUSH(a4); PUSH(a3); PUSH(a2); PUSH(a1); PUSH((P)4); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(6); return res; } STATIC_NOT_GRT_C INLINE P _CALL5 (REGS regs, int check, P fun, P a1, P a2, P a3, P a4, P a5) { P res; PUSH(a5); PUSH(a4); PUSH(a3); PUSH(a2); PUSH(a1); PUSH((P)5); PUSH(fun); if(check) YPcheck_call_types(); res = FUNCALL(fun); DEC_STACK(7); return res; } STATIC_NOT_GRT_C INLINE P _YPraw_call(REGS regs, P fun, P next_mets) { REGSET(next_methods, next_mets); return FUNCALL(fun); } STATIC_NOT_GRT_C INLINE P _YPraw_met_call(REGS regs, P fun, P next_mets) { YPunlink_stack(); *(REG(sp)-1) = fun; return _YPraw_call(regs, fun, next_mets); } #define YPraw_met_call(_fun, _next_mets) _YPraw_met_call(regs, _fun, _next_mets) IMPORTEXPORT extern P _CALLN (REGS regs, int check, P fun, int n, ...); #define CALL0(_chk, _fun) \ _CALL0(regs, _chk, _fun) #define CALL1(_chk, _fun, _a0) \ _CALL1(regs, _chk, _fun, _a0) #define CALL2(_chk, _fun, _a0, _a1) \ _CALL2(regs, _chk, _fun, _a0, _a1) #define CALL3(_chk, _fun, _a0, _a1, _a2) \ _CALL3(regs, _chk, _fun, _a0, _a1, _a2) #define CALL4(_chk, _fun, _a0, _a1, _a2, _a3) \ _CALL4(regs, _chk, _fun, _a0, _a1, _a2, _a3) #define CALL5(_chk, _fun, _a0, _a1, _a2, _a3, _a4) \ _CALL5(regs, _chk, _fun, _a0, _a1, _a2, _a3, _a4) #define YPraw_call(_fun, _next_mets) _YPraw_call(regs, _fun, _next_mets) #if !defined(_MSC_VER) #define CALLN(...) _CALLN(regs, __VA_ARGS__) #define XCALL0(...) _CALL0(REGSCREF(), __VA_ARGS__) #define XCALL1(...) _CALL1(REGSCREF(), __VA_ARGS__) #define XCALL2(...) _CALL2(REGSCREF(), __VA_ARGS__) #define XCALL3(...) _CALL3(REGSCREF(), __VA_ARGS__) #define XCALL4(...) _CALL4(REGSCREF(), __VA_ARGS__) #define XCALL5(...) _CALL5(REGSCREF(), __VA_ARGS__) #define XCALLN(...) _CALLN(REGSCREF(), __VA_ARGS__) #define XXCALL0(...) _CALL0(REGSREF(), __VA_ARGS__) #define XXCALL1(...) _CALL1(REGSREF(), __VA_ARGS__) #define XXCALL2(...) _CALL2(REGSREF(), __VA_ARGS__) #define XXCALL3(...) _CALL3(REGSREF(), __VA_ARGS__) #define XXCALL4(...) _CALL4(REGSREF(), __VA_ARGS__) #define XXCALL5(...) _CALL5(REGSREF(), __VA_ARGS__) #define XXCALLN(...) _CALLN(REGSREF(), __VA_ARGS__) #else IMPORTEXPORT EXTTVAR(msc_calln_regs); IMPORTEXPORT extern P _MSC_CALLN (int check, P fun, int n, ...); #define CALLN (TSET(msc_calln_regs, regs),_MSC_CALLN) #define XCALL0(check, fun) _CALL0(REGSCREF(), check, fun) #define XCALL1(check, fun, a1) _CALL1(REGSCREF(), check, fun, a1) #define XCALL2(check, fun, a1, a2) _CALL2(REGSCREF(), check, fun, a1, a2) #define XCALL3(check, fun, a1, a2, a3) _CALL3(REGSCREF(), check, fun, a1, a2, a3) #define XCALL4(check, fun, a1, a2, a3, a4) _CALL4(REGSCREF(), check, fun, a1, a2, a3, a4) #define XCALL5(check, fun, a1, a2, a3, a4, a5) _CALL5(REGSCREF(), check, fun, a1, a2, a3, a4, a5) #define XCALLN (TSET(msc_calln_regs, REGSCREF()),_MSC_CALLN) #define XXCALL0(check, fun) _CALL0(REGSREF(), check, fun) #define XXCALL1(check, fun, a1) _CALL1(REGSREF(), check, fun, a1) #define XXCALL2(check, fun, a1, a2) _CALL2(REGSREF(), check, fun, a1, a2) #define XXCALL3(check, fun, a1, a2, a3) _CALL3(REGSREF(), check, fun, a1, a2, a3) #define XXCALL4(check, fun, a1, a2, a3, a4) _CALL4(REGSREF(), check, fun, a1, a2, a3, a4) #define XXCALL5(check, fun, a1, a2, a3, a4, a5) _CALL5(REGSREF(), check, fun, a1, a2, a3, a4, a5) #define XXCALLN (TSET(msc_calln_regs,REGSREF()),_MSC_CALLN) #endif IMPORTEXPORT extern P YPcheck_type(P,P,P); IMPORTEXPORT extern P YPfun_val_check_type(P, P, P); IMPORTEXPORT extern P _YPfun_val_check_type(REGS, P, P); #define check_type(x, t) YPcheck_type(regs, x, t) #define YPnext_methods() Pnext_methods #define QRET(x) \ { return (x); } #define RET(x) \ { YPfun_val_check_type(regs, (x), Pfun); return (x); } /* NON-LOCAL EXITS */ IMPORTEXPORT extern P do_exit (REGS regs ); IMPORTEXPORT extern P with_exit (P fun); IMPORTEXPORT extern P with_cleanup (P body_fun, P cleanup_fun); #define YPvm_with_exit with_exit #define YPvm_with_cleanup with_cleanup /* LITERALS */ #define DEFLIT(x) static P x = PNUL; /* GLOBAL VARIABLES */ IMPORTEXPORT extern P unbound (); #define LITREF(x) x // RTV'S ARE RUNTIME VARIABLES IMPLEMENTED IN TERMS OF C VARIABLES #define RTVDEF(x, m, n) IMPORTEXPORT P x = PNUL; #define RTVEXT(x, m, n) IMPORTEXPORT extern P x; #define RTVREF(x) x #define RTVSET(x, v) x = v #define RTVCHKREF RTVVARREF //#define RTVCHKREF(x) (((x) == PNUL) ? unbound() : (x)) IMPORTEXPORT extern P DYNFAB(P v); #define DYNDEF(x, m, n) IMPORTEXPORT extern P x; P x = PNUL; #define DYNEXT(x, m, n) IMPORTEXPORT extern P x; #define DYNREF(x) YPtelt(CREG(dynvars), x) #define DYNSET(x, v) YPtelt_setter(v, CREG(dynvars), x) #define DYNDEFSET(x, v) DYNFAB(&x); DYNSET(x, v); #define YPdyn_var_val(x) DYNREF(x) #define YPdyn_var_val_setter(v, x) DYNSET(x, v) IMPORTEXPORT extern P YPfab_dyn_var(); // RTV'S ARE THE DEFAULT EXCEPT IN DYNAMIC COMPILATION ALA dlgrt.h #define DEF(x, m, n) RTVDEF(x, m, n) #define EXT(x, m, n) RTVEXT(x, m, n) #define VARREF(x) RTVREF(x) #define VARSET(x, v) RTVSET(x, v) #define CHKREF RTVCHKREF(x) /* PRIVATE MODULE VARIABLES USED DIRECTLY BY THE C BACK END */ EXT(YPfalse, "boot", "%false"); EXT(YPtrue, "boot", "%true"); EXT(Ynil, "boot", "nil"); EXT(YruntimeYvec, "runtime", "vec"); EXT(YPwith_monitor, "runtime", "%with-monitor"); /* It is not clear who is generating code which uses this. */ EXT(YPdispatch,"boot","%dispatch"); /* PRIVATE MODULE PRIMITIVES USED DIRECTLY BY THE C BACK END */ IMPORTEXPORT extern P YPpair (P,P); IMPORTEXPORT extern P YPPlist(int num, ...); // IMPORTEXPORT extern P YPint (P); #define YPint(x) ((P)((((int)x)<<2)|1)) // TODO: KEEP IN SYNC WITH BOOT.GOO!!! IMPORTEXPORT extern P YPchr (P); IMPORTEXPORT extern P YPflo (P); IMPORTEXPORT extern P YPsb (P); IMPORTEXPORT extern P YPPsym (P); IMPORTEXPORT extern P YPmacro (P,P,P); IMPORTEXPORT extern P YPsig (P,P,P,P,P); IMPORTEXPORT extern P YPfab_sig (P,P,P,P,P); IMPORTEXPORT extern P YPfab_gen (P,P,P,P); IMPORTEXPORT extern P YPfab_met (P,P,P,P,P,P); IMPORTEXPORT extern P YPfab_met_inlineable (P,P,P,P,P,P); IMPORTEXPORT extern P YPsrc_loc (P,P); /* FUNCTIONS */ #define FUNFOR(x) IMPORTEXPORT extern P x; extern P x##I(REGS) #define LOCFOR(x) static P x; static P x##I(REGS) /* BOXES */ #define BOXVALOFFSET 0 #define BOXGET(x) (YPprop_elt(x, (P)BOXVALOFFSET)) #define BOXPUT(v,x) (YPprop_elt_setter(v, x, (P)BOXVALOFFSET)) IMPORTEXPORT extern P BOXFAB(P x); #define YPvm_box_fab BOXFAB #define YPvm_box_val(x) BOXGET(x) #define YPvm_box_val_setter(v, x) BOXPUT(v, x) /* FUNCTION CODE */ #define FUNCODEDEF(x) P x##I (REGS regs) #define LOCCODEDEF(x) static P x##I (REGS regs) #define FUNCODEREF(x) (&(x##I)) /* SYMBOL TABLE */ IMPORTEXPORT extern P regsym (P* adr, char *modstr, char *namestr); IMPORTEXPORT extern P YPdo_runtime_bindings (P fun); /* EOF OBJECT */ STATIC_NOT_GRT_C INLINE P YPeof_objectQ (P x) { return (P)(PLOG)((PINT)x == EOF); } STATIC_NOT_GRT_C INLINE P YPeof_object () { return (P)EOF; } /* LOCATIVES */ STATIC_NOT_GRT_C INLINE P YPloc_val (P loc) { P* ptr = (P*)((PADR)loc & ~tag_mask); return *ptr; } STATIC_NOT_GRT_C INLINE P YPloc_val_setter (P val, P loc) { P* ptr = (P*)((PADR)loc & ~tag_mask); return *ptr = val; } #define YPloc_off(loc, off) (((P*)((PADR)(loc) & ~tag_mask))[(PINT)off]) #define YPloc_off_setter(val, loc, off) (((P*)((PADR)(loc) & ~tag_mask))[(PINT)off] = val) /* APPS */ IMPORTEXPORT extern P YPapp_filename (); IMPORTEXPORT extern P YPapp_args (); /* OVERALL INITIALIZATION */ extern void YPinit_world(int argc, char* argv[]); /* MODULE ENVIRONMENT INFORMATION */ typedef struct _MODULE_INFO MODULE_INFO; typedef struct { MODULE_INFO *module_info; /* The module used */ } USE_INFO; typedef struct { char *variable_name; /* The binding's name in this module */ MODULE_INFO *module_info; /* The defining module */ char *original_name; /* The original name in that module */ } IMPORT_INFO; // BINDING KINDS #define DVAR 0 // DYNAMIC #define CVAR 1 // C OR RUNTIME #define PVAR 2 // PREDEFINED #define NVAR 3 // NIL typedef struct { char *variable_name; // The binding's name in this module char kind; // The binding's kind P *location; // The storage location or NULL } BINDING_INFO; typedef struct { char *variable_name; /* The binding's name in this module */ char *exported_as; /* The name to export it under */ } EXPORT_INFO; struct _MODULE_INFO { char *module_name; P *module_object; /* NULL or run-time module object */ USE_INFO *uses; IMPORT_INFO *imports; BINDING_INFO *bindings; EXPORT_INFO *exports; }; /* Holds pointer to top-level MODULE_INFO structure. */ extern MODULE_INFO *goo_toplevel_module_info; /* Building the runtime environment. */ IMPORTEXPORT extern P YPprocess_module( /* (mod_info ) */ P mod_info, /* ((mod ) (name ) (from-mod ) (original-name ) => ) */ P import_fun, /* ((mod ) (name ) (as-name ) => ) */ P export_fun ); IMPORTEXPORT extern P YPbuild_runtime_modules( /* ((modname ) => ) */ P create_module_fun, /* ((mod ) (uses ) => ) */ P use_module_fun, /* ((mod ) (name ) (loc ) => ) */ P runtime_binding_fun, /* ((mod ) (name ) => ) */ P other_binding_fun, /* ((mod ) (name ) (loc ) => ) */ P dynamic_binding_fun ); IMPORTEXPORT extern P YevalSast_evalYPbinding_value(P x); IMPORTEXPORT extern P YevalSast_evalYPbinding_value_setter(P v, P x); typedef struct { PSTR var_name; PSTR mod_name; P binding; } DLVAR_DAT, *DLVAR; STATIC_NOT_GRT_C INLINE P YevalSast_evalYPdlvar_nam(P x) { return (((DLVAR)(x))->var_name); } STATIC_NOT_GRT_C INLINE P YevalSast_evalYPdlvar_mod(P x) { return (((DLVAR)(x))->mod_name); } STATIC_NOT_GRT_C INLINE P YevalSast_evalYPdlvar(P x) { return (((DLVAR)(x))->binding); } STATIC_NOT_GRT_C INLINE P YevalSast_evalYPdlvar_setter(P v, P x) { return ((((DLVAR)(x))->binding)=(v)); } #if defined(_MSC_VER) #define DEFAULT_GOO_ROOT "." #endif #define YgooSsystemYPdefault_goo_root() DEFAULT_GOO_ROOT IMPORTEXPORT extern P YPtime (); IMPORTEXPORT extern P YPlit (P n); #endif goo-0.155/c/mini-prt.h0100755000175000017500000000045007511470645014056 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "config.h" typedef void* P; #define PNUL (P)0 extern P Yerror; extern P CALL2(P, P, P); extern P CALL0(P); extern P YPsb(P); extern P YPib(P); typedef P (*Thunk)(); extern int GC_process_hook(unsigned long); goo-0.155/c/unexelf.c0100644000175000017500000012200207333607637013760 0ustar vomjomvomjom/* Copyright (C) 1985, 1986, 1987, 1988, 1990, 1992, 1999, 2000 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. In other words, you are welcome to use, share and improve this program. You are forbidden to forbid anyone else to use, share and improve what you give them. Help stamp out software-hoarding! */ /* * unexec.c - Convert a running program into an a.out file. * * Author: Spencer W. Thomas * Computer Science Dept. * University of Utah * Date: Tue Mar 2 1982 * Modified heavily since then. * * Synopsis: * unexec (new_name, old_name, data_start, bss_start, entry_address) * char *new_name, *old_name; * unsigned data_start, bss_start, entry_address; * * Takes a snapshot of the program and makes an a.out format file in the * file named by the string argument new_name. * If old_name is non-NULL, the symbol table will be taken from the given file. * On some machines, an existing old_name file is required. * * The boundaries within the a.out file may be adjusted with the data_start * and bss_start arguments. Either or both may be given as 0 for defaults. * * Data_start gives the boundary between the text segment and the data * segment of the program. The text segment can contain shared, read-only * program code and literal data, while the data segment is always unshared * and unprotected. Data_start gives the lowest unprotected address. * The value you specify may be rounded down to a suitable boundary * as required by the machine you are using. * * Bss_start indicates how much of the data segment is to be saved in the * a.out file and restored when the program is executed. It gives the lowest * unsaved address, and is rounded up to a page boundary. The default when 0 * is given assumes that the entire data segment is to be stored, including * the previous data and bss as well as any additional storage allocated with * break (2). * * The new file is set up to start at entry_address. * */ /* Even more heavily modified by james@bigtex.cactus.org of Dell Computer Co. * ELF support added. * * Basic theory: the data space of the running process needs to be * dumped to the output file. Normally we would just enlarge the size * of .data, scooting everything down. But we can't do that in ELF, * because there is often something between the .data space and the * .bss space. * * In the temacs dump below, notice that the Global Offset Table * (.got) and the Dynamic link data (.dynamic) come between .data1 and * .bss. It does not work to overlap .data with these fields. * * The solution is to create a new .data segment. This segment is * filled with data from the current process. Since the contents of * various sections refer to sections by index, the new .data segment * is made the last in the table to avoid changing any existing index. * This is an example of how the section headers are changed. "Addr" * is a process virtual address. "Offset" is a file offset. raid:/nfs/raid/src/dist-18.56/src> dump -h temacs temacs: **** SECTION HEADER TABLE **** [No] Type Flags Addr Offset Size Name Link Info Adralgn Entsize [1] 1 2 0x80480d4 0xd4 0x13 .interp 0 0 0x1 0 [2] 5 2 0x80480e8 0xe8 0x388 .hash 3 0 0x4 0x4 [3] 11 2 0x8048470 0x470 0x7f0 .dynsym 4 1 0x4 0x10 [4] 3 2 0x8048c60 0xc60 0x3ad .dynstr 0 0 0x1 0 [5] 9 2 0x8049010 0x1010 0x338 .rel.plt 3 7 0x4 0x8 [6] 1 6 0x8049348 0x1348 0x3 .init 0 0 0x4 0 [7] 1 6 0x804934c 0x134c 0x680 .plt 0 0 0x4 0x4 [8] 1 6 0x80499cc 0x19cc 0x3c56f .text 0 0 0x4 0 [9] 1 6 0x8085f3c 0x3df3c 0x3 .fini 0 0 0x4 0 [10] 1 2 0x8085f40 0x3df40 0x69c .rodata 0 0 0x4 0 [11] 1 2 0x80865dc 0x3e5dc 0xd51 .rodata1 0 0 0x4 0 [12] 1 3 0x8088330 0x3f330 0x20afc .data 0 0 0x4 0 [13] 1 3 0x80a8e2c 0x5fe2c 0x89d .data1 0 0 0x4 0 [14] 1 3 0x80a96cc 0x606cc 0x1a8 .got 0 0 0x4 0x4 [15] 6 3 0x80a9874 0x60874 0x80 .dynamic 4 0 0x4 0x8 [16] 8 3 0x80a98f4 0x608f4 0x449c .bss 0 0 0x4 0 [17] 2 0 0 0x608f4 0x9b90 .symtab 18 371 0x4 0x10 [18] 3 0 0 0x6a484 0x8526 .strtab 0 0 0x1 0 [19] 3 0 0 0x729aa 0x93 .shstrtab 0 0 0x1 0 [20] 1 0 0 0x72a3d 0x68b7 .comment 0 0 0x1 0 raid:/nfs/raid/src/dist-18.56/src> dump -h xemacs xemacs: **** SECTION HEADER TABLE **** [No] Type Flags Addr Offset Size Name Link Info Adralgn Entsize [1] 1 2 0x80480d4 0xd4 0x13 .interp 0 0 0x1 0 [2] 5 2 0x80480e8 0xe8 0x388 .hash 3 0 0x4 0x4 [3] 11 2 0x8048470 0x470 0x7f0 .dynsym 4 1 0x4 0x10 [4] 3 2 0x8048c60 0xc60 0x3ad .dynstr 0 0 0x1 0 [5] 9 2 0x8049010 0x1010 0x338 .rel.plt 3 7 0x4 0x8 [6] 1 6 0x8049348 0x1348 0x3 .init 0 0 0x4 0 [7] 1 6 0x804934c 0x134c 0x680 .plt 0 0 0x4 0x4 [8] 1 6 0x80499cc 0x19cc 0x3c56f .text 0 0 0x4 0 [9] 1 6 0x8085f3c 0x3df3c 0x3 .fini 0 0 0x4 0 [10] 1 2 0x8085f40 0x3df40 0x69c .rodata 0 0 0x4 0 [11] 1 2 0x80865dc 0x3e5dc 0xd51 .rodata1 0 0 0x4 0 [12] 1 3 0x8088330 0x3f330 0x20afc .data 0 0 0x4 0 [13] 1 3 0x80a8e2c 0x5fe2c 0x89d .data1 0 0 0x4 0 [14] 1 3 0x80a96cc 0x606cc 0x1a8 .got 0 0 0x4 0x4 [15] 6 3 0x80a9874 0x60874 0x80 .dynamic 4 0 0x4 0x8 [16] 8 3 0x80c6800 0x7d800 0 .bss 0 0 0x4 0 [17] 2 0 0 0x7d800 0x9b90 .symtab 18 371 0x4 0x10 [18] 3 0 0 0x87390 0x8526 .strtab 0 0 0x1 0 [19] 3 0 0 0x8f8b6 0x93 .shstrtab 0 0 0x1 0 [20] 1 0 0 0x8f949 0x68b7 .comment 0 0 0x1 0 [21] 1 3 0x80a98f4 0x608f4 0x1cf0c .data 0 0 0x4 0 * This is an example of how the file header is changed. "Shoff" is * the section header offset within the file. Since that table is * after the new .data section, it is moved. "Shnum" is the number of * sections, which we increment. * * "Phoff" is the file offset to the program header. "Phentsize" and * "Shentsz" are the program and section header entries sizes respectively. * These can be larger than the apparent struct sizes. raid:/nfs/raid/src/dist-18.56/src> dump -f temacs temacs: **** ELF HEADER **** Class Data Type Machine Version Entry Phoff Shoff Flags Ehsize Phentsize Phnum Shentsz Shnum Shstrndx 1 1 2 3 1 0x80499cc 0x34 0x792f4 0 0x34 0x20 5 0x28 21 19 raid:/nfs/raid/src/dist-18.56/src> dump -f xemacs xemacs: **** ELF HEADER **** Class Data Type Machine Version Entry Phoff Shoff Flags Ehsize Phentsize Phnum Shentsz Shnum Shstrndx 1 1 2 3 1 0x80499cc 0x34 0x96200 0 0x34 0x20 5 0x28 22 19 * These are the program headers. "Offset" is the file offset to the * segment. "Vaddr" is the memory load address. "Filesz" is the * segment size as it appears in the file, and "Memsz" is the size in * memory. Below, the third segment is the code and the fourth is the * data: the difference between Filesz and Memsz is .bss raid:/nfs/raid/src/dist-18.56/src> dump -o temacs temacs: ***** PROGRAM EXECUTION HEADER ***** Type Offset Vaddr Paddr Filesz Memsz Flags Align 6 0x34 0x8048034 0 0xa0 0xa0 5 0 3 0xd4 0 0 0x13 0 4 0 1 0x34 0x8048034 0 0x3f2f9 0x3f2f9 5 0x1000 1 0x3f330 0x8088330 0 0x215c4 0x25a60 7 0x1000 2 0x60874 0x80a9874 0 0x80 0 7 0 raid:/nfs/raid/src/dist-18.56/src> dump -o xemacs xemacs: ***** PROGRAM EXECUTION HEADER ***** Type Offset Vaddr Paddr Filesz Memsz Flags Align 6 0x34 0x8048034 0 0xa0 0xa0 5 0 3 0xd4 0 0 0x13 0 4 0 1 0x34 0x8048034 0 0x3f2f9 0x3f2f9 5 0x1000 1 0x3f330 0x8088330 0 0x3e4d0 0x3e4d0 7 0x1000 2 0x60874 0x80a9874 0 0x80 0 7 0 */ /* Modified by wtien@urbana.mcd.mot.com of Motorola Inc. * * The above mechanism does not work if the unexeced ELF file is being * re-layout by other applications (such as `strip'). All the applications * that re-layout the internal of ELF will layout all sections in ascending * order of their file offsets. After the re-layout, the data2 section will * still be the LAST section in the section header vector, but its file offset * is now being pushed far away down, and causes part of it not to be mapped * in (ie. not covered by the load segment entry in PHDR vector), therefore * causes the new binary to fail. * * The solution is to modify the unexec algorithm to insert the new data2 * section header right before the new bss section header, so their file * offsets will be in the ascending order. Since some of the section's (all * sections AFTER the bss section) indexes are now changed, we also need to * modify some fields to make them point to the right sections. This is done * by macro PATCH_INDEX. All the fields that need to be patched are: * * 1. ELF header e_shstrndx field. * 2. section header sh_link and sh_info field. * 3. symbol table entry st_shndx field. * * The above example now should look like: **** SECTION HEADER TABLE **** [No] Type Flags Addr Offset Size Name Link Info Adralgn Entsize [1] 1 2 0x80480d4 0xd4 0x13 .interp 0 0 0x1 0 [2] 5 2 0x80480e8 0xe8 0x388 .hash 3 0 0x4 0x4 [3] 11 2 0x8048470 0x470 0x7f0 .dynsym 4 1 0x4 0x10 [4] 3 2 0x8048c60 0xc60 0x3ad .dynstr 0 0 0x1 0 [5] 9 2 0x8049010 0x1010 0x338 .rel.plt 3 7 0x4 0x8 [6] 1 6 0x8049348 0x1348 0x3 .init 0 0 0x4 0 [7] 1 6 0x804934c 0x134c 0x680 .plt 0 0 0x4 0x4 [8] 1 6 0x80499cc 0x19cc 0x3c56f .text 0 0 0x4 0 [9] 1 6 0x8085f3c 0x3df3c 0x3 .fini 0 0 0x4 0 [10] 1 2 0x8085f40 0x3df40 0x69c .rodata 0 0 0x4 0 [11] 1 2 0x80865dc 0x3e5dc 0xd51 .rodata1 0 0 0x4 0 [12] 1 3 0x8088330 0x3f330 0x20afc .data 0 0 0x4 0 [13] 1 3 0x80a8e2c 0x5fe2c 0x89d .data1 0 0 0x4 0 [14] 1 3 0x80a96cc 0x606cc 0x1a8 .got 0 0 0x4 0x4 [15] 6 3 0x80a9874 0x60874 0x80 .dynamic 4 0 0x4 0x8 [16] 1 3 0x80a98f4 0x608f4 0x1cf0c .data 0 0 0x4 0 [17] 8 3 0x80c6800 0x7d800 0 .bss 0 0 0x4 0 [18] 2 0 0 0x7d800 0x9b90 .symtab 19 371 0x4 0x10 [19] 3 0 0 0x87390 0x8526 .strtab 0 0 0x1 0 [20] 3 0 0 0x8f8b6 0x93 .shstrtab 0 0 0x1 0 [21] 1 0 0 0x8f949 0x68b7 .comment 0 0 0x1 0 */ #ifndef emacs #define fatal(args...) fprintf (stderr, ##args ), exit (1) #else #include extern void fatal (char *, ...); #endif #include #include #include #include #include #include #include #include #if !defined (__NetBSD__) && !defined (__OpenBSD__) #include #endif #include #if defined (__sony_news) && defined (_SYSTYPE_SYSV) #include #include #endif /* __sony_news && _SYSTYPE_SYSV */ #if __sgi #include /* for HDRR declaration */ #endif /* __sgi */ #if defined (__alpha__) && !defined (__NetBSD__) && !defined (__OpenBSD__) /* Declare COFF debugging symbol table. This used to be in /usr/include/sym.h, but this file is no longer included in Red Hat 5.0 and presumably in any other glibc 2.x based distribution. */ typedef struct { short magic; short vstamp; int ilineMax; int idnMax; int ipdMax; int isymMax; int ioptMax; int iauxMax; int issMax; int issExtMax; int ifdMax; int crfd; int iextMax; long cbLine; long cbLineOffset; long cbDnOffset; long cbPdOffset; long cbSymOffset; long cbOptOffset; long cbAuxOffset; long cbSsOffset; long cbSsExtOffset; long cbFdOffset; long cbRfdOffset; long cbExtOffset; } HDRR, *pHDRR; #define cbHDRR sizeof(HDRR) #define hdrNil ((pHDRR)0) #endif #ifdef __NetBSD__ /* * NetBSD does not have normal-looking user-land ELF support. */ # ifdef __alpha__ # define ELFSIZE 64 # else # define ELFSIZE 32 # endif # include # ifndef PT_LOAD # define PT_LOAD Elf_pt_load # define SHT_SYMTAB Elf_sht_symtab # define SHT_DYNSYM Elf_sht_dynsym # define SHT_NULL Elf_sht_null # define SHT_NOBITS Elf_sht_nobits # define SHT_REL Elf_sht_rel # define SHT_RELA Elf_sht_rela # define SHN_UNDEF Elf_eshn_undefined # define SHN_ABS Elf_eshn_absolute # define SHN_COMMON Elf_eshn_common # endif # ifdef __alpha__ # include # define HDRR struct ecoff_symhdr # define pHDRR HDRR * # endif #endif /* __NetBSD__ */ #ifdef __OpenBSD__ # include #endif #if __GNU_LIBRARY__ - 0 >= 6 # include /* get ElfW etc */ #endif #ifndef ElfW # ifdef __STDC__ # define ElfBitsW(bits, type) Elf##bits##_##type # else # define ElfBitsW(bits, type) Elf/**/bits/**/_/**/type # endif # ifdef _LP64 # define ELFSIZE 64 # else # define ELFSIZE 32 # endif /* This macro expands `bits' before invoking ElfBitsW. */ # define ElfExpandBitsW(bits, type) ElfBitsW (bits, type) # define ElfW(type) ElfExpandBitsW (ELFSIZE, type) #endif #ifndef ELF_BSS_SECTION_NAME #define ELF_BSS_SECTION_NAME ".bss" #endif /* Get the address of a particular section or program header entry, * accounting for the size of the entries. */ /* On PPC Reference Platform running Solaris 2.5.1 the plt section is also of type NOBI like the bss section. (not really stored) and therefore sections after the bss section start at the plt offset. The plt section is always the one just before the bss section. Thus, we modify the test from if (NEW_SECTION_H (nn).sh_offset >= new_data2_offset) to if (NEW_SECTION_H (nn).sh_offset >= OLD_SECTION_H (old_bss_index-1).sh_offset) This is just a hack. We should put the new data section before the .plt section. And we should not have this routine at all but use the libelf library to read the old file and create the new file. The changed code is minimal and depends on prep set in m/prep.h Erik Deumens Quantum Theory Project University of Florida deumens@qtp.ufl.edu Apr 23, 1996 */ #define OLD_SECTION_H(n) \ (*(ElfW(Shdr) *) ((byte *) old_section_h + old_file_h->e_shentsize * (n))) #define NEW_SECTION_H(n) \ (*(ElfW(Shdr) *) ((byte *) new_section_h + new_file_h->e_shentsize * (n))) #define OLD_PROGRAM_H(n) \ (*(ElfW(Phdr) *) ((byte *) old_program_h + old_file_h->e_phentsize * (n))) #define NEW_PROGRAM_H(n) \ (*(ElfW(Phdr) *) ((byte *) new_program_h + new_file_h->e_phentsize * (n))) #define PATCH_INDEX(n) \ do { \ if ((int) (n) >= old_bss_index) \ (n)++; } while (0) typedef unsigned char byte; /* Round X up to a multiple of Y. */ static ElfW(Addr) round_up (x, y) ElfW(Addr) x, y; { int rem = x % y; if (rem == 0) return x; return x - rem + y; } /* Return the index of the section named NAME. SECTION_NAMES, FILE_NAME and FILE_H give information about the file we are looking in. If we don't find the section NAME, that is a fatal error if NOERROR is 0; we return -1 if NOERROR is nonzero. */ static int find_section (name, section_names, file_name, old_file_h, old_section_h, noerror) char *name; char *section_names; char *file_name; ElfW(Ehdr) *old_file_h; ElfW(Shdr) *old_section_h; int noerror; { int idx; for (idx = 1; idx < old_file_h->e_shnum; idx++) { #ifdef DEBUG fprintf (stderr, "Looking for %s - found %s\n", name, section_names + OLD_SECTION_H (idx).sh_name); #endif if (!strcmp (section_names + OLD_SECTION_H (idx).sh_name, name)) break; } if (idx == old_file_h->e_shnum) { if (noerror) return -1; else fatal ("Can't find %s in %s.\n", name, file_name, 0); } return idx; } /* **************************************************************** * unexec * * driving logic. * * In ELF, this works by replacing the old .bss section with a new * .data section, and inserting an empty .bss immediately afterwards. * */ void unexec (new_name, old_name, data_start, bss_start, entry_address) char *new_name, *old_name; unsigned data_start, bss_start, entry_address; { int new_file, old_file, new_file_size; /* Pointers to the base of the image of the two files. */ caddr_t old_base, new_base; /* Pointers to the file, program and section headers for the old and new * files. */ ElfW(Ehdr) *old_file_h, *new_file_h; ElfW(Phdr) *old_program_h, *new_program_h; ElfW(Shdr) *old_section_h, *new_section_h; /* Point to the section name table in the old file */ char *old_section_names; ElfW(Addr) old_bss_addr, new_bss_addr; ElfW(Word) old_bss_size, new_data2_size; ElfW(Off) new_data2_offset; ElfW(Addr) new_data2_addr; int n, nn; int old_bss_index, old_sbss_index; int old_data_index, new_data2_index; int old_mdebug_index; struct stat stat_buf; /* Open the old file & map it into the address space. */ old_file = open (old_name, O_RDONLY); if (old_file < 0) fatal ("Can't open %s for reading: errno %d\n", old_name, errno); if (fstat (old_file, &stat_buf) == -1) fatal ("Can't fstat (%s): errno %d\n", old_name, errno); old_base = mmap ((caddr_t) 0, stat_buf.st_size, PROT_READ, MAP_SHARED, old_file, 0); if (old_base == (caddr_t) -1) fatal ("Can't mmap (%s): errno %d\n", old_name, errno); #ifdef DEBUG fprintf (stderr, "mmap (%s, %x) -> %x\n", old_name, stat_buf.st_size, old_base); #endif /* Get pointers to headers & section names */ old_file_h = (ElfW(Ehdr) *) old_base; old_program_h = (ElfW(Phdr) *) ((byte *) old_base + old_file_h->e_phoff); old_section_h = (ElfW(Shdr) *) ((byte *) old_base + old_file_h->e_shoff); old_section_names = (char *) old_base + OLD_SECTION_H (old_file_h->e_shstrndx).sh_offset; /* Find the mdebug section, if any. */ old_mdebug_index = find_section (".mdebug", old_section_names, old_name, old_file_h, old_section_h, 1); /* Find the old .bss section. Figure out parameters of the new * data2 and bss sections. */ old_bss_index = find_section (".bss", old_section_names, old_name, old_file_h, old_section_h, 0); old_sbss_index = find_section (".sbss", old_section_names, old_name, old_file_h, old_section_h, 1); if (old_sbss_index != -1) if (OLD_SECTION_H (old_sbss_index).sh_type == SHT_PROGBITS) old_sbss_index = -1; if (old_sbss_index == -1) { old_bss_addr = OLD_SECTION_H (old_bss_index).sh_addr; old_bss_size = OLD_SECTION_H (old_bss_index).sh_size; new_data2_index = old_bss_index; } else { old_bss_addr = OLD_SECTION_H (old_sbss_index).sh_addr; old_bss_size = OLD_SECTION_H (old_bss_index).sh_size + OLD_SECTION_H (old_sbss_index).sh_size; new_data2_index = old_sbss_index; } /* Find the old .data section. Figure out parameters of the new data2 and bss sections. */ old_data_index = find_section (".data", old_section_names, old_name, old_file_h, old_section_h, 0); //#if defined (emacs) || !defined (DEBUG) new_bss_addr = (ElfW(Addr)) sbrk (0); //#else //new_bss_addr = old_bss_addr + old_bss_size + 0x1234; //#endif new_data2_addr = old_bss_addr; new_data2_size = new_bss_addr - old_bss_addr; new_data2_offset = OLD_SECTION_H (old_data_index).sh_offset + (new_data2_addr - OLD_SECTION_H (old_data_index).sh_addr); #ifdef DEBUG fprintf (stderr, "old_bss_index %d\n", old_bss_index); fprintf (stderr, "old_bss_addr %x\n", old_bss_addr); fprintf (stderr, "old_bss_size %x\n", old_bss_size); fprintf (stderr, "new_bss_addr %x\n", new_bss_addr); fprintf (stderr, "new_data2_addr %x\n", new_data2_addr); fprintf (stderr, "new_data2_size %x\n", new_data2_size); fprintf (stderr, "new_data2_offset %x\n", new_data2_offset); #endif if ((unsigned) new_bss_addr < (unsigned) old_bss_addr + old_bss_size) fatal (".bss shrank when undumping???\n", 0, 0); /* Set the output file to the right size and mmap it. Set * pointers to various interesting objects. stat_buf still has * old_file data. */ new_file = open (new_name, O_RDWR | O_CREAT, 0666); if (new_file < 0) fatal ("Can't creat (%s): errno %d\n", new_name, errno); new_file_size = stat_buf.st_size + old_file_h->e_shentsize + new_data2_size; if (ftruncate (new_file, new_file_size)) fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); #ifdef UNEXEC_USE_MAP_PRIVATE new_base = mmap ((caddr_t) 0, new_file_size, PROT_READ | PROT_WRITE, MAP_PRIVATE, new_file, 0); #else new_base = mmap ((caddr_t) 0, new_file_size, PROT_READ | PROT_WRITE, MAP_SHARED, new_file, 0); #endif if (new_base == (caddr_t) -1) fatal ("Can't mmap (%s): errno %d\n", new_name, errno); new_file_h = (ElfW(Ehdr) *) new_base; new_program_h = (ElfW(Phdr) *) ((byte *) new_base + old_file_h->e_phoff); new_section_h = (ElfW(Shdr) *) ((byte *) new_base + old_file_h->e_shoff + new_data2_size); /* Make our new file, program and section headers as copies of the * originals. */ memcpy (new_file_h, old_file_h, old_file_h->e_ehsize); memcpy (new_program_h, old_program_h, old_file_h->e_phnum * old_file_h->e_phentsize); /* Modify the e_shstrndx if necessary. */ PATCH_INDEX (new_file_h->e_shstrndx); /* Fix up file header. We'll add one section. Section header is * further away now. */ new_file_h->e_shoff += new_data2_size; new_file_h->e_shnum += 1; #ifdef DEBUG fprintf (stderr, "Old section offset %x\n", old_file_h->e_shoff); fprintf (stderr, "Old section count %d\n", old_file_h->e_shnum); fprintf (stderr, "New section offset %x\n", new_file_h->e_shoff); fprintf (stderr, "New section count %d\n", new_file_h->e_shnum); #endif /* Fix up a new program header. Extend the writable data segment so * that the bss area is covered too. Find that segment by looking * for a segment that ends just before the .bss area. Make sure * that no segments are above the new .data2. Put a loop at the end * to adjust the offset and address of any segment that is above * data2, just in case we decide to allow this later. */ for (n = new_file_h->e_phnum - 1; n >= 0; n--) { /* Compute maximum of all requirements for alignment of section. */ ElfW(Word) alignment = (NEW_PROGRAM_H (n)).p_align; if ((OLD_SECTION_H (old_bss_index)).sh_addralign > alignment) alignment = OLD_SECTION_H (old_bss_index).sh_addralign; #ifdef __sgi /* According to r02kar@x4u2.desy.de (Karsten Kuenne) and oliva@gnu.org (Alexandre Oliva), on IRIX 5.2, we always get "Program segment above .bss" when dumping when the executable doesn't have an sbss section. */ if (old_sbss_index != -1) #endif /* __sgi */ if (NEW_PROGRAM_H (n).p_vaddr + NEW_PROGRAM_H (n).p_filesz > (old_sbss_index == -1 ? old_bss_addr : round_up (old_bss_addr, alignment))) fatal ("Program segment above .bss in %s\n", old_name, 0); if (NEW_PROGRAM_H (n).p_type == PT_LOAD && (round_up ((NEW_PROGRAM_H (n)).p_vaddr + (NEW_PROGRAM_H (n)).p_filesz, alignment) == round_up (old_bss_addr, alignment))) break; } if (n < 0) fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); /* Make sure that the size includes any padding before the old .bss section. */ NEW_PROGRAM_H (n).p_filesz = new_bss_addr - NEW_PROGRAM_H (n).p_vaddr; NEW_PROGRAM_H (n).p_memsz = NEW_PROGRAM_H (n).p_filesz; #if 0 /* Maybe allow section after data2 - does this ever happen? */ for (n = new_file_h->e_phnum - 1; n >= 0; n--) { if (NEW_PROGRAM_H (n).p_vaddr && NEW_PROGRAM_H (n).p_vaddr >= new_data2_addr) NEW_PROGRAM_H (n).p_vaddr += new_data2_size - old_bss_size; if (NEW_PROGRAM_H (n).p_offset >= new_data2_offset) NEW_PROGRAM_H (n).p_offset += new_data2_size; } #endif /* Fix up section headers based on new .data2 section. Any section * whose offset or virtual address is after the new .data2 section * gets its value adjusted. .bss size becomes zero and new address * is set. data2 section header gets added by copying the existing * .data header and modifying the offset, address and size. */ for (old_data_index = 1; old_data_index < (int) old_file_h->e_shnum; old_data_index++) if (!strcmp (old_section_names + OLD_SECTION_H (old_data_index).sh_name, ".data")) break; if (old_data_index == old_file_h->e_shnum) fatal ("Can't find .data in %s.\n", old_name, 0); /* Walk through all section headers, insert the new data2 section right before the new bss section. */ for (n = 1, nn = 1; n < (int) old_file_h->e_shnum; n++, nn++) { caddr_t src; /* If it is (s)bss section, insert the new data2 section before it. */ /* new_data2_index is the index of either old_sbss or old_bss, that was chosen as a section for new_data2. */ if (n == new_data2_index) { /* Steal the data section header for this data2 section. */ memcpy (&NEW_SECTION_H (nn), &OLD_SECTION_H (old_data_index), new_file_h->e_shentsize); NEW_SECTION_H (nn).sh_addr = new_data2_addr; NEW_SECTION_H (nn).sh_offset = new_data2_offset; NEW_SECTION_H (nn).sh_size = new_data2_size; /* Use the bss section's alignment. This will assure that the new data2 section always be placed in the same spot as the old bss section by any other application. */ NEW_SECTION_H (nn).sh_addralign = OLD_SECTION_H (n).sh_addralign; /* Now copy over what we have in the memory now. */ memcpy (NEW_SECTION_H (nn).sh_offset + new_base, (caddr_t) OLD_SECTION_H (n).sh_addr, new_data2_size); nn++; } memcpy (&NEW_SECTION_H (nn), &OLD_SECTION_H (n), old_file_h->e_shentsize); if (n == old_bss_index /* The new bss and sbss section's size is zero, and its file offset and virtual address should be off by NEW_DATA2_SIZE. */ || n == old_sbss_index ) { /* NN should be `old_s?bss_index + 1' at this point. */ NEW_SECTION_H (nn).sh_offset = NEW_SECTION_H (new_data2_index).sh_offset + new_data2_size; NEW_SECTION_H (nn).sh_addr = NEW_SECTION_H (new_data2_index).sh_addr + new_data2_size; /* Let the new bss section address alignment be the same as the section address alignment followed the old bss section, so this section will be placed in exactly the same place. */ NEW_SECTION_H (nn).sh_addralign = OLD_SECTION_H (nn).sh_addralign; NEW_SECTION_H (nn).sh_size = 0; } else { /* Any section that was original placed AFTER the bss section should now be off by NEW_DATA2_SIZE. */ #ifdef SOLARIS_POWERPC /* On PPC Reference Platform running Solaris 2.5.1 the plt section is also of type NOBI like the bss section. (not really stored) and therefore sections after the bss section start at the plt offset. The plt section is always the one just before the bss section. It would be better to put the new data section before the .plt section, or use libelf instead. Erik Deumens, deumens@qtp.ufl.edu. */ if (NEW_SECTION_H (nn).sh_offset >= OLD_SECTION_H (old_bss_index-1).sh_offset) NEW_SECTION_H (nn).sh_offset += new_data2_size; #else if (round_up (NEW_SECTION_H (nn).sh_offset, OLD_SECTION_H (old_bss_index).sh_addralign) >= new_data2_offset) NEW_SECTION_H (nn).sh_offset += new_data2_size; #endif /* Any section that was originally placed after the section header table should now be off by the size of one section header table entry. */ if (NEW_SECTION_H (nn).sh_offset > new_file_h->e_shoff) NEW_SECTION_H (nn).sh_offset += new_file_h->e_shentsize; } /* If any section hdr refers to the section after the new .data section, make it refer to next one because we have inserted a new section in between. */ PATCH_INDEX (NEW_SECTION_H (nn).sh_link); /* For symbol tables, info is a symbol table index, so don't change it. */ if (NEW_SECTION_H (nn).sh_type != SHT_SYMTAB && NEW_SECTION_H (nn).sh_type != SHT_DYNSYM) PATCH_INDEX (NEW_SECTION_H (nn).sh_info); if (old_sbss_index != -1) if (!strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".sbss")) { NEW_SECTION_H (nn).sh_offset = round_up (NEW_SECTION_H (nn).sh_offset, NEW_SECTION_H (nn).sh_addralign); NEW_SECTION_H (nn).sh_type = SHT_PROGBITS; } /* Now, start to copy the content of sections. */ if (NEW_SECTION_H (nn).sh_type == SHT_NULL || NEW_SECTION_H (nn).sh_type == SHT_NOBITS) continue; /* Write out the sections. .data and .data1 (and data2, called ".data" in the strings table) get copied from the current process instead of the old file. */ if (!strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".data") || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name), ".sdata") || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name), ".lit4") || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name), ".lit8") || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name), ".sdata1") || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name), ".data1") || !strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".sbss")) src = (caddr_t) OLD_SECTION_H (n).sh_addr; else src = old_base + OLD_SECTION_H (n).sh_offset; memcpy (NEW_SECTION_H (nn).sh_offset + new_base, src, NEW_SECTION_H (nn).sh_size); #ifdef __alpha__ /* Update Alpha COFF symbol table: */ if (strcmp (old_section_names + OLD_SECTION_H (n).sh_name, ".mdebug") == 0) { pHDRR symhdr = (pHDRR) (NEW_SECTION_H (nn).sh_offset + new_base); symhdr->cbLineOffset += new_data2_size; symhdr->cbDnOffset += new_data2_size; symhdr->cbPdOffset += new_data2_size; symhdr->cbSymOffset += new_data2_size; symhdr->cbOptOffset += new_data2_size; symhdr->cbAuxOffset += new_data2_size; symhdr->cbSsOffset += new_data2_size; symhdr->cbSsExtOffset += new_data2_size; symhdr->cbFdOffset += new_data2_size; symhdr->cbRfdOffset += new_data2_size; symhdr->cbExtOffset += new_data2_size; } #endif /* __alpha__ */ #if defined (__sony_news) && defined (_SYSTYPE_SYSV) if (NEW_SECTION_H (nn).sh_type == SHT_MIPS_DEBUG && old_mdebug_index != -1) { int diff = NEW_SECTION_H(nn).sh_offset - OLD_SECTION_H(old_mdebug_index).sh_offset; HDRR *phdr = (HDRR *)(NEW_SECTION_H (nn).sh_offset + new_base); if (diff) { phdr->cbLineOffset += diff; phdr->cbDnOffset += diff; phdr->cbPdOffset += diff; phdr->cbSymOffset += diff; phdr->cbOptOffset += diff; phdr->cbAuxOffset += diff; phdr->cbSsOffset += diff; phdr->cbSsExtOffset += diff; phdr->cbFdOffset += diff; phdr->cbRfdOffset += diff; phdr->cbExtOffset += diff; } } #endif /* __sony_news && _SYSTYPE_SYSV */ #if __sgi /* Adjust the HDRR offsets in .mdebug and copy the line data if it's in its usual 'hole' in the object. Makes the new file debuggable with dbx. patches up two problems: the absolute file offsets in the HDRR record of .mdebug (see /usr/include/syms.h), and the ld bug that gets the line table in a hole in the elf file rather than in the .mdebug section proper. David Anderson. davea@sgi.com Jan 16,1994. */ if (n == old_mdebug_index) { #define MDEBUGADJUST(__ct,__fileaddr) \ if (n_phdrr->__ct > 0) \ { \ n_phdrr->__fileaddr += movement; \ } HDRR * o_phdrr = (HDRR *)((byte *)old_base + OLD_SECTION_H (n).sh_offset); HDRR * n_phdrr = (HDRR *)((byte *)new_base + NEW_SECTION_H (nn).sh_offset); unsigned movement = new_data2_size; MDEBUGADJUST (idnMax, cbDnOffset); MDEBUGADJUST (ipdMax, cbPdOffset); MDEBUGADJUST (isymMax, cbSymOffset); MDEBUGADJUST (ioptMax, cbOptOffset); MDEBUGADJUST (iauxMax, cbAuxOffset); MDEBUGADJUST (issMax, cbSsOffset); MDEBUGADJUST (issExtMax, cbSsExtOffset); MDEBUGADJUST (ifdMax, cbFdOffset); MDEBUGADJUST (crfd, cbRfdOffset); MDEBUGADJUST (iextMax, cbExtOffset); /* The Line Section, being possible off in a hole of the object, requires special handling. */ if (n_phdrr->cbLine > 0) { if (o_phdrr->cbLineOffset > (OLD_SECTION_H (n).sh_offset + OLD_SECTION_H (n).sh_size)) { /* line data is in a hole in elf. do special copy and adjust for this ld mistake. */ n_phdrr->cbLineOffset += movement; memcpy (n_phdrr->cbLineOffset + new_base, o_phdrr->cbLineOffset + old_base, n_phdrr->cbLine); } else { /* somehow line data is in .mdebug as it is supposed to be. */ MDEBUGADJUST (cbLine, cbLineOffset); } } } #endif /* __sgi */ /* If it is the symbol table, its st_shndx field needs to be patched. */ if (NEW_SECTION_H (nn).sh_type == SHT_SYMTAB || NEW_SECTION_H (nn).sh_type == SHT_DYNSYM) { ElfW(Shdr) *spt = &NEW_SECTION_H (nn); unsigned int num = spt->sh_size / spt->sh_entsize; ElfW(Sym) * sym = (ElfW(Sym) *) (NEW_SECTION_H (nn).sh_offset + new_base); for (; num--; sym++) { if ((sym->st_shndx == SHN_UNDEF) || (sym->st_shndx == SHN_ABS) || (sym->st_shndx == SHN_COMMON)) continue; PATCH_INDEX (sym->st_shndx); } } } /* Update the symbol values of _edata and _end. */ for (n = new_file_h->e_shnum - 1; n; n--) { byte *symnames; ElfW(Sym) *symp, *symendp; if (NEW_SECTION_H (n).sh_type != SHT_DYNSYM && NEW_SECTION_H (n).sh_type != SHT_SYMTAB) continue; symnames = ((byte *) new_base + NEW_SECTION_H (NEW_SECTION_H (n).sh_link).sh_offset); symp = (ElfW(Sym) *) (NEW_SECTION_H (n).sh_offset + new_base); symendp = (ElfW(Sym) *) ((byte *)symp + NEW_SECTION_H (n).sh_size); for (; symp < symendp; symp ++) if (strcmp ((char *) (symnames + symp->st_name), "_end") == 0 || strcmp ((char *) (symnames + symp->st_name), "end") == 0 || strcmp ((char *) (symnames + symp->st_name), "_edata") == 0 || strcmp ((char *) (symnames + symp->st_name), "edata") == 0) memcpy (&symp->st_value, &new_bss_addr, sizeof (new_bss_addr)); } /* This loop seeks out relocation sections for the data section, so that it can undo relocations performed by the runtime linker. */ for (n = new_file_h->e_shnum - 1; n; n--) { ElfW(Shdr) section = NEW_SECTION_H (n); switch (section.sh_type) { default: break; case SHT_REL: case SHT_RELA: /* This code handles two different size structs, but there should be no harm in that provided that r_offset is always the first member. */ nn = section.sh_info; if (!strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".data") || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name), ".sdata") || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name), ".lit4") || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name), ".lit8") || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name), ".sdata1") || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name), ".data1")) { ElfW(Addr) offset = NEW_SECTION_H (nn).sh_addr - NEW_SECTION_H (nn).sh_offset; caddr_t reloc = old_base + section.sh_offset, end; for (end = reloc + section.sh_size; reloc < end; reloc += section.sh_entsize) { ElfW(Addr) addr = ((ElfW(Rel) *) reloc)->r_offset - offset; #ifdef __alpha__ /* The Alpha ELF binutils currently have a bug that sometimes results in relocs that contain all zeroes. Work around this for now... */ if (((ElfW(Rel) *) reloc)->r_offset == 0) continue; #endif memcpy (new_base + addr, old_base + addr, sizeof(ElfW(Addr))); } } break; } } #ifdef UNEXEC_USE_MAP_PRIVATE if (lseek (new_file, 0, SEEK_SET) == -1) fatal ("Can't rewind (%s): errno %d\n", new_name, errno); if (write (new_file, new_base, new_file_size) != new_file_size) fatal ("Can't write (%s): errno %d\n", new_name, errno); #endif /* Close the files and make the new file executable. */ msync(old_base, stat_buf.st_size, MS_SYNC | MS_INVALIDATE); msync(new_base, new_file_size, MS_SYNC | MS_INVALIDATE); if(munmap (old_base, stat_buf.st_size)) fatal ("Can't munmap (%s): errno %d\n", old_name, errno); if (close (old_file)) fatal ("Can't close (%s): errno %d\n", old_name, errno); if (munmap(new_base, new_file_size)) fatal ("Can't munmap (%s): errno %d\n", new_name, errno); if (close (new_file)) fatal ("Can't close (%s): errno %d\n", new_name, errno); if (stat (new_name, &stat_buf) == -1) fatal ("Can't stat (%s): errno %d\n", new_name, errno); n = umask (777); umask (n); stat_buf.st_mode |= 0111 & ~n; if (chmod (new_name, stat_buf.st_mode) == -1) fatal ("Can't chmod (%s): errno %d\n", new_name, errno); } goo-0.155/c/unexw32.c0100644000175000017500000006451207361213453013626 0ustar vomjomvomjom/* unexec for GNU Emacs on Windows NT. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Geoff Voelker (voelker@cs.washington.edu) 8-12-94 */ #include #include /* _fmode */ #include #include #include #include /* Include relevant definitions from IMAGEHLP.H, which can be found in \\win32sdk\mstools\samples\image\include\imagehlp.h. */ PIMAGE_NT_HEADERS (__stdcall * pfnCheckSumMappedFile) (LPVOID BaseAddress, DWORD FileLength, LPDWORD HeaderSum, LPDWORD CheckSum); extern BOOL ctrl_c_handler (unsigned long type); extern char my_begdata[]; extern char my_edata[]; extern char my_begbss[]; extern char my_endbss[]; extern char *my_begbss_static; extern char *my_endbss_static; #include "w32heap.h" #undef min #undef max #define min(x, y) (((x) < (y)) ? (x) : (y)) #define max(x, y) (((x) > (y)) ? (x) : (y)) /* Basically, our "initialized" flag. */ BOOL using_dynamic_heap = FALSE; int open_input_file (file_data *p_file, char *name); int open_output_file (file_data *p_file, char *name, unsigned long size); void close_file_data (file_data *p_file); void get_section_info (file_data *p_file); void copy_executable_and_dump_data (file_data *, file_data *); void dump_bss_and_heap (file_data *p_infile, file_data *p_outfile); /* Cached info about the .data section in the executable. */ PIMAGE_SECTION_HEADER data_section; PUCHAR data_start = 0; DWORD data_size = 0; /* Cached info about the .bss section in the executable. */ PIMAGE_SECTION_HEADER bss_section; PUCHAR bss_start = 0; DWORD bss_size = 0; DWORD extra_bss_size = 0; /* bss data that is static might be discontiguous from non-static. */ PIMAGE_SECTION_HEADER bss_section_static; PUCHAR bss_start_static = 0; DWORD bss_size_static = 0; DWORD extra_bss_size_static = 0; PIMAGE_SECTION_HEADER heap_section; #ifdef HAVE_NTGUI HINSTANCE hinst = NULL; HINSTANCE hprevinst = NULL; LPSTR lpCmdLine = ""; int nCmdShow = 0; #endif /* HAVE_NTGUI */ /* Startup code for running on NT. When we are running as the dumped version, we need to bootstrap our heap and .bss section into our address space before we can actually hand off control to the startup code supplied by NT (primarily because that code relies upon malloc ()). */ void _start (void) { extern void mainCRTStartup (void); #if 1 /* Give us a way to debug problems with crashes on startup when running under the MSVC profiler. */ if (GetEnvironmentVariable ("EMACS_DEBUG", NULL, 0) > 0) DebugBreak (); #endif /* Cache system info, e.g., the NT page size. */ cache_system_info (); /* Grab our malloc arena space now, before CRT starts up. */ init_heap (); /* The default behavior is to treat files as binary and patch up text files appropriately, in accordance with the MSDOS code. */ _fmode = O_BINARY; /* This prevents ctrl-c's in shells running while we're suspended from having us exit. */ SetConsoleCtrlHandler ((PHANDLER_ROUTINE) ctrl_c_handler, TRUE); /* Prevent Emacs from being locked up (eg. in batch mode) when accessing devices that aren't mounted (eg. removable media drives). */ SetErrorMode (SEM_FAILCRITICALERRORS); /* Invoke the NT CRT startup routine now that our housecleaning is finished. */ #ifdef HAVE_NTGUI /* determine WinMain args like crt0.c does */ hinst = GetModuleHandle(NULL); lpCmdLine = GetCommandLine(); nCmdShow = SW_SHOWDEFAULT; #endif mainCRTStartup (); } /* File handling. */ int open_input_file (file_data *p_file, char *filename) { HANDLE file; HANDLE file_mapping; void *file_base; unsigned long size, upper_size; file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if (file == INVALID_HANDLE_VALUE) return FALSE; size = GetFileSize (file, &upper_size); file_mapping = CreateFileMapping (file, NULL, PAGE_READONLY, 0, size, NULL); if (!file_mapping) return FALSE; file_base = MapViewOfFile (file_mapping, FILE_MAP_READ, 0, 0, size); if (file_base == 0) return FALSE; p_file->name = filename; p_file->size = size; p_file->file = file; p_file->file_mapping = file_mapping; p_file->file_base = file_base; return TRUE; } int open_output_file (file_data *p_file, char *filename, unsigned long size) { HANDLE file; HANDLE file_mapping; void *file_base; file = CreateFile (filename, GENERIC_READ | GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if (file == INVALID_HANDLE_VALUE) return FALSE; file_mapping = CreateFileMapping (file, NULL, PAGE_READWRITE, 0, size, NULL); if (!file_mapping) return FALSE; file_base = MapViewOfFile (file_mapping, FILE_MAP_WRITE, 0, 0, size); if (file_base == 0) return FALSE; p_file->name = filename; p_file->size = size; p_file->file = file; p_file->file_mapping = file_mapping; p_file->file_base = file_base; return TRUE; } /* Close the system structures associated with the given file. */ void close_file_data (file_data *p_file) { UnmapViewOfFile (p_file->file_base); CloseHandle (p_file->file_mapping); /* For the case of output files, set final size. */ SetFilePointer (p_file->file, p_file->size, NULL, FILE_BEGIN); SetEndOfFile (p_file->file); CloseHandle (p_file->file); } /* Routines to manipulate NT executable file sections. */ /* Return pointer to section header for named section. */ IMAGE_SECTION_HEADER * find_section (char * name, IMAGE_NT_HEADERS * nt_header) { PIMAGE_SECTION_HEADER section; int i; section = IMAGE_FIRST_SECTION (nt_header); for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) { if (strcmp (section->Name, name) == 0) return section; section++; } return NULL; } /* Return pointer to section header for section containing the given relative virtual address. */ IMAGE_SECTION_HEADER * rva_to_section (DWORD rva, IMAGE_NT_HEADERS * nt_header) { PIMAGE_SECTION_HEADER section; int i; section = IMAGE_FIRST_SECTION (nt_header); for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) { /* Some linkers (eg. the NT SDK linker I believe) swapped the meaning of these two values - or rather, they ignored VirtualSize entirely and always set it to zero. This affects some very old exes (eg. gzip dated Dec 1993). Since w32_executable_type relies on this function to work reliably, we need to cope with this. */ DWORD real_size = max (section->SizeOfRawData, section->Misc.VirtualSize); if (rva >= section->VirtualAddress && rva < section->VirtualAddress + real_size) return section; section++; } return NULL; } /* Return pointer to section header for section containing the given offset in its raw data area. */ IMAGE_SECTION_HEADER * offset_to_section (DWORD offset, IMAGE_NT_HEADERS * nt_header) { PIMAGE_SECTION_HEADER section; int i; section = IMAGE_FIRST_SECTION (nt_header); for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) { if (offset >= section->PointerToRawData && offset < section->PointerToRawData + section->SizeOfRawData) return section; section++; } return NULL; } /* Return offset to an object in dst, given offset in src. We assume there is at least one section in both src and dst images, and that the some sections may have been added to dst (after sections in src). */ static DWORD relocate_offset (DWORD offset, IMAGE_NT_HEADERS * src_nt_header, IMAGE_NT_HEADERS * dst_nt_header) { PIMAGE_SECTION_HEADER src_section = IMAGE_FIRST_SECTION (src_nt_header); PIMAGE_SECTION_HEADER dst_section = IMAGE_FIRST_SECTION (dst_nt_header); int i = 0; while (offset >= src_section->PointerToRawData) { if (offset < src_section->PointerToRawData + src_section->SizeOfRawData) break; i++; if (i == src_nt_header->FileHeader.NumberOfSections) { /* Handle offsets after the last section. */ dst_section = IMAGE_FIRST_SECTION (dst_nt_header); dst_section += dst_nt_header->FileHeader.NumberOfSections - 1; while (dst_section->PointerToRawData == 0) dst_section--; while (src_section->PointerToRawData == 0) src_section--; return offset + (dst_section->PointerToRawData + dst_section->SizeOfRawData) - (src_section->PointerToRawData + src_section->SizeOfRawData); } src_section++; dst_section++; } return offset + (dst_section->PointerToRawData - src_section->PointerToRawData); } #define OFFSET_TO_RVA(offset, section) \ (section->VirtualAddress + ((DWORD)(offset) - section->PointerToRawData)) #define RVA_TO_OFFSET(rva, section) \ (section->PointerToRawData + ((DWORD)(rva) - section->VirtualAddress)) #define RVA_TO_SECTION_OFFSET(rva, section) \ ((DWORD)(rva) - section->VirtualAddress) /* Convert address in executing image to RVA. */ #define PTR_TO_RVA(ptr) ((DWORD)(ptr) - (DWORD) GetModuleHandle (NULL)) #define PTR_TO_OFFSET(ptr, pfile_data) \ ((char *)(ptr) - (pfile_data)->file_base) #define OFFSET_TO_PTR(offset, pfile_data) \ ((pfile_data)->file_base + (DWORD)(offset)) /* Flip through the executable and cache the info necessary for dumping. */ static void get_section_info (file_data *p_infile) { PIMAGE_DOS_HEADER dos_header; PIMAGE_NT_HEADERS nt_header; PIMAGE_SECTION_HEADER section; int overlap; dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) { printf ("Unknown EXE header in %s...bailing.\n", p_infile->name); exit (1); } nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + dos_header->e_lfanew); if (nt_header == NULL) { printf ("Failed to find IMAGE_NT_HEADER in %s...bailing.\n", p_infile->name); exit (1); } /* Check the NT header signature ... */ if (nt_header->Signature != IMAGE_NT_SIGNATURE) { printf ("Invalid IMAGE_NT_SIGNATURE 0x%x in %s...bailing.\n", nt_header->Signature, p_infile->name); exit (1); } /* Locate the ".data" and ".bss" sections for Emacs. (Note that the actual section names are probably different from these, and might actually be the same section.) We do this as follows: first we determine the virtual address ranges in this process for the data and bss variables that we wish to preserve. Then we map these VAs to the section entries in the source image. Finally, we determine the new size of the raw data area for the bss section, so we can make the new image the correct size. */ /* We arrange for the Emacs initialized data to be in a separate section if possible, because we cannot rely on my_begdata and my_edata marking out the full extent of the initialized data, at least on the Alpha where the linker freely reorders variables across libraries. If we can arrange for this, all we need to do is find the start and size of the EMDATA section. */ data_section = find_section ("EMDATA", nt_header); if (data_section) { data_start = (char *) nt_header->OptionalHeader.ImageBase + data_section->VirtualAddress; data_size = data_section->Misc.VirtualSize; } else { /* Fallback on the old method if compiler doesn't support the data_set #pragma (or its equivalent). */ data_start = my_begdata; data_size = my_edata - my_begdata; data_section = rva_to_section (PTR_TO_RVA (my_begdata), nt_header); if (data_section != rva_to_section (PTR_TO_RVA (my_edata), nt_header)) { printf ("Initialized data is not in a single section...bailing\n"); exit (1); } } /* As noted in lastfile.c, the Alpha (but not the Intel) MSVC linker globally segregates all static and public bss data (ie. across all linked modules, not just per module), so we must take both static and public bss areas into account to determine the true extent of the bss area used by Emacs. To be strictly correct, we dump the static and public bss areas used by Emacs separately if non-overlapping (since otherwise we are dumping bss data belonging to system libraries, eg. the static bss system data on the Alpha). */ bss_start = my_begbss; bss_size = my_endbss - my_begbss; bss_section = rva_to_section (PTR_TO_RVA (my_begbss), nt_header); if (bss_section != rva_to_section (PTR_TO_RVA (my_endbss), nt_header)) { printf ("Uninitialized data is not in a single section...bailing\n"); exit (1); } /* Compute how much the .bss section's raw data will grow. */ extra_bss_size = ROUND_UP (RVA_TO_SECTION_OFFSET (PTR_TO_RVA (my_endbss), bss_section), nt_header->OptionalHeader.FileAlignment) - bss_section->SizeOfRawData; bss_start_static = my_begbss_static; bss_size_static = my_endbss_static - my_begbss_static; bss_section_static = rva_to_section (PTR_TO_RVA (my_begbss_static), nt_header); if (bss_section_static != rva_to_section (PTR_TO_RVA (my_endbss_static), nt_header)) { printf ("Uninitialized static data is not in a single section...bailing\n"); exit (1); } /* Compute how much the static .bss section's raw data will grow. */ extra_bss_size_static = ROUND_UP (RVA_TO_SECTION_OFFSET (PTR_TO_RVA (my_endbss_static), bss_section_static), nt_header->OptionalHeader.FileAlignment) - bss_section_static->SizeOfRawData; /* Combine the bss sections into one if they overlap. */ #ifdef _ALPHA_ overlap = 1; /* force all bss data to be dumped */ #else overlap = 0; #endif if (bss_start < bss_start_static) { if (bss_start_static < bss_start + bss_size) overlap = 1; } else { if (bss_start < bss_start_static + bss_size_static) overlap = 1; } if (overlap) { if (bss_section != bss_section_static) { printf ("BSS data not in a single section...bailing\n"); exit (1); } bss_start = min (bss_start, bss_start_static); bss_size = max (my_endbss, my_endbss_static) - bss_start; bss_section_static = 0; extra_bss_size_static = 0; } heap_section = rva_to_section (PTR_TO_RVA (get_heap_start ()), nt_header); } /* The dump routines. */ static void copy_executable_and_dump_data (file_data *p_infile, file_data *p_outfile) { unsigned char *dst, *dst_save; PIMAGE_DOS_HEADER dos_header; PIMAGE_NT_HEADERS nt_header; PIMAGE_NT_HEADERS dst_nt_header; PIMAGE_SECTION_HEADER section; PIMAGE_SECTION_HEADER dst_section; DWORD offset; int i; #define COPY_CHUNK(message, src, size) \ do { \ unsigned char *s = (void *)(src); \ unsigned long count = (size); \ printf ("%s\n", (message)); \ printf ("\t0x%08x Offset in input file.\n", s - p_infile->file_base); \ printf ("\t0x%08x Offset in output file.\n", dst - p_outfile->file_base); \ printf ("\t0x%08x Size in bytes.\n", count); \ memcpy (dst, s, count); \ dst += count; \ } while (0) #define COPY_PROC_CHUNK(message, src, size) \ do { \ unsigned char *s = (void *)(src); \ unsigned long count = (size); \ printf ("%s\n", (message)); \ printf ("\t0x%08x Address in process.\n", s); \ printf ("\t0x%08x Offset in output file.\n", dst - p_outfile->file_base); \ printf ("\t0x%08x Size in bytes.\n", count); \ memcpy (dst, s, count); \ dst += count; \ } while (0) #define DST_TO_OFFSET() PTR_TO_OFFSET (dst, p_outfile) #define ROUND_UP_DST(align) \ (dst = p_outfile->file_base + ROUND_UP (DST_TO_OFFSET (), (align))) #define ROUND_UP_DST_AND_ZERO(align) \ do { \ unsigned char *newdst = p_outfile->file_base \ + ROUND_UP (DST_TO_OFFSET (), (align)); \ /* Zero the alignment slop; it may actually initialize real data. */ \ memset (dst, 0, newdst - dst); \ dst = newdst; \ } while (0) /* Copy the source image sequentially, ie. section by section after copying the headers and section table, to simplify the process of dumping the raw data for the bss and heap sections. Note that dst is updated implicitly by each COPY_CHUNK. */ dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + dos_header->e_lfanew); section = IMAGE_FIRST_SECTION (nt_header); dst = (unsigned char *) p_outfile->file_base; COPY_CHUNK ("Copying DOS header...", dos_header, (DWORD) nt_header - (DWORD) dos_header); dst_nt_header = (PIMAGE_NT_HEADERS) dst; COPY_CHUNK ("Copying NT header...", nt_header, (DWORD) section - (DWORD) nt_header); dst_section = (PIMAGE_SECTION_HEADER) dst; COPY_CHUNK ("Copying section table...", section, nt_header->FileHeader.NumberOfSections * sizeof (*section)); /* Align the first section's raw data area, and set the header size field accordingly. */ ROUND_UP_DST_AND_ZERO (dst_nt_header->OptionalHeader.FileAlignment); dst_nt_header->OptionalHeader.SizeOfHeaders = DST_TO_OFFSET (); for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) { char msg[100]; sprintf (msg, "Copying raw data for %s...", section->Name); dst_save = dst; /* Update the file-relative offset for this section's raw data (if it has any) in case things have been relocated; we will update the other offsets below once we know where everything is. */ if (dst_section->PointerToRawData) dst_section->PointerToRawData = DST_TO_OFFSET (); /* Can always copy the original raw data. */ COPY_CHUNK (msg, OFFSET_TO_PTR (section->PointerToRawData, p_infile), section->SizeOfRawData); /* Ensure alignment slop is zeroed. */ ROUND_UP_DST_AND_ZERO (dst_nt_header->OptionalHeader.FileAlignment); /* Note that various sections below may be aliases. */ if (section == data_section) { dst = dst_save + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (data_start), dst_section); COPY_PROC_CHUNK ("Dumping initialized data...", data_start, data_size); dst = dst_save + dst_section->SizeOfRawData; } if (section == bss_section) { /* Dump contents of bss variables, adjusting the section's raw data size as necessary. */ dst = dst_save + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (bss_start), dst_section); COPY_PROC_CHUNK ("Dumping bss data...", bss_start, bss_size); ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); dst_section->PointerToRawData = PTR_TO_OFFSET (dst_save, p_outfile); /* Determine new size of raw data area. */ dst = max (dst, dst_save + dst_section->SizeOfRawData); dst_section->SizeOfRawData = dst - dst_save; dst_section->Characteristics &= ~IMAGE_SCN_CNT_UNINITIALIZED_DATA; dst_section->Characteristics |= IMAGE_SCN_CNT_INITIALIZED_DATA; } if (section == bss_section_static) { /* Dump contents of static bss variables, adjusting the section's raw data size as necessary. */ dst = dst_save + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (bss_start_static), dst_section); COPY_PROC_CHUNK ("Dumping static bss data...", bss_start_static, bss_size_static); ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); dst_section->PointerToRawData = PTR_TO_OFFSET (dst_save, p_outfile); /* Determine new size of raw data area. */ dst = max (dst, dst_save + dst_section->SizeOfRawData); dst_section->SizeOfRawData = dst - dst_save; dst_section->Characteristics &= ~IMAGE_SCN_CNT_UNINITIALIZED_DATA; dst_section->Characteristics |= IMAGE_SCN_CNT_INITIALIZED_DATA; } if (section == heap_section) { DWORD heap_start = get_heap_start (); DWORD heap_size = get_committed_heap_size (); /* Dump the used portion of the predump heap, adjusting the section's size to the appropriate size. */ dst = dst_save + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (heap_start), dst_section); COPY_PROC_CHUNK ("Dumping heap...", heap_start, heap_size); ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); dst_section->PointerToRawData = PTR_TO_OFFSET (dst_save, p_outfile); /* Determine new size of raw data area. */ dst = max (dst, dst_save + dst_section->SizeOfRawData); dst_section->SizeOfRawData = dst - dst_save; /* Reduce the size of the heap section to fit (must be last section). */ dst_nt_header->OptionalHeader.SizeOfImage -= dst_section->Misc.VirtualSize - ROUND_UP (dst_section->SizeOfRawData, dst_nt_header->OptionalHeader.SectionAlignment); dst_section->Misc.VirtualSize = ROUND_UP (dst_section->SizeOfRawData, dst_nt_header->OptionalHeader.SectionAlignment); dst_section->Characteristics &= ~IMAGE_SCN_CNT_UNINITIALIZED_DATA; dst_section->Characteristics |= IMAGE_SCN_CNT_INITIALIZED_DATA; } /* Align the section's raw data area. */ ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); section++; dst_section++; } /* Copy remainder of source image. */ do section--; while (section->PointerToRawData == 0); offset = ROUND_UP (section->PointerToRawData + section->SizeOfRawData, nt_header->OptionalHeader.FileAlignment); COPY_CHUNK ("Copying remainder of executable...", OFFSET_TO_PTR (offset, p_infile), p_infile->size - offset); /* Final size for new image. */ p_outfile->size = DST_TO_OFFSET (); /* Now patch up remaining file-relative offsets. */ section = IMAGE_FIRST_SECTION (nt_header); dst_section = IMAGE_FIRST_SECTION (dst_nt_header); #define ADJUST_OFFSET(var) \ do { \ if ((var) != 0) \ (var) = relocate_offset ((var), nt_header, dst_nt_header); \ } while (0) dst_nt_header->OptionalHeader.SizeOfInitializedData = 0; dst_nt_header->OptionalHeader.SizeOfUninitializedData = 0; for (i = 0; i < dst_nt_header->FileHeader.NumberOfSections; i++) { /* Recompute data sizes for completeness. */ if (dst_section[i].Characteristics & IMAGE_SCN_CNT_INITIALIZED_DATA) dst_nt_header->OptionalHeader.SizeOfInitializedData += ROUND_UP (dst_section[i].Misc.VirtualSize, dst_nt_header->OptionalHeader.FileAlignment); else if (dst_section[i].Characteristics & IMAGE_SCN_CNT_UNINITIALIZED_DATA) dst_nt_header->OptionalHeader.SizeOfUninitializedData += ROUND_UP (dst_section[i].Misc.VirtualSize, dst_nt_header->OptionalHeader.FileAlignment); ADJUST_OFFSET (dst_section[i].PointerToLinenumbers); } ADJUST_OFFSET (dst_nt_header->FileHeader.PointerToSymbolTable); /* Update offsets in debug directory entries. */ { IMAGE_DATA_DIRECTORY debug_dir = dst_nt_header->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG]; PIMAGE_DEBUG_DIRECTORY debug_entry; section = rva_to_section (debug_dir.VirtualAddress, dst_nt_header); if (section) { debug_entry = (PIMAGE_DEBUG_DIRECTORY) (RVA_TO_OFFSET (debug_dir.VirtualAddress, section) + p_outfile->file_base); debug_dir.Size /= sizeof (IMAGE_DEBUG_DIRECTORY); for (i = 0; i < debug_dir.Size; i++, debug_entry++) ADJUST_OFFSET (debug_entry->PointerToRawData); } } } /* Dump out .data and .bss sections into a new executable. */ void unexec (char *new_name, char *old_name, void *start_data, void *start_bss, void *entry_address) { file_data in_file, out_file; char out_filename[MAX_PATH], in_filename[MAX_PATH]; unsigned long size; char *ptr; /* Make sure that the input and output filenames have the ".exe" extension...patch them up if they don't. */ strcpy (in_filename, old_name); ptr = in_filename + strlen (in_filename) - 4; if (strcmp (ptr, ".exe")) strcat (in_filename, ".exe"); strcpy (out_filename, new_name); ptr = out_filename + strlen (out_filename) - 4; if (strcmp (ptr, ".exe")) strcat (out_filename, ".exe"); printf ("Dumping from %s\n", in_filename); printf (" to %s\n", out_filename); /* We need to round off our heap to NT's page size. */ round_heap (get_page_size ()); /* Open the undumped executable file. */ if (!open_input_file (&in_file, in_filename)) { printf ("Failed to open %s (%d)...bailing.\n", in_filename, GetLastError ()); exit (1); } /* Get the interesting section info, like start and size of .bss... */ get_section_info (&in_file); /* The size of the dumped executable is the size of the original executable plus the size of the heap and the size of the .bss section. */ size = in_file.size + get_committed_heap_size () + extra_bss_size + extra_bss_size_static; if (!open_output_file (&out_file, out_filename, size)) { printf ("Failed to open %s (%d)...bailing.\n", out_filename, GetLastError ()); exit (1); } /* Set the flag (before dumping). */ using_dynamic_heap = TRUE; copy_executable_and_dump_data (&in_file, &out_file); /* Patch up header fields; profiler is picky about this. */ { PIMAGE_DOS_HEADER dos_header; PIMAGE_NT_HEADERS nt_header; HANDLE hImagehelp = LoadLibrary ("imagehlp.dll"); DWORD headersum; DWORD checksum; dos_header = (PIMAGE_DOS_HEADER) out_file.file_base; nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew); nt_header->OptionalHeader.CheckSum = 0; // nt_header->FileHeader.TimeDateStamp = time (NULL); // dos_header->e_cp = size / 512; // nt_header->OptionalHeader.SizeOfImage = size; pfnCheckSumMappedFile = (void *) GetProcAddress (hImagehelp, "CheckSumMappedFile"); if (pfnCheckSumMappedFile) { // nt_header->FileHeader.TimeDateStamp = time (NULL); pfnCheckSumMappedFile (out_file.file_base, out_file.size, &headersum, &checksum); nt_header->OptionalHeader.CheckSum = checksum; } FreeLibrary (hImagehelp); } close_file_data (&in_file); close_file_data (&out_file); } /* eof */ goo-0.155/c/g2c/0040755000175000017500000000000007756746021012627 5ustar vomjomvomjomgoo-0.155/c/g2c/CVS/0040755000175000017500000000000007756746021013262 5ustar vomjomvomjomgoo-0.155/c/g2c/CVS/Root0100644000175000017500000000003307756746014014123 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/CVS/Repository0100644000175000017500000000001207756746014015354 0ustar vomjomvomjomgoo/c/g2c goo-0.155/c/g2c/CVS/Entries0100644000175000017500000000026007756746021014611 0ustar vomjomvomjom/Makefile/1.55/Wed Nov 19 19:49:37 2003/-kb/ /g2c-init.c/1.8/Mon Oct 20 22:45:38 2003/-kb/ /goo.c/1.48/Wed Nov 19 19:49:37 2003/-kb/ D/cols//// D/eval//// D/goo//// D/time//// goo-0.155/c/g2c/Makefile0100644000175000017500000000244607756744521014275 0ustar vomjomvomjomC_OBJS_DD = $(patsubst %,../%,$(C_OBJS)) .c.o: ../grt.h $(CC) -I.. $(CFLAGS) -DDEFAULT_GOO_ROOT=\"$(GOO_ROOT)\" -c -o $@ $< OBJS = \ goo/cols/opts.o \ goo/chr.o \ goo/io/write.o \ time/event.o \ time/%event.o \ goo/cols/cycle.o \ time/threads.o \ time/%threads.o \ goo/cols/seq.o \ eval/g2c.o \ goo/math.o \ goo/%math.o \ eval/ast-linearize.o \ goo/cols/zip.o \ eval/ast-eval.o \ eval/dependency.o \ goo.o \ goo/cols/step.o \ time/lock.o \ time/%lock.o \ eval/optimize.o \ goo/eval.o \ eval/syntax.o \ goo/cols/colx.o \ eval/ast.o \ goo/macros.o \ goo/io/read.o \ goo/cols.o \ goo/system.o \ goo/%system.o \ goo/sym.o \ goo/cols/seqx.o \ goo/types.o \ goo/fun.o \ goo/any.o \ goo/cols/range.o \ goo/boot.o \ goo/mag.o \ goo/conditions.o \ goo/loc.o \ goo/cols/rep.o \ goo/cols/flat.o \ goo/cols/map.o \ eval/main.o \ goo/random.o \ goo/io/port.o \ goo/io/%port.o \ goo/user.o \ goo/cols/lst.o \ eval/module.o \ goo/cols/col.o \ goo/cols/tab.o \ goo/packer.o \ goo/x.o \ goo/functional.o \ goo/bignum.o \ goo/cols/vec.o \ goo/late-macros.o \ goo/class.o \ goo/cols/str.o \ goo/cols/tup.o \ goo/app.o \ goo/log.o \ eval/top.o \ g2c-init.o g2c: $(C_OBJS_DD) $(OBJS) $(CC) $(LDFLAGS) -o g2c $(C_OBJS_DD) $(OBJS) $(LIBS) -lgmp clean: rm -f g2c $(OBJS) goo-0.155/c/g2c/g2c-init.c0100644000175000017500000000077307745062622014407 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/main"); return YPsrc_loc(YPib((P)line), _mod); } /* APPLICATION: */ extern MODULE_INFO module_info_evalSmain; extern void load_module_evalSmain (void); MODULE_INFO *goo_toplevel_module_info = &module_info_evalSmain; int main(int argc, char* argv[]) { YPinit_world(argc, argv); load_module_evalSmain(); return 0; } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo.c0100644000175000017500000026262607756744521013575 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSconditionsYbuild_condition_for_handler_interactively,"goo/conditions","build-condition-for-handler-interactively"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSioSreadYset_standard_read_macroX,"goo/io/read","set-standard-read-macro!"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSioSreadYget_standard_read_macro,"goo/io/read","get-standard-read-macro"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSioSreadYDchar_long_names,"goo/io/read","$char-long-names"); EXT(YgooSconditionsYdefault_handler_description,"goo/conditions","default-handler-description"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSioSreadYread_delimited_list,"goo/io/read","read-delimited-list"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYchoose_handler,"goo/conditions","choose-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSlate_macrosYTgensym_counterT,"goo/late-macros","*gensym-counter*"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YgooSlocYas_c,"goo/loc","as-c"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); DYNEXT(YgooSconditionsYTcurrent_handlersT,"goo/conditions","*current-handlers*"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSioSportYport_filename,"goo/io/port","port-filename"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YLbignumG,"goo/boot",""); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSlocYas_goo,"goo/loc","as-goo"); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSioSwriteYrecurring_write,"goo/io/write","recurring-write"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSconditionsYdescribe_handler,"goo/conditions","describe-handler"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooSconditionsYinvoke_handler_interactively,"goo/conditions","invoke-handler-interactively"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSconditionsYbuild_condition_interactively,"goo/conditions","build-condition-interactively"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YgooSfunctionalYzipped,"goo/functional","zipped"); EXT(YgooSconditionsYlist_handlers,"goo/conditions","list-handlers"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSioSwriteYwrite_type,"goo/io/write","write-type"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYport_index_setter,"goo/io/port","port-index-setter"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooSioSportYport_line_setter,"goo/io/port","port-line-setter"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ /* FUNCTIONS: */ extern P YgooY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YgooY___main_0___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSsym; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScols; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSlate_macros; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsSmap; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSmag}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmath}, {&module_info_gooSfunctional}, {&module_info_gooSloc}, {&module_info_gooSsym}, {&module_info_gooSconditions}, {&module_info_gooScols}, {&module_info_gooSpacker}, {&module_info_gooSioSwrite}, {&module_info_gooSioSread}, {&module_info_gooSioSport}, {&module_info_gooSlate_macros}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"build-condition-for-handler-interactively", &module_info_gooSconditions, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"msg*", &module_info_gooSioSwrite, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"set-standard-read-macro!", &module_info_gooSioSread, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"get-standard-read-macro", &module_info_gooSioSread, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"$char-long-names", &module_info_gooSioSread, NULL}, {"default-handler-description", &module_info_gooSconditions, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"read-delimited-list", &module_info_gooSioSread, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"choose-handler", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*gensym-counter*", &module_info_gooSlate_macros, NULL}, {"put", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"seq", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"as-c", &module_info_gooSloc, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"*current-handlers*", &module_info_gooSconditions, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"port-filename", &module_info_gooSioSport, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSboot, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"as-goo", &module_info_gooSloc, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"recurring-write", &module_info_gooSioSwrite, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"describe-handler", &module_info_gooSconditions, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"invoke-handler-interactively", &module_info_gooSconditions, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"out", &module_info_gooSioSport, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"len", &module_info_gooStypes, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"build-condition-interactively", &module_info_gooSconditions, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"zipped", &module_info_gooSfunctional, NULL}, {"list-handlers", &module_info_gooSconditions, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"write-type", &module_info_gooSioSwrite, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"port-index-setter", &module_info_gooSioSport, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSioSport, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"port-line-setter", &module_info_gooSioSport, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"port-handle", &module_info_gooSioSport, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"fold+", NULL}, {"napp", NULL}, {"push!", NULL}, {"esc", NULL}, {"<=", NULL}, {"round", NULL}, {"head-setter", NULL}, {"zap!", NULL}, {"subtype?", NULL}, {"%next-methods", NULL}, {"tab-growth-threshold", NULL}, {"", NULL}, {"", NULL}, {"packing-with", NULL}, {"app", NULL}, {"", NULL}, {"head", NULL}, {"fun-val", NULL}, {"tail", NULL}, {"app-sup", NULL}, {"class-direct-props", NULL}, {"pushf", NULL}, {"~", NULL}, {"num-to-str", NULL}, {"fun-mets", NULL}, {"@==", NULL}, {"", NULL}, {"", NULL}, {"pair", NULL}, {"pick", NULL}, {"", NULL}, {"ct-also", NULL}, {"sort-by!", NULL}, {"/", NULL}, {"==", NULL}, {"elt-or", NULL}, {"", NULL}, {"handler-info-message", NULL}, {"sig", NULL}, {"ct", NULL}, {"class-ancestors", NULL}, {"1st", NULL}, {"ceil", NULL}, {"port-index", NULL}, {"", NULL}, {"to-str", NULL}, {"", NULL}, {"", NULL}, {">>>", NULL}, {"case", NULL}, {"%define-method", NULL}, {"cond", NULL}, {"range-error-collection", NULL}, {"tab-shrink-threshold", NULL}, {"", NULL}, {"mod+", NULL}, {"match-atom", NULL}, {"sub-setter", NULL}, {"case-insensitive-string-equal", NULL}, {"", NULL}, {"del!", NULL}, {"bound?", NULL}, {"low-elt", NULL}, {"for", NULL}, {"", NULL}, {"keys", NULL}, {"~==", NULL}, {"let", NULL}, {"", NULL}, {"prop-owner", NULL}, {"floor", NULL}, {"del-dups", NULL}, {"rev!", NULL}, {"@not", NULL}, {"as", NULL}, {"use/mangle", NULL}, {"read-from-string", NULL}, {"prop-value-at", NULL}, {"$e", NULL}, {"*", NULL}, {"any2?", NULL}, {"", NULL}, {"elts", NULL}, {"sup", NULL}, {"class-name", NULL}, {"dm", NULL}, {"", NULL}, {"while", NULL}, {"num-to-str-base", NULL}, {"", NULL}, {"*max-print-length*", NULL}, {"exported", NULL}, {"fun-name", NULL}, {"zero?", NULL}, {"prop-bound?", NULL}, {"case-insensitive-string-hash", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"1-", NULL}, {"condition-message", NULL}, {"when", NULL}, {"split", NULL}, {"mod", NULL}, {"dv", NULL}, {"puts", NULL}, {"", NULL}, {"%pair", NULL}, {"call-error-function", NULL}, {"fab-setter-name", NULL}, {"pos", NULL}, {"met-app?", NULL}, {"eof-object?", NULL}, {"fun-arity", NULL}, {"all?", NULL}, {"", NULL}, {"key-test", NULL}, {"~=", NULL}, {"^", NULL}, {"", NULL}, {"tup", NULL}, {"logn", NULL}, {"", NULL}, {"prop-value-setter", NULL}, {"elt!", NULL}, {"into", NULL}, {"newline", NULL}, {"neg?", NULL}, {"%prop", NULL}, {"log", NULL}, {"col-res-type", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"assert-error", NULL}, {"lst", NULL}, {"sub*", NULL}, {"popf", NULL}, {"say", NULL}, {"t?", NULL}, {"", NULL}, {"digit?", NULL}, {"map2", NULL}, {"*max-print-depth*", NULL}, {"set", NULL}, {"key-type", NULL}, {"div", NULL}, {"match-unquote", NULL}, {"curry", NULL}, {"", NULL}, {"macro-error", NULL}, {"neg", NULL}, {"product-elts", NULL}, {"", NULL}, {"sqrt", NULL}, {"items", NULL}, {"unbound-variable-error-variable", NULL}, {"case-by", NULL}, {"any?", NULL}, {"renew", NULL}, {"|", NULL}, {"ord-app-mets", NULL}, {"macro-error-arguments", NULL}, {"add!", NULL}, {"write-to-string", NULL}, {"write", NULL}, {"", NULL}, {"alpha?", NULL}, {"", NULL}, {"-", NULL}, {"ins", NULL}, {"t<", NULL}, {"flo-bits", NULL}, {"elt-default", NULL}, {"all2?", NULL}, {"emit", NULL}, {"gensym", NULL}, {"t*", NULL}, {"fab-class", NULL}, {"range", NULL}, {"prop-value", NULL}, {"elt-type", NULL}, {"$default-handler-info", NULL}, {"port-contents", NULL}, {"", NULL}, {"peek", NULL}, {"prop-value-at-setter", NULL}, {"assert", NULL}, {"", NULL}, {"first-then", NULL}, {"abs", NULL}, {"fun-specs", NULL}, {"now-key", NULL}, {"out", NULL}, {"packing-in", NULL}, {"", NULL}, {"map", NULL}, {"atan2", NULL}, {"to-digit", NULL}, {"may-isa?", NULL}, {"fun-nary?", NULL}, {"fill", NULL}, {"", NULL}, {"seq", NULL}, {"quasiquote", NULL}, {"pub", NULL}, {"rcurry", NULL}, {"1+", NULL}, {"t=", NULL}, {"add-prop", NULL}, {"%prop-unbound-error", NULL}, {"mem?", NULL}, {"do3", NULL}, {"", NULL}, {"prop-init", NULL}, {"if", NULL}, {"", NULL}, {"decf", NULL}, {"post", NULL}, {"", NULL}, {"repeat", NULL}, {"prefix?", NULL}, {"atan", NULL}, {"to-upper", NULL}, {"cat!", NULL}, {"use/export", NULL}, {"isqrt", NULL}, {"use/include", NULL}, {"", NULL}, {"unless", NULL}, {"", NULL}, {"union-elts", NULL}, {"property-error-owner", NULL}, {"", NULL}, {"class-children", NULL}, {"match-sublist", NULL}, {"gen-add-met", NULL}, {"fun-names", NULL}, {"map-keyed", NULL}, {"fabs", NULL}, {"packer-res", NULL}, {"packed", NULL}, {"", NULL}, {"read", NULL}, {"round/", NULL}, {"$max-int", NULL}, {"fin", NULL}, {"ready?", NULL}, {"unzip", NULL}, {"elt-setter", NULL}, {"t+", NULL}, {"", NULL}, {"try", NULL}, {"put", NULL}, {"acos", NULL}, {"to-lower", NULL}, {"do", NULL}, {"and", NULL}, {"*print-base*", NULL}, {"do2", NULL}, {"match-nul-list", NULL}, {"loc-val-setter", NULL}, {"nxt", NULL}, {"", NULL}, {"address-of", NULL}, {"@checked-next-methods", NULL}, {"", NULL}, {"str", NULL}, {"range-error-key", NULL}, {"", NULL}, {"packing", NULL}, {"each", NULL}, {"", NULL}, {"ddv", NULL}, {"not", NULL}, {"var-type", NULL}, {"app-args", NULL}, {"cat-sym", NULL}, {"do-keyed", NULL}, {"asin", NULL}, {"upper?", NULL}, {"zap", NULL}, {"", NULL}, {"", NULL}, {"handler-info-arguments", NULL}, {"", NULL}, {"packer-add", NULL}, {"ds", NULL}, {"no-next-methods-error", NULL}, {"low-elt-setter", NULL}, {"", NULL}, {"in", NULL}, {"elt", NULL}, {"prop-type", NULL}, {"&", NULL}, {"find-or", NULL}, {"ceil/", NULL}, {"empty", NULL}, {"col", NULL}, {"app-filename", NULL}, {"pos?", NULL}, {"export", NULL}, {"clone", NULL}, {"push", NULL}, {"fab-pair", NULL}, {"zip", NULL}, {"", NULL}, {"msg", NULL}, {"cycle", NULL}, {"dp", NULL}, {"type-class", NULL}, {"loc-val", NULL}, {"tanh", NULL}, {"lower?", NULL}, {"", NULL}, {"gets", NULL}, {"pack", NULL}, {"compose", NULL}, {"empty?", NULL}, {"", NULL}, {"loc", NULL}, {"pop", NULL}, {"", NULL}, {"packer-fab", NULL}, {"dp!", NULL}, {"", NULL}, {"rotf", NULL}, {"tail-setter", NULL}, {"del", NULL}, {"", NULL}, {"mif", NULL}, {"", NULL}, {"macro-error-name", NULL}, {"or", NULL}, {"error", NULL}, {"finds", NULL}, {"del-vals!", NULL}, {"with-port", NULL}, {"suffix?", NULL}, {"fill!", NULL}, {"2nd", NULL}, {"+", NULL}, {"", NULL}, {"", NULL}, {"df", NULL}, {"", NULL}, {"now-setter", NULL}, {"cosh", NULL}, {"fin?", NULL}, {"", NULL}, {"", NULL}, {"odd?", NULL}, {"default-handler", NULL}, {"or/set", NULL}, {"$min-int", NULL}, {"max", NULL}, {"class-parents", NULL}, {"identity", NULL}, {"class-of", NULL}, {"cat2", NULL}, {"sub*-setter", NULL}, {"", NULL}, {"fab", NULL}, {"d.", NULL}, {"class-props", NULL}, {"", NULL}, {"find", NULL}, {"enum", NULL}, {"open", NULL}, {"sort!", NULL}, {"def", NULL}, {"pow", NULL}, {"modincf", NULL}, {"nul?", NULL}, {"fold", NULL}, {"list", NULL}, {">", NULL}, {"arity-error", NULL}, {"narity-error", NULL}, {"dg", NULL}, {"type-error-value", NULL}, {"bit?", NULL}, {"type-error-type", NULL}, {"sinh", NULL}, {"", NULL}, {"macro-expand", NULL}, {"id-hash", NULL}, {"", NULL}, {"even?", NULL}, {"prop-setter", NULL}, {"call-error-arguments", NULL}, {"floor/", NULL}, {"pe-msg", NULL}, {"<", NULL}, {"dup", NULL}, {"", NULL}, {"fab-handler", NULL}, {"fun", NULL}, {"", NULL}, {"reject", NULL}, {"force-out", NULL}, {"incf", NULL}, {"$pi", NULL}, {"", NULL}, {"join", NULL}, {"", NULL}, {"type-object", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"len/fill-setter", NULL}, {"=", NULL}, {"handler-matches?", NULL}, {"del-dups!", NULL}, {"", NULL}, {"use", NULL}, {"tan", NULL}, {"cat", NULL}, {"tab-hash", NULL}, {"from", NULL}, {"writeln", NULL}, {"packer", NULL}, {"new", NULL}, {"tab-growth-factor", NULL}, {"trunc", NULL}, {"rep", NULL}, {"", NULL}, {"msg-to-str", NULL}, {"", NULL}, {"trunc/", NULL}, {"op", NULL}, {"<<", NULL}, {"match", NULL}, {"", NULL}, {">>", NULL}, {"describe-condition", NULL}, {"", NULL}, {"last", NULL}, {"find-setter", NULL}, {"condition-arguments", NULL}, {"file-opening-error-filename", NULL}, {"add", NULL}, {"pack-in", NULL}, {"rem", NULL}, {"nil", NULL}, {"property-error-generic", NULL}, {"col-res", NULL}, {"swapf", NULL}, {"sort-by", NULL}, {"cos", NULL}, {"rev", NULL}, {"len", NULL}, {"use/library", NULL}, {"internal-error", NULL}, {">=", NULL}, {"sub", NULL}, {"until", NULL}, {"del-vals", NULL}, {"min", NULL}, {"isa?", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"port-to-str", NULL}, {"packing-as", NULL}, {"str-to-num", NULL}, {"close", NULL}, {"port-line", NULL}, {"get", NULL}, {"3rd", NULL}, {"always", NULL}, {"handler-function", NULL}, {"len-setter", NULL}, {"", NULL}, {"dc", NULL}, {"var-name", NULL}, {"below", NULL}, {"vec", NULL}, {"range-by", NULL}, {"sin", NULL}, {"nul", NULL}, {"quote", NULL}, {"opf", NULL}, {"sort", NULL}, {"now", NULL}, {"dlet", NULL}, {"", NULL}, {"need-implementation", NULL}, {"", NULL}, {"%fun-reg", NULL}, {"prop-getter", NULL}, {"find-getter", NULL}, {"pop!", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_goo; MODULE_INFO module_info_goo = { "goo", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSmag (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmath (void); extern void load_module_gooSfunctional (void); extern void load_module_gooSloc (void); extern void load_module_gooSsym (void); extern void load_module_gooSconditions (void); extern void load_module_gooScols (void); extern void load_module_gooSpacker (void); extern void load_module_gooSioSwrite (void); extern void load_module_gooSioSread (void); extern void load_module_gooSioSport (void); extern void load_module_gooSlate_macros (void); /* EXPRESSION: */ extern void load_module_goo (void); void load_module_goo (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSmag(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmath(); load_module_gooSfunctional(); load_module_gooSloc(); load_module_gooSsym(); load_module_gooSconditions(); load_module_gooScols(); load_module_gooSpacker(); load_module_gooSioSwrite(); load_module_gooSioSread(); load_module_gooSioSport(); load_module_gooSlate_macros(); (P)YgooY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/cols/0040755000175000017500000000000007756746015013572 5ustar vomjomvomjomgoo-0.155/c/g2c/cols/CVS/0040755000175000017500000000000007756746015014225 5ustar vomjomvomjomgoo-0.155/c/g2c/cols/CVS/Root0100644000175000017500000000003307756746015015064 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/cols/CVS/Repository0100644000175000017500000000001707756746015016322 0ustar vomjomvomjomgoo/c/g2c/cols goo-0.155/c/g2c/cols/CVS/Entries0100644000175000017500000000005507756746015015556 0ustar vomjomvomjom/pipe.c/1.17/Wed Sep 11 21:32:07 2002/-kb/ D goo-0.155/c/g2c/cols/pipe.c0100644000175000017500000023257207537733127014700 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"cols/pipe"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: cols/pipe */ EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(Ynot,"goo/boot","not"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YLproductG,"goo/boot",""); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfind_getter,"goo/boot","find-getter"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yfun_specs,"goo/boot","fun-specs"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooSruntimeYloc_val_setter,"goo/runtime","loc-val-setter"); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YLunionG,"goo/boot",""); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYdigitQ,"goo/math","digit?"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YtimeSlockYlock_state,"time/lock","lock-state"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YLchrG,"goo/boot",""); EXT(YtimeSeventYevent_name,"time/event","event-name"); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yobject_class,"goo/boot","object-class"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmathYas_log,"goo/math","as-log"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSruntimeYloc_val,"goo/runtime","loc-val"); EXT(Yord_app_mets,"goo/boot","ord-app-mets"); EXT(Yfab_class,"goo/boot","fab-class"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooSmathYupperQ,"goo/math","upper?"); EXT(YtimeSlockYlock_handle,"time/lock","lock-handle"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YLlogG,"goo/boot",""); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooSmathYT,"goo/math","*"); EXT(Yprop_value_setter,"goo/boot","prop-value-setter"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(Yprop_init,"goo/boot","prop-init"); DEF(YcolsSpipeYLpipeG,"cols/pipe",""); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YLanyG,"goo/boot",""); EXT(YgooSmathYNE,"goo/math","~="); DEF(YcolsSpipeYpipe_available,"cols/pipe","pipe-available"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YtimeSeventYevent_signal,"time/event","event-signal"); EXT(Yfun_name,"goo/boot","fun-name"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(Yfun_names,"goo/boot","fun-names"); EXT(YPprop,"goo/boot","%prop"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooSruntimeYcompose,"goo/runtime","compose"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooSmathYalphaQ,"goo/math","alpha?"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YtimeSeventYevent_wait,"time/event","event-wait"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Yprop_boundQ,"goo/boot","prop-bound?"); EXT(YtimeSlockYLlockG,"time/lock",""); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YLoptsG,"goo/boot",""); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooStypesYas,"goo/types","as"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YtimeSlockYlock_destroy,"time/lock","lock-destroy"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSmathYlowerQ,"goo/math","lower?"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSmathYN,"goo/math","~"); EXT(YtimeSlockYlock_unlock,"time/lock","lock-unlock"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); DEF(YcolsSpipeYpipe_idx,"cols/pipe","pipe-idx"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSruntimeYidentity,"goo/runtime","identity"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Ymet_appQ,"goo/boot","met-app?"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(Yclass_of,"goo/boot","class-of"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YLclassG,"goo/boot",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Ylst,"goo/boot","lst"); EXT(Yprop_value,"goo/boot","prop-value"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(Ynul,"goo/boot","nul"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSruntimeYalways,"goo/runtime","always"); EXT(YgooSmathYLbotG,"goo/math",""); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YLgenG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YtimeSeventYevent_wait_timed,"time/event","event-wait-timed"); EXT(YgooSmathYchar_Gascii,"goo/math","char->ascii"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YtimeSlockYlock_lock,"time/lock","lock-lock"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); DEF(YcolsSpipeYpipe_lock_setter,"cols/pipe","pipe-lock-setter"); EXT(YLsymG,"goo/boot",""); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(Yfun_val,"goo/boot","fun-val"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(Ynew,"goo/boot","new"); EXT(YgooSmacrosYemptyQ,"goo/macros","empty?"); EXT(YLstrG,"goo/boot",""); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSmathYaddress_of,"goo/math","address-of"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); DEF(YcolsSpipeYOlen,"cols/pipe","@len"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); DEF(YcolsSpipeYpipe_data,"cols/pipe","pipe-data"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YLflatG,"goo/boot",""); EXT(YtimeSeventYevent_reset,"time/event","event-reset"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooSmathYB,"goo/math","&"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YtimeSeventYLeventG,"time/event",""); EXT(YgooSmathYE,"goo/math","="); EXT(Yhandler_info_message,"goo/boot","handler-info-message"); EXT(Ytail_setter,"goo/boot","tail-setter"); DEF(YcolsSpipeYpipe_put_idx_setter,"cols/pipe","pipe-put-idx-setter"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYto_digit,"goo/math","to-digit"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YLlstG,"goo/boot",""); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(Yclone,"goo/boot","clone"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); DEF(YcolsSpipeYgrow_pipeX,"cols/pipe","grow-pipe!"); EXT(YgooSruntimeYcurry,"goo/runtime","curry"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooSmathYeof_object,"goo/math","eof-object"); DEF(YcolsSpipeYpipe_data_setter,"cols/pipe","pipe-data-setter"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YLseqXG,"goo/boot",""); EXT(Ytail,"goo/boot","tail"); EXT(YgooSmathYNEE,"goo/math","~=="); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(Yfun_arity,"goo/boot","fun-arity"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooSmathY_,"goo/math","-"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqG,"goo/boot",""); EXT(Yadd_prop,"goo/boot","add-prop"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Ynil,"goo/boot","nil"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YPdefine_method,"goo/boot","%define-method"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLcolXG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YgooSioSportYLportG,"goo/io/port",""); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YLcolIG,"goo/boot",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooSmathYto_upper,"goo/math","to-upper"); EXT(YgooSmathYround,"goo/math","round"); DEF(YcolsSpipeYenqX,"cols/pipe","enq!"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYto_str,"goo/math","to-str"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yhandler_info_arguments,"goo/boot","handler-info-arguments"); DEF(YcolsSpipeYpipe_get_idx,"cols/pipe","pipe-get-idx"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLrepG,"goo/boot",""); EXT(Yarity_error,"goo/boot","arity-error"); DEF(YcolsSpipeYpipe_put_idx,"cols/pipe","pipe-put-idx"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YtimeSeventYevent_broadcast,"time/event","event-broadcast"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(Yfun_naryQ,"goo/boot","fun-nary?"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(Yerror,"goo/boot","error"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooSmacrosYmatch_empty_list,"goo/macros","match-empty-list"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ygen_add_met,"goo/boot","gen-add-met"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); DEF(YcolsSpipeYdeqX,"cols/pipe","deq!"); EXT(YLlocG,"goo/boot",""); EXT(YLsimple_handler_infoG,"goo/boot",""); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(YgooSruntimeYapp_args,"goo/runtime","app-args"); EXT(YgooSruntimeYrcurry,"goo/runtime","rcurry"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSmathYeof_objectQ,"goo/math","eof-object?"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YLfloG,"goo/boot",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); DEF(YcolsSpipeYpipe_get_idx_setter,"cols/pipe","pipe-get-idx-setter"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooSmathYS,"goo/math","/"); EXT(Yfind_setter,"goo/boot","find-setter"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); DEF(YcolsSpipeYpipe_available_setter,"cols/pipe","pipe-available-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSruntimeYapp_filename,"goo/runtime","app-filename"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmathYfabs,"goo/math","fabs"); EXT(YgooSmathYto_lower,"goo/math","to-lower"); EXT(YLpropG,"goo/boot",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(Yhead,"goo/boot","head"); DEF(YcolsSpipeYpipe_lock,"cols/pipe","pipe-lock"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YLnumG,"goo/boot",""); /* FORWARD QUOTATIONS: */ DEFLIT(lit_32); DEFLIT(lit_14); DEFLIT(lit_34); DEFLIT(lit_1); DEFLIT(lit_7); DEFLIT(lit_30); DEFLIT(lit_0); DEFLIT(lit_47); DEFLIT(lit_18); DEFLIT(lit_45); DEFLIT(lit_40); DEFLIT(lit_36); DEFLIT(lit_10); DEFLIT(lit_37); DEFLIT(lit_15); DEFLIT(lit_21); DEFLIT(lit_39); DEFLIT(lit_22); DEFLIT(lit_4); DEFLIT(lit_26); DEFLIT(lit_19); DEFLIT(lit_31); DEFLIT(lit_46); DEFLIT(lit_28); DEFLIT(lit_23); DEFLIT(lit_3); DEFLIT(lit_35); DEFLIT(lit_42); DEFLIT(lit_17); DEFLIT(lit_16); DEFLIT(lit_25); DEFLIT(lit_12); DEFLIT(lit_29); DEFLIT(lit_41); DEFLIT(lit_24); DEFLIT(lit_43); DEFLIT(lit_2); DEFLIT(lit_33); DEFLIT(lit_38); DEFLIT(lit_11); DEFLIT(lit_9); DEFLIT(lit_5); DEFLIT(lit_44); DEFLIT(lit_20); DEFLIT(lit_13); DEFLIT(lit_27); DEFLIT(lit_8); DEFLIT(lit_6); /* FUNCTIONS: */ LOCFOR(fun_pipe_data_0); LOCFOR(fun_pipe_data_setter_1); LOCFOR(fun_pipe_get_idx_2); LOCFOR(fun_pipe_get_idx_setter_3); LOCFOR(fun_4); LOCFOR(fun_pipe_put_idx_5); LOCFOR(fun_pipe_put_idx_setter_6); LOCFOR(fun_7); LOCFOR(fun_pipe_lock_8); LOCFOR(fun_pipe_lock_setter_9); LOCFOR(fun_pipe_available_10); LOCFOR(fun_pipe_available_setter_11); LOCFOR(fun_fab_12); FUNFOR(YcolsSpipeYOlen); LOCFOR(fun_14); LOCFOR(fun_15); LOCFOR(fun_len_16); LOCFOR(fun_grow_pipeX_17); LOCFOR(fun_18); LOCFOR(fun_19); LOCFOR(fun_addX_20); LOCFOR(fun_enqX_21); LOCFOR(fun_22); LOCFOR(fun_23); LOCFOR(fun_deqX_24); LOCFOR(fun_25); LOCFOR(fun_26); LOCFOR(fun_zapX_27); LOCFOR(fun_28); LOCFOR(fun_29); FUNFOR(YcolsSpipeYpipe_idx); LOCFOR(fun_low_elt_31); LOCFOR(fun_low_elt_setter_32); LOCFOR(fun_elt_or_33); extern P YcolsSpipeY___main_0___ (); /* FUNCTION CODES: */ FUNCODEDEF(fun_pipe_data_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(Yprop_value),Ux_,VARREF(YcolsSpipeYpipe_data)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_data_setter_1) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(Yprop_value_setter),Uz_,Ux_,VARREF(YcolsSpipeYpipe_data)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_get_idx_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(Yprop_value),Ux_,VARREF(YcolsSpipeYpipe_get_idx)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_get_idx_setter_3) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(Yprop_value_setter),Uz_,Ux_,VARREF(YcolsSpipeYpipe_get_idx)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_4) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } FUNCODEDEF(fun_pipe_put_idx_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(Yprop_value),Ux_,VARREF(YcolsSpipeYpipe_put_idx)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_put_idx_setter_6) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(Yprop_value_setter),Uz_,Ux_,VARREF(YcolsSpipeYpipe_put_idx)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_7) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } FUNCODEDEF(fun_pipe_lock_8) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(Yprop_value),Ux_,VARREF(YcolsSpipeYpipe_lock)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_lock_setter_9) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(Yprop_value_setter),Uz_,Ux_,VARREF(YcolsSpipeYpipe_lock)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_available_10) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(Yprop_value),Ux_,VARREF(YcolsSpipeYpipe_available)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_pipe_available_setter_11) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(Yprop_value_setter),Uz_,Ux_,VARREF(YcolsSpipeYpipe_available)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_fab_12) { P c_,s_; P datF3873; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(c_, 0); ARG(s_, 1); T4 = CALL1(1,VARREF(YgooSmathYpower_of_two_ceil),s_); T3 = CALL2(1,VARREF(YgooScolsSrepYrep_fab),T4,YPfalse); datF3873 = T3; T1 = CALL1(1,VARREF(Ynew),VARREF(YtimeSlockYLlockG)); T2 = CALL1(1,VARREF(Ynew),VARREF(YtimeSeventYLeventG)); T0 = CALLN(1,VARREF(Ynew),7,VARREF(YcolsSpipeYLpipeG),VARREF(YcolsSpipeYpipe_data),datF3873,VARREF(YcolsSpipeYpipe_lock),T1,VARREF(YcolsSpipeYpipe_available),T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YcolsSpipeYOlen) { P c_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(c_, 0); T2 = CALL1(1,VARREF(YcolsSpipeYpipe_put_idx),c_); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_get_idx),c_); T1 = CALL2(1,VARREF(YgooSmathY_),T2,T3); T5 = CALL1(1,VARREF(YcolsSpipeYpipe_data),c_); T4 = CALL1(1,VARREF(YgooScolsSrepYrep_len),T5); T0 = CALL2(1,VARREF(YgooSmathYmod),T1,T4); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_14) { P T0; LINK_STACK(); CALL1(1,VARREF(YtimeSlockYlock_lock),FREEREF(0)); T0 = CALL1(1,VARREF(YcolsSpipeYOlen),FREEREF(1)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_15) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YtimeSlockYlock_unlock),FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_len_16) { P c_; P x_1802F3874; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),c_); x_1802F3874 = T3; T1 = FUNFAB(fun_14,2,x_1802F3874,c_); T2 = FUNFAB(fun_15,1,x_1802F3874); T0 = with_cleanup(T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_grow_pipeX_17) { P c_; P jF3879; P iF3878; P ndatF3877; P olenF3876; P odatF3875; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(c_, 0); T18 = CALL1(1,VARREF(YcolsSpipeYpipe_data),c_); odatF3875 = T18; T17 = CALL1(1,VARREF(YgooScolsSrepYrep_len),odatF3875); olenF3876 = T17; T16 = CALL1(1,VARREF(YgooScolsSrepYrep_len),odatF3875); T15 = CALL2(1,VARREF(YgooSmathYA),T16,YPint((P)1)); T14 = CALL1(1,VARREF(YgooSmathYpower_of_two_ceil),T15); T13 = CALL2(1,VARREF(YgooSmagYmax),YPint((P)2),T14); T12 = CALL2(1,VARREF(YgooScolsSrepYrep_fab),T13,YPfalse); ndatF3877 = T12; T9 = CALL1(1,VARREF(YcolsSpipeYpipe_get_idx),c_); iF3878 = T9; jF3879 = YPint((P)0); for (;;) { P a241_0,a241_1; loop241: T3 = CALL1(1,VARREF(YcolsSpipeYpipe_put_idx),c_); T2 = CALL2(1,VARREF(YgooSmathYE),iF3878,T3); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),odatF3875,iF3878); CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),T4,ndatF3877,jF3879); T7 = CALL2(1,VARREF(YgooSmathYA),iF3878,YPint((P)1)); T6 = CALL2(1,VARREF(YgooSmathYmod),T7,olenF3876); T8 = CALL2(1,VARREF(YgooSmathYA),jF3879,YPint((P)1)); a241_0 = T6; a241_1 = T8; iF3878 = a241_0; jF3879 = a241_1; goto loop241; T0 = T5; } else { T0 = YPfalse; } break; } CALL2(1,VARREF(YcolsSpipeYpipe_data_setter),ndatF3877,c_); T10 = CALL1(1,VARREF(YcolsSpipeYOlen),c_); CALL2(1,VARREF(YcolsSpipeYpipe_put_idx_setter),T10,c_); T11 = CALL2(1,VARREF(YcolsSpipeYpipe_get_idx_setter),YPint((P)0),c_); UNLINK_STACK(); QRET(T11); } FUNCODEDEF(fun_18) { P UF3882; P x_1804F3881; P lenF3880; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); CALL1(1,VARREF(YtimeSlockYlock_lock),FREEREF(0)); T16 = CALL1(1,VARREF(YcolsSpipeYOlen),FREEREF(1)); lenF3880 = T16; T1 = CALL2(1,VARREF(YgooSmathYA),lenF3880,YPint((P)1)); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_data),FREEREF(1)); T2 = CALL1(1,VARREF(YgooScolsSrepYrep_len),T3); T0 = CALL2(1,VARREF(YgooSmagYGE),T1,T2); if (T0 != YPfalse) { T4 = CALL1(1,VARREF(YcolsSpipeYgrow_pipeX),FREEREF(1)); } else { } T5 = CALL2(1,VARREF(YgooSmathYE),lenF3880,YPint((P)0)); if (T5 != YPfalse) { T7 = CALL1(1,VARREF(YcolsSpipeYpipe_available),FREEREF(1)); T8 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),FREEREF(1)); T6 = CALL2(1,VARREF(YtimeSeventYevent_signal),T7,T8); } else { } T9 = CALL1(1,VARREF(YcolsSpipeYpipe_data),FREEREF(1)); T10 = CALL1(1,VARREF(YcolsSpipeYpipe_put_idx),FREEREF(1)); CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),FREEREF(2),T9,T10); x_1804F3881 = FREEREF(1); T15 = CALL1(1,VARREF(YcolsSpipeYpipe_put_idx),x_1804F3881); UF3882 = T15; T14 = CALL1(1,VARREF(YcolsSpipeYpipe_data),FREEREF(1)); T13 = CALL1(1,VARREF(YgooScolsSrepYrep_len),T14); T12 = CALL3(1,VARREF(YgooSmathYmodA),UF3882,YPint((P)1),T13); T11 = CALL2(1,VARREF(YcolsSpipeYpipe_put_idx_setter),T12,x_1804F3881); UNLINK_STACK(); QRET(FREEREF(1)); } FUNCODEDEF(fun_19) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YtimeSlockYlock_unlock),FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_addX_20) { P c_,x_; P x_1803F3883; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),c_); x_1803F3883 = T3; T1 = FUNFAB(fun_18,3,x_1803F3883,c_,x_); T2 = FUNFAB(fun_19,1,x_1803F3883); T0 = with_cleanup(T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_enqX_21) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooScolsScolxYaddX),c_,x_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_22) { P UF3886; P x_1806F3885; P resF3884; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); CALL1(1,VARREF(YtimeSlockYlock_lock),FREEREF(0)); T1 = CALL1(1,VARREF(YcolsSpipeYOlen),FREEREF(1)); T0 = CALL2(1,VARREF(YgooSmathYE),T1,YPint((P)0)); if (T0 != YPfalse) { T3 = CALL1(1,VARREF(YcolsSpipeYpipe_available),FREEREF(1)); T4 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),FREEREF(1)); T2 = CALL2(1,VARREF(YtimeSeventYevent_wait),T3,T4); } else { } T11 = CALL1(1,VARREF(YcolsSpipeYpipe_data),FREEREF(1)); T12 = CALL1(1,VARREF(YcolsSpipeYpipe_get_idx),FREEREF(1)); T10 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),T11,T12); resF3884 = T10; x_1806F3885 = FREEREF(1); T9 = CALL1(1,VARREF(YcolsSpipeYpipe_get_idx),x_1806F3885); UF3886 = T9; T8 = CALL1(1,VARREF(YcolsSpipeYpipe_data),FREEREF(1)); T7 = CALL1(1,VARREF(YgooScolsSrepYrep_len),T8); T6 = CALL3(1,VARREF(YgooSmathYmodA),UF3886,YPint((P)1),T7); T5 = CALL2(1,VARREF(YcolsSpipeYpipe_get_idx_setter),T6,x_1806F3885); UNLINK_STACK(); QRET(resF3884); } FUNCODEDEF(fun_23) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YtimeSlockYlock_unlock),FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_deqX_24) { P c_; P x_1805F3887; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),c_); x_1805F3887 = T3; T1 = FUNFAB(fun_22,2,x_1805F3887,c_); T2 = FUNFAB(fun_23,1,x_1805F3887); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_25) { LINK_STACK(); CALL1(1,VARREF(YtimeSlockYlock_lock),FREEREF(0)); CALL2(1,VARREF(YcolsSpipeYpipe_get_idx_setter),YPint((P)0),FREEREF(1)); CALL2(1,VARREF(YcolsSpipeYpipe_put_idx_setter),YPint((P)0),FREEREF(1)); UNLINK_STACK(); QRET(FREEREF(1)); } FUNCODEDEF(fun_26) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YtimeSlockYlock_unlock),FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_zapX_27) { P c_; P x_1807F3888; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),c_); x_1807F3888 = T3; T1 = FUNFAB(fun_25,2,x_1807F3888,c_); T2 = FUNFAB(fun_26,1,x_1807F3888); T0 = with_cleanup(T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_28) { P T0,T1,T2,T3,T4; LINK_STACK(); CALL1(1,VARREF(YtimeSlockYlock_lock),FREEREF(0)); T2 = CALL1(1,VARREF(YcolsSpipeYpipe_get_idx),FREEREF(2)); T1 = CALL2(1,VARREF(YgooSmathYA),FREEREF(1),T2); T4 = CALL1(1,VARREF(YcolsSpipeYpipe_data),FREEREF(2)); T3 = CALL1(1,VARREF(YgooScolsSrepYrep_len),T4); T0 = CALL2(1,VARREF(YgooSmathYmod),T1,T3); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_29) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YtimeSlockYlock_unlock),FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YcolsSpipeYpipe_idx) { P x_,i_; P x_1808F3889; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); T3 = CALL1(1,VARREF(YcolsSpipeYpipe_lock),x_); x_1808F3889 = T3; T1 = FUNFAB(fun_28,3,x_1808F3889,i_,x_); T2 = FUNFAB(fun_29,1,x_1808F3889); T0 = with_cleanup(T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_low_elt_31) { P x_,i_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); T1 = CALL1(1,VARREF(YcolsSpipeYpipe_data),x_); T2 = CALL2(1,VARREF(YcolsSpipeYpipe_idx),x_,i_); T0 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_low_elt_setter_32) { P z_,x_,i_; P T0,T1,T2; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); ARG(i_, 2); T1 = CALL1(1,VARREF(YcolsSpipeYpipe_data),x_); T2 = CALL2(1,VARREF(YcolsSpipeYpipe_idx),x_,i_); T0 = CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),z_,T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_elt_or_33) { P c_,i_,default_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); ARG(i_, 1); ARG(default_, 2); T1 = CALL2(1,VARREF(YgooScolsSseqYrange_checkQ),c_,i_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYlow_elt),c_,i_); T0 = T2; } else { T0 = default_; } UNLINK_STACK(); QRET(T0); } P YcolsSpipeY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102; DEFCREGS(); lit_0 = YPPsym((P)""); T2 = (P)YPpair(VARREF(YLseqXG),Ynil); T1 = (P)YPpair(VARREF(YLflatG),T2); T0 = XCALL2(1,VARREF(Yfab_class),LITREF(lit_0),T1); VARSET(YcolsSpipeYLpipeG,T0); lit_1 = YPPsym((P)"pipe-data"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T3 = YPsig(LITREF(lit_2),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_pipe_data_0 = YPmet(FUNCODEREF(fun_pipe_data_0),LITREF(lit_1),T3,ENVNUL,PNUL,sloc(10)); T5 = VARREF_OR(YcolsSpipeYpipe_data,YPfalse); T6 = fun_pipe_data_0; T4 = XCALL2(1,VARREF(YPdefine_method),T5,T6); VARSET(YcolsSpipeYpipe_data,T4); lit_3 = YPPsym((P)"pipe-data-setter"); lit_4 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T7 = YPsig(LITREF(lit_4),YPPlist(2,VARREF(YLrepG),VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_pipe_data_setter_1 = YPmet(FUNCODEREF(fun_pipe_data_setter_1),LITREF(lit_3),T7,ENVNUL,PNUL,sloc(10)); T9 = VARREF_OR(YcolsSpipeYpipe_data_setter,YPfalse); T10 = fun_pipe_data_setter_1; T8 = XCALL2(1,VARREF(YPdefine_method),T9,T10); VARSET(YcolsSpipeYpipe_data_setter,T8); XCALL5(1,VARREF(YPprop),VARREF(YcolsSpipeYLpipeG),VARREF(YcolsSpipeYpipe_data),VARREF(YcolsSpipeYpipe_data_setter),VARREF(YLrepG),VARREF(YPprop_unbound_error)); lit_5 = YPPsym((P)"pipe-get-idx"); lit_6 = YPPlist(1,YPPsym((P)"_x")); T11 = YPsig(LITREF(lit_6),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_pipe_get_idx_2 = YPmet(FUNCODEREF(fun_pipe_get_idx_2),LITREF(lit_5),T11,ENVNUL,PNUL,sloc(11)); T13 = VARREF_OR(YcolsSpipeYpipe_get_idx,YPfalse); T14 = fun_pipe_get_idx_2; T12 = XCALL2(1,VARREF(YPdefine_method),T13,T14); VARSET(YcolsSpipeYpipe_get_idx,T12); lit_7 = YPPsym((P)"pipe-get-idx-setter"); lit_8 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T15 = YPsig(LITREF(lit_8),YPPlist(2,VARREF(YLintG),VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_pipe_get_idx_setter_3 = YPmet(FUNCODEREF(fun_pipe_get_idx_setter_3),LITREF(lit_7),T15,ENVNUL,PNUL,sloc(11)); T17 = VARREF_OR(YcolsSpipeYpipe_get_idx_setter,YPfalse); T18 = fun_pipe_get_idx_setter_3; T16 = XCALL2(1,VARREF(YPdefine_method),T17,T18); VARSET(YcolsSpipeYpipe_get_idx_setter,T16); lit_9 = YPPlist(1,YPPsym((P)"_x")); T19 = YPsig(LITREF(lit_9),YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_4 = YPmet(FUNCODEREF(fun_4),YPfalse,T19,ENVNUL,PNUL,sloc(11)); T20 = fun_4; XCALL5(1,VARREF(YPprop),VARREF(YcolsSpipeYLpipeG),VARREF(YcolsSpipeYpipe_get_idx),VARREF(YcolsSpipeYpipe_get_idx_setter),VARREF(YLintG),T20); lit_10 = YPPsym((P)"pipe-put-idx"); lit_11 = YPPlist(1,YPPsym((P)"_x")); T21 = YPsig(LITREF(lit_11),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_pipe_put_idx_5 = YPmet(FUNCODEREF(fun_pipe_put_idx_5),LITREF(lit_10),T21,ENVNUL,PNUL,sloc(12)); T23 = VARREF_OR(YcolsSpipeYpipe_put_idx,YPfalse); T24 = fun_pipe_put_idx_5; T22 = XCALL2(1,VARREF(YPdefine_method),T23,T24); VARSET(YcolsSpipeYpipe_put_idx,T22); lit_12 = YPPsym((P)"pipe-put-idx-setter"); lit_13 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T25 = YPsig(LITREF(lit_13),YPPlist(2,VARREF(YLintG),VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_pipe_put_idx_setter_6 = YPmet(FUNCODEREF(fun_pipe_put_idx_setter_6),LITREF(lit_12),T25,ENVNUL,PNUL,sloc(12)); T27 = VARREF_OR(YcolsSpipeYpipe_put_idx_setter,YPfalse); T28 = fun_pipe_put_idx_setter_6; T26 = XCALL2(1,VARREF(YPdefine_method),T27,T28); VARSET(YcolsSpipeYpipe_put_idx_setter,T26); lit_14 = YPPlist(1,YPPsym((P)"_x")); T29 = YPsig(LITREF(lit_14),YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_7 = YPmet(FUNCODEREF(fun_7),YPfalse,T29,ENVNUL,PNUL,sloc(12)); T30 = fun_7; XCALL5(1,VARREF(YPprop),VARREF(YcolsSpipeYLpipeG),VARREF(YcolsSpipeYpipe_put_idx),VARREF(YcolsSpipeYpipe_put_idx_setter),VARREF(YLintG),T30); lit_15 = YPPsym((P)"pipe-lock"); lit_16 = YPPlist(1,YPPsym((P)"_x")); T31 = YPsig(LITREF(lit_16),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_pipe_lock_8 = YPmet(FUNCODEREF(fun_pipe_lock_8),LITREF(lit_15),T31,ENVNUL,PNUL,sloc(13)); T33 = VARREF_OR(YcolsSpipeYpipe_lock,YPfalse); T34 = fun_pipe_lock_8; T32 = XCALL2(1,VARREF(YPdefine_method),T33,T34); VARSET(YcolsSpipeYpipe_lock,T32); lit_17 = YPPsym((P)"pipe-lock-setter"); lit_18 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T35 = YPsig(LITREF(lit_18),YPPlist(2,VARREF(YtimeSlockYLlockG),VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_pipe_lock_setter_9 = YPmet(FUNCODEREF(fun_pipe_lock_setter_9),LITREF(lit_17),T35,ENVNUL,PNUL,sloc(13)); T37 = VARREF_OR(YcolsSpipeYpipe_lock_setter,YPfalse); T38 = fun_pipe_lock_setter_9; T36 = XCALL2(1,VARREF(YPdefine_method),T37,T38); VARSET(YcolsSpipeYpipe_lock_setter,T36); XCALL5(1,VARREF(YPprop),VARREF(YcolsSpipeYLpipeG),VARREF(YcolsSpipeYpipe_lock),VARREF(YcolsSpipeYpipe_lock_setter),VARREF(YtimeSlockYLlockG),VARREF(YPprop_unbound_error)); lit_19 = YPPsym((P)"pipe-available"); lit_20 = YPPlist(1,YPPsym((P)"_x")); T39 = YPsig(LITREF(lit_20),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_pipe_available_10 = YPmet(FUNCODEREF(fun_pipe_available_10),LITREF(lit_19),T39,ENVNUL,PNUL,sloc(14)); T41 = VARREF_OR(YcolsSpipeYpipe_available,YPfalse); T42 = fun_pipe_available_10; T40 = XCALL2(1,VARREF(YPdefine_method),T41,T42); VARSET(YcolsSpipeYpipe_available,T40); lit_21 = YPPsym((P)"pipe-available-setter"); lit_22 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T43 = YPsig(LITREF(lit_22),YPPlist(2,VARREF(YtimeSeventYLeventG),VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_pipe_available_setter_11 = YPmet(FUNCODEREF(fun_pipe_available_setter_11),LITREF(lit_21),T43,ENVNUL,PNUL,sloc(14)); T45 = VARREF_OR(YcolsSpipeYpipe_available_setter,YPfalse); T46 = fun_pipe_available_setter_11; T44 = XCALL2(1,VARREF(YPdefine_method),T45,T46); VARSET(YcolsSpipeYpipe_available_setter,T44); XCALL5(1,VARREF(YPprop),VARREF(YcolsSpipeYLpipeG),VARREF(YcolsSpipeYpipe_available),VARREF(YcolsSpipeYpipe_available_setter),VARREF(YtimeSeventYLeventG),VARREF(YPprop_unbound_error)); lit_23 = YPPsym((P)"fab"); lit_24 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"s")); T48 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YcolsSpipeYLpipeG)); T47 = YPsig(LITREF(lit_24),YPPlist(2,T48,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YcolsSpipeYLpipeG),Ynil); fun_fab_12 = YPmet(FUNCODEREF(fun_fab_12),LITREF(lit_23),T47,ENVNUL,PNUL,sloc(16)); T50 = VARREF_OR(YgooScolsScolYfab,YPfalse); T51 = fun_fab_12; T49 = XCALL2(1,VARREF(YPdefine_method),T50,T51); VARSET(YgooScolsScolYfab,T49); lit_25 = YPPsym((P)"@len"); lit_26 = YPPlist(1,YPPsym((P)"c")); T52 = YPsig(LITREF(lit_26),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); YcolsSpipeYOlen = YPmet(FUNCODEREF(YcolsSpipeYOlen),LITREF(lit_25),T52,ENVNUL,PNUL,sloc(21)); T53 = YcolsSpipeYOlen; VARSET(YcolsSpipeYOlen,T53); lit_27 = YPPsym((P)"len"); lit_28 = YPPlist(1,YPPsym((P)"c")); lit_29 = Ynil; T56 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_14 = YPmet(FUNCODEREF(fun_14),YPfalse,T56,ENVNUL,PNUL,sloc(24)); T55 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_15 = YPmet(FUNCODEREF(fun_15),YPfalse,T55,ENVNUL,PNUL,sloc(24)); T54 = YPsig(LITREF(lit_28),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_16 = YPmet(FUNCODEREF(fun_len_16),LITREF(lit_27),T54,ENVNUL,PNUL,sloc(24)); T58 = VARREF_OR(YgooStypesYlen,YPfalse); T59 = fun_len_16; T57 = XCALL2(1,VARREF(YPdefine_method),T58,T59); VARSET(YgooStypesYlen,T57); lit_30 = YPPsym((P)"grow-pipe!"); lit_31 = YPPlist(1,YPPsym((P)"c")); T60 = YPsig(LITREF(lit_31),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_grow_pipeX_17 = YPmet(FUNCODEREF(fun_grow_pipeX_17),LITREF(lit_30),T60,ENVNUL,PNUL,sloc(26)); T62 = VARREF_OR(YcolsSpipeYgrow_pipeX,YPfalse); T63 = fun_grow_pipeX_17; T61 = XCALL2(1,VARREF(YPdefine_method),T62,T63); VARSET(YcolsSpipeYgrow_pipeX,T61); lit_32 = YPPsym((P)"add!"); lit_33 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T66 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_18 = YPmet(FUNCODEREF(fun_18),YPfalse,T66,ENVNUL,PNUL,sloc(39)); T65 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_19 = YPmet(FUNCODEREF(fun_19),YPfalse,T65,ENVNUL,PNUL,sloc(39)); T64 = YPsig(LITREF(lit_33),YPPlist(2,VARREF(YcolsSpipeYLpipeG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YcolsSpipeYLpipeG),Ynil); fun_addX_20 = YPmet(FUNCODEREF(fun_addX_20),LITREF(lit_32),T64,ENVNUL,PNUL,sloc(38)); T68 = VARREF_OR(YgooScolsScolxYaddX,YPfalse); T69 = fun_addX_20; T67 = XCALL2(1,VARREF(YPdefine_method),T68,T69); VARSET(YgooScolsScolxYaddX,T67); lit_34 = YPPsym((P)"enq!"); lit_35 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T70 = YPsig(LITREF(lit_35),YPPlist(2,VARREF(YcolsSpipeYLpipeG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YcolsSpipeYLpipeG),Ynil); fun_enqX_21 = YPmet(FUNCODEREF(fun_enqX_21),LITREF(lit_34),T70,ENVNUL,PNUL,sloc(49)); T72 = VARREF_OR(YcolsSpipeYenqX,YPfalse); T73 = fun_enqX_21; T71 = XCALL2(1,VARREF(YPdefine_method),T72,T73); VARSET(YcolsSpipeYenqX,T71); lit_36 = YPPsym((P)"deq!"); lit_37 = YPPlist(1,YPPsym((P)"c")); T76 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_22 = YPmet(FUNCODEREF(fun_22),YPfalse,T76,ENVNUL,PNUL,sloc(53)); T75 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_23 = YPmet(FUNCODEREF(fun_23),YPfalse,T75,ENVNUL,PNUL,sloc(53)); T74 = YPsig(LITREF(lit_37),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_deqX_24 = YPmet(FUNCODEREF(fun_deqX_24),LITREF(lit_36),T74,ENVNUL,PNUL,sloc(52)); T78 = VARREF_OR(YcolsSpipeYdeqX,YPfalse); T79 = fun_deqX_24; T77 = XCALL2(1,VARREF(YPdefine_method),T78,T79); VARSET(YcolsSpipeYdeqX,T77); lit_38 = YPPsym((P)"zap!"); lit_39 = YPPlist(1,YPPsym((P)"c")); T82 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_25 = YPmet(FUNCODEREF(fun_25),YPfalse,T82,ENVNUL,PNUL,sloc(61)); T81 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_26 = YPmet(FUNCODEREF(fun_26),YPfalse,T81,ENVNUL,PNUL,sloc(61)); T80 = YPsig(LITREF(lit_39),YPPlist(1,VARREF(YcolsSpipeYLpipeG)),YPfalse,YPint((P)1),VARREF(YcolsSpipeYLpipeG),Ynil); fun_zapX_27 = YPmet(FUNCODEREF(fun_zapX_27),LITREF(lit_38),T80,ENVNUL,PNUL,sloc(60)); T84 = VARREF_OR(YgooScolsScolxYzapX,YPfalse); T85 = fun_zapX_27; T83 = XCALL2(1,VARREF(YPdefine_method),T84,T85); VARSET(YgooScolsScolxYzapX,T83); lit_40 = YPPsym((P)"pipe-idx"); lit_41 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T88 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_28 = YPmet(FUNCODEREF(fun_28),YPfalse,T88,ENVNUL,PNUL,sloc(67)); T87 = YPsig(LITREF(lit_29),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_29 = YPmet(FUNCODEREF(fun_29),YPfalse,T87,ENVNUL,PNUL,sloc(67)); T86 = YPsig(LITREF(lit_41),YPPlist(2,VARREF(YcolsSpipeYLpipeG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); YcolsSpipeYpipe_idx = YPmet(FUNCODEREF(YcolsSpipeYpipe_idx),LITREF(lit_40),T86,ENVNUL,PNUL,sloc(66)); T89 = YcolsSpipeYpipe_idx; VARSET(YcolsSpipeYpipe_idx,T89); lit_42 = YPPsym((P)"low-elt"); lit_43 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T90 = YPsig(LITREF(lit_43),YPPlist(2,VARREF(YcolsSpipeYLpipeG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_low_elt_31 = YPmet(FUNCODEREF(fun_low_elt_31),LITREF(lit_42),T90,ENVNUL,PNUL,sloc(70)); T92 = VARREF_OR(YgooScolsScolYlow_elt,YPfalse); T93 = fun_low_elt_31; T91 = XCALL2(1,VARREF(YPdefine_method),T92,T93); VARSET(YgooScolsScolYlow_elt,T91); lit_44 = YPPsym((P)"low-elt-setter"); lit_45 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"x"),YPPsym((P)"i")); T94 = YPsig(LITREF(lit_45),YPPlist(3,VARREF(YLanyG),VARREF(YcolsSpipeYLpipeG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_low_elt_setter_32 = YPmet(FUNCODEREF(fun_low_elt_setter_32),LITREF(lit_44),T94,ENVNUL,PNUL,sloc(73)); T96 = VARREF_OR(YgooScolsScolxYlow_elt_setter,YPfalse); T97 = fun_low_elt_setter_32; T95 = XCALL2(1,VARREF(YPdefine_method),T96,T97); VARSET(YgooScolsScolxYlow_elt_setter,T95); lit_46 = YPPsym((P)"elt-or"); lit_47 = YPPlist(3,YPPsym((P)"c"),YPPsym((P)"i"),YPPsym((P)"default")); T98 = YPsig(LITREF(lit_47),YPPlist(3,VARREF(YcolsSpipeYLpipeG),VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_33 = YPmet(FUNCODEREF(fun_elt_or_33),LITREF(lit_46),T98,ENVNUL,PNUL,sloc(76)); T100 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T101 = fun_elt_or_33; T99 = XCALL2(1,VARREF(YPdefine_method),T100,T101); VARSET(YgooScolsScolYelt_or,T99); T102 = YPfalse; return T102; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_timeSlock; extern MODULE_INFO module_info_timeSevent; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooSruntime; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSlate_macros; extern MODULE_INFO module_info_gooScolsSmap; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooScolsSrep}, {&module_info_gooScolsSseq}, {&module_info_gooScolsScol}, {&module_info_gooSmath}, {&module_info_timeSlock}, {&module_info_timeSevent}, {NULL} }; static IMPORT_INFO import_infos[] = { {"zap!", &module_info_gooScolsScolx, NULL}, {"not", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"tan", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"+", &module_info_gooSmath, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"find-getter", &module_info_gooSboot, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"def", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"fun-specs", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"loc-val-setter", &module_info_gooSruntime, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSconditions, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"t=", &module_info_gooStypes, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"<<", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"digit?", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"lock-state", &module_info_timeSlock, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"event-name", &module_info_timeSevent, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"neg", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"object-class", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"as-log", &module_info_gooSmath, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSruntime, NULL}, {"ord-app-mets", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"upper?", &module_info_gooSmath, NULL}, {"lock-handle", &module_info_timeSlock, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"atan", &module_info_gooSmath, NULL}, {"floor", &module_info_gooSmath, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"t+", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"close", &module_info_gooSioSport, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"df", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"rep", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSmath, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fin", &module_info_gooSboot, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_gooSconditions, NULL}, {"dg", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"event-signal", &module_info_timeSevent, NULL}, {"fun-name", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-names", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSboot, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"compose", &module_info_gooSruntime, NULL}, {"dc", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"alpha?", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooScolsScol, NULL}, {"until", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"event-wait", &module_info_timeSevent, NULL}, {"", &module_info_gooSconditions, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"$e", &module_info_gooSmath, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"prop-bound?", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"", &module_info_timeSlock, NULL}, {"round/", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"quote", &module_info_gooSboot, NULL}, {"lock-destroy", &module_info_timeSlock, NULL}, {"min", &module_info_gooSmag, NULL}, {"pack", &module_info_gooSpacker, NULL}, {">>>", &module_info_gooSmath, NULL}, {"lower?", &module_info_gooSmath, NULL}, {"with-lock", &module_info_timeSlock, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"~", &module_info_gooSmath, NULL}, {"lock-unlock", &module_info_timeSlock, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"cos", &module_info_gooSmath, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"1-", &module_info_gooSmath, NULL}, {"identity", &module_info_gooSruntime, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"open", &module_info_gooSioSport, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"met-app?", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"class-of", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"lst", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"nul", &module_info_gooSboot, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"case", &module_info_gooSmacros, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"logn", &module_info_gooSmath, NULL}, {"always", &module_info_gooSruntime, NULL}, {"", &module_info_gooSmath, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"event-wait-timed", &module_info_timeSevent, NULL}, {"char->ascii", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"loc", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"lock-lock", &module_info_timeSlock, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"let", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"fold+", &module_info_gooScolsScol, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-val", &module_info_gooSboot, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"<=", &module_info_gooSmag, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"new", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooSmacros, NULL}, {"while", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"address-of", &module_info_gooSmath, NULL}, {"get", &module_info_gooSioSport, NULL}, {"when", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"dv", &module_info_gooSboot, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {">", &module_info_gooSmag, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"tup", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"event-reset", &module_info_timeSevent, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"<", &module_info_gooSmag, NULL}, {"&", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {">>", &module_info_gooSmath, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_timeSevent, NULL}, {"=", &module_info_gooSmath, NULL}, {"handler-info-message", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"to-digit", &module_info_gooSmath, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"clone", &module_info_gooSboot, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"in", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"curry", &module_info_gooSruntime, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooScolsScol, NULL}, {"eof-object", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"~==", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSconditions, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"read", &module_info_gooSconditions, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"nil", &module_info_gooSboot, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"seq", &module_info_gooSboot, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"use", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"try", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"1+", &module_info_gooSmath, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%define-method", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"out", &module_info_gooSioSport, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"if", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSioSport, NULL}, {"div", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"to-upper", &module_info_gooSmath, NULL}, {"round", &module_info_gooSmath, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSmath, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"handler-info-arguments", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"^", &module_info_gooSmath, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"and", &module_info_gooSmacros, NULL}, {"event-broadcast", &module_info_timeSevent, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-nary?", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"error", &module_info_gooSboot, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"app", &module_info_gooSmacros, NULL}, {"match-empty-list", &module_info_gooSmacros, NULL}, {"map", &module_info_gooSmacros, NULL}, {"gen-add-met", &module_info_gooSboot, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSpacker, NULL}, {"app-args", &module_info_gooSruntime, NULL}, {"ds", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSruntime, NULL}, {"", &module_info_gooSioSport, NULL}, {"t?", &module_info_gooStypes, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"pow", &module_info_gooSmath, NULL}, {"eof-object?", &module_info_gooSmath, NULL}, {"even?", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"last", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"log", &module_info_gooSmath, NULL}, {"/", &module_info_gooSmath, NULL}, {"find-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"app-filename", &module_info_gooSruntime, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"export", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"mif", &module_info_gooSboot, NULL}, {"t<", &module_info_gooStypes, NULL}, {"@==", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"do", &module_info_gooSmacros, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"put", &module_info_gooSioSport, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YcolsSpipeYLpipeG}, {"pipe-available", CVAR, &YcolsSpipeYpipe_available}, {"pipe-idx", CVAR, &YcolsSpipeYpipe_idx}, {"pipe-lock-setter", CVAR, &YcolsSpipeYpipe_lock_setter}, {"@len", CVAR, &YcolsSpipeYOlen}, {"pipe-data", CVAR, &YcolsSpipeYpipe_data}, {"pipe-put-idx-setter", CVAR, &YcolsSpipeYpipe_put_idx_setter}, {"grow-pipe!", CVAR, &YcolsSpipeYgrow_pipeX}, {"pipe-data-setter", CVAR, &YcolsSpipeYpipe_data_setter}, {"---main-0---", PVAR, NULL}, {"enq!", CVAR, &YcolsSpipeYenqX}, {"pipe-get-idx", CVAR, &YcolsSpipeYpipe_get_idx}, {"pipe-put-idx", CVAR, &YcolsSpipeYpipe_put_idx}, {"deq!", CVAR, &YcolsSpipeYdeqX}, {"pipe-get-idx-setter", CVAR, &YcolsSpipeYpipe_get_idx_setter}, {"pipe-available-setter", CVAR, &YcolsSpipeYpipe_available_setter}, {"pipe-lock", CVAR, &YcolsSpipeYpipe_lock}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"enq!", NULL}, {"deq!", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_colsSpipe; MODULE_INFO module_info_colsSpipe = { "cols/pipe", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooScolsSrep (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsScol (void); extern void load_module_gooSmath (void); extern void load_module_timeSlock (void); extern void load_module_timeSevent (void); /* EXPRESSION: */ extern void load_module_colsSpipe (void); void load_module_colsSpipe (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooScolsSrep(); load_module_gooScolsSseq(); load_module_gooScolsScol(); load_module_gooSmath(); load_module_timeSlock(); load_module_timeSevent(); (P)YcolsSpipeY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/0040755000175000017500000000000007756746016013562 5ustar vomjomvomjomgoo-0.155/c/g2c/eval/CVS/0040755000175000017500000000000007756746016014215 5ustar vomjomvomjomgoo-0.155/c/g2c/eval/CVS/Root0100644000175000017500000000003307756746015015053 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/eval/CVS/Repository0100644000175000017500000000001707756746015016311 0ustar vomjomvomjomgoo/c/g2c/eval goo-0.155/c/g2c/eval/CVS/Entries0100644000175000017500000000075707756746016015557 0ustar vomjomvomjom/ast-eval.c/1.53/Wed Nov 19 19:49:38 2003/-kb/ /ast-linearize.c/1.53/Wed Nov 19 19:49:39 2003/-kb/ /ast.c/1.53/Wed Nov 19 19:49:43 2003/-kb/ /dependency.c/1.41/Wed Nov 19 19:49:49 2003/-kb/ /g2c.c/1.41/Wed Nov 19 19:49:49 2003/-kb/ /main.c/1.56/Wed Nov 19 19:49:52 2003/-kb/ /module.c/1.6/Wed Nov 19 19:49:52 2003/-kb/ /optimize.c/1.6/Wed Nov 19 19:49:52 2003// /syntax.c/1.52/Wed Nov 19 19:49:53 2003/-kb/ /top.c/1.53/Wed Nov 19 19:49:54 2003/-kb/ /typist.c/1.3/Tue Jan 14 22:25:28 2003/-kb/ D goo-0.155/c/g2c/eval/ast-eval.c0100644000175000017500000061574307756744522015457 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/ast-eval"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/ast-eval */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); DEF(YevalSast_evalYenv_local_value,"eval/ast-eval","env-local-value"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); DEF(YevalSast_evalYenv_global_binding_value_setter,"eval/ast-eval","env-global-binding-value-setter"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); DEF(YevalSast_evalYenv_parent,"eval/ast-eval","env-parent"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); DEF(YevalSast_evalYenv_binding_value_setter,"eval/ast-eval","env-binding-value-setter"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YevalSast_evalYenv_dynamic_value,"eval/ast-eval","env-dynamic-value"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); DEF(YevalSast_evalYast_eval_specs,"eval/ast-eval","ast-eval-specs"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YevalSast_evalYenv_runtime_value_setter,"eval/ast-eval","env-runtime-value-setter"); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); DEF(YevalSast_evalYLloc_envG,"eval/ast-eval",""); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); DEF(YevalSast_evalYenv_local_reference_value,"eval/ast-eval","env-local-reference-value"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YevalSastYLcomputed_programG,"eval/ast",""); DEF(YevalSast_evalYast_eval,"eval/ast-eval","ast-eval"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(Ytail,"goo/boot","tail"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); EXT(YOpick,"goo/boot","@pick"); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YevalSastYLsequentialG,"eval/ast",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(YevalSastYLdefinitionG,"eval/ast",""); DEF(YevalSast_evalYenv_global_binding_value,"eval/ast-eval","env-global-binding-value"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YgooSlocYas_c,"goo/loc","as-c"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YevalSastYLc_inlineG,"eval/ast",""); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); EXT(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); DEF(YevalSast_evalYenv_runtime_value,"eval/ast-eval","env-runtime-value"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); DEF(YevalSast_evalYenv_binding_value,"eval/ast-eval","env-binding-value"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); DEF(YevalSast_evalYDnul_loc_env,"eval/ast-eval","$nul-loc-env"); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YOlit,"goo/boot","@lit"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSlocYas_goo,"goo/loc","as-goo"); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); DEF(YevalSast_evalYenv_dynamic_value_setter,"eval/ast-eval","env-dynamic-value-setter"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YOtup,"goo/boot","@tup"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YevalSastYLmonitorG,"eval/ast",""); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); DEF(YevalSast_evalYarrange_arguments,"eval/ast-eval","arrange-arguments"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YevalSastYLassignmentG,"eval/ast",""); DEF(YevalSast_evalYenv_function,"eval/ast-eval","env-function"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(Yfab_sym,"goo/boot","fab-sym"); DEF(YevalSast_evalYenv_global_binding_value_or,"eval/ast-eval","env-global-binding-value-or"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); DEF(YevalSast_evalYenv_local_reference_value_setter,"eval/ast-eval","env-local-reference-value-setter"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(Ytype_class,"goo/boot","type-class"); DEF(YevalSast_evalYast_eval_boundQ,"eval/ast-eval","ast-eval-bound?"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(YevalSastYLprogramG,"eval/ast",""); DEF(YevalSast_evalYenv_define_bindingX,"eval/ast-eval","env-define-binding!"); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); EXT(YevalSastYLalternativeG,"eval/ast",""); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); DEF(YevalSast_evalYenv_global_binding_boundQ,"eval/ast-eval","env-global-binding-bound?"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YevalSastYLast_methodG,"eval/ast",""); DEF(YevalSast_evalYenv_values,"eval/ast-eval","env-values"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); DEF(YevalSast_evalYenv_local_value_setter,"eval/ast-eval","env-local-value-setter"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YLanyG,"goo/boot",""); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YevalSastYLbind_exitG,"eval/ast",""); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); DEF(YevalSast_evalYbinding_value_or,"eval/ast-eval","binding-value-or"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); DEF(YevalSast_evalYenv_frameX,"eval/ast-eval","env-frame!"); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); DEF(YevalSast_evalYexport_goo_method,"eval/ast-eval","export-goo-method"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSmoduleYLmoduleG,"eval/module",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); DEF(YevalSast_evalYas_fun_name,"eval/ast-eval","as-fun-name"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); DEF(YevalSast_evalYenv_names,"eval/ast-eval","env-names"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_16); DEFLIT(lit_30); DEFLIT(lit_103); DEFLIT(lit_95); DEFLIT(lit_65); DEFLIT(lit_25); DEFLIT(lit_77); DEFLIT(lit_60); DEFLIT(lit_128); DEFLIT(lit_120); DEFLIT(lit_125); DEFLIT(lit_115); DEFLIT(lit_73); DEFLIT(lit_55); DEFLIT(lit_79); DEFLIT(lit_62); DEFLIT(lit_15); DEFLIT(lit_7); DEFLIT(lit_112); DEFLIT(lit_37); DEFLIT(lit_33); DEFLIT(lit_108); DEFLIT(lit_122); DEFLIT(lit_70); DEFLIT(lit_118); DEFLIT(lit_127); DEFLIT(lit_81); DEFLIT(lit_2); DEFLIT(lit_92); DEFLIT(lit_110); DEFLIT(lit_124); DEFLIT(lit_88); DEFLIT(lit_46); DEFLIT(lit_68); DEFLIT(lit_47); DEFLIT(lit_57); DEFLIT(lit_89); DEFLIT(lit_52); DEFLIT(lit_20); DEFLIT(lit_121); DEFLIT(lit_109); DEFLIT(lit_24); DEFLIT(lit_76); DEFLIT(lit_94); DEFLIT(lit_102); DEFLIT(lit_61); DEFLIT(lit_18); DEFLIT(lit_56); DEFLIT(lit_132); DEFLIT(lit_53); DEFLIT(lit_106); DEFLIT(lit_1); DEFLIT(lit_131); DEFLIT(lit_75); DEFLIT(lit_105); DEFLIT(lit_27); DEFLIT(lit_66); DEFLIT(lit_49); DEFLIT(lit_104); DEFLIT(lit_0); DEFLIT(lit_67); DEFLIT(lit_93); DEFLIT(lit_32); DEFLIT(lit_54); DEFLIT(lit_6); DEFLIT(lit_101); DEFLIT(lit_26); DEFLIT(lit_87); DEFLIT(lit_5); DEFLIT(lit_12); DEFLIT(lit_82); DEFLIT(lit_31); DEFLIT(lit_11); DEFLIT(lit_10); DEFLIT(lit_48); DEFLIT(lit_35); DEFLIT(lit_97); DEFLIT(lit_28); DEFLIT(lit_116); DEFLIT(lit_123); DEFLIT(lit_90); DEFLIT(lit_34); DEFLIT(lit_100); DEFLIT(lit_83); DEFLIT(lit_22); DEFLIT(lit_91); DEFLIT(lit_40); DEFLIT(lit_130); DEFLIT(lit_96); DEFLIT(lit_117); DEFLIT(lit_8); DEFLIT(lit_133); DEFLIT(lit_111); DEFLIT(lit_74); DEFLIT(lit_19); DEFLIT(lit_72); DEFLIT(lit_36); DEFLIT(lit_38); DEFLIT(lit_23); DEFLIT(lit_107); DEFLIT(lit_39); DEFLIT(lit_21); DEFLIT(lit_69); DEFLIT(lit_13); DEFLIT(lit_84); DEFLIT(lit_80); DEFLIT(lit_45); DEFLIT(lit_126); DEFLIT(lit_99); DEFLIT(lit_14); DEFLIT(lit_29); DEFLIT(lit_114); DEFLIT(lit_119); DEFLIT(lit_3); DEFLIT(lit_58); DEFLIT(lit_113); DEFLIT(lit_71); DEFLIT(lit_17); DEFLIT(lit_85); DEFLIT(lit_86); DEFLIT(lit_42); DEFLIT(lit_98); DEFLIT(lit_59); DEFLIT(lit_63); DEFLIT(lit_4); DEFLIT(lit_43); DEFLIT(lit_9); DEFLIT(lit_41); DEFLIT(lit_51); DEFLIT(lit_44); DEFLIT(lit_129); DEFLIT(lit_78); DEFLIT(lit_64); DEFLIT(lit_50); DEFLIT(lit_134); /* FUNCTIONS: */ LOCFOR(fun_env_global_binding_value_0); LOCFOR(fun_env_global_binding_value_setter_1); LOCFOR(fun_env_global_binding_boundQ_2); LOCFOR(fun_env_runtime_value_3); LOCFOR(fun_env_runtime_value_setter_4); LOCFOR(fun_env_dynamic_value_5); LOCFOR(fun_env_dynamic_value_setter_6); LOCFOR(fun_env_parent_7); LOCFOR(fun_8); LOCFOR(fun_env_function_9); LOCFOR(fun_10); LOCFOR(fun_env_names_11); LOCFOR(fun_12); LOCFOR(fun_env_values_13); LOCFOR(fun_env_frameX_14); LOCFOR(fun_env_local_value_15); LOCFOR(fun_env_local_value_setter_16); LOCFOR(fun_env_binding_value_17); LOCFOR(fun_env_binding_value_setter_18); LOCFOR(fun_ast_evaluate_19); LOCFOR(fun_ast_eval_20); LOCFOR(fun_ast_eval_21); LOCFOR(fun_ast_eval_22); LOCFOR(fun_ast_eval_specs_23); FUNFOR(YevalSast_evalYarrange_arguments); LOCFOR(fun_x_1528_25); LOCFOR(fun_26); LOCFOR(fun_27); LOCFOR(fun_as_fun_name_28); LOCFOR(fun_as_fun_name_29); LOCFOR(fun_as_fun_name_30); LOCFOR(fun_as_fun_name_31); LOCFOR(fun_as_fun_name_32); LOCFOR(fun_as_fun_name_33); LOCFOR(fun_34); LOCFOR(fun_export_goo_method_35); LOCFOR(fun_36); LOCFOR(fun_ast_eval_37); LOCFOR(fun_ast_eval_38); LOCFOR(fun_env_local_reference_value_39); LOCFOR(fun_env_local_reference_value_setter_40); LOCFOR(fun_ast_eval_41); LOCFOR(fun_ast_eval_42); LOCFOR(fun_ast_eval_43); LOCFOR(fun_ast_eval_44); LOCFOR(fun_ast_eval_45); LOCFOR(fun_ast_eval_46); LOCFOR(fun_env_global_binding_value_or_47); LOCFOR(fun_ast_eval_boundQ_48); LOCFOR(fun_ast_eval_boundQ_49); LOCFOR(fun_ast_eval_50); LOCFOR(fun_ast_eval_51); LOCFOR(fun_ast_eval_52); LOCFOR(fun_ast_eval_53); LOCFOR(fun_ast_eval_54); LOCFOR(fun_env_define_bindingX_55); LOCFOR(fun_ast_eval_56); LOCFOR(fun_ast_eval_57); LOCFOR(fun_58); LOCFOR(fun_59); LOCFOR(fun_ast_eval_60); LOCFOR(fun_ast_eval_61); LOCFOR(fun_ast_eval_62); LOCFOR(fun_ast_eval_63); LOCFOR(fun_ast_eval_64); LOCFOR(fun_ast_eval_65); LOCFOR(fun_ast_eval_66); LOCFOR(fun_67); LOCFOR(fun_ast_eval_68); LOCFOR(fun_69); LOCFOR(fun_70); LOCFOR(fun_ast_eval_71); LOCFOR(fun_72); LOCFOR(fun_73); LOCFOR(fun_ast_eval_74); LOCFOR(fun_ast_eval_75); FUNFOR(YevalSastYinit_environment_for_eval); extern P YevalSast_evalYPdefine_binding (P,P); extern P YevalSast_evalYPlookup_binding (P,P); extern P YevalSast_evalYPensure_binding (P,P); extern P YevalSast_evalYPdlvar_binding (P); extern P YevalSast_evalYPbinding_value_of (P); extern P YevalSast_evalYPbinding_value (P); extern P YevalSast_evalYPbinding_value_of_setter (P,P); extern P YevalSast_evalYPbinding_value_setter (P,P); extern P YevalSast_evalYPbinding_value_or_of (P,P); FUNFOR(YevalSast_evalYbinding_value_or); extern P YevalSast_evalYPbinding_value_or (P,P); extern P YevalSast_evalY___main_0___ (); extern P YevalSast_evalY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_env_global_binding_value_0) { P b_; P boxF4323; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(b_, 0); T5 = CALL1(1,VARREF(YevalSmoduleYbinding_global_box),b_); boxF4323 = T5; if (boxF4323 != YPfalse) { T1 = CALL1(1,VARREF(YevalSmoduleYglobal_box_value),boxF4323); T0 = T1; } else { T4 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T3 = CALL3(1,VARREF(Ynew),VARREF(YgooSconditionsYLunbound_variable_errorG),VARREF(YgooSconditionsYunbound_variable_error_variable),T4); T2 = CALL1(1,VARREF(YgooSconditionsYsig),T3); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_global_binding_value_setter_1) { P value_,b_; P boxF4324; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(value_, 0); ARG(b_, 1); T8 = CALL1(1,VARREF(YevalSmoduleYbinding_global_box),b_); boxF4324 = T8; T2 = boxF4324; T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(Ynew),VARREF(YevalSmoduleYLglobal_boxG)); T4 = CALL2(1,VARREF(YevalSmoduleYbinding_global_box_setter),T5,b_); T3 = boxF4324 = T4; } else { } T7 = boxF4324; T6 = CALL2(1,VARREF(YevalSmoduleYglobal_box_value_setter),value_,T7); UNLINK_STACK(); QRET(T6); } LOCCODEDEF(fun_env_global_binding_boundQ_2) { P b_; P boxF4325; P T0,T1; LINK_STACK(); ARG(b_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_global_box),b_); boxF4325 = T1; if (boxF4325 != YPfalse) { T0 = YPtrue; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_env_runtime_value_3) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSlocYloc_val),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_runtime_value_setter_4) { P v_,x_; P T0; LINK_STACK(); ARG(v_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooSlocYloc_val_setter),v_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_dynamic_value_5) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSlocYloc_val),x_); T0 = (P)YPdyn_var_val(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_dynamic_value_setter_6) { P v_,x_; P T0; LINK_STACK(); ARG(v_, 0); ARG(x_, 1); T0 = CALL1(1,VARREF(YgooSlocYloc_val),x_); (P)YPdyn_var_val_setter(v_,T0); UNLINK_STACK(); QRET(v_); } LOCCODEDEF(fun_env_parent_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_evalYenv_parent)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_8) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_env_function_9) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_evalYenv_function)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_10) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_env_names_11) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_evalYenv_names)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_12) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_env_values_13) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_evalYenv_values)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_frameX_14) { P env_,function_,names_,args_; P valuesF4326; P T0,T1,T2,T3; LINK_STACK(); ARG(env_, 0); ARG(function_, 1); ARG(names_, 2); ARG(args_, 3); T3 = CALL1(1,VARREF(YgooStypesYlen),args_); T2 = CALL2(1,VARREF(YgooScolsSrepYrep_fab),T3,YPfalse); T1 = CALL2(1,VARREF(YgooScolsSrepYrep_intoX),T2,args_); valuesF4326 = T1; T0 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSast_evalYenv_parent),env_,VARREF(YevalSast_evalYenv_function),function_,VARREF(YevalSast_evalYenv_values),valuesF4326,VARREF(YevalSast_evalYenv_names),names_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_env_local_value_15) { P env_,i_,j_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(env_, 0); ARG(i_, 1); ARG(j_, 2); T1 = CALL2(1,VARREF(YgooSlogYE),i_,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSast_evalYenv_values),env_); T2 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),T3,j_); T0 = T2; } else { T5 = CALL1(1,VARREF(YevalSast_evalYenv_parent),env_); T6 = CALL2(1,VARREF(YgooSmathY_),i_,YPint((P)1)); T4 = CALL3(1,VARREF(YevalSast_evalYenv_local_value),T5,T6,j_); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_local_value_setter_16) { P v_,env_,i_,j_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(v_, 0); ARG(env_, 1); ARG(i_, 2); ARG(j_, 3); T1 = CALL2(1,VARREF(YgooSlogYE),i_,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSast_evalYenv_values),env_); T2 = CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),v_,T3,j_); T0 = T2; } else { T5 = CALL1(1,VARREF(YevalSast_evalYenv_parent),env_); T6 = CALL2(1,VARREF(YgooSmathY_),i_,YPint((P)1)); T4 = CALL4(1,VARREF(YevalSast_evalYenv_local_value_setter),v_,T5,T6,j_); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_binding_value_17) { P env_,name_; P iF4328; P namesF4327; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(env_, 0); ARG(name_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYEE),env_,VARREF(YevalSast_evalYDnul_loc_env)); if (T1 != YPfalse) { T0 = YPfalse; } else { T14 = CALL1(1,VARREF(YevalSast_evalYenv_names),env_); namesF4327 = T14; iF4328 = YPint((P)0); LOOP_192: { P a192_0,a192_1; T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),namesF4327); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(YevalSast_evalYenv_parent),env_); T4 = CALL2(1,VARREF(YevalSast_evalYenv_binding_value),T5,name_); T2 = T4; } else { T8 = CALL1(1,VARREF(Yhead),namesF4327); T7 = CALL2(1,VARREF(YgooSmacrosYEE),name_,T8); if (T7 != YPfalse) { T10 = CALL1(1,VARREF(YevalSast_evalYenv_values),env_); T9 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),T10,iF4328); T6 = T9; } else { T12 = CALL1(1,VARREF(Ytail),namesF4327); T13 = CALL2(1,VARREF(YgooSmathYA),iF4328,YPint((P)1)); a192_0 = T12; a192_1 = T13; namesF4327 = a192_0; iF4328 = a192_1; goto LOOP_192; T6 = T11; } T2 = T6; } } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_binding_value_setter_18) { P v_,env_,name_; P iF4330; P namesF4329; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(v_, 0); ARG(env_, 1); ARG(name_, 2); T12 = CALL1(1,VARREF(YevalSast_evalYenv_names),env_); namesF4329 = T12; iF4330 = YPint((P)0); LOOP_193: { P a193_0,a193_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),namesF4329); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSast_evalYenv_parent),env_); T2 = CALL3(1,VARREF(YevalSast_evalYenv_binding_value_setter),v_,T3,name_); T0 = T2; } else { T6 = CALL1(1,VARREF(Yhead),namesF4329); T5 = CALL2(1,VARREF(YgooSmacrosYEE),name_,T6); if (T5 != YPfalse) { T8 = CALL1(1,VARREF(YevalSast_evalYenv_values),env_); T7 = CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),v_,T8,iF4330); T4 = T7; } else { T10 = CALL1(1,VARREF(Ytail),namesF4329); T11 = CALL2(1,VARREF(YgooSmathYA),iF4330,YPint((P)1)); a193_0 = T10; a193_1 = T11; namesF4329 = a193_0; iF4330 = a193_1; goto LOOP_193; T4 = T9; } T0 = T4; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_evaluate_19) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL2(1,VARREF(YevalSast_evalYast_eval),e_,VARREF(YevalSast_evalYDnul_loc_env)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_20) { P e_,env_; P T0; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T0 = CALL1(1,VARREF(YevalSastYconstant_value),e_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_21) { P e_,env_; P T0; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T0 = CALL1(1,VARREF(YevalSastYconstant_value),e_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_22) { P e_,ee_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(ee_, 1); T1 = CALL1(1,VARREF(YevalSastYcompile_time_program),e_); T0 = CALL1(1,VARREF(YevalSastYast_evaluate),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_specs_23) { P specs_,naryQ_,env_; P typeF4336; P specF4335; P iF4334; P specsF4333; P resF4332; P nreqF4331; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(specs_, 0); ARG(naryQ_, 1); ARG(env_, 2); if (naryQ_ != YPfalse) { T12 = CALL1(1,VARREF(YgooStypesYlen),specs_); T11 = CALL2(1,VARREF(YgooSmathY_),T12,YPint((P)1)); T10 = T11; } else { T13 = CALL1(1,VARREF(YgooStypesYlen),specs_); T10 = T13; } nreqF4331 = T10; resF4332 = Ynil; specsF4333 = specs_; iF4334 = YPint((P)0); LOOP_194: { P a194_0,a194_1,a194_2; T1 = CALL2(1,VARREF(YgooSlogYE),iF4334,nreqF4331); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),resF4332); T0 = T2; } else { T9 = CALL1(1,VARREF(Yhead),specsF4333); specF4335 = T9; if (specF4335 != YPfalse) { T8 = CALL2(1,VARREF(YevalSast_evalYast_eval),specF4335,env_); T7 = T8; } else { T7 = VARREF(YLanyG); } typeF4336 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYpair),typeF4336,resF4332); T5 = CALL1(1,VARREF(Ytail),specsF4333); T6 = CALL2(1,VARREF(YgooSmathYA),iF4334,YPint((P)1)); a194_0 = T4; a194_1 = T5; a194_2 = T6; resF4332 = a194_0; specsF4333 = a194_1; iF4334 = a194_2; goto LOOP_194; T0 = T3; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSast_evalYarrange_arguments) { P f_,naryQ_,arity_,args_; P countF4337; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(f_, 0); ARG(naryQ_, 1); ARG(arity_, 2); ARG(args_, 3); T11 = CALL1(1,VARREF(YgooStypesYlen),args_); countF4337 = T11; if (naryQ_ != YPfalse) { T2 = CALL2(1,VARREF(YgooSmagYL),countF4337,arity_); if (T2 != YPfalse) { T3 = CALL2(1,VARREF(Ynarity_error),f_,args_); T1 = T3; } else { T5 = CALL3(1,VARREF(YgooScolsSseqYsub),args_,YPint((P)0),arity_); T7 = CALL3(1,VARREF(YgooScolsSseqYsub),args_,arity_,countF4337); T6 = CALL1(1,VARREF(Ylst),T7); T4 = CALL2(1,VARREF(YgooScolsSseqYcat2),T5,T6); T1 = T4; } T0 = T1; } else { T9 = CALL2(1,VARREF(YgooSlogYNEE),countF4337,arity_); if (T9 != YPfalse) { T10 = CALL2(1,VARREF(Yarity_error),f_,args_); T8 = T10; } else { T8 = args_; } T0 = T8; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1528_25) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_51),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_26) { P return_; P x_1527F4352; P x_1527F4351; P x_1527F4350; P x_1527F4349; P x_1527F4348; P x_1527F4347; P x_1527F4346; P bodyF4345; P namesF4344; P arityF4343; P naryQF4342; P fF4341; P envF4340; P x_1527F4339; P x_1528F4338; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88; LINK_STACK(); ARG(return_, 0); T88 = FUNSHELL(0,fun_x_1528_25,2); x_1528F4338 = T88; FUNINIT(x_1528F4338, 2,FREEREF(0),return_); x_1527F4339 = FREEREF(0); envF4340 = YPfalse; fF4341 = YPfalse; naryQF4342 = YPfalse; arityF4343 = YPfalse; namesF4344 = YPfalse; bodyF4345 = YPfalse; T6 = CALL2(1,VARREF(YisaQ),x_1527F4339,VARREF(YLlstG)); if (T6 != YPfalse) { T20 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1527F4339,LITREF(lit_51),x_1528F4338); x_1527F4346 = T20; T18 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1527F4346,x_1528F4338); envF4340 = T18; T19 = CALL1(1,VARREF(Ytail),x_1527F4346); x_1527F4347 = T19; T16 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1527F4347,x_1528F4338); fF4341 = T16; T17 = CALL1(1,VARREF(Ytail),x_1527F4347); x_1527F4348 = T17; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1527F4348,x_1528F4338); naryQF4342 = T14; T15 = CALL1(1,VARREF(Ytail),x_1527F4348); x_1527F4349 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1527F4349,x_1528F4338); arityF4343 = T12; T13 = CALL1(1,VARREF(Ytail),x_1527F4349); x_1527F4350 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1527F4350,x_1528F4338); namesF4344 = T10; T11 = CALL1(1,VARREF(Ytail),x_1527F4350); x_1527F4351 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1527F4351,x_1528F4338); bodyF4345 = T8; T9 = CALL1(1,VARREF(Ytail),x_1527F4351); x_1527F4352 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1527F4352,x_1528F4338); } else { T21 = CALL2(1,x_1528F4338,LITREF(lit_52),x_1527F4339); } T23 = CALL1(1,VARREF(Ylst),LITREF(lit_53)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_54)); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_55)); T27 = CALL3(1,VARREF(YgooSmacrosYcat),T28,T29,LITREF(lit_56)); T26 = CALL1(1,VARREF(Ylst),T27); T25 = CALL2(1,VARREF(YgooSmacrosYcat),T26,LITREF(lit_56)); T24 = CALL1(1,VARREF(Ylst),T25); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_57)); T33 = CALL1(1,VARREF(Ylst),LITREF(lit_58)); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_45)); T37 = CALL1(1,VARREF(Ylst),LITREF(lit_59)); T38 = CALL1(1,VARREF(Ylst),LITREF(lit_60)); T39 = CALL1(1,VARREF(Ylst),LITREF(lit_61)); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_62)); T43 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T44 = CALL1(1,VARREF(Ylst),LITREF(lit_54)); T41 = CALL4(1,VARREF(YgooSmacrosYcat),T42,T43,T44,LITREF(lit_56)); T40 = CALL1(1,VARREF(Ylst),T41); T35 = CALLN(1,VARREF(YgooSmacrosYcat),6,T36,T37,T38,T39,T40,LITREF(lit_56)); T34 = CALL1(1,VARREF(Ylst),T35); T31 = CALL4(1,VARREF(YgooSmacrosYcat),T32,T33,T34,LITREF(lit_56)); T30 = CALL1(1,VARREF(Ylst),T31); T47 = CALL1(1,VARREF(Ylst),LITREF(lit_57)); T48 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T51 = CALL1(1,VARREF(Ylst),LITREF(lit_65)); T50 = CALL2(1,VARREF(YgooSmacrosYcat),T51,LITREF(lit_56)); T49 = CALL1(1,VARREF(Ylst),T50); T46 = CALL4(1,VARREF(YgooSmacrosYcat),T47,T48,T49,LITREF(lit_56)); T45 = CALL1(1,VARREF(Ylst),T46); T54 = CALL1(1,VARREF(Ylst),LITREF(lit_57)); T55 = CALL1(1,VARREF(Ylst),LITREF(lit_66)); T58 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T60 = envF4340; T59 = CALL1(1,VARREF(Ylst),T60); T62 = fF4341; T61 = CALL1(1,VARREF(Ylst),T62); T65 = CALL1(1,VARREF(Ylst),LITREF(lit_67)); T67 = namesF4344; T66 = CALL1(1,VARREF(Ylst),T67); T70 = CALL1(1,VARREF(Ylst),LITREF(lit_68)); T73 = CALL1(1,VARREF(Ylst),LITREF(lit_69)); T74 = CALL1(1,VARREF(Ylst),LITREF(lit_65)); T72 = CALL3(1,VARREF(YgooSmacrosYcat),T73,T74,Ynil); T71 = CALL1(1,VARREF(Ylst),T72); T69 = CALL3(1,VARREF(YgooSmacrosYcat),T70,T71,LITREF(lit_56)); T68 = CALL1(1,VARREF(Ylst),T69); T64 = CALL4(1,VARREF(YgooSmacrosYcat),T65,T66,T68,LITREF(lit_56)); T63 = CALL1(1,VARREF(Ylst),T64); T77 = CALL1(1,VARREF(Ylst),LITREF(lit_67)); T78 = CALL1(1,VARREF(Ylst),LITREF(lit_58)); T81 = CALL1(1,VARREF(Ylst),LITREF(lit_68)); T82 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T80 = CALL3(1,VARREF(YgooSmacrosYcat),T81,T82,LITREF(lit_56)); T79 = CALL1(1,VARREF(Ylst),T80); T76 = CALL4(1,VARREF(YgooSmacrosYcat),T77,T78,T79,LITREF(lit_56)); T75 = CALL1(1,VARREF(Ylst),T76); T57 = CALLN(1,VARREF(YgooSmacrosYcat),6,T58,T59,T61,T63,T75,LITREF(lit_56)); T56 = CALL1(1,VARREF(Ylst),T57); T53 = CALL4(1,VARREF(YgooSmacrosYcat),T54,T55,T56,LITREF(lit_56)); T52 = CALL1(1,VARREF(Ylst),T53); T86 = bodyF4345; T85 = CALL1(1,VARREF(Ylst),T86); T87 = CALL1(1,VARREF(Ylst),LITREF(lit_66)); T84 = CALL3(1,VARREF(YgooSmacrosYcat),T85,T87,LITREF(lit_56)); T83 = CALL1(1,VARREF(Ylst),T84); T22 = CALLN(1,VARREF(YgooSmacrosYcat),7,T23,T24,T30,T45,T52,T83,LITREF(lit_56)); UNLINK_STACK(); QRET(T22); } LOCCODEDEF(fun_27) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_26,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_fun_name_28) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSfunYfun_name),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_fun_name_29) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYfunction_debug_name),x_); T0 = CALL1(1,VARREF(YevalSast_evalYas_fun_name),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_fun_name_30) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YevalSmoduleYbinding_name),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_fun_name_31) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYconstant_value),x_); T0 = CALL1(1,VARREF(YevalSast_evalYas_fun_name),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_fun_name_32) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_as_fun_name_33) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_34) { P arg_vector_; P frameF4355; P nmsF4354; P argsF4353; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); NARGS(arg_vector_, 0); T8 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),arg_vector_); T7 = CALL4(1,VARREF(YevalSast_evalYarrange_arguments),FREEREF(0),FREEREF(1),FREEREF(2),T8); argsF4353 = T7; T6 = (P)YPnext_methods(); nmsF4354 = T6; T3 = CALL1(1,VARREF(Ylst),LITREF(lit_65)); T2 = CALL2(1,VARREF(YgooScolsSseqYcat2),FREEREF(4),T3); T5 = CALL1(1,VARREF(Ylst),nmsF4354); T4 = CALL2(1,VARREF(YgooScolsSseqYcat2),argsF4353,T5); T1 = CALL4(1,VARREF(YevalSast_evalYenv_frameX),FREEREF(3),FREEREF(0),T2,T4); frameF4355 = T1; T0 = CALL1(1,FREEREF(5),frameF4355); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_export_goo_method_35) { P f_,names_,specs_,naryQ_,value_,body_,env_; P efunF4357; P arityF4356; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(f_, 0); ARG(names_, 1); ARG(specs_, 2); ARG(naryQ_, 3); ARG(value_, 4); ARG(body_, 5); ARG(env_, 6); if (naryQ_ != YPfalse) { T9 = CALL1(1,VARREF(YgooStypesYlen),specs_); T8 = CALL2(1,VARREF(YgooSmathY_),T9,YPint((P)1)); T7 = T8; } else { T10 = CALL1(1,VARREF(YgooStypesYlen),specs_); T7 = T10; } arityF4356 = T7; T6 = FUNFAB(fun_34,6,f_,naryQ_,arityF4356,env_,names_,body_); efunF4357 = T6; T1 = CALL1(1,VARREF(YevalSast_evalYas_fun_name),f_); T0 = CALL5(1,VARREF(Ynew),VARREF(YLfun_infoG),VARREF(Yfun_info_name),T1,VARREF(Yfun_info_names),names_); CALL2(1,VARREF(Yfun_info_setter),T0,efunF4357); T3 = CALL3(1,VARREF(YevalSast_evalYast_eval_specs),specs_,naryQ_,env_); if (value_ != YPfalse) { T5 = CALL2(1,VARREF(YevalSast_evalYast_eval),value_,env_); T4 = T5; } else { T4 = VARREF(YLanyG); } T2 = CALLN(1,VARREF(Ynew),11,VARREF(YLsigG),VARREF(Ysig_specs),T3,VARREF(Ysig_naryQ),naryQ_,VARREF(Ysig_arity),arityF4356,VARREF(Ysig_val),T4,VARREF(Ysig_unification_vars),Ynil); CALL2(1,VARREF(Yfun_sig_setter),T2,efunF4357); UNLINK_STACK(); QRET(efunF4357); } LOCCODEDEF(fun_36) { P env_; P T0,T1; LINK_STACK(); ARG(env_, 0); T1 = CALL1(1,VARREF(YevalSastYfunction_body),FREEREF(0)); T0 = CALL2(1,VARREF(YevalSast_evalYast_eval),T1,env_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_37) { P e_,env_; P evalF4359; P paramsF4358; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T6 = CALL1(1,VARREF(YevalSastYfunction_bindings),e_); paramsF4358 = T6; T5 = FUNFAB(fun_36,1,e_); evalF4359 = T5; T1 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_name),paramsF4358); T2 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_type),paramsF4358); T3 = CALL1(1,VARREF(YevalSastYfunction_naryQ),e_); T4 = CALL1(1,VARREF(YevalSastYfunction_value),e_); T0 = CALLN(1,VARREF(YevalSast_evalYexport_goo_method),7,e_,T1,T2,T3,T4,evalF4359,env_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_38) { P e_,env_; P specsF4363; P namesF4362; P naryQF4361; P paramsF4360; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T6 = CALL1(1,VARREF(YevalSastYfunction_bindings),e_); paramsF4360 = T6; T5 = CALL1(1,VARREF(YevalSastYfunction_naryQ),e_); naryQF4361 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_name),paramsF4360); namesF4362 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_type),paramsF4360); T2 = CALL3(1,VARREF(YevalSast_evalYast_eval_specs),T3,naryQF4361,env_); specsF4363 = T2; T1 = CALL1(1,VARREF(YevalSast_evalYas_fun_name),e_); T0 = CALL5(1,VARREF(YgooSfunYfab_gen),specsF4363,naryQF4361,VARREF(YLanyG),T1,namesF4362); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_local_reference_value_39) { P env_,ref_; P T0,T1,T2; LINK_STACK(); ARG(env_, 0); ARG(ref_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_frame_number),ref_); T2 = CALL1(1,VARREF(YevalSastYreference_frame_offset),ref_); T0 = CALL3(1,VARREF(YevalSast_evalYenv_local_value),env_,T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_local_reference_value_setter_40) { P val_,env_,ref_; P T0,T1,T2; LINK_STACK(); ARG(val_, 0); ARG(env_, 1); ARG(ref_, 2); T1 = CALL1(1,VARREF(YevalSastYreference_frame_number),ref_); T2 = CALL1(1,VARREF(YevalSastYreference_frame_offset),ref_); T0 = CALL4(1,VARREF(YevalSast_evalYenv_local_value_setter),val_,env_,T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_41) { P e_,env_; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_ast_eval_42) { P e_,env_; P T0; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T0 = CALL2(1,VARREF(YevalSast_evalYenv_local_reference_value),env_,e_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_43) { P e_,env_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),e_); T0 = CALL1(1,VARREF(YevalSast_evalYenv_global_binding_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_44) { P e_,env_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T2 = CALL1(1,VARREF(YevalSastYreference_binding),e_); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_locative),T2); T0 = CALL1(1,VARREF(YevalSast_evalYenv_dynamic_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_45) { P e_,env_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T2 = CALL1(1,VARREF(YevalSastYreference_binding),e_); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_locative),T2); T0 = CALL1(1,VARREF(YevalSast_evalYenv_runtime_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_46) { P e_,env_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T2 = CALL1(1,VARREF(YevalSastYboundQ_reference),e_); T1 = CALL1(1,VARREF(YevalSastYreference_binding),T2); T0 = CALL3(1,VARREF(YevalSast_evalYast_eval_boundQ),e_,T1,env_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_global_binding_value_or_47) { P b_,default_,env_; P T0,T1,T2,T3; LINK_STACK(); ARG(b_, 0); ARG(default_, 1); ARG(env_, 2); T1 = CALL1(1,VARREF(YevalSast_evalYenv_global_binding_boundQ),b_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YevalSast_evalYenv_global_binding_value),b_); T0 = T2; } else { T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),default_,env_); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_boundQ_48) { P e_,binding_,env_; P x_1530F4365; P x_1529F4364; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(binding_, 1); ARG(env_, 2); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); x_1529F4364 = T6; x_1530F4365 = VARREF(YgooSmacrosYEE); T1 = CALL2(1,x_1530F4365,x_1529F4364,LITREF(lit_97)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSastYboundQ_default),e_); T2 = CALL3(1,VARREF(YevalSast_evalYenv_global_binding_value_or),binding_,T3,env_); T0 = T2; } else { T5 = CALL1(1,VARREF(YevalSastYboundQ_reference),e_); T4 = CALL2(1,VARREF(YevalSast_evalYast_eval),T5,env_); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_boundQ_49) { P e_,binding_,env_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(binding_, 1); ARG(env_, 2); T1 = CALL1(1,VARREF(YevalSastYboundQ_reference),e_); T0 = CALL2(1,VARREF(YevalSast_evalYast_eval),T1,env_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_50) { P e_,env_; P valueF4366; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T3 = CALL1(1,VARREF(YevalSastYassignment_form),e_); T2 = CALL2(1,VARREF(YevalSast_evalYast_eval),T3,env_); valueF4366 = T2; T1 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); T0 = CALL2(1,VARREF(YevalSast_evalYenv_global_binding_value_setter),valueF4366,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_51) { P e_,env_; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_ast_eval_52) { P e_,env_; P valueF4367; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T4 = CALL1(1,VARREF(YevalSastYassignment_form),e_); T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),T4,env_); valueF4367 = T3; T2 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_locative),T2); T0 = CALL2(1,VARREF(YevalSast_evalYenv_runtime_value_setter),valueF4367,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_53) { P e_,env_; P valueF4368; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T4 = CALL1(1,VARREF(YevalSastYassignment_form),e_); T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),T4,env_); valueF4368 = T3; T2 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_locative),T2); T0 = CALL2(1,VARREF(YevalSast_evalYenv_dynamic_value_setter),valueF4368,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_54) { P e_,env_; P valueF4369; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T3 = CALL1(1,VARREF(YevalSastYassignment_form),e_); T2 = CALL2(1,VARREF(YevalSast_evalYast_eval),T3,env_); valueF4369 = T2; T1 = CALL1(1,VARREF(YevalSastYassignment_reference),e_); T0 = CALL3(1,VARREF(YevalSast_evalYenv_local_reference_value_setter),valueF4369,env_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_env_define_bindingX_55) { P b_,v_; P xF4372; P x_1532F4371; P x_1531F4370; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(b_, 0); ARG(v_, 1); T15 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),b_); x_1531F4370 = T15; x_1532F4371 = VARREF(YgooSmacrosYEE); T1 = CALL2(1,x_1532F4371,x_1531F4370,LITREF(lit_106)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYbinding_locative),b_); T2 = CALL2(1,VARREF(YevalSast_evalYenv_runtime_value_setter),v_,T3); T0 = T2; } else { T5 = CALL2(1,x_1532F4371,x_1531F4370,LITREF(lit_97)); if (T5 != YPfalse) { T6 = CALL2(1,VARREF(YevalSast_evalYenv_global_binding_value_setter),v_,b_); T4 = T6; } else { T8 = CALL2(1,x_1532F4371,x_1531F4370,LITREF(lit_107)); if (T8 != YPfalse) { T10 = (P)YPfab_dyn_var(); xF4372 = T10; T9 = (P)YPtag_into(xF4372,(P)3); CALL2(1,VARREF(YevalSmoduleYbinding_locative_setter),T9,b_); T12 = CALL1(1,VARREF(YevalSmoduleYbinding_locative),b_); T11 = CALL2(1,VARREF(YevalSast_evalYenv_dynamic_value_setter),v_,T12); T7 = T11; } else { T14 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),b_); T13 = CALL2(1,VARREF(Yinternal_error),LITREF(lit_108),T14); T7 = T13; } T4 = T7; } T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_56) { P e_,env_; P valueF4373; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T2 = CALL1(1,VARREF(YevalSastYassignment_form),e_); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,env_); valueF4373 = T1; T0 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); CALL2(1,VARREF(YevalSast_evalYenv_define_bindingX),T0,valueF4373); UNLINK_STACK(); QRET(valueF4373); } LOCCODEDEF(fun_ast_eval_57) { P e_,env_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T2 = CALL1(1,VARREF(YevalSastYalternative_condition),e_); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,env_); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YevalSastYalternative_consequent),e_); T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),T4,env_); T0 = T3; } else { T6 = CALL1(1,VARREF(YevalSastYalternative_alternant),e_); T5 = CALL2(1,VARREF(YevalSast_evalYast_eval),T6,env_); T0 = T5; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_58) { P continue_; P T0,T1,T2; LINK_STACK(); ARG(continue_, 0); CALL2(1,VARREF(YevalSastYloop_continue_setter),continue_,FREEREF(0)); T2 = CALL1(1,VARREF(YevalSastYloop_body),FREEREF(0)); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,FREEREF(1)); T0 = CALL1(0,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_59) { P return_; P T0,T1; LINK_STACK(); ARG(return_, 0); LOOP_195: { T0 = FUNFAB(fun_58,3,FREEREF(0),FREEREF(1),return_); with_exit(T0); goto LOOP_195; } UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_ast_eval_60) { P e_,env_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T1 = FUNFAB(fun_59,2,e_,env_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_61) { P e_,env_; P valF4376; P nxtF4375; P eF4374; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); eF4374 = e_; LOOP_196: { P a196_0; T5 = CALL1(1,VARREF(Ytail),eF4374); nxtF4375 = T5; T4 = CALL1(1,VARREF(Yhead),eF4374); T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),T4,env_); valF4376 = T3; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),nxtF4375); if (T1 != YPfalse) { T0 = valF4376; } else { a196_0 = nxtF4375; eF4374 = a196_0; goto LOOP_196; T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_62) { P e_,env_; P argsF4378; P resF4377; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); resF4377 = Ynil; argsF4378 = e_; LOOP_197: { P a197_0,a197_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),argsF4378); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),resF4377); T0 = T2; } else { T6 = CALL1(1,VARREF(Yhead),argsF4378); T5 = CALL2(1,VARREF(YevalSast_evalYast_eval),T6,env_); T4 = CALL2(1,VARREF(YgooSmacrosYpair),T5,resF4377); T7 = CALL1(1,VARREF(Ytail),argsF4378); a197_0 = T4; a197_1 = T7; resF4377 = a197_0; argsF4378 = a197_1; goto LOOP_197; T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_63) { P e_,env_; P argsF4380; P fF4379; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T4 = CALL1(1,VARREF(YevalSastYapplication_function),e_); T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),T4,env_); fF4379 = T3; T2 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,env_); argsF4380 = T1; T0 = CALL3(1,VARREF(YgooSmacrosYnapp),fF4379,YPfalse,argsF4380); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_64) { P e_,env_; P bindingF4387; P argF4386; P tmpF4385; P x_1533F4384; P x_1534F4383; P argsF4382; P loopF4381; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T18 = CALL1(1,VARREF(YevalSastYapplication_loop),e_); loopF4381 = T18; T17 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T16 = CALL2(1,VARREF(YevalSast_evalYast_eval),T17,env_); argsF4382 = T16; T11 = CALL1(1,VARREF(YgooScolsScolYenum),argsF4382); x_1534F4383 = T11; T13 = CALL1(1,VARREF(YevalSastYloop_bindings),loopF4381); T12 = CALL1(1,VARREF(YgooScolsScolYenum),T13); x_1533F4384 = T12; LOOP_198: { P a198_0,a198_1; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1534F4383); tmpF4385 = T4; if (tmpF4385 != YPfalse) { T2 = tmpF4385; } else { T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1533F4384); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YgooScolsScolYnow),x_1534F4383); argF4386 = T10; T9 = CALL1(1,VARREF(YgooScolsScolYnow),x_1533F4384); bindingF4387 = T9; T5 = CALL1(1,VARREF(YevalSmoduleYbinding_name),bindingF4387); CALL3(1,VARREF(YevalSast_evalYenv_binding_value_setter),argF4386,env_,T5); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1534F4383); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1533F4384); a198_0 = T7; a198_1 = T8; x_1534F4383 = a198_0; x_1533F4384 = a198_1; goto LOOP_198; T0 = T6; } else { T0 = YPfalse; } } T15 = CALL1(1,VARREF(YevalSastYloop_continue),loopF4381); T14 = CALL1(1,T15,YPfalse); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_ast_eval_65) { P e_,env_; P argsF4392; P fF4391; P x_1537F4390; P x_1536F4389; P bF4388; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T10 = CALL1(1,VARREF(YevalSastYapplication_binding),e_); bF4388 = T10; T9 = CALL1(1,VARREF(YevalSmoduleYbinding_name),bF4388); x_1536F4389 = T9; x_1537F4390 = VARREF(YgooSmacrosYEE); T1 = CALL2(1,x_1537F4390,x_1536F4389,LITREF(lit_65)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YevalSast_evalYenv_binding_value),env_,LITREF(lit_65)); T0 = T2; } else { T4 = CALL2(1,x_1537F4390,x_1536F4389,LITREF(lit_119)); if (T4 != YPfalse) { T3 = YPfalse; } else { T8 = CALL1(1,VARREF(YevalSast_evalYPbinding_value_of),bF4388); fF4391 = T8; T7 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T6 = CALL2(1,VARREF(YevalSast_evalYast_eval),T7,env_); argsF4392 = T6; T5 = CALL3(1,VARREF(YgooSmacrosYnapp),fF4391,YPfalse,argsF4392); T3 = T5; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_66) { P e_,env_; P nenvF4394; P argsF4393; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T6 = CALL1(1,VARREF(YevalSastYfix_let_arguments),e_); T5 = CALL2(1,VARREF(YevalSast_evalYast_eval),T6,env_); argsF4393 = T5; T4 = CALL1(1,VARREF(YevalSastYfix_let_bindings),e_); T3 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_name),T4); T2 = CALL4(1,VARREF(YevalSast_evalYenv_frameX),env_,YPfalse,T3,argsF4393); nenvF4394 = T2; T1 = CALL1(1,VARREF(YevalSastYfix_let_body),e_); T0 = CALL2(1,VARREF(YevalSast_evalYast_eval),T1,nenvF4394); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_67) { P name_,value_; P T0; LINK_STACK(); ARG(name_, 0); ARG(value_, 1); T0 = CALL3(1,VARREF(YevalSast_evalYenv_binding_value_setter),value_,FREEREF(0),name_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_68) { P e_,env_; P new_envF4396; P bindingsF4395; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T11 = CALL1(1,VARREF(YevalSastYlocals_bindings),e_); bindingsF4395 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_name),bindingsF4395); T10 = CALL1(1,VARREF(YgooSfunctionalYalways),YPfalse); T9 = CALL2(1,VARREF(YgooSmacrosYmap),T10,bindingsF4395); T7 = CALL4(1,VARREF(YevalSast_evalYenv_frameX),env_,YPfalse,T8,T9); new_envF4396 = T7; T0 = FUNFAB(fun_67,1,new_envF4396); T1 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_name),bindingsF4395); T3 = CALL2(1,VARREF(YgooSfunctionalYrcurry),VARREF(YevalSast_evalYast_eval),new_envF4396); T4 = CALL1(1,VARREF(YevalSastYlocals_functions),e_); T2 = CALL2(1,VARREF(YgooSmacrosYmap),T3,T4); CALL3(1,VARREF(YgooScolsSseqYdo2),T0,T1,T2); T6 = CALL1(1,VARREF(YevalSastYlocals_body),e_); T5 = CALL2(1,VARREF(YevalSast_evalYast_eval),T6,new_envF4396); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_69) { P env_; P T0,T1; LINK_STACK(); ARG(env_, 0); T1 = CALL2(1,VARREF(YevalSast_evalYenv_binding_value),env_,LITREF(lit_126)); T0 = CALL1(1,FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_70) { P return_; P exitF4398; P rprocF4397; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(return_, 0); T6 = FUNFAB(fun_69,1,return_); rprocF4397 = T6; T4 = CALL1(1,VARREF(Ylst),LITREF(lit_126)); T5 = CALL1(1,VARREF(Ylst),YPfalse); T3 = CALLN(1,VARREF(YevalSast_evalYexport_goo_method),7,rprocF4397,T4,T5,YPfalse,YPfalse,rprocF4397,FREEREF(0)); exitF4398 = T3; T2 = CALL1(1,VARREF(YevalSastYbind_exit_main_fun),FREEREF(1)); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,FREEREF(0)); T0 = CALL1(1,T1,exitF4398); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_71) { P e_,env_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T1 = FUNFAB(fun_70,2,env_,e_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_72) { P T0,T1,T2; LINK_STACK(); T2 = CALL1(1,VARREF(YevalSastYunwind_protect_protected_thunk),FREEREF(0)); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,FREEREF(1)); T0 = CALL0(1,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_73) { P T0,T1,T2; LINK_STACK(); T2 = CALL1(1,VARREF(YevalSastYunwind_protect_cleanup_thunk),FREEREF(0)); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,FREEREF(1)); T0 = CALL0(1,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_74) { P e_,env_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T1 = FUNFAB(fun_72,2,e_,env_); T2 = FUNFAB(fun_73,2,e_,env_); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_eval_75) { P e_,env_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T2 = CALL1(1,VARREF(YevalSastYmonitor_type),e_); T1 = CALL2(1,VARREF(YevalSast_evalYast_eval),T2,env_); T4 = CALL1(1,VARREF(YevalSastYmonitor_info),e_); T3 = CALL2(1,VARREF(YevalSast_evalYast_eval),T4,env_); T6 = CALL1(1,VARREF(YevalSastYmonitor_test),e_); T5 = CALL2(1,VARREF(YevalSast_evalYast_eval),T6,env_); T8 = CALL1(1,VARREF(YevalSastYmonitor_handler),e_); T7 = CALL2(1,VARREF(YevalSast_evalYast_eval),T8,env_); T10 = CALL1(1,VARREF(YevalSastYmonitor_main_thunk),e_); T9 = CALL2(1,VARREF(YevalSast_evalYast_eval),T10,env_); T0 = CALL5(1,VARREF(YPwith_monitor),T1,T3,T5,T7,T9); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYinit_environment_for_eval) { P env_; P T0; LINK_STACK(); ARG(env_, 0); T0 = CALL4(1,VARREF(YevalSastYast_define_binding),env_,LITREF(lit_65),YPfalse,LITREF(lit_132)); UNLINK_STACK(); QRET(T0); } P YevalSast_evalYPdefine_binding(P raw_mod_,P raw_nam_) { P eF4399; P T0,T1,T2,T3; DEFCREGS(); T3 = (P)YPPsym(raw_mod_); T2 = XCALL1(1,VARREF(YevalSmoduleYunchecked_runtime_environment),T3); eF4399 = T2; T1 = (P)YPPsym(raw_nam_); T0 = XCALL4(1,VARREF(YevalSastYast_define_binding),eF4399,T1,YPfalse,LITREF(lit_97)); return T0; } P YevalSast_evalYPlookup_binding(P raw_mod_,P raw_nam_) { P eF4400; P T0,T1,T2,T3; DEFCREGS(); T3 = (P)YPPsym(raw_mod_); T2 = XCALL1(1,VARREF(YevalSmoduleYunchecked_runtime_environment),T3); eF4400 = T2; T1 = (P)YPPsym(raw_nam_); T0 = XCALL2(1,VARREF(YevalSmoduleYfind_binding),T1,eF4400); return T0; } P YevalSast_evalYPensure_binding(P raw_mod_,P raw_nam_) { P tmpF4401; P T0,T1,T2; DEFCREGS(); T2 = (P)YevalSast_evalYPlookup_binding(raw_mod_,raw_nam_); tmpF4401 = T2; if (tmpF4401 != YPfalse) { T0 = tmpF4401; } else { T1 = (P)YevalSast_evalYPdefine_binding(raw_mod_,raw_nam_); T0 = T1; } return T0; } P YevalSast_evalYPdlvar_binding(P dlvar_) { P yF4406; P xF4405; P xF4404; P xF4403; P bF4402; P T0,T1,T2,T3,T4,T5,T6,T7,T8; DEFCREGS(); T8 = (P)YevalSast_evalYPdlvar(dlvar_); bF4402 = T8; xF4405 = bF4402; xF4403 = YPint((P)0); xF4404 = xF4403; T3 = (P)YPiGG(xF4404,(P)2); yF4406 = T3; T2 = (P)YPeqQ(xF4405,yF4406); T1 = (P)YPbb(T2); if (T2) { T6 = (P)YevalSast_evalYPdlvar_mod(dlvar_); T7 = (P)YevalSast_evalYPdlvar_nam(dlvar_); T5 = (P)YevalSast_evalYPensure_binding(T6,T7); T4 = (P)YevalSast_evalYPdlvar_setter(T5,dlvar_); T0 = T4; } else { T0 = bF4402; } return T0; } INLINE P YevalSast_evalYPbinding_value_of(P binding_) { P x_1539F4408; P x_1538F4407; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; DEFCREGS(); T9 = XCALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); x_1538F4407 = T9; x_1539F4408 = VARREF(YgooSmacrosYEE); T1 = XCALL2(1,x_1539F4408,x_1538F4407,LITREF(lit_106)); if (T1 != YPfalse) { T3 = XCALL1(1,VARREF(YevalSmoduleYbinding_locative),binding_); T2 = XCALL1(1,VARREF(YevalSast_evalYenv_runtime_value),T3); T0 = T2; } else { T5 = XCALL2(1,x_1539F4408,x_1538F4407,LITREF(lit_107)); if (T5 != YPfalse) { T7 = XCALL1(1,VARREF(YevalSmoduleYbinding_locative),binding_); T6 = XCALL1(1,VARREF(YevalSast_evalYenv_dynamic_value),T7); T4 = T6; } else { T8 = XCALL1(1,VARREF(YevalSast_evalYenv_global_binding_value),binding_); T4 = T8; } T0 = T4; } return T0; } P YevalSast_evalYPbinding_value(P dlvar_) { P T0,T1; DEFCREGS(); T1 = (P)YevalSast_evalYPdlvar_binding(dlvar_); T0 = (P)YevalSast_evalYPbinding_value_of(T1); return T0; } INLINE P YevalSast_evalYPbinding_value_of_setter(P val_,P binding_) { P x_1541F4410; P x_1540F4409; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; DEFCREGS(); T9 = XCALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); x_1540F4409 = T9; x_1541F4410 = VARREF(YgooSmacrosYEE); T1 = XCALL2(0,x_1541F4410,x_1540F4409,LITREF(lit_106)); if (T1 != YPfalse) { T3 = XCALL1(1,VARREF(YevalSmoduleYbinding_locative),binding_); T2 = XCALL2(1,VARREF(YevalSast_evalYenv_runtime_value_setter),val_,T3); T0 = T2; } else { T5 = XCALL2(0,x_1541F4410,x_1540F4409,LITREF(lit_107)); if (T5 != YPfalse) { T7 = XCALL1(1,VARREF(YevalSmoduleYbinding_locative),binding_); T6 = XCALL2(1,VARREF(YevalSast_evalYenv_dynamic_value_setter),val_,T7); T4 = T6; } else { T8 = XCALL2(1,VARREF(YevalSast_evalYenv_global_binding_value_setter),val_,binding_); T4 = T8; } T0 = T4; } return T0; } P YevalSast_evalYPbinding_value_setter(P val_,P dlvar_) { P T0,T1; DEFCREGS(); T1 = (P)YevalSast_evalYPdlvar_binding(dlvar_); T0 = (P)YevalSast_evalYPbinding_value_of_setter(val_,T1); return T0; } INLINE P YevalSast_evalYPbinding_value_or_of(P b_,P default_) { P T0,T1,T2,T3; DEFCREGS(); if (b_ != YPfalse) { T2 = XCALL1(1,VARREF(YevalSmoduleYbinding_info),b_); T1 = T2; } else { T1 = YPfalse; } if (T1 != YPfalse) { T3 = (P)YevalSast_evalYPbinding_value_of(b_); T0 = T3; } else { T0 = default_; } return T0; } FUNCODEDEF(YevalSast_evalYbinding_value_or) { P b_,def_; P T0; LINK_STACK(); ARG(b_, 0); ARG(def_, 1); T0 = (P)YevalSast_evalYPbinding_value_or_of(b_,def_); UNLINK_STACK(); QRET(T0); } P YevalSast_evalYPbinding_value_or(P dlvar_,P default_) { P T0,T1,T2,T3; DEFCREGS(); T2 = (P)YevalSast_evalYPdlvar_mod(dlvar_); T3 = (P)YevalSast_evalYPdlvar_nam(dlvar_); T1 = (P)YevalSast_evalYPlookup_binding(T2,T3); T0 = (P)YevalSast_evalYPbinding_value_or_of(T1,default_); return T0; } P YevalSast_evalY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141; DEFCREGS(); lit_0 = YPPsym((P)"env-global-binding-value"); lit_1 = YPPlist(1,YPPsym((P)"b")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_global_binding_value_0 = YPfab_met(FUNCODEREF(fun_env_global_binding_value_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(18),YPfalse); T2 = VARREF_OR(YevalSast_evalYenv_global_binding_value,YPfalse); T3 = fun_env_global_binding_value_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSast_evalYenv_global_binding_value,T1); lit_2 = YPPsym((P)"env-global-binding-value-setter"); lit_3 = YPPlist(2,YPPsym((P)"value"),YPPsym((P)"b")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_env_global_binding_value_setter_1 = YPfab_met(FUNCODEREF(fun_env_global_binding_value_setter_1),T4,LITREF(lit_2),LITREF(lit_3),sloc(25),YPfalse); T6 = VARREF_OR(YevalSast_evalYenv_global_binding_value_setter,YPfalse); T7 = fun_env_global_binding_value_setter_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSast_evalYenv_global_binding_value_setter,T5); lit_4 = YPPsym((P)"env-global-binding-bound?"); lit_5 = YPPlist(1,YPPsym((P)"b")); T8 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_env_global_binding_boundQ_2 = YPfab_met(FUNCODEREF(fun_env_global_binding_boundQ_2),T8,LITREF(lit_4),LITREF(lit_5),sloc(33),YPfalse); T10 = VARREF_OR(YevalSast_evalYenv_global_binding_boundQ,YPfalse); T11 = fun_env_global_binding_boundQ_2; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSast_evalYenv_global_binding_boundQ,T9); lit_6 = YPPsym((P)"env-runtime-value"); lit_7 = YPPlist(1,YPPsym((P)"x")); T12 = YPfab_sig(YPPlist(1,VARREF(YLlocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_runtime_value_3 = YPfab_met(FUNCODEREF(fun_env_runtime_value_3),T12,LITREF(lit_6),LITREF(lit_7),sloc(39),YPfalse); T14 = VARREF_OR(YevalSast_evalYenv_runtime_value,YPfalse); T15 = fun_env_runtime_value_3; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSast_evalYenv_runtime_value,T13); lit_8 = YPPsym((P)"env-runtime-value-setter"); lit_9 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlocG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_env_runtime_value_setter_4 = YPfab_met(FUNCODEREF(fun_env_runtime_value_setter_4),T16,LITREF(lit_8),LITREF(lit_9),sloc(42),YPfalse); T18 = VARREF_OR(YevalSast_evalYenv_runtime_value_setter,YPfalse); T19 = fun_env_runtime_value_setter_4; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSast_evalYenv_runtime_value_setter,T17); lit_10 = YPPsym((P)"env-dynamic-value"); lit_11 = YPPlist(1,YPPsym((P)"x")); T20 = YPfab_sig(YPPlist(1,VARREF(YLlocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_dynamic_value_5 = YPfab_met(FUNCODEREF(fun_env_dynamic_value_5),T20,LITREF(lit_10),LITREF(lit_11),sloc(47),YPfalse); T22 = VARREF_OR(YevalSast_evalYenv_dynamic_value,YPfalse); T23 = fun_env_dynamic_value_5; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSast_evalYenv_dynamic_value,T21); lit_12 = YPPsym((P)"env-dynamic-value-setter"); lit_13 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"x")); T24 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlocG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_env_dynamic_value_setter_6 = YPfab_met(FUNCODEREF(fun_env_dynamic_value_setter_6),T24,LITREF(lit_12),LITREF(lit_13),sloc(50),YPfalse); T26 = VARREF_OR(YevalSast_evalYenv_dynamic_value_setter,YPfalse); T27 = fun_env_dynamic_value_setter_6; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSast_evalYenv_dynamic_value_setter,T25); lit_14 = YPPsym((P)""); T29 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T28 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_14),T29); VARSET(YevalSast_evalYLloc_envG,T28); lit_15 = YPPsym((P)"env-parent"); lit_16 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_parent_7 = YPfab_met(FUNCODEREF(fun_env_parent_7),T30,LITREF(lit_15),LITREF(lit_16),sloc(54),YPfalse); T32 = VARREF_OR(YevalSast_evalYenv_parent,YPfalse); T33 = fun_env_parent_7; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSast_evalYenv_parent,T31); lit_17 = YPPlist(1,YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_8 = YPfab_met(FUNCODEREF(fun_8),T34,YPfalse,LITREF(lit_17),sloc(54),YPfalse); T35 = fun_8; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSast_evalYenv_parent),YPfalse,VARREF(YLanyG),T35); lit_18 = YPPsym((P)"env-function"); lit_19 = YPPlist(1,YPPsym((P)"_x")); T36 = YPfab_sig(YPPlist(1,VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_function_9 = YPfab_met(FUNCODEREF(fun_env_function_9),T36,LITREF(lit_18),LITREF(lit_19),sloc(55),YPfalse); T38 = VARREF_OR(YevalSast_evalYenv_function,YPfalse); T39 = fun_env_function_9; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSast_evalYenv_function,T37); lit_20 = YPPlist(1,YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_10 = YPfab_met(FUNCODEREF(fun_10),T40,YPfalse,LITREF(lit_20),sloc(55),YPfalse); T41 = fun_10; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSast_evalYenv_function),YPfalse,VARREF(YLanyG),T41); lit_21 = YPPsym((P)"env-names"); lit_22 = YPPlist(1,YPPsym((P)"_x")); T42 = YPfab_sig(YPPlist(1,VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_names_11 = YPfab_met(FUNCODEREF(fun_env_names_11),T42,LITREF(lit_21),LITREF(lit_22),sloc(56),YPfalse); T44 = VARREF_OR(YevalSast_evalYenv_names,YPfalse); T45 = fun_env_names_11; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YevalSast_evalYenv_names,T43); lit_23 = YPPlist(1,YPPsym((P)"_x")); T46 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T46,YPfalse,LITREF(lit_23),sloc(56),YPfalse); T47 = fun_12; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSast_evalYenv_names),YPfalse,VARREF(YLlstG),T47); lit_24 = YPPsym((P)"env-values"); lit_25 = YPPlist(1,YPPsym((P)"_x")); T48 = YPfab_sig(YPPlist(1,VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_values_13 = YPfab_met(FUNCODEREF(fun_env_values_13),T48,LITREF(lit_24),LITREF(lit_25),sloc(57),YPfalse); T50 = VARREF_OR(YevalSast_evalYenv_values,YPfalse); T51 = fun_env_values_13; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSast_evalYenv_values,T49); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSast_evalYenv_values),YPfalse,VARREF(YLrepG),VARREF(YPprop_unbound_error)); T52 = XCALL1(1,VARREF(Ynew),VARREF(YevalSast_evalYLloc_envG)); VARSET(YevalSast_evalYDnul_loc_env,T52); lit_26 = YPPsym((P)"env-frame!"); lit_27 = YPPlist(4,YPPsym((P)"env"),YPPsym((P)"function"),YPPsym((P)"names"),YPPsym((P)"args")); T53 = YPfab_sig(YPPlist(4,VARREF(YevalSast_evalYLloc_envG),VARREF(YLanyG),VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)4),VARREF(YevalSast_evalYLloc_envG),Ynil); fun_env_frameX_14 = YPfab_met(FUNCODEREF(fun_env_frameX_14),T53,LITREF(lit_26),LITREF(lit_27),sloc(61),YPfalse); T55 = VARREF_OR(YevalSast_evalYenv_frameX,YPfalse); T56 = fun_env_frameX_14; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YevalSast_evalYenv_frameX,T54); lit_28 = YPPsym((P)"env-local-value"); lit_29 = YPPlist(3,YPPsym((P)"env"),YPPsym((P)"i"),YPPsym((P)"j")); T57 = YPfab_sig(YPPlist(3,VARREF(YevalSast_evalYLloc_envG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_env_local_value_15 = YPfab_met(FUNCODEREF(fun_env_local_value_15),T57,LITREF(lit_28),LITREF(lit_29),sloc(69),YPfalse); T59 = VARREF_OR(YevalSast_evalYenv_local_value,YPfalse); T60 = fun_env_local_value_15; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSast_evalYenv_local_value,T58); lit_30 = YPPsym((P)"env-local-value-setter"); lit_31 = YPPlist(4,YPPsym((P)"v"),YPPsym((P)"env"),YPPsym((P)"i"),YPPsym((P)"j")); T61 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YevalSast_evalYLloc_envG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_env_local_value_setter_16 = YPfab_met(FUNCODEREF(fun_env_local_value_setter_16),T61,LITREF(lit_30),LITREF(lit_31),sloc(74),YPfalse); T63 = VARREF_OR(YevalSast_evalYenv_local_value_setter,YPfalse); T64 = fun_env_local_value_setter_16; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSast_evalYenv_local_value_setter,T62); lit_32 = YPPsym((P)"env-binding-value"); lit_33 = YPPlist(2,YPPsym((P)"env"),YPPsym((P)"name")); T65 = YPfab_sig(YPPlist(2,VARREF(YevalSast_evalYLloc_envG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_env_binding_value_17 = YPfab_met(FUNCODEREF(fun_env_binding_value_17),T65,LITREF(lit_32),LITREF(lit_33),sloc(80),YPfalse); T67 = VARREF_OR(YevalSast_evalYenv_binding_value,YPfalse); T68 = fun_env_binding_value_17; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YevalSast_evalYenv_binding_value,T66); lit_34 = YPPsym((P)"env-binding-value-setter"); lit_35 = YPPlist(3,YPPsym((P)"v"),YPPsym((P)"env"),YPPsym((P)"name")); T69 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YevalSast_evalYLloc_envG),VARREF(YLsymG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_env_binding_value_setter_18 = YPfab_met(FUNCODEREF(fun_env_binding_value_setter_18),T69,LITREF(lit_34),LITREF(lit_35),sloc(90),YPfalse); T71 = VARREF_OR(YevalSast_evalYenv_binding_value_setter,YPfalse); T72 = fun_env_binding_value_setter_18; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YevalSast_evalYenv_binding_value_setter,T70); lit_36 = YPPsym((P)"ast-evaluate"); lit_37 = YPPlist(1,YPPsym((P)"e")); T73 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ast_evaluate_19 = YPfab_met(FUNCODEREF(fun_ast_evaluate_19),T73,LITREF(lit_36),LITREF(lit_37),sloc(102),YPfalse); T75 = VARREF_OR(YevalSastYast_evaluate,YPfalse); T76 = fun_ast_evaluate_19; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); VARSET(YevalSastYast_evaluate,T74); lit_38 = YPPsym((P)"ast-eval"); lit_39 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T78 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T77 = YPfab_gen(T78,LITREF(lit_38),LITREF(lit_39),YPfalse); VARSET(YevalSast_evalYast_eval,T77); lit_40 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T79 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLconstantG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_20 = YPfab_met(FUNCODEREF(fun_ast_eval_20),T79,LITREF(lit_38),LITREF(lit_40),sloc(107),YPfalse); T81 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T82 = fun_ast_eval_20; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YevalSast_evalYast_eval,T80); lit_41 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T83 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLraw_constantG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_21 = YPfab_met(FUNCODEREF(fun_ast_eval_21),T83,LITREF(lit_38),LITREF(lit_41),sloc(110),YPfalse); T85 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T86 = fun_ast_eval_21; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YevalSast_evalYast_eval,T84); lit_42 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"ee")); T87 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLcompile_timeG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_22 = YPfab_met(FUNCODEREF(fun_ast_eval_22),T87,LITREF(lit_38),LITREF(lit_42),sloc(113),YPfalse); T89 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T90 = fun_ast_eval_22; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSast_evalYast_eval,T88); lit_43 = YPPsym((P)"ast-eval-specs"); lit_44 = YPPlist(3,YPPsym((P)"specs"),YPPsym((P)"nary?"),YPPsym((P)"env")); T91 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLlogG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_ast_eval_specs_23 = YPfab_met(FUNCODEREF(fun_ast_eval_specs_23),T91,LITREF(lit_43),LITREF(lit_44),sloc(116),YPfalse); T93 = VARREF_OR(YevalSast_evalYast_eval_specs,YPfalse); T94 = fun_ast_eval_specs_23; T92 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T93,T94); VARSET(YevalSast_evalYast_eval_specs,T92); lit_45 = YPPsym((P)"arrange-arguments"); lit_46 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"nary?"),YPPsym((P)"arity"),YPPsym((P)"args")); T95 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLlogG),VARREF(YLintG),VARREF(YLlstG)),YPfalse,YPint((P)4),VARREF(YLlstG),Ynil); YevalSast_evalYarrange_arguments = YPfab_met(FUNCODEREF(YevalSast_evalYarrange_arguments),T95,LITREF(lit_45),LITREF(lit_46),sloc(131),YPfalse); T96 = YevalSast_evalYarrange_arguments; VARSET(YevalSast_evalYarrange_arguments,T96); lit_47 = YPPlist(1,YPPsym((P)"exp")); lit_48 = YPPlist(1,YPPsym((P)"return")); lit_49 = YPPsym((P)"x-1528"); lit_50 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_51 = YPPsym((P)"ifun"); lit_52 = YPsb((P)"Match Pattern Failure"); lit_53 = YPPsym((P)"fun"); lit_54 = YPPsym((P)"arg-vector"); lit_55 = YPPsym((P)"..."); lit_56 = Ynil; lit_57 = YPPsym((P)"def"); lit_58 = YPPsym((P)"args"); lit_59 = YPPsym((P)"f"); lit_60 = YPPsym((P)"nary?"); lit_61 = YPPsym((P)"arity"); lit_62 = YPPsym((P)"as"); lit_63 = YPPsym((P)""); lit_64 = YPPsym((P)"nms"); lit_65 = YPPsym((P)"%next-methods"); lit_66 = YPPsym((P)"frame"); lit_67 = YPPsym((P)"cat2"); lit_68 = YPPsym((P)"lst"); lit_69 = YPPsym((P)"quote"); T99 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1528_25 = YPfab_met(FUNCODEREF(fun_x_1528_25),T99,LITREF(lit_49),LITREF(lit_50),YPfalse,YPfalse); T98 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T98,YPfalse,LITREF(lit_48),YPfalse,YPfalse); T97 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_27 = YPfab_met(FUNCODEREF(fun_27),T97,YPfalse,LITREF(lit_47),YPfalse,YPfalse); T100 = fun_27; YPmacro(YPPsym((P)"eval/ast-eval"),YPPsym((P)"ifun"),T100); lit_70 = YPPsym((P)"as-fun-name"); lit_71 = YPPlist(1,YPPsym((P)"x")); T101 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_fun_name_28 = YPfab_met(FUNCODEREF(fun_as_fun_name_28),T101,LITREF(lit_70),LITREF(lit_71),sloc(151),YPfalse); T103 = VARREF_OR(YevalSast_evalYas_fun_name,YPfalse); T104 = fun_as_fun_name_28; T102 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T103,T104); VARSET(YevalSast_evalYas_fun_name,T102); lit_72 = YPPlist(1,YPPsym((P)"x")); T105 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_fun_name_29 = YPfab_met(FUNCODEREF(fun_as_fun_name_29),T105,LITREF(lit_70),LITREF(lit_72),sloc(153),YPfalse); T107 = VARREF_OR(YevalSast_evalYas_fun_name,YPfalse); T108 = fun_as_fun_name_29; T106 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T107,T108); VARSET(YevalSast_evalYas_fun_name,T106); lit_73 = YPPlist(1,YPPsym((P)"x")); T109 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_fun_name_30 = YPfab_met(FUNCODEREF(fun_as_fun_name_30),T109,LITREF(lit_70),LITREF(lit_73),sloc(155),YPfalse); T111 = VARREF_OR(YevalSast_evalYas_fun_name,YPfalse); T112 = fun_as_fun_name_30; T110 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T111,T112); VARSET(YevalSast_evalYas_fun_name,T110); lit_74 = YPPlist(1,YPPsym((P)"x")); T113 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLconstantG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_fun_name_31 = YPfab_met(FUNCODEREF(fun_as_fun_name_31),T113,LITREF(lit_70),LITREF(lit_74),sloc(157),YPfalse); T115 = VARREF_OR(YevalSast_evalYas_fun_name,YPfalse); T116 = fun_as_fun_name_31; T114 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T115,T116); VARSET(YevalSast_evalYas_fun_name,T114); lit_75 = YPPlist(1,YPPsym((P)"x")); T117 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_as_fun_name_32 = YPfab_met(FUNCODEREF(fun_as_fun_name_32),T117,LITREF(lit_70),LITREF(lit_75),sloc(159),YPfalse); T119 = VARREF_OR(YevalSast_evalYas_fun_name,YPfalse); T120 = fun_as_fun_name_32; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSast_evalYas_fun_name,T118); lit_76 = YPPlist(1,YPPsym((P)"x")); T121 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_fun_name_33 = YPfab_met(FUNCODEREF(fun_as_fun_name_33),T121,LITREF(lit_70),LITREF(lit_76),sloc(161),YPfalse); T123 = VARREF_OR(YevalSast_evalYas_fun_name,YPfalse); T124 = fun_as_fun_name_33; T122 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T123,T124); VARSET(YevalSast_evalYas_fun_name,T122); lit_77 = YPPsym((P)"export-goo-method"); lit_78 = YPPlist(7,YPPsym((P)"f"),YPPsym((P)"names"),YPPsym((P)"specs"),YPPsym((P)"nary?"),YPPsym((P)"value"),YPPsym((P)"body"),YPPsym((P)"env")); lit_79 = YPPlist(1,YPPsym((P)"arg-vector")); T126 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T126,YPfalse,LITREF(lit_79),sloc(166),YPfalse); T125 = YPfab_sig(YPPlist(7,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)7),VARREF(YLanyG),Ynil); fun_export_goo_method_35 = YPfab_met(FUNCODEREF(fun_export_goo_method_35),T125,LITREF(lit_77),LITREF(lit_78),sloc(164),YPfalse); T128 = VARREF_OR(YevalSast_evalYexport_goo_method,YPfalse); T129 = fun_export_goo_method_35; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); VARSET(YevalSast_evalYexport_goo_method,T127); lit_80 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_81 = YPPlist(1,YPPsym((P)"env")); T131 = YPfab_sig(YPPlist(1,VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T131,YPfalse,LITREF(lit_81),sloc(182),YPfalse); T130 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLast_methodG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_37 = YPfab_met(FUNCODEREF(fun_ast_eval_37),T130,LITREF(lit_38),LITREF(lit_80),sloc(180),YPfalse); T133 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T134 = fun_ast_eval_37; T132 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T133,T134); VARSET(YevalSast_evalYast_eval,T132); lit_82 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T137 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLast_genericG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T136 = fun_ast_eval_38 = YPfab_met(FUNCODEREF(fun_ast_eval_38),T137,LITREF(lit_38),LITREF(lit_82),sloc(192),YPfalse); T140 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T141 = fun_ast_eval_38; T139 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T140,T141); T138 = VARSET(YevalSast_evalYast_eval,T139); T135 = T138; return T135; } P YevalSast_evalY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131; DEFCREGS(); lit_83 = YPPsym((P)"env-local-reference-value"); lit_84 = YPPlist(2,YPPsym((P)"env"),YPPsym((P)"ref")); T0 = YPfab_sig(YPPlist(2,VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_env_local_reference_value_39 = YPfab_met(FUNCODEREF(fun_env_local_reference_value_39),T0,LITREF(lit_83),LITREF(lit_84),sloc(199),YPfalse); T2 = VARREF_OR(YevalSast_evalYenv_local_reference_value,YPfalse); T3 = fun_env_local_reference_value_39; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSast_evalYenv_local_reference_value,T1); lit_85 = YPPsym((P)"env-local-reference-value-setter"); lit_86 = YPPlist(3,YPPsym((P)"val"),YPPsym((P)"env"),YPPsym((P)"ref")); T4 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YevalSast_evalYLloc_envG),VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_env_local_reference_value_setter_40 = YPfab_met(FUNCODEREF(fun_env_local_reference_value_setter_40),T4,LITREF(lit_85),LITREF(lit_86),sloc(203),YPfalse); T6 = VARREF_OR(YevalSast_evalYenv_local_reference_value_setter,YPfalse); T7 = fun_env_local_reference_value_setter_40; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSast_evalYenv_local_reference_value_setter,T5); lit_87 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T8 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLstatic_module_binding_referenceG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_41 = YPfab_met(FUNCODEREF(fun_ast_eval_41),T8,LITREF(lit_38),LITREF(lit_87),sloc(208),YPfalse); T10 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T11 = fun_ast_eval_41; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSast_evalYast_eval,T9); lit_88 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T12 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_42 = YPfab_met(FUNCODEREF(fun_ast_eval_42),T12,LITREF(lit_38),LITREF(lit_88),sloc(210),YPfalse); T14 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T15 = fun_ast_eval_42; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSast_evalYast_eval,T13); lit_89 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T16 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLglobal_referenceG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_43 = YPfab_met(FUNCODEREF(fun_ast_eval_43),T16,LITREF(lit_38),LITREF(lit_89),sloc(213),YPfalse); T18 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T19 = fun_ast_eval_43; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSast_evalYast_eval,T17); lit_90 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T20 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLdynamic_referenceG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_44 = YPfab_met(FUNCODEREF(fun_ast_eval_44),T20,LITREF(lit_38),LITREF(lit_90),sloc(216),YPfalse); T22 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T23 = fun_ast_eval_44; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSast_evalYast_eval,T21); lit_91 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T24 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLruntime_referenceG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_45 = YPfab_met(FUNCODEREF(fun_ast_eval_45),T24,LITREF(lit_38),LITREF(lit_91),sloc(219),YPfalse); T26 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T27 = fun_ast_eval_45; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSast_evalYast_eval,T25); lit_92 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T28 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLboundQG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_46 = YPfab_met(FUNCODEREF(fun_ast_eval_46),T28,LITREF(lit_38),LITREF(lit_92),sloc(222),YPfalse); T30 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T31 = fun_ast_eval_46; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalSast_evalYast_eval,T29); lit_93 = YPPsym((P)"env-global-binding-value-or"); lit_94 = YPPlist(3,YPPsym((P)"b"),YPPsym((P)"default"),YPPsym((P)"env")); T32 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YLanyG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_env_global_binding_value_or_47 = YPfab_met(FUNCODEREF(fun_env_global_binding_value_or_47),T32,LITREF(lit_93),LITREF(lit_94),sloc(225),YPfalse); T34 = VARREF_OR(YevalSast_evalYenv_global_binding_value_or,YPfalse); T35 = fun_env_global_binding_value_or_47; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalSast_evalYenv_global_binding_value_or,T33); lit_95 = YPPsym((P)"ast-eval-bound?"); lit_96 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"binding"),YPPsym((P)"env")); lit_97 = YPPsym((P)"global"); T36 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLboundQG),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_ast_eval_boundQ_48 = YPfab_met(FUNCODEREF(fun_ast_eval_boundQ_48),T36,LITREF(lit_95),LITREF(lit_96),sloc(230),YPfalse); T38 = VARREF_OR(YevalSast_evalYast_eval_boundQ,YPfalse); T39 = fun_ast_eval_boundQ_48; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSast_evalYast_eval_boundQ,T37); lit_98 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"binding"),YPPsym((P)"env")); T40 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLboundQG),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_ast_eval_boundQ_49 = YPfab_met(FUNCODEREF(fun_ast_eval_boundQ_49),T40,LITREF(lit_95),LITREF(lit_98),sloc(235),YPfalse); T42 = VARREF_OR(YevalSast_evalYast_eval_boundQ,YPfalse); T43 = fun_ast_eval_boundQ_49; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSast_evalYast_eval_boundQ,T41); lit_99 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T44 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLglobal_assignmentG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_50 = YPfab_met(FUNCODEREF(fun_ast_eval_50),T44,LITREF(lit_38),LITREF(lit_99),sloc(238),YPfalse); T46 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T47 = fun_ast_eval_50; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSast_evalYast_eval,T45); lit_100 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T48 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLast_macro_definitionG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_51 = YPfab_met(FUNCODEREF(fun_ast_eval_51),T48,LITREF(lit_38),LITREF(lit_100),sloc(242),YPfalse); T50 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T51 = fun_ast_eval_51; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSast_evalYast_eval,T49); lit_101 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T52 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLruntime_assignmentG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_52 = YPfab_met(FUNCODEREF(fun_ast_eval_52),T52,LITREF(lit_38),LITREF(lit_101),sloc(245),YPfalse); T54 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T55 = fun_ast_eval_52; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSast_evalYast_eval,T53); lit_102 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T56 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLdynamic_assignmentG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_53 = YPfab_met(FUNCODEREF(fun_ast_eval_53),T56,LITREF(lit_38),LITREF(lit_102),sloc(249),YPfalse); T58 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T59 = fun_ast_eval_53; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalSast_evalYast_eval,T57); lit_103 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T60 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocal_assignmentG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_54 = YPfab_met(FUNCODEREF(fun_ast_eval_54),T60,LITREF(lit_38),LITREF(lit_103),sloc(253),YPfalse); T62 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T63 = fun_ast_eval_54; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSast_evalYast_eval,T61); lit_104 = YPPsym((P)"env-define-binding!"); lit_105 = YPPlist(2,YPPsym((P)"b"),YPPsym((P)"v")); lit_106 = YPPsym((P)"runtime"); lit_107 = YPPsym((P)"dynamic"); lit_108 = YPsb((P)"Defining invalid binding kind %="); T64 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_env_define_bindingX_55 = YPfab_met(FUNCODEREF(fun_env_define_bindingX_55),T64,LITREF(lit_104),LITREF(lit_105),sloc(257),YPfalse); T66 = VARREF_OR(YevalSast_evalYenv_define_bindingX,YPfalse); T67 = fun_env_define_bindingX_55; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSast_evalYenv_define_bindingX,T65); lit_109 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T68 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLdefinitionG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_56 = YPfab_met(FUNCODEREF(fun_ast_eval_56),T68,LITREF(lit_38),LITREF(lit_109),sloc(266),YPfalse); T70 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T71 = fun_ast_eval_56; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YevalSast_evalYast_eval,T69); lit_110 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T72 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLalternativeG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_57 = YPfab_met(FUNCODEREF(fun_ast_eval_57),T72,LITREF(lit_38),LITREF(lit_110),sloc(286),YPfalse); T74 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T75 = fun_ast_eval_57; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSast_evalYast_eval,T73); lit_111 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_112 = YPPlist(1,YPPsym((P)"return")); lit_113 = YPPlist(1,YPPsym((P)"continue")); T78 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_58 = YPfab_met(FUNCODEREF(fun_58),T78,YPfalse,LITREF(lit_113),sloc(294),YPfalse); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_59 = YPfab_met(FUNCODEREF(fun_59),T77,YPfalse,LITREF(lit_112),sloc(292),YPfalse); T76 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLloopG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_60 = YPfab_met(FUNCODEREF(fun_ast_eval_60),T76,LITREF(lit_38),LITREF(lit_111),sloc(291),YPfalse); T80 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T81 = fun_ast_eval_60; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSast_evalYast_eval,T79); lit_114 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T82 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLsequentialG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_61 = YPfab_met(FUNCODEREF(fun_ast_eval_61),T82,LITREF(lit_38),LITREF(lit_114),sloc(299),YPfalse); T84 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T85 = fun_ast_eval_61; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YevalSast_evalYast_eval,T83); lit_115 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T86 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLargumentsG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_62 = YPfab_met(FUNCODEREF(fun_ast_eval_62),T86,LITREF(lit_38),LITREF(lit_115),sloc(307),YPfalse); T88 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T89 = fun_ast_eval_62; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YevalSast_evalYast_eval,T87); lit_116 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T90 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLregular_applicationG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_63 = YPfab_met(FUNCODEREF(fun_ast_eval_63),T90,LITREF(lit_38),LITREF(lit_116),sloc(313),YPfalse); T92 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T93 = fun_ast_eval_63; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSast_evalYast_eval,T91); lit_117 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T94 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLloop_applicationG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_64 = YPfab_met(FUNCODEREF(fun_ast_eval_64),T94,LITREF(lit_38),LITREF(lit_117),sloc(318),YPfalse); T96 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T97 = fun_ast_eval_64; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YevalSast_evalYast_eval,T95); lit_118 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_119 = YPPsym((P)"%fun-reg"); T98 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLpredefined_applicationG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_65 = YPfab_met(FUNCODEREF(fun_ast_eval_65),T98,LITREF(lit_38),LITREF(lit_118),sloc(325),YPfalse); T100 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T101 = fun_ast_eval_65; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YevalSast_evalYast_eval,T99); lit_120 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T102 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLfix_letG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_66 = YPfab_met(FUNCODEREF(fun_ast_eval_66),T102,LITREF(lit_38),LITREF(lit_120),sloc(337),YPfalse); T104 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T105 = fun_ast_eval_66; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YevalSast_evalYast_eval,T103); lit_121 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_122 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"value")); T107 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_67 = YPfab_met(FUNCODEREF(fun_67),T107,YPfalse,LITREF(lit_122),sloc(347),YPfalse); T106 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocalsG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_68 = YPfab_met(FUNCODEREF(fun_ast_eval_68),T106,LITREF(lit_38),LITREF(lit_121),sloc(342),YPfalse); T109 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T110 = fun_ast_eval_68; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YevalSast_evalYast_eval,T108); lit_123 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_124 = YPPlist(1,YPPsym((P)"return")); lit_125 = YPPlist(1,YPPsym((P)"env")); lit_126 = YPPsym((P)"x"); T113 = YPfab_sig(YPPlist(1,VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_69 = YPfab_met(FUNCODEREF(fun_69),T113,YPfalse,LITREF(lit_125),sloc(360),YPfalse); T112 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_70 = YPfab_met(FUNCODEREF(fun_70),T112,YPfalse,LITREF(lit_124),sloc(359),YPfalse); T111 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLbind_exitG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_71 = YPfab_met(FUNCODEREF(fun_ast_eval_71),T111,LITREF(lit_38),LITREF(lit_123),sloc(358),YPfalse); T115 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T116 = fun_ast_eval_71; T114 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T115,T116); VARSET(YevalSast_evalYast_eval,T114); lit_127 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_128 = Ynil; T119 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_72 = YPfab_met(FUNCODEREF(fun_72),T119,YPfalse,LITREF(lit_128),sloc(365),YPfalse); T118 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_73 = YPfab_met(FUNCODEREF(fun_73),T118,YPfalse,LITREF(lit_128),sloc(366),YPfalse); T117 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLunwind_protectG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_74 = YPfab_met(FUNCODEREF(fun_ast_eval_74),T117,LITREF(lit_38),LITREF(lit_127),sloc(364),YPfalse); T121 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T122 = fun_ast_eval_74; T120 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T121,T122); VARSET(YevalSast_evalYast_eval,T120); lit_129 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); T123 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLmonitorG),VARREF(YevalSast_evalYLloc_envG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_eval_75 = YPfab_met(FUNCODEREF(fun_ast_eval_75),T123,LITREF(lit_38),LITREF(lit_129),sloc(368),YPfalse); T125 = VARREF_OR(YevalSast_evalYast_eval,YPfalse); T126 = fun_ast_eval_75; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSast_evalYast_eval,T124); lit_130 = YPPsym((P)"init-environment-for-eval"); lit_131 = YPPlist(1,YPPsym((P)"env")); lit_132 = YPPsym((P)"predefined"); T127 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYinit_environment_for_eval = YPfab_met(FUNCODEREF(YevalSastYinit_environment_for_eval),T127,LITREF(lit_130),LITREF(lit_131),sloc(383),YPfalse); T128 = YevalSastYinit_environment_for_eval; VARSET(YevalSastYinit_environment_for_eval,T128); lit_133 = YPPsym((P)"binding-value-or"); lit_134 = YPPlist(2,YPPsym((P)"b"),YPPsym((P)"def")); T129 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSast_evalYbinding_value_or = YPfab_met(FUNCODEREF(YevalSast_evalYbinding_value_or),T129,LITREF(lit_133),LITREF(lit_134),sloc(445),YPfalse); T130 = YevalSast_evalYbinding_value_or; VARSET(YevalSast_evalYbinding_value_or,T130); T131 = YPfalse; return T131; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; extern MODULE_INFO module_info_gooScolsSmap; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSmacros}, {&module_info_gooSloc}, {&module_info_goo}, {&module_info_gooScolsSrep}, {&module_info_evalSast}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"c-inline-strs", &module_info_evalSast, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"function-value", &module_info_evalSast, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-inline-expr?", &module_info_evalSast, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"any?", &module_info_gooStypes, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"tail", &module_info_gooSboot, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_evalSast, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_evalSast, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"", &module_info_evalSast, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"as-c", &module_info_gooSloc, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"c-inline-refs", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"application-function", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"program-type", &module_info_evalSast, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"", &module_info_evalSmodule, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"as-goo", &module_info_gooSloc, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSmodule, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"ds", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"function-source", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSconditions, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"function-free", &module_info_evalSast, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"-", &module_info_gooSmath, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"dg", &module_info_gooSboot, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"even?", &module_info_gooSmath, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"program-register", &module_info_evalSast, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"program-line", &module_info_evalSast, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"function-body", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"logn", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"function-index", &module_info_evalSast, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"&", &module_info_gooSmath, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"<<", &module_info_gooSmath, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSmodule, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-names", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"get", &module_info_gooSioSport, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"env-local-value", CVAR, &YevalSast_evalYenv_local_value}, {"env-global-binding-value-setter", CVAR, &YevalSast_evalYenv_global_binding_value_setter}, {"%dlvar", PVAR, NULL}, {"env-parent", CVAR, &YevalSast_evalYenv_parent}, {"env-binding-value-setter", CVAR, &YevalSast_evalYenv_binding_value_setter}, {"env-dynamic-value", CVAR, &YevalSast_evalYenv_dynamic_value}, {"ifun", PVAR, NULL}, {"ast-eval-specs", CVAR, &YevalSast_evalYast_eval_specs}, {"%binding-value-or", PVAR, NULL}, {"env-runtime-value-setter", CVAR, &YevalSast_evalYenv_runtime_value_setter}, {"", CVAR, &YevalSast_evalYLloc_envG}, {"env-local-reference-value", CVAR, &YevalSast_evalYenv_local_reference_value}, {"%dlvar-binding", PVAR, NULL}, {"ast-eval", CVAR, &YevalSast_evalYast_eval}, {"%binding-value-or-of", PVAR, NULL}, {"%binding-value", PVAR, NULL}, {"env-global-binding-value", CVAR, &YevalSast_evalYenv_global_binding_value}, {"%define-binding", PVAR, NULL}, {"env-runtime-value", CVAR, &YevalSast_evalYenv_runtime_value}, {"%dlvar-nam", PVAR, NULL}, {"env-binding-value", CVAR, &YevalSast_evalYenv_binding_value}, {"---main-1---", PVAR, NULL}, {"$nul-loc-env", CVAR, &YevalSast_evalYDnul_loc_env}, {"env-dynamic-value-setter", CVAR, &YevalSast_evalYenv_dynamic_value_setter}, {"%dlvar-setter", PVAR, NULL}, {"arrange-arguments", CVAR, &YevalSast_evalYarrange_arguments}, {"env-function", CVAR, &YevalSast_evalYenv_function}, {"%dlvar-mod", PVAR, NULL}, {"env-global-binding-value-or", CVAR, &YevalSast_evalYenv_global_binding_value_or}, {"env-local-reference-value-setter", CVAR, &YevalSast_evalYenv_local_reference_value_setter}, {"%binding-value-setter", PVAR, NULL}, {"ast-eval-bound?", CVAR, &YevalSast_evalYast_eval_boundQ}, {"%ensure-binding", PVAR, NULL}, {"env-define-binding!", CVAR, &YevalSast_evalYenv_define_bindingX}, {"env-global-binding-bound?", CVAR, &YevalSast_evalYenv_global_binding_boundQ}, {"env-values", CVAR, &YevalSast_evalYenv_values}, {"---main-0---", PVAR, NULL}, {"env-local-value-setter", CVAR, &YevalSast_evalYenv_local_value_setter}, {"%binding-value-of-setter", PVAR, NULL}, {"%lookup-binding", PVAR, NULL}, {"binding-value-or", CVAR, &YevalSast_evalYbinding_value_or}, {"env-frame!", CVAR, &YevalSast_evalYenv_frameX}, {"%binding-value-of", PVAR, NULL}, {"export-goo-method", CVAR, &YevalSast_evalYexport_goo_method}, {"as-fun-name", CVAR, &YevalSast_evalYas_fun_name}, {"env-names", CVAR, &YevalSast_evalYenv_names}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"%binding-value-or", NULL}, {"%binding-value-or-of", NULL}, {"%binding-value", NULL}, {"ast-evaluate", NULL}, {"%binding-value-setter", NULL}, {"binding-value-or", NULL}, {"%binding-value-of-setter", NULL}, {"init-environment-for-eval", NULL}, {"%binding-value-of", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSast_eval; MODULE_INFO module_info_evalSast_eval = { "eval/ast-eval", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSmacros (void); extern void load_module_gooSloc (void); extern void load_module_goo (void); extern void load_module_gooScolsSrep (void); extern void load_module_evalSast (void); /* EXPRESSION: */ extern void load_module_evalSast_eval (void); void load_module_evalSast_eval (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSmacros(); load_module_gooSloc(); load_module_goo(); load_module_gooScolsSrep(); load_module_evalSast(); (P)YevalSast_evalY___main_0___(); (P)YevalSast_evalY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/ast-linearize.c0100644000175000017500000070614307756744523016506 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/ast-linearize"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/ast-linearize */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YevalSast_linearizeYLfree_referenceG,"eval/ast-linearize",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); DEF(YevalSast_linearizeYlift_proceduresX,"eval/ast-linearize","lift-procedures!"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); DEF(YevalSast_linearizeYgather_temporariesX,"eval/ast-linearize","gather-temporaries!"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); DEF(YevalSast_linearizeYassoc_key_setter,"eval/ast-linearize","assoc-key-setter"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); DEF(YevalSast_linearizeYallocate_register,"eval/ast-linearize","allocate-register"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); DEF(YevalSast_linearizeYbox_form_setter,"eval/ast-linearize","box-form-setter"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); DEF(YevalSast_linearizeYclosurize_mainX,"eval/ast-linearize","closurize-main!"); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); DEF(YevalSast_linearizeYinsert_boxX,"eval/ast-linearize","insert-box!"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); DEF(YevalSast_linearizeYextract_thingsX,"eval/ast-linearize","extract-things!"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); DEF(YevalSast_linearizeYprogram_quotations,"eval/ast-linearize","program-quotations"); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); DEF(YevalSast_linearizeYprogram_form_setter,"eval/ast-linearize","program-form-setter"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YevalSast_linearizeYas_top_level_forms,"eval/ast-linearize","as-top-level-forms"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YevalSastYLcomputed_programG,"eval/ast",""); DEF(YevalSast_linearizeYreference_offset_setter,"eval/ast-linearize","reference-offset-setter"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); DEF(YevalSast_linearizeYLbox_writeG,"eval/ast-linearize",""); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); DEF(YevalSast_linearizeYbox_form,"eval/ast-linearize","box-form"); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YevalSast_linearizeYadjoin_free_bindingX,"eval/ast-linearize","adjoin-free-binding!"); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); DEF(YevalSast_linearizeYTregister_passiveQT,"eval/ast-linearize","*register-passive?*"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); DEF(YevalSast_linearizeYclosure_creation_index_setter,"eval/ast-linearize","closure-creation-index-setter"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); DEF(YevalSast_linearizeYbox_reference,"eval/ast-linearize","box-reference"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); DEF(YevalSast_linearizeYprogram_bindings,"eval/ast-linearize","program-bindings"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); DEF(YevalSast_linearizeYreference_offset,"eval/ast-linearize","reference-offset"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); DEF(YevalSast_linearizeYassoc_key,"eval/ast-linearize","assoc-key"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YevalSastYLsequentialG,"eval/ast",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); DEF(YevalSast_linearizeYclosure_creation_free_setter,"eval/ast-linearize","closure-creation-free-setter"); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(YevalSastYLdefinitionG,"eval/ast",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); DEF(YevalSast_linearizeYliftX,"eval/ast-linearize","lift!"); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); DEF(YevalSast_linearizeYassoc_value_setter,"eval/ast-linearize","assoc-value-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); DEF(YevalSast_linearizeYform_definitions_setter,"eval/ast-linearize","form-definitions-setter"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YevalSastYLc_inlineG,"eval/ast",""); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); DEF(YevalSast_linearizeYboxify_mutable_bindings,"eval/ast-linearize","boxify-mutable-bindings"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); DEF(YevalSast_linearizeYLrenamed_local_bindingG,"eval/ast-linearize",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); DEF(YevalSast_linearizeYreference_selfQ,"eval/ast-linearize","reference-self?"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); DEF(YevalSast_linearizeYLbox_creationG,"eval/ast-linearize",""); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YOlit,"goo/boot","@lit"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); DEF(YevalSast_linearizeYprogram_form,"eval/ast-linearize","program-form"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YevalSastYLmonitorG,"eval/ast",""); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YevalSastYLassignmentG,"eval/ast",""); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); DEF(YevalSast_linearizeYcollect_temporariesX,"eval/ast-linearize","collect-temporaries!"); DEF(YevalSast_linearizeYform_program_setter,"eval/ast-linearize","form-program-setter"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); DEF(YevalSast_linearizeYLbox_readG,"eval/ast-linearize",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); DEF(YevalSast_linearizeYclosure_creation_index,"eval/ast-linearize","closure-creation-index"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); DEF(YevalSast_linearizeYreference_selfQ_setter,"eval/ast-linearize","reference-self?-setter"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); DEF(YevalSast_linearizeYprogram_bindings_setter,"eval/ast-linearize","program-bindings-setter"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); DEF(YevalSast_linearizeYflatten_seqs,"eval/ast-linearize","flatten-seqs"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); DEF(YevalSast_linearizeYclosure_creation_free,"eval/ast-linearize","closure-creation-free"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(Yprop_type,"goo/boot","prop-type"); DEF(YevalSast_linearizeYLtop_level_formG,"eval/ast-linearize",""); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); DEF(YevalSast_linearizeYcollect_registersX,"eval/ast-linearize","collect-registers!"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); DEF(YevalSast_linearizeYassoc,"eval/ast-linearize","assoc"); DEF(YevalSast_linearizeYassocq,"eval/ast-linearize","assocq"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); DEF(YevalSast_linearizeYadjoin_definitionX,"eval/ast-linearize","adjoin-definition!"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); DEF(YevalSast_linearizeYLclosure_creationG,"eval/ast-linearize",""); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); DEF(YevalSast_linearizeYassoc_value,"eval/ast-linearize","assoc-value"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); DEF(YevalSast_linearizeYextractX,"eval/ast-linearize","extract!"); EXT(YevalSastYLprogramG,"eval/ast",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); DEF(YevalSast_linearizeYprepend_renamings,"eval/ast-linearize","prepend-renamings"); DEF(YevalSast_linearizeYform_definitions,"eval/ast-linearize","form-definitions"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmathYA,"goo/math","+"); DYNDEF(YevalSast_linearizeYTrenaming_bindings_counterT,"eval/ast-linearize","*renaming-bindings-counter*"); DEF(YevalSast_linearizeYform_quotations_setter,"eval/ast-linearize","form-quotations-setter"); DEF(YevalSast_linearizeYregister_allocateX,"eval/ast-linearize","register-allocate!"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); EXT(YevalSastYLalternativeG,"eval/ast",""); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); DEF(YevalSast_linearizeYsplit_program,"eval/ast-linearize","split-program"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); DEF(YevalSast_linearizeYprogram_definitions_setter,"eval/ast-linearize","program-definitions-setter"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); DEF(YevalSast_linearizeYform_quotations,"eval/ast-linearize","form-quotations"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YevalSastYLast_methodG,"eval/ast",""); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); DEF(YevalSast_linearizeYLassocG,"eval/ast-linearize",""); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); DEF(YevalSast_linearizeYadjoin_temporary_variablesX,"eval/ast-linearize","adjoin-temporary-variables!"); DEF(YevalSast_linearizeYform_program,"eval/ast-linearize","form-program"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); DEF(YevalSast_linearizeYbox_reference_setter,"eval/ast-linearize","box-reference-setter"); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); DEF(YevalSast_linearizeYnew_renamed_binding,"eval/ast-linearize","new-renamed-binding"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YevalSastYLbind_exitG,"eval/ast",""); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); DEF(YevalSast_linearizeYprogram_quotations_setter,"eval/ast-linearize","program-quotations-setter"); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); DEF(YevalSast_linearizeYLflattened_programG,"eval/ast-linearize",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(Ynil,"goo/boot","nil"); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSmoduleYLmoduleG,"eval/module",""); DEF(YevalSast_linearizeYprogram_definitions,"eval/ast-linearize","program-definitions"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_154); DEFLIT(lit_105); DEFLIT(lit_132); DEFLIT(lit_72); DEFLIT(lit_156); DEFLIT(lit_28); DEFLIT(lit_97); DEFLIT(lit_155); DEFLIT(lit_54); DEFLIT(lit_149); DEFLIT(lit_88); DEFLIT(lit_64); DEFLIT(lit_146); DEFLIT(lit_49); DEFLIT(lit_13); DEFLIT(lit_95); DEFLIT(lit_140); DEFLIT(lit_92); DEFLIT(lit_15); DEFLIT(lit_166); DEFLIT(lit_163); DEFLIT(lit_53); DEFLIT(lit_141); DEFLIT(lit_14); DEFLIT(lit_43); DEFLIT(lit_123); DEFLIT(lit_69); DEFLIT(lit_1); DEFLIT(lit_34); DEFLIT(lit_50); DEFLIT(lit_47); DEFLIT(lit_18); DEFLIT(lit_142); DEFLIT(lit_133); DEFLIT(lit_17); DEFLIT(lit_67); DEFLIT(lit_39); DEFLIT(lit_143); DEFLIT(lit_16); DEFLIT(lit_111); DEFLIT(lit_78); DEFLIT(lit_51); DEFLIT(lit_45); DEFLIT(lit_106); DEFLIT(lit_81); DEFLIT(lit_91); DEFLIT(lit_70); DEFLIT(lit_9); DEFLIT(lit_94); DEFLIT(lit_93); DEFLIT(lit_100); DEFLIT(lit_20); DEFLIT(lit_114); DEFLIT(lit_131); DEFLIT(lit_11); DEFLIT(lit_2); DEFLIT(lit_104); DEFLIT(lit_159); DEFLIT(lit_10); DEFLIT(lit_31); DEFLIT(lit_76); DEFLIT(lit_150); DEFLIT(lit_116); DEFLIT(lit_33); DEFLIT(lit_65); DEFLIT(lit_79); DEFLIT(lit_113); DEFLIT(lit_73); DEFLIT(lit_120); DEFLIT(lit_110); DEFLIT(lit_147); DEFLIT(lit_56); DEFLIT(lit_52); DEFLIT(lit_8); DEFLIT(lit_162); DEFLIT(lit_77); DEFLIT(lit_129); DEFLIT(lit_74); DEFLIT(lit_137); DEFLIT(lit_115); DEFLIT(lit_144); DEFLIT(lit_48); DEFLIT(lit_83); DEFLIT(lit_85); DEFLIT(lit_161); DEFLIT(lit_27); DEFLIT(lit_135); DEFLIT(lit_71); DEFLIT(lit_23); DEFLIT(lit_46); DEFLIT(lit_118); DEFLIT(lit_26); DEFLIT(lit_37); DEFLIT(lit_122); DEFLIT(lit_12); DEFLIT(lit_124); DEFLIT(lit_58); DEFLIT(lit_126); DEFLIT(lit_86); DEFLIT(lit_128); DEFLIT(lit_66); DEFLIT(lit_130); DEFLIT(lit_0); DEFLIT(lit_109); DEFLIT(lit_117); DEFLIT(lit_30); DEFLIT(lit_157); DEFLIT(lit_29); DEFLIT(lit_136); DEFLIT(lit_32); DEFLIT(lit_96); DEFLIT(lit_44); DEFLIT(lit_158); DEFLIT(lit_145); DEFLIT(lit_102); DEFLIT(lit_62); DEFLIT(lit_134); DEFLIT(lit_22); DEFLIT(lit_108); DEFLIT(lit_125); DEFLIT(lit_5); DEFLIT(lit_127); DEFLIT(lit_167); DEFLIT(lit_99); DEFLIT(lit_151); DEFLIT(lit_19); DEFLIT(lit_152); DEFLIT(lit_6); DEFLIT(lit_55); DEFLIT(lit_90); DEFLIT(lit_101); DEFLIT(lit_36); DEFLIT(lit_98); DEFLIT(lit_107); DEFLIT(lit_57); DEFLIT(lit_153); DEFLIT(lit_84); DEFLIT(lit_121); DEFLIT(lit_24); DEFLIT(lit_40); DEFLIT(lit_60); DEFLIT(lit_160); DEFLIT(lit_59); DEFLIT(lit_165); DEFLIT(lit_4); DEFLIT(lit_3); DEFLIT(lit_63); DEFLIT(lit_68); DEFLIT(lit_103); DEFLIT(lit_41); DEFLIT(lit_87); DEFLIT(lit_82); DEFLIT(lit_7); DEFLIT(lit_42); DEFLIT(lit_38); DEFLIT(lit_25); DEFLIT(lit_139); DEFLIT(lit_35); DEFLIT(lit_112); DEFLIT(lit_119); DEFLIT(lit_148); DEFLIT(lit_75); DEFLIT(lit_80); DEFLIT(lit_21); DEFLIT(lit_138); DEFLIT(lit_61); DEFLIT(lit_89); DEFLIT(lit_164); /* FUNCTIONS: */ LOCFOR(fun_box_reference_0); LOCFOR(fun_box_reference_setter_1); LOCFOR(fun_box_reference_2); LOCFOR(fun_box_reference_setter_3); LOCFOR(fun_box_form_4); LOCFOR(fun_box_form_setter_5); LOCFOR(fun_box_reference_6); LOCFOR(fun_box_reference_setter_7); LOCFOR(fun_insert_boxX_8); LOCFOR(fun_insert_boxX_9); LOCFOR(fun_insert_boxX_10); LOCFOR(fun_insert_boxX_11); LOCFOR(fun_insert_boxX_12); LOCFOR(fun_insert_boxX_13); LOCFOR(fun_insert_boxX_14); LOCFOR(fun_boxify_mutable_bindings_15); LOCFOR(fun_reference_offset_16); LOCFOR(fun_reference_offset_setter_17); LOCFOR(fun_reference_selfQ_18); LOCFOR(fun_reference_selfQ_setter_19); LOCFOR(fun_liftX_20); LOCFOR(fun_lift_proceduresX_21); LOCFOR(fun_lift_proceduresX_22); LOCFOR(fun_adjoin_free_bindingX_23); LOCFOR(fun_lift_proceduresX_24); LOCFOR(fun_lift_proceduresX_25); LOCFOR(fun_lift_proceduresX_26); LOCFOR(fun_lift_proceduresX_27); LOCFOR(fun_lift_proceduresX_28); LOCFOR(fun_program_form_29); LOCFOR(fun_program_form_setter_30); LOCFOR(fun_program_quotations_31); LOCFOR(fun_program_quotations_setter_32); LOCFOR(fun_33); LOCFOR(fun_program_bindings_34); LOCFOR(fun_program_bindings_setter_35); LOCFOR(fun_36); LOCFOR(fun_program_definitions_37); LOCFOR(fun_program_definitions_setter_38); LOCFOR(fun_39); LOCFOR(fun_form_program_40); LOCFOR(fun_form_program_setter_41); LOCFOR(fun_form_quotations_42); LOCFOR(fun_form_quotations_setter_43); LOCFOR(fun_44); LOCFOR(fun_form_definitions_45); LOCFOR(fun_form_definitions_setter_46); LOCFOR(fun_47); LOCFOR(fun_closure_creation_index_48); LOCFOR(fun_closure_creation_index_setter_49); LOCFOR(fun_closure_creation_free_50); LOCFOR(fun_closure_creation_free_setter_51); LOCFOR(fun_flatten_seqs_52); LOCFOR(fun_flatten_seqs_53); LOCFOR(fun_54); LOCFOR(fun_as_top_level_forms_55); LOCFOR(fun_56); LOCFOR(fun_extract_thingsX_57); LOCFOR(fun_extractX_58); LOCFOR(fun_extractX_59); LOCFOR(fun_extractX_60); LOCFOR(fun_61); LOCFOR(fun_extractX_62); LOCFOR(fun_extractX_63); LOCFOR(fun_adjoin_definitionX_64); LOCFOR(fun_split_program_65); LOCFOR(fun_split_program_66); LOCFOR(fun_closurize_mainX_67); LOCFOR(fun_assoc_key_68); LOCFOR(fun_assoc_key_setter_69); LOCFOR(fun_assoc_value_70); LOCFOR(fun_assoc_value_setter_71); FUNFOR(YevalSast_linearizeYassoc); LOCFOR(fun_assocq_73); LOCFOR(fun_74); LOCFOR(fun_gather_temporariesX_75); LOCFOR(fun_collect_temporariesX_76); LOCFOR(fun_collect_temporariesX_77); FUNFOR(YevalSast_linearizeYprepend_renamings); LOCFOR(fun_collect_temporariesX_79); LOCFOR(fun_80); LOCFOR(fun_collect_temporariesX_81); LOCFOR(fun_collect_temporariesX_82); LOCFOR(fun_adjoin_temporary_variablesX_83); LOCFOR(fun_binding_index_84); LOCFOR(fun_binding_index_setter_85); LOCFOR(fun_new_renamed_binding_86); LOCFOR(fun_87); LOCFOR(fun_88); LOCFOR(fun_89); LOCFOR(fun_register_allocateX_90); FUNFOR(YevalSast_linearizeYallocate_register); LOCFOR(fun_collect_registersX_92); LOCFOR(fun_collect_registersX_93); LOCFOR(fun_collect_registersX_94); LOCFOR(fun_95); LOCFOR(fun_collect_registersX_96); LOCFOR(fun_collect_registersX_97); LOCFOR(fun_collect_registersX_98); LOCFOR(fun_collect_registersX_99); LOCFOR(fun_collect_registersX_100); LOCFOR(fun_collect_registersX_101); extern P YevalSast_linearizeY___main_0___ (); extern P YevalSast_linearizeY___main_1___ (); extern P YevalSast_linearizeY___main_2___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_box_reference_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYbox_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_reference_setter_1) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYbox_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_reference_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYbox_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_reference_setter_3) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYbox_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_form_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYbox_form)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_form_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYbox_form)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_reference_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYbox_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_box_reference_setter_7) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYbox_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_boxX_8) { P o_; P T0; LINK_STACK(); ARG(o_, 0); T0 = CALL2(1,VARREF(YevalSastYast_walkX),VARREF(YevalSast_linearizeYinsert_boxX),o_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_boxX_9) { P o_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); T2 = CALL1(1,VARREF(YevalSastYreference_binding),o_); T1 = CALL1(1,VARREF(YevalSastYbinding_mutableQ),T2); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLbox_readG),VARREF(YevalSast_linearizeYbox_reference),o_); T0 = T3; } else { T0 = o_; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_boxX_10) { P o_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); CALL2(1,VARREF(YevalSastYast_walkX),VARREF(YevalSast_linearizeYinsert_boxX),o_); T1 = CALL1(1,VARREF(YevalSastYapplication_function),o_); T0 = CALL2(1,VARREF(YisaQ),T1,VARREF(YevalSastYLlocal_referenceG)); if (T0 != YPfalse) { T3 = CALL1(1,VARREF(YevalSastYapplication_function),o_); T2 = CALL2(1,VARREF(YevalSastYreference_called_functionQ_setter),YPtrue,T3); } else { } UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_insert_boxX_11) { P o_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); T1 = CALL1(1,VARREF(YevalSastYassignment_reference),o_); T3 = CALL1(1,VARREF(YevalSastYassignment_form),o_); T2 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),T3); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLbox_writeG),VARREF(YevalSast_linearizeYbox_reference),T1,VARREF(YevalSast_linearizeYbox_form),T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_boxX_12) { P o_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); T2 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T3 = CALL1(1,VARREF(YevalSastYfunction_bindings),o_); T1 = CALL2(1,VARREF(YevalSast_linearizeYboxify_mutable_bindings),T2,T3); T0 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),T1); CALL2(1,VARREF(YevalSastYfunction_body_setter),T0,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_insert_boxX_13) { P o_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(o_, 0); T1 = CALL1(1,VARREF(YevalSastYfix_let_arguments),o_); T0 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),T1); CALL2(1,VARREF(YevalSastYfix_let_arguments_setter),T0,o_); T4 = CALL1(1,VARREF(YevalSastYfix_let_body),o_); T5 = CALL1(1,VARREF(YevalSastYfix_let_bindings),o_); T3 = CALL2(1,VARREF(YevalSast_linearizeYboxify_mutable_bindings),T4,T5); T2 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),T3); CALL2(1,VARREF(YevalSastYfix_let_body_setter),T2,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_insert_boxX_14) { P o_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(o_, 0); T1 = CALL1(1,VARREF(YevalSastYlocals_functions),o_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSast_linearizeYinsert_boxX),T1); CALL2(1,VARREF(YevalSastYlocals_functions_setter),T0,o_); T4 = CALL1(1,VARREF(YevalSastYlocals_body),o_); T5 = CALL1(1,VARREF(YevalSastYlocals_bindings),o_); T3 = CALL2(1,VARREF(YevalSast_linearizeYboxify_mutable_bindings),T4,T5); T2 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),T3); CALL2(1,VARREF(YevalSastYlocals_body_setter),T2,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_boxify_mutable_bindings_15) { P form_,bindings_; P creatorF4596; P bindingF4595; P bindingsF4594; P resF4593; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(form_, 0); ARG(bindings_, 1); resF4593 = Ynil; bindingsF4594 = bindings_; LOOP_202: { P a202_0,a202_1; T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),bindingsF4594); if (T2 != YPfalse) { T4 = CALL2(1,VARREF(YgooSmacrosYpair),form_,resF4593); T3 = CALL1(1,VARREF(YgooSmacrosYrevX),T4); T1 = T3; } else { T14 = CALL1(1,VARREF(Yhead),bindingsF4594); bindingF4595 = T14; T6 = CALL1(1,VARREF(YevalSastYbinding_mutableQ),bindingF4595); if (T6 != YPfalse) { T11 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYreference_binding),bindingF4595); T10 = CALL3(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLbox_creationG),VARREF(YevalSast_linearizeYbox_reference),T11); creatorF4596 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYpair),creatorF4596,resF4593); T9 = CALL1(1,VARREF(Ytail),bindingsF4594); a202_0 = T8; a202_1 = T9; resF4593 = a202_0; bindingsF4594 = a202_1; goto LOOP_202; T5 = T7; } else { T13 = CALL1(1,VARREF(Ytail),bindingsF4594); a202_0 = resF4593; a202_1 = T13; resF4593 = a202_0; bindingsF4594 = a202_1; goto LOOP_202; T5 = T12; } T1 = T5; } } T0 = CALL1(1,VARREF(YevalSastYsequentialize),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_offset_16) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYreference_offset)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_offset_setter_17) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYreference_offset)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_selfQ_18) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYreference_selfQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_selfQ_setter_19) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYreference_selfQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_liftX_20) { P o_; P T0; LINK_STACK(); ARG(o_, 0); T0 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),o_,YPfalse,Ynil); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_lift_proceduresX_21) { P o_,flat_fun_,bindings_; P T0; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); T0 = CALL4(1,VARREF(YevalSastYast_walkX),VARREF(YevalSast_linearizeYlift_proceduresX),o_,flat_fun_,bindings_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_lift_proceduresX_22) { P o_,flat_fun_,bindings_; P offsetF4598; P bF4597; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); T7 = CALL1(1,VARREF(YevalSastYreference_binding),o_); bF4597 = T7; T1 = CALL2(1,VARREF(YgooScolsScolYmemQ),bindings_,bF4597); if (T1 != YPfalse) { T0 = o_; } else { T6 = CALL2(1,VARREF(YevalSast_linearizeYadjoin_free_bindingX),flat_fun_,o_); offsetF4598 = T6; CALL2(1,VARREF(YevalSastYbinding_closed_overQ_setter),YPtrue,bF4597); T4 = CALL1(1,VARREF(YevalSastYreference_binding),o_); T5 = CALL1(1,VARREF(YevalSastYfunction_binding),flat_fun_); T3 = CALL2(1,VARREF(YgooSmacrosYEE),T4,T5); T2 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSast_linearizeYLfree_referenceG),VARREF(YevalSastYreference_binding),bF4597,VARREF(YevalSast_linearizeYreference_offset),offsetF4598,VARREF(YevalSast_linearizeYreference_selfQ),T3); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_adjoin_free_bindingX_23) { P flat_fun_,ref_; P tailF4603; P freeTF4602; P new_envF4601; P freeTF4600; P iF4599; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(flat_fun_, 0); ARG(ref_, 1); check_type(YPint((P)0),VARREF(YLintG)); iF4599 = YPint((P)0); T21 = CALL1(1,VARREF(YevalSastYfunction_free),flat_fun_); freeTF4600 = T21; LOOP_203: { P a203_0,a203_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),freeTF4600); if (T1 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLfree_environmentG)); T11 = CALL2(1,VARREF(YevalSastYfree_environment),ref_,T12); new_envF4601 = T11; T3 = CALL1(1,VARREF(YevalSastYfunction_free),flat_fun_); T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),T3); if (T2 != YPfalse) { T4 = CALL2(1,VARREF(YevalSastYfunction_free_setter),new_envF4601,flat_fun_); } else { T10 = CALL1(1,VARREF(YevalSastYfunction_free),flat_fun_); freeTF4602 = T10; LOOP_204: { P a204_0; T9 = CALL1(1,VARREF(Ytail),freeTF4602); tailF4603 = T9; T6 = CALL1(1,VARREF(YgooSmacrosYnulQ),tailF4603); if (T6 != YPfalse) { T7 = CALL2(1,VARREF(Ytail_setter),new_envF4601,freeTF4602); T5 = T7; } else { a204_0 = tailF4603; freeTF4602 = a204_0; goto LOOP_204; T5 = T8; } } } T0 = iF4599; } else { T15 = CALL1(1,VARREF(YevalSastYreference_binding),ref_); T17 = CALL1(1,VARREF(Yhead),freeTF4600); T16 = CALL1(1,VARREF(YevalSastYreference_binding),T17); T14 = CALL2(1,VARREF(YgooSmacrosYEE),T15,T16); if (T14 != YPfalse) { T13 = iF4599; } else { T19 = CALL2(1,VARREF(YgooSmathYA),iF4599,YPint((P)1)); T20 = CALL1(1,VARREF(Ytail),freeTF4600); a203_0 = T19; a203_1 = T20; iF4599 = a203_0; freeTF4600 = a203_1; goto LOOP_203; T13 = T18; } T0 = T13; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_lift_proceduresX_24) { P o_,flat_fun_,bindings_; P new_bindingsF4604; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); T1 = CALL1(1,VARREF(YevalSastYfix_let_arguments),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),T1,flat_fun_,bindings_); CALL2(1,VARREF(YevalSastYfix_let_arguments_setter),T0,o_); T5 = CALL1(1,VARREF(YevalSastYfix_let_bindings),o_); T4 = CALL2(1,VARREF(YgooSmacrosYcat),T5,bindings_); new_bindingsF4604 = T4; T3 = CALL1(1,VARREF(YevalSastYfix_let_body),o_); T2 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),T3,flat_fun_,new_bindingsF4604); CALL2(1,VARREF(YevalSastYfix_let_body_setter),T2,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_lift_proceduresX_25) { P o_,flat_fun_,bindings_; P new_bindingsF4605; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); T6 = CALL1(1,VARREF(YevalSastYlocals_bindings),o_); T5 = CALL2(1,VARREF(YgooSmacrosYcat),T6,bindings_); new_bindingsF4605 = T5; T1 = CALL3(1,VARREF(YgooSfunctionalYrcurry),VARREF(YevalSast_linearizeYlift_proceduresX),flat_fun_,new_bindingsF4605); T2 = CALL1(1,VARREF(YevalSastYlocals_functions),o_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); CALL2(1,VARREF(YevalSastYlocals_functions_setter),T0,o_); T4 = CALL1(1,VARREF(YevalSastYlocals_body),o_); T3 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),T4,flat_fun_,new_bindingsF4605); CALL2(1,VARREF(YevalSastYlocals_body_setter),T3,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_lift_proceduresX_26) { P o_,flat_fun_,bindings_; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); T1 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T2 = CALL1(1,VARREF(YevalSastYfunction_bindings),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),T1,YPfalse,T2); CALL2(1,VARREF(YevalSastYfunction_body_setter),T0,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_lift_proceduresX_27) { P o_,flat_fun_,bindings_; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_lift_proceduresX_28) { P o_,flat_fun_,bindings_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(bindings_, 2); T1 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T2 = CALL1(1,VARREF(YevalSastYfunction_bindings),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),T1,o_,T2); CALL2(1,VARREF(YevalSastYfunction_body_setter),T0,o_); T4 = CALL1(1,VARREF(YevalSastYfunction_free),o_); T3 = CALL3(1,VARREF(YevalSast_linearizeYlift_proceduresX),T4,flat_fun_,bindings_); CALL2(1,VARREF(YevalSastYfunction_free_setter),T3,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_program_form_29) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYprogram_form)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_form_setter_30) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYprogram_form)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_quotations_31) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYprogram_quotations)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_quotations_setter_32) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYprogram_quotations)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_33) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)40)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_bindings_34) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYprogram_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_bindings_setter_35) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYprogram_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_36) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)40)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_definitions_37) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYprogram_definitions)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_definitions_setter_38) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYprogram_definitions)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_39) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_form_program_40) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYform_program)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_form_program_setter_41) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYform_program)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_form_quotations_42) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYform_quotations)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_form_quotations_setter_43) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYform_quotations)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_44) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_form_definitions_45) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYform_definitions)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_form_definitions_setter_46) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYform_definitions)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_47) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_closure_creation_index_48) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYclosure_creation_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_closure_creation_index_setter_49) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYclosure_creation_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_closure_creation_free_50) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYclosure_creation_free)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_closure_creation_free_setter_51) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYclosure_creation_free)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_flatten_seqs_52) { P o_; P T0; LINK_STACK(); ARG(o_, 0); T0 = CALL1(1,VARREF(Ylst),o_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_flatten_seqs_53) { P o_; P rF4609; P ssF4608; P rF4607; P sF4606; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(o_, 0); sF4606 = o_; rF4607 = Ynil; LOOP_205: { P a205_0,a205_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),sF4606); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),rF4607); T0 = T2; } else { T12 = CALL1(1,VARREF(Yhead),sF4606); T11 = CALL1(1,VARREF(YevalSast_linearizeYflatten_seqs),T12); ssF4608 = T11; rF4609 = rF4607; LOOP_206: { P a206_0,a206_1; T4 = CALL1(1,VARREF(YgooSmacrosYnulQ),ssF4608); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(Ytail),sF4606); a205_0 = T6; a205_1 = rF4609; sF4606 = a205_0; rF4607 = a205_1; goto LOOP_205; T3 = T5; } else { T8 = CALL1(1,VARREF(Ytail),ssF4608); T10 = CALL1(1,VARREF(Yhead),ssF4608); T9 = CALL2(1,VARREF(YgooSmacrosYpair),T10,rF4609); a206_0 = T8; a206_1 = T9; ssF4608 = a206_0; rF4609 = a206_1; goto LOOP_206; T3 = T7; } } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_54) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYform_program),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_top_level_forms_55) { P programs_; P T0,T1; LINK_STACK(); ARG(programs_, 0); T1 = fun_54; T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,programs_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_56) { P form_; P T0; LINK_STACK(); ARG(form_, 0); T0 = CALL3(1,VARREF(YevalSast_linearizeYextractX),form_,form_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_extract_thingsX_57) { P o_; P resultF4611; P formsF4610; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(o_, 0); T5 = CALL1(1,VARREF(YevalSast_linearizeYflatten_seqs),o_); T4 = CALL1(1,VARREF(YevalSast_linearizeYas_top_level_forms),T5); formsF4610 = T4; T3 = CALL1(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLflattened_programG)); resultF4611 = T3; T2 = FUNFAB(fun_56,1,resultF4611); T1 = CALL2(1,VARREF(YgooSmacrosYmap),T2,formsF4610); T0 = CALL1(1,VARREF(YevalSastYsequentialize),T1); CALL2(1,VARREF(YevalSast_linearizeYprogram_form_setter),T0,resultF4611); UNLINK_STACK(); QRET(resultF4611); } LOCCODEDEF(fun_extractX_58) { P o_,form_,result_; P T0; LINK_STACK(); ARG(o_, 0); ARG(form_, 1); ARG(result_, 2); T0 = CALL4(1,VARREF(YevalSastYast_walkX),VARREF(YevalSast_linearizeYextractX),o_,form_,result_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_extractX_59) { P o_,form_,result_; P qbF4620; P probeF4619; P indexF4618; P qbTF4617; P tmpF4616; P tmpF4615; P tmpF4614; P tmpF4613; P valueF4612; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(o_, 0); ARG(form_, 1); ARG(result_, 2); T19 = CALL1(1,VARREF(YevalSastYconstant_value),o_); valueF4612 = T19; T9 = CALL2(1,VARREF(YgooSmacrosYEE),valueF4612,YPfalse); tmpF4613 = T9; if (tmpF4613 != YPfalse) { T1 = tmpF4613; } else { T8 = CALL2(1,VARREF(YgooSmacrosYEE),valueF4612,YPtrue); tmpF4614 = T8; if (tmpF4614 != YPfalse) { T2 = tmpF4614; } else { T7 = CALL2(1,VARREF(YgooSmacrosYEE),valueF4612,Ynil); tmpF4615 = T7; if (tmpF4615 != YPfalse) { T3 = tmpF4615; } else { T6 = CALL2(1,VARREF(YisaQ),valueF4612,VARREF(YLintG)); tmpF4616 = T6; if (tmpF4616 != YPfalse) { T4 = tmpF4616; } else { T5 = CALL2(1,VARREF(YisaQ),valueF4612,VARREF(YLchrG)); T4 = T5; } T3 = T4; } T2 = T3; } T1 = T2; } if (T1 != YPfalse) { T0 = o_; } else { T18 = CALL1(1,VARREF(YevalSast_linearizeYprogram_quotations),result_); qbTF4617 = T18; T17 = CALL1(1,VARREF(YgooStypesYlen),qbTF4617); indexF4618 = T17; T16 = CALL3(1,VARREF(YgooScolsScolYelt_or),qbTF4617,valueF4612,YPfalse); probeF4619 = T16; if (probeF4619 != YPfalse) { T11 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLglobal_referenceG),VARREF(YevalSastYreference_binding),probeF4619); T10 = T11; } else { T15 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_102),VARREF(YevalSmoduleYbinding_name),indexF4618,VARREF(YevalSmoduleYbinding_info),valueF4612); qbF4620 = T15; CALL3(1,VARREF(YgooScolsScolxYelt_setter),qbF4620,qbTF4617,valueF4612); T13 = CALL1(1,VARREF(YevalSast_linearizeYform_quotations),form_); T12 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T13,qbF4620); CALL2(1,VARREF(YevalSast_linearizeYform_quotations_setter),T12,form_); T14 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLglobal_referenceG),VARREF(YevalSastYreference_binding),qbF4620); T10 = T14; } T0 = T10; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_extractX_60) { P o_,form_,result_; LINK_STACK(); ARG(o_, 0); ARG(form_, 1); ARG(result_, 2); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_61) { P binding_; P T0,T1,T2; LINK_STACK(); ARG(binding_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_type),binding_); T1 = CALL3(1,VARREF(YevalSast_linearizeYextractX),T2,FREEREF(0),FREEREF(1)); T0 = CALL2(1,VARREF(YevalSmoduleYbinding_type_setter),T1,binding_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_extractX_62) { P o_,form_,result_; P indexF4623; P free_bindingsF4622; P freeF4621; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(o_, 0); ARG(form_, 1); ARG(result_, 2); T1 = CALL1(1,VARREF(YevalSastYfunction_debug_name),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYextractX),T1,form_,result_); CALL2(1,VARREF(YevalSastYfunction_debug_name_setter),T0,o_); T3 = CALL1(1,VARREF(YevalSastYfunction_signature),o_); T2 = CALL3(1,VARREF(YevalSast_linearizeYextractX),T3,form_,result_); CALL2(1,VARREF(YevalSastYfunction_signature_setter),T2,o_); T5 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T4 = CALL3(1,VARREF(YevalSast_linearizeYextractX),T5,form_,result_); CALL2(1,VARREF(YevalSastYfunction_body_setter),T4,o_); T6 = FUNFAB(fun_61,2,form_,result_); T7 = CALL1(1,VARREF(YevalSastYfunction_bindings),o_); CALL2(1,VARREF(YgooSmacrosYdo),T6,T7); T11 = CALL1(1,VARREF(YevalSastYfunction_free),o_); freeF4621 = T11; T10 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSastYreference_binding),freeF4621); free_bindingsF4622 = T10; T9 = CALL3(1,VARREF(YevalSast_linearizeYadjoin_definitionX),form_,result_,o_); indexF4623 = T9; CALL2(1,VARREF(YevalSastYfunction_index_setter),indexF4623,o_); CALL2(1,VARREF(YevalSastYfunction_free_setter),free_bindingsF4622,o_); T8 = CALL5(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLclosure_creationG),VARREF(YevalSast_linearizeYclosure_creation_index),indexF4623,VARREF(YevalSast_linearizeYclosure_creation_free),freeF4621); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_extractX_63) { P o_,form_,result_; P primF4624; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(o_, 0); ARG(form_, 1); ARG(result_, 2); T6 = CALL1(1,VARREF(YevalSastYassignment_form),o_); primF4624 = T6; T1 = CALL1(1,VARREF(YevalSastYfunction_body),primF4624); T0 = CALL3(1,VARREF(YevalSast_linearizeYextractX),T1,form_,result_); CALL2(1,VARREF(YevalSastYfunction_body_setter),T0,primF4624); T3 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),result_); T2 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T3,primF4624); CALL2(1,VARREF(YevalSast_linearizeYprogram_definitions_setter),T2,result_); T5 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); T4 = CALL3(1,VARREF(YevalSast_linearizeYextractX),T5,form_,result_); UNLINK_STACK(); QRET(T4); } LOCCODEDEF(fun_adjoin_definitionX_64) { P form_,result_,x_; P new_indexF4625; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(form_, 0); ARG(result_, 1); ARG(x_, 2); T5 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),result_); T4 = CALL1(1,VARREF(YgooStypesYlen),T5); new_indexF4625 = T4; T1 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),result_); T0 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T1,x_); CALL2(1,VARREF(YevalSast_linearizeYprogram_definitions_setter),T0,result_); T3 = CALL1(1,VARREF(YevalSast_linearizeYform_definitions),form_); T2 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T3,x_); CALL2(1,VARREF(YevalSast_linearizeYform_definitions_setter),T2,form_); UNLINK_STACK(); QRET(new_indexF4625); } LOCCODEDEF(fun_split_program_65) { P o_,max_count_; P T0; LINK_STACK(); ARG(o_, 0); ARG(max_count_, 1); T0 = CALL1(1,VARREF(Ylst),o_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_split_program_66) { P o_,max_count_; P countF4630; P esF4629; P resF4628; P sF4627; P formsF4626; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(o_, 0); ARG(max_count_, 1); formsF4626 = Ynil; sF4627 = o_; LOOP_207: { P a207_0,a207_1; resF4628 = Ynil; esF4629 = sF4627; countF4630 = YPint((P)0); LOOP_208: { P a208_0,a208_1,a208_2; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),esF4629); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmacrosYrevX),resF4628); T4 = CALL1(1,VARREF(YevalSastYsequentialize),T5); T3 = CALL2(1,VARREF(YgooSmacrosYpair),T4,formsF4626); T2 = CALL1(1,VARREF(YgooSmacrosYrevX),T3); T0 = T2; } else { T7 = CALL2(1,VARREF(YgooSlogYE),countF4630,max_count_); if (T7 != YPfalse) { T11 = CALL1(1,VARREF(YgooSmacrosYrevX),resF4628); T10 = CALL1(1,VARREF(YevalSastYsequentialize),T11); T9 = CALL2(1,VARREF(YgooSmacrosYpair),T10,formsF4626); a207_0 = T9; a207_1 = esF4629; formsF4626 = a207_0; sF4627 = a207_1; goto LOOP_207; T6 = T8; } else { if (YPtrue != YPfalse) { T15 = CALL1(1,VARREF(Yhead),esF4629); T14 = CALL2(1,VARREF(YgooSmacrosYpair),T15,resF4628); T16 = CALL1(1,VARREF(Ytail),esF4629); T17 = CALL2(1,VARREF(YgooSmathYA),countF4630,YPint((P)1)); a208_0 = T14; a208_1 = T16; a208_2 = T17; resF4628 = a208_0; esF4629 = a208_1; countF4630 = a208_2; goto LOOP_208; T12 = T13; } else { T12 = YPfalse; } T6 = T12; } T0 = T6; } } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_closurize_mainX_67) { P o_,r_,max_count_; P callF4640; P defnF4639; P bindingF4638; P nameF4637; P formsF4636; P iF4635; P defnsF4634; P callsF4633; P base_indexF4632; P formsF4631; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(max_count_, 2); T24 = CALL1(1,VARREF(YevalSast_linearizeYprogram_form),o_); T23 = CALL2(1,VARREF(YevalSast_linearizeYsplit_program),T24,max_count_); formsF4631 = T23; T22 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),o_); T21 = CALL1(1,VARREF(YgooStypesYlen),T22); base_indexF4632 = T21; callsF4633 = Ynil; T20 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),o_); defnsF4634 = T20; iF4635 = YPint((P)0); formsF4636 = formsF4631; LOOP_209: { P a209_0,a209_1,a209_2,a209_3; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),formsF4636); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),defnsF4634); CALL2(1,VARREF(YevalSast_linearizeYprogram_definitions_setter),T2,o_); T5 = CALL1(1,VARREF(YgooSmacrosYrevX),callsF4633); T4 = CALL1(1,VARREF(YevalSastYsequentialize),T5); T6 = CALL1(1,VARREF(YgooSmacrosYrevX),defnsF4634); T3 = CALL5(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYform_program),T4,VARREF(YevalSast_linearizeYform_definitions),T6); CALL2(1,VARREF(YevalSast_linearizeYprogram_form_setter),T3,o_); T0 = o_; } else { T19 = CALL3(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_114),iF4635,LITREF(lit_115)); nameF4637 = T19; T18 = CALL4(1,VARREF(YevalSastYast_define_binding),r_,nameF4637,YPfalse,LITREF(lit_116)); bindingF4638 = T18; T15 = CALL2(1,VARREF(YevalSastYobjectify_quotation),nameF4637,YPint((P)4)); T16 = CALL2(1,VARREF(YevalSastYobjectify_signature),Ynil,r_); T17 = CALL1(1,VARREF(Yhead),formsF4636); T14 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSastYLast_primitiveG),VARREF(YevalSastYfunction_binding),bindingF4638,VARREF(YevalSastYfunction_debug_name),T15,VARREF(YevalSastYfunction_signature),T16,VARREF(YevalSastYfunction_body),T17); defnF4639 = T14; T13 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLargumentsG)); T12 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLpredefined_applicationG),VARREF(YevalSastYapplication_binding),bindingF4638,VARREF(YevalSastYapplication_arguments),T13,VARREF(YevalSastYapplication_tailQ),YPfalse); callF4640 = T12; T8 = CALL2(1,VARREF(YgooSmacrosYpair),callF4640,callsF4633); T9 = CALL2(1,VARREF(YgooSmacrosYpair),defnF4639,defnsF4634); T10 = CALL2(1,VARREF(YgooSmathYA),iF4635,YPint((P)1)); T11 = CALL1(1,VARREF(Ytail),formsF4636); a209_0 = T8; a209_1 = T9; a209_2 = T10; a209_3 = T11; callsF4633 = a209_0; defnsF4634 = a209_1; iF4635 = a209_2; formsF4636 = a209_3; goto LOOP_209; T0 = T7; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_assoc_key_68) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYassoc_key)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assoc_key_setter_69) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYassoc_key)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assoc_value_70) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSast_linearizeYassoc_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assoc_value_setter_71) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSast_linearizeYassoc_value)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSast_linearizeYassoc) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSast_linearizeYLassocG),VARREF(YevalSast_linearizeYassoc_key),x_,VARREF(YevalSast_linearizeYassoc_value),y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_assocq_73) { P x_,l_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); ARG(l_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),l_); if (T1 != YPfalse) { T0 = YPfalse; } else { T5 = CALL1(1,VARREF(Yhead),l_); T4 = CALL1(1,VARREF(YevalSast_linearizeYassoc_key),T5); T3 = CALL2(1,VARREF(YgooSmacrosYEE),x_,T4); if (T3 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),l_); T2 = T6; } else { T8 = CALL1(1,VARREF(Ytail),l_); T7 = CALL2(1,VARREF(YevalSast_linearizeYassocq),x_,T8); T2 = T7; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_74) { P def_; P T0; LINK_STACK(); ARG(def_, 0); T0 = CALL3(1,VARREF(YevalSast_linearizeYcollect_temporariesX),def_,def_,Ynil); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gather_temporariesX_75) { P o_; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); T1 = fun_74; T2 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),o_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); CALL2(1,VARREF(YevalSast_linearizeYprogram_definitions_setter),T0,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_collect_temporariesX_76) { P o_,flat_fun_,r_; P T0; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(r_, 2); T0 = CALL4(1,VARREF(YevalSastYast_walkX),VARREF(YevalSast_linearizeYcollect_temporariesX),o_,flat_fun_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_temporariesX_77) { P o_,flat_fun_,r_; P bF4642; P bindingF4641; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(r_, 2); T4 = CALL1(1,VARREF(YevalSastYreference_binding),o_); bindingF4641 = T4; T3 = CALL2(1,VARREF(YevalSast_linearizeYassocq),bindingF4641,r_); bF4642 = T3; if (bF4642 != YPfalse) { T2 = CALL1(1,VARREF(YevalSast_linearizeYassoc_value),bF4642); T1 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYreference_binding),T2); T0 = T1; } else { T0 = o_; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSast_linearizeYprepend_renamings) { P x_,y_,r_; P yF4645; P xF4644; P zF4643; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); ARG(r_, 2); zF4643 = r_; xF4644 = x_; yF4645 = y_; LOOP_210: { P a210_0,a210_1,a210_2; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF4644); if (T1 != YPfalse) { T0 = zF4643; } else { T5 = CALL1(1,VARREF(Yhead),xF4644); T6 = CALL1(1,VARREF(Yhead),yF4645); T4 = CALL2(1,VARREF(YevalSast_linearizeYassoc),T5,T6); T3 = CALL2(1,VARREF(YgooSmacrosYpair),T4,zF4643); T7 = CALL1(1,VARREF(Ytail),xF4644); T8 = CALL1(1,VARREF(Ytail),yF4645); a210_0 = T3; a210_1 = T7; a210_2 = T8; zF4643 = a210_0; xF4644 = a210_1; yF4645 = a210_2; goto LOOP_210; T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_temporariesX_79) { P o_,flat_fun_,r_; P new_rF4647; P new_bindingsF4646; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(r_, 2); T1 = CALL1(1,VARREF(YevalSastYfix_let_arguments),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYcollect_temporariesX),T1,flat_fun_,r_); CALL2(1,VARREF(YevalSastYfix_let_arguments_setter),T0,o_); T7 = CALL1(1,VARREF(YevalSastYfix_let_bindings),o_); T6 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSast_linearizeYnew_renamed_binding),T7); new_bindingsF4646 = T6; T5 = CALL1(1,VARREF(YevalSastYfix_let_bindings),o_); T4 = CALL3(1,VARREF(YevalSast_linearizeYprepend_renamings),T5,new_bindingsF4646,r_); new_rF4647 = T4; CALL2(1,VARREF(YevalSast_linearizeYadjoin_temporary_variablesX),flat_fun_,new_bindingsF4646); CALL2(1,VARREF(YevalSastYfix_let_bindings_setter),new_bindingsF4646,o_); T3 = CALL1(1,VARREF(YevalSastYfix_let_body),o_); T2 = CALL3(1,VARREF(YevalSast_linearizeYcollect_temporariesX),T3,flat_fun_,new_rF4647); CALL2(1,VARREF(YevalSastYfix_let_body_setter),T2,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_80) { P b_; P nbF4648; P T0,T1,T2; LINK_STACK(); ARG(b_, 0); T2 = CALL2(1,VARREF(YevalSast_linearizeYassocq),b_,FREEREF(0)); nbF4648 = T2; if (nbF4648 != YPfalse) { T1 = CALL1(1,VARREF(YevalSast_linearizeYassoc_value),nbF4648); T0 = T1; } else { T0 = b_; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_temporariesX_81) { P o_,flat_fun_,r_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(r_, 2); T1 = FUNFAB(fun_80,1,r_); T2 = CALL1(1,VARREF(YevalSastYloop_bindings),o_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); CALL2(1,VARREF(YevalSastYloop_bindings_setter),T0,o_); T4 = CALL1(1,VARREF(YevalSastYloop_body),o_); T3 = CALL3(1,VARREF(YevalSast_linearizeYcollect_temporariesX),T4,flat_fun_,r_); CALL2(1,VARREF(YevalSastYloop_body_setter),T3,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_collect_temporariesX_82) { P o_,flat_fun_,r_; P new_rF4650; P new_bindingsF4649; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(o_, 0); ARG(flat_fun_, 1); ARG(r_, 2); T8 = CALL1(1,VARREF(YevalSastYlocals_bindings),o_); T7 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSast_linearizeYnew_renamed_binding),T8); new_bindingsF4649 = T7; T6 = CALL1(1,VARREF(YevalSastYlocals_bindings),o_); T5 = CALL3(1,VARREF(YevalSast_linearizeYprepend_renamings),T6,new_bindingsF4649,r_); new_rF4650 = T5; T1 = CALL3(1,VARREF(YgooSfunctionalYrcurry),VARREF(YevalSast_linearizeYcollect_temporariesX),flat_fun_,new_rF4650); T2 = CALL1(1,VARREF(YevalSastYlocals_functions),o_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); CALL2(1,VARREF(YevalSastYlocals_functions_setter),T0,o_); CALL2(1,VARREF(YevalSast_linearizeYadjoin_temporary_variablesX),flat_fun_,new_bindingsF4649); CALL2(1,VARREF(YevalSastYlocals_bindings_setter),new_bindingsF4649,o_); T4 = CALL1(1,VARREF(YevalSastYlocals_body),o_); T3 = CALL3(1,VARREF(YevalSast_linearizeYcollect_temporariesX),T4,flat_fun_,new_rF4650); CALL2(1,VARREF(YevalSastYlocals_body_setter),T3,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_adjoin_temporary_variablesX_83) { P flat_fun_,new_bindings_; P bindingsF4652; P tempsF4651; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(flat_fun_, 0); ARG(new_bindings_, 1); T12 = CALL1(1,VARREF(YevalSastYfunction_temporaries),flat_fun_); tempsF4651 = T12; bindingsF4652 = new_bindings_; LOOP_211: { P a211_0,a211_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),bindingsF4652); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YevalSastYfunction_temporaries_setter),tempsF4651,flat_fun_); T0 = T2; } else { T5 = CALL1(1,VARREF(Yhead),bindingsF4652); T4 = CALL2(1,VARREF(YgooScolsScolYmemQ),tempsF4651,T5); if (T4 != YPfalse) { T7 = CALL1(1,VARREF(Ytail),bindingsF4652); a211_0 = tempsF4651; a211_1 = T7; tempsF4651 = a211_0; bindingsF4652 = a211_1; goto LOOP_211; T3 = T6; } else { T10 = CALL1(1,VARREF(Yhead),bindingsF4652); T9 = CALL2(1,VARREF(YgooSmacrosYpair),T10,tempsF4651); T11 = CALL1(1,VARREF(Ytail),bindingsF4652); a211_0 = T9; a211_1 = T11; tempsF4651 = a211_0; bindingsF4652 = a211_1; goto LOOP_211; T3 = T8; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_index_84) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_index_setter_85) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_new_renamed_binding_86) { P binding_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(binding_, 0); T0 = CALL2(1,VARREF(YgooSmathYA),DYNREF(YevalSast_linearizeYTrenaming_bindings_counterT),YPint((P)1)); DYNSET(YevalSast_linearizeYTrenaming_bindings_counterT,T0); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T3 = CALL1(1,VARREF(YevalSmoduleYbinding_type),binding_); T4 = CALL1(1,VARREF(YevalSastYbinding_dynamic_extentQ),binding_); T5 = CALL1(1,VARREF(YevalSastYbinding_closed_overQ),binding_); T1 = CALLN(1,VARREF(Ynew),11,VARREF(YevalSast_linearizeYLrenamed_local_bindingG),VARREF(YevalSmoduleYbinding_name),T2,VARREF(YevalSmoduleYbinding_type),T3,VARREF(YevalSastYbinding_dynamic_extentQ),T4,VARREF(YevalSastYbinding_closed_overQ),T5,VARREF(YevalSastYbinding_index),DYNREF(YevalSast_linearizeYTrenaming_bindings_counterT)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_87) { P def_; P T0; LINK_STACK(); ARG(def_, 0); T0 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),def_,YPfalse,YPtrue); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_88) { P T0,T1,T2; LINK_STACK(); VARSET(YevalSast_linearizeYTregister_passiveQT,FREEREF(0)); T1 = fun_87; T2 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),FREEREF(1)); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_89) { P T0; LINK_STACK(); T0 = VARSET(YevalSast_linearizeYTregister_passiveQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_register_allocateX_90) { P o_,register_passiveQ_; P x_1604F4653; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(register_passiveQ_, 1); x_1604F4653 = VARREF(YevalSast_linearizeYTregister_passiveQT); T1 = FUNFAB(fun_88,2,register_passiveQ_,o_); T2 = FUNFAB(fun_89,1,x_1604F4653); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(o_); } FUNCODEDEF(YevalSast_linearizeYallocate_register) { P o_,f_,valQ_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); if (valQ_ != YPfalse) { if (f_ != YPfalse) { T4 = CALL1(1,VARREF(YevalSastYprogram_register),o_); T3 = CALL1(1,VARREF(Ynot),T4); T2 = T3; } else { T2 = YPfalse; } T1 = T2; } else { T1 = YPfalse; } if (T1 != YPfalse) { T6 = CALL1(1,VARREF(YevalSastYfunction_registers),f_); T5 = CALL1(1,VARREF(YgooStypesYlen),T6); CALL2(1,VARREF(YevalSastYprogram_register_setter),T5,o_); T8 = CALL1(1,VARREF(YevalSastYfunction_registers),f_); T7 = CALL2(1,VARREF(YgooScolsScolxYaddX),T8,o_); T0 = T7; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_registersX_92) { P o_,f_,valQ_; P T0; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); CALL3(1,VARREF(YevalSast_linearizeYallocate_register),o_,f_,valQ_); T0 = CALL4(1,VARREF(YevalSastYast_walk),VARREF(YevalSast_linearizeYcollect_registersX),o_,f_,YPtrue); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_registersX_93) { P o_,f_,valQ_; P next_xF4655; P xF4654; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); xF4654 = o_; LOOP_212: { P a212_0; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF4654); if (T1 != YPfalse) { T0 = o_; } else { T6 = CALL1(1,VARREF(Ytail),xF4654); next_xF4655 = T6; T2 = CALL1(1,VARREF(Yhead),xF4654); if (valQ_ != YPfalse) { T4 = CALL1(1,VARREF(YgooSmacrosYnulQ),next_xF4655); T3 = T4; } else { T3 = YPfalse; } CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T2,f_,T3); a212_0 = next_xF4655; xF4654 = a212_0; goto LOOP_212; T0 = T5; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_registersX_94) { P o_,f_,valQ_; P T0,T1; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); if (VARREF(YevalSast_linearizeYTregister_passiveQT) != YPfalse) { T0 = CALL3(1,VARREF(YevalSast_linearizeYallocate_register),o_,f_,valQ_); } else { } T1 = CALL4(1,VARREF(YevalSastYast_walk),VARREF(YevalSast_linearizeYcollect_registersX),o_,f_,YPtrue); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_95) { P def_; P T0; LINK_STACK(); ARG(def_, 0); T0 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),def_,FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_registersX_96) { P o_,f_,valQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); CALL3(1,VARREF(YevalSast_linearizeYallocate_register),o_,f_,valQ_); T0 = FUNFAB(fun_95,2,f_,valQ_); T1 = CALL1(1,VARREF(YevalSast_linearizeYform_definitions),o_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); T3 = CALL1(1,VARREF(YevalSast_linearizeYform_program),o_); T2 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T3,f_,valQ_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_collect_registersX_97) { P o_,f_,valQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); CALL3(1,VARREF(YevalSast_linearizeYallocate_register),o_,f_,valQ_); T0 = CALL1(1,VARREF(YevalSastYfunction_signature),o_); CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T0,f_,YPtrue); T1 = CALL1(1,VARREF(YevalSastYfunction_debug_name),o_); CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T1,o_,YPtrue); T3 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T2 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T3,o_,YPtrue); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_collect_registersX_98) { P o_,f_,valQ_; P T0,T1; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); T1 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T1,o_,YPtrue); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_collect_registersX_99) { P o_,f_,valQ_; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); T0 = CALL1(1,VARREF(YevalSastYlocals_body),o_); CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T0,f_,YPtrue); T2 = CALL1(1,VARREF(YevalSastYlocals_functions),o_); T1 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T2,f_,YPtrue); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_collect_registersX_100) { P o_,f_,valQ_; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); T0 = CALL1(1,VARREF(YevalSastYfix_let_body),o_); CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T0,f_,YPtrue); T2 = CALL1(1,VARREF(YevalSastYfix_let_arguments),o_); T1 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T2,f_,YPtrue); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_collect_registersX_101) { P o_,f_,valQ_; P T0,T1; LINK_STACK(); ARG(o_, 0); ARG(f_, 1); ARG(valQ_, 2); T1 = CALL1(1,VARREF(YevalSastYloop_body),o_); T0 = CALL3(1,VARREF(YevalSast_linearizeYcollect_registersX),T1,f_,YPtrue); UNLINK_STACK(); QRET(T0); } P YevalSast_linearizeY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YevalSast_linearizeYLbox_readG,T0); lit_1 = YPPsym((P)"box-reference"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLbox_readG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_box_reference_0 = YPfab_met(FUNCODEREF(fun_box_reference_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(11),YPfalse); T4 = VARREF_OR(YevalSast_linearizeYbox_reference,YPfalse); T5 = fun_box_reference_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YevalSast_linearizeYbox_reference,T3); lit_3 = YPPsym((P)"box-reference-setter"); lit_4 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLbox_readG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_box_reference_setter_1 = YPfab_met(FUNCODEREF(fun_box_reference_setter_1),T6,LITREF(lit_3),LITREF(lit_4),sloc(11),YPfalse); T8 = VARREF_OR(YevalSast_linearizeYbox_reference_setter,YPfalse); T9 = fun_box_reference_setter_1; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YevalSast_linearizeYbox_reference_setter,T7); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLbox_readG),VARREF(YevalSast_linearizeYbox_reference),VARREF(YevalSast_linearizeYbox_reference_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_5 = YPPsym((P)""); T11 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T10 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_5),T11); VARSET(YevalSast_linearizeYLbox_writeG,T10); lit_6 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLbox_writeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_box_reference_2 = YPfab_met(FUNCODEREF(fun_box_reference_2),T12,LITREF(lit_1),LITREF(lit_6),sloc(14),YPfalse); T14 = VARREF_OR(YevalSast_linearizeYbox_reference,YPfalse); T15 = fun_box_reference_2; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSast_linearizeYbox_reference,T13); lit_7 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLbox_writeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_box_reference_setter_3 = YPfab_met(FUNCODEREF(fun_box_reference_setter_3),T16,LITREF(lit_3),LITREF(lit_7),sloc(14),YPfalse); T18 = VARREF_OR(YevalSast_linearizeYbox_reference_setter,YPfalse); T19 = fun_box_reference_setter_3; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSast_linearizeYbox_reference_setter,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLbox_writeG),VARREF(YevalSast_linearizeYbox_reference),VARREF(YevalSast_linearizeYbox_reference_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_8 = YPPsym((P)"box-form"); lit_9 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLbox_writeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_box_form_4 = YPfab_met(FUNCODEREF(fun_box_form_4),T20,LITREF(lit_8),LITREF(lit_9),sloc(15),YPfalse); T22 = VARREF_OR(YevalSast_linearizeYbox_form,YPfalse); T23 = fun_box_form_4; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSast_linearizeYbox_form,T21); lit_10 = YPPsym((P)"box-form-setter"); lit_11 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLbox_writeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_box_form_setter_5 = YPfab_met(FUNCODEREF(fun_box_form_setter_5),T24,LITREF(lit_10),LITREF(lit_11),sloc(15),YPfalse); T26 = VARREF_OR(YevalSast_linearizeYbox_form_setter,YPfalse); T27 = fun_box_form_setter_5; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSast_linearizeYbox_form_setter,T25); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLbox_writeG),VARREF(YevalSast_linearizeYbox_form),VARREF(YevalSast_linearizeYbox_form_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_12 = YPPsym((P)""); T29 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T28 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_12),T29); VARSET(YevalSast_linearizeYLbox_creationG,T28); lit_13 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLbox_creationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_box_reference_6 = YPfab_met(FUNCODEREF(fun_box_reference_6),T30,LITREF(lit_1),LITREF(lit_13),sloc(18),YPfalse); T32 = VARREF_OR(YevalSast_linearizeYbox_reference,YPfalse); T33 = fun_box_reference_6; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSast_linearizeYbox_reference,T31); lit_14 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLbox_creationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_box_reference_setter_7 = YPfab_met(FUNCODEREF(fun_box_reference_setter_7),T34,LITREF(lit_3),LITREF(lit_14),sloc(18),YPfalse); T36 = VARREF_OR(YevalSast_linearizeYbox_reference_setter,YPfalse); T37 = fun_box_reference_setter_7; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSast_linearizeYbox_reference_setter,T35); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLbox_creationG),VARREF(YevalSast_linearizeYbox_reference),VARREF(YevalSast_linearizeYbox_reference_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_15 = YPPsym((P)"insert-box!"); lit_16 = YPPlist(1,YPPsym((P)"o")); T38 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_8 = YPfab_met(FUNCODEREF(fun_insert_boxX_8),T38,LITREF(lit_15),LITREF(lit_16),sloc(20),YPfalse); T40 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T41 = fun_insert_boxX_8; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YevalSast_linearizeYinsert_boxX,T39); lit_17 = YPPlist(1,YPPsym((P)"o")); T42 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_9 = YPfab_met(FUNCODEREF(fun_insert_boxX_9),T42,LITREF(lit_15),LITREF(lit_17),sloc(23),YPfalse); T44 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T45 = fun_insert_boxX_9; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YevalSast_linearizeYinsert_boxX,T43); lit_18 = YPPlist(1,YPPsym((P)"o")); T46 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLregular_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_10 = YPfab_met(FUNCODEREF(fun_insert_boxX_10),T46,LITREF(lit_15),LITREF(lit_18),sloc(29),YPfalse); T48 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T49 = fun_insert_boxX_10; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YevalSast_linearizeYinsert_boxX,T47); lit_19 = YPPlist(1,YPPsym((P)"o")); T50 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_assignmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_11 = YPfab_met(FUNCODEREF(fun_insert_boxX_11),T50,LITREF(lit_15),LITREF(lit_19),sloc(35),YPfalse); T52 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T53 = fun_insert_boxX_11; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YevalSast_linearizeYinsert_boxX,T51); lit_20 = YPPlist(1,YPPsym((P)"o")); T54 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_12 = YPfab_met(FUNCODEREF(fun_insert_boxX_12),T54,LITREF(lit_15),LITREF(lit_20),sloc(40),YPfalse); T56 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T57 = fun_insert_boxX_12; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YevalSast_linearizeYinsert_boxX,T55); lit_21 = YPPlist(1,YPPsym((P)"o")); T58 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_13 = YPfab_met(FUNCODEREF(fun_insert_boxX_13),T58,LITREF(lit_15),LITREF(lit_21),sloc(46),YPfalse); T60 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T61 = fun_insert_boxX_13; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YevalSast_linearizeYinsert_boxX,T59); lit_22 = YPPlist(1,YPPsym((P)"o")); T62 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_insert_boxX_14 = YPfab_met(FUNCODEREF(fun_insert_boxX_14),T62,LITREF(lit_15),LITREF(lit_22),sloc(54),YPfalse); T64 = VARREF_OR(YevalSast_linearizeYinsert_boxX,YPfalse); T65 = fun_insert_boxX_14; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YevalSast_linearizeYinsert_boxX,T63); lit_23 = YPPsym((P)"boxify-mutable-bindings"); lit_24 = YPPlist(2,YPPsym((P)"form"),YPPsym((P)"bindings")); T66 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_boxify_mutable_bindings_15 = YPfab_met(FUNCODEREF(fun_boxify_mutable_bindings_15),T66,LITREF(lit_23),LITREF(lit_24),sloc(62),YPfalse); T68 = VARREF_OR(YevalSast_linearizeYboxify_mutable_bindings,YPfalse); T69 = fun_boxify_mutable_bindings_15; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalSast_linearizeYboxify_mutable_bindings,T67); lit_25 = YPPsym((P)""); T71 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLreal_referenceG),Ynil); T70 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_25),T71); VARSET(YevalSast_linearizeYLfree_referenceG,T70); lit_26 = YPPsym((P)"reference-offset"); lit_27 = YPPlist(1,YPPsym((P)"_x")); T72 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLfree_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_reference_offset_16 = YPfab_met(FUNCODEREF(fun_reference_offset_16),T72,LITREF(lit_26),LITREF(lit_27),sloc(79),YPfalse); T74 = VARREF_OR(YevalSast_linearizeYreference_offset,YPfalse); T75 = fun_reference_offset_16; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSast_linearizeYreference_offset,T73); lit_28 = YPPsym((P)"reference-offset-setter"); lit_29 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T77 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T76 = YPfab_sig(YPPlist(2,T77,VARREF(YevalSast_linearizeYLfree_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_offset_setter_17 = YPfab_met(FUNCODEREF(fun_reference_offset_setter_17),T76,LITREF(lit_28),LITREF(lit_29),sloc(79),YPfalse); T79 = VARREF_OR(YevalSast_linearizeYreference_offset_setter,YPfalse); T80 = fun_reference_offset_setter_17; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YevalSast_linearizeYreference_offset_setter,T78); T81 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLfree_referenceG),VARREF(YevalSast_linearizeYreference_offset),VARREF(YevalSast_linearizeYreference_offset_setter),T81,VARREF(YPprop_unbound_error)); lit_30 = YPPsym((P)"reference-self?"); lit_31 = YPPlist(1,YPPsym((P)"_x")); T82 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLfree_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_reference_selfQ_18 = YPfab_met(FUNCODEREF(fun_reference_selfQ_18),T82,LITREF(lit_30),LITREF(lit_31),sloc(80),YPfalse); T84 = VARREF_OR(YevalSast_linearizeYreference_selfQ,YPfalse); T85 = fun_reference_selfQ_18; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YevalSast_linearizeYreference_selfQ,T83); lit_32 = YPPsym((P)"reference-self?-setter"); lit_33 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T86 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YevalSast_linearizeYLfree_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_selfQ_setter_19 = YPfab_met(FUNCODEREF(fun_reference_selfQ_setter_19),T86,LITREF(lit_32),LITREF(lit_33),sloc(80),YPfalse); T88 = VARREF_OR(YevalSast_linearizeYreference_selfQ_setter,YPfalse); T89 = fun_reference_selfQ_setter_19; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YevalSast_linearizeYreference_selfQ_setter,T87); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLfree_referenceG),VARREF(YevalSast_linearizeYreference_selfQ),VARREF(YevalSast_linearizeYreference_selfQ_setter),VARREF(YLlogG),VARREF(YPprop_unbound_error)); lit_34 = YPPsym((P)"lift!"); lit_35 = YPPlist(1,YPPsym((P)"o")); T90 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_liftX_20 = YPfab_met(FUNCODEREF(fun_liftX_20),T90,LITREF(lit_34),LITREF(lit_35),sloc(82),YPfalse); T92 = VARREF_OR(YevalSast_linearizeYliftX,YPfalse); T93 = fun_liftX_20; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSast_linearizeYliftX,T91); lit_36 = YPPsym((P)"lift-procedures!"); lit_37 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T94 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_21 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_21),T94,LITREF(lit_36),LITREF(lit_37),sloc(85),YPfalse); T96 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T97 = fun_lift_proceduresX_21; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YevalSast_linearizeYlift_proceduresX,T95); lit_38 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T98 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLlocal_referenceG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_22 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_22),T98,LITREF(lit_36),LITREF(lit_38),sloc(88),YPfalse); T100 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T101 = fun_lift_proceduresX_22; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YevalSast_linearizeYlift_proceduresX,T99); lit_39 = YPPsym((P)"adjoin-free-binding!"); lit_40 = YPPlist(2,YPPsym((P)"flat-fun"),YPPsym((P)"ref")); T102 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLast_methodG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_adjoin_free_bindingX_23 = YPfab_met(FUNCODEREF(fun_adjoin_free_bindingX_23),T102,LITREF(lit_39),LITREF(lit_40),sloc(100),YPfalse); T104 = VARREF_OR(YevalSast_linearizeYadjoin_free_bindingX,YPfalse); T105 = fun_adjoin_free_bindingX_23; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YevalSast_linearizeYadjoin_free_bindingX,T103); lit_41 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T106 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLfix_letG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_24 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_24),T106,LITREF(lit_36),LITREF(lit_41),sloc(117),YPfalse); T108 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T109 = fun_lift_proceduresX_24; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YevalSast_linearizeYlift_proceduresX,T107); lit_42 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T110 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLlocalsG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_25 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_25),T110,LITREF(lit_36),LITREF(lit_42),sloc(125),YPfalse); T112 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T113 = fun_lift_proceduresX_25; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YevalSast_linearizeYlift_proceduresX,T111); lit_43 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T114 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_primitiveG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_26 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_26),T114,LITREF(lit_36),LITREF(lit_43),sloc(134),YPfalse); T116 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T117 = fun_lift_proceduresX_26; T115 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T116,T117); VARSET(YevalSast_linearizeYlift_proceduresX,T115); lit_44 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T118 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_genericG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_27 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_27),T118,LITREF(lit_36),LITREF(lit_44),sloc(139),YPfalse); T120 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T121 = fun_lift_proceduresX_27; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YevalSast_linearizeYlift_proceduresX,T119); lit_45 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"bindings")); T122 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_methodG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lift_proceduresX_28 = YPfab_met(FUNCODEREF(fun_lift_proceduresX_28),T122,LITREF(lit_36),LITREF(lit_45),sloc(142),YPfalse); T124 = VARREF_OR(YevalSast_linearizeYlift_proceduresX,YPfalse); T125 = fun_lift_proceduresX_28; T123 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T124,T125); VARSET(YevalSast_linearizeYlift_proceduresX,T123); lit_46 = YPPsym((P)""); T127 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T126 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_46),T127); VARSET(YevalSast_linearizeYLflattened_programG,T126); lit_47 = YPPsym((P)"program-form"); lit_48 = YPPlist(1,YPPsym((P)"_x")); T128 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_program_form_29 = YPfab_met(FUNCODEREF(fun_program_form_29),T128,LITREF(lit_47),LITREF(lit_48),sloc(152),YPfalse); T130 = VARREF_OR(YevalSast_linearizeYprogram_form,YPfalse); T131 = fun_program_form_29; T129 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T130,T131); VARSET(YevalSast_linearizeYprogram_form,T129); lit_49 = YPPsym((P)"program-form-setter"); lit_50 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T133 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YevalSastYLprogramG)); T132 = YPfab_sig(YPPlist(2,T133,VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_form_setter_30 = YPfab_met(FUNCODEREF(fun_program_form_setter_30),T132,LITREF(lit_49),LITREF(lit_50),sloc(152),YPfalse); T135 = VARREF_OR(YevalSast_linearizeYprogram_form_setter,YPfalse); T136 = fun_program_form_setter_30; T134 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T135,T136); VARSET(YevalSast_linearizeYprogram_form_setter,T134); T137 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YevalSastYLprogramG)); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLflattened_programG),VARREF(YevalSast_linearizeYprogram_form),VARREF(YevalSast_linearizeYprogram_form_setter),T137,VARREF(YPprop_unbound_error)); lit_51 = YPPsym((P)"program-quotations"); lit_52 = YPPlist(1,YPPsym((P)"_x")); T138 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_program_quotations_31 = YPfab_met(FUNCODEREF(fun_program_quotations_31),T138,LITREF(lit_51),LITREF(lit_52),sloc(153),YPfalse); T140 = VARREF_OR(YevalSast_linearizeYprogram_quotations,YPfalse); T141 = fun_program_quotations_31; T139 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T140,T141); VARSET(YevalSast_linearizeYprogram_quotations,T139); lit_53 = YPPsym((P)"program-quotations-setter"); lit_54 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T142 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_quotations_setter_32 = YPfab_met(FUNCODEREF(fun_program_quotations_setter_32),T142,LITREF(lit_53),LITREF(lit_54),sloc(153),YPfalse); T144 = VARREF_OR(YevalSast_linearizeYprogram_quotations_setter,YPfalse); T145 = fun_program_quotations_setter_32; T143 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T144,T145); VARSET(YevalSast_linearizeYprogram_quotations_setter,T143); lit_55 = YPPlist(1,YPPsym((P)"x")); T146 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_33 = YPfab_met(FUNCODEREF(fun_33),T146,YPfalse,LITREF(lit_55),sloc(153),YPfalse); T147 = fun_33; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLflattened_programG),VARREF(YevalSast_linearizeYprogram_quotations),VARREF(YevalSast_linearizeYprogram_quotations_setter),VARREF(YLanyG),T147); lit_56 = YPPsym((P)"program-bindings"); lit_57 = YPPlist(1,YPPsym((P)"_x")); T150 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T149 = fun_program_bindings_34 = YPfab_met(FUNCODEREF(fun_program_bindings_34),T150,LITREF(lit_56),LITREF(lit_57),sloc(154),YPfalse); T153 = VARREF_OR(YevalSast_linearizeYprogram_bindings,YPfalse); T154 = fun_program_bindings_34; T152 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T153,T154); T151 = VARSET(YevalSast_linearizeYprogram_bindings,T152); T148 = T151; return T148; } P YevalSast_linearizeY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170; DEFCREGS(); lit_58 = YPPsym((P)"program-bindings-setter"); lit_59 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_bindings_setter_35 = YPfab_met(FUNCODEREF(fun_program_bindings_setter_35),T0,LITREF(lit_58),LITREF(lit_59),sloc(154),YPfalse); T2 = VARREF_OR(YevalSast_linearizeYprogram_bindings_setter,YPfalse); T3 = fun_program_bindings_setter_35; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSast_linearizeYprogram_bindings_setter,T1); lit_60 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T4,YPfalse,LITREF(lit_60),sloc(154),YPfalse); T5 = fun_36; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLflattened_programG),VARREF(YevalSast_linearizeYprogram_bindings),VARREF(YevalSast_linearizeYprogram_bindings_setter),VARREF(YLanyG),T5); lit_61 = YPPsym((P)"program-definitions"); lit_62 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_program_definitions_37 = YPfab_met(FUNCODEREF(fun_program_definitions_37),T6,LITREF(lit_61),LITREF(lit_62),sloc(155),YPfalse); T8 = VARREF_OR(YevalSast_linearizeYprogram_definitions,YPfalse); T9 = fun_program_definitions_37; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YevalSast_linearizeYprogram_definitions,T7); lit_63 = YPPsym((P)"program-definitions-setter"); lit_64 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_definitions_setter_38 = YPfab_met(FUNCODEREF(fun_program_definitions_setter_38),T10,LITREF(lit_63),LITREF(lit_64),sloc(155),YPfalse); T12 = VARREF_OR(YevalSast_linearizeYprogram_definitions_setter,YPfalse); T13 = fun_program_definitions_setter_38; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSast_linearizeYprogram_definitions_setter,T11); lit_65 = YPPlist(1,YPPsym((P)"x")); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_39 = YPfab_met(FUNCODEREF(fun_39),T14,YPfalse,LITREF(lit_65),sloc(155),YPfalse); T15 = fun_39; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLflattened_programG),VARREF(YevalSast_linearizeYprogram_definitions),VARREF(YevalSast_linearizeYprogram_definitions_setter),VARREF(YLanyG),T15); lit_66 = YPPsym((P)""); T17 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T16 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_66),T17); VARSET(YevalSast_linearizeYLtop_level_formG,T16); lit_67 = YPPsym((P)"form-program"); lit_68 = YPPlist(1,YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLtop_level_formG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_form_program_40 = YPfab_met(FUNCODEREF(fun_form_program_40),T18,LITREF(lit_67),LITREF(lit_68),sloc(158),YPfalse); T20 = VARREF_OR(YevalSast_linearizeYform_program,YPfalse); T21 = fun_form_program_40; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSast_linearizeYform_program,T19); lit_69 = YPPsym((P)"form-program-setter"); lit_70 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YevalSast_linearizeYLtop_level_formG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_form_program_setter_41 = YPfab_met(FUNCODEREF(fun_form_program_setter_41),T22,LITREF(lit_69),LITREF(lit_70),sloc(158),YPfalse); T24 = VARREF_OR(YevalSast_linearizeYform_program_setter,YPfalse); T25 = fun_form_program_setter_41; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSast_linearizeYform_program_setter,T23); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYform_program),VARREF(YevalSast_linearizeYform_program_setter),VARREF(YevalSastYLprogramG),VARREF(YPprop_unbound_error)); lit_71 = YPPsym((P)"form-quotations"); lit_72 = YPPlist(1,YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLtop_level_formG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_form_quotations_42 = YPfab_met(FUNCODEREF(fun_form_quotations_42),T26,LITREF(lit_71),LITREF(lit_72),sloc(159),YPfalse); T28 = VARREF_OR(YevalSast_linearizeYform_quotations,YPfalse); T29 = fun_form_quotations_42; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YevalSast_linearizeYform_quotations,T27); lit_73 = YPPsym((P)"form-quotations-setter"); lit_74 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLtop_level_formG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_form_quotations_setter_43 = YPfab_met(FUNCODEREF(fun_form_quotations_setter_43),T30,LITREF(lit_73),LITREF(lit_74),sloc(159),YPfalse); T32 = VARREF_OR(YevalSast_linearizeYform_quotations_setter,YPfalse); T33 = fun_form_quotations_setter_43; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSast_linearizeYform_quotations_setter,T31); lit_75 = YPPlist(1,YPPsym((P)"x")); T34 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T34,YPfalse,LITREF(lit_75),sloc(159),YPfalse); T35 = fun_44; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYform_quotations),VARREF(YevalSast_linearizeYform_quotations_setter),VARREF(YLanyG),T35); lit_76 = YPPsym((P)"form-definitions"); lit_77 = YPPlist(1,YPPsym((P)"_x")); T36 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLtop_level_formG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_form_definitions_45 = YPfab_met(FUNCODEREF(fun_form_definitions_45),T36,LITREF(lit_76),LITREF(lit_77),sloc(160),YPfalse); T38 = VARREF_OR(YevalSast_linearizeYform_definitions,YPfalse); T39 = fun_form_definitions_45; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSast_linearizeYform_definitions,T37); lit_78 = YPPsym((P)"form-definitions-setter"); lit_79 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLtop_level_formG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_form_definitions_setter_46 = YPfab_met(FUNCODEREF(fun_form_definitions_setter_46),T40,LITREF(lit_78),LITREF(lit_79),sloc(160),YPfalse); T42 = VARREF_OR(YevalSast_linearizeYform_definitions_setter,YPfalse); T43 = fun_form_definitions_setter_46; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSast_linearizeYform_definitions_setter,T41); lit_80 = YPPlist(1,YPPsym((P)"x")); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_47 = YPfab_met(FUNCODEREF(fun_47),T44,YPfalse,LITREF(lit_80),sloc(160),YPfalse); T45 = fun_47; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYform_definitions),VARREF(YevalSast_linearizeYform_definitions_setter),VARREF(YLanyG),T45); lit_81 = YPPsym((P)""); T47 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T46 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_81),T47); VARSET(YevalSast_linearizeYLclosure_creationG,T46); lit_82 = YPPsym((P)"closure-creation-index"); lit_83 = YPPlist(1,YPPsym((P)"_x")); T48 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLclosure_creationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_closure_creation_index_48 = YPfab_met(FUNCODEREF(fun_closure_creation_index_48),T48,LITREF(lit_82),LITREF(lit_83),sloc(163),YPfalse); T50 = VARREF_OR(YevalSast_linearizeYclosure_creation_index,YPfalse); T51 = fun_closure_creation_index_48; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSast_linearizeYclosure_creation_index,T49); lit_84 = YPPsym((P)"closure-creation-index-setter"); lit_85 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T52 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLclosure_creationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_closure_creation_index_setter_49 = YPfab_met(FUNCODEREF(fun_closure_creation_index_setter_49),T52,LITREF(lit_84),LITREF(lit_85),sloc(163),YPfalse); T54 = VARREF_OR(YevalSast_linearizeYclosure_creation_index_setter,YPfalse); T55 = fun_closure_creation_index_setter_49; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSast_linearizeYclosure_creation_index_setter,T53); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLclosure_creationG),VARREF(YevalSast_linearizeYclosure_creation_index),VARREF(YevalSast_linearizeYclosure_creation_index_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_86 = YPPsym((P)"closure-creation-free"); lit_87 = YPPlist(1,YPPsym((P)"_x")); T56 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLclosure_creationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_closure_creation_free_50 = YPfab_met(FUNCODEREF(fun_closure_creation_free_50),T56,LITREF(lit_86),LITREF(lit_87),sloc(164),YPfalse); T58 = VARREF_OR(YevalSast_linearizeYclosure_creation_free,YPfalse); T59 = fun_closure_creation_free_50; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalSast_linearizeYclosure_creation_free,T57); lit_88 = YPPsym((P)"closure-creation-free-setter"); lit_89 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T60 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLclosure_creationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_closure_creation_free_setter_51 = YPfab_met(FUNCODEREF(fun_closure_creation_free_setter_51),T60,LITREF(lit_88),LITREF(lit_89),sloc(164),YPfalse); T62 = VARREF_OR(YevalSast_linearizeYclosure_creation_free_setter,YPfalse); T63 = fun_closure_creation_free_setter_51; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSast_linearizeYclosure_creation_free_setter,T61); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLclosure_creationG),VARREF(YevalSast_linearizeYclosure_creation_free),VARREF(YevalSast_linearizeYclosure_creation_free_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_90 = YPPsym((P)"flatten-seqs"); lit_91 = YPPlist(1,YPPsym((P)"o")); T64 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_flatten_seqs_52 = YPfab_met(FUNCODEREF(fun_flatten_seqs_52),T64,LITREF(lit_90),LITREF(lit_91),sloc(166),YPfalse); T66 = VARREF_OR(YevalSast_linearizeYflatten_seqs,YPfalse); T67 = fun_flatten_seqs_52; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSast_linearizeYflatten_seqs,T65); lit_92 = YPPlist(1,YPPsym((P)"o")); T68 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLsequentialG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_flatten_seqs_53 = YPfab_met(FUNCODEREF(fun_flatten_seqs_53),T68,LITREF(lit_90),LITREF(lit_92),sloc(169),YPfalse); T70 = VARREF_OR(YevalSast_linearizeYflatten_seqs,YPfalse); T71 = fun_flatten_seqs_53; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YevalSast_linearizeYflatten_seqs,T69); lit_93 = YPPsym((P)"as-top-level-forms"); lit_94 = YPPlist(1,YPPsym((P)"programs")); lit_95 = YPPlist(1,YPPsym((P)"x")); T73 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_54 = YPfab_met(FUNCODEREF(fun_54),T73,YPfalse,LITREF(lit_95),sloc(179),YPfalse); T72 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_top_level_forms_55 = YPfab_met(FUNCODEREF(fun_as_top_level_forms_55),T72,LITREF(lit_93),LITREF(lit_94),sloc(178),YPfalse); T75 = VARREF_OR(YevalSast_linearizeYas_top_level_forms,YPfalse); T76 = fun_as_top_level_forms_55; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); VARSET(YevalSast_linearizeYas_top_level_forms,T74); lit_96 = YPPsym((P)"extract-things!"); lit_97 = YPPlist(1,YPPsym((P)"o")); lit_98 = YPPlist(1,YPPsym((P)"form")); T78 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_56 = YPfab_met(FUNCODEREF(fun_56),T78,YPfalse,LITREF(lit_98),sloc(185),YPfalse); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_extract_thingsX_57 = YPfab_met(FUNCODEREF(fun_extract_thingsX_57),T77,LITREF(lit_96),LITREF(lit_97),sloc(181),YPfalse); T80 = VARREF_OR(YevalSast_linearizeYextract_thingsX,YPfalse); T81 = fun_extract_thingsX_57; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSast_linearizeYextract_thingsX,T79); lit_99 = YPPsym((P)"extract!"); lit_100 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"form"),YPPsym((P)"result")); T82 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_extractX_58 = YPfab_met(FUNCODEREF(fun_extractX_58),T82,LITREF(lit_99),LITREF(lit_100),sloc(188),YPfalse); T84 = VARREF_OR(YevalSast_linearizeYextractX,YPfalse); T85 = fun_extractX_58; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YevalSast_linearizeYextractX,T83); lit_101 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"form"),YPPsym((P)"result")); lit_102 = YPPsym((P)"quotation"); T86 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLconstantG),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_extractX_59 = YPfab_met(FUNCODEREF(fun_extractX_59),T86,LITREF(lit_99),LITREF(lit_101),sloc(191),YPfalse); T88 = VARREF_OR(YevalSast_linearizeYextractX,YPfalse); T89 = fun_extractX_59; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YevalSast_linearizeYextractX,T87); lit_103 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"form"),YPPsym((P)"result")); T90 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLraw_constantG),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_extractX_60 = YPfab_met(FUNCODEREF(fun_extractX_60),T90,LITREF(lit_99),LITREF(lit_103),sloc(209),YPfalse); T92 = VARREF_OR(YevalSast_linearizeYextractX,YPfalse); T93 = fun_extractX_60; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSast_linearizeYextractX,T91); lit_104 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"form"),YPPsym((P)"result")); lit_105 = YPPlist(1,YPPsym((P)"binding")); T95 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_61 = YPfab_met(FUNCODEREF(fun_61),T95,YPfalse,LITREF(lit_105),sloc(218),YPfalse); T94 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_methodG),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_extractX_62 = YPfab_met(FUNCODEREF(fun_extractX_62),T94,LITREF(lit_99),LITREF(lit_104),sloc(212),YPfalse); T97 = VARREF_OR(YevalSast_linearizeYextractX,YPfalse); T98 = fun_extractX_62; T96 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T97,T98); VARSET(YevalSast_linearizeYextractX,T96); lit_106 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"form"),YPPsym((P)"result")); T99 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_primitive_definitionG),VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYLflattened_programG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_extractX_63 = YPfab_met(FUNCODEREF(fun_extractX_63),T99,LITREF(lit_99),LITREF(lit_106),sloc(230),YPfalse); T101 = VARREF_OR(YevalSast_linearizeYextractX,YPfalse); T102 = fun_extractX_63; T100 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T101,T102); VARSET(YevalSast_linearizeYextractX,T100); lit_107 = YPPsym((P)"adjoin-definition!"); lit_108 = YPPlist(3,YPPsym((P)"form"),YPPsym((P)"result"),YPPsym((P)"x")); T103 = YPfab_sig(YPPlist(3,VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YevalSast_linearizeYLflattened_programG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_adjoin_definitionX_64 = YPfab_met(FUNCODEREF(fun_adjoin_definitionX_64),T103,LITREF(lit_107),LITREF(lit_108),sloc(238),YPfalse); T105 = VARREF_OR(YevalSast_linearizeYadjoin_definitionX,YPfalse); T106 = fun_adjoin_definitionX_64; T104 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T105,T106); VARSET(YevalSast_linearizeYadjoin_definitionX,T104); lit_109 = YPPsym((P)"split-program"); lit_110 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"max-count")); T107 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_split_program_65 = YPfab_met(FUNCODEREF(fun_split_program_65),T107,LITREF(lit_109),LITREF(lit_110),sloc(246),YPfalse); T109 = VARREF_OR(YevalSast_linearizeYsplit_program,YPfalse); T110 = fun_split_program_65; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YevalSast_linearizeYsplit_program,T108); lit_111 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"max-count")); T111 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLsequentialG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_split_program_66 = YPfab_met(FUNCODEREF(fun_split_program_66),T111,LITREF(lit_109),LITREF(lit_111),sloc(249),YPfalse); T113 = VARREF_OR(YevalSast_linearizeYsplit_program,YPfalse); T114 = fun_split_program_66; T112 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T113,T114); VARSET(YevalSast_linearizeYsplit_program,T112); lit_112 = YPPsym((P)"closurize-main!"); lit_113 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"max-count")); lit_114 = YPsb((P)"---main-"); lit_115 = YPsb((P)"---"); lit_116 = YPPsym((P)"predefined"); T115 = YPfab_sig(YPPlist(3,VARREF(YevalSast_linearizeYLflattened_programG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSast_linearizeYLflattened_programG),Ynil); fun_closurize_mainX_67 = YPfab_met(FUNCODEREF(fun_closurize_mainX_67),T115,LITREF(lit_112),LITREF(lit_113),sloc(259),YPfalse); T117 = VARREF_OR(YevalSast_linearizeYclosurize_mainX,YPfalse); T118 = fun_closurize_mainX_67; T116 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T117,T118); VARSET(YevalSast_linearizeYclosurize_mainX,T116); lit_117 = YPPsym((P)""); T120 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T119 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_117),T120); VARSET(YevalSast_linearizeYLassocG,T119); lit_118 = YPPsym((P)"assoc-key"); lit_119 = YPPlist(1,YPPsym((P)"_x")); T121 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLassocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_assoc_key_68 = YPfab_met(FUNCODEREF(fun_assoc_key_68),T121,LITREF(lit_118),LITREF(lit_119),sloc(293),YPfalse); T123 = VARREF_OR(YevalSast_linearizeYassoc_key,YPfalse); T124 = fun_assoc_key_68; T122 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T123,T124); VARSET(YevalSast_linearizeYassoc_key,T122); lit_120 = YPPsym((P)"assoc-key-setter"); lit_121 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T125 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLassocG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assoc_key_setter_69 = YPfab_met(FUNCODEREF(fun_assoc_key_setter_69),T125,LITREF(lit_120),LITREF(lit_121),sloc(293),YPfalse); T127 = VARREF_OR(YevalSast_linearizeYassoc_key_setter,YPfalse); T128 = fun_assoc_key_setter_69; T126 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T127,T128); VARSET(YevalSast_linearizeYassoc_key_setter,T126); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLassocG),VARREF(YevalSast_linearizeYassoc_key),VARREF(YevalSast_linearizeYassoc_key_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_122 = YPPsym((P)"assoc-value"); lit_123 = YPPlist(1,YPPsym((P)"_x")); T129 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLassocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_assoc_value_70 = YPfab_met(FUNCODEREF(fun_assoc_value_70),T129,LITREF(lit_122),LITREF(lit_123),sloc(294),YPfalse); T131 = VARREF_OR(YevalSast_linearizeYassoc_value,YPfalse); T132 = fun_assoc_value_70; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalSast_linearizeYassoc_value,T130); lit_124 = YPPsym((P)"assoc-value-setter"); lit_125 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T133 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLassocG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assoc_value_setter_71 = YPfab_met(FUNCODEREF(fun_assoc_value_setter_71),T133,LITREF(lit_124),LITREF(lit_125),sloc(294),YPfalse); T135 = VARREF_OR(YevalSast_linearizeYassoc_value_setter,YPfalse); T136 = fun_assoc_value_setter_71; T134 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T135,T136); VARSET(YevalSast_linearizeYassoc_value_setter,T134); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLassocG),VARREF(YevalSast_linearizeYassoc_value),VARREF(YevalSast_linearizeYassoc_value_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_126 = YPPsym((P)"assoc"); lit_127 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T137 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSast_linearizeYLassocG),Ynil); YevalSast_linearizeYassoc = YPfab_met(FUNCODEREF(YevalSast_linearizeYassoc),T137,LITREF(lit_126),LITREF(lit_127),sloc(295),YPfalse); T138 = YevalSast_linearizeYassoc; VARSET(YevalSast_linearizeYassoc,T138); lit_128 = YPPsym((P)"assocq"); lit_129 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"l")); T139 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assocq_73 = YPfab_met(FUNCODEREF(fun_assocq_73),T139,LITREF(lit_128),LITREF(lit_129),sloc(298),YPfalse); T141 = VARREF_OR(YevalSast_linearizeYassocq,YPfalse); T142 = fun_assocq_73; T140 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T141,T142); VARSET(YevalSast_linearizeYassocq,T140); lit_130 = YPPsym((P)"gather-temporaries!"); lit_131 = YPPlist(1,YPPsym((P)"o")); lit_132 = YPPlist(1,YPPsym((P)"def")); T144 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_74 = YPfab_met(FUNCODEREF(fun_74),T144,YPfalse,LITREF(lit_132),sloc(307),YPfalse); T143 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_gather_temporariesX_75 = YPfab_met(FUNCODEREF(fun_gather_temporariesX_75),T143,LITREF(lit_130),LITREF(lit_131),sloc(305),YPfalse); T146 = VARREF_OR(YevalSast_linearizeYgather_temporariesX,YPfalse); T147 = fun_gather_temporariesX_75; T145 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T146,T147); VARSET(YevalSast_linearizeYgather_temporariesX,T145); lit_133 = YPPsym((P)"collect-temporaries!"); lit_134 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"r")); T148 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_temporariesX_76 = YPfab_met(FUNCODEREF(fun_collect_temporariesX_76),T148,LITREF(lit_133),LITREF(lit_134),sloc(311),YPfalse); T150 = VARREF_OR(YevalSast_linearizeYcollect_temporariesX,YPfalse); T151 = fun_collect_temporariesX_76; T149 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T150,T151); VARSET(YevalSast_linearizeYcollect_temporariesX,T149); lit_135 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"r")); T152 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLlocal_referenceG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_temporariesX_77 = YPfab_met(FUNCODEREF(fun_collect_temporariesX_77),T152,LITREF(lit_133),LITREF(lit_135),sloc(314),YPfalse); T154 = VARREF_OR(YevalSast_linearizeYcollect_temporariesX,YPfalse); T155 = fun_collect_temporariesX_77; T153 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T154,T155); VARSET(YevalSast_linearizeYcollect_temporariesX,T153); lit_136 = YPPsym((P)"prepend-renamings"); lit_137 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"y"),YPPsym((P)"r")); T156 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSast_linearizeYprepend_renamings = YPfab_met(FUNCODEREF(YevalSast_linearizeYprepend_renamings),T156,LITREF(lit_136),LITREF(lit_137),sloc(321),YPfalse); T157 = YevalSast_linearizeYprepend_renamings; VARSET(YevalSast_linearizeYprepend_renamings,T157); lit_138 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"r")); T158 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLfix_letG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_temporariesX_79 = YPfab_met(FUNCODEREF(fun_collect_temporariesX_79),T158,LITREF(lit_133),LITREF(lit_138),sloc(328),YPfalse); T160 = VARREF_OR(YevalSast_linearizeYcollect_temporariesX,YPfalse); T161 = fun_collect_temporariesX_79; T159 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T160,T161); VARSET(YevalSast_linearizeYcollect_temporariesX,T159); lit_139 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"r")); lit_140 = YPPlist(1,YPPsym((P)"b")); T166 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T165 = fun_80 = YPfab_met(FUNCODEREF(fun_80),T166,YPfalse,LITREF(lit_140),sloc(340),YPfalse); T164 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLloopG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T163 = fun_collect_temporariesX_81 = YPfab_met(FUNCODEREF(fun_collect_temporariesX_81),T164,LITREF(lit_133),LITREF(lit_139),sloc(338),YPfalse); T169 = VARREF_OR(YevalSast_linearizeYcollect_temporariesX,YPfalse); T170 = fun_collect_temporariesX_81; T168 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T169,T170); T167 = VARSET(YevalSast_linearizeYcollect_temporariesX,T168); T162 = T167; return T162; } P YevalSast_linearizeY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68; DEFCREGS(); lit_141 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"flat-fun"),YPPsym((P)"r")); T0 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLlocalsG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_temporariesX_82 = YPfab_met(FUNCODEREF(fun_collect_temporariesX_82),T0,LITREF(lit_133),LITREF(lit_141),sloc(347),YPfalse); T2 = VARREF_OR(YevalSast_linearizeYcollect_temporariesX,YPfalse); T3 = fun_collect_temporariesX_82; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSast_linearizeYcollect_temporariesX,T1); lit_142 = YPPsym((P)"adjoin-temporary-variables!"); lit_143 = YPPlist(2,YPPsym((P)"flat-fun"),YPPsym((P)"new-bindings")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_adjoin_temporary_variablesX_83 = YPfab_met(FUNCODEREF(fun_adjoin_temporary_variablesX_83),T4,LITREF(lit_142),LITREF(lit_143),sloc(359),YPfalse); T6 = VARREF_OR(YevalSast_linearizeYadjoin_temporary_variablesX,YPfalse); T7 = fun_adjoin_temporary_variablesX_83; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSast_linearizeYadjoin_temporary_variablesX,T5); lit_144 = YPPsym((P)""); T9 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLlocal_bindingG),Ynil); T8 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_144),T9); VARSET(YevalSast_linearizeYLrenamed_local_bindingG,T8); lit_145 = YPPsym((P)"binding-index"); lit_146 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLrenamed_local_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_index_84 = YPfab_met(FUNCODEREF(fun_binding_index_84),T10,LITREF(lit_145),LITREF(lit_146),sloc(369),YPfalse); T12 = VARREF_OR(YevalSastYbinding_index,YPfalse); T13 = fun_binding_index_84; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSastYbinding_index,T11); lit_147 = YPPsym((P)"binding-index-setter"); lit_148 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSast_linearizeYLrenamed_local_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_index_setter_85 = YPfab_met(FUNCODEREF(fun_binding_index_setter_85),T14,LITREF(lit_147),LITREF(lit_148),sloc(369),YPfalse); T16 = VARREF_OR(YevalSastYbinding_index_setter,YPfalse); T17 = fun_binding_index_setter_85; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSastYbinding_index_setter,T15); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSast_linearizeYLrenamed_local_bindingG),VARREF(YevalSastYbinding_index),VARREF(YevalSastYbinding_index_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); DYNDEFSET(YevalSast_linearizeYTrenaming_bindings_counterT,YPint((P)0)); lit_149 = YPPsym((P)"new-renamed-binding"); lit_150 = YPPlist(1,YPPsym((P)"binding")); T18 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_new_renamed_binding_86 = YPfab_met(FUNCODEREF(fun_new_renamed_binding_86),T18,LITREF(lit_149),LITREF(lit_150),sloc(373),YPfalse); T20 = VARREF_OR(YevalSast_linearizeYnew_renamed_binding,YPfalse); T21 = fun_new_renamed_binding_86; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSast_linearizeYnew_renamed_binding,T19); VARSET(YevalSast_linearizeYTregister_passiveQT,YPfalse); lit_151 = YPPsym((P)"register-allocate!"); lit_152 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"register-passive?")); lit_153 = Ynil; lit_154 = YPPlist(1,YPPsym((P)"def")); T25 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_87 = YPfab_met(FUNCODEREF(fun_87),T25,YPfalse,LITREF(lit_154),sloc(388),YPfalse); T24 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_88 = YPfab_met(FUNCODEREF(fun_88),T24,YPfalse,LITREF(lit_153),sloc(387),YPfalse); T23 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_89 = YPfab_met(FUNCODEREF(fun_89),T23,YPfalse,LITREF(lit_153),sloc(387),YPfalse); T22 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YLlogG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_register_allocateX_90 = YPfab_met(FUNCODEREF(fun_register_allocateX_90),T22,LITREF(lit_151),LITREF(lit_152),sloc(386),YPfalse); T27 = VARREF_OR(YevalSast_linearizeYregister_allocateX,YPfalse); T28 = fun_register_allocateX_90; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YevalSast_linearizeYregister_allocateX,T26); lit_155 = YPPsym((P)"allocate-register"); lit_156 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T29 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSast_linearizeYallocate_register = YPfab_met(FUNCODEREF(YevalSast_linearizeYallocate_register),T29,LITREF(lit_155),LITREF(lit_156),sloc(391),YPfalse); T30 = YevalSast_linearizeYallocate_register; VARSET(YevalSast_linearizeYallocate_register,T30); lit_157 = YPPsym((P)"collect-registers!"); lit_158 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T31 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLcomputed_programG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_92 = YPfab_met(FUNCODEREF(fun_collect_registersX_92),T31,LITREF(lit_157),LITREF(lit_158),sloc(397),YPfalse); T33 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T34 = fun_collect_registersX_92; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YevalSast_linearizeYcollect_registersX,T32); lit_159 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T35 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLsequentialG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_93 = YPfab_met(FUNCODEREF(fun_collect_registersX_93),T35,LITREF(lit_157),LITREF(lit_159),sloc(401),YPfalse); T37 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T38 = fun_collect_registersX_93; T36 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T37,T38); VARSET(YevalSast_linearizeYcollect_registersX,T36); lit_160 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T39 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLpassive_programG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_94 = YPfab_met(FUNCODEREF(fun_collect_registersX_94),T39,LITREF(lit_157),LITREF(lit_160),sloc(409),YPfalse); T41 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T42 = fun_collect_registersX_94; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YevalSast_linearizeYcollect_registersX,T40); lit_161 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); lit_162 = YPPlist(1,YPPsym((P)"def")); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_95 = YPfab_met(FUNCODEREF(fun_95),T44,YPfalse,LITREF(lit_162),sloc(416),YPfalse); T43 = YPfab_sig(YPPlist(3,VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_96 = YPfab_met(FUNCODEREF(fun_collect_registersX_96),T43,LITREF(lit_157),LITREF(lit_161),sloc(414),YPfalse); T46 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T47 = fun_collect_registersX_96; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSast_linearizeYcollect_registersX,T45); lit_163 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T48 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_methodG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_97 = YPfab_met(FUNCODEREF(fun_collect_registersX_97),T48,LITREF(lit_157),LITREF(lit_163),sloc(419),YPfalse); T50 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T51 = fun_collect_registersX_97; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSast_linearizeYcollect_registersX,T49); lit_164 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T52 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_primitiveG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_98 = YPfab_met(FUNCODEREF(fun_collect_registersX_98),T52,LITREF(lit_157),LITREF(lit_164),sloc(425),YPfalse); T54 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T55 = fun_collect_registersX_98; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSast_linearizeYcollect_registersX,T53); lit_165 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T56 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLlocalsG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_99 = YPfab_met(FUNCODEREF(fun_collect_registersX_99),T56,LITREF(lit_157),LITREF(lit_165),sloc(428),YPfalse); T58 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T59 = fun_collect_registersX_99; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalSast_linearizeYcollect_registersX,T57); lit_166 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T60 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLfix_letG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_100 = YPfab_met(FUNCODEREF(fun_collect_registersX_100),T60,LITREF(lit_157),LITREF(lit_166),sloc(432),YPfalse); T62 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T63 = fun_collect_registersX_100; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSast_linearizeYcollect_registersX,T61); lit_167 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"f"),YPPsym((P)"val?")); T64 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLloopG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_collect_registersX_101 = YPfab_met(FUNCODEREF(fun_collect_registersX_101),T64,LITREF(lit_157),LITREF(lit_167),sloc(436),YPfalse); T66 = VARREF_OR(YevalSast_linearizeYcollect_registersX,YPfalse); T67 = fun_collect_registersX_101; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSast_linearizeYcollect_registersX,T65); T68 = YPfalse; return T68; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_evalSast}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"c-inline-strs", &module_info_evalSast, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"function-value", &module_info_evalSast, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"c-inline-refs", &module_info_evalSast, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-inline-expr?", &module_info_evalSast, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"any?", &module_info_gooStypes, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_evalSast, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"application-function", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"program-type", &module_info_evalSast, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSmodule, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"ds", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"function-source", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"function-free", &module_info_evalSast, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"dg", &module_info_gooSboot, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"even?", &module_info_gooSmath, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"program-register", &module_info_evalSast, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"program-line", &module_info_evalSast, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"function-body", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"function-index", &module_info_evalSast, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSmodule, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-names", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YevalSast_linearizeYLfree_referenceG}, {"lift-procedures!", CVAR, &YevalSast_linearizeYlift_proceduresX}, {"gather-temporaries!", CVAR, &YevalSast_linearizeYgather_temporariesX}, {"assoc-key-setter", CVAR, &YevalSast_linearizeYassoc_key_setter}, {"allocate-register", CVAR, &YevalSast_linearizeYallocate_register}, {"box-form-setter", CVAR, &YevalSast_linearizeYbox_form_setter}, {"closurize-main!", CVAR, &YevalSast_linearizeYclosurize_mainX}, {"insert-box!", CVAR, &YevalSast_linearizeYinsert_boxX}, {"extract-things!", CVAR, &YevalSast_linearizeYextract_thingsX}, {"program-quotations", CVAR, &YevalSast_linearizeYprogram_quotations}, {"program-form-setter", CVAR, &YevalSast_linearizeYprogram_form_setter}, {"as-top-level-forms", CVAR, &YevalSast_linearizeYas_top_level_forms}, {"reference-offset-setter", CVAR, &YevalSast_linearizeYreference_offset_setter}, {"", CVAR, &YevalSast_linearizeYLbox_writeG}, {"---main-2---", PVAR, NULL}, {"box-form", CVAR, &YevalSast_linearizeYbox_form}, {"adjoin-free-binding!", CVAR, &YevalSast_linearizeYadjoin_free_bindingX}, {"*register-passive?*", CVAR, &YevalSast_linearizeYTregister_passiveQT}, {"closure-creation-index-setter", CVAR, &YevalSast_linearizeYclosure_creation_index_setter}, {"box-reference", CVAR, &YevalSast_linearizeYbox_reference}, {"program-bindings", CVAR, &YevalSast_linearizeYprogram_bindings}, {"reference-offset", CVAR, &YevalSast_linearizeYreference_offset}, {"assoc-key", CVAR, &YevalSast_linearizeYassoc_key}, {"closure-creation-free-setter", CVAR, &YevalSast_linearizeYclosure_creation_free_setter}, {"lift!", CVAR, &YevalSast_linearizeYliftX}, {"assoc-value-setter", CVAR, &YevalSast_linearizeYassoc_value_setter}, {"form-definitions-setter", CVAR, &YevalSast_linearizeYform_definitions_setter}, {"boxify-mutable-bindings", CVAR, &YevalSast_linearizeYboxify_mutable_bindings}, {"", CVAR, &YevalSast_linearizeYLrenamed_local_bindingG}, {"reference-self?", CVAR, &YevalSast_linearizeYreference_selfQ}, {"---main-1---", PVAR, NULL}, {"", CVAR, &YevalSast_linearizeYLbox_creationG}, {"program-form", CVAR, &YevalSast_linearizeYprogram_form}, {"collect-temporaries!", CVAR, &YevalSast_linearizeYcollect_temporariesX}, {"form-program-setter", CVAR, &YevalSast_linearizeYform_program_setter}, {"", CVAR, &YevalSast_linearizeYLbox_readG}, {"closure-creation-index", CVAR, &YevalSast_linearizeYclosure_creation_index}, {"reference-self?-setter", CVAR, &YevalSast_linearizeYreference_selfQ_setter}, {"program-bindings-setter", CVAR, &YevalSast_linearizeYprogram_bindings_setter}, {"flatten-seqs", CVAR, &YevalSast_linearizeYflatten_seqs}, {"closure-creation-free", CVAR, &YevalSast_linearizeYclosure_creation_free}, {"", CVAR, &YevalSast_linearizeYLtop_level_formG}, {"collect-registers!", CVAR, &YevalSast_linearizeYcollect_registersX}, {"assoc", CVAR, &YevalSast_linearizeYassoc}, {"assocq", CVAR, &YevalSast_linearizeYassocq}, {"adjoin-definition!", CVAR, &YevalSast_linearizeYadjoin_definitionX}, {"", CVAR, &YevalSast_linearizeYLclosure_creationG}, {"assoc-value", CVAR, &YevalSast_linearizeYassoc_value}, {"extract!", CVAR, &YevalSast_linearizeYextractX}, {"prepend-renamings", CVAR, &YevalSast_linearizeYprepend_renamings}, {"form-definitions", CVAR, &YevalSast_linearizeYform_definitions}, {"*renaming-bindings-counter*", DVAR, &YevalSast_linearizeYTrenaming_bindings_counterT}, {"form-quotations-setter", CVAR, &YevalSast_linearizeYform_quotations_setter}, {"register-allocate!", CVAR, &YevalSast_linearizeYregister_allocateX}, {"split-program", CVAR, &YevalSast_linearizeYsplit_program}, {"program-definitions-setter", CVAR, &YevalSast_linearizeYprogram_definitions_setter}, {"form-quotations", CVAR, &YevalSast_linearizeYform_quotations}, {"", CVAR, &YevalSast_linearizeYLassocG}, {"---main-0---", PVAR, NULL}, {"adjoin-temporary-variables!", CVAR, &YevalSast_linearizeYadjoin_temporary_variablesX}, {"form-program", CVAR, &YevalSast_linearizeYform_program}, {"box-reference-setter", CVAR, &YevalSast_linearizeYbox_reference_setter}, {"new-renamed-binding", CVAR, &YevalSast_linearizeYnew_renamed_binding}, {"program-quotations-setter", CVAR, &YevalSast_linearizeYprogram_quotations_setter}, {"", CVAR, &YevalSast_linearizeYLflattened_programG}, {"program-definitions", CVAR, &YevalSast_linearizeYprogram_definitions}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"program-bindings", NULL}, {"closurize-main!", NULL}, {"insert-box!", NULL}, {"program-quotations", NULL}, {"", NULL}, {"box-form", NULL}, {"box-reference", NULL}, {"reference-offset", NULL}, {"lift!", NULL}, {"", NULL}, {"reference-self?", NULL}, {"", NULL}, {"*register-passive?*", NULL}, {"program-form", NULL}, {"gather-temporaries!", NULL}, {"", NULL}, {"", NULL}, {"closure-creation-index", NULL}, {"flatten-seqs", NULL}, {"closure-creation-free", NULL}, {"register-allocate!", NULL}, {"form-definitions", NULL}, {"form-quotations", NULL}, {"", NULL}, {"form-program", NULL}, {"", NULL}, {"extract-things!", NULL}, {"program-definitions", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSast_linearize; MODULE_INFO module_info_evalSast_linearize = { "eval/ast-linearize", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_evalSast (void); /* EXPRESSION: */ extern void load_module_evalSast_linearize (void); void load_module_evalSast_linearize (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_evalSast(); (P)YevalSast_linearizeY___main_0___(); (P)YevalSast_linearizeY___main_1___(); (P)YevalSast_linearizeY___main_2___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/ast.c0100644000175000017500000224050007756744527014522 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/ast"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/ast */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YevalSsyntaxYDsexpr_define_method_tag,"eval/syntax","$sexpr-define-method-tag"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSsyntaxYDsexpr_define_constant_tag,"eval/syntax","$sexpr-define-constant-tag"); DEF(YevalSastYalternative_condition,"eval/ast","alternative-condition"); DEF(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(YevalSdependencyYDnul_dependency,"eval/dependency","$nul-dependency"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); DEF(YevalSastYDsexpr_use_include_tag,"eval/ast","$sexpr-use-include-tag"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YevalSdependencyYinvalidate_dependent,"eval/dependency","invalidate-dependent"); DEF(YevalSastYbinding_mutableQ_setter,"eval/ast","binding-mutable?-setter"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSdependencyYDvalue_optimization_dependency,"eval/dependency","$value-optimization-dependency"); EXT(YgooStypesYLbotG,"goo/types",""); DEF(YevalSastYmagic_bindings,"eval/ast","magic-bindings"); EXT(YevalSsyntaxYsexpr_unwind_protect_protected_form,"eval/syntax","sexpr-unwind-protect-protected-form"); DEF(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YPrnul,"goo/boot","%rnul"); DEF(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); DEF(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); DEF(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalSsyntaxYDsexpr_set_tag,"eval/syntax","$sexpr-set-tag"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); DEF(YevalSastYspecial_use_module,"eval/ast","special-use-module"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); DEF(YevalSastYobjectify_application,"eval/ast","objectify-application"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(YevalSsyntaxYDsexpr_unwind_protect_tag,"eval/syntax","$sexpr-unwind-protect-tag"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YevalSsyntaxYDsexpr_quasiquote_tag,"eval/syntax","$sexpr-quasiquote-tag"); EXT(YevalSsyntaxYsexpr_define_classQ,"eval/syntax","sexpr-define-class?"); EXT(YevalSdependencyYLdependentG,"eval/dependency",""); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); DEF(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); DEF(YevalSastYLmodule_binding_referenceG,"eval/ast",""); DEF(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); DEF(YevalSastYobjectify_refs,"eval/ast","objectify-refs"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); DEF(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSsyntaxYsexpr_make_macro_function,"eval/syntax","sexpr-make-macro-function"); DEF(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSdependencyYdependency_includes_allQ,"eval/dependency","dependency-includes-all?"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); DEF(YevalSastYspecial_compile_time,"eval/ast","special-compile-time"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); DEF(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(YevalSsyntaxYsexpr_expand_backquote,"eval/syntax","sexpr-expand-backquote"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YevalSdependencyYDexpansion_parse_dependency,"eval/dependency","$expansion-parse-dependency"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YevalSdependencyYLdependency_typeG,"eval/dependency",""); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSioSreadYset_standard_read_macroX,"goo/io/read","set-standard-read-macro!"); DEF(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YevalSastYbind_exit_main_fun_setter,"eval/ast","bind-exit-main-fun-setter"); EXT(YevalSsyntaxYsexpr_isa_prop_inits,"eval/syntax","sexpr-isa-prop-inits"); DEF(YevalSastYdefault_type,"eval/ast","default-type"); EXT(YevalSsyntaxYDsexpr_let_tag,"eval/syntax","$sexpr-let-tag"); DEF(YevalSastYfunction_display_name,"eval/ast","function-display-name"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YevalSsyntaxYsexpr_prop_initQ,"eval/syntax","sexpr-prop-init?"); DEF(YevalSastYfunction_signature,"eval/ast","function-signature"); DEF(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YevalSsyntaxYDsexpr_locals_tag,"eval/syntax","$sexpr-locals-tag"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YevalSsyntaxYsexpr_loc_bound_signatures,"eval/syntax","sexpr-loc-bound-signatures"); EXT(YevalSsyntaxYsexpr_loc_raw_body,"eval/syntax","sexpr-loc-raw-body"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YevalSsyntaxYsexpr_syntax_if_then,"eval/syntax","sexpr-syntax-if-then"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); DEF(YevalSastYapplication_binding_setter,"eval/ast","application-binding-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YevalSsyntaxYsexpr_isa_parent,"eval/syntax","sexpr-isa-parent"); EXT(YLfunG,"goo/boot",""); DEF(YevalSastYinit_g2c_boot_environment,"eval/ast","init-g2c-boot-environment"); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); DEF(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSioSreadYDchar_long_names,"goo/io/read","$char-long-names"); DEF(YevalSastYspecial_define_generic,"eval/ast","special-define-generic"); EXT(YevalSdependencyYdependency_and,"eval/dependency","dependency-and"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); DEF(YevalSastYLast_generic_definitionG,"eval/ast",""); DEF(YevalSastYregister_magic_binding,"eval/ast","register-magic-binding"); EXT(YgooSsystemYos_val,"goo/system","os-val"); EXT(YevalSsyntaxYsexpr_def_variable,"eval/syntax","sexpr-def-variable"); EXT(YevalSsyntaxYsexpr_if_test,"eval/syntax","sexpr-if-test"); DEF(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); DEF(YevalSastYobjectify_unwind_protect,"eval/ast","objectify-unwind-protect"); DEF(YevalSastYloop_bindings,"eval/ast","loop-bindings"); EXT(YevalSsyntaxYsexpr_fab_setter_name,"eval/syntax","sexpr-fab-setter-name"); EXT(YevalSsyntaxYsexpr_let_Gcombination,"eval/syntax","sexpr-let->combination"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YevalSsyntaxYDsexpr_isa_tag,"eval/syntax","$sexpr-isa-tag"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); DEF(YevalSastYobjectify_c_expr,"eval/ast","objectify-c-expr"); EXT(YLflatG,"goo/boot",""); EXT(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); DEF(YevalSastYspecial_define_primitive,"eval/ast","special-define-primitive"); EXT(Yprop_owner,"goo/boot","prop-owner"); DEF(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); DEF(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YgooSsystemYexe_filename,"goo/system","exe-filename"); DEF(YevalSastYprogram_line_setter,"eval/ast","program-line-setter"); DEF(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); DEF(YevalSastYLcompile_timeG,"eval/ast",""); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); DEF(YevalSastYmonitor_main_thunk_setter,"eval/ast","monitor-main-thunk-setter"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); DEF(YevalSastYcompile_time_program_setter,"eval/ast","compile-time-program-setter"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); DEF(YevalSastYexpand_bind_element,"eval/ast","expand-bind-element"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); DEF(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); DEF(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(Yclass_gens,"goo/boot","class-gens"); DEF(YevalSastYobjectify_use_library,"eval/ast","objectify-use-library"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSsyntaxYDsexpr_iterate_tag,"eval/syntax","$sexpr-iterate-tag"); EXT(YevalSsyntaxYsexpr_monitor_expand,"eval/syntax","sexpr-monitor-expand"); DEF(YevalSastYobjectify_use_mangle_module,"eval/ast","objectify-use-mangle-module"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); DEF(YevalSastYexpand_bind_listT,"eval/ast","expand-bind-list*"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YevalSsyntaxYsexpr_variable_name,"eval/syntax","sexpr-variable-name"); DEF(YevalSastYspecial_let,"eval/ast","special-let"); EXT(YPtrue,"goo/boot","%true"); EXT(YevalSsyntaxYsexpr_bind_pattern_variables,"eval/syntax","sexpr-bind-pattern-variables"); DEF(YevalSastYobjectify_binding,"eval/ast","objectify-binding"); DEF(YevalSastYLc_inlineG,"eval/ast",""); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); DEF(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); DEF(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); DEF(YevalSastYspecial_use_mangle_module,"eval/ast","special-use-mangle-module"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSioSreadYread_delimited_list,"goo/io/read","read-delimited-list"); EXT(YevalSsyntaxYsexpr_make_anonymous_method,"eval/syntax","sexpr-make-anonymous-method"); DEF(YevalSastYobjectify_use_include,"eval/ast","objectify-use-include"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); DEF(YevalSastYspecial_define_function,"eval/ast","special-define-function"); EXT(YevalSsyntaxYDsexpr_define_tag,"eval/syntax","$sexpr-define-tag"); DEF(YevalSastYLast_functionG,"eval/ast",""); DEF(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); DEF(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); DEF(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSsyntaxYsexpr_definition_variable,"eval/syntax","sexpr-definition-variable"); DEF(YevalSastYapplication_function_setter,"eval/ast","application-function-setter"); DEF(YevalSastYLsimple_ast_errorG,"eval/ast",""); DEF(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YLlstG,"goo/boot",""); DEF(YevalSastYfunction_binding_setter,"eval/ast","function-binding-setter"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YevalSsyntaxYsexpr_function_definition_variable,"eval/syntax","sexpr-function-definition-variable"); EXT(YevalSsyntaxYsexpr_syntax_definition_variable,"eval/syntax","sexpr-syntax-definition-variable"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YevalSsyntaxYsexpr_variableQ,"eval/syntax","sexpr-variable?"); EXT(YevalSsyntaxYDsexpr_monitor_tag,"eval/syntax","$sexpr-monitor-tag"); DEF(YevalSastYobjectify_locals,"eval/ast","objectify-locals"); EXT(YgooSioSportYputs,"goo/io/port","puts"); DEF(YevalSastYbind_exit_lightQ_setter,"eval/ast","bind-exit-light?-setter"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YevalSastYobjectify_syntax_definition,"eval/ast","objectify-syntax-definition"); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); DEF(YevalSastYobjectify_definition,"eval/ast","objectify-definition"); DEF(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YevalSsyntaxYsexpr_def_value,"eval/syntax","sexpr-def-value"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSdependencyYdependency_nulQ,"eval/dependency","dependency-nul?"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); DEF(YevalSastYc_inline_exprQ_setter,"eval/ast","c-inline-expr?-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); DEF(YevalSastYobjectify_foreign_reference,"eval/ast","objectify-foreign-reference"); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); DEF(YevalSastYfab_list,"eval/ast","fab-list"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); DEF(YevalSastYobjectify_c_inline,"eval/ast","objectify-c-inline"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); DEF(YevalSastYprogram_register,"eval/ast","program-register"); DEF(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); DEF(YevalSastYfunctions,"eval/ast","functions"); EXT(Ytup,"goo/boot","tup"); EXT(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); DEF(YevalSastYobjectify_assignment,"eval/ast","objectify-assignment"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YevalSsyntaxYsexpr_prop_name,"eval/syntax","sexpr-prop-name"); DEF(YevalSastYspecial_locals,"eval/ast","special-locals"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YevalSdependencyYDall_dependency_types,"eval/dependency","$all-dependency-types"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); DEF(YevalSastYobjectify_generic_definition,"eval/ast","objectify-generic-definition"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YevalSsyntaxYsexpr_make_begin,"eval/syntax","sexpr-make-begin"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); DEF(YevalSastYboundQ_default_setter,"eval/ast","bound?-default-setter"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(YevalSsyntaxYsexpr_method_signature,"eval/syntax","sexpr-method-signature"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSsystemYfile_copy,"goo/system","file-copy"); EXT(YgooSsystemYos_name,"goo/system","os-name"); EXT(YevalSsyntaxYsexpr_text_of_quotation,"eval/syntax","sexpr-text-of-quotation"); DEF(YevalSastYDinline_refs_nul,"eval/ast","$inline-refs-nul"); DEF(YevalSastYinline_refs,"eval/ast","inline-refs"); DEF(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); DEF(YevalSastYboundQ_reference_setter,"eval/ast","bound?-reference-setter"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); DEF(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YevalSastYapplication_next_methods_setter,"eval/ast","application-next-methods-setter"); DEF(YevalSastYLimmediate_constantG,"eval/ast",""); DEF(YevalSastYspecial_define_static_syntax,"eval/ast","special-define-static-syntax"); DEF(YevalSastYobjectify_compile_time,"eval/ast","objectify-compile-time"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YevalSastYobjectify_alternative,"eval/ast","objectify-alternative"); DEF(YevalSastYLcomputed_programG,"eval/ast",""); DEF(YevalSastYobjectify_sequential,"eval/ast","objectify-sequential"); DEF(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); DEF(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); DEF(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); DEF(YevalSastYobjectify_monitor,"eval/ast","objectify-monitor"); DEF(YevalSastYmaybe_log_dependency,"eval/ast","maybe-log-dependency"); DEF(YevalSastYTmagic_bindingsT,"eval/ast","*magic-bindings*"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); DEF(YevalSastYmacro_expander,"eval/ast","macro-expander"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSsystemYobj_filename,"goo/system","obj-filename"); DEF(YevalSastYDsexpr_define_primitive_tag,"eval/ast","$sexpr-define-primitive-tag"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); DEF(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); DEF(YevalSastYobjectify_raw,"eval/ast","objectify-raw"); DEF(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(YevalSsyntaxYsexpr_isa_init_values,"eval/syntax","sexpr-isa-init-values"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); DEF(YevalSastYapplication_arguments_setter,"eval/ast","application-arguments-setter"); EXT(YevalSsyntaxYsexpr_sequence_Gbegin,"eval/syntax","sexpr-sequence->begin"); EXT(YgooStypesYanyQ,"goo/types","any?"); DEF(YevalSastYspecial_monitor,"eval/ast","special-monitor"); DEF(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); DEF(YevalSastYLargumentsG,"eval/ast",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); DEF(YevalSastYinit_g2c_regular_environment,"eval/ast","init-g2c-regular-environment"); DEF(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YOmemQ,"goo/boot","@mem?"); DEF(YevalSastYDsexpr_compile_time_also_tag,"eval/ast","$sexpr-compile-time-also-tag"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSdependencyYdetach_dependent,"eval/dependency","detach-dependent"); DEF(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); DEF(YevalSastYLbind_exitG,"eval/ast",""); DEF(YevalSastYobjectify_function_source,"eval/ast","objectify-function-source"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); DEF(YevalSastYobjectify_variable_definition,"eval/ast","objectify-variable-definition"); DEF(YevalSastYspecial_use_include,"eval/ast","special-use-include"); DEF(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); DEF(YevalSastYast_macro_expand,"eval/ast","ast-macro-expand"); DEF(YevalSastYLlocal_referenceG,"eval/ast",""); DEF(YevalSastYmonitor_info_setter,"eval/ast","monitor-info-setter"); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); DEF(YevalSastYincf_ref_count,"eval/ast","incf-ref-count"); DEF(YevalSastYmonitor_test,"eval/ast","monitor-test"); DEF(YevalSastYmonitor_test_setter,"eval/ast","monitor-test-setter"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); DEF(YevalSastYmonitor_type_setter,"eval/ast","monitor-type-setter"); DEF(YevalSastYDsexpr_define_dynamic_tag,"eval/ast","$sexpr-define-dynamic-tag"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSsyntaxYsexpr_syntax_if_pattern,"eval/syntax","sexpr-syntax-if-pattern"); DEF(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); DEF(YevalSastYLast_signatureG,"eval/ast",""); EXT(YgooSclassYprop_value,"goo/class","prop-value"); DEF(YevalSastYLast_primitiveG,"eval/ast",""); DEF(YevalSastYDsexpr_Praw_tag,"eval/ast","$sexpr-%raw-tag"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YevalSdependencyYdependency_includes_anyQ,"eval/dependency","dependency-includes-any?"); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); DEF(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); DEF(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); DEF(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YevalSastYconvert2arguments,"eval/ast","convert2arguments"); DEF(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); DEF(YevalSastYunwind_protect_protected_thunk_setter,"eval/ast","unwind-protect-protected-thunk-setter"); DEF(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); DEF(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); DEF(YevalSastYDsexpr_export_tag,"eval/ast","$sexpr-export-tag"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YevalSsyntaxYsexpr_operands,"eval/syntax","sexpr-operands"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YevalSsyntaxYsexpr_loc_bound_names,"eval/syntax","sexpr-loc-bound-names"); DEF(YevalSastYspecial_def,"eval/ast","special-def"); DEF(YevalSastYDsexpr_use_library_tag,"eval/ast","$sexpr-use-library-tag"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YevalSsyntaxYsexpr_function_signature,"eval/syntax","sexpr-function-signature"); EXT(YLcolG,"goo/boot",""); DEF(YevalSastYLsequentialG,"eval/ast",""); DEF(YevalSastYspecial_define_syntax,"eval/ast","special-define-syntax"); EXT(YgooSmathYabs,"goo/math","abs"); DEF(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YgooSsystemYadd_build_path,"goo/system","add-build-path"); DEF(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(YevalSsyntaxYsexpr_method_body,"eval/syntax","sexpr-method-body"); DEF(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); DEF(YevalSastYLapplicationG,"eval/ast",""); DEF(YevalSastYLconstantG,"eval/ast",""); DEF(YevalSastYobjectify,"eval/ast","objectify"); DEF(YevalSastYLdefinitionG,"eval/ast",""); DEF(YevalSastYfab_syntax_environment,"eval/ast","fab-syntax-environment"); DEF(YevalSastYapplication_loop_setter,"eval/ast","application-loop-setter"); DEF(YevalSastYforeign_nameQ,"eval/ast","foreign-name?"); DEF(YevalSastYspecial_if,"eval/ast","special-if"); DEF(YevalSastYprocess_nary_closed_application,"eval/ast","process-nary-closed-application"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); DEF(YevalSastYreference_frame_offset_setter,"eval/ast","reference-frame-offset-setter"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); DEF(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YevalSsyntaxYsexpr_assignment_value,"eval/syntax","sexpr-assignment-value"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); DEF(YevalSastYexpand_syntax_if,"eval/ast","expand-syntax-if"); DEF(YevalSastYobjectify_method_definition,"eval/ast","objectify-method-definition"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); DEF(YevalSastYc_inline_strs_setter,"eval/ast","c-inline-strs-setter"); DEF(YevalSastYspecial_define_constant,"eval/ast","special-define-constant"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); DEF(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); DEF(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); DEF(YevalSastYDsexpr_optionals_tag,"eval/ast","$sexpr-optionals-tag"); EXT(YevalSsyntaxYsexpr_make_application,"eval/syntax","sexpr-make-application"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); DEF(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); DEF(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSsyntaxYDsexpr_begin_tag,"eval/syntax","$sexpr-begin-tag"); DEF(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YevalSsyntaxYsexpr_signature_parameters,"eval/syntax","sexpr-signature-parameters"); EXT(YLlocG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_function_definition_adjectives,"eval/syntax","sexpr-function-definition-adjectives"); DEF(YevalSastYupdate_binding_kind,"eval/ast","update-binding-kind"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSsyntaxYDsexpr_prop_tag,"eval/syntax","$sexpr-prop-tag"); DEF(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(YgooSsystemYc_filename,"goo/system","c-filename"); DEF(YevalSastYLast_method_definitionG,"eval/ast",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YevalSsyntaxYsexpr_fab_setter,"eval/syntax","sexpr-fab-setter"); DEF(YevalSastYassignment_binding_setter,"eval/ast","assignment-binding-setter"); DEF(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); DEF(YevalSastYc_inline_refs_setter,"eval/ast","c-inline-refs-setter"); DEF(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); DEF(YevalSastYspecial_syntax_if,"eval/ast","special-syntax-if"); EXT(YevalSsyntaxYsexpr_block_body,"eval/syntax","sexpr-block-body"); EXT(YevalSsyntaxYDsexpr_macro_expand_tag,"eval/syntax","$sexpr-macro-expand-tag"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); DEF(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); DEF(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); DEF(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); DEF(YevalSastYDsexpr_define_static_syntax_tag,"eval/ast","$sexpr-define-static-syntax-tag"); DEF(YevalSastYapplication_function,"eval/ast","application-function"); DEF(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); DEF(YevalSastYLlocalsG,"eval/ast",""); DEF(YevalSastYobjectify_dynamic_definition,"eval/ast","objectify-dynamic-definition"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); DEF(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); DEF(YevalSastYprogram_type,"eval/ast","program-type"); DEF(YevalSastYDsexpr_use_mangle_module_tag,"eval/ast","$sexpr-use-mangle-module-tag"); DEF(YevalSastYspecial_c_ment,"eval/ast","special-c-ment"); DEF(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YevalSastYDfab_list_nul,"eval/ast","$fab-list-nul"); EXT(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); EXT(YevalSsyntaxYsexpr_prop_type,"eval/syntax","sexpr-prop-type"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YevalSsyntaxYsexpr_loc_bound_bodies,"eval/syntax","sexpr-loc-bound-bodies"); DEF(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooSsystemYtime,"goo/system","time"); DEF(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YevalSsyntaxYDsexpr_define_function_tag,"eval/syntax","$sexpr-define-function-tag"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); DEF(YevalSastYLinline_refsG,"eval/ast",""); DEF(YevalSastYobjectify_function_using,"eval/ast","objectify-function-using"); EXT(YOlit,"goo/boot","@lit"); DEF(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); DEF(YevalSastYDsexpr_c_ment_tag,"eval/ast","$sexpr-c-ment-tag"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); DEF(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); DEF(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); DEF(YevalSastYreference_binding_setter,"eval/ast","reference-binding-setter"); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); DEF(YevalSastYbinding_index,"eval/ast","binding-index"); DEF(YevalSastYreload_macros,"eval/ast","reload-macros"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YevalSsyntaxYsexpr_syntax_if_value,"eval/syntax","sexpr-syntax-if-value"); DEF(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); DEF(YevalSastYLfab_listG,"eval/ast",""); DEF(YevalSastYspecial_Praw,"eval/ast","special-%raw"); DEF(YevalSastYLmonitorG,"eval/ast",""); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); DEF(YevalSastYtransform_defs,"eval/ast","transform-defs"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); EXT(YevalSdependencyYDname_parse_dependency,"eval/dependency","$name-parse-dependency"); DEF(YevalSastYDfree_environment_nul,"eval/ast","$free-environment-nul"); DEF(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); DEF(YevalSastYDsexpr_boundQ_tag,"eval/ast","$sexpr-bound?-tag"); DEF(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); DEF(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); EXT(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); DEF(YevalSastYLprogramsG,"eval/ast",""); DEF(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); DEF(YevalSastYmodule_binding,"eval/ast","module-binding"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); DEF(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); DEF(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YevalSsyntaxYDsexpr_syntax_if_tag,"eval/syntax","$sexpr-syntax-if-tag"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YevalSsyntaxYDsexpr_define_class_tag,"eval/syntax","$sexpr-define-class-tag"); EXT(YevalSsyntaxYsexpr_isa_init_props,"eval/syntax","sexpr-isa-init-props"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); DEF(YevalSastYLassignmentG,"eval/ast",""); DEF(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); DEF(YevalSastYspecial_set,"eval/ast","special-set"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); DEF(YevalSastYinstall_magic_bindings,"eval/ast","install-magic-bindings"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); DEF(YevalSastYLpredefined_applicationG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YevalSsyntaxYsexpr_iterate_Gloc,"eval/syntax","sexpr-iterate->loc"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSsystemYfile_type,"goo/system","file-type"); DEF(YevalSastYfunction_kind,"eval/ast","function-kind"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); DEF(YevalSastYspecial_iterate,"eval/ast","special-iterate"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); DEF(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YevalSsyntaxYDsexpr_propX_tag,"eval/syntax","$sexpr-prop!-tag"); DEF(YevalSastYsplit_c_inline_vals,"eval/ast","split-c-inline-vals"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(YevalSsyntaxYDsexpr_define_generic_tag,"eval/syntax","$sexpr-define-generic-tag"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); DEF(YevalSastYLregular_applicationG,"eval/ast",""); DEF(YevalSastYspecial_macro_expand,"eval/ast","special-macro-expand"); EXT(YevalSsyntaxYsexpr_make_method,"eval/syntax","sexpr-make-method"); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); DEF(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); DEF(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); DEF(YevalSastYspecial_method,"eval/ast","special-method"); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); DEF(YevalSastYfunction_arity,"eval/ast","function-arity"); DEF(YevalSastYmonitor_handler_setter,"eval/ast","monitor-handler-setter"); DEF(YevalSastYLloop_applicationG,"eval/ast",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); DEF(YevalSastYftype,"eval/ast","ftype"); DEF(YevalSastYLfree_environmentG,"eval/ast",""); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); DEF(YevalSastYexpand_bind_list,"eval/ast","expand-bind-list"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); DEF(YevalSastYDsexpr_use_module_tag,"eval/ast","$sexpr-use-module-tag"); EXT(YevalSsyntaxYeval,"eval/syntax","eval"); EXT(YgooSmacrosYelt,"goo/macros","elt"); DEF(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); DEF(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); DEF(YevalSastYfunction_source,"eval/ast","function-source"); DEF(YevalSastYLraw_constantG,"eval/ast",""); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YevalSsyntaxYsexpr_operator,"eval/syntax","sexpr-operator"); EXT(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YevalSsyntaxYsexpr_function_definition_value,"eval/syntax","sexpr-function-definition-value"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(YevalSdependencyYdependency_or,"eval/dependency","dependency-or"); EXT(Yapp_filename,"goo/boot","app-filename"); DEF(YevalSastYspecial_define_dynamic,"eval/ast","special-define-dynamic"); EXT(YgooSmathYposQ,"goo/math","pos?"); DEF(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSsyntaxYDsexpr_method_tag,"eval/syntax","$sexpr-method-tag"); EXT(YevalSsyntaxYsexpr_signature_value,"eval/syntax","sexpr-signature-value"); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); DEF(YevalSastYLlow_letG,"eval/ast",""); DEF(YevalSastYspecial_begin,"eval/ast","special-begin"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); DEF(YevalSastYconstant_index_setter,"eval/ast","constant-index-setter"); EXT(YevalSsyntaxYsexpr_defQ,"eval/syntax","sexpr-def?"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(Ytype_class,"goo/boot","type-class"); DEF(YevalSastYDsequential_nul,"eval/ast","$sequential-nul"); EXT(YevalSsyntaxYsexpr_if_else,"eval/syntax","sexpr-if-else"); DEF(YevalSastYsequential,"eval/ast","sequential"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); DEF(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YPdispatch,"goo/boot","%dispatch"); DEF(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YevalSsyntaxYDsexpr_def_tag,"eval/syntax","$sexpr-def-tag"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSdependencyYDparse_dependencies,"eval/dependency","$parse-dependencies"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); DEF(YevalSastYspecial_define_class,"eval/ast","special-define-class"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); DEF(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); DEF(YevalSastYcompute_local_reference_offsets,"eval/ast","compute-local-reference-offsets"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); DEF(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); DEF(YevalSastYapplication_tailQ_setter,"eval/ast","application-tail?-setter"); DEF(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSsyntaxYsexpr_unquote_splicingQ,"eval/syntax","sexpr-unquote-splicing?"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); DEF(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); EXT(YLsubclassG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_forward_primitiveQ,"eval/syntax","sexpr-forward-primitive?"); DEF(YevalSastYalternative_condition_setter,"eval/ast","alternative-condition-setter"); EXT(YLchrG,"goo/boot",""); EXT(YevalSsyntaxYDsexpr_if_tag,"eval/syntax","$sexpr-if-tag"); DEF(YevalSastYLprogramG,"eval/ast",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); DEF(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); DEF(YevalSastYobjectify_useSexport_module,"eval/ast","objectify-use/export-module"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); DEF(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YevalSastYspecial_define,"eval/ast","special-define"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); EXT(YgooSsystemYLpathname_errorG,"goo/system",""); DEF(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); EXT(YevalSsyntaxYsexpr_block_name,"eval/syntax","sexpr-block-name"); DEF(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); DEF(YevalSastYLalternativeG,"eval/ast",""); DEF(YevalSastYspecial_unwind_protect,"eval/ast","special-unwind-protect"); DEF(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); DEF(YevalSastYfunction_adjectives_setter,"eval/ast","function-adjectives-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSsyntaxYsexpr_fab_getter,"eval/syntax","sexpr-fab-getter"); DEF(YevalSastYmonitor_info,"eval/ast","monitor-info"); DEF(YevalSastYobjectify_define_property,"eval/ast","objectify-define-property"); EXT(YgooSioSreadYget_standard_read_macro,"goo/io/read","get-standard-read-macro"); EXT(YLsingletonG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_prop_init_var,"eval/syntax","sexpr-prop-init-var"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); DEF(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); DEF(YevalSastYspecial_export,"eval/ast","special-export"); DEF(YevalSastYDsexpr_c_expr_tag,"eval/ast","$sexpr-c-expr-tag"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); DEF(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); DEF(YevalSastYfunction_free,"eval/ast","function-free"); DEF(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); DEF(YevalSastYTmacro_tracingQT,"eval/ast","*macro-tracing?*"); DEF(YevalSastYconstant_value_setter,"eval/ast","constant-value-setter"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); DEF(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); DEF(YevalSastYDfunctions_nul,"eval/ast","$functions-nul"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); DEF(YevalSastYfree_environment,"eval/ast","free-environment"); DEF(YevalSastYLast_methodG,"eval/ast",""); DEF(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); DEF(YevalSastYobjectify_list,"eval/ast","objectify-list"); EXT(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); DEF(YevalSastYspecial_prop,"eval/ast","special-prop"); DEF(YevalSastYinstall_interpreter_hacks,"eval/ast","install-interpreter-hacks"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); DEF(YevalSastYobjectify_free_global_reference,"eval/ast","objectify-free-global-reference"); EXT(YevalSsyntaxYsexpr_unwind_protect_cleanup_forms,"eval/syntax","sexpr-unwind-protect-cleanup-forms"); DEF(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSsyntaxYsexpr_assignment_variable,"eval/syntax","sexpr-assignment-variable"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); DEF(YevalSastYobjectify_symbol,"eval/ast","objectify-symbol"); DEF(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSdependencyYfind_dependency,"eval/dependency","find-dependency"); DEF(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); DEF(YevalSastYobjectify_boundQ,"eval/ast","objectify-bound?"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooSsystemYcomponents_last,"goo/system","components-last"); DEF(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); DEF(YevalSastYDarguments_nul,"eval/ast","$arguments-nul"); DEF(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YevalSsyntaxYsexpr_definition_value,"eval/syntax","sexpr-definition-value"); DEF(YevalSastYLpassive_programG,"eval/ast",""); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); DEF(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); DEF(YevalSastYspecial_quote,"eval/ast","special-quote"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); DEF(YevalSastYalternative_consequent_setter,"eval/ast","alternative-consequent-setter"); DEF(YevalSastYobjectify_export,"eval/ast","objectify-export"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); DEF(YevalSastYLlocal_bindingG,"eval/ast",""); DEF(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); DEF(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); DEF(YevalSastYr_extendT,"eval/ast","r-extend*"); DEF(YevalSastYobjectify_use_module,"eval/ast","objectify-use-module"); EXT(YevalSdependencyYDoptimizaton_dependencies,"eval/dependency","$optimizaton-dependencies"); DEF(YevalSastYunwind_protect_cleanup_thunk_setter,"eval/ast","unwind-protect-cleanup-thunk-setter"); DEF(YevalSastYLast_function_definitionG,"eval/ast",""); EXT(YevalSdependencyYinvalidate_dependents,"eval/dependency","invalidate-dependents"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); DEF(YevalSastYas_lst,"eval/ast","as-lst"); EXT(YevalSsyntaxYsexpr_function_body,"eval/syntax","sexpr-function-body"); DEF(YevalSastYLfunctionsG,"eval/ast",""); EXT(YevalSdependencyYlog_dependency,"eval/dependency","log-dependency"); DYNDEF(YevalSastYTcurrent_dependentT,"eval/ast","*current-dependent*"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); DEF(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); DEF(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); DEF(YevalSastYDsexpr_optionals_type_name,"eval/ast","$sexpr-optionals-type-name"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); DEF(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); DEF(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); DEF(YevalSastYLpredefined_referenceG,"eval/ast",""); EXT(YevalSsyntaxYsexpr_variable_type,"eval/syntax","sexpr-variable-type"); DEF(YevalSastYLreferenceG,"eval/ast",""); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); DEF(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); DEF(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); DEF(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); DEF(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YevalSsyntaxYsexpr_syntax_if_else,"eval/syntax","sexpr-syntax-if-else"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); DEF(YevalSastYprogram_line,"eval/ast","program-line"); DEF(YevalSastYspecial_compile_time_also,"eval/ast","special-compile-time-also"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); DEF(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalSsyntaxYDsexpr_define_syntax_tag,"eval/syntax","$sexpr-define-syntax-tag"); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); DEF(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YevalSsyntaxYsexpr_define_class_parents,"eval/syntax","sexpr-define-class-parents"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSsystemYso_load,"goo/system","so-load"); EXT(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YevalSsyntaxYsexpr_if_then,"eval/syntax","sexpr-if-then"); DEF(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YevalSsyntaxYsexpr_unquoteQ,"eval/syntax","sexpr-unquote?"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); DEF(YevalSastYfunction_index,"eval/ast","function-index"); DEF(YevalSastYspecial_bind_exit,"eval/ast","special-bind-exit"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); DEF(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); DEF(YevalSastYobjectify_function_definition,"eval/ast","objectify-function-definition"); DEF(YevalSastYbinding_reference_class,"eval/ast","binding-reference-class"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); DEF(YevalSastYsyntax_environment_excluded_bindings,"eval/ast","syntax-environment-excluded-bindings"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); DEF(YevalSastYDsexpr_compile_time_tag,"eval/ast","$sexpr-compile-time-tag"); DYNDEF(YevalSastYTrecord_sourceQT,"eval/ast","*record-source?*"); DEF(YevalSastYLvariable_definitionG,"eval/ast",""); DEF(YevalSastYobjectify_bind_exit,"eval/ast","objectify-bind-exit"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); DEF(YevalSastYspecial_use_library,"eval/ast","special-use-library"); EXT(YPtnul,"goo/boot","%tnul"); DEF(YevalSastYLast_errorG,"eval/ast",""); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); DEF(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); DEF(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); DEF(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); DEF(YevalSastYspecial_useSexport_module,"eval/ast","special-use/export-module"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); DEF(YevalSastYinit_runtime,"eval/ast","init-runtime"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); DEF(YevalSastYspecial_define_method,"eval/ast","special-define-method"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); DEF(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); DEF(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); DEF(YevalSastYpairize,"eval/ast","pairize"); DEF(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); DEF(YevalSastYast_copy,"eval/ast","ast-copy"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); DEF(YevalSastYreference_frame_number_setter,"eval/ast","reference-frame-number-setter"); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSsyntaxYDsexpr_bind_exit_tag,"eval/syntax","$sexpr-bind-exit-tag"); DEF(YevalSastYfunction_names,"eval/ast","function-names"); DEF(YevalSastYobjectify_function,"eval/ast","objectify-function"); DEF(YevalSastYobjectify_primitive_definition,"eval/ast","objectify-primitive-definition"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(Ynil,"goo/boot","nil"); DEF(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YevalSsyntaxYsexpr_syntax_definition_value,"eval/syntax","sexpr-syntax-definition-value"); EXT(YevalSsyntaxYDsexpr_quote_tag,"eval/syntax","$sexpr-quote-tag"); DEF(YevalSastYLfix_letG,"eval/ast",""); DEF(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); DEF(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YgooSfunctionalYalways,"goo/functional","always"); DEF(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); DEF(YevalSastYspecial_c_expr,"eval/ast","special-c-expr"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); DEF(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); DEF(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); DEF(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); DEF(YevalSastYexpand_pattern,"eval/ast","expand-pattern"); DEF(YevalSastYDsexpr_useSexport_module_tag,"eval/ast","$sexpr-use/export-module-tag"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YevalSdependencyYLdependableG,"eval/dependency",""); DEF(YevalSastYobjectify_assignment_using,"eval/ast","objectify-assignment-using"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); DEF(YevalSastYspecial_boundQ,"eval/ast","special-bound?"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); DEF(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSsystemYfile_mtime,"goo/system","file-mtime"); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); DEF(YevalSastYspecial_propX,"eval/ast","special-prop!"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); DEF(YevalSastYarguments,"eval/ast","arguments"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YevalSsyntaxYsexpr_prop_init,"eval/syntax","sexpr-prop-init"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_prop_owner,"eval/syntax","sexpr-prop-owner"); EXT(YevalSmoduleYLmoduleG,"eval/module",""); DEF(YevalSastYalternative_alternant_setter,"eval/ast","alternative-alternant-setter"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); DEF(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); DEF(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(Yclass_row,"goo/boot","class-row"); DEF(YevalSastYspecial_quasiquote,"eval/ast","special-quasiquote"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); DEF(YevalSastYassignment_reference_setter,"eval/ast","assignment-reference-setter"); DEF(YevalSastYapplication_arguments,"eval/ast","application-arguments"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_675); DEFLIT(lit_71); DEFLIT(lit_668); DEFLIT(lit_809); DEFLIT(lit_632); DEFLIT(lit_197); DEFLIT(lit_15); DEFLIT(lit_426); DEFLIT(lit_429); DEFLIT(lit_693); DEFLIT(lit_648); DEFLIT(lit_69); DEFLIT(lit_747); DEFLIT(lit_207); DEFLIT(lit_196); DEFLIT(lit_610); DEFLIT(lit_5); DEFLIT(lit_136); DEFLIT(lit_156); DEFLIT(lit_28); DEFLIT(lit_555); DEFLIT(lit_380); DEFLIT(lit_836); DEFLIT(lit_173); DEFLIT(lit_478); DEFLIT(lit_639); DEFLIT(lit_75); DEFLIT(lit_584); DEFLIT(lit_735); DEFLIT(lit_563); DEFLIT(lit_773); DEFLIT(lit_470); DEFLIT(lit_298); DEFLIT(lit_364); DEFLIT(lit_435); DEFLIT(lit_549); DEFLIT(lit_448); DEFLIT(lit_776); DEFLIT(lit_522); DEFLIT(lit_264); DEFLIT(lit_678); DEFLIT(lit_475); DEFLIT(lit_336); DEFLIT(lit_491); DEFLIT(lit_330); DEFLIT(lit_183); DEFLIT(lit_616); DEFLIT(lit_158); DEFLIT(lit_642); DEFLIT(lit_785); DEFLIT(lit_800); DEFLIT(lit_245); DEFLIT(lit_210); DEFLIT(lit_649); DEFLIT(lit_209); DEFLIT(lit_6); DEFLIT(lit_220); DEFLIT(lit_350); DEFLIT(lit_627); DEFLIT(lit_404); DEFLIT(lit_661); DEFLIT(lit_122); DEFLIT(lit_738); DEFLIT(lit_511); DEFLIT(lit_44); DEFLIT(lit_722); DEFLIT(lit_288); DEFLIT(lit_37); DEFLIT(lit_188); DEFLIT(lit_161); DEFLIT(lit_603); DEFLIT(lit_700); DEFLIT(lit_337); DEFLIT(lit_233); DEFLIT(lit_657); DEFLIT(lit_754); DEFLIT(lit_403); DEFLIT(lit_146); DEFLIT(lit_818); DEFLIT(lit_655); DEFLIT(lit_752); DEFLIT(lit_93); DEFLIT(lit_594); DEFLIT(lit_708); DEFLIT(lit_61); DEFLIT(lit_165); DEFLIT(lit_87); DEFLIT(lit_181); DEFLIT(lit_212); DEFLIT(lit_223); DEFLIT(lit_660); DEFLIT(lit_772); DEFLIT(lit_238); DEFLIT(lit_121); DEFLIT(lit_235); DEFLIT(lit_503); DEFLIT(lit_750); DEFLIT(lit_828); DEFLIT(lit_634); DEFLIT(lit_357); DEFLIT(lit_842); DEFLIT(lit_601); DEFLIT(lit_760); DEFLIT(lit_799); DEFLIT(lit_41); DEFLIT(lit_751); DEFLIT(lit_92); DEFLIT(lit_686); DEFLIT(lit_731); DEFLIT(lit_80); DEFLIT(lit_737); DEFLIT(lit_712); DEFLIT(lit_458); DEFLIT(lit_455); DEFLIT(lit_674); DEFLIT(lit_562); DEFLIT(lit_664); DEFLIT(lit_94); DEFLIT(lit_392); DEFLIT(lit_815); DEFLIT(lit_548); DEFLIT(lit_216); DEFLIT(lit_128); DEFLIT(lit_545); DEFLIT(lit_78); DEFLIT(lit_641); DEFLIT(lit_770); DEFLIT(lit_535); DEFLIT(lit_794); DEFLIT(lit_697); DEFLIT(lit_54); DEFLIT(lit_501); DEFLIT(lit_780); DEFLIT(lit_242); DEFLIT(lit_365); DEFLIT(lit_290); DEFLIT(lit_341); DEFLIT(lit_485); DEFLIT(lit_793); DEFLIT(lit_342); DEFLIT(lit_1); DEFLIT(lit_685); DEFLIT(lit_781); DEFLIT(lit_703); DEFLIT(lit_575); DEFLIT(lit_284); DEFLIT(lit_665); DEFLIT(lit_498); DEFLIT(lit_643); DEFLIT(lit_744); DEFLIT(lit_114); DEFLIT(lit_447); DEFLIT(lit_416); DEFLIT(lit_149); DEFLIT(lit_275); DEFLIT(lit_185); DEFLIT(lit_806); DEFLIT(lit_777); DEFLIT(lit_205); DEFLIT(lit_396); DEFLIT(lit_554); DEFLIT(lit_573); DEFLIT(lit_759); DEFLIT(lit_118); DEFLIT(lit_254); DEFLIT(lit_108); DEFLIT(lit_390); DEFLIT(lit_95); DEFLIT(lit_742); DEFLIT(lit_359); DEFLIT(lit_471); DEFLIT(lit_571); DEFLIT(lit_684); DEFLIT(lit_823); DEFLIT(lit_637); DEFLIT(lit_273); DEFLIT(lit_437); DEFLIT(lit_112); DEFLIT(lit_654); DEFLIT(lit_7); DEFLIT(lit_105); DEFLIT(lit_441); DEFLIT(lit_829); DEFLIT(lit_88); DEFLIT(lit_213); DEFLIT(lit_27); DEFLIT(lit_835); DEFLIT(lit_580); DEFLIT(lit_561); DEFLIT(lit_600); DEFLIT(lit_698); DEFLIT(lit_621); DEFLIT(lit_226); DEFLIT(lit_391); DEFLIT(lit_432); DEFLIT(lit_452); DEFLIT(lit_528); DEFLIT(lit_574); DEFLIT(lit_516); DEFLIT(lit_81); DEFLIT(lit_442); DEFLIT(lit_517); DEFLIT(lit_9); DEFLIT(lit_667); DEFLIT(lit_360); DEFLIT(lit_808); DEFLIT(lit_326); DEFLIT(lit_541); DEFLIT(lit_177); DEFLIT(lit_430); DEFLIT(lit_417); DEFLIT(lit_145); DEFLIT(lit_329); DEFLIT(lit_465); DEFLIT(lit_512); DEFLIT(lit_827); DEFLIT(lit_495); DEFLIT(lit_626); DEFLIT(lit_841); DEFLIT(lit_195); DEFLIT(lit_720); DEFLIT(lit_407); DEFLIT(lit_608); DEFLIT(lit_32); DEFLIT(lit_670); DEFLIT(lit_622); DEFLIT(lit_370); DEFLIT(lit_591); DEFLIT(lit_124); DEFLIT(lit_271); DEFLIT(lit_21); DEFLIT(lit_56); DEFLIT(lit_312); DEFLIT(lit_710); DEFLIT(lit_846); DEFLIT(lit_144); DEFLIT(lit_607); DEFLIT(lit_84); DEFLIT(lit_459); DEFLIT(lit_702); DEFLIT(lit_262); DEFLIT(lit_283); DEFLIT(lit_171); DEFLIT(lit_659); DEFLIT(lit_479); DEFLIT(lit_612); DEFLIT(lit_255); DEFLIT(lit_537); DEFLIT(lit_587); DEFLIT(lit_676); DEFLIT(lit_798); DEFLIT(lit_167); DEFLIT(lit_476); DEFLIT(lit_174); DEFLIT(lit_741); DEFLIT(lit_748); DEFLIT(lit_763); DEFLIT(lit_402); DEFLIT(lit_68); DEFLIT(lit_4); DEFLIT(lit_788); DEFLIT(lit_663); DEFLIT(lit_662); DEFLIT(lit_258); DEFLIT(lit_725); DEFLIT(lit_299); DEFLIT(lit_116); DEFLIT(lit_18); DEFLIT(lit_76); DEFLIT(lit_129); DEFLIT(lit_178); DEFLIT(lit_577); DEFLIT(lit_534); DEFLIT(lit_53); DEFLIT(lit_539); DEFLIT(lit_314); DEFLIT(lit_609); DEFLIT(lit_624); DEFLIT(lit_85); DEFLIT(lit_784); DEFLIT(lit_346); DEFLIT(lit_733); DEFLIT(lit_334); DEFLIT(lit_638); DEFLIT(lit_625); DEFLIT(lit_34); DEFLIT(lit_690); DEFLIT(lit_558); DEFLIT(lit_505); DEFLIT(lit_377); DEFLIT(lit_449); DEFLIT(lit_689); DEFLIT(lit_241); DEFLIT(lit_310); DEFLIT(lit_436); DEFLIT(lit_349); DEFLIT(lit_619); DEFLIT(lit_295); DEFLIT(lit_481); DEFLIT(lit_629); DEFLIT(lit_103); DEFLIT(lit_107); DEFLIT(lit_46); DEFLIT(lit_401); DEFLIT(lit_135); DEFLIT(lit_596); DEFLIT(lit_569); DEFLIT(lit_486); DEFLIT(lit_378); DEFLIT(lit_673); DEFLIT(lit_682); DEFLIT(lit_671); DEFLIT(lit_595); DEFLIT(lit_358); DEFLIT(lit_182); DEFLIT(lit_101); DEFLIT(lit_510); DEFLIT(lit_559); DEFLIT(lit_215); DEFLIT(lit_140); DEFLIT(lit_297); DEFLIT(lit_779); DEFLIT(lit_319); DEFLIT(lit_43); DEFLIT(lit_576); DEFLIT(lit_462); DEFLIT(lit_308); DEFLIT(lit_222); DEFLIT(lit_723); DEFLIT(lit_732); DEFLIT(lit_48); DEFLIT(lit_321); DEFLIT(lit_130); DEFLIT(lit_728); DEFLIT(lit_106); DEFLIT(lit_70); DEFLIT(lit_500); DEFLIT(lit_413); DEFLIT(lit_214); DEFLIT(lit_816); DEFLIT(lit_565); DEFLIT(lit_307); DEFLIT(lit_832); DEFLIT(lit_589); DEFLIT(lit_443); DEFLIT(lit_473); DEFLIT(lit_727); DEFLIT(lit_736); DEFLIT(lit_509); DEFLIT(lit_302); DEFLIT(lit_820); DEFLIT(lit_466); DEFLIT(lit_633); DEFLIT(lit_628); DEFLIT(lit_769); DEFLIT(lit_38); DEFLIT(lit_821); DEFLIT(lit_583); DEFLIT(lit_142); DEFLIT(lit_813); DEFLIT(lit_244); DEFLIT(lit_286); DEFLIT(lit_371); DEFLIT(lit_234); DEFLIT(lit_709); DEFLIT(lit_529); DEFLIT(lit_454); DEFLIT(lit_376); DEFLIT(lit_420); DEFLIT(lit_347); DEFLIT(lit_354); DEFLIT(lit_340); DEFLIT(lit_630); DEFLIT(lit_833); DEFLIT(lit_186); DEFLIT(lit_593); DEFLIT(lit_36); DEFLIT(lit_282); DEFLIT(lit_506); DEFLIT(lit_819); DEFLIT(lit_802); DEFLIT(lit_480); DEFLIT(lit_35); DEFLIT(lit_753); DEFLIT(lit_653); DEFLIT(lit_289); DEFLIT(lit_414); DEFLIT(lit_469); DEFLIT(lit_730); DEFLIT(lit_411); DEFLIT(lit_137); DEFLIT(lit_268); DEFLIT(lit_253); DEFLIT(lit_316); DEFLIT(lit_134); DEFLIT(lit_328); DEFLIT(lit_224); DEFLIT(lit_552); DEFLIT(lit_368); DEFLIT(lit_717); DEFLIT(lit_460); DEFLIT(lit_783); DEFLIT(lit_318); DEFLIT(lit_706); DEFLIT(lit_538); DEFLIT(lit_490); DEFLIT(lit_431); DEFLIT(lit_692); DEFLIT(lit_296); DEFLIT(lit_461); DEFLIT(lit_261); DEFLIT(lit_680); DEFLIT(lit_293); DEFLIT(lit_758); DEFLIT(lit_276); DEFLIT(lit_807); DEFLIT(lit_331); DEFLIT(lit_52); DEFLIT(lit_77); DEFLIT(lit_614); DEFLIT(lit_381); DEFLIT(lit_560); DEFLIT(lit_82); DEFLIT(lit_294); DEFLIT(lit_696); DEFLIT(lit_605); DEFLIT(lit_839); DEFLIT(lit_305); DEFLIT(lit_631); DEFLIT(lit_845); DEFLIT(lit_164); DEFLIT(lit_126); DEFLIT(lit_504); DEFLIT(lit_400); DEFLIT(lit_109); DEFLIT(lit_22); DEFLIT(lit_64); DEFLIT(lit_74); DEFLIT(lit_666); DEFLIT(lit_745); DEFLIT(lit_67); DEFLIT(lit_217); DEFLIT(lit_499); DEFLIT(lit_592); DEFLIT(lit_768); DEFLIT(lit_597); DEFLIT(lit_287); DEFLIT(lit_389); DEFLIT(lit_749); DEFLIT(lit_65); DEFLIT(lit_579); DEFLIT(lit_150); DEFLIT(lit_39); DEFLIT(lit_428); DEFLIT(lit_492); DEFLIT(lit_422); DEFLIT(lit_379); DEFLIT(lit_567); DEFLIT(lit_515); DEFLIT(lit_540); DEFLIT(lit_190); DEFLIT(lit_189); DEFLIT(lit_408); DEFLIT(lit_433); DEFLIT(lit_55); DEFLIT(lit_324); DEFLIT(lit_132); DEFLIT(lit_86); DEFLIT(lit_248); DEFLIT(lit_740); DEFLIT(lit_304); DEFLIT(lit_669); DEFLIT(lit_585); DEFLIT(lit_66); DEFLIT(lit_79); DEFLIT(lit_98); DEFLIT(lit_677); DEFLIT(lit_812); DEFLIT(lit_14); DEFLIT(lit_604); DEFLIT(lit_143); DEFLIT(lit_444); DEFLIT(lit_521); DEFLIT(lit_363); DEFLIT(lit_551); DEFLIT(lit_711); DEFLIT(lit_817); DEFLIT(lit_767); DEFLIT(lit_127); DEFLIT(lit_488); DEFLIT(lit_13); DEFLIT(lit_840); DEFLIT(lit_831); DEFLIT(lit_269); DEFLIT(lit_427); DEFLIT(lit_24); DEFLIT(lit_775); DEFLIT(lit_453); DEFLIT(lit_445); DEFLIT(lit_232); DEFLIT(lit_251); DEFLIT(lit_423); DEFLIT(lit_519); DEFLIT(lit_29); DEFLIT(lit_446); DEFLIT(lit_90); DEFLIT(lit_518); DEFLIT(lit_438); DEFLIT(lit_397); DEFLIT(lit_12); DEFLIT(lit_766); DEFLIT(lit_716); DEFLIT(lit_524); DEFLIT(lit_508); DEFLIT(lit_96); DEFLIT(lit_796); DEFLIT(lit_133); DEFLIT(lit_645); DEFLIT(lit_267); DEFLIT(lit_620); DEFLIT(lit_344); DEFLIT(lit_243); DEFLIT(lit_705); DEFLIT(lit_240); DEFLIT(lit_138); DEFLIT(lit_47); DEFLIT(lit_803); DEFLIT(lit_49); DEFLIT(lit_640); DEFLIT(lit_623); DEFLIT(lit_771); DEFLIT(lit_252); DEFLIT(lit_762); DEFLIT(lit_125); DEFLIT(lit_33); DEFLIT(lit_439); DEFLIT(lit_62); DEFLIT(lit_789); DEFLIT(lit_202); DEFLIT(lit_656); DEFLIT(lit_672); DEFLIT(lit_646); DEFLIT(lit_699); DEFLIT(lit_157); DEFLIT(lit_715); DEFLIT(lit_644); DEFLIT(lit_757); DEFLIT(lit_713); DEFLIT(lit_83); DEFLIT(lit_691); DEFLIT(lit_782); DEFLIT(lit_830); DEFLIT(lit_383); DEFLIT(lit_463); DEFLIT(lit_317); DEFLIT(lit_566); DEFLIT(lit_237); DEFLIT(lit_525); DEFLIT(lit_694); DEFLIT(lit_119); DEFLIT(lit_115); DEFLIT(lit_421); DEFLIT(lit_721); DEFLIT(lit_25); DEFLIT(lit_844); DEFLIT(lit_553); DEFLIT(lit_170); DEFLIT(lit_362); DEFLIT(lit_131); DEFLIT(lit_399); DEFLIT(lit_683); DEFLIT(lit_162); DEFLIT(lit_513); DEFLIT(lit_679); DEFLIT(lit_834); DEFLIT(lit_325); DEFLIT(lit_572); DEFLIT(lit_180); DEFLIT(lit_218); DEFLIT(lit_323); DEFLIT(lit_394); DEFLIT(lit_201); DEFLIT(lit_315); DEFLIT(lit_198); DEFLIT(lit_704); DEFLIT(lit_327); DEFLIT(lit_26); DEFLIT(lit_618); DEFLIT(lit_375); DEFLIT(lit_104); DEFLIT(lit_309); DEFLIT(lit_801); DEFLIT(lit_472); DEFLIT(lit_176); DEFLIT(lit_484); DEFLIT(lit_557); DEFLIT(lit_507); DEFLIT(lit_23); DEFLIT(lit_89); DEFLIT(lit_8); DEFLIT(lit_151); DEFLIT(lit_42); DEFLIT(lit_225); DEFLIT(lit_147); DEFLIT(lit_714); DEFLIT(lit_636); DEFLIT(lit_792); DEFLIT(lit_168); DEFLIT(lit_826); DEFLIT(lit_418); DEFLIT(lit_746); DEFLIT(lit_231); DEFLIT(lit_154); DEFLIT(lit_457); DEFLIT(lit_496); DEFLIT(lit_20); DEFLIT(lit_756); DEFLIT(lit_388); DEFLIT(lit_468); DEFLIT(lit_615); DEFLIT(lit_270); DEFLIT(lit_203); DEFLIT(lit_739); DEFLIT(lit_263); DEFLIT(lit_405); DEFLIT(lit_611); DEFLIT(lit_434); DEFLIT(lit_477); DEFLIT(lit_598); DEFLIT(lit_687); DEFLIT(lit_778); DEFLIT(lit_546); DEFLIT(lit_568); DEFLIT(lit_790); DEFLIT(lit_536); DEFLIT(lit_795); DEFLIT(lit_192); DEFLIT(lit_211); DEFLIT(lit_467); DEFLIT(lit_50); DEFLIT(lit_51); DEFLIT(lit_398); DEFLIT(lit_99); DEFLIT(lit_193); DEFLIT(lit_487); DEFLIT(lit_97); DEFLIT(lit_200); DEFLIT(lit_191); DEFLIT(lit_260); DEFLIT(lit_493); DEFLIT(lit_412); DEFLIT(lit_374); DEFLIT(lit_303); DEFLIT(lit_2); DEFLIT(lit_356); DEFLIT(lit_63); DEFLIT(lit_824); DEFLIT(lit_58); DEFLIT(lit_227); DEFLIT(lit_352); DEFLIT(lit_635); DEFLIT(lit_718); DEFLIT(lit_837); DEFLIT(lit_30); DEFLIT(lit_111); DEFLIT(lit_3); DEFLIT(lit_578); DEFLIT(lit_179); DEFLIT(lit_345); DEFLIT(lit_366); DEFLIT(lit_483); DEFLIT(lit_117); DEFLIT(lit_532); DEFLIT(lit_10); DEFLIT(lit_847); DEFLIT(lit_72); DEFLIT(lit_369); DEFLIT(lit_199); DEFLIT(lit_355); DEFLIT(lit_367); DEFLIT(lit_73); DEFLIT(lit_761); DEFLIT(lit_160); DEFLIT(lit_606); DEFLIT(lit_805); DEFLIT(lit_219); DEFLIT(lit_91); DEFLIT(lit_791); DEFLIT(lit_729); DEFLIT(lit_228); DEFLIT(lit_387); DEFLIT(lit_384); DEFLIT(lit_102); DEFLIT(lit_194); DEFLIT(lit_613); DEFLIT(lit_386); DEFLIT(lit_406); DEFLIT(lit_372); DEFLIT(lit_280); DEFLIT(lit_787); DEFLIT(lit_272); DEFLIT(lit_811); DEFLIT(lit_764); DEFLIT(lit_726); DEFLIT(lit_348); DEFLIT(lit_838); DEFLIT(lit_843); DEFLIT(lit_285); DEFLIT(lit_658); DEFLIT(lit_322); DEFLIT(lit_311); DEFLIT(lit_786); DEFLIT(lit_755); DEFLIT(lit_100); DEFLIT(lit_533); DEFLIT(lit_651); DEFLIT(lit_814); DEFLIT(lit_765); DEFLIT(lit_542); DEFLIT(lit_208); DEFLIT(lit_543); DEFLIT(lit_187); DEFLIT(lit_155); DEFLIT(lit_239); DEFLIT(lit_335); DEFLIT(lit_526); DEFLIT(lit_489); DEFLIT(lit_351); DEFLIT(lit_617); DEFLIT(lit_602); DEFLIT(lit_719); DEFLIT(lit_825); DEFLIT(lit_246); DEFLIT(lit_45); DEFLIT(lit_550); DEFLIT(lit_57); DEFLIT(lit_247); DEFLIT(lit_320); DEFLIT(lit_256); DEFLIT(lit_520); DEFLIT(lit_523); DEFLIT(lit_277); DEFLIT(lit_60); DEFLIT(lit_464); DEFLIT(lit_440); DEFLIT(lit_556); DEFLIT(lit_11); DEFLIT(lit_353); DEFLIT(lit_19); DEFLIT(lit_586); DEFLIT(lit_221); DEFLIT(lit_175); DEFLIT(lit_424); DEFLIT(lit_123); DEFLIT(lit_230); DEFLIT(lit_385); DEFLIT(lit_450); DEFLIT(lit_343); DEFLIT(lit_527); DEFLIT(lit_206); DEFLIT(lit_588); DEFLIT(lit_333); DEFLIT(lit_652); DEFLIT(lit_249); DEFLIT(lit_184); DEFLIT(lit_16); DEFLIT(lit_113); DEFLIT(lit_265); DEFLIT(lit_564); DEFLIT(lit_361); DEFLIT(lit_530); DEFLIT(lit_688); DEFLIT(lit_681); DEFLIT(lit_281); DEFLIT(lit_695); DEFLIT(lit_169); DEFLIT(lit_707); DEFLIT(lit_743); DEFLIT(lit_148); DEFLIT(lit_259); DEFLIT(lit_292); DEFLIT(lit_250); DEFLIT(lit_590); DEFLIT(lit_278); DEFLIT(lit_204); DEFLIT(lit_797); DEFLIT(lit_110); DEFLIT(lit_266); DEFLIT(lit_300); DEFLIT(lit_547); DEFLIT(lit_279); DEFLIT(lit_804); DEFLIT(lit_724); DEFLIT(lit_502); DEFLIT(lit_274); DEFLIT(lit_701); DEFLIT(lit_482); DEFLIT(lit_419); DEFLIT(lit_822); DEFLIT(lit_415); DEFLIT(lit_514); DEFLIT(lit_332); DEFLIT(lit_17); DEFLIT(lit_291); DEFLIT(lit_582); DEFLIT(lit_425); DEFLIT(lit_306); DEFLIT(lit_409); DEFLIT(lit_313); DEFLIT(lit_393); DEFLIT(lit_120); DEFLIT(lit_451); DEFLIT(lit_59); DEFLIT(lit_301); DEFLIT(lit_810); DEFLIT(lit_0); DEFLIT(lit_40); DEFLIT(lit_494); DEFLIT(lit_373); DEFLIT(lit_339); DEFLIT(lit_152); DEFLIT(lit_570); DEFLIT(lit_410); DEFLIT(lit_163); DEFLIT(lit_257); DEFLIT(lit_774); DEFLIT(lit_599); DEFLIT(lit_581); DEFLIT(lit_141); DEFLIT(lit_31); DEFLIT(lit_544); DEFLIT(lit_236); DEFLIT(lit_139); DEFLIT(lit_382); DEFLIT(lit_395); DEFLIT(lit_456); DEFLIT(lit_474); DEFLIT(lit_166); DEFLIT(lit_734); DEFLIT(lit_153); DEFLIT(lit_647); DEFLIT(lit_172); DEFLIT(lit_531); DEFLIT(lit_338); DEFLIT(lit_229); DEFLIT(lit_650); DEFLIT(lit_159); DEFLIT(lit_497); /* FUNCTIONS: */ LOCFOR(fun_x_1498_0); LOCFOR(fun_1); LOCFOR(fun_2); LOCFOR(fun_ast_error_3); LOCFOR(fun_program_type_4); LOCFOR(fun_program_type_setter_5); LOCFOR(fun_6); LOCFOR(fun_program_line_7); LOCFOR(fun_program_line_setter_8); LOCFOR(fun_9); LOCFOR(fun_program_register_10); LOCFOR(fun_program_register_setter_11); LOCFOR(fun_12); LOCFOR(fun_binding_value_13); LOCFOR(fun_binding_value_setter_14); LOCFOR(fun_15); LOCFOR(fun_binding_mutableQ_16); LOCFOR(fun_binding_mutableQ_setter_17); LOCFOR(fun_18); LOCFOR(fun_binding_dynamic_extentQ_19); LOCFOR(fun_binding_dynamic_extentQ_setter_20); LOCFOR(fun_21); LOCFOR(fun_binding_dottedQ_22); LOCFOR(fun_binding_dottedQ_setter_23); LOCFOR(fun_24); LOCFOR(fun_binding_closed_overQ_25); LOCFOR(fun_binding_closed_overQ_setter_26); LOCFOR(fun_27); LOCFOR(fun_binding_index_28); LOCFOR(fun_binding_index_setter_29); LOCFOR(fun_30); LOCFOR(fun_compile_time_program_31); LOCFOR(fun_compile_time_program_setter_32); LOCFOR(fun_reference_binding_33); LOCFOR(fun_reference_binding_setter_34); LOCFOR(fun_reference_called_functionQ_35); LOCFOR(fun_reference_called_functionQ_setter_36); LOCFOR(fun_37); LOCFOR(fun_reference_frame_number_38); LOCFOR(fun_reference_frame_number_setter_39); LOCFOR(fun_reference_frame_offset_40); LOCFOR(fun_reference_frame_offset_setter_41); LOCFOR(fun_boundQ_reference_42); LOCFOR(fun_boundQ_reference_setter_43); LOCFOR(fun_boundQ_default_44); LOCFOR(fun_boundQ_default_setter_45); LOCFOR(fun_assignment_form_46); LOCFOR(fun_assignment_form_setter_47); LOCFOR(fun_assignment_reference_48); LOCFOR(fun_assignment_reference_setter_49); LOCFOR(fun_assignment_binding_50); LOCFOR(fun_assignment_binding_setter_51); LOCFOR(fun_signature_bindings_52); LOCFOR(fun_signature_bindings_setter_53); LOCFOR(fun_54); LOCFOR(fun_signature_names_55); LOCFOR(fun_signature_names_setter_56); LOCFOR(fun_57); LOCFOR(fun_signature_specs_58); LOCFOR(fun_signature_specs_setter_59); LOCFOR(fun_60); LOCFOR(fun_signature_naryQ_61); LOCFOR(fun_signature_naryQ_setter_62); LOCFOR(fun_63); LOCFOR(fun_signature_arity_64); LOCFOR(fun_signature_arity_setter_65); LOCFOR(fun_66); LOCFOR(fun_signature_value_67); LOCFOR(fun_signature_value_setter_68); LOCFOR(fun_69); LOCFOR(fun_req_sig_specs_70); LOCFOR(fun_function_binding_71); LOCFOR(fun_function_binding_setter_72); LOCFOR(fun_73); LOCFOR(fun_function_debug_name_74); LOCFOR(fun_function_debug_name_setter_75); LOCFOR(fun_76); LOCFOR(fun_function_signature_77); LOCFOR(fun_function_signature_setter_78); FUNFOR(YevalSastYfunction_bindings); FUNFOR(YevalSastYfunction_names); FUNFOR(YevalSastYfunction_specs); FUNFOR(YevalSastYfunction_naryQ); FUNFOR(YevalSastYfunction_arity); FUNFOR(YevalSastYfunction_value); LOCFOR(fun_function_kind_85); FUNFOR(YevalSastYfunction_display_name); LOCFOR(fun_invalidate_dependent_87); LOCFOR(fun_as_lst_88); LOCFOR(fun_x_1504_89); LOCFOR(fun_90); LOCFOR(fun_91); LOCFOR(fun_function_body_92); LOCFOR(fun_function_body_setter_93); LOCFOR(fun_94); LOCFOR(fun_function_index_95); LOCFOR(fun_function_index_setter_96); LOCFOR(fun_97); LOCFOR(fun_function_temporaries_98); LOCFOR(fun_function_temporaries_setter_99); LOCFOR(fun_100); LOCFOR(fun_function_registers_101); LOCFOR(fun_function_registers_setter_102); LOCFOR(fun_103); LOCFOR(fun_function_loop_104); LOCFOR(fun_function_loop_setter_105); LOCFOR(fun_106); LOCFOR(fun_function_source_107); LOCFOR(fun_function_source_setter_108); LOCFOR(fun_109); LOCFOR(fun_function_frame_len_110); LOCFOR(fun_function_frame_len_setter_111); LOCFOR(fun_112); LOCFOR(fun_function_adjectives_113); LOCFOR(fun_function_adjectives_setter_114); LOCFOR(fun_115); FUNFOR(YevalSastYfree_environment); LOCFOR(fun_nul_117); LOCFOR(fun_function_ref_count_118); LOCFOR(fun_function_ref_count_setter_119); LOCFOR(fun_120); LOCFOR(fun_function_free_121); LOCFOR(fun_function_free_setter_122); LOCFOR(fun_123); LOCFOR(fun_incf_ref_count_124); LOCFOR(fun_incf_ref_count_125); LOCFOR(fun_function_kind_126); LOCFOR(fun_function_kind_127); LOCFOR(fun_function_kind_128); LOCFOR(fun_alternative_condition_129); LOCFOR(fun_alternative_condition_setter_130); LOCFOR(fun_alternative_consequent_131); LOCFOR(fun_alternative_consequent_setter_132); LOCFOR(fun_alternative_alternant_133); LOCFOR(fun_alternative_alternant_setter_134); LOCFOR(fun_loop_bindings_135); LOCFOR(fun_loop_bindings_setter_136); LOCFOR(fun_loop_body_137); LOCFOR(fun_loop_body_setter_138); LOCFOR(fun_loop_continue_139); LOCFOR(fun_loop_continue_setter_140); LOCFOR(fun_141); FUNFOR(YevalSastYsequential); LOCFOR(fun_nul_143); LOCFOR(fun_constant_value_144); LOCFOR(fun_constant_value_setter_145); LOCFOR(fun_constant_index_146); LOCFOR(fun_constant_index_setter_147); LOCFOR(fun_application_arguments_148); LOCFOR(fun_application_arguments_setter_149); LOCFOR(fun_application_tailQ_150); LOCFOR(fun_application_tailQ_setter_151); LOCFOR(fun_152); LOCFOR(fun_application_loop_153); LOCFOR(fun_application_loop_setter_154); LOCFOR(fun_application_tailQ_155); LOCFOR(fun_application_function_156); LOCFOR(fun_application_function_setter_157); LOCFOR(fun_application_knownQ_158); LOCFOR(fun_application_knownQ_setter_159); LOCFOR(fun_160); LOCFOR(fun_application_next_methods_161); LOCFOR(fun_application_next_methods_setter_162); LOCFOR(fun_application_knownQ_163); LOCFOR(fun_application_binding_164); LOCFOR(fun_application_binding_setter_165); LOCFOR(fun_fix_let_bindings_166); LOCFOR(fun_fix_let_bindings_setter_167); LOCFOR(fun_fix_let_types_168); LOCFOR(fun_fix_let_types_setter_169); LOCFOR(fun_fix_let_arguments_170); LOCFOR(fun_fix_let_arguments_setter_171); LOCFOR(fun_fix_let_body_172); LOCFOR(fun_fix_let_body_setter_173); FUNFOR(YevalSastYfab_list); LOCFOR(fun_nul_175); FUNFOR(YevalSastYarguments); LOCFOR(fun_nul_177); LOCFOR(fun_locals_bindings_178); LOCFOR(fun_locals_bindings_setter_179); LOCFOR(fun_locals_functions_180); LOCFOR(fun_locals_functions_setter_181); LOCFOR(fun_locals_body_182); LOCFOR(fun_locals_body_setter_183); FUNFOR(YevalSastYinline_refs); LOCFOR(fun_nul_185); LOCFOR(fun_c_inline_refs_186); LOCFOR(fun_c_inline_refs_setter_187); LOCFOR(fun_c_inline_strs_188); LOCFOR(fun_c_inline_strs_setter_189); LOCFOR(fun_c_inline_exprQ_190); LOCFOR(fun_c_inline_exprQ_setter_191); LOCFOR(fun_192); LOCFOR(fun_bind_exit_main_fun_193); LOCFOR(fun_bind_exit_main_fun_setter_194); LOCFOR(fun_bind_exit_lightQ_195); LOCFOR(fun_bind_exit_lightQ_setter_196); LOCFOR(fun_197); LOCFOR(fun_unwind_protect_protected_thunk_198); LOCFOR(fun_unwind_protect_protected_thunk_setter_199); LOCFOR(fun_unwind_protect_cleanup_thunk_200); LOCFOR(fun_unwind_protect_cleanup_thunk_setter_201); LOCFOR(fun_monitor_type_202); LOCFOR(fun_monitor_type_setter_203); LOCFOR(fun_monitor_info_204); LOCFOR(fun_monitor_info_setter_205); LOCFOR(fun_monitor_test_206); LOCFOR(fun_monitor_test_setter_207); LOCFOR(fun_monitor_handler_208); LOCFOR(fun_monitor_handler_setter_209); LOCFOR(fun_monitor_main_thunk_210); LOCFOR(fun_monitor_main_thunk_setter_211); LOCFOR(fun_ast_walkX_212); LOCFOR(fun_ast_walk_213); LOCFOR(fun_ast_walk_214); LOCFOR(fun_ast_copy_215); LOCFOR(fun_ast_copy_216); LOCFOR(fun_objectify_217); LOCFOR(fun_objectify_list_218); LOCFOR(fun_objectify_list_219); FUNFOR(YevalSastYmaybe_log_dependency); FUNFOR(YevalSastYmacro_expander); LOCFOR(fun_objectify_list_222); LOCFOR(fun_objectify_223); LOCFOR(fun_objectify_224); LOCFOR(fun_objectify_225); LOCFOR(fun_objectify_226); LOCFOR(fun_objectify_227); LOCFOR(fun_objectify_quotation_228); LOCFOR(fun_objectify_quotation_229); LOCFOR(fun_objectify_quotation_230); LOCFOR(fun_objectify_raw_231); LOCFOR(fun_objectify_boundQ_232); LOCFOR(fun_objectify_compile_time_233); LOCFOR(fun_objectify_alternative_234); LOCFOR(fun_sequentialize_235); LOCFOR(fun_transform_defs_236); LOCFOR(fun_objectify_sequential_237); LOCFOR(fun_238); LOCFOR(fun_objectify_application_239); LOCFOR(fun_240); LOCFOR(fun_objectify_application_241); LOCFOR(fun_242); LOCFOR(fun_objectify_application_243); LOCFOR(fun_process_closed_application_244); LOCFOR(fun_pack_args_245); LOCFOR(fun_process_nary_closed_application_246); LOCFOR(fun_convert2arguments_247); LOCFOR(fun_objectify_assignment_248); LOCFOR(fun_objectify_assignment_249); LOCFOR(fun_objectify_assignment_using_250); LOCFOR(fun_objectify_assignment_using_251); LOCFOR(fun_objectify_assignment_using_252); LOCFOR(fun_objectify_assignment_using_253); LOCFOR(fun_objectify_assignment_using_254); FUNFOR(YevalSastYupdate_binding_kind); LOCFOR(fun_ast_define_binding_256); LOCFOR(fun_objectify_definition_257); LOCFOR(fun_objectify_variable_definition_258); LOCFOR(fun_objectify_dynamic_definition_259); LOCFOR(fun_expand_260); FUNFOR(YevalSastYPPPmacro); FUNFOR(YPPmacro); LOCFOR(fun_objectify_syntax_definition_263); LOCFOR(fun_objectify_function_definition_264); FUNFOR(YevalSastYmodule_binding); LOCFOR(fun_function_inlineableQ_266); LOCFOR(fun_objectify_primitive_definition_267); LOCFOR(fun_objectify_generic_definition_268); LOCFOR(fun_objectify_method_definition_269); LOCFOR(fun_270); LOCFOR(fun_271); LOCFOR(fun_272); LOCFOR(fun_273); LOCFOR(fun_objectify_function_source_274); LOCFOR(fun_275); LOCFOR(fun_276); LOCFOR(fun_objectify_function_using_277); LOCFOR(fun_objectify_function_278); LOCFOR(fun_objectify_signature_279); LOCFOR(fun_compute_local_reference_offsets_280); LOCFOR(fun_objectify_binding_281); LOCFOR(fun_binding_reference_class_282); LOCFOR(fun_objectify_binding_283); LOCFOR(fun_objectify_binding_284); LOCFOR(fun_default_type_285); LOCFOR(fun_objectify_free_global_reference_286); FUNFOR(YevalSastYforeign_nameQ); LOCFOR(fun_objectify_foreign_reference_288); LOCFOR(fun_objectify_symbol_289); LOCFOR(fun_ftype_290); FUNFOR(YevalSastYfunctions); LOCFOR(fun_nul_292); LOCFOR(fun_293); LOCFOR(fun_294); LOCFOR(fun_295); LOCFOR(fun_objectify_locals_296); LOCFOR(fun_objectify_bind_exit_297); LOCFOR(fun_objectify_unwind_protect_298); LOCFOR(fun_objectify_monitor_299); LOCFOR(fun_objectify_refs_300); LOCFOR(fun_split_c_inline_vals_301); LOCFOR(fun_objectify_c_expr_302); LOCFOR(fun_objectify_c_inline_303); LOCFOR(fun_304); LOCFOR(fun_305); LOCFOR(fun_306); LOCFOR(fun_307); LOCFOR(fun_308); LOCFOR(fun_objectify_export_309); LOCFOR(fun_310); LOCFOR(fun_objectify_useSexport_module_311); LOCFOR(fun_312); LOCFOR(fun_objectify_use_include_313); LOCFOR(fun_314); LOCFOR(fun_objectify_use_library_315); LOCFOR(fun_316); LOCFOR(fun_use_mod_317); LOCFOR(fun_use_c_mod_318); LOCFOR(fun_objectify_use_module_319); LOCFOR(fun_320); LOCFOR(fun_objectify_use_mangle_module_321); LOCFOR(fun_expand_bind_list_322); LOCFOR(fun_expand_bind_list_323); LOCFOR(fun_expand_bind_list_324); LOCFOR(fun_expand_bind_listT_325); LOCFOR(fun_expand_bind_listT_326); LOCFOR(fun_expand_bind_element_327); LOCFOR(fun_expand_bind_element_328); LOCFOR(fun_expand_pattern_329); LOCFOR(fun_330); LOCFOR(fun_expand_syntax_if_331); LOCFOR(fun_r_extendT_332); LOCFOR(fun_find_binding_333); LOCFOR(fun_find_binding_334); LOCFOR(fun_register_magic_binding_335); LOCFOR(fun_magic_bindings_336); LOCFOR(fun_x_1524_337); LOCFOR(fun_338); LOCFOR(fun_339); LOCFOR(fun_340); LOCFOR(fun_341); LOCFOR(fun_342); LOCFOR(fun_343); LOCFOR(fun_344); LOCFOR(fun_345); LOCFOR(fun_346); LOCFOR(fun_347); LOCFOR(fun_348); LOCFOR(fun_349); LOCFOR(fun_350); LOCFOR(fun_351); LOCFOR(fun_352); LOCFOR(fun_353); LOCFOR(fun_354); LOCFOR(fun_355); LOCFOR(fun_356); LOCFOR(fun_357); LOCFOR(fun_358); LOCFOR(fun_359); LOCFOR(fun_360); LOCFOR(fun_361); LOCFOR(fun_pairize_362); LOCFOR(fun_363); LOCFOR(fun_objectify_define_property_364); LOCFOR(fun_365); LOCFOR(fun_366); LOCFOR(fun_367); LOCFOR(fun_368); LOCFOR(fun_369); LOCFOR(fun_370); LOCFOR(fun_ast_macro_expand_371); LOCFOR(fun_372); LOCFOR(fun_373); LOCFOR(fun_374); LOCFOR(fun_375); LOCFOR(fun_376); LOCFOR(fun_377); LOCFOR(fun_378); LOCFOR(fun_379); LOCFOR(fun_380); LOCFOR(fun_381); LOCFOR(fun_382); LOCFOR(fun_install_initial_bindings_383); LOCFOR(fun_384); FUNFOR(YevalSastYobjectify_with_subtransaction); LOCFOR(fun_386); FUNFOR(YevalSastYinstall_magic_bindings); FUNFOR(YevalSastYreload_macros); FUNFOR(YevalSastYinstall_interpreter_hacks); FUNFOR(YevalSastYinit_runtime); FUNFOR(YevalSastYfab_syntax_environment); FUNFOR(YevalSastYfab_g2c_module); FUNFOR(YevalSastYinit_g2c_boot_environment); FUNFOR(YevalSastYinit_g2c_regular_environment); FUNFOR(YevalSastYinit_ast); LOCFOR(fun_ast_contains_funQ_396); LOCFOR(fun_walk_397); LOCFOR(fun_398); LOCFOR(fun_ast_contains_funQ_399); extern P YevalSastY___main_0___ (); extern P YevalSastY___main_1___ (); extern P YevalSastY___main_2___ (); extern P YevalSastY___main_3___ (); extern P YevalSastY___main_4___ (); extern P YevalSastY___main_5___ (); extern P YevalSastY___main_6___ (); extern P YevalSastY___main_7___ (); extern P YevalSastY___main_8___ (); extern P YevalSastY___main_9___ (); extern P YevalSastY___main_10___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_x_1498_0) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_4),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P return_; P saved_dependentF4080; P x_1497F4079; P x_1497F4078; P x_1497F4077; P bodyF4076; P dependentF4075; P x_1497F4074; P x_1498F4073; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35; LINK_STACK(); ARG(return_, 0); T35 = FUNSHELL(0,fun_x_1498_0,2); x_1498F4073 = T35; FUNINIT(x_1498F4073, 2,FREEREF(0),return_); x_1497F4074 = FREEREF(0); dependentF4075 = YPfalse; bodyF4076 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1497F4074,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1497F4074,LITREF(lit_4),x_1498F4073); x_1497F4077 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1497F4077,x_1498F4073); dependentF4075 = T4; T5 = CALL1(1,VARREF(Ytail),x_1497F4077); x_1497F4078 = T5; bodyF4076 = x_1497F4078; x_1497F4079 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1497F4079,x_1498F4073); } else { T7 = CALL2(1,x_1498F4073,LITREF(lit_5),x_1497F4074); } T34 = CALL0(1,VARREF(YgooSmacrosYgensym)); saved_dependentF4080 = T34; T9 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T14 = CALL1(1,VARREF(Ylst),saved_dependentF4080); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_7)); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_8)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_8)); T10 = CALL1(1,VARREF(Ylst),T11); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_7)); T21 = dependentF4075; T20 = CALL1(1,VARREF(Ylst),T21); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T20,LITREF(lit_8)); T16 = CALL1(1,VARREF(Ylst),T17); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_10)); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_11)); T28 = bodyF4076; T26 = CALL3(1,VARREF(YgooSmacrosYcat),T27,T28,LITREF(lit_8)); T25 = CALL1(1,VARREF(Ylst),T26); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_7)); T33 = CALL1(1,VARREF(Ylst),saved_dependentF4080); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T33,LITREF(lit_8)); T29 = CALL1(1,VARREF(Ylst),T30); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T29,LITREF(lit_8)); T22 = CALL1(1,VARREF(Ylst),T23); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T16,T22,LITREF(lit_8)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_2) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_1,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_error_3) { P message_,arguments_; P T0,T1; LINK_STACK(); ARG(message_, 0); NARGS(arguments_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLsimple_ast_errorG),VARREF(YgooSconditionsYcondition_message),message_,VARREF(YgooSconditionsYcondition_arguments),arguments_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_type_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYprogram_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_type_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYprogram_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_6) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(VARREF(YgooStypesYDbot)); } LOCCODEDEF(fun_program_line_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYprogram_line)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_line_setter_8) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYprogram_line)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_program_register_10) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYprogram_register)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_program_register_setter_11) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYprogram_register)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_12) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_value_13) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_value_setter_14) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_15) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_mutableQ_16) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_mutableQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_mutableQ_setter_17) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_mutableQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_18) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_dynamic_extentQ_19) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_dynamic_extentQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_dynamic_extentQ_setter_20) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_dynamic_extentQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_21) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_binding_dottedQ_22) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_dottedQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_dottedQ_setter_23) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_dottedQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_24) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_closed_overQ_25) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_closed_overQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_closed_overQ_setter_26) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_closed_overQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_27) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_index_28) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbinding_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_index_setter_29) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbinding_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_30) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_compile_time_program_31) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYcompile_time_program)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_compile_time_program_setter_32) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYcompile_time_program)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_binding_33) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYreference_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_binding_setter_34) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYreference_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_called_functionQ_35) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYreference_called_functionQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_called_functionQ_setter_36) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYreference_called_functionQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_37) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_reference_frame_number_38) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYreference_frame_number)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_frame_number_setter_39) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYreference_frame_number)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_frame_offset_40) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYreference_frame_offset)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_frame_offset_setter_41) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYreference_frame_offset)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_boundQ_reference_42) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYboundQ_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_boundQ_reference_setter_43) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYboundQ_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_boundQ_default_44) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYboundQ_default)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_boundQ_default_setter_45) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYboundQ_default)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assignment_form_46) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYassignment_form)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assignment_form_setter_47) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYassignment_form)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assignment_reference_48) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYassignment_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assignment_reference_setter_49) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYassignment_reference)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assignment_binding_50) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYassignment_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assignment_binding_setter_51) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYassignment_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_bindings_52) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYsignature_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_bindings_setter_53) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYsignature_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_54) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_signature_names_55) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYsignature_names)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_names_setter_56) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYsignature_names)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_57) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_signature_specs_58) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYsignature_specs)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_specs_setter_59) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYsignature_specs)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_60) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_signature_naryQ_61) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYsignature_naryQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_naryQ_setter_62) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYsignature_naryQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_63) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_signature_arity_64) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYsignature_arity)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_arity_setter_65) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYsignature_arity)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_66) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_signature_value_67) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYsignature_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_signature_value_setter_68) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYsignature_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_69) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_req_sig_specs_70) { P sig_; P typesF4081; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(sig_, 0); T6 = CALL1(1,VARREF(YevalSastYsignature_specs),sig_); typesF4081 = T6; T2 = CALL1(1,VARREF(YevalSastYsignature_naryQ),sig_); T1 = CALL1(1,VARREF(YevalSastYconstant_value),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooStypesYlen),typesF4081); T4 = CALL2(1,VARREF(YgooSmathY_),T5,YPint((P)1)); T3 = CALL3(1,VARREF(YgooScolsSseqYsub),typesF4081,YPint((P)0),T4); T0 = T3; } else { T0 = typesF4081; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_binding_71) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_binding_setter_72) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_73) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_function_debug_name_74) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_debug_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_debug_name_setter_75) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_debug_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_76) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_function_signature_77) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_signature)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_signature_setter_78) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_signature)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunction_bindings) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYfunction_signature),x_); T0 = CALL1(1,VARREF(YevalSastYsignature_bindings),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunction_names) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYfunction_signature),x_); T0 = CALL1(1,VARREF(YevalSastYsignature_names),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunction_specs) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYfunction_signature),x_); T0 = CALL1(1,VARREF(YevalSastYsignature_specs),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunction_naryQ) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = CALL1(1,VARREF(YevalSastYfunction_signature),x_); T1 = CALL1(1,VARREF(YevalSastYsignature_naryQ),T2); T0 = CALL1(1,VARREF(YevalSastYconstant_value),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunction_arity) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = CALL1(1,VARREF(YevalSastYfunction_signature),x_); T1 = CALL1(1,VARREF(YevalSastYsignature_arity),T2); T0 = CALL1(1,VARREF(YevalSastYconstant_value),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunction_value) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYfunction_signature),x_); T0 = CALL1(1,VARREF(YevalSastYsignature_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_kind_85) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(LITREF(lit_194)); } FUNCODEDEF(YevalSastYfunction_display_name) { P f_; P x_1500F4084; P x_1499F4083; P bF4082; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(f_, 0); T8 = CALL1(1,VARREF(YevalSastYfunction_binding),f_); bF4082 = T8; x_1499F4083 = bF4082; x_1500F4084 = VARREF(YisaQ); T1 = CALL2(1,x_1500F4084,x_1499F4083,VARREF(YLsymG)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),bF4082); T0 = T2; } else { T4 = CALL2(1,x_1500F4084,x_1499F4083,VARREF(YevalSmoduleYLmodule_bindingG)); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),bF4082); T7 = CALL1(1,VARREF(YevalSmoduleYbinding_name),bF4082); T5 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_197),T6,T7); T3 = T5; } else { T3 = LITREF(lit_198); } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_invalidate_dependent_87) { P dependent_,dependable_,dtype_; P nameF4085; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(dependent_, 0); ARG(dependable_, 1); ARG(dtype_, 2); CALL1(1,VARREF(YevalSdependencyYdetach_dependent),dependent_); T8 = CALL1(1,VARREF(YevalSastYfunction_display_name),dependent_); nameF4085 = T8; T1 = CALL2(1,VARREF(YevalSdependencyYdependency_includes_anyQ),dtype_,VARREF(YevalSdependencyYDparse_dependencies)); if (T1 != YPfalse) { T2 = CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_201),nameF4085); T0 = T2; } else { T4 = CALL2(1,VARREF(YevalSdependencyYdependency_includes_anyQ),dtype_,VARREF(YevalSdependencyYDoptimizaton_dependencies)); if (T4 != YPfalse) { T5 = CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_202),nameF4085); T3 = T5; } else { if (YPtrue != YPfalse) { T7 = CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_203),nameF4085); T6 = T7; } else { T6 = YPfalse; } T3 = T6; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_lst_88) { P e_; P eF4087; P resF4086; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); resF4086 = Ynil; eF4087 = e_; LOOP_180: { P a180_0,a180_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),eF4087); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),resF4086); T0 = T2; } else { T5 = CALL1(1,VARREF(Yhead),eF4087); T4 = CALL2(1,VARREF(YgooSmacrosYpair),T5,resF4086); T6 = CALL1(1,VARREF(Ytail),eF4087); a180_0 = T4; a180_1 = T6; resF4086 = a180_0; eF4087 = a180_1; goto LOOP_180; T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1504_89) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_211),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_90) { P return_; P x_1503F4092; P x_1503F4091; P nameF4090; P x_1503F4089; P x_1504F4088; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(return_, 0); T14 = FUNSHELL(0,fun_x_1504_89,2); x_1504F4088 = T14; FUNINIT(x_1504F4088, 2,FREEREF(0),return_); x_1503F4089 = FREEREF(0); nameF4090 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1503F4089,VARREF(YLlstG)); if (T1 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1503F4089,LITREF(lit_211),x_1504F4088); x_1503F4091 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1503F4091,x_1504F4088); nameF4090 = T3; T4 = CALL1(1,VARREF(Ytail),x_1503F4091); x_1503F4092 = T4; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1503F4092,x_1504F4088); } else { T6 = CALL2(1,x_1504F4088,LITREF(lit_5),x_1503F4089); } T8 = CALL1(1,VARREF(Ylst),LITREF(lit_212)); T10 = nameF4090; T9 = CALL1(1,VARREF(Ylst),T10); T13 = CALL1(1,VARREF(Ylst),LITREF(lit_204)); T12 = CALL2(1,VARREF(YgooSmacrosYcat),T13,LITREF(lit_8)); T11 = CALL1(1,VARREF(Ylst),T12); T7 = CALL4(1,VARREF(YgooSmacrosYcat),T8,T9,T11,LITREF(lit_8)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_91) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_90,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_body_92) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_body)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_body_setter_93) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_body)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_94) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_function_index_95) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_index_setter_96) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_97) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_function_temporaries_98) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_temporaries)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_temporaries_setter_99) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_temporaries)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_100) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_function_registers_101) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_registers)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_registers_setter_102) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_registers)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_103) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_loop_104) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_loop)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_loop_setter_105) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_loop)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_106) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_function_source_107) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_source)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_source_setter_108) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_source)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_109) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_function_frame_len_110) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_frame_len)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_frame_len_setter_111) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_frame_len)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_112) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_function_adjectives_113) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_adjectives)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_adjectives_setter_114) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_adjectives)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_115) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } FUNCODEDEF(YevalSastYfree_environment) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLfree_environmentG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_117) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YevalSastYDfree_environment_nul)); } LOCCODEDEF(fun_function_ref_count_118) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_ref_count)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_ref_count_setter_119) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_ref_count)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_120) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_function_free_121) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfunction_free)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_free_setter_122) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfunction_free)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_123) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLfree_environmentG)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_incf_ref_count_124) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_incf_ref_count_125) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = CALL1(1,VARREF(YevalSastYfunction_ref_count),x_); T1 = CALL2(1,VARREF(YgooSmathYA),T2,YPint((P)1)); T0 = CALL2(1,VARREF(YevalSastYfunction_ref_count_setter),T1,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_function_kind_126) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(LITREF(lit_274)); } LOCCODEDEF(fun_function_kind_127) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(LITREF(lit_277)); } LOCCODEDEF(fun_function_kind_128) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(LITREF(lit_280)); } LOCCODEDEF(fun_alternative_condition_129) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYalternative_condition)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_alternative_condition_setter_130) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYalternative_condition)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_alternative_consequent_131) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYalternative_consequent)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_alternative_consequent_setter_132) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYalternative_consequent)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_alternative_alternant_133) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYalternative_alternant)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_alternative_alternant_setter_134) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYalternative_alternant)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_loop_bindings_135) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYloop_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_loop_bindings_setter_136) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYloop_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_loop_body_137) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYloop_body)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_loop_body_setter_138) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYloop_body)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_loop_continue_139) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYloop_continue)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_loop_continue_setter_140) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYloop_continue)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_141) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YevalSastYsequential) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLsequentialG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_143) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YevalSastYDsequential_nul)); } LOCCODEDEF(fun_constant_value_144) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYconstant_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_constant_value_setter_145) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYconstant_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_constant_index_146) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYconstant_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_constant_index_setter_147) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYconstant_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_arguments_148) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_arguments_setter_149) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_tailQ_150) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_tailQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_tailQ_setter_151) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_tailQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_152) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_application_loop_153) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_loop)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_loop_setter_154) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_loop)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_tailQ_155) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_application_function_156) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_function)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_function_setter_157) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_function)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_knownQ_158) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_knownQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_knownQ_setter_159) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_knownQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_160) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_application_next_methods_161) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_next_methods)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_next_methods_setter_162) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_next_methods)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_knownQ_163) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_application_binding_164) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYapplication_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_application_binding_setter_165) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYapplication_binding)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_bindings_166) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfix_let_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_bindings_setter_167) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfix_let_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_types_168) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfix_let_types)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_types_setter_169) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfix_let_types)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_arguments_170) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfix_let_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_arguments_setter_171) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfix_let_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_body_172) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYfix_let_body)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fix_let_body_setter_173) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYfix_let_body)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfab_list) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLfab_listG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_175) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YevalSastYDfab_list_nul)); } FUNCODEDEF(YevalSastYarguments) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLargumentsG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_177) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YevalSastYDarguments_nul)); } LOCCODEDEF(fun_locals_bindings_178) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYlocals_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_locals_bindings_setter_179) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYlocals_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_locals_functions_180) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYlocals_functions)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_locals_functions_setter_181) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYlocals_functions)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_locals_body_182) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYlocals_body)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_locals_body_setter_183) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYlocals_body)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYinline_refs) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLinline_refsG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_185) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YevalSastYDinline_refs_nul)); } LOCCODEDEF(fun_c_inline_refs_186) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYc_inline_refs)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_c_inline_refs_setter_187) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYc_inline_refs)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_c_inline_strs_188) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYc_inline_strs)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_c_inline_strs_setter_189) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYc_inline_strs)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_c_inline_exprQ_190) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYc_inline_exprQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_c_inline_exprQ_setter_191) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYc_inline_exprQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_192) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_bind_exit_main_fun_193) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbind_exit_main_fun)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bind_exit_main_fun_setter_194) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbind_exit_main_fun)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bind_exit_lightQ_195) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYbind_exit_lightQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bind_exit_lightQ_setter_196) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYbind_exit_lightQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_197) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_unwind_protect_protected_thunk_198) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYunwind_protect_protected_thunk)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_unwind_protect_protected_thunk_setter_199) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYunwind_protect_protected_thunk)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_unwind_protect_cleanup_thunk_200) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYunwind_protect_cleanup_thunk)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_unwind_protect_cleanup_thunk_setter_201) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYunwind_protect_cleanup_thunk)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_type_202) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYmonitor_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_type_setter_203) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYmonitor_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_info_204) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYmonitor_info)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_info_setter_205) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYmonitor_info)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_test_206) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYmonitor_test)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_test_setter_207) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYmonitor_test)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_handler_208) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYmonitor_handler)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_handler_setter_209) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYmonitor_handler)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_main_thunk_210) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSastYmonitor_main_thunk)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_monitor_main_thunk_setter_211) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSastYmonitor_main_thunk)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_walkX_212) { P g_,o_,args_; P xF4098; P tmpF4097; P setterF4096; P getterF4095; P propF4094; P x_1505F4093; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(g_, 0); ARG(o_, 1); NARGS(args_, 2); T20 = CALL1(1,VARREF(Yprops_of),o_); T19 = CALL1(1,VARREF(YgooScolsScolYenum),T20); x_1505F4093 = T19; LOOP_181: { P a181_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1505F4093); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T18 = CALL1(1,VARREF(YgooScolsScolYnow),x_1505F4093); propF4094 = T18; T17 = CALL1(1,VARREF(Yprop_getter),propF4094); getterF4095 = T17; T16 = CALL1(1,VARREF(Yprop_setter),propF4094); setterF4096 = T16; T6 = CALL2(1,VARREF(YgooSmacrosYEE),getterF4095,VARREF(YevalSastYbinding_value)); tmpF4097 = T6; if (tmpF4097 != YPfalse) { T4 = tmpF4097; } else { T5 = CALL2(1,VARREF(YgooSmacrosYEE),getterF4095,VARREF(YevalSastYapplication_loop)); T4 = T5; } T3 = CALL1(1,VARREF(Ynot),T4); if (T3 != YPfalse) { T8 = CALL2(1,VARREF(YgooSclassYprop_boundQ),o_,getterF4095); if (T8 != YPfalse) { T13 = CALL1(0,getterF4095,o_); xF4098 = T13; T10 = CALL2(1,VARREF(YisaQ),xF4098,VARREF(YevalSastYLprogramG)); if (T10 != YPfalse) { T12 = CALL4(1,VARREF(YgooSmacrosYnapp),g_,YPfalse,xF4098,args_); T11 = CALL2(1,setterF4096,T12,o_); T9 = T11; } else { T9 = YPfalse; } T7 = T9; } else { T7 = YPfalse; } } else { } T15 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1505F4093); a181_0 = T15; x_1505F4093 = a181_0; goto LOOP_181; T0 = T14; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_ast_walk_213) { P g_,o_,args_; P xF4103; P tmpF4102; P getterF4101; P propF4100; P x_1507F4099; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(g_, 0); ARG(o_, 1); NARGS(args_, 2); T18 = CALL1(1,VARREF(Yprops_of),o_); T17 = CALL1(1,VARREF(YgooScolsScolYenum),T18); x_1507F4099 = T17; LOOP_182: { P a182_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1507F4099); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T16 = CALL1(1,VARREF(YgooScolsScolYnow),x_1507F4099); propF4100 = T16; T15 = CALL1(1,VARREF(Yprop_getter),propF4100); getterF4101 = T15; T6 = CALL2(1,VARREF(YgooSmacrosYEE),getterF4101,VARREF(YevalSastYbinding_value)); tmpF4102 = T6; if (tmpF4102 != YPfalse) { T4 = tmpF4102; } else { T5 = CALL2(1,VARREF(YgooSmacrosYEE),getterF4101,VARREF(YevalSastYapplication_loop)); T4 = T5; } T3 = CALL1(1,VARREF(Ynot),T4); if (T3 != YPfalse) { T8 = CALL2(1,VARREF(YgooSclassYprop_boundQ),o_,getterF4101); if (T8 != YPfalse) { T12 = CALL1(0,getterF4101,o_); xF4103 = T12; T10 = CALL2(1,VARREF(YisaQ),xF4103,VARREF(YevalSastYLprogramG)); if (T10 != YPfalse) { T11 = CALL4(1,VARREF(YgooSmacrosYnapp),g_,YPfalse,xF4103,args_); T9 = T11; } else { T9 = YPfalse; } T7 = T9; } else { T7 = YPfalse; } } else { } T14 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1507F4099); a182_0 = T14; x_1507F4099 = a182_0; goto LOOP_182; T0 = T13; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_ast_walk_214) { P g_,o_,args_; P eF4105; P xF4104; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(g_, 0); ARG(o_, 1); NARGS(args_, 2); xF4104 = o_; LOOP_183: { P a183_0; T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF4104); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(Yhead),xF4104); eF4105 = T7; T3 = CALL2(1,VARREF(YisaQ),eF4105,VARREF(YevalSastYLprogramG)); if (T3 != YPfalse) { T4 = CALL4(1,VARREF(YgooSmacrosYnapp),g_,YPfalse,eF4105,args_); } else { } T6 = CALL1(1,VARREF(Ytail),xF4104); a183_0 = T6; xF4104 = a183_0; goto LOOP_183; T0 = T5; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_copy_215) { P x_; P copyF4106; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSclassYclone),x_); copyF4106 = T1; CALL2(1,VARREF(YevalSastYprogram_register_setter),YPfalse,copyF4106); T0 = CALL2(1,VARREF(YevalSastYast_walkX),VARREF(YevalSastYast_copy),copyF4106); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_copy_216) { P x_; P next_metsF4107; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),x_); if (T1 != YPfalse) { T0 = x_; } else { T6 = (P)YPfun_reg(); T7 = (P)YPnext_methods(); T5 = CALL3(1,VARREF(YgooSmacrosYOchecked_next_methods),T6,T7,x_); next_metsF4107 = T5; T3 = CALL1(1,VARREF(Yhead),next_metsF4107); T4 = CALL1(1,VARREF(Ytail),next_metsF4107); T2 = CALL4(1,VARREF(YgooSmacrosYnapp),T3,T4,x_,Ynil); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_217) { P e_,r_,tailQ_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL2(1,VARREF(YisaQ),e_,VARREF(YevalSastYLprogramG)); if (T1 != YPfalse) { T0 = e_; } else { T4 = CALL1(1,VARREF(Yhead),e_); T3 = CALL3(1,VARREF(YevalSastYobjectify),T4,r_,YPfalse); T2 = CALL4(1,VARREF(YevalSastYobjectify_list),T3,e_,r_,tailQ_); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_list_218) { P f_,e_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(f_, 0); ARG(e_, 1); ARG(r_, 2); ARG(tailQ_, 3); T1 = CALL1(1,VARREF(Ytail),e_); T0 = CALL4(1,VARREF(YevalSastYobjectify_application),f_,T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_list_219) { P f_,e_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(e_, 1); ARG(r_, 2); ARG(tailQ_, 3); T2 = CALL1(1,VARREF(YevalSastYreference_binding),f_); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_handler),T2); T0 = CALL3(1,T1,e_,r_,tailQ_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYmaybe_log_dependency) { P dependable_,dtype_; P T0,T1; LINK_STACK(); ARG(dependable_, 0); ARG(dtype_, 1); if (DYNREF(YevalSastYTcurrent_dependentT) != YPfalse) { CALL3(1,VARREF(YevalSdependencyYlog_dependency),dependable_,DYNREF(YevalSastYTcurrent_dependentT),dtype_); T1 = CALL1(1,VARREF(YevalSmoduleYtransaction_register_dependent),DYNREF(YevalSastYTcurrent_dependentT)); T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYmacro_expander) { P macro_binding_; P T0; LINK_STACK(); ARG(macro_binding_, 0); CALL2(1,VARREF(YevalSastYmaybe_log_dependency),macro_binding_,VARREF(YevalSdependencyYDexpansion_parse_dependency)); T0 = CALL1(1,VARREF(YevalSmoduleYbinding_handler),macro_binding_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_list_222) { P f_,e_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(f_, 0); ARG(e_, 1); ARG(r_, 2); ARG(tailQ_, 3); T3 = CALL1(1,VARREF(YevalSastYreference_binding),f_); T2 = CALL1(1,VARREF(YevalSastYmacro_expander),T3); T1 = CALL3(1,T2,e_,r_,tailQ_); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_223) { P e_,r_,tailQ_; P T0; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(tailQ_, 2); T0 = CALL2(1,VARREF(YevalSastYobjectify_symbol),e_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_224) { P e_,r_,tailQ_; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(tailQ_, 2); UNLINK_STACK(); QRET(e_); } LOCCODEDEF(fun_objectify_225) { P e_,r_,tailQ_; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(tailQ_, 2); UNLINK_STACK(); QRET(e_); } LOCCODEDEF(fun_objectify_226) { P e_,r_,tailQ_; P T0; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(tailQ_, 2); T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),e_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_227) { P e_,r_,tailQ_; P T0; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(tailQ_, 2); T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),e_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_quotation_228) { P value_,r_; P T0; LINK_STACK(); ARG(value_, 0); ARG(r_, 1); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),value_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_quotation_229) { P value_,r_; P T0; LINK_STACK(); ARG(value_, 0); ARG(r_, 1); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLimmediate_constantG),VARREF(YevalSastYconstant_value),value_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_quotation_230) { P value_,r_; P T0; LINK_STACK(); ARG(value_, 0); ARG(r_, 1); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLimmediate_constantG),VARREF(YevalSastYconstant_value),value_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_raw_231) { P value_,r_; P T0; LINK_STACK(); ARG(value_, 0); ARG(r_, 1); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLraw_constantG),VARREF(YevalSastYconstant_value),value_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_boundQ_232) { P e_,default_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(default_, 1); ARG(r_, 2); ARG(tailQ_, 3); T1 = CALL2(1,VARREF(YevalSastYobjectify_symbol),e_,r_); T2 = CALL3(1,VARREF(YevalSastYobjectify),default_,r_,YPfalse); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLboundQG),VARREF(YevalSastYboundQ_reference),T1,VARREF(YevalSastYboundQ_default),T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_compile_time_233) { P program_,r_,tailQ_,rtQ_; P astF4111; P target_envF4110; P syntax_envF4109; P modF4108; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(program_, 0); ARG(r_, 1); ARG(tailQ_, 2); ARG(rtQ_, 3); T8 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); modF4108 = T8; T7 = CALL1(1,VARREF(YevalSmoduleYmodule_syntax_environment),modF4108); syntax_envF4109 = T7; T6 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),modF4108); target_envF4110 = T6; T5 = CALL3(1,VARREF(YevalSastYobjectify),program_,syntax_envF4109,tailQ_); astF4111 = T5; CALL1(1,VARREF(YevalSastYast_evaluate),astF4111); if (rtQ_ != YPfalse) { T2 = CALL2(1,VARREF(YgooSlogYNEE),syntax_envF4109,target_envF4110); T1 = T2; } else { T1 = YPfalse; } if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YevalSastYobjectify),program_,r_,tailQ_); T0 = T3; } else { T4 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); T0 = T4; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_alternative_234) { P t_,c_,a_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(t_, 0); ARG(c_, 1); ARG(a_, 2); ARG(r_, 3); ARG(tailQ_, 4); T1 = CALL3(1,VARREF(YevalSastYobjectify),t_,r_,YPfalse); T2 = CALL3(1,VARREF(YevalSastYobjectify),c_,r_,tailQ_); T3 = CALL3(1,VARREF(YevalSastYobjectify),a_,r_,tailQ_); T0 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLalternativeG),VARREF(YevalSastYalternative_condition),T1,VARREF(YevalSastYalternative_consequent),T2,VARREF(YevalSastYalternative_alternant),T3); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sequentialize_235) { P eT_; P eTF4113; P rF4112; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(eT_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),eT_); if (T1 != YPfalse) { T2 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); T0 = T2; } else { T5 = CALL1(1,VARREF(Ytail),eT_); T4 = CALL1(1,VARREF(YgooSmacrosYnulQ),T5); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),eT_); T3 = T6; } else { T14 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLsequentialG)); rF4112 = T14; eTF4113 = eT_; LOOP_184: { P a184_0,a184_1; T8 = CALL1(1,VARREF(YgooSmacrosYnulQ),eTF4113); if (T8 != YPfalse) { T9 = CALL1(1,VARREF(YgooSmacrosYrevX),rF4112); T7 = T9; } else { T12 = CALL1(1,VARREF(Yhead),eTF4113); T11 = CALL2(1,VARREF(YevalSastYsequential),T12,rF4112); T13 = CALL1(1,VARREF(Ytail),eTF4113); a184_0 = T11; a184_1 = T13; rF4112 = a184_0; eTF4113 = a184_1; goto LOOP_184; T7 = T10; } } T3 = T7; } T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_transform_defs_236) { P eT_; P eF4114; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(eT_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),eT_); if (T1 != YPfalse) { T0 = Ynil; } else { T22 = CALL1(1,VARREF(Yhead),eT_); eF4114 = T22; T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_defQ),eF4114); if (T3 != YPfalse) { T7 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T13 = CALL1(1,VARREF(YevalSsyntaxYsexpr_def_variable),eF4114); T12 = CALL1(1,VARREF(Ylst),T13); T15 = CALL1(1,VARREF(YevalSsyntaxYsexpr_def_value),eF4114); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_8)); T10 = CALL1(1,VARREF(Ylst),T11); T9 = CALL2(1,VARREF(YgooSmacrosYcat),T10,LITREF(lit_8)); T8 = CALL1(1,VARREF(Ylst),T9); T17 = CALL1(1,VARREF(Ytail),eT_); T16 = CALL1(1,VARREF(YevalSastYtransform_defs),T17); T6 = CALL4(1,VARREF(YgooSmacrosYcat),T7,T8,T16,LITREF(lit_8)); T5 = CALL1(1,VARREF(Ylst),T6); T4 = CALL2(1,VARREF(YgooSmacrosYcat),T5,LITREF(lit_8)); T2 = T4; } else { T19 = CALL1(1,VARREF(Ylst),eF4114); T21 = CALL1(1,VARREF(Ytail),eT_); T20 = CALL1(1,VARREF(YevalSastYtransform_defs),T21); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_8)); T2 = T18; } T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_sequential_237) { P eT_,r_,tailQ_; P astsF4119; P headF4118; P tailQF4117; P eTF4116; P resF4115; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(eT_, 0); ARG(r_, 1); ARG(tailQ_, 2); resF4115 = Ynil; T12 = CALL1(1,VARREF(YevalSastYtransform_defs),eT_); eTF4116 = T12; LOOP_185: { P a185_0,a185_1; T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),eTF4116); if (T2 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),resF4115); T1 = T3; } else { T11 = CALL1(1,VARREF(Ytail),eTF4116); T10 = CALL1(1,VARREF(YgooSmacrosYnulQ),T11); if (T10 != YPfalse) { T9 = tailQ_; } else { T9 = YPfalse; } tailQF4117 = T9; T8 = CALL1(1,VARREF(Yhead),eTF4116); T7 = CALL3(1,VARREF(YevalSastYobjectify),T8,r_,tailQF4117); headF4118 = T7; T5 = CALL2(1,VARREF(YgooSmacrosYpair),headF4118,resF4115); T6 = CALL1(1,VARREF(Ytail),eTF4116); a185_0 = T5; a185_1 = T6; resF4115 = a185_0; eTF4116 = a185_1; goto LOOP_185; T1 = T4; } } astsF4119 = T1; T0 = CALL1(1,VARREF(YevalSastYsequentialize),astsF4119); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_238) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL3(1,VARREF(YevalSastYobjectify),e_,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_application_239) { P ff_,eT_,r_,tailQ_; P eeTF4120; P T0,T1,T2,T3; LINK_STACK(); ARG(ff_, 0); ARG(eT_, 1); ARG(r_, 2); ARG(tailQ_, 3); T3 = FUNFAB(fun_238,1,r_); T2 = CALL2(1,VARREF(YgooSmacrosYmap),T3,eT_); T1 = CALL1(1,VARREF(YevalSastYconvert2arguments),T2); eeTF4120 = T1; T0 = CALL4(1,VARREF(YevalSastYprocess_closed_application),ff_,eeTF4120,r_,tailQ_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_240) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL3(1,VARREF(YevalSastYobjectify),e_,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_application_241) { P ff_,eT_,r_,tailQ_; P primF4123; P fvfF4122; P eeTF4121; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(ff_, 0); ARG(eT_, 1); ARG(r_, 2); ARG(tailQ_, 3); T8 = FUNFAB(fun_240,1,r_); T7 = CALL2(1,VARREF(YgooSmacrosYmap),T8,eT_); T6 = CALL1(1,VARREF(YevalSastYconvert2arguments),T7); eeTF4121 = T6; T5 = CALL1(1,VARREF(YevalSastYreference_binding),ff_); fvfF4122 = T5; T4 = CALL1(1,VARREF(YevalSmoduleYbinding_prop),fvfF4122); primF4123 = T4; if (primF4123 != YPfalse) { T2 = CALL1(1,VARREF(YevalSastYast_copy),primF4123); T1 = CALL4(1,VARREF(YevalSastYprocess_closed_application),T2,eeTF4121,r_,tailQ_); T0 = T1; } else { T3 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLpredefined_applicationG),VARREF(YevalSastYapplication_binding),fvfF4122,VARREF(YevalSastYapplication_arguments),eeTF4121,VARREF(YevalSastYapplication_tailQ),tailQ_); T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_242) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL3(1,VARREF(YevalSastYobjectify),e_,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_application_243) { P ff_,eT_,r_,tailQ_; P eeTF4124; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(ff_, 0); ARG(eT_, 1); ARG(r_, 2); ARG(tailQ_, 3); T5 = FUNFAB(fun_242,1,r_); T4 = CALL2(1,VARREF(YgooSmacrosYmap),T5,eT_); T3 = CALL1(1,VARREF(YevalSastYconvert2arguments),T4); eeTF4124 = T3; T0 = CALL2(1,VARREF(YisaQ),ff_,VARREF(YevalSastYLlocal_referenceG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YevalSastYreference_called_functionQ_setter),YPtrue,ff_); } else { } T2 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLregular_applicationG),VARREF(YevalSastYapplication_function),ff_,VARREF(YevalSastYapplication_arguments),eeTF4124,VARREF(YevalSastYapplication_tailQ),tailQ_); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_process_closed_application_244) { P f_,eT_,r_,tailQ_; P bF4126; P vTF4125; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(f_, 0); ARG(eT_, 1); ARG(r_, 2); ARG(tailQ_, 3); T16 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); vTF4125 = T16; T15 = CALL1(1,VARREF(YevalSastYfunction_body),f_); bF4126 = T15; T1 = CALL1(1,VARREF(YevalSastYfunction_naryQ),f_); if (T1 != YPfalse) { T2 = CALL4(1,VARREF(YevalSastYprocess_nary_closed_application),f_,eT_,r_,tailQ_); T0 = T2; } else { T5 = CALL1(1,VARREF(YgooStypesYlen),eT_); T7 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); T6 = CALL1(1,VARREF(YgooStypesYlen),T7); T4 = CALL2(1,VARREF(YgooSlogYE),T5,T6); if (T4 != YPfalse) { T10 = CALL2(1,VARREF(YisaQ),f_,VARREF(YevalSastYLast_primitiveG)); if (T10 != YPfalse) { T9 = VARREF(YevalSastYLlow_letG); } else { T9 = VARREF(YevalSastYLfix_letG); } T11 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); T12 = CALL1(1,VARREF(YevalSastYfunction_specs),f_); T13 = CALL1(1,VARREF(YevalSastYfunction_body),f_); T8 = CALLN(1,VARREF(Ynew),9,T9,VARREF(YevalSastYfix_let_bindings),T11,VARREF(YevalSastYfix_let_types),T12,VARREF(YevalSastYfix_let_arguments),eT_,VARREF(YevalSastYfix_let_body),T13); T3 = T8; } else { T14 = CALL3(1,VARREF(YevalSdependencyYast_error),LITREF(lit_507),f_,eT_); T3 = T14; } T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pack_args_245) { P eT_,vT_,tT_; P dotted_typeF4128; P varF4127; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(eT_, 0); ARG(vT_, 1); ARG(tT_, 2); T17 = CALL1(1,VARREF(Yhead),vT_); varF4127 = T17; T1 = CALL1(1,VARREF(YevalSastYbinding_dottedQ),varF4127); if (T1 != YPfalse) { T7 = CALL3(1,VARREF(YevalSastYobjectify),LITREF(lit_512),FREEREF(0),YPfalse); dotted_typeF4128 = T7; CALL2(1,VARREF(YevalSastYbinding_dottedQ_setter),YPfalse,varF4127); CALL2(1,VARREF(YevalSmoduleYbinding_type_setter),dotted_typeF4128,varF4127); CALL2(1,VARREF(Yhead_setter),dotted_typeF4128,tT_); T5 = CALL1(1,VARREF(Ylst),LITREF(lit_513)); T4 = CALL3(1,VARREF(YgooSmacrosYcat),T5,eT_,LITREF(lit_8)); T3 = CALL3(1,VARREF(YevalSastYobjectify),T4,FREEREF(0),YPfalse); T6 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLargumentsG)); T2 = CALL2(1,VARREF(YevalSastYarguments),T3,T6); T0 = T2; } else { T9 = CALL1(1,VARREF(YgooSmacrosYnulQ),eT_); if (T9 != YPfalse) { T10 = CALL3(1,VARREF(YevalSdependencyYast_error),LITREF(lit_514),FREEREF(1),eT_); T8 = T10; } else { T12 = CALL1(1,VARREF(Yhead),eT_); T14 = CALL1(1,VARREF(Ytail),eT_); T15 = CALL1(1,VARREF(Ytail),vT_); T16 = CALL1(1,VARREF(Ytail),tT_); T13 = CALL3(0,FREEREF(2),T14,T15,T16); T11 = CALL2(1,VARREF(YevalSastYarguments),T12,T13); T8 = T11; } T0 = T8; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_process_nary_closed_application_246) { P f_,eT_,r_,tailQ_; P oF4131; P vTF4130; P pack_argsF4129; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(f_, 0); ARG(eT_, 1); ARG(r_, 2); ARG(tailQ_, 3); T6 = FUNSHELL(1,fun_pack_args_245,3); pack_argsF4129 = T6; FUNINIT(pack_argsF4129, 3,r_,f_,pack_argsF4129); T5 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); vTF4130 = T5; T1 = CALL1(1,VARREF(YevalSastYfunction_specs),f_); T3 = CALL1(1,VARREF(YevalSastYfunction_specs),f_); T2 = CALL3(1,pack_argsF4129,eT_,vTF4130,T3); T4 = CALL1(1,VARREF(YevalSastYfunction_body),f_); T0 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSastYLfix_letG),VARREF(YevalSastYfix_let_bindings),vTF4130,VARREF(YevalSastYfix_let_types),T1,VARREF(YevalSastYfix_let_arguments),T2,VARREF(YevalSastYfix_let_body),T4); oF4131 = T0; UNLINK_STACK(); RET(oF4131); } LOCCODEDEF(fun_convert2arguments_247) { P eT_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(eT_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),eT_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLargumentsG)); T0 = T2; } else { T4 = CALL1(1,VARREF(Yhead),eT_); T6 = CALL1(1,VARREF(Ytail),eT_); T5 = CALL1(1,VARREF(YevalSastYconvert2arguments),T6); T3 = CALL2(1,VARREF(YevalSastYarguments),T4,T5); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_assignment_248) { P binding_,e_,r_,tailQ_; P opF4132; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(binding_, 0); ARG(e_, 1); ARG(r_, 2); ARG(tailQ_, 3); T9 = CALL1(1,VARREF(YevalSsyntaxYsexpr_operator),binding_); opF4132 = T9; T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_variableQ),opF4132); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_fab_setter_name),opF4132); T4 = CALL3(1,VARREF(YevalSastYobjectify),T5,r_,YPfalse); T7 = CALL1(1,VARREF(YevalSsyntaxYsexpr_operands),binding_); T6 = CALL2(1,VARREF(YgooSmacrosYpair),e_,T7); T3 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_application),T4,T6); T2 = CALL3(1,VARREF(YevalSastYobjectify),T3,r_,tailQ_); T0 = T2; } else { T8 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_519),e_); T0 = T8; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_assignment_249) { P binding_,e_,r_,tailQ_; P valF4134; P refF4133; P T0,T1,T2; LINK_STACK(); ARG(binding_, 0); ARG(e_, 1); ARG(r_, 2); ARG(tailQ_, 3); T2 = CALL3(1,VARREF(YevalSastYobjectify),binding_,r_,YPfalse); refF4133 = T2; T1 = CALL3(1,VARREF(YevalSastYobjectify),e_,r_,YPfalse); valF4134 = T1; T0 = CALL2(1,VARREF(YevalSastYobjectify_assignment_using),refF4133,valF4134); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_assignment_using_250) { P ref_,val_; P T0,T1; LINK_STACK(); ARG(ref_, 0); ARG(val_, 1); T0 = CALL1(1,VARREF(YevalSastYreference_binding),ref_); CALL2(1,VARREF(YevalSastYbinding_mutableQ_setter),YPtrue,T0); T1 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLlocal_assignmentG),VARREF(YevalSastYassignment_reference),ref_,VARREF(YevalSastYassignment_form),val_); UNLINK_STACK(); RET(T1); } LOCCODEDEF(fun_objectify_assignment_using_251) { P ref_,val_; P T0,T1; LINK_STACK(); ARG(ref_, 0); ARG(val_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),ref_); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLglobal_assignmentG),VARREF(YevalSastYassignment_binding),T1,VARREF(YevalSastYassignment_form),val_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_assignment_using_252) { P ref_,val_; P T0,T1; LINK_STACK(); ARG(ref_, 0); ARG(val_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),ref_); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLdynamic_assignmentG),VARREF(YevalSastYassignment_binding),T1,VARREF(YevalSastYassignment_form),val_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_assignment_using_253) { P ref_,val_; P T0,T1; LINK_STACK(); ARG(ref_, 0); ARG(val_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),ref_); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLruntime_assignmentG),VARREF(YevalSastYassignment_binding),T1,VARREF(YevalSastYassignment_form),val_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_assignment_using_254) { P ref_,val_; P T0,T1; LINK_STACK(); ARG(ref_, 0); ARG(val_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),ref_); T0 = CALL2(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_527),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYupdate_binding_kind) { P binding_,new_kind_; P tmpF4135; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(binding_, 0); ARG(new_kind_, 1); T4 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); T3 = CALL2(1,VARREF(YgooSlogYNEE),T4,LITREF(lit_530)); tmpF4135 = T3; if (tmpF4135 != YPfalse) { T1 = tmpF4135; } else { T2 = CALL2(1,VARREF(YgooSmacrosYEE),new_kind_,LITREF(lit_531)); T1 = T2; } if (T1 != YPfalse) { T5 = CALL2(1,VARREF(YevalSmoduleYbinding_kind_setter),new_kind_,binding_); T0 = T5; } else { T7 = CALL2(1,VARREF(YgooSmacrosYEE),new_kind_,LITREF(lit_530)); if (T7 != YPfalse) { T6 = YPtrue; } else { T9 = CALL2(1,VARREF(YgooSmacrosYEE),new_kind_,LITREF(lit_532)); if (T9 != YPfalse) { T8 = YPtrue; } else { if (YPtrue != YPfalse) { T12 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T11 = CALL3(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_533),T12,new_kind_); T10 = T11; } else { T10 = YPfalse; } T8 = T10; } T6 = T8; } T0 = T6; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_define_binding_256) { P r_,name_,defining_methodQ_,kind_; P bindingF4143; P bindingF4142; P modF4141; P foreignQF4140; P tmpF4139; P modF4138; P grF4137; P existing_bindingF4136; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(r_, 0); ARG(name_, 1); ARG(defining_methodQ_, 2); ARG(kind_, 3); T15 = CALL2(1,VARREF(YevalSmoduleYfind_binding),name_,r_); existing_bindingF4136 = T15; T14 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); grF4137 = T14; T13 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),grF4137); modF4138 = T13; if (existing_bindingF4136 != YPfalse) { T10 = CALL2(1,VARREF(YevalSmoduleYbinding_native_toQ),existing_bindingF4136,modF4138); tmpF4139 = T10; if (tmpF4139 != YPfalse) { T9 = tmpF4139; } else { T9 = defining_methodQ_; } T8 = CALL1(1,VARREF(Ynot),T9); foreignQF4140 = T8; T1 = CALL1(1,VARREF(YevalSmoduleYbinding_freeQ),existing_bindingF4136); if (T1 != YPfalse) { CALL2(1,VARREF(YevalSmoduleYbinding_freeQ_setter),YPfalse,existing_bindingF4136); if (foreignQF4140 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYtransaction_register_implemented_binding),existing_bindingF4136); T2 = T3; } else { T2 = YPfalse; } } else { if (foreignQF4140 != YPfalse) { T6 = CALL1(1,VARREF(YevalSmoduleYmodule_name),modF4138); T7 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),existing_bindingF4136); T5 = CALL5(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_536),T6,name_,T7); T4 = T5; } else { T4 = YPfalse; } } CALL2(1,VARREF(YevalSdependencyYinvalidate_dependents),existing_bindingF4136,VARREF(YevalSdependencyYDall_dependency_types)); CALL2(1,VARREF(YevalSastYupdate_binding_kind),existing_bindingF4136,kind_); T0 = existing_bindingF4136; } else { T12 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); modF4141 = T12; T11 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),kind_,VARREF(YevalSmoduleYbinding_name),name_,VARREF(YevalSmoduleYbinding_freeQ),YPfalse,VARREF(YevalSmoduleYbinding_module),modF4141); bindingF4142 = T11; CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4142,grF4137); T0 = bindingF4142; } bindingF4143 = T0; CALL2(1,VARREF(YevalSmoduleYregister_referenced_binding),modF4138,bindingF4143); UNLINK_STACK(); QRET(bindingF4143); } LOCCODEDEF(fun_objectify_definition_257) { P type_,kind_,var_,e_,r_; P defnF4146; P bindingF4145; P nameF4144; P T0,T1,T2,T3; LINK_STACK(); ARG(type_, 0); ARG(kind_, 1); ARG(var_, 2); ARG(e_, 3); ARG(r_, 4); T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_variable_name),var_); nameF4144 = T3; T2 = CALL4(1,VARREF(YevalSastYast_define_binding),r_,nameF4144,YPfalse,kind_); bindingF4145 = T2; T1 = CALL3(1,VARREF(YevalSastYobjectify),e_,r_,YPfalse); T0 = CALL5(1,VARREF(Ynew),type_,VARREF(YevalSastYassignment_binding),bindingF4145,VARREF(YevalSastYassignment_form),T1); defnF4146 = T0; UNLINK_STACK(); QRET(defnF4146); } LOCCODEDEF(fun_objectify_variable_definition_258) { P var_,e_,r_; P T0; LINK_STACK(); ARG(var_, 0); ARG(e_, 1); ARG(r_, 2); T0 = CALL5(1,VARREF(YevalSastYobjectify_definition),VARREF(YevalSastYLvariable_definitionG),LITREF(lit_532),var_,e_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_dynamic_definition_259) { P var_,e_,r_; P T0; LINK_STACK(); ARG(var_, 0); ARG(e_, 1); ARG(r_, 2); T0 = CALL5(1,VARREF(YevalSastYobjectify_definition),VARREF(YevalSastYLdynamic_definitionG),LITREF(lit_543),var_,e_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_260) { P x_,r_,tailQ_; P expF4147; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); if (VARREF(YevalSastYTmacro_tracingQT) != YPfalse) { CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_548)); CALL2(1,VARREF(YgooSioSwriteYwrite),VARREF(YgooSioSportYout),x_); T0 = CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_549)); } else { } T3 = CALL1(1,FREEREF(0),x_); T2 = CALL2(1,VARREF(YgooScolsSlstYline_list_of),x_,T3); expF4147 = T2; if (VARREF(YevalSastYTmacro_tracingQT) != YPfalse) { CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_550)); CALL2(1,VARREF(YgooSioSwriteYwrite),VARREF(YgooSioSportYout),expF4147); T1 = CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_551)); } else { } UNLINK_STACK(); QRET(expF4147); } FUNCODEDEF(YevalSastYPPPmacro) { P binding_,expander_; P T0; LINK_STACK(); ARG(binding_, 0); ARG(expander_, 1); T0 = FUNFAB(fun_expand_260,1,expander_); CALL2(1,VARREF(YevalSmoduleYbinding_handler_setter),T0,binding_); UNLINK_STACK(); RET(binding_); } FUNCODEDEF(YPPmacro) { P modname_,name_,expander_,env_or_false_; P bindingF4150; P envF4149; P tmpF4148; P T0,T1,T2,T3; LINK_STACK(); ARG(modname_, 0); ARG(name_, 1); ARG(expander_, 2); ARG(env_or_false_, 3); tmpF4148 = env_or_false_; if (tmpF4148 != YPfalse) { T2 = tmpF4148; } else { T3 = CALL1(1,VARREF(YevalSmoduleYunchecked_runtime_environment),modname_); T2 = T3; } envF4149 = T2; T1 = CALL4(1,VARREF(YevalSastYast_define_binding),envF4149,name_,YPfalse,LITREF(lit_554)); bindingF4150 = T1; T0 = CALL2(1,VARREF(YevalSastYPPPmacro),bindingF4150,expander_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_syntax_definition_263) { P name_,e_,r_,rtQ_; P bindingF4156; P modnameF4155; P expanderF4154; P ast_expanderF4153; P syntax_envF4152; P sep_expanderF4151; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(name_, 0); ARG(e_, 1); ARG(r_, 2); ARG(rtQ_, 3); T14 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_macro_function),name_,e_); sep_expanderF4151 = T14; T13 = CALL1(1,VARREF(YevalSmoduleYfind_syntax_environment),r_); syntax_envF4152 = T13; T12 = CALL3(1,VARREF(YevalSastYobjectify),sep_expanderF4151,syntax_envF4152,YPfalse); ast_expanderF4153 = T12; T11 = CALL1(1,VARREF(YevalSastYast_evaluate),ast_expanderF4153); expanderF4154 = T11; T10 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); T9 = CALL1(1,VARREF(YevalSmoduleYmodule_name),T10); modnameF4155 = T9; T8 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); T7 = CALL4(1,VARREF(YPPmacro),modnameF4155,name_,expanderF4154,T8); bindingF4156 = T7; T1 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); T0 = CALL2(1,VARREF(YgooSlogYNEE),syntax_envF4152,T1); if (T0 != YPfalse) { T2 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4156,syntax_envF4152); } else { } if (rtQ_ != YPfalse) { T5 = CALL3(1,VARREF(YevalSastYobjectify),sep_expanderF4151,r_,YPfalse); T4 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLast_macro_definitionG),VARREF(YevalSastYassignment_binding),bindingF4156,VARREF(YevalSastYassignment_form),T5); T3 = T4; } else { T6 = CALL2(1,VARREF(YevalSastYobjectify_quotation),YPfalse,r_); T3 = T6; } UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_objectify_function_definition_264) { P name_,mods_,e_,r_; P defnF4159; P fF4158; P bindingF4157; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); ARG(mods_, 1); ARG(e_, 2); ARG(r_, 3); T3 = CALL4(1,VARREF(YevalSastYast_define_binding),r_,name_,YPfalse,LITREF(lit_532)); bindingF4157 = T3; T2 = CALL3(1,VARREF(YevalSastYobjectify),e_,r_,YPfalse); fF4158 = T2; CALL2(1,VARREF(YevalSastYfunction_binding_setter),bindingF4157,fF4158); CALL2(1,VARREF(YevalSastYfunction_adjectives_setter),mods_,fF4158); T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),name_,r_); CALL2(1,VARREF(YevalSastYfunction_debug_name_setter),T0,fF4158); T1 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLast_function_definitionG),VARREF(YevalSastYassignment_binding),bindingF4157,VARREF(YevalSastYassignment_form),fF4158); defnF4159 = T1; UNLINK_STACK(); RET(defnF4159); } FUNCODEDEF(YevalSastYmodule_binding) { P kind_; P T0; LINK_STACK(); ARG(kind_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),kind_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_function_inlineableQ_266) { P e_; P tmpF4160; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); T4 = CALL1(1,VARREF(YevalSastYfunction_adjectives),e_); T3 = CALL2(1,VARREF(YgooScolsScolYmemQ),T4,LITREF(lit_563)); tmpF4160 = T3; if (tmpF4160 != YPfalse) { T0 = tmpF4160; } else { T2 = CALL1(1,VARREF(YevalSastYfunction_adjectives),e_); T1 = CALL2(1,VARREF(YgooScolsScolYmemQ),T2,LITREF(lit_564)); T0 = T1; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_primitive_definition_267) { P name_,mods_,sig_,body_,r_; P defnF4166; P formF4165; P bodyF4164; P new_rF4163; P signatureF4162; P bindingF4161; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(name_, 0); ARG(mods_, 1); ARG(sig_, 2); ARG(body_, 3); ARG(r_, 4); T9 = CALL4(1,VARREF(YevalSastYast_define_binding),r_,name_,YPfalse,LITREF(lit_567)); bindingF4161 = T9; T8 = CALL2(1,VARREF(YevalSastYobjectify_signature),sig_,r_); signatureF4162 = T8; T7 = CALL1(1,VARREF(YevalSastYsignature_bindings),signatureF4162); T6 = CALL2(1,VARREF(YevalSastYr_extendT),r_,T7); new_rF4163 = T6; T5 = CALL3(1,VARREF(YevalSastYobjectify_sequential),body_,new_rF4163,YPtrue); bodyF4164 = T5; T4 = CALL2(1,VARREF(YevalSastYobjectify_quotation),name_,r_); T3 = CALLN(1,VARREF(Ynew),11,VARREF(YevalSastYLast_primitiveG),VARREF(YevalSastYfunction_binding),bindingF4161,VARREF(YevalSastYfunction_adjectives),mods_,VARREF(YevalSastYfunction_debug_name),T4,VARREF(YevalSastYfunction_signature),signatureF4162,VARREF(YevalSastYfunction_body),bodyF4164); formF4165 = T3; T0 = CALL2(1,VARREF(YgooScolsScolYmemQ),mods_,LITREF(lit_563)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YevalSmoduleYbinding_prop_setter),formF4165,bindingF4161); } else { } T2 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLast_primitive_definitionG),VARREF(YevalSastYassignment_binding),bindingF4161,VARREF(YevalSastYassignment_form),formF4165); defnF4166 = T2; UNLINK_STACK(); RET(defnF4166); } LOCCODEDEF(fun_objectify_generic_definition_268) { P name_,sig_,r_; P defnF4170; P formF4169; P signatureF4168; P bindingF4167; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(name_, 0); ARG(sig_, 1); ARG(r_, 2); T4 = CALL4(1,VARREF(YevalSastYast_define_binding),r_,name_,YPfalse,LITREF(lit_532)); bindingF4167 = T4; T3 = CALL2(1,VARREF(YevalSastYobjectify_signature),sig_,r_); signatureF4168 = T3; T2 = CALL2(1,VARREF(YevalSastYobjectify_quotation),name_,r_); T1 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLast_genericG),VARREF(YevalSastYfunction_binding),bindingF4167,VARREF(YevalSastYfunction_debug_name),T2,VARREF(YevalSastYfunction_signature),signatureF4168); formF4169 = T1; T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLast_generic_definitionG),VARREF(YevalSastYassignment_binding),bindingF4167,VARREF(YevalSastYassignment_form),formF4169); defnF4170 = T0; UNLINK_STACK(); RET(defnF4170); } LOCCODEDEF(fun_objectify_method_definition_269) { P name_,mods_,e_,r_; P defnF4176; P formF4175; P callF4174; P metF4173; P genF4172; P bindingF4171; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(name_, 0); ARG(mods_, 1); ARG(e_, 2); ARG(r_, 3); T9 = CALL4(1,VARREF(YevalSastYast_define_binding),r_,name_,YPtrue,LITREF(lit_532)); bindingF4171 = T9; T6 = CALL1(1,VARREF(Ylst),LITREF(lit_572)); T7 = CALL1(1,VARREF(Ylst),name_); T8 = CALL1(1,VARREF(Ylst),YPfalse); T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T8,LITREF(lit_8)); genF4172 = T5; T4 = CALL3(1,VARREF(YevalSastYobjectify),e_,r_,YPfalse); metF4173 = T4; T3 = CALL3(1,VARREF(Ylst),LITREF(lit_573),genF4172,metF4173); callF4174 = T3; T2 = CALL3(1,VARREF(YevalSastYobjectify),callF4174,r_,YPfalse); formF4175 = T2; T1 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLast_method_definitionG),VARREF(YevalSastYassignment_binding),bindingF4171,VARREF(YevalSastYassignment_form),formF4175); defnF4176 = T1; CALL2(1,VARREF(YevalSastYfunction_binding_setter),name_,metF4173); CALL2(1,VARREF(YevalSastYfunction_adjectives_setter),mods_,metF4173); T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),name_,r_); CALL2(1,VARREF(YevalSastYfunction_debug_name_setter),T0,metF4173); UNLINK_STACK(); RET(defnF4176); } LOCCODEDEF(fun_270) { P T0,T1,T2,T3,T4,T5; LINK_STACK(); DYNSET(YgooSioSwriteYTmax_print_lengthT,VARREF(YDmax_int)); if (DYNREF(YevalSastYTrecord_sourceQT) != YPfalse) { T4 = CALL1(1,VARREF(Ylst),LITREF(lit_578)); T5 = CALL1(1,VARREF(Ylst),FREEREF(0)); T3 = CALL4(1,VARREF(YgooSmacrosYcat),T4,T5,FREEREF(1),LITREF(lit_8)); T2 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_577),T3); T1 = T2; } else { T1 = YPfalse; } T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),T1,FREEREF(2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_271) { P T0; LINK_STACK(); T0 = DYNSET(YgooSioSwriteYTmax_print_lengthT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_272) { P x_1510F4177; P T0,T1,T2; LINK_STACK(); DYNSET(YgooSioSwriteYTmax_print_depthT,VARREF(YDmax_int)); x_1510F4177 = DYNREF(YgooSioSwriteYTmax_print_lengthT); T1 = FUNFAB(fun_270,3,FREEREF(0),FREEREF(1),FREEREF(2)); T2 = FUNFAB(fun_271,1,x_1510F4177); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_273) { P T0; LINK_STACK(); T0 = DYNSET(YgooSioSwriteYTmax_print_depthT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_function_source_274) { P sig_,body_,r_; P x_1509F4178; P T0,T1,T2; LINK_STACK(); ARG(sig_, 0); ARG(body_, 1); ARG(r_, 2); x_1509F4178 = DYNREF(YgooSioSwriteYTmax_print_depthT); T1 = FUNFAB(fun_272,3,sig_,body_,r_); T2 = FUNFAB(fun_273,1,x_1509F4178); T0 = with_cleanup(T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_275) { P astF4181; P new_rF4180; P signatureF4179; P T0,T1,T2,T3,T4,T5; LINK_STACK(); T5 = CALL2(1,VARREF(YevalSastYobjectify_signature),FREEREF(0),FREEREF(1)); signatureF4179 = T5; T4 = CALL1(1,VARREF(YevalSastYsignature_bindings),signatureF4179); T3 = CALL2(1,VARREF(YevalSastYr_extendT),FREEREF(1),T4); new_rF4180 = T3; T2 = CALL3(1,VARREF(YevalSastYobjectify_sequential),FREEREF(2),new_rF4180,YPtrue); astF4181 = T2; T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),YPfalse,FREEREF(1)); CALL2(1,VARREF(YevalSastYfunction_debug_name_setter),T0,FREEREF(3)); CALL2(1,VARREF(YevalSastYfunction_signature_setter),signatureF4179,FREEREF(3)); CALL2(1,VARREF(YevalSastYfunction_body_setter),astF4181,FREEREF(3)); T1 = CALL3(1,VARREF(YevalSastYobjectify_function_source),FREEREF(0),FREEREF(2),FREEREF(1)); CALL2(1,VARREF(YevalSastYfunction_source_setter),T1,FREEREF(3)); UNLINK_STACK(); QRET(FREEREF(3)); } LOCCODEDEF(fun_276) { P T0; LINK_STACK(); T0 = DYNSET(YevalSastYTcurrent_dependentT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_function_using_277) { P met_,sig_,body_,r_,tailQ_; P x_1511F4182; P T0,T1,T2; LINK_STACK(); ARG(met_, 0); ARG(sig_, 1); ARG(body_, 2); ARG(r_, 3); ARG(tailQ_, 4); x_1511F4182 = DYNREF(YevalSastYTcurrent_dependentT); DYNSET(YevalSastYTcurrent_dependentT,met_); T1 = FUNFAB(fun_275,4,sig_,r_,body_,met_); T2 = FUNFAB(fun_276,1,x_1511F4182); T0 = with_cleanup(T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_function_278) { P sig_,body_,line_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(sig_, 0); ARG(body_, 1); ARG(line_, 2); ARG(r_, 3); ARG(tailQ_, 4); T1 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLast_methodG),VARREF(YevalSastYprogram_line),line_); T0 = CALL5(1,VARREF(YevalSastYobjectify_function_using),T1,sig_,body_,r_,tailQ_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_signature_279) { P sig_,r_; P bindingF4199; P typeF4198; P stypeF4197; P dottedQF4196; P stypeF4195; P snameF4194; P paramF4193; P arityF4192; P valueF4191; P tmpF4190; P sexpr_valueF4189; P typesF4188; P namesF4187; P bindingsF4186; P naryQF4185; P paramsF4184; P sexpr_paramsF4183; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30; LINK_STACK(); ARG(sig_, 0); ARG(r_, 1); T30 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_parameters),sig_); sexpr_paramsF4183 = T30; paramsF4184 = sexpr_paramsF4183; naryQF4185 = YPfalse; bindingsF4186 = Ynil; T28 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLfab_listG)); namesF4187 = T28; T29 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLfab_listG)); typesF4188 = T29; LOOP_186: { P a186_0,a186_1,a186_2,a186_3,a186_4; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),paramsF4184); if (T1 != YPfalse) { T15 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_value),sig_); sexpr_valueF4189 = T15; tmpF4190 = sexpr_valueF4189; if (tmpF4190 != YPfalse) { T13 = tmpF4190; } else { T14 = CALL1(1,VARREF(YevalSastYdefault_type),r_); T13 = T14; } T12 = CALL3(1,VARREF(YevalSastYobjectify),T13,r_,YPfalse); valueF4191 = T12; T10 = CALL1(1,VARREF(YgooStypesYlen),namesF4187); if (naryQF4185 != YPfalse) { T11 = YPint((P)1); } else { T11 = YPint((P)0); } T9 = CALL2(1,VARREF(YgooSmathY_),T10,T11); arityF4192 = T9; T3 = CALL1(1,VARREF(YgooSmacrosYrevX),bindingsF4186); T5 = CALL1(1,VARREF(YgooSmacrosYrevX),namesF4187); T4 = CALL2(1,VARREF(YevalSastYobjectify_quotation),T5,r_); T6 = CALL1(1,VARREF(YgooSmacrosYrevX),typesF4188); T7 = CALL3(1,VARREF(YevalSastYobjectify),naryQF4185,r_,YPfalse); T8 = CALL3(1,VARREF(YevalSastYobjectify),arityF4192,r_,YPfalse); T2 = CALLN(1,VARREF(Ynew),13,VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_bindings),T3,VARREF(YevalSastYsignature_names),T4,VARREF(YevalSastYsignature_specs),T6,VARREF(YevalSastYsignature_naryQ),T7,VARREF(YevalSastYsignature_arity),T8,VARREF(YevalSastYsignature_value),valueF4191); T0 = T2; } else { T27 = CALL1(1,VARREF(Yhead),paramsF4184); paramF4193 = T27; T26 = CALL1(1,VARREF(YevalSsyntaxYsexpr_variable_name),paramF4193); snameF4194 = T26; T25 = CALL1(1,VARREF(YevalSsyntaxYsexpr_variable_type),paramF4193); stypeF4195 = T25; T24 = CALL2(1,VARREF(YgooSmacrosYEE),stypeF4195,VARREF(YevalSastYDsexpr_optionals_tag)); dottedQF4196 = T24; if (dottedQF4196 != YPfalse) { T23 = VARREF(YevalSastYDsexpr_optionals_type_name); } else { T23 = stypeF4195; } stypeF4197 = T23; T22 = CALL3(1,VARREF(YevalSastYobjectify),stypeF4197,r_,YPfalse); typeF4198 = T22; T21 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSmoduleYbinding_name),snameF4194,VARREF(YevalSmoduleYbinding_type),typeF4198,VARREF(YevalSastYbinding_dottedQ),dottedQF4196); bindingF4199 = T21; T17 = CALL1(1,VARREF(Ytail),paramsF4184); T18 = CALL2(1,VARREF(YgooSmacrosYpair),bindingF4199,bindingsF4186); T19 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLfab_listG),VARREF(Yhead),snameF4194,VARREF(Ytail),namesF4187); T20 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLfab_listG),VARREF(Yhead),typeF4198,VARREF(Ytail),typesF4188); a186_0 = T17; a186_1 = dottedQF4196; a186_2 = T18; a186_3 = T19; a186_4 = T20; paramsF4184 = a186_0; naryQF4185 = a186_1; bindingsF4186 = a186_2; namesF4187 = a186_3; typesF4188 = a186_4; goto LOOP_186; T0 = T16; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_compute_local_reference_offsets_280) { P binding_,r_; P bindingsF4203; P jF4202; P rF4201; P iF4200; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(binding_, 0); ARG(r_, 1); iF4200 = YPint((P)0); rF4201 = r_; LOOP_187: { P a187_0,a187_1; T1 = CALL2(1,VARREF(YisaQ),rF4201,VARREF(YevalSmoduleYLstatic_local_environmentG)); if (T1 != YPfalse) { jF4202 = YPint((P)0); T14 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),rF4201); bindingsF4203 = T14; LOOP_188: { P a188_0,a188_1; T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),bindingsF4203); if (T3 != YPfalse) { T5 = CALL2(1,VARREF(YgooSmathYA),iF4200,YPint((P)1)); T6 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),rF4201); a187_0 = T5; a187_1 = T6; iF4200 = a187_0; rF4201 = a187_1; goto LOOP_187; T2 = T4; } else { T9 = CALL1(1,VARREF(Yhead),bindingsF4203); T8 = CALL2(1,VARREF(YgooSmacrosYEE),T9,binding_); if (T8 != YPfalse) { T10 = CALL2(1,VARREF(Ytup),iF4200,jF4202); T7 = T10; } else { T12 = CALL2(1,VARREF(YgooSmathYA),jF4202,YPint((P)1)); T13 = CALL1(1,VARREF(Ytail),bindingsF4203); a188_0 = T12; a188_1 = T13; jF4202 = a188_0; bindingsF4203 = a188_1; goto LOOP_188; T7 = T11; } T2 = T7; } } T0 = T2; } else { T16 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T15 = CALL3(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_589),T16,rF4201); T0 = T15; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_binding_281) { P n_,b_,r_; P jF4206; P iF4205; P tup34F4204; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(n_, 0); ARG(b_, 1); ARG(r_, 2); T4 = CALL2(1,VARREF(YevalSastYcompute_local_reference_offsets),b_,r_); tup34F4204 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYelt),tup34F4204,YPint((P)0)); iF4205 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYelt),tup34F4204,YPint((P)1)); jF4206 = T2; T0 = CALL1(1,VARREF(YevalSastYbinding_value),b_); CALL1(1,VARREF(YevalSastYincf_ref_count),T0); T1 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYreference_binding),b_,VARREF(YevalSastYreference_frame_number),iF4205,VARREF(YevalSastYreference_frame_offset),jF4206); UNLINK_STACK(); RET(T1); } LOCCODEDEF(fun_binding_reference_class_282) { P b_; P x_1513F4208; P x_1512F4207; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(b_, 0); T14 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),b_); x_1512F4207 = T14; x_1513F4208 = VARREF(YgooSmacrosYEE); T1 = CALL2(1,x_1513F4208,x_1512F4207,LITREF(lit_532)); if (T1 != YPfalse) { T0 = VARREF(YevalSastYLglobal_referenceG); } else { T3 = CALL2(1,x_1513F4208,x_1512F4207,LITREF(lit_567)); if (T3 != YPfalse) { T2 = VARREF(YevalSastYLpredefined_referenceG); } else { T5 = CALL2(1,x_1513F4208,x_1512F4207,LITREF(lit_530)); if (T5 != YPfalse) { T4 = VARREF(YevalSastYLruntime_referenceG); } else { T7 = CALL2(1,x_1513F4208,x_1512F4207,LITREF(lit_543)); if (T7 != YPfalse) { T6 = VARREF(YevalSastYLdynamic_referenceG); } else { T9 = CALL2(1,x_1513F4208,x_1512F4207,LITREF(lit_554)); if (T9 != YPfalse) { T8 = VARREF(YevalSastYLmacro_referenceG); } else { T11 = CALL2(1,x_1513F4208,x_1512F4207,LITREF(lit_531)); if (T11 != YPfalse) { T10 = VARREF(YevalSastYLmagic_referenceG); } else { T13 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),b_); T12 = CALL2(1,VARREF(YevalSdependencyYast_error),LITREF(lit_594),T13); T10 = T12; } T8 = T10; } T6 = T8; } T4 = T6; } T2 = T4; } T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_binding_283) { P n_,b_,r_; P LrefGF4209; P T0,T1; LINK_STACK(); ARG(n_, 0); ARG(b_, 1); ARG(r_, 2); CALL2(1,VARREF(YevalSmoduleYregister_referenced_binding),r_,b_); T1 = CALL1(1,VARREF(YevalSastYbinding_reference_class),b_); LrefGF4209 = T1; T0 = CALL3(1,VARREF(Ynew),LrefGF4209,VARREF(YevalSastYreference_binding),b_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_binding_284) { P n_,b_,r_; P T0; LINK_STACK(); ARG(n_, 0); ARG(b_, 1); ARG(r_, 2); T0 = CALL2(1,VARREF(YevalSastYobjectify_free_global_reference),n_,r_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_default_type_285) { P r_; P T0; LINK_STACK(); ARG(r_, 0); T0 = CALL3(1,VARREF(YevalSastYobjectify),LITREF(lit_599),r_,YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_free_global_reference_286) { P name_,r_; P bF4211; P grF4210; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); T8 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); grF4210 = T8; T2 = CALL1(1,VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ),grF4210); if (T2 != YPfalse) { T3 = CALL1(1,VARREF(YevalSastYforeign_nameQ),name_); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YevalSastYobjectify_foreign_reference),name_,r_); T0 = T4; } else { T7 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); T6 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_freeQ),YPtrue,VARREF(YevalSmoduleYbinding_kind),LITREF(lit_532),VARREF(YevalSmoduleYbinding_name),name_,VARREF(YevalSmoduleYbinding_module),T7); bF4211 = T6; CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bF4211,grF4210); CALL2(1,VARREF(YevalSmoduleYregister_referenced_binding),grF4210,bF4211); T5 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLglobal_referenceG),VARREF(YevalSastYreference_binding),bF4211); T0 = T5; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSastYforeign_nameQ) { P name_; P T0,T1,T2; LINK_STACK(); ARG(name_, 0); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); T1 = CALL2(1,VARREF(YgooScolsSseqYpos),T2,YPchr((P)58)); T0 = CALL2(1,VARREF(YgooSlogYNEE),T1,YPfalse); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_foreign_reference_288) { P name_,r_; P bindingF4219; P modF4218; P loaderF4217; P grF4216; P varnameF4215; P modnameF4214; P breakF4213; P namestrF4212; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); T22 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); namestrF4212 = T22; T21 = CALL2(1,VARREF(YgooScolsSseqYpos),namestrF4212,YPchr((P)58)); breakF4213 = T21; T20 = CALL3(1,VARREF(YgooScolsSseqYsub),namestrF4212,YPint((P)0),breakF4213); modnameF4214 = T20; T18 = CALL2(1,VARREF(YgooSmathYA),YPint((P)1),breakF4213); T19 = CALL1(1,VARREF(YgooStypesYlen),namestrF4212); T17 = CALL3(1,VARREF(YgooScolsSseqYsub),namestrF4212,T18,T19); varnameF4215 = T17; T3 = CALL1(1,VARREF(YgooStypesYlen),modnameF4214); T2 = CALL2(1,VARREF(YgooSmagYG),T3,YPint((P)0)); if (T2 != YPfalse) { T5 = CALL1(1,VARREF(YgooStypesYlen),varnameF4215); T4 = CALL2(1,VARREF(YgooSmagYG),T5,YPint((P)0)); T1 = T4; } else { T1 = YPfalse; } T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T6 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_606),name_); } else { } T16 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); grF4216 = T16; T15 = CALL1(1,VARREF(YevalSmoduleYenvironment_module_loader),grF4216); loaderF4217 = T15; T14 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),modnameF4214); T13 = CALL2(1,VARREF(YevalSmoduleYprobe_module),loaderF4217,T14); modF4218 = T13; T11 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),varnameF4215); T12 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),modF4218); T10 = CALL2(1,VARREF(YevalSmoduleYfind_binding),T11,T12); bindingF4219 = T10; CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4219,grF4216); T7 = CALL1(1,VARREF(Ynot),bindingF4219); if (T7 != YPfalse) { T8 = CALL3(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_607),varnameF4215,modnameF4214); } else { } T9 = CALL3(1,VARREF(YevalSastYobjectify_binding),name_,bindingF4219,r_); UNLINK_STACK(); RET(T9); } LOCCODEDEF(fun_objectify_symbol_289) { P name_,r_; P T0,T1; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); T1 = CALL2(1,VARREF(YevalSmoduleYfind_binding),name_,r_); T0 = CALL3(1,VARREF(YevalSastYobjectify_binding),name_,T1,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ftype_290) { P r_; P T0; LINK_STACK(); ARG(r_, 0); T0 = CALL3(1,VARREF(YevalSastYobjectify),LITREF(lit_612),r_,YPfalse); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYfunctions) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLfunctionsG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_292) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YevalSastYDfunctions_nul)); } LOCCODEDEF(fun_293) { P n_; P T0,T1; LINK_STACK(); ARG(n_, 0); T1 = CALL1(1,VARREF(YevalSastYftype),FREEREF(0)); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSmoduleYbinding_name),n_,VARREF(YevalSmoduleYbinding_type),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_294) { P sig_,body_; P lineF4221; P tmpF4220; P T0,T1,T2,T3; LINK_STACK(); ARG(sig_, 0); ARG(body_, 1); T3 = CALL1(1,VARREF(YgooScolsSlstYline_of),sig_); tmpF4220 = T3; if (tmpF4220 != YPfalse) { T1 = tmpF4220; } else { T2 = CALL1(1,VARREF(YgooScolsSlstYline_of),body_); T1 = T2; } lineF4221 = T1; T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLast_methodG),VARREF(YevalSastYprogram_line),lineF4221); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_295) { P f_,b_; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(b_, 1); CALL2(1,VARREF(YevalSastYfunction_binding_setter),b_,f_); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T1 = CALL2(1,VARREF(YevalSastYobjectify_quotation),T2,FREEREF(0)); T0 = CALL2(1,VARREF(YevalSastYfunction_debug_name_setter),T1,f_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_locals_296) { P names_,sigs_,bodies_,body_,r_,tailQ_; P sigF4235; P bodyF4234; P metF4233; P varF4232; P tmpF4231; P tmpF4230; P tmpF4229; P x_1514F4228; P x_1515F4227; P x_1516F4226; P x_1517F4225; P metsF4224; P new_rF4223; P varsF4222; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30; LINK_STACK(); ARG(names_, 0); ARG(sigs_, 1); ARG(bodies_, 2); ARG(body_, 3); ARG(r_, 4); ARG(tailQ_, 5); T30 = FUNFAB(fun_293,1,r_); T29 = CALL2(1,VARREF(YgooSmacrosYmap),T30,names_); varsF4222 = T29; T28 = CALL2(1,VARREF(YevalSastYr_extendT),r_,varsF4222); new_rF4223 = T28; T27 = fun_294; T26 = CALL3(1,VARREF(YgooSmacrosYmap2),T27,sigs_,bodies_); metsF4224 = T26; T18 = CALL1(1,VARREF(YgooScolsScolYenum),varsF4222); x_1517F4225 = T18; T19 = CALL1(1,VARREF(YgooScolsScolYenum),metsF4224); x_1516F4226 = T19; T20 = CALL1(1,VARREF(YgooScolsScolYenum),bodies_); x_1515F4227 = T20; T21 = CALL1(1,VARREF(YgooScolsScolYenum),sigs_); x_1514F4228 = T21; LOOP_189: { P a189_0,a189_1,a189_2,a189_3; T8 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1517F4225); tmpF4229 = T8; if (tmpF4229 != YPfalse) { T2 = tmpF4229; } else { T7 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1516F4226); tmpF4230 = T7; if (tmpF4230 != YPfalse) { T3 = tmpF4230; } else { T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1515F4227); tmpF4231 = T6; if (tmpF4231 != YPfalse) { T4 = tmpF4231; } else { T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1514F4228); T4 = T5; } T3 = T4; } T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T17 = CALL1(1,VARREF(YgooScolsScolYnow),x_1517F4225); varF4232 = T17; T16 = CALL1(1,VARREF(YgooScolsScolYnow),x_1516F4226); metF4233 = T16; T15 = CALL1(1,VARREF(YgooScolsScolYnow),x_1515F4227); bodyF4234 = T15; T14 = CALL1(1,VARREF(YgooScolsScolYnow),x_1514F4228); sigF4235 = T14; CALL2(1,VARREF(YevalSastYbinding_value_setter),metF4233,varF4232); CALL5(1,VARREF(YevalSastYobjectify_function_using),metF4233,sigF4235,bodyF4234,new_rF4223,YPfalse); T10 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1517F4225); T11 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1516F4226); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1515F4227); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1514F4228); a189_0 = T10; a189_1 = T11; a189_2 = T12; a189_3 = T13; x_1517F4225 = a189_0; x_1516F4226 = a189_1; x_1515F4227 = a189_2; x_1514F4228 = a189_3; goto LOOP_189; T0 = T9; } else { T0 = YPfalse; } } T22 = FUNFAB(fun_295,1,r_); CALL3(1,VARREF(YgooScolsSseqYdo2),T22,metsF4224,varsF4222); T24 = CALL4(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSchrYfabs),YPfalse,VARREF(YevalSastYLfunctionsG),metsF4224); T25 = CALL3(1,VARREF(YevalSastYobjectify_sequential),body_,new_rF4223,YPtrue); T23 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLlocalsG),VARREF(YevalSastYlocals_bindings),varsF4222,VARREF(YevalSastYlocals_functions),T24,VARREF(YevalSastYlocals_body),T25); UNLINK_STACK(); RET(T23); } LOCCODEDEF(fun_objectify_bind_exit_297) { P name_,body_,line_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); ARG(body_, 1); ARG(line_, 2); ARG(r_, 3); ARG(tailQ_, 4); T3 = CALL2(1,VARREF(YgooScolsSlstYline_list),line_,name_); T2 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),T3,body_); T1 = CALL3(1,VARREF(YevalSastYobjectify),T2,r_,YPfalse); T0 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLbind_exitG),VARREF(YevalSastYbind_exit_main_fun),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_unwind_protect_298) { P protected_form_,cleanup_forms_,line_,r_,tailQ_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(protected_form_, 0); ARG(cleanup_forms_, 1); ARG(line_, 2); ARG(r_, 3); ARG(tailQ_, 4); T3 = CALL2(1,VARREF(YgooScolsSlstYline_list),line_,protected_form_); T2 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),Ynil,T3); T1 = CALL3(1,VARREF(YevalSastYobjectify),T2,r_,YPfalse); T5 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),Ynil,cleanup_forms_); T4 = CALL3(1,VARREF(YevalSastYobjectify),T5,r_,YPfalse); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLunwind_protectG),VARREF(YevalSastYunwind_protect_protected_thunk),T1,VARREF(YevalSastYunwind_protect_cleanup_thunk),T4); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_monitor_299) { P type_,info_,test_,handler_,body_,r_,tailQ_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(type_, 0); ARG(info_, 1); ARG(test_, 2); ARG(handler_, 3); ARG(body_, 4); ARG(r_, 5); ARG(tailQ_, 6); T1 = CALL3(1,VARREF(YevalSastYobjectify),type_,r_,YPfalse); T2 = CALL3(1,VARREF(YevalSastYobjectify),info_,r_,YPfalse); T3 = CALL3(1,VARREF(YevalSastYobjectify),test_,r_,YPfalse); T4 = CALL3(1,VARREF(YevalSastYobjectify),handler_,r_,YPfalse); T5 = CALL3(1,VARREF(YevalSastYobjectify),body_,r_,YPfalse); T0 = CALLN(1,VARREF(Ynew),11,VARREF(YevalSastYLmonitorG),VARREF(YevalSastYmonitor_type),T1,VARREF(YevalSastYmonitor_info),T2,VARREF(YevalSastYmonitor_test),T3,VARREF(YevalSastYmonitor_handler),T4,VARREF(YevalSastYmonitor_main_thunk),T5); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_refs_300) { P eT_,r_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(eT_, 0); ARG(r_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),eT_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLinline_refsG)); T0 = T2; } else { T5 = CALL1(1,VARREF(Yhead),eT_); T4 = CALL3(1,VARREF(YevalSastYobjectify),T5,r_,YPfalse); T7 = CALL1(1,VARREF(Ytail),eT_); T6 = CALL2(1,VARREF(YevalSastYobjectify_refs),T7,r_); T3 = CALL2(1,VARREF(YevalSastYinline_refs),T4,T6); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_split_c_inline_vals_301) { P vals_; P valF4239; P refsF4238; P strsF4237; P valsF4236; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(vals_, 0); valsF4236 = vals_; strsF4237 = Ynil; refsF4238 = Ynil; LOOP_190: { P a190_0,a190_1,a190_2; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),valsF4236); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),strsF4237); T4 = CALL1(1,VARREF(YgooSmacrosYrevX),refsF4238); T2 = CALL2(1,VARREF(Ytup),T3,T4); T0 = T2; } else { T14 = CALL1(1,VARREF(Yhead),valsF4236); valF4239 = T14; T6 = CALL2(1,VARREF(YisaQ),valF4239,VARREF(YLstrG)); if (T6 != YPfalse) { T8 = CALL1(1,VARREF(Ytail),valsF4236); T9 = CALL2(1,VARREF(YgooScolsScolYadd),strsF4237,valF4239); a190_0 = T8; a190_1 = T9; a190_2 = refsF4238; valsF4236 = a190_0; strsF4237 = a190_1; refsF4238 = a190_2; goto LOOP_190; T5 = T7; } else { T11 = CALL1(1,VARREF(Ytail),valsF4236); T12 = CALL2(1,VARREF(YgooScolsScolYadd),strsF4237,YPfalse); T13 = CALL2(1,VARREF(YgooScolsScolYadd),refsF4238,valF4239); a190_0 = T11; a190_1 = T12; a190_2 = T13; valsF4236 = a190_0; strsF4237 = a190_1; refsF4238 = a190_2; goto LOOP_190; T5 = T10; } T0 = T5; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_c_expr_302) { P x_,exprQ_,r_,tailQ_; P refsF4243; P ref_strsF4242; P strsF4241; P tup35F4240; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(exprQ_, 1); ARG(r_, 2); ARG(tailQ_, 3); T4 = CALL1(1,VARREF(YevalSastYsplit_c_inline_vals),x_); tup35F4240 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYelt),tup35F4240,YPint((P)0)); strsF4241 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYelt),tup35F4240,YPint((P)1)); ref_strsF4242 = T2; T1 = CALL2(1,VARREF(YevalSastYobjectify_refs),ref_strsF4242,r_); refsF4243 = T1; T0 = CALLN(1,VARREF(Ynew),7,VARREF(YevalSastYLc_inlineG),VARREF(YevalSastYc_inline_refs),refsF4243,VARREF(YevalSastYc_inline_strs),strsF4241,VARREF(YevalSastYc_inline_exprQ),exprQ_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_objectify_c_inline_303) { P x_,r_,tailQ_; P moduleF4245; P resF4244; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T6 = CALL4(1,VARREF(YevalSastYobjectify_c_expr),x_,YPfalse,r_,tailQ_); resF4244 = T6; T2 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),r_); T1 = CALL2(1,VARREF(YisaQ),T2,VARREF(YevalSmoduleYLstatic_nul_environmentG)); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); moduleF4245 = T5; T3 = CALL1(1,VARREF(YevalSmoduleYmodule_c_forms),moduleF4245); CALL2(1,VARREF(YgooScolsSseqxYpushX),T3,resF4244); T4 = CALL2(1,VARREF(YevalSastYobjectify_quotation),YPfalse,r_); T0 = T4; } else { T0 = resF4244; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_304) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_305) { P c_,r_; P T0; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_306) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_643),FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_307) { P exit_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(exit_, 0); T2 = CALL1(1,VARREF(Ylst),FREEREF(0)); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YgooSfunYhandler_info_message),LITREF(lit_641),VARREF(YgooSfunYhandler_info_arguments),T2); T3 = fun_304; T4 = FUNFAB(fun_305,1,exit_); T5 = FUNFAB(fun_306,1,FREEREF(0)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSconditionsYLrestartG),T1,T3,T4,T5); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_308) { P name_; P bindingF4246; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(name_, 0); T5 = CALL2(1,VARREF(YevalSmoduleYfind_binding),name_,FREEREF(0)); bindingF4246 = T5; T1 = CALL2(1,VARREF(YgooSmacrosYEE),bindingF4246,YPfalse); if (T1 != YPfalse) { T3 = FUNFAB(fun_307,1,name_); T2 = with_exit(T3); T0 = T2; } else { T4 = CALL3(1,VARREF(YevalSmoduleYexport_bindingX),FREEREF(1),name_,bindingF4246); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_export_309) { P names_,r_,tailQ_; P moduleF4248; P envF4247; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(names_, 0); ARG(r_, 1); ARG(tailQ_, 2); T7 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); envF4247 = T7; T6 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); moduleF4248 = T6; T2 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),moduleF4248); T1 = CALL2(1,VARREF(YgooSmacrosYEE),envF4247,T2); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_638)); } else { } T4 = FUNFAB(fun_308,2,envF4247,moduleF4248); CALL2(1,VARREF(YgooSmacrosYdo),T4,names_); T5 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); UNLINK_STACK(); RET(T5); } LOCCODEDEF(fun_310) { P b_; P T0,T1; LINK_STACK(); ARG(b_, 0); CALL2(1,VARREF(YevalSmoduleYimport_globalX),b_,FREEREF(0)); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T0 = CALL3(1,VARREF(YevalSmoduleYexport_bindingX),FREEREF(1),T1,b_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_useSexport_module_311) { P name_,r_,tailQ_; P used_moduleF4252; P loaderF4251; P moduleF4250; P envF4249; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); ARG(tailQ_, 2); T7 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); envF4249 = T7; T6 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); moduleF4250 = T6; T5 = CALL1(1,VARREF(YevalSmoduleYenvironment_module_loader),envF4249); loaderF4251 = T5; T4 = CALL2(1,VARREF(YevalSmoduleYprobe_module),loaderF4251,name_); used_moduleF4252 = T4; T0 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),envF4249); CALL2(1,VARREF(YgooScolsSseqxYpushX),T0,used_moduleF4252); T1 = FUNFAB(fun_310,2,envF4249,moduleF4250); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_exports),used_moduleF4252); CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); T3 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); UNLINK_STACK(); RET(T3); } LOCCODEDEF(fun_312) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSlogYE),x_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_use_include_313) { P name_,r_,tailQ_; P modF4254; P envF4253; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); ARG(tailQ_, 2); T8 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); envF4253 = T8; T7 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),envF4253); modF4254 = T7; T2 = FUNFAB(fun_312,1,name_); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_includes),modF4254); T1 = CALL2(1,VARREF(YgooStypesYanyQ),T2,T3); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_includes),modF4254); T4 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T5,name_); } else { } T6 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); UNLINK_STACK(); RET(T6); } LOCCODEDEF(fun_314) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSlogYE),x_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_use_library_315) { P name_,r_,tailQ_; P modF4256; P envF4255; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); ARG(tailQ_, 2); T8 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); envF4255 = T8; T7 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),envF4255); modF4256 = T7; T2 = FUNFAB(fun_314,1,name_); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_libraries),modF4256); T1 = CALL2(1,VARREF(YgooStypesYanyQ),T2,T3); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_libraries),modF4256); T4 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T5,name_); } else { } T6 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); UNLINK_STACK(); RET(T6); } LOCCODEDEF(fun_316) { P b_; P T0; LINK_STACK(); ARG(b_, 0); T0 = CALL2(1,VARREF(YevalSmoduleYimport_globalX),b_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_use_mod_317) { P name_; P used_moduleF4258; P loaderF4257; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(name_, 0); T4 = CALL1(1,VARREF(YevalSmoduleYenvironment_module_loader),FREEREF(0)); loaderF4257 = T4; T3 = CALL2(1,VARREF(YevalSmoduleYprobe_module),loaderF4257,name_); used_moduleF4258 = T3; T0 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),FREEREF(0)); CALL2(1,VARREF(YgooScolsSseqxYpushX),T0,used_moduleF4258); T1 = FUNFAB(fun_316,1,FREEREF(0)); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_exports),used_moduleF4258); CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(used_moduleF4258); } LOCCODEDEF(fun_use_c_mod_318) { P mod_,name_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_files),mod_); T2 = CALL2(1,VARREF(YgooScolsScolYmemQ),T3,name_); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_files),mod_); T4 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T5,name_); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_use_module_319) { P name_,r_,tailQ_; P swig_modF4267; P swig_mod_nameF4266; P tmpF4265; P x_1520F4264; P x_1519F4263; P use_c_modF4262; P use_modF4261; P modF4260; P envF4259; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); ARG(tailQ_, 2); T21 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); envF4259 = T21; T20 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),envF4259); modF4260 = T20; T17 = FUNSHELL(1,fun_use_mod_317,1); use_modF4261 = T17; T18 = fun_use_c_mod_318; use_c_modF4262 = T18; FUNINIT(use_modF4261, 1,envF4259); T16 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); x_1519F4263 = T16; x_1520F4264 = VARREF(YgooScolsSseqYsuffixQ); T3 = CALL2(1,x_1520F4264,x_1519F4263,LITREF(lit_660)); tmpF4265 = T3; if (tmpF4265 != YPfalse) { T1 = tmpF4265; } else { T2 = CALL2(1,x_1520F4264,x_1519F4263,LITREF(lit_661)); T1 = T2; } if (T1 != YPfalse) { T5 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),name_); T4 = CALL2(1,use_c_modF4262,modF4260,T5); T0 = T4; } else { T7 = CALL2(1,x_1520F4264,x_1519F4263,LITREF(lit_662)); if (T7 != YPfalse) { T14 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); T13 = CALL2(1,VARREF(YgooScolsSseqYsplit),T14,YPchr((P)46)); T12 = CALL1(1,VARREF(YgooSmacrosY1st),T13); T11 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),T12); swig_mod_nameF4266 = T11; T10 = CALL1(1,use_modF4261,swig_mod_nameF4266); swig_modF4267 = T10; T9 = CALL2(1,VARREF(YgooSmacrosYcat_sym),name_,LITREF(lit_663)); T8 = CALL2(1,use_c_modF4262,swig_modF4267,T9); T6 = T8; } else { T15 = CALL1(1,use_modF4261,name_); T6 = T15; } T0 = T6; } T19 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); UNLINK_STACK(); RET(T19); } LOCCODEDEF(fun_320) { P b_; P T0; LINK_STACK(); ARG(b_, 0); T0 = CALL3(1,VARREF(YevalSmoduleYimport_and_mangle_globalX),b_,FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_use_mangle_module_321) { P name_,mangler_,r_,tailQ_; P str_manglerF4272; P used_moduleF4271; P loaderF4270; P moduleF4269; P envF4268; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(name_, 0); ARG(mangler_, 1); ARG(r_, 2); ARG(tailQ_, 3); T8 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); envF4268 = T8; T7 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); moduleF4269 = T7; T6 = CALL1(1,VARREF(YevalSmoduleYenvironment_module_loader),envF4268); loaderF4270 = T6; T5 = CALL2(1,VARREF(YevalSmoduleYprobe_module),loaderF4270,name_); used_moduleF4271 = T5; T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),mangler_); str_manglerF4272 = T4; T0 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),envF4268); CALL2(1,VARREF(YgooScolsSseqxYpushX),T0,used_moduleF4271); T1 = FUNFAB(fun_320,2,str_manglerF4272,envF4268); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_exports),used_moduleF4271); CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); T3 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),YPfalse); UNLINK_STACK(); RET(T3); } LOCCODEDEF(fun_expand_bind_list_322) { P pat_,var_,fail_; P T0; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T0 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_669),pat_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_bind_list_323) { P pat_,var_,fail_; P T0,T1,T2,T3; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(Ylst),LITREF(lit_671)); T2 = CALL1(1,VARREF(Ylst),var_); T3 = CALL1(1,VARREF(Ylst),fail_); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T3,LITREF(lit_8)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_expand_bind_list_324) { P pat_,var_,fail_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquoteQ),pat_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_673),pat_); T0 = T2; } else { T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquote_splicingQ),pat_); if (T4 != YPfalse) { T5 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_674),pat_); T3 = T5; } else { if (YPtrue != YPfalse) { T7 = CALL3(1,VARREF(YevalSastYexpand_bind_listT),pat_,var_,fail_); T6 = T7; } else { T6 = YPfalse; } T3 = T6; } T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_expand_bind_listT_325) { P pat_,var_,fail_; P T0,T1,T2,T3; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(Ylst),LITREF(lit_671)); T2 = CALL1(1,VARREF(Ylst),var_); T3 = CALL1(1,VARREF(Ylst),fail_); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T3,LITREF(lit_8)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_bind_listT_326) { P pat_,var_,fail_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T6 = CALL1(1,VARREF(Ylst),var_); T9 = CALL1(1,VARREF(Yhead),pat_); T8 = CALL3(1,VARREF(YevalSastYexpand_bind_element),T9,var_,fail_); T7 = CALL1(1,VARREF(Ylst),T8); T5 = CALL3(1,VARREF(YgooSmacrosYcat),T6,T7,LITREF(lit_8)); T4 = CALL1(1,VARREF(Ylst),T5); T3 = CALL2(1,VARREF(YgooSmacrosYcat),T4,LITREF(lit_8)); T2 = CALL1(1,VARREF(Ylst),T3); T12 = CALL1(1,VARREF(Ytail),pat_); T11 = CALL3(1,VARREF(YevalSastYexpand_bind_listT),T12,var_,fail_); T10 = CALL1(1,VARREF(Ylst),T11); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T10,LITREF(lit_8)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_bind_element_327) { P pat_,var_,fail_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(Ylst),LITREF(lit_680)); T2 = CALL1(1,VARREF(Ylst),var_); T5 = CALL1(1,VARREF(Ylst),LITREF(lit_681)); T6 = CALL1(1,VARREF(Ylst),pat_); T4 = CALL3(1,VARREF(YgooSmacrosYcat),T5,T6,Ynil); T3 = CALL1(1,VARREF(Ylst),T4); T7 = CALL1(1,VARREF(Ylst),fail_); T0 = CALL5(1,VARREF(YgooSmacrosYcat),T1,T2,T3,T7,LITREF(lit_8)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_bind_element_328) { P pat_,var_,fail_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquoteQ),pat_); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(Ylst),LITREF(lit_11)); T6 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T8 = CALL1(1,VARREF(YgooSmacrosY2nd),pat_); T7 = CALL1(1,VARREF(Ylst),T8); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_683)); T12 = CALL1(1,VARREF(Ylst),var_); T13 = CALL1(1,VARREF(Ylst),fail_); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T13,LITREF(lit_8)); T9 = CALL1(1,VARREF(Ylst),T10); T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T9,LITREF(lit_8)); T4 = CALL1(1,VARREF(Ylst),T5); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_684)); T17 = CALL1(1,VARREF(Ylst),var_); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_8)); T14 = CALL1(1,VARREF(Ylst),T15); T2 = CALL4(1,VARREF(YgooSmacrosYcat),T3,T4,T14,LITREF(lit_8)); T0 = T2; } else { T19 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquote_splicingQ),pat_); if (T19 != YPfalse) { T21 = CALL1(1,VARREF(Ylst),LITREF(lit_11)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T26 = CALL1(1,VARREF(YgooSmacrosY2nd),pat_); T25 = CALL1(1,VARREF(Ylst),T26); T27 = CALL1(1,VARREF(Ylst),var_); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T27,LITREF(lit_8)); T22 = CALL1(1,VARREF(Ylst),T23); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_681)); T31 = CALL1(1,VARREF(Ylst),Ynil); T29 = CALL3(1,VARREF(YgooSmacrosYcat),T30,T31,Ynil); T28 = CALL1(1,VARREF(Ylst),T29); T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T28,LITREF(lit_8)); T18 = T20; } else { if (YPtrue != YPfalse) { T34 = CALL1(1,VARREF(Ylst),LITREF(lit_11)); T37 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T42 = CALL1(1,VARREF(Ylst),var_); T45 = CALL1(1,VARREF(Ylst),LITREF(lit_685)); T46 = CALL1(1,VARREF(Ylst),var_); T47 = CALL1(1,VARREF(Ylst),fail_); T44 = CALL4(1,VARREF(YgooSmacrosYcat),T45,T46,T47,LITREF(lit_8)); T43 = CALL1(1,VARREF(Ylst),T44); T41 = CALL3(1,VARREF(YgooSmacrosYcat),T42,T43,LITREF(lit_8)); T40 = CALL1(1,VARREF(Ylst),T41); T39 = CALL2(1,VARREF(YgooSmacrosYcat),T40,LITREF(lit_8)); T38 = CALL1(1,VARREF(Ylst),T39); T49 = CALL3(1,VARREF(YevalSastYexpand_bind_list),pat_,var_,fail_); T48 = CALL1(1,VARREF(Ylst),T49); T36 = CALL4(1,VARREF(YgooSmacrosYcat),T37,T38,T48,LITREF(lit_8)); T35 = CALL1(1,VARREF(Ylst),T36); T52 = CALL1(1,VARREF(Ylst),LITREF(lit_684)); T53 = CALL1(1,VARREF(Ylst),var_); T51 = CALL3(1,VARREF(YgooSmacrosYcat),T52,T53,LITREF(lit_8)); T50 = CALL1(1,VARREF(Ylst),T51); T33 = CALL4(1,VARREF(YgooSmacrosYcat),T34,T35,T50,LITREF(lit_8)); T32 = T33; } else { T32 = YPfalse; } T18 = T32; } T0 = T18; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_pattern_329) { P pat_,var_,fail_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(pat_, 0); ARG(var_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(Ylst),LITREF(lit_688)); T4 = CALL1(1,VARREF(Ylst),LITREF(lit_689)); T5 = CALL1(1,VARREF(Ylst),var_); T6 = CALL1(1,VARREF(Ylst),LITREF(lit_690)); T3 = CALL4(1,VARREF(YgooSmacrosYcat),T4,T5,T6,LITREF(lit_8)); T2 = CALL1(1,VARREF(Ylst),T3); T8 = CALL3(1,VARREF(YevalSastYexpand_bind_list),pat_,var_,fail_); T7 = CALL1(1,VARREF(Ylst),T8); T11 = CALL1(1,VARREF(Ylst),fail_); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_691)); T13 = CALL1(1,VARREF(Ylst),var_); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T13,LITREF(lit_8)); T9 = CALL1(1,VARREF(Ylst),T10); T0 = CALL5(1,VARREF(YgooSmacrosYcat),T1,T2,T7,T9,LITREF(lit_8)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_330) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Ylst),x_); T2 = CALL1(1,VARREF(Ylst),YPfalse); T0 = CALL3(1,VARREF(YgooSmacrosYcat),T1,T2,LITREF(lit_8)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_expand_syntax_if_331) { P x_; P epatF4280; P failF4279; P varF4278; P elseF4277; P thenF4276; P valueF4275; P varsF4274; P patF4273; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49; LINK_STACK(); ARG(x_, 0); T49 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_if_pattern),x_); patF4273 = T49; T48 = CALL1(1,VARREF(YevalSsyntaxYsexpr_bind_pattern_variables),patF4273); varsF4274 = T48; T47 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_if_value),x_); valueF4275 = T47; T46 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_if_then),x_); thenF4276 = T46; T45 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_if_else),x_); elseF4277 = T45; T44 = CALL0(1,VARREF(YgooSmacrosYgensym)); varF4278 = T44; T43 = CALL0(1,VARREF(YgooSmacrosYgensym)); failF4279 = T43; T42 = CALL3(1,VARREF(YevalSastYexpand_pattern),patF4273,varF4278,failF4279); epatF4280 = T42; T1 = CALL1(1,VARREF(Ylst),LITREF(lit_694)); T2 = CALL1(1,VARREF(Ylst),LITREF(lit_695)); T5 = CALL1(1,VARREF(Ylst),LITREF(lit_696)); T10 = CALL1(1,VARREF(Ylst),failF4279); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_697)); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_698)); T14 = CALL3(1,VARREF(YgooSmacrosYcat),T15,T16,LITREF(lit_8)); T13 = CALL1(1,VARREF(Ylst),T14); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_699)); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_583)); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_8)); T17 = CALL1(1,VARREF(Ylst),T18); T12 = CALL3(1,VARREF(YgooSmacrosYcat),T13,T17,LITREF(lit_8)); T11 = CALL1(1,VARREF(Ylst),T12); T23 = CALL1(1,VARREF(Ylst),LITREF(lit_695)); T24 = CALL1(1,VARREF(Ylst),elseF4277); T22 = CALL3(1,VARREF(YgooSmacrosYcat),T23,T24,LITREF(lit_8)); T21 = CALL1(1,VARREF(Ylst),T22); T9 = CALL4(1,VARREF(YgooSmacrosYcat),T10,T11,T21,LITREF(lit_8)); T8 = CALL1(1,VARREF(Ylst),T9); T7 = CALL2(1,VARREF(YgooSmacrosYcat),T8,LITREF(lit_8)); T6 = CALL1(1,VARREF(Ylst),T7); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T32 = CALL1(1,VARREF(Ylst),varF4278); T33 = CALL1(1,VARREF(Ylst),valueF4275); T31 = CALL3(1,VARREF(YgooSmacrosYcat),T32,T33,LITREF(lit_8)); T30 = CALL1(1,VARREF(Ylst),T31); T29 = CALL2(1,VARREF(YgooSmacrosYcat),T30,LITREF(lit_8)); T28 = CALL1(1,VARREF(Ylst),T29); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T39 = fun_330; T38 = CALL2(1,VARREF(YgooSmacrosYmap),T39,varsF4274); T37 = CALL1(1,VARREF(Ylst),T38); T40 = CALL1(1,VARREF(Ylst),epatF4280); T41 = CALL1(1,VARREF(Ylst),thenF4276); T35 = CALL5(1,VARREF(YgooSmacrosYcat),T36,T37,T40,T41,LITREF(lit_8)); T34 = CALL1(1,VARREF(Ylst),T35); T26 = CALL4(1,VARREF(YgooSmacrosYcat),T27,T28,T34,LITREF(lit_8)); T25 = CALL1(1,VARREF(Ylst),T26); T4 = CALL4(1,VARREF(YgooSmacrosYcat),T5,T6,T25,LITREF(lit_8)); T3 = CALL1(1,VARREF(Ylst),T4); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T3,LITREF(lit_8)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_r_extendT_332) { P r_,bindings_; P T0; LINK_STACK(); ARG(r_, 0); ARG(bindings_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSmoduleYLstatic_local_environmentG),VARREF(YevalSmoduleYenvironment_next),r_,VARREF(YevalSmoduleYenvironment_bindings),bindings_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_find_binding_333) { P name_,r_; P bindingsF4281; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); T11 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),r_); bindingsF4281 = T11; LOOP_191: { P a191_0; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),bindingsF4281); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),r_); T2 = CALL2(1,VARREF(YevalSmoduleYfind_binding),name_,T3); T0 = T2; } else { T7 = CALL1(1,VARREF(Yhead),bindingsF4281); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_name),T7); T5 = CALL2(1,VARREF(YgooSmacrosYEE),name_,T6); if (T5 != YPfalse) { T8 = CALL1(1,VARREF(Yhead),bindingsF4281); T4 = T8; } else { T10 = CALL1(1,VARREF(Ytail),bindingsF4281); a191_0 = T10; bindingsF4281 = a191_0; goto LOOP_191; T4 = T9; } T0 = T4; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_find_binding_334) { P name_,r_; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_register_magic_binding_335) { P name_,value_; P T0,T1; LINK_STACK(); ARG(name_, 0); ARG(value_, 1); T1 = CALL2(1,VARREF(YgooScolsScolYadd),VARREF(YevalSastYTmagic_bindingsT),value_); T0 = VARSET(YevalSastYTmagic_bindingsT,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_magic_bindings_336) { LINK_STACK(); UNLINK_STACK(); QRET(VARREF(YevalSastYTmagic_bindingsT)); } LOCCODEDEF(fun_x_1524_337) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_713),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_338) { P return_; P sexpr_nameF4296; P special_nameF4295; P x_1523F4294; P x_1523F4293; P x_1523F4292; P x_1523F4291; P x_1523F4290; P x_1523F4289; P x_1523F4288; P x_1523F4287; P bodyF4286; P paramsF4285; P nameF4284; P x_1523F4283; P x_1524F4282; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57; LINK_STACK(); ARG(return_, 0); T57 = FUNSHELL(0,fun_x_1524_337,2); x_1524F4282 = T57; FUNINIT(x_1524F4282, 2,FREEREF(0),return_); x_1523F4283 = FREEREF(0); nameF4284 = YPfalse; paramsF4285 = YPfalse; bodyF4286 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1523F4283,VARREF(YLlstG)); if (T3 != YPfalse) { T13 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1523F4283,LITREF(lit_713),x_1524F4282); x_1523F4287 = T13; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1523F4287,x_1524F4282); nameF4284 = T11; T12 = CALL1(1,VARREF(Ytail),x_1523F4287); x_1523F4288 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1523F4288,x_1524F4282); x_1523F4289 = T9; paramsF4285 = x_1523F4289; x_1523F4290 = Ynil; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1523F4290,x_1524F4282); x_1523F4291 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1523F4291,x_1524F4282); T8 = CALL1(1,VARREF(Ytail),x_1523F4290); x_1523F4292 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1523F4292,x_1524F4282); T10 = CALL1(1,VARREF(Ytail),x_1523F4288); x_1523F4293 = T10; bodyF4286 = x_1523F4293; x_1523F4294 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1523F4294,x_1524F4282); } else { T14 = CALL2(1,x_1524F4282,LITREF(lit_5),x_1523F4283); } T56 = nameF4284; T55 = CALL2(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_714),T56); special_nameF4295 = T55; T54 = nameF4284; T53 = CALL3(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_715),T54,LITREF(lit_716)); sexpr_nameF4296 = T53; T16 = CALL1(1,VARREF(Ylst),LITREF(lit_11)); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_717)); T20 = CALL1(1,VARREF(Ylst),special_nameF4295); T23 = CALL1(1,VARREF(Ylst),LITREF(lit_718)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_719)); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_720)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_681)); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_531)); T27 = CALL3(1,VARREF(YgooSmacrosYcat),T28,T29,Ynil); T26 = CALL1(1,VARREF(Ylst),T27); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_721)); T31 = CALL1(1,VARREF(Ylst),sexpr_nameF4296); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_722)); T33 = CALL1(1,VARREF(Ylst),YPfalse); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_723)); T37 = CALL1(1,VARREF(Ylst),LITREF(lit_578)); T40 = paramsF4285; T39 = CALL2(1,VARREF(YgooSmacrosYcat),T40,LITREF(lit_8)); T38 = CALL1(1,VARREF(Ylst),T39); T41 = bodyF4286; T36 = CALL4(1,VARREF(YgooSmacrosYcat),T37,T38,T41,LITREF(lit_8)); T35 = CALL1(1,VARREF(Ylst),T36); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_724)); T43 = CALL1(1,VARREF(Ylst),YPfalse); T22 = CALLN(1,VARREF(YgooSmacrosYcat),13,T23,T24,T25,T26,T30,T31,T32,T33,T34,T35,T42,T43,LITREF(lit_8)); T21 = CALL1(1,VARREF(Ylst),T22); T18 = CALL4(1,VARREF(YgooSmacrosYcat),T19,T20,T21,LITREF(lit_8)); T17 = CALL1(1,VARREF(Ylst),T18); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_706)); T49 = CALL1(1,VARREF(Ylst),LITREF(lit_681)); T51 = nameF4284; T50 = CALL1(1,VARREF(Ylst),T51); T48 = CALL3(1,VARREF(YgooSmacrosYcat),T49,T50,Ynil); T47 = CALL1(1,VARREF(Ylst),T48); T52 = CALL1(1,VARREF(Ylst),special_nameF4295); T45 = CALL4(1,VARREF(YgooSmacrosYcat),T46,T47,T52,LITREF(lit_8)); T44 = CALL1(1,VARREF(Ylst),T45); T15 = CALL4(1,VARREF(YgooSmacrosYcat),T16,T17,T44,LITREF(lit_8)); UNLINK_STACK(); QRET(T15); } LOCCODEDEF(fun_339) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_338,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_340) { P x_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_if_test),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_if_then),x_); T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_if_else),x_); T0 = CALL5(1,VARREF(YevalSastYobjectify_alternative),T1,T2,T3,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_341) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(Ytail),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_sequential),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_342) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL2(1,VARREF(YevalSastYobjectify_raw),T1,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_343) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_text_of_quotation),x_); T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),T1,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_344) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_assignment_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_assignment_value),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_assignment),T1,T2,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_345) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_value),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_variable_definition),T1,T2,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_346) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_value),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_variable_definition),T1,T2,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_347) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_value),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_dynamic_definition),T1,T2,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_348) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_definition_value),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_syntax_definition),T1,T2,r_,YPtrue); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_349) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_syntax_definition_value),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_syntax_definition),T1,T2,r_,YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_350) { P x_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_adjectives),x_); T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_value),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_method_definition),T1,T2,T3,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_351) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_signature),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_generic_definition),T1,T2,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_352) { P x_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_variable),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_adjectives),x_); T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_value),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_function_definition),T1,T2,T3,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_353) { P x_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_method_signature),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_method_body),x_); T3 = CALL1(1,VARREF(YgooScolsSlstYline_of),x_); T0 = CALL5(1,VARREF(YevalSastYobjectify_function),T1,T2,T3,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_354) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T2 = CALL1(1,VARREF(YgooScolsSseqY3rd),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_boundQ),T1,T2,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_355) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_let_Gcombination),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_356) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_def_value),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_357) { P x_,r_,tailQ_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_loc_bound_names),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_loc_bound_signatures),x_); T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_loc_bound_bodies),x_); T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_loc_raw_body),x_); T0 = CALLN(1,VARREF(YevalSastYobjectify_locals),6,T1,T2,T3,T4,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_358) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_iterate_Gloc),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_359) { P x_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_block_name),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_block_body),x_); T3 = CALL1(1,VARREF(YgooScolsSlstYline_of),x_); T0 = CALL5(1,VARREF(YevalSastYobjectify_bind_exit),T1,T2,T3,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_360) { P x_,r_,tailQ_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unwind_protect_protected_form),x_); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unwind_protect_cleanup_forms),x_); T3 = CALL1(1,VARREF(YgooScolsSlstYline_of),x_); T0 = CALL5(1,VARREF(YevalSastYobjectify_unwind_protect),T1,T2,T3,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_361) { P x_,r_,tailQ_; P bodyF4302; P handlerF4301; P testF4300; P infoF4299; P typeF4298; P tup36F4297; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T6 = CALL1(1,VARREF(YevalSsyntaxYsexpr_monitor_expand),x_); tup36F4297 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4297,YPint((P)0)); typeF4298 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4297,YPint((P)1)); infoF4299 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4297,YPint((P)2)); testF4300 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4297,YPint((P)3)); handlerF4301 = T2; T1 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4297,YPint((P)4)); bodyF4302 = T1; T0 = CALLN(1,VARREF(YevalSastYobjectify_monitor),7,typeF4298,infoF4299,testF4300,handlerF4301,bodyF4302,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_pairize_362) { P args_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(args_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),args_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Ylst),LITREF(lit_681),Ynil); T0 = T2; } else { T4 = CALL1(1,VARREF(Yhead),args_); T6 = CALL1(1,VARREF(Ytail),args_); T5 = CALL1(1,VARREF(YevalSastYpairize),T6); T3 = CALL3(1,VARREF(Ylst),LITREF(lit_768),T4,T5); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_363) { P x_,r_,tailQ_; P nameF4303; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T10 = CALL1(1,VARREF(YevalSsyntaxYsexpr_definition_variable),x_); nameF4303 = T10; T2 = CALL1(1,VARREF(Ylst),LITREF(lit_770)); T5 = CALL1(1,VARREF(Ylst),LITREF(lit_681)); T6 = CALL1(1,VARREF(Ylst),nameF4303); T4 = CALL3(1,VARREF(YgooSmacrosYcat),T5,T6,Ynil); T3 = CALL1(1,VARREF(Ylst),T4); T9 = CALL1(1,VARREF(YevalSsyntaxYsexpr_define_class_parents),x_); T8 = CALL1(1,VARREF(YevalSastYpairize),T9); T7 = CALL1(1,VARREF(Ylst),T8); T1 = CALL4(1,VARREF(YgooSmacrosYcat),T2,T3,T7,LITREF(lit_8)); T0 = CALL5(1,VARREF(YevalSastYobjectify_definition),VARREF(YevalSastYLvariable_definitionG),LITREF(lit_532),nameF4303,T1,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_objectify_define_property_364) { P x_,setterQ_,r_,tailQ_; P setter_nameF4309; P lineF4308; P typeF4307; P ownerF4306; P varF4305; P nameF4304; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(x_, 0); ARG(setterQ_, 1); ARG(r_, 2); ARG(tailQ_, 3); T24 = CALL1(1,VARREF(YevalSsyntaxYsexpr_prop_name),x_); nameF4304 = T24; T23 = CALL1(1,VARREF(YevalSsyntaxYsexpr_prop_init_var),x_); varF4305 = T23; T22 = CALL1(1,VARREF(YevalSsyntaxYsexpr_prop_owner),x_); ownerF4306 = T22; T21 = CALL1(1,VARREF(YevalSsyntaxYsexpr_prop_type),x_); typeF4307 = T21; T20 = CALL1(1,VARREF(YgooScolsSlstYline_of),x_); lineF4308 = T20; if (setterQ_ != YPfalse) { T19 = CALL1(1,VARREF(YevalSsyntaxYsexpr_fab_setter_name),nameF4304); T18 = T19; } else { T18 = YPfalse; } setter_nameF4309 = T18; T3 = CALL3(1,VARREF(YevalSsyntaxYsexpr_fab_getter),nameF4304,ownerF4306,lineF4308); if (setterQ_ != YPfalse) { T5 = CALL4(1,VARREF(YevalSsyntaxYsexpr_fab_setter),nameF4304,ownerF4306,typeF4307,lineF4308); T4 = T5; } else { T4 = YPfalse; } T9 = CALL1(1,VARREF(YevalSsyntaxYsexpr_prop_initQ),x_); if (T9 != YPfalse) { T14 = CALL1(1,VARREF(Ylst),varF4305); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_599)); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_8)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_8)); T17 = CALL1(1,VARREF(YevalSsyntaxYsexpr_prop_init),x_); T16 = CALL2(1,VARREF(YgooScolsSlstYline_list),lineF4308,T17); T10 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),T11,T16); T8 = T10; } else { T8 = LITREF(lit_775); } T7 = CALL5(1,VARREF(Ylst),ownerF4306,nameF4304,setter_nameF4309,typeF4307,T8); T6 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_application),LITREF(lit_774),T7); T2 = CALL3(1,VARREF(Ylst),T3,T4,T6); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_make_begin),T2); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_365) { P x_,r_,tailQ_; P T0; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T0 = CALL4(1,VARREF(YevalSastYobjectify_define_property),x_,YPtrue,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_366) { P x_,r_,tailQ_; P T0; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T0 = CALL4(1,VARREF(YevalSastYobjectify_define_property),x_,YPfalse,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_367) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T2 = CALL1(1,VARREF(Ytail),x_); T1 = CALL1(1,VARREF(Yhead),T2); T0 = CALL4(1,VARREF(YevalSastYobjectify_compile_time),T1,r_,tailQ_,YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_368) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T2 = CALL1(1,VARREF(Ytail),x_); T1 = CALL1(1,VARREF(Yhead),T2); T0 = CALL4(1,VARREF(YevalSastYobjectify_compile_time),T1,r_,tailQ_,YPtrue); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_369) { P x_,r_,tailQ_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_forward_primitiveQ),x_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_variable),x_); CALL4(1,VARREF(YevalSastYast_define_binding),r_,T2,YPfalse,LITREF(lit_567)); T3 = CALL3(1,VARREF(YevalSastYobjectify),YPfalse,r_,tailQ_); T0 = T3; } else { T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_variable),x_); T6 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_definition_adjectives),x_); T7 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_signature),x_); T8 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_body),x_); T4 = CALL5(1,VARREF(YevalSastYobjectify_primitive_definition),T5,T6,T7,T8,r_); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_370) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_expand_backquote),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_macro_expand_371) { P x_,r_,tailQ_; P resF4312; P macF4311; P astF4310; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T6 = CALL1(1,VARREF(Yhead),x_); T5 = CALL3(1,VARREF(YevalSastYobjectify),T6,r_,tailQ_); astF4310 = T5; T1 = CALL2(1,VARREF(YisaQ),astF4310,VARREF(YevalSastYLmacro_referenceG)); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YevalSastYreference_binding),astF4310); macF4311 = T4; T3 = CALL1(1,VARREF(YevalSmoduleYbinding_handler),macF4311); T2 = CALL3(1,T3,x_,r_,tailQ_); resF4312 = T2; T0 = resF4312; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_372) { P x_,r_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T2 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T1 = CALL3(1,VARREF(YevalSastYast_macro_expand),T2,r_,tailQ_); T0 = CALL2(1,VARREF(YevalSastYobjectify_quotation),T1,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_373) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YevalSastYexpand_syntax_if),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_374) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(Ytail),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_export),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_375) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_use_module),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_376) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_use_mangle_module),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_377) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_use_include),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_378) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_use_library),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_379) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_useSexport_module),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_380) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(Ytail),x_); T0 = CALL3(1,VARREF(YevalSastYobjectify_c_inline),T1,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_381) { P x_,r_,tailQ_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); ARG(tailQ_, 2); T1 = CALL1(1,VARREF(Ytail),x_); T0 = CALL4(1,VARREF(YevalSastYobjectify_c_expr),T1,YPtrue,r_,tailQ_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_382) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = CALL2(1,VARREF(YevalSmoduleYfind_binding),name_,FREEREF(0)); T0 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),T1,FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_install_initial_bindings_383) { P env_,loader_; P bootenvF4314; P bootmodF4313; P T0,T1,T2,T3; LINK_STACK(); ARG(env_, 0); ARG(loader_, 1); T3 = CALL2(1,VARREF(YevalSmoduleYprobe_module),loader_,VARREF(YevalSmoduleYDgoo_boot_module_name)); bootmodF4313 = T3; T2 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),bootmodF4313); bootenvF4314 = T2; T1 = FUNFAB(fun_382,2,bootenvF4314,env_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,LITREF(lit_821)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_384) { P T0; LINK_STACK(); T0 = CALL3(1,VARREF(YevalSastYobjectify),FREEREF(0),FREEREF(1),FREEREF(2)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYobjectify_with_subtransaction) { P e_,r_,dynamic_compilationQ_,tailQ_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(r_, 1); ARG(dynamic_compilationQ_, 2); ARG(tailQ_, 3); T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),r_); T2 = FUNFAB(fun_384,3,e_,r_,tailQ_); T0 = CALL2(1,VARREF(YevalSmoduleYcall_with_subtransaction),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_386) { P binding_; P cloneF4315; P T0,T1,T2,T3; LINK_STACK(); ARG(binding_, 0); T3 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T2 = CALL4(1,VARREF(YevalSastYast_define_binding),FREEREF(0),T3,YPfalse,LITREF(lit_531)); cloneF4315 = T2; T1 = CALL1(1,VARREF(YevalSmoduleYbinding_handler),binding_); T0 = CALL2(1,VARREF(YevalSmoduleYbinding_handler_setter),T1,cloneF4315); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYinstall_magic_bindings) { P env_; P T0,T1,T2; LINK_STACK(); ARG(env_, 0); T1 = FUNFAB(fun_386,1,env_); T2 = CALL0(1,VARREF(YevalSastYmagic_bindings)); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYreload_macros) { P T0,T1; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSfunctionalYrcurry),VARREF(YPPmacro),YPfalse); CALL4(1,VARREF(YgooScolsSseqYdo3),T0,VARREF(YTboot_macro_module_namesT),VARREF(YTboot_macro_namesT),VARREF(YTboot_macro_expandersT)); T1 = VARSET(YTmacros_okQT,YPtrue); UNLINK_STACK(); QRET(T1); } FUNCODEDEF(YevalSastYinstall_interpreter_hacks) { P env_; P T0; LINK_STACK(); ARG(env_, 0); T0 = CALL1(1,VARREF(YevalSastYinit_environment_for_eval),env_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYinit_runtime) { P bootenvF4317; P bootmodF4316; P T0,T1,T2; LINK_STACK(); CALL0(1,VARREF(YevalSmoduleYreload_modules)); T2 = CALL0(1,VARREF(YevalSmoduleYruntime_module_loader)); T1 = CALL2(1,VARREF(YevalSmoduleYprobe_module),T2,VARREF(YevalSmoduleYDgoo_boot_module_name)); bootmodF4316 = T1; T0 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),bootmodF4316); bootenvF4317 = T0; CALL1(1,VARREF(YevalSastYinstall_magic_bindings),bootenvF4317); CALL0(1,VARREF(YevalSastYreload_macros)); CALL1(1,VARREF(YevalSastYinstall_interpreter_hacks),bootenvF4317); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YevalSastYfab_syntax_environment) { P module_; P T0,T1; LINK_STACK(); ARG(module_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_module),LITREF(lit_834)); T0 = CALL3(1,VARREF(YevalSmoduleYfab_subset_environment),module_,T1,VARREF(YevalSastYsyntax_environment_excluded_bindings)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSastYfab_g2c_module) { P loader_,name_; P target_envF4321; P syntax_envF4320; P moduleF4319; P typeF4318; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(loader_, 0); ARG(name_, 1); T6 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_module_type),loader_); typeF4318 = T6; T5 = CALL3(1,VARREF(Ynew),typeF4318,VARREF(YevalSmoduleYmodule_name),name_); moduleF4319 = T5; T4 = CALL1(1,VARREF(YevalSastYfab_syntax_environment),moduleF4319); syntax_envF4320 = T4; T3 = CALL3(1,VARREF(YevalSmoduleYfab_static_global_environment),moduleF4319,loader_,YPfalse); target_envF4321 = T3; CALL3(1,VARREF(YevalSmoduleYset_module_environments),moduleF4319,syntax_envF4320,target_envF4321); T0 = CALL2(1,VARREF(YgooSmacrosYEE),name_,VARREF(YevalSmoduleYDgoo_boot_module_name)); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(YevalSastYinit_g2c_boot_environment),target_envF4321); } else { T2 = CALL2(1,VARREF(YevalSastYinit_g2c_regular_environment),target_envF4321,loader_); } UNLINK_STACK(); RET(moduleF4319); } FUNCODEDEF(YevalSastYinit_g2c_boot_environment) { P env_; P T0,T1; LINK_STACK(); ARG(env_, 0); T1 = CALL0(1,VARREF(YevalSastYmagic_bindings)); T0 = CALL2(1,VARREF(YevalSmoduleYinsert_globalsX),T1,env_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYinit_g2c_regular_environment) { P env_,loader_; P T0; LINK_STACK(); ARG(env_, 0); ARG(loader_, 1); T0 = CALL2(1,VARREF(YevalSmoduleYinstall_initial_bindings),env_,loader_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSastYinit_ast) { P T0; LINK_STACK(); T0 = CALL0(1,VARREF(YevalSastYinit_runtime)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ast_contains_funQ_396) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_walk_397) { P y_; P T0,T1,T2,T3; LINK_STACK(); ARG(y_, 0); T1 = CALL2(1,VARREF(YisaQ),y_,VARREF(YevalSastYLast_methodG)); if (T1 != YPfalse) { T2 = CALL1(0,FREEREF(0),YPtrue); T0 = T2; } else { T3 = CALL2(1,VARREF(YevalSastYast_walk),FREEREF(1),y_); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_398) { P return_; P walkF4322; P T0,T1; LINK_STACK(); ARG(return_, 0); T1 = FUNSHELL(0,fun_walk_397,2); walkF4322 = T1; FUNINIT(walkF4322, 2,return_,walkF4322); T0 = CALL2(1,VARREF(YevalSastYast_walk),walkF4322,FREEREF(0)); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_ast_contains_funQ_399) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = FUNFAB(fun_398,1,x_); T0 = with_exit(T1); UNLINK_STACK(); RET(T0); } P YevalSastY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121; DEFCREGS(); DYNDEFSET(YevalSastYTcurrent_dependentT,YPfalse); lit_0 = YPPlist(1,YPPsym((P)"exp")); lit_1 = YPPlist(1,YPPsym((P)"return")); lit_2 = YPPsym((P)"x-1498"); lit_3 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_4 = YPPsym((P)"with-dependent"); lit_5 = YPsb((P)"Match Pattern Failure"); lit_6 = YPPsym((P)"let"); lit_7 = YPPsym((P)"*current-dependent*"); lit_8 = Ynil; lit_9 = YPPsym((P)"set"); lit_10 = YPPsym((P)"fin"); lit_11 = YPPsym((P)"seq"); T2 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1498_0 = YPfab_met(FUNCODEREF(fun_x_1498_0),T2,LITREF(lit_2),LITREF(lit_3),YPfalse,YPfalse); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T1,YPfalse,LITREF(lit_1),YPfalse,YPfalse); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T0,YPfalse,LITREF(lit_0),YPfalse,YPfalse); T3 = fun_2; YPmacro(YPPsym((P)"eval/ast"),YPPsym((P)"with-dependent"),T3); lit_12 = YPPsym((P)""); T5 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcompiler_errorG),Ynil); T4 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_12),T5); VARSET(YevalSastYLast_errorG,T4); lit_13 = YPPsym((P)""); T8 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T7 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLast_errorG),T8); T6 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_13),T7); VARSET(YevalSastYLsimple_ast_errorG,T6); lit_14 = YPPsym((P)"ast-error"); lit_15 = YPPlist(2,YPPsym((P)"message"),YPPsym((P)"arguments")); T9 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_ast_error_3 = YPfab_met(FUNCODEREF(fun_ast_error_3),T9,LITREF(lit_14),LITREF(lit_15),sloc(36),YPfalse); T11 = VARREF_OR(YevalSdependencyYast_error,YPfalse); T12 = fun_ast_error_3; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YevalSdependencyYast_error,T10); lit_16 = YPPsym((P)""); T14 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T13 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_16),T14); VARSET(YevalSastYLprogramG,T13); lit_17 = YPPsym((P)"program-type"); lit_18 = YPPlist(1,YPPsym((P)"_x")); T15 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_program_type_4 = YPfab_met(FUNCODEREF(fun_program_type_4),T15,LITREF(lit_17),LITREF(lit_18),sloc(43),YPfalse); T17 = VARREF_OR(YevalSastYprogram_type,YPfalse); T18 = fun_program_type_4; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YevalSastYprogram_type,T16); lit_19 = YPPsym((P)"program-type-setter"); lit_20 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T19 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_type_setter_5 = YPfab_met(FUNCODEREF(fun_program_type_setter_5),T19,LITREF(lit_19),LITREF(lit_20),sloc(43),YPfalse); T21 = VARREF_OR(YevalSastYprogram_type_setter,YPfalse); T22 = fun_program_type_setter_5; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YevalSastYprogram_type_setter,T20); lit_21 = YPPlist(1,YPPsym((P)"_x")); T23 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T23,YPfalse,LITREF(lit_21),sloc(43),YPfalse); T24 = fun_6; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLprogramG),VARREF(YevalSastYprogram_type),VARREF(YevalSastYprogram_type_setter),VARREF(YLanyG),T24); lit_22 = YPPsym((P)"program-line"); lit_23 = YPPlist(1,YPPsym((P)"_x")); T25 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_program_line_7 = YPfab_met(FUNCODEREF(fun_program_line_7),T25,LITREF(lit_22),LITREF(lit_23),sloc(44),YPfalse); T27 = VARREF_OR(YevalSastYprogram_line,YPfalse); T28 = fun_program_line_7; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YevalSastYprogram_line,T26); lit_24 = YPPsym((P)"program-line-setter"); lit_25 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T30 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T29 = YPfab_sig(YPPlist(2,T30,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_line_setter_8 = YPfab_met(FUNCODEREF(fun_program_line_setter_8),T29,LITREF(lit_24),LITREF(lit_25),sloc(44),YPfalse); T32 = VARREF_OR(YevalSastYprogram_line_setter,YPfalse); T33 = fun_program_line_setter_8; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSastYprogram_line_setter,T31); lit_26 = YPPlist(1,YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T34,YPfalse,LITREF(lit_26),sloc(44),YPfalse); T35 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T36 = fun_9; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLprogramG),VARREF(YevalSastYprogram_line),VARREF(YevalSastYprogram_line_setter),T35,T36); lit_27 = YPPsym((P)"program-register"); lit_28 = YPPlist(1,YPPsym((P)"_x")); T37 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_program_register_10 = YPfab_met(FUNCODEREF(fun_program_register_10),T37,LITREF(lit_27),LITREF(lit_28),sloc(45),YPfalse); T39 = VARREF_OR(YevalSastYprogram_register,YPfalse); T40 = fun_program_register_10; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YevalSastYprogram_register,T38); lit_29 = YPPsym((P)"program-register-setter"); lit_30 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T41 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_program_register_setter_11 = YPfab_met(FUNCODEREF(fun_program_register_setter_11),T41,LITREF(lit_29),LITREF(lit_30),sloc(45),YPfalse); T43 = VARREF_OR(YevalSastYprogram_register_setter,YPfalse); T44 = fun_program_register_setter_11; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YevalSastYprogram_register_setter,T42); lit_31 = YPPlist(1,YPPsym((P)"_x")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T45,YPfalse,LITREF(lit_31),sloc(45),YPfalse); T46 = fun_12; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLprogramG),VARREF(YevalSastYprogram_register),VARREF(YevalSastYprogram_register_setter),VARREF(YLanyG),T46); lit_32 = YPPsym((P)""); T48 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramG),Ynil); T47 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_32),T48); VARSET(YevalSastYLcomputed_programG,T47); lit_33 = YPPsym((P)""); T50 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramG),Ynil); T49 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_33),T50); VARSET(YevalSastYLpassive_programG,T49); lit_34 = YPPsym((P)""); T52 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLbindingG),Ynil); T51 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_34),T52); VARSET(YevalSastYLlocal_bindingG,T51); lit_35 = YPPsym((P)"binding-value"); lit_36 = YPPlist(1,YPPsym((P)"_x")); T53 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_value_13 = YPfab_met(FUNCODEREF(fun_binding_value_13),T53,LITREF(lit_35),LITREF(lit_36),sloc(53),YPfalse); T55 = VARREF_OR(YevalSastYbinding_value,YPfalse); T56 = fun_binding_value_13; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YevalSastYbinding_value,T54); lit_37 = YPPsym((P)"binding-value-setter"); lit_38 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T57 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_value_setter_14 = YPfab_met(FUNCODEREF(fun_binding_value_setter_14),T57,LITREF(lit_37),LITREF(lit_38),sloc(53),YPfalse); T59 = VARREF_OR(YevalSastYbinding_value_setter,YPfalse); T60 = fun_binding_value_setter_14; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSastYbinding_value_setter,T58); lit_39 = YPPlist(1,YPPsym((P)"_x")); T61 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T61,YPfalse,LITREF(lit_39),sloc(53),YPfalse); T62 = fun_15; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSastYbinding_value),VARREF(YevalSastYbinding_value_setter),VARREF(YLanyG),T62); lit_40 = YPPsym((P)"binding-mutable?"); lit_41 = YPPlist(1,YPPsym((P)"_x")); T63 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_mutableQ_16 = YPfab_met(FUNCODEREF(fun_binding_mutableQ_16),T63,LITREF(lit_40),LITREF(lit_41),sloc(54),YPfalse); T65 = VARREF_OR(YevalSastYbinding_mutableQ,YPfalse); T66 = fun_binding_mutableQ_16; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YevalSastYbinding_mutableQ,T64); lit_42 = YPPsym((P)"binding-mutable?-setter"); lit_43 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T67 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_mutableQ_setter_17 = YPfab_met(FUNCODEREF(fun_binding_mutableQ_setter_17),T67,LITREF(lit_42),LITREF(lit_43),sloc(54),YPfalse); T69 = VARREF_OR(YevalSastYbinding_mutableQ_setter,YPfalse); T70 = fun_binding_mutableQ_setter_17; T68 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T69,T70); VARSET(YevalSastYbinding_mutableQ_setter,T68); lit_44 = YPPlist(1,YPPsym((P)"_x")); T71 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T71,YPfalse,LITREF(lit_44),sloc(54),YPfalse); T72 = fun_18; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSastYbinding_mutableQ),VARREF(YevalSastYbinding_mutableQ_setter),VARREF(YLanyG),T72); lit_45 = YPPsym((P)"binding-dynamic-extent?"); lit_46 = YPPlist(1,YPPsym((P)"_x")); T73 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_dynamic_extentQ_19 = YPfab_met(FUNCODEREF(fun_binding_dynamic_extentQ_19),T73,LITREF(lit_45),LITREF(lit_46),sloc(55),YPfalse); T75 = VARREF_OR(YevalSastYbinding_dynamic_extentQ,YPfalse); T76 = fun_binding_dynamic_extentQ_19; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); VARSET(YevalSastYbinding_dynamic_extentQ,T74); lit_47 = YPPsym((P)"binding-dynamic-extent?-setter"); lit_48 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T77 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_dynamic_extentQ_setter_20 = YPfab_met(FUNCODEREF(fun_binding_dynamic_extentQ_setter_20),T77,LITREF(lit_47),LITREF(lit_48),sloc(55),YPfalse); T79 = VARREF_OR(YevalSastYbinding_dynamic_extentQ_setter,YPfalse); T80 = fun_binding_dynamic_extentQ_setter_20; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YevalSastYbinding_dynamic_extentQ_setter,T78); lit_49 = YPPlist(1,YPPsym((P)"_x")); T81 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_21 = YPfab_met(FUNCODEREF(fun_21),T81,YPfalse,LITREF(lit_49),sloc(55),YPfalse); T82 = fun_21; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSastYbinding_dynamic_extentQ),VARREF(YevalSastYbinding_dynamic_extentQ_setter),VARREF(YLanyG),T82); lit_50 = YPPsym((P)"binding-dotted?"); lit_51 = YPPlist(1,YPPsym((P)"_x")); T83 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_dottedQ_22 = YPfab_met(FUNCODEREF(fun_binding_dottedQ_22),T83,LITREF(lit_50),LITREF(lit_51),sloc(56),YPfalse); T85 = VARREF_OR(YevalSastYbinding_dottedQ,YPfalse); T86 = fun_binding_dottedQ_22; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YevalSastYbinding_dottedQ,T84); lit_52 = YPPsym((P)"binding-dotted?-setter"); lit_53 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T87 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_dottedQ_setter_23 = YPfab_met(FUNCODEREF(fun_binding_dottedQ_setter_23),T87,LITREF(lit_52),LITREF(lit_53),sloc(56),YPfalse); T89 = VARREF_OR(YevalSastYbinding_dottedQ_setter,YPfalse); T90 = fun_binding_dottedQ_setter_23; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSastYbinding_dottedQ_setter,T88); lit_54 = YPPlist(1,YPPsym((P)"_x")); T91 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T91,YPfalse,LITREF(lit_54),sloc(56),YPfalse); T92 = fun_24; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSastYbinding_dottedQ),VARREF(YevalSastYbinding_dottedQ_setter),VARREF(YLanyG),T92); lit_55 = YPPsym((P)"binding-closed-over?"); lit_56 = YPPlist(1,YPPsym((P)"_x")); T93 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_closed_overQ_25 = YPfab_met(FUNCODEREF(fun_binding_closed_overQ_25),T93,LITREF(lit_55),LITREF(lit_56),sloc(57),YPfalse); T95 = VARREF_OR(YevalSastYbinding_closed_overQ,YPfalse); T96 = fun_binding_closed_overQ_25; T94 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T95,T96); VARSET(YevalSastYbinding_closed_overQ,T94); lit_57 = YPPsym((P)"binding-closed-over?-setter"); lit_58 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T97 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_closed_overQ_setter_26 = YPfab_met(FUNCODEREF(fun_binding_closed_overQ_setter_26),T97,LITREF(lit_57),LITREF(lit_58),sloc(57),YPfalse); T99 = VARREF_OR(YevalSastYbinding_closed_overQ_setter,YPfalse); T100 = fun_binding_closed_overQ_setter_26; T98 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T99,T100); VARSET(YevalSastYbinding_closed_overQ_setter,T98); lit_59 = YPPlist(1,YPPsym((P)"_x")); T101 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_27 = YPfab_met(FUNCODEREF(fun_27),T101,YPfalse,LITREF(lit_59),sloc(57),YPfalse); T102 = fun_27; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSastYbinding_closed_overQ),VARREF(YevalSastYbinding_closed_overQ_setter),VARREF(YLanyG),T102); lit_60 = YPPsym((P)"binding-index"); lit_61 = YPPlist(1,YPPsym((P)"_x")); T103 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_index_28 = YPfab_met(FUNCODEREF(fun_binding_index_28),T103,LITREF(lit_60),LITREF(lit_61),sloc(58),YPfalse); T105 = VARREF_OR(YevalSastYbinding_index,YPfalse); T106 = fun_binding_index_28; T104 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T105,T106); VARSET(YevalSastYbinding_index,T104); lit_62 = YPPsym((P)"binding-index-setter"); lit_63 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T107 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_index_setter_29 = YPfab_met(FUNCODEREF(fun_binding_index_setter_29),T107,LITREF(lit_62),LITREF(lit_63),sloc(58),YPfalse); T109 = VARREF_OR(YevalSastYbinding_index_setter,YPfalse); T110 = fun_binding_index_setter_29; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YevalSastYbinding_index_setter,T108); lit_64 = YPPlist(1,YPPsym((P)"_x")); T111 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T111,YPfalse,LITREF(lit_64),sloc(58),YPfalse); T112 = fun_30; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSastYbinding_index),VARREF(YevalSastYbinding_index_setter),VARREF(YLanyG),T112); lit_65 = YPPsym((P)""); T114 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T113 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_65),T114); VARSET(YevalSastYLcompile_timeG,T113); lit_66 = YPPsym((P)"compile-time-program"); lit_67 = YPPlist(1,YPPsym((P)"_x")); T117 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLcompile_timeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T116 = fun_compile_time_program_31 = YPfab_met(FUNCODEREF(fun_compile_time_program_31),T117,LITREF(lit_66),LITREF(lit_67),sloc(65),YPfalse); T120 = VARREF_OR(YevalSastYcompile_time_program,YPfalse); T121 = fun_compile_time_program_31; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); T118 = VARSET(YevalSastYcompile_time_program,T119); T115 = T118; return T115; } P YevalSastY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121; DEFCREGS(); lit_68 = YPPsym((P)"compile-time-program-setter"); lit_69 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLcompile_timeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_compile_time_program_setter_32 = YPfab_met(FUNCODEREF(fun_compile_time_program_setter_32),T0,LITREF(lit_68),LITREF(lit_69),sloc(65),YPfalse); T2 = VARREF_OR(YevalSastYcompile_time_program_setter,YPfalse); T3 = fun_compile_time_program_setter_32; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSastYcompile_time_program_setter,T1); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLcompile_timeG),VARREF(YevalSastYcompile_time_program),VARREF(YevalSastYcompile_time_program_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_70 = YPPsym((P)""); T5 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLpassive_programG),Ynil); T4 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_70),T5); VARSET(YevalSastYLreferenceG,T4); lit_71 = YPPsym((P)""); T7 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLreferenceG),Ynil); T6 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_71),T7); VARSET(YevalSastYLreal_referenceG,T6); lit_72 = YPPsym((P)"reference-binding"); lit_73 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLreal_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_reference_binding_33 = YPfab_met(FUNCODEREF(fun_reference_binding_33),T8,LITREF(lit_72),LITREF(lit_73),sloc(76),YPfalse); T10 = VARREF_OR(YevalSastYreference_binding,YPfalse); T11 = fun_reference_binding_33; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSastYreference_binding,T9); lit_74 = YPPsym((P)"reference-binding-setter"); lit_75 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLreal_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_binding_setter_34 = YPfab_met(FUNCODEREF(fun_reference_binding_setter_34),T12,LITREF(lit_74),LITREF(lit_75),sloc(76),YPfalse); T14 = VARREF_OR(YevalSastYreference_binding_setter,YPfalse); T15 = fun_reference_binding_setter_34; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSastYreference_binding_setter,T13); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLreal_referenceG),VARREF(YevalSastYreference_binding),VARREF(YevalSastYreference_binding_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_76 = YPPsym((P)""); T17 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLreal_referenceG),Ynil); T16 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_76),T17); VARSET(YevalSastYLlocal_referenceG,T16); lit_77 = YPPsym((P)"reference-called-function?"); lit_78 = YPPlist(1,YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_reference_called_functionQ_35 = YPfab_met(FUNCODEREF(fun_reference_called_functionQ_35),T18,LITREF(lit_77),LITREF(lit_78),sloc(79),YPfalse); T20 = VARREF_OR(YevalSastYreference_called_functionQ,YPfalse); T21 = fun_reference_called_functionQ_35; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSastYreference_called_functionQ,T19); lit_79 = YPPsym((P)"reference-called-function?-setter"); lit_80 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_called_functionQ_setter_36 = YPfab_met(FUNCODEREF(fun_reference_called_functionQ_setter_36),T22,LITREF(lit_79),LITREF(lit_80),sloc(79),YPfalse); T24 = VARREF_OR(YevalSastYreference_called_functionQ_setter,YPfalse); T25 = fun_reference_called_functionQ_setter_36; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSastYreference_called_functionQ_setter,T23); lit_81 = YPPlist(1,YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_37 = YPfab_met(FUNCODEREF(fun_37),T26,YPfalse,LITREF(lit_81),sloc(79),YPfalse); T27 = fun_37; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYreference_called_functionQ),VARREF(YevalSastYreference_called_functionQ_setter),VARREF(YLanyG),T27); lit_82 = YPPsym((P)"reference-frame-number"); lit_83 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_reference_frame_number_38 = YPfab_met(FUNCODEREF(fun_reference_frame_number_38),T28,LITREF(lit_82),LITREF(lit_83),sloc(80),YPfalse); T30 = VARREF_OR(YevalSastYreference_frame_number,YPfalse); T31 = fun_reference_frame_number_38; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalSastYreference_frame_number,T29); lit_84 = YPPsym((P)"reference-frame-number-setter"); lit_85 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T32 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_frame_number_setter_39 = YPfab_met(FUNCODEREF(fun_reference_frame_number_setter_39),T32,LITREF(lit_84),LITREF(lit_85),sloc(80),YPfalse); T34 = VARREF_OR(YevalSastYreference_frame_number_setter,YPfalse); T35 = fun_reference_frame_number_setter_39; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalSastYreference_frame_number_setter,T33); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYreference_frame_number),VARREF(YevalSastYreference_frame_number_setter),VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_86 = YPPsym((P)"reference-frame-offset"); lit_87 = YPPlist(1,YPPsym((P)"_x")); T36 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_reference_frame_offset_40 = YPfab_met(FUNCODEREF(fun_reference_frame_offset_40),T36,LITREF(lit_86),LITREF(lit_87),sloc(81),YPfalse); T38 = VARREF_OR(YevalSastYreference_frame_offset,YPfalse); T39 = fun_reference_frame_offset_40; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSastYreference_frame_offset,T37); lit_88 = YPPsym((P)"reference-frame-offset-setter"); lit_89 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YevalSastYLlocal_referenceG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_frame_offset_setter_41 = YPfab_met(FUNCODEREF(fun_reference_frame_offset_setter_41),T40,LITREF(lit_88),LITREF(lit_89),sloc(81),YPfalse); T42 = VARREF_OR(YevalSastYreference_frame_offset_setter,YPfalse); T43 = fun_reference_frame_offset_setter_41; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSastYreference_frame_offset_setter,T41); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYreference_frame_offset),VARREF(YevalSastYreference_frame_offset_setter),VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_90 = YPPsym((P)""); T45 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLreal_referenceG),Ynil); T44 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_90),T45); VARSET(YevalSastYLmodule_binding_referenceG,T44); lit_91 = YPPsym((P)""); T47 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLmodule_binding_referenceG),Ynil); T46 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_91),T47); VARSET(YevalSastYLglobal_referenceG,T46); lit_92 = YPPsym((P)""); T49 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLmodule_binding_referenceG),Ynil); T48 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_92),T49); VARSET(YevalSastYLruntime_referenceG,T48); lit_93 = YPPsym((P)""); T51 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLmodule_binding_referenceG),Ynil); T50 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_93),T51); VARSET(YevalSastYLdynamic_referenceG,T50); lit_94 = YPPsym((P)""); T53 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLreal_referenceG),Ynil); T52 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_94),T53); VARSET(YevalSastYLpredefined_referenceG,T52); lit_95 = YPPsym((P)""); T55 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLmodule_binding_referenceG),Ynil); T54 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_95),T55); VARSET(YevalSastYLstatic_module_binding_referenceG,T54); lit_96 = YPPsym((P)""); T57 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLstatic_module_binding_referenceG),Ynil); T56 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_96),T57); VARSET(YevalSastYLmacro_referenceG,T56); lit_97 = YPPsym((P)""); T59 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLstatic_module_binding_referenceG),Ynil); T58 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_97),T59); VARSET(YevalSastYLmagic_referenceG,T58); lit_98 = YPPsym((P)""); T61 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T60 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_98),T61); VARSET(YevalSastYLboundQG,T60); lit_99 = YPPsym((P)"bound?-reference"); lit_100 = YPPlist(1,YPPsym((P)"_x")); T62 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLboundQG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_boundQ_reference_42 = YPfab_met(FUNCODEREF(fun_boundQ_reference_42),T62,LITREF(lit_99),LITREF(lit_100),sloc(102),YPfalse); T64 = VARREF_OR(YevalSastYboundQ_reference,YPfalse); T65 = fun_boundQ_reference_42; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YevalSastYboundQ_reference,T63); lit_101 = YPPsym((P)"bound?-reference-setter"); lit_102 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T66 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLboundQG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_boundQ_reference_setter_43 = YPfab_met(FUNCODEREF(fun_boundQ_reference_setter_43),T66,LITREF(lit_101),LITREF(lit_102),sloc(102),YPfalse); T68 = VARREF_OR(YevalSastYboundQ_reference_setter,YPfalse); T69 = fun_boundQ_reference_setter_43; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalSastYboundQ_reference_setter,T67); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLboundQG),VARREF(YevalSastYboundQ_reference),VARREF(YevalSastYboundQ_reference_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_103 = YPPsym((P)"bound?-default"); lit_104 = YPPlist(1,YPPsym((P)"_x")); T70 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLboundQG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_boundQ_default_44 = YPfab_met(FUNCODEREF(fun_boundQ_default_44),T70,LITREF(lit_103),LITREF(lit_104),sloc(103),YPfalse); T72 = VARREF_OR(YevalSastYboundQ_default,YPfalse); T73 = fun_boundQ_default_44; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSastYboundQ_default,T71); lit_105 = YPPsym((P)"bound?-default-setter"); lit_106 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLboundQG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_boundQ_default_setter_45 = YPfab_met(FUNCODEREF(fun_boundQ_default_setter_45),T74,LITREF(lit_105),LITREF(lit_106),sloc(103),YPfalse); T76 = VARREF_OR(YevalSastYboundQ_default_setter,YPfalse); T77 = fun_boundQ_default_setter_45; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YevalSastYboundQ_default_setter,T75); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLboundQG),VARREF(YevalSastYboundQ_default),VARREF(YevalSastYboundQ_default_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_107 = YPPsym((P)""); T79 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T78 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_107),T79); VARSET(YevalSastYLassignmentG,T78); lit_108 = YPPsym((P)"assignment-form"); lit_109 = YPPlist(1,YPPsym((P)"_x")); T80 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLassignmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_assignment_form_46 = YPfab_met(FUNCODEREF(fun_assignment_form_46),T80,LITREF(lit_108),LITREF(lit_109),sloc(106),YPfalse); T82 = VARREF_OR(YevalSastYassignment_form,YPfalse); T83 = fun_assignment_form_46; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalSastYassignment_form,T81); lit_110 = YPPsym((P)"assignment-form-setter"); lit_111 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T84 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLassignmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assignment_form_setter_47 = YPfab_met(FUNCODEREF(fun_assignment_form_setter_47),T84,LITREF(lit_110),LITREF(lit_111),sloc(106),YPfalse); T86 = VARREF_OR(YevalSastYassignment_form_setter,YPfalse); T87 = fun_assignment_form_setter_47; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalSastYassignment_form_setter,T85); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLassignmentG),VARREF(YevalSastYassignment_form),VARREF(YevalSastYassignment_form_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_112 = YPPsym((P)""); T89 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLassignmentG),Ynil); T88 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_112),T89); VARSET(YevalSastYLlocal_assignmentG,T88); lit_113 = YPPsym((P)"assignment-reference"); lit_114 = YPPlist(1,YPPsym((P)"_x")); T90 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_assignmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_assignment_reference_48 = YPfab_met(FUNCODEREF(fun_assignment_reference_48),T90,LITREF(lit_113),LITREF(lit_114),sloc(109),YPfalse); T92 = VARREF_OR(YevalSastYassignment_reference,YPfalse); T93 = fun_assignment_reference_48; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSastYassignment_reference,T91); lit_115 = YPPsym((P)"assignment-reference-setter"); lit_116 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T94 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocal_assignmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assignment_reference_setter_49 = YPfab_met(FUNCODEREF(fun_assignment_reference_setter_49),T94,LITREF(lit_115),LITREF(lit_116),sloc(109),YPfalse); T96 = VARREF_OR(YevalSastYassignment_reference_setter,YPfalse); T97 = fun_assignment_reference_setter_49; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YevalSastYassignment_reference_setter,T95); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocal_assignmentG),VARREF(YevalSastYassignment_reference),VARREF(YevalSastYassignment_reference_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_117 = YPPsym((P)""); T99 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLassignmentG),Ynil); T98 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_117),T99); VARSET(YevalSastYLglobal_assignmentG,T98); lit_118 = YPPsym((P)"assignment-binding"); lit_119 = YPPlist(1,YPPsym((P)"_x")); T100 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLglobal_assignmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_assignment_binding_50 = YPfab_met(FUNCODEREF(fun_assignment_binding_50),T100,LITREF(lit_118),LITREF(lit_119),sloc(112),YPfalse); T102 = VARREF_OR(YevalSastYassignment_binding,YPfalse); T103 = fun_assignment_binding_50; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSastYassignment_binding,T101); lit_120 = YPPsym((P)"assignment-binding-setter"); lit_121 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T104 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLglobal_assignmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assignment_binding_setter_51 = YPfab_met(FUNCODEREF(fun_assignment_binding_setter_51),T104,LITREF(lit_120),LITREF(lit_121),sloc(112),YPfalse); T106 = VARREF_OR(YevalSastYassignment_binding_setter,YPfalse); T107 = fun_assignment_binding_setter_51; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalSastYassignment_binding_setter,T105); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLglobal_assignmentG),VARREF(YevalSastYassignment_binding),VARREF(YevalSastYassignment_binding_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_122 = YPPsym((P)""); T109 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLglobal_assignmentG),Ynil); T108 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_122),T109); VARSET(YevalSastYLruntime_assignmentG,T108); lit_123 = YPPsym((P)""); T111 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLglobal_assignmentG),Ynil); T110 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_123),T111); VARSET(YevalSastYLdynamic_assignmentG,T110); lit_124 = YPPsym((P)""); T113 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLglobal_assignmentG),Ynil); T112 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_124),T113); VARSET(YevalSastYLdefinitionG,T112); lit_125 = YPPsym((P)""); T115 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLdefinitionG),Ynil); T114 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_125),T115); VARSET(YevalSastYLvariable_definitionG,T114); lit_126 = YPPsym((P)""); T117 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLvariable_definitionG),Ynil); T116 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_126),T117); VARSET(YevalSastYLdynamic_definitionG,T116); lit_127 = YPPsym((P)""); T121 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLdefinitionG),Ynil); T120 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_127),T121); T119 = VARSET(YevalSastYLast_generic_definitionG,T120); T118 = T119; return T118; } P YevalSastY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151; DEFCREGS(); lit_128 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLdefinitionG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_128),T1); VARSET(YevalSastYLast_function_definitionG,T0); lit_129 = YPPsym((P)""); T3 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLdefinitionG),Ynil); T2 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_129),T3); VARSET(YevalSastYLast_method_definitionG,T2); lit_130 = YPPsym((P)""); T5 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLdefinitionG),Ynil); T4 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_130),T5); VARSET(YevalSastYLast_primitive_definitionG,T4); lit_131 = YPPsym((P)""); T7 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLdefinitionG),Ynil); T6 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_131),T7); VARSET(YevalSastYLast_macro_definitionG,T6); lit_132 = YPPsym((P)""); T9 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T8 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_132),T9); VARSET(YevalSastYLast_signatureG,T8); lit_133 = YPPsym((P)"signature-bindings"); lit_134 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_signature_bindings_52 = YPfab_met(FUNCODEREF(fun_signature_bindings_52),T10,LITREF(lit_133),LITREF(lit_134),sloc(137),YPfalse); T12 = VARREF_OR(YevalSastYsignature_bindings,YPfalse); T13 = fun_signature_bindings_52; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSastYsignature_bindings,T11); lit_135 = YPPsym((P)"signature-bindings-setter"); lit_136 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_signature_bindings_setter_53 = YPfab_met(FUNCODEREF(fun_signature_bindings_setter_53),T14,LITREF(lit_135),LITREF(lit_136),sloc(137),YPfalse); T16 = VARREF_OR(YevalSastYsignature_bindings_setter,YPfalse); T17 = fun_signature_bindings_setter_53; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSastYsignature_bindings_setter,T15); lit_137 = YPPlist(1,YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_54 = YPfab_met(FUNCODEREF(fun_54),T18,YPfalse,LITREF(lit_137),sloc(137),YPfalse); T19 = fun_54; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_bindings),VARREF(YevalSastYsignature_bindings_setter),VARREF(YLanyG),T19); lit_138 = YPPsym((P)"signature-names"); lit_139 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_signature_names_55 = YPfab_met(FUNCODEREF(fun_signature_names_55),T20,LITREF(lit_138),LITREF(lit_139),sloc(138),YPfalse); T22 = VARREF_OR(YevalSastYsignature_names,YPfalse); T23 = fun_signature_names_55; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSastYsignature_names,T21); lit_140 = YPPsym((P)"signature-names-setter"); lit_141 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_signature_names_setter_56 = YPfab_met(FUNCODEREF(fun_signature_names_setter_56),T24,LITREF(lit_140),LITREF(lit_141),sloc(138),YPfalse); T26 = VARREF_OR(YevalSastYsignature_names_setter,YPfalse); T27 = fun_signature_names_setter_56; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSastYsignature_names_setter,T25); lit_142 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_57 = YPfab_met(FUNCODEREF(fun_57),T28,YPfalse,LITREF(lit_142),sloc(138),YPfalse); T29 = fun_57; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_names),VARREF(YevalSastYsignature_names_setter),VARREF(YLanyG),T29); lit_143 = YPPsym((P)"signature-specs"); lit_144 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_signature_specs_58 = YPfab_met(FUNCODEREF(fun_signature_specs_58),T30,LITREF(lit_143),LITREF(lit_144),sloc(139),YPfalse); T32 = VARREF_OR(YevalSastYsignature_specs,YPfalse); T33 = fun_signature_specs_58; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSastYsignature_specs,T31); lit_145 = YPPsym((P)"signature-specs-setter"); lit_146 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_signature_specs_setter_59 = YPfab_met(FUNCODEREF(fun_signature_specs_setter_59),T34,LITREF(lit_145),LITREF(lit_146),sloc(139),YPfalse); T36 = VARREF_OR(YevalSastYsignature_specs_setter,YPfalse); T37 = fun_signature_specs_setter_59; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSastYsignature_specs_setter,T35); lit_147 = YPPlist(1,YPPsym((P)"_x")); T38 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_60 = YPfab_met(FUNCODEREF(fun_60),T38,YPfalse,LITREF(lit_147),sloc(139),YPfalse); T39 = fun_60; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_specs),VARREF(YevalSastYsignature_specs_setter),VARREF(YLanyG),T39); lit_148 = YPPsym((P)"signature-nary?"); lit_149 = YPPlist(1,YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_signature_naryQ_61 = YPfab_met(FUNCODEREF(fun_signature_naryQ_61),T40,LITREF(lit_148),LITREF(lit_149),sloc(140),YPfalse); T42 = VARREF_OR(YevalSastYsignature_naryQ,YPfalse); T43 = fun_signature_naryQ_61; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSastYsignature_naryQ,T41); lit_150 = YPPsym((P)"signature-nary?-setter"); lit_151 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T44 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_signature_naryQ_setter_62 = YPfab_met(FUNCODEREF(fun_signature_naryQ_setter_62),T44,LITREF(lit_150),LITREF(lit_151),sloc(140),YPfalse); T46 = VARREF_OR(YevalSastYsignature_naryQ_setter,YPfalse); T47 = fun_signature_naryQ_setter_62; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSastYsignature_naryQ_setter,T45); lit_152 = YPPlist(1,YPPsym((P)"_x")); T48 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_63 = YPfab_met(FUNCODEREF(fun_63),T48,YPfalse,LITREF(lit_152),sloc(140),YPfalse); T49 = fun_63; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_naryQ),VARREF(YevalSastYsignature_naryQ_setter),VARREF(YLanyG),T49); lit_153 = YPPsym((P)"signature-arity"); lit_154 = YPPlist(1,YPPsym((P)"_x")); T50 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_signature_arity_64 = YPfab_met(FUNCODEREF(fun_signature_arity_64),T50,LITREF(lit_153),LITREF(lit_154),sloc(141),YPfalse); T52 = VARREF_OR(YevalSastYsignature_arity,YPfalse); T53 = fun_signature_arity_64; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YevalSastYsignature_arity,T51); lit_155 = YPPsym((P)"signature-arity-setter"); lit_156 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T54 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_signature_arity_setter_65 = YPfab_met(FUNCODEREF(fun_signature_arity_setter_65),T54,LITREF(lit_155),LITREF(lit_156),sloc(141),YPfalse); T56 = VARREF_OR(YevalSastYsignature_arity_setter,YPfalse); T57 = fun_signature_arity_setter_65; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YevalSastYsignature_arity_setter,T55); lit_157 = YPPlist(1,YPPsym((P)"_x")); T58 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_66 = YPfab_met(FUNCODEREF(fun_66),T58,YPfalse,LITREF(lit_157),sloc(141),YPfalse); T59 = fun_66; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_arity),VARREF(YevalSastYsignature_arity_setter),VARREF(YLanyG),T59); lit_158 = YPPsym((P)"signature-value"); lit_159 = YPPlist(1,YPPsym((P)"_x")); T60 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_signature_value_67 = YPfab_met(FUNCODEREF(fun_signature_value_67),T60,LITREF(lit_158),LITREF(lit_159),sloc(142),YPfalse); T62 = VARREF_OR(YevalSastYsignature_value,YPfalse); T63 = fun_signature_value_67; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSastYsignature_value,T61); lit_160 = YPPsym((P)"signature-value-setter"); lit_161 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T64 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_signature_value_setter_68 = YPfab_met(FUNCODEREF(fun_signature_value_setter_68),T64,LITREF(lit_160),LITREF(lit_161),sloc(142),YPfalse); T66 = VARREF_OR(YevalSastYsignature_value_setter,YPfalse); T67 = fun_signature_value_setter_68; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSastYsignature_value_setter,T65); lit_162 = YPPlist(1,YPPsym((P)"_x")); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_69 = YPfab_met(FUNCODEREF(fun_69),T68,YPfalse,LITREF(lit_162),sloc(142),YPfalse); T69 = fun_69; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_signatureG),VARREF(YevalSastYsignature_value),VARREF(YevalSastYsignature_value_setter),VARREF(YLanyG),T69); lit_163 = YPPsym((P)"req-sig-specs"); lit_164 = YPPlist(1,YPPsym((P)"sig")); T70 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_signatureG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_req_sig_specs_70 = YPfab_met(FUNCODEREF(fun_req_sig_specs_70),T70,LITREF(lit_163),LITREF(lit_164),sloc(145),YPfalse); T72 = VARREF_OR(YevalSastYreq_sig_specs,YPfalse); T73 = fun_req_sig_specs_70; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSastYreq_sig_specs,T71); lit_165 = YPPsym((P)""); T76 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSdependencyYLdependentG),Ynil); T75 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),T76); T74 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_165),T75); VARSET(YevalSastYLast_functionG,T74); lit_166 = YPPsym((P)"function-binding"); lit_167 = YPPlist(1,YPPsym((P)"_x")); T77 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_binding_71 = YPfab_met(FUNCODEREF(fun_function_binding_71),T77,LITREF(lit_166),LITREF(lit_167),sloc(152),YPfalse); T79 = VARREF_OR(YevalSastYfunction_binding,YPfalse); T80 = fun_function_binding_71; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YevalSastYfunction_binding,T78); lit_168 = YPPsym((P)"function-binding-setter"); lit_169 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T81 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_binding_setter_72 = YPfab_met(FUNCODEREF(fun_function_binding_setter_72),T81,LITREF(lit_168),LITREF(lit_169),sloc(152),YPfalse); T83 = VARREF_OR(YevalSastYfunction_binding_setter,YPfalse); T84 = fun_function_binding_setter_72; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YevalSastYfunction_binding_setter,T82); lit_170 = YPPlist(1,YPPsym((P)"_x")); T85 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_73 = YPfab_met(FUNCODEREF(fun_73),T85,YPfalse,LITREF(lit_170),sloc(152),YPfalse); T86 = fun_73; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_functionG),VARREF(YevalSastYfunction_binding),VARREF(YevalSastYfunction_binding_setter),VARREF(YLanyG),T86); lit_171 = YPPsym((P)"function-debug-name"); lit_172 = YPPlist(1,YPPsym((P)"_x")); T87 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_debug_name_74 = YPfab_met(FUNCODEREF(fun_function_debug_name_74),T87,LITREF(lit_171),LITREF(lit_172),sloc(153),YPfalse); T89 = VARREF_OR(YevalSastYfunction_debug_name,YPfalse); T90 = fun_function_debug_name_74; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSastYfunction_debug_name,T88); lit_173 = YPPsym((P)"function-debug-name-setter"); lit_174 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T91 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_debug_name_setter_75 = YPfab_met(FUNCODEREF(fun_function_debug_name_setter_75),T91,LITREF(lit_173),LITREF(lit_174),sloc(153),YPfalse); T93 = VARREF_OR(YevalSastYfunction_debug_name_setter,YPfalse); T94 = fun_function_debug_name_setter_75; T92 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T93,T94); VARSET(YevalSastYfunction_debug_name_setter,T92); lit_175 = YPPlist(1,YPPsym((P)"_x")); T95 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_76 = YPfab_met(FUNCODEREF(fun_76),T95,YPfalse,LITREF(lit_175),sloc(153),YPfalse); T96 = fun_76; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_functionG),VARREF(YevalSastYfunction_debug_name),VARREF(YevalSastYfunction_debug_name_setter),VARREF(YLanyG),T96); lit_176 = YPPsym((P)"function-signature"); lit_177 = YPPlist(1,YPPsym((P)"_x")); T97 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_signature_77 = YPfab_met(FUNCODEREF(fun_function_signature_77),T97,LITREF(lit_176),LITREF(lit_177),sloc(155),YPfalse); T99 = VARREF_OR(YevalSastYfunction_signature,YPfalse); T100 = fun_function_signature_77; T98 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T99,T100); VARSET(YevalSastYfunction_signature,T98); lit_178 = YPPsym((P)"function-signature-setter"); lit_179 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T101 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_signature_setter_78 = YPfab_met(FUNCODEREF(fun_function_signature_setter_78),T101,LITREF(lit_178),LITREF(lit_179),sloc(155),YPfalse); T103 = VARREF_OR(YevalSastYfunction_signature_setter,YPfalse); T104 = fun_function_signature_setter_78; T102 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T103,T104); VARSET(YevalSastYfunction_signature_setter,T102); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_functionG),VARREF(YevalSastYfunction_signature),VARREF(YevalSastYfunction_signature_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_180 = YPPsym((P)"function-bindings"); lit_181 = YPPlist(1,YPPsym((P)"x")); T105 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_bindings = YPfab_met(FUNCODEREF(YevalSastYfunction_bindings),T105,LITREF(lit_180),LITREF(lit_181),sloc(157),YPfalse); T106 = YevalSastYfunction_bindings; VARSET(YevalSastYfunction_bindings,T106); lit_182 = YPPsym((P)"function-names"); lit_183 = YPPlist(1,YPPsym((P)"x")); T107 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_names = YPfab_met(FUNCODEREF(YevalSastYfunction_names),T107,LITREF(lit_182),LITREF(lit_183),sloc(159),YPfalse); T108 = YevalSastYfunction_names; VARSET(YevalSastYfunction_names,T108); lit_184 = YPPsym((P)"function-specs"); lit_185 = YPPlist(1,YPPsym((P)"x")); T109 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_specs = YPfab_met(FUNCODEREF(YevalSastYfunction_specs),T109,LITREF(lit_184),LITREF(lit_185),sloc(161),YPfalse); T110 = YevalSastYfunction_specs; VARSET(YevalSastYfunction_specs,T110); lit_186 = YPPsym((P)"function-nary?"); lit_187 = YPPlist(1,YPPsym((P)"x")); T111 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_naryQ = YPfab_met(FUNCODEREF(YevalSastYfunction_naryQ),T111,LITREF(lit_186),LITREF(lit_187),sloc(163),YPfalse); T112 = YevalSastYfunction_naryQ; VARSET(YevalSastYfunction_naryQ,T112); lit_188 = YPPsym((P)"function-arity"); lit_189 = YPPlist(1,YPPsym((P)"x")); T113 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_arity = YPfab_met(FUNCODEREF(YevalSastYfunction_arity),T113,LITREF(lit_188),LITREF(lit_189),sloc(165),YPfalse); T114 = YevalSastYfunction_arity; VARSET(YevalSastYfunction_arity,T114); lit_190 = YPPsym((P)"function-value"); lit_191 = YPPlist(1,YPPsym((P)"x")); T115 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_value = YPfab_met(FUNCODEREF(YevalSastYfunction_value),T115,LITREF(lit_190),LITREF(lit_191),sloc(167),YPfalse); T116 = YevalSastYfunction_value; VARSET(YevalSastYfunction_value,T116); lit_192 = YPPsym((P)"function-kind"); lit_193 = YPPlist(1,YPPsym((P)"x")); lit_194 = YPsb((P)"FUN"); T117 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_kind_85 = YPfab_met(FUNCODEREF(fun_function_kind_85),T117,LITREF(lit_192),LITREF(lit_193),sloc(170),YPfalse); T119 = VARREF_OR(YevalSastYfunction_kind,YPfalse); T120 = fun_function_kind_85; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSastYfunction_kind,T118); lit_195 = YPPsym((P)"function-display-name"); lit_196 = YPPlist(1,YPPsym((P)"f")); lit_197 = YPsb((P)"%s:%s"); lit_198 = YPsb((P)"anonymous function"); T121 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYfunction_display_name = YPfab_met(FUNCODEREF(YevalSastYfunction_display_name),T121,LITREF(lit_195),LITREF(lit_196),sloc(172),YPfalse); T122 = YevalSastYfunction_display_name; VARSET(YevalSastYfunction_display_name,T122); lit_199 = YPPsym((P)"invalidate-dependent"); lit_200 = YPPlist(3,YPPsym((P)"dependent"),YPPsym((P)"dependable"),YPPsym((P)"dtype")); lit_201 = YPsb((P)"warning: %s needs to be reparsed\n"); lit_202 = YPsb((P)"warning: %s needs to be re-optimized\n"); lit_203 = YPsb((P)"warning: unknown dependency of %s clobbered\n"); T123 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLast_functionG),VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_invalidate_dependent_87 = YPfab_met(FUNCODEREF(fun_invalidate_dependent_87),T123,LITREF(lit_199),LITREF(lit_200),sloc(182),YPfalse); T125 = VARREF_OR(YevalSdependencyYinvalidate_dependent,YPfalse); T126 = fun_invalidate_dependent_87; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSdependencyYinvalidate_dependent,T124); lit_204 = YPPsym((P)""); T128 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLpassive_programG),Ynil); T127 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_204),T128); VARSET(YevalSastYLprogramsG,T127); lit_205 = YPPsym((P)"as-lst"); lit_206 = YPPlist(1,YPPsym((P)"e")); T129 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramsG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_as_lst_88 = YPfab_met(FUNCODEREF(fun_as_lst_88),T129,LITREF(lit_205),LITREF(lit_206),sloc(198),YPfalse); T131 = VARREF_OR(YevalSastYas_lst,YPfalse); T132 = fun_as_lst_88; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalSastYas_lst,T130); lit_207 = YPPlist(1,YPPsym((P)"exp")); lit_208 = YPPlist(1,YPPsym((P)"return")); lit_209 = YPPsym((P)"x-1504"); lit_210 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_211 = YPPsym((P)"def-programs"); lit_212 = YPPsym((P)"def-list"); T135 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1504_89 = YPfab_met(FUNCODEREF(fun_x_1504_89),T135,LITREF(lit_209),LITREF(lit_210),YPfalse,YPfalse); T134 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_90 = YPfab_met(FUNCODEREF(fun_90),T134,YPfalse,LITREF(lit_208),YPfalse,YPfalse); T133 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_91 = YPfab_met(FUNCODEREF(fun_91),T133,YPfalse,LITREF(lit_207),YPfalse,YPfalse); T136 = fun_91; YPmacro(YPPsym((P)"eval/ast"),YPPsym((P)"def-programs"),T136); lit_213 = YPPsym((P)""); T138 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLast_functionG),Ynil); T137 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_213),T138); VARSET(YevalSastYLast_embodied_functionG,T137); lit_214 = YPPsym((P)"function-body"); lit_215 = YPPlist(1,YPPsym((P)"_x")); T139 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_body_92 = YPfab_met(FUNCODEREF(fun_function_body_92),T139,LITREF(lit_214),LITREF(lit_215),sloc(205),YPfalse); T141 = VARREF_OR(YevalSastYfunction_body,YPfalse); T142 = fun_function_body_92; T140 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T141,T142); VARSET(YevalSastYfunction_body,T140); lit_216 = YPPsym((P)"function-body-setter"); lit_217 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T143 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_body_setter_93 = YPfab_met(FUNCODEREF(fun_function_body_setter_93),T143,LITREF(lit_216),LITREF(lit_217),sloc(205),YPfalse); T145 = VARREF_OR(YevalSastYfunction_body_setter,YPfalse); T146 = fun_function_body_setter_93; T144 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T145,T146); VARSET(YevalSastYfunction_body_setter,T144); lit_218 = YPPlist(1,YPPsym((P)"_x")); T149 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T148 = fun_94 = YPfab_met(FUNCODEREF(fun_94),T149,YPfalse,LITREF(lit_218),sloc(205),YPfalse); T151 = fun_94; T150 = XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_body),VARREF(YevalSastYfunction_body_setter),VARREF(YLanyG),T151); T147 = T150; return T147; } P YevalSastY___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156; DEFCREGS(); lit_219 = YPPsym((P)"function-index"); lit_220 = YPPlist(1,YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_index_95 = YPfab_met(FUNCODEREF(fun_function_index_95),T0,LITREF(lit_219),LITREF(lit_220),sloc(206),YPfalse); T2 = VARREF_OR(YevalSastYfunction_index,YPfalse); T3 = fun_function_index_95; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSastYfunction_index,T1); lit_221 = YPPsym((P)"function-index-setter"); lit_222 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_index_setter_96 = YPfab_met(FUNCODEREF(fun_function_index_setter_96),T4,LITREF(lit_221),LITREF(lit_222),sloc(206),YPfalse); T6 = VARREF_OR(YevalSastYfunction_index_setter,YPfalse); T7 = fun_function_index_setter_96; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSastYfunction_index_setter,T5); lit_223 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_97 = YPfab_met(FUNCODEREF(fun_97),T8,YPfalse,LITREF(lit_223),sloc(206),YPfalse); T9 = fun_97; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_index),VARREF(YevalSastYfunction_index_setter),VARREF(YLanyG),T9); lit_224 = YPPsym((P)"function-temporaries"); lit_225 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_temporaries_98 = YPfab_met(FUNCODEREF(fun_function_temporaries_98),T10,LITREF(lit_224),LITREF(lit_225),sloc(207),YPfalse); T12 = VARREF_OR(YevalSastYfunction_temporaries,YPfalse); T13 = fun_function_temporaries_98; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSastYfunction_temporaries,T11); lit_226 = YPPsym((P)"function-temporaries-setter"); lit_227 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_temporaries_setter_99 = YPfab_met(FUNCODEREF(fun_function_temporaries_setter_99),T14,LITREF(lit_226),LITREF(lit_227),sloc(207),YPfalse); T16 = VARREF_OR(YevalSastYfunction_temporaries_setter,YPfalse); T17 = fun_function_temporaries_setter_99; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSastYfunction_temporaries_setter,T15); lit_228 = YPPlist(1,YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_100 = YPfab_met(FUNCODEREF(fun_100),T18,YPfalse,LITREF(lit_228),sloc(207),YPfalse); T19 = fun_100; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_temporaries),VARREF(YevalSastYfunction_temporaries_setter),VARREF(YLanyG),T19); lit_229 = YPPsym((P)"function-registers"); lit_230 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_registers_101 = YPfab_met(FUNCODEREF(fun_function_registers_101),T20,LITREF(lit_229),LITREF(lit_230),sloc(208),YPfalse); T22 = VARREF_OR(YevalSastYfunction_registers,YPfalse); T23 = fun_function_registers_101; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSastYfunction_registers,T21); lit_231 = YPPsym((P)"function-registers-setter"); lit_232 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_registers_setter_102 = YPfab_met(FUNCODEREF(fun_function_registers_setter_102),T24,LITREF(lit_231),LITREF(lit_232),sloc(208),YPfalse); T26 = VARREF_OR(YevalSastYfunction_registers_setter,YPfalse); T27 = fun_function_registers_setter_102; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSastYfunction_registers_setter,T25); lit_233 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_103 = YPfab_met(FUNCODEREF(fun_103),T28,YPfalse,LITREF(lit_233),sloc(208),YPfalse); T29 = fun_103; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_registers),VARREF(YevalSastYfunction_registers_setter),VARREF(YgooScolsSvecYLvecG),T29); lit_234 = YPPsym((P)"function-loop"); lit_235 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_loop_104 = YPfab_met(FUNCODEREF(fun_function_loop_104),T30,LITREF(lit_234),LITREF(lit_235),sloc(209),YPfalse); T32 = VARREF_OR(YevalSastYfunction_loop,YPfalse); T33 = fun_function_loop_104; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSastYfunction_loop,T31); lit_236 = YPPsym((P)"function-loop-setter"); lit_237 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_loop_setter_105 = YPfab_met(FUNCODEREF(fun_function_loop_setter_105),T34,LITREF(lit_236),LITREF(lit_237),sloc(209),YPfalse); T36 = VARREF_OR(YevalSastYfunction_loop_setter,YPfalse); T37 = fun_function_loop_setter_105; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSastYfunction_loop_setter,T35); lit_238 = YPPlist(1,YPPsym((P)"_x")); T38 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_106 = YPfab_met(FUNCODEREF(fun_106),T38,YPfalse,LITREF(lit_238),sloc(209),YPfalse); T39 = fun_106; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_loop),VARREF(YevalSastYfunction_loop_setter),VARREF(YLanyG),T39); lit_239 = YPPsym((P)"function-source"); lit_240 = YPPlist(1,YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_source_107 = YPfab_met(FUNCODEREF(fun_function_source_107),T40,LITREF(lit_239),LITREF(lit_240),sloc(210),YPfalse); T42 = VARREF_OR(YevalSastYfunction_source,YPfalse); T43 = fun_function_source_107; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSastYfunction_source,T41); lit_241 = YPPsym((P)"function-source-setter"); lit_242 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T44 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_source_setter_108 = YPfab_met(FUNCODEREF(fun_function_source_setter_108),T44,LITREF(lit_241),LITREF(lit_242),sloc(210),YPfalse); T46 = VARREF_OR(YevalSastYfunction_source_setter,YPfalse); T47 = fun_function_source_setter_108; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSastYfunction_source_setter,T45); lit_243 = YPPlist(1,YPPsym((P)"_x")); T48 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_109 = YPfab_met(FUNCODEREF(fun_109),T48,YPfalse,LITREF(lit_243),sloc(210),YPfalse); T49 = fun_109; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_source),VARREF(YevalSastYfunction_source_setter),VARREF(YLanyG),T49); lit_244 = YPPsym((P)"function-frame-len"); lit_245 = YPPlist(1,YPPsym((P)"_x")); T50 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_frame_len_110 = YPfab_met(FUNCODEREF(fun_function_frame_len_110),T50,LITREF(lit_244),LITREF(lit_245),sloc(211),YPfalse); T52 = VARREF_OR(YevalSastYfunction_frame_len,YPfalse); T53 = fun_function_frame_len_110; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YevalSastYfunction_frame_len,T51); lit_246 = YPPsym((P)"function-frame-len-setter"); lit_247 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T54 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_frame_len_setter_111 = YPfab_met(FUNCODEREF(fun_function_frame_len_setter_111),T54,LITREF(lit_246),LITREF(lit_247),sloc(211),YPfalse); T56 = VARREF_OR(YevalSastYfunction_frame_len_setter,YPfalse); T57 = fun_function_frame_len_setter_111; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YevalSastYfunction_frame_len_setter,T55); lit_248 = YPPlist(1,YPPsym((P)"_x")); T58 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_112 = YPfab_met(FUNCODEREF(fun_112),T58,YPfalse,LITREF(lit_248),sloc(211),YPfalse); T59 = fun_112; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_frame_len),VARREF(YevalSastYfunction_frame_len_setter),VARREF(YLanyG),T59); lit_249 = YPPsym((P)"function-adjectives"); lit_250 = YPPlist(1,YPPsym((P)"_x")); T60 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_adjectives_113 = YPfab_met(FUNCODEREF(fun_function_adjectives_113),T60,LITREF(lit_249),LITREF(lit_250),sloc(212),YPfalse); T62 = VARREF_OR(YevalSastYfunction_adjectives,YPfalse); T63 = fun_function_adjectives_113; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSastYfunction_adjectives,T61); lit_251 = YPPsym((P)"function-adjectives-setter"); lit_252 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T64 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_adjectives_setter_114 = YPfab_met(FUNCODEREF(fun_function_adjectives_setter_114),T64,LITREF(lit_251),LITREF(lit_252),sloc(212),YPfalse); T66 = VARREF_OR(YevalSastYfunction_adjectives_setter,YPfalse); T67 = fun_function_adjectives_setter_114; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSastYfunction_adjectives_setter,T65); lit_253 = YPPlist(1,YPPsym((P)"_x")); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_115 = YPfab_met(FUNCODEREF(fun_115),T68,YPfalse,LITREF(lit_253),sloc(212),YPfalse); T69 = fun_115; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_embodied_functionG),VARREF(YevalSastYfunction_adjectives),VARREF(YevalSastYfunction_adjectives_setter),VARREF(YLlstG),T69); lit_254 = YPPsym((P)""); T72 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramsG),Ynil); T71 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T72); T70 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_254),T71); VARSET(YevalSastYLfree_environmentG,T70); T73 = XCALL1(1,VARREF(Ynew),VARREF(YevalSastYLfree_environmentG)); VARSET(YevalSastYDfree_environment_nul,T73); lit_255 = YPPsym((P)"free-environment"); lit_256 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYfree_environment = YPfab_met(FUNCODEREF(YevalSastYfree_environment),T74,LITREF(lit_255),LITREF(lit_256),sloc(214),YPfalse); T75 = YevalSastYfree_environment; VARSET(YevalSastYfree_environment,T75); lit_257 = YPPsym((P)"nul"); lit_258 = YPPlist(1,YPPsym((P)"e")); T77 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YevalSastYLfree_environmentG)); T76 = YPfab_sig(YPPlist(1,T77),YPfalse,YPint((P)1),VARREF(YevalSastYLfree_environmentG),Ynil); fun_nul_117 = YPfab_met(FUNCODEREF(fun_nul_117),T76,LITREF(lit_257),LITREF(lit_258),sloc(214),YPfalse); T79 = VARREF_OR(YgooScolsScolYnul,YPfalse); T80 = fun_nul_117; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YgooScolsScolYnul,T78); lit_259 = YPPsym((P)""); T82 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLast_embodied_functionG),Ynil); T81 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_259),T82); VARSET(YevalSastYLast_methodG,T81); lit_260 = YPPsym((P)"function-ref-count"); lit_261 = YPPlist(1,YPPsym((P)"_x")); T83 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_ref_count_118 = YPfab_met(FUNCODEREF(fun_function_ref_count_118),T83,LITREF(lit_260),LITREF(lit_261),sloc(217),YPfalse); T85 = VARREF_OR(YevalSastYfunction_ref_count,YPfalse); T86 = fun_function_ref_count_118; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YevalSastYfunction_ref_count,T84); lit_262 = YPPsym((P)"function-ref-count-setter"); lit_263 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T87 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_ref_count_setter_119 = YPfab_met(FUNCODEREF(fun_function_ref_count_setter_119),T87,LITREF(lit_262),LITREF(lit_263),sloc(217),YPfalse); T89 = VARREF_OR(YevalSastYfunction_ref_count_setter,YPfalse); T90 = fun_function_ref_count_setter_119; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSastYfunction_ref_count_setter,T88); lit_264 = YPPlist(1,YPPsym((P)"_x")); T91 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_120 = YPfab_met(FUNCODEREF(fun_120),T91,YPfalse,LITREF(lit_264),sloc(217),YPfalse); T92 = fun_120; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_methodG),VARREF(YevalSastYfunction_ref_count),VARREF(YevalSastYfunction_ref_count_setter),VARREF(YLintG),T92); lit_265 = YPPsym((P)"function-free"); lit_266 = YPPlist(1,YPPsym((P)"_x")); T93 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_free_121 = YPfab_met(FUNCODEREF(fun_function_free_121),T93,LITREF(lit_265),LITREF(lit_266),sloc(218),YPfalse); T95 = VARREF_OR(YevalSastYfunction_free,YPfalse); T96 = fun_function_free_121; T94 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T95,T96); VARSET(YevalSastYfunction_free,T94); lit_267 = YPPsym((P)"function-free-setter"); lit_268 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T97 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLfree_environmentG),VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_function_free_setter_122 = YPfab_met(FUNCODEREF(fun_function_free_setter_122),T97,LITREF(lit_267),LITREF(lit_268),sloc(218),YPfalse); T99 = VARREF_OR(YevalSastYfunction_free_setter,YPfalse); T100 = fun_function_free_setter_122; T98 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T99,T100); VARSET(YevalSastYfunction_free_setter,T98); lit_269 = YPPlist(1,YPPsym((P)"_x")); T101 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_123 = YPfab_met(FUNCODEREF(fun_123),T101,YPfalse,LITREF(lit_269),sloc(218),YPfalse); T102 = fun_123; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLast_methodG),VARREF(YevalSastYfunction_free),VARREF(YevalSastYfunction_free_setter),VARREF(YevalSastYLfree_environmentG),T102); lit_270 = YPPsym((P)"incf-ref-count"); lit_271 = YPPlist(1,YPPsym((P)"x")); T103 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_incf_ref_count_124 = YPfab_met(FUNCODEREF(fun_incf_ref_count_124),T103,LITREF(lit_270),LITREF(lit_271),sloc(221),YPfalse); T105 = VARREF_OR(YevalSastYincf_ref_count,YPfalse); T106 = fun_incf_ref_count_124; T104 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T105,T106); VARSET(YevalSastYincf_ref_count,T104); lit_272 = YPPlist(1,YPPsym((P)"x")); T107 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_incf_ref_count_125 = YPfab_met(FUNCODEREF(fun_incf_ref_count_125),T107,LITREF(lit_270),LITREF(lit_272),sloc(222),YPfalse); T109 = VARREF_OR(YevalSastYincf_ref_count,YPfalse); T110 = fun_incf_ref_count_125; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YevalSastYincf_ref_count,T108); lit_273 = YPPlist(1,YPPsym((P)"x")); lit_274 = YPsb((P)"MET"); T111 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_kind_126 = YPfab_met(FUNCODEREF(fun_function_kind_126),T111,LITREF(lit_192),LITREF(lit_273),sloc(224),YPfalse); T113 = VARREF_OR(YevalSastYfunction_kind,YPfalse); T114 = fun_function_kind_126; T112 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T113,T114); VARSET(YevalSastYfunction_kind,T112); lit_275 = YPPsym((P)""); T116 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLast_embodied_functionG),Ynil); T115 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_275),T116); VARSET(YevalSastYLast_primitiveG,T115); lit_276 = YPPlist(1,YPPsym((P)"x")); lit_277 = YPsb((P)"PRM"); T117 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_primitiveG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_kind_127 = YPfab_met(FUNCODEREF(fun_function_kind_127),T117,LITREF(lit_192),LITREF(lit_276),sloc(228),YPfalse); T119 = VARREF_OR(YevalSastYfunction_kind,YPfalse); T120 = fun_function_kind_127; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSastYfunction_kind,T118); lit_278 = YPPsym((P)""); T122 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLast_functionG),Ynil); T121 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_278),T122); VARSET(YevalSastYLast_genericG,T121); lit_279 = YPPlist(1,YPPsym((P)"x")); lit_280 = YPsb((P)"GEN"); T123 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_genericG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_kind_128 = YPfab_met(FUNCODEREF(fun_function_kind_128),T123,LITREF(lit_192),LITREF(lit_279),sloc(232),YPfalse); T125 = VARREF_OR(YevalSastYfunction_kind,YPfalse); T126 = fun_function_kind_128; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSastYfunction_kind,T124); lit_281 = YPPsym((P)""); T128 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T127 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_281),T128); VARSET(YevalSastYLalternativeG,T127); lit_282 = YPPsym((P)"alternative-condition"); lit_283 = YPPlist(1,YPPsym((P)"_x")); T129 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLalternativeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_alternative_condition_129 = YPfab_met(FUNCODEREF(fun_alternative_condition_129),T129,LITREF(lit_282),LITREF(lit_283),sloc(235),YPfalse); T131 = VARREF_OR(YevalSastYalternative_condition,YPfalse); T132 = fun_alternative_condition_129; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalSastYalternative_condition,T130); lit_284 = YPPsym((P)"alternative-condition-setter"); lit_285 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T133 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLalternativeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_alternative_condition_setter_130 = YPfab_met(FUNCODEREF(fun_alternative_condition_setter_130),T133,LITREF(lit_284),LITREF(lit_285),sloc(235),YPfalse); T135 = VARREF_OR(YevalSastYalternative_condition_setter,YPfalse); T136 = fun_alternative_condition_setter_130; T134 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T135,T136); VARSET(YevalSastYalternative_condition_setter,T134); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLalternativeG),VARREF(YevalSastYalternative_condition),VARREF(YevalSastYalternative_condition_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_286 = YPPsym((P)"alternative-consequent"); lit_287 = YPPlist(1,YPPsym((P)"_x")); T137 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLalternativeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_alternative_consequent_131 = YPfab_met(FUNCODEREF(fun_alternative_consequent_131),T137,LITREF(lit_286),LITREF(lit_287),sloc(236),YPfalse); T139 = VARREF_OR(YevalSastYalternative_consequent,YPfalse); T140 = fun_alternative_consequent_131; T138 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T139,T140); VARSET(YevalSastYalternative_consequent,T138); lit_288 = YPPsym((P)"alternative-consequent-setter"); lit_289 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T141 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLalternativeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_alternative_consequent_setter_132 = YPfab_met(FUNCODEREF(fun_alternative_consequent_setter_132),T141,LITREF(lit_288),LITREF(lit_289),sloc(236),YPfalse); T143 = VARREF_OR(YevalSastYalternative_consequent_setter,YPfalse); T144 = fun_alternative_consequent_setter_132; T142 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T143,T144); VARSET(YevalSastYalternative_consequent_setter,T142); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLalternativeG),VARREF(YevalSastYalternative_consequent),VARREF(YevalSastYalternative_consequent_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_290 = YPPsym((P)"alternative-alternant"); lit_291 = YPPlist(1,YPPsym((P)"_x")); T145 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLalternativeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_alternative_alternant_133 = YPfab_met(FUNCODEREF(fun_alternative_alternant_133),T145,LITREF(lit_290),LITREF(lit_291),sloc(237),YPfalse); T147 = VARREF_OR(YevalSastYalternative_alternant,YPfalse); T148 = fun_alternative_alternant_133; T146 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T147,T148); VARSET(YevalSastYalternative_alternant,T146); lit_292 = YPPsym((P)"alternative-alternant-setter"); lit_293 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T149 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLalternativeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_alternative_alternant_setter_134 = YPfab_met(FUNCODEREF(fun_alternative_alternant_setter_134),T149,LITREF(lit_292),LITREF(lit_293),sloc(237),YPfalse); T151 = VARREF_OR(YevalSastYalternative_alternant_setter,YPfalse); T152 = fun_alternative_alternant_setter_134; T150 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T151,T152); VARSET(YevalSastYalternative_alternant_setter,T150); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLalternativeG),VARREF(YevalSastYalternative_alternant),VARREF(YevalSastYalternative_alternant_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_294 = YPPsym((P)""); T156 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T155 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_294),T156); T154 = VARSET(YevalSastYLloopG,T155); T153 = T154; return T153; } P YevalSastY___main_4___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138; DEFCREGS(); lit_295 = YPPsym((P)"loop-bindings"); lit_296 = YPPlist(1,YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLloopG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_loop_bindings_135 = YPfab_met(FUNCODEREF(fun_loop_bindings_135),T0,LITREF(lit_295),LITREF(lit_296),sloc(240),YPfalse); T2 = VARREF_OR(YevalSastYloop_bindings,YPfalse); T3 = fun_loop_bindings_135; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSastYloop_bindings,T1); lit_297 = YPPsym((P)"loop-bindings-setter"); lit_298 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLloopG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_loop_bindings_setter_136 = YPfab_met(FUNCODEREF(fun_loop_bindings_setter_136),T4,LITREF(lit_297),LITREF(lit_298),sloc(240),YPfalse); T6 = VARREF_OR(YevalSastYloop_bindings_setter,YPfalse); T7 = fun_loop_bindings_setter_136; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSastYloop_bindings_setter,T5); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLloopG),VARREF(YevalSastYloop_bindings),VARREF(YevalSastYloop_bindings_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_299 = YPPsym((P)"loop-body"); lit_300 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLloopG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_loop_body_137 = YPfab_met(FUNCODEREF(fun_loop_body_137),T8,LITREF(lit_299),LITREF(lit_300),sloc(241),YPfalse); T10 = VARREF_OR(YevalSastYloop_body,YPfalse); T11 = fun_loop_body_137; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSastYloop_body,T9); lit_301 = YPPsym((P)"loop-body-setter"); lit_302 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLloopG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_loop_body_setter_138 = YPfab_met(FUNCODEREF(fun_loop_body_setter_138),T12,LITREF(lit_301),LITREF(lit_302),sloc(241),YPfalse); T14 = VARREF_OR(YevalSastYloop_body_setter,YPfalse); T15 = fun_loop_body_setter_138; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSastYloop_body_setter,T13); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLloopG),VARREF(YevalSastYloop_body),VARREF(YevalSastYloop_body_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_303 = YPPsym((P)"loop-continue"); lit_304 = YPPlist(1,YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLloopG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_loop_continue_139 = YPfab_met(FUNCODEREF(fun_loop_continue_139),T16,LITREF(lit_303),LITREF(lit_304),sloc(242),YPfalse); T18 = VARREF_OR(YevalSastYloop_continue,YPfalse); T19 = fun_loop_continue_139; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSastYloop_continue,T17); lit_305 = YPPsym((P)"loop-continue-setter"); lit_306 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLloopG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_loop_continue_setter_140 = YPfab_met(FUNCODEREF(fun_loop_continue_setter_140),T20,LITREF(lit_305),LITREF(lit_306),sloc(242),YPfalse); T22 = VARREF_OR(YevalSastYloop_continue_setter,YPfalse); T23 = fun_loop_continue_setter_140; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSastYloop_continue_setter,T21); lit_307 = YPPlist(1,YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_141 = YPfab_met(FUNCODEREF(fun_141),T24,YPfalse,LITREF(lit_307),sloc(242),YPfalse); T25 = fun_141; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLloopG),VARREF(YevalSastYloop_continue),VARREF(YevalSastYloop_continue_setter),VARREF(YLanyG),T25); lit_308 = YPPsym((P)""); T28 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramsG),Ynil); T27 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T28); T26 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_308),T27); VARSET(YevalSastYLsequentialG,T26); T29 = XCALL1(1,VARREF(Ynew),VARREF(YevalSastYLsequentialG)); VARSET(YevalSastYDsequential_nul,T29); lit_309 = YPPsym((P)"sequential"); lit_310 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T30 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYsequential = YPfab_met(FUNCODEREF(YevalSastYsequential),T30,LITREF(lit_309),LITREF(lit_310),sloc(244),YPfalse); T31 = YevalSastYsequential; VARSET(YevalSastYsequential,T31); lit_311 = YPPlist(1,YPPsym((P)"e")); T33 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YevalSastYLsequentialG)); T32 = YPfab_sig(YPPlist(1,T33),YPfalse,YPint((P)1),VARREF(YevalSastYLsequentialG),Ynil); fun_nul_143 = YPfab_met(FUNCODEREF(fun_nul_143),T32,LITREF(lit_257),LITREF(lit_311),sloc(244),YPfalse); T35 = VARREF_OR(YgooScolsScolYnul,YPfalse); T36 = fun_nul_143; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooScolsScolYnul,T34); lit_312 = YPPsym((P)""); T38 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLpassive_programG),Ynil); T37 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_312),T38); VARSET(YevalSastYLconstantG,T37); lit_313 = YPPsym((P)"constant-value"); lit_314 = YPPlist(1,YPPsym((P)"_x")); T39 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLconstantG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_constant_value_144 = YPfab_met(FUNCODEREF(fun_constant_value_144),T39,LITREF(lit_313),LITREF(lit_314),sloc(247),YPfalse); T41 = VARREF_OR(YevalSastYconstant_value,YPfalse); T42 = fun_constant_value_144; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YevalSastYconstant_value,T40); lit_315 = YPPsym((P)"constant-value-setter"); lit_316 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T43 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLconstantG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_constant_value_setter_145 = YPfab_met(FUNCODEREF(fun_constant_value_setter_145),T43,LITREF(lit_315),LITREF(lit_316),sloc(247),YPfalse); T45 = VARREF_OR(YevalSastYconstant_value_setter,YPfalse); T46 = fun_constant_value_setter_145; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YevalSastYconstant_value_setter,T44); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),VARREF(YevalSastYconstant_value_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_317 = YPPsym((P)"constant-index"); lit_318 = YPPlist(1,YPPsym((P)"_x")); T47 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLconstantG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_constant_index_146 = YPfab_met(FUNCODEREF(fun_constant_index_146),T47,LITREF(lit_317),LITREF(lit_318),sloc(248),YPfalse); T49 = VARREF_OR(YevalSastYconstant_index,YPfalse); T50 = fun_constant_index_146; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YevalSastYconstant_index,T48); lit_319 = YPPsym((P)"constant-index-setter"); lit_320 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T51 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLconstantG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_constant_index_setter_147 = YPfab_met(FUNCODEREF(fun_constant_index_setter_147),T51,LITREF(lit_319),LITREF(lit_320),sloc(248),YPfalse); T53 = VARREF_OR(YevalSastYconstant_index_setter,YPfalse); T54 = fun_constant_index_setter_147; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YevalSastYconstant_index_setter,T52); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_index),VARREF(YevalSastYconstant_index_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_321 = YPPsym((P)""); T56 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLconstantG),Ynil); T55 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_321),T56); VARSET(YevalSastYLraw_constantG,T55); lit_322 = YPPsym((P)""); T58 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLconstantG),Ynil); T57 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_322),T58); VARSET(YevalSastYLimmediate_constantG,T57); lit_323 = YPPsym((P)""); T60 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T59 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_323),T60); VARSET(YevalSastYLapplicationG,T59); lit_324 = YPPsym((P)"application-arguments"); lit_325 = YPPlist(1,YPPsym((P)"_x")); T61 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLapplicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_arguments_148 = YPfab_met(FUNCODEREF(fun_application_arguments_148),T61,LITREF(lit_324),LITREF(lit_325),sloc(255),YPfalse); T63 = VARREF_OR(YevalSastYapplication_arguments,YPfalse); T64 = fun_application_arguments_148; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSastYapplication_arguments,T62); lit_326 = YPPsym((P)"application-arguments-setter"); lit_327 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T65 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLapplicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_arguments_setter_149 = YPfab_met(FUNCODEREF(fun_application_arguments_setter_149),T65,LITREF(lit_326),LITREF(lit_327),sloc(255),YPfalse); T67 = VARREF_OR(YevalSastYapplication_arguments_setter,YPfalse); T68 = fun_application_arguments_setter_149; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YevalSastYapplication_arguments_setter,T66); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLapplicationG),VARREF(YevalSastYapplication_arguments),VARREF(YevalSastYapplication_arguments_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_328 = YPPsym((P)"application-tail?"); lit_329 = YPPlist(1,YPPsym((P)"_x")); T69 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLapplicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_tailQ_150 = YPfab_met(FUNCODEREF(fun_application_tailQ_150),T69,LITREF(lit_328),LITREF(lit_329),sloc(256),YPfalse); T71 = VARREF_OR(YevalSastYapplication_tailQ,YPfalse); T72 = fun_application_tailQ_150; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YevalSastYapplication_tailQ,T70); lit_330 = YPPsym((P)"application-tail?-setter"); lit_331 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T73 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLapplicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_tailQ_setter_151 = YPfab_met(FUNCODEREF(fun_application_tailQ_setter_151),T73,LITREF(lit_330),LITREF(lit_331),sloc(256),YPfalse); T75 = VARREF_OR(YevalSastYapplication_tailQ_setter,YPfalse); T76 = fun_application_tailQ_setter_151; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); VARSET(YevalSastYapplication_tailQ_setter,T74); lit_332 = YPPlist(1,YPPsym((P)"_x")); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_152 = YPfab_met(FUNCODEREF(fun_152),T77,YPfalse,LITREF(lit_332),sloc(256),YPfalse); T78 = fun_152; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLapplicationG),VARREF(YevalSastYapplication_tailQ),VARREF(YevalSastYapplication_tailQ_setter),VARREF(YLanyG),T78); lit_333 = YPPsym((P)""); T80 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLapplicationG),Ynil); T79 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_333),T80); VARSET(YevalSastYLloop_applicationG,T79); lit_334 = YPPsym((P)"application-loop"); lit_335 = YPPlist(1,YPPsym((P)"_x")); T81 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLloop_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_loop_153 = YPfab_met(FUNCODEREF(fun_application_loop_153),T81,LITREF(lit_334),LITREF(lit_335),sloc(259),YPfalse); T83 = VARREF_OR(YevalSastYapplication_loop,YPfalse); T84 = fun_application_loop_153; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YevalSastYapplication_loop,T82); lit_336 = YPPsym((P)"application-loop-setter"); lit_337 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T85 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLloopG),VARREF(YevalSastYLloop_applicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_loop_setter_154 = YPfab_met(FUNCODEREF(fun_application_loop_setter_154),T85,LITREF(lit_336),LITREF(lit_337),sloc(259),YPfalse); T87 = VARREF_OR(YevalSastYapplication_loop_setter,YPfalse); T88 = fun_application_loop_setter_154; T86 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T87,T88); VARSET(YevalSastYapplication_loop_setter,T86); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLloop_applicationG),VARREF(YevalSastYapplication_loop),VARREF(YevalSastYapplication_loop_setter),VARREF(YevalSastYLloopG),VARREF(YPprop_unbound_error)); lit_338 = YPPlist(1,YPPsym((P)"x")); T89 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLloop_applicationG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_application_tailQ_155 = YPfab_met(FUNCODEREF(fun_application_tailQ_155),T89,LITREF(lit_328),LITREF(lit_338),sloc(261),YPfalse); T91 = VARREF_OR(YevalSastYapplication_tailQ,YPfalse); T92 = fun_application_tailQ_155; T90 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T91,T92); VARSET(YevalSastYapplication_tailQ,T90); lit_339 = YPPsym((P)""); T94 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLapplicationG),Ynil); T93 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_339),T94); VARSET(YevalSastYLregular_applicationG,T93); lit_340 = YPPsym((P)"application-function"); lit_341 = YPPlist(1,YPPsym((P)"_x")); T95 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLregular_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_function_156 = YPfab_met(FUNCODEREF(fun_application_function_156),T95,LITREF(lit_340),LITREF(lit_341),sloc(264),YPfalse); T97 = VARREF_OR(YevalSastYapplication_function,YPfalse); T98 = fun_application_function_156; T96 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T97,T98); VARSET(YevalSastYapplication_function,T96); lit_342 = YPPsym((P)"application-function-setter"); lit_343 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T99 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLregular_applicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_function_setter_157 = YPfab_met(FUNCODEREF(fun_application_function_setter_157),T99,LITREF(lit_342),LITREF(lit_343),sloc(264),YPfalse); T101 = VARREF_OR(YevalSastYapplication_function_setter,YPfalse); T102 = fun_application_function_setter_157; T100 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T101,T102); VARSET(YevalSastYapplication_function_setter,T100); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLregular_applicationG),VARREF(YevalSastYapplication_function),VARREF(YevalSastYapplication_function_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_344 = YPPsym((P)"application-known?"); lit_345 = YPPlist(1,YPPsym((P)"_x")); T103 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLregular_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_knownQ_158 = YPfab_met(FUNCODEREF(fun_application_knownQ_158),T103,LITREF(lit_344),LITREF(lit_345),sloc(265),YPfalse); T105 = VARREF_OR(YevalSastYapplication_knownQ,YPfalse); T106 = fun_application_knownQ_158; T104 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T105,T106); VARSET(YevalSastYapplication_knownQ,T104); lit_346 = YPPsym((P)"application-known?-setter"); lit_347 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T107 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLregular_applicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_knownQ_setter_159 = YPfab_met(FUNCODEREF(fun_application_knownQ_setter_159),T107,LITREF(lit_346),LITREF(lit_347),sloc(265),YPfalse); T109 = VARREF_OR(YevalSastYapplication_knownQ_setter,YPfalse); T110 = fun_application_knownQ_setter_159; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YevalSastYapplication_knownQ_setter,T108); lit_348 = YPPlist(1,YPPsym((P)"_x")); T111 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_160 = YPfab_met(FUNCODEREF(fun_160),T111,YPfalse,LITREF(lit_348),sloc(265),YPfalse); T112 = fun_160; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLregular_applicationG),VARREF(YevalSastYapplication_knownQ),VARREF(YevalSastYapplication_knownQ_setter),VARREF(YLanyG),T112); lit_349 = YPPsym((P)""); T114 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLregular_applicationG),Ynil); T113 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_349),T114); VARSET(YevalSastYLmethod_applicationG,T113); lit_350 = YPPsym((P)"application-next-methods"); lit_351 = YPPlist(1,YPPsym((P)"_x")); T115 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmethod_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_next_methods_161 = YPfab_met(FUNCODEREF(fun_application_next_methods_161),T115,LITREF(lit_350),LITREF(lit_351),sloc(268),YPfalse); T117 = VARREF_OR(YevalSastYapplication_next_methods,YPfalse); T118 = fun_application_next_methods_161; T116 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T117,T118); VARSET(YevalSastYapplication_next_methods,T116); lit_352 = YPPsym((P)"application-next-methods-setter"); lit_353 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T119 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLmethod_applicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_next_methods_setter_162 = YPfab_met(FUNCODEREF(fun_application_next_methods_setter_162),T119,LITREF(lit_352),LITREF(lit_353),sloc(268),YPfalse); T121 = VARREF_OR(YevalSastYapplication_next_methods_setter,YPfalse); T122 = fun_application_next_methods_setter_162; T120 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T121,T122); VARSET(YevalSastYapplication_next_methods_setter,T120); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLmethod_applicationG),VARREF(YevalSastYapplication_next_methods),VARREF(YevalSastYapplication_next_methods_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_354 = YPPlist(1,YPPsym((P)"x")); T123 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmethod_applicationG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_application_knownQ_163 = YPfab_met(FUNCODEREF(fun_application_knownQ_163),T123,LITREF(lit_344),LITREF(lit_354),sloc(270),YPfalse); T125 = VARREF_OR(YevalSastYapplication_knownQ,YPfalse); T126 = fun_application_knownQ_163; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSastYapplication_knownQ,T124); lit_355 = YPPsym((P)""); T128 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLapplicationG),Ynil); T127 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_355),T128); VARSET(YevalSastYLpredefined_applicationG,T127); lit_356 = YPPsym((P)"application-binding"); lit_357 = YPPlist(1,YPPsym((P)"_x")); T129 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLpredefined_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_application_binding_164 = YPfab_met(FUNCODEREF(fun_application_binding_164),T129,LITREF(lit_356),LITREF(lit_357),sloc(273),YPfalse); T131 = VARREF_OR(YevalSastYapplication_binding,YPfalse); T132 = fun_application_binding_164; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalSastYapplication_binding,T130); lit_358 = YPPsym((P)"application-binding-setter"); lit_359 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T133 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLpredefined_applicationG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_application_binding_setter_165 = YPfab_met(FUNCODEREF(fun_application_binding_setter_165),T133,LITREF(lit_358),LITREF(lit_359),sloc(273),YPfalse); T135 = VARREF_OR(YevalSastYapplication_binding_setter,YPfalse); T136 = fun_application_binding_setter_165; T134 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T135,T136); VARSET(YevalSastYapplication_binding_setter,T134); T138 = XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLpredefined_applicationG),VARREF(YevalSastYapplication_binding),VARREF(YevalSastYapplication_binding_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); T137 = T138; return T137; } P YevalSastY___main_5___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134; DEFCREGS(); lit_360 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_360),T1); VARSET(YevalSastYLfix_letG,T0); lit_361 = YPPsym((P)"fix-let-bindings"); lit_362 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_fix_let_bindings_166 = YPfab_met(FUNCODEREF(fun_fix_let_bindings_166),T2,LITREF(lit_361),LITREF(lit_362),sloc(276),YPfalse); T4 = VARREF_OR(YevalSastYfix_let_bindings,YPfalse); T5 = fun_fix_let_bindings_166; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YevalSastYfix_let_bindings,T3); lit_363 = YPPsym((P)"fix-let-bindings-setter"); lit_364 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_fix_let_bindings_setter_167 = YPfab_met(FUNCODEREF(fun_fix_let_bindings_setter_167),T6,LITREF(lit_363),LITREF(lit_364),sloc(276),YPfalse); T8 = VARREF_OR(YevalSastYfix_let_bindings_setter,YPfalse); T9 = fun_fix_let_bindings_setter_167; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YevalSastYfix_let_bindings_setter,T7); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLfix_letG),VARREF(YevalSastYfix_let_bindings),VARREF(YevalSastYfix_let_bindings_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_365 = YPPsym((P)"fix-let-types"); lit_366 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_fix_let_types_168 = YPfab_met(FUNCODEREF(fun_fix_let_types_168),T10,LITREF(lit_365),LITREF(lit_366),sloc(277),YPfalse); T12 = VARREF_OR(YevalSastYfix_let_types,YPfalse); T13 = fun_fix_let_types_168; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSastYfix_let_types,T11); lit_367 = YPPsym((P)"fix-let-types-setter"); lit_368 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_fix_let_types_setter_169 = YPfab_met(FUNCODEREF(fun_fix_let_types_setter_169),T14,LITREF(lit_367),LITREF(lit_368),sloc(277),YPfalse); T16 = VARREF_OR(YevalSastYfix_let_types_setter,YPfalse); T17 = fun_fix_let_types_setter_169; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSastYfix_let_types_setter,T15); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLfix_letG),VARREF(YevalSastYfix_let_types),VARREF(YevalSastYfix_let_types_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_369 = YPPsym((P)"fix-let-arguments"); lit_370 = YPPlist(1,YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_fix_let_arguments_170 = YPfab_met(FUNCODEREF(fun_fix_let_arguments_170),T18,LITREF(lit_369),LITREF(lit_370),sloc(278),YPfalse); T20 = VARREF_OR(YevalSastYfix_let_arguments,YPfalse); T21 = fun_fix_let_arguments_170; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSastYfix_let_arguments,T19); lit_371 = YPPsym((P)"fix-let-arguments-setter"); lit_372 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_fix_let_arguments_setter_171 = YPfab_met(FUNCODEREF(fun_fix_let_arguments_setter_171),T22,LITREF(lit_371),LITREF(lit_372),sloc(278),YPfalse); T24 = VARREF_OR(YevalSastYfix_let_arguments_setter,YPfalse); T25 = fun_fix_let_arguments_setter_171; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSastYfix_let_arguments_setter,T23); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLfix_letG),VARREF(YevalSastYfix_let_arguments),VARREF(YevalSastYfix_let_arguments_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_373 = YPPsym((P)"fix-let-body"); lit_374 = YPPlist(1,YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_fix_let_body_172 = YPfab_met(FUNCODEREF(fun_fix_let_body_172),T26,LITREF(lit_373),LITREF(lit_374),sloc(279),YPfalse); T28 = VARREF_OR(YevalSastYfix_let_body,YPfalse); T29 = fun_fix_let_body_172; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YevalSastYfix_let_body,T27); lit_375 = YPPsym((P)"fix-let-body-setter"); lit_376 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_fix_let_body_setter_173 = YPfab_met(FUNCODEREF(fun_fix_let_body_setter_173),T30,LITREF(lit_375),LITREF(lit_376),sloc(279),YPfalse); T32 = VARREF_OR(YevalSastYfix_let_body_setter,YPfalse); T33 = fun_fix_let_body_setter_173; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSastYfix_let_body_setter,T31); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLfix_letG),VARREF(YevalSastYfix_let_body),VARREF(YevalSastYfix_let_body_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_377 = YPPsym((P)""); T35 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLfix_letG),Ynil); T34 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_377),T35); VARSET(YevalSastYLlow_letG,T34); lit_378 = YPPsym((P)""); T38 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramsG),Ynil); T37 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T38); T36 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_378),T37); VARSET(YevalSastYLfab_listG,T36); T39 = XCALL1(1,VARREF(Ynew),VARREF(YevalSastYLfab_listG)); VARSET(YevalSastYDfab_list_nul,T39); lit_379 = YPPsym((P)"fab-list"); lit_380 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T40 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYfab_list = YPfab_met(FUNCODEREF(YevalSastYfab_list),T40,LITREF(lit_379),LITREF(lit_380),sloc(282),YPfalse); T41 = YevalSastYfab_list; VARSET(YevalSastYfab_list,T41); lit_381 = YPPlist(1,YPPsym((P)"e")); T43 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YevalSastYLfab_listG)); T42 = YPfab_sig(YPPlist(1,T43),YPfalse,YPint((P)1),VARREF(YevalSastYLfab_listG),Ynil); fun_nul_175 = YPfab_met(FUNCODEREF(fun_nul_175),T42,LITREF(lit_257),LITREF(lit_381),sloc(282),YPfalse); T45 = VARREF_OR(YgooScolsScolYnul,YPfalse); T46 = fun_nul_175; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooScolsScolYnul,T44); lit_382 = YPPsym((P)""); T49 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramsG),Ynil); T48 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T49); T47 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_382),T48); VARSET(YevalSastYLargumentsG,T47); T50 = XCALL1(1,VARREF(Ynew),VARREF(YevalSastYLargumentsG)); VARSET(YevalSastYDarguments_nul,T50); lit_383 = YPPsym((P)"arguments"); lit_384 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T51 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYarguments = YPfab_met(FUNCODEREF(YevalSastYarguments),T51,LITREF(lit_383),LITREF(lit_384),sloc(284),YPfalse); T52 = YevalSastYarguments; VARSET(YevalSastYarguments,T52); lit_385 = YPPlist(1,YPPsym((P)"e")); T54 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YevalSastYLargumentsG)); T53 = YPfab_sig(YPPlist(1,T54),YPfalse,YPint((P)1),VARREF(YevalSastYLargumentsG),Ynil); fun_nul_177 = YPfab_met(FUNCODEREF(fun_nul_177),T53,LITREF(lit_257),LITREF(lit_385),sloc(284),YPfalse); T56 = VARREF_OR(YgooScolsScolYnul,YPfalse); T57 = fun_nul_177; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooScolsScolYnul,T55); lit_386 = YPPsym((P)""); T59 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T58 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_386),T59); VARSET(YevalSastYLlocalsG,T58); lit_387 = YPPsym((P)"locals-bindings"); lit_388 = YPPlist(1,YPPsym((P)"_x")); T60 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_locals_bindings_178 = YPfab_met(FUNCODEREF(fun_locals_bindings_178),T60,LITREF(lit_387),LITREF(lit_388),sloc(287),YPfalse); T62 = VARREF_OR(YevalSastYlocals_bindings,YPfalse); T63 = fun_locals_bindings_178; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSastYlocals_bindings,T61); lit_389 = YPPsym((P)"locals-bindings-setter"); lit_390 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T64 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_locals_bindings_setter_179 = YPfab_met(FUNCODEREF(fun_locals_bindings_setter_179),T64,LITREF(lit_389),LITREF(lit_390),sloc(287),YPfalse); T66 = VARREF_OR(YevalSastYlocals_bindings_setter,YPfalse); T67 = fun_locals_bindings_setter_179; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSastYlocals_bindings_setter,T65); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocalsG),VARREF(YevalSastYlocals_bindings),VARREF(YevalSastYlocals_bindings_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_391 = YPPsym((P)"locals-functions"); lit_392 = YPPlist(1,YPPsym((P)"_x")); T68 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_locals_functions_180 = YPfab_met(FUNCODEREF(fun_locals_functions_180),T68,LITREF(lit_391),LITREF(lit_392),sloc(288),YPfalse); T70 = VARREF_OR(YevalSastYlocals_functions,YPfalse); T71 = fun_locals_functions_180; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YevalSastYlocals_functions,T69); lit_393 = YPPsym((P)"locals-functions-setter"); lit_394 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T72 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_locals_functions_setter_181 = YPfab_met(FUNCODEREF(fun_locals_functions_setter_181),T72,LITREF(lit_393),LITREF(lit_394),sloc(288),YPfalse); T74 = VARREF_OR(YevalSastYlocals_functions_setter,YPfalse); T75 = fun_locals_functions_setter_181; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSastYlocals_functions_setter,T73); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocalsG),VARREF(YevalSastYlocals_functions),VARREF(YevalSastYlocals_functions_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_395 = YPPsym((P)"locals-body"); lit_396 = YPPlist(1,YPPsym((P)"_x")); T76 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_locals_body_182 = YPfab_met(FUNCODEREF(fun_locals_body_182),T76,LITREF(lit_395),LITREF(lit_396),sloc(289),YPfalse); T78 = VARREF_OR(YevalSastYlocals_body,YPfalse); T79 = fun_locals_body_182; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalSastYlocals_body,T77); lit_397 = YPPsym((P)"locals-body-setter"); lit_398 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T80 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLlocalsG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_locals_body_setter_183 = YPfab_met(FUNCODEREF(fun_locals_body_setter_183),T80,LITREF(lit_397),LITREF(lit_398),sloc(289),YPfalse); T82 = VARREF_OR(YevalSastYlocals_body_setter,YPfalse); T83 = fun_locals_body_setter_183; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalSastYlocals_body_setter,T81); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLlocalsG),VARREF(YevalSastYlocals_body),VARREF(YevalSastYlocals_body_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_399 = YPPsym((P)""); T86 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramsG),Ynil); T85 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T86); T84 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_399),T85); VARSET(YevalSastYLinline_refsG,T84); T87 = XCALL1(1,VARREF(Ynew),VARREF(YevalSastYLinline_refsG)); VARSET(YevalSastYDinline_refs_nul,T87); lit_400 = YPPsym((P)"inline-refs"); lit_401 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T88 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYinline_refs = YPfab_met(FUNCODEREF(YevalSastYinline_refs),T88,LITREF(lit_400),LITREF(lit_401),sloc(291),YPfalse); T89 = YevalSastYinline_refs; VARSET(YevalSastYinline_refs,T89); lit_402 = YPPlist(1,YPPsym((P)"e")); T91 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YevalSastYLinline_refsG)); T90 = YPfab_sig(YPPlist(1,T91),YPfalse,YPint((P)1),VARREF(YevalSastYLinline_refsG),Ynil); fun_nul_185 = YPfab_met(FUNCODEREF(fun_nul_185),T90,LITREF(lit_257),LITREF(lit_402),sloc(291),YPfalse); T93 = VARREF_OR(YgooScolsScolYnul,YPfalse); T94 = fun_nul_185; T92 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T93,T94); VARSET(YgooScolsScolYnul,T92); lit_403 = YPPsym((P)""); T96 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T95 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_403),T96); VARSET(YevalSastYLc_inlineG,T95); lit_404 = YPPsym((P)"c-inline-refs"); lit_405 = YPPlist(1,YPPsym((P)"_x")); T97 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLc_inlineG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_c_inline_refs_186 = YPfab_met(FUNCODEREF(fun_c_inline_refs_186),T97,LITREF(lit_404),LITREF(lit_405),sloc(294),YPfalse); T99 = VARREF_OR(YevalSastYc_inline_refs,YPfalse); T100 = fun_c_inline_refs_186; T98 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T99,T100); VARSET(YevalSastYc_inline_refs,T98); lit_406 = YPPsym((P)"c-inline-refs-setter"); lit_407 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T101 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLinline_refsG),VARREF(YevalSastYLc_inlineG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_c_inline_refs_setter_187 = YPfab_met(FUNCODEREF(fun_c_inline_refs_setter_187),T101,LITREF(lit_406),LITREF(lit_407),sloc(294),YPfalse); T103 = VARREF_OR(YevalSastYc_inline_refs_setter,YPfalse); T104 = fun_c_inline_refs_setter_187; T102 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T103,T104); VARSET(YevalSastYc_inline_refs_setter,T102); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLc_inlineG),VARREF(YevalSastYc_inline_refs),VARREF(YevalSastYc_inline_refs_setter),VARREF(YevalSastYLinline_refsG),VARREF(YPprop_unbound_error)); lit_408 = YPPsym((P)"c-inline-strs"); lit_409 = YPPlist(1,YPPsym((P)"_x")); T105 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLc_inlineG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_c_inline_strs_188 = YPfab_met(FUNCODEREF(fun_c_inline_strs_188),T105,LITREF(lit_408),LITREF(lit_409),sloc(295),YPfalse); T107 = VARREF_OR(YevalSastYc_inline_strs,YPfalse); T108 = fun_c_inline_strs_188; T106 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T107,T108); VARSET(YevalSastYc_inline_strs,T106); lit_410 = YPPsym((P)"c-inline-strs-setter"); lit_411 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T109 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YevalSastYLc_inlineG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_c_inline_strs_setter_189 = YPfab_met(FUNCODEREF(fun_c_inline_strs_setter_189),T109,LITREF(lit_410),LITREF(lit_411),sloc(295),YPfalse); T111 = VARREF_OR(YevalSastYc_inline_strs_setter,YPfalse); T112 = fun_c_inline_strs_setter_189; T110 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T111,T112); VARSET(YevalSastYc_inline_strs_setter,T110); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLc_inlineG),VARREF(YevalSastYc_inline_strs),VARREF(YevalSastYc_inline_strs_setter),VARREF(YLlstG),VARREF(YPprop_unbound_error)); lit_412 = YPPsym((P)"c-inline-expr?"); lit_413 = YPPlist(1,YPPsym((P)"_x")); T113 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLc_inlineG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_c_inline_exprQ_190 = YPfab_met(FUNCODEREF(fun_c_inline_exprQ_190),T113,LITREF(lit_412),LITREF(lit_413),sloc(296),YPfalse); T115 = VARREF_OR(YevalSastYc_inline_exprQ,YPfalse); T116 = fun_c_inline_exprQ_190; T114 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T115,T116); VARSET(YevalSastYc_inline_exprQ,T114); lit_414 = YPPsym((P)"c-inline-expr?-setter"); lit_415 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T117 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YevalSastYLc_inlineG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_c_inline_exprQ_setter_191 = YPfab_met(FUNCODEREF(fun_c_inline_exprQ_setter_191),T117,LITREF(lit_414),LITREF(lit_415),sloc(296),YPfalse); T119 = VARREF_OR(YevalSastYc_inline_exprQ_setter,YPfalse); T120 = fun_c_inline_exprQ_setter_191; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSastYc_inline_exprQ_setter,T118); lit_416 = YPPlist(1,YPPsym((P)"_x")); T121 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_192 = YPfab_met(FUNCODEREF(fun_192),T121,YPfalse,LITREF(lit_416),sloc(296),YPfalse); T122 = fun_192; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLc_inlineG),VARREF(YevalSastYc_inline_exprQ),VARREF(YevalSastYc_inline_exprQ_setter),VARREF(YLlogG),T122); lit_417 = YPPsym((P)""); T124 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T123 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_417),T124); VARSET(YevalSastYLbind_exitG,T123); lit_418 = YPPsym((P)"bind-exit-main-fun"); lit_419 = YPPlist(1,YPPsym((P)"_x")); T125 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLbind_exitG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bind_exit_main_fun_193 = YPfab_met(FUNCODEREF(fun_bind_exit_main_fun_193),T125,LITREF(lit_418),LITREF(lit_419),sloc(299),YPfalse); T127 = VARREF_OR(YevalSastYbind_exit_main_fun,YPfalse); T128 = fun_bind_exit_main_fun_193; T126 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T127,T128); VARSET(YevalSastYbind_exit_main_fun,T126); lit_420 = YPPsym((P)"bind-exit-main-fun-setter"); lit_421 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T129 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLbind_exitG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_bind_exit_main_fun_setter_194 = YPfab_met(FUNCODEREF(fun_bind_exit_main_fun_setter_194),T129,LITREF(lit_420),LITREF(lit_421),sloc(299),YPfalse); T131 = VARREF_OR(YevalSastYbind_exit_main_fun_setter,YPfalse); T132 = fun_bind_exit_main_fun_setter_194; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalSastYbind_exit_main_fun_setter,T130); T134 = XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLbind_exitG),VARREF(YevalSastYbind_exit_main_fun),VARREF(YevalSastYbind_exit_main_fun_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); T133 = T134; return T133; } P YevalSastY___main_6___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165; DEFCREGS(); lit_422 = YPPsym((P)"bind-exit-light?"); lit_423 = YPPlist(1,YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLbind_exitG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bind_exit_lightQ_195 = YPfab_met(FUNCODEREF(fun_bind_exit_lightQ_195),T0,LITREF(lit_422),LITREF(lit_423),sloc(300),YPfalse); T2 = VARREF_OR(YevalSastYbind_exit_lightQ,YPfalse); T3 = fun_bind_exit_lightQ_195; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSastYbind_exit_lightQ,T1); lit_424 = YPPsym((P)"bind-exit-light?-setter"); lit_425 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YevalSastYLbind_exitG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_bind_exit_lightQ_setter_196 = YPfab_met(FUNCODEREF(fun_bind_exit_lightQ_setter_196),T4,LITREF(lit_424),LITREF(lit_425),sloc(300),YPfalse); T6 = VARREF_OR(YevalSastYbind_exit_lightQ_setter,YPfalse); T7 = fun_bind_exit_lightQ_setter_196; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSastYbind_exit_lightQ_setter,T5); lit_426 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_197 = YPfab_met(FUNCODEREF(fun_197),T8,YPfalse,LITREF(lit_426),sloc(300),YPfalse); T9 = fun_197; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLbind_exitG),VARREF(YevalSastYbind_exit_lightQ),VARREF(YevalSastYbind_exit_lightQ_setter),VARREF(YLlogG),T9); lit_427 = YPPsym((P)""); T11 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T10 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_427),T11); VARSET(YevalSastYLunwind_protectG,T10); lit_428 = YPPsym((P)"unwind-protect-protected-thunk"); lit_429 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLunwind_protectG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_unwind_protect_protected_thunk_198 = YPfab_met(FUNCODEREF(fun_unwind_protect_protected_thunk_198),T12,LITREF(lit_428),LITREF(lit_429),sloc(303),YPfalse); T14 = VARREF_OR(YevalSastYunwind_protect_protected_thunk,YPfalse); T15 = fun_unwind_protect_protected_thunk_198; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSastYunwind_protect_protected_thunk,T13); lit_430 = YPPsym((P)"unwind-protect-protected-thunk-setter"); lit_431 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLunwind_protectG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_unwind_protect_protected_thunk_setter_199 = YPfab_met(FUNCODEREF(fun_unwind_protect_protected_thunk_setter_199),T16,LITREF(lit_430),LITREF(lit_431),sloc(303),YPfalse); T18 = VARREF_OR(YevalSastYunwind_protect_protected_thunk_setter,YPfalse); T19 = fun_unwind_protect_protected_thunk_setter_199; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSastYunwind_protect_protected_thunk_setter,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLunwind_protectG),VARREF(YevalSastYunwind_protect_protected_thunk),VARREF(YevalSastYunwind_protect_protected_thunk_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_432 = YPPsym((P)"unwind-protect-cleanup-thunk"); lit_433 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLunwind_protectG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_unwind_protect_cleanup_thunk_200 = YPfab_met(FUNCODEREF(fun_unwind_protect_cleanup_thunk_200),T20,LITREF(lit_432),LITREF(lit_433),sloc(304),YPfalse); T22 = VARREF_OR(YevalSastYunwind_protect_cleanup_thunk,YPfalse); T23 = fun_unwind_protect_cleanup_thunk_200; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSastYunwind_protect_cleanup_thunk,T21); lit_434 = YPPsym((P)"unwind-protect-cleanup-thunk-setter"); lit_435 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLunwind_protectG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_unwind_protect_cleanup_thunk_setter_201 = YPfab_met(FUNCODEREF(fun_unwind_protect_cleanup_thunk_setter_201),T24,LITREF(lit_434),LITREF(lit_435),sloc(304),YPfalse); T26 = VARREF_OR(YevalSastYunwind_protect_cleanup_thunk_setter,YPfalse); T27 = fun_unwind_protect_cleanup_thunk_setter_201; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSastYunwind_protect_cleanup_thunk_setter,T25); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLunwind_protectG),VARREF(YevalSastYunwind_protect_cleanup_thunk),VARREF(YevalSastYunwind_protect_cleanup_thunk_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_436 = YPPsym((P)""); T29 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLcomputed_programG),Ynil); T28 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_436),T29); VARSET(YevalSastYLmonitorG,T28); lit_437 = YPPsym((P)"monitor-type"); lit_438 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_monitor_type_202 = YPfab_met(FUNCODEREF(fun_monitor_type_202),T30,LITREF(lit_437),LITREF(lit_438),sloc(307),YPfalse); T32 = VARREF_OR(YevalSastYmonitor_type,YPfalse); T33 = fun_monitor_type_202; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSastYmonitor_type,T31); lit_439 = YPPsym((P)"monitor-type-setter"); lit_440 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_monitor_type_setter_203 = YPfab_met(FUNCODEREF(fun_monitor_type_setter_203),T34,LITREF(lit_439),LITREF(lit_440),sloc(307),YPfalse); T36 = VARREF_OR(YevalSastYmonitor_type_setter,YPfalse); T37 = fun_monitor_type_setter_203; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSastYmonitor_type_setter,T35); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLmonitorG),VARREF(YevalSastYmonitor_type),VARREF(YevalSastYmonitor_type_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_441 = YPPsym((P)"monitor-info"); lit_442 = YPPlist(1,YPPsym((P)"_x")); T38 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_monitor_info_204 = YPfab_met(FUNCODEREF(fun_monitor_info_204),T38,LITREF(lit_441),LITREF(lit_442),sloc(308),YPfalse); T40 = VARREF_OR(YevalSastYmonitor_info,YPfalse); T41 = fun_monitor_info_204; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YevalSastYmonitor_info,T39); lit_443 = YPPsym((P)"monitor-info-setter"); lit_444 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T42 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_monitor_info_setter_205 = YPfab_met(FUNCODEREF(fun_monitor_info_setter_205),T42,LITREF(lit_443),LITREF(lit_444),sloc(308),YPfalse); T44 = VARREF_OR(YevalSastYmonitor_info_setter,YPfalse); T45 = fun_monitor_info_setter_205; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YevalSastYmonitor_info_setter,T43); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLmonitorG),VARREF(YevalSastYmonitor_info),VARREF(YevalSastYmonitor_info_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_445 = YPPsym((P)"monitor-test"); lit_446 = YPPlist(1,YPPsym((P)"_x")); T46 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_monitor_test_206 = YPfab_met(FUNCODEREF(fun_monitor_test_206),T46,LITREF(lit_445),LITREF(lit_446),sloc(309),YPfalse); T48 = VARREF_OR(YevalSastYmonitor_test,YPfalse); T49 = fun_monitor_test_206; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YevalSastYmonitor_test,T47); lit_447 = YPPsym((P)"monitor-test-setter"); lit_448 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T50 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_monitor_test_setter_207 = YPfab_met(FUNCODEREF(fun_monitor_test_setter_207),T50,LITREF(lit_447),LITREF(lit_448),sloc(309),YPfalse); T52 = VARREF_OR(YevalSastYmonitor_test_setter,YPfalse); T53 = fun_monitor_test_setter_207; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YevalSastYmonitor_test_setter,T51); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLmonitorG),VARREF(YevalSastYmonitor_test),VARREF(YevalSastYmonitor_test_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_449 = YPPsym((P)"monitor-handler"); lit_450 = YPPlist(1,YPPsym((P)"_x")); T54 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_monitor_handler_208 = YPfab_met(FUNCODEREF(fun_monitor_handler_208),T54,LITREF(lit_449),LITREF(lit_450),sloc(310),YPfalse); T56 = VARREF_OR(YevalSastYmonitor_handler,YPfalse); T57 = fun_monitor_handler_208; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YevalSastYmonitor_handler,T55); lit_451 = YPPsym((P)"monitor-handler-setter"); lit_452 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T58 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_monitor_handler_setter_209 = YPfab_met(FUNCODEREF(fun_monitor_handler_setter_209),T58,LITREF(lit_451),LITREF(lit_452),sloc(310),YPfalse); T60 = VARREF_OR(YevalSastYmonitor_handler_setter,YPfalse); T61 = fun_monitor_handler_setter_209; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YevalSastYmonitor_handler_setter,T59); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLmonitorG),VARREF(YevalSastYmonitor_handler),VARREF(YevalSastYmonitor_handler_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_453 = YPPsym((P)"monitor-main-thunk"); lit_454 = YPPlist(1,YPPsym((P)"_x")); T62 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_monitor_main_thunk_210 = YPfab_met(FUNCODEREF(fun_monitor_main_thunk_210),T62,LITREF(lit_453),LITREF(lit_454),sloc(311),YPfalse); T64 = VARREF_OR(YevalSastYmonitor_main_thunk,YPfalse); T65 = fun_monitor_main_thunk_210; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YevalSastYmonitor_main_thunk,T63); lit_455 = YPPsym((P)"monitor-main-thunk-setter"); lit_456 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T66 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLmonitorG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_monitor_main_thunk_setter_211 = YPfab_met(FUNCODEREF(fun_monitor_main_thunk_setter_211),T66,LITREF(lit_455),LITREF(lit_456),sloc(311),YPfalse); T68 = VARREF_OR(YevalSastYmonitor_main_thunk_setter,YPfalse); T69 = fun_monitor_main_thunk_setter_211; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalSastYmonitor_main_thunk_setter,T67); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSastYLmonitorG),VARREF(YevalSastYmonitor_main_thunk),VARREF(YevalSastYmonitor_main_thunk_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_457 = YPPsym((P)"ast-walk!"); lit_458 = YPPlist(3,YPPsym((P)"g"),YPPsym((P)"o"),YPPsym((P)"args")); T70 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_walkX_212 = YPfab_met(FUNCODEREF(fun_ast_walkX_212),T70,LITREF(lit_457),LITREF(lit_458),sloc(315),YPfalse); T72 = VARREF_OR(YevalSastYast_walkX,YPfalse); T73 = fun_ast_walkX_212; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSastYast_walkX,T71); lit_459 = YPPsym((P)"ast-walk"); lit_460 = YPPlist(3,YPPsym((P)"g"),YPPsym((P)"o"),YPPsym((P)"args")); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_walk_213 = YPfab_met(FUNCODEREF(fun_ast_walk_213),T74,LITREF(lit_459),LITREF(lit_460),sloc(330),YPfalse); T76 = VARREF_OR(YevalSastYast_walk,YPfalse); T77 = fun_ast_walk_213; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YevalSastYast_walk,T75); lit_461 = YPPlist(3,YPPsym((P)"g"),YPPsym((P)"o"),YPPsym((P)"args")); T78 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLprogramsG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); fun_ast_walk_214 = YPfab_met(FUNCODEREF(fun_ast_walk_214),T78,LITREF(lit_459),LITREF(lit_461),sloc(341),YPfalse); T80 = VARREF_OR(YevalSastYast_walk,YPfalse); T81 = fun_ast_walk_214; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSastYast_walk,T79); lit_462 = YPPsym((P)"ast-copy"); lit_463 = YPPlist(1,YPPsym((P)"x")); T82 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ast_copy_215 = YPfab_met(FUNCODEREF(fun_ast_copy_215),T82,LITREF(lit_462),LITREF(lit_463),sloc(360),YPfalse); T84 = VARREF_OR(YevalSastYast_copy,YPfalse); T85 = fun_ast_copy_215; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YevalSastYast_copy,T83); lit_464 = YPPlist(1,YPPsym((P)"x")); T86 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramsG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ast_copy_216 = YPfab_met(FUNCODEREF(fun_ast_copy_216),T86,LITREF(lit_462),LITREF(lit_464),sloc(365),YPfalse); T88 = VARREF_OR(YevalSastYast_copy,YPfalse); T89 = fun_ast_copy_216; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YevalSastYast_copy,T87); lit_465 = YPPsym((P)"objectify"); lit_466 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T90 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_217 = YPfab_met(FUNCODEREF(fun_objectify_217),T90,LITREF(lit_465),LITREF(lit_466),sloc(372),YPfalse); T92 = VARREF_OR(YevalSastYobjectify,YPfalse); T93 = fun_objectify_217; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSastYobjectify,T91); lit_467 = YPPsym((P)"objectify-list"); lit_468 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T94 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLprogramG),VARREF(YLlstG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_objectify_list_218 = YPfab_met(FUNCODEREF(fun_objectify_list_218),T94,LITREF(lit_467),LITREF(lit_468),sloc(377),YPfalse); T96 = VARREF_OR(YevalSastYobjectify_list,YPfalse); T97 = fun_objectify_list_218; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YevalSastYobjectify_list,T95); lit_469 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T98 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLmagic_referenceG),VARREF(YLlstG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_objectify_list_219 = YPfab_met(FUNCODEREF(fun_objectify_list_219),T98,LITREF(lit_467),LITREF(lit_469),sloc(381),YPfalse); T100 = VARREF_OR(YevalSastYobjectify_list,YPfalse); T101 = fun_objectify_list_219; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YevalSastYobjectify_list,T99); lit_470 = YPPsym((P)"maybe-log-dependency"); lit_471 = YPPlist(2,YPPsym((P)"dependable"),YPPsym((P)"dtype")); T102 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYmaybe_log_dependency = YPfab_met(FUNCODEREF(YevalSastYmaybe_log_dependency),T102,LITREF(lit_470),LITREF(lit_471),sloc(385),YPfalse); T103 = YevalSastYmaybe_log_dependency; VARSET(YevalSastYmaybe_log_dependency,T103); lit_472 = YPPsym((P)"macro-expander"); lit_473 = YPPlist(1,YPPsym((P)"macro-binding")); T104 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); YevalSastYmacro_expander = YPfab_met(FUNCODEREF(YevalSastYmacro_expander),T104,LITREF(lit_472),LITREF(lit_473),sloc(390),YPfalse); T105 = YevalSastYmacro_expander; VARSET(YevalSastYmacro_expander,T105); lit_474 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T106 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLmacro_referenceG),VARREF(YLlstG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_objectify_list_222 = YPfab_met(FUNCODEREF(fun_objectify_list_222),T106,LITREF(lit_467),LITREF(lit_474),sloc(394),YPfalse); T108 = VARREF_OR(YevalSastYobjectify_list,YPfalse); T109 = fun_objectify_list_222; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YevalSastYobjectify_list,T107); lit_475 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T110 = YPfab_sig(YPPlist(3,VARREF(YLsymG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_223 = YPfab_met(FUNCODEREF(fun_objectify_223),T110,LITREF(lit_465),LITREF(lit_475),sloc(398),YPfalse); T112 = VARREF_OR(YevalSastYobjectify,YPfalse); T113 = fun_objectify_223; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YevalSastYobjectify,T111); lit_476 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T114 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_224 = YPfab_met(FUNCODEREF(fun_objectify_224),T114,LITREF(lit_465),LITREF(lit_476),sloc(401),YPfalse); T116 = VARREF_OR(YevalSastYobjectify,YPfalse); T117 = fun_objectify_224; T115 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T116,T117); VARSET(YevalSastYobjectify,T115); lit_477 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T118 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_225 = YPfab_met(FUNCODEREF(fun_objectify_225),T118,LITREF(lit_465),LITREF(lit_477),sloc(404),YPfalse); T120 = VARREF_OR(YevalSastYobjectify,YPfalse); T121 = fun_objectify_225; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YevalSastYobjectify,T119); lit_478 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T123 = XCALL1(1,VARREF(YgooStypesYtE),Ynil); T122 = YPfab_sig(YPPlist(3,T123,VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_226 = YPfab_met(FUNCODEREF(fun_objectify_226),T122,LITREF(lit_465),LITREF(lit_478),sloc(407),YPfalse); T125 = VARREF_OR(YevalSastYobjectify,YPfalse); T126 = fun_objectify_226; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSastYobjectify,T124); lit_479 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T127 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_227 = YPfab_met(FUNCODEREF(fun_objectify_227),T127,LITREF(lit_465),LITREF(lit_479),sloc(410),YPfalse); T129 = VARREF_OR(YevalSastYobjectify,YPfalse); T130 = fun_objectify_227; T128 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T129,T130); VARSET(YevalSastYobjectify,T128); lit_480 = YPPsym((P)"objectify-quotation"); lit_481 = YPPlist(2,YPPsym((P)"value"),YPPsym((P)"r")); T131 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLconstantG),Ynil); fun_objectify_quotation_228 = YPfab_met(FUNCODEREF(fun_objectify_quotation_228),T131,LITREF(lit_480),LITREF(lit_481),sloc(413),YPfalse); T133 = VARREF_OR(YevalSastYobjectify_quotation,YPfalse); T134 = fun_objectify_quotation_228; T132 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T133,T134); VARSET(YevalSastYobjectify_quotation,T132); lit_482 = YPPlist(2,YPPsym((P)"value"),YPPsym((P)"r")); T135 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLimmediate_constantG),Ynil); fun_objectify_quotation_229 = YPfab_met(FUNCODEREF(fun_objectify_quotation_229),T135,LITREF(lit_480),LITREF(lit_482),sloc(416),YPfalse); T137 = VARREF_OR(YevalSastYobjectify_quotation,YPfalse); T138 = fun_objectify_quotation_229; T136 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T137,T138); VARSET(YevalSastYobjectify_quotation,T136); lit_483 = YPPlist(2,YPPsym((P)"value"),YPPsym((P)"r")); T139 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLimmediate_constantG),Ynil); fun_objectify_quotation_230 = YPfab_met(FUNCODEREF(fun_objectify_quotation_230),T139,LITREF(lit_480),LITREF(lit_483),sloc(419),YPfalse); T141 = VARREF_OR(YevalSastYobjectify_quotation,YPfalse); T142 = fun_objectify_quotation_230; T140 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T141,T142); VARSET(YevalSastYobjectify_quotation,T140); lit_484 = YPPsym((P)"objectify-raw"); lit_485 = YPPlist(2,YPPsym((P)"value"),YPPsym((P)"r")); T143 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLraw_constantG),Ynil); fun_objectify_raw_231 = YPfab_met(FUNCODEREF(fun_objectify_raw_231),T143,LITREF(lit_484),LITREF(lit_485),sloc(422),YPfalse); T145 = VARREF_OR(YevalSastYobjectify_raw,YPfalse); T146 = fun_objectify_raw_231; T144 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T145,T146); VARSET(YevalSastYobjectify_raw,T144); lit_486 = YPPsym((P)"objectify-bound?"); lit_487 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"default"),YPPsym((P)"r"),YPPsym((P)"tail?")); T147 = YPfab_sig(YPPlist(4,VARREF(YLsymG),VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_objectify_boundQ_232 = YPfab_met(FUNCODEREF(fun_objectify_boundQ_232),T147,LITREF(lit_486),LITREF(lit_487),sloc(425),YPfalse); T149 = VARREF_OR(YevalSastYobjectify_boundQ,YPfalse); T150 = fun_objectify_boundQ_232; T148 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T149,T150); VARSET(YevalSastYobjectify_boundQ,T148); lit_488 = YPPsym((P)"objectify-compile-time"); lit_489 = YPPlist(4,YPPsym((P)"program"),YPPsym((P)"r"),YPPsym((P)"tail?"),YPPsym((P)"rt?")); T151 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_compile_time_233 = YPfab_met(FUNCODEREF(fun_objectify_compile_time_233),T151,LITREF(lit_488),LITREF(lit_489),sloc(433),YPfalse); T153 = VARREF_OR(YevalSastYobjectify_compile_time,YPfalse); T154 = fun_objectify_compile_time_233; T152 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T153,T154); VARSET(YevalSastYobjectify_compile_time,T152); lit_490 = YPPsym((P)"objectify-alternative"); lit_491 = YPPlist(5,YPPsym((P)"t"),YPPsym((P)"c"),YPPsym((P)"a"),YPPsym((P)"r"),YPPsym((P)"tail?")); T155 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YevalSastYLalternativeG),Ynil); fun_objectify_alternative_234 = YPfab_met(FUNCODEREF(fun_objectify_alternative_234),T155,LITREF(lit_490),LITREF(lit_491),sloc(449),YPfalse); T157 = VARREF_OR(YevalSastYobjectify_alternative,YPfalse); T158 = fun_objectify_alternative_234; T156 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T157,T158); VARSET(YevalSastYobjectify_alternative,T156); lit_492 = YPPsym((P)"sequentialize"); lit_493 = YPPlist(1,YPPsym((P)"e*")); T161 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YevalSastYLprogramG),Ynil); T160 = fun_sequentialize_235 = YPfab_met(FUNCODEREF(fun_sequentialize_235),T161,LITREF(lit_492),LITREF(lit_493),sloc(455),YPfalse); T164 = VARREF_OR(YevalSastYsequentialize,YPfalse); T165 = fun_sequentialize_235; T163 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T164,T165); T162 = VARSET(YevalSastYsequentialize,T163); T159 = T162; return T159; } P YevalSastY___main_7___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181,T182,T183; DEFCREGS(); lit_494 = YPPsym((P)"transform-defs"); lit_495 = YPPlist(1,YPPsym((P)"e*")); T0 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_transform_defs_236 = YPfab_met(FUNCODEREF(fun_transform_defs_236),T0,LITREF(lit_494),LITREF(lit_495),sloc(465),YPfalse); T2 = VARREF_OR(YevalSastYtransform_defs,YPfalse); T3 = fun_transform_defs_236; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSastYtransform_defs,T1); lit_496 = YPPsym((P)"objectify-sequential"); lit_497 = YPPlist(3,YPPsym((P)"e*"),YPPsym((P)"r"),YPPsym((P)"tail?")); T4 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_sequential_237 = YPfab_met(FUNCODEREF(fun_objectify_sequential_237),T4,LITREF(lit_496),LITREF(lit_497),sloc(474),YPfalse); T6 = VARREF_OR(YevalSastYobjectify_sequential,YPfalse); T7 = fun_objectify_sequential_237; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSastYobjectify_sequential,T5); lit_498 = YPPsym((P)"objectify-application"); lit_499 = YPPlist(4,YPPsym((P)"ff"),YPPsym((P)"e*"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_500 = YPPlist(1,YPPsym((P)"e")); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_238 = YPfab_met(FUNCODEREF(fun_238),T9,YPfalse,LITREF(lit_500),sloc(485),YPfalse); T8 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLast_methodG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_application_239 = YPfab_met(FUNCODEREF(fun_objectify_application_239),T8,LITREF(lit_498),LITREF(lit_499),sloc(484),YPfalse); T11 = VARREF_OR(YevalSastYobjectify_application,YPfalse); T12 = fun_objectify_application_239; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YevalSastYobjectify_application,T10); lit_501 = YPPlist(4,YPPsym((P)"ff"),YPPsym((P)"e*"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_502 = YPPlist(1,YPPsym((P)"e")); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_240 = YPfab_met(FUNCODEREF(fun_240),T14,YPfalse,LITREF(lit_502),sloc(491),YPfalse); T13 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLpredefined_referenceG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_application_241 = YPfab_met(FUNCODEREF(fun_objectify_application_241),T13,LITREF(lit_498),LITREF(lit_501),sloc(490),YPfalse); T16 = VARREF_OR(YevalSastYobjectify_application,YPfalse); T17 = fun_objectify_application_241; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSastYobjectify_application,T15); lit_503 = YPPlist(4,YPPsym((P)"ff"),YPPsym((P)"e*"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_504 = YPPlist(1,YPPsym((P)"e")); T19 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_242 = YPfab_met(FUNCODEREF(fun_242),T19,YPfalse,LITREF(lit_504),sloc(502),YPfalse); T18 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_application_243 = YPfab_met(FUNCODEREF(fun_objectify_application_243),T18,LITREF(lit_498),LITREF(lit_503),sloc(501),YPfalse); T21 = VARREF_OR(YevalSastYobjectify_application,YPfalse); T22 = fun_objectify_application_243; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YevalSastYobjectify_application,T20); lit_505 = YPPsym((P)"process-closed-application"); lit_506 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"e*"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_507 = YPsb((P)"incorrect regular arity"); T23 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLast_embodied_functionG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLfix_letG),Ynil); fun_process_closed_application_244 = YPfab_met(FUNCODEREF(fun_process_closed_application_244),T23,LITREF(lit_505),LITREF(lit_506),sloc(511),YPfalse); T25 = VARREF_OR(YevalSastYprocess_closed_application,YPfalse); T26 = fun_process_closed_application_244; T24 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T25,T26); VARSET(YevalSastYprocess_closed_application,T24); lit_508 = YPPsym((P)"process-nary-closed-application"); lit_509 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"e*"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_510 = YPPsym((P)"pack-args"); lit_511 = YPPlist(3,YPPsym((P)"e*"),YPPsym((P)"v*"),YPPsym((P)"t*")); lit_512 = YPPsym((P)""); lit_513 = YPPsym((P)"tup"); lit_514 = YPsb((P)"incorrect dotted arity"); T28 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_pack_args_245 = YPfab_met(FUNCODEREF(fun_pack_args_245),T28,LITREF(lit_510),LITREF(lit_511),sloc(526),YPfalse); T27 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLfix_letG),Ynil); fun_process_nary_closed_application_246 = YPfab_met(FUNCODEREF(fun_process_nary_closed_application_246),T27,LITREF(lit_508),LITREF(lit_509),sloc(525),YPfalse); T30 = VARREF_OR(YevalSastYprocess_nary_closed_application,YPfalse); T31 = fun_process_nary_closed_application_246; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalSastYprocess_nary_closed_application,T29); lit_515 = YPPsym((P)"convert2arguments"); lit_516 = YPPlist(1,YPPsym((P)"e*")); T32 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_convert2arguments_247 = YPfab_met(FUNCODEREF(fun_convert2arguments_247),T32,LITREF(lit_515),LITREF(lit_516),sloc(547),YPfalse); T34 = VARREF_OR(YevalSastYconvert2arguments,YPfalse); T35 = fun_convert2arguments_247; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalSastYconvert2arguments,T33); lit_517 = YPPsym((P)"objectify-assignment"); lit_518 = YPPlist(4,YPPsym((P)"binding"),YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_519 = YPsb((P)"Unsupported Set!: %="); T36 = YPfab_sig(YPPlist(4,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_assignment_248 = YPfab_met(FUNCODEREF(fun_objectify_assignment_248),T36,LITREF(lit_517),LITREF(lit_518),sloc(556),YPfalse); T38 = VARREF_OR(YevalSastYobjectify_assignment,YPfalse); T39 = fun_objectify_assignment_248; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSastYobjectify_assignment,T37); lit_520 = YPPlist(4,YPPsym((P)"binding"),YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"tail?")); T40 = YPfab_sig(YPPlist(4,VARREF(YLsymG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLassignmentG),Ynil); fun_objectify_assignment_249 = YPfab_met(FUNCODEREF(fun_objectify_assignment_249),T40,LITREF(lit_517),LITREF(lit_520),sloc(566),YPfalse); T42 = VARREF_OR(YevalSastYobjectify_assignment,YPfalse); T43 = fun_objectify_assignment_249; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSastYobjectify_assignment,T41); lit_521 = YPPsym((P)"objectify-assignment-using"); lit_522 = YPPlist(2,YPPsym((P)"ref"),YPPsym((P)"val")); T44 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocal_referenceG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YevalSastYLlocal_assignmentG),Ynil); fun_objectify_assignment_using_250 = YPfab_met(FUNCODEREF(fun_objectify_assignment_using_250),T44,LITREF(lit_521),LITREF(lit_522),sloc(571),YPfalse); T46 = VARREF_OR(YevalSastYobjectify_assignment_using,YPfalse); T47 = fun_objectify_assignment_using_250; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSastYobjectify_assignment_using,T45); lit_523 = YPPlist(2,YPPsym((P)"ref"),YPPsym((P)"val")); T48 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLglobal_referenceG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YevalSastYLglobal_assignmentG),Ynil); fun_objectify_assignment_using_251 = YPfab_met(FUNCODEREF(fun_objectify_assignment_using_251),T48,LITREF(lit_521),LITREF(lit_523),sloc(578),YPfalse); T50 = VARREF_OR(YevalSastYobjectify_assignment_using,YPfalse); T51 = fun_objectify_assignment_using_251; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSastYobjectify_assignment_using,T49); lit_524 = YPPlist(2,YPPsym((P)"ref"),YPPsym((P)"val")); T52 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLdynamic_referenceG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YevalSastYLglobal_assignmentG),Ynil); fun_objectify_assignment_using_252 = YPfab_met(FUNCODEREF(fun_objectify_assignment_using_252),T52,LITREF(lit_521),LITREF(lit_524),sloc(584),YPfalse); T54 = VARREF_OR(YevalSastYobjectify_assignment_using,YPfalse); T55 = fun_objectify_assignment_using_252; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSastYobjectify_assignment_using,T53); lit_525 = YPPlist(2,YPPsym((P)"ref"),YPPsym((P)"val")); T56 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLruntime_referenceG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YevalSastYLruntime_assignmentG),Ynil); fun_objectify_assignment_using_253 = YPfab_met(FUNCODEREF(fun_objectify_assignment_using_253),T56,LITREF(lit_521),LITREF(lit_525),sloc(590),YPfalse); T58 = VARREF_OR(YevalSastYobjectify_assignment_using,YPfalse); T59 = fun_objectify_assignment_using_253; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalSastYobjectify_assignment_using,T57); lit_526 = YPPlist(2,YPPsym((P)"ref"),YPPsym((P)"val")); lit_527 = YPsb((P)"Unable to assign to static module binding %="); T60 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLstatic_module_binding_referenceG),VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_objectify_assignment_using_254 = YPfab_met(FUNCODEREF(fun_objectify_assignment_using_254),T60,LITREF(lit_521),LITREF(lit_526),sloc(596),YPfalse); T62 = VARREF_OR(YevalSastYobjectify_assignment_using,YPfalse); T63 = fun_objectify_assignment_using_254; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSastYobjectify_assignment_using,T61); lit_528 = YPPsym((P)"update-binding-kind"); lit_529 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"new-kind")); lit_530 = YPPsym((P)"runtime"); lit_531 = YPPsym((P)"magic"); lit_532 = YPPsym((P)"global"); lit_533 = YPsb((P)"Cannot set type of runtime binding %s to %s.\n"); T64 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYupdate_binding_kind = YPfab_met(FUNCODEREF(YevalSastYupdate_binding_kind),T64,LITREF(lit_528),LITREF(lit_529),sloc(609),YPfalse); T65 = YevalSastYupdate_binding_kind; VARSET(YevalSastYupdate_binding_kind,T65); lit_534 = YPPsym((P)"ast-define-binding"); lit_535 = YPPlist(4,YPPsym((P)"r"),YPPsym((P)"name"),YPPsym((P)"defining-method?"),YPPsym((P)"kind")); lit_536 = YPsb((P)"%s: warning: '%s' clobbers binding from %s.\n"); T66 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_ast_define_binding_256 = YPfab_met(FUNCODEREF(fun_ast_define_binding_256),T66,LITREF(lit_534),LITREF(lit_535),sloc(618),YPfalse); T68 = VARREF_OR(YevalSastYast_define_binding,YPfalse); T69 = fun_ast_define_binding_256; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalSastYast_define_binding,T67); VARSET(YevalSastYTmacro_tracingQT,YPfalse); lit_537 = YPPsym((P)"objectify-definition"); lit_538 = YPPlist(5,YPPsym((P)"type"),YPPsym((P)"kind"),YPPsym((P)"var"),YPPsym((P)"e"),YPPsym((P)"r")); T70 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); fun_objectify_definition_257 = YPfab_met(FUNCODEREF(fun_objectify_definition_257),T70,LITREF(lit_537),LITREF(lit_538),sloc(661),YPfalse); T72 = VARREF_OR(YevalSastYobjectify_definition,YPfalse); T73 = fun_objectify_definition_257; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSastYobjectify_definition,T71); lit_539 = YPPsym((P)"objectify-variable-definition"); lit_540 = YPPlist(3,YPPsym((P)"var"),YPPsym((P)"e"),YPPsym((P)"r")); T74 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_variable_definition_258 = YPfab_met(FUNCODEREF(fun_objectify_variable_definition_258),T74,LITREF(lit_539),LITREF(lit_540),sloc(672),YPfalse); T76 = VARREF_OR(YevalSastYobjectify_variable_definition,YPfalse); T77 = fun_objectify_variable_definition_258; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YevalSastYobjectify_variable_definition,T75); lit_541 = YPPsym((P)"objectify-dynamic-definition"); lit_542 = YPPlist(3,YPPsym((P)"var"),YPPsym((P)"e"),YPPsym((P)"r")); lit_543 = YPPsym((P)"dynamic"); T78 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_dynamic_definition_259 = YPfab_met(FUNCODEREF(fun_objectify_dynamic_definition_259),T78,LITREF(lit_541),LITREF(lit_542),sloc(675),YPfalse); T80 = VARREF_OR(YevalSastYobjectify_dynamic_definition,YPfalse); T81 = fun_objectify_dynamic_definition_259; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSastYobjectify_dynamic_definition,T79); lit_544 = YPPsym((P)"%%%macro"); lit_545 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"expander")); lit_546 = YPPsym((P)"expand"); lit_547 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_548 = YPsb((P)"MACRO "); lit_549 = YPsb((P)"\n"); lit_550 = YPsb((P)" => "); lit_551 = YPsb((P)"\n"); T83 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_260 = YPfab_met(FUNCODEREF(fun_expand_260),T83,LITREF(lit_546),LITREF(lit_547),sloc(680),YPfalse); T82 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmodule_bindingG),Ynil); YevalSastYPPPmacro = YPfab_met(FUNCODEREF(YevalSastYPPPmacro),T82,LITREF(lit_544),LITREF(lit_545),sloc(678),YPfalse); T84 = YevalSastYPPPmacro; VARSET(YevalSastYPPPmacro,T84); lit_552 = YPPsym((P)"%%macro"); lit_553 = YPPlist(4,YPPsym((P)"modname"),YPPsym((P)"name"),YPPsym((P)"expander"),YPPsym((P)"env-or-false")); lit_554 = YPPsym((P)"macro"); T85 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); YPPmacro = YPfab_met(FUNCODEREF(YPPmacro),T85,LITREF(lit_552),LITREF(lit_553),sloc(691),YPfalse); T86 = YPPmacro; VARSET(YPPmacro,T86); lit_555 = YPPsym((P)"objectify-syntax-definition"); lit_556 = YPPlist(4,YPPsym((P)"name"),YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"rt?")); T87 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_objectify_syntax_definition_263 = YPfab_met(FUNCODEREF(fun_objectify_syntax_definition_263),T87,LITREF(lit_555),LITREF(lit_556),sloc(705),YPfalse); T89 = VARREF_OR(YevalSastYobjectify_syntax_definition,YPfalse); T90 = fun_objectify_syntax_definition_263; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSastYobjectify_syntax_definition,T88); lit_557 = YPPsym((P)"objectify-function-definition"); lit_558 = YPPlist(4,YPPsym((P)"name"),YPPsym((P)"mods"),YPPsym((P)"e"),YPPsym((P)"r")); T91 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLast_function_definitionG),Ynil); fun_objectify_function_definition_264 = YPfab_met(FUNCODEREF(fun_objectify_function_definition_264),T91,LITREF(lit_557),LITREF(lit_558),sloc(735),YPfalse); T93 = VARREF_OR(YevalSastYobjectify_function_definition,YPfalse); T94 = fun_objectify_function_definition_264; T92 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T93,T94); VARSET(YevalSastYobjectify_function_definition,T92); lit_559 = YPPsym((P)"module-binding"); lit_560 = YPPlist(1,YPPsym((P)"kind")); T95 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YevalSmoduleYLmodule_bindingG),Ynil); YevalSastYmodule_binding = YPfab_met(FUNCODEREF(YevalSastYmodule_binding),T95,LITREF(lit_559),LITREF(lit_560),sloc(745),YPfalse); T96 = YevalSastYmodule_binding; VARSET(YevalSastYmodule_binding,T96); lit_561 = YPPsym((P)"function-inlineable?"); lit_562 = YPPlist(1,YPPsym((P)"e")); lit_563 = YPPsym((P)"inline"); lit_564 = YPPsym((P)"inline-c"); T97 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_function_inlineableQ_266 = YPfab_met(FUNCODEREF(fun_function_inlineableQ_266),T97,LITREF(lit_561),LITREF(lit_562),sloc(748),YPfalse); T99 = VARREF_OR(YevalSastYfunction_inlineableQ,YPfalse); T100 = fun_function_inlineableQ_266; T98 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T99,T100); VARSET(YevalSastYfunction_inlineableQ,T98); lit_565 = YPPsym((P)"objectify-primitive-definition"); lit_566 = YPPlist(5,YPPsym((P)"name"),YPPsym((P)"mods"),YPPsym((P)"sig"),YPPsym((P)"body"),YPPsym((P)"r")); lit_567 = YPPsym((P)"predefined"); T101 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YevalSastYLast_primitive_definitionG),Ynil); fun_objectify_primitive_definition_267 = YPfab_met(FUNCODEREF(fun_objectify_primitive_definition_267),T101,LITREF(lit_565),LITREF(lit_566),sloc(752),YPfalse); T103 = VARREF_OR(YevalSastYobjectify_primitive_definition,YPfalse); T104 = fun_objectify_primitive_definition_267; T102 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T103,T104); VARSET(YevalSastYobjectify_primitive_definition,T102); lit_568 = YPPsym((P)"objectify-generic-definition"); lit_569 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"sig"),YPPsym((P)"r")); T105 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLast_generic_definitionG),Ynil); fun_objectify_generic_definition_268 = YPfab_met(FUNCODEREF(fun_objectify_generic_definition_268),T105,LITREF(lit_568),LITREF(lit_569),sloc(771),YPfalse); T107 = VARREF_OR(YevalSastYobjectify_generic_definition,YPfalse); T108 = fun_objectify_generic_definition_268; T106 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T107,T108); VARSET(YevalSastYobjectify_generic_definition,T106); lit_570 = YPPsym((P)"objectify-method-definition"); lit_571 = YPPlist(4,YPPsym((P)"name"),YPPsym((P)"mods"),YPPsym((P)"e"),YPPsym((P)"r")); lit_572 = YPPsym((P)"bound?"); lit_573 = YPPsym((P)"%define-method"); T109 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLast_method_definitionG),Ynil); fun_objectify_method_definition_269 = YPfab_met(FUNCODEREF(fun_objectify_method_definition_269),T109,LITREF(lit_570),LITREF(lit_571),sloc(783),YPfalse); T111 = VARREF_OR(YevalSastYobjectify_method_definition,YPfalse); T112 = fun_objectify_method_definition_269; T110 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T111,T112); VARSET(YevalSastYobjectify_method_definition,T110); DYNDEFSET(YevalSastYTrecord_sourceQT,YPfalse); lit_574 = YPPsym((P)"objectify-function-source"); lit_575 = YPPlist(3,YPPsym((P)"sig"),YPPsym((P)"body"),YPPsym((P)"r")); lit_576 = Ynil; lit_577 = YPsb((P)"%s"); lit_578 = YPPsym((P)"fun"); T117 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_270 = YPfab_met(FUNCODEREF(fun_270),T117,YPfalse,LITREF(lit_576),sloc(808),YPfalse); T116 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_271 = YPfab_met(FUNCODEREF(fun_271),T116,YPfalse,LITREF(lit_576),sloc(808),YPfalse); T115 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_272 = YPfab_met(FUNCODEREF(fun_272),T115,YPfalse,LITREF(lit_576),sloc(808),YPfalse); T114 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_273 = YPfab_met(FUNCODEREF(fun_273),T114,YPfalse,LITREF(lit_576),sloc(808),YPfalse); T113 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLconstantG),Ynil); fun_objectify_function_source_274 = YPfab_met(FUNCODEREF(fun_objectify_function_source_274),T113,LITREF(lit_574),LITREF(lit_575),sloc(807),YPfalse); T119 = VARREF_OR(YevalSastYobjectify_function_source,YPfalse); T120 = fun_objectify_function_source_274; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSastYobjectify_function_source,T118); lit_579 = YPPsym((P)"objectify-function-using"); lit_580 = YPPlist(5,YPPsym((P)"met"),YPPsym((P)"sig"),YPPsym((P)"body"),YPPsym((P)"r"),YPPsym((P)"tail?")); T123 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_275 = YPfab_met(FUNCODEREF(fun_275),T123,YPfalse,LITREF(lit_576),sloc(815),YPfalse); T122 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_276 = YPfab_met(FUNCODEREF(fun_276),T122,YPfalse,LITREF(lit_576),sloc(815),YPfalse); T121 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YevalSastYLast_methodG),Ynil); fun_objectify_function_using_277 = YPfab_met(FUNCODEREF(fun_objectify_function_using_277),T121,LITREF(lit_579),LITREF(lit_580),sloc(813),YPfalse); T125 = VARREF_OR(YevalSastYobjectify_function_using,YPfalse); T126 = fun_objectify_function_using_277; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSastYobjectify_function_using,T124); lit_581 = YPPsym((P)"objectify-function"); lit_582 = YPPlist(5,YPPsym((P)"sig"),YPPsym((P)"body"),YPPsym((P)"line"),YPPsym((P)"r"),YPPsym((P)"tail?")); T127 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YevalSastYLast_methodG),Ynil); fun_objectify_function_278 = YPfab_met(FUNCODEREF(fun_objectify_function_278),T127,LITREF(lit_581),LITREF(lit_582),sloc(825),YPfalse); T129 = VARREF_OR(YevalSastYobjectify_function,YPfalse); T130 = fun_objectify_function_278; T128 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T129,T130); VARSET(YevalSastYobjectify_function,T128); lit_583 = YPPsym((P)"..."); VARSET(YevalSastYDsexpr_optionals_tag,LITREF(lit_583)); lit_584 = YPPsym((P)""); VARSET(YevalSastYDsexpr_optionals_type_name,LITREF(lit_584)); lit_585 = YPPsym((P)"objectify-signature"); lit_586 = YPPlist(2,YPPsym((P)"sig"),YPPsym((P)"r")); T131 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLast_signatureG),Ynil); fun_objectify_signature_279 = YPfab_met(FUNCODEREF(fun_objectify_signature_279),T131,LITREF(lit_585),LITREF(lit_586),sloc(832),YPfalse); T133 = VARREF_OR(YevalSastYobjectify_signature,YPfalse); T134 = fun_objectify_signature_279; T132 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T133,T134); VARSET(YevalSastYobjectify_signature,T132); lit_587 = YPPsym((P)"compute-local-reference-offsets"); lit_588 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"r")); lit_589 = YPsb((P)"didn't find local binding %= in %="); T136 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLintG)); T135 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocal_bindingG),VARREF(YevalSmoduleYLstatic_local_environmentG)),YPfalse,YPint((P)2),T136,Ynil); fun_compute_local_reference_offsets_280 = YPfab_met(FUNCODEREF(fun_compute_local_reference_offsets_280),T135,LITREF(lit_587),LITREF(lit_588),sloc(863),YPfalse); T138 = VARREF_OR(YevalSastYcompute_local_reference_offsets,YPfalse); T139 = fun_compute_local_reference_offsets_280; T137 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T138,T139); VARSET(YevalSastYcompute_local_reference_offsets,T137); lit_590 = YPPsym((P)"objectify-binding"); lit_591 = YPPlist(3,YPPsym((P)"n"),YPPsym((P)"b"),YPPsym((P)"r")); T140 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YevalSastYLlocal_bindingG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLlocal_referenceG),Ynil); fun_objectify_binding_281 = YPfab_met(FUNCODEREF(fun_objectify_binding_281),T140,LITREF(lit_590),LITREF(lit_591),sloc(877),YPfalse); T142 = VARREF_OR(YevalSastYobjectify_binding,YPfalse); T143 = fun_objectify_binding_281; T141 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T142,T143); VARSET(YevalSastYobjectify_binding,T141); lit_592 = YPPsym((P)"binding-reference-class"); lit_593 = YPPlist(1,YPPsym((P)"b")); lit_594 = YPsb((P)"Unknown binding-kind %="); T144 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_binding_reference_class_282 = YPfab_met(FUNCODEREF(fun_binding_reference_class_282),T144,LITREF(lit_592),LITREF(lit_593),sloc(889),YPfalse); T146 = VARREF_OR(YevalSastYbinding_reference_class,YPfalse); T147 = fun_binding_reference_class_282; T145 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T146,T147); VARSET(YevalSastYbinding_reference_class,T145); lit_595 = YPPlist(3,YPPsym((P)"n"),YPPsym((P)"b"),YPPsym((P)"r")); T148 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_objectify_binding_283 = YPfab_met(FUNCODEREF(fun_objectify_binding_283),T148,LITREF(lit_590),LITREF(lit_595),sloc(900),YPfalse); T150 = VARREF_OR(YevalSastYobjectify_binding,YPfalse); T151 = fun_objectify_binding_283; T149 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T150,T151); VARSET(YevalSastYobjectify_binding,T149); lit_596 = YPPlist(3,YPPsym((P)"n"),YPPsym((P)"b"),YPPsym((P)"r")); T152 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLreferenceG),Ynil); fun_objectify_binding_284 = YPfab_met(FUNCODEREF(fun_objectify_binding_284),T152,LITREF(lit_590),LITREF(lit_596),sloc(910),YPfalse); T154 = VARREF_OR(YevalSastYobjectify_binding,YPfalse); T155 = fun_objectify_binding_284; T153 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T154,T155); VARSET(YevalSastYobjectify_binding,T153); lit_597 = YPPsym((P)"default-type"); lit_598 = YPPlist(1,YPPsym((P)"r")); lit_599 = YPPsym((P)""); T156 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_default_type_285 = YPfab_met(FUNCODEREF(fun_default_type_285),T156,LITREF(lit_597),LITREF(lit_598),sloc(915),YPfalse); T158 = VARREF_OR(YevalSastYdefault_type,YPfalse); T159 = fun_default_type_285; T157 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T158,T159); VARSET(YevalSastYdefault_type,T157); lit_600 = YPPsym((P)"objectify-free-global-reference"); lit_601 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"r")); T160 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLreferenceG),Ynil); fun_objectify_free_global_reference_286 = YPfab_met(FUNCODEREF(fun_objectify_free_global_reference_286),T160,LITREF(lit_600),LITREF(lit_601),sloc(920),YPfalse); T162 = VARREF_OR(YevalSastYobjectify_free_global_reference,YPfalse); T163 = fun_objectify_free_global_reference_286; T161 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T162,T163); VARSET(YevalSastYobjectify_free_global_reference,T161); lit_602 = YPPsym((P)"foreign-name?"); lit_603 = YPPlist(1,YPPsym((P)"name")); T164 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YevalSastYforeign_nameQ = YPfab_met(FUNCODEREF(YevalSastYforeign_nameQ),T164,LITREF(lit_602),LITREF(lit_603),sloc(935),YPfalse); T165 = YevalSastYforeign_nameQ; VARSET(YevalSastYforeign_nameQ,T165); lit_604 = YPPsym((P)"objectify-foreign-reference"); lit_605 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"r")); lit_606 = YPsb((P)"Malformed foreign name %s.\n"); lit_607 = YPsb((P)"No binding %s in %s.\n"); T166 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSastYLreferenceG),Ynil); fun_objectify_foreign_reference_288 = YPfab_met(FUNCODEREF(fun_objectify_foreign_reference_288),T166,LITREF(lit_604),LITREF(lit_605),sloc(939),YPfalse); T168 = VARREF_OR(YevalSastYobjectify_foreign_reference,YPfalse); T169 = fun_objectify_foreign_reference_288; T167 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T168,T169); VARSET(YevalSastYobjectify_foreign_reference,T167); lit_608 = YPPsym((P)"objectify-symbol"); lit_609 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"r")); T170 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_objectify_symbol_289 = YPfab_met(FUNCODEREF(fun_objectify_symbol_289),T170,LITREF(lit_608),LITREF(lit_609),sloc(957),YPfalse); T172 = VARREF_OR(YevalSastYobjectify_symbol,YPfalse); T173 = fun_objectify_symbol_289; T171 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T172,T173); VARSET(YevalSastYobjectify_symbol,T171); lit_610 = YPPsym((P)"ftype"); lit_611 = YPPlist(1,YPPsym((P)"r")); lit_612 = YPPsym((P)""); T174 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ftype_290 = YPfab_met(FUNCODEREF(fun_ftype_290),T174,LITREF(lit_610),LITREF(lit_611),sloc(960),YPfalse); T176 = VARREF_OR(YevalSastYftype,YPfalse); T177 = fun_ftype_290; T175 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T176,T177); VARSET(YevalSastYftype,T175); lit_613 = YPPsym((P)""); T180 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSastYLprogramsG),Ynil); T179 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T180); T178 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_613),T179); VARSET(YevalSastYLfunctionsG,T178); T183 = XCALL1(1,VARREF(Ynew),VARREF(YevalSastYLfunctionsG)); T182 = VARSET(YevalSastYDfunctions_nul,T183); T181 = T182; return T181; } P YevalSastY___main_8___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166; DEFCREGS(); lit_614 = YPPsym((P)"functions"); lit_615 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYfunctions = YPfab_met(FUNCODEREF(YevalSastYfunctions),T0,LITREF(lit_614),LITREF(lit_615),sloc(963),YPfalse); T1 = YevalSastYfunctions; VARSET(YevalSastYfunctions,T1); lit_616 = YPPlist(1,YPPsym((P)"e")); T3 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YevalSastYLfunctionsG)); T2 = YPfab_sig(YPPlist(1,T3),YPfalse,YPint((P)1),VARREF(YevalSastYLfunctionsG),Ynil); fun_nul_292 = YPfab_met(FUNCODEREF(fun_nul_292),T2,LITREF(lit_257),LITREF(lit_616),sloc(963),YPfalse); T5 = VARREF_OR(YgooScolsScolYnul,YPfalse); T6 = fun_nul_292; T4 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T5,T6); VARSET(YgooScolsScolYnul,T4); lit_617 = YPPsym((P)"objectify-locals"); lit_618 = YPPlist(6,YPPsym((P)"names"),YPPsym((P)"sigs"),YPPsym((P)"bodies"),YPPsym((P)"body"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_619 = YPPlist(1,YPPsym((P)"n")); lit_620 = YPPlist(2,YPPsym((P)"sig"),YPPsym((P)"body")); lit_621 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"b")); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_293 = YPfab_met(FUNCODEREF(fun_293),T10,YPfalse,LITREF(lit_619),sloc(966),YPfalse); T9 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_294 = YPfab_met(FUNCODEREF(fun_294),T9,YPfalse,LITREF(lit_620),sloc(970),YPfalse); T8 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_295 = YPfab_met(FUNCODEREF(fun_295),T8,YPfalse,LITREF(lit_621),sloc(978),YPfalse); T7 = YPfab_sig(YPPlist(6,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YevalSastYLlocalsG),Ynil); fun_objectify_locals_296 = YPfab_met(FUNCODEREF(fun_objectify_locals_296),T7,LITREF(lit_617),LITREF(lit_618),sloc(965),YPfalse); T12 = VARREF_OR(YevalSastYobjectify_locals,YPfalse); T13 = fun_objectify_locals_296; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSastYobjectify_locals,T11); lit_622 = YPPsym((P)"objectify-bind-exit"); lit_623 = YPPlist(5,YPPsym((P)"name"),YPPsym((P)"body"),YPPsym((P)"line"),YPPsym((P)"r"),YPPsym((P)"tail?")); T14 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YevalSastYLbind_exitG),Ynil); fun_objectify_bind_exit_297 = YPfab_met(FUNCODEREF(fun_objectify_bind_exit_297),T14,LITREF(lit_622),LITREF(lit_623),sloc(988),YPfalse); T16 = VARREF_OR(YevalSastYobjectify_bind_exit,YPfalse); T17 = fun_objectify_bind_exit_297; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSastYobjectify_bind_exit,T15); lit_624 = YPPsym((P)"objectify-unwind-protect"); lit_625 = YPPlist(5,YPPsym((P)"protected-form"),YPPsym((P)"cleanup-forms"),YPPsym((P)"line"),YPPsym((P)"r"),YPPsym((P)"tail?")); T18 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YevalSastYLunwind_protectG),Ynil); fun_objectify_unwind_protect_298 = YPfab_met(FUNCODEREF(fun_objectify_unwind_protect_298),T18,LITREF(lit_624),LITREF(lit_625),sloc(994),YPfalse); T20 = VARREF_OR(YevalSastYobjectify_unwind_protect,YPfalse); T21 = fun_objectify_unwind_protect_298; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSastYobjectify_unwind_protect,T19); lit_626 = YPPsym((P)"objectify-monitor"); lit_627 = YPPlist(7,YPPsym((P)"type"),YPPsym((P)"info"),YPPsym((P)"test"),YPPsym((P)"handler"),YPPsym((P)"body"),YPPsym((P)"r"),YPPsym((P)"tail?")); T22 = YPfab_sig(YPPlist(7,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)7),VARREF(YevalSastYLmonitorG),Ynil); fun_objectify_monitor_299 = YPfab_met(FUNCODEREF(fun_objectify_monitor_299),T22,LITREF(lit_626),LITREF(lit_627),sloc(1006),YPfalse); T24 = VARREF_OR(YevalSastYobjectify_monitor,YPfalse); T25 = fun_objectify_monitor_299; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSastYobjectify_monitor,T23); lit_628 = YPPsym((P)"objectify-refs"); lit_629 = YPPlist(2,YPPsym((P)"e*"),YPPsym((P)"r")); T26 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_objectify_refs_300 = YPfab_met(FUNCODEREF(fun_objectify_refs_300),T26,LITREF(lit_628),LITREF(lit_629),sloc(1014),YPfalse); T28 = VARREF_OR(YevalSastYobjectify_refs,YPfalse); T29 = fun_objectify_refs_300; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YevalSastYobjectify_refs,T27); lit_630 = YPPsym((P)"split-c-inline-vals"); lit_631 = YPPlist(1,YPPsym((P)"vals")); T30 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_split_c_inline_vals_301 = YPfab_met(FUNCODEREF(fun_split_c_inline_vals_301),T30,LITREF(lit_630),LITREF(lit_631),sloc(1026),YPfalse); T32 = VARREF_OR(YevalSastYsplit_c_inline_vals,YPfalse); T33 = fun_split_c_inline_vals_301; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSastYsplit_c_inline_vals,T31); lit_632 = YPPsym((P)"objectify-c-expr"); lit_633 = YPPlist(4,YPPsym((P)"x"),YPPsym((P)"expr?"),YPPsym((P)"r"),YPPsym((P)"tail?")); T34 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_c_expr_302 = YPfab_met(FUNCODEREF(fun_objectify_c_expr_302),T34,LITREF(lit_632),LITREF(lit_633),sloc(1035),YPfalse); T36 = VARREF_OR(YevalSastYobjectify_c_expr,YPfalse); T37 = fun_objectify_c_expr_302; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSastYobjectify_c_expr,T35); lit_634 = YPPsym((P)"objectify-c-inline"); lit_635 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T38 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_c_inline_303 = YPfab_met(FUNCODEREF(fun_objectify_c_inline_303),T38,LITREF(lit_634),LITREF(lit_635),sloc(1042),YPfalse); T40 = VARREF_OR(YevalSastYobjectify_c_inline,YPfalse); T41 = fun_objectify_c_inline_303; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YevalSastYobjectify_c_inline,T39); lit_636 = YPPsym((P)"objectify-export"); lit_637 = YPPlist(3,YPPsym((P)"names"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_638 = YPsb((P)"Can only export bindings from target environment.\n"); lit_639 = YPPlist(1,YPPsym((P)"name")); lit_640 = YPPlist(1,YPPsym((P)"exit")); lit_641 = YPsb((P)"Continue without exporting %s"); lit_642 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); lit_643 = YPsb((P)"Can't export undefined binding %s.\n"); T47 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_304 = YPfab_met(FUNCODEREF(fun_304),T47,YPfalse,LITREF(lit_576),YPfalse,YPfalse); T46 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_305 = YPfab_met(FUNCODEREF(fun_305),T46,YPfalse,LITREF(lit_642),sloc(1063),YPfalse); T45 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_306 = YPfab_met(FUNCODEREF(fun_306),T45,YPfalse,LITREF(lit_576),sloc(1064),YPfalse); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_307 = YPfab_met(FUNCODEREF(fun_307),T44,YPfalse,LITREF(lit_640),sloc(1060),YPfalse); T43 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_308 = YPfab_met(FUNCODEREF(fun_308),T43,YPfalse,LITREF(lit_639),sloc(1057),YPfalse); T42 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_export_309 = YPfab_met(FUNCODEREF(fun_objectify_export_309),T42,LITREF(lit_636),LITREF(lit_637),sloc(1050),YPfalse); T49 = VARREF_OR(YevalSastYobjectify_export,YPfalse); T50 = fun_objectify_export_309; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YevalSastYobjectify_export,T48); lit_644 = YPPsym((P)"objectify-use/export-module"); lit_645 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_646 = YPPlist(1,YPPsym((P)"b")); T52 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_310 = YPfab_met(FUNCODEREF(fun_310),T52,YPfalse,LITREF(lit_646),sloc(1075),YPfalse); T51 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_useSexport_module_311 = YPfab_met(FUNCODEREF(fun_objectify_useSexport_module_311),T51,LITREF(lit_644),LITREF(lit_645),sloc(1069),YPfalse); T54 = VARREF_OR(YevalSastYobjectify_useSexport_module,YPfalse); T55 = fun_objectify_useSexport_module_311; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSastYobjectify_useSexport_module,T53); lit_647 = YPPsym((P)"objectify-use-include"); lit_648 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_649 = YPPlist(1,YPPsym((P)"x")); T57 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_312 = YPfab_met(FUNCODEREF(fun_312),T57,YPfalse,LITREF(lit_649),sloc(1084),YPfalse); T56 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_use_include_313 = YPfab_met(FUNCODEREF(fun_objectify_use_include_313),T56,LITREF(lit_647),LITREF(lit_648),sloc(1081),YPfalse); T59 = VARREF_OR(YevalSastYobjectify_use_include,YPfalse); T60 = fun_objectify_use_include_313; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSastYobjectify_use_include,T58); lit_650 = YPPsym((P)"objectify-use-library"); lit_651 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_652 = YPPlist(1,YPPsym((P)"x")); T62 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_314 = YPfab_met(FUNCODEREF(fun_314),T62,YPfalse,LITREF(lit_652),sloc(1091),YPfalse); T61 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_use_library_315 = YPfab_met(FUNCODEREF(fun_objectify_use_library_315),T61,LITREF(lit_650),LITREF(lit_651),sloc(1088),YPfalse); T64 = VARREF_OR(YevalSastYobjectify_use_library,YPfalse); T65 = fun_objectify_use_library_315; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YevalSastYobjectify_use_library,T63); lit_653 = YPPsym((P)"objectify-use-module"); lit_654 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_655 = YPPsym((P)"use-mod"); lit_656 = YPPlist(1,YPPsym((P)"name")); lit_657 = YPPlist(1,YPPsym((P)"b")); lit_658 = YPPsym((P)"use-c-mod"); lit_659 = YPPlist(2,YPPsym((P)"mod"),YPPsym((P)"name")); lit_660 = YPsb((P)".c"); lit_661 = YPsb((P)".h"); lit_662 = YPsb((P)".swig"); lit_663 = YPsb((P)".c"); T69 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_316 = YPfab_met(FUNCODEREF(fun_316),T69,YPfalse,LITREF(lit_657),sloc(1102),YPfalse); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_use_mod_317 = YPfab_met(FUNCODEREF(fun_use_mod_317),T68,LITREF(lit_655),LITREF(lit_656),sloc(1098),YPfalse); T67 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_use_c_mod_318 = YPfab_met(FUNCODEREF(fun_use_c_mod_318),T67,LITREF(lit_658),LITREF(lit_659),sloc(1105),YPfalse); T66 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_use_module_319 = YPfab_met(FUNCODEREF(fun_objectify_use_module_319),T66,LITREF(lit_653),LITREF(lit_654),sloc(1095),YPfalse); T71 = VARREF_OR(YevalSastYobjectify_use_module,YPfalse); T72 = fun_objectify_use_module_319; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YevalSastYobjectify_use_module,T70); lit_664 = YPPsym((P)"objectify-use-mangle-module"); lit_665 = YPPlist(4,YPPsym((P)"name"),YPPsym((P)"mangler"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_666 = YPPlist(1,YPPsym((P)"b")); T74 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_320 = YPfab_met(FUNCODEREF(fun_320),T74,YPfalse,LITREF(lit_666),sloc(1127),YPfalse); T73 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YevalSastYLprogramG),Ynil); fun_objectify_use_mangle_module_321 = YPfab_met(FUNCODEREF(fun_objectify_use_mangle_module_321),T73,LITREF(lit_664),LITREF(lit_665),sloc(1119),YPfalse); T76 = VARREF_OR(YevalSastYobjectify_use_mangle_module,YPfalse); T77 = fun_objectify_use_mangle_module_321; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YevalSastYobjectify_use_mangle_module,T75); lit_667 = YPPsym((P)"expand-bind-list"); lit_668 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); lit_669 = YPsb((P)"Expected Pattern List %=\n"); T78 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_bind_list_322 = YPfab_met(FUNCODEREF(fun_expand_bind_list_322),T78,LITREF(lit_667),LITREF(lit_668),sloc(1133),YPfalse); T80 = VARREF_OR(YevalSastYexpand_bind_list,YPfalse); T81 = fun_expand_bind_list_322; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSastYexpand_bind_list,T79); lit_670 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); lit_671 = YPPsym((P)"match-nul-list"); T83 = XCALL1(1,VARREF(YgooStypesYtE),Ynil); T82 = YPfab_sig(YPPlist(3,T83,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLlstG),Ynil); fun_expand_bind_list_323 = YPfab_met(FUNCODEREF(fun_expand_bind_list_323),T82,LITREF(lit_667),LITREF(lit_670),sloc(1136),YPfalse); T85 = VARREF_OR(YevalSastYexpand_bind_list,YPfalse); T86 = fun_expand_bind_list_323; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YevalSastYexpand_bind_list,T84); lit_672 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); lit_673 = YPsb((P)"Unquote Unexpected Here %=\n"); lit_674 = YPsb((P)"Unquote Splicing Unexpected Here %=\n"); T87 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLlstG),Ynil); fun_expand_bind_list_324 = YPfab_met(FUNCODEREF(fun_expand_bind_list_324),T87,LITREF(lit_667),LITREF(lit_672),sloc(1139),YPfalse); T89 = VARREF_OR(YevalSastYexpand_bind_list,YPfalse); T90 = fun_expand_bind_list_324; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSastYexpand_bind_list,T88); lit_675 = YPPsym((P)"expand-bind-list*"); lit_676 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); T92 = XCALL1(1,VARREF(YgooStypesYtE),Ynil); T91 = YPfab_sig(YPPlist(3,T92,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_bind_listT_325 = YPfab_met(FUNCODEREF(fun_expand_bind_listT_325),T91,LITREF(lit_675),LITREF(lit_676),sloc(1148),YPfalse); T94 = VARREF_OR(YevalSastYexpand_bind_listT,YPfalse); T95 = fun_expand_bind_listT_325; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalSastYexpand_bind_listT,T93); lit_677 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); T96 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_bind_listT_326 = YPfab_met(FUNCODEREF(fun_expand_bind_listT_326),T96,LITREF(lit_675),LITREF(lit_677),sloc(1151),YPfalse); T98 = VARREF_OR(YevalSastYexpand_bind_listT,YPfalse); T99 = fun_expand_bind_listT_326; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YevalSastYexpand_bind_listT,T97); lit_678 = YPPsym((P)"expand-bind-element"); lit_679 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); lit_680 = YPPsym((P)"match-atom"); lit_681 = YPPsym((P)"quote"); T100 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_bind_element_327 = YPfab_met(FUNCODEREF(fun_expand_bind_element_327),T100,LITREF(lit_678),LITREF(lit_679),sloc(1155),YPfalse); T102 = VARREF_OR(YevalSastYexpand_bind_element,YPfalse); T103 = fun_expand_bind_element_327; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSastYexpand_bind_element,T101); lit_682 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); lit_683 = YPPsym((P)"match-unquote"); lit_684 = YPPsym((P)"tail"); lit_685 = YPPsym((P)"match-sublist"); T104 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_bind_element_328 = YPfab_met(FUNCODEREF(fun_expand_bind_element_328),T104,LITREF(lit_678),LITREF(lit_682),sloc(1158),YPfalse); T106 = VARREF_OR(YevalSastYexpand_bind_element,YPfalse); T107 = fun_expand_bind_element_328; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalSastYexpand_bind_element,T105); lit_686 = YPPsym((P)"expand-pattern"); lit_687 = YPPlist(3,YPPsym((P)"pat"),YPPsym((P)"var"),YPPsym((P)"fail")); lit_688 = YPPsym((P)"if"); lit_689 = YPPsym((P)"isa?"); lit_690 = YPPsym((P)""); lit_691 = YPsb((P)"Match Pattern Failure"); T108 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_expand_pattern_329 = YPfab_met(FUNCODEREF(fun_expand_pattern_329),T108,LITREF(lit_686),LITREF(lit_687),sloc(1169),YPfalse); T110 = VARREF_OR(YevalSastYexpand_pattern,YPfalse); T111 = fun_expand_pattern_329; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YevalSastYexpand_pattern,T109); lit_692 = YPPsym((P)"expand-syntax-if"); lit_693 = YPPlist(1,YPPsym((P)"x")); lit_694 = YPPsym((P)"esc"); lit_695 = YPPsym((P)"return"); lit_696 = YPPsym((P)"loc"); lit_697 = YPPsym((P)"msg"); lit_698 = YPPsym((P)""); lit_699 = YPPsym((P)"args"); lit_700 = YPPlist(1,YPPsym((P)"x")); T113 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_330 = YPfab_met(FUNCODEREF(fun_330),T113,YPfalse,LITREF(lit_700),YPfalse,YPfalse); T112 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_expand_syntax_if_331 = YPfab_met(FUNCODEREF(fun_expand_syntax_if_331),T112,LITREF(lit_692),LITREF(lit_693),sloc(1174),YPfalse); T115 = VARREF_OR(YevalSastYexpand_syntax_if,YPfalse); T116 = fun_expand_syntax_if_331; T114 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T115,T116); VARSET(YevalSastYexpand_syntax_if,T114); lit_701 = YPPsym((P)"r-extend*"); lit_702 = YPPlist(2,YPPsym((P)"r"),YPPsym((P)"bindings")); T117 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLstatic_environmentG),Ynil); fun_r_extendT_332 = YPfab_met(FUNCODEREF(fun_r_extendT_332),T117,LITREF(lit_701),LITREF(lit_702),sloc(1198),YPfalse); T119 = VARREF_OR(YevalSastYr_extendT,YPfalse); T120 = fun_r_extendT_332; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSastYr_extendT,T118); lit_703 = YPPsym((P)"find-binding"); lit_704 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"r")); T121 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_local_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_find_binding_333 = YPfab_met(FUNCODEREF(fun_find_binding_333),T121,LITREF(lit_703),LITREF(lit_704),sloc(1202),YPfalse); T123 = VARREF_OR(YevalSmoduleYfind_binding,YPfalse); T124 = fun_find_binding_333; T122 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T123,T124); VARSET(YevalSmoduleYfind_binding,T122); lit_705 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"r")); T125 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_nul_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_find_binding_334 = YPfab_met(FUNCODEREF(fun_find_binding_334),T125,LITREF(lit_703),LITREF(lit_705),sloc(1212),YPfalse); T127 = VARREF_OR(YevalSmoduleYfind_binding,YPfalse); T128 = fun_find_binding_334; T126 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T127,T128); VARSET(YevalSmoduleYfind_binding,T126); VARSET(YevalSastYTmagic_bindingsT,Ynil); lit_706 = YPPsym((P)"register-magic-binding"); lit_707 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"value")); T129 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_register_magic_binding_335 = YPfab_met(FUNCODEREF(fun_register_magic_binding_335),T129,LITREF(lit_706),LITREF(lit_707),sloc(1219),YPfalse); T131 = VARREF_OR(YevalSastYregister_magic_binding,YPfalse); T132 = fun_register_magic_binding_335; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalSastYregister_magic_binding,T130); lit_708 = YPPsym((P)"magic-bindings"); T133 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_magic_bindings_336 = YPfab_met(FUNCODEREF(fun_magic_bindings_336),T133,LITREF(lit_708),LITREF(lit_576),sloc(1222),YPfalse); T135 = VARREF_OR(YevalSastYmagic_bindings,YPfalse); T136 = fun_magic_bindings_336; T134 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T135,T136); VARSET(YevalSastYmagic_bindings,T134); lit_709 = YPPlist(1,YPPsym((P)"exp")); lit_710 = YPPlist(1,YPPsym((P)"return")); lit_711 = YPPsym((P)"x-1524"); lit_712 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_713 = YPPsym((P)"define-magic-binding"); lit_714 = YPsb((P)"special-"); lit_715 = YPsb((P)"$sexpr-"); lit_716 = YPsb((P)"-tag"); lit_717 = YPPsym((P)"dv"); lit_718 = YPPsym((P)"new"); lit_719 = YPPsym((P)""); lit_720 = YPPsym((P)"binding-kind"); lit_721 = YPPsym((P)"binding-name"); lit_722 = YPPsym((P)"binding-module"); lit_723 = YPPsym((P)"binding-handler"); lit_724 = YPPsym((P)"binding-free?"); T139 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1524_337 = YPfab_met(FUNCODEREF(fun_x_1524_337),T139,LITREF(lit_711),LITREF(lit_712),YPfalse,YPfalse); T138 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_338 = YPfab_met(FUNCODEREF(fun_338),T138,YPfalse,LITREF(lit_710),YPfalse,YPfalse); T137 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_339 = YPfab_met(FUNCODEREF(fun_339),T137,YPfalse,LITREF(lit_709),YPfalse,YPfalse); T140 = fun_339; YPmacro(YPPsym((P)"eval/ast"),YPPsym((P)"define-magic-binding"),T140); lit_725 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T141 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_340 = YPfab_met(FUNCODEREF(fun_340),T141,YPfalse,LITREF(lit_725),sloc(1237),YPfalse); T143 = fun_340; T142 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_if_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T143,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_if,T142); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_688),VARREF(YevalSastYspecial_if)); lit_726 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T144 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_341 = YPfab_met(FUNCODEREF(fun_341),T144,YPfalse,LITREF(lit_726),sloc(1241),YPfalse); T146 = fun_341; T145 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_begin_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T146,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_begin,T145); lit_727 = YPPsym((P)"begin"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_727),VARREF(YevalSastYspecial_begin)); lit_728 = YPPsym((P)"%raw"); VARSET(YevalSastYDsexpr_Praw_tag,LITREF(lit_728)); lit_729 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T147 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_342 = YPfab_met(FUNCODEREF(fun_342),T147,YPfalse,LITREF(lit_729),sloc(1246),YPfalse); T149 = fun_342; T148 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_Praw_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T149,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_Praw,T148); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_728),VARREF(YevalSastYspecial_Praw)); lit_730 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T150 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_343 = YPfab_met(FUNCODEREF(fun_343),T150,YPfalse,LITREF(lit_730),sloc(1249),YPfalse); T152 = fun_343; T151 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_quote_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T152,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_quote,T151); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_681),VARREF(YevalSastYspecial_quote)); lit_731 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T153 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_344 = YPfab_met(FUNCODEREF(fun_344),T153,YPfalse,LITREF(lit_731),sloc(1252),YPfalse); T155 = fun_344; T154 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_set_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T155,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_set,T154); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_9),VARREF(YevalSastYspecial_set)); lit_732 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T156 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_345 = YPfab_met(FUNCODEREF(fun_345),T156,YPfalse,LITREF(lit_732),sloc(1256),YPfalse); T158 = fun_345; T157 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T158,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define,T157); lit_733 = YPPsym((P)"define"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_733),VARREF(YevalSastYspecial_define)); lit_734 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T159 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_346 = YPfab_met(FUNCODEREF(fun_346),T159,YPfalse,LITREF(lit_734),sloc(1260),YPfalse); T161 = fun_346; T160 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_constant_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T161,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_constant,T160); lit_735 = YPPsym((P)"define-constant"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_735),VARREF(YevalSastYspecial_define_constant)); lit_736 = YPPsym((P)"ddv"); VARSET(YevalSastYDsexpr_define_dynamic_tag,LITREF(lit_736)); lit_737 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T162 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_347 = YPfab_met(FUNCODEREF(fun_347),T162,YPfalse,LITREF(lit_737),sloc(1266),YPfalse); T164 = fun_347; T163 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_define_dynamic_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T164,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_dynamic,T163); lit_738 = YPPsym((P)"define-dynamic"); T166 = XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_738),VARREF(YevalSastYspecial_define_dynamic)); T165 = T166; return T165; } P YevalSastY___main_9___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77; DEFCREGS(); lit_739 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T0 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_348 = YPfab_met(FUNCODEREF(fun_348),T0,YPfalse,LITREF(lit_739),sloc(1270),YPfalse); T2 = fun_348; T1 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_syntax_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T2,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_syntax,T1); lit_740 = YPPsym((P)"define-syntax"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_740),VARREF(YevalSastYspecial_define_syntax)); lit_741 = YPPsym((P)"dss"); VARSET(YevalSastYDsexpr_define_static_syntax_tag,LITREF(lit_741)); lit_742 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T3 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_349 = YPfab_met(FUNCODEREF(fun_349),T3,YPfalse,LITREF(lit_742),sloc(1276),YPfalse); T5 = fun_349; T4 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_define_static_syntax_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T5,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_static_syntax,T4); lit_743 = YPPsym((P)"define-static-syntax"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_743),VARREF(YevalSastYspecial_define_static_syntax)); lit_744 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T6 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_350 = YPfab_met(FUNCODEREF(fun_350),T6,YPfalse,LITREF(lit_744),sloc(1280),YPfalse); T8 = fun_350; T7 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_method_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T8,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_method,T7); lit_745 = YPPsym((P)"define-method"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_745),VARREF(YevalSastYspecial_define_method)); lit_746 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T9 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_351 = YPfab_met(FUNCODEREF(fun_351),T9,YPfalse,LITREF(lit_746),sloc(1286),YPfalse); T11 = fun_351; T10 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_generic_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T11,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_generic,T10); lit_747 = YPPsym((P)"define-generic"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_747),VARREF(YevalSastYspecial_define_generic)); lit_748 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T12 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_352 = YPfab_met(FUNCODEREF(fun_352),T12,YPfalse,LITREF(lit_748),sloc(1290),YPfalse); T14 = fun_352; T13 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_function_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T14,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_function,T13); lit_749 = YPPsym((P)"define-function"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_749),VARREF(YevalSastYspecial_define_function)); lit_750 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T15 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_353 = YPfab_met(FUNCODEREF(fun_353),T15,YPfalse,LITREF(lit_750),sloc(1296),YPfalse); T17 = fun_353; T16 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_method_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T17,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_method,T16); lit_751 = YPPsym((P)"method"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_751),VARREF(YevalSastYspecial_method)); VARSET(YevalSastYDsexpr_boundQ_tag,LITREF(lit_572)); lit_752 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T18 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_354 = YPfab_met(FUNCODEREF(fun_354),T18,YPfalse,LITREF(lit_752),sloc(1302),YPfalse); T20 = fun_354; T19 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_boundQ_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T20,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_boundQ,T19); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_572),VARREF(YevalSastYspecial_boundQ)); lit_753 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T21 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_355 = YPfab_met(FUNCODEREF(fun_355),T21,YPfalse,LITREF(lit_753),sloc(1305),YPfalse); T23 = fun_355; T22 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_let_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T23,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_let,T22); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_6),VARREF(YevalSastYspecial_let)); lit_754 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T24 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_356 = YPfab_met(FUNCODEREF(fun_356),T24,YPfalse,LITREF(lit_754),sloc(1311),YPfalse); T26 = fun_356; T25 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_def_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T26,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_def,T25); lit_755 = YPPsym((P)"def"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_755),VARREF(YevalSastYspecial_def)); lit_756 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T27 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_357 = YPfab_met(FUNCODEREF(fun_357),T27,YPfalse,LITREF(lit_756),sloc(1314),YPfalse); T29 = fun_357; T28 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_locals_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T29,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_locals,T28); lit_757 = YPPsym((P)"locals"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_757),VARREF(YevalSastYspecial_locals)); lit_758 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T30 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_358 = YPfab_met(FUNCODEREF(fun_358),T30,YPfalse,LITREF(lit_758),sloc(1319),YPfalse); T32 = fun_358; T31 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_iterate_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T32,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_iterate,T31); lit_759 = YPPsym((P)"iterate"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_759),VARREF(YevalSastYspecial_iterate)); lit_760 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T33 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_359 = YPfab_met(FUNCODEREF(fun_359),T33,YPfalse,LITREF(lit_760),sloc(1322),YPfalse); T35 = fun_359; T34 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_bind_exit_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T35,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_bind_exit,T34); lit_761 = YPPsym((P)"bind-exit"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_761),VARREF(YevalSastYspecial_bind_exit)); lit_762 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T36 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_360 = YPfab_met(FUNCODEREF(fun_360),T36,YPfalse,LITREF(lit_762),sloc(1326),YPfalse); T38 = fun_360; T37 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_unwind_protect_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T38,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_unwind_protect,T37); lit_763 = YPPsym((P)"unwind-protect"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_763),VARREF(YevalSastYspecial_unwind_protect)); lit_764 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T39 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_361 = YPfab_met(FUNCODEREF(fun_361),T39,YPfalse,LITREF(lit_764),sloc(1332),YPfalse); T41 = fun_361; T40 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_monitor_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T41,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_monitor,T40); lit_765 = YPPsym((P)"monitor"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_765),VARREF(YevalSastYspecial_monitor)); lit_766 = YPPsym((P)"pairize"); lit_767 = YPPlist(1,YPPsym((P)"args")); lit_768 = YPPsym((P)"fab-pair"); T42 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_pairize_362 = YPfab_met(FUNCODEREF(fun_pairize_362),T42,LITREF(lit_766),LITREF(lit_767),sloc(1336),YPfalse); T44 = VARREF_OR(YevalSastYpairize,YPfalse); T45 = fun_pairize_362; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YevalSastYpairize,T43); lit_769 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_770 = YPPsym((P)"fab-class"); T46 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_363 = YPfab_met(FUNCODEREF(fun_363),T46,YPfalse,LITREF(lit_769),sloc(1341),YPfalse); T48 = fun_363; T47 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_define_class_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T48,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_class,T47); lit_771 = YPPsym((P)"define-class"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_771),VARREF(YevalSastYspecial_define_class)); lit_772 = YPPsym((P)"objectify-define-property"); lit_773 = YPPlist(4,YPPsym((P)"x"),YPPsym((P)"setter?"),YPPsym((P)"r"),YPPsym((P)"tail?")); lit_774 = YPPsym((P)"%prop"); lit_775 = YPPsym((P)"%prop-unbound-error"); T49 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_objectify_define_property_364 = YPfab_met(FUNCODEREF(fun_objectify_define_property_364),T49,LITREF(lit_772),LITREF(lit_773),sloc(1346),YPfalse); T51 = VARREF_OR(YevalSastYobjectify_define_property,YPfalse); T52 = fun_objectify_define_property_364; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YevalSastYobjectify_define_property,T50); lit_776 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T53 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_365 = YPfab_met(FUNCODEREF(fun_365),T53,YPfalse,LITREF(lit_776),sloc(1367),YPfalse); T55 = fun_365; T54 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_propX_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T55,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_propX,T54); lit_777 = YPPsym((P)"prop!"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_777),VARREF(YevalSastYspecial_propX)); lit_778 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T56 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_366 = YPfab_met(FUNCODEREF(fun_366),T56,YPfalse,LITREF(lit_778),sloc(1370),YPfalse); T58 = fun_366; T57 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_prop_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T58,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_prop,T57); lit_779 = YPPsym((P)"prop"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_779),VARREF(YevalSastYspecial_prop)); lit_780 = YPPsym((P)"ct"); VARSET(YevalSastYDsexpr_compile_time_tag,LITREF(lit_780)); lit_781 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T59 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_367 = YPfab_met(FUNCODEREF(fun_367),T59,YPfalse,LITREF(lit_781),sloc(1375),YPfalse); T61 = fun_367; T60 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_compile_time_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T61,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_compile_time,T60); lit_782 = YPPsym((P)"compile-time"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_782),VARREF(YevalSastYspecial_compile_time)); lit_783 = YPPsym((P)"ct-also"); VARSET(YevalSastYDsexpr_compile_time_also_tag,LITREF(lit_783)); lit_784 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T62 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_368 = YPfab_met(FUNCODEREF(fun_368),T62,YPfalse,LITREF(lit_784),sloc(1380),YPfalse); T64 = fun_368; T63 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_compile_time_also_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T64,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_compile_time_also,T63); lit_785 = YPPsym((P)"compile-time-also"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_785),VARREF(YevalSastYspecial_compile_time_also)); lit_786 = YPPsym((P)"dl"); VARSET(YevalSastYDsexpr_define_primitive_tag,LITREF(lit_786)); lit_787 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T65 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_369 = YPfab_met(FUNCODEREF(fun_369),T65,YPfalse,LITREF(lit_787),sloc(1385),YPfalse); T67 = fun_369; T66 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_define_primitive_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T67,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_define_primitive,T66); lit_788 = YPPsym((P)"define-primitive"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_788),VARREF(YevalSastYspecial_define_primitive)); lit_789 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T68 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_370 = YPfab_met(FUNCODEREF(fun_370),T68,YPfalse,LITREF(lit_789),sloc(1395),YPfalse); T70 = fun_370; T69 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_quasiquote_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T70,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_quasiquote,T69); lit_790 = YPPsym((P)"quasiquote"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_790),VARREF(YevalSastYspecial_quasiquote)); lit_791 = YPPsym((P)"ast-macro-expand"); lit_792 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T73 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T72 = fun_ast_macro_expand_371 = YPfab_met(FUNCODEREF(fun_ast_macro_expand_371),T73,LITREF(lit_791),LITREF(lit_792),sloc(1398),YPfalse); T76 = VARREF_OR(YevalSastYast_macro_expand,YPfalse); T77 = fun_ast_macro_expand_371; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); T74 = VARSET(YevalSastYast_macro_expand,T75); T71 = T74; return T71; } P YevalSastY___main_10___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67; DEFCREGS(); lit_793 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T0 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_372 = YPfab_met(FUNCODEREF(fun_372),T0,YPfalse,LITREF(lit_793),sloc(1407),YPfalse); T2 = fun_372; T1 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_macro_expand_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T2,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_macro_expand,T1); lit_794 = YPPsym((P)"macro-expand"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_794),VARREF(YevalSastYspecial_macro_expand)); lit_795 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T3 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_373 = YPfab_met(FUNCODEREF(fun_373),T3,YPfalse,LITREF(lit_795),sloc(1411),YPfalse); T5 = fun_373; T4 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSsyntaxYDsexpr_syntax_if_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T5,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_syntax_if,T4); lit_796 = YPPsym((P)"syntax-if"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_796),VARREF(YevalSastYspecial_syntax_if)); lit_797 = YPPsym((P)"export"); VARSET(YevalSastYDsexpr_export_tag,LITREF(lit_797)); lit_798 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T6 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_374 = YPfab_met(FUNCODEREF(fun_374),T6,YPfalse,LITREF(lit_798),sloc(1421),YPfalse); T8 = fun_374; T7 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_export_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T8,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_export,T7); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_797),VARREF(YevalSastYspecial_export)); lit_799 = YPPsym((P)"use"); VARSET(YevalSastYDsexpr_use_module_tag,LITREF(lit_799)); lit_800 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T9 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_375 = YPfab_met(FUNCODEREF(fun_375),T9,YPfalse,LITREF(lit_800),sloc(1426),YPfalse); T11 = fun_375; T10 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_use_module_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T11,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_use_module,T10); lit_801 = YPPsym((P)"use-module"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_801),VARREF(YevalSastYspecial_use_module)); lit_802 = YPPsym((P)"use/mangle"); VARSET(YevalSastYDsexpr_use_mangle_module_tag,LITREF(lit_802)); lit_803 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T12 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_376 = YPfab_met(FUNCODEREF(fun_376),T12,YPfalse,LITREF(lit_803),sloc(1431),YPfalse); T14 = fun_376; T13 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_use_mangle_module_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T14,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_use_mangle_module,T13); lit_804 = YPPsym((P)"use-mangle-module"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_804),VARREF(YevalSastYspecial_use_mangle_module)); lit_805 = YPPsym((P)"use/include"); VARSET(YevalSastYDsexpr_use_include_tag,LITREF(lit_805)); lit_806 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T15 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_377 = YPfab_met(FUNCODEREF(fun_377),T15,YPfalse,LITREF(lit_806),sloc(1436),YPfalse); T17 = fun_377; T16 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_use_include_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T17,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_use_include,T16); lit_807 = YPPsym((P)"use-include"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_807),VARREF(YevalSastYspecial_use_include)); lit_808 = YPPsym((P)"use/library"); VARSET(YevalSastYDsexpr_use_library_tag,LITREF(lit_808)); lit_809 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T18 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_378 = YPfab_met(FUNCODEREF(fun_378),T18,YPfalse,LITREF(lit_809),sloc(1441),YPfalse); T20 = fun_378; T19 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_use_library_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T20,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_use_library,T19); lit_810 = YPPsym((P)"use-library"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_810),VARREF(YevalSastYspecial_use_library)); lit_811 = YPPsym((P)"use/export"); VARSET(YevalSastYDsexpr_useSexport_module_tag,LITREF(lit_811)); lit_812 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T21 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_379 = YPfab_met(FUNCODEREF(fun_379),T21,YPfalse,LITREF(lit_812),sloc(1446),YPfalse); T23 = fun_379; T22 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_useSexport_module_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T23,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_useSexport_module,T22); lit_813 = YPPsym((P)"use/export-module"); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_813),VARREF(YevalSastYspecial_useSexport_module)); lit_814 = YPPsym((P)"c-ment"); VARSET(YevalSastYDsexpr_c_ment_tag,LITREF(lit_814)); lit_815 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T24 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_380 = YPfab_met(FUNCODEREF(fun_380),T24,YPfalse,LITREF(lit_815),sloc(1451),YPfalse); T26 = fun_380; T25 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_c_ment_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T26,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_c_ment,T25); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_814),VARREF(YevalSastYspecial_c_ment)); lit_816 = YPPsym((P)"c-expr"); VARSET(YevalSastYDsexpr_c_expr_tag,LITREF(lit_816)); lit_817 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"r"),YPPsym((P)"tail?")); T27 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_381 = YPfab_met(FUNCODEREF(fun_381),T27,YPfalse,LITREF(lit_817),sloc(1456),YPfalse); T29 = fun_381; T28 = XCALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_531),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSastYDsexpr_c_expr_tag),VARREF(YevalSmoduleYbinding_module),YPfalse,VARREF(YevalSmoduleYbinding_handler),T29,VARREF(YevalSmoduleYbinding_freeQ),YPfalse); VARSET(YevalSastYspecial_c_expr,T28); XCALL2(1,VARREF(YevalSastYregister_magic_binding),LITREF(lit_816),VARREF(YevalSastYspecial_c_expr)); lit_818 = YPPsym((P)"install-initial-bindings"); lit_819 = YPPlist(2,YPPsym((P)"env"),YPPsym((P)"loader")); lit_820 = YPPlist(1,YPPsym((P)"name")); lit_821 = YPPlist(2,YPPsym((P)"seq"),YPPsym((P)"use")); T31 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_382 = YPfab_met(FUNCODEREF(fun_382),T31,YPfalse,LITREF(lit_820),sloc(1491),YPfalse); T30 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_install_initial_bindings_383 = YPfab_met(FUNCODEREF(fun_install_initial_bindings_383),T30,LITREF(lit_818),LITREF(lit_819),sloc(1487),YPfalse); T33 = VARREF_OR(YevalSmoduleYinstall_initial_bindings,YPfalse); T34 = fun_install_initial_bindings_383; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YevalSmoduleYinstall_initial_bindings,T32); lit_822 = YPPsym((P)"objectify-with-subtransaction"); lit_823 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"r"),YPPsym((P)"dynamic-compilation?"),YPPsym((P)"tail?")); T36 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_384 = YPfab_met(FUNCODEREF(fun_384),T36,YPfalse,LITREF(lit_576),sloc(1507),YPfalse); T35 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); YevalSastYobjectify_with_subtransaction = YPfab_met(FUNCODEREF(YevalSastYobjectify_with_subtransaction),T35,LITREF(lit_822),LITREF(lit_823),sloc(1505),YPfalse); T37 = YevalSastYobjectify_with_subtransaction; VARSET(YevalSastYobjectify_with_subtransaction,T37); lit_824 = YPPsym((P)"install-magic-bindings"); lit_825 = YPPlist(1,YPPsym((P)"env")); lit_826 = YPPlist(1,YPPsym((P)"binding")); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_386 = YPfab_met(FUNCODEREF(fun_386),T39,YPfalse,LITREF(lit_826),sloc(1518),YPfalse); T38 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYinstall_magic_bindings = YPfab_met(FUNCODEREF(YevalSastYinstall_magic_bindings),T38,LITREF(lit_824),LITREF(lit_825),sloc(1516),YPfalse); T40 = YevalSastYinstall_magic_bindings; VARSET(YevalSastYinstall_magic_bindings,T40); lit_827 = YPPsym((P)"reload-macros"); T41 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YevalSastYreload_macros = YPfab_met(FUNCODEREF(YevalSastYreload_macros),T41,LITREF(lit_827),LITREF(lit_576),sloc(1524),YPfalse); T42 = YevalSastYreload_macros; VARSET(YevalSastYreload_macros,T42); lit_828 = YPPsym((P)"install-interpreter-hacks"); lit_829 = YPPlist(1,YPPsym((P)"env")); T43 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYinstall_interpreter_hacks = YPfab_met(FUNCODEREF(YevalSastYinstall_interpreter_hacks),T43,LITREF(lit_828),LITREF(lit_829),sloc(1531),YPfalse); T44 = YevalSastYinstall_interpreter_hacks; VARSET(YevalSastYinstall_interpreter_hacks,T44); lit_830 = YPPsym((P)"init-runtime"); T45 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YevalSastYinit_runtime = YPfab_met(FUNCODEREF(YevalSastYinit_runtime),T45,LITREF(lit_830),LITREF(lit_576),sloc(1534),YPfalse); T46 = YevalSastYinit_runtime; VARSET(YevalSastYinit_runtime,T46); lit_831 = YPPlist(5,YPPsym((P)"ct"),YPPsym((P)"ct-also"),YPPsym((P)"ds"),YPPsym((P)"use"),YPPsym((P)"export")); VARSET(YevalSastYsyntax_environment_excluded_bindings,LITREF(lit_831)); lit_832 = YPPsym((P)"fab-syntax-environment"); lit_833 = YPPlist(1,YPPsym((P)"module")); lit_834 = YPPsym((P)"goo"); T47 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YevalSmoduleYLstatic_global_environmentG),Ynil); YevalSastYfab_syntax_environment = YPfab_met(FUNCODEREF(YevalSastYfab_syntax_environment),T47,LITREF(lit_832),LITREF(lit_833),sloc(1558),YPfalse); T48 = YevalSastYfab_syntax_environment; VARSET(YevalSastYfab_syntax_environment,T48); lit_835 = YPPsym((P)"fab-g2c-module"); lit_836 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"name")); T49 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); YevalSastYfab_g2c_module = YPfab_met(FUNCODEREF(YevalSastYfab_g2c_module),T49,LITREF(lit_835),LITREF(lit_836),sloc(1563),YPfalse); T50 = YevalSastYfab_g2c_module; VARSET(YevalSastYfab_g2c_module,T50); lit_837 = YPPsym((P)"init-g2c-boot-environment"); lit_838 = YPPlist(1,YPPsym((P)"env")); T51 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSastYinit_g2c_boot_environment = YPfab_met(FUNCODEREF(YevalSastYinit_g2c_boot_environment),T51,LITREF(lit_837),LITREF(lit_838),sloc(1576),YPfalse); T52 = YevalSastYinit_g2c_boot_environment; VARSET(YevalSastYinit_g2c_boot_environment,T52); lit_839 = YPPsym((P)"init-g2c-regular-environment"); lit_840 = YPPlist(2,YPPsym((P)"env"),YPPsym((P)"loader")); T53 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSastYinit_g2c_regular_environment = YPfab_met(FUNCODEREF(YevalSastYinit_g2c_regular_environment),T53,LITREF(lit_839),LITREF(lit_840),sloc(1582),YPfalse); T54 = YevalSastYinit_g2c_regular_environment; VARSET(YevalSastYinit_g2c_regular_environment,T54); lit_841 = YPPsym((P)"init-ast"); T55 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YevalSastYinit_ast = YPfab_met(FUNCODEREF(YevalSastYinit_ast),T55,LITREF(lit_841),LITREF(lit_576),sloc(1591),YPfalse); T56 = YevalSastYinit_ast; VARSET(YevalSastYinit_ast,T56); lit_842 = YPPsym((P)"ast-contains-fun?"); lit_843 = YPPlist(1,YPPsym((P)"x")); T57 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_methodG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_ast_contains_funQ_396 = YPfab_met(FUNCODEREF(fun_ast_contains_funQ_396),T57,LITREF(lit_842),LITREF(lit_843),sloc(1597),YPfalse); T59 = VARREF_OR(YevalSastYast_contains_funQ,YPfalse); T60 = fun_ast_contains_funQ_396; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSastYast_contains_funQ,T58); lit_844 = YPPlist(1,YPPsym((P)"x")); lit_845 = YPPlist(1,YPPsym((P)"return")); lit_846 = YPPsym((P)"walk"); lit_847 = YPPlist(1,YPPsym((P)"y")); T63 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_walk_397 = YPfab_met(FUNCODEREF(fun_walk_397),T63,LITREF(lit_846),LITREF(lit_847),sloc(1602),YPfalse); T62 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_398 = YPfab_met(FUNCODEREF(fun_398),T62,YPfalse,LITREF(lit_845),sloc(1601),YPfalse); T61 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_ast_contains_funQ_399 = YPfab_met(FUNCODEREF(fun_ast_contains_funQ_399),T61,LITREF(lit_842),LITREF(lit_844),sloc(1600),YPfalse); T65 = VARREF_OR(YevalSastYast_contains_funQ,YPfalse); T66 = fun_ast_contains_funQ_399; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YevalSastYast_contains_funQ,T64); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T67 = YPfalse; return T67; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSsystem; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_evalSsyntax; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSsystem}, {&module_info_gooScolsSlst}, {&module_info_gooSioSread}, {&module_info_evalSsyntax}, {&module_info_evalSdependency}, {&module_info_evalSmodule}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"$sexpr-define-method-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSmodule, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"$sexpr-define-constant-tag", &module_info_evalSsyntax, NULL}, {"$nul-dependency", &module_info_evalSdependency, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"invalidate-dependent", &module_info_evalSdependency, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"$value-optimization-dependency", &module_info_evalSdependency, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"sexpr-unwind-protect-protected-form", &module_info_evalSsyntax, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"$sexpr-set-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"$sexpr-unwind-protect-tag", &module_info_evalSsyntax, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"$sexpr-quasiquote-tag", &module_info_evalSsyntax, NULL}, {"sexpr-define-class?", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSdependency, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"sexpr-make-macro-function", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"dependency-includes-all?", &module_info_evalSdependency, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"sexpr-expand-backquote", &module_info_evalSsyntax, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"$expansion-parse-dependency", &module_info_evalSdependency, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"", &module_info_evalSdependency, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"set-standard-read-macro!", &module_info_gooSioSread, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"sexpr-isa-prop-inits", &module_info_evalSsyntax, NULL}, {"$sexpr-let-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"sexpr-prop-init?", &module_info_evalSsyntax, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"$sexpr-locals-tag", &module_info_evalSsyntax, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"label-components", &module_info_gooSsystem, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"sexpr-loc-bound-signatures", &module_info_evalSsyntax, NULL}, {"sexpr-loc-raw-body", &module_info_evalSsyntax, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sexpr-syntax-if-then", &module_info_evalSsyntax, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"sexpr-isa-parent", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"$char-long-names", &module_info_gooSioSread, NULL}, {"dependency-and", &module_info_evalSdependency, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"os-val", &module_info_gooSsystem, NULL}, {"sexpr-def-variable", &module_info_evalSsyntax, NULL}, {"sexpr-if-test", &module_info_evalSsyntax, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"sexpr-fab-setter-name", &module_info_evalSsyntax, NULL}, {"sexpr-let->combination", &module_info_evalSsyntax, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"$sexpr-isa-tag", &module_info_evalSsyntax, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSsystem, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"exe-filename", &module_info_gooSsystem, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"pathname-to-components", &module_info_gooSsystem, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"$sexpr-iterate-tag", &module_info_evalSsyntax, NULL}, {"sexpr-monitor-expand", &module_info_evalSsyntax, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sexpr-variable-name", &module_info_evalSsyntax, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sexpr-bind-pattern-variables", &module_info_evalSsyntax, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*goo-personal-root*", &module_info_gooSsystem, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"read-delimited-list", &module_info_gooSioSread, NULL}, {"sexpr-make-anonymous-method", &module_info_evalSsyntax, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"$sexpr-define-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"*obj-extension*", &module_info_gooSsystem, NULL}, {"sexpr-definition-variable", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"sexpr-function-definition-variable", &module_info_evalSsyntax, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"sexpr-syntax-definition-variable", &module_info_evalSsyntax, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"find-goo-file-in-path", &module_info_gooSsystem, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"sexpr-variable?", &module_info_evalSsyntax, NULL}, {"dv", &module_info_gooSboot, NULL}, {"$sexpr-monitor-tag", &module_info_evalSsyntax, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"sexpr-def-value", &module_info_evalSsyntax, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"dependency-nul?", &module_info_evalSdependency, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"%false", &module_info_gooSboot, NULL}, {"components-to-pathname", &module_info_gooSsystem, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"parent-directory", &module_info_gooSsystem, NULL}, {"components-parent-directory", &module_info_gooSsystem, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"gooc-filename", &module_info_gooSsystem, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"*path-separator*", &module_info_gooSsystem, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-src-path", &module_info_gooSsystem, NULL}, {"sexpr-prop-name", &module_info_evalSsyntax, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"$all-dependency-types", &module_info_evalSdependency, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"sexpr-make-begin", &module_info_evalSsyntax, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"*goo-build-root*", &module_info_gooSsystem, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"sexpr-method-signature", &module_info_evalSsyntax, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"file-copy", &module_info_gooSsystem, NULL}, {"os-name", &module_info_gooSsystem, NULL}, {"sexpr-text-of-quotation", &module_info_evalSsyntax, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"%load", &module_info_gooSsystem, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"obj-filename", &module_info_gooSsystem, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"sexpr-isa-init-values", &module_info_evalSsyntax, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"sexpr-sequence->begin", &module_info_evalSsyntax, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"detach-dependent", &module_info_evalSdependency, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"find-goo-file-at", &module_info_gooSsystem, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%compile", &module_info_gooSsystem, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"sexpr-syntax-if-pattern", &module_info_evalSsyntax, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"dependency-includes-any?", &module_info_evalSdependency, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"sexpr-operands", &module_info_evalSsyntax, NULL}, {"put", &module_info_gooSioSport, NULL}, {"sexpr-loc-bound-names", &module_info_evalSsyntax, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"sexpr-function-signature", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"add-build-path", &module_info_gooSsystem, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"sexpr-method-body", &module_info_evalSsyntax, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-assignment-value", &module_info_evalSsyntax, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"sexpr-make-application", &module_info_evalSsyntax, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"$sexpr-begin-tag", &module_info_evalSsyntax, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"sexpr-signature-parameters", &module_info_evalSsyntax, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-function-definition-adjectives", &module_info_evalSsyntax, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"$sexpr-prop-tag", &module_info_evalSsyntax, NULL}, {"c-filename", &module_info_gooSsystem, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"sexpr-fab-setter", &module_info_evalSsyntax, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"sexpr-block-body", &module_info_evalSsyntax, NULL}, {"$sexpr-macro-expand-tag", &module_info_evalSsyntax, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"*exe-extension*", &module_info_gooSsystem, NULL}, {"sexpr-prop-type", &module_info_evalSsyntax, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"sexpr-loc-bound-bodies", &module_info_evalSsyntax, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"time", &module_info_gooSsystem, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"$sexpr-define-function-tag", &module_info_evalSsyntax, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"sexpr-syntax-if-value", &module_info_evalSsyntax, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"*c-extension*", &module_info_gooSsystem, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"$name-parse-dependency", &module_info_evalSdependency, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"process-id", &module_info_gooSsystem, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"$sexpr-syntax-if-tag", &module_info_evalSsyntax, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"$sexpr-define-class-tag", &module_info_evalSsyntax, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"sexpr-isa-init-props", &module_info_evalSsyntax, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sexpr-iterate->loc", &module_info_evalSsyntax, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"file-type", &module_info_gooSsystem, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"add-tmp-path", &module_info_gooSsystem, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"$sexpr-prop!-tag", &module_info_evalSsyntax, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"$sexpr-define-generic-tag", &module_info_evalSsyntax, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"sexpr-make-method", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSmodule, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"eval", &module_info_evalSsyntax, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"sexpr-operator", &module_info_evalSsyntax, NULL}, {"*goo-extension*", &module_info_gooSsystem, NULL}, {"sexpr-function-definition-value", &module_info_evalSsyntax, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"components-basename", &module_info_gooSsystem, NULL}, {"dependency-or", &module_info_evalSdependency, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"$sexpr-method-tag", &module_info_evalSsyntax, NULL}, {"sexpr-signature-value", &module_info_evalSsyntax, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"sexpr-def?", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"sexpr-if-else", &module_info_evalSsyntax, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"$sexpr-def-tag", &module_info_evalSsyntax, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"$parse-dependencies", &module_info_evalSdependency, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"sexpr-unquote-splicing?", &module_info_evalSsyntax, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"sexpr-forward-primitive?", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"$sexpr-if-tag", &module_info_evalSsyntax, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*goo-root*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSsystem, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"file-exists?", &module_info_gooSsystem, NULL}, {"sexpr-block-name", &module_info_evalSsyntax, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"probe-directory", &module_info_gooSsystem, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sexpr-fab-getter", &module_info_evalSsyntax, NULL}, {"get-standard-read-macro", &module_info_gooSioSread, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-prop-init-var", &module_info_evalSsyntax, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"add-goo-personal-root-path", &module_info_gooSsystem, NULL}, {"*module-search-path*", &module_info_gooSsystem, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-unwind-protect-cleanup-forms", &module_info_evalSsyntax, NULL}, {"dg", &module_info_gooSboot, NULL}, {"sexpr-assignment-variable", &module_info_evalSsyntax, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"find-dependency", &module_info_evalSdependency, NULL}, {"even?", &module_info_gooSmath, NULL}, {"components-last", &module_info_gooSsystem, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"sexpr-definition-value", &module_info_evalSsyntax, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"$optimizaton-dependencies", &module_info_evalSdependency, NULL}, {"invalidate-dependents", &module_info_evalSdependency, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"sexpr-function-body", &module_info_evalSsyntax, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"log-dependency", &module_info_evalSdependency, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-goo-root-path", &module_info_gooSsystem, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"create-directory", &module_info_gooSsystem, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"sexpr-variable-type", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"sexpr-syntax-if-else", &module_info_evalSsyntax, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"$sexpr-define-syntax-tag", &module_info_evalSsyntax, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"sexpr-define-class-parents", &module_info_evalSsyntax, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"so-load", &module_info_gooSsystem, NULL}, {"os-val-setter", &module_info_gooSsystem, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"sexpr-if-then", &module_info_evalSsyntax, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"sexpr-unquote?", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"goo-filename", &module_info_gooSsystem, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSmodule, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"$sexpr-bind-exit-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"hierarchical-components", &module_info_gooSsystem, NULL}, {"sexpr-syntax-definition-value", &module_info_evalSsyntax, NULL}, {"$sexpr-quote-tag", &module_info_evalSsyntax, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"", &module_info_evalSdependency, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"file-mtime", &module_info_gooSsystem, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"sexpr-prop-init", &module_info_evalSsyntax, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-prop-owner", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"alternative-condition", CVAR, &YevalSastYalternative_condition}, {"fix-let-types", CVAR, &YevalSastYfix_let_types}, {"$sexpr-use-include-tag", CVAR, &YevalSastYDsexpr_use_include_tag}, {"binding-mutable?-setter", CVAR, &YevalSastYbinding_mutableQ_setter}, {"magic-bindings", CVAR, &YevalSastYmagic_bindings}, {"binding-value-setter", CVAR, &YevalSastYbinding_value_setter}, {"constant-value", CVAR, &YevalSastYconstant_value}, {"", CVAR, &YevalSastYLstatic_module_binding_referenceG}, {"", CVAR, &YevalSastYLmagic_referenceG}, {"special-use-module", CVAR, &YevalSastYspecial_use_module}, {"objectify-application", CVAR, &YevalSastYobjectify_application}, {"", CVAR, &YevalSastYLdynamic_assignmentG}, {"", CVAR, &YevalSastYLmodule_binding_referenceG}, {"loop-body", CVAR, &YevalSastYloop_body}, {"objectify-refs", CVAR, &YevalSastYobjectify_refs}, {"", CVAR, &YevalSastYLast_macro_definitionG}, {"fix-let-body", CVAR, &YevalSastYfix_let_body}, {"special-compile-time", CVAR, &YevalSastYspecial_compile_time}, {"signature-nary?", CVAR, &YevalSastYsignature_naryQ}, {"application-loop", CVAR, &YevalSastYapplication_loop}, {"bind-exit-main-fun-setter", CVAR, &YevalSastYbind_exit_main_fun_setter}, {"default-type", CVAR, &YevalSastYdefault_type}, {"function-display-name", CVAR, &YevalSastYfunction_display_name}, {"function-signature", CVAR, &YevalSastYfunction_signature}, {"", CVAR, &YevalSastYLglobal_assignmentG}, {"application-binding-setter", CVAR, &YevalSastYapplication_binding_setter}, {"init-g2c-boot-environment", CVAR, &YevalSastYinit_g2c_boot_environment}, {"function-registers", CVAR, &YevalSastYfunction_registers}, {"special-define-generic", CVAR, &YevalSastYspecial_define_generic}, {"", CVAR, &YevalSastYLast_generic_definitionG}, {"register-magic-binding", CVAR, &YevalSastYregister_magic_binding}, {"application-tail?", CVAR, &YevalSastYapplication_tailQ}, {"objectify-unwind-protect", CVAR, &YevalSastYobjectify_unwind_protect}, {"loop-bindings", CVAR, &YevalSastYloop_bindings}, {"objectify-c-expr", CVAR, &YevalSastYobjectify_c_expr}, {"special-define-primitive", CVAR, &YevalSastYspecial_define_primitive}, {"signature-bindings-setter", CVAR, &YevalSastYsignature_bindings_setter}, {"function-body-setter", CVAR, &YevalSastYfunction_body_setter}, {"---main-9---", PVAR, NULL}, {"program-line-setter", CVAR, &YevalSastYprogram_line_setter}, {"compile-time-program", CVAR, &YevalSastYcompile_time_program}, {"", CVAR, &YevalSastYLcompile_timeG}, {"monitor-main-thunk-setter", CVAR, &YevalSastYmonitor_main_thunk_setter}, {"compile-time-program-setter", CVAR, &YevalSastYcompile_time_program_setter}, {"expand-bind-element", CVAR, &YevalSastYexpand_bind_element}, {"binding-dynamic-extent?", CVAR, &YevalSastYbinding_dynamic_extentQ}, {"ast-walk", CVAR, &YevalSastYast_walk}, {"objectify-use-library", CVAR, &YevalSastYobjectify_use_library}, {"objectify-use-mangle-module", CVAR, &YevalSastYobjectify_use_mangle_module}, {"expand-bind-list*", CVAR, &YevalSastYexpand_bind_listT}, {"special-let", CVAR, &YevalSastYspecial_let}, {"objectify-binding", CVAR, &YevalSastYobjectify_binding}, {"", CVAR, &YevalSastYLc_inlineG}, {"c-inline-expr?", CVAR, &YevalSastYc_inline_exprQ}, {"function-ref-count-setter", CVAR, &YevalSastYfunction_ref_count_setter}, {"special-use-mangle-module", CVAR, &YevalSastYspecial_use_mangle_module}, {"objectify-use-include", CVAR, &YevalSastYobjectify_use_include}, {"special-define-function", CVAR, &YevalSastYspecial_define_function}, {"", CVAR, &YevalSastYLast_functionG}, {"", CVAR, &YevalSastYLboundQG}, {"ast-contains-fun?", CVAR, &YevalSastYast_contains_funQ}, {"signature-value", CVAR, &YevalSastYsignature_value}, {"application-function-setter", CVAR, &YevalSastYapplication_function_setter}, {"", CVAR, &YevalSastYLsimple_ast_errorG}, {"%%%macro", CVAR, &YevalSastYPPPmacro}, {"function-binding-setter", CVAR, &YevalSastYfunction_binding_setter}, {"objectify-locals", CVAR, &YevalSastYobjectify_locals}, {"bind-exit-light?-setter", CVAR, &YevalSastYbind_exit_lightQ_setter}, {"objectify-syntax-definition", CVAR, &YevalSastYobjectify_syntax_definition}, {"objectify-definition", CVAR, &YevalSastYobjectify_definition}, {"", CVAR, &YevalSastYLglobal_referenceG}, {"c-inline-expr?-setter", CVAR, &YevalSastYc_inline_exprQ_setter}, {"objectify-foreign-reference", CVAR, &YevalSastYobjectify_foreign_reference}, {"fab-list", CVAR, &YevalSastYfab_list}, {"objectify-c-inline", CVAR, &YevalSastYobjectify_c_inline}, {"program-register", CVAR, &YevalSastYprogram_register}, {"fix-let-bindings-setter", CVAR, &YevalSastYfix_let_bindings_setter}, {"functions", CVAR, &YevalSastYfunctions}, {"objectify-assignment", CVAR, &YevalSastYobjectify_assignment}, {"special-locals", CVAR, &YevalSastYspecial_locals}, {"objectify-generic-definition", CVAR, &YevalSastYobjectify_generic_definition}, {"bound?-default-setter", CVAR, &YevalSastYboundQ_default_setter}, {"---main-4---", PVAR, NULL}, {"$inline-refs-nul", CVAR, &YevalSastYDinline_refs_nul}, {"inline-refs", CVAR, &YevalSastYinline_refs}, {"process-closed-application", CVAR, &YevalSastYprocess_closed_application}, {"bound?-reference-setter", CVAR, &YevalSastYboundQ_reference_setter}, {"binding-index-setter", CVAR, &YevalSastYbinding_index_setter}, {"application-next-methods-setter", CVAR, &YevalSastYapplication_next_methods_setter}, {"", CVAR, &YevalSastYLimmediate_constantG}, {"special-define-static-syntax", CVAR, &YevalSastYspecial_define_static_syntax}, {"objectify-compile-time", CVAR, &YevalSastYobjectify_compile_time}, {"objectify-alternative", CVAR, &YevalSastYobjectify_alternative}, {"", CVAR, &YevalSastYLcomputed_programG}, {"objectify-sequential", CVAR, &YevalSastYobjectify_sequential}, {"sequentialize", CVAR, &YevalSastYsequentialize}, {"binding-mutable?", CVAR, &YevalSastYbinding_mutableQ}, {"signature-specs", CVAR, &YevalSastYsignature_specs}, {"objectify-monitor", CVAR, &YevalSastYobjectify_monitor}, {"maybe-log-dependency", CVAR, &YevalSastYmaybe_log_dependency}, {"*magic-bindings*", CVAR, &YevalSastYTmagic_bindingsT}, {"macro-expander", CVAR, &YevalSastYmacro_expander}, {"$sexpr-define-primitive-tag", CVAR, &YevalSastYDsexpr_define_primitive_tag}, {"function-source-setter", CVAR, &YevalSastYfunction_source_setter}, {"objectify-raw", CVAR, &YevalSastYobjectify_raw}, {"", CVAR, &YevalSastYLloopG}, {"application-known?-setter", CVAR, &YevalSastYapplication_knownQ_setter}, {"application-arguments-setter", CVAR, &YevalSastYapplication_arguments_setter}, {"special-monitor", CVAR, &YevalSastYspecial_monitor}, {"monitor-main-thunk", CVAR, &YevalSastYmonitor_main_thunk}, {"---main-2---", PVAR, NULL}, {"", CVAR, &YevalSastYLargumentsG}, {"---main-1---", PVAR, NULL}, {"init-g2c-regular-environment", CVAR, &YevalSastYinit_g2c_regular_environment}, {"", CVAR, &YevalSastYLlocal_assignmentG}, {"$sexpr-compile-time-also-tag", CVAR, &YevalSastYDsexpr_compile_time_also_tag}, {"assignment-reference", CVAR, &YevalSastYassignment_reference}, {"", CVAR, &YevalSastYLbind_exitG}, {"objectify-function-source", CVAR, &YevalSastYobjectify_function_source}, {"objectify-variable-definition", CVAR, &YevalSastYobjectify_variable_definition}, {"special-use-include", CVAR, &YevalSastYspecial_use_include}, {"assignment-form-setter", CVAR, &YevalSastYassignment_form_setter}, {"ast-macro-expand", CVAR, &YevalSastYast_macro_expand}, {"", CVAR, &YevalSastYLlocal_referenceG}, {"monitor-info-setter", CVAR, &YevalSastYmonitor_info_setter}, {"incf-ref-count", CVAR, &YevalSastYincf_ref_count}, {"monitor-test", CVAR, &YevalSastYmonitor_test}, {"monitor-test-setter", CVAR, &YevalSastYmonitor_test_setter}, {"monitor-type-setter", CVAR, &YevalSastYmonitor_type_setter}, {"$sexpr-define-dynamic-tag", CVAR, &YevalSastYDsexpr_define_dynamic_tag}, {"bound?-reference", CVAR, &YevalSastYboundQ_reference}, {"", CVAR, &YevalSastYLast_signatureG}, {"", CVAR, &YevalSastYLast_primitiveG}, {"$sexpr-%raw-tag", CVAR, &YevalSastYDsexpr_Praw_tag}, {"function-debug-name-setter", CVAR, &YevalSastYfunction_debug_name_setter}, {"objectify-with-subtransaction", CVAR, &YevalSastYobjectify_with_subtransaction}, {"signature-names", CVAR, &YevalSastYsignature_names}, {"convert2arguments", CVAR, &YevalSastYconvert2arguments}, {"unwind-protect-protected-thunk", CVAR, &YevalSastYunwind_protect_protected_thunk}, {"unwind-protect-protected-thunk-setter", CVAR, &YevalSastYunwind_protect_protected_thunk_setter}, {"function-loop-setter", CVAR, &YevalSastYfunction_loop_setter}, {"unwind-protect-cleanup-thunk", CVAR, &YevalSastYunwind_protect_cleanup_thunk}, {"$sexpr-export-tag", CVAR, &YevalSastYDsexpr_export_tag}, {"special-def", CVAR, &YevalSastYspecial_def}, {"$sexpr-use-library-tag", CVAR, &YevalSastYDsexpr_use_library_tag}, {"", CVAR, &YevalSastYLsequentialG}, {"special-define-syntax", CVAR, &YevalSastYspecial_define_syntax}, {"signature-bindings", CVAR, &YevalSastYsignature_bindings}, {"locals-bindings", CVAR, &YevalSastYlocals_bindings}, {"function-inlineable?", CVAR, &YevalSastYfunction_inlineableQ}, {"---main-5---", PVAR, NULL}, {"", CVAR, &YevalSastYLapplicationG}, {"", CVAR, &YevalSastYLconstantG}, {"objectify", CVAR, &YevalSastYobjectify}, {"", CVAR, &YevalSastYLdefinitionG}, {"fab-syntax-environment", CVAR, &YevalSastYfab_syntax_environment}, {"application-loop-setter", CVAR, &YevalSastYapplication_loop_setter}, {"foreign-name?", CVAR, &YevalSastYforeign_nameQ}, {"special-if", CVAR, &YevalSastYspecial_if}, {"process-nary-closed-application", CVAR, &YevalSastYprocess_nary_closed_application}, {"reference-frame-offset-setter", CVAR, &YevalSastYreference_frame_offset_setter}, {"bind-exit-main-fun", CVAR, &YevalSastYbind_exit_main_fun}, {"expand-syntax-if", CVAR, &YevalSastYexpand_syntax_if}, {"objectify-method-definition", CVAR, &YevalSastYobjectify_method_definition}, {"c-inline-strs-setter", CVAR, &YevalSastYc_inline_strs_setter}, {"special-define-constant", CVAR, &YevalSastYspecial_define_constant}, {"signature-nary?-setter", CVAR, &YevalSastYsignature_naryQ_setter}, {"function-debug-name", CVAR, &YevalSastYfunction_debug_name}, {"$sexpr-optionals-tag", CVAR, &YevalSastYDsexpr_optionals_tag}, {"req-sig-specs", CVAR, &YevalSastYreq_sig_specs}, {"monitor-handler", CVAR, &YevalSastYmonitor_handler}, {"", CVAR, &YevalSastYLdynamic_referenceG}, {"update-binding-kind", CVAR, &YevalSastYupdate_binding_kind}, {"function-specs", CVAR, &YevalSastYfunction_specs}, {"", CVAR, &YevalSastYLast_method_definitionG}, {"assignment-binding-setter", CVAR, &YevalSastYassignment_binding_setter}, {"c-inline-refs", CVAR, &YevalSastYc_inline_refs}, {"c-inline-refs-setter", CVAR, &YevalSastYc_inline_refs_setter}, {"locals-body-setter", CVAR, &YevalSastYlocals_body_setter}, {"special-syntax-if", CVAR, &YevalSastYspecial_syntax_if}, {"locals-functions", CVAR, &YevalSastYlocals_functions}, {"", CVAR, &YevalSastYLunwind_protectG}, {"reference-frame-offset", CVAR, &YevalSastYreference_frame_offset}, {"$sexpr-define-static-syntax-tag", CVAR, &YevalSastYDsexpr_define_static_syntax_tag}, {"application-function", CVAR, &YevalSastYapplication_function}, {"fab-g2c-module", CVAR, &YevalSastYfab_g2c_module}, {"", CVAR, &YevalSastYLlocalsG}, {"objectify-dynamic-definition", CVAR, &YevalSastYobjectify_dynamic_definition}, {"reference-binding", CVAR, &YevalSastYreference_binding}, {"program-type", CVAR, &YevalSastYprogram_type}, {"$sexpr-use-mangle-module-tag", CVAR, &YevalSastYDsexpr_use_mangle_module_tag}, {"special-c-ment", CVAR, &YevalSastYspecial_c_ment}, {"init-ast", CVAR, &YevalSastYinit_ast}, {"def-programs", PVAR, NULL}, {"$fab-list-nul", CVAR, &YevalSastYDfab_list_nul}, {"reference-called-function?-setter", CVAR, &YevalSastYreference_called_functionQ_setter}, {"fix-let-arguments-setter", CVAR, &YevalSastYfix_let_arguments_setter}, {"", CVAR, &YevalSastYLinline_refsG}, {"objectify-function-using", CVAR, &YevalSastYobjectify_function_using}, {"program-register-setter", CVAR, &YevalSastYprogram_register_setter}, {"$sexpr-c-ment-tag", CVAR, &YevalSastYDsexpr_c_ment_tag}, {"", CVAR, &YevalSastYLreal_referenceG}, {"objectify-signature", CVAR, &YevalSastYobjectify_signature}, {"reference-binding-setter", CVAR, &YevalSastYreference_binding_setter}, {"binding-index", CVAR, &YevalSastYbinding_index}, {"reload-macros", CVAR, &YevalSastYreload_macros}, {"fix-let-body-setter", CVAR, &YevalSastYfix_let_body_setter}, {"", CVAR, &YevalSastYLfab_listG}, {"special-%raw", CVAR, &YevalSastYspecial_Praw}, {"", CVAR, &YevalSastYLmonitorG}, {"transform-defs", CVAR, &YevalSastYtransform_defs}, {"$free-environment-nul", CVAR, &YevalSastYDfree_environment_nul}, {"fix-let-types-setter", CVAR, &YevalSastYfix_let_types_setter}, {"$sexpr-bound?-tag", CVAR, &YevalSastYDsexpr_boundQ_tag}, {"binding-closed-over?-setter", CVAR, &YevalSastYbinding_closed_overQ_setter}, {"fix-let-arguments", CVAR, &YevalSastYfix_let_arguments}, {"", CVAR, &YevalSastYLprogramsG}, {"loop-continue-setter", CVAR, &YevalSastYloop_continue_setter}, {"module-binding", CVAR, &YevalSastYmodule_binding}, {"fix-let-bindings", CVAR, &YevalSastYfix_let_bindings}, {"function-bindings", CVAR, &YevalSastYfunction_bindings}, {"define-magic-binding", PVAR, NULL}, {"", CVAR, &YevalSastYLassignmentG}, {"application-next-methods", CVAR, &YevalSastYapplication_next_methods}, {"special-set", CVAR, &YevalSastYspecial_set}, {"install-magic-bindings", CVAR, &YevalSastYinstall_magic_bindings}, {"", CVAR, &YevalSastYLpredefined_applicationG}, {"function-kind", CVAR, &YevalSastYfunction_kind}, {"special-iterate", CVAR, &YevalSastYspecial_iterate}, {"function-temporaries-setter", CVAR, &YevalSastYfunction_temporaries_setter}, {"split-c-inline-vals", CVAR, &YevalSastYsplit_c_inline_vals}, {"", CVAR, &YevalSastYLregular_applicationG}, {"special-macro-expand", CVAR, &YevalSastYspecial_macro_expand}, {"application-known?", CVAR, &YevalSastYapplication_knownQ}, {"---main-6---", PVAR, NULL}, {"function-registers-setter", CVAR, &YevalSastYfunction_registers_setter}, {"special-method", CVAR, &YevalSastYspecial_method}, {"function-arity", CVAR, &YevalSastYfunction_arity}, {"monitor-handler-setter", CVAR, &YevalSastYmonitor_handler_setter}, {"", CVAR, &YevalSastYLloop_applicationG}, {"---main-10---", PVAR, NULL}, {"ftype", CVAR, &YevalSastYftype}, {"", CVAR, &YevalSastYLfree_environmentG}, {"expand-bind-list", CVAR, &YevalSastYexpand_bind_list}, {"$sexpr-use-module-tag", CVAR, &YevalSastYDsexpr_use_module_tag}, {"assignment-form", CVAR, &YevalSastYassignment_form}, {"", CVAR, &YevalSastYLmethod_applicationG}, {"function-source", CVAR, &YevalSastYfunction_source}, {"", CVAR, &YevalSastYLraw_constantG}, {"special-define-dynamic", CVAR, &YevalSastYspecial_define_dynamic}, {"function-frame-len", CVAR, &YevalSastYfunction_frame_len}, {"", CVAR, &YevalSastYLlow_letG}, {"special-begin", CVAR, &YevalSastYspecial_begin}, {"constant-index-setter", CVAR, &YevalSastYconstant_index_setter}, {"$sequential-nul", CVAR, &YevalSastYDsequential_nul}, {"sequential", CVAR, &YevalSastYsequential}, {"alternative-alternant", CVAR, &YevalSastYalternative_alternant}, {"loop-continue", CVAR, &YevalSastYloop_continue}, {"special-define-class", CVAR, &YevalSastYspecial_define_class}, {"bind-exit-light?", CVAR, &YevalSastYbind_exit_lightQ}, {"compute-local-reference-offsets", CVAR, &YevalSastYcompute_local_reference_offsets}, {"loop-body-setter", CVAR, &YevalSastYloop_body_setter}, {"application-tail?-setter", CVAR, &YevalSastYapplication_tailQ_setter}, {"application-binding", CVAR, &YevalSastYapplication_binding}, {"locals-functions-setter", CVAR, &YevalSastYlocals_functions_setter}, {"alternative-condition-setter", CVAR, &YevalSastYalternative_condition_setter}, {"", CVAR, &YevalSastYLprogramG}, {"binding-value", CVAR, &YevalSastYbinding_value}, {"objectify-use/export-module", CVAR, &YevalSastYobjectify_useSexport_module}, {"---main-3---", PVAR, NULL}, {"assignment-binding", CVAR, &YevalSastYassignment_binding}, {"special-define", CVAR, &YevalSastYspecial_define}, {"", CVAR, &YevalSastYLast_genericG}, {"function-signature-setter", CVAR, &YevalSastYfunction_signature_setter}, {"", CVAR, &YevalSastYLalternativeG}, {"special-unwind-protect", CVAR, &YevalSastYspecial_unwind_protect}, {"---main-8---", PVAR, NULL}, {"ast-walk!", CVAR, &YevalSastYast_walkX}, {"function-adjectives-setter", CVAR, &YevalSastYfunction_adjectives_setter}, {"monitor-info", CVAR, &YevalSastYmonitor_info}, {"objectify-define-property", CVAR, &YevalSastYobjectify_define_property}, {"function-ref-count", CVAR, &YevalSastYfunction_ref_count}, {"special-export", CVAR, &YevalSastYspecial_export}, {"$sexpr-c-expr-tag", CVAR, &YevalSastYDsexpr_c_expr_tag}, {"binding-dotted?-setter", CVAR, &YevalSastYbinding_dottedQ_setter}, {"function-free", CVAR, &YevalSastYfunction_free}, {"function-free-setter", CVAR, &YevalSastYfunction_free_setter}, {"*macro-tracing?*", CVAR, &YevalSastYTmacro_tracingQT}, {"constant-value-setter", CVAR, &YevalSastYconstant_value_setter}, {"function-value", CVAR, &YevalSastYfunction_value}, {"$functions-nul", CVAR, &YevalSastYDfunctions_nul}, {"free-environment", CVAR, &YevalSastYfree_environment}, {"", CVAR, &YevalSastYLast_methodG}, {"ast-define-binding", CVAR, &YevalSastYast_define_binding}, {"objectify-list", CVAR, &YevalSastYobjectify_list}, {"special-prop", CVAR, &YevalSastYspecial_prop}, {"install-interpreter-hacks", CVAR, &YevalSastYinstall_interpreter_hacks}, {"objectify-free-global-reference", CVAR, &YevalSastYobjectify_free_global_reference}, {"binding-closed-over?", CVAR, &YevalSastYbinding_closed_overQ}, {"objectify-symbol", CVAR, &YevalSastYobjectify_symbol}, {"objectify-quotation", CVAR, &YevalSastYobjectify_quotation}, {"function-frame-len-setter", CVAR, &YevalSastYfunction_frame_len_setter}, {"objectify-bound?", CVAR, &YevalSastYobjectify_boundQ}, {"monitor-type", CVAR, &YevalSastYmonitor_type}, {"$arguments-nul", CVAR, &YevalSastYDarguments_nul}, {"function-adjectives", CVAR, &YevalSastYfunction_adjectives}, {"", CVAR, &YevalSastYLpassive_programG}, {"signature-names-setter", CVAR, &YevalSastYsignature_names_setter}, {"special-quote", CVAR, &YevalSastYspecial_quote}, {"alternative-consequent-setter", CVAR, &YevalSastYalternative_consequent_setter}, {"objectify-export", CVAR, &YevalSastYobjectify_export}, {"---main-0---", PVAR, NULL}, {"", CVAR, &YevalSastYLlocal_bindingG}, {"reference-called-function?", CVAR, &YevalSastYreference_called_functionQ}, {"init-environment-for-eval", CVAR, &YevalSastYinit_environment_for_eval}, {"r-extend*", CVAR, &YevalSastYr_extendT}, {"objectify-use-module", CVAR, &YevalSastYobjectify_use_module}, {"unwind-protect-cleanup-thunk-setter", CVAR, &YevalSastYunwind_protect_cleanup_thunk_setter}, {"", CVAR, &YevalSastYLast_function_definitionG}, {"as-lst", CVAR, &YevalSastYas_lst}, {"", CVAR, &YevalSastYLfunctionsG}, {"*current-dependent*", DVAR, &YevalSastYTcurrent_dependentT}, {"with-dependent", PVAR, NULL}, {"function-nary?", CVAR, &YevalSastYfunction_naryQ}, {"function-loop", CVAR, &YevalSastYfunction_loop}, {"$sexpr-optionals-type-name", CVAR, &YevalSastYDsexpr_optionals_type_name}, {"function-temporaries", CVAR, &YevalSastYfunction_temporaries}, {"c-inline-strs", CVAR, &YevalSastYc_inline_strs}, {"", CVAR, &YevalSastYLpredefined_referenceG}, {"", CVAR, &YevalSastYLreferenceG}, {"", CVAR, &YevalSastYLast_primitive_definitionG}, {"loop-bindings-setter", CVAR, &YevalSastYloop_bindings_setter}, {"function-index-setter", CVAR, &YevalSastYfunction_index_setter}, {"---main-7---", PVAR, NULL}, {"locals-body", CVAR, &YevalSastYlocals_body}, {"program-line", CVAR, &YevalSastYprogram_line}, {"special-compile-time-also", CVAR, &YevalSastYspecial_compile_time_also}, {"bound?-default", CVAR, &YevalSastYboundQ_default}, {"", CVAR, &YevalSastYLruntime_assignmentG}, {"function-body", CVAR, &YevalSastYfunction_body}, {"function-index", CVAR, &YevalSastYfunction_index}, {"special-bind-exit", CVAR, &YevalSastYspecial_bind_exit}, {"reference-frame-number", CVAR, &YevalSastYreference_frame_number}, {"objectify-function-definition", CVAR, &YevalSastYobjectify_function_definition}, {"binding-reference-class", CVAR, &YevalSastYbinding_reference_class}, {"syntax-environment-excluded-bindings", CVAR, &YevalSastYsyntax_environment_excluded_bindings}, {"$sexpr-compile-time-tag", CVAR, &YevalSastYDsexpr_compile_time_tag}, {"*record-source?*", DVAR, &YevalSastYTrecord_sourceQT}, {"", CVAR, &YevalSastYLvariable_definitionG}, {"objectify-bind-exit", CVAR, &YevalSastYobjectify_bind_exit}, {"special-use-library", CVAR, &YevalSastYspecial_use_library}, {"", CVAR, &YevalSastYLast_errorG}, {"program-type-setter", CVAR, &YevalSastYprogram_type_setter}, {"binding-dynamic-extent?-setter", CVAR, &YevalSastYbinding_dynamic_extentQ_setter}, {"function-binding", CVAR, &YevalSastYfunction_binding}, {"special-use/export-module", CVAR, &YevalSastYspecial_useSexport_module}, {"init-runtime", CVAR, &YevalSastYinit_runtime}, {"special-define-method", CVAR, &YevalSastYspecial_define_method}, {"", CVAR, &YevalSastYLruntime_referenceG}, {"signature-value-setter", CVAR, &YevalSastYsignature_value_setter}, {"pairize", CVAR, &YevalSastYpairize}, {"constant-index", CVAR, &YevalSastYconstant_index}, {"ast-copy", CVAR, &YevalSastYast_copy}, {"reference-frame-number-setter", CVAR, &YevalSastYreference_frame_number_setter}, {"function-names", CVAR, &YevalSastYfunction_names}, {"objectify-function", CVAR, &YevalSastYobjectify_function}, {"objectify-primitive-definition", CVAR, &YevalSastYobjectify_primitive_definition}, {"", CVAR, &YevalSastYLmacro_referenceG}, {"", CVAR, &YevalSastYLfix_letG}, {"signature-arity", CVAR, &YevalSastYsignature_arity}, {"signature-arity-setter", CVAR, &YevalSastYsignature_arity_setter}, {"", CVAR, &YevalSastYLast_embodied_functionG}, {"special-c-expr", CVAR, &YevalSastYspecial_c_expr}, {"signature-specs-setter", CVAR, &YevalSastYsignature_specs_setter}, {"locals-bindings-setter", CVAR, &YevalSastYlocals_bindings_setter}, {"alternative-consequent", CVAR, &YevalSastYalternative_consequent}, {"expand-pattern", CVAR, &YevalSastYexpand_pattern}, {"$sexpr-use/export-module-tag", CVAR, &YevalSastYDsexpr_useSexport_module_tag}, {"objectify-assignment-using", CVAR, &YevalSastYobjectify_assignment_using}, {"special-bound?", CVAR, &YevalSastYspecial_boundQ}, {"ast-evaluate", CVAR, &YevalSastYast_evaluate}, {"special-prop!", CVAR, &YevalSastYspecial_propX}, {"arguments", CVAR, &YevalSastYarguments}, {"alternative-alternant-setter", CVAR, &YevalSastYalternative_alternant_setter}, {"", CVAR, &YevalSastYLdynamic_definitionG}, {"binding-dotted?", CVAR, &YevalSastYbinding_dottedQ}, {"special-quasiquote", CVAR, &YevalSastYspecial_quasiquote}, {"assignment-reference-setter", CVAR, &YevalSastYassignment_reference_setter}, {"application-arguments", CVAR, &YevalSastYapplication_arguments}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"transaction-register-implemented-binding", NULL}, {"ast-walk", NULL}, {"ast-error", NULL}, {"alternative-condition", NULL}, {"binding-name", NULL}, {"c-inline-strs", NULL}, {"", NULL}, {"binding-value-setter", NULL}, {"module-runtime-data", NULL}, {"", NULL}, {"binding-module", NULL}, {"constant-value", NULL}, {"", NULL}, {"function-adjectives", NULL}, {"binding-handler-setter", NULL}, {"", NULL}, {"find-environment-module", NULL}, {"function-value", NULL}, {"module-uses-c-libraries", NULL}, {"", NULL}, {"loop-body", NULL}, {"", NULL}, {"", NULL}, {"fix-let-body", NULL}, {"remove-modules-by-name!", NULL}, {"binding-mangled-name-setter", NULL}, {"function-signature", NULL}, {"", NULL}, {"global-box-value", NULL}, {"function-loop", NULL}, {"signature-names-setter", NULL}, {"application-tail?", NULL}, {"loop-bindings", NULL}, {"sequentialize", NULL}, {"program-line", NULL}, {"module-mangled-name", NULL}, {"insert-globals!", NULL}, {"", NULL}, {"application-loop", NULL}, {"function-body-setter", NULL}, {"compile-time-program", NULL}, {"", NULL}, {"environment-module-loader", NULL}, {"program-register", NULL}, {"do-module-loader-modules", NULL}, {"binding-dynamic-extent?", NULL}, {"bind-exit-light?", NULL}, {"", NULL}, {"process-closed-application", NULL}, {"c-inline-expr?", NULL}, {"function-ref-count-setter", NULL}, {"", NULL}, {"binding-inferred-type-setter", NULL}, {"", NULL}, {"unchecked-runtime-environment", NULL}, {"ast-contains-fun?", NULL}, {"environment-allows-foreign-names?", NULL}, {"signature-value", NULL}, {"%%%macro", NULL}, {"environment-next", NULL}, {"", NULL}, {"frame-bindings", NULL}, {"", NULL}, {"", NULL}, {"module-data-processed?", NULL}, {"install-initial-bindings", NULL}, {"fix-let-arguments-setter", NULL}, {"fix-let-bindings-setter", NULL}, {"binding-type", NULL}, {"application-arguments", NULL}, {"", NULL}, {"locals-bindings-setter", NULL}, {"objectify-with-subtransaction", NULL}, {"binding-prop", NULL}, {"function-bindings", NULL}, {"environment-uses-modules", NULL}, {"binding-kind", NULL}, {"report-undefined-global-bindings", NULL}, {"probe-module", NULL}, {"ast-define-binding", NULL}, {"with-subtransaction", NULL}, {"monitor-test", NULL}, {"binding-index-setter", NULL}, {"", NULL}, {"binding-mutable?", NULL}, {"signature-specs", NULL}, {"binding-handler", NULL}, {"binding-info-setter", NULL}, {"function-source-setter", NULL}, {"", NULL}, {"find-syntax-environment", NULL}, {"fab-static-global-environment", NULL}, {"", NULL}, {"application-known?-setter", NULL}, {"*dynamic-compilation?*", NULL}, {"monitor-main-thunk", NULL}, {"", NULL}, {"assignment-reference", NULL}, {"register-referenced-binding", NULL}, {"assignment-form-setter", NULL}, {"", NULL}, {"binding-mangled-name", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"import-global!", NULL}, {"bind-exit-main-fun", NULL}, {"signature-names", NULL}, {"insert-global!", NULL}, {"unwind-protect-protected-thunk", NULL}, {"unwind-protect-cleanup-thunk", NULL}, {"", NULL}, {"signature-bindings", NULL}, {"function-inlineable?", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"function-body", NULL}, {"", NULL}, {"function-free-setter", NULL}, {"binding-value", NULL}, {"module-c-forms", NULL}, {"", NULL}, {"signature-nary?-setter", NULL}, {"binding-inferred-type", NULL}, {"req-sig-specs", NULL}, {"monitor-handler", NULL}, {"", NULL}, {"binding-native-to?", NULL}, {"function-specs", NULL}, {"", NULL}, {"function-debug-name-setter", NULL}, {"c-inline-refs", NULL}, {"fix-let-types-setter", NULL}, {"function-index-setter", NULL}, {"walk-bindings", NULL}, {"function-registers-setter", NULL}, {"locals-functions", NULL}, {"locals-body", NULL}, {"locals-body-setter", NULL}, {"reference-frame-offset", NULL}, {"fab-g2c-module", NULL}, {"", NULL}, {"function-binding", NULL}, {"locals-bindings", NULL}, {"reference-binding", NULL}, {"program-type", NULL}, {"init-ast", NULL}, {"def-programs", NULL}, {"application-binding", NULL}, {"runtime-environment", NULL}, {"program-register-setter", NULL}, {"environment-bindings", NULL}, {"*current-subtransaction*", NULL}, {"binding-index", NULL}, {"reference-called-function?-setter", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"ast-evaluate", NULL}, {"module-uses-c-files", NULL}, {"fix-let-types", NULL}, {"binding-closed-over?-setter", NULL}, {"binding-dotted?-setter", NULL}, {"loop-continue-setter", NULL}, {"binding-info", NULL}, {"", NULL}, {"fix-let-bindings", NULL}, {"register-module!", NULL}, {"", NULL}, {"do-named-static-global-bindings", NULL}, {"", NULL}, {"application-next-methods", NULL}, {"module-name", NULL}, {"function-temporaries-setter", NULL}, {"fix-let-arguments", NULL}, {"module-referenced-bindings", NULL}, {"set-module-environments", NULL}, {"application-known?", NULL}, {"application-function", NULL}, {"", NULL}, {"binding-free?-setter", NULL}, {"function-arity", NULL}, {"", NULL}, {"module-exports", NULL}, {"assignment-form", NULL}, {"", NULL}, {"function-source", NULL}, {"", NULL}, {"function-frame-len", NULL}, {"", NULL}, {"bound?-reference", NULL}, {"function-ref-count", NULL}, {"def-list", NULL}, {"", NULL}, {"runtime-module", NULL}, {"alternative-alternant", NULL}, {"zap-referenced-bindings!", NULL}, {"binding-locative", NULL}, {"%%macro", NULL}, {"export-binding!", NULL}, {"find-static-global-environment", NULL}, {"loop-body-setter", NULL}, {"signature-arity-setter", NULL}, {"", NULL}, {"assignment-binding", NULL}, {"", NULL}, {"function-free", NULL}, {"function-signature-setter", NULL}, {"", NULL}, {"", NULL}, {"module-mangled-string-name-setter", NULL}, {"function-debug-name", NULL}, {"monitor-info", NULL}, {"function-registers", NULL}, {"ensure-module-data", NULL}, {"function-index", NULL}, {"binding-closed-over?", NULL}, {"module-runtime-data-setter", NULL}, {"module-target-environment", NULL}, {"runtime-module-loader", NULL}, {"fix-let-body-setter", NULL}, {"function-frame-len-setter", NULL}, {"monitor-type", NULL}, {"loop-continue", NULL}, {"binding-global-box-setter", NULL}, {"find-binding", NULL}, {"", NULL}, {"reference-called-function?", NULL}, {"module-loader-module-type", NULL}, {"objectify-quotation", NULL}, {"import-and-mangle-global!", NULL}, {"reload-modules", NULL}, {"as-lst", NULL}, {"module-name-to-relpath", NULL}, {"signature-nary?", NULL}, {"module-loader-stack", NULL}, {"function-loop-setter", NULL}, {"function-temporaries", NULL}, {"", NULL}, {"", NULL}, {"loop-bindings-setter", NULL}, {"module-uses-c-includes", NULL}, {"transaction-register-dependent", NULL}, {"load-module", NULL}, {"global-box-value-setter", NULL}, {"", NULL}, {"locals-functions-setter", NULL}, {"binding-global-box", NULL}, {"bound?-default", NULL}, {"call-with-subtransaction", NULL}, {"reference-frame-number", NULL}, {"module-mangled-name-setter", NULL}, {"binding-module-name", NULL}, {"", NULL}, {"$goo-boot-module-name", NULL}, {"ast-walk!", NULL}, {"module-transaction", NULL}, {"", NULL}, {"binding-dynamic-extent?-setter", NULL}, {"roll-back-transaction", NULL}, {"", NULL}, {"namespace-error", NULL}, {"binding-locative-setter", NULL}, {"constant-index", NULL}, {"do-static-global-bindings", NULL}, {"signature-value-setter", NULL}, {"function-names", NULL}, {"module-syntax-environment", NULL}, {"program-type-setter", NULL}, {"objectify-signature", NULL}, {"", NULL}, {"free-environment", NULL}, {"", NULL}, {"", NULL}, {"env-object-name", NULL}, {"", NULL}, {"signature-bindings-setter", NULL}, {"init-environment-for-eval", NULL}, {"signature-specs-setter", NULL}, {"alternative-consequent", NULL}, {"", NULL}, {"module-data-processed?-setter", NULL}, {"load-in", NULL}, {"signature-arity", NULL}, {"environment-module", NULL}, {"$bot", NULL}, {"fab-subset-environment", NULL}, {"function-nary?", NULL}, {"binding-type-setter", NULL}, {"binding-free?", NULL}, {"module-mangled-string-name", NULL}, {"", NULL}, {"binding-prop-setter", NULL}, {"", NULL}, {"binding-dotted?", NULL}, {"binding-kind-setter", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSast; MODULE_INFO module_info_evalSast = { "eval/ast", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSsystem (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooSioSread (void); extern void load_module_evalSsyntax (void); extern void load_module_evalSdependency (void); extern void load_module_evalSmodule (void); /* EXPRESSION: */ extern void load_module_evalSast (void); void load_module_evalSast (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSsystem(); load_module_gooScolsSlst(); load_module_gooSioSread(); load_module_evalSsyntax(); load_module_evalSdependency(); load_module_evalSmodule(); (P)YevalSastY___main_0___(); (P)YevalSastY___main_1___(); (P)YevalSastY___main_2___(); (P)YevalSastY___main_3___(); (P)YevalSastY___main_4___(); (P)YevalSastY___main_5___(); (P)YevalSastY___main_6___(); (P)YevalSastY___main_7___(); (P)YevalSastY___main_8___(); (P)YevalSastY___main_9___(); (P)YevalSastY___main_10___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/dependency.c0100644000175000017500000020303707756744535016052 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/dependency"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/dependency */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); DEF(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); DEF(YevalSdependencyYDnul_dependency,"eval/dependency","$nul-dependency"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); DEF(YevalSdependencyYinvalidate_dependent,"eval/dependency","invalidate-dependent"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); DEF(YevalSdependencyYDvalue_optimization_dependency,"eval/dependency","$value-optimization-dependency"); DEF(YevalSdependencyYdependents,"eval/dependency","dependents"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); DEF(YevalSdependencyYLdependentG,"eval/dependency",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); DEF(YevalSdependencyYdependency_nulQ,"eval/dependency","dependency-nul?"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); DEF(YevalSdependencyYLdependency_typeG,"eval/dependency",""); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); DEF(YevalSdependencyYdependency_and,"eval/dependency","dependency-and"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); DEF(YevalSdependencyYDall_dependency_types,"eval/dependency","$all-dependency-types"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); DEF(YevalSdependencyYfind_dependency,"eval/dependency","find-dependency"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); DEF(YevalSdependencyYdetach_dependent,"eval/dependency","detach-dependent"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); DEF(YevalSdependencyYdependency_includes_anyQ,"eval/dependency","dependency-includes-any?"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); DEF(YevalSdependencyYdepends_on_setter,"eval/dependency","depends-on-setter"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YevalSdependencyYDname_parse_dependency,"eval/dependency","$name-parse-dependency"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); DEF(YevalSdependencyYdepends_on,"eval/dependency","depends-on"); DEF(YevalSdependencyYdependency_or,"eval/dependency","dependency-or"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); DEF(YevalSdependencyYDexpansion_parse_dependency,"eval/dependency","$expansion-parse-dependency"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YgooSioSportYgets,"goo/io/port","gets"); DEF(YevalSdependencyYdependency_includes_allQ,"eval/dependency","dependency-includes-all?"); EXT(YgooSmathYGGG,"goo/math",">>>"); DEF(YevalSdependencyYDparse_dependencies,"eval/dependency","$parse-dependencies"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); DEF(YevalSdependencyYDoptimizaton_dependencies,"eval/dependency","$optimizaton-dependencies"); DEF(YevalSdependencyYinvalidate_dependents,"eval/dependency","invalidate-dependents"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); DEF(YevalSdependencyYlog_dependency,"eval/dependency","log-dependency"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); DEF(YevalSdependencyYLdependableG,"eval/dependency",""); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_0); DEFLIT(lit_18); DEFLIT(lit_27); DEFLIT(lit_33); DEFLIT(lit_9); DEFLIT(lit_34); DEFLIT(lit_11); DEFLIT(lit_16); DEFLIT(lit_10); DEFLIT(lit_4); DEFLIT(lit_24); DEFLIT(lit_20); DEFLIT(lit_15); DEFLIT(lit_29); DEFLIT(lit_19); DEFLIT(lit_26); DEFLIT(lit_31); DEFLIT(lit_17); DEFLIT(lit_3); DEFLIT(lit_13); DEFLIT(lit_32); DEFLIT(lit_12); DEFLIT(lit_30); DEFLIT(lit_14); DEFLIT(lit_7); DEFLIT(lit_2); DEFLIT(lit_21); DEFLIT(lit_1); DEFLIT(lit_25); DEFLIT(lit_28); DEFLIT(lit_8); DEFLIT(lit_5); DEFLIT(lit_22); DEFLIT(lit_6); DEFLIT(lit_23); /* FUNCTIONS: */ FUNFOR(YevalSdependencyYdependency_or); FUNFOR(YevalSdependencyYdependency_and); FUNFOR(YevalSdependencyYdependency_nulQ); FUNFOR(YevalSdependencyYdependency_includes_allQ); FUNFOR(YevalSdependencyYdependency_includes_anyQ); LOCFOR(fun_dependents_5); LOCFOR(fun_6); LOCFOR(fun_depends_on_7); LOCFOR(fun_depends_on_setter_8); LOCFOR(fun_9); FUNFOR(YevalSdependencyYlog_dependency); FUNFOR(YevalSdependencyYfind_dependency); LOCFOR(fun_12); FUNFOR(YevalSdependencyYinvalidate_dependents); LOCFOR(fun_14); FUNFOR(YevalSdependencyYdetach_dependent); extern P YevalSdependencyY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YevalSdependencyYdependency_or) { P dep1_,dep2_; P T0; LINK_STACK(); ARG(dep1_, 0); ARG(dep2_, 1); T0 = CALL2(1,VARREF(YgooSmathYK),dep1_,dep2_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSdependencyYdependency_and) { P dep1_,dep2_; P T0; LINK_STACK(); ARG(dep1_, 0); ARG(dep2_, 1); T0 = CALL2(1,VARREF(YgooSmathYB),dep1_,dep2_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSdependencyYdependency_nulQ) { P dep_; P T0; LINK_STACK(); ARG(dep_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYEE),dep_,VARREF(YevalSdependencyYDnul_dependency)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSdependencyYdependency_includes_allQ) { P main_,values_; P T0,T1; LINK_STACK(); ARG(main_, 0); ARG(values_, 1); T1 = CALL2(1,VARREF(YevalSdependencyYdependency_and),main_,values_); T0 = CALL2(1,VARREF(YgooSmacrosYEE),T1,values_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSdependencyYdependency_includes_anyQ) { P main_,values_; P T0,T1,T2; LINK_STACK(); ARG(main_, 0); ARG(values_, 1); T2 = CALL2(1,VARREF(YevalSdependencyYdependency_and),main_,values_); T1 = CALL1(1,VARREF(YevalSdependencyYdependency_nulQ),T2); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_dependents_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSdependencyYdependents)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)4)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_depends_on_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSdependencyYdepends_on)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_depends_on_setter_8) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSdependencyYdepends_on)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)20)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSdependencyYlog_dependency) { P dependable_,dependent_,dtype_; P entryF3999; P dep_tableF3998; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(dependable_, 0); ARG(dependent_, 1); ARG(dtype_, 2); T0 = CALL1(1,VARREF(YevalSdependencyYdepends_on),dependent_); CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,T0,dependable_); T4 = CALL1(1,VARREF(YevalSdependencyYdependents),dependable_); dep_tableF3998 = T4; T3 = CALL3(1,VARREF(YgooScolsScolYelt_or),dep_tableF3998,dependent_,YPfalse); entryF3999 = T3; if (entryF3999 != YPfalse) { T2 = CALL2(1,VARREF(YevalSdependencyYdependency_or),entryF3999,dtype_); T1 = T2; } else { T1 = dtype_; } CALL3(1,VARREF(YgooScolsScolxYelt_setter),T1,dep_tableF3998,dependent_); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YevalSdependencyYfind_dependency) { P dependable_,dependent_; P T0,T1; LINK_STACK(); ARG(dependable_, 0); ARG(dependent_, 1); T1 = CALL1(1,VARREF(YevalSdependencyYdependents),dependable_); T0 = CALL3(1,VARREF(YgooScolsScolYelt_or),T1,dependent_,YPfalse); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_12) { P dependent_,dependendent_dtype_; P intersectionF4000; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(dependent_, 0); ARG(dependendent_dtype_, 1); T4 = CALL2(1,VARREF(YevalSdependencyYdependency_and),FREEREF(0),dependendent_dtype_); intersectionF4000 = T4; T2 = CALL1(1,VARREF(YevalSdependencyYdependency_nulQ),intersectionF4000); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YevalSdependencyYinvalidate_dependent),dependent_,FREEREF(1),intersectionF4000); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSdependencyYinvalidate_dependents) { P dependable_,invalid_dtype_; P T0,T1,T2; LINK_STACK(); ARG(dependable_, 0); ARG(invalid_dtype_, 1); T1 = FUNFAB(fun_12,2,invalid_dtype_,dependable_); T2 = CALL1(1,VARREF(YevalSdependencyYdependents),dependable_); T0 = CALL2(1,VARREF(YgooScolsScolYdo_keyed),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_14) { P dependable_,junk_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(dependable_, 0); ARG(junk_, 1); T3 = CALL1(1,VARREF(YevalSdependencyYdependents),dependable_); T2 = CALL2(1,VARREF(YgooScolsScolxYdelX),T3,FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T4 = CALL3(1,VARREF(YevalSdependencyYast_error),LITREF(lit_32),FREEREF(0),dependable_); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSdependencyYdetach_dependent) { P dependent_; P T0,T1,T2,T3; LINK_STACK(); ARG(dependent_, 0); T0 = FUNFAB(fun_14,1,dependent_); T1 = CALL1(1,VARREF(YevalSdependencyYdepends_on),dependent_); CALL2(1,VARREF(YgooScolsScolYdo_keyed),T0,T1); T3 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)0)); T2 = CALL2(1,VARREF(YevalSdependencyYdepends_on_setter),T3,dependent_); UNLINK_STACK(); QRET(T2); } P YevalSdependencyY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46; DEFCREGS(); VARSET(YevalSdependencyYLdependency_typeG,VARREF(YLintG)); lit_0 = YPPsym((P)"dependency-or"); lit_1 = YPPlist(2,YPPsym((P)"dep1"),YPPsym((P)"dep2")); T0 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependency_typeG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)2),VARREF(YevalSdependencyYLdependency_typeG),Ynil); YevalSdependencyYdependency_or = YPfab_met(FUNCODEREF(YevalSdependencyYdependency_or),T0,LITREF(lit_0),LITREF(lit_1),sloc(18),YPfalse); T1 = YevalSdependencyYdependency_or; VARSET(YevalSdependencyYdependency_or,T1); lit_2 = YPPsym((P)"dependency-and"); lit_3 = YPPlist(2,YPPsym((P)"dep1"),YPPsym((P)"dep2")); T2 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependency_typeG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)2),VARREF(YevalSdependencyYLdependency_typeG),Ynil); YevalSdependencyYdependency_and = YPfab_met(FUNCODEREF(YevalSdependencyYdependency_and),T2,LITREF(lit_2),LITREF(lit_3),sloc(23),YPfalse); T3 = YevalSdependencyYdependency_and; VARSET(YevalSdependencyYdependency_and,T3); VARSET(YevalSdependencyYDnul_dependency,YPint((P)0)); VARSET(YevalSdependencyYDall_dependency_types,YPint((P)65535)); lit_4 = YPPsym((P)"dependency-nul?"); lit_5 = YPPlist(1,YPPsym((P)"dep")); T4 = YPfab_sig(YPPlist(1,VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YevalSdependencyYdependency_nulQ = YPfab_met(FUNCODEREF(YevalSdependencyYdependency_nulQ),T4,LITREF(lit_4),LITREF(lit_5),sloc(31),YPfalse); T5 = YevalSdependencyYdependency_nulQ; VARSET(YevalSdependencyYdependency_nulQ,T5); lit_6 = YPPsym((P)"dependency-includes-all?"); lit_7 = YPPlist(2,YPPsym((P)"main"),YPPsym((P)"values")); T6 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependency_typeG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YevalSdependencyYdependency_includes_allQ = YPfab_met(FUNCODEREF(YevalSdependencyYdependency_includes_allQ),T6,LITREF(lit_6),LITREF(lit_7),sloc(34),YPfalse); T7 = YevalSdependencyYdependency_includes_allQ; VARSET(YevalSdependencyYdependency_includes_allQ,T7); lit_8 = YPPsym((P)"dependency-includes-any?"); lit_9 = YPPlist(2,YPPsym((P)"main"),YPPsym((P)"values")); T8 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependency_typeG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YevalSdependencyYdependency_includes_anyQ = YPfab_met(FUNCODEREF(YevalSdependencyYdependency_includes_anyQ),T8,LITREF(lit_8),LITREF(lit_9),sloc(39),YPfalse); T9 = YevalSdependencyYdependency_includes_anyQ; VARSET(YevalSdependencyYdependency_includes_anyQ,T9); VARSET(YevalSdependencyYDname_parse_dependency,YPint((P)1)); VARSET(YevalSdependencyYDexpansion_parse_dependency,YPint((P)2)); T10 = XCALL2(1,VARREF(YevalSdependencyYdependency_or),VARREF(YevalSdependencyYDname_parse_dependency),VARREF(YevalSdependencyYDexpansion_parse_dependency)); VARSET(YevalSdependencyYDparse_dependencies,T10); VARSET(YevalSdependencyYDvalue_optimization_dependency,YPint((P)4)); VARSET(YevalSdependencyYDoptimizaton_dependencies,VARREF(YevalSdependencyYDvalue_optimization_dependency)); lit_10 = YPPsym((P)""); T12 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T11 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_10),T12); VARSET(YevalSdependencyYLdependableG,T11); lit_11 = YPPsym((P)"dependents"); lit_12 = YPPlist(1,YPPsym((P)"_x")); T13 = YPfab_sig(YPPlist(1,VARREF(YevalSdependencyYLdependableG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_dependents_5 = YPfab_met(FUNCODEREF(fun_dependents_5),T13,LITREF(lit_11),LITREF(lit_12),sloc(96),YPfalse); T15 = VARREF_OR(YevalSdependencyYdependents,YPfalse); T16 = fun_dependents_5; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YevalSdependencyYdependents,T14); lit_13 = YPPlist(1,YPPsym((P)"_x")); T17 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T17,YPfalse,LITREF(lit_13),sloc(96),YPfalse); T18 = fun_6; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYdependents),YPfalse,VARREF(YgooScolsScolYLtabG),T18); lit_14 = YPPsym((P)""); T20 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T19 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_14),T20); VARSET(YevalSdependencyYLdependentG,T19); lit_15 = YPPsym((P)"depends-on"); lit_16 = YPPlist(1,YPPsym((P)"_x")); T21 = YPfab_sig(YPPlist(1,VARREF(YevalSdependencyYLdependentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_depends_on_7 = YPfab_met(FUNCODEREF(fun_depends_on_7),T21,LITREF(lit_15),LITREF(lit_16),sloc(100),YPfalse); T23 = VARREF_OR(YevalSdependencyYdepends_on,YPfalse); T24 = fun_depends_on_7; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YevalSdependencyYdepends_on,T22); lit_17 = YPPsym((P)"depends-on-setter"); lit_18 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T25 = YPfab_sig(YPPlist(2,VARREF(YgooScolsScolYLtabG),VARREF(YevalSdependencyYLdependentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_depends_on_setter_8 = YPfab_met(FUNCODEREF(fun_depends_on_setter_8),T25,LITREF(lit_17),LITREF(lit_18),sloc(100),YPfalse); T27 = VARREF_OR(YevalSdependencyYdepends_on_setter,YPfalse); T28 = fun_depends_on_setter_8; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YevalSdependencyYdepends_on_setter,T26); lit_19 = YPPlist(1,YPPsym((P)"_x")); T29 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T29,YPfalse,LITREF(lit_19),sloc(100),YPfalse); T30 = fun_9; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSdependencyYLdependentG),VARREF(YevalSdependencyYdepends_on),VARREF(YevalSdependencyYdepends_on_setter),VARREF(YgooScolsScolYLtabG),T30); lit_20 = YPPsym((P)"log-dependency"); lit_21 = YPPlist(3,YPPsym((P)"dependable"),YPPsym((P)"dependent"),YPPsym((P)"dtype")); T31 = YPfab_sig(YPPlist(3,VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYLdependentG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSdependencyYlog_dependency = YPfab_met(FUNCODEREF(YevalSdependencyYlog_dependency),T31,LITREF(lit_20),LITREF(lit_21),sloc(103),YPfalse); T32 = YevalSdependencyYlog_dependency; VARSET(YevalSdependencyYlog_dependency,T32); lit_22 = YPPsym((P)"find-dependency"); lit_23 = YPPlist(2,YPPsym((P)"dependable"),YPPsym((P)"dependent")); T34 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YevalSdependencyYLdependency_typeG)); T33 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYLdependentG)),YPfalse,YPint((P)2),T34,Ynil); YevalSdependencyYfind_dependency = YPfab_met(FUNCODEREF(YevalSdependencyYfind_dependency),T33,LITREF(lit_22),LITREF(lit_23),sloc(116),YPfalse); T35 = YevalSdependencyYfind_dependency; VARSET(YevalSdependencyYfind_dependency,T35); lit_24 = YPPsym((P)"invalidate-dependent"); lit_25 = YPPlist(3,YPPsym((P)"dependent"),YPPsym((P)"dependable"),YPPsym((P)"dtype")); T37 = YPfab_sig(YPPlist(3,VARREF(YevalSdependencyYLdependentG),VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T36 = YPfab_gen(T37,LITREF(lit_24),LITREF(lit_25),YPfalse); VARSET(YevalSdependencyYinvalidate_dependent,T36); lit_26 = YPPsym((P)"invalidate-dependents"); lit_27 = YPPlist(2,YPPsym((P)"dependable"),YPPsym((P)"invalid-dtype")); lit_28 = YPPlist(2,YPPsym((P)"dependent"),YPPsym((P)"dependendent-dtype")); T39 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T39,YPfalse,LITREF(lit_28),sloc(132),YPfalse); T38 = YPfab_sig(YPPlist(2,VARREF(YevalSdependencyYLdependableG),VARREF(YevalSdependencyYLdependency_typeG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSdependencyYinvalidate_dependents = YPfab_met(FUNCODEREF(YevalSdependencyYinvalidate_dependents),T38,LITREF(lit_26),LITREF(lit_27),sloc(129),YPfalse); T40 = YevalSdependencyYinvalidate_dependents; VARSET(YevalSdependencyYinvalidate_dependents,T40); lit_29 = YPPsym((P)"detach-dependent"); lit_30 = YPPlist(1,YPPsym((P)"dependent")); lit_31 = YPPlist(2,YPPsym((P)"dependable"),YPPsym((P)"junk")); lit_32 = YPsb((P)"Cannot remove %= from %=.\n"); T42 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T42,YPfalse,LITREF(lit_31),sloc(141),YPfalse); T41 = YPfab_sig(YPPlist(1,VARREF(YevalSdependencyYLdependentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSdependencyYdetach_dependent = YPfab_met(FUNCODEREF(YevalSdependencyYdetach_dependent),T41,LITREF(lit_29),LITREF(lit_30),sloc(139),YPfalse); T43 = YevalSdependencyYdetach_dependent; VARSET(YevalSdependencyYdetach_dependent,T43); lit_33 = YPPsym((P)"ast-error"); lit_34 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T44 = YPfab_gen(T45,LITREF(lit_33),LITREF(lit_34),YPfalse); VARSET(YevalSdependencyYast_error,T44); T46 = YPfalse; return T46; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSioSport, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"~=", &module_info_gooSlog, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"t?", &module_info_gooStypes, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"|", &module_info_gooSmath, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"-", &module_info_gooSmath, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"t=", &module_info_gooStypes, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"gets", &module_info_gooSioSport, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"dg", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"in", &module_info_gooSioSport, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"until", &module_info_gooSmacros, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"opf", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"ast-error", CVAR, &YevalSdependencyYast_error}, {"$nul-dependency", CVAR, &YevalSdependencyYDnul_dependency}, {"invalidate-dependent", CVAR, &YevalSdependencyYinvalidate_dependent}, {"$value-optimization-dependency", CVAR, &YevalSdependencyYDvalue_optimization_dependency}, {"dependents", CVAR, &YevalSdependencyYdependents}, {"", CVAR, &YevalSdependencyYLdependentG}, {"dependency-nul?", CVAR, &YevalSdependencyYdependency_nulQ}, {"", CVAR, &YevalSdependencyYLdependency_typeG}, {"dependency-and", CVAR, &YevalSdependencyYdependency_and}, {"$all-dependency-types", CVAR, &YevalSdependencyYDall_dependency_types}, {"find-dependency", CVAR, &YevalSdependencyYfind_dependency}, {"detach-dependent", CVAR, &YevalSdependencyYdetach_dependent}, {"dependency-includes-any?", CVAR, &YevalSdependencyYdependency_includes_anyQ}, {"depends-on-setter", CVAR, &YevalSdependencyYdepends_on_setter}, {"$name-parse-dependency", CVAR, &YevalSdependencyYDname_parse_dependency}, {"depends-on", CVAR, &YevalSdependencyYdepends_on}, {"dependency-or", CVAR, &YevalSdependencyYdependency_or}, {"$expansion-parse-dependency", CVAR, &YevalSdependencyYDexpansion_parse_dependency}, {"dependency-includes-all?", CVAR, &YevalSdependencyYdependency_includes_allQ}, {"$parse-dependencies", CVAR, &YevalSdependencyYDparse_dependencies}, {"---main-0---", PVAR, NULL}, {"$optimizaton-dependencies", CVAR, &YevalSdependencyYDoptimizaton_dependencies}, {"invalidate-dependents", CVAR, &YevalSdependencyYinvalidate_dependents}, {"log-dependency", CVAR, &YevalSdependencyYlog_dependency}, {"", CVAR, &YevalSdependencyYLdependableG}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"ast-error", NULL}, {"$nul-dependency", NULL}, {"invalidate-dependent", NULL}, {"$value-optimization-dependency", NULL}, {"", NULL}, {"", NULL}, {"dependency-and", NULL}, {"$all-dependency-types", NULL}, {"find-dependency", NULL}, {"detach-dependent", NULL}, {"dependency-includes-any?", NULL}, {"$name-parse-dependency", NULL}, {"dependency-or", NULL}, {"$expansion-parse-dependency", NULL}, {"dependency-includes-all?", NULL}, {"$parse-dependencies", NULL}, {"$optimizaton-dependencies", NULL}, {"invalidate-dependents", NULL}, {"log-dependency", NULL}, {"dependency-nul?", NULL}, {"", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSdependency; MODULE_INFO module_info_evalSdependency = { "eval/dependency", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); /* EXPRESSION: */ extern void load_module_evalSdependency (void); void load_module_evalSdependency (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); (P)YevalSdependencyY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/g2c.c0100644000175000017500000166732107756744535014422 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/g2c"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/g2c */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); DEF(YevalSg2cYg2c_goo,"eval/g2c","g2c-goo"); DEF(YevalSg2cYDnow_mod_var_name,"eval/g2c","$now-mod-var-name"); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); DEF(YevalSg2cYTregisters_per_lineT,"eval/g2c","*registers-per-line*"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); DEF(YevalSg2cYcompute_ast,"eval/g2c","compute-ast"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); DEF(YevalSg2cYinclude_filename,"eval/g2c","include-filename"); EXT(YgooStypesYLbotG,"goo/types",""); DEF(YevalSg2cYgen_result,"eval/g2c","gen-result"); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalStopYsave_image,"eval/top","save-image"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalStopYframe_var,"eval/top","frame-var"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YevalStopYbacktrace,"eval/top","backtrace"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); DEF(YevalSg2cYTmangle_bufferT,"eval/g2c","*mangle-buffer*"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); DEF(YevalSg2cYgenerate_function_forwards,"eval/g2c","generate-function-forwards"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YevalSast_linearizeYLfree_referenceG,"eval/ast-linearize",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); DEF(YevalSg2cYmangle_local_name,"eval/g2c","mangle-local-name"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); DEF(YevalSg2cYgenerate_global_environment,"eval/g2c","generate-global-environment"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); DEF(YevalSg2cYgenerate_c_application,"eval/g2c","generate-c-application"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YevalSast_linearizeYgather_temporariesX,"eval/ast-linearize","gather-temporaries!"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); EXT(YgooSsystemYos_val,"goo/system","os-val"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YevalStopYg2c_eval,"eval/top","g2c-eval"); EXT(YLflatG,"goo/boot",""); EXT(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YevalSast_linearizeYclosurize_mainX,"eval/ast-linearize","closurize-main!"); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); DEF(YevalSg2cYDmethod_mangled_marker_string,"eval/g2c","$method-mangled-marker-string"); EXT(YgooSsystemYexe_filename,"goo/system","exe-filename"); DEF(YevalSg2cYgenerate_function_specs,"eval/g2c","generate-function-specs"); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(Yclass_gens,"goo/boot","class-gens"); DEF(YevalSg2cYgenerate_quotation,"eval/g2c","generate-quotation"); EXT(YgooSmathYT,"goo/math","*"); DEF(YevalSg2cYto_pc,"eval/g2c","to-pc"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(YevalSast_linearizeYinsert_boxX,"eval/ast-linearize","insert-box!"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DEF(YevalSg2cYmodule_src_file,"eval/g2c","module-src-file"); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YevalSast_linearizeYextract_thingsX,"eval/ast-linearize","extract-things!"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSast_linearizeYprogram_quotations,"eval/ast-linearize","program-quotations"); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); DEF(YevalSg2cYgenerate_quotations,"eval/g2c","generate-quotations"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YevalStopYdo_stack_frames,"eval/top","do-stack-frames"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YevalStopYtop,"eval/top","top"); DEF(YevalSg2cYmangle_global_name,"eval/g2c","mangle-global-name"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); DEF(YevalSg2cYg2c_exp,"eval/g2c","g2c-exp"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YevalSg2cYgenerate_main,"eval/g2c","generate-main"); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); DEF(YevalSg2cYDlocal_marker,"eval/g2c","$local-marker"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); DEF(YevalSg2cYDnumber_call_templates,"eval/g2c","$number-call-templates"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YevalStopYD,"eval/top","$"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSsystemYfile_copy,"goo/system","file-copy"); DEF(YevalSg2cYgenerate_local_temporaries,"eval/g2c","generate-local-temporaries"); EXT(YgooSsystemYos_name,"goo/system","os-name"); DEF(YevalSg2cYgenerate_module_info,"eval/g2c","generate-module-info"); DEF(YevalSg2cYmodule_init_decl,"eval/g2c","module-init-decl"); EXT(YevalStopYload,"eval/top","load"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YevalSg2cYgenerate_registers,"eval/g2c","generate-registers"); DEF(YevalSg2cYfuninit_to_c,"eval/g2c","funinit-to-c"); DEF(YevalSg2cYgenerate_function_code,"eval/g2c","generate-function-code"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YevalSastYLcomputed_programG,"eval/ast",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); DEF(YevalSg2cYg2c_def_app,"eval/g2c","g2c-def-app"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YevalSast_linearizeYLbox_writeG,"eval/ast-linearize",""); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); DEF(YevalSg2cYmangle_local_marked_name,"eval/g2c","mangle-local-marked-name"); DEF(YevalSg2cYgenerate_function_body_reference,"eval/g2c","generate-function-body-reference"); EXT(YgooSmathYdiv,"goo/math","div"); DEF(YevalSg2cYgenerate_trailer,"eval/g2c","generate-trailer"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSsystemYobj_filename,"goo/system","obj-filename"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); DEF(YevalSg2cYg2c_top,"eval/g2c","g2c-top"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YevalSast_linearizeYbox_form,"eval/ast-linearize","box-form"); DEF(YevalSg2cYfunshell_to_c,"eval/g2c","funshell-to-c"); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); DEF(YevalSg2cYmodule_loader_appname,"eval/g2c","module-loader-appname"); DEF(YevalSg2cYout_list_builder,"eval/g2c","out-list-builder"); DEF(YevalSg2cYgen_fab_list,"eval/g2c","gen-fab-list"); DEF(YevalSg2cYgen_refT,"eval/g2c","gen-ref*"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); EXT(YevalSast_linearizeYTregister_passiveQT,"eval/ast-linearize","*register-passive?*"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); DEF(YevalSg2cYbinding_Gc,"eval/g2c","binding->c"); DEF(YevalSg2cYreference_Gc,"eval/g2c","reference->c"); EXT(YevalStopYread_file,"eval/top","read-file"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); DEF(YevalSg2cYTlits_atT,"eval/g2c","*lits-at*"); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); EXT(YevalSast_linearizeYbox_reference,"eval/ast-linearize","box-reference"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YevalSast_linearizeYprogram_bindings,"eval/ast-linearize","program-bindings"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); DEF(YevalSg2cYDname_mangler_table,"eval/g2c","$name-mangler-table"); DEF(YevalSg2cYfloat_to_c_string,"eval/g2c","float-to-c-string"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); DEF(YevalSg2cYref_lit,"eval/g2c","ref-lit"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YevalSast_linearizeYreference_offset,"eval/ast-linearize","reference-offset"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); EXT(YevalStopYDDD,"eval/top","$$$"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); DEF(YevalSg2cYchar_buffer_as_string,"eval/g2c","char-buffer-as-string"); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YevalSg2cYgenerate_makefile,"eval/g2c","generate-makefile"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); DEF(YevalSg2cYmangle_boot_name,"eval/g2c","mangle-boot-name"); DEF(YevalSg2cYmangle_binding,"eval/g2c","mangle-binding"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YevalSastYLsequentialG,"eval/ast",""); DEF(YevalSg2cYgen_ref,"eval/g2c","gen-ref"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YgooSsystemYadd_build_path,"goo/system","add-build-path"); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(YevalSastYLdefinitionG,"eval/ast",""); DEF(YevalSg2cYgenerate_function_bodies,"eval/g2c","generate-function-bodies"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(YevalSast_linearizeYLbox_creationG,"eval/ast-linearize",""); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); DEF(YevalSg2cYmodule_mtime,"eval/g2c","module-mtime"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YevalStopYvm_evaluate,"eval/top","vm-evaluate"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YevalSast_linearizeYliftX,"eval/ast-linearize","lift!"); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); DEF(YevalSg2cYDlocal_suffix,"eval/g2c","$local-suffix"); EXT(YevalSoptimizeYtype_equivQ,"eval/optimize","type-equiv?"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); DEF(YevalSg2cYDmethod_mangled_marker,"eval/g2c","$method-mangled-marker"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); DEF(YevalSg2cYbbQ,"eval/g2c","bb?"); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(YevalStopYDD,"eval/top","$$"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); DEF(YevalSg2cYTtrace_registersQT,"eval/g2c","*trace-registers?*"); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(YgooSsystemYc_filename,"goo/system","c-filename"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YevalSastYLc_inlineG,"eval/ast",""); DEF(YevalSg2cYgenerate_global_binding,"eval/g2c","generate-global-binding"); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); DEF(YevalSg2cYg2c_clean,"eval/g2c","g2c-clean"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YevalSast_linearizeYLrenamed_local_bindingG,"eval/ast-linearize",""); DEF(YevalSg2cYmangle_raw_name,"eval/g2c","mangle-raw-name"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); DEF(YevalSg2cYto_c,"eval/g2c","to-c"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); DEF(YevalSg2cYLg2c_module_loaderG,"eval/g2c",""); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(YevalSast_linearizeYreference_selfQ,"eval/ast-linearize","reference-self?"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YevalSg2cYgenerate_module_init,"eval/g2c","generate-module-init"); DEF(YevalSg2cYDmax_character_code,"eval/g2c","$max-character-code"); EXT(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); DEF(YevalSg2cYmangle_string_literal,"eval/g2c","mangle-string-literal"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); DEF(YevalSg2cYdispatcherQ,"eval/g2c","dispatcher?"); EXT(YgooSsystemYtime,"goo/system","time"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YevalStopYframe,"eval/top","frame"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YOlit,"goo/boot","@lit"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); DYNDEF(YevalSg2cYTloop_arg_counterT,"eval/g2c","*loop-arg-counter*"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); EXT(YevalSast_linearizeYprogram_form,"eval/ast-linearize","program-form"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); DEF(YevalSg2cYmangle_module_into,"eval/g2c","mangle-module-into"); EXT(YOtup,"goo/boot","@tup"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YevalSastYLmonitorG,"eval/ast",""); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YevalSg2cYpurge_outdated_modules,"eval/g2c","purge-outdated-modules"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); DEF(YevalSg2cYgenerate_quotation_forwards,"eval/g2c","generate-quotation-forwards"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); EXT(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); DEF(YevalSg2cYDescape_marker,"eval/g2c","$escape-marker"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); DEF(YevalSg2cYgenerate_function_binding,"eval/g2c","generate-function-binding"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSioSwriteYrecurring_write,"goo/io/write","recurring-write"); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); DEF(YevalSg2cYDiep_marker,"eval/g2c","$iep-marker"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YevalSastYLassignmentG,"eval/ast",""); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YevalSast_linearizeYLbox_readG,"eval/ast-linearize",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSsystemYfile_type,"goo/system","file-type"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); DEF(YevalSg2cYgenerate_header,"eval/g2c","generate-header"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); DEF(YevalSg2cYDnumber_characters,"eval/g2c","$number-characters"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(YevalSast_linearizeYclosure_creation_index,"eval/ast-linearize","closure-creation-index"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); DEF(YevalSg2cYgenerate_c_module,"eval/g2c","generate-c-module"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); DEF(YevalSg2cYgenerate_c_forms,"eval/g2c","generate-c-forms"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); DEF(YevalSg2cYpp,"eval/g2c","pp"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); EXT(YevalSast_linearizeYflatten_seqs,"eval/ast-linearize","flatten-seqs"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); DEF(YevalSg2cYgenerate_closure_structure,"eval/g2c","generate-closure-structure"); DEF(YevalSg2cYmodule_mtime_setter,"eval/g2c","module-mtime-setter"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); EXT(Yfun_info_count,"goo/boot","fun-info-count"); DEF(YevalSg2cYg2c_build_app,"eval/g2c","g2c-build-app"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); DEF(YevalSg2cYg2c_ast,"eval/g2c","g2c-ast"); DEF(YevalSg2cYcompile_load,"eval/g2c","compile-load"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(YevalSast_linearizeYclosure_creation_free,"eval/ast-linearize","closure-creation-free"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YevalSsyntaxYeval,"eval/syntax","eval"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YevalSast_linearizeYLtop_level_formG,"eval/ast-linearize",""); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); DEF(YevalSg2cYDmodule_separator,"eval/g2c","$module-separator"); EXT(YOrev,"goo/boot","@rev"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YevalSoptimizeYanalyze_calls,"eval/optimize","analyze-calls"); EXT(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); DYNDEF(YevalSg2cYTtmp_file_counterT,"eval/g2c","*tmp-file-counter*"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); DEF(YevalSg2cYDmangles_data,"eval/g2c","$mangles-data"); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YevalStopYload_file,"eval/top","load-file"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(YevalSoptimizeYunconstrained_typeQ,"eval/optimize","unconstrained-type?"); EXT(YevalSoptimizeYsorted_applicable_methods_using_types,"eval/optimize","sorted-applicable-methods-using-types"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); DEF(YevalSg2cYDc_escapes,"eval/g2c","$c-escapes"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); DYNDEF(YevalSg2cYTdefinitionsT,"eval/g2c","*definitions*"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSoptimizeYpotentially_jointQ,"eval/optimize","potentially-joint?"); DEF(YevalSg2cYdeclare_imported_module_infos,"eval/g2c","declare-imported-module-infos"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); DEF(YevalSg2cYDhygiene_char,"eval/g2c","$hygiene-char"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); DEF(YevalSg2cYTlitsT,"eval/g2c","*lits*"); EXT(YOOEE,"goo/boot","@@=="); EXT(YevalSast_linearizeYLclosure_creationG,"eval/ast-linearize",""); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); DEF(YevalSg2cYmodule_up_to_dateQ,"eval/g2c","module-up-to-date?"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YLchrG,"goo/boot",""); DEF(YevalSg2cYmangle_quotation_name,"eval/g2c","mangle-quotation-name"); EXT(YevalSastYLprogramG,"eval/ast",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YevalSast_linearizeYform_definitions,"eval/ast-linearize","form-definitions"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); DEF(YevalSg2cYmodule_src_file_setter,"eval/g2c","module-src-file-setter"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmathYA,"goo/math","+"); EXT(YevalSast_linearizeYregister_allocateX,"eval/ast-linearize","register-allocate!"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); EXT(YgooSsystemYLpathname_errorG,"goo/system",""); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); DEF(YevalSg2cYbuf_cat2X,"eval/g2c","buf-cat2!"); EXT(YevalSastYLalternativeG,"eval/ast",""); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); DEF(YevalSg2cYmodule_loader_app_modname,"eval/g2c","module-loader-app-modname"); DEF(YevalSg2cYgenerate_function_forward,"eval/g2c","generate-function-forward"); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YLsingletonG,"goo/boot",""); DEF(YevalSg2cYgen_depth,"eval/g2c","gen-depth"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(YevalSast_linearizeYform_quotations,"eval/ast-linearize","form-quotations"); DYNDEF(YevalSg2cYTgen_statementsQT,"eval/g2c","*gen-statements?*"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YevalSastYLast_methodG,"eval/ast",""); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); DEF(YevalSg2cYmangle_integer,"eval/g2c","mangle-integer"); EXT(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); DEF(YevalSg2cYmangle_name_into,"eval/g2c","mangle-name-into"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); DEF(YevalSg2cYTg2c_appT,"eval/g2c","*g2c-app*"); EXT(YLboxG,"goo/boot",""); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); DEF(YevalSg2cYfalse_name,"eval/g2c","false-name"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(Yfun_sig,"goo/boot","fun-sig"); DEF(YevalSg2cYcompute_program,"eval/g2c","compute-program"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooSsystemYcomponents_last,"goo/system","components-last"); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); DEF(YevalSg2cYg2c_test,"eval/g2c","g2c-test"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YevalSast_linearizeYform_program,"eval/ast-linearize","form-program"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); DEF(YevalSg2cYDmin_character_code,"eval/g2c","$min-character-code"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); DEF(YevalSg2cYgenerate_return,"eval/g2c","generate-return"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); EXT(YevalStopYbt,"eval/top","bt"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); DEF(YevalSg2cYmodule_init_name,"eval/g2c","module-init-name"); EXT(YgooSioSwriteYwrite_type,"goo/io/write","write-type"); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); DEF(YevalSg2cYmodule_info_name,"eval/g2c","module-info-name"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YevalStopYauto_eval,"eval/top","auto-eval"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSsystemYso_load,"goo/system","so-load"); EXT(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YevalSastYLbind_exitG,"eval/ast",""); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YevalStopYesctst,"eval/top","esctst"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YevalStopYparse_in,"eval/top","parse-in"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); DEF(YevalSg2cYgenerate_functions,"eval/g2c","generate-functions"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); DEF(YevalSg2cYDiep_suffix,"eval/g2c","$iep-suffix"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); DEF(YevalSg2cYmangler_reset,"eval/g2c","mangler-reset"); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); DEF(YevalSg2cYDescape_separator,"eval/g2c","$escape-separator"); EXT(Ynil,"goo/boot","nil"); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); DEF(YevalSg2cYLg2c_moduleG,"eval/g2c",""); DEF(YevalSg2cYDmodule_marker,"eval/g2c","$module-marker"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSsystemYfile_mtime,"goo/system","file-mtime"); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSmoduleYLmoduleG,"eval/module",""); EXT(YevalSast_linearizeYprogram_definitions,"eval/ast-linearize","program-definitions"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); DEF(YevalSg2cYDhygiene_marker,"eval/g2c","$hygiene-marker"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_381); DEFLIT(lit_411); DEFLIT(lit_621); DEFLIT(lit_0); DEFLIT(lit_285); DEFLIT(lit_476); DEFLIT(lit_682); DEFLIT(lit_60); DEFLIT(lit_41); DEFLIT(lit_605); DEFLIT(lit_204); DEFLIT(lit_126); DEFLIT(lit_42); DEFLIT(lit_317); DEFLIT(lit_180); DEFLIT(lit_183); DEFLIT(lit_286); DEFLIT(lit_612); DEFLIT(lit_562); DEFLIT(lit_389); DEFLIT(lit_482); DEFLIT(lit_252); DEFLIT(lit_392); DEFLIT(lit_452); DEFLIT(lit_683); DEFLIT(lit_677); DEFLIT(lit_690); DEFLIT(lit_524); DEFLIT(lit_77); DEFLIT(lit_55); DEFLIT(lit_491); DEFLIT(lit_385); DEFLIT(lit_7); DEFLIT(lit_112); DEFLIT(lit_653); DEFLIT(lit_602); DEFLIT(lit_193); DEFLIT(lit_447); DEFLIT(lit_607); DEFLIT(lit_711); DEFLIT(lit_18); DEFLIT(lit_384); DEFLIT(lit_226); DEFLIT(lit_213); DEFLIT(lit_686); DEFLIT(lit_694); DEFLIT(lit_249); DEFLIT(lit_413); DEFLIT(lit_410); DEFLIT(lit_691); DEFLIT(lit_497); DEFLIT(lit_464); DEFLIT(lit_420); DEFLIT(lit_398); DEFLIT(lit_50); DEFLIT(lit_347); DEFLIT(lit_531); DEFLIT(lit_412); DEFLIT(lit_547); DEFLIT(lit_535); DEFLIT(lit_51); DEFLIT(lit_318); DEFLIT(lit_179); DEFLIT(lit_263); DEFLIT(lit_225); DEFLIT(lit_306); DEFLIT(lit_550); DEFLIT(lit_382); DEFLIT(lit_533); DEFLIT(lit_68); DEFLIT(lit_45); DEFLIT(lit_649); DEFLIT(lit_159); DEFLIT(lit_75); DEFLIT(lit_595); DEFLIT(lit_432); DEFLIT(lit_62); DEFLIT(lit_49); DEFLIT(lit_472); DEFLIT(lit_294); DEFLIT(lit_581); DEFLIT(lit_261); DEFLIT(lit_675); DEFLIT(lit_409); DEFLIT(lit_577); DEFLIT(lit_217); DEFLIT(lit_604); DEFLIT(lit_273); DEFLIT(lit_635); DEFLIT(lit_501); DEFLIT(lit_253); DEFLIT(lit_360); DEFLIT(lit_460); DEFLIT(lit_178); DEFLIT(lit_4); DEFLIT(lit_651); DEFLIT(lit_596); DEFLIT(lit_489); DEFLIT(lit_186); DEFLIT(lit_187); DEFLIT(lit_697); DEFLIT(lit_313); DEFLIT(lit_521); DEFLIT(lit_84); DEFLIT(lit_494); DEFLIT(lit_536); DEFLIT(lit_34); DEFLIT(lit_58); DEFLIT(lit_327); DEFLIT(lit_400); DEFLIT(lit_415); DEFLIT(lit_403); DEFLIT(lit_27); DEFLIT(lit_549); DEFLIT(lit_417); DEFLIT(lit_459); DEFLIT(lit_284); DEFLIT(lit_356); DEFLIT(lit_370); DEFLIT(lit_334); DEFLIT(lit_554); DEFLIT(lit_393); DEFLIT(lit_36); DEFLIT(lit_211); DEFLIT(lit_457); DEFLIT(lit_250); DEFLIT(lit_352); DEFLIT(lit_565); DEFLIT(lit_442); DEFLIT(lit_338); DEFLIT(lit_443); DEFLIT(lit_500); DEFLIT(lit_510); DEFLIT(lit_266); DEFLIT(lit_232); DEFLIT(lit_345); DEFLIT(lit_553); DEFLIT(lit_160); DEFLIT(lit_19); DEFLIT(lit_375); DEFLIT(lit_290); DEFLIT(lit_695); DEFLIT(lit_344); DEFLIT(lit_13); DEFLIT(lit_288); DEFLIT(lit_629); DEFLIT(lit_429); DEFLIT(lit_240); DEFLIT(lit_628); DEFLIT(lit_692); DEFLIT(lit_111); DEFLIT(lit_374); DEFLIT(lit_669); DEFLIT(lit_343); DEFLIT(lit_666); DEFLIT(lit_86); DEFLIT(lit_107); DEFLIT(lit_276); DEFLIT(lit_212); DEFLIT(lit_192); DEFLIT(lit_169); DEFLIT(lit_362); DEFLIT(lit_182); DEFLIT(lit_264); DEFLIT(lit_324); DEFLIT(lit_54); DEFLIT(lit_242); DEFLIT(lit_418); DEFLIT(lit_640); DEFLIT(lit_493); DEFLIT(lit_655); DEFLIT(lit_538); DEFLIT(lit_371); DEFLIT(lit_304); DEFLIT(lit_247); DEFLIT(lit_206); DEFLIT(lit_576); DEFLIT(lit_579); DEFLIT(lit_297); DEFLIT(lit_123); DEFLIT(lit_696); DEFLIT(lit_590); DEFLIT(lit_657); DEFLIT(lit_477); DEFLIT(lit_142); DEFLIT(lit_670); DEFLIT(lit_108); DEFLIT(lit_219); DEFLIT(lit_470); DEFLIT(lit_419); DEFLIT(lit_633); DEFLIT(lit_613); DEFLIT(lit_508); DEFLIT(lit_665); DEFLIT(lit_441); DEFLIT(lit_43); DEFLIT(lit_502); DEFLIT(lit_272); DEFLIT(lit_30); DEFLIT(lit_331); DEFLIT(lit_544); DEFLIT(lit_627); DEFLIT(lit_561); DEFLIT(lit_243); DEFLIT(lit_569); DEFLIT(lit_131); DEFLIT(lit_157); DEFLIT(lit_209); DEFLIT(lit_156); DEFLIT(lit_97); DEFLIT(lit_685); DEFLIT(lit_57); DEFLIT(lit_40); DEFLIT(lit_330); DEFLIT(lit_446); DEFLIT(lit_328); DEFLIT(lit_1); DEFLIT(lit_451); DEFLIT(lit_390); DEFLIT(lit_116); DEFLIT(lit_438); DEFLIT(lit_59); DEFLIT(lit_404); DEFLIT(lit_351); DEFLIT(lit_377); DEFLIT(lit_578); DEFLIT(lit_399); DEFLIT(lit_672); DEFLIT(lit_311); DEFLIT(lit_437); DEFLIT(lit_674); DEFLIT(lit_428); DEFLIT(lit_594); DEFLIT(lit_15); DEFLIT(lit_76); DEFLIT(lit_67); DEFLIT(lit_600); DEFLIT(lit_566); DEFLIT(lit_589); DEFLIT(lit_406); DEFLIT(lit_511); DEFLIT(lit_195); DEFLIT(lit_676); DEFLIT(lit_509); DEFLIT(lit_319); DEFLIT(lit_185); DEFLIT(lit_325); DEFLIT(lit_387); DEFLIT(lit_349); DEFLIT(lit_134); DEFLIT(lit_646); DEFLIT(lit_172); DEFLIT(lit_378); DEFLIT(lit_503); DEFLIT(lit_357); DEFLIT(lit_583); DEFLIT(lit_322); DEFLIT(lit_704); DEFLIT(lit_277); DEFLIT(lit_520); DEFLIT(lit_391); DEFLIT(lit_307); DEFLIT(lit_140); DEFLIT(lit_218); DEFLIT(lit_434); DEFLIT(lit_592); DEFLIT(lit_369); DEFLIT(lit_258); DEFLIT(lit_244); DEFLIT(lit_321); DEFLIT(lit_623); DEFLIT(lit_668); DEFLIT(lit_150); DEFLIT(lit_139); DEFLIT(lit_89); DEFLIT(lit_436); DEFLIT(lit_433); DEFLIT(lit_380); DEFLIT(lit_72); DEFLIT(lit_274); DEFLIT(lit_122); DEFLIT(lit_386); DEFLIT(lit_424); DEFLIT(lit_593); DEFLIT(lit_499); DEFLIT(lit_440); DEFLIT(lit_303); DEFLIT(lit_221); DEFLIT(lit_336); DEFLIT(lit_618); DEFLIT(lit_227); DEFLIT(lit_439); DEFLIT(lit_118); DEFLIT(lit_492); DEFLIT(lit_11); DEFLIT(lit_552); DEFLIT(lit_644); DEFLIT(lit_335); DEFLIT(lit_425); DEFLIT(lit_238); DEFLIT(lit_645); DEFLIT(lit_177); DEFLIT(lit_110); DEFLIT(lit_507); DEFLIT(lit_28); DEFLIT(lit_408); DEFLIT(lit_373); DEFLIT(lit_637); DEFLIT(lit_647); DEFLIT(lit_693); DEFLIT(lit_291); DEFLIT(lit_104); DEFLIT(lit_203); DEFLIT(lit_113); DEFLIT(lit_551); DEFLIT(lit_473); DEFLIT(lit_96); DEFLIT(lit_599); DEFLIT(lit_427); DEFLIT(lit_598); DEFLIT(lit_33); DEFLIT(lit_302); DEFLIT(lit_46); DEFLIT(lit_580); DEFLIT(lit_582); DEFLIT(lit_175); DEFLIT(lit_268); DEFLIT(lit_65); DEFLIT(lit_191); DEFLIT(lit_254); DEFLIT(lit_222); DEFLIT(lit_610); DEFLIT(lit_570); DEFLIT(lit_81); DEFLIT(lit_109); DEFLIT(lit_522); DEFLIT(lit_608); DEFLIT(lit_52); DEFLIT(lit_309); DEFLIT(lit_468); DEFLIT(lit_174); DEFLIT(lit_257); DEFLIT(lit_270); DEFLIT(lit_171); DEFLIT(lit_74); DEFLIT(lit_631); DEFLIT(lit_564); DEFLIT(lit_66); DEFLIT(lit_71); DEFLIT(lit_641); DEFLIT(lit_210); DEFLIT(lit_663); DEFLIT(lit_681); DEFLIT(lit_619); DEFLIT(lit_132); DEFLIT(lit_557); DEFLIT(lit_106); DEFLIT(lit_632); DEFLIT(lit_616); DEFLIT(lit_323); DEFLIT(lit_662); DEFLIT(lit_63); DEFLIT(lit_6); DEFLIT(lit_705); DEFLIT(lit_643); DEFLIT(lit_486); DEFLIT(lit_170); DEFLIT(lit_105); DEFLIT(lit_337); DEFLIT(lit_353); DEFLIT(lit_498); DEFLIT(lit_423); DEFLIT(lit_166); DEFLIT(lit_688); DEFLIT(lit_114); DEFLIT(lit_626); DEFLIT(lit_490); DEFLIT(lit_230); DEFLIT(lit_541); DEFLIT(lit_701); DEFLIT(lit_121); DEFLIT(lit_504); DEFLIT(lit_39); DEFLIT(lit_539); DEFLIT(lit_703); DEFLIT(lit_25); DEFLIT(lit_560); DEFLIT(lit_314); DEFLIT(lit_224); DEFLIT(lit_366); DEFLIT(lit_278); DEFLIT(lit_198); DEFLIT(lit_376); DEFLIT(lit_73); DEFLIT(lit_708); DEFLIT(lit_363); DEFLIT(lit_234); DEFLIT(lit_458); DEFLIT(lit_591); DEFLIT(lit_115); DEFLIT(lit_168); DEFLIT(lit_709); DEFLIT(lit_137); DEFLIT(lit_333); DEFLIT(lit_299); DEFLIT(lit_22); DEFLIT(lit_251); DEFLIT(lit_471); DEFLIT(lit_9); DEFLIT(lit_542); DEFLIT(lit_201); DEFLIT(lit_135); DEFLIT(lit_202); DEFLIT(lit_469); DEFLIT(lit_289); DEFLIT(lit_530); DEFLIT(lit_543); DEFLIT(lit_515); DEFLIT(lit_103); DEFLIT(lit_572); DEFLIT(lit_3); DEFLIT(lit_262); DEFLIT(lit_152); DEFLIT(lit_120); DEFLIT(lit_12); DEFLIT(lit_271); DEFLIT(lit_455); DEFLIT(lit_523); DEFLIT(lit_526); DEFLIT(lit_133); DEFLIT(lit_153); DEFLIT(lit_205); DEFLIT(lit_184); DEFLIT(lit_5); DEFLIT(lit_164); DEFLIT(lit_70); DEFLIT(lit_2); DEFLIT(lit_8); DEFLIT(lit_611); DEFLIT(lit_454); DEFLIT(lit_208); DEFLIT(lit_200); DEFLIT(lit_574); DEFLIT(lit_359); DEFLIT(lit_79); DEFLIT(lit_292); DEFLIT(lit_658); DEFLIT(lit_329); DEFLIT(lit_350); DEFLIT(lit_680); DEFLIT(lit_24); DEFLIT(lit_149); DEFLIT(lit_340); DEFLIT(lit_308); DEFLIT(lit_82); DEFLIT(lit_394); DEFLIT(lit_53); DEFLIT(lit_397); DEFLIT(lit_358); DEFLIT(lit_710); DEFLIT(lit_587); DEFLIT(lit_162); DEFLIT(lit_320); DEFLIT(lit_636); DEFLIT(lit_617); DEFLIT(lit_678); DEFLIT(lit_603); DEFLIT(lit_449); DEFLIT(lit_90); DEFLIT(lit_236); DEFLIT(lit_372); DEFLIT(lit_199); DEFLIT(lit_488); DEFLIT(lit_38); DEFLIT(lit_614); DEFLIT(lit_673); DEFLIT(lit_485); DEFLIT(lit_233); DEFLIT(lit_124); DEFLIT(lit_281); DEFLIT(lit_609); DEFLIT(lit_99); DEFLIT(lit_540); DEFLIT(lit_467); DEFLIT(lit_506); DEFLIT(lit_23); DEFLIT(lit_659); DEFLIT(lit_283); DEFLIT(lit_237); DEFLIT(lit_689); DEFLIT(lit_56); DEFLIT(lit_98); DEFLIT(lit_255); DEFLIT(lit_405); DEFLIT(lit_355); DEFLIT(lit_146); DEFLIT(lit_421); DEFLIT(lit_241); DEFLIT(lit_316); DEFLIT(lit_586); DEFLIT(lit_119); DEFLIT(lit_165); DEFLIT(lit_228); DEFLIT(lit_383); DEFLIT(lit_229); DEFLIT(lit_537); DEFLIT(lit_346); DEFLIT(lit_650); DEFLIT(lit_194); DEFLIT(lit_639); DEFLIT(lit_298); DEFLIT(lit_517); DEFLIT(lit_130); DEFLIT(lit_555); DEFLIT(lit_295); DEFLIT(lit_698); DEFLIT(lit_478); DEFLIT(lit_141); DEFLIT(lit_684); DEFLIT(lit_312); DEFLIT(lit_430); DEFLIT(lit_128); DEFLIT(lit_505); DEFLIT(lit_88); DEFLIT(lit_706); DEFLIT(lit_167); DEFLIT(lit_495); DEFLIT(lit_282); DEFLIT(lit_368); DEFLIT(lit_215); DEFLIT(lit_260); DEFLIT(lit_37); DEFLIT(lit_155); DEFLIT(lit_129); DEFLIT(lit_568); DEFLIT(lit_220); DEFLIT(lit_158); DEFLIT(lit_216); DEFLIT(lit_280); DEFLIT(lit_652); DEFLIT(lit_597); DEFLIT(lit_545); DEFLIT(lit_102); DEFLIT(lit_64); DEFLIT(lit_143); DEFLIT(lit_78); DEFLIT(lit_279); DEFLIT(lit_656); DEFLIT(lit_525); DEFLIT(lit_571); DEFLIT(lit_518); DEFLIT(lit_588); DEFLIT(lit_267); DEFLIT(lit_624); DEFLIT(lit_35); DEFLIT(lit_91); DEFLIT(lit_300); DEFLIT(lit_654); DEFLIT(lit_567); DEFLIT(lit_14); DEFLIT(lit_546); DEFLIT(lit_85); DEFLIT(lit_466); DEFLIT(lit_287); DEFLIT(lit_414); DEFLIT(lit_585); DEFLIT(lit_127); DEFLIT(lit_422); DEFLIT(lit_661); DEFLIT(lit_231); DEFLIT(lit_117); DEFLIT(lit_87); DEFLIT(lit_163); DEFLIT(lit_101); DEFLIT(lit_479); DEFLIT(lit_396); DEFLIT(lit_94); DEFLIT(lit_512); DEFLIT(lit_20); DEFLIT(lit_10); DEFLIT(lit_513); DEFLIT(lit_707); DEFLIT(lit_296); DEFLIT(lit_21); DEFLIT(lit_80); DEFLIT(lit_463); DEFLIT(lit_154); DEFLIT(lit_563); DEFLIT(lit_573); DEFLIT(lit_93); DEFLIT(lit_173); DEFLIT(lit_630); DEFLIT(lit_700); DEFLIT(lit_620); DEFLIT(lit_534); DEFLIT(lit_145); DEFLIT(lit_16); DEFLIT(lit_245); DEFLIT(lit_348); DEFLIT(lit_235); DEFLIT(lit_161); DEFLIT(lit_395); DEFLIT(lit_339); DEFLIT(lit_456); DEFLIT(lit_401); DEFLIT(lit_462); DEFLIT(lit_514); DEFLIT(lit_532); DEFLIT(lit_519); DEFLIT(lit_527); DEFLIT(lit_341); DEFLIT(lit_461); DEFLIT(lit_448); DEFLIT(lit_529); DEFLIT(lit_223); DEFLIT(lit_606); DEFLIT(lit_207); DEFLIT(lit_256); DEFLIT(lit_559); DEFLIT(lit_379); DEFLIT(lit_367); DEFLIT(lit_301); DEFLIT(lit_584); DEFLIT(lit_293); DEFLIT(lit_699); DEFLIT(lit_558); DEFLIT(lit_326); DEFLIT(lit_315); DEFLIT(lit_342); DEFLIT(lit_402); DEFLIT(lit_642); DEFLIT(lit_365); DEFLIT(lit_487); DEFLIT(lit_176); DEFLIT(lit_275); DEFLIT(lit_248); DEFLIT(lit_246); DEFLIT(lit_196); DEFLIT(lit_361); DEFLIT(lit_445); DEFLIT(lit_69); DEFLIT(lit_259); DEFLIT(lit_660); DEFLIT(lit_148); DEFLIT(lit_548); DEFLIT(lit_638); DEFLIT(lit_269); DEFLIT(lit_332); DEFLIT(lit_474); DEFLIT(lit_687); DEFLIT(lit_61); DEFLIT(lit_197); DEFLIT(lit_354); DEFLIT(lit_151); DEFLIT(lit_144); DEFLIT(lit_516); DEFLIT(lit_450); DEFLIT(lit_465); DEFLIT(lit_190); DEFLIT(lit_188); DEFLIT(lit_648); DEFLIT(lit_95); DEFLIT(lit_136); DEFLIT(lit_435); DEFLIT(lit_388); DEFLIT(lit_667); DEFLIT(lit_416); DEFLIT(lit_496); DEFLIT(lit_702); DEFLIT(lit_310); DEFLIT(lit_431); DEFLIT(lit_407); DEFLIT(lit_480); DEFLIT(lit_601); DEFLIT(lit_426); DEFLIT(lit_31); DEFLIT(lit_679); DEFLIT(lit_556); DEFLIT(lit_615); DEFLIT(lit_181); DEFLIT(lit_92); DEFLIT(lit_83); DEFLIT(lit_44); DEFLIT(lit_17); DEFLIT(lit_481); DEFLIT(lit_138); DEFLIT(lit_364); DEFLIT(lit_671); DEFLIT(lit_48); DEFLIT(lit_26); DEFLIT(lit_305); DEFLIT(lit_528); DEFLIT(lit_444); DEFLIT(lit_265); DEFLIT(lit_100); DEFLIT(lit_239); DEFLIT(lit_475); DEFLIT(lit_32); DEFLIT(lit_622); DEFLIT(lit_29); DEFLIT(lit_634); DEFLIT(lit_625); DEFLIT(lit_575); DEFLIT(lit_664); DEFLIT(lit_147); DEFLIT(lit_125); DEFLIT(lit_484); DEFLIT(lit_189); DEFLIT(lit_483); DEFLIT(lit_47); DEFLIT(lit_453); DEFLIT(lit_214); /* FUNCTIONS: */ LOCFOR(fun_module_loader_appname_0); LOCFOR(fun_module_loader_app_modname_1); LOCFOR(fun_module_src_file_2); LOCFOR(fun_module_src_file_setter_3); LOCFOR(fun_module_mtime_4); LOCFOR(fun_module_mtime_setter_5); LOCFOR(fun_module_loader_module_type_6); LOCFOR(fun_7); LOCFOR(fun_8); LOCFOR(fun_9); LOCFOR(fun_10); LOCFOR(fun_11); LOCFOR(fun_load_module_12); FUNFOR(YevalSg2cYmodule_up_to_dateQ); LOCFOR(fun_14); LOCFOR(fun_15); FUNFOR(YevalSg2cYpurge_outdated_modules); FUNFOR(YevalSg2cYg2c_def_app); LOCFOR(fun_18); LOCFOR(fun_19); FUNFOR(YevalSg2cYg2c_build_app); FUNFOR(YevalSg2cYg2c_test); LOCFOR(fun_22); LOCFOR(fun_23); LOCFOR(fun_24); LOCFOR(fun_25); LOCFOR(fun_26); LOCFOR(fun_27); LOCFOR(fun_g2c_ast_28); LOCFOR(fun_g2c_exp_29); LOCFOR(fun_30); LOCFOR(fun_31); LOCFOR(fun_compile_load_32); LOCFOR(fun_g2c_eval_33); LOCFOR(fun_g2c_eval_34); LOCFOR(fun_g2c_top_35); LOCFOR(fun_g2c_clean_36); LOCFOR(fun_compute_ast_37); LOCFOR(fun_compute_program_38); LOCFOR(fun_generate_c_module_39); LOCFOR(fun_40); LOCFOR(fun_41); LOCFOR(fun_generate_c_application_42); LOCFOR(fun_x_1623_43); LOCFOR(fun_44); LOCFOR(fun_45); LOCFOR(fun_46); LOCFOR(fun_47); LOCFOR(fun_put_obj_48); LOCFOR(fun_49); LOCFOR(fun_50); LOCFOR(fun_51); LOCFOR(fun_52); LOCFOR(fun_53); LOCFOR(fun_54); LOCFOR(fun_55); LOCFOR(fun_generate_makefile_56); LOCFOR(fun_generate_c_forms_57); LOCFOR(fun_pp_58); LOCFOR(fun_include_filename_59); LOCFOR(fun_include_filename_60); LOCFOR(fun_include_filename_61); LOCFOR(fun_62); LOCFOR(fun_generate_header_63); LOCFOR(fun_generate_trailer_64); LOCFOR(fun_gen_binding_65); LOCFOR(fun_generate_global_environment_66); LOCFOR(fun_generate_global_binding_67); FUNFOR(YevalSg2cYchar_buffer_as_string); LOCFOR(fun_mangle_string_literal_69); LOCFOR(fun_mangle_string_literal_70); LOCFOR(fun_process_integer_71); LOCFOR(fun_mangle_integer_72); FUNFOR(YevalSg2cYmangler_reset); FUNFOR(YevalSg2cYmangle_name_into); LOCFOR(fun_mangle_raw_name_75); LOCFOR(fun_mangle_raw_name_76); LOCFOR(fun_mangle_local_name_77); LOCFOR(fun_mangle_local_name_78); FUNFOR(YevalSg2cYbuf_cat2X); LOCFOR(fun_mangle_module_into_80); LOCFOR(fun_mangle_global_name_81); LOCFOR(fun_mangle_global_name_82); FUNFOR(YevalSg2cYmangle_boot_name); FUNFOR(YevalSg2cYmangle_quotation_name); LOCFOR(fun_mangle_binding_85); FUNFOR(YevalSg2cYmangle_local_marked_name); LOCFOR(fun_mangle_binding_87); LOCFOR(fun_mangle_binding_88); LOCFOR(fun_x_1666_89); LOCFOR(fun_90); LOCFOR(fun_91); LOCFOR(fun_x_1670_92); LOCFOR(fun_93); LOCFOR(fun_94); LOCFOR(fun_x_1674_95); LOCFOR(fun_96); LOCFOR(fun_97); LOCFOR(fun_x_1678_98); LOCFOR(fun_99); LOCFOR(fun_100); LOCFOR(fun_gen_result_101); LOCFOR(fun_gen_depth_102); LOCFOR(fun_x_1685_103); LOCFOR(fun_104); LOCFOR(fun_105); LOCFOR(fun_x_1689_106); LOCFOR(fun_107); LOCFOR(fun_108); LOCFOR(fun_x_1693_109); LOCFOR(fun_110); LOCFOR(fun_111); LOCFOR(fun_x_1697_112); LOCFOR(fun_113); LOCFOR(fun_114); LOCFOR(fun_x_1701_115); LOCFOR(fun_116); LOCFOR(fun_117); LOCFOR(fun_generate_quotation_forwards_118); LOCFOR(fun_generate_quotations_119); FUNFOR(YOlit); LOCFOR(fun_121); LOCFOR(fun_ref_lit_122); LOCFOR(fun_generate_quotation_123); LOCFOR(fun_false_name_124); LOCFOR(fun_generate_quotation_125); LOCFOR(fun_generate_quotation_126); LOCFOR(fun_127); LOCFOR(fun_generate_quotation_128); LOCFOR(fun_generate_quotation_129); LOCFOR(fun_generate_quotation_130); LOCFOR(fun_131); LOCFOR(fun_float_to_c_string_132); LOCFOR(fun_generate_quotation_133); LOCFOR(fun_generate_quotation_134); LOCFOR(fun_generate_quotation_135); LOCFOR(fun_generate_quotation_136); LOCFOR(fun_generate_quotation_137); FUNFOR(YevalSg2cYbinding_Gc); LOCFOR(fun_reference_Gc_139); LOCFOR(fun_reference_Gc_140); LOCFOR(fun_to_c_141); LOCFOR(fun_to_c_142); LOCFOR(fun_gen_refT_143); LOCFOR(fun_gen_refT_144); LOCFOR(fun_gen_refT_145); LOCFOR(fun_gen_refT_146); LOCFOR(fun_gen_refT_147); LOCFOR(fun_gen_refT_148); LOCFOR(fun_gen_refT_149); LOCFOR(fun_gen_refT_150); LOCFOR(fun_gen_refT_151); FUNFOR(YevalSg2cYgen_ref); LOCFOR(fun_to_pc_153); LOCFOR(fun_to_c_154); LOCFOR(fun_to_c_155); LOCFOR(fun_to_c_156); LOCFOR(fun_to_c_157); LOCFOR(fun_to_c_158); LOCFOR(fun_bbQ_159); LOCFOR(fun_bbQ_160); LOCFOR(fun_bbQ_161); LOCFOR(fun_to_c_162); LOCFOR(fun_163); LOCFOR(fun_164); LOCFOR(fun_165); LOCFOR(fun_to_c_166); LOCFOR(fun_167); LOCFOR(fun_168); LOCFOR(fun_to_c_169); LOCFOR(fun_to_c_170); LOCFOR(fun_to_c_171); LOCFOR(fun_to_c_172); LOCFOR(fun_173); LOCFOR(fun_174); LOCFOR(fun_to_c_175); LOCFOR(fun_176); LOCFOR(fun_177); LOCFOR(fun_178); LOCFOR(fun_179); LOCFOR(fun_to_c_180); LOCFOR(fun_to_c_181); LOCFOR(fun_182); LOCFOR(fun_to_c_183); LOCFOR(fun_to_c_184); LOCFOR(fun_to_c_185); LOCFOR(fun_to_c_186); LOCFOR(fun_187); LOCFOR(fun_188); LOCFOR(fun_to_c_189); LOCFOR(fun_190); LOCFOR(fun_to_c_191); LOCFOR(fun_funshell_to_c_192); LOCFOR(fun_193); LOCFOR(fun_funinit_to_c_194); LOCFOR(fun_to_c_195); LOCFOR(fun_out_list_builder_196); LOCFOR(fun_197); LOCFOR(fun_gen_fab_list_198); LOCFOR(fun_generate_function_specs_199); LOCFOR(fun_200); LOCFOR(fun_to_c_201); LOCFOR(fun_to_c_202); LOCFOR(fun_generate_function_forwards_203); LOCFOR(fun_204); LOCFOR(fun_205); LOCFOR(fun_generate_function_forward_206); LOCFOR(fun_generate_function_binding_207); LOCFOR(fun_generate_function_forward_208); LOCFOR(fun_209); LOCFOR(fun_generate_function_bodies_210); LOCFOR(fun_211); LOCFOR(fun_generate_functions_212); LOCFOR(fun_generate_closure_structure_213); LOCFOR(fun_generate_function_body_reference_214); LOCFOR(fun_generate_return_215); LOCFOR(fun_generate_return_216); LOCFOR(fun_217); LOCFOR(fun_218); LOCFOR(fun_generate_function_code_219); LOCFOR(fun_dispatcherQ_220); LOCFOR(fun_221); LOCFOR(fun_222); LOCFOR(fun_223); LOCFOR(fun_generate_function_code_224); LOCFOR(fun_generate_local_temporaries_225); LOCFOR(fun_generate_registers_226); LOCFOR(fun_module_info_name_227); LOCFOR(fun_maybe_declare_228); LOCFOR(fun_229); FUNFOR(YevalSg2cYdeclare_imported_module_infos); LOCFOR(fun_231); LOCFOR(fun_232); FUNFOR(YevalSg2cYgenerate_module_info); LOCFOR(fun_module_init_name_234); LOCFOR(fun_module_init_decl_235); LOCFOR(fun_generate_module_init_236); LOCFOR(fun_generate_main_237); extern P YevalSg2cY___main_0___ (); extern P YevalSg2cY___main_1___ (); extern P YevalSg2cY___main_2___ (); extern P YevalSg2cY___main_3___ (); extern P YevalSg2cY___main_4___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_module_loader_appname_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSg2cYmodule_loader_appname)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_app_modname_1) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSg2cYmodule_loader_app_modname)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_src_file_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSg2cYmodule_src_file)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_src_file_setter_3) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSg2cYmodule_src_file)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_mtime_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSg2cYmodule_mtime)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_mtime_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSg2cYmodule_mtime)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_module_type_6) { P loader_; LINK_STACK(); ARG(loader_, 0); UNLINK_STACK(); RET(VARREF(YevalSg2cYLg2c_moduleG)); } LOCCODEDEF(fun_7) { P T0,T1,T2; LINK_STACK(); T0 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),FREEREF(0)); DYNSET(YevalSg2cYTdefinitionsT,T0); T2 = BOXGET(FREEREF(1)); T1 = CALL4(1,VARREF(YevalSg2cYgenerate_c_module),T2,FREEREF(2),FREEREF(0),FREEREF(3)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_8) { P T0; LINK_STACK(); T0 = DYNSET(YevalSg2cYTdefinitionsT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P x_1615F4693; P T0,T1,T2,T3; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_out_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); x_1615F4693 = DYNREF(YevalSg2cYTdefinitionsT); T2 = FUNFAB(fun_7,4,FREEREF(2),FREEREF(0),FREEREF(3),FREEREF(4)); T3 = FUNFAB(fun_8,1,x_1615F4693); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_10) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_11) { P name_; P tmpF4697; P src_fileF4696; P build_fileF4695; P fileF4694; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(name_, 0); T10 = CALL1(1,VARREF(YevalSmoduleYmodule_name_to_relpath),name_); fileF4694 = T10; T9 = CALL2(1,VARREF(YgooSsystemYadd_build_path),FREEREF(0),fileF4694); build_fileF4695 = T9; T8 = CALL1(1,VARREF(YgooSsystemYadd_src_path),fileF4694); src_fileF4696 = T8; T6 = CALL1(1,VARREF(YgooSsystemYfile_existsQ),build_fileF4695); T5 = CALL1(1,VARREF(Ynot),T6); tmpF4697 = T5; if (tmpF4697 != YPfalse) { T1 = tmpF4697; } else { T3 = CALL1(1,VARREF(YgooSsystemYfile_mtime),src_fileF4696); T4 = CALL1(1,VARREF(YgooSsystemYfile_mtime),build_fileF4695); T2 = CALL2(1,VARREF(YgooSmagYGE),T3,T4); T1 = T2; } if (T1 != YPfalse) { T7 = CALL2(1,VARREF(YgooSsystemYfile_copy),src_fileF4696,build_fileF4695); T0 = T7; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_load_module_12) { P loader_,name_; P out_portF4707; P prgF4706; P astF4705; P out_fileF4704; P appnameF4703; P src_fileF4702; P fileF4701; P envF4700; P keepmodQF4699; P modF4698; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(loader_, 0); ARG(name_, 1); T20 = CALL2(1,VARREF(YevalSastYfab_g2c_module),loader_,name_); modF4698 = T20; keepmodQF4699 = YPfalse; T19 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),modF4698); envF4700 = T19; T18 = CALL1(1,VARREF(YevalSmoduleYmodule_name_to_relpath),name_); fileF4701 = T18; T17 = CALL1(1,VARREF(YgooSsystemYgoo_filename),fileF4701); T16 = CALL1(1,VARREF(YgooSsystemYadd_src_path),T17); src_fileF4702 = T16; T15 = CALL1(1,VARREF(YevalSg2cYmodule_loader_appname),loader_); appnameF4703 = T15; T14 = CALL1(1,VARREF(YgooSsystemYc_filename),fileF4701); T13 = CALL2(1,VARREF(YgooSsystemYadd_build_path),appnameF4703,T14); out_fileF4704 = T13; CALL2(1,VARREF(YevalSg2cYmodule_src_file_setter),src_fileF4702,modF4698); T0 = CALL1(1,VARREF(YgooSsystemYfile_mtime),src_fileF4702); CALL2(1,VARREF(YevalSg2cYmodule_mtime_setter),T0,modF4698); T1 = (P)YPsu(LITREF(lit_18)); (P)YevalSg2cYPprint_cpu_usage(T1); T12 = CALL2(1,VARREF(YevalSg2cYcompute_ast),src_fileF4702,envF4700); astF4705 = T12; T11 = CALL2(1,VARREF(YevalSg2cYcompute_program),astF4705,envF4700); prgF4706 = T11; T2 = (P)YPsu(LITREF(lit_19)); (P)YevalSg2cYPprint_cpu_usage(T2); T3 = CALL1(1,VARREF(YgooSsystemYparent_directory),out_fileF4704); CALL1(1,VARREF(YgooSsystemYprobe_directory),T3); out_portF4707 = YPfalse; out_portF4707 = BOXFAB(out_portF4707); T6 = FUNFAB(fun_9,5,out_portF4707,out_fileF4704,prgF4706,astF4705,modF4698); T7 = FUNFAB(fun_10,1,out_portF4707); T5 = with_cleanup(T6,T7); T8 = FUNFAB(fun_11,1,appnameF4703); T9 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_files),modF4698); CALL2(1,VARREF(YgooSmacrosYdo),T8,T9); T10 = (P)YPsu(LITREF(lit_22)); (P)YevalSg2cYPprint_cpu_usage(T10); UNLINK_STACK(); RET(modF4698); } FUNCODEDEF(YevalSg2cYmodule_up_to_dateQ) { P mod_; P T0,T1,T2,T3; LINK_STACK(); ARG(mod_, 0); T1 = CALL1(1,VARREF(YevalSg2cYmodule_mtime),mod_); T3 = CALL1(1,VARREF(YevalSg2cYmodule_src_file),mod_); T2 = CALL1(1,VARREF(YgooSsystemYfile_mtime),T3); T0 = CALL2(1,VARREF(YgooSmagYGE),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_14) { P mod_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(mod_, 0); T2 = CALL1(1,VARREF(YevalSg2cYmodule_up_to_dateQ),mod_); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = BOXGET(FREEREF(0)); T6 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T4 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T5,T6); T3 = BOXPUT(T4,FREEREF(0)); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_15) { P name_; P x_1616F4708; P T0; LINK_STACK(); ARG(name_, 0); x_1616F4708 = VARREF(YgooSioSportYout); CALL2(1,VARREF(YgooSioSwriteYemit),x_1616F4708,name_); T0 = CALL2(1,VARREF(YgooSioSportYputs),x_1616F4708,LITREF(lit_29)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYpurge_outdated_modules) { P loader_; P changedF4709; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(loader_, 0); changedF4709 = Ynil; changedF4709 = BOXFAB(changedF4709); T1 = FUNFAB(fun_14,1,changedF4709); CALL2(1,VARREF(YevalSmoduleYdo_module_loader_modules),T1,loader_); T2 = fun_15; T3 = BOXGET(changedF4709); CALL2(1,VARREF(YgooSmacrosYdo),T2,T3); T5 = BOXGET(changedF4709); T4 = CALL2(1,VARREF(YevalSmoduleYremove_modules_by_nameX),loader_,T5); UNLINK_STACK(); QRET(T4); } FUNCODEDEF(YevalSg2cYg2c_def_app) { P appname_,modname_; P T0; LINK_STACK(); ARG(appname_, 0); ARG(modname_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YevalSg2cYLg2c_module_loaderG),VARREF(YevalSg2cYmodule_loader_appname),appname_,VARREF(YevalSg2cYmodule_loader_app_modname),modname_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_18) { P modF4710; P T0,T1; LINK_STACK(); DYNSET(YevalSmoduleYTdynamic_compilationQT,YPfalse); CALL1(1,VARREF(YevalSg2cYpurge_outdated_modules),FREEREF(0)); T1 = CALL1(1,VARREF(YevalSg2cYmodule_loader_app_modname),FREEREF(0)); T0 = CALL2(1,VARREF(YevalSmoduleYprobe_module),FREEREF(0),T1); modF4710 = T0; CALL2(1,VARREF(YgooSioSportYputs),VARREF(YgooSioSportYout),LITREF(lit_34)); CALL2(1,VARREF(YevalSmoduleYdo_module_loader_modules),VARREF(YevalSmoduleYreport_undefined_global_bindings),FREEREF(0)); CALL2(1,VARREF(YevalSg2cYgenerate_c_application),FREEREF(0),modF4710); CALL1(1,VARREF(YevalSg2cYgenerate_makefile),FREEREF(0)); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_19) { P T0; LINK_STACK(); T0 = DYNSET(YevalSmoduleYTdynamic_compilationQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYg2c_build_app) { P loader_; P x_1617F4711; P T0,T1,T2; LINK_STACK(); ARG(loader_, 0); x_1617F4711 = DYNREF(YevalSmoduleYTdynamic_compilationQT); T1 = FUNFAB(fun_18,1,loader_); T2 = FUNFAB(fun_19,1,x_1617F4711); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYg2c_test) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = CALL1(1,VARREF(YgooSanyYto_str),x_); T2 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_37),T3); T1 = CALL2(1,VARREF(YevalSg2cYg2c_def_app),T2,LITREF(lit_38)); T0 = VARSET(YevalSg2cYTg2c_appT,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P T0,T1,T2; LINK_STACK(); T0 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),FREEREF(0)); DYNSET(YevalSg2cYTdefinitionsT,T0); T2 = BOXGET(FREEREF(1)); T1 = CALL4(1,VARREF(YevalSg2cYgenerate_c_module),T2,FREEREF(2),FREEREF(0),FREEREF(3)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_23) { P T0; LINK_STACK(); T0 = DYNSET(YevalSg2cYTdefinitionsT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_24) { P x_1619F4712; P T0,T1,T2; LINK_STACK(); DYNSET(YevalSmoduleYTdynamic_compilationQT,YPtrue); x_1619F4712 = DYNREF(YevalSg2cYTdefinitionsT); T1 = FUNFAB(fun_22,4,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3)); T2 = FUNFAB(fun_23,1,x_1619F4712); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_25) { P T0; LINK_STACK(); T0 = DYNSET(YevalSmoduleYTdynamic_compilationQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_26) { P x_1618F4713; P T0,T1,T2,T3; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_out_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); x_1618F4713 = DYNREF(YevalSmoduleYTdynamic_compilationQT); T2 = FUNFAB(fun_24,4,FREEREF(2),FREEREF(0),FREEREF(3),FREEREF(4)); T3 = FUNFAB(fun_25,1,x_1618F4713); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_27) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_g2c_ast_28) { P ast_,env_; P out_portF4719; P prgF4718; P out_fileF4717; P fileF4716; P nameF4715; P modF4714; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(ast_, 0); ARG(env_, 1); T11 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),env_); modF4714 = T11; T8 = CALL0(1,VARREF(YgooSsystemYprocess_id)); T10 = CALL2(1,VARREF(YgooSmathYA),DYNREF(YevalSg2cYTtmp_file_counterT),YPint((P)1)); T9 = DYNSET(YevalSg2cYTtmp_file_counterT,T10); T7 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_41),T8,T9); nameF4715 = T7; T6 = CALL1(1,VARREF(YgooSsystemYadd_tmp_path),nameF4715); fileF4716 = T6; T5 = CALL1(1,VARREF(YgooSsystemYc_filename),fileF4716); out_fileF4717 = T5; T4 = CALL2(1,VARREF(YevalSg2cYcompute_program),ast_,env_); prgF4718 = T4; out_portF4719 = YPfalse; out_portF4719 = BOXFAB(out_portF4719); T2 = FUNFAB(fun_26,5,out_portF4719,out_fileF4717,prgF4718,ast_,modF4714); T3 = FUNFAB(fun_27,1,out_portF4719); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(fileF4716); } LOCCODEDEF(fun_g2c_exp_29) { P exp_,env_; P T0,T1; LINK_STACK(); ARG(exp_, 0); ARG(env_, 1); T1 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),exp_,env_,DYNREF(YevalSmoduleYTdynamic_compilationQT),YPfalse); T0 = CALL2(1,VARREF(YevalSg2cYg2c_ast),T1,env_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_30) { P U1_; P T0,T1; LINK_STACK(); ARG(U1_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),U1_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_48),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_31) { P U1_; P T0,T1; LINK_STACK(); ARG(U1_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),U1_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_50),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_compile_load_32) { P name_,mod_; P lstrF4723; P libsF4722; P istrF4721; P incsF4720; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(name_, 0); ARG(mod_, 1); T16 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_includes),mod_); incsF4720 = T16; T15 = fun_30; T14 = CALL2(1,VARREF(YgooSmacrosYmap),T15,incsF4720); T13 = CALL3(1,VARREF(YgooScolsScolYfold),VARREF(YgooSmacrosYcat),LITREF(lit_46),T14); istrF4721 = T13; T12 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_libraries),mod_); libsF4722 = T12; T11 = fun_31; T10 = CALL2(1,VARREF(YgooSmacrosYmap),T11,libsF4722); T9 = CALL3(1,VARREF(YgooScolsScolYfold),VARREF(YgooSmacrosYcat),LITREF(lit_46),T10); lstrF4723 = T9; T1 = CALL2(1,VARREF(YgooSmacrosYcat),name_,VARREF(YgooSsystemYTc_extensionT)); T0 = (P)YPsu(T1); T3 = CALL2(1,VARREF(YgooSmacrosYcat),name_,LITREF(lit_51)); T2 = (P)YPsu(T3); T4 = (P)YPsu(istrF4721); T5 = (P)YPsu(lstrF4723); (P)YgooSsystemYPcompile(T0,T2,T4,T5); T8 = CALL2(1,VARREF(YgooSmacrosYcat),name_,LITREF(lit_52)); T7 = (P)YPsu(T8); T6 = (P)YgooSsystemYPload(T7); UNLINK_STACK(); QRET(T6); } LOCCODEDEF(fun_g2c_eval_33) { P exp_,env_; P nameF4724; P T0,T1,T2; LINK_STACK(); ARG(exp_, 0); ARG(env_, 1); T2 = CALL2(1,VARREF(YevalSg2cYg2c_exp),exp_,env_); nameF4724 = T2; T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),env_); T0 = CALL2(1,VARREF(YevalSg2cYcompile_load),nameF4724,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_g2c_eval_34) { P ast_,env_; P nameF4725; P T0,T1,T2; LINK_STACK(); ARG(ast_, 0); ARG(env_, 1); T2 = CALL2(1,VARREF(YevalSg2cYg2c_ast),ast_,env_); nameF4725 = T2; T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),env_); T0 = CALL2(1,VARREF(YevalSg2cYcompile_load),nameF4725,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_g2c_top_35) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YevalSg2cYg2c_build_app),VARREF(YevalSg2cYTg2c_appT)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_g2c_clean_36) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YevalSg2cYg2c_def_app),LITREF(lit_59),LITREF(lit_38)); VARSET(YevalSg2cYTg2c_appT,T0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_compute_ast_37) { P filename_,ct_env_; P astF4727; P sexprF4726; P T0,T1,T2,T3; LINK_STACK(); ARG(filename_, 0); ARG(ct_env_, 1); T3 = CALL1(1,VARREF(YevalStopYread_file),filename_); sexprF4726 = T3; T0 = (P)YPsu(LITREF(lit_62)); (P)YevalSg2cYPprint_cpu_usage(T0); T2 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),sexprF4726,ct_env_,DYNREF(YevalSmoduleYTdynamic_compilationQT),YPfalse); astF4727 = T2; T1 = (P)YPsu(LITREF(lit_63)); (P)YevalSg2cYPprint_cpu_usage(T1); UNLINK_STACK(); QRET(astF4727); } LOCCODEDEF(fun_compute_program_38) { P e_,env_; P fltF4732; P prgF4731; P lftF4730; P boxF4729; P anaF4728; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(e_, 0); ARG(env_, 1); T11 = CALL2(1,VARREF(YevalSoptimizeYanalyze_calls),e_,env_); anaF4728 = T11; T0 = (P)YPsu(LITREF(lit_66)); (P)YevalSg2cYPprint_cpu_usage(T0); T10 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),anaF4728); boxF4729 = T10; T1 = (P)YPsu(LITREF(lit_67)); (P)YevalSg2cYPprint_cpu_usage(T1); T9 = CALL1(1,VARREF(YevalSast_linearizeYliftX),boxF4729); lftF4730 = T9; T2 = (P)YPsu(LITREF(lit_68)); (P)YevalSg2cYPprint_cpu_usage(T2); T8 = CALL1(1,VARREF(YevalSast_linearizeYextract_thingsX),lftF4730); prgF4731 = T8; T3 = (P)YPsu(LITREF(lit_69)); (P)YevalSg2cYPprint_cpu_usage(T3); T7 = CALL3(1,VARREF(YevalSast_linearizeYclosurize_mainX),prgF4731,env_,YPint((P)50)); fltF4732 = T7; T4 = (P)YPsu(LITREF(lit_70)); (P)YevalSg2cYPprint_cpu_usage(T4); CALL1(1,VARREF(YevalSast_linearizeYgather_temporariesX),fltF4732); T5 = (P)YPsu(LITREF(lit_71)); (P)YevalSg2cYPprint_cpu_usage(T5); CALL2(1,VARREF(YevalSast_linearizeYregister_allocateX),fltF4732,YPfalse); T6 = (P)YPsu(LITREF(lit_72)); (P)YevalSg2cYPprint_cpu_usage(T6); UNLINK_STACK(); QRET(prgF4731); } LOCCODEDEF(fun_generate_c_module_39) { P out_,e_,prg_,mod_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(out_, 0); ARG(e_, 1); ARG(prg_, 2); ARG(mod_, 3); CALL2(1,VARREF(YevalSg2cYgenerate_header),out_,mod_); CALL2(1,VARREF(YevalSg2cYgenerate_global_environment),out_,mod_); T0 = CALL1(1,VARREF(YevalSast_linearizeYprogram_quotations),prg_); CALL2(1,VARREF(YevalSg2cYgenerate_quotation_forwards),out_,T0); T1 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),prg_); CALL2(1,VARREF(YevalSg2cYgenerate_function_forwards),out_,T1); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_c_forms),mod_); CALL2(1,VARREF(YevalSg2cYgenerate_c_forms),out_,T2); T3 = CALL1(1,VARREF(YevalSast_linearizeYprogram_definitions),prg_); CALL2(1,VARREF(YevalSg2cYgenerate_function_bodies),out_,T3); T4 = CALL1(1,VARREF(Ynot),DYNREF(YevalSmoduleYTdynamic_compilationQT)); if (T4 != YPfalse) { T5 = CALL2(1,VARREF(YevalSg2cYgenerate_module_info),out_,mod_); } else { } T6 = CALL1(1,VARREF(YevalSast_linearizeYprogram_form),prg_); CALL3(1,VARREF(YevalSg2cYgenerate_module_init),out_,mod_,T6); CALL1(1,VARREF(YevalSg2cYgenerate_trailer),out_); UNLINK_STACK(); QRET(prg_); } LOCCODEDEF(fun_40) { P T0,T1,T2,T3,T4; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_out_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); T1 = BOXGET(FREEREF(0)); CALL2(1,VARREF(YevalSg2cYgenerate_header),T1,FREEREF(2)); T2 = BOXGET(FREEREF(0)); CALL2(1,VARREF(YevalSg2cYgenerate_main),T2,FREEREF(2)); T4 = BOXGET(FREEREF(0)); T3 = CALL1(1,VARREF(YevalSg2cYgenerate_trailer),T4); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_41) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_c_application_42) { P loader_,mod_; P out_portF4736; P out_nameF4735; P init_nameF4734; P appnameF4733; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(loader_, 0); ARG(mod_, 1); T7 = CALL1(1,VARREF(YevalSg2cYmodule_loader_appname),loader_); appnameF4733 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYcat),appnameF4733,LITREF(lit_77)); init_nameF4734 = T6; T5 = CALL1(1,VARREF(YgooSsystemYc_filename),init_nameF4734); T4 = CALL2(1,VARREF(YgooSsystemYadd_build_path),appnameF4733,T5); out_nameF4735 = T4; out_portF4736 = YPfalse; out_portF4736 = BOXFAB(out_portF4736); T2 = FUNFAB(fun_40,3,out_portF4736,out_nameF4735,mod_); T3 = FUNFAB(fun_41,1,out_portF4736); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_x_1623_43) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_82),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_44) { P return_; P x_1622F4749; P x_1622F4748; P x_1622F4747; P x_1622F4746; P x_1622F4745; P x_1622F4744; P x_1622F4743; P x_1622F4742; P bodyF4741; P loaderF4740; P modF4739; P x_1622F4738; P x_1623F4737; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; LINK_STACK(); ARG(return_, 0); T29 = FUNSHELL(0,fun_x_1623_43,2); x_1623F4737 = T29; FUNINIT(x_1623F4737, 2,FREEREF(0),return_); x_1622F4738 = FREEREF(0); modF4739 = YPfalse; loaderF4740 = YPfalse; bodyF4741 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1622F4738,VARREF(YLlstG)); if (T3 != YPfalse) { T15 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1622F4738,LITREF(lit_82),x_1623F4737); x_1622F4742 = T15; T13 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1622F4742,x_1623F4737); x_1622F4743 = T13; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1622F4743,x_1623F4737); modF4739 = T11; T12 = CALL1(1,VARREF(Ytail),x_1622F4743); x_1622F4744 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1622F4744,x_1623F4737); loaderF4740 = T9; T10 = CALL1(1,VARREF(Ytail),x_1622F4744); x_1622F4745 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1622F4745,x_1623F4737); x_1622F4746 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1622F4746,x_1623F4737); T8 = CALL1(1,VARREF(Ytail),x_1622F4745); x_1622F4747 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1622F4747,x_1623F4737); T14 = CALL1(1,VARREF(Ytail),x_1622F4742); x_1622F4748 = T14; bodyF4741 = x_1622F4748; x_1622F4749 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1622F4749,x_1623F4737); } else { T16 = CALL2(1,x_1623F4737,LITREF(lit_83),x_1622F4738); } T18 = CALL1(1,VARREF(Ylst),LITREF(lit_84)); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_85)); T25 = modF4739; T24 = CALL1(1,VARREF(Ylst),T25); T23 = CALL2(1,VARREF(YgooSmacrosYcat),T24,LITREF(lit_86)); T22 = CALL1(1,VARREF(Ylst),T23); T26 = bodyF4741; T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T26,LITREF(lit_86)); T19 = CALL1(1,VARREF(Ylst),T20); T28 = loaderF4740; T27 = CALL1(1,VARREF(Ylst),T28); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T27,LITREF(lit_86)); UNLINK_STACK(); QRET(T17); } LOCCODEDEF(fun_45) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_44,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_46) { P i_; P x_1627F4750; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(i_, 0); T2 = CALL1(1,VARREF(YevalSg2cYinclude_filename),i_); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T4 = BOXGET(FREEREF(0)); x_1627F4750 = T4; CALL2(1,VARREF(YgooSioSportYputs),x_1627F4750,LITREF(lit_98)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1627F4750,i_); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1627F4750,LITREF(lit_99)); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_47) { P mod_; P T0,T1,T2; LINK_STACK(); ARG(mod_, 0); T1 = FUNFAB(fun_46,1,FREEREF(0)); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_includes),mod_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_put_obj_48) { P name_; P x_1630F4751; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); T3 = BOXGET(FREEREF(0)); x_1630F4751 = T3; CALL2(1,VARREF(YgooSioSportYputs),x_1630F4751,LITREF(lit_105)); T1 = CALL1(1,VARREF(YevalSmoduleYmodule_name_to_relpath),name_); T0 = CALL1(1,VARREF(YgooSsystemYobj_filename),T1); CALL2(1,VARREF(YgooSioSwriteYemit),x_1630F4751,T0); T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1630F4751,LITREF(lit_106)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_49) { P name_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(name_, 0); T1 = CALL2(1,VARREF(YgooScolsSseqYsuffixQ),name_,LITREF(lit_108)); if (T1 != YPfalse) { T6 = CALL1(1,VARREF(YgooStypesYlen),name_); T5 = CALL2(1,VARREF(YgooSmathY_),T6,YPint((P)2)); T4 = CALL3(1,VARREF(YgooScolsSseqYsub),name_,YPint((P)0),T5); T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),T4); T2 = CALL1(0,FREEREF(0),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_50) { P n_; P T0; LINK_STACK(); ARG(n_, 0); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),n_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_51) { P mod_; P put_objF4752; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(mod_, 0); T6 = FUNSHELL(1,fun_put_obj_48,1); put_objF4752 = T6; FUNINIT(put_objF4752, 1,FREEREF(0)); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); CALL1(0,put_objF4752,T0); T2 = FUNFAB(fun_49,1,put_objF4752); T4 = fun_50; T5 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_files),mod_); T3 = CALL2(1,VARREF(YgooSmacrosYmap),T4,T5); T1 = CALL2(1,VARREF(YgooSmacrosYdo),T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_52) { P l_; P x_1634F4753; P T0,T1; LINK_STACK(); ARG(l_, 0); T1 = BOXGET(FREEREF(0)); x_1634F4753 = T1; CALL2(1,VARREF(YgooSioSportYputs),x_1634F4753,LITREF(lit_117)); T0 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1634F4753,l_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_53) { P mod_; P T0,T1,T2; LINK_STACK(); ARG(mod_, 0); T1 = FUNFAB(fun_52,1,FREEREF(0)); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_libraries),mod_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_54) { P x_1635F4762; P x_1633F4761; P x_1632F4760; P x_1631F4759; P x_1629F4758; P x_1628F4757; P x_1626F4756; P x_1625F4755; P x_1624F4754; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_out_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); T2 = BOXGET(FREEREF(0)); x_1624F4754 = T2; CALL2(1,VARREF(YgooSioSportYputs),x_1624F4754,LITREF(lit_91)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1624F4754,FREEREF(2)); T1 = CALL2(1,VARREF(YgooSioSportYputs),x_1624F4754,LITREF(lit_92)); T4 = BOXGET(FREEREF(0)); x_1625F4755 = T4; CALL2(1,VARREF(YgooSioSwriteYemit),x_1625F4755,VARREF(YgooSsystemYTc_extensionT)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1625F4755,VARREF(YgooSsystemYTobj_extensionT)); CALL2(1,VARREF(YgooSioSportYputs),x_1625F4755,LITREF(lit_93)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1625F4755,FREEREF(2)); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1625F4755,LITREF(lit_94)); T6 = BOXGET(FREEREF(0)); x_1626F4756 = T6; T5 = CALL2(1,VARREF(YgooSioSportYputs),x_1626F4756,LITREF(lit_95)); T7 = FUNFAB(fun_47,1,FREEREF(0)); CALL2(1,VARREF(YevalSmoduleYdo_module_loader_modules),T7,FREEREF(3)); T9 = BOXGET(FREEREF(0)); x_1628F4757 = T9; T8 = CALL2(1,VARREF(YgooSioSportYputs),x_1628F4757,LITREF(lit_100)); T11 = BOXGET(FREEREF(0)); x_1629F4758 = T11; T10 = CALL2(1,VARREF(YgooSioSportYputs),x_1629F4758,LITREF(lit_101)); T12 = FUNFAB(fun_51,1,FREEREF(0)); CALL2(1,VARREF(YevalSmoduleYdo_module_loader_modules),T12,FREEREF(3)); T15 = BOXGET(FREEREF(0)); x_1631F4759 = T15; CALL2(1,VARREF(YgooSioSportYputs),x_1631F4759,LITREF(lit_110)); T13 = CALL1(1,VARREF(YgooSsystemYobj_filename),FREEREF(4)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1631F4759,T13); T14 = CALL2(1,VARREF(YgooSioSportYputs),x_1631F4759,LITREF(lit_111)); T17 = BOXGET(FREEREF(0)); x_1632F4760 = T17; CALL2(1,VARREF(YgooSioSwriteYemit),x_1632F4760,FREEREF(5)); T16 = CALL2(1,VARREF(YgooSioSportYputs),x_1632F4760,LITREF(lit_112)); T19 = BOXGET(FREEREF(0)); x_1633F4761 = T19; CALL2(1,VARREF(YgooSioSportYputs),x_1633F4761,LITREF(lit_113)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1633F4761,FREEREF(5)); T18 = CALL2(1,VARREF(YgooSioSportYputs),x_1633F4761,LITREF(lit_114)); T20 = FUNFAB(fun_53,1,FREEREF(0)); CALL2(1,VARREF(YevalSmoduleYdo_module_loader_modules),T20,FREEREF(3)); T22 = BOXGET(FREEREF(0)); x_1635F4762 = T22; CALL2(1,VARREF(YgooSioSportYputs),x_1635F4762,LITREF(lit_118)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1635F4762,FREEREF(5)); T21 = CALL2(1,VARREF(YgooSioSportYputs),x_1635F4762,LITREF(lit_119)); UNLINK_STACK(); QRET(T21); } LOCCODEDEF(fun_55) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_makefile_56) { P loader_; P outF4768; P out_nameF4767; P sepF4766; P exe_nameF4765; P init_nameF4764; P appnameF4763; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(loader_, 0); T7 = CALL1(1,VARREF(YevalSg2cYmodule_loader_appname),loader_); appnameF4763 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYcat),appnameF4763,LITREF(lit_89)); init_nameF4764 = T6; T5 = CALL1(1,VARREF(YgooSsystemYexe_filename),appnameF4763); exe_nameF4765 = T5; sepF4766 = VARREF(YgooSsystemYTpath_separatorT); T4 = CALL2(1,VARREF(YgooSsystemYadd_build_path),appnameF4763,LITREF(lit_90)); out_nameF4767 = T4; outF4768 = YPfalse; outF4768 = BOXFAB(outF4768); T2 = FUNFAB(fun_54,6,outF4768,out_nameF4767,sepF4766,loader_,init_nameF4764,exe_nameF4765); T3 = FUNFAB(fun_55,1,outF4768); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_generate_c_forms_57) { P out_,definitions_; P defF4770; P x_1636F4769; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(out_, 0); ARG(definitions_, 1); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_122)); T6 = CALL1(1,VARREF(YgooScolsScolYenum),definitions_); x_1636F4769 = T6; LOOP_215: { P a215_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1636F4769); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1636F4769); defF4770 = T5; CALL4(1,VARREF(YevalSg2cYto_c),defF4770,YPfalse,YPint((P)0),out_); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1636F4769); a215_0 = T4; x_1636F4769 = a215_0; goto LOOP_215; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_pp_58) { P e_,out_; P T0; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite),out_,e_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_include_filename_59) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_include_filename_60) { P x_; P xF4771; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),x_); xF4771 = T4; T1 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),xF4771,LITREF(lit_129)); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YgooScolsSseqYsuffixQ),xF4771,LITREF(lit_130)); if (T3 != YPfalse) { T2 = xF4771; } else { T2 = YPfalse; } T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_include_filename_61) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooScolsSseqYsuffixQ),x_,LITREF(lit_132)); if (T1 != YPfalse) { T2 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_133),x_,LITREF(lit_134)); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_62) { P i_; P x_1641F4773; P ifnF4772; P T0,T1,T2; LINK_STACK(); ARG(i_, 0); T2 = CALL1(1,VARREF(YevalSg2cYinclude_filename),i_); ifnF4772 = T2; if (ifnF4772 != YPfalse) { x_1641F4773 = FREEREF(0); T1 = CALL2(1,VARREF(YgooSioSportYputs),x_1641F4773,LITREF(lit_141)); T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_header_63) { P out_,mod_; P x_1647F4784; P x_1646F4783; P x_1645F4782; P x_1644F4781; P x_1643F4780; P x_1642F4779; P x_1640F4778; P x_1639F4777; P x_1638F4776; P modvarF4775; P modnameF4774; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(out_, 0); ARG(mod_, 1); T13 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); modnameF4774 = T13; modvarF4775 = VARREF(YevalSg2cYDnow_mod_var_name); x_1638F4776 = out_; T0 = CALL2(1,VARREF(YgooSioSportYputs),x_1638F4776,LITREF(lit_137)); x_1639F4777 = out_; T1 = CALL2(1,VARREF(YgooSioSportYputs),x_1639F4777,LITREF(lit_138)); if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { x_1640F4778 = out_; T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1640F4778,LITREF(lit_139)); } else { } T3 = FUNFAB(fun_62,1,out_); T4 = CALL1(1,VARREF(YevalSmoduleYmodule_uses_c_includes),mod_); CALL2(1,VARREF(YgooSmacrosYdo),T3,T4); x_1642F4779 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1642F4779,LITREF(lit_142)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1642F4779,modvarF4775); T5 = CALL2(1,VARREF(YgooSioSportYputs),x_1642F4779,LITREF(lit_143)); x_1643F4780 = out_; T6 = CALL2(1,VARREF(YgooSioSportYputs),x_1643F4780,LITREF(lit_144)); x_1644F4781 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1644F4781,LITREF(lit_145)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1644F4781,modvarF4775); CALL2(1,VARREF(YgooSioSportYputs),x_1644F4781,LITREF(lit_146)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1644F4781,modvarF4775); T7 = CALL2(1,VARREF(YgooSioSportYputs),x_1644F4781,LITREF(lit_147)); CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,modnameF4774); x_1645F4782 = out_; T8 = CALL2(1,VARREF(YgooSioSportYputs),x_1645F4782,LITREF(lit_148)); x_1646F4783 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1646F4783,LITREF(lit_149)); T9 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_150)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1646F4783,T9); CALL2(1,VARREF(YgooSioSportYputs),x_1646F4783,LITREF(lit_151)); T10 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_152)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1646F4783,T10); CALL2(1,VARREF(YgooSioSportYputs),x_1646F4783,LITREF(lit_153)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1646F4783,modvarF4775); T11 = CALL2(1,VARREF(YgooSioSportYputs),x_1646F4783,LITREF(lit_154)); x_1647F4784 = out_; T12 = CALL2(1,VARREF(YgooSioSportYputs),x_1647F4784,LITREF(lit_155)); UNLINK_STACK(); QRET(T12); } LOCCODEDEF(fun_generate_trailer_64) { P out_; P x_1648F4785; P T0; LINK_STACK(); ARG(out_, 0); x_1648F4785 = out_; T0 = CALL2(1,VARREF(YgooSioSportYputs),x_1648F4785,LITREF(lit_158)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_binding_65) { P b_; P T0,T1,T2; LINK_STACK(); ARG(b_, 0); T2 = CALL2(1,VARREF(YevalSmoduleYbinding_native_toQ),b_,FREEREF(1)); T1 = CALL1(1,VARREF(Ynot),T2); T0 = CALL3(1,VARREF(YevalSg2cYgenerate_global_binding),FREEREF(0),T1,b_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_global_environment_66) { P out_,mod_; P gen_bindingF4787; P x_1649F4786; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(out_, 0); ARG(mod_, 1); x_1649F4786 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1649F4786,LITREF(lit_161)); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1649F4786,T0); T1 = CALL2(1,VARREF(YgooSioSportYputs),x_1649F4786,LITREF(lit_162)); T7 = FUNSHELL(0,fun_gen_binding_65,2); gen_bindingF4787 = T7; FUNINIT(gen_bindingF4787, 2,out_,mod_); if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYmodule_referenced_bindings),mod_); T3 = CALL2(1,VARREF(YgooSmacrosYdo),gen_bindingF4787,T4); T2 = T3; } else { T6 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T5 = CALL2(1,VARREF(YevalSmoduleYdo_static_global_bindings),gen_bindingF4787,T6); T2 = T5; } UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_generate_global_binding_67) { P out_,importedQ_,gb_; P x_1652F4794; P x_1651F4793; P x_1650F4792; P nameF4791; P tmpF4790; P tmpF4789; P kindF4788; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(out_, 0); ARG(importedQ_, 1); ARG(gb_, 2); T17 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),gb_); kindF4788 = T17; T5 = CALL2(1,VARREF(YgooSmacrosYEE),kindF4788,LITREF(lit_167)); tmpF4789 = T5; if (tmpF4789 != YPfalse) { T1 = tmpF4789; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),kindF4788,LITREF(lit_168)); tmpF4790 = T4; if (tmpF4790 != YPfalse) { T2 = tmpF4790; } else { T3 = CALL2(1,VARREF(YgooSmacrosYEE),kindF4788,LITREF(lit_169)); T2 = T3; } T1 = T2; } if (T1 != YPfalse) { T16 = CALL1(1,VARREF(YevalSmoduleYbinding_name),gb_); nameF4791 = T16; x_1650F4792 = kindF4788; x_1651F4793 = VARREF(YgooSmacrosYEE); T7 = CALL2(1,x_1651F4793,x_1650F4792,LITREF(lit_168)); if (T7 != YPfalse) { T6 = LITREF(lit_170); } else { T9 = CALL2(1,x_1651F4793,x_1650F4792,LITREF(lit_169)); if (T9 != YPfalse) { T8 = LITREF(lit_171); } else { T8 = LITREF(lit_46); } T6 = T8; } CALL2(1,VARREF(YgooSioSportYputs),out_,T6); x_1652F4794 = out_; if (importedQ_ != YPfalse) { T10 = LITREF(lit_172); } else { T10 = LITREF(lit_173); } CALL2(1,VARREF(YgooSioSwriteYemit),x_1652F4794,T10); CALL2(1,VARREF(YgooSioSportYputs),x_1652F4794,LITREF(lit_174)); T11 = CALL1(1,VARREF(YevalSg2cYmangle_binding),gb_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1652F4794,T11); CALL2(1,VARREF(YgooSioSportYputs),x_1652F4794,LITREF(lit_175)); T13 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),gb_); T12 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),T13); CALL2(1,VARREF(YgooSioSwriteYemit),x_1652F4794,T12); CALL2(1,VARREF(YgooSioSportYputs),x_1652F4794,LITREF(lit_176)); T14 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),nameF4791); CALL2(1,VARREF(YgooSioSwriteYemit),x_1652F4794,T14); T15 = CALL2(1,VARREF(YgooSioSportYputs),x_1652F4794,LITREF(lit_177)); T0 = T15; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYchar_buffer_as_string) { P buffer_; P iF4797; P stringF4796; P buffer_sizeF4795; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(buffer_, 0); T6 = CALL1(1,VARREF(YgooStypesYlen),buffer_); check_type(T6,VARREF(YLintG)); buffer_sizeF4795 = T6; T5 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YLstrG),buffer_sizeF4795); check_type(T5,VARREF(YLstrG)); stringF4796 = T5; iF4797 = YPint((P)0); LOOP_216: { P a216_0; T1 = CALL2(1,VARREF(YgooSmagYL),iF4797,buffer_sizeF4795); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYlow_elt),buffer_,iF4797); CALL3(1,VARREF(YgooScolsScolYfab_elt_setter),T2,stringF4796,iF4797); T4 = CALL2(1,VARREF(YgooSmathYA),iF4797,YPint((P)1)); a216_0 = T4; iF4797 = a216_0; goto LOOP_216; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); RET(stringF4796); } LOCCODEDEF(fun_mangle_string_literal_69) { P str_; P encF4801; P cF4800; P iF4799; P lenF4798; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(str_, 0); CALL2(1,VARREF(YgooScolsScolxYlen_setter),YPint((P)0),VARREF(YevalSg2cYTmangle_bufferT)); T11 = CALL1(1,VARREF(YgooStypesYlen),str_); lenF4798 = T11; CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),YPchr((P)34)); iF4799 = YPint((P)0); LOOP_217: { P a217_0; T1 = CALL2(1,VARREF(YgooSlogYE),iF4799,lenF4798); if (T1 != YPfalse) { CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),YPchr((P)34)); T2 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),VARREF(YevalSg2cYTmangle_bufferT)); T0 = T2; } else { T10 = CALL2(1,VARREF(YgooSmacrosYelt),str_,iF4799); cF4800 = T10; T9 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),cF4800); T8 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDc_escapes),T9); encF4801 = T8; T3 = CALL2(1,VARREF(YgooSlogYE),encF4801,YPfalse); if (T3 != YPfalse) { T4 = CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),cF4800); } else { T5 = CALL2(1,VARREF(YgooScolsSseqxYcatX),VARREF(YevalSg2cYTmangle_bufferT),encF4801); } T7 = CALL2(1,VARREF(YgooSmathYA),iF4799,YPint((P)1)); a217_0 = T7; iF4799 = a217_0; goto LOOP_217; T0 = T6; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mangle_string_literal_70) { P sym_; P T0,T1; LINK_STACK(); ARG(sym_, 0); T1 = CALL1(1,VARREF(Ysym_name),sym_); T0 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_process_integer_71) { P number_,index_; P resultF4807; P resultF4806; P digitF4805; P remainderF4804; P quotientF4803; P tup37F4802; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(number_, 0); ARG(index_, 1); T10 = CALL2(1,VARREF(YgooSmathYtruncS),number_,YPint((P)10)); tup37F4802 = T10; T9 = CALL2(1,VARREF(YgooSmacrosYelt),tup37F4802,YPint((P)0)); check_type(T9,VARREF(YLintG)); quotientF4803 = T9; T8 = CALL2(1,VARREF(YgooSmacrosYelt),tup37F4802,YPint((P)1)); check_type(T8,VARREF(YLintG)); remainderF4804 = T8; T7 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDnumber_characters),remainderF4804); check_type(T7,VARREF(YLchrG)); digitF4805 = T7; T1 = CALL2(1,VARREF(YgooSlogYE),quotientF4803,YPint((P)0)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),index_); check_type(T2,VARREF(YgooScolsSvecYLvecG)); resultF4806 = T2; CALL3(1,VARREF(YgooScolsScolxYelt_setter),digitF4805,resultF4806,YPint((P)0)); T0 = resultF4806; } else { T6 = CALL2(1,VARREF(YgooSmathYA),index_,YPint((P)1)); T5 = CALL2(1,FREEREF(0),quotientF4803,T6); check_type(T5,VARREF(YgooScolsSvecYLvecG)); resultF4807 = T5; T4 = CALL1(1,VARREF(YgooStypesYlen),resultF4807); T3 = CALL2(1,VARREF(YgooSmathY_),T4,index_); CALL3(1,VARREF(YgooScolsScolxYelt_setter),digitF4805,resultF4807,T3); T0 = resultF4807; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_mangle_integer_72) { P number_; P process_integerF4808; P T0,T1,T2; LINK_STACK(); ARG(number_, 0); T2 = FUNSHELL(1,fun_process_integer_71,1); process_integerF4808 = T2; FUNINIT(process_integerF4808, 1,process_integerF4808); T1 = CALL2(1,process_integerF4808,number_,YPint((P)1)); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSg2cYmangler_reset) { P buffer_; P T0; LINK_STACK(); ARG(buffer_, 0); T0 = CALL2(1,VARREF(YgooScolsScolxYlen_setter),YPint((P)0),buffer_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYmangle_name_into) { P buf_,name_; P cF4810; P x_1661F4809; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(buf_, 0); ARG(name_, 1); T9 = CALL1(1,VARREF(YgooScolsScolYenum),name_); x_1661F4809 = T9; LOOP_218: { P a218_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1661F4809); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),x_1661F4809); cF4810 = T8; T5 = CALL1(1,VARREF(YgooSchrYto_lower),cF4810); T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),T5); T3 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDname_mangler_table),T4); CALL2(1,VARREF(YgooScolsScolxYaddX),buf_,T3); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1661F4809); a218_0 = T7; x_1661F4809 = a218_0; goto LOOP_218; T0 = T6; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(buf_); } LOCCODEDEF(fun_mangle_raw_name_75) { P name_; P T0; LINK_STACK(); ARG(name_, 0); CALL1(1,VARREF(YevalSg2cYmangler_reset),VARREF(YevalSg2cYTmangle_bufferT)); CALL2(1,VARREF(YevalSg2cYmangle_name_into),VARREF(YevalSg2cYTmangle_bufferT),name_); T0 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),VARREF(YevalSg2cYTmangle_bufferT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mangle_raw_name_76) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); T0 = CALL1(1,VARREF(YevalSg2cYmangle_raw_name),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mangle_local_name_77) { P name_; P T0; LINK_STACK(); ARG(name_, 0); CALL1(1,VARREF(YevalSg2cYmangler_reset),VARREF(YevalSg2cYTmangle_bufferT)); CALL2(1,VARREF(YevalSg2cYmangle_name_into),VARREF(YevalSg2cYTmangle_bufferT),name_); CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),VARREF(YevalSg2cYDlocal_marker)); T0 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),VARREF(YevalSg2cYTmangle_bufferT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mangle_local_name_78) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); T0 = CALL1(1,VARREF(YevalSg2cYmangle_local_name),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSg2cYbuf_cat2X) { P buf_,name_; P iF4812; P lenF4811; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(buf_, 0); ARG(name_, 1); T5 = CALL1(1,VARREF(YgooStypesYlen),name_); lenF4811 = T5; iF4812 = YPint((P)0); LOOP_219: { P a219_0; T1 = CALL2(1,VARREF(YgooSmagYL),iF4812,lenF4811); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYlow_elt),name_,iF4812); CALL2(1,VARREF(YgooScolsScolxYaddX),buf_,T2); T4 = CALL2(1,VARREF(YgooSmathYA),iF4812,YPint((P)1)); a219_0 = T4; iF4812 = a219_0; goto LOOP_219; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_mangle_module_into_80) { P buf_,mod_; P nameF4815; P tmpF4814; P UF4813; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(buf_, 0); ARG(mod_, 1); T9 = CALL1(1,VARREF(YevalSmoduleYmodule_mangled_name),mod_); UF4813 = T9; T8 = CALL1(1,VARREF(YevalSmoduleYmodule_mangled_name),mod_); tmpF4814 = T8; if (tmpF4814 != YPfalse) { T1 = tmpF4814; } else { T5 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); T7 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T6 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T7); T4 = CALL2(1,VARREF(YevalSg2cYmangle_name_into),T5,T6); T3 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),T4); T2 = CALL2(1,VARREF(YevalSmoduleYmodule_mangled_name_setter),T3,mod_); T1 = T2; } nameF4815 = T1; T0 = CALL2(1,VARREF(YevalSg2cYbuf_cat2X),buf_,nameF4815); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_mangle_global_name_81) { P mod_,name_; P tmpF4816; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); CALL1(1,VARREF(YevalSg2cYmangler_reset),VARREF(YevalSg2cYTmangle_bufferT)); T4 = CALL2(1,VARREF(YgooSmacrosYEE),mod_,VARREF(YevalSmoduleYDgoo_boot_module_name)); tmpF4816 = T4; if (tmpF4816 != YPfalse) { T1 = tmpF4816; } else { T3 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T2 = CALL2(1,VARREF(YgooSmacrosYEE),T3,VARREF(YevalSmoduleYDgoo_boot_module_name)); T1 = T2; } T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),VARREF(YevalSg2cYDmodule_marker)); T5 = CALL2(1,VARREF(YevalSg2cYmangle_module_into),VARREF(YevalSg2cYTmangle_bufferT),mod_); } else { } CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),VARREF(YevalSg2cYDmodule_marker)); CALL2(1,VARREF(YevalSg2cYmangle_name_into),VARREF(YevalSg2cYTmangle_bufferT),name_); T6 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),VARREF(YevalSg2cYTmangle_bufferT)); UNLINK_STACK(); RET(T6); } LOCCODEDEF(fun_mangle_global_name_82) { P mod_,name_; P T0,T1; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); T0 = CALL2(1,VARREF(YevalSg2cYmangle_global_name),mod_,T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSg2cYmangle_boot_name) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YevalSg2cYmangle_global_name),VARREF(YevalSmoduleYDgoo_boot_module_name),name_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYmangle_quotation_name) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); CALL1(1,VARREF(YevalSg2cYmangler_reset),VARREF(YevalSg2cYTmangle_bufferT)); CALL2(1,VARREF(YevalSg2cYbuf_cat2X),VARREF(YevalSg2cYTmangle_bufferT),LITREF(lit_239)); T0 = CALL1(1,VARREF(YevalSg2cYmangle_integer),name_); CALL2(1,VARREF(YevalSg2cYbuf_cat2X),VARREF(YevalSg2cYTmangle_bufferT),T0); T1 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),VARREF(YevalSg2cYTmangle_bufferT)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_mangle_binding_85) { P binding_; P tmpF4818; P UF4817; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(binding_, 0); T11 = CALL1(1,VARREF(YevalSmoduleYbinding_mangled_name),binding_); UF4817 = T11; T10 = CALL1(1,VARREF(YevalSmoduleYbinding_mangled_name),binding_); tmpF4818 = T10; if (tmpF4818 != YPfalse) { T0 = tmpF4818; } else { T4 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); T3 = CALL2(1,VARREF(YgooSmacrosYEE),T4,LITREF(lit_242)); if (T3 != YPfalse) { T6 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T5 = CALL1(1,VARREF(YevalSg2cYmangle_quotation_name),T6); T2 = T5; } else { T8 = CALL1(1,VARREF(YevalSmoduleYbinding_module),binding_); T9 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T7 = CALL2(1,VARREF(YevalSg2cYmangle_global_name),T8,T9); T2 = T7; } T1 = CALL2(1,VARREF(YevalSmoduleYbinding_mangled_name_setter),T2,binding_); T0 = T1; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYmangle_local_marked_name) { P name_,marker_; P T0,T1; LINK_STACK(); ARG(name_, 0); ARG(marker_, 1); CALL1(1,VARREF(YevalSg2cYmangler_reset),VARREF(YevalSg2cYTmangle_bufferT)); CALL2(1,VARREF(YevalSg2cYmangle_name_into),VARREF(YevalSg2cYTmangle_bufferT),name_); CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTmangle_bufferT),VARREF(YevalSg2cYDhygiene_char)); T0 = CALL1(1,VARREF(YevalSg2cYmangle_integer),marker_); CALL2(1,VARREF(YevalSg2cYbuf_cat2X),VARREF(YevalSg2cYTmangle_bufferT),T0); T1 = CALL1(1,VARREF(YevalSg2cYchar_buffer_as_string),VARREF(YevalSg2cYTmangle_bufferT)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_mangle_binding_87) { P binding_; P tmpF4820; P UF4819; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(binding_, 0); T5 = CALL1(1,VARREF(YevalSmoduleYbinding_mangled_name),binding_); UF4819 = T5; T4 = CALL1(1,VARREF(YevalSmoduleYbinding_mangled_name),binding_); tmpF4820 = T4; if (tmpF4820 != YPfalse) { T0 = tmpF4820; } else { T3 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T2 = CALL1(1,VARREF(YevalSg2cYmangle_local_name),T3); T1 = CALL2(1,VARREF(YevalSmoduleYbinding_mangled_name_setter),T2,binding_); T0 = T1; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_mangle_binding_88) { P binding_; P tmpF4822; P UF4821; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(binding_, 0); T7 = CALL1(1,VARREF(YevalSmoduleYbinding_mangled_name),binding_); UF4821 = T7; T6 = CALL1(1,VARREF(YevalSmoduleYbinding_mangled_name),binding_); tmpF4822 = T6; if (tmpF4822 != YPfalse) { T0 = tmpF4822; } else { T4 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T4); T5 = CALL1(1,VARREF(YevalSastYbinding_index),binding_); T2 = CALL2(1,VARREF(YevalSg2cYmangle_local_marked_name),T3,T5); T1 = CALL2(1,VARREF(YevalSmoduleYbinding_mangled_name_setter),T2,binding_); T0 = T1; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1666_89) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_251),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_90) { P return_; P out_varF4836; P x_1665F4835; P x_1665F4834; P x_1665F4833; P x_1665F4832; P x_1665F4831; P x_1665F4830; P x_1665F4829; P x_1665F4828; P bodyF4827; P clausesF4826; P out_valF4825; P x_1665F4824; P x_1666F4823; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55; LINK_STACK(); ARG(return_, 0); T55 = FUNSHELL(0,fun_x_1666_89,2); x_1666F4823 = T55; FUNINIT(x_1666F4823, 2,FREEREF(0),return_); x_1665F4824 = FREEREF(0); out_valF4825 = YPfalse; clausesF4826 = YPfalse; bodyF4827 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1665F4824,VARREF(YLlstG)); if (T3 != YPfalse) { T13 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1665F4824,LITREF(lit_251),x_1666F4823); x_1665F4828 = T13; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1665F4828,x_1666F4823); out_valF4825 = T11; T12 = CALL1(1,VARREF(Ytail),x_1665F4828); x_1665F4829 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1665F4829,x_1666F4823); x_1665F4830 = T9; clausesF4826 = x_1665F4830; x_1665F4831 = Ynil; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1665F4831,x_1666F4823); x_1665F4832 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1665F4832,x_1666F4823); T8 = CALL1(1,VARREF(Ytail),x_1665F4831); x_1665F4833 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1665F4833,x_1666F4823); T10 = CALL1(1,VARREF(Ytail),x_1665F4829); x_1665F4834 = T10; bodyF4827 = x_1665F4834; x_1665F4835 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1665F4835,x_1666F4823); } else { T14 = CALL2(1,x_1666F4823,LITREF(lit_83),x_1665F4824); } T54 = CALL0(1,VARREF(YgooSmacrosYgensym)); out_varF4836 = T54; T16 = CALL1(1,VARREF(Ylst),LITREF(lit_252)); T21 = CALL1(1,VARREF(Ylst),out_varF4836); T23 = out_valF4825; T22 = CALL1(1,VARREF(Ylst),T23); T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_86)); T19 = CALL1(1,VARREF(Ylst),T20); T18 = CALL2(1,VARREF(YgooSmacrosYcat),T19,LITREF(lit_86)); T17 = CALL1(1,VARREF(Ylst),T18); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_253)); T29 = clausesF4826; T32 = CALL1(1,VARREF(Ylst),LITREF(lit_254)); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_255)); T38 = CALL1(1,VARREF(Ylst),LITREF(lit_256)); T39 = CALL1(1,VARREF(Ylst),YPtrue); T37 = CALL3(1,VARREF(YgooSmacrosYcat),T38,T39,LITREF(lit_86)); T36 = CALL1(1,VARREF(Ylst),T37); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_256)); T43 = CALL1(1,VARREF(Ylst),YPfalse); T41 = CALL3(1,VARREF(YgooSmacrosYcat),T42,T43,LITREF(lit_86)); T40 = CALL1(1,VARREF(Ylst),T41); T34 = CALL4(1,VARREF(YgooSmacrosYcat),T35,T36,T40,LITREF(lit_86)); T33 = CALL1(1,VARREF(Ylst),T34); T31 = CALL3(1,VARREF(YgooSmacrosYcat),T32,T33,LITREF(lit_86)); T30 = CALL1(1,VARREF(Ylst),T31); T28 = CALL3(1,VARREF(YgooSmacrosYcat),T29,T30,LITREF(lit_86)); T27 = CALL1(1,VARREF(Ylst),T28); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_257)); T47 = CALL1(1,VARREF(Ylst),LITREF(lit_254)); T50 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T51 = CALL1(1,VARREF(Ylst),out_varF4836); T52 = CALL1(1,VARREF(Ylst),YPchr((P)44)); T49 = CALL4(1,VARREF(YgooSmacrosYcat),T50,T51,T52,LITREF(lit_86)); T48 = CALL1(1,VARREF(Ylst),T49); T45 = CALL4(1,VARREF(YgooSmacrosYcat),T46,T47,T48,LITREF(lit_86)); T44 = CALL1(1,VARREF(Ylst),T45); T53 = bodyF4827; T25 = CALL5(1,VARREF(YgooSmacrosYcat),T26,T27,T44,T53,LITREF(lit_86)); T24 = CALL1(1,VARREF(Ylst),T25); T15 = CALL4(1,VARREF(YgooSmacrosYcat),T16,T17,T24,LITREF(lit_86)); UNLINK_STACK(); QRET(T15); } LOCCODEDEF(fun_91) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_90,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1670_92) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_263),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_93) { P return_; P psQF4849; P out_varF4848; P x_1669F4847; P x_1669F4846; P x_1669F4845; P x_1669F4844; P x_1669F4843; P x_1669F4842; P x_1669F4841; P bodyF4840; P out_valF4839; P x_1669F4838; P x_1670F4837; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51; LINK_STACK(); ARG(return_, 0); T51 = FUNSHELL(0,fun_x_1670_92,2); x_1670F4837 = T51; FUNINIT(x_1670F4837, 2,FREEREF(0),return_); x_1669F4838 = FREEREF(0); out_valF4839 = YPfalse; bodyF4840 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1669F4838,VARREF(YLlstG)); if (T2 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1669F4838,LITREF(lit_263),x_1670F4837); x_1669F4841 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1669F4841,x_1670F4837); x_1669F4842 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1669F4842,x_1670F4837); out_valF4839 = T8; T9 = CALL1(1,VARREF(Ytail),x_1669F4842); x_1669F4843 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1669F4843,x_1670F4837); x_1669F4844 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1669F4844,x_1670F4837); T7 = CALL1(1,VARREF(Ytail),x_1669F4843); x_1669F4845 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1669F4845,x_1670F4837); T11 = CALL1(1,VARREF(Ytail),x_1669F4841); x_1669F4846 = T11; bodyF4840 = x_1669F4846; x_1669F4847 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1669F4847,x_1670F4837); } else { T13 = CALL2(1,x_1670F4837,LITREF(lit_83),x_1669F4838); } T50 = CALL0(1,VARREF(YgooSmacrosYgensym)); out_varF4848 = T50; T49 = CALL0(1,VARREF(YgooSmacrosYgensym)); psQF4849 = T49; T15 = CALL1(1,VARREF(Ylst),LITREF(lit_252)); T20 = CALL1(1,VARREF(Ylst),out_varF4848); T22 = out_valF4839; T21 = CALL1(1,VARREF(Ylst),T22); T19 = CALL3(1,VARREF(YgooSmacrosYcat),T20,T21,LITREF(lit_86)); T18 = CALL1(1,VARREF(Ylst),T19); T25 = CALL1(1,VARREF(Ylst),psQF4849); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_264)); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_265)); T27 = CALL3(1,VARREF(YgooSmacrosYcat),T28,T29,LITREF(lit_86)); T26 = CALL1(1,VARREF(Ylst),T27); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_86)); T23 = CALL1(1,VARREF(Ylst),T24); T17 = CALL3(1,VARREF(YgooSmacrosYcat),T18,T23,LITREF(lit_86)); T16 = CALL1(1,VARREF(Ylst),T17); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_266)); T33 = CALL1(1,VARREF(Ylst),psQF4849); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T37 = CALL1(1,VARREF(Ylst),out_varF4848); T38 = CALL1(1,VARREF(Ylst),YPchr((P)40)); T35 = CALL4(1,VARREF(YgooSmacrosYcat),T36,T37,T38,LITREF(lit_86)); T34 = CALL1(1,VARREF(Ylst),T35); T31 = CALL4(1,VARREF(YgooSmacrosYcat),T32,T33,T34,LITREF(lit_86)); T30 = CALL1(1,VARREF(Ylst),T31); T39 = bodyF4840; T42 = CALL1(1,VARREF(Ylst),LITREF(lit_266)); T43 = CALL1(1,VARREF(Ylst),psQF4849); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T47 = CALL1(1,VARREF(Ylst),out_varF4848); T48 = CALL1(1,VARREF(Ylst),YPchr((P)41)); T45 = CALL4(1,VARREF(YgooSmacrosYcat),T46,T47,T48,LITREF(lit_86)); T44 = CALL1(1,VARREF(Ylst),T45); T41 = CALL4(1,VARREF(YgooSmacrosYcat),T42,T43,T44,LITREF(lit_86)); T40 = CALL1(1,VARREF(Ylst),T41); T14 = CALLN(1,VARREF(YgooSmacrosYcat),6,T15,T16,T30,T39,T40,LITREF(lit_86)); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_94) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_93,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1674_95) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_271),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_96) { P return_; P out_varF4861; P x_1673F4860; P x_1673F4859; P x_1673F4858; P x_1673F4857; P x_1673F4856; P x_1673F4855; P x_1673F4854; P bodyF4853; P out_valF4852; P x_1673F4851; P x_1674F4850; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35; LINK_STACK(); ARG(return_, 0); T35 = FUNSHELL(0,fun_x_1674_95,2); x_1674F4850 = T35; FUNINIT(x_1674F4850, 2,FREEREF(0),return_); x_1673F4851 = FREEREF(0); out_valF4852 = YPfalse; bodyF4853 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1673F4851,VARREF(YLlstG)); if (T2 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1673F4851,LITREF(lit_271),x_1674F4850); x_1673F4854 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1673F4854,x_1674F4850); x_1673F4855 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1673F4855,x_1674F4850); out_valF4852 = T8; T9 = CALL1(1,VARREF(Ytail),x_1673F4855); x_1673F4856 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1673F4856,x_1674F4850); x_1673F4857 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1673F4857,x_1674F4850); T7 = CALL1(1,VARREF(Ytail),x_1673F4856); x_1673F4858 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1673F4858,x_1674F4850); T11 = CALL1(1,VARREF(Ytail),x_1673F4854); x_1673F4859 = T11; bodyF4853 = x_1673F4859; x_1673F4860 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1673F4860,x_1674F4850); } else { T13 = CALL2(1,x_1674F4850,LITREF(lit_83),x_1673F4851); } T34 = CALL0(1,VARREF(YgooSmacrosYgensym)); out_varF4861 = T34; T15 = CALL1(1,VARREF(Ylst),LITREF(lit_252)); T20 = CALL1(1,VARREF(Ylst),out_varF4861); T22 = out_valF4852; T21 = CALL1(1,VARREF(Ylst),T22); T19 = CALL3(1,VARREF(YgooSmacrosYcat),T20,T21,LITREF(lit_86)); T18 = CALL1(1,VARREF(Ylst),T19); T17 = CALL2(1,VARREF(YgooSmacrosYcat),T18,LITREF(lit_86)); T16 = CALL1(1,VARREF(Ylst),T17); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T26 = CALL1(1,VARREF(Ylst),out_varF4861); T27 = CALL1(1,VARREF(Ylst),YPchr((P)40)); T24 = CALL4(1,VARREF(YgooSmacrosYcat),T25,T26,T27,LITREF(lit_86)); T23 = CALL1(1,VARREF(Ylst),T24); T28 = bodyF4853; T31 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T32 = CALL1(1,VARREF(Ylst),out_varF4861); T33 = CALL1(1,VARREF(Ylst),YPchr((P)41)); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T33,LITREF(lit_86)); T29 = CALL1(1,VARREF(Ylst),T30); T14 = CALLN(1,VARREF(YgooSmacrosYcat),6,T15,T16,T23,T28,T29,LITREF(lit_86)); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_97) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_96,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1678_98) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_276),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_99) { P return_; P tmpF4877; P firstQF4876; P bodyF4875; P formsF4874; P out_varF4873; P x_1677F4872; P x_1677F4871; P x_1677F4870; P x_1677F4869; P x_1677F4868; P x_1677F4867; P x_1677F4866; P bodyF4865; P out_valF4864; P x_1677F4863; P x_1678F4862; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48; LINK_STACK(); ARG(return_, 0); T48 = FUNSHELL(0,fun_x_1678_98,2); x_1678F4862 = T48; FUNINIT(x_1678F4862, 2,FREEREF(0),return_); x_1677F4863 = FREEREF(0); out_valF4864 = YPfalse; bodyF4865 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1677F4863,VARREF(YLlstG)); if (T2 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1677F4863,LITREF(lit_276),x_1678F4862); x_1677F4866 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1677F4866,x_1678F4862); x_1677F4867 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1677F4867,x_1678F4862); out_valF4864 = T8; T9 = CALL1(1,VARREF(Ytail),x_1677F4867); x_1677F4868 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1677F4868,x_1678F4862); x_1677F4869 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1677F4869,x_1678F4862); T7 = CALL1(1,VARREF(Ytail),x_1677F4868); x_1677F4870 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1677F4870,x_1678F4862); T11 = CALL1(1,VARREF(Ytail),x_1677F4866); x_1677F4871 = T11; bodyF4865 = x_1677F4871; x_1677F4872 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1677F4872,x_1678F4862); } else { T13 = CALL2(1,x_1678F4862,LITREF(lit_83),x_1677F4863); } T47 = CALL0(1,VARREF(YgooSmacrosYgensym)); out_varF4873 = T47; T15 = CALL1(1,VARREF(Ylst),LITREF(lit_252)); T20 = CALL1(1,VARREF(Ylst),out_varF4873); T22 = out_valF4864; T21 = CALL1(1,VARREF(Ylst),T22); T19 = CALL3(1,VARREF(YgooSmacrosYcat),T20,T21,LITREF(lit_86)); T18 = CALL1(1,VARREF(Ylst),T19); T17 = CALL2(1,VARREF(YgooSmacrosYcat),T18,LITREF(lit_86)); T16 = CALL1(1,VARREF(Ylst),T17); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T26 = CALL1(1,VARREF(Ylst),out_varF4873); T27 = CALL1(1,VARREF(Ylst),YPchr((P)40)); T24 = CALL4(1,VARREF(YgooSmacrosYcat),T25,T26,T27,LITREF(lit_86)); T23 = CALL1(1,VARREF(Ylst),T24); formsF4874 = Ynil; T41 = bodyF4865; bodyF4875 = T41; firstQF4876 = YPtrue; LOOP_220: { P a220_0,a220_1,a220_2; T29 = CALL1(1,VARREF(YgooSmacrosYnulQ),bodyF4875); if (T29 != YPfalse) { T30 = CALL1(1,VARREF(YgooSmacrosYrevX),formsF4874); T28 = T30; } else { T33 = CALL1(1,VARREF(Yhead),bodyF4875); tmpF4877 = firstQF4876; if (tmpF4877 != YPfalse) { T35 = tmpF4877; } else { T37 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T38 = CALL1(1,VARREF(Ylst),out_varF4873); T39 = CALL1(1,VARREF(Ylst),YPchr((P)44)); T36 = CALL4(1,VARREF(YgooSmacrosYcat),T37,T38,T39,LITREF(lit_86)); T35 = T36; } T34 = CALL2(1,VARREF(YgooSmacrosYpair),T35,formsF4874); T32 = CALL2(1,VARREF(YgooSmacrosYpair),T33,T34); T40 = CALL1(1,VARREF(Ytail),bodyF4875); a220_0 = T32; a220_1 = T40; a220_2 = YPfalse; formsF4874 = a220_0; bodyF4875 = a220_1; firstQF4876 = a220_2; goto LOOP_220; T28 = T31; } } T44 = CALL1(1,VARREF(Ylst),LITREF(lit_258)); T45 = CALL1(1,VARREF(Ylst),out_varF4873); T46 = CALL1(1,VARREF(Ylst),YPchr((P)41)); T43 = CALL4(1,VARREF(YgooSmacrosYcat),T44,T45,T46,LITREF(lit_86)); T42 = CALL1(1,VARREF(Ylst),T43); T14 = CALLN(1,VARREF(YgooSmacrosYcat),6,T15,T16,T23,T28,T42,LITREF(lit_86)); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_100) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_99,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_result_101) { P e_,d_,out_; P x_1679F4879; P regF4878; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); ARG(d_, 1); ARG(out_, 2); T4 = CALL1(1,VARREF(YevalSastYprogram_register),e_); regF4878 = T4; if (regF4878 != YPfalse) { x_1679F4879 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1679F4879,LITREF(lit_279)); T2 = CALL1(1,VARREF(YgooSmathYnum_to_str),regF4878); CALL2(1,VARREF(YgooSioSportYputs),x_1679F4879,T2); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1679F4879,LITREF(lit_280)); if (T3 != YPfalse) { T1 = YPtrue; } else { T1 = YPfalse; } T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_gen_depth_102) { P d_,out_; P iF4881; P x_1680F4880; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(d_, 0); ARG(out_, 1); T7 = CALL1(1,VARREF(YgooScolsSseqYbelow),d_); T6 = CALL1(1,VARREF(YgooScolsScolYenum),T7); x_1680F4880 = T6; LOOP_221: { P a221_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1680F4880); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1680F4880); iF4881 = T5; CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_283)); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1680F4880); a221_0 = T4; x_1680F4880 = a221_0; goto LOOP_221; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1685_103) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_288),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_104) { P return_; P x_1684F4894; P x_1684F4893; P x_1684F4892; P x_1684F4891; P x_1684F4890; P x_1684F4889; P x_1684F4888; P x_1684F4887; P bodyF4886; P outF4885; P dF4884; P x_1684F4883; P x_1685F4882; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41; LINK_STACK(); ARG(return_, 0); T41 = FUNSHELL(0,fun_x_1685_103,2); x_1685F4882 = T41; FUNINIT(x_1685F4882, 2,FREEREF(0),return_); x_1684F4883 = FREEREF(0); dF4884 = YPfalse; outF4885 = YPfalse; bodyF4886 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1684F4883,VARREF(YLlstG)); if (T3 != YPfalse) { T15 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1684F4883,LITREF(lit_288),x_1685F4882); x_1684F4887 = T15; T13 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1684F4887,x_1685F4882); x_1684F4888 = T13; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1684F4888,x_1685F4882); dF4884 = T11; T12 = CALL1(1,VARREF(Ytail),x_1684F4888); x_1684F4889 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1684F4889,x_1685F4882); outF4885 = T9; T10 = CALL1(1,VARREF(Ytail),x_1684F4889); x_1684F4890 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1684F4890,x_1685F4882); x_1684F4891 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1684F4891,x_1685F4882); T8 = CALL1(1,VARREF(Ytail),x_1684F4890); x_1684F4892 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1684F4892,x_1685F4882); T14 = CALL1(1,VARREF(Ytail),x_1684F4887); x_1684F4893 = T14; bodyF4886 = x_1684F4893; x_1684F4894 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1684F4894,x_1685F4882); } else { T16 = CALL2(1,x_1685F4882,LITREF(lit_83),x_1684F4883); } T18 = CALL1(1,VARREF(Ylst),LITREF(lit_289)); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_266)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_265)); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_281)); T27 = dF4884; T26 = CALL1(1,VARREF(Ylst),T27); T29 = outF4885; T28 = CALL1(1,VARREF(Ylst),T29); T24 = CALL4(1,VARREF(YgooSmacrosYcat),T25,T26,T28,LITREF(lit_86)); T23 = CALL1(1,VARREF(Ylst),T24); T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T23,LITREF(lit_86)); T19 = CALL1(1,VARREF(Ylst),T20); T30 = bodyF4886; T33 = CALL1(1,VARREF(Ylst),LITREF(lit_266)); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_265)); T37 = CALL1(1,VARREF(Ylst),LITREF(lit_290)); T39 = outF4885; T38 = CALL1(1,VARREF(Ylst),T39); T40 = CALL1(1,VARREF(Ylst),LITREF(lit_291)); T36 = CALL4(1,VARREF(YgooSmacrosYcat),T37,T38,T40,LITREF(lit_86)); T35 = CALL1(1,VARREF(Ylst),T36); T32 = CALL4(1,VARREF(YgooSmacrosYcat),T33,T34,T35,LITREF(lit_86)); T31 = CALL1(1,VARREF(Ylst),T32); T17 = CALL5(1,VARREF(YgooSmacrosYcat),T18,T19,T30,T31,LITREF(lit_86)); UNLINK_STACK(); QRET(T17); } LOCCODEDEF(fun_105) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_104,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1689_106) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_296),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_107) { P return_; P out_varF4906; P x_1688F4905; P x_1688F4904; P x_1688F4903; P x_1688F4902; P x_1688F4901; P x_1688F4900; P x_1688F4899; P bodyF4898; P out_valF4897; P x_1688F4896; P x_1689F4895; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(return_, 0); T34 = FUNSHELL(0,fun_x_1689_106,2); x_1689F4895 = T34; FUNINIT(x_1689F4895, 2,FREEREF(0),return_); x_1688F4896 = FREEREF(0); out_valF4897 = YPfalse; bodyF4898 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1688F4896,VARREF(YLlstG)); if (T2 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1688F4896,LITREF(lit_296),x_1689F4895); x_1688F4899 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1688F4899,x_1689F4895); x_1688F4900 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1688F4900,x_1689F4895); out_valF4897 = T8; T9 = CALL1(1,VARREF(Ytail),x_1688F4900); x_1688F4901 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1688F4901,x_1689F4895); x_1688F4902 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1688F4902,x_1689F4895); T7 = CALL1(1,VARREF(Ytail),x_1688F4901); x_1688F4903 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1688F4903,x_1689F4895); T11 = CALL1(1,VARREF(Ytail),x_1688F4899); x_1688F4904 = T11; bodyF4898 = x_1688F4904; x_1688F4905 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1688F4905,x_1689F4895); } else { T13 = CALL2(1,x_1689F4895,LITREF(lit_83),x_1688F4896); } T33 = CALL0(1,VARREF(YgooSmacrosYgensym)); out_varF4906 = T33; T15 = CALL1(1,VARREF(Ylst),LITREF(lit_252)); T20 = CALL1(1,VARREF(Ylst),out_varF4906); T22 = out_valF4897; T21 = CALL1(1,VARREF(Ylst),T22); T19 = CALL3(1,VARREF(YgooSmacrosYcat),T20,T21,LITREF(lit_86)); T18 = CALL1(1,VARREF(Ylst),T19); T17 = CALL2(1,VARREF(YgooSmacrosYcat),T18,LITREF(lit_86)); T16 = CALL1(1,VARREF(Ylst),T17); T23 = bodyF4898; T26 = CALL1(1,VARREF(Ylst),LITREF(lit_257)); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_265)); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_290)); T31 = CALL1(1,VARREF(Ylst),out_varF4906); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_297)); T29 = CALL4(1,VARREF(YgooSmacrosYcat),T30,T31,T32,LITREF(lit_86)); T28 = CALL1(1,VARREF(Ylst),T29); T25 = CALL4(1,VARREF(YgooSmacrosYcat),T26,T27,T28,LITREF(lit_86)); T24 = CALL1(1,VARREF(Ylst),T25); T14 = CALL5(1,VARREF(YgooSmacrosYcat),T15,T16,T23,T24,LITREF(lit_86)); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_108) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_107,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1693_109) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_302),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_110) { P return_; P x_1692F4919; P x_1692F4918; P x_1692F4917; P x_1692F4916; P x_1692F4915; P x_1692F4914; P x_1692F4913; P x_1692F4912; P bodyF4911; P outF4910; P dF4909; P x_1692F4908; P x_1693F4907; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33; LINK_STACK(); ARG(return_, 0); T33 = FUNSHELL(0,fun_x_1693_109,2); x_1693F4907 = T33; FUNINIT(x_1693F4907, 2,FREEREF(0),return_); x_1692F4908 = FREEREF(0); dF4909 = YPfalse; outF4910 = YPfalse; bodyF4911 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1692F4908,VARREF(YLlstG)); if (T3 != YPfalse) { T15 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1692F4908,LITREF(lit_302),x_1693F4907); x_1692F4912 = T15; T13 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1692F4912,x_1693F4907); x_1692F4913 = T13; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1692F4913,x_1693F4907); dF4909 = T11; T12 = CALL1(1,VARREF(Ytail),x_1692F4913); x_1692F4914 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1692F4914,x_1693F4907); outF4910 = T9; T10 = CALL1(1,VARREF(Ytail),x_1692F4914); x_1692F4915 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1692F4915,x_1693F4907); x_1692F4916 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1692F4916,x_1693F4907); T8 = CALL1(1,VARREF(Ytail),x_1692F4915); x_1692F4917 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1692F4917,x_1693F4907); T14 = CALL1(1,VARREF(Ytail),x_1692F4912); x_1692F4918 = T14; bodyF4911 = x_1692F4918; x_1692F4919 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1692F4919,x_1693F4907); } else { T16 = CALL2(1,x_1693F4907,LITREF(lit_83),x_1692F4908); } T18 = CALL1(1,VARREF(Ylst),LITREF(lit_296)); T22 = outF4910; T21 = CALL1(1,VARREF(Ylst),T22); T20 = CALL2(1,VARREF(YgooSmacrosYcat),T21,LITREF(lit_86)); T19 = CALL1(1,VARREF(Ylst),T20); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_288)); T29 = dF4909; T28 = CALL1(1,VARREF(Ylst),T29); T31 = outF4910; T30 = CALL1(1,VARREF(Ylst),T31); T27 = CALL3(1,VARREF(YgooSmacrosYcat),T28,T30,LITREF(lit_86)); T26 = CALL1(1,VARREF(Ylst),T27); T32 = bodyF4911; T24 = CALL4(1,VARREF(YgooSmacrosYcat),T25,T26,T32,LITREF(lit_86)); T23 = CALL1(1,VARREF(Ylst),T24); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T23,LITREF(lit_86)); UNLINK_STACK(); QRET(T17); } LOCCODEDEF(fun_111) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_110,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1697_112) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_307),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_113) { P return_; P x_1696F4934; P x_1696F4933; P x_1696F4932; P x_1696F4931; P x_1696F4930; P x_1696F4929; P x_1696F4928; P x_1696F4927; P x_1696F4926; P bodyF4925; P outF4924; P dF4923; P eF4922; P x_1696F4921; P x_1697F4920; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42; LINK_STACK(); ARG(return_, 0); T42 = FUNSHELL(0,fun_x_1697_112,2); x_1697F4920 = T42; FUNINIT(x_1697F4920, 2,FREEREF(0),return_); x_1696F4921 = FREEREF(0); eF4922 = YPfalse; dF4923 = YPfalse; outF4924 = YPfalse; bodyF4925 = YPfalse; T4 = CALL2(1,VARREF(YisaQ),x_1696F4921,VARREF(YLlstG)); if (T4 != YPfalse) { T18 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1696F4921,LITREF(lit_307),x_1697F4920); x_1696F4926 = T18; T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1696F4926,x_1697F4920); x_1696F4927 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1696F4927,x_1697F4920); eF4922 = T14; T15 = CALL1(1,VARREF(Ytail),x_1696F4927); x_1696F4928 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1696F4928,x_1697F4920); dF4923 = T12; T13 = CALL1(1,VARREF(Ytail),x_1696F4928); x_1696F4929 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1696F4929,x_1697F4920); outF4924 = T10; T11 = CALL1(1,VARREF(Ytail),x_1696F4929); x_1696F4930 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1696F4930,x_1697F4920); x_1696F4931 = T8; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1696F4931,x_1697F4920); T9 = CALL1(1,VARREF(Ytail),x_1696F4930); x_1696F4932 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1696F4932,x_1697F4920); T17 = CALL1(1,VARREF(Ytail),x_1696F4926); x_1696F4933 = T17; bodyF4925 = x_1696F4933; x_1696F4934 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1696F4934,x_1697F4920); } else { T19 = CALL2(1,x_1697F4920,LITREF(lit_83),x_1696F4921); } T21 = CALL1(1,VARREF(Ylst),LITREF(lit_288)); T25 = dF4923; T24 = CALL1(1,VARREF(Ylst),T25); T27 = outF4924; T26 = CALL1(1,VARREF(Ylst),T27); T23 = CALL3(1,VARREF(YgooSmacrosYcat),T24,T26,LITREF(lit_86)); T22 = CALL1(1,VARREF(Ylst),T23); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_266)); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_265)); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_277)); T36 = eF4922; T35 = CALL1(1,VARREF(Ylst),T36); T38 = dF4923; T37 = CALL1(1,VARREF(Ylst),T38); T40 = outF4924; T39 = CALL1(1,VARREF(Ylst),T40); T33 = CALL5(1,VARREF(YgooSmacrosYcat),T34,T35,T37,T39,LITREF(lit_86)); T32 = CALL1(1,VARREF(Ylst),T33); T29 = CALL4(1,VARREF(YgooSmacrosYcat),T30,T31,T32,LITREF(lit_86)); T28 = CALL1(1,VARREF(Ylst),T29); T41 = bodyF4925; T20 = CALL5(1,VARREF(YgooSmacrosYcat),T21,T22,T28,T41,LITREF(lit_86)); UNLINK_STACK(); QRET(T20); } LOCCODEDEF(fun_114) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_113,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1701_115) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_312),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_116) { P return_; P x_1700F4949; P x_1700F4948; P x_1700F4947; P x_1700F4946; P x_1700F4945; P x_1700F4944; P x_1700F4943; P x_1700F4942; P x_1700F4941; P bodyF4940; P outF4939; P dF4938; P eF4937; P x_1700F4936; P x_1701F4935; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; LINK_STACK(); ARG(return_, 0); T39 = FUNSHELL(0,fun_x_1701_115,2); x_1701F4935 = T39; FUNINIT(x_1701F4935, 2,FREEREF(0),return_); x_1700F4936 = FREEREF(0); eF4937 = YPfalse; dF4938 = YPfalse; outF4939 = YPfalse; bodyF4940 = YPfalse; T4 = CALL2(1,VARREF(YisaQ),x_1700F4936,VARREF(YLlstG)); if (T4 != YPfalse) { T18 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1700F4936,LITREF(lit_312),x_1701F4935); x_1700F4941 = T18; T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1700F4941,x_1701F4935); x_1700F4942 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1700F4942,x_1701F4935); eF4937 = T14; T15 = CALL1(1,VARREF(Ytail),x_1700F4942); x_1700F4943 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1700F4943,x_1701F4935); dF4938 = T12; T13 = CALL1(1,VARREF(Ytail),x_1700F4943); x_1700F4944 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1700F4944,x_1701F4935); outF4939 = T10; T11 = CALL1(1,VARREF(Ytail),x_1700F4944); x_1700F4945 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1700F4945,x_1701F4935); x_1700F4946 = T8; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1700F4946,x_1701F4935); T9 = CALL1(1,VARREF(Ytail),x_1700F4945); x_1700F4947 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1700F4947,x_1701F4935); T17 = CALL1(1,VARREF(Ytail),x_1700F4941); x_1700F4948 = T17; bodyF4940 = x_1700F4948; x_1700F4949 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1700F4949,x_1701F4935); } else { T19 = CALL2(1,x_1701F4935,LITREF(lit_83),x_1700F4936); } T21 = CALL1(1,VARREF(Ylst),LITREF(lit_266)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_313)); T26 = eF4937; T25 = CALL1(1,VARREF(Ylst),T26); T23 = CALL3(1,VARREF(YgooSmacrosYcat),T24,T25,LITREF(lit_86)); T22 = CALL1(1,VARREF(Ylst),T23); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_307)); T33 = eF4937; T32 = CALL1(1,VARREF(Ylst),T33); T35 = dF4938; T34 = CALL1(1,VARREF(Ylst),T35); T37 = outF4939; T36 = CALL1(1,VARREF(Ylst),T37); T31 = CALL4(1,VARREF(YgooSmacrosYcat),T32,T34,T36,LITREF(lit_86)); T30 = CALL1(1,VARREF(Ylst),T31); T38 = bodyF4940; T28 = CALL4(1,VARREF(YgooSmacrosYcat),T29,T30,T38,LITREF(lit_86)); T27 = CALL1(1,VARREF(Ylst),T28); T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T27,LITREF(lit_86)); UNLINK_STACK(); QRET(T20); } LOCCODEDEF(fun_117) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_116,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotation_forwards_118) { P out_,qbT_; P x_1704F4952; P qbF4951; P x_1702F4950; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(out_, 0); ARG(qbT_, 1); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_316)); T8 = CALL1(1,VARREF(YgooScolsScolYenum),qbT_); x_1702F4950 = T8; LOOP_222: { P a222_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1702F4950); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnow),x_1702F4950); qbF4951 = T7; x_1704F4952 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1704F4952,LITREF(lit_317)); T3 = CALL1(1,VARREF(YevalSmoduleYbinding_name),qbF4951); CALL2(1,VARREF(YgooSioSwriteYemit),x_1704F4952,T3); T4 = CALL2(1,VARREF(YgooSioSportYputs),x_1704F4952,LITREF(lit_318)); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1702F4950); a222_0 = T6; x_1702F4950 = a222_0; goto LOOP_222; T0 = T5; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotations_119) { P out_,qbT_; P x_1707F4955; P qbF4954; P x_1705F4953; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(out_, 0); ARG(qbT_, 1); T12 = CALL1(1,VARREF(YgooScolsSseqYrev),qbT_); T11 = CALL1(1,VARREF(YgooScolsScolYenum),T12); x_1705F4953 = T11; LOOP_223: { P a223_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1705F4953); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YgooScolsScolYnow),x_1705F4953); qbF4954 = T10; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL2(1,VARREF(YevalSg2cYgen_depth),YPint((P)1),out_); } else { } x_1707F4955 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1707F4955,LITREF(lit_321)); T4 = CALL1(1,VARREF(YevalSmoduleYbinding_name),qbF4954); CALL2(1,VARREF(YgooSioSwriteYemit),x_1707F4955,T4); T5 = CALL2(1,VARREF(YgooSioSportYputs),x_1707F4955,LITREF(lit_322)); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_info),qbF4954); CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,T6); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T7 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T9 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1705F4953); a223_0 = T9; x_1705F4953 = a223_0; goto LOOP_223; T0 = T8; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOlit) { P n_; P T0; LINK_STACK(); ARG(n_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYTlitsT),n_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_121) { P nF4956; P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YgooStypesYlen),VARREF(YevalSg2cYTlitsT)); nF4956 = T0; CALL2(1,VARREF(YgooScolsScolxYaddX),VARREF(YevalSg2cYTlitsT),FREEREF(0)); UNLINK_STACK(); QRET(nF4956); } LOCCODEDEF(fun_ref_lit_122) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = FUNFAB(fun_121,1,x_); T0 = CALL3(1,VARREF(YgooScolsScolxYeltX),VARREF(YevalSg2cYTlits_atT),x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotation_123) { P out_,x_; P x_1708F4957; P T0,T1,T2,T3; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1708F4957 = out_; T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_329)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1708F4957,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1708F4957,LITREF(lit_330)); T2 = CALL1(1,VARREF(YevalSg2cYref_lit),x_); T1 = CALL1(1,VARREF(YgooSmathYnum_to_str),T2); CALL2(1,VARREF(YgooSioSportYputs),x_1708F4957,T1); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1708F4957,LITREF(lit_331)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_false_name_124) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_333)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotation_125) { P out_,qb_; P T0,T1,T2; LINK_STACK(); ARG(out_, 0); ARG(qb_, 1); if (qb_ != YPfalse) { T2 = LITREF(lit_335); } else { T2 = LITREF(lit_336); } T1 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),T2); T0 = CALL2(1,VARREF(YgooSioSportYputs),out_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotation_126) { P out_,qb_; P T0,T1; LINK_STACK(); ARG(out_, 0); ARG(qb_, 1); T1 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_338)); T0 = CALL2(1,VARREF(YgooSioSportYputs),out_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_127) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YevalSg2cYgenerate_quotation),FREEREF(0),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotation_128) { P out_,qb_; P T0,T1; LINK_STACK(); ARG(out_, 0); ARG(qb_, 1); T1 = FUNFAB(fun_127,1,out_); T0 = CALL3(1,VARREF(YevalSg2cYout_list_builder),T1,out_,qb_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_quotation_129) { P out_,x_; P x_1709F4958; P T0,T1,T2; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1709F4958 = out_; T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_342)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1709F4958,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1709F4958,LITREF(lit_343)); T1 = CALL1(1,VARREF(YgooSmathYnum_to_str),x_); CALL2(1,VARREF(YgooSioSportYputs),x_1709F4958,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1709F4958,LITREF(lit_344)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_generate_quotation_130) { P out_,x_; P x_1710F4959; P T0,T1,T2,T3; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1710F4959 = out_; T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_346)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1710F4959,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1710F4959,LITREF(lit_347)); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),x_); T1 = CALL1(1,VARREF(YgooSmathYnum_to_str),T2); CALL2(1,VARREF(YgooSioSportYputs),x_1710F4959,T1); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1710F4959,LITREF(lit_348)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_131) { P done_; P x_1712F4962; P x_1711F4961; P iF4960; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(done_, 0); T16 = CALL1(1,VARREF(YgooStypesYlen),FREEREF(0)); T15 = CALL2(1,VARREF(YgooSmathY_),T16,YPint((P)1)); iF4960 = T15; LOOP_224: { P a224_0; T2 = CALL1(1,VARREF(YgooSmathYneg),YPint((P)1)); T1 = CALL2(1,VARREF(YgooSmagYG),iF4960,T2); if (T1 != YPfalse) { T14 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(0),iF4960); x_1711F4961 = T14; x_1712F4962 = VARREF(YgooSmacrosYEE); T4 = CALL2(1,x_1712F4962,x_1711F4961,YPchr((P)115)); if (T4 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)101),FREEREF(0),iF4960); T5 = CALL1(0,done_,YPfalse); T3 = T5; } else { T7 = CALL2(1,x_1712F4962,x_1711F4961,YPchr((P)100)); if (T7 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)101),FREEREF(0),iF4960); T8 = CALL1(0,done_,YPfalse); T6 = T8; } else { T10 = CALL2(1,x_1712F4962,x_1711F4961,YPchr((P)120)); if (T10 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)101),FREEREF(0),iF4960); T11 = CALL1(0,done_,YPfalse); T9 = T11; } else { T13 = CALL2(1,VARREF(YgooSmathY_),iF4960,YPint((P)1)); a224_0 = T13; iF4960 = a224_0; goto LOOP_224; T9 = T12; } T6 = T9; } T3 = T6; } T0 = T3; } else { T0 = FREEREF(0); } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_float_to_c_string_132) { P o_; P sF4963; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); T2 = CALL1(1,VARREF(YgooSmathYnum_to_str),o_); sF4963 = T2; T1 = FUNFAB(fun_131,1,sF4963); T0 = with_exit(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_generate_quotation_133) { P out_,x_; P x_1713F4964; P T0,T1,T2; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1713F4964 = out_; T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_353)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1713F4964,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1713F4964,LITREF(lit_354)); T1 = CALL1(1,VARREF(YevalSg2cYfloat_to_c_string),x_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1713F4964,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1713F4964,LITREF(lit_355)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_generate_quotation_134) { P out_,x_; P x_1714F4965; P T0,T1,T2; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1714F4965 = out_; T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_357)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1714F4965,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1714F4965,LITREF(lit_358)); T1 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),x_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1714F4965,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1714F4965,LITREF(lit_359)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_generate_quotation_135) { P out_,x_; P eF4968; P x_1716F4967; P x_1715F4966; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1715F4966 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1715F4966,LITREF(lit_361)); T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_362)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1715F4966,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1715F4966,LITREF(lit_363)); T2 = CALL1(1,VARREF(YgooStypesYlen),x_); T1 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1715F4966,T2); T9 = CALL1(1,VARREF(YgooScolsScolYenum),x_); x_1716F4967 = T9; LOOP_225: { P a225_0; T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1716F4967); T4 = CALL1(1,VARREF(Ynot),T5); if (T4 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),x_1716F4967); eF4968 = T8; CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_364)); CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,eF4968); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1716F4967); a225_0 = T7; x_1716F4967 = a225_0; goto LOOP_225; T3 = T6; } else { T3 = YPfalse; } } T10 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_365)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_generate_quotation_136) { P out_,x_; P eF4971; P x_1719F4970; P x_1718F4969; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1718F4969 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1718F4969,LITREF(lit_367)); T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_368)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1718F4969,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1718F4969,LITREF(lit_369)); T2 = CALL1(1,VARREF(YgooStypesYlen),x_); T1 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1718F4969,T2); T9 = CALL1(1,VARREF(YgooScolsScolYenum),x_); x_1719F4970 = T9; LOOP_226: { P a226_0; T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1719F4970); T4 = CALL1(1,VARREF(Ynot),T5); if (T4 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),x_1719F4970); eF4971 = T8; CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_370)); CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,eF4971); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1719F4970); a226_0 = T7; x_1719F4970 = a226_0; goto LOOP_226; T3 = T6; } else { T3 = YPfalse; } } T10 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_371)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_generate_quotation_137) { P out_,x_; P x_1721F4972; P T0,T1,T2; LINK_STACK(); ARG(out_, 0); ARG(x_, 1); x_1721F4972 = out_; T0 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_373)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1721F4972,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1721F4972,LITREF(lit_374)); T1 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),x_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1721F4972,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1721F4972,LITREF(lit_375)); UNLINK_STACK(); QRET(T2); } FUNCODEDEF(YevalSg2cYbinding_Gc) { P binding_,out_; P T0,T1; LINK_STACK(); ARG(binding_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YevalSg2cYmangle_binding),binding_); T0 = CALL2(1,VARREF(YgooSioSportYputs),out_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_Gc_139) { P v_,out_; P T0; LINK_STACK(); ARG(v_, 0); ARG(out_, 1); T0 = CALL2(1,VARREF(YevalSg2cYbinding_Gc),v_,out_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reference_Gc_140) { P v_,out_; P x_1724F4975; P x_1723F4974; P x_1722F4973; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(v_, 0); ARG(out_, 1); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),v_); x_1722F4973 = T6; x_1723F4974 = VARREF(YgooSmacrosYEE); T1 = CALL2(1,x_1723F4974,x_1722F4973,LITREF(lit_242)); if (T1 != YPfalse) { T0 = LITREF(lit_382); } else { T3 = CALL2(1,x_1723F4974,x_1722F4973,LITREF(lit_168)); if (T3 != YPfalse) { T2 = LITREF(lit_383); } else { T5 = CALL2(1,x_1723F4974,x_1722F4973,LITREF(lit_169)); if (T5 != YPfalse) { T4 = LITREF(lit_384); } else { T4 = LITREF(lit_385); } T2 = T4; } T0 = T2; } CALL2(1,VARREF(YgooSioSportYputs),out_,T0); x_1724F4975 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1724F4975,YPchr((P)40)); CALL2(1,VARREF(YevalSg2cYbinding_Gc),v_,out_); T7 = CALL2(1,VARREF(YgooSioSportYput),x_1724F4975,YPchr((P)41)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_to_c_141) { P e_,f_,d_,out_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSast_linearizeYform_quotations),e_); CALL2(1,VARREF(YevalSg2cYgenerate_quotations),out_,T0); T1 = CALL1(1,VARREF(YevalSast_linearizeYform_definitions),e_); CALL4(1,VARREF(YevalSg2cYgenerate_functions),T1,f_,d_,out_); T2 = CALL1(1,VARREF(YevalSast_linearizeYform_program),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T2,f_,d_,out_); T4 = CALL1(1,VARREF(YevalSastYprogram_register),e_); if (T4 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T5 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T6 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T7 = CALL1(1,VARREF(YevalSast_linearizeYform_program),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T7,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T9 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T8 = T9; } else { T8 = YPfalse; } T3 = T8; } else { T3 = YPfalse; } UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_to_c_142) { P e_,f_,d_,out_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T1 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YevalSg2cYgen_refT),e_,out_); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_143) { P e_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),e_); T0 = CALL2(1,VARREF(YevalSg2cYreference_Gc),T1,out_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_144) { P e_,out_; P x_1726F4977; P x_1725F4976; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_393)); x_1725F4976 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1725F4976,YPchr((P)40)); x_1726F4977 = out_; T2 = CALL1(1,VARREF(YevalSast_linearizeYreference_offset),e_); T1 = CALL1(1,VARREF(YgooSmathYnum_to_str),T2); T0 = CALL2(1,VARREF(YgooSioSportYputs),x_1726F4977,T1); T3 = CALL2(1,VARREF(YgooSioSportYput),x_1725F4976,YPchr((P)41)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_gen_refT_145) { P e_,out_; P x_1727F4979; P regF4978; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T4 = CALL1(1,VARREF(YevalSastYprogram_register),e_); regF4978 = T4; if (regF4978 != YPfalse) { x_1727F4979 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1727F4979,LITREF(lit_395)); T2 = CALL1(1,VARREF(YgooSmathYnum_to_str),regF4978); T1 = CALL2(1,VARREF(YgooSioSportYputs),x_1727F4979,T2); T0 = T1; } else { T3 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_396)); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_146) { P e_,out_; P x_1728F4980; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); x_1728F4980 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1728F4980,LITREF(lit_398)); T1 = CALL1(1,VARREF(YevalSastYconstant_value),e_); T0 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1728F4980,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_147) { P e_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YevalSastYconstant_value),e_); T0 = CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_148) { P e_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYlast),e_); T0 = CALL2(1,VARREF(YevalSg2cYgen_refT),T1,out_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_149) { P e_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YevalSastYlocals_body),e_); T0 = CALL2(1,VARREF(YevalSg2cYgen_refT),T1,out_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_150) { P e_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YevalSastYfix_let_body),e_); T0 = CALL2(1,VARREF(YevalSg2cYgen_refT),T1,out_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_refT_151) { P e_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(out_, 1); T1 = CALL1(1,VARREF(YevalSastYloop_body),e_); T0 = CALL2(1,VARREF(YevalSg2cYgen_refT),T1,out_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYgen_ref) { P e_,f_,d_,out_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_refT),e_,out_); T0 = T1; } else { T2 = CALL4(1,VARREF(YevalSg2cYto_c),e_,f_,d_,out_); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_pc_153) { P e_,f_,d_,out_; P T0,T1; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL4(1,VARREF(YevalSg2cYto_c),e_,f_,d_,out_); T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_154) { P e_,f_,d_,out_; P x_1730F4982; P x_1729F4981; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYassignment_form),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T10 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); T9 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),T10); x_1729F4981 = T9; x_1730F4982 = VARREF(YgooSmacrosYEE); T4 = CALL2(1,x_1730F4982,x_1729F4981,LITREF(lit_168)); if (T4 != YPfalse) { T3 = LITREF(lit_409); } else { T6 = CALL2(1,x_1730F4982,x_1729F4981,LITREF(lit_169)); if (T6 != YPfalse) { T8 = CALL2(1,VARREF(YisaQ),e_,VARREF(YevalSastYLdynamic_definitionG)); if (T8 != YPfalse) { T7 = LITREF(lit_410); } else { T7 = LITREF(lit_411); } T5 = T7; } else { T5 = LITREF(lit_412); } T3 = T5; } CALL2(1,VARREF(YgooSioSportYputs),out_,T3); T11 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); CALL2(1,VARREF(YevalSg2cYbinding_Gc),T11,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_413)); T12 = CALL1(1,VARREF(YevalSastYassignment_form),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T12,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_414)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T14 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T13 = T14; } else { T13 = YPfalse; } UNLINK_STACK(); QRET(T13); } LOCCODEDEF(fun_to_c_155) { P e_,f_,d_,out_; P x_1731F4983; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYboundQ_default),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); T2 = CALL1(1,VARREF(YevalSastYprogram_register),e_); if (T2 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T4 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T6 = CALL1(1,VARREF(YevalSastYboundQ_reference),e_); T5 = CALL2(1,VARREF(YisaQ),T6,VARREF(YevalSastYLruntime_referenceG)); if (T5 != YPfalse) { T7 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_416)); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_417)); x_1731F4983 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1731F4983,YPchr((P)40)); T9 = CALL1(1,VARREF(YevalSastYboundQ_reference),e_); T8 = CALL1(1,VARREF(YevalSastYreference_binding),T9); CALL2(1,VARREF(YevalSg2cYbinding_Gc),T8,out_); CALL2(1,VARREF(YgooSioSportYput),x_1731F4983,YPchr((P)44)); T10 = CALL1(1,VARREF(YevalSastYboundQ_default),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T10,f_,d_,out_); T11 = CALL2(1,VARREF(YgooSioSportYput),x_1731F4983,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T13 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T12 = T13; } else { T12 = YPfalse; } T1 = T12; } else { T1 = YPfalse; } UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_to_c_156) { P e_,f_,d_,out_; P x_1732F4985; P refF4984; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T10 = CALL1(1,VARREF(YevalSast_linearizeYbox_reference),e_); refF4984 = T10; T1 = CALL1(1,VARREF(YevalSastYprogram_register),e_); if (T1 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T5 = CALL1(1,VARREF(YevalSastYreference_binding),refF4984); T4 = CALL1(1,VARREF(YevalSastYbinding_closed_overQ),T5); if (T4 != YPfalse) { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_419)); x_1732F4985 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1732F4985,YPchr((P)40)); CALL4(1,VARREF(YevalSg2cYgen_ref),refF4984,f_,d_,out_); T6 = CALL2(1,VARREF(YgooSioSportYput),x_1732F4985,YPchr((P)41)); } else { T7 = CALL4(1,VARREF(YevalSg2cYgen_ref),refF4984,f_,d_,out_); } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T9 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T8 = T9; } else { T8 = YPfalse; } T0 = T8; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_157) { P e_,f_,d_,out_; P x_1733F4987; P refF4986; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T11 = CALL1(1,VARREF(YevalSast_linearizeYbox_reference),e_); refF4986 = T11; T0 = CALL1(1,VARREF(YevalSast_linearizeYbox_form),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T4 = CALL1(1,VARREF(YevalSastYreference_binding),refF4986); T3 = CALL1(1,VARREF(YevalSastYbinding_closed_overQ),T4); if (T3 != YPfalse) { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_421)); x_1733F4987 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1733F4987,YPchr((P)40)); T5 = CALL1(1,VARREF(YevalSast_linearizeYbox_form),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T5,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1733F4987,YPchr((P)44)); CALL4(1,VARREF(YevalSg2cYgen_ref),refF4986,f_,d_,out_); T6 = CALL2(1,VARREF(YgooSioSportYput),x_1733F4987,YPchr((P)41)); } else { CALL4(1,VARREF(YevalSg2cYgen_ref),refF4986,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_422)); T8 = CALL1(1,VARREF(YevalSast_linearizeYbox_form),e_); T7 = CALL4(1,VARREF(YevalSg2cYgen_ref),T8,f_,d_,out_); } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T10 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T9 = T10; } else { T9 = YPfalse; } UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_to_c_158) { P e_,f_,d_,out_; P x_1734F4989; P bindingF4988; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T9 = CALL1(1,VARREF(YevalSast_linearizeYbox_reference),e_); T8 = CALL1(1,VARREF(YevalSast_linearizeYbox_reference),T9); T7 = CALL1(1,VARREF(YevalSastYreference_binding),T8); bindingF4988 = T7; T1 = CALL1(1,VARREF(YevalSastYbinding_closed_overQ),bindingF4988); if (T1 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } CALL2(1,VARREF(YevalSg2cYbinding_Gc),bindingF4988,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_424)); x_1734F4989 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1734F4989,YPchr((P)40)); CALL2(1,VARREF(YevalSg2cYbinding_Gc),bindingF4988,out_); T4 = CALL2(1,VARREF(YgooSioSportYput),x_1734F4989,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T6 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T5 = T6; } else { T5 = YPfalse; } T0 = T5; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bbQ_159) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_bbQ_160) { P x_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); T3 = CALL1(1,VARREF(YevalSastYapplication_binding),x_); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_name),T3); T1 = CALL2(1,VARREF(YgooSmacrosYEE),T2,LITREF(lit_428)); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); T4 = CALL1(1,VARREF(YgooSmacrosY1st),T5); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bbQ_161) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSastYfix_let_body),x_); T0 = CALL1(1,VARREF(YevalSg2cYbbQ),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_162) { P e_,f_,d_,out_; P x_1736F4994; P x_1735F4993; P tstF4992; P tmpF4991; P bb_tstF4990; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T34 = CALL1(1,VARREF(YevalSastYalternative_condition),e_); T33 = CALL1(1,VARREF(YevalSg2cYbbQ),T34); bb_tstF4990 = T33; tmpF4991 = bb_tstF4990; if (tmpF4991 != YPfalse) { T31 = tmpF4991; } else { T32 = CALL1(1,VARREF(YevalSastYalternative_condition),e_); T31 = T32; } tstF4992 = T31; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL1(1,VARREF(YevalSastYalternative_condition),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T1,f_,d_,out_); CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_431)); CALL4(1,VARREF(YevalSg2cYgen_ref),tstF4992,f_,d_,out_); if (bb_tstF4990 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_432)); } else { x_1735F4993 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1735F4993,LITREF(lit_433)); T3 = CALL0(1,VARREF(YevalSg2cYfalse_name)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1735F4993,T3); T4 = CALL2(1,VARREF(YgooSioSportYputs),x_1735F4993,LITREF(lit_434)); } T5 = CALL1(1,VARREF(YevalSastYalternative_consequent),e_); T6 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); CALL4(1,VARREF(YevalSg2cYto_c),T5,f_,T6,out_); T7 = CALL1(1,VARREF(YevalSastYprogram_register),e_); if (T7 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T9 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T8 = CALL2(1,VARREF(YevalSg2cYgen_depth),T9,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T11 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T10 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,T11,out_); } else { } T12 = CALL1(1,VARREF(YevalSastYalternative_consequent),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T12,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T14 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T13 = T14; } else { T13 = YPfalse; } } else { } CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_435)); T15 = CALL1(1,VARREF(YevalSastYalternative_alternant),e_); T16 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); CALL4(1,VARREF(YevalSg2cYto_c),T15,f_,T16,out_); T17 = CALL1(1,VARREF(YevalSastYprogram_register),e_); if (T17 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T19 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T18 = CALL2(1,VARREF(YevalSg2cYgen_depth),T19,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T21 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T20 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,T21,out_); } else { } T22 = CALL1(1,VARREF(YevalSastYalternative_alternant),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T22,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T24 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T23 = T24; } else { T23 = YPfalse; } } else { } CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); T25 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_436)); T0 = T25; } else { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_437)); CALL4(1,VARREF(YevalSg2cYto_c),tstF4992,f_,d_,out_); x_1736F4994 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1736F4994,LITREF(lit_438)); T26 = CALL0(1,VARREF(YevalSg2cYfalse_name)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1736F4994,T26); T27 = CALL2(1,VARREF(YgooSioSportYputs),x_1736F4994,LITREF(lit_439)); T28 = CALL1(1,VARREF(YevalSastYalternative_consequent),e_); CALL4(1,VARREF(YevalSg2cYto_c),T28,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_440)); T29 = CALL1(1,VARREF(YevalSastYalternative_alternant),e_); CALL4(1,VARREF(YevalSg2cYto_c),T29,f_,d_,out_); T30 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_441)); T0 = T30; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_163) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL4(1,VARREF(YevalSg2cYto_c),x_,FREEREF(0),FREEREF(1),FREEREF(2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_164) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_165) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_to_c_166) { P e_,f_,d_,out_; P xF5000; P firstQF4999; P tmpF4998; P x_1738F4997; P x_1739F4996; P x_1737F4995; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = FUNFAB(fun_163,3,f_,d_,out_); T1 = CALL2(1,VARREF(YgooSmacrosYdo),T2,e_); T0 = T1; } else { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_444)); x_1737F4995 = out_; T17 = fun_164; T18 = fun_165; T16 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T17,T18); T15 = CALL1(1,VARREF(YgooScolsScolYenum),T16); x_1739F4996 = T15; T19 = CALL1(1,VARREF(YgooScolsScolYenum),e_); x_1738F4997 = T19; LOOP_227: { P a227_0,a227_1; T7 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1739F4996); tmpF4998 = T7; if (tmpF4998 != YPfalse) { T5 = tmpF4998; } else { T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1738F4997); T5 = T6; } T4 = CALL1(1,VARREF(Ynot),T5); if (T4 != YPfalse) { T14 = CALL1(1,VARREF(YgooScolsScolYnow),x_1739F4996); firstQF4999 = T14; T13 = CALL1(1,VARREF(YgooScolsScolYnow),x_1738F4997); xF5000 = T13; T8 = CALL1(1,VARREF(Ynot),firstQF4999); if (T8 != YPfalse) { T9 = CALL2(1,VARREF(YgooSioSportYput),x_1737F4995,YPchr((P)44)); } else { } CALL4(1,VARREF(YevalSg2cYto_c),xF5000,f_,d_,out_); T11 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1739F4996); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1738F4997); a227_0 = T11; a227_1 = T12; x_1739F4996 = a227_0; x_1738F4997 = a227_1; goto LOOP_227; T3 = T10; } else { T3 = YPfalse; } } T20 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_447)); T0 = T20; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_167) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_168) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_to_c_169) { P e_,f_,d_,out_; P x_1748F5014; P x_1747F5013; P bF5012; P iF5011; P firstQF5010; P tmpF5009; P tmpF5008; P x_1743F5007; P x_1744F5006; P x_1745F5005; P x_1742F5004; P bindingsF5003; P x_1741F5002; P nF5001; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T40 = CALL2(1,VARREF(YgooSmathYA),DYNREF(YevalSg2cYTloop_arg_counterT),YPint((P)1)); T39 = DYNSET(YevalSg2cYTloop_arg_counterT,T40); T38 = CALL2(1,VARREF(YevalSastYloop_continue_setter),T39,e_); nF5001 = T38; CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); x_1741F5002 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1741F5002,LITREF(lit_449)); T0 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5001); CALL2(1,VARREF(YgooSioSportYputs),x_1741F5002,T0); T1 = CALL2(1,VARREF(YgooSioSportYputs),x_1741F5002,LITREF(lit_450)); T37 = CALL1(1,VARREF(YevalSastYloop_bindings),e_); bindingsF5003 = T37; T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),bindingsF5003); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T5 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T4 = CALL2(1,VARREF(YevalSg2cYgen_depth),T5,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_451)); x_1742F5004 = out_; T27 = fun_167; T28 = fun_168; T26 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T27,T28); T25 = CALL1(1,VARREF(YgooScolsScolYenum),T26); x_1745F5005 = T25; T30 = CALL1(1,VARREF(YgooScolsSrangeYfrom),YPint((P)0)); T29 = CALL1(1,VARREF(YgooScolsScolYenum),T30); x_1744F5006 = T29; T31 = CALL1(1,VARREF(YgooScolsScolYenum),bindingsF5003); x_1743F5007 = T31; LOOP_228: { P a228_0,a228_1,a228_2; T12 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1745F5005); tmpF5008 = T12; if (tmpF5008 != YPfalse) { T8 = tmpF5008; } else { T11 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1744F5006); tmpF5009 = T11; if (tmpF5009 != YPfalse) { T9 = tmpF5009; } else { T10 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1743F5007); T9 = T10; } T8 = T9; } T7 = CALL1(1,VARREF(Ynot),T8); if (T7 != YPfalse) { T24 = CALL1(1,VARREF(YgooScolsScolYnow),x_1745F5005); firstQF5010 = T24; T23 = CALL1(1,VARREF(YgooScolsScolYnow),x_1744F5006); iF5011 = T23; T22 = CALL1(1,VARREF(YgooScolsScolYnow),x_1743F5007); bF5012 = T22; T13 = CALL1(1,VARREF(Ynot),firstQF5010); if (T13 != YPfalse) { T14 = CALL2(1,VARREF(YgooSioSportYput),x_1742F5004,YPchr((P)44)); } else { } x_1747F5013 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1747F5013,LITREF(lit_454)); T15 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5001); CALL2(1,VARREF(YgooSioSportYputs),x_1747F5013,T15); CALL2(1,VARREF(YgooSioSportYputs),x_1747F5013,LITREF(lit_455)); T17 = CALL1(1,VARREF(YgooSmathYnum_to_str),iF5011); T16 = CALL2(1,VARREF(YgooSioSportYputs),x_1747F5013,T17); T19 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1745F5005); T20 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1744F5006); T21 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1743F5007); a228_0 = T19; a228_1 = T20; a228_2 = T21; x_1745F5005 = a228_0; x_1744F5006 = a228_1; x_1743F5007 = a228_2; goto LOOP_228; T6 = T18; } else { T6 = YPfalse; } } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T33 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T32 = T33; } else { T32 = YPfalse; } } else { } T34 = CALL1(1,VARREF(YevalSastYloop_body),e_); T35 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); CALL4(1,VARREF(YevalSg2cYto_c),T34,f_,T35,out_); CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); x_1748F5014 = out_; T36 = CALL2(1,VARREF(YgooSioSportYputs),x_1748F5014,LITREF(lit_456)); UNLINK_STACK(); QRET(T36); } LOCCODEDEF(fun_to_c_170) { P e_,f_,d_,out_; P x_1759F5031; P x_1758F5030; P bindingF5029; P iF5028; P tmpF5027; P x_1755F5026; P x_1756F5025; P x_1754F5024; P argF5023; P iF5022; P tmpF5021; P x_1751F5020; P x_1752F5019; P argF5018; P x_1749F5017; P nF5016; P loopF5015; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T52 = CALL1(1,VARREF(YevalSastYapplication_loop),e_); loopF5015 = T52; T51 = CALL1(1,VARREF(YevalSastYloop_continue),loopF5015); nF5016 = T51; T7 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T6 = CALL1(1,VARREF(YgooScolsScolYenum),T7); x_1749F5017 = T6; LOOP_229: { P a229_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1749F5017); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1749F5017); argF5018 = T5; CALL4(1,VARREF(YevalSg2cYto_pc),argF5018,f_,d_,out_); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1749F5017); a229_0 = T4; x_1749F5017 = a229_0; goto LOOP_229; T0 = T3; } else { T0 = YPfalse; } } T24 = CALL1(1,VARREF(YgooScolsSrangeYfrom),YPint((P)0)); T23 = CALL1(1,VARREF(YgooScolsScolYenum),T24); x_1752F5019 = T23; T26 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T25 = CALL1(1,VARREF(YgooScolsScolYenum),T26); x_1751F5020 = T25; LOOP_230: { P a230_0,a230_1; T12 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1752F5019); tmpF5021 = T12; if (tmpF5021 != YPfalse) { T10 = tmpF5021; } else { T11 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1751F5020); T10 = T11; } T9 = CALL1(1,VARREF(Ynot),T10); if (T9 != YPfalse) { T22 = CALL1(1,VARREF(YgooScolsScolYnow),x_1752F5019); iF5022 = T22; T21 = CALL1(1,VARREF(YgooScolsScolYnow),x_1751F5020); argF5023 = T21; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T13 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } x_1754F5024 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1754F5024,LITREF(lit_458)); T14 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5016); CALL2(1,VARREF(YgooSioSportYputs),x_1754F5024,T14); CALL2(1,VARREF(YgooSioSportYputs),x_1754F5024,LITREF(lit_459)); T15 = CALL1(1,VARREF(YgooSmathYnum_to_str),iF5022); CALL2(1,VARREF(YgooSioSportYputs),x_1754F5024,T15); T16 = CALL2(1,VARREF(YgooSioSportYputs),x_1754F5024,LITREF(lit_460)); CALL4(1,VARREF(YevalSg2cYgen_ref),argF5023,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T17 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T19 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1752F5019); T20 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1751F5020); a230_0 = T19; a230_1 = T20; x_1752F5019 = a230_0; x_1751F5020 = a230_1; goto LOOP_230; T8 = T18; } else { T8 = YPfalse; } } T43 = CALL1(1,VARREF(YgooScolsSrangeYfrom),YPint((P)0)); T42 = CALL1(1,VARREF(YgooScolsScolYenum),T43); x_1756F5025 = T42; T45 = CALL1(1,VARREF(YevalSastYloop_bindings),loopF5015); T44 = CALL1(1,VARREF(YgooScolsScolYenum),T45); x_1755F5026 = T44; LOOP_231: { P a231_0,a231_1; T31 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1756F5025); tmpF5027 = T31; if (tmpF5027 != YPfalse) { T29 = tmpF5027; } else { T30 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1755F5026); T29 = T30; } T28 = CALL1(1,VARREF(Ynot),T29); if (T28 != YPfalse) { T41 = CALL1(1,VARREF(YgooScolsScolYnow),x_1756F5025); iF5028 = T41; T40 = CALL1(1,VARREF(YgooScolsScolYnow),x_1755F5026); bindingF5029 = T40; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T32 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } CALL2(1,VARREF(YevalSg2cYbinding_Gc),bindingF5029,out_); x_1758F5030 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1758F5030,LITREF(lit_461)); T33 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5016); CALL2(1,VARREF(YgooSioSportYputs),x_1758F5030,T33); CALL2(1,VARREF(YgooSioSportYputs),x_1758F5030,LITREF(lit_462)); T35 = CALL1(1,VARREF(YgooSmathYnum_to_str),iF5028); T34 = CALL2(1,VARREF(YgooSioSportYputs),x_1758F5030,T35); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T36 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T38 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1756F5025); T39 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1755F5026); a231_0 = T38; a231_1 = T39; x_1756F5025 = a231_0; x_1755F5026 = a231_1; goto LOOP_231; T27 = T37; } else { T27 = YPfalse; } } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T46 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } x_1759F5031 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1759F5031,LITREF(lit_463)); T48 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5016); T47 = CALL2(1,VARREF(YgooSioSportYputs),x_1759F5031,T48); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T50 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T49 = T50; } else { T49 = YPfalse; } UNLINK_STACK(); QRET(T49); } LOCCODEDEF(fun_to_c_171) { P e_,f_,d_,out_; P argF5040; P x_1765F5039; P x_1764F5038; P x_1763F5037; P x_1762F5036; P argF5035; P x_1760F5034; P nF5033; P functionF5032; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T36 = CALL1(1,VARREF(YevalSastYapplication_function),e_); functionF5032 = T36; T35 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T34 = CALL1(1,VARREF(YgooStypesYlen),T35); nF5033 = T34; T0 = CALL1(1,VARREF(YevalSastYapplication_function),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); T8 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T7 = CALL1(1,VARREF(YgooScolsScolYenum),T8); x_1760F5034 = T7; LOOP_232: { P a232_0; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1760F5034); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T6 = CALL1(1,VARREF(YgooScolsScolYnow),x_1760F5034); argF5035 = T6; CALL4(1,VARREF(YevalSg2cYto_pc),argF5035,f_,d_,out_); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1760F5034); a232_0 = T5; x_1760F5034 = a232_0; goto LOOP_232; T1 = T4; } else { T1 = YPfalse; } } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T9 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T10 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } x_1762F5036 = out_; T12 = CALL1(1,VARREF(Ynot),f_); if (T12 != YPfalse) { T11 = LITREF(lit_465); } else { T14 = CALL2(1,VARREF(YisaQ),f_,VARREF(YevalSastYLast_primitiveG)); if (T14 != YPfalse) { T13 = LITREF(lit_466); } else { T13 = LITREF(lit_46); } T11 = T13; } CALL2(1,VARREF(YgooSioSwriteYemit),x_1762F5036,T11); CALL2(1,VARREF(YgooSioSportYputs),x_1762F5036,LITREF(lit_467)); T17 = CALL2(1,VARREF(YgooSmagYG),nF5033,VARREF(YevalSg2cYDnumber_call_templates)); if (T17 != YPfalse) { T16 = LITREF(lit_468); } else { T16 = nF5033; } T15 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1762F5036,T16); x_1763F5037 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1763F5037,YPchr((P)40)); T19 = CALL1(1,VARREF(YevalSastYapplication_knownQ),e_); if (T19 != YPfalse) { T18 = LITREF(lit_469); } else { T18 = LITREF(lit_470); } CALL2(1,VARREF(YgooSioSportYputs),out_,T18); T20 = CALL1(1,VARREF(YevalSastYapplication_function),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T20,f_,d_,out_); T21 = CALL2(1,VARREF(YgooSmagYG),nF5033,VARREF(YevalSg2cYDnumber_call_templates)); if (T21 != YPfalse) { x_1764F5038 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1764F5038,LITREF(lit_471)); T22 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1764F5038,nF5033); } else { } T30 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T29 = CALL1(1,VARREF(YgooScolsScolYenum),T30); x_1765F5039 = T29; LOOP_233: { P a233_0; T25 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1765F5039); T24 = CALL1(1,VARREF(Ynot),T25); if (T24 != YPfalse) { T28 = CALL1(1,VARREF(YgooScolsScolYnow),x_1765F5039); argF5040 = T28; CALL2(1,VARREF(YgooSioSportYput),out_,YPchr((P)44)); CALL4(1,VARREF(YevalSg2cYgen_ref),argF5040,f_,d_,out_); T27 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1765F5039); a233_0 = T27; x_1765F5039 = a233_0; goto LOOP_233; T23 = T26; } else { T23 = YPfalse; } } T31 = CALL2(1,VARREF(YgooSioSportYput),x_1763F5037,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T33 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T32 = T33; } else { T32 = YPfalse; } UNLINK_STACK(); QRET(T32); } LOCCODEDEF(fun_to_c_172) { P e_,f_,d_,out_; P next_metsF5045; P x_1770F5044; P x_1769F5043; P x_1768F5042; P x_1767F5041; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYapplication_next_methods),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); x_1767F5041 = out_; T18 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); x_1768F5042 = T18; if (x_1768F5042 != YPfalse) { T1 = CALL2(1,VARREF(YgooSioSportYput),x_1767F5041,YPchr((P)40)); } else { } x_1769F5043 = out_; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } T3 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_473)); CALL2(1,VARREF(YgooSioSportYputs),out_,T3); x_1770F5044 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1770F5044,YPchr((P)40)); T4 = CALL1(1,VARREF(YevalSastYapplication_next_methods),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T4,f_,d_,out_); T5 = CALL2(1,VARREF(YgooSioSportYput),x_1770F5044,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T6 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T8 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); if (T8 != YPfalse) { T9 = CALL2(1,VARREF(YgooSioSportYputs),x_1769F5043,LITREF(lit_297)); T7 = T9; } else { T7 = YPfalse; } T14 = (P)YPfun_reg(); T15 = (P)YPnext_methods(); T13 = CALLN(1,VARREF(YgooSmacrosYOchecked_next_methods),6,T14,T15,e_,f_,d_,out_); next_metsF5045 = T13; T11 = CALL1(1,VARREF(Yhead),next_metsF5045); T12 = CALL1(1,VARREF(Ytail),next_metsF5045); T10 = CALLN(1,VARREF(YgooSmacrosYnapp),7,T11,T12,e_,f_,d_,out_,Ynil); if (x_1768F5042 != YPfalse) { T17 = CALL2(1,VARREF(YgooSioSportYput),x_1767F5041,YPchr((P)41)); T16 = T17; } else { T16 = YPfalse; } UNLINK_STACK(); QRET(T16); } LOCCODEDEF(fun_173) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_174) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_to_c_175) { P e_,f_,d_,out_; P xF5051; P firstQF5050; P tmpF5049; P x_1772F5048; P x_1773F5047; P x_1771F5046; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); x_1771F5046 = out_; T14 = fun_173; T15 = fun_174; T13 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T14,T15); T12 = CALL1(1,VARREF(YgooScolsScolYenum),T13); x_1773F5047 = T12; T16 = CALL1(1,VARREF(YgooScolsScolYenum),e_); x_1772F5048 = T16; LOOP_234: { P a234_0,a234_1; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1773F5047); tmpF5049 = T4; if (tmpF5049 != YPfalse) { T2 = tmpF5049; } else { T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1772F5048); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T11 = CALL1(1,VARREF(YgooScolsScolYnow),x_1773F5047); firstQF5050 = T11; T10 = CALL1(1,VARREF(YgooScolsScolYnow),x_1772F5048); xF5051 = T10; T5 = CALL1(1,VARREF(Ynot),firstQF5050); if (T5 != YPfalse) { T6 = CALL2(1,VARREF(YgooSioSportYput),x_1771F5046,YPchr((P)44)); } else { } CALL4(1,VARREF(YevalSg2cYgen_ref),xF5051,f_,d_,out_); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1773F5047); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1772F5048); a234_0 = T8; a234_1 = T9; x_1773F5047 = a234_0; x_1772F5048 = a234_1; goto LOOP_234; T0 = T7; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_176) { P refF5053; P x_1776F5052; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); DYNSET(YevalSg2cYTgen_statementsQT,YPfalse); T7 = CALL1(1,VARREF(YevalSastYc_inline_refs),FREEREF(0)); T6 = CALL1(1,VARREF(YgooScolsScolYenum),T7); x_1776F5052 = T6; LOOP_235: { P a235_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1776F5052); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1776F5052); refF5053 = T5; CALL4(1,VARREF(YevalSg2cYto_pc),refF5053,FREEREF(1),FREEREF(2),FREEREF(3)); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1776F5052); a235_0 = T4; x_1776F5052 = a235_0; goto LOOP_235; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_177) { P T0; LINK_STACK(); T0 = DYNSET(YevalSg2cYTgen_statementsQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_178) { P strF5056; P refsF5055; P strsF5054; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); DYNSET(YevalSg2cYTgen_statementsQT,YPfalse); T11 = CALL1(1,VARREF(YevalSastYc_inline_strs),FREEREF(0)); strsF5054 = T11; T12 = CALL1(1,VARREF(YevalSastYc_inline_refs),FREEREF(0)); refsF5055 = T12; LOOP_236: { P a236_0,a236_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),strsF5054); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),FREEREF(2)); T0 = T2; } else { T10 = CALL1(1,VARREF(Yhead),strsF5054); strF5056 = T10; if (strF5056 != YPfalse) { CALL2(1,VARREF(YgooSioSwriteYemit),FREEREF(1),strF5056); T5 = CALL1(1,VARREF(Ytail),strsF5054); a236_0 = T5; a236_1 = refsF5055; strsF5054 = a236_0; refsF5055 = a236_1; goto LOOP_236; T3 = T4; } else { T6 = CALL1(1,VARREF(Yhead),refsF5055); CALL4(1,VARREF(YevalSg2cYto_c),T6,FREEREF(3),FREEREF(4),FREEREF(1)); T8 = CALL1(1,VARREF(Ytail),strsF5054); T9 = CALL1(1,VARREF(Ytail),refsF5055); a236_0 = T8; a236_1 = T9; strsF5054 = a236_0; refsF5055 = a236_1; goto LOOP_236; T3 = T7; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_179) { P T0; LINK_STACK(); T0 = DYNSET(YevalSg2cYTgen_statementsQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_180) { P e_,f_,d_,oot_; P x_1778F5061; P rpsF5060; P lpsF5059; P eQF5058; P x_1775F5057; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(oot_, 3); x_1775F5057 = DYNREF(YevalSg2cYTgen_statementsQT); T1 = FUNFAB(fun_176,4,e_,f_,d_,oot_); T2 = FUNFAB(fun_177,1,x_1775F5057); T0 = with_cleanup(T1,T2); T13 = CALL1(1,VARREF(YevalSastYc_inline_exprQ),e_); eQF5058 = T13; if (f_ != YPfalse) { if (eQF5058 != YPfalse) { T10 = LITREF(lit_478); } else { T12 = CALL0(1,VARREF(YevalSg2cYfalse_name)); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_479)); T10 = T11; } T9 = T10; } else { T9 = LITREF(lit_46); } lpsF5059 = T9; if (f_ != YPfalse) { if (eQF5058 != YPfalse) { T8 = LITREF(lit_480); } else { T8 = LITREF(lit_481); } T7 = T8; } else { T7 = LITREF(lit_46); } rpsF5060 = T7; if (f_ != YPfalse) { CALL2(1,VARREF(YevalSg2cYgen_depth),d_,oot_); T3 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,oot_); } else { } CALL2(1,VARREF(YgooSioSportYputs),oot_,lpsF5059); x_1778F5061 = DYNREF(YevalSg2cYTgen_statementsQT); T5 = FUNFAB(fun_178,5,e_,oot_,rpsF5060,f_,d_); T6 = FUNFAB(fun_179,1,x_1778F5061); T4 = with_cleanup(T5,T6); UNLINK_STACK(); QRET(T4); } LOCCODEDEF(fun_to_c_181) { P e_,f_,d_,out_; P x_1787F5076; P x_1786F5075; P x_1785F5074; P tmpF5073; P bindingF5072; P typeF5071; P initF5070; P tmpF5069; P tmpF5068; P x_1781F5067; P x_1782F5066; P x_1783F5065; P low_letQF5064; P x_1780F5063; P x_1779F5062; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); x_1779F5062 = out_; T39 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); x_1780F5063 = T39; if (x_1780F5063 != YPfalse) { T0 = CALL2(1,VARREF(YgooSioSportYput),x_1779F5062,YPchr((P)40)); } else { } T38 = CALL2(1,VARREF(YisaQ),e_,VARREF(YevalSastYLlow_letG)); low_letQF5064 = T38; T30 = CALL1(1,VARREF(YevalSastYfix_let_arguments),e_); T29 = CALL1(1,VARREF(YgooScolsScolYenum),T30); x_1783F5065 = T29; T32 = CALL1(1,VARREF(YevalSastYfix_let_types),e_); T31 = CALL1(1,VARREF(YgooScolsScolYenum),T32); x_1782F5066 = T31; T34 = CALL1(1,VARREF(YevalSastYfix_let_bindings),e_); T33 = CALL1(1,VARREF(YgooScolsScolYenum),T34); x_1781F5067 = T33; LOOP_237: { P a237_0,a237_1,a237_2; T7 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1783F5065); tmpF5068 = T7; if (tmpF5068 != YPfalse) { T3 = tmpF5068; } else { T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1782F5066); tmpF5069 = T6; if (tmpF5069 != YPfalse) { T4 = tmpF5069; } else { T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1781F5067); T4 = T5; } T3 = T4; } T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T28 = CALL1(1,VARREF(YgooScolsScolYnow),x_1783F5065); initF5070 = T28; T27 = CALL1(1,VARREF(YgooScolsScolYnow),x_1782F5066); typeF5071 = T27; T26 = CALL1(1,VARREF(YgooScolsScolYnow),x_1781F5067); bindingF5072 = T26; CALL4(1,VARREF(YevalSg2cYto_pc),initF5070,f_,d_,out_); T10 = CALL1(1,VARREF(YevalSoptimizeYunconstrained_typeQ),typeF5071); tmpF5073 = T10; if (tmpF5073 != YPfalse) { T9 = tmpF5073; } else { T9 = low_letQF5064; } T8 = CALL1(1,VARREF(Ynot),T9); if (T8 != YPfalse) { CALL4(1,VARREF(YevalSg2cYto_pc),typeF5071,f_,d_,out_); x_1785F5074 = out_; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T11 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_483)); x_1786F5075 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1786F5075,YPchr((P)40)); CALL4(1,VARREF(YevalSg2cYgen_ref),initF5070,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1786F5075,YPchr((P)44)); CALL4(1,VARREF(YevalSg2cYgen_ref),typeF5071,f_,d_,out_); T12 = CALL2(1,VARREF(YgooSioSportYput),x_1786F5075,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T13 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T15 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); if (T15 != YPfalse) { T16 = CALL2(1,VARREF(YgooSioSportYputs),x_1785F5074,LITREF(lit_297)); T14 = T16; } else { T14 = YPfalse; } } else { } x_1787F5076 = out_; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T17 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } CALL2(1,VARREF(YevalSg2cYbinding_Gc),bindingF5072,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_484)); CALL4(1,VARREF(YevalSg2cYgen_ref),initF5070,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T18 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T20 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); if (T20 != YPfalse) { T21 = CALL2(1,VARREF(YgooSioSportYputs),x_1787F5076,LITREF(lit_297)); T19 = T21; } else { T19 = YPfalse; } T23 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1783F5065); T24 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1782F5066); T25 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1781F5067); a237_0 = T23; a237_1 = T24; a237_2 = T25; x_1783F5065 = a237_0; x_1782F5066 = a237_1; x_1781F5067 = a237_2; goto LOOP_237; T1 = T22; } else { T1 = YPfalse; } } T35 = CALL1(1,VARREF(YevalSastYfix_let_body),e_); CALL4(1,VARREF(YevalSg2cYto_c),T35,f_,d_,out_); if (x_1780F5063 != YPfalse) { T37 = CALL2(1,VARREF(YgooSioSportYput),x_1779F5062,YPchr((P)41)); T36 = T37; } else { T36 = YPfalse; } UNLINK_STACK(); QRET(T36); } LOCCODEDEF(fun_182) { P lb_,lf_; P x_1794F5077; P T0,T1,T2; LINK_STACK(); ARG(lb_, 0); ARG(lf_, 1); x_1794F5077 = FREEREF(0); CALL5(1,VARREF(YevalSg2cYfuninit_to_c),lb_,lf_,FREEREF(1),FREEREF(2),FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1794F5077,LITREF(lit_297)); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_183) { P e_,f_,d_,out_; P x_1793F5085; P bindingF5084; P initF5083; P tmpF5082; P x_1790F5081; P x_1791F5080; P x_1789F5079; P x_1788F5078; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); x_1788F5078 = out_; T26 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); x_1789F5079 = T26; if (x_1789F5079 != YPfalse) { T0 = CALL2(1,VARREF(YgooSioSportYput),x_1788F5078,YPchr((P)40)); } else { } T17 = CALL1(1,VARREF(YevalSastYlocals_functions),e_); T16 = CALL1(1,VARREF(YgooScolsScolYenum),T17); x_1791F5080 = T16; T19 = CALL1(1,VARREF(YevalSastYlocals_bindings),e_); T18 = CALL1(1,VARREF(YgooScolsScolYenum),T19); x_1790F5081 = T18; LOOP_238: { P a238_0,a238_1; T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1791F5080); tmpF5082 = T5; if (tmpF5082 != YPfalse) { T3 = tmpF5082; } else { T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1790F5081); T3 = T4; } T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T15 = CALL1(1,VARREF(YgooScolsScolYnow),x_1791F5080); initF5083 = T15; T14 = CALL1(1,VARREF(YgooScolsScolYnow),x_1790F5081); bindingF5084 = T14; CALL5(1,VARREF(YevalSg2cYfunshell_to_c),bindingF5084,initF5083,YPfalse,d_,out_); x_1793F5085 = out_; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T6 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } CALL2(1,VARREF(YevalSg2cYbinding_Gc),bindingF5084,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_486)); CALL4(1,VARREF(YevalSg2cYgen_ref),initF5083,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T7 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T9 = CALL1(1,VARREF(Ynot),DYNREF(YevalSg2cYTgen_statementsQT)); if (T9 != YPfalse) { T10 = CALL2(1,VARREF(YgooSioSportYputs),x_1793F5085,LITREF(lit_297)); T8 = T10; } else { T8 = YPfalse; } T12 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1791F5080); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1790F5081); a238_0 = T12; a238_1 = T13; x_1791F5080 = a238_0; x_1790F5081 = a238_1; goto LOOP_238; T1 = T11; } else { T1 = YPfalse; } } T20 = FUNFAB(fun_182,3,out_,f_,d_); T21 = CALL1(1,VARREF(YevalSastYlocals_bindings),e_); T22 = CALL1(1,VARREF(YevalSastYlocals_functions),e_); CALL3(1,VARREF(YgooScolsSseqYdo2),T20,T21,T22); T23 = CALL1(1,VARREF(YevalSastYlocals_body),e_); CALL4(1,VARREF(YevalSg2cYto_c),T23,f_,d_,out_); if (x_1789F5079 != YPfalse) { T25 = CALL2(1,VARREF(YgooSioSportYput),x_1788F5078,YPchr((P)41)); T24 = T25; } else { T24 = YPfalse; } UNLINK_STACK(); QRET(T24); } LOCCODEDEF(fun_to_c_184) { P e_,f_,d_,out_; P x_1795F5086; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYbind_exit_main_fun),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_489)); x_1795F5086 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1795F5086,YPchr((P)40)); T3 = CALL1(1,VARREF(YevalSastYbind_exit_main_fun),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T3,f_,d_,out_); T4 = CALL2(1,VARREF(YgooSioSportYput),x_1795F5086,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T6 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T5 = T6; } else { T5 = YPfalse; } UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_to_c_185) { P e_,f_,d_,out_; P x_1796F5087; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYunwind_protect_protected_thunk),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); T1 = CALL1(1,VARREF(YevalSastYunwind_protect_cleanup_thunk),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T1,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_491)); x_1796F5087 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1796F5087,YPchr((P)40)); T4 = CALL1(1,VARREF(YevalSastYunwind_protect_protected_thunk),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T4,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1796F5087,YPchr((P)44)); T5 = CALL1(1,VARREF(YevalSastYunwind_protect_cleanup_thunk),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T5,f_,d_,out_); T6 = CALL2(1,VARREF(YgooSioSportYput),x_1796F5087,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T8 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T7 = T8; } else { T7 = YPfalse; } UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_to_c_186) { P e_,f_,d_,out_; P x_1797F5088; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYmonitor_type),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); T1 = CALL1(1,VARREF(YevalSastYmonitor_info),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T1,f_,d_,out_); T2 = CALL1(1,VARREF(YevalSastYmonitor_test),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T2,f_,d_,out_); T3 = CALL1(1,VARREF(YevalSastYmonitor_handler),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T3,f_,d_,out_); T4 = CALL1(1,VARREF(YevalSastYmonitor_main_thunk),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T4,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T5 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T6 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_493)); x_1797F5088 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)40)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_494)); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); T7 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_495)); CALL2(1,VARREF(YgooSioSportYputs),out_,T7); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_496)); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); T8 = CALL1(1,VARREF(YevalSastYmonitor_type),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T8,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); T9 = CALL1(1,VARREF(YevalSastYmonitor_info),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T9,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); T10 = CALL1(1,VARREF(YevalSastYmonitor_test),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T10,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); T11 = CALL1(1,VARREF(YevalSastYmonitor_handler),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T11,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)44)); T12 = CALL1(1,VARREF(YevalSastYmonitor_main_thunk),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T12,f_,d_,out_); T13 = CALL2(1,VARREF(YgooSioSportYput),x_1797F5088,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T15 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T14 = T15; } else { T14 = YPfalse; } UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_187) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_188) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_to_c_189) { P e_,f_,d_,out_; P argF5099; P firstQF5098; P tmpF5097; P x_1803F5096; P x_1804F5095; P x_1802F5094; P x_1801F5093; P x_1800F5092; P argF5091; P x_1798F5090; P bindingF5089; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T34 = CALL1(1,VARREF(YevalSastYapplication_binding),e_); bindingF5089 = T34; T7 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T6 = CALL1(1,VARREF(YgooScolsScolYenum),T7); x_1798F5090 = T6; LOOP_239: { P a239_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1798F5090); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1798F5090); argF5091 = T5; CALL4(1,VARREF(YevalSg2cYto_pc),argF5091,f_,d_,out_); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1798F5090); a239_0 = T4; x_1798F5090 = a239_0; goto LOOP_239; T0 = T3; } else { T0 = YPfalse; } } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T8 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T9 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } x_1800F5092 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1800F5092,LITREF(lit_498)); T12 = CALL1(1,VARREF(YevalSastYapplication_binding),e_); T11 = CALL1(1,VARREF(YevalSg2cYmangle_binding),T12); T10 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1800F5092,T11); x_1801F5093 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1801F5093,YPchr((P)40)); x_1802F5094 = out_; T27 = fun_187; T28 = fun_188; T26 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T27,T28); T25 = CALL1(1,VARREF(YgooScolsScolYenum),T26); x_1804F5095 = T25; T30 = CALL1(1,VARREF(YevalSastYapplication_arguments),e_); T29 = CALL1(1,VARREF(YgooScolsScolYenum),T30); x_1803F5096 = T29; LOOP_240: { P a240_0,a240_1; T17 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1804F5095); tmpF5097 = T17; if (tmpF5097 != YPfalse) { T15 = tmpF5097; } else { T16 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1803F5096); T15 = T16; } T14 = CALL1(1,VARREF(Ynot),T15); if (T14 != YPfalse) { T24 = CALL1(1,VARREF(YgooScolsScolYnow),x_1804F5095); firstQF5098 = T24; T23 = CALL1(1,VARREF(YgooScolsScolYnow),x_1803F5096); argF5099 = T23; T18 = CALL1(1,VARREF(Ynot),firstQF5098); if (T18 != YPfalse) { T19 = CALL2(1,VARREF(YgooSioSportYput),x_1802F5094,YPchr((P)44)); } else { } CALL4(1,VARREF(YevalSg2cYgen_ref),argF5099,f_,d_,out_); T21 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1804F5095); T22 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1803F5096); a240_0 = T21; a240_1 = T22; x_1804F5095 = a240_0; x_1803F5096 = a240_1; goto LOOP_240; T13 = T20; } else { T13 = YPfalse; } } T31 = CALL2(1,VARREF(YgooSioSportYput),x_1801F5093,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T33 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T32 = T33; } else { T32 = YPfalse; } UNLINK_STACK(); QRET(T32); } LOCCODEDEF(fun_190) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL4(1,VARREF(YevalSg2cYto_pc),x_,FREEREF(0),FREEREF(1),FREEREF(2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_191) { P e_,f_,d_,out_; P xF5105; P x_1808F5104; P x_1807F5103; P x_1806F5102; P fF5101; P nF5100; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T28 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); T27 = CALL1(1,VARREF(YgooStypesYlen),T28); nF5100 = T27; T26 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_index),e_); T25 = CALL2(1,VARREF(YgooSmacrosYelt),DYNREF(YevalSg2cYTdefinitionsT),T26); fF5101 = T25; T1 = CALL2(1,VARREF(YgooSmacrosYEE),nF5100,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSastYprogram_register),e_); if (T3 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T4 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T5 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,fF5101); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T7 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T6 = T7; } else { T6 = YPfalse; } T2 = T6; } else { T2 = YPfalse; } T0 = T2; } else { T8 = FUNFAB(fun_190,3,fF5101,d_,out_); T9 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); CALL2(1,VARREF(YgooSmacrosYdo),T8,T9); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T10 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T11 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_503)); x_1806F5102 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1806F5102,YPchr((P)40)); CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,fF5101); x_1807F5103 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1807F5103,LITREF(lit_504)); T13 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5100); T12 = CALL2(1,VARREF(YgooSioSportYputs),x_1807F5103,T13); T21 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); T20 = CALL1(1,VARREF(YgooScolsScolYenum),T21); x_1808F5104 = T20; LOOP_241: { P a241_0; T16 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1808F5104); T15 = CALL1(1,VARREF(Ynot),T16); if (T15 != YPfalse) { T19 = CALL1(1,VARREF(YgooScolsScolYnow),x_1808F5104); xF5105 = T19; CALL2(1,VARREF(YgooSioSportYput),out_,YPchr((P)44)); CALL4(1,VARREF(YevalSg2cYgen_ref),xF5105,fF5101,d_,out_); T18 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1808F5104); a241_0 = T18; x_1808F5104 = a241_0; goto LOOP_241; T14 = T17; } else { T14 = YPfalse; } } T22 = CALL2(1,VARREF(YgooSioSportYput),x_1806F5102,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T24 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T23 = T24; } else { T23 = YPfalse; } T0 = T23; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_funshell_to_c_192) { P b_,e_,f_,d_,out_; P x_1812F5110; P x_1811F5109; P x_1810F5108; P fF5107; P nF5106; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(b_, 0); ARG(e_, 1); ARG(f_, 2); ARG(d_, 3); ARG(out_, 4); T16 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); T15 = CALL1(1,VARREF(YgooStypesYlen),T16); nF5106 = T15; T14 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_index),e_); T13 = CALL2(1,VARREF(YgooSmacrosYelt),DYNREF(YevalSg2cYTdefinitionsT),T14); fF5107 = T13; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T0 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T2 = CALL2(1,VARREF(YgooSmacrosYEE),nF5106,YPint((P)0)); if (T2 != YPfalse) { T3 = CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,fF5107); } else { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_507)); x_1810F5108 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1810F5108,YPchr((P)40)); x_1811F5109 = out_; T7 = CALL1(1,VARREF(YevalSastYbinding_dynamic_extentQ),b_); if (T7 != YPfalse) { T6 = YPint((P)1); } else { T6 = YPint((P)0); } T5 = CALL1(1,VARREF(YgooSmathYnum_to_str),T6); T4 = CALL2(1,VARREF(YgooSioSportYputs),x_1811F5109,T5); CALL2(1,VARREF(YgooSioSportYput),x_1810F5108,YPchr((P)44)); CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,fF5107); CALL2(1,VARREF(YgooSioSportYput),x_1810F5108,YPchr((P)44)); x_1812F5110 = out_; T9 = CALL1(1,VARREF(YgooSmathYnum_to_str),nF5106); T8 = CALL2(1,VARREF(YgooSioSportYputs),x_1812F5110,T9); T10 = CALL2(1,VARREF(YgooSioSportYput),x_1810F5108,YPchr((P)41)); } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T12 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T11 = T12; } else { T11 = YPfalse; } UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_193) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL4(1,VARREF(YevalSg2cYto_pc),x_,FREEREF(0),FREEREF(1),FREEREF(2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_funinit_to_c_194) { P b_,e_,f_,d_,out_; P xF5115; P x_1815F5114; P x_1814F5113; P x_1813F5112; P nF5111; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(b_, 0); ARG(e_, 1); ARG(f_, 2); ARG(d_, 3); ARG(out_, 4); T19 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); T18 = CALL1(1,VARREF(YgooStypesYlen),T19); nF5111 = T18; T2 = CALL2(1,VARREF(YgooSmacrosYEE),nF5111,YPint((P)0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = FUNFAB(fun_193,3,f_,d_,out_); T4 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); CALL2(1,VARREF(YgooSmacrosYdo),T3,T4); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T5 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_511)); x_1813F5112 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1813F5112,YPchr((P)40)); CALL2(1,VARREF(YevalSg2cYbinding_Gc),b_,out_); x_1814F5113 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1814F5113,LITREF(lit_512)); T6 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1814F5113,nF5111); T14 = CALL1(1,VARREF(YevalSast_linearizeYclosure_creation_free),e_); T13 = CALL1(1,VARREF(YgooScolsScolYenum),T14); x_1815F5114 = T13; LOOP_242: { P a242_0; T9 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1815F5114); T8 = CALL1(1,VARREF(Ynot),T9); if (T8 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsScolYnow),x_1815F5114); xF5115 = T12; CALL2(1,VARREF(YgooSioSportYput),out_,YPchr((P)44)); CALL4(1,VARREF(YevalSg2cYgen_ref),xF5115,f_,d_,out_); T11 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1815F5114); a242_0 = T11; x_1815F5114 = a242_0; goto LOOP_242; T7 = T10; } else { T7 = YPfalse; } } T15 = CALL2(1,VARREF(YgooSioSportYput),x_1813F5112,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T17 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T16 = T17; } else { T16 = YPfalse; } T0 = T16; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_195) { P e_,f_,d_,out_; P x_1817F5116; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYassignment_form),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,YPfalse,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T3 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_514)); CALL2(1,VARREF(YgooSioSportYputs),out_,T3); x_1817F5116 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1817F5116,YPchr((P)40)); T5 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); T4 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),T5); CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,T4); CALL2(1,VARREF(YgooSioSportYput),x_1817F5116,YPchr((P)44)); T7 = CALL1(1,VARREF(YevalSastYassignment_binding),e_); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_name),T7); CALL2(1,VARREF(YevalSg2cYgenerate_quotation),out_,T6); CALL2(1,VARREF(YgooSioSportYput),x_1817F5116,YPchr((P)44)); T8 = CALL1(1,VARREF(YevalSastYassignment_form),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T8,f_,d_,out_); T9 = CALL2(1,VARREF(YgooSioSportYput),x_1817F5116,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T11 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T10 = T11; } else { T10 = YPfalse; } UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_out_list_builder_196) { P f_,out_,elts_; P eF5120; P x_1820F5119; P x_1819F5118; P x_1818F5117; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(f_, 0); ARG(out_, 1); ARG(elts_, 2); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),elts_); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_517)); T2 = CALL2(1,VARREF(YgooSioSportYputs),out_,T3); T0 = T2; } else { T4 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_518)); CALL2(1,VARREF(YgooSioSportYputs),out_,T4); x_1818F5117 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1818F5117,YPchr((P)40)); x_1819F5118 = out_; T7 = CALL1(1,VARREF(YgooStypesYlen),elts_); T6 = CALL1(1,VARREF(YgooSmathYnum_to_str),T7); T5 = CALL2(1,VARREF(YgooSioSportYputs),x_1819F5118,T6); T14 = CALL1(1,VARREF(YgooScolsScolYenum),elts_); x_1820F5119 = T14; LOOP_243: { P a243_0; T10 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1820F5119); T9 = CALL1(1,VARREF(Ynot),T10); if (T9 != YPfalse) { T13 = CALL1(1,VARREF(YgooScolsScolYnow),x_1820F5119); eF5120 = T13; CALL2(1,VARREF(YgooSioSportYput),out_,YPchr((P)44)); CALL1(0,f_,eF5120); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1820F5119); a243_0 = T12; x_1820F5119 = a243_0; goto LOOP_243; T8 = T11; } else { T8 = YPfalse; } } T15 = CALL2(1,VARREF(YgooSioSportYput),x_1818F5117,YPchr((P)41)); T0 = T15; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_197) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL4(1,VARREF(YevalSg2cYgen_ref),x_,YPfalse,YPint((P)0),FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gen_fab_list_198) { P out_,refs_; P T0,T1; LINK_STACK(); ARG(out_, 0); ARG(refs_, 1); T1 = FUNFAB(fun_197,1,out_); T0 = CALL3(1,VARREF(YevalSg2cYout_list_builder),T1,out_,refs_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_function_specs_199) { P out_,sig_; P T0,T1; LINK_STACK(); ARG(out_, 0); ARG(sig_, 1); T1 = CALL1(1,VARREF(YevalSastYreq_sig_specs),sig_); T0 = CALL2(1,VARREF(YevalSg2cYgen_fab_list),out_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_200) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL4(1,VARREF(YevalSg2cYto_pc),x_,FREEREF(0),FREEREF(1),FREEREF(2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_201) { P e_,f_,d_,out_; P x_1822F5121; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = FUNFAB(fun_200,3,f_,d_,out_); T1 = CALL1(1,VARREF(YevalSastYsignature_specs),e_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); T2 = CALL1(1,VARREF(YevalSastYsignature_value),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T2,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T4 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T5 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_526)); CALL2(1,VARREF(YgooSioSportYputs),out_,T5); x_1822F5121 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1822F5121,YPchr((P)40)); CALL2(1,VARREF(YevalSg2cYgenerate_function_specs),out_,e_); CALL2(1,VARREF(YgooSioSportYput),x_1822F5121,YPchr((P)44)); T6 = CALL1(1,VARREF(YevalSastYsignature_naryQ),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T6,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1822F5121,YPchr((P)44)); T7 = CALL1(1,VARREF(YevalSastYsignature_arity),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T7,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1822F5121,YPchr((P)44)); T8 = CALL1(1,VARREF(YevalSastYsignature_value),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T8,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1822F5121,YPchr((P)44)); T9 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_527)); CALL2(1,VARREF(YgooSioSportYputs),out_,T9); T10 = CALL2(1,VARREF(YgooSioSportYput),x_1822F5121,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T12 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T11 = T12; } else { T11 = YPfalse; } UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_to_c_202) { P e_,f_,d_,out_; P x_1823F5122; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(e_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYfunction_signature),e_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL3(1,VARREF(YevalSg2cYgen_result),e_,d_,out_); } else { } T3 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_529)); CALL2(1,VARREF(YgooSioSportYputs),out_,T3); x_1823F5122 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1823F5122,YPchr((P)40)); T4 = CALL1(1,VARREF(YevalSastYfunction_signature),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T4,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1823F5122,YPchr((P)44)); T5 = CALL1(1,VARREF(YevalSastYfunction_debug_name),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T5,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1823F5122,YPchr((P)44)); T6 = CALL1(1,VARREF(YevalSastYfunction_names),e_); CALL4(1,VARREF(YevalSg2cYgen_ref),T6,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1823F5122,YPchr((P)44)); T7 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_530)); CALL2(1,VARREF(YgooSioSportYputs),out_,T7); T8 = CALL2(1,VARREF(YgooSioSportYput),x_1823F5122,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T10 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T9 = T10; } else { T9 = YPfalse; } UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_generate_function_forwards_203) { P out_,definitions_; P defF5124; P x_1824F5123; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(out_, 0); ARG(definitions_, 1); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_533)); T6 = CALL1(1,VARREF(YgooScolsScolYenum),definitions_); x_1824F5123 = T6; LOOP_244: { P a244_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1824F5123); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1824F5123); defF5124 = T5; CALL2(1,VARREF(YevalSg2cYgenerate_function_forward),out_,defF5124); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1824F5123); a244_0 = T4; x_1824F5123 = a244_0; goto LOOP_244; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_204) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_205) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_generate_function_forward_206) { P out_,defn_; P iF5131; P firstQF5130; P tmpF5129; P x_1828F5128; P x_1829F5127; P x_1827F5126; P x_1826F5125; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(out_, 0); ARG(defn_, 1); x_1826F5125 = out_; if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { T0 = LITREF(lit_536); } else { T0 = LITREF(lit_537); } CALL2(1,VARREF(YgooSioSwriteYemit),x_1826F5125,T0); CALL2(1,VARREF(YgooSioSportYputs),x_1826F5125,LITREF(lit_538)); T2 = CALL1(1,VARREF(YevalSastYfunction_binding),defn_); T1 = CALL1(1,VARREF(YevalSg2cYmangle_binding),T2); CALL2(1,VARREF(YgooSioSwriteYemit),x_1826F5125,T1); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1826F5125,LITREF(lit_539)); x_1827F5126 = out_; T18 = fun_204; T19 = fun_205; T17 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T18,T19); T16 = CALL1(1,VARREF(YgooScolsScolYenum),T17); x_1829F5127 = T16; T23 = CALL1(1,VARREF(YevalSastYfunction_bindings),defn_); T22 = CALL1(1,VARREF(YgooStypesYlen),T23); T21 = CALL1(1,VARREF(YgooScolsSseqYbelow),T22); T20 = CALL1(1,VARREF(YgooScolsScolYenum),T21); x_1828F5128 = T20; LOOP_245: { P a245_0,a245_1; T8 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1829F5127); tmpF5129 = T8; if (tmpF5129 != YPfalse) { T6 = tmpF5129; } else { T7 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1828F5128); T6 = T7; } T5 = CALL1(1,VARREF(Ynot),T6); if (T5 != YPfalse) { T15 = CALL1(1,VARREF(YgooScolsScolYnow),x_1829F5127); firstQF5130 = T15; T14 = CALL1(1,VARREF(YgooScolsScolYnow),x_1828F5128); iF5131 = T14; T9 = CALL1(1,VARREF(Ynot),firstQF5130); if (T9 != YPfalse) { T10 = CALL2(1,VARREF(YgooSioSportYput),x_1827F5126,YPchr((P)44)); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_542)); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1829F5127); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1828F5128); a245_0 = T12; a245_1 = T13; x_1829F5127 = a245_0; x_1828F5128 = a245_1; goto LOOP_245; T4 = T11; } else { T4 = YPfalse; } } T24 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_543)); UNLINK_STACK(); QRET(T24); } LOCCODEDEF(fun_generate_function_binding_207) { P out_,defn_; P x_1832F5135; P nameF5134; P x_1831F5133; P nameF5132; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(out_, 0); ARG(defn_, 1); T17 = CALL1(1,VARREF(YevalSastYfunction_binding),defn_); nameF5132 = T17; T2 = CALL2(1,VARREF(YisaQ),nameF5132,VARREF(YevalSmoduleYLmodule_bindingG)); if (T2 != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),nameF5132); T3 = CALL2(1,VARREF(YgooScolsScolYmemQ),LITREF(lit_546),T4); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T6 = CALL1(1,VARREF(YevalSg2cYmangle_binding),nameF5132); T5 = CALL2(1,VARREF(YgooSioSportYputs),out_,T6); T0 = T5; } else { T8 = CALL2(1,VARREF(YgooSmacrosYEE),nameF5132,YPfalse); if (T8 != YPfalse) { x_1831F5133 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1831F5133,LITREF(lit_547)); T10 = CALL1(1,VARREF(YevalSastYfunction_index),defn_); T9 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1831F5133,T10); T7 = T9; } else { T15 = CALL2(1,VARREF(YisaQ),nameF5132,VARREF(YevalSastYLlocal_bindingG)); if (T15 != YPfalse) { T16 = CALL1(1,VARREF(YevalSmoduleYbinding_name),nameF5132); T14 = T16; } else { T14 = nameF5132; } nameF5134 = T14; x_1832F5135 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1832F5135,LITREF(lit_548)); T11 = CALL1(1,VARREF(YevalSg2cYmangle_raw_name),nameF5134); CALL2(1,VARREF(YgooSioSwriteYemit),x_1832F5135,T11); CALL2(1,VARREF(YgooSioSportYputs),x_1832F5135,LITREF(lit_549)); T13 = CALL1(1,VARREF(YevalSastYfunction_index),defn_); T12 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1832F5135,T13); T7 = T12; } T0 = T7; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_function_forward_208) { P out_,defn_; P boundQF5136; P T0,T1,T2,T3; LINK_STACK(); ARG(out_, 0); ARG(defn_, 1); T3 = CALL1(1,VARREF(YevalSastYfunction_binding),defn_); T2 = CALL2(1,VARREF(YisaQ),T3,VARREF(YevalSmoduleYLmodule_bindingG)); boundQF5136 = T2; if (boundQF5136 != YPfalse) { T0 = LITREF(lit_551); } else { T0 = LITREF(lit_552); } CALL2(1,VARREF(YgooSioSportYputs),out_,T0); CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,defn_); T1 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_553)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_209) { P def_; P T0; LINK_STACK(); ARG(def_, 0); T0 = CALL2(1,VARREF(YevalSg2cYgenerate_function_code),FREEREF(0),def_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_function_bodies_210) { P out_,definitions_; P T0,T1; LINK_STACK(); ARG(out_, 0); ARG(definitions_, 1); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_556)); T1 = FUNFAB(fun_209,1,out_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,definitions_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_211) { P def_; P T0,T1,T2,T3; LINK_STACK(); ARG(def_, 0); T2 = CALL2(1,VARREF(YisaQ),def_,VARREF(YevalSastYLast_primitiveG)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL4(1,VARREF(YevalSg2cYgenerate_closure_structure),def_,FREEREF(0),FREEREF(1),FREEREF(2)); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_functions_212) { P definitions_,f_,d_,out_; P T0,T1,T2; LINK_STACK(); ARG(definitions_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T1 = FUNFAB(fun_211,3,f_,d_,out_); T2 = CALL1(1,VARREF(YgooScolsSseqYrev),definitions_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_closure_structure_213) { P definition_,f_,d_,out_; P x_1835F5139; P x_1834F5138; P x_1833F5137; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(definition_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); T0 = CALL1(1,VARREF(YevalSastYfunction_signature),definition_); CALL4(1,VARREF(YevalSg2cYto_pc),T0,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T1 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL3(1,VARREF(YevalSg2cYgen_result),definition_,d_,out_); } else { } CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,definition_); x_1833F5137 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1833F5137,LITREF(lit_563)); T5 = CALL1(1,VARREF(YevalSastYfunction_inlineableQ),definition_); if (T5 != YPfalse) { T6 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_564)); T4 = T6; } else { T7 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_565)); T4 = T7; } T3 = CALL2(1,VARREF(YgooSioSwriteYemit),x_1833F5137,T4); x_1834F5138 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)40)); CALL2(1,VARREF(YevalSg2cYgenerate_function_body_reference),out_,definition_); CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)44)); T8 = CALL1(1,VARREF(YevalSastYfunction_signature),definition_); CALL4(1,VARREF(YevalSg2cYgen_ref),T8,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)44)); T9 = CALL1(1,VARREF(YevalSastYfunction_debug_name),definition_); CALL4(1,VARREF(YevalSg2cYgen_ref),T9,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)44)); T10 = CALL1(1,VARREF(YevalSastYfunction_names),definition_); CALL4(1,VARREF(YevalSg2cYgen_ref),T10,f_,d_,out_); CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)44)); T11 = CALL1(1,VARREF(YevalSastYprogram_line),definition_); if (T11 != YPfalse) { x_1835F5139 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1835F5139,LITREF(lit_566)); T13 = CALL1(1,VARREF(YevalSastYprogram_line),definition_); T12 = CALL1(1,VARREF(YgooSmathYnum_to_str),T13); CALL2(1,VARREF(YgooSioSportYputs),x_1835F5139,T12); T14 = CALL2(1,VARREF(YgooSioSportYputs),x_1835F5139,LITREF(lit_567)); } else { T16 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_568)); T15 = CALL2(1,VARREF(YgooSioSportYputs),out_,T16); } CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)44)); T17 = CALL1(1,VARREF(YevalSastYfunction_source),definition_); CALL4(1,VARREF(YevalSg2cYgen_ref),T17,f_,d_,out_); T18 = CALL2(1,VARREF(YgooSioSportYput),x_1834F5138,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T20 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T19 = T20; } else { T19 = YPfalse; } UNLINK_STACK(); QRET(T19); } LOCCODEDEF(fun_generate_function_body_reference_214) { P out_,definition_; P T0; LINK_STACK(); ARG(out_, 0); ARG(definition_, 1); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_571)); CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,definition_); T0 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_572)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_return_215) { P defn_,f_,d_,out_; P T0,T1,T2,T3; LINK_STACK(); ARG(defn_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T0 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_575)); T1 = CALL1(1,VARREF(YevalSastYfunction_body),defn_); CALL4(1,VARREF(YevalSg2cYgen_ref),T1,f_,d_,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T2 = T3; } else { T2 = YPfalse; } UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_generate_return_216) { P defn_,f_,d_,out_; P x_1836F5140; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(defn_, 0); ARG(f_, 1); ARG(d_, 2); ARG(out_, 3); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T0 = CALL2(1,VARREF(YevalSg2cYgen_depth),d_,out_); } else { } T2 = CALL1(1,VARREF(YevalSastYfunction_value),defn_); T1 = CALL1(1,VARREF(YevalSoptimizeYunconstrained_typeQ),T2); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YgooSioSportYput),out_,YPchr((P)81)); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_577)); x_1836F5140 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1836F5140,YPchr((P)40)); T4 = CALL1(1,VARREF(YevalSastYfunction_body),defn_); CALL4(1,VARREF(YevalSg2cYgen_ref),T4,f_,d_,out_); T5 = CALL2(1,VARREF(YgooSioSportYput),x_1836F5140,YPchr((P)41)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T7 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T6 = T7; } else { T6 = YPfalse; } UNLINK_STACK(); QRET(T6); } LOCCODEDEF(fun_217) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_218) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_generate_function_code_219) { P out_,e_; P bindingF5148; P firstQF5147; P tmpF5146; P x_1840F5145; P x_1841F5144; P x_1839F5143; P x_1838F5142; P x_1837F5141; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27; LINK_STACK(); ARG(out_, 0); ARG(e_, 1); x_1837F5141 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1837F5141,LITREF(lit_580)); if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { T0 = LITREF(lit_581); } else { T0 = LITREF(lit_46); } CALL2(1,VARREF(YgooSioSwriteYemit),x_1837F5141,T0); T2 = CALL1(1,VARREF(YevalSastYfunction_inlineableQ),e_); if (T2 != YPfalse) { T1 = LITREF(lit_582); } else { T1 = LITREF(lit_46); } CALL2(1,VARREF(YgooSioSwriteYemit),x_1837F5141,T1); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1837F5141,LITREF(lit_583)); T4 = CALL1(1,VARREF(YevalSastYfunction_binding),e_); CALL2(1,VARREF(YevalSg2cYbinding_Gc),T4,out_); x_1838F5142 = out_; CALL2(1,VARREF(YgooSioSportYput),x_1838F5142,YPchr((P)40)); x_1839F5143 = out_; T19 = fun_217; T20 = fun_218; T18 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T19,T20); T17 = CALL1(1,VARREF(YgooScolsScolYenum),T18); x_1841F5144 = T17; T22 = CALL1(1,VARREF(YevalSastYfunction_bindings),e_); T21 = CALL1(1,VARREF(YgooScolsScolYenum),T22); x_1840F5145 = T21; LOOP_246: { P a246_0,a246_1; T9 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1841F5144); tmpF5146 = T9; if (tmpF5146 != YPfalse) { T7 = tmpF5146; } else { T8 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1840F5145); T7 = T8; } T6 = CALL1(1,VARREF(Ynot),T7); if (T6 != YPfalse) { T16 = CALL1(1,VARREF(YgooScolsScolYnow),x_1841F5144); firstQF5147 = T16; T15 = CALL1(1,VARREF(YgooScolsScolYnow),x_1840F5145); bindingF5148 = T15; T10 = CALL1(1,VARREF(Ynot),firstQF5147); if (T10 != YPfalse) { T11 = CALL2(1,VARREF(YgooSioSportYput),x_1839F5143,YPchr((P)44)); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_586)); CALL2(1,VARREF(YevalSg2cYbinding_Gc),bindingF5148,out_); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1841F5144); T14 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1840F5145); a246_0 = T13; a246_1 = T14; x_1841F5144 = a246_0; x_1840F5145 = a246_1; goto LOOP_246; T5 = T12; } else { T5 = YPfalse; } } T23 = CALL2(1,VARREF(YgooSioSportYput),x_1838F5142,YPchr((P)41)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_587)); T24 = CALL1(1,VARREF(YevalSastYfunction_temporaries),e_); CALL2(1,VARREF(YevalSg2cYgenerate_local_temporaries),T24,out_); T25 = CALL1(1,VARREF(YevalSastYfunction_registers),e_); CALL2(1,VARREF(YevalSg2cYgenerate_registers),T25,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_588)); T26 = CALL1(1,VARREF(YevalSastYfunction_body),e_); CALL4(1,VARREF(YevalSg2cYto_c),T26,e_,YPint((P)1),out_); CALL4(1,VARREF(YevalSg2cYgenerate_return),e_,YPfalse,YPint((P)1),out_); T27 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_589)); UNLINK_STACK(); QRET(T27); } LOCCODEDEF(fun_dispatcherQ_220) { P definition_; P tmpF5151; P nameF5150; P bindingF5149; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(definition_, 0); T11 = CALL1(1,VARREF(YevalSastYfunction_binding),definition_); bindingF5149 = T11; T1 = CALL2(1,VARREF(YisaQ),bindingF5149,VARREF(YevalSmoduleYLmodule_bindingG)); if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YevalSmoduleYbinding_name),bindingF5149); T9 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T10); nameF5150 = T9; T8 = CALL2(1,VARREF(YgooSlogYE),nameF5150,LITREF(lit_592)); tmpF5151 = T8; if (tmpF5151 != YPfalse) { T2 = tmpF5151; } else { T4 = CALL2(1,VARREF(YgooScolsSseqYfinds),nameF5150,LITREF(lit_593)); T6 = CALL1(1,VARREF(YgooStypesYlen),nameF5150); T7 = CALL1(1,VARREF(YgooStypesYlen),LITREF(lit_594)); T5 = CALL2(1,VARREF(YgooSmathY_),T6,T7); T3 = CALL2(1,VARREF(YgooSlogYE),T4,T5); T2 = T3; } T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_221) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_222) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_223) { P b_; P x_1847F5152; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(b_, 0); T1 = CALL2(1,VARREF(YisaQ),b_,VARREF(YevalSmoduleYLbindingG)); if (T1 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T2 = CALL2(1,VARREF(YevalSg2cYgen_depth),YPint((P)1),FREEREF(0)); } else { } T3 = CALL1(1,VARREF(YevalSastYbinding_dottedQ),b_); if (T3 != YPfalse) { T4 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(0),LITREF(lit_604)); } else { T5 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(0),LITREF(lit_605)); } CALL2(1,VARREF(YevalSg2cYbinding_Gc),b_,FREEREF(0)); x_1847F5152 = FREEREF(0); CALL2(1,VARREF(YgooSioSportYputs),x_1847F5152,LITREF(lit_606)); T7 = BOXGET(FREEREF(1)); T6 = CALL1(1,VARREF(YgooSmathYnum_to_str),T7); CALL2(1,VARREF(YgooSioSportYputs),x_1847F5152,T6); T8 = CALL2(1,VARREF(YgooSioSportYputs),x_1847F5152,LITREF(lit_607)); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T9 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(0),LITREF(lit_291)); } else { } T12 = BOXGET(FREEREF(1)); T11 = CALL2(1,VARREF(YgooSmathYA),T12,YPint((P)1)); T10 = BOXPUT(T11,FREEREF(1)); T0 = T10; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_function_code_224) { P out_,definition_; P bF5161; P firstQF5160; P tmpF5159; P x_1844F5158; P x_1845F5157; P x_1843F5156; P boundQF5155; P bindingsF5154; P offsetF5153; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35; LINK_STACK(); ARG(out_, 0); ARG(definition_, 1); offsetF5153 = YPint((P)0); offsetF5153 = BOXFAB(offsetF5153); T35 = CALL1(1,VARREF(YevalSastYfunction_bindings),definition_); bindingsF5154 = T35; T34 = CALL1(1,VARREF(YevalSastYfunction_binding),definition_); T33 = CALL2(1,VARREF(YisaQ),T34,VARREF(YevalSmoduleYLmodule_bindingG)); boundQF5155 = T33; if (boundQF5155 != YPfalse) { T1 = LITREF(lit_596); } else { T1 = LITREF(lit_597); } CALL2(1,VARREF(YgooSioSportYputs),out_,T1); CALL2(1,VARREF(YevalSg2cYgenerate_function_binding),out_,definition_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_598)); T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),bindingsF5154); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T4 = CALL2(1,VARREF(YevalSg2cYgen_depth),YPint((P)1),out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_599)); x_1843F5156 = out_; T19 = fun_221; T20 = fun_222; T18 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T19,T20); T17 = CALL1(1,VARREF(YgooScolsScolYenum),T18); x_1845F5157 = T17; T22 = CALL1(1,VARREF(YevalSastYfunction_bindings),definition_); T21 = CALL1(1,VARREF(YgooScolsScolYenum),T22); x_1844F5158 = T21; LOOP_247: { P a247_0,a247_1; T9 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1845F5157); tmpF5159 = T9; if (tmpF5159 != YPfalse) { T7 = tmpF5159; } else { T8 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1844F5158); T7 = T8; } T6 = CALL1(1,VARREF(Ynot),T7); if (T6 != YPfalse) { T16 = CALL1(1,VARREF(YgooScolsScolYnow),x_1845F5157); firstQF5160 = T16; T15 = CALL1(1,VARREF(YgooScolsScolYnow),x_1844F5158); bF5161 = T15; T10 = CALL1(1,VARREF(Ynot),firstQF5160); if (T10 != YPfalse) { T11 = CALL2(1,VARREF(YgooSioSportYput),x_1843F5156,YPchr((P)44)); } else { } CALL2(1,VARREF(YevalSg2cYbinding_Gc),bF5161,out_); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1845F5157); T14 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1844F5158); a247_0 = T13; a247_1 = T14; x_1845F5157 = a247_0; x_1844F5158 = a247_1; goto LOOP_247; T5 = T12; } else { T5 = YPfalse; } } if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T24 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); T23 = T24; } else { T23 = YPfalse; } } else { } T25 = CALL1(1,VARREF(YevalSastYfunction_temporaries),definition_); CALL2(1,VARREF(YevalSg2cYgenerate_local_temporaries),T25,out_); T26 = CALL1(1,VARREF(YevalSastYfunction_registers),definition_); CALL2(1,VARREF(YevalSg2cYgenerate_registers),T26,out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_602)); T27 = FUNFAB(fun_223,2,out_,offsetF5153); CALL2(1,VARREF(YgooSmacrosYdo),T27,bindingsF5154); T28 = CALL1(1,VARREF(YevalSastYfunction_body),definition_); CALL4(1,VARREF(YevalSg2cYto_c),T28,definition_,YPint((P)1),out_); T30 = CALL1(1,VARREF(YevalSg2cYdispatcherQ),definition_); T29 = CALL1(1,VARREF(Ynot),T30); if (T29 != YPfalse) { T31 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_608)); } else { } CALL4(1,VARREF(YevalSg2cYgenerate_return),definition_,definition_,YPint((P)1),out_); T32 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_609)); UNLINK_STACK(); QRET(T32); } LOCCODEDEF(fun_generate_local_temporaries_225) { P temps_,out_; P tempF5163; P x_1848F5162; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(temps_, 0); ARG(out_, 1); T8 = CALL1(1,VARREF(YgooScolsScolYenum),temps_); x_1848F5162 = T8; LOOP_248: { P a248_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1848F5162); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnow),x_1848F5162); tempF5163 = T7; if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T3 = CALL2(1,VARREF(YevalSg2cYgen_depth),YPint((P)1),out_); } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_612)); CALL2(1,VARREF(YevalSg2cYbinding_Gc),tempF5163,out_); if (DYNREF(YevalSg2cYTgen_statementsQT) != YPfalse) { T4 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_291)); } else { } T6 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1848F5162); a248_0 = T6; x_1848F5162 = a248_0; goto LOOP_248; T0 = T5; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_registers_226) { P regs_,out_; P tmpF5168; P iF5167; P jF5166; P jF5165; P nregsF5164; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(regs_, 0); ARG(out_, 1); T14 = CALL1(1,VARREF(YgooStypesYlen),regs_); nregsF5164 = T14; jF5165 = YPint((P)0); LOOP_249: { P a249_0; T1 = CALL2(1,VARREF(YgooSmagYL),jF5165,nregsF5164); if (T1 != YPfalse) { CALL2(1,VARREF(YevalSg2cYgen_depth),YPint((P)1),out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_615)); jF5166 = jF5165; iF5167 = YPint((P)0); LOOP_250: { P a250_0,a250_1; T5 = CALL2(1,VARREF(YgooSlogYE),iF5167,VARREF(YevalSg2cYTregisters_per_lineT)); tmpF5168 = T5; if (tmpF5168 != YPfalse) { T3 = tmpF5168; } else { T4 = CALL2(1,VARREF(YgooSlogYE),jF5166,nregsF5164); T3 = T4; } if (T3 != YPfalse) { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_616)); a249_0 = jF5166; jF5165 = a249_0; goto LOOP_249; T2 = T6; } else { T8 = CALL2(1,VARREF(YgooSlogYE),iF5167,YPint((P)0)); T7 = CALL1(1,VARREF(Ynot),T8); if (T7 != YPfalse) { T9 = CALL2(1,VARREF(YgooSioSportYput),out_,YPchr((P)44)); } else { } T10 = CALL2(1,VARREF(YgooSmacrosYelt),regs_,jF5166); CALL4(1,VARREF(YevalSg2cYgen_ref),T10,YPfalse,YPint((P)0),out_); T12 = CALL2(1,VARREF(YgooSmathYA),jF5166,YPint((P)1)); T13 = CALL2(1,VARREF(YgooSmathYA),iF5167,YPint((P)1)); a250_0 = T12; a250_1 = T13; jF5166 = a250_0; iF5167 = a250_1; goto LOOP_250; T2 = T11; } } T0 = T2; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_info_name_227) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = CALL1(1,VARREF(YevalSg2cYmangle_raw_name),name_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_619),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_maybe_declare_228) { P modname_; P x_1850F5169; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(modname_, 0); T2 = CALL3(1,VARREF(YgooScolsScolYelt_or),FREEREF(0),modname_,YPfalse); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,FREEREF(0),modname_); x_1850F5169 = FREEREF(1); CALL2(1,VARREF(YgooSioSportYputs),x_1850F5169,LITREF(lit_624)); T3 = CALL1(1,VARREF(YevalSg2cYmodule_info_name),modname_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1850F5169,T3); T4 = CALL2(1,VARREF(YgooSioSportYputs),x_1850F5169,LITREF(lit_625)); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_229) { P binding_; P home_modF5170; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(binding_, 0); T4 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),binding_); home_modF5170 = T4; T2 = CALL2(1,VARREF(YevalSmoduleYbinding_native_toQ),binding_,FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL1(0,FREEREF(1),home_modF5170); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYdeclare_imported_module_infos) { P out_,mod_; P maybe_declareF5173; P envF5172; P seenF5171; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(out_, 0); ARG(mod_, 1); T7 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)50)); seenF5171 = T7; T6 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); envF5172 = T6; T5 = FUNSHELL(0,fun_maybe_declare_228,2); maybe_declareF5173 = T5; FUNINIT(maybe_declareF5173, 2,seenF5171,out_); T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),envF5172); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYmodule_name),T1); CALL2(1,VARREF(YgooSmacrosYdo),maybe_declareF5173,T0); T3 = FUNFAB(fun_229,2,mod_,maybe_declareF5173); T4 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T2 = CALL2(1,VARREF(YevalSmoduleYdo_static_global_bindings),T3,T4); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_231) { P local_name_,binding_; P x_1854F5174; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(local_name_, 0); ARG(binding_, 1); T2 = CALL2(1,VARREF(YevalSmoduleYbinding_native_toQ),binding_,FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { x_1854F5174 = FREEREF(1); CALL2(1,VARREF(YgooSioSportYputs),x_1854F5174,LITREF(lit_636)); T4 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T3 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),T4); CALL2(1,VARREF(YgooSioSwriteYemit),x_1854F5174,T3); CALL2(1,VARREF(YgooSioSportYputs),x_1854F5174,LITREF(lit_637)); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),binding_); T5 = CALL1(1,VARREF(YevalSg2cYmodule_info_name),T6); CALL2(1,VARREF(YgooSioSwriteYemit),x_1854F5174,T5); CALL2(1,VARREF(YgooSioSportYputs),x_1854F5174,LITREF(lit_638)); T9 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T8 = CALL2(1,VARREF(YgooSmacrosYEE),T9,local_name_); if (T8 != YPfalse) { T7 = LITREF(lit_639); } else { T10 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),local_name_); T7 = T10; } CALL2(1,VARREF(YgooSioSwriteYemit),x_1854F5174,T7); T11 = CALL2(1,VARREF(YgooSioSportYputs),x_1854F5174,LITREF(lit_640)); T0 = T11; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_232) { P binding_; P x_1859F5179; P x_1858F5178; P x_1857F5177; P x_1856F5176; P x_1855F5175; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(binding_, 0); T1 = CALL2(1,VARREF(YevalSmoduleYbinding_native_toQ),binding_,FREEREF(0)); if (T1 != YPfalse) { x_1855F5175 = FREEREF(1); CALL2(1,VARREF(YgooSioSportYputs),x_1855F5175,LITREF(lit_644)); T3 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T2 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),T3); CALL2(1,VARREF(YgooSioSwriteYemit),x_1855F5175,T2); T4 = CALL2(1,VARREF(YgooSioSportYputs),x_1855F5175,LITREF(lit_645)); T14 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); x_1856F5176 = T14; x_1857F5177 = VARREF(YgooSmacrosYEE); T6 = CALL2(1,x_1857F5177,x_1856F5176,LITREF(lit_167)); if (T6 != YPfalse) { x_1858F5178 = FREEREF(1); CALL2(1,VARREF(YgooSioSportYputs),x_1858F5178,LITREF(lit_646)); T7 = CALL1(1,VARREF(YevalSg2cYmangle_binding),binding_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1858F5178,T7); T8 = CALL2(1,VARREF(YgooSioSportYputs),x_1858F5178,LITREF(lit_647)); T5 = T8; } else { T10 = CALL2(1,x_1857F5177,x_1856F5176,LITREF(lit_169)); if (T10 != YPfalse) { x_1859F5179 = FREEREF(1); CALL2(1,VARREF(YgooSioSportYputs),x_1859F5179,LITREF(lit_648)); T11 = CALL1(1,VARREF(YevalSg2cYmangle_binding),binding_); CALL2(1,VARREF(YgooSioSwriteYemit),x_1859F5179,T11); T12 = CALL2(1,VARREF(YgooSioSportYputs),x_1859F5179,LITREF(lit_649)); T9 = T12; } else { T13 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),LITREF(lit_650)); T9 = T13; } T5 = T9; } T0 = T5; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSg2cYgenerate_module_info) { P out_,mod_; P x_1865F5195; P x_1864F5194; P x_1863F5193; P x_1862F5192; P bindingF5191; P exported_asF5190; P tup38F5189; P x_1860F5188; P x_1853F5187; P nF5186; P x_1851F5185; P uses_namesF5184; P usesF5183; P envF5182; P info_nameF5181; P nameF5180; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41; LINK_STACK(); ARG(out_, 0); ARG(mod_, 1); T41 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); nameF5180 = T41; T40 = CALL1(1,VARREF(YevalSg2cYmodule_info_name),nameF5180); info_nameF5181 = T40; T39 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); envF5182 = T39; T38 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),envF5182); usesF5183 = T38; T37 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYmodule_name),usesF5183); uses_namesF5184 = T37; CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_629)); CALL2(1,VARREF(YevalSg2cYdeclare_imported_module_infos),out_,mod_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_630)); T8 = CALL1(1,VARREF(YgooScolsScolYenum),uses_namesF5184); x_1851F5185 = T8; LOOP_251: { P a251_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1851F5185); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnow),x_1851F5185); nF5186 = T7; x_1853F5187 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1853F5187,LITREF(lit_631)); T3 = CALL1(1,VARREF(YevalSg2cYmodule_info_name),nF5186); CALL2(1,VARREF(YgooSioSwriteYemit),x_1853F5187,T3); T4 = CALL2(1,VARREF(YgooSioSportYputs),x_1853F5187,LITREF(lit_632)); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1851F5185); a251_0 = T6; x_1851F5185 = a251_0; goto LOOP_251; T0 = T5; } else { T0 = YPfalse; } } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_633)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_634)); T9 = FUNFAB(fun_231,2,mod_,out_); T10 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); CALL2(1,VARREF(YevalSmoduleYdo_named_static_global_bindings),T9,T10); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_641)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_642)); T11 = FUNFAB(fun_232,2,mod_,out_); T12 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); CALL2(1,VARREF(YevalSmoduleYdo_static_global_bindings),T11,T12); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_651)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_652)); T31 = CALL1(1,VARREF(YevalSmoduleYmodule_exports),mod_); T30 = CALL1(1,VARREF(YgooScolsScolYenum),T31); x_1860F5188 = T30; LOOP_252: { P a252_0; T15 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1860F5188); T14 = CALL1(1,VARREF(Ynot),T15); if (T14 != YPfalse) { T28 = CALL1(1,VARREF(YgooScolsScolYnow_key),x_1860F5188); T29 = CALL1(1,VARREF(YgooScolsScolYnow),x_1860F5188); T27 = CALL2(1,VARREF(Ytup),T28,T29); tup38F5189 = T27; T26 = CALL2(1,VARREF(YgooSmacrosYelt),tup38F5189,YPint((P)0)); exported_asF5190 = T26; T25 = CALL2(1,VARREF(YgooSmacrosYelt),tup38F5189,YPint((P)1)); bindingF5191 = T25; x_1862F5192 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1862F5192,LITREF(lit_653)); T17 = CALL1(1,VARREF(YevalSmoduleYbinding_name),bindingF5191); T16 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),T17); CALL2(1,VARREF(YgooSioSwriteYemit),x_1862F5192,T16); CALL2(1,VARREF(YgooSioSportYputs),x_1862F5192,LITREF(lit_654)); T20 = CALL1(1,VARREF(YevalSmoduleYbinding_name),bindingF5191); T19 = CALL2(1,VARREF(YgooSmacrosYEE),T20,exported_asF5190); if (T19 != YPfalse) { T18 = LITREF(lit_655); } else { T21 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),exported_asF5190); T18 = T21; } CALL2(1,VARREF(YgooSioSwriteYemit),x_1862F5192,T18); T22 = CALL2(1,VARREF(YgooSioSportYputs),x_1862F5192,LITREF(lit_656)); T24 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1860F5188); a252_0 = T24; x_1860F5188 = a252_0; goto LOOP_252; T13 = T23; } else { T13 = YPfalse; } } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_657)); x_1863F5193 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1863F5193,LITREF(lit_658)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1863F5193,info_nameF5181); T32 = CALL2(1,VARREF(YgooSioSportYputs),x_1863F5193,LITREF(lit_659)); x_1864F5194 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1864F5194,LITREF(lit_660)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1864F5194,info_nameF5181); T33 = CALL2(1,VARREF(YgooSioSportYputs),x_1864F5194,LITREF(lit_661)); x_1865F5195 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1865F5195,LITREF(lit_662)); T34 = CALL1(1,VARREF(YevalSg2cYmangle_string_literal),nameF5180); CALL2(1,VARREF(YgooSioSwriteYemit),x_1865F5195,T34); T35 = CALL2(1,VARREF(YgooSioSportYputs),x_1865F5195,LITREF(lit_663)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_664)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_665)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_666)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_667)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_668)); T36 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_669)); UNLINK_STACK(); QRET(T36); } LOCCODEDEF(fun_module_init_name_234) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = CALL1(1,VARREF(YevalSg2cYmangle_raw_name),name_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_672),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_init_decl_235) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = CALL1(1,VARREF(YevalSg2cYmodule_init_name),name_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_675),T1,LITREF(lit_676)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_generate_module_init_236) { P out_,mod_,form_; P x_1873F5208; P nF5207; P x_1871F5206; P x_1870F5205; P x_1869F5204; P x_1868F5203; P nF5202; P x_1866F5201; P uses_namesF5200; P usesF5199; P envF5198; P init_declF5197; P nameF5196; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; LINK_STACK(); ARG(out_, 0); ARG(mod_, 1); ARG(form_, 2); if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { T28 = LITREF(lit_679); } else { T29 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T28 = T29; } nameF5196 = T28; T27 = CALL1(1,VARREF(YevalSg2cYmodule_init_decl),nameF5196); init_declF5197 = T27; T26 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); envF5198 = T26; T25 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),envF5198); usesF5199 = T25; T24 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYmodule_name),usesF5199); uses_namesF5200 = T24; T0 = CALL1(1,VARREF(Ynot),DYNREF(YevalSmoduleYTdynamic_compilationQT)); if (T0 != YPfalse) { CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_680)); T9 = CALL1(1,VARREF(YgooScolsScolYenum),uses_namesF5200); x_1866F5201 = T9; LOOP_253: { P a253_0; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1866F5201); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),x_1866F5201); nF5202 = T8; x_1868F5203 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1868F5203,LITREF(lit_681)); T4 = CALL1(1,VARREF(YevalSg2cYmodule_init_decl),nF5202); CALL2(1,VARREF(YgooSioSwriteYemit),x_1868F5203,T4); T5 = CALL2(1,VARREF(YgooSioSportYputs),x_1868F5203,LITREF(lit_682)); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1866F5201); a253_0 = T7; x_1866F5201 = a253_0; goto LOOP_253; T1 = T6; } else { T1 = YPfalse; } } } else { } CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_683)); x_1869F5204 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1869F5204,LITREF(lit_684)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1869F5204,init_declF5197); T10 = CALL2(1,VARREF(YgooSioSportYputs),x_1869F5204,LITREF(lit_685)); x_1870F5205 = out_; CALL2(1,VARREF(YgooSioSwriteYemit),x_1870F5205,init_declF5197); T11 = CALL2(1,VARREF(YgooSioSportYputs),x_1870F5205,LITREF(lit_686)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_687)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_688)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_689)); T12 = CALL1(1,VARREF(Ynot),DYNREF(YevalSmoduleYTdynamic_compilationQT)); if (T12 != YPfalse) { T21 = CALL1(1,VARREF(YgooScolsScolYenum),uses_namesF5200); x_1871F5206 = T21; LOOP_254: { P a254_0; T15 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1871F5206); T14 = CALL1(1,VARREF(Ynot),T15); if (T14 != YPfalse) { T20 = CALL1(1,VARREF(YgooScolsScolYnow),x_1871F5206); nF5207 = T20; x_1873F5208 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1873F5208,LITREF(lit_690)); T16 = CALL1(1,VARREF(YevalSg2cYmodule_init_name),nF5207); CALL2(1,VARREF(YgooSioSwriteYemit),x_1873F5208,T16); T17 = CALL2(1,VARREF(YgooSioSportYputs),x_1873F5208,LITREF(lit_691)); T19 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1871F5206); a254_0 = T19; x_1871F5206 = a254_0; goto LOOP_254; T13 = T18; } else { T13 = YPfalse; } } T22 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_692)); } else { } CALL4(1,VARREF(YevalSg2cYto_c),form_,YPfalse,YPint((P)1),out_); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_693)); T23 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_694)); UNLINK_STACK(); QRET(T23); } LOCCODEDEF(fun_generate_main_237) { P out_,mod_; P x_1878F5215; P x_1877F5214; P x_1876F5213; P x_1875F5212; P x_1874F5211; P info_nameF5210; P nameF5209; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(out_, 0); ARG(mod_, 1); T10 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); nameF5209 = T10; T9 = CALL1(1,VARREF(YevalSg2cYmodule_info_name),nameF5209); info_nameF5210 = T9; CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_697)); x_1874F5211 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1874F5211,LITREF(lit_698)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1874F5211,info_nameF5210); T0 = CALL2(1,VARREF(YgooSioSportYputs),x_1874F5211,LITREF(lit_699)); x_1875F5212 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1875F5212,LITREF(lit_700)); T1 = CALL1(1,VARREF(YevalSg2cYmodule_init_decl),nameF5209); CALL2(1,VARREF(YgooSioSwriteYemit),x_1875F5212,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),x_1875F5212,LITREF(lit_701)); x_1876F5213 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1876F5213,LITREF(lit_702)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1876F5213,info_nameF5210); T3 = CALL2(1,VARREF(YgooSioSportYputs),x_1876F5213,LITREF(lit_703)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_704)); x_1877F5214 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1877F5214,LITREF(lit_705)); T4 = CALL1(1,VARREF(YevalSg2cYmangle_boot_name),LITREF(lit_706)); CALL2(1,VARREF(YgooSioSwriteYemit),x_1877F5214,T4); T5 = CALL2(1,VARREF(YgooSioSportYputs),x_1877F5214,LITREF(lit_707)); x_1878F5215 = out_; CALL2(1,VARREF(YgooSioSportYputs),x_1878F5215,LITREF(lit_708)); T6 = CALL1(1,VARREF(YevalSg2cYmodule_init_name),nameF5209); CALL2(1,VARREF(YgooSioSwriteYemit),x_1878F5215,T6); T7 = CALL2(1,VARREF(YgooSioSportYputs),x_1878F5215,LITREF(lit_709)); CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_710)); T8 = CALL2(1,VARREF(YgooSioSportYputs),out_,LITREF(lit_711)); UNLINK_STACK(); QRET(T8); } P YevalSg2cY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140; DEFCREGS(); DYNDEFSET(YevalSg2cYTdefinitionsT,YPfalse); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLmodule_loaderG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YevalSg2cYLg2c_module_loaderG,T0); lit_1 = YPPsym((P)"module-loader-appname"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_module_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_loader_appname_0 = YPfab_met(FUNCODEREF(fun_module_loader_appname_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(29),YPfalse); T4 = VARREF_OR(YevalSg2cYmodule_loader_appname,YPfalse); T5 = fun_module_loader_appname_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YevalSg2cYmodule_loader_appname,T3); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSg2cYLg2c_module_loaderG),VARREF(YevalSg2cYmodule_loader_appname),YPfalse,VARREF(YLstrG),VARREF(YPprop_unbound_error)); lit_3 = YPPsym((P)"module-loader-app-modname"); lit_4 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_module_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_loader_app_modname_1 = YPfab_met(FUNCODEREF(fun_module_loader_app_modname_1),T6,LITREF(lit_3),LITREF(lit_4),sloc(30),YPfalse); T8 = VARREF_OR(YevalSg2cYmodule_loader_app_modname,YPfalse); T9 = fun_module_loader_app_modname_1; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YevalSg2cYmodule_loader_app_modname,T7); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSg2cYLg2c_module_loaderG),VARREF(YevalSg2cYmodule_loader_app_modname),YPfalse,VARREF(YLsymG),VARREF(YPprop_unbound_error)); lit_5 = YPPsym((P)""); T11 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLmoduleG),Ynil); T10 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_5),T11); VARSET(YevalSg2cYLg2c_moduleG,T10); lit_6 = YPPsym((P)"module-src-file"); lit_7 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_moduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_src_file_2 = YPfab_met(FUNCODEREF(fun_module_src_file_2),T12,LITREF(lit_6),LITREF(lit_7),sloc(33),YPfalse); T14 = VARREF_OR(YevalSg2cYmodule_src_file,YPfalse); T15 = fun_module_src_file_2; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSg2cYmodule_src_file,T13); lit_8 = YPPsym((P)"module-src-file-setter"); lit_9 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YevalSg2cYLg2c_moduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_src_file_setter_3 = YPfab_met(FUNCODEREF(fun_module_src_file_setter_3),T16,LITREF(lit_8),LITREF(lit_9),sloc(33),YPfalse); T18 = VARREF_OR(YevalSg2cYmodule_src_file_setter,YPfalse); T19 = fun_module_src_file_setter_3; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSg2cYmodule_src_file_setter,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSg2cYLg2c_moduleG),VARREF(YevalSg2cYmodule_src_file),VARREF(YevalSg2cYmodule_src_file_setter),VARREF(YLstrG),VARREF(YPprop_unbound_error)); lit_10 = YPPsym((P)"module-mtime"); lit_11 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_moduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_mtime_4 = YPfab_met(FUNCODEREF(fun_module_mtime_4),T20,LITREF(lit_10),LITREF(lit_11),sloc(34),YPfalse); T22 = VARREF_OR(YevalSg2cYmodule_mtime,YPfalse); T23 = fun_module_mtime_4; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSg2cYmodule_mtime,T21); lit_12 = YPPsym((P)"module-mtime-setter"); lit_13 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YevalSg2cYLg2c_moduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_mtime_setter_5 = YPfab_met(FUNCODEREF(fun_module_mtime_setter_5),T24,LITREF(lit_12),LITREF(lit_13),sloc(34),YPfalse); T26 = VARREF_OR(YevalSg2cYmodule_mtime_setter,YPfalse); T27 = fun_module_mtime_setter_5; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSg2cYmodule_mtime_setter,T25); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSg2cYLg2c_moduleG),VARREF(YevalSg2cYmodule_mtime),VARREF(YevalSg2cYmodule_mtime_setter),VARREF(YLfloG),VARREF(YPprop_unbound_error)); lit_14 = YPPsym((P)"module-loader-module-type"); lit_15 = YPPlist(1,YPPsym((P)"loader")); T28 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_module_loaderG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_module_loader_module_type_6 = YPfab_met(FUNCODEREF(fun_module_loader_module_type_6),T28,LITREF(lit_14),LITREF(lit_15),sloc(36),YPfalse); T30 = VARREF_OR(YevalSmoduleYmodule_loader_module_type,YPfalse); T31 = fun_module_loader_module_type_6; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalSmoduleYmodule_loader_module_type,T29); lit_16 = YPPsym((P)"load-module"); lit_17 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"name")); lit_18 = YPsb((P)"START"); lit_19 = YPsb((P)"OPTIMIZE"); lit_20 = Ynil; lit_21 = YPPlist(1,YPPsym((P)"name")); lit_22 = YPsb((P)"EMIT"); T37 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_7 = YPfab_met(FUNCODEREF(fun_7),T37,YPfalse,LITREF(lit_20),sloc(60),YPfalse); T36 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_8 = YPfab_met(FUNCODEREF(fun_8),T36,YPfalse,LITREF(lit_20),sloc(60),YPfalse); T35 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T35,YPfalse,LITREF(lit_20),sloc(59),YPfalse); T34 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_10 = YPfab_met(FUNCODEREF(fun_10),T34,YPfalse,LITREF(lit_20),sloc(59),YPfalse); T33 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T33,YPfalse,LITREF(lit_21),sloc(62),YPfalse); T32 = YPfab_sig(YPPlist(2,VARREF(YevalSg2cYLg2c_module_loaderG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); fun_load_module_12 = YPfab_met(FUNCODEREF(fun_load_module_12),T32,LITREF(lit_16),LITREF(lit_17),sloc(41),YPfalse); T39 = VARREF_OR(YevalSmoduleYload_module,YPfalse); T40 = fun_load_module_12; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YevalSmoduleYload_module,T38); lit_23 = YPPsym((P)"module-up-to-date?"); lit_24 = YPPlist(1,YPPsym((P)"mod")); T41 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_moduleG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YevalSg2cYmodule_up_to_dateQ = YPfab_met(FUNCODEREF(YevalSg2cYmodule_up_to_dateQ),T41,LITREF(lit_23),LITREF(lit_24),sloc(76),YPfalse); T42 = YevalSg2cYmodule_up_to_dateQ; VARSET(YevalSg2cYmodule_up_to_dateQ,T42); lit_25 = YPPsym((P)"purge-outdated-modules"); lit_26 = YPPlist(1,YPPsym((P)"loader")); lit_27 = YPPlist(1,YPPsym((P)"mod")); lit_28 = YPPlist(1,YPPsym((P)"name")); lit_29 = YPsb((P)" has changed.\n"); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T45,YPfalse,LITREF(lit_27),sloc(84),YPfalse); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T44,YPfalse,LITREF(lit_28),sloc(90),YPfalse); T43 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSg2cYpurge_outdated_modules = YPfab_met(FUNCODEREF(YevalSg2cYpurge_outdated_modules),T43,LITREF(lit_25),LITREF(lit_26),sloc(79),YPfalse); T46 = YevalSg2cYpurge_outdated_modules; VARSET(YevalSg2cYpurge_outdated_modules,T46); lit_30 = YPPsym((P)"g2c-def-app"); lit_31 = YPPlist(2,YPPsym((P)"appname"),YPPsym((P)"modname")); T47 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSg2cYLg2c_module_loaderG),Ynil); YevalSg2cYg2c_def_app = YPfab_met(FUNCODEREF(YevalSg2cYg2c_def_app),T47,LITREF(lit_30),LITREF(lit_31),sloc(103),YPfalse); T48 = YevalSg2cYg2c_def_app; VARSET(YevalSg2cYg2c_def_app,T48); lit_32 = YPPsym((P)"g2c-build-app"); lit_33 = YPPlist(1,YPPsym((P)"loader")); lit_34 = YPsb((P)"Searching for undefined global bindings.\n"); T51 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T51,YPfalse,LITREF(lit_20),sloc(110),YPfalse); T50 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_19 = YPfab_met(FUNCODEREF(fun_19),T50,YPfalse,LITREF(lit_20),sloc(110),YPfalse); T49 = YPfab_sig(YPPlist(1,VARREF(YevalSg2cYLg2c_module_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSg2cYg2c_build_app = YPfab_met(FUNCODEREF(YevalSg2cYg2c_build_app),T49,LITREF(lit_32),LITREF(lit_33),sloc(109),YPfalse); T52 = YevalSg2cYg2c_build_app; VARSET(YevalSg2cYg2c_build_app,T52); lit_35 = YPPsym((P)"g2c-test"); lit_36 = YPPlist(1,YPPsym((P)"x")); lit_37 = YPsb((P)"g2c-"); lit_38 = YPPsym((P)"eval/main"); T53 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSg2cYg2c_test = YPfab_met(FUNCODEREF(YevalSg2cYg2c_test),T53,LITREF(lit_35),LITREF(lit_36),sloc(119),YPfalse); T54 = YevalSg2cYg2c_test; VARSET(YevalSg2cYg2c_test,T54); DYNDEFSET(YevalSg2cYTtmp_file_counterT,YPint((P)-1)); lit_39 = YPPsym((P)"g2c-ast"); lit_40 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"env")); lit_41 = YPsb((P)"exp-%d-%d"); T61 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T61,YPfalse,LITREF(lit_20),sloc(131),YPfalse); T60 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_23 = YPfab_met(FUNCODEREF(fun_23),T60,YPfalse,LITREF(lit_20),sloc(131),YPfalse); T59 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T59,YPfalse,LITREF(lit_20),sloc(131),YPfalse); T58 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_25 = YPfab_met(FUNCODEREF(fun_25),T58,YPfalse,LITREF(lit_20),sloc(131),YPfalse); T57 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T57,YPfalse,LITREF(lit_20),sloc(130),YPfalse); T56 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_27 = YPfab_met(FUNCODEREF(fun_27),T56,YPfalse,LITREF(lit_20),sloc(130),YPfalse); T55 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_g2c_ast_28 = YPfab_met(FUNCODEREF(fun_g2c_ast_28),T55,LITREF(lit_39),LITREF(lit_40),sloc(124),YPfalse); T63 = VARREF_OR(YevalSg2cYg2c_ast,YPfalse); T64 = fun_g2c_ast_28; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSg2cYg2c_ast,T62); lit_42 = YPPsym((P)"g2c-exp"); lit_43 = YPPlist(2,YPPsym((P)"exp"),YPPsym((P)"env")); T65 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_g2c_exp_29 = YPfab_met(FUNCODEREF(fun_g2c_exp_29),T65,LITREF(lit_42),LITREF(lit_43),sloc(136),YPfalse); T67 = VARREF_OR(YevalSg2cYg2c_exp,YPfalse); T68 = fun_g2c_exp_29; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YevalSg2cYg2c_exp,T66); lit_44 = YPPsym((P)"compile-load"); lit_45 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"mod")); lit_46 = YPsb((P)""); lit_47 = YPPlist(1,YPPsym((P)"_1")); lit_48 = YPsb((P)" -I"); lit_49 = YPPlist(1,YPPsym((P)"_1")); lit_50 = YPsb((P)" -l"); lit_51 = YPsb((P)".so"); lit_52 = YPsb((P)".so"); T71 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T71,YPfalse,LITREF(lit_47),sloc(142),YPfalse); T70 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_31 = YPfab_met(FUNCODEREF(fun_31),T70,YPfalse,LITREF(lit_49),sloc(144),YPfalse); T69 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_compile_load_32 = YPfab_met(FUNCODEREF(fun_compile_load_32),T69,LITREF(lit_44),LITREF(lit_45),sloc(140),YPfalse); T73 = VARREF_OR(YevalSg2cYcompile_load,YPfalse); T74 = fun_compile_load_32; T72 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T73,T74); VARSET(YevalSg2cYcompile_load,T72); lit_53 = YPPsym((P)"g2c-eval"); lit_54 = YPPlist(2,YPPsym((P)"exp"),YPPsym((P)"env")); T75 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_g2c_eval_33 = YPfab_met(FUNCODEREF(fun_g2c_eval_33),T75,LITREF(lit_53),LITREF(lit_54),sloc(149),YPfalse); T77 = VARREF_OR(YevalStopYg2c_eval,YPfalse); T78 = fun_g2c_eval_33; T76 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T77,T78); VARSET(YevalStopYg2c_eval,T76); lit_55 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"env")); T79 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_g2c_eval_34 = YPfab_met(FUNCODEREF(fun_g2c_eval_34),T79,LITREF(lit_53),LITREF(lit_55),sloc(153),YPfalse); T81 = VARREF_OR(YevalStopYg2c_eval,YPfalse); T82 = fun_g2c_eval_34; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YevalStopYg2c_eval,T80); lit_56 = YPsb((P)"g2c"); T83 = XCALL2(1,VARREF(YevalSg2cYg2c_def_app),LITREF(lit_56),LITREF(lit_38)); VARSET(YevalSg2cYTg2c_appT,T83); lit_57 = YPPsym((P)"g2c-top"); T84 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_g2c_top_35 = YPfab_met(FUNCODEREF(fun_g2c_top_35),T84,LITREF(lit_57),LITREF(lit_20),sloc(159),YPfalse); T86 = VARREF_OR(YevalSg2cYg2c_top,YPfalse); T87 = fun_g2c_top_35; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalSg2cYg2c_top,T85); VARSET(YevalSg2cYg2c_goo,VARREF(YevalSg2cYg2c_top)); lit_58 = YPPsym((P)"g2c-clean"); lit_59 = YPsb((P)"g2c"); T88 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_g2c_clean_36 = YPfab_met(FUNCODEREF(fun_g2c_clean_36),T88,LITREF(lit_58),LITREF(lit_20),sloc(161),YPfalse); T90 = VARREF_OR(YevalSg2cYg2c_clean,YPfalse); T91 = fun_g2c_clean_36; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YevalSg2cYg2c_clean,T89); lit_60 = YPPsym((P)"compute-ast"); lit_61 = YPPlist(2,YPPsym((P)"filename"),YPPsym((P)"ct-env")); lit_62 = YPsb((P)"READ"); lit_63 = YPsb((P)"AST"); T92 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_compute_ast_37 = YPfab_met(FUNCODEREF(fun_compute_ast_37),T92,LITREF(lit_60),LITREF(lit_61),sloc(167),YPfalse); T94 = VARREF_OR(YevalSg2cYcompute_ast,YPfalse); T95 = fun_compute_ast_37; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalSg2cYcompute_ast,T93); lit_64 = YPPsym((P)"compute-program"); lit_65 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"env")); lit_66 = YPsb((P)"ANA"); lit_67 = YPsb((P)"BOX"); lit_68 = YPsb((P)"LFT"); lit_69 = YPsb((P)"EXT"); lit_70 = YPsb((P)"CLO"); lit_71 = YPsb((P)"TMP"); lit_72 = YPsb((P)"REG"); T96 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_compute_program_38 = YPfab_met(FUNCODEREF(fun_compute_program_38),T96,LITREF(lit_64),LITREF(lit_65),sloc(177),YPfalse); T98 = VARREF_OR(YevalSg2cYcompute_program,YPfalse); T99 = fun_compute_program_38; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YevalSg2cYcompute_program,T97); lit_73 = YPPsym((P)"generate-c-module"); lit_74 = YPPlist(4,YPPsym((P)"out"),YPPsym((P)"e"),YPPsym((P)"prg"),YPPsym((P)"mod")); T100 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_generate_c_module_39 = YPfab_met(FUNCODEREF(fun_generate_c_module_39),T100,LITREF(lit_73),LITREF(lit_74),sloc(203),YPfalse); T102 = VARREF_OR(YevalSg2cYgenerate_c_module,YPfalse); T103 = fun_generate_c_module_39; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSg2cYgenerate_c_module,T101); lit_75 = YPPsym((P)"generate-c-application"); lit_76 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"mod")); lit_77 = YPsb((P)"-init"); T106 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_40 = YPfab_met(FUNCODEREF(fun_40),T106,YPfalse,LITREF(lit_20),sloc(220),YPfalse); T105 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_41 = YPfab_met(FUNCODEREF(fun_41),T105,YPfalse,LITREF(lit_20),sloc(220),YPfalse); T104 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_c_application_42 = YPfab_met(FUNCODEREF(fun_generate_c_application_42),T104,LITREF(lit_75),LITREF(lit_76),sloc(216),YPfalse); T108 = VARREF_OR(YevalSg2cYgenerate_c_application,YPfalse); T109 = fun_generate_c_application_42; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YevalSg2cYgenerate_c_application,T107); lit_78 = YPPlist(1,YPPsym((P)"exp")); lit_79 = YPPlist(1,YPPsym((P)"return")); lit_80 = YPPsym((P)"x-1623"); lit_81 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_82 = YPPsym((P)"for-mods"); lit_83 = YPsb((P)"Match Pattern Failure"); lit_84 = YPPsym((P)"do-module-loader-modules"); lit_85 = YPPsym((P)"fun"); lit_86 = Ynil; T112 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1623_43 = YPfab_met(FUNCODEREF(fun_x_1623_43),T112,LITREF(lit_80),LITREF(lit_81),YPfalse,YPfalse); T111 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T111,YPfalse,LITREF(lit_79),YPfalse,YPfalse); T110 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_45 = YPfab_met(FUNCODEREF(fun_45),T110,YPfalse,LITREF(lit_78),YPfalse,YPfalse); T113 = fun_45; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"for-mods"),T113); lit_87 = YPPsym((P)"generate-makefile"); lit_88 = YPPlist(1,YPPsym((P)"loader")); lit_89 = YPsb((P)"-init"); lit_90 = YPsb((P)"Makefile"); lit_91 = YPsb((P)"C_OBJS_DD = $(patsubst %,.."); lit_92 = YPsb((P)"%,$(C_OBJS))\n"); lit_93 = YPsb((P)": .."); lit_94 = YPsb((P)"grt.h\n"); lit_95 = YPsb((P)"\t$(CC) -I.. "); lit_96 = YPPlist(1,YPPsym((P)"mod")); lit_97 = YPPlist(1,YPPsym((P)"i")); lit_98 = YPsb((P)"-I"); lit_99 = YPsb((P)" "); lit_100 = YPsb((P)"$(CFLAGS) -DDEFAULT_GOO_ROOT=\\\"$(GOO_ROOT)\\\" -c -o $@ $<\n\n"); lit_101 = YPsb((P)"OBJS = \\\n"); lit_102 = YPPlist(1,YPPsym((P)"mod")); lit_103 = YPPsym((P)"put-obj"); lit_104 = YPPlist(1,YPPsym((P)"name")); lit_105 = YPsb((P)"\t"); lit_106 = YPsb((P)" \\\n"); lit_107 = YPPlist(1,YPPsym((P)"name")); lit_108 = YPsb((P)".c"); lit_109 = YPPlist(1,YPPsym((P)"n")); lit_110 = YPsb((P)"\t"); lit_111 = YPsb((P)"\n\n"); lit_112 = YPsb((P)": $(C_OBJS_DD) $(OBJS)\n"); lit_113 = YPsb((P)"\t$(CC) $(LDFLAGS) -o "); lit_114 = YPsb((P)" $(C_OBJS_DD) $(OBJS) $(LIBS)"); lit_115 = YPPlist(1,YPPsym((P)"mod")); lit_116 = YPPlist(1,YPPsym((P)"l")); lit_117 = YPsb((P)" -l"); lit_118 = YPsb((P)"\n\nclean:\n\trm -f "); lit_119 = YPsb((P)" $(OBJS)\n"); T136 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T135 = fun_46 = YPfab_met(FUNCODEREF(fun_46),T136,YPfalse,LITREF(lit_97),sloc(240),YPfalse); T134 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T133 = fun_47 = YPfab_met(FUNCODEREF(fun_47),T134,YPfalse,LITREF(lit_96),sloc(239),YPfalse); T132 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T131 = fun_put_obj_48 = YPfab_met(FUNCODEREF(fun_put_obj_48),T132,LITREF(lit_103),LITREF(lit_104),sloc(245),YPfalse); T130 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T129 = fun_49 = YPfab_met(FUNCODEREF(fun_49),T130,YPfalse,LITREF(lit_107),sloc(249),YPfalse); T128 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T127 = fun_50 = YPfab_met(FUNCODEREF(fun_50),T128,YPfalse,LITREF(lit_109),sloc(250),YPfalse); T126 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T125 = fun_51 = YPfab_met(FUNCODEREF(fun_51),T126,YPfalse,LITREF(lit_102),sloc(244),YPfalse); T124 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T123 = fun_52 = YPfab_met(FUNCODEREF(fun_52),T124,YPfalse,LITREF(lit_116),sloc(256),YPfalse); T122 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T121 = fun_53 = YPfab_met(FUNCODEREF(fun_53),T122,YPfalse,LITREF(lit_115),sloc(255),YPfalse); T120 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); T119 = fun_54 = YPfab_met(FUNCODEREF(fun_54),T120,YPfalse,LITREF(lit_20),sloc(235),YPfalse); T118 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); T117 = fun_55 = YPfab_met(FUNCODEREF(fun_55),T118,YPfalse,LITREF(lit_20),sloc(235),YPfalse); T116 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T115 = fun_generate_makefile_56 = YPfab_met(FUNCODEREF(fun_generate_makefile_56),T116,LITREF(lit_87),LITREF(lit_88),sloc(229),YPfalse); T139 = VARREF_OR(YevalSg2cYgenerate_makefile,YPfalse); T140 = fun_generate_makefile_56; T138 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T139,T140); T137 = VARSET(YevalSg2cYgenerate_makefile,T138); T114 = T137; return T114; } P YevalSg2cY___main_1___() { P iF5225; P x_1659F5224; P iF5223; P x_1657F5222; P mangleF5221; P x_1655F5220; P iF5219; P x_1653F5218; P tableF5217; P vecF5216; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174; DEFCREGS(); lit_120 = YPPsym((P)"generate-c-forms"); lit_121 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"definitions")); lit_122 = YPsb((P)"\n/* C-FORMS: */\n\n"); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_c_forms_57 = YPfab_met(FUNCODEREF(fun_generate_c_forms_57),T0,LITREF(lit_120),LITREF(lit_121),sloc(259),YPfalse); T2 = VARREF_OR(YevalSg2cYgenerate_c_forms,YPfalse); T3 = fun_generate_c_forms_57; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSg2cYgenerate_c_forms,T1); lit_123 = YPPsym((P)"pp"); lit_124 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_pp_58 = YPfab_met(FUNCODEREF(fun_pp_58),T4,LITREF(lit_123),LITREF(lit_124),sloc(269),YPfalse); T6 = VARREF_OR(YevalSg2cYpp,YPfalse); T7 = fun_pp_58; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSg2cYpp,T5); lit_125 = YPsb((P)"_mod"); VARSET(YevalSg2cYDnow_mod_var_name,LITREF(lit_125)); lit_126 = YPPsym((P)"include-filename"); lit_127 = YPPlist(1,YPPsym((P)"x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_include_filename_59 = YPfab_met(FUNCODEREF(fun_include_filename_59),T8,LITREF(lit_126),LITREF(lit_127),sloc(275),YPfalse); T10 = VARREF_OR(YevalSg2cYinclude_filename,YPfalse); T11 = fun_include_filename_59; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSg2cYinclude_filename,T9); lit_128 = YPPlist(1,YPPsym((P)"x")); lit_129 = YPsb((P)"<"); lit_130 = YPsb((P)".h>"); T12 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_include_filename_60 = YPfab_met(FUNCODEREF(fun_include_filename_60),T12,LITREF(lit_126),LITREF(lit_128),sloc(277),YPfalse); T14 = VARREF_OR(YevalSg2cYinclude_filename,YPfalse); T15 = fun_include_filename_60; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSg2cYinclude_filename,T13); lit_131 = YPPlist(1,YPPsym((P)"x")); lit_132 = YPsb((P)".h"); lit_133 = YPsb((P)"\""); lit_134 = YPsb((P)"\""); T16 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_include_filename_61 = YPfab_met(FUNCODEREF(fun_include_filename_61),T16,LITREF(lit_126),LITREF(lit_131),sloc(281),YPfalse); T18 = VARREF_OR(YevalSg2cYinclude_filename,YPfalse); T19 = fun_include_filename_61; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSg2cYinclude_filename,T17); lit_135 = YPPsym((P)"generate-header"); lit_136 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"mod")); lit_137 = YPsb((P)"/* GOO 2 C $REVISION: 0.120 $ \n"); lit_138 = YPsb((P)" */\n\n#include \"grt.h\"\n"); lit_139 = YPsb((P)"#include \"dlgrt.h\"\n"); lit_140 = YPPlist(1,YPPsym((P)"i")); lit_141 = YPsb((P)"#include "); lit_142 = YPsb((P)"\nstatic PSTR "); lit_143 = YPsb((P)" = PNUL;\n"); lit_144 = YPsb((P)"\nstatic P sloc (int line) {\n"); lit_145 = YPsb((P)" if ("); lit_146 = YPsb((P)" == PNUL) "); lit_147 = YPsb((P)" = "); lit_148 = YPsb((P)";\n"); lit_149 = YPsb((P)" return "); lit_150 = YPsb((P)"%src-loc"); lit_151 = YPsb((P)"("); lit_152 = YPsb((P)"%ib"); lit_153 = YPsb((P)"((P)line), "); lit_154 = YPsb((P)");\n"); lit_155 = YPsb((P)"}\n"); T21 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_62 = YPfab_met(FUNCODEREF(fun_62),T21,YPfalse,LITREF(lit_140),sloc(291),YPfalse); T20 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_header_63 = YPfab_met(FUNCODEREF(fun_generate_header_63),T20,LITREF(lit_135),LITREF(lit_136),sloc(284),YPfalse); T23 = VARREF_OR(YevalSg2cYgenerate_header,YPfalse); T24 = fun_generate_header_63; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YevalSg2cYgenerate_header,T22); lit_156 = YPPsym((P)"generate-trailer"); lit_157 = YPPlist(1,YPPsym((P)"out")); lit_158 = YPsb((P)"\n/* END OF GENERATED CODE. */\n"); T25 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_generate_trailer_64 = YPfab_met(FUNCODEREF(fun_generate_trailer_64),T25,LITREF(lit_156),LITREF(lit_157),sloc(304),YPfalse); T27 = VARREF_OR(YevalSg2cYgenerate_trailer,YPfalse); T28 = fun_generate_trailer_64; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YevalSg2cYgenerate_trailer,T26); lit_159 = YPPsym((P)"generate-global-environment"); lit_160 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"mod")); lit_161 = YPsb((P)"\n/* MODULE ENVIRONMENT: "); lit_162 = YPsb((P)" */\n\n"); lit_163 = YPPsym((P)"gen-binding"); lit_164 = YPPlist(1,YPPsym((P)"b")); T30 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_gen_binding_65 = YPfab_met(FUNCODEREF(fun_gen_binding_65),T30,LITREF(lit_163),LITREF(lit_164),sloc(316),YPfalse); T29 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_global_environment_66 = YPfab_met(FUNCODEREF(fun_generate_global_environment_66),T29,LITREF(lit_159),LITREF(lit_160),sloc(314),YPfalse); T32 = VARREF_OR(YevalSg2cYgenerate_global_environment,YPfalse); T33 = fun_generate_global_environment_66; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSg2cYgenerate_global_environment,T31); lit_165 = YPPsym((P)"generate-global-binding"); lit_166 = YPPlist(3,YPPsym((P)"out"),YPPsym((P)"imported?"),YPPsym((P)"gb")); lit_167 = YPPsym((P)"global"); lit_168 = YPPsym((P)"runtime"); lit_169 = YPPsym((P)"dynamic"); lit_170 = YPsb((P)"RTV"); lit_171 = YPsb((P)"DYN"); lit_172 = YPsb((P)"EXT"); lit_173 = YPsb((P)"DEF"); lit_174 = YPsb((P)"("); lit_175 = YPsb((P)","); lit_176 = YPsb((P)","); lit_177 = YPsb((P)");\n"); T34 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_generate_global_binding_67 = YPfab_met(FUNCODEREF(fun_generate_global_binding_67),T34,LITREF(lit_165),LITREF(lit_166),sloc(323),YPfalse); T36 = VARREF_OR(YevalSg2cYgenerate_global_binding,YPfalse); T37 = fun_generate_global_binding_67; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSg2cYgenerate_global_binding,T35); lit_178 = YPsb((P)"Y"); VARSET(YevalSg2cYDmodule_separator,LITREF(lit_178)); lit_179 = YPsb((P)"_"); VARSET(YevalSg2cYDlocal_suffix,LITREF(lit_179)); lit_180 = YPsb((P)"F"); VARSET(YevalSg2cYDhygiene_marker,LITREF(lit_180)); lit_181 = YPsb((P)"Z"); VARSET(YevalSg2cYDescape_separator,LITREF(lit_181)); lit_182 = YPsb((P)"I"); VARSET(YevalSg2cYDiep_suffix,LITREF(lit_182)); lit_183 = YPsb((P)"M"); VARSET(YevalSg2cYDmethod_mangled_marker_string,LITREF(lit_183)); T38 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDmodule_separator),YPint((P)0)); VARSET(YevalSg2cYDmodule_marker,T38); T39 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDlocal_suffix),YPint((P)0)); VARSET(YevalSg2cYDlocal_marker,T39); T40 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDhygiene_marker),YPint((P)0)); VARSET(YevalSg2cYDhygiene_char,T40); T41 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDescape_separator),YPint((P)0)); VARSET(YevalSg2cYDescape_marker,T41); T42 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDiep_suffix),YPint((P)0)); VARSET(YevalSg2cYDiep_marker,T42); T43 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YevalSg2cYDmethod_mangled_marker_string),YPint((P)0)); VARSET(YevalSg2cYDmethod_mangled_marker,T43); VARSET(YevalSg2cYDmin_character_code,YPint((P)0)); VARSET(YevalSg2cYDmax_character_code,YPint((P)255)); T44 = XCALL1(1,VARREF(Ynew),VARREF(YgooScolsSvecYLvecG)); VARSET(YevalSg2cYTmangle_bufferT,T44); lit_184 = XCALLN(1, Ytup, 2, YPchr((P)45), YPchr((P)95)); lit_185 = XCALLN(1, Ytup, 2, YPchr((P)33), YPchr((P)88)); lit_186 = XCALLN(1, Ytup, 2, YPchr((P)36), YPchr((P)68)); lit_187 = XCALLN(1, Ytup, 2, YPchr((P)37), YPchr((P)80)); lit_188 = XCALLN(1, Ytup, 2, YPchr((P)42), YPchr((P)84)); lit_189 = XCALLN(1, Ytup, 2, YPchr((P)47), YPchr((P)83)); lit_190 = XCALLN(1, Ytup, 2, YPchr((P)60), YPchr((P)76)); lit_191 = XCALLN(1, Ytup, 2, YPchr((P)62), YPchr((P)71)); lit_192 = XCALLN(1, Ytup, 2, YPchr((P)63), YPchr((P)81)); lit_193 = XCALLN(1, Ytup, 2, YPchr((P)43), YPchr((P)65)); lit_194 = XCALLN(1, Ytup, 2, YPchr((P)38), YPchr((P)66)); lit_195 = XCALLN(1, Ytup, 2, YPchr((P)94), YPchr((P)67)); lit_196 = XCALLN(1, Ytup, 2, YPchr((P)95), YPchr((P)85)); lit_197 = XCALLN(1, Ytup, 2, YPchr((P)64), YPchr((P)79)); lit_198 = XCALLN(1, Ytup, 2, YPchr((P)61), YPchr((P)69)); lit_199 = XCALLN(1, Ytup, 2, YPchr((P)126), YPchr((P)78)); lit_200 = XCALLN(1, Ytup, 2, YPchr((P)124), YPchr((P)75)); lit_201 = XCALLN(1, Ytup, 2, YPchr((P)46), YPchr((P)73)); T45 = XCALLN(1,VARREF(Ytup),18,LITREF(lit_184),LITREF(lit_185),LITREF(lit_186),LITREF(lit_187),LITREF(lit_188),LITREF(lit_189),LITREF(lit_190),LITREF(lit_191),LITREF(lit_192),LITREF(lit_193),LITREF(lit_194),LITREF(lit_195),LITREF(lit_196),LITREF(lit_197),LITREF(lit_198),LITREF(lit_199),LITREF(lit_200),LITREF(lit_201)); VARSET(YevalSg2cYDmangles_data,T45); lit_202 = YPPsym((P)"char-buffer-as-string"); lit_203 = YPPlist(1,YPPsym((P)"buffer")); T46 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YevalSg2cYchar_buffer_as_string = YPfab_met(FUNCODEREF(YevalSg2cYchar_buffer_as_string),T46,LITREF(lit_202),LITREF(lit_203),sloc(366),YPfalse); T47 = YevalSg2cYchar_buffer_as_string; VARSET(YevalSg2cYchar_buffer_as_string,T47); lit_204 = YPsb((P)"\\t"); lit_205 = YPsb((P)"\\f"); lit_206 = YPsb((P)"\\r"); lit_207 = YPsb((P)"\\n"); lit_208 = YPsb((P)"\\\""); lit_209 = YPsb((P)"\\\\"); T56 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSstrYascii_limit)); T55 = XCALL2(1,VARREF(YgooScolsScolYfill),T56,YPfalse); vecF5216 = T55; T48 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)9)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),LITREF(lit_204),vecF5216,T48); T49 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)12)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),LITREF(lit_205),vecF5216,T49); T50 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)13)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),LITREF(lit_206),vecF5216,T50); T51 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)10)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),LITREF(lit_207),vecF5216,T51); T52 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)34)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),LITREF(lit_208),vecF5216,T52); T53 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)92)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),LITREF(lit_209),vecF5216,T53); T54 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),vecF5216); VARSET(YevalSg2cYDc_escapes,T54); lit_210 = YPPsym((P)"mangle-string-literal"); lit_211 = YPPlist(1,YPPsym((P)"str")); T57 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_string_literal_69 = YPfab_met(FUNCODEREF(fun_mangle_string_literal_69),T57,LITREF(lit_210),LITREF(lit_211),sloc(387),YPfalse); T59 = VARREF_OR(YevalSg2cYmangle_string_literal,YPfalse); T60 = fun_mangle_string_literal_69; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSg2cYmangle_string_literal,T58); lit_212 = YPPlist(1,YPPsym((P)"sym")); T61 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_string_literal_70 = YPfab_met(FUNCODEREF(fun_mangle_string_literal_70),T61,LITREF(lit_210),LITREF(lit_212),sloc(402),YPfalse); T63 = VARREF_OR(YevalSg2cYmangle_string_literal,YPfalse); T64 = fun_mangle_string_literal_70; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSg2cYmangle_string_literal,T62); lit_213 = YPsb((P)"0123456789"); VARSET(YevalSg2cYDnumber_characters,LITREF(lit_213)); lit_214 = YPPsym((P)"mangle-integer"); lit_215 = YPPlist(1,YPPsym((P)"number")); lit_216 = YPPsym((P)"process-integer"); lit_217 = YPPlist(2,YPPsym((P)"number"),YPPsym((P)"index")); T66 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_process_integer_71 = YPfab_met(FUNCODEREF(fun_process_integer_71),T66,LITREF(lit_216),LITREF(lit_217),sloc(409),YPfalse); T65 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_integer_72 = YPfab_met(FUNCODEREF(fun_mangle_integer_72),T65,LITREF(lit_214),LITREF(lit_215),sloc(407),YPfalse); T68 = VARREF_OR(YevalSg2cYmangle_integer,YPfalse); T69 = fun_mangle_integer_72; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalSg2cYmangle_integer,T67); T113 = XCALL2(1,VARREF(YgooSmathYA),VARREF(YevalSg2cYDmax_character_code),YPint((P)1)); T112 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),T113); tableF5217 = T112; T79 = XCALL3(1,VARREF(YgooScolsSrangeYrange),VARREF(YevalSg2cYDmin_character_code),VARREF(YgooSmagYLE),VARREF(YevalSg2cYDmax_character_code)); T78 = XCALL1(1,VARREF(YgooScolsScolYenum),T79); x_1653F5218 = T78; LOOP_255: { P a255_0; T72 = XCALL1(1,VARREF(YgooScolsScolYfinQ),x_1653F5218); T71 = XCALL1(1,VARREF(Ynot),T72); if (T71 != YPfalse) { T77 = XCALL1(1,VARREF(YgooScolsScolYnow),x_1653F5218); iF5219 = T77; T74 = XCALL1(1,VARREF(YevalSg2cYmangle_integer),iF5219); T73 = XCALL3(1,VARREF(YgooSmacrosYcat),VARREF(YevalSg2cYDescape_separator),T74,VARREF(YevalSg2cYDescape_separator)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),T73,tableF5217,iF5219); T76 = XCALL1(1,VARREF(YgooScolsScolYnxt),x_1653F5218); a255_0 = T76; x_1653F5218 = a255_0; goto LOOP_255; T70 = T75; } else { T70 = YPfalse; } } T89 = XCALL1(1,VARREF(YgooScolsScolYenum),VARREF(YevalSg2cYDmangles_data)); x_1655F5220 = T89; LOOP_256: { P a256_0; T82 = XCALL1(1,VARREF(YgooScolsScolYfinQ),x_1655F5220); T81 = XCALL1(1,VARREF(Ynot),T82); if (T81 != YPfalse) { T88 = XCALL1(1,VARREF(YgooScolsScolYnow),x_1655F5220); mangleF5221 = T88; T83 = XCALL2(1,VARREF(YgooSmacrosYelt),mangleF5221,YPint((P)1)); T85 = XCALL2(1,VARREF(YgooSmacrosYelt),mangleF5221,YPint((P)0)); T84 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),T85); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),T83,tableF5217,T84); T87 = XCALL1(1,VARREF(YgooScolsScolYnxt),x_1655F5220); a256_0 = T87; x_1655F5220 = a256_0; goto LOOP_256; T80 = T86; } else { T80 = YPfalse; } } T99 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)97)); T100 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)122)); T98 = XCALL3(1,VARREF(YgooScolsSrangeYrange),T99,VARREF(YgooSmagYLE),T100); T97 = XCALL1(1,VARREF(YgooScolsScolYenum),T98); x_1657F5222 = T97; LOOP_257: { P a257_0; T92 = XCALL1(1,VARREF(YgooScolsScolYfinQ),x_1657F5222); T91 = XCALL1(1,VARREF(Ynot),T92); if (T91 != YPfalse) { T96 = XCALL1(1,VARREF(YgooScolsScolYnow),x_1657F5222); iF5223 = T96; T93 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLchrG),iF5223); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),T93,tableF5217,iF5223); T95 = XCALL1(1,VARREF(YgooScolsScolYnxt),x_1657F5222); a257_0 = T95; x_1657F5222 = a257_0; goto LOOP_257; T90 = T94; } else { T90 = YPfalse; } } T110 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)48)); T111 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)57)); T109 = XCALL3(1,VARREF(YgooScolsSrangeYrange),T110,VARREF(YgooSmagYLE),T111); T108 = XCALL1(1,VARREF(YgooScolsScolYenum),T109); x_1659F5224 = T108; LOOP_258: { P a258_0; T103 = XCALL1(1,VARREF(YgooScolsScolYfinQ),x_1659F5224); T102 = XCALL1(1,VARREF(Ynot),T103); if (T102 != YPfalse) { T107 = XCALL1(1,VARREF(YgooScolsScolYnow),x_1659F5224); iF5225 = T107; T104 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLchrG),iF5225); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),T104,tableF5217,iF5225); T106 = XCALL1(1,VARREF(YgooScolsScolYnxt),x_1659F5224); a258_0 = T106; x_1659F5224 = a258_0; goto LOOP_258; T101 = T105; } else { T101 = YPfalse; } } VARSET(YevalSg2cYDname_mangler_table,tableF5217); lit_218 = YPPsym((P)"mangler-reset"); lit_219 = YPPlist(1,YPPsym((P)"buffer")); T114 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSg2cYmangler_reset = YPfab_met(FUNCODEREF(YevalSg2cYmangler_reset),T114,LITREF(lit_218),LITREF(lit_219),sloc(438),YPfalse); T115 = YevalSg2cYmangler_reset; VARSET(YevalSg2cYmangler_reset,T115); lit_220 = YPPsym((P)"mangle-name-into"); lit_221 = YPPlist(2,YPPsym((P)"buf"),YPPsym((P)"name")); T116 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSg2cYmangle_name_into = YPfab_met(FUNCODEREF(YevalSg2cYmangle_name_into),T116,LITREF(lit_220),LITREF(lit_221),sloc(441),YPfalse); T117 = YevalSg2cYmangle_name_into; VARSET(YevalSg2cYmangle_name_into,T117); lit_222 = YPPsym((P)"mangle-raw-name"); lit_223 = YPPlist(1,YPPsym((P)"name")); T118 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_raw_name_75 = YPfab_met(FUNCODEREF(fun_mangle_raw_name_75),T118,LITREF(lit_222),LITREF(lit_223),sloc(446),YPfalse); T120 = VARREF_OR(YevalSg2cYmangle_raw_name,YPfalse); T121 = fun_mangle_raw_name_75; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YevalSg2cYmangle_raw_name,T119); lit_224 = YPPlist(1,YPPsym((P)"name")); T122 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_raw_name_76 = YPfab_met(FUNCODEREF(fun_mangle_raw_name_76),T122,LITREF(lit_222),LITREF(lit_224),sloc(451),YPfalse); T124 = VARREF_OR(YevalSg2cYmangle_raw_name,YPfalse); T125 = fun_mangle_raw_name_76; T123 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T124,T125); VARSET(YevalSg2cYmangle_raw_name,T123); lit_225 = YPPsym((P)"mangle-local-name"); lit_226 = YPPlist(1,YPPsym((P)"name")); T126 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_local_name_77 = YPfab_met(FUNCODEREF(fun_mangle_local_name_77),T126,LITREF(lit_225),LITREF(lit_226),sloc(454),YPfalse); T128 = VARREF_OR(YevalSg2cYmangle_local_name,YPfalse); T129 = fun_mangle_local_name_77; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); VARSET(YevalSg2cYmangle_local_name,T127); lit_227 = YPPlist(1,YPPsym((P)"name")); T130 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_mangle_local_name_78 = YPfab_met(FUNCODEREF(fun_mangle_local_name_78),T130,LITREF(lit_225),LITREF(lit_227),sloc(460),YPfalse); T132 = VARREF_OR(YevalSg2cYmangle_local_name,YPfalse); T133 = fun_mangle_local_name_78; T131 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T132,T133); VARSET(YevalSg2cYmangle_local_name,T131); lit_228 = YPPsym((P)"buf-cat2!"); lit_229 = YPPlist(2,YPPsym((P)"buf"),YPPsym((P)"name")); T134 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSg2cYbuf_cat2X = YPfab_met(FUNCODEREF(YevalSg2cYbuf_cat2X),T134,LITREF(lit_228),LITREF(lit_229),sloc(464),YPfalse); T135 = YevalSg2cYbuf_cat2X; VARSET(YevalSg2cYbuf_cat2X,T135); lit_230 = YPPsym((P)"mangle-module-into"); lit_231 = YPPlist(2,YPPsym((P)"buf"),YPPsym((P)"mod")); T136 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_mangle_module_into_80 = YPfab_met(FUNCODEREF(fun_mangle_module_into_80),T136,LITREF(lit_230),LITREF(lit_231),sloc(471),YPfalse); T138 = VARREF_OR(YevalSg2cYmangle_module_into,YPfalse); T139 = fun_mangle_module_into_80; T137 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T138,T139); VARSET(YevalSg2cYmangle_module_into,T137); lit_232 = YPPsym((P)"mangle-global-name"); lit_233 = YPPlist(2,YPPsym((P)"mod"),YPPsym((P)"name")); T140 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_mangle_global_name_81 = YPfab_met(FUNCODEREF(fun_mangle_global_name_81),T140,LITREF(lit_232),LITREF(lit_233),sloc(478),YPfalse); T142 = VARREF_OR(YevalSg2cYmangle_global_name,YPfalse); T143 = fun_mangle_global_name_81; T141 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T142,T143); VARSET(YevalSg2cYmangle_global_name,T141); lit_234 = YPPlist(2,YPPsym((P)"mod"),YPPsym((P)"name")); T144 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_mangle_global_name_82 = YPfab_met(FUNCODEREF(fun_mangle_global_name_82),T144,LITREF(lit_232),LITREF(lit_234),sloc(489),YPfalse); T146 = VARREF_OR(YevalSg2cYmangle_global_name,YPfalse); T147 = fun_mangle_global_name_82; T145 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T146,T147); VARSET(YevalSg2cYmangle_global_name,T145); lit_235 = YPPsym((P)"mangle-boot-name"); lit_236 = YPPlist(1,YPPsym((P)"name")); T148 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSg2cYmangle_boot_name = YPfab_met(FUNCODEREF(YevalSg2cYmangle_boot_name),T148,LITREF(lit_235),LITREF(lit_236),sloc(494),YPfalse); T149 = YevalSg2cYmangle_boot_name; VARSET(YevalSg2cYmangle_boot_name,T149); lit_237 = YPPsym((P)"mangle-quotation-name"); lit_238 = YPPlist(1,YPPsym((P)"name")); lit_239 = YPsb((P)"lit_"); T150 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSg2cYmangle_quotation_name = YPfab_met(FUNCODEREF(YevalSg2cYmangle_quotation_name),T150,LITREF(lit_237),LITREF(lit_238),sloc(497),YPfalse); T151 = YevalSg2cYmangle_quotation_name; VARSET(YevalSg2cYmangle_quotation_name,T151); lit_240 = YPPsym((P)"mangle-binding"); lit_241 = YPPlist(1,YPPsym((P)"binding")); lit_242 = YPPsym((P)"quotation"); T152 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_mangle_binding_85 = YPfab_met(FUNCODEREF(fun_mangle_binding_85),T152,LITREF(lit_240),LITREF(lit_241),sloc(503),YPfalse); T154 = VARREF_OR(YevalSg2cYmangle_binding,YPfalse); T155 = fun_mangle_binding_85; T153 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T154,T155); VARSET(YevalSg2cYmangle_binding,T153); lit_243 = YPPsym((P)"mangle-local-marked-name"); lit_244 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"marker")); T156 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSg2cYmangle_local_marked_name = YPfab_met(FUNCODEREF(YevalSg2cYmangle_local_marked_name),T156,LITREF(lit_243),LITREF(lit_244),sloc(510),YPfalse); T157 = YevalSg2cYmangle_local_marked_name; VARSET(YevalSg2cYmangle_local_marked_name,T157); lit_245 = YPPlist(1,YPPsym((P)"binding")); T158 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLlocal_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_mangle_binding_87 = YPfab_met(FUNCODEREF(fun_mangle_binding_87),T158,LITREF(lit_240),LITREF(lit_245),sloc(517),YPfalse); T160 = VARREF_OR(YevalSg2cYmangle_binding,YPfalse); T161 = fun_mangle_binding_87; T159 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T160,T161); VARSET(YevalSg2cYmangle_binding,T159); lit_246 = YPPlist(1,YPPsym((P)"binding")); T162 = YPfab_sig(YPPlist(1,VARREF(YevalSast_linearizeYLrenamed_local_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_mangle_binding_88 = YPfab_met(FUNCODEREF(fun_mangle_binding_88),T162,LITREF(lit_240),LITREF(lit_246),sloc(521),YPfalse); T164 = VARREF_OR(YevalSg2cYmangle_binding,YPfalse); T165 = fun_mangle_binding_88; T163 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T164,T165); VARSET(YevalSg2cYmangle_binding,T163); lit_247 = YPPlist(1,YPPsym((P)"exp")); lit_248 = YPPlist(1,YPPsym((P)"return")); lit_249 = YPPsym((P)"x-1666"); lit_250 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_251 = YPPsym((P)"for-commas"); lit_252 = YPPsym((P)"let"); lit_253 = YPPsym((P)"for"); lit_254 = YPPsym((P)"first?"); lit_255 = YPPsym((P)"first-then"); lit_256 = YPPsym((P)"op"); lit_257 = YPPsym((P)"unless"); lit_258 = YPPsym((P)"put"); T172 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T171 = fun_x_1666_89 = YPfab_met(FUNCODEREF(fun_x_1666_89),T172,LITREF(lit_249),LITREF(lit_250),YPfalse,YPfalse); T170 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T169 = fun_90 = YPfab_met(FUNCODEREF(fun_90),T170,YPfalse,LITREF(lit_248),YPfalse,YPfalse); T168 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T167 = fun_91 = YPfab_met(FUNCODEREF(fun_91),T168,YPfalse,LITREF(lit_247),YPfalse,YPfalse); T174 = fun_91; T173 = YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"for-commas"),T174); T166 = T173; return T166; } P YevalSg2cY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181,T182,T183,T184,T185,T186; DEFCREGS(); lit_259 = YPPlist(1,YPPsym((P)"exp")); lit_260 = YPPlist(1,YPPsym((P)"return")); lit_261 = YPPsym((P)"x-1670"); lit_262 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_263 = YPPsym((P)"maybe-between-parentheses"); lit_264 = YPPsym((P)"not"); lit_265 = YPPsym((P)"*gen-statements?*"); lit_266 = YPPsym((P)"when"); T2 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1670_92 = YPfab_met(FUNCODEREF(fun_x_1670_92),T2,LITREF(lit_261),LITREF(lit_262),YPfalse,YPfalse); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_93 = YPfab_met(FUNCODEREF(fun_93),T1,YPfalse,LITREF(lit_260),YPfalse,YPfalse); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_94 = YPfab_met(FUNCODEREF(fun_94),T0,YPfalse,LITREF(lit_259),YPfalse,YPfalse); T3 = fun_94; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"maybe-between-parentheses"),T3); lit_267 = YPPlist(1,YPPsym((P)"exp")); lit_268 = YPPlist(1,YPPsym((P)"return")); lit_269 = YPPsym((P)"x-1674"); lit_270 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_271 = YPPsym((P)"between-parentheses"); T6 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1674_95 = YPfab_met(FUNCODEREF(fun_x_1674_95),T6,LITREF(lit_269),LITREF(lit_270),YPfalse,YPfalse); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_96 = YPfab_met(FUNCODEREF(fun_96),T5,YPfalse,LITREF(lit_268),YPfalse,YPfalse); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_97 = YPfab_met(FUNCODEREF(fun_97),T4,YPfalse,LITREF(lit_267),YPfalse,YPfalse); T7 = fun_97; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"between-parentheses"),T7); lit_272 = YPPlist(1,YPPsym((P)"exp")); lit_273 = YPPlist(1,YPPsym((P)"return")); lit_274 = YPPsym((P)"x-1678"); lit_275 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_276 = YPPsym((P)"between-parentheses-comma-separated"); T10 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1678_98 = YPfab_met(FUNCODEREF(fun_x_1678_98),T10,LITREF(lit_274),LITREF(lit_275),YPfalse,YPfalse); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_99 = YPfab_met(FUNCODEREF(fun_99),T9,YPfalse,LITREF(lit_273),YPfalse,YPfalse); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_100 = YPfab_met(FUNCODEREF(fun_100),T8,YPfalse,LITREF(lit_272),YPfalse,YPfalse); T11 = fun_100; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"between-parentheses-comma-separated"),T11); lit_277 = YPPsym((P)"gen-result"); lit_278 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"d"),YPPsym((P)"out")); lit_279 = YPsb((P)"T"); lit_280 = YPsb((P)" = "); T12 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); fun_gen_result_101 = YPfab_met(FUNCODEREF(fun_gen_result_101),T12,LITREF(lit_277),LITREF(lit_278),sloc(558),YPfalse); T14 = VARREF_OR(YevalSg2cYgen_result,YPfalse); T15 = fun_gen_result_101; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSg2cYgen_result,T13); lit_281 = YPPsym((P)"gen-depth"); lit_282 = YPPlist(2,YPPsym((P)"d"),YPPsym((P)"out")); lit_283 = YPsb((P)" "); T16 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_depth_102 = YPfab_met(FUNCODEREF(fun_gen_depth_102),T16,LITREF(lit_281),LITREF(lit_282),sloc(562),YPfalse); T18 = VARREF_OR(YevalSg2cYgen_depth,YPfalse); T19 = fun_gen_depth_102; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSg2cYgen_depth,T17); DYNDEFSET(YevalSg2cYTgen_statementsQT,YPtrue); lit_284 = YPPlist(1,YPPsym((P)"exp")); lit_285 = YPPlist(1,YPPsym((P)"return")); lit_286 = YPPsym((P)"x-1685"); lit_287 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_288 = YPPsym((P)"with-statement"); lit_289 = YPPsym((P)"seq"); lit_290 = YPPsym((P)"puts"); lit_291 = YPsb((P)";\n"); T22 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1685_103 = YPfab_met(FUNCODEREF(fun_x_1685_103),T22,LITREF(lit_286),LITREF(lit_287),YPfalse,YPfalse); T21 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_104 = YPfab_met(FUNCODEREF(fun_104),T21,YPfalse,LITREF(lit_285),YPfalse,YPfalse); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_105 = YPfab_met(FUNCODEREF(fun_105),T20,YPfalse,LITREF(lit_284),YPfalse,YPfalse); T23 = fun_105; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"with-statement"),T23); lit_292 = YPPlist(1,YPPsym((P)"exp")); lit_293 = YPPlist(1,YPPsym((P)"return")); lit_294 = YPPsym((P)"x-1689"); lit_295 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_296 = YPPsym((P)"may-comma"); lit_297 = YPsb((P)", "); T26 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1689_106 = YPfab_met(FUNCODEREF(fun_x_1689_106),T26,LITREF(lit_294),LITREF(lit_295),YPfalse,YPfalse); T25 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_107 = YPfab_met(FUNCODEREF(fun_107),T25,YPfalse,LITREF(lit_293),YPfalse,YPfalse); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_108 = YPfab_met(FUNCODEREF(fun_108),T24,YPfalse,LITREF(lit_292),YPfalse,YPfalse); T27 = fun_108; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"may-comma"),T27); lit_298 = YPPlist(1,YPPsym((P)"exp")); lit_299 = YPPlist(1,YPPsym((P)"return")); lit_300 = YPPsym((P)"x-1693"); lit_301 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_302 = YPPsym((P)"with-statement-may-comma"); T30 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1693_109 = YPfab_met(FUNCODEREF(fun_x_1693_109),T30,LITREF(lit_300),LITREF(lit_301),YPfalse,YPfalse); T29 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_110 = YPfab_met(FUNCODEREF(fun_110),T29,YPfalse,LITREF(lit_299),YPfalse,YPfalse); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_111 = YPfab_met(FUNCODEREF(fun_111),T28,YPfalse,LITREF(lit_298),YPfalse,YPfalse); T31 = fun_111; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"with-statement-may-comma"),T31); lit_303 = YPPlist(1,YPPsym((P)"exp")); lit_304 = YPPlist(1,YPPsym((P)"return")); lit_305 = YPPsym((P)"x-1697"); lit_306 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_307 = YPPsym((P)"with-expression"); T34 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1697_112 = YPfab_met(FUNCODEREF(fun_x_1697_112),T34,LITREF(lit_305),LITREF(lit_306),YPfalse,YPfalse); T33 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_113 = YPfab_met(FUNCODEREF(fun_113),T33,YPfalse,LITREF(lit_304),YPfalse,YPfalse); T32 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_114 = YPfab_met(FUNCODEREF(fun_114),T32,YPfalse,LITREF(lit_303),YPfalse,YPfalse); T35 = fun_114; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"with-expression"),T35); lit_308 = YPPlist(1,YPPsym((P)"exp")); lit_309 = YPPlist(1,YPPsym((P)"return")); lit_310 = YPPsym((P)"x-1701"); lit_311 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_312 = YPPsym((P)"with-used-expression"); lit_313 = YPPsym((P)"program-register"); T38 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1701_115 = YPfab_met(FUNCODEREF(fun_x_1701_115),T38,LITREF(lit_310),LITREF(lit_311),YPfalse,YPfalse); T37 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_116 = YPfab_met(FUNCODEREF(fun_116),T37,YPfalse,LITREF(lit_309),YPfalse,YPfalse); T36 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_117 = YPfab_met(FUNCODEREF(fun_117),T36,YPfalse,LITREF(lit_308),YPfalse,YPfalse); T39 = fun_117; YPmacro(YPPsym((P)"eval/g2c"),YPPsym((P)"with-used-expression"),T39); lit_314 = YPPsym((P)"generate-quotation-forwards"); lit_315 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"qb*")); lit_316 = YPsb((P)"\n/* FORWARD QUOTATIONS: */\n\n"); lit_317 = YPsb((P)"DEFLIT(lit_"); lit_318 = YPsb((P)");\n"); T40 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_forwards_118 = YPfab_met(FUNCODEREF(fun_generate_quotation_forwards_118),T40,LITREF(lit_314),LITREF(lit_315),sloc(595),YPfalse); T42 = VARREF_OR(YevalSg2cYgenerate_quotation_forwards,YPfalse); T43 = fun_generate_quotation_forwards_118; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSg2cYgenerate_quotation_forwards,T41); lit_319 = YPPsym((P)"generate-quotations"); lit_320 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"qb*")); lit_321 = YPsb((P)"lit_"); lit_322 = YPsb((P)" = "); T44 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotations_119 = YPfab_met(FUNCODEREF(fun_generate_quotations_119),T44,LITREF(lit_319),LITREF(lit_320),sloc(600),YPfalse); T46 = VARREF_OR(YevalSg2cYgenerate_quotations,YPfalse); T47 = fun_generate_quotations_119; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSg2cYgenerate_quotations,T45); T48 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); VARSET(YevalSg2cYTlitsT,T48); T49 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)0)); VARSET(YevalSg2cYTlits_atT,T49); lit_323 = YPPsym((P)"@lit"); lit_324 = YPPlist(1,YPPsym((P)"n")); T50 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YOlit = YPfab_met(FUNCODEREF(YOlit),T50,LITREF(lit_323),LITREF(lit_324),sloc(609),YPfalse); T51 = YOlit; VARSET(YOlit,T51); lit_325 = YPPsym((P)"ref-lit"); lit_326 = YPPlist(1,YPPsym((P)"x")); T53 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_121 = YPfab_met(FUNCODEREF(fun_121),T53,YPfalse,LITREF(lit_20),YPfalse,YPfalse); T52 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ref_lit_122 = YPfab_met(FUNCODEREF(fun_ref_lit_122),T52,LITREF(lit_325),LITREF(lit_326),sloc(611),YPfalse); T55 = VARREF_OR(YevalSg2cYref_lit,YPfalse); T56 = fun_ref_lit_122; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YevalSg2cYref_lit,T54); lit_327 = YPPsym((P)"generate-quotation"); lit_328 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_329 = YPsb((P)"%lit"); lit_330 = YPsb((P)"((P)"); lit_331 = YPsb((P)")"); T57 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_123 = YPfab_met(FUNCODEREF(fun_generate_quotation_123),T57,LITREF(lit_327),LITREF(lit_328),sloc(614),YPfalse); T59 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T60 = fun_generate_quotation_123; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSg2cYgenerate_quotation,T58); lit_332 = YPPsym((P)"false-name"); lit_333 = YPsb((P)"%false"); T61 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_false_name_124 = YPfab_met(FUNCODEREF(fun_false_name_124),T61,LITREF(lit_332),LITREF(lit_20),sloc(617),YPfalse); T63 = VARREF_OR(YevalSg2cYfalse_name,YPfalse); T64 = fun_false_name_124; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSg2cYfalse_name,T62); lit_334 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"qb")); lit_335 = YPsb((P)"%true"); lit_336 = YPsb((P)"%false"); T65 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlogG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_125 = YPfab_met(FUNCODEREF(fun_generate_quotation_125),T65,LITREF(lit_327),LITREF(lit_334),sloc(620),YPfalse); T67 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T68 = fun_generate_quotation_125; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YevalSg2cYgenerate_quotation,T66); lit_337 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"qb")); lit_338 = YPsb((P)"nil"); T70 = XCALL1(1,VARREF(YgooStypesYtE),Ynil); T69 = YPfab_sig(YPPlist(2,VARREF(YLanyG),T70),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_126 = YPfab_met(FUNCODEREF(fun_generate_quotation_126),T69,LITREF(lit_327),LITREF(lit_337),sloc(623),YPfalse); T72 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T73 = fun_generate_quotation_126; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSg2cYgenerate_quotation,T71); lit_339 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"qb")); lit_340 = YPPlist(1,YPPsym((P)"x")); T75 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_127 = YPfab_met(FUNCODEREF(fun_127),T75,YPfalse,LITREF(lit_340),sloc(627),YPfalse); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_128 = YPfab_met(FUNCODEREF(fun_generate_quotation_128),T74,LITREF(lit_327),LITREF(lit_339),sloc(626),YPfalse); T77 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T78 = fun_generate_quotation_128; T76 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T77,T78); VARSET(YevalSg2cYgenerate_quotation,T76); lit_341 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_342 = YPsb((P)"%int"); lit_343 = YPsb((P)"((P)"); lit_344 = YPsb((P)")"); T79 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_129 = YPfab_met(FUNCODEREF(fun_generate_quotation_129),T79,LITREF(lit_327),LITREF(lit_341),sloc(629),YPfalse); T81 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T82 = fun_generate_quotation_129; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YevalSg2cYgenerate_quotation,T80); lit_345 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_346 = YPsb((P)"%chr"); lit_347 = YPsb((P)"((P)"); lit_348 = YPsb((P)")"); T83 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_130 = YPfab_met(FUNCODEREF(fun_generate_quotation_130),T83,LITREF(lit_327),LITREF(lit_345),sloc(632),YPfalse); T85 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T86 = fun_generate_quotation_130; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YevalSg2cYgenerate_quotation,T84); lit_349 = YPPsym((P)"float-to-c-string"); lit_350 = YPPlist(1,YPPsym((P)"o")); lit_351 = YPPlist(1,YPPsym((P)"done")); T88 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_131 = YPfab_met(FUNCODEREF(fun_131),T88,YPfalse,LITREF(lit_351),sloc(638),YPfalse); T87 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_float_to_c_string_132 = YPfab_met(FUNCODEREF(fun_float_to_c_string_132),T87,LITREF(lit_349),LITREF(lit_350),sloc(635),YPfalse); T90 = VARREF_OR(YevalSg2cYfloat_to_c_string,YPfalse); T91 = fun_float_to_c_string_132; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YevalSg2cYfloat_to_c_string,T89); lit_352 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_353 = YPsb((P)"%flo"); lit_354 = YPsb((P)"(FLOINT("); lit_355 = YPsb((P)"))"); T92 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_133 = YPfab_met(FUNCODEREF(fun_generate_quotation_133),T92,LITREF(lit_327),LITREF(lit_352),sloc(650),YPfalse); T94 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T95 = fun_generate_quotation_133; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalSg2cYgenerate_quotation,T93); lit_356 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_357 = YPsb((P)"%sb"); lit_358 = YPsb((P)"((P)"); lit_359 = YPsb((P)")"); T96 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_134 = YPfab_met(FUNCODEREF(fun_generate_quotation_134),T96,LITREF(lit_327),LITREF(lit_356),sloc(654),YPfalse); T98 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T99 = fun_generate_quotation_134; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YevalSg2cYgenerate_quotation,T97); lit_360 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_361 = YPsb((P)"XCALLN(1, "); lit_362 = YPsb((P)"vec"); lit_363 = YPsb((P)", "); lit_364 = YPsb((P)", "); lit_365 = YPsb((P)")"); T100 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_135 = YPfab_met(FUNCODEREF(fun_generate_quotation_135),T100,LITREF(lit_327),LITREF(lit_360),sloc(658),YPfalse); T102 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T103 = fun_generate_quotation_135; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSg2cYgenerate_quotation,T101); lit_366 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_367 = YPsb((P)"XCALLN(1, "); lit_368 = YPsb((P)"tup"); lit_369 = YPsb((P)", "); lit_370 = YPsb((P)", "); lit_371 = YPsb((P)")"); T104 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLtupG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_136 = YPfab_met(FUNCODEREF(fun_generate_quotation_136),T104,LITREF(lit_327),LITREF(lit_366),sloc(666),YPfalse); T106 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T107 = fun_generate_quotation_136; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalSg2cYgenerate_quotation,T105); lit_372 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"x")); lit_373 = YPsb((P)"%%sym"); lit_374 = YPsb((P)"((P)"); lit_375 = YPsb((P)")"); T108 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_quotation_137 = YPfab_met(FUNCODEREF(fun_generate_quotation_137),T108,LITREF(lit_327),LITREF(lit_372),sloc(674),YPfalse); T110 = VARREF_OR(YevalSg2cYgenerate_quotation,YPfalse); T111 = fun_generate_quotation_137; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YevalSg2cYgenerate_quotation,T109); lit_376 = YPPsym((P)"binding->c"); lit_377 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"out")); T112 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSg2cYbinding_Gc = YPfab_met(FUNCODEREF(YevalSg2cYbinding_Gc),T112,LITREF(lit_376),LITREF(lit_377),sloc(683),YPfalse); T113 = YevalSg2cYbinding_Gc; VARSET(YevalSg2cYbinding_Gc,T113); lit_378 = YPPsym((P)"reference->c"); lit_379 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"out")); T115 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLbindingG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T114 = YPfab_gen(T115,LITREF(lit_378),LITREF(lit_379),YPfalse); VARSET(YevalSg2cYreference_Gc,T114); lit_380 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"out")); T116 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLbindingG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_Gc_139 = YPfab_met(FUNCODEREF(fun_reference_Gc_139),T116,LITREF(lit_378),LITREF(lit_380),sloc(690),YPfalse); T118 = VARREF_OR(YevalSg2cYreference_Gc,YPfalse); T119 = fun_reference_Gc_139; T117 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T118,T119); VARSET(YevalSg2cYreference_Gc,T117); lit_381 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"out")); lit_382 = YPsb((P)"LITREF"); lit_383 = YPsb((P)"RTVREF"); lit_384 = YPsb((P)"DYNREF"); lit_385 = YPsb((P)"VARREF"); T120 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_reference_Gc_140 = YPfab_met(FUNCODEREF(fun_reference_Gc_140),T120,LITREF(lit_378),LITREF(lit_381),sloc(693),YPfalse); T122 = VARREF_OR(YevalSg2cYreference_Gc,YPfalse); T123 = fun_reference_Gc_140; T121 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T122,T123); VARSET(YevalSg2cYreference_Gc,T121); lit_386 = YPPsym((P)"to-c"); lit_387 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); T125 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); T124 = YPfab_gen(T125,LITREF(lit_386),LITREF(lit_387),YPfalse); VARSET(YevalSg2cYto_c,T124); lit_388 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); T126 = YPfab_sig(YPPlist(4,VARREF(YevalSast_linearizeYLtop_level_formG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_141 = YPfab_met(FUNCODEREF(fun_to_c_141),T126,LITREF(lit_386),LITREF(lit_388),sloc(705),YPfalse); T128 = VARREF_OR(YevalSg2cYto_c,YPfalse); T129 = fun_to_c_141; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); VARSET(YevalSg2cYto_c,T127); lit_389 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); T130 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLpassive_programG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_142 = YPfab_met(FUNCODEREF(fun_to_c_142),T130,LITREF(lit_386),LITREF(lit_389),sloc(711),YPfalse); T132 = VARREF_OR(YevalSg2cYto_c,YPfalse); T133 = fun_to_c_142; T131 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T132,T133); VARSET(YevalSg2cYto_c,T131); lit_390 = YPPsym((P)"gen-ref*"); lit_391 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T134 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLreferenceG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_143 = YPfab_met(FUNCODEREF(fun_gen_refT_143),T134,LITREF(lit_390),LITREF(lit_391),sloc(715),YPfalse); T136 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T137 = fun_gen_refT_143; T135 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T136,T137); VARSET(YevalSg2cYgen_refT,T135); lit_392 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); lit_393 = YPsb((P)"FREEREF"); T138 = YPfab_sig(YPPlist(2,VARREF(YevalSast_linearizeYLfree_referenceG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_144 = YPfab_met(FUNCODEREF(fun_gen_refT_144),T138,LITREF(lit_390),LITREF(lit_392),sloc(718),YPfalse); T140 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T141 = fun_gen_refT_144; T139 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T140,T141); VARSET(YevalSg2cYgen_refT,T139); lit_394 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); lit_395 = YPsb((P)"T"); lit_396 = YPsb((P)"T_1"); T142 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_145 = YPfab_met(FUNCODEREF(fun_gen_refT_145),T142,LITREF(lit_390),LITREF(lit_394),sloc(723),YPfalse); T144 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T145 = fun_gen_refT_145; T143 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T144,T145); VARSET(YevalSg2cYgen_refT,T143); lit_397 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); lit_398 = YPsb((P)"(P)"); T146 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLraw_constantG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_146 = YPfab_met(FUNCODEREF(fun_gen_refT_146),T146,LITREF(lit_390),LITREF(lit_397),sloc(727),YPfalse); T148 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T149 = fun_gen_refT_146; T147 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T148,T149); VARSET(YevalSg2cYgen_refT,T147); lit_399 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T150 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLconstantG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_147 = YPfab_met(FUNCODEREF(fun_gen_refT_147),T150,LITREF(lit_390),LITREF(lit_399),sloc(730),YPfalse); T152 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T153 = fun_gen_refT_147; T151 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T152,T153); VARSET(YevalSg2cYgen_refT,T151); lit_400 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T154 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLsequentialG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_148 = YPfab_met(FUNCODEREF(fun_gen_refT_148),T154,LITREF(lit_390),LITREF(lit_400),sloc(733),YPfalse); T156 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T157 = fun_gen_refT_148; T155 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T156,T157); VARSET(YevalSg2cYgen_refT,T155); lit_401 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T158 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocalsG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_149 = YPfab_met(FUNCODEREF(fun_gen_refT_149),T158,LITREF(lit_390),LITREF(lit_401),sloc(736),YPfalse); T160 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T161 = fun_gen_refT_149; T159 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T160,T161); VARSET(YevalSg2cYgen_refT,T159); lit_402 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T162 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLfix_letG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_150 = YPfab_met(FUNCODEREF(fun_gen_refT_150),T162,LITREF(lit_390),LITREF(lit_402),sloc(739),YPfalse); T164 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T165 = fun_gen_refT_150; T163 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T164,T165); VARSET(YevalSg2cYgen_refT,T163); lit_403 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"out")); T166 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLloopG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_refT_151 = YPfab_met(FUNCODEREF(fun_gen_refT_151),T166,LITREF(lit_390),LITREF(lit_403),sloc(742),YPfalse); T168 = VARREF_OR(YevalSg2cYgen_refT,YPfalse); T169 = fun_gen_refT_151; T167 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T168,T169); VARSET(YevalSg2cYgen_refT,T167); lit_404 = YPPsym((P)"gen-ref"); lit_405 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); T170 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); YevalSg2cYgen_ref = YPfab_met(FUNCODEREF(YevalSg2cYgen_ref),T170,LITREF(lit_404),LITREF(lit_405),sloc(745),YPfalse); T171 = YevalSg2cYgen_ref; VARSET(YevalSg2cYgen_ref,T171); lit_406 = YPPsym((P)"to-pc"); lit_407 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); T172 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_pc_153 = YPfab_met(FUNCODEREF(fun_to_pc_153),T172,LITREF(lit_406),LITREF(lit_407),sloc(755),YPfalse); T174 = VARREF_OR(YevalSg2cYto_pc,YPfalse); T175 = fun_to_pc_153; T173 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T174,T175); VARSET(YevalSg2cYto_pc,T173); lit_408 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_409 = YPsb((P)"RTVSET("); lit_410 = YPsb((P)"DYNDEFSET("); lit_411 = YPsb((P)"DYNSET("); lit_412 = YPsb((P)"VARSET("); lit_413 = YPsb((P)","); lit_414 = YPsb((P)")"); T176 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLglobal_assignmentG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_154 = YPfab_met(FUNCODEREF(fun_to_c_154),T176,LITREF(lit_386),LITREF(lit_408),sloc(759),YPfalse); T178 = VARREF_OR(YevalSg2cYto_c,YPfalse); T179 = fun_to_c_154; T177 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T178,T179); VARSET(YevalSg2cYto_c,T177); lit_415 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_416 = YPsb((P)"RTV"); lit_417 = YPsb((P)"VARREF_OR"); T182 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLboundQG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); T181 = fun_to_c_155 = YPfab_met(FUNCODEREF(fun_to_c_155),T182,LITREF(lit_386),LITREF(lit_415),sloc(773),YPfalse); T185 = VARREF_OR(YevalSg2cYto_c,YPfalse); T186 = fun_to_c_155; T184 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T185,T186); T183 = VARSET(YevalSg2cYto_c,T184); T180 = T183; return T180; } P YevalSg2cY___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181,T182,T183,T184,T185,T186,T187,T188,T189,T190,T191; P T192,T193,T194,T195,T196,T197,T198,T199,T200,T201,T202,T203,T204,T205,T206,T207; P T208,T209,T210,T211,T212,T213,T214,T215; DEFCREGS(); lit_418 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_419 = YPsb((P)"BOXGET"); T0 = YPfab_sig(YPPlist(4,VARREF(YevalSast_linearizeYLbox_readG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_156 = YPfab_met(FUNCODEREF(fun_to_c_156),T0,LITREF(lit_386),LITREF(lit_418),sloc(784),YPfalse); T2 = VARREF_OR(YevalSg2cYto_c,YPfalse); T3 = fun_to_c_156; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSg2cYto_c,T1); lit_420 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_421 = YPsb((P)"BOXPUT"); lit_422 = YPsb((P)" = "); T4 = YPfab_sig(YPPlist(4,VARREF(YevalSast_linearizeYLbox_writeG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_157 = YPfab_met(FUNCODEREF(fun_to_c_157),T4,LITREF(lit_386),LITREF(lit_420),sloc(792),YPfalse); T6 = VARREF_OR(YevalSg2cYto_c,YPfalse); T7 = fun_to_c_157; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSg2cYto_c,T5); lit_423 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_424 = YPsb((P)" = BOXFAB"); T8 = YPfab_sig(YPPlist(4,VARREF(YevalSast_linearizeYLbox_creationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_158 = YPfab_met(FUNCODEREF(fun_to_c_158),T8,LITREF(lit_386),LITREF(lit_423),sloc(805),YPfalse); T10 = VARREF_OR(YevalSg2cYto_c,YPfalse); T11 = fun_to_c_158; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSg2cYto_c,T9); lit_425 = YPPsym((P)"bb?"); lit_426 = YPPlist(1,YPPsym((P)"x")); T12 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bbQ_159 = YPfab_met(FUNCODEREF(fun_bbQ_159),T12,LITREF(lit_425),LITREF(lit_426),sloc(813),YPfalse); T14 = VARREF_OR(YevalSg2cYbbQ,YPfalse); T15 = fun_bbQ_159; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSg2cYbbQ,T13); lit_427 = YPPlist(1,YPPsym((P)"x")); lit_428 = YPPsym((P)"%bb"); T16 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLpredefined_applicationG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bbQ_160 = YPfab_met(FUNCODEREF(fun_bbQ_160),T16,LITREF(lit_425),LITREF(lit_427),sloc(815),YPfalse); T18 = VARREF_OR(YevalSg2cYbbQ,YPfalse); T19 = fun_bbQ_160; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSg2cYbbQ,T17); lit_429 = YPPlist(1,YPPsym((P)"x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLfix_letG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bbQ_161 = YPfab_met(FUNCODEREF(fun_bbQ_161),T20,LITREF(lit_425),LITREF(lit_429),sloc(819),YPfalse); T22 = VARREF_OR(YevalSg2cYbbQ,YPfalse); T23 = fun_bbQ_161; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSg2cYbbQ,T21); lit_430 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_431 = YPsb((P)"if ("); lit_432 = YPsb((P)") {\n"); lit_433 = YPsb((P)" != "); lit_434 = YPsb((P)") {\n"); lit_435 = YPsb((P)"} else {\n"); lit_436 = YPsb((P)"}\n"); lit_437 = YPsb((P)"(("); lit_438 = YPsb((P)" != "); lit_439 = YPsb((P)") ? "); lit_440 = YPsb((P)" : "); lit_441 = YPsb((P)")"); T24 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLalternativeG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_162 = YPfab_met(FUNCODEREF(fun_to_c_162),T24,LITREF(lit_386),LITREF(lit_430),sloc(822),YPfalse); T26 = VARREF_OR(YevalSg2cYto_c,YPfalse); T27 = fun_to_c_162; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSg2cYto_c,T25); lit_442 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_443 = YPPlist(1,YPPsym((P)"x")); lit_444 = YPsb((P)"("); lit_445 = YPPlist(1,YPPsym((P)"x")); lit_446 = YPPlist(1,YPPsym((P)"x")); lit_447 = YPsb((P)")"); T31 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_163 = YPfab_met(FUNCODEREF(fun_163),T31,YPfalse,LITREF(lit_443),sloc(850),YPfalse); T30 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_164 = YPfab_met(FUNCODEREF(fun_164),T30,YPfalse,LITREF(lit_445),sloc(852),YPfalse); T29 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_165 = YPfab_met(FUNCODEREF(fun_165),T29,YPfalse,LITREF(lit_446),sloc(852),YPfalse); T28 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLsequentialG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_166 = YPfab_met(FUNCODEREF(fun_to_c_166),T28,LITREF(lit_386),LITREF(lit_442),sloc(848),YPfalse); T33 = VARREF_OR(YevalSg2cYto_c,YPfalse); T34 = fun_to_c_166; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YevalSg2cYto_c,T32); DYNDEFSET(YevalSg2cYTloop_arg_counterT,YPint((P)-1)); lit_448 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_449 = YPsb((P)"LOOP_"); lit_450 = YPsb((P)": {\n"); lit_451 = YPsb((P)"P "); lit_452 = YPPlist(1,YPPsym((P)"x")); lit_453 = YPPlist(1,YPPsym((P)"x")); lit_454 = YPsb((P)"a"); lit_455 = YPsb((P)"_"); lit_456 = YPsb((P)"}\n"); T37 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_167 = YPfab_met(FUNCODEREF(fun_167),T37,YPfalse,LITREF(lit_452),sloc(864),YPfalse); T36 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_168 = YPfab_met(FUNCODEREF(fun_168),T36,YPfalse,LITREF(lit_453),sloc(864),YPfalse); T35 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLloopG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_169 = YPfab_met(FUNCODEREF(fun_to_c_169),T35,LITREF(lit_386),LITREF(lit_448),sloc(857),YPfalse); T39 = VARREF_OR(YevalSg2cYto_c,YPfalse); T40 = fun_to_c_169; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YevalSg2cYto_c,T38); lit_457 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_458 = YPsb((P)"a"); lit_459 = YPsb((P)"_"); lit_460 = YPsb((P)" = "); lit_461 = YPsb((P)" = a"); lit_462 = YPsb((P)"_"); lit_463 = YPsb((P)"goto LOOP_"); T41 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLloop_applicationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_170 = YPfab_met(FUNCODEREF(fun_to_c_170),T41,LITREF(lit_386),LITREF(lit_457),sloc(870),YPfalse); T43 = VARREF_OR(YevalSg2cYto_c,YPfalse); T44 = fun_to_c_170; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YevalSg2cYto_c,T42); VARSET(YevalSg2cYDnumber_call_templates,YPint((P)5)); lit_464 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_465 = YPsb((P)"XX"); lit_466 = YPsb((P)"X"); lit_467 = YPsb((P)"CALL"); lit_468 = YPsb((P)"N"); lit_469 = YPsb((P)"0,"); lit_470 = YPsb((P)"1,"); lit_471 = YPsb((P)","); T45 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLregular_applicationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_171 = YPfab_met(FUNCODEREF(fun_to_c_171),T45,LITREF(lit_386),LITREF(lit_464),sloc(888),YPfalse); T47 = VARREF_OR(YevalSg2cYto_c,YPfalse); T48 = fun_to_c_171; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YevalSg2cYto_c,T46); lit_472 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_473 = YPsb((P)"%next-methods-reg-setter"); T49 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLmethod_applicationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_172 = YPfab_met(FUNCODEREF(fun_to_c_172),T49,LITREF(lit_386),LITREF(lit_472),sloc(905),YPfalse); T51 = VARREF_OR(YevalSg2cYto_c,YPfalse); T52 = fun_to_c_172; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YevalSg2cYto_c,T50); lit_474 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_475 = YPPlist(1,YPPsym((P)"x")); lit_476 = YPPlist(1,YPPsym((P)"x")); T55 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_173 = YPfab_met(FUNCODEREF(fun_173),T55,YPfalse,LITREF(lit_475),sloc(915),YPfalse); T54 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_174 = YPfab_met(FUNCODEREF(fun_174),T54,YPfalse,LITREF(lit_476),sloc(915),YPfalse); T53 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLargumentsG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_175 = YPfab_met(FUNCODEREF(fun_to_c_175),T53,LITREF(lit_386),LITREF(lit_474),sloc(914),YPfalse); T57 = VARREF_OR(YevalSg2cYto_c,YPfalse); T58 = fun_to_c_175; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YevalSg2cYto_c,T56); lit_477 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"oot")); lit_478 = YPsb((P)"(P)("); lit_479 = YPsb((P)";\n{ "); lit_480 = YPsb((P)");"); lit_481 = YPsb((P)"}\n"); T63 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_176 = YPfab_met(FUNCODEREF(fun_176),T63,YPfalse,LITREF(lit_20),sloc(919),YPfalse); T62 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_177 = YPfab_met(FUNCODEREF(fun_177),T62,YPfalse,LITREF(lit_20),sloc(919),YPfalse); T61 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_178 = YPfab_met(FUNCODEREF(fun_178),T61,YPfalse,LITREF(lit_20),sloc(927),YPfalse); T60 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_179 = YPfab_met(FUNCODEREF(fun_179),T60,YPfalse,LITREF(lit_20),sloc(927),YPfalse); T59 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLc_inlineG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_180 = YPfab_met(FUNCODEREF(fun_to_c_180),T59,LITREF(lit_386),LITREF(lit_477),sloc(918),YPfalse); T65 = VARREF_OR(YevalSg2cYto_c,YPfalse); T66 = fun_to_c_180; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YevalSg2cYto_c,T64); lit_482 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_483 = YPsb((P)"check_type"); lit_484 = YPsb((P)" = "); T67 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLfix_letG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_181 = YPfab_met(FUNCODEREF(fun_to_c_181),T67,LITREF(lit_386),LITREF(lit_482),sloc(938),YPfalse); T69 = VARREF_OR(YevalSg2cYto_c,YPfalse); T70 = fun_to_c_181; T68 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T69,T70); VARSET(YevalSg2cYto_c,T68); lit_485 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_486 = YPsb((P)" = "); lit_487 = YPPlist(2,YPPsym((P)"lb"),YPPsym((P)"lf")); T72 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_182 = YPfab_met(FUNCODEREF(fun_182),T72,YPfalse,LITREF(lit_487),sloc(963),YPfalse); T71 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLlocalsG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_183 = YPfab_met(FUNCODEREF(fun_to_c_183),T71,LITREF(lit_386),LITREF(lit_485),sloc(956),YPfalse); T74 = VARREF_OR(YevalSg2cYto_c,YPfalse); T75 = fun_to_c_183; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSg2cYto_c,T73); lit_488 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_489 = YPsb((P)"with_exit"); T76 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLbind_exitG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_184 = YPfab_met(FUNCODEREF(fun_to_c_184),T76,LITREF(lit_386),LITREF(lit_488),sloc(967),YPfalse); T78 = VARREF_OR(YevalSg2cYto_c,YPfalse); T79 = fun_to_c_184; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalSg2cYto_c,T77); lit_490 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_491 = YPsb((P)"with_cleanup"); T80 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLunwind_protectG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_185 = YPfab_met(FUNCODEREF(fun_to_c_185),T80,LITREF(lit_386),LITREF(lit_490),sloc(973),YPfalse); T82 = VARREF_OR(YevalSg2cYto_c,YPfalse); T83 = fun_to_c_185; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalSg2cYto_c,T81); lit_492 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_493 = YPsb((P)"XCALLN"); lit_494 = YPsb((P)"1"); lit_495 = YPsb((P)"%with-monitor"); lit_496 = YPsb((P)"5"); T84 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLmonitorG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_186 = YPfab_met(FUNCODEREF(fun_to_c_186),T84,LITREF(lit_386),LITREF(lit_492),sloc(982),YPfalse); T86 = VARREF_OR(YevalSg2cYto_c,YPfalse); T87 = fun_to_c_186; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalSg2cYto_c,T85); lit_497 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_498 = YPsb((P)"(P)"); lit_499 = YPPlist(1,YPPsym((P)"x")); lit_500 = YPPlist(1,YPPsym((P)"x")); T90 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_187 = YPfab_met(FUNCODEREF(fun_187),T90,YPfalse,LITREF(lit_499),sloc(1007),YPfalse); T89 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_188 = YPfab_met(FUNCODEREF(fun_188),T89,YPfalse,LITREF(lit_500),sloc(1007),YPfalse); T88 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLpredefined_applicationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_189 = YPfab_met(FUNCODEREF(fun_to_c_189),T88,LITREF(lit_386),LITREF(lit_497),sloc(1000),YPfalse); T92 = VARREF_OR(YevalSg2cYto_c,YPfalse); T93 = fun_to_c_189; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSg2cYto_c,T91); lit_501 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_502 = YPPlist(1,YPPsym((P)"x")); lit_503 = YPsb((P)"FUNFAB"); lit_504 = YPsb((P)","); T95 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_190 = YPfab_met(FUNCODEREF(fun_190),T95,YPfalse,LITREF(lit_502),sloc(1016),YPfalse); T94 = YPfab_sig(YPPlist(4,VARREF(YevalSast_linearizeYLclosure_creationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_191 = YPfab_met(FUNCODEREF(fun_to_c_191),T94,LITREF(lit_386),LITREF(lit_501),sloc(1010),YPfalse); T97 = VARREF_OR(YevalSg2cYto_c,YPfalse); T98 = fun_to_c_191; T96 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T97,T98); VARSET(YevalSg2cYto_c,T96); lit_505 = YPPsym((P)"funshell-to-c"); lit_506 = YPPlist(5,YPPsym((P)"b"),YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_507 = YPsb((P)"FUNSHELL"); T99 = YPfab_sig(YPPlist(5,VARREF(YevalSmoduleYLbindingG),VARREF(YevalSast_linearizeYLclosure_creationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); fun_funshell_to_c_192 = YPfab_met(FUNCODEREF(fun_funshell_to_c_192),T99,LITREF(lit_505),LITREF(lit_506),sloc(1025),YPfalse); T101 = VARREF_OR(YevalSg2cYfunshell_to_c,YPfalse); T102 = fun_funshell_to_c_192; T100 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T101,T102); VARSET(YevalSg2cYfunshell_to_c,T100); lit_508 = YPPsym((P)"funinit-to-c"); lit_509 = YPPlist(5,YPPsym((P)"b"),YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_510 = YPPlist(1,YPPsym((P)"x")); lit_511 = YPsb((P)"FUNINIT"); lit_512 = YPsb((P)", "); T104 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_193 = YPfab_met(FUNCODEREF(fun_193),T104,YPfalse,LITREF(lit_510),sloc(1041),YPfalse); T103 = YPfab_sig(YPPlist(5,VARREF(YevalSmoduleYLbindingG),VARREF(YevalSast_linearizeYLclosure_creationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); fun_funinit_to_c_194 = YPfab_met(FUNCODEREF(fun_funinit_to_c_194),T103,LITREF(lit_508),LITREF(lit_509),sloc(1038),YPfalse); T106 = VARREF_OR(YevalSg2cYfuninit_to_c,YPfalse); T107 = fun_funinit_to_c_194; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalSg2cYfuninit_to_c,T105); lit_513 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_514 = YPsb((P)"%macro"); T108 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLast_macro_definitionG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_195 = YPfab_met(FUNCODEREF(fun_to_c_195),T108,LITREF(lit_386),LITREF(lit_513),sloc(1050),YPfalse); T110 = VARREF_OR(YevalSg2cYto_c,YPfalse); T111 = fun_to_c_195; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YevalSg2cYto_c,T109); lit_515 = YPPsym((P)"out-list-builder"); lit_516 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"out"),YPPsym((P)"elts")); lit_517 = YPsb((P)"nil"); lit_518 = YPsb((P)"%%list"); T112 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_out_list_builder_196 = YPfab_met(FUNCODEREF(fun_out_list_builder_196),T112,LITREF(lit_515),LITREF(lit_516),sloc(1059),YPfalse); T114 = VARREF_OR(YevalSg2cYout_list_builder,YPfalse); T115 = fun_out_list_builder_196; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YevalSg2cYout_list_builder,T113); lit_519 = YPPsym((P)"gen-fab-list"); lit_520 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"refs")); lit_521 = YPPlist(1,YPPsym((P)"x")); T117 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_197 = YPfab_met(FUNCODEREF(fun_197),T117,YPfalse,LITREF(lit_521),sloc(1072),YPfalse); T116 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLfab_listG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_gen_fab_list_198 = YPfab_met(FUNCODEREF(fun_gen_fab_list_198),T116,LITREF(lit_519),LITREF(lit_520),sloc(1071),YPfalse); T119 = VARREF_OR(YevalSg2cYgen_fab_list,YPfalse); T120 = fun_gen_fab_list_198; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YevalSg2cYgen_fab_list,T118); lit_522 = YPPsym((P)"generate-function-specs"); lit_523 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"sig")); T121 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_specs_199 = YPfab_met(FUNCODEREF(fun_generate_function_specs_199),T121,LITREF(lit_522),LITREF(lit_523),sloc(1074),YPfalse); T123 = VARREF_OR(YevalSg2cYgenerate_function_specs,YPfalse); T124 = fun_generate_function_specs_199; T122 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T123,T124); VARSET(YevalSg2cYgenerate_function_specs,T122); lit_524 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_525 = YPPlist(1,YPPsym((P)"x")); lit_526 = YPsb((P)"%fab-sig"); lit_527 = YPsb((P)"nil"); T126 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_200 = YPfab_met(FUNCODEREF(fun_200),T126,YPfalse,LITREF(lit_525),sloc(1078),YPfalse); T125 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLast_signatureG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_201 = YPfab_met(FUNCODEREF(fun_to_c_201),T125,LITREF(lit_386),LITREF(lit_524),sloc(1077),YPfalse); T128 = VARREF_OR(YevalSg2cYto_c,YPfalse); T129 = fun_to_c_201; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); VARSET(YevalSg2cYto_c,T127); lit_528 = YPPlist(4,YPPsym((P)"e"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_529 = YPsb((P)"%fab-gen"); lit_530 = YPsb((P)"%false"); T130 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLast_genericG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_to_c_202 = YPfab_met(FUNCODEREF(fun_to_c_202),T130,LITREF(lit_386),LITREF(lit_528),sloc(1089),YPfalse); T132 = VARREF_OR(YevalSg2cYto_c,YPfalse); T133 = fun_to_c_202; T131 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T132,T133); VARSET(YevalSg2cYto_c,T131); lit_531 = YPPsym((P)"generate-function-forwards"); lit_532 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"definitions")); lit_533 = YPsb((P)"\n/* FUNCTIONS: */\n\n"); T134 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_forwards_203 = YPfab_met(FUNCODEREF(fun_generate_function_forwards_203),T134,LITREF(lit_531),LITREF(lit_532),sloc(1102),YPfalse); T136 = VARREF_OR(YevalSg2cYgenerate_function_forwards,YPfalse); T137 = fun_generate_function_forwards_203; T135 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T136,T137); VARSET(YevalSg2cYgenerate_function_forwards,T135); lit_534 = YPPsym((P)"generate-function-forward"); lit_535 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"defn")); lit_536 = YPsb((P)"static"); lit_537 = YPsb((P)"extern"); lit_538 = YPsb((P)" P "); lit_539 = YPsb((P)" ("); lit_540 = YPPlist(1,YPPsym((P)"x")); lit_541 = YPPlist(1,YPPsym((P)"x")); lit_542 = YPsb((P)"P"); lit_543 = YPsb((P)");\n"); T140 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_204 = YPfab_met(FUNCODEREF(fun_204),T140,YPfalse,LITREF(lit_540),sloc(1111),YPfalse); T139 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_205 = YPfab_met(FUNCODEREF(fun_205),T139,YPfalse,LITREF(lit_541),sloc(1111),YPfalse); T138 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_primitiveG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_forward_206 = YPfab_met(FUNCODEREF(fun_generate_function_forward_206),T138,LITREF(lit_534),LITREF(lit_535),sloc(1107),YPfalse); T142 = VARREF_OR(YevalSg2cYgenerate_function_forward,YPfalse); T143 = fun_generate_function_forward_206; T141 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T142,T143); VARSET(YevalSg2cYgenerate_function_forward,T141); lit_544 = YPPsym((P)"generate-function-binding"); lit_545 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"defn")); lit_546 = YPPlist(2,YPPsym((P)"global"),YPPsym((P)"runtime")); lit_547 = YPsb((P)"fun_"); lit_548 = YPsb((P)"fun_"); lit_549 = YPsb((P)"_"); T144 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_binding_207 = YPfab_met(FUNCODEREF(fun_generate_function_binding_207),T144,LITREF(lit_544),LITREF(lit_545),sloc(1115),YPfalse); T146 = VARREF_OR(YevalSg2cYgenerate_function_binding,YPfalse); T147 = fun_generate_function_binding_207; T145 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T146,T147); VARSET(YevalSg2cYgenerate_function_binding,T145); lit_550 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"defn")); lit_551 = YPsb((P)"FUNFOR("); lit_552 = YPsb((P)"LOCFOR("); lit_553 = YPsb((P)");\n"); T148 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_forward_208 = YPfab_met(FUNCODEREF(fun_generate_function_forward_208),T148,LITREF(lit_534),LITREF(lit_550),sloc(1128),YPfalse); T150 = VARREF_OR(YevalSg2cYgenerate_function_forward,YPfalse); T151 = fun_generate_function_forward_208; T149 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T150,T151); VARSET(YevalSg2cYgenerate_function_forward,T149); lit_554 = YPPsym((P)"generate-function-bodies"); lit_555 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"definitions")); lit_556 = YPsb((P)"\n/* FUNCTION CODES: */\n"); lit_557 = YPPlist(1,YPPsym((P)"def")); T153 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_209 = YPfab_met(FUNCODEREF(fun_209),T153,YPfalse,LITREF(lit_557),sloc(1136),YPfalse); T152 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_bodies_210 = YPfab_met(FUNCODEREF(fun_generate_function_bodies_210),T152,LITREF(lit_554),LITREF(lit_555),sloc(1134),YPfalse); T155 = VARREF_OR(YevalSg2cYgenerate_function_bodies,YPfalse); T156 = fun_generate_function_bodies_210; T154 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T155,T156); VARSET(YevalSg2cYgenerate_function_bodies,T154); lit_558 = YPPsym((P)"generate-functions"); lit_559 = YPPlist(4,YPPsym((P)"definitions"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_560 = YPPlist(1,YPPsym((P)"def")); T158 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_211 = YPfab_met(FUNCODEREF(fun_211),T158,YPfalse,LITREF(lit_560),sloc(1141),YPfalse); T157 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_generate_functions_212 = YPfab_met(FUNCODEREF(fun_generate_functions_212),T157,LITREF(lit_558),LITREF(lit_559),sloc(1140),YPfalse); T160 = VARREF_OR(YevalSg2cYgenerate_functions,YPfalse); T161 = fun_generate_functions_212; T159 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T160,T161); VARSET(YevalSg2cYgenerate_functions,T159); lit_561 = YPPsym((P)"generate-closure-structure"); lit_562 = YPPlist(4,YPPsym((P)"definition"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_563 = YPsb((P)" = "); lit_564 = YPsb((P)"%fab-met-inlineable"); lit_565 = YPsb((P)"%fab-met"); lit_566 = YPsb((P)"sloc("); lit_567 = YPsb((P)")"); lit_568 = YPsb((P)"%false"); T162 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_generate_closure_structure_213 = YPfab_met(FUNCODEREF(fun_generate_closure_structure_213),T162,LITREF(lit_561),LITREF(lit_562),sloc(1146),YPfalse); T164 = VARREF_OR(YevalSg2cYgenerate_closure_structure,YPfalse); T165 = fun_generate_closure_structure_213; T163 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T164,T165); VARSET(YevalSg2cYgenerate_closure_structure,T163); lit_569 = YPPsym((P)"generate-function-body-reference"); lit_570 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"definition")); lit_571 = YPsb((P)"FUNCODEREF("); lit_572 = YPsb((P)")"); T166 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_body_reference_214 = YPfab_met(FUNCODEREF(fun_generate_function_body_reference_214),T166,LITREF(lit_569),LITREF(lit_570),sloc(1164),YPfalse); T168 = VARREF_OR(YevalSg2cYgenerate_function_body_reference,YPfalse); T169 = fun_generate_function_body_reference_214; T167 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T168,T169); VARSET(YevalSg2cYgenerate_function_body_reference,T167); lit_573 = YPPsym((P)"generate-return"); lit_574 = YPPlist(4,YPPsym((P)"defn"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_575 = YPsb((P)"return "); T170 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLast_primitiveG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_generate_return_215 = YPfab_met(FUNCODEREF(fun_generate_return_215),T170,LITREF(lit_573),LITREF(lit_574),sloc(1173),YPfalse); T172 = VARREF_OR(YevalSg2cYgenerate_return,YPfalse); T173 = fun_generate_return_215; T171 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T172,T173); VARSET(YevalSg2cYgenerate_return,T171); lit_576 = YPPlist(4,YPPsym((P)"defn"),YPPsym((P)"f"),YPPsym((P)"d"),YPPsym((P)"out")); lit_577 = YPsb((P)"RET"); T174 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_generate_return_216 = YPfab_met(FUNCODEREF(fun_generate_return_216),T174,LITREF(lit_573),LITREF(lit_576),sloc(1177),YPfalse); T176 = VARREF_OR(YevalSg2cYgenerate_return,YPfalse); T177 = fun_generate_return_216; T175 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T176,T177); VARSET(YevalSg2cYgenerate_return,T175); lit_578 = YPPsym((P)"generate-function-code"); lit_579 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"e")); lit_580 = YPsb((P)"\n"); lit_581 = YPsb((P)"static "); lit_582 = YPsb((P)"INLINE "); lit_583 = YPsb((P)"P "); lit_584 = YPPlist(1,YPPsym((P)"x")); lit_585 = YPPlist(1,YPPsym((P)"x")); lit_586 = YPsb((P)"P "); lit_587 = YPsb((P)" {\n"); lit_588 = YPsb((P)"DEFCREGS();\n"); lit_589 = YPsb((P)"}\n"); T180 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_217 = YPfab_met(FUNCODEREF(fun_217),T180,YPfalse,LITREF(lit_584),sloc(1190),YPfalse); T179 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_218 = YPfab_met(FUNCODEREF(fun_218),T179,YPfalse,LITREF(lit_585),sloc(1190),YPfalse); T178 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSastYLast_primitiveG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_code_219 = YPfab_met(FUNCODEREF(fun_generate_function_code_219),T178,LITREF(lit_578),LITREF(lit_579),sloc(1184),YPfalse); T182 = VARREF_OR(YevalSg2cYgenerate_function_code,YPfalse); T183 = fun_generate_function_code_219; T181 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T182,T183); VARSET(YevalSg2cYgenerate_function_code,T181); lit_590 = YPPsym((P)"dispatcher?"); lit_591 = YPPlist(1,YPPsym((P)"definition")); lit_592 = YPsb((P)"%dispatch"); lit_593 = YPsb((P)"-dispatch"); lit_594 = YPsb((P)"-dispatch"); T184 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_dispatcherQ_220 = YPfab_met(FUNCODEREF(fun_dispatcherQ_220),T184,LITREF(lit_590),LITREF(lit_591),sloc(1200),YPfalse); T186 = VARREF_OR(YevalSg2cYdispatcherQ,YPfalse); T187 = fun_dispatcherQ_220; T185 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T186,T187); VARSET(YevalSg2cYdispatcherQ,T185); lit_595 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"definition")); lit_596 = YPsb((P)"\nFUNCODEDEF("); lit_597 = YPsb((P)"\nLOCCODEDEF("); lit_598 = YPsb((P)") {\n"); lit_599 = YPsb((P)"P "); lit_600 = YPPlist(1,YPPsym((P)"x")); lit_601 = YPPlist(1,YPPsym((P)"x")); lit_602 = YPsb((P)"LINK_STACK();\n"); lit_603 = YPPlist(1,YPPsym((P)"b")); lit_604 = YPsb((P)"NARGS("); lit_605 = YPsb((P)"ARG("); lit_606 = YPsb((P)", "); lit_607 = YPsb((P)")"); lit_608 = YPsb((P)"UNLINK_STACK();\n"); lit_609 = YPsb((P)"}\n"); T191 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_221 = YPfab_met(FUNCODEREF(fun_221),T191,YPfalse,LITREF(lit_600),sloc(1218),YPfalse); T190 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_222 = YPfab_met(FUNCODEREF(fun_222),T190,YPfalse,LITREF(lit_601),sloc(1218),YPfalse); T189 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_223 = YPfab_met(FUNCODEREF(fun_223),T189,YPfalse,LITREF(lit_603),sloc(1224),YPfalse); T188 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_function_code_224 = YPfab_met(FUNCODEREF(fun_generate_function_code_224),T188,LITREF(lit_578),LITREF(lit_595),sloc(1208),YPfalse); T193 = VARREF_OR(YevalSg2cYgenerate_function_code,YPfalse); T194 = fun_generate_function_code_224; T192 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T193,T194); VARSET(YevalSg2cYgenerate_function_code,T192); lit_610 = YPPsym((P)"generate-local-temporaries"); lit_611 = YPPlist(2,YPPsym((P)"temps"),YPPsym((P)"out")); lit_612 = YPsb((P)"P "); T195 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_local_temporaries_225 = YPfab_met(FUNCODEREF(fun_generate_local_temporaries_225),T195,LITREF(lit_610),LITREF(lit_611),sloc(1244),YPfalse); T197 = VARREF_OR(YevalSg2cYgenerate_local_temporaries,YPfalse); T198 = fun_generate_local_temporaries_225; T196 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T197,T198); VARSET(YevalSg2cYgenerate_local_temporaries,T196); VARSET(YevalSg2cYTtrace_registersQT,YPfalse); VARSET(YevalSg2cYTregisters_per_lineT,YPint((P)16)); lit_613 = YPPsym((P)"generate-registers"); lit_614 = YPPlist(2,YPPsym((P)"regs"),YPPsym((P)"out")); lit_615 = YPsb((P)"P "); lit_616 = YPsb((P)";\n"); T199 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_registers_226 = YPfab_met(FUNCODEREF(fun_generate_registers_226),T199,LITREF(lit_613),LITREF(lit_614),sloc(1253),YPfalse); T201 = VARREF_OR(YevalSg2cYgenerate_registers,YPfalse); T202 = fun_generate_registers_226; T200 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T201,T202); VARSET(YevalSg2cYgenerate_registers,T200); lit_617 = YPPsym((P)"module-info-name"); lit_618 = YPPlist(1,YPPsym((P)"name")); lit_619 = YPsb((P)"module_info_"); T203 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_info_name_227 = YPfab_met(FUNCODEREF(fun_module_info_name_227),T203,LITREF(lit_617),LITREF(lit_618),sloc(1265),YPfalse); T205 = VARREF_OR(YevalSg2cYmodule_info_name,YPfalse); T206 = fun_module_info_name_227; T204 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T205,T206); VARSET(YevalSg2cYmodule_info_name,T204); lit_620 = YPPsym((P)"declare-imported-module-infos"); lit_621 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"mod")); lit_622 = YPPsym((P)"maybe-declare"); lit_623 = YPPlist(1,YPPsym((P)"modname")); lit_624 = YPsb((P)"extern MODULE_INFO "); lit_625 = YPsb((P)";\n"); lit_626 = YPPlist(1,YPPsym((P)"binding")); T213 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T212 = fun_maybe_declare_228 = YPfab_met(FUNCODEREF(fun_maybe_declare_228),T213,LITREF(lit_622),LITREF(lit_623),sloc(1274),YPfalse); T211 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T210 = fun_229 = YPfab_met(FUNCODEREF(fun_229),T211,YPfalse,LITREF(lit_626),sloc(1281),YPfalse); T209 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T208 = YevalSg2cYdeclare_imported_module_infos = YPfab_met(FUNCODEREF(YevalSg2cYdeclare_imported_module_infos),T209,LITREF(lit_620),LITREF(lit_621),sloc(1271),YPfalse); T215 = YevalSg2cYdeclare_imported_module_infos; T214 = VARSET(YevalSg2cYdeclare_imported_module_infos,T215); T207 = T214; return T207; } P YevalSg2cY___main_4___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; DEFCREGS(); lit_627 = YPPsym((P)"generate-module-info"); lit_628 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"mod")); lit_629 = YPsb((P)"\n/* MODULE ENVIRONMENT INFORMATION */\n\n"); lit_630 = YPsb((P)"\nstatic USE_INFO use_infos[] = {\n"); lit_631 = YPsb((P)" {&"); lit_632 = YPsb((P)"},\n"); lit_633 = YPsb((P)" {NULL}\n};\n"); lit_634 = YPsb((P)"\nstatic IMPORT_INFO import_infos[] = {\n"); lit_635 = YPPlist(2,YPPsym((P)"local-name"),YPPsym((P)"binding")); lit_636 = YPsb((P)" {"); lit_637 = YPsb((P)", &"); lit_638 = YPsb((P)", "); lit_639 = YPsb((P)"NULL"); lit_640 = YPsb((P)"},\n"); lit_641 = YPsb((P)" {NULL,NULL,NULL}\n};\n"); lit_642 = YPsb((P)"\nstatic BINDING_INFO binding_infos[] = {\n"); lit_643 = YPPlist(1,YPPsym((P)"binding")); lit_644 = YPsb((P)" {"); lit_645 = YPsb((P)", "); lit_646 = YPsb((P)"CVAR, &"); lit_647 = YPsb((P)"},\n"); lit_648 = YPsb((P)"DVAR, &"); lit_649 = YPsb((P)"},\n"); lit_650 = YPsb((P)"PVAR, NULL},\n"); lit_651 = YPsb((P)" {NULL, NVAR, NULL}\n};\n"); lit_652 = YPsb((P)"\nstatic EXPORT_INFO export_infos[] = {\n"); lit_653 = YPsb((P)" {"); lit_654 = YPsb((P)", "); lit_655 = YPsb((P)"NULL"); lit_656 = YPsb((P)"},\n"); lit_657 = YPsb((P)" {NULL, NULL}\n};\n"); lit_658 = YPsb((P)"\nextern MODULE_INFO "); lit_659 = YPsb((P)";\n"); lit_660 = YPsb((P)"MODULE_INFO "); lit_661 = YPsb((P)" = {\n"); lit_662 = YPsb((P)" "); lit_663 = YPsb((P)",\n"); lit_664 = YPsb((P)" NULL,\n"); lit_665 = YPsb((P)" use_infos,\n"); lit_666 = YPsb((P)" import_infos,\n"); lit_667 = YPsb((P)" binding_infos,\n"); lit_668 = YPsb((P)" export_infos,\n"); lit_669 = YPsb((P)"};\n"); T2 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_231 = YPfab_met(FUNCODEREF(fun_231),T2,YPfalse,LITREF(lit_635),sloc(1308),YPfalse); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_232 = YPfab_met(FUNCODEREF(fun_232),T1,YPfalse,LITREF(lit_643),sloc(1322),YPfalse); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSg2cYgenerate_module_info = YPfab_met(FUNCODEREF(YevalSg2cYgenerate_module_info),T0,LITREF(lit_627),LITREF(lit_628),sloc(1290),YPfalse); T3 = YevalSg2cYgenerate_module_info; VARSET(YevalSg2cYgenerate_module_info,T3); lit_670 = YPPsym((P)"module-init-name"); lit_671 = YPPlist(1,YPPsym((P)"name")); lit_672 = YPsb((P)"load_module_"); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_init_name_234 = YPfab_met(FUNCODEREF(fun_module_init_name_234),T4,LITREF(lit_670),LITREF(lit_671),sloc(1353),YPfalse); T6 = VARREF_OR(YevalSg2cYmodule_init_name,YPfalse); T7 = fun_module_init_name_234; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSg2cYmodule_init_name,T5); lit_673 = YPPsym((P)"module-init-decl"); lit_674 = YPPlist(1,YPPsym((P)"name")); lit_675 = YPsb((P)"void "); lit_676 = YPsb((P)" (void)"); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_init_decl_235 = YPfab_met(FUNCODEREF(fun_module_init_decl_235),T8,LITREF(lit_673),LITREF(lit_674),sloc(1356),YPfalse); T10 = VARREF_OR(YevalSg2cYmodule_init_decl,YPfalse); T11 = fun_module_init_decl_235; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSg2cYmodule_init_decl,T9); lit_677 = YPPsym((P)"generate-module-init"); lit_678 = YPPlist(3,YPPsym((P)"out"),YPPsym((P)"mod"),YPPsym((P)"form")); lit_679 = YPsb((P)"dl"); lit_680 = YPsb((P)"\n/* MODULES USED: */\n\n"); lit_681 = YPsb((P)"extern "); lit_682 = YPsb((P)";\n"); lit_683 = YPsb((P)"\n/* EXPRESSION: */\n\n"); lit_684 = YPsb((P)"extern "); lit_685 = YPsb((P)";\n\n"); lit_686 = YPsb((P)" {\n"); lit_687 = YPsb((P)" static int need_init = 1;\n"); lit_688 = YPsb((P)" if (!need_init) return;\n\n"); lit_689 = YPsb((P)" need_init = 0;\n"); lit_690 = YPsb((P)" "); lit_691 = YPsb((P)"();\n"); lit_692 = YPsb((P)"\n"); lit_693 = YPsb((P)"\n"); lit_694 = YPsb((P)"}\n"); T12 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_generate_module_init_236 = YPfab_met(FUNCODEREF(fun_generate_module_init_236),T12,LITREF(lit_677),LITREF(lit_678),sloc(1359),YPfalse); T14 = VARREF_OR(YevalSg2cYgenerate_module_init,YPfalse); T15 = fun_generate_module_init_236; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSg2cYgenerate_module_init,T13); lit_695 = YPPsym((P)"generate-main"); lit_696 = YPPlist(2,YPPsym((P)"out"),YPPsym((P)"mod")); lit_697 = YPsb((P)"\n/* APPLICATION: */\n\n"); lit_698 = YPsb((P)"extern MODULE_INFO "); lit_699 = YPsb((P)";\n"); lit_700 = YPsb((P)"extern "); lit_701 = YPsb((P)";\n\n"); lit_702 = YPsb((P)"MODULE_INFO *goo_toplevel_module_info = &"); lit_703 = YPsb((P)";\n\n"); lit_704 = YPsb((P)"int main(int argc, char* argv[]) {\n"); lit_705 = YPsb((P)" "); lit_706 = YPsb((P)"%init-world"); lit_707 = YPsb((P)"(argc, argv);\n"); lit_708 = YPsb((P)" "); lit_709 = YPsb((P)"();\n"); lit_710 = YPsb((P)" return 0;\n"); lit_711 = YPsb((P)"}\n"); T16 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_generate_main_237 = YPfab_met(FUNCODEREF(fun_generate_main_237),T16,LITREF(lit_695),LITREF(lit_696),sloc(1385),YPfalse); T18 = VARREF_OR(YevalSg2cYgenerate_main,YPfalse); T19 = fun_generate_main_237; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSg2cYgenerate_main,T17); T20 = YPfalse; return T20; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSsystem; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_evalStop; extern MODULE_INFO module_info_evalSast_linearize; extern MODULE_INFO module_info_evalSoptimize; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_evalSsyntax; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooSmacros}, {&module_info_gooSsystem}, {&module_info_gooSioSwrite}, {&module_info_gooScolsScol}, {&module_info_gooScolsSstr}, {&module_info_evalSast}, {&module_info_evalStop}, {&module_info_evalSast_linearize}, {&module_info_evalSoptimize}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"c-inline-strs", &module_info_evalSast, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"save-image", &module_info_evalStop, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"function-value", &module_info_evalSast, NULL}, {"frame-var", &module_info_evalStop, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"backtrace", &module_info_evalStop, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"msg*", &module_info_gooSioSwrite, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"label-components", &module_info_gooSsystem, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"gather-temporaries!", &module_info_evalSast_linearize, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"c-inline-refs", &module_info_evalSast, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"os-val", &module_info_gooSsystem, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"g2c-eval", &module_info_evalStop, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSsystem, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"closurize-main!", &module_info_evalSast_linearize, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"exe-filename", &module_info_gooSsystem, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"pathname-to-components", &module_info_gooSsystem, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"insert-box!", &module_info_evalSast_linearize, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-inline-expr?", &module_info_evalSast, NULL}, {"*goo-personal-root*", &module_info_gooSsystem, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"extract-things!", &module_info_evalSast_linearize, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"program-quotations", &module_info_evalSast_linearize, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"*obj-extension*", &module_info_gooSsystem, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"do-stack-frames", &module_info_evalStop, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"top", &module_info_evalStop, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"find-goo-file-in-path", &module_info_gooSsystem, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"%false", &module_info_gooSboot, NULL}, {"components-to-pathname", &module_info_gooSsystem, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"parent-directory", &module_info_gooSsystem, NULL}, {"components-parent-directory", &module_info_gooSsystem, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"gooc-filename", &module_info_gooSsystem, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"*path-separator*", &module_info_gooSsystem, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-src-path", &module_info_gooSsystem, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"*goo-build-root*", &module_info_gooSsystem, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"$", &module_info_evalStop, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"file-copy", &module_info_gooSsystem, NULL}, {"os-name", &module_info_gooSsystem, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"load", &module_info_evalStop, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"%load", &module_info_gooSsystem, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"obj-filename", &module_info_gooSsystem, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"box-form", &module_info_evalSast_linearize, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"any?", &module_info_gooStypes, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"*register-passive?*", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"read-file", &module_info_evalStop, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"box-reference", &module_info_evalSast_linearize, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"program-bindings", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"find-goo-file-at", &module_info_gooSsystem, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%compile", &module_info_gooSsystem, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"reference-offset", &module_info_evalSast_linearize, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_evalSast, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"$$$", &module_info_evalStop, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"add-build-path", &module_info_gooSsystem, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"vm-evaluate", &module_info_evalStop, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"lift!", &module_info_evalSast_linearize, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"type-equiv?", &module_info_evalSoptimize, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"$$", &module_info_evalStop, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"c-filename", &module_info_gooSsystem, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"application-function", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"program-type", &module_info_evalSast, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"reference-self?", &module_info_evalSast_linearize, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"*exe-extension*", &module_info_gooSsystem, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"time", &module_info_gooSsystem, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"frame", &module_info_evalStop, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"program-form", &module_info_evalSast_linearize, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"*c-extension*", &module_info_gooSsystem, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"process-id", &module_info_gooSsystem, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"recurring-write", &module_info_gooSioSwrite, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"file-type", &module_info_gooSsystem, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"add-tmp-path", &module_info_gooSsystem, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"closure-creation-index", &module_info_evalSast_linearize, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSmodule, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"flatten-seqs", &module_info_evalSast_linearize, NULL}, {"ds", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"closure-creation-free", &module_info_evalSast_linearize, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"eval", &module_info_evalSsyntax, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"function-source", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"analyze-calls", &module_info_evalSoptimize, NULL}, {"*goo-extension*", &module_info_gooSsystem, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"components-basename", &module_info_gooSsystem, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"load-file", &module_info_evalStop, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"unconstrained-type?", &module_info_evalSoptimize, NULL}, {"sorted-applicable-methods-using-types", &module_info_evalSoptimize, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"potentially-joint?", &module_info_evalSoptimize, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"form-definitions", &module_info_evalSast_linearize, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"+", &module_info_gooSmath, NULL}, {"register-allocate!", &module_info_evalSast_linearize, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*goo-root*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSsystem, NULL}, {"", &module_info_evalSast, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"file-exists?", &module_info_gooSsystem, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"probe-directory", &module_info_gooSsystem, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"function-free", &module_info_evalSast, NULL}, {"form-quotations", &module_info_evalSast_linearize, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"add-goo-personal-root-path", &module_info_gooSsystem, NULL}, {"*module-search-path*", &module_info_gooSsystem, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"dg", &module_info_gooSboot, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"even?", &module_info_gooSmath, NULL}, {"components-last", &module_info_gooSsystem, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"form-program", &module_info_evalSast_linearize, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-goo-root-path", &module_info_gooSsystem, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"create-directory", &module_info_gooSsystem, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"program-register", &module_info_evalSast, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"program-line", &module_info_evalSast, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"bt", &module_info_evalStop, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"write-type", &module_info_gooSioSwrite, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"auto-eval", &module_info_evalStop, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"so-load", &module_info_gooSsystem, NULL}, {"os-val-setter", &module_info_gooSsystem, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"function-body", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"function-index", &module_info_evalSast, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"esctst", &module_info_evalStop, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"parse-in", &module_info_evalStop, NULL}, {"in", &module_info_gooSioSport, NULL}, {"goo-filename", &module_info_gooSsystem, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSmodule, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-names", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"hierarchical-components", &module_info_gooSsystem, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"file-mtime", &module_info_gooSsystem, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"program-definitions", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"g2c-goo", CVAR, &YevalSg2cYg2c_goo}, {"$now-mod-var-name", CVAR, &YevalSg2cYDnow_mod_var_name}, {"*registers-per-line*", CVAR, &YevalSg2cYTregisters_per_lineT}, {"compute-ast", CVAR, &YevalSg2cYcompute_ast}, {"include-filename", CVAR, &YevalSg2cYinclude_filename}, {"gen-result", CVAR, &YevalSg2cYgen_result}, {"*mangle-buffer*", CVAR, &YevalSg2cYTmangle_bufferT}, {"generate-function-forwards", CVAR, &YevalSg2cYgenerate_function_forwards}, {"mangle-local-name", CVAR, &YevalSg2cYmangle_local_name}, {"generate-global-environment", CVAR, &YevalSg2cYgenerate_global_environment}, {"generate-c-application", CVAR, &YevalSg2cYgenerate_c_application}, {"between-parentheses", PVAR, NULL}, {"$method-mangled-marker-string", CVAR, &YevalSg2cYDmethod_mangled_marker_string}, {"generate-function-specs", CVAR, &YevalSg2cYgenerate_function_specs}, {"generate-quotation", CVAR, &YevalSg2cYgenerate_quotation}, {"to-pc", CVAR, &YevalSg2cYto_pc}, {"module-src-file", CVAR, &YevalSg2cYmodule_src_file}, {"generate-quotations", CVAR, &YevalSg2cYgenerate_quotations}, {"mangle-global-name", CVAR, &YevalSg2cYmangle_global_name}, {"g2c-exp", CVAR, &YevalSg2cYg2c_exp}, {"generate-main", CVAR, &YevalSg2cYgenerate_main}, {"with-statement", PVAR, NULL}, {"$local-marker", CVAR, &YevalSg2cYDlocal_marker}, {"$number-call-templates", CVAR, &YevalSg2cYDnumber_call_templates}, {"generate-local-temporaries", CVAR, &YevalSg2cYgenerate_local_temporaries}, {"generate-module-info", CVAR, &YevalSg2cYgenerate_module_info}, {"module-init-decl", CVAR, &YevalSg2cYmodule_init_decl}, {"generate-registers", CVAR, &YevalSg2cYgenerate_registers}, {"funinit-to-c", CVAR, &YevalSg2cYfuninit_to_c}, {"generate-function-code", CVAR, &YevalSg2cYgenerate_function_code}, {"with-statement-may-comma", PVAR, NULL}, {"g2c-def-app", CVAR, &YevalSg2cYg2c_def_app}, {"mangle-local-marked-name", CVAR, &YevalSg2cYmangle_local_marked_name}, {"generate-function-body-reference", CVAR, &YevalSg2cYgenerate_function_body_reference}, {"---main-2---", PVAR, NULL}, {"generate-trailer", CVAR, &YevalSg2cYgenerate_trailer}, {"g2c-top", CVAR, &YevalSg2cYg2c_top}, {"funshell-to-c", CVAR, &YevalSg2cYfunshell_to_c}, {"module-loader-appname", CVAR, &YevalSg2cYmodule_loader_appname}, {"out-list-builder", CVAR, &YevalSg2cYout_list_builder}, {"gen-fab-list", CVAR, &YevalSg2cYgen_fab_list}, {"gen-ref*", CVAR, &YevalSg2cYgen_refT}, {"binding->c", CVAR, &YevalSg2cYbinding_Gc}, {"reference->c", CVAR, &YevalSg2cYreference_Gc}, {"*lits-at*", CVAR, &YevalSg2cYTlits_atT}, {"$name-mangler-table", CVAR, &YevalSg2cYDname_mangler_table}, {"float-to-c-string", CVAR, &YevalSg2cYfloat_to_c_string}, {"ref-lit", CVAR, &YevalSg2cYref_lit}, {"for-commas", PVAR, NULL}, {"char-buffer-as-string", CVAR, &YevalSg2cYchar_buffer_as_string}, {"maybe-between-parentheses", PVAR, NULL}, {"between-parentheses-comma-separated", PVAR, NULL}, {"generate-makefile", CVAR, &YevalSg2cYgenerate_makefile}, {"mangle-boot-name", CVAR, &YevalSg2cYmangle_boot_name}, {"mangle-binding", CVAR, &YevalSg2cYmangle_binding}, {"gen-ref", CVAR, &YevalSg2cYgen_ref}, {"generate-function-bodies", CVAR, &YevalSg2cYgenerate_function_bodies}, {"module-mtime", CVAR, &YevalSg2cYmodule_mtime}, {"$local-suffix", CVAR, &YevalSg2cYDlocal_suffix}, {"$method-mangled-marker", CVAR, &YevalSg2cYDmethod_mangled_marker}, {"bb?", CVAR, &YevalSg2cYbbQ}, {"*trace-registers?*", CVAR, &YevalSg2cYTtrace_registersQT}, {"generate-global-binding", CVAR, &YevalSg2cYgenerate_global_binding}, {"g2c-clean", CVAR, &YevalSg2cYg2c_clean}, {"mangle-raw-name", CVAR, &YevalSg2cYmangle_raw_name}, {"to-c", CVAR, &YevalSg2cYto_c}, {"", CVAR, &YevalSg2cYLg2c_module_loaderG}, {"generate-module-init", CVAR, &YevalSg2cYgenerate_module_init}, {"$max-character-code", CVAR, &YevalSg2cYDmax_character_code}, {"mangle-string-literal", CVAR, &YevalSg2cYmangle_string_literal}, {"---main-1---", PVAR, NULL}, {"dispatcher?", CVAR, &YevalSg2cYdispatcherQ}, {"*loop-arg-counter*", DVAR, &YevalSg2cYTloop_arg_counterT}, {"with-expression", PVAR, NULL}, {"mangle-module-into", CVAR, &YevalSg2cYmangle_module_into}, {"purge-outdated-modules", CVAR, &YevalSg2cYpurge_outdated_modules}, {"generate-quotation-forwards", CVAR, &YevalSg2cYgenerate_quotation_forwards}, {"$escape-marker", CVAR, &YevalSg2cYDescape_marker}, {"generate-function-binding", CVAR, &YevalSg2cYgenerate_function_binding}, {"$iep-marker", CVAR, &YevalSg2cYDiep_marker}, {"for-mods", PVAR, NULL}, {"generate-header", CVAR, &YevalSg2cYgenerate_header}, {"$number-characters", CVAR, &YevalSg2cYDnumber_characters}, {"generate-c-module", CVAR, &YevalSg2cYgenerate_c_module}, {"generate-c-forms", CVAR, &YevalSg2cYgenerate_c_forms}, {"pp", CVAR, &YevalSg2cYpp}, {"generate-closure-structure", CVAR, &YevalSg2cYgenerate_closure_structure}, {"module-mtime-setter", CVAR, &YevalSg2cYmodule_mtime_setter}, {"g2c-build-app", CVAR, &YevalSg2cYg2c_build_app}, {"g2c-ast", CVAR, &YevalSg2cYg2c_ast}, {"compile-load", CVAR, &YevalSg2cYcompile_load}, {"$module-separator", CVAR, &YevalSg2cYDmodule_separator}, {"*tmp-file-counter*", DVAR, &YevalSg2cYTtmp_file_counterT}, {"$mangles-data", CVAR, &YevalSg2cYDmangles_data}, {"$c-escapes", CVAR, &YevalSg2cYDc_escapes}, {"*definitions*", DVAR, &YevalSg2cYTdefinitionsT}, {"declare-imported-module-infos", CVAR, &YevalSg2cYdeclare_imported_module_infos}, {"$hygiene-char", CVAR, &YevalSg2cYDhygiene_char}, {"*lits*", CVAR, &YevalSg2cYTlitsT}, {"module-up-to-date?", CVAR, &YevalSg2cYmodule_up_to_dateQ}, {"mangle-quotation-name", CVAR, &YevalSg2cYmangle_quotation_name}, {"---main-3---", PVAR, NULL}, {"module-src-file-setter", CVAR, &YevalSg2cYmodule_src_file_setter}, {"buf-cat2!", CVAR, &YevalSg2cYbuf_cat2X}, {"module-loader-app-modname", CVAR, &YevalSg2cYmodule_loader_app_modname}, {"generate-function-forward", CVAR, &YevalSg2cYgenerate_function_forward}, {"gen-depth", CVAR, &YevalSg2cYgen_depth}, {"with-used-expression", PVAR, NULL}, {"*gen-statements?*", DVAR, &YevalSg2cYTgen_statementsQT}, {"mangle-integer", CVAR, &YevalSg2cYmangle_integer}, {"mangle-name-into", CVAR, &YevalSg2cYmangle_name_into}, {"*g2c-app*", CVAR, &YevalSg2cYTg2c_appT}, {"---main-4---", PVAR, NULL}, {"false-name", CVAR, &YevalSg2cYfalse_name}, {"compute-program", CVAR, &YevalSg2cYcompute_program}, {"g2c-test", CVAR, &YevalSg2cYg2c_test}, {"---main-0---", PVAR, NULL}, {"$min-character-code", CVAR, &YevalSg2cYDmin_character_code}, {"generate-return", CVAR, &YevalSg2cYgenerate_return}, {"module-init-name", CVAR, &YevalSg2cYmodule_init_name}, {"module-info-name", CVAR, &YevalSg2cYmodule_info_name}, {"generate-functions", CVAR, &YevalSg2cYgenerate_functions}, {"$iep-suffix", CVAR, &YevalSg2cYDiep_suffix}, {"may-comma", PVAR, NULL}, {"mangler-reset", CVAR, &YevalSg2cYmangler_reset}, {"$escape-separator", CVAR, &YevalSg2cYDescape_separator}, {"", CVAR, &YevalSg2cYLg2c_moduleG}, {"$module-marker", CVAR, &YevalSg2cYDmodule_marker}, {"%print-cpu-usage", PVAR, NULL}, {"$hygiene-marker", CVAR, &YevalSg2cYDhygiene_marker}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"g2c-goo", NULL}, {"g2c-clean", NULL}, {"g2c-exp", NULL}, {"g2c-def-app", NULL}, {"g2c-top", NULL}, {"g2c-ast", NULL}, {"g2c-eval", NULL}, {"g2c-test", NULL}, {"g2c-build-app", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSg2c; MODULE_INFO module_info_evalSg2c = { "eval/g2c", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooSmacros (void); extern void load_module_gooSsystem (void); extern void load_module_gooSioSwrite (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSstr (void); extern void load_module_evalSast (void); extern void load_module_evalStop (void); extern void load_module_evalSast_linearize (void); extern void load_module_evalSoptimize (void); /* EXPRESSION: */ extern void load_module_evalSg2c (void); void load_module_evalSg2c (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooSmacros(); load_module_gooSsystem(); load_module_gooSioSwrite(); load_module_gooScolsScol(); load_module_gooScolsSstr(); load_module_evalSast(); load_module_evalStop(); load_module_evalSast_linearize(); load_module_evalSoptimize(); (P)YevalSg2cY___main_0___(); (P)YevalSg2cY___main_1___(); (P)YevalSg2cY___main_2___(); (P)YevalSg2cY___main_3___(); (P)YevalSg2cY___main_4___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/main.c0100644000175000017500000030105507756744540014653 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/main"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/main */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(YevalSg2cYg2c_goo,"eval/g2c","g2c-goo"); EXT(YgooSrandomYrandom_unit,"goo/random","random-unit"); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); DEF(YevalSmainYTgoo_dateT,"eval/main","*goo-date*"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YtimeSeventYevent_reset,"time/event","event-reset"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YevalStopYsave_image,"eval/top","save-image"); EXT(YLsymG,"goo/boot",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YtimeSeventYLeventG,"time/event",""); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YtimeSeventYevent_broadcast,"time/event","event-broadcast"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(YevalStopYframe_var,"eval/top","frame-var"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalStopYbacktrace,"eval/top","backtrace"); EXT(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YtimeSthreadsYsleep,"time/threads","sleep"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YtimeSlockYlock_lock,"time/lock","lock-lock"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); EXT(YgooSsystemYos_val,"goo/system","os-val"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); EXT(YgooSrandomYfab_random,"goo/random","fab-random"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YLflatG,"goo/boot",""); EXT(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YgooSsystemYexe_filename,"goo/system","exe-filename"); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YtimeSthreadsYthread_name,"time/threads","thread-name"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(YevalSg2cYg2c_clean,"eval/g2c","g2c-clean"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YtimeSeventYevent_wait_timed,"time/event","event-wait-timed"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YevalSastYLalternativeG,"eval/ast",""); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YevalSastYLc_inlineG,"eval/ast",""); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YevalStopYtop,"eval/top","top"); EXT(YtimeSthreadsYthread_function,"time/threads","thread-function"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YevalSg2cYg2c_exp,"eval/g2c","g2c-exp"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YtimeSthreadsYthread_yield,"time/threads","thread-yield"); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YtimeSthreadsYthread_priority,"time/threads","thread-priority"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YevalStopYD,"eval/top","$"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSsystemYfile_copy,"goo/system","file-copy"); EXT(YgooSsystemYos_name,"goo/system","os-name"); EXT(YevalStopYload,"eval/top","load"); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YtimeSthreadsYLthreadG,"time/threads",""); EXT(YevalSastYLcomputed_programG,"eval/ast",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YevalSg2cYg2c_def_app,"eval/g2c","g2c-def-app"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YtimeSthreadsYtest_thread_1,"time/threads","test-thread-1"); EXT(YgooSrandomYrandom,"goo/random","random"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSsystemYobj_filename,"goo/system","obj-filename"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSg2cYg2c_top,"eval/g2c","g2c-top"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YtimeSlockYlock_state,"time/lock","lock-state"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YevalStopYread_file,"eval/top","read-file"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YtimeSlockYLlockG,"time/lock",""); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YtimeSthreadsYthread_current,"time/threads","thread-current"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YevalStopYparse_in,"eval/top","parse-in"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalStopYDDD,"eval/top","$$$"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YevalSastYLsequentialG,"eval/ast",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YgooSsystemYadd_build_path,"goo/system","add-build-path"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(YevalSastYLdefinitionG,"eval/ast",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YtimeSlockYlock_handle,"time/lock","lock-handle"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YevalStopYvm_evaluate,"eval/top","vm-evaluate"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(YevalStopYDD,"eval/top","$$"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(YgooSsystemYc_filename,"goo/system","c-filename"); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooSsystemYtime,"goo/system","time"); EXT(YevalStopYframe,"eval/top","frame"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YgooSrandomYrandom_unit_using,"goo/random","random-unit-using"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YtimeSeventYevent_name,"time/event","event-name"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YevalSastYLmonitorG,"eval/ast",""); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); EXT(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YevalSastYLast_methodG,"eval/ast",""); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YevalSastYLassignmentG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSsystemYfile_type,"goo/system","file-type"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSg2cYg2c_ast,"eval/g2c","g2c-ast"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(YevalSsyntaxYeval,"eval/syntax","eval"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YevalStopYg2c_eval,"eval/top","g2c-eval"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YevalStopYload_file,"eval/top","load-file"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); EXT(YtimeSeventYevent_signal,"time/event","event-signal"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(YLsubclassG,"goo/boot",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YLchrG,"goo/boot",""); EXT(Yerror,"goo/boot","error"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); EXT(YgooSsystemYLpathname_errorG,"goo/system",""); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSrandomYrandom_using,"goo/random","random-using"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YevalStopYdo_stack_frames,"eval/top","do-stack-frames"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); DEF(YevalSmainYTgoo_versionT,"eval/main","*goo-version*"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YtimeSthreadsYtest_thread_2,"time/threads","test-thread-2"); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooSbignumYmpzUprint,"goo/bignum","mpz_print"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooSsystemYcomponents_last,"goo/system","components-last"); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YevalSg2cYg2c_test,"eval/g2c","g2c-test"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YevalSastYLprogramG,"eval/ast",""); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YevalStopYbt,"eval/top","bt"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalStopYauto_eval,"eval/top","auto-eval"); EXT(YtimeSeventYevent_wait,"time/event","event-wait"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSsystemYso_load,"goo/system","so-load"); EXT(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); EXT(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YevalStopYesctst,"eval/top","esctst"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); EXT(YLgenG,"goo/boot",""); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(Ynil,"goo/boot","nil"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YevalSastYLbind_exitG,"eval/ast",""); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YtimeSlockYlock_unlock,"time/lock","lock-unlock"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YtimeSlockYlock_destroy,"time/lock","lock-destroy"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSsystemYfile_mtime,"goo/system","file-mtime"); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YevalSg2cYg2c_build_app,"eval/g2c","g2c-build-app"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSmoduleYLmoduleG,"eval/module",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_1); DEFLIT(lit_0); DEFLIT(lit_3); DEFLIT(lit_5); DEFLIT(lit_11); DEFLIT(lit_2); DEFLIT(lit_7); DEFLIT(lit_6); DEFLIT(lit_9); DEFLIT(lit_8); DEFLIT(lit_10); DEFLIT(lit_4); /* FUNCTIONS: */ extern P YevalSmainY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YevalSmainY___main_0___() { P fileF5384; P fileF5383; P T0,T1,T2,T3,T4,T5,T6,T7; DEFCREGS(); lit_0 = YPsb((P)"0.155"); VARSET(YevalSmainYTgoo_versionT,LITREF(lit_0)); lit_1 = YPsb((P)"NOV 17, 2003"); VARSET(YevalSmainYTgoo_dateT,LITREF(lit_1)); lit_2 = YPsb((P)";;; GOO\n"); XCALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_2)); lit_3 = YPsb((P)";;; JONATHAN BACHRACH\n"); XCALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_3)); lit_4 = YPsb((P)";;; MIT CSAIL\n"); XCALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_4)); lit_5 = YPsb((P)";;; %s\n"); XCALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_5),VARREF(YevalSmainYTgoo_dateT)); lit_6 = YPsb((P)";;; \n"); XCALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_6)); lit_7 = YPsb((P)";;; VERSION = %s\n"); XCALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_7),VARREF(YevalSmainYTgoo_versionT)); lit_8 = YPsb((P)";;; ROOT = %s\n"); XCALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_8),VARREF(YgooSsystemYTgoo_rootT)); XCALL0(1,VARREF(YevalSastYinit_ast)); lit_9 = YPsb((P)"init"); lit_10 = YPPsym((P)"goo/user"); T2 = XCALL2(1,VARREF(YgooSsystemYfind_goo_file_at),LITREF(lit_9),VARREF(YgooSsystemYTgoo_rootT)); fileF5383 = T2; if (fileF5383 != YPfalse) { T1 = XCALL2(1,VARREF(YevalStopYload_file),fileF5383,LITREF(lit_10)); T0 = T1; } else { T0 = YPfalse; } lit_11 = YPsb((P)"init"); T5 = XCALL2(1,VARREF(YgooSsystemYfind_goo_file_at),LITREF(lit_11),VARREF(YgooSsystemYTgoo_personal_rootT)); fileF5384 = T5; if (fileF5384 != YPfalse) { T4 = XCALL2(1,VARREF(YevalStopYload_file),fileF5384,LITREF(lit_10)); T3 = T4; } else { T3 = YPfalse; } T7 = XCALL1(1,VARREF(YevalStopYtop),LITREF(lit_10)); T6 = T7; return T6; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSeval; extern MODULE_INFO module_info_gooSsystem; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_evalStop; extern MODULE_INFO module_info_evalSg2c; extern MODULE_INFO module_info_gooSbignum; extern MODULE_INFO module_info_timeSthreads; extern MODULE_INFO module_info_timeSlock; extern MODULE_INFO module_info_timeSevent; extern MODULE_INFO module_info_gooSrandom; extern MODULE_INFO module_info_gooSuser; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_evalSsyntax; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSeval}, {&module_info_gooSsystem}, {&module_info_evalSast}, {&module_info_evalStop}, {&module_info_evalSg2c}, {&module_info_gooSbignum}, {&module_info_timeSthreads}, {&module_info_timeSlock}, {&module_info_timeSevent}, {&module_info_gooSrandom}, {&module_info_gooSuser}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"g2c-goo", &module_info_evalSg2c, NULL}, {"random-unit", &module_info_gooSrandom, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"event-reset", &module_info_timeSevent, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"c-inline-strs", &module_info_evalSast, NULL}, {"", &module_info_gooStypes, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"save-image", &module_info_evalStop, NULL}, {"", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"", &module_info_timeSevent, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"event-broadcast", &module_info_timeSevent, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"frame-var", &module_info_evalStop, NULL}, {"function-value", &module_info_evalSast, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"backtrace", &module_info_evalStop, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"sleep", &module_info_timeSthreads, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"lock-lock", &module_info_timeSlock, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"label-components", &module_info_gooSsystem, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"c-inline-refs", &module_info_evalSast, NULL}, {"os-val", &module_info_gooSsystem, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"fab-random", &module_info_gooSrandom, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSsystem, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"exe-filename", &module_info_gooSsystem, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"pathname-to-components", &module_info_gooSsystem, NULL}, {"@not", &module_info_gooSboot, NULL}, {"program-register", &module_info_evalSast, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"thread-name", &module_info_timeSthreads, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"g2c-clean", &module_info_evalSg2c, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"event-wait-timed", &module_info_timeSevent, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-inline-expr?", &module_info_evalSast, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"*obj-extension*", &module_info_gooSsystem, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"top", &module_info_evalStop, NULL}, {"thread-function", &module_info_timeSthreads, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"g2c-exp", &module_info_evalSg2c, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"thread-yield", &module_info_timeSthreads, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"components-to-pathname", &module_info_gooSsystem, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"parent-directory", &module_info_gooSsystem, NULL}, {"thread-priority", &module_info_timeSthreads, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"file-exists?", &module_info_gooSsystem, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"~=", &module_info_gooSlog, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"*path-separator*", &module_info_gooSsystem, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-src-path", &module_info_gooSsystem, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"*goo-build-root*", &module_info_gooSsystem, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"$", &module_info_evalStop, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"file-copy", &module_info_gooSsystem, NULL}, {"os-name", &module_info_gooSsystem, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"load", &module_info_evalStop, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"t?", &module_info_gooStypes, NULL}, {"", &module_info_timeSthreads, NULL}, {"", &module_info_evalSast, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"g2c-def-app", &module_info_evalSg2c, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"test-thread-1", &module_info_timeSthreads, NULL}, {"random", &module_info_gooSrandom, NULL}, {"%load", &module_info_gooSsystem, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"obj-filename", &module_info_gooSsystem, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"g2c-top", &module_info_evalSg2c, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"any?", &module_info_gooStypes, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"", &module_info_evalSmodule, NULL}, {"|", &module_info_gooSmath, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"lock-state", &module_info_timeSlock, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-file", &module_info_evalStop, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"find-goo-file-at", &module_info_gooSsystem, NULL}, {"-", &module_info_gooSmath, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_timeSlock, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"thread-current", &module_info_timeSthreads, NULL}, {"%compile", &module_info_gooSsystem, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_evalSast, NULL}, {"parse-in", &module_info_evalStop, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"$$$", &module_info_evalStop, NULL}, {"", &module_info_evalSast, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"abs", &module_info_gooSmath, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"add-build-path", &module_info_gooSsystem, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"lock-handle", &module_info_timeSlock, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"vm-evaluate", &module_info_evalStop, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"create-directory", &module_info_gooSsystem, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"$$", &module_info_evalStop, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"c-filename", &module_info_gooSsystem, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"components-parent-directory", &module_info_gooSsystem, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"application-function", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"program-type", &module_info_evalSast, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"*exe-extension*", &module_info_gooSsystem, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"time", &module_info_gooSsystem, NULL}, {"frame", &module_info_evalStop, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"random-unit-using", &module_info_gooSrandom, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"", &module_info_evalSast, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"event-name", &module_info_timeSevent, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"*c-extension*", &module_info_gooSsystem, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"process-id", &module_info_gooSsystem, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"address-of", &module_info_gooSany, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"file-type", &module_info_gooSsystem, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"add-tmp-path", &module_info_gooSsystem, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"ds", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"gooc-filename", &module_info_gooSsystem, NULL}, {"", &module_info_evalSast, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"g2c-ast", &module_info_evalSg2c, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"eval", &module_info_evalSsyntax, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"function-source", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"*goo-extension*", &module_info_gooSsystem, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"components-basename", &module_info_gooSsystem, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"clone", &module_info_gooSclass, NULL}, {"", &module_info_evalSast, NULL}, {"g2c-eval", &module_info_evalStop, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"load-file", &module_info_evalStop, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"*goo-personal-root*", &module_info_gooSsystem, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"spawn", &module_info_timeSthreads, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"event-signal", &module_info_timeSevent, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"+", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"*goo-root*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSsystem, NULL}, {"", &module_info_evalSast, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"function-free", &module_info_evalSast, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"random-using", &module_info_gooSrandom, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"do-stack-frames", &module_info_evalStop, NULL}, {"max", &module_info_gooSmag, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"probe-directory", &module_info_gooSsystem, NULL}, {"", &module_info_evalSast, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"add-goo-personal-root-path", &module_info_gooSsystem, NULL}, {"*module-search-path*", &module_info_gooSsystem, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"test-thread-2", &module_info_timeSthreads, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"dg", &module_info_gooSboot, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"mpz_print", &module_info_gooSbignum, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"even?", &module_info_gooSmath, NULL}, {"components-last", &module_info_gooSsystem, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"g2c-test", &module_info_evalSg2c, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"<", &module_info_gooSmag, NULL}, {"", &module_info_evalSast, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"bt", &module_info_evalStop, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"program-line", &module_info_evalSast, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"auto-eval", &module_info_evalStop, NULL}, {"event-wait", &module_info_timeSevent, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"so-load", &module_info_gooSsystem, NULL}, {"os-val-setter", &module_info_gooSsystem, NULL}, {"function-body", &module_info_evalSast, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"function-index", &module_info_evalSast, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"find-goo-file-in-path", &module_info_gooSsystem, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {">>", &module_info_gooSmath, NULL}, {"esctst", &module_info_evalStop, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"in", &module_info_gooSioSport, NULL}, {"goo-filename", &module_info_gooSsystem, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"with-lock", &module_info_timeSlock, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"", &module_info_evalSast, NULL}, {"until", &module_info_gooSmacros, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-names", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"nil", &module_info_gooSboot, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"hierarchical-components", &module_info_gooSsystem, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"add-goo-root-path", &module_info_gooSsystem, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"lock-unlock", &module_info_timeSlock, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"lock-destroy", &module_info_timeSlock, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"file-mtime", &module_info_gooSsystem, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"g2c-build-app", &module_info_evalSg2c, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"opf", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"*goo-date*", CVAR, &YevalSmainYTgoo_dateT}, {"*goo-version*", CVAR, &YevalSmainYTgoo_versionT}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {NULL, NULL} }; extern MODULE_INFO module_info_evalSmain; MODULE_INFO module_info_evalSmain = { "eval/main", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSeval (void); extern void load_module_gooSsystem (void); extern void load_module_evalSast (void); extern void load_module_evalStop (void); extern void load_module_evalSg2c (void); extern void load_module_gooSbignum (void); extern void load_module_timeSthreads (void); extern void load_module_timeSlock (void); extern void load_module_timeSevent (void); extern void load_module_gooSrandom (void); extern void load_module_gooSuser (void); /* EXPRESSION: */ extern void load_module_evalSmain (void); void load_module_evalSmain (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSeval(); load_module_gooSsystem(); load_module_evalSast(); load_module_evalStop(); load_module_evalSg2c(); load_module_gooSbignum(); load_module_timeSthreads(); load_module_timeSlock(); load_module_timeSevent(); load_module_gooSrandom(); load_module_gooSuser(); (P)YevalSmainY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/module.c0100644000175000017500000100765307756744540015224 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/module"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/module */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); DEF(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); DEF(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); DEF(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSdependencyYDnul_dependency,"eval/dependency","$nul-dependency"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); DEF(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YevalSdependencyYinvalidate_dependent,"eval/dependency","invalidate-dependent"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSdependencyYDvalue_optimization_dependency,"eval/dependency","$value-optimization-dependency"); DEF(YevalSmoduleYbinding_name_setter,"eval/module","binding-name-setter"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); DEF(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); DEF(YevalSmoduleYbinding_module,"eval/module","binding-module"); DEF(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); DEF(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); DEF(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); DEF(YevalSmoduleYcompute_transitive_users,"eval/module","compute-transitive-users"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); DEF(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YevalSdependencyYLdependentG,"eval/dependency",""); DEF(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); DEF(YevalSmoduleYreloader_do_other_binding,"eval/module","reloader-do-other-binding"); DEF(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); DEF(YevalSmoduleYload_and_register_module,"eval/module","load-and-register-module"); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSdependencyYdependency_includes_allQ,"eval/dependency","dependency-includes-all?"); DEF(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YevalSdependencyYLdependency_typeG,"eval/dependency",""); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); DEF(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); DEF(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSdependencyYdependency_and,"eval/dependency","dependency-and"); EXT(YgooSsystemYos_val,"goo/system","os-val"); DEF(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); DEF(YevalSmoduleYDnul_static_environment,"eval/module","$nul-static-environment"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); DEF(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YLflatG,"goo/boot",""); EXT(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); DEF(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSsystemYexe_filename,"goo/system","exe-filename"); DEF(YevalSmoduleYtransaction_nulQ,"eval/module","transaction-nul?"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); DEF(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); DEF(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); DEF(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); DEF(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSdependencyYdependency_nulQ,"eval/dependency","dependency-nul?"); DEF(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); DEF(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); DEF(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); DEF(YevalSmoduleYbinding_type,"eval/module","binding-type"); DEF(YevalSmoduleYTruntime_module_loaderT,"eval/module","*runtime-module-loader*"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YevalSdependencyYDall_dependency_types,"eval/dependency","$all-dependency-types"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); DEF(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); DEF(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); DEF(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); DEF(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); DEF(YevalSmoduleYremove_module_internalX,"eval/module","remove-module-internal!"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSsystemYfile_copy,"goo/system","file-copy"); EXT(YgooSsystemYos_name,"goo/system","os-name"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YevalSmoduleYwalk_bindingsT,"eval/module","walk-bindings*"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSsystemYobj_filename,"goo/system","obj-filename"); DEF(YevalSmoduleYmerge_transactionsX,"eval/module","merge-transactions!"); DEF(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); DEF(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); DEF(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); DYNDEF(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); DEF(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); DEF(YevalSmoduleYTtracing_refsQT,"eval/module","*tracing-refs?*"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSdependencyYdetach_dependent,"eval/dependency","detach-dependent"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); DEF(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); DEF(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); DEF(YevalSmoduleYruntime_core_environment,"eval/module","runtime-core-environment"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSdependencyYDexpansion_parse_dependency,"eval/dependency","$expansion-parse-dependency"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YevalSdependencyYdependency_includes_anyQ,"eval/dependency","dependency-includes-any?"); DEF(YevalSmoduleYimport_globalX,"eval/module","import-global!"); DEF(YevalSmoduleYenvironment_bindings_setter,"eval/module","environment-bindings-setter"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); DEF(YevalSmoduleYmodule_loader_modules_setter,"eval/module","module-loader-modules-setter"); EXT(YgooSsystemYadd_build_path,"goo/system","add-build-path"); DEF(YevalSmoduleYreloader_do_dynamic_binding,"eval/module","reloader-do-dynamic-binding"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); DEF(YevalSmoduleYprobe_module,"eval/module","probe-module"); DEF(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); DEF(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); DEF(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); DEF(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); DEF(YevalSmoduleYreloader_do_import,"eval/module","reloader-do-import"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); DEF(YevalSmoduleYLbindingG,"eval/module",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); DEF(YevalSmoduleYLtransactionG,"eval/module",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YgooSsystemYc_filename,"goo/system","c-filename"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); DEF(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); DEF(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); DYNDEF(YevalSmoduleYTnow_rt_envT,"eval/module","*now-rt-env*"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooSsystemYtime,"goo/system","time"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); DEF(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); DEF(YevalSmoduleYtransaction_dependents,"eval/module","transaction-dependents"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DYNDEF(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); DEF(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); DEF(YevalSmoduleYmodule_target_environment_setter,"eval/module","module-target-environment-setter"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); EXT(YevalSdependencyYDname_parse_dependency,"eval/dependency","$name-parse-dependency"); EXT(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); DEF(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); DEF(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); DEF(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); DEF(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); DEF(YevalSmoduleYmodule_loader_stack_setter,"eval/module","module-loader-stack-setter"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSsystemYfile_type,"goo/system","file-type"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); DEF(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); DEF(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); DEF(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); DEF(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); DEF(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(YevalSdependencyYdependency_or,"eval/dependency","dependency-or"); EXT(Yapp_filename,"goo/boot","app-filename"); DEF(YevalSmoduleYreloader_do_create_module,"eval/module","reloader-do-create-module"); EXT(YgooSmathYposQ,"goo/math","pos?"); DEF(YevalSmoduleYmodule_loader_modules,"eval/module","module-loader-modules"); EXT(YgooSclassYclone,"goo/class","clone"); DEF(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); DEF(YevalSmoduleYmodule_transaction_setter,"eval/module","module-transaction-setter"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); DEF(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSdependencyYDparse_dependencies,"eval/dependency","$parse-dependencies"); DEF(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); DEF(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); DEF(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); EXT(YgooSsystemYLpathname_errorG,"goo/system",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); DEF(YevalSmoduleYreloader_do_runtime_binding,"eval/module","reloader-do-runtime-binding"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); DEF(YevalSmoduleYreloader_do_use_module,"eval/module","reloader-do-use-module"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); DEF(YevalSmoduleYPmodule_exports,"eval/module","%module-exports"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); DEF(YevalSmoduleYenvironment_uses_modules_setter,"eval/module","environment-uses-modules-setter"); DEF(YevalSmoduleYreloader_do_export,"eval/module","reloader-do-export"); EXT(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); DEF(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); DEF(YevalSmoduleYbinding_module_setter,"eval/module","binding-module-setter"); DEF(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); DEF(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YevalSdependencyYfind_dependency,"eval/dependency","find-dependency"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooSsystemYcomponents_last,"goo/system","components-last"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); DEF(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); DEF(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YevalSdependencyYDoptimizaton_dependencies,"eval/dependency","$optimizaton-dependencies"); EXT(YevalSdependencyYinvalidate_dependents,"eval/dependency","invalidate-dependents"); DEF(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YevalSdependencyYlog_dependency,"eval/dependency","log-dependency"); DEF(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); DEF(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); DEF(YevalSmoduleYinsert_and_mangle_globalX,"eval/module","insert-and-mangle-global!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); DEF(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); DEF(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); DEF(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); DEF(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); DEF(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); DEF(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); DEF(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); DEF(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); DEF(YevalSmoduleYtransaction_implemented_bindings,"eval/module","transaction-implemented-bindings"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSsystemYso_load,"goo/system","so-load"); EXT(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); DEF(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); DEF(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); DEF(YevalSmoduleYmodule_syntax_environment_setter,"eval/module","module-syntax-environment-setter"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); DEF(YevalSmoduleYenvironment_module_loader_setter,"eval/module","environment-module-loader-setter"); DEF(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); DEF(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); DEF(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); DEF(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); DEF(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); DEF(YevalSmoduleYLruntime_module_loaderG,"eval/module",""); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); DEF(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); DEF(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); DEF(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YgooStypesYDbot,"goo/types","$bot"); DEF(YevalSmoduleYenvironment_allows_foreign_namesQ_setter,"eval/module","environment-allows-foreign-names?-setter"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); DEF(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(Ynil,"goo/boot","nil"); EXT(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); DEF(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(YLclassG,"goo/boot",""); DEF(YevalSmoduleYenvironment_next_setter,"eval/module","environment-next-setter"); DEF(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YevalSdependencyYLdependableG,"eval/dependency",""); DEF(YevalSmoduleYenvironment_module_setter,"eval/module","environment-module-setter"); DEF(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); DEF(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YgooSmathYsin,"goo/math","sin"); DEF(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); DEF(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSsystemYfile_mtime,"goo/system","file-mtime"); DEF(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); DEF(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YLtypeG,"goo/boot",""); DEF(YevalSmoduleYLmoduleG,"eval/module",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); DEF(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); DEF(YevalSmoduleYprocess_module_data,"eval/module","process-module-data"); DEF(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_192); DEFLIT(lit_286); DEFLIT(lit_32); DEFLIT(lit_24); DEFLIT(lit_197); DEFLIT(lit_233); DEFLIT(lit_76); DEFLIT(lit_186); DEFLIT(lit_304); DEFLIT(lit_191); DEFLIT(lit_177); DEFLIT(lit_68); DEFLIT(lit_30); DEFLIT(lit_308); DEFLIT(lit_106); DEFLIT(lit_19); DEFLIT(lit_240); DEFLIT(lit_33); DEFLIT(lit_201); DEFLIT(lit_219); DEFLIT(lit_207); DEFLIT(lit_119); DEFLIT(lit_234); DEFLIT(lit_196); DEFLIT(lit_115); DEFLIT(lit_142); DEFLIT(lit_213); DEFLIT(lit_184); DEFLIT(lit_130); DEFLIT(lit_157); DEFLIT(lit_249); DEFLIT(lit_187); DEFLIT(lit_34); DEFLIT(lit_4); DEFLIT(lit_113); DEFLIT(lit_158); DEFLIT(lit_237); DEFLIT(lit_139); DEFLIT(lit_189); DEFLIT(lit_38); DEFLIT(lit_146); DEFLIT(lit_56); DEFLIT(lit_166); DEFLIT(lit_11); DEFLIT(lit_267); DEFLIT(lit_259); DEFLIT(lit_173); DEFLIT(lit_318); DEFLIT(lit_147); DEFLIT(lit_3); DEFLIT(lit_141); DEFLIT(lit_215); DEFLIT(lit_204); DEFLIT(lit_306); DEFLIT(lit_79); DEFLIT(lit_54); DEFLIT(lit_114); DEFLIT(lit_1); DEFLIT(lit_314); DEFLIT(lit_294); DEFLIT(lit_162); DEFLIT(lit_134); DEFLIT(lit_199); DEFLIT(lit_72); DEFLIT(lit_87); DEFLIT(lit_29); DEFLIT(lit_148); DEFLIT(lit_250); DEFLIT(lit_78); DEFLIT(lit_176); DEFLIT(lit_239); DEFLIT(lit_123); DEFLIT(lit_91); DEFLIT(lit_200); DEFLIT(lit_152); DEFLIT(lit_317); DEFLIT(lit_269); DEFLIT(lit_290); DEFLIT(lit_57); DEFLIT(lit_101); DEFLIT(lit_52); DEFLIT(lit_61); DEFLIT(lit_181); DEFLIT(lit_125); DEFLIT(lit_311); DEFLIT(lit_280); DEFLIT(lit_202); DEFLIT(lit_180); DEFLIT(lit_46); DEFLIT(lit_159); DEFLIT(lit_190); DEFLIT(lit_264); DEFLIT(lit_100); DEFLIT(lit_58); DEFLIT(lit_149); DEFLIT(lit_13); DEFLIT(lit_297); DEFLIT(lit_174); DEFLIT(lit_122); DEFLIT(lit_117); DEFLIT(lit_170); DEFLIT(lit_8); DEFLIT(lit_144); DEFLIT(lit_84); DEFLIT(lit_253); DEFLIT(lit_81); DEFLIT(lit_51); DEFLIT(lit_36); DEFLIT(lit_247); DEFLIT(lit_307); DEFLIT(lit_315); DEFLIT(lit_42); DEFLIT(lit_228); DEFLIT(lit_235); DEFLIT(lit_302); DEFLIT(lit_273); DEFLIT(lit_20); DEFLIT(lit_98); DEFLIT(lit_258); DEFLIT(lit_128); DEFLIT(lit_217); DEFLIT(lit_303); DEFLIT(lit_256); DEFLIT(lit_109); DEFLIT(lit_163); DEFLIT(lit_153); DEFLIT(lit_63); DEFLIT(lit_194); DEFLIT(lit_0); DEFLIT(lit_212); DEFLIT(lit_222); DEFLIT(lit_120); DEFLIT(lit_305); DEFLIT(lit_95); DEFLIT(lit_121); DEFLIT(lit_231); DEFLIT(lit_145); DEFLIT(lit_257); DEFLIT(lit_26); DEFLIT(lit_151); DEFLIT(lit_60); DEFLIT(lit_203); DEFLIT(lit_116); DEFLIT(lit_66); DEFLIT(lit_135); DEFLIT(lit_298); DEFLIT(lit_70); DEFLIT(lit_214); DEFLIT(lit_262); DEFLIT(lit_108); DEFLIT(lit_272); DEFLIT(lit_39); DEFLIT(lit_316); DEFLIT(lit_124); DEFLIT(lit_47); DEFLIT(lit_64); DEFLIT(lit_93); DEFLIT(lit_243); DEFLIT(lit_35); DEFLIT(lit_309); DEFLIT(lit_28); DEFLIT(lit_206); DEFLIT(lit_55); DEFLIT(lit_209); DEFLIT(lit_112); DEFLIT(lit_275); DEFLIT(lit_94); DEFLIT(lit_21); DEFLIT(lit_179); DEFLIT(lit_268); DEFLIT(lit_289); DEFLIT(lit_156); DEFLIT(lit_2); DEFLIT(lit_107); DEFLIT(lit_198); DEFLIT(lit_40); DEFLIT(lit_69); DEFLIT(lit_210); DEFLIT(lit_230); DEFLIT(lit_160); DEFLIT(lit_254); DEFLIT(lit_248); DEFLIT(lit_175); DEFLIT(lit_193); DEFLIT(lit_205); DEFLIT(lit_75); DEFLIT(lit_67); DEFLIT(lit_127); DEFLIT(lit_284); DEFLIT(lit_143); DEFLIT(lit_232); DEFLIT(lit_71); DEFLIT(lit_261); DEFLIT(lit_154); DEFLIT(lit_133); DEFLIT(lit_252); DEFLIT(lit_7); DEFLIT(lit_279); DEFLIT(lit_53); DEFLIT(lit_208); DEFLIT(lit_132); DEFLIT(lit_211); DEFLIT(lit_137); DEFLIT(lit_74); DEFLIT(lit_88); DEFLIT(lit_14); DEFLIT(lit_31); DEFLIT(lit_16); DEFLIT(lit_281); DEFLIT(lit_150); DEFLIT(lit_49); DEFLIT(lit_23); DEFLIT(lit_255); DEFLIT(lit_188); DEFLIT(lit_45); DEFLIT(lit_225); DEFLIT(lit_185); DEFLIT(lit_9); DEFLIT(lit_296); DEFLIT(lit_291); DEFLIT(lit_251); DEFLIT(lit_293); DEFLIT(lit_73); DEFLIT(lit_59); DEFLIT(lit_266); DEFLIT(lit_44); DEFLIT(lit_282); DEFLIT(lit_183); DEFLIT(lit_43); DEFLIT(lit_295); DEFLIT(lit_300); DEFLIT(lit_104); DEFLIT(lit_126); DEFLIT(lit_301); DEFLIT(lit_62); DEFLIT(lit_138); DEFLIT(lit_89); DEFLIT(lit_118); DEFLIT(lit_226); DEFLIT(lit_220); DEFLIT(lit_236); DEFLIT(lit_102); DEFLIT(lit_140); DEFLIT(lit_245); DEFLIT(lit_182); DEFLIT(lit_12); DEFLIT(lit_271); DEFLIT(lit_171); DEFLIT(lit_92); DEFLIT(lit_238); DEFLIT(lit_6); DEFLIT(lit_86); DEFLIT(lit_283); DEFLIT(lit_83); DEFLIT(lit_27); DEFLIT(lit_96); DEFLIT(lit_50); DEFLIT(lit_241); DEFLIT(lit_274); DEFLIT(lit_164); DEFLIT(lit_85); DEFLIT(lit_165); DEFLIT(lit_244); DEFLIT(lit_167); DEFLIT(lit_227); DEFLIT(lit_278); DEFLIT(lit_218); DEFLIT(lit_25); DEFLIT(lit_292); DEFLIT(lit_221); DEFLIT(lit_99); DEFLIT(lit_224); DEFLIT(lit_17); DEFLIT(lit_229); DEFLIT(lit_129); DEFLIT(lit_169); DEFLIT(lit_22); DEFLIT(lit_155); DEFLIT(lit_65); DEFLIT(lit_178); DEFLIT(lit_103); DEFLIT(lit_97); DEFLIT(lit_111); DEFLIT(lit_131); DEFLIT(lit_10); DEFLIT(lit_15); DEFLIT(lit_299); DEFLIT(lit_168); DEFLIT(lit_41); DEFLIT(lit_288); DEFLIT(lit_312); DEFLIT(lit_80); DEFLIT(lit_5); DEFLIT(lit_223); DEFLIT(lit_216); DEFLIT(lit_82); DEFLIT(lit_263); DEFLIT(lit_260); DEFLIT(lit_110); DEFLIT(lit_105); DEFLIT(lit_18); DEFLIT(lit_276); DEFLIT(lit_136); DEFLIT(lit_319); DEFLIT(lit_285); DEFLIT(lit_277); DEFLIT(lit_37); DEFLIT(lit_310); DEFLIT(lit_77); DEFLIT(lit_242); DEFLIT(lit_161); DEFLIT(lit_265); DEFLIT(lit_287); DEFLIT(lit_172); DEFLIT(lit_313); DEFLIT(lit_48); DEFLIT(lit_270); DEFLIT(lit_195); DEFLIT(lit_246); DEFLIT(lit_90); /* FUNCTIONS: */ LOCFOR(fun_namespace_error_0); LOCFOR(fun_binding_name_1); LOCFOR(fun_binding_name_setter_2); LOCFOR(fun_binding_mangled_name_3); LOCFOR(fun_binding_mangled_name_setter_4); LOCFOR(fun_5); LOCFOR(fun_binding_type_6); LOCFOR(fun_binding_type_setter_7); LOCFOR(fun_binding_inferred_type_8); LOCFOR(fun_binding_inferred_type_setter_9); LOCFOR(fun_10); LOCFOR(fun_global_box_value_11); LOCFOR(fun_global_box_value_setter_12); LOCFOR(fun_binding_kind_13); LOCFOR(fun_binding_kind_setter_14); LOCFOR(fun_15); LOCFOR(fun_binding_module_16); LOCFOR(fun_binding_module_setter_17); LOCFOR(fun_18); LOCFOR(fun_binding_freeQ_19); LOCFOR(fun_binding_freeQ_setter_20); LOCFOR(fun_21); LOCFOR(fun_binding_info_22); LOCFOR(fun_binding_info_setter_23); LOCFOR(fun_24); LOCFOR(fun_binding_prop_25); LOCFOR(fun_binding_prop_setter_26); LOCFOR(fun_27); LOCFOR(fun_binding_module_name_28); LOCFOR(fun_environment_next_29); LOCFOR(fun_environment_next_setter_30); LOCFOR(fun_31); LOCFOR(fun_environment_bindings_32); LOCFOR(fun_environment_bindings_setter_33); LOCFOR(fun_environment_module_34); LOCFOR(fun_environment_module_setter_35); LOCFOR(fun_environment_module_loader_36); LOCFOR(fun_environment_module_loader_setter_37); LOCFOR(fun_environment_uses_modules_38); LOCFOR(fun_environment_uses_modules_setter_39); LOCFOR(fun_40); LOCFOR(fun_environment_allows_foreign_namesQ_41); LOCFOR(fun_environment_allows_foreign_namesQ_setter_42); LOCFOR(fun_43); LOCFOR(fun_44); LOCFOR(fun_45); LOCFOR(fun_env_object_name_46); LOCFOR(fun_frame_bindings_47); LOCFOR(fun_do_static_global_bindings_48); FUNFOR(YevalSmoduleYdo_named_static_global_bindings); LOCFOR(fun_insert_globalX_50); LOCFOR(fun_51); LOCFOR(fun_insert_globalsX_52); LOCFOR(fun_find_static_global_environment_53); LOCFOR(fun_find_static_global_environment_54); LOCFOR(fun_find_syntax_environment_55); LOCFOR(fun_find_environment_module_56); LOCFOR(fun_find_binding_57); LOCFOR(fun_transaction_implemented_bindings_58); LOCFOR(fun_59); LOCFOR(fun_transaction_dependents_60); LOCFOR(fun_61); FUNFOR(YevalSmoduleYtransaction_register_implemented_binding); FUNFOR(YevalSmoduleYtransaction_register_dependent); FUNFOR(YevalSmoduleYtransaction_nulQ); LOCFOR(fun_65); LOCFOR(fun_66); FUNFOR(YevalSmoduleYmerge_transactionsX); LOCFOR(fun_68); LOCFOR(fun_69); FUNFOR(YevalSmoduleYroll_back_transaction); LOCFOR(fun_71); LOCFOR(fun_72); FUNFOR(YevalSmoduleYcall_with_subtransaction); LOCFOR(fun_x_1487_74); LOCFOR(fun_75); LOCFOR(fun_76); LOCFOR(fun_module_loader_modules_77); LOCFOR(fun_module_loader_modules_setter_78); LOCFOR(fun_79); LOCFOR(fun_module_loader_stack_80); LOCFOR(fun_module_loader_stack_setter_81); LOCFOR(fun_82); LOCFOR(fun_module_name_83); LOCFOR(fun_module_mangled_name_84); LOCFOR(fun_module_mangled_name_setter_85); LOCFOR(fun_86); LOCFOR(fun_module_mangled_string_name_87); LOCFOR(fun_module_mangled_string_name_setter_88); LOCFOR(fun_89); LOCFOR(fun_module_target_environment_90); LOCFOR(fun_module_target_environment_setter_91); LOCFOR(fun_module_syntax_environment_92); LOCFOR(fun_module_syntax_environment_setter_93); LOCFOR(fun_Pmodule_exports_94); LOCFOR(fun_95); LOCFOR(fun_module_data_processedQ_96); LOCFOR(fun_module_data_processedQ_setter_97); LOCFOR(fun_98); LOCFOR(fun_module_runtime_data_99); LOCFOR(fun_module_runtime_data_setter_100); LOCFOR(fun_101); LOCFOR(fun_module_transaction_102); LOCFOR(fun_module_transaction_setter_103); LOCFOR(fun_104); LOCFOR(fun_module_referenced_bindings_105); LOCFOR(fun_106); LOCFOR(fun_module_uses_c_files_107); LOCFOR(fun_108); LOCFOR(fun_module_c_forms_109); LOCFOR(fun_110); LOCFOR(fun_module_uses_c_includes_111); LOCFOR(fun_112); LOCFOR(fun_module_uses_c_libraries_113); LOCFOR(fun_114); LOCFOR(fun_module_exports_115); FUNFOR(YevalSmoduleYimport_globalX); LOCFOR(fun_insert_and_mangle_globalX_117); FUNFOR(YevalSmoduleYimport_and_mangle_globalX); FUNFOR(YevalSmoduleYset_module_environments); LOCFOR(fun_120); FUNFOR(YevalSmoduleYdo_module_loader_modules); LOCFOR(fun_module_loader_module_type_122); FUNFOR(YevalSmoduleYregister_moduleX); FUNFOR(YevalSmoduleYprobe_module); LOCFOR(fun_125); LOCFOR(fun_126); FUNFOR(YevalSmoduleYload_and_register_module); FUNFOR(YevalSmoduleYexport_bindingX); FUNFOR(YevalSmoduleYbinding_native_toQ); LOCFOR(fun_130); FUNFOR(YevalSmoduleYreport_undefined_global_bindings); LOCFOR(fun_132); LOCFOR(fun_133); LOCFOR(fun_add_user_134); LOCFOR(fun_135); FUNFOR(YevalSmoduleYcompute_transitive_users); FUNFOR(YevalSmoduleYremove_module_internalX); LOCFOR(fun_138); FUNFOR(YevalSmoduleYremove_modules_by_nameX); FUNFOR(YevalSmoduleYmodule_name_to_relpath); LOCFOR(fun_zap_referenced_bindingsX_141); LOCFOR(fun_zap_referenced_bindingsX_142); LOCFOR(fun_register_referenced_binding_143); LOCFOR(fun_register_referenced_binding_144); LOCFOR(fun_145); LOCFOR(fun_146); LOCFOR(fun_147); LOCFOR(fun_148); LOCFOR(fun_load_module_149); FUNFOR(YevalSmoduleYruntime_module_loader); FUNFOR(YevalSmoduleYruntime_module); FUNFOR(YevalSmoduleYruntime_environment); FUNFOR(YevalSmoduleYruntime_core_environment); FUNFOR(YevalSmoduleYunchecked_runtime_environment); FUNFOR(YevalSmoduleYreloader_do_create_module); FUNFOR(YevalSmoduleYreloader_do_use_module); FUNFOR(YevalSmoduleYreloader_do_import); FUNFOR(YevalSmoduleYprocess_module_data); LOCFOR(fun_ensure_module_data_159); FUNFOR(YevalSmoduleYreloader_do_runtime_binding); FUNFOR(YevalSmoduleYreloader_do_dynamic_binding); FUNFOR(YevalSmoduleYreloader_do_other_binding); FUNFOR(YevalSmoduleYreloader_do_export); FUNFOR(YevalSmoduleYreload_modules); FUNFOR(YevalSmoduleYfab_static_global_environment); LOCFOR(fun_166); FUNFOR(YevalSmoduleYfab_subset_environment); FUNFOR(YevalSmoduleYwalk_bindings); FUNFOR(YevalSmoduleYwalk_bindingsT); extern P YevalSmoduleY___main_0___ (); extern P YevalSmoduleY___main_1___ (); extern P YevalSmoduleY___main_2___ (); extern P YevalSmoduleY___main_3___ (); extern P YevalSmoduleY___main_4___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_namespace_error_0) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YevalSmoduleYLnamespace_errorG),VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_name_1) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_name_setter_2) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_mangled_name_3) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_mangled_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_mangled_name_setter_4) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_mangled_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_type_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_type_setter_7) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_inferred_type_8) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_inferred_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_inferred_type_setter_9) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_inferred_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_10) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(VARREF(YgooStypesYDbot)); } LOCCODEDEF(fun_global_box_value_11) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYglobal_box_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_global_box_value_setter_12) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYglobal_box_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_kind_13) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_kind)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_kind_setter_14) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_kind)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_15) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_34)); } LOCCODEDEF(fun_binding_module_16) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_module)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_module_setter_17) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_module)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_18) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_freeQ_19) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_freeQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_freeQ_setter_20) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_freeQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_21) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_info_22) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_info)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_info_setter_23) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_info)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_24) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_prop_25) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYbinding_prop)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_binding_prop_setter_26) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYbinding_prop)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_27) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_binding_module_name_28) { P b_; P modF4001; P T0,T1,T2; LINK_STACK(); ARG(b_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_module),b_); modF4001 = T2; if (modF4001 != YPfalse) { T1 = CALL1(1,VARREF(YevalSmoduleYmodule_name),modF4001); T0 = T1; } else { T0 = VARREF(YevalSmoduleYDgoo_boot_module_name); } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_environment_next_29) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYenvironment_next)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_next_setter_30) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYenvironment_next)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_31) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_environment_bindings_32) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYenvironment_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_bindings_setter_33) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYenvironment_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_module_34) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYenvironment_module)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_module_setter_35) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYenvironment_module)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_module_loader_36) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYenvironment_module_loader)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_module_loader_setter_37) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYenvironment_module_loader)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_uses_modules_38) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYenvironment_uses_modules)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_uses_modules_setter_39) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYenvironment_uses_modules)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_40) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_allows_foreign_namesQ_41) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_environment_allows_foreign_namesQ_setter_42) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_43) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_44) { P binding_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(binding_, 0); T3 = CALL1(1,VARREF(YevalSmoduleYbinding_kind),binding_); T2 = CALL2(1,VARREF(YgooSmacrosYEE),T3,LITREF(lit_34)); if (T2 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYbinding_global_box),binding_); if (T5 != YPfalse) { T8 = CALL1(1,VARREF(YevalSmoduleYbinding_global_box),binding_); T7 = CALL1(1,VARREF(YevalSmoduleYglobal_box_value),T8); T6 = CALL2(1,VARREF(YgooSmacrosYEE),FREEREF(0),T7); T4 = T6; } else { T4 = YPfalse; } T1 = T4; } else { T1 = YPfalse; } if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T9 = CALL1(0,FREEREF(1),T10); T0 = T9; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_45) { P return_; P T0,T1; LINK_STACK(); ARG(return_, 0); T0 = FUNFAB(fun_44,2,FREEREF(0),return_); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),LITREF(lit_3)); CALL2(1,VARREF(YevalSmoduleYdo_static_global_bindings),T0,T1); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_env_object_name_46) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = FUNFAB(fun_45,1,x_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_frame_bindings_47) { P env_; P T0; LINK_STACK(); ARG(env_, 0); T0 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),env_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_do_static_global_bindings_48) { P f_,env_; P envF4002; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(f_, 0); ARG(env_, 1); envF4002 = env_; LOOP_176: { P a176_0; T2 = CALL2(1,VARREF(YisaQ),envF4002,VARREF(YevalSmoduleYLstatic_nul_environmentG)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYframe_bindings),envF4002); CALL2(1,VARREF(YgooSmacrosYdo),f_,T3); T5 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),envF4002); a176_0 = T5; envF4002 = a176_0; goto LOOP_176; T0 = T4; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYdo_named_static_global_bindings) { P f_,env_; P envF4003; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(f_, 0); ARG(env_, 1); envF4003 = env_; LOOP_177: { P a177_0; T2 = CALL2(1,VARREF(YisaQ),envF4003,VARREF(YevalSmoduleYLstatic_nul_environmentG)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYframe_bindings),envF4003); CALL2(1,VARREF(YgooScolsScolYdo_keyed),f_,T3); T5 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),envF4003); a177_0 = T5; envF4003 = a177_0; goto LOOP_177; T0 = T4; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_globalX_50) { P binding_,r_; P rF4004; P T0,T1,T2,T3; LINK_STACK(); ARG(binding_, 0); ARG(r_, 1); T3 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); check_type(T3,VARREF(YevalSmoduleYLstatic_global_environmentG)); rF4004 = T3; T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),rF4004); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),binding_,T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_51) { P b_; P T0; LINK_STACK(); ARG(b_, 0); T0 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),b_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_globalsX_52) { P bindings_,r_; P T0,T1; LINK_STACK(); ARG(bindings_, 0); ARG(r_, 1); T1 = FUNFAB(fun_51,1,r_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,bindings_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_find_static_global_environment_53) { P r_; P T0,T1; LINK_STACK(); ARG(r_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),r_); T0 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_find_static_global_environment_54) { P r_; LINK_STACK(); ARG(r_, 0); UNLINK_STACK(); RET(r_); } LOCCODEDEF(fun_find_syntax_environment_55) { P r_; P T0,T1; LINK_STACK(); ARG(r_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),r_); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_syntax_environment),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_find_environment_module_56) { P r_; P T0,T1; LINK_STACK(); ARG(r_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); T0 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_find_binding_57) { P name_,r_; P tmpF4005; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(name_, 0); ARG(r_, 1); T4 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),r_); T3 = CALL3(1,VARREF(YgooScolsScolYelt_or),T4,name_,YPfalse); tmpF4005 = T3; if (tmpF4005 != YPfalse) { T0 = tmpF4005; } else { T2 = CALL1(1,VARREF(YevalSmoduleYenvironment_next),r_); T1 = CALL2(1,VARREF(YevalSmoduleYfind_binding),name_,T2); T0 = T1; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_transaction_implemented_bindings_58) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYtransaction_implemented_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_59) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)10)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_transaction_dependents_60) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYtransaction_dependents)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_61) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)10)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYtransaction_register_implemented_binding) { P b_; P T0,T1,T2,T3; LINK_STACK(); ARG(b_, 0); T0 = CALL1(1,VARREF(Ynot),DYNREF(YevalSmoduleYTcurrent_subtransactionT)); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(YevalSdependencyYast_error),LITREF(lit_122)); } else { } T3 = CALL1(1,VARREF(YevalSmoduleYtransaction_implemented_bindings),DYNREF(YevalSmoduleYTcurrent_subtransactionT)); T2 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,T3,b_); UNLINK_STACK(); QRET(T2); } FUNCODEDEF(YevalSmoduleYtransaction_register_dependent) { P d_; P T0,T1,T2,T3; LINK_STACK(); ARG(d_, 0); T0 = CALL1(1,VARREF(Ynot),DYNREF(YevalSmoduleYTcurrent_subtransactionT)); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(YevalSdependencyYast_error),LITREF(lit_125)); } else { } T3 = CALL1(1,VARREF(YevalSmoduleYtransaction_dependents),DYNREF(YevalSmoduleYTcurrent_subtransactionT)); T2 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,T3,d_); UNLINK_STACK(); QRET(T2); } FUNCODEDEF(YevalSmoduleYtransaction_nulQ) { P t_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(t_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYtransaction_implemented_bindings),t_); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),T2); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYtransaction_dependents),t_); T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_65) { P k_,v_; P T0; LINK_STACK(); ARG(k_, 0); ARG(v_, 1); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,FREEREF(0),k_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_66) { P k_,v_; P T0; LINK_STACK(); ARG(k_, 0); ARG(v_, 1); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,FREEREF(0),k_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYmerge_transactionsX) { P t1_,t2_; P t2_dependentsF4009; P t1_dependentsF4008; P t2_imp_bindingsF4007; P t1_imp_bindingsF4006; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYtransaction_nulQ),t2_); if (T1 != YPfalse) { T0 = t1_; } else { T3 = CALL1(1,VARREF(YevalSmoduleYtransaction_nulQ),t1_); if (T3 != YPfalse) { T2 = t2_; } else { if (YPtrue != YPfalse) { T10 = CALL1(1,VARREF(YevalSmoduleYtransaction_implemented_bindings),t1_); t1_imp_bindingsF4006 = T10; T9 = CALL1(1,VARREF(YevalSmoduleYtransaction_implemented_bindings),t2_); t2_imp_bindingsF4007 = T9; T8 = CALL1(1,VARREF(YevalSmoduleYtransaction_dependents),t1_); t1_dependentsF4008 = T8; T7 = CALL1(1,VARREF(YevalSmoduleYtransaction_dependents),t2_); t2_dependentsF4009 = T7; T5 = FUNFAB(fun_65,1,t1_imp_bindingsF4006); CALL2(1,VARREF(YgooScolsScolYdo_keyed),T5,t2_imp_bindingsF4007); T6 = FUNFAB(fun_66,1,t1_dependentsF4008); CALL2(1,VARREF(YgooScolsScolYdo_keyed),T6,t2_dependentsF4009); T4 = t1_; } else { T4 = YPfalse; } T2 = T4; } T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_68) { P binding_,junk_; P T0; LINK_STACK(); ARG(binding_, 0); ARG(junk_, 1); T0 = CALL2(1,VARREF(YevalSmoduleYbinding_freeQ_setter),YPtrue,binding_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_69) { P dependent_,junk_; P T0; LINK_STACK(); ARG(dependent_, 0); ARG(junk_, 1); T0 = CALL1(1,VARREF(YevalSdependencyYdetach_dependent),dependent_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYroll_back_transaction) { P t_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(t_, 0); T0 = fun_68; T1 = CALL1(1,VARREF(YevalSmoduleYtransaction_implemented_bindings),t_); CALL2(1,VARREF(YgooScolsScolYdo_keyed),T0,T1); T3 = fun_69; T4 = CALL1(1,VARREF(YevalSmoduleYtransaction_dependents),t_); T2 = CALL2(1,VARREF(YgooScolsScolYdo_keyed),T3,T4); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_71) { P valueF4010; P T0,T1; LINK_STACK(); T0 = CALL1(1,VARREF(Ynew),VARREF(YevalSmoduleYLtransactionG)); DYNSET(YevalSmoduleYTcurrent_subtransactionT,T0); T1 = CALL0(0,FREEREF(0)); valueF4010 = T1; BOXPUT(YPtrue,FREEREF(1)); UNLINK_STACK(); QRET(valueF4010); } LOCCODEDEF(fun_72) { P T0,T1,T2,T3,T4,T5; LINK_STACK(); T0 = BOXGET(FREEREF(0)); if (T0 != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYmodule_transaction),FREEREF(1)); T2 = CALL2(1,VARREF(YevalSmoduleYmerge_transactionsX),T3,DYNREF(YevalSmoduleYTcurrent_subtransactionT)); T1 = CALL2(1,VARREF(YevalSmoduleYmodule_transaction_setter),T2,FREEREF(1)); } else { T4 = CALL1(1,VARREF(YevalSmoduleYroll_back_transaction),DYNREF(YevalSmoduleYTcurrent_subtransactionT)); } T5 = DYNSET(YevalSmoduleYTcurrent_subtransactionT,FREEREF(2)); UNLINK_STACK(); QRET(T5); } FUNCODEDEF(YevalSmoduleYcall_with_subtransaction) { P module_,thunk_; P savedF4012; P successQF4011; P T0,T1,T2,T3; LINK_STACK(); ARG(module_, 0); ARG(thunk_, 1); successQF4011 = YPfalse; successQF4011 = BOXFAB(successQF4011); savedF4012 = DYNREF(YevalSmoduleYTcurrent_subtransactionT); T2 = FUNFAB(fun_71,2,thunk_,successQF4011); T3 = FUNFAB(fun_72,3,successQF4011,module_,savedF4012); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_x_1487_74) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_143),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_75) { P return_; P x_1486F4023; P x_1486F4022; P x_1486F4021; P x_1486F4020; P x_1486F4019; P x_1486F4018; P x_1486F4017; P bodyF4016; P moduleF4015; P x_1486F4014; P x_1487F4013; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); ARG(return_, 0); T23 = FUNSHELL(0,fun_x_1487_74,2); x_1487F4013 = T23; FUNINIT(x_1487F4013, 2,FREEREF(0),return_); x_1486F4014 = FREEREF(0); moduleF4015 = YPfalse; bodyF4016 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1486F4014,VARREF(YLlstG)); if (T2 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1486F4014,LITREF(lit_143),x_1487F4013); x_1486F4017 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1486F4017,x_1487F4013); x_1486F4018 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1486F4018,x_1487F4013); moduleF4015 = T8; T9 = CALL1(1,VARREF(Ytail),x_1486F4018); x_1486F4019 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1486F4019,x_1487F4013); x_1486F4020 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1486F4020,x_1487F4013); T7 = CALL1(1,VARREF(Ytail),x_1486F4019); x_1486F4021 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1486F4021,x_1487F4013); T11 = CALL1(1,VARREF(Ytail),x_1486F4017); x_1486F4022 = T11; bodyF4016 = x_1486F4022; x_1486F4023 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1486F4023,x_1487F4013); } else { T13 = CALL2(1,x_1487F4013,LITREF(lit_144),x_1486F4014); } T15 = CALL1(1,VARREF(Ylst),LITREF(lit_136)); T17 = moduleF4015; T16 = CALL1(1,VARREF(Ylst),T17); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_145)); T21 = CALL1(1,VARREF(Ylst),Ynil); T22 = bodyF4016; T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T22,LITREF(lit_146)); T18 = CALL1(1,VARREF(Ylst),T19); T14 = CALL4(1,VARREF(YgooSmacrosYcat),T15,T16,T18,LITREF(lit_146)); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_76) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_75,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_modules_77) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_loader_modules)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_modules_setter_78) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_loader_modules)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_79) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)1000)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_stack_80) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_loader_stack)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_stack_setter_81) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_loader_stack)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_82) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_module_name_83) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_mangled_name_84) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_mangled_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_mangled_name_setter_85) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_mangled_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_86) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_module_mangled_string_name_87) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_mangled_string_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_mangled_string_name_setter_88) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_mangled_string_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_89) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_module_target_environment_90) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_target_environment)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_target_environment_setter_91) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_target_environment)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_syntax_environment_92) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_syntax_environment)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_syntax_environment_setter_93) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_syntax_environment)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pmodule_exports_94) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYPmodule_exports)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_95) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)1000)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_data_processedQ_96) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_data_processedQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_data_processedQ_setter_97) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_data_processedQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_98) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_module_runtime_data_99) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_runtime_data)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_runtime_data_setter_100) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_runtime_data)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_101) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_module_transaction_102) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_transaction)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_transaction_setter_103) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YevalSmoduleYmodule_transaction)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_104) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL1(1,VARREF(Ynew),VARREF(YevalSmoduleYLtransactionG)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_referenced_bindings_105) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_referenced_bindings)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_106) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_uses_c_files_107) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_uses_c_files)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_108) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_c_forms_109) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_c_forms)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_110) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_uses_c_includes_111) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_uses_c_includes)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_112) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_uses_c_libraries_113) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalSmoduleYmodule_uses_c_libraries)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_114) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_exports_115) { P x_; P T0; LINK_STACK(); ARG(x_, 0); CALL1(1,VARREF(YevalSmoduleYensure_module_data),x_); T0 = CALL1(1,VARREF(YevalSmoduleYPmodule_exports),x_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSmoduleYimport_globalX) { P b_,env_; P tmpF4025; P existingF4024; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(b_, 0); ARG(env_, 1); T8 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T7 = CALL2(1,VARREF(YevalSmoduleYfind_binding),T8,env_); existingF4024 = T7; T3 = CALL2(1,VARREF(YgooSmacrosYEE),existingF4024,YPfalse); tmpF4025 = T3; if (tmpF4025 != YPfalse) { T1 = tmpF4025; } else { T2 = CALL2(1,VARREF(YgooSmacrosYEE),existingF4024,b_); T1 = T2; } T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),b_); T4 = CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_218),T5,T6); } else { } CALL2(1,VARREF(YevalSmoduleYinsert_globalX),b_,env_); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_insert_and_mangle_globalX_117) { P binding_,mangle_prefix_,r_; P rF4026; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(binding_, 0); ARG(mangle_prefix_, 1); ARG(r_, 2); T4 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); check_type(T4,VARREF(YevalSmoduleYLstatic_global_environmentG)); rF4026 = T4; T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),rF4026); T3 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T2 = CALL2(1,VARREF(YgooSmacrosYcat_sym),mangle_prefix_,T3); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),binding_,T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYimport_and_mangle_globalX) { P b_,mangle_prefix_,env_; P tmpF4028; P existingF4027; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(b_, 0); ARG(mangle_prefix_, 1); ARG(env_, 2); T10 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T9 = CALL2(1,VARREF(YgooSmacrosYcat_sym),mangle_prefix_,T10); T8 = CALL2(1,VARREF(YevalSmoduleYfind_binding),T9,env_); existingF4027 = T8; T3 = CALL2(1,VARREF(YgooSmacrosYEE),existingF4027,YPfalse); tmpF4028 = T3; if (tmpF4028 != YPfalse) { T1 = tmpF4028; } else { T2 = CALL2(1,VARREF(YgooSmacrosYEE),existingF4027,b_); T1 = T2; } T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T6 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T5 = CALL2(1,VARREF(YgooSmacrosYcat_sym),mangle_prefix_,T6); T7 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),b_); T4 = CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_223),T5,T7); } else { } CALL3(1,VARREF(YevalSmoduleYinsert_and_mangle_globalX),b_,mangle_prefix_,env_); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YevalSmoduleYset_module_environments) { P mod_,syntax_env_,target_env_; P T0; LINK_STACK(); ARG(mod_, 0); ARG(syntax_env_, 1); ARG(target_env_, 2); CALL2(1,VARREF(YevalSmoduleYmodule_syntax_environment_setter),syntax_env_,mod_); T0 = CALL2(1,VARREF(YevalSmoduleYmodule_target_environment_setter),target_env_,mod_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_120) { P mod_; P T0; LINK_STACK(); ARG(mod_, 0); T0 = CALL1(0,FREEREF(0),mod_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYdo_module_loader_modules) { P f_,loader_; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(loader_, 1); T1 = FUNFAB(fun_120,1,f_); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_modules),loader_); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_module_loader_module_type_122) { P loader_; LINK_STACK(); ARG(loader_, 0); UNLINK_STACK(); RET(VARREF(YevalSmoduleYLmoduleG)); } FUNCODEDEF(YevalSmoduleYregister_moduleX) { P module_loader_,mod_; P T0,T1; LINK_STACK(); ARG(module_loader_, 0); ARG(mod_, 1); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_modules),module_loader_); T1 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); CALL3(1,VARREF(YgooScolsScolxYelt_setter),mod_,T0,T1); UNLINK_STACK(); RET(module_loader_); } FUNCODEDEF(YevalSmoduleYprobe_module) { P loader_,name_; P tmpF4029; P T0,T1,T2,T3; LINK_STACK(); ARG(loader_, 0); ARG(name_, 1); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_modules),loader_); T2 = CALL3(1,VARREF(YgooScolsScolYelt_or),T3,name_,YPfalse); tmpF4029 = T2; if (tmpF4029 != YPfalse) { T0 = tmpF4029; } else { T1 = CALL2(1,VARREF(YevalSmoduleYload_and_register_module),loader_,name_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_125) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YevalSmoduleYload_module),FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_126) { P x_1489F4032; P x_1488F4031; P tup33F4030; P T0,T1,T2,T3; LINK_STACK(); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_stack),FREEREF(0)); T2 = CALL1(1,VARREF(YgooScolsSseqxYpopX),T3); tup33F4030 = T2; T1 = CALL2(1,VARREF(YgooSmacrosYelt),tup33F4030,YPint((P)0)); x_1488F4031 = T1; T0 = CALL2(1,VARREF(YgooSmacrosYelt),tup33F4030,YPint((P)1)); x_1489F4032 = T0; CALL2(1,VARREF(YevalSmoduleYmodule_loader_stack_setter),x_1488F4031,FREEREF(0)); UNLINK_STACK(); QRET(x_1489F4032); } FUNCODEDEF(YevalSmoduleYload_and_register_module) { P loader_,name_; P modF4036; P indentF4035; P depthF4034; P stackF4033; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(loader_, 0); ARG(name_, 1); T10 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_stack),loader_); stackF4033 = T10; T9 = CALL1(1,VARREF(YgooStypesYlen),stackF4033); depthF4034 = T9; T8 = CALL2(1,VARREF(YgooScolsSseqYrepeat),LITREF(lit_237),depthF4034); indentF4035 = T8; T0 = CALL2(1,VARREF(YgooScolsScolYmemQ),stackF4033,name_); if (T0 != YPfalse) { T2 = CALL1(1,VARREF(Yhead),stackF4033); T1 = CALL3(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_238),T2,name_); } else { } CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_239),indentF4035,name_); T4 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_stack),loader_); T3 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T4,name_); CALL2(1,VARREF(YevalSmoduleYmodule_loader_stack_setter),T3,loader_); T6 = FUNFAB(fun_125,2,loader_,name_); T7 = FUNFAB(fun_126,1,loader_); T5 = with_cleanup(T6,T7); modF4036 = T5; CALL2(1,VARREF(YevalSmoduleYregister_moduleX),loader_,modF4036); CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_240),indentF4035); UNLINK_STACK(); RET(modF4036); } FUNCODEDEF(YevalSmoduleYexport_bindingX) { P module_,name_,binding_; P tmpF4039; P existingF4038; P exportsF4037; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(module_, 0); ARG(name_, 1); ARG(binding_, 2); T6 = CALL1(1,VARREF(YevalSmoduleYmodule_exports),module_); exportsF4037 = T6; T5 = CALL3(1,VARREF(YgooScolsScolYelt_or),exportsF4037,name_,YPfalse); existingF4038 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYEE),existingF4038,YPfalse); tmpF4039 = T3; if (tmpF4039 != YPfalse) { T1 = tmpF4039; } else { T2 = CALL2(1,VARREF(YgooSmacrosYEE),existingF4038,binding_); T1 = T2; } T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T4 = CALL5(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_245),existingF4038,binding_,module_,name_); } else { } CALL3(1,VARREF(YgooScolsScolxYelt_setter),binding_,exportsF4037,name_); UNLINK_STACK(); RET(YPfalse); } FUNCODEDEF(YevalSmoduleYbinding_native_toQ) { P binding_,module_; P T0,T1,T2; LINK_STACK(); ARG(binding_, 0); ARG(module_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYmodule_name),module_); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),binding_); T0 = CALL2(1,VARREF(YgooSmacrosYEE),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_130) { P binding_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(binding_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_freeQ),binding_); if (T2 != YPfalse) { T3 = CALL2(1,VARREF(YevalSmoduleYbinding_native_toQ),binding_,FREEREF(0)); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YevalSmoduleYmodule_name),FREEREF(0)); T6 = CALL1(1,VARREF(YevalSmoduleYbinding_name),binding_); T4 = CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_251),T5,T6); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreport_undefined_global_bindings) { P mod_; P T0,T1,T2; LINK_STACK(); ARG(mod_, 0); T1 = FUNFAB(fun_130,1,mod_); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T0 = CALL2(1,VARREF(YevalSmoduleYdo_static_global_bindings),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_132) { P uses_mod_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(uses_mod_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_name),uses_mod_); T1 = CALL2(1,VARREF(YgooSmacrosYEE),FREEREF(0),T2); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYmodule_name),FREEREF(1)); T3 = CALL1(0,FREEREF(2),T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_133) { P mod_; P T0,T1,T2,T3; LINK_STACK(); ARG(mod_, 0); T1 = FUNFAB(fun_132,3,FREEREF(0),mod_,FREEREF(1)); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T2 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),T3); T0 = CALL2(1,VARREF(YgooSmacrosYdo),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_add_user_134) { P modname_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(modname_, 0); T2 = CALL3(1,VARREF(YgooScolsScolYelt_or),FREEREF(0),modname_,YPfalse); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),modname_,FREEREF(0),modname_); T4 = FUNFAB(fun_133,2,modname_,FREEREF(1)); T3 = CALL2(1,VARREF(YevalSmoduleYdo_module_loader_modules),T4,FREEREF(2)); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_135) { P v_; P UF4040; P T0,T1,T2; LINK_STACK(); ARG(v_, 0); T2 = BOXGET(FREEREF(0)); UF4040 = T2; T1 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF4040,v_); T0 = BOXPUT(T1,FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYcompute_transitive_users) { P loader_,modnames_; P packer_F4043; P add_userF4042; P usersF4041; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(loader_, 0); ARG(modnames_, 1); T6 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)100)); usersF4041 = T6; T5 = FUNSHELL(0,fun_add_user_134,3); add_userF4042 = T5; FUNINIT(add_userF4042, 3,usersF4041,add_userF4042,loader_); CALL2(1,VARREF(YgooSmacrosYdo),add_userF4042,modnames_); T4 = CALL1(1,VARREF(YgooSpackerYpacker_fab),VARREF(YLlstG)); packer_F4043 = T4; packer_F4043 = BOXFAB(packer_F4043); T1 = FUNFAB(fun_135,1,packer_F4043); CALL2(1,VARREF(YgooSmacrosYdo),T1,usersF4041); T3 = BOXGET(packer_F4043); T2 = CALL1(1,VARREF(YgooSpackerYpacker_res),T3); UNLINK_STACK(); RET(T2); } FUNCODEDEF(YevalSmoduleYremove_module_internalX) { P loader_,mod_; P T0,T1,T2,T3; LINK_STACK(); ARG(loader_, 0); ARG(mod_, 1); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_transaction),mod_); CALL1(1,VARREF(YevalSmoduleYroll_back_transaction),T0); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_modules),loader_); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T1 = CALL2(1,VARREF(YgooScolsScolxYdelX),T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_138) { P modname_; P modF4044; P T0,T1,T2; LINK_STACK(); ARG(modname_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_modules),FREEREF(0)); T1 = CALL2(1,VARREF(YgooSmacrosYelt),T2,modname_); modF4044 = T1; T0 = CALL2(1,VARREF(YevalSmoduleYremove_module_internalX),FREEREF(0),modF4044); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYremove_modules_by_nameX) { P loader_,modnames_; P remove_namesF4045; P T0,T1; LINK_STACK(); ARG(loader_, 0); ARG(modnames_, 1); T1 = CALL2(1,VARREF(YevalSmoduleYcompute_transitive_users),loader_,modnames_); remove_namesF4045 = T1; T0 = FUNFAB(fun_138,1,loader_); CALL2(1,VARREF(YgooSmacrosYdo),T0,remove_namesF4045); UNLINK_STACK(); RET(YPfalse); } FUNCODEDEF(YevalSmoduleYmodule_name_to_relpath) { P name_; P namestrF4046; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); T3 = CALL1(1,VARREF(Ysym_name),name_); T2 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooSchrYto_lower),T3); namestrF4046 = T2; T1 = CALL2(1,VARREF(YgooScolsSseqYsplit),namestrF4046,YPchr((P)47)); T0 = CALL2(1,VARREF(YgooScolsSseqYjoin),T1,VARREF(YgooSsystemYTpath_separatorT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_zap_referenced_bindingsX_141) { P mod_; P T0,T1,T2; LINK_STACK(); ARG(mod_, 0); if (VARREF(YevalSmoduleYTtracing_refsQT) != YPfalse) { T0 = CALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_268)); } else { } T2 = CALL1(1,VARREF(YevalSmoduleYmodule_referenced_bindings),mod_); T1 = CALL1(1,VARREF(YgooScolsScolxYzapX),T2); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_zap_referenced_bindingsX_142) { P r_; P T0,T1,T2; LINK_STACK(); ARG(r_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),T2); T0 = CALL1(1,VARREF(YevalSmoduleYzap_referenced_bindingsX),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_register_referenced_binding_143) { P mod_,b_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(mod_, 0); ARG(b_, 1); if (VARREF(YevalSmoduleYTtracing_refsQT) != YPfalse) { T1 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T0 = CALL3(1,VARREF(YgooSioSwriteYpost),LITREF(lit_272),T1,DYNREF(YevalSmoduleYTdynamic_compilationQT)); } else { } if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYmodule_referenced_bindings),mod_); T3 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),b_,T4,b_); T2 = T3; } else { T2 = YPfalse; } UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_register_referenced_binding_144) { P r_,b_; P T0,T1,T2,T3; LINK_STACK(); ARG(r_, 0); ARG(b_, 1); if (DYNREF(YevalSmoduleYTdynamic_compilationQT) != YPfalse) { T3 = CALL1(1,VARREF(YevalSmoduleYfind_static_global_environment),r_); T2 = CALL1(1,VARREF(YevalSmoduleYenvironment_module),T3); T1 = CALL2(1,VARREF(YevalSmoduleYregister_referenced_binding),T2,b_); T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_145) { P T0; LINK_STACK(); DYNSET(YevalSmoduleYTnow_rt_envT,FREEREF(0)); T0 = CALL2(1,VARREF(YevalSmoduleYload_in),FREEREF(1),FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_146) { P T0; LINK_STACK(); T0 = DYNSET(YevalSmoduleYTnow_rt_envT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_147) { P x_1490F4047; P T0,T1,T2; LINK_STACK(); CALL2(1,VARREF(YevalSmoduleYinstall_initial_bindings),FREEREF(0),FREEREF(1)); x_1490F4047 = DYNREF(YevalSmoduleYTnow_rt_envT); T1 = FUNFAB(fun_145,2,FREEREF(0),FREEREF(2)); T2 = FUNFAB(fun_146,1,x_1490F4047); T0 = with_cleanup(T1,T2); CALL2(1,VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ_setter),YPtrue,FREEREF(0)); BOXPUT(YPtrue,FREEREF(3)); UNLINK_STACK(); QRET(FREEREF(4)); } LOCCODEDEF(fun_148) { P T0,T1,T2,T3,T4; LINK_STACK(); T2 = BOXGET(FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYmodule_transaction),FREEREF(1)); T3 = CALL1(1,VARREF(YevalSmoduleYroll_back_transaction),T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_load_module_149) { P loader_,name_; P fileF4053; P modpathF4052; P keepmodQF4051; P envF4050; P moduleF4049; P typeF4048; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(loader_, 0); ARG(name_, 1); T10 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_module_type),loader_); typeF4048 = T10; T9 = CALL3(1,VARREF(Ynew),typeF4048,VARREF(YevalSmoduleYmodule_name),name_); moduleF4049 = T9; T8 = CALL3(1,VARREF(YevalSmoduleYfab_static_global_environment),moduleF4049,loader_,YPfalse); envF4050 = T8; keepmodQF4051 = YPfalse; keepmodQF4051 = BOXFAB(keepmodQF4051); T7 = CALL1(1,VARREF(YevalSmoduleYmodule_name_to_relpath),name_); modpathF4052 = T7; T6 = CALL2(1,VARREF(YgooSsystemYfind_goo_file_in_path),modpathF4052,VARREF(YgooSsystemYTmodule_search_pathT)); fileF4053 = T6; CALL3(1,VARREF(YevalSmoduleYset_module_environments),moduleF4049,envF4050,envF4050); T1 = CALL1(1,VARREF(Ynot),fileF4053); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_278),modpathF4052); } else { } T4 = FUNFAB(fun_147,5,envF4050,loader_,fileF4053,keepmodQF4051,moduleF4049); T5 = FUNFAB(fun_148,2,keepmodQF4051,moduleF4049); T3 = with_cleanup(T4,T5); UNLINK_STACK(); RET(T3); } FUNCODEDEF(YevalSmoduleYruntime_module_loader) { LINK_STACK(); UNLINK_STACK(); QRET(VARREF(YevalSmoduleYTruntime_module_loaderT)); } FUNCODEDEF(YevalSmoduleYruntime_module) { P modname_; P T0,T1; LINK_STACK(); ARG(modname_, 0); T1 = CALL0(1,VARREF(YevalSmoduleYruntime_module_loader)); T0 = CALL2(1,VARREF(YevalSmoduleYprobe_module),T1,modname_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYruntime_environment) { P modname_; P moduleF4054; P T0,T1; LINK_STACK(); ARG(modname_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_module),modname_); moduleF4054 = T1; CALL1(1,VARREF(YevalSmoduleYensure_module_data),moduleF4054); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),moduleF4054); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYruntime_core_environment) { P modname_; P T0,T1; LINK_STACK(); ARG(modname_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_module),modname_); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYunchecked_runtime_environment) { P modname_; P loaderF4055; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(modname_, 0); T6 = CALL0(1,VARREF(YevalSmoduleYruntime_module_loader)); loaderF4055 = T6; T3 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_stack),loaderF4055); T2 = CALL3(1,VARREF(YgooScolsScolYelt_or),T3,YPint((P)0),YPfalse); T1 = CALL2(1,VARREF(YgooSmacrosYEE),T2,modname_); if (T1 != YPfalse) { T0 = DYNREF(YevalSmoduleYTnow_rt_envT); } else { T5 = CALL1(1,VARREF(YevalSmoduleYruntime_module),modname_); T4 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),T5); T0 = T4; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreloader_do_create_module) { P modname_,data_; P envF4059; P modF4058; P typeF4057; P loaderF4056; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(modname_, 0); ARG(data_, 1); T4 = CALL0(1,VARREF(YevalSmoduleYruntime_module_loader)); loaderF4056 = T4; T3 = CALL1(1,VARREF(YevalSmoduleYmodule_loader_module_type),loaderF4056); typeF4057 = T3; T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),modname_); T1 = CALL3(1,VARREF(Ynew),typeF4057,VARREF(YevalSmoduleYmodule_name),T2); modF4058 = T1; T0 = CALL3(1,VARREF(YevalSmoduleYfab_static_global_environment),modF4058,loaderF4056,YPtrue); envF4059 = T0; CALL2(1,VARREF(YevalSmoduleYmodule_data_processedQ_setter),YPfalse,modF4058); CALL3(1,VARREF(YevalSmoduleYset_module_environments),modF4058,envF4059,envF4059); CALL2(1,VARREF(YevalSmoduleYmodule_runtime_data_setter),data_,modF4058); CALL2(1,VARREF(YevalSmoduleYregister_moduleX),loaderF4056,modF4058); UNLINK_STACK(); RET(modF4058); } FUNCODEDEF(YevalSmoduleYreloader_do_use_module) { P mod_,uses_; P T0,T1,T2; LINK_STACK(); ARG(mod_, 0); ARG(uses_, 1); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T1 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),T2); T0 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T1,uses_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreloader_do_import) { P mod_,name_,from_mod_,original_name_; P bindingF4061; P home_envF4060; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); ARG(from_mod_, 2); ARG(original_name_, 3); T8 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),from_mod_); home_envF4060 = T8; T7 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),original_name_); T6 = CALL2(1,VARREF(YevalSmoduleYfind_binding),T7,home_envF4060); bindingF4061 = T6; T0 = CALL1(1,VARREF(Ynot),bindingF4061); if (T0 != YPfalse) { T2 = CALL1(1,VARREF(YevalSmoduleYmodule_name),from_mod_); T3 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T1 = CALL4(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_294),original_name_,T2,T3); } else { } T5 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T4 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4061,T5); UNLINK_STACK(); QRET(T4); } FUNCODEDEF(YevalSmoduleYprocess_module_data) { P module_; P T0,T1; LINK_STACK(); ARG(module_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYmodule_runtime_data),module_); T0 = (P)YPprocess_module(T1,VARREF(YevalSmoduleYreloader_do_import),VARREF(YevalSmoduleYreloader_do_export)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ensure_module_data_159) { P module_; P T0,T1,T2,T3; LINK_STACK(); ARG(module_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYmodule_data_processedQ),module_); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { CALL2(1,VARREF(YevalSmoduleYmodule_data_processedQ_setter),YPtrue,module_); T3 = CALL1(1,VARREF(YevalSmoduleYprocess_module_data),module_); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreloader_do_runtime_binding) { P mod_,name_,loc_; P bindingF4062; P T0,T1,T2,T3; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); ARG(loc_, 2); T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),name_); T2 = CALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_300),VARREF(YevalSmoduleYbinding_module),mod_,VARREF(YevalSmoduleYbinding_name),T3,VARREF(YevalSmoduleYbinding_freeQ),YPfalse,VARREF(YevalSmoduleYbinding_locative),loc_); bindingF4062 = T2; T1 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T0 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4062,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreloader_do_dynamic_binding) { P mod_,name_,loc_; P bindingF4063; P T0,T1,T2,T3; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); ARG(loc_, 2); T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),name_); T2 = CALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_303),VARREF(YevalSmoduleYbinding_module),mod_,VARREF(YevalSmoduleYbinding_name),T3,VARREF(YevalSmoduleYbinding_freeQ),YPfalse,VARREF(YevalSmoduleYbinding_locative),loc_); bindingF4063 = T2; T1 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T0 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4063,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreloader_do_other_binding) { P mod_,name_; P bindingF4064; P T0,T1,T2,T3; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),name_); T2 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),LITREF(lit_306),VARREF(YevalSmoduleYbinding_module),mod_,VARREF(YevalSmoduleYbinding_name),T3,VARREF(YevalSmoduleYbinding_freeQ),YPtrue); bindingF4064 = T2; T1 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T0 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),bindingF4064,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreloader_do_export) { P mod_,name_,as_name_; P bindingF4065; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(mod_, 0); ARG(name_, 1); ARG(as_name_, 2); T6 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),name_); T7 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),mod_); T5 = CALL2(1,VARREF(YevalSmoduleYfind_binding),T6,T7); bindingF4065 = T5; if (bindingF4065 != YPfalse) { T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),as_name_); T1 = CALL3(1,VARREF(YevalSmoduleYexport_bindingX),mod_,T2,bindingF4065); T0 = T1; } else { T4 = CALL1(1,VARREF(YevalSmoduleYmodule_name),mod_); T3 = CALL3(1,VARREF(YevalSmoduleYnamespace_error),LITREF(lit_309),name_,T4); T0 = T3; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYreload_modules) { P T0; LINK_STACK(); T0 = (P)YPbuild_runtime_modules(VARREF(YevalSmoduleYreloader_do_create_module),VARREF(YevalSmoduleYreloader_do_use_module),VARREF(YevalSmoduleYreloader_do_runtime_binding),VARREF(YevalSmoduleYreloader_do_other_binding),VARREF(YevalSmoduleYreloader_do_dynamic_binding)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYfab_static_global_environment) { P module_,module_loader_,allow_foreign_namesQ_; P new_envF4066; P T0,T1; LINK_STACK(); ARG(module_, 0); ARG(module_loader_, 1); ARG(allow_foreign_namesQ_, 2); T1 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)2000)); T0 = CALLN(1,VARREF(Ynew),11,VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYenvironment_module),module_,VARREF(YevalSmoduleYenvironment_module_loader),module_loader_,VARREF(YevalSmoduleYenvironment_next),VARREF(YevalSmoduleYDnul_static_environment),VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ),allow_foreign_namesQ_,VARREF(YevalSmoduleYenvironment_bindings),T1); new_envF4066 = T0; UNLINK_STACK(); RET(new_envF4066); } LOCCODEDEF(fun_166) { P name_,binding_; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); ARG(binding_, 1); T2 = CALL2(1,VARREF(YgooScolsScolYmemQ),FREEREF(0),name_); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YevalSmoduleYinsert_globalX),binding_,FREEREF(1)); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYfab_subset_environment) { P module_,src_module_,excluded_; P new_envF4068; P loaderF4067; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(module_, 0); ARG(src_module_, 1); ARG(excluded_, 2); T4 = CALL1(1,VARREF(YevalSmoduleYmodule_target_environment),src_module_); T3 = CALL1(1,VARREF(YevalSmoduleYenvironment_module_loader),T4); loaderF4067 = T3; T2 = CALL3(1,VARREF(YevalSmoduleYfab_static_global_environment),module_,loaderF4067,YPfalse); new_envF4068 = T2; T0 = FUNFAB(fun_166,2,excluded_,new_envF4068); T1 = CALL1(1,VARREF(YevalSmoduleYmodule_exports),src_module_); CALL2(1,VARREF(YgooScolsScolYdo_keyed),T0,T1); UNLINK_STACK(); RET(new_envF4068); } FUNCODEDEF(YevalSmoduleYwalk_bindings) { P fun_,mod_; P T0,T1,T2,T3; LINK_STACK(); ARG(fun_, 0); ARG(mod_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),mod_); T2 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)1000)); T3 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)10)); T0 = CALL4(1,VARREF(YevalSmoduleYwalk_bindingsT),fun_,T1,T2,T3); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSmoduleYwalk_bindingsT) { P f_,env_,walkedQ_,mods_; P bF4072; P x_1493F4071; P modF4070; P x_1491F4069; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); ARG(f_, 0); ARG(env_, 1); ARG(walkedQ_, 2); ARG(mods_, 3); T12 = CALL1(1,VARREF(YevalSmoduleYenvironment_uses_modules),env_); T11 = CALL1(1,VARREF(YgooScolsScolYenum),T12); x_1491F4069 = T11; LOOP_178: { P a178_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1491F4069); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YgooScolsScolYnow),x_1491F4069); modF4070 = T10; T4 = CALL3(1,VARREF(YgooScolsScolYelt_or),mods_,modF4070,YPfalse); T3 = CALL1(1,VARREF(Ynot),T4); if (T3 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,mods_,modF4070); T7 = CALL1(1,VARREF(YevalSmoduleYmodule_name),modF4070); T6 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),T7); T5 = CALL4(1,VARREF(YevalSmoduleYwalk_bindingsT),f_,T6,walkedQ_,mods_); } else { } T9 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1491F4069); a178_0 = T9; x_1491F4069 = a178_0; goto LOOP_178; T0 = T8; } else { T0 = YPfalse; } } T23 = CALL1(1,VARREF(YevalSmoduleYenvironment_bindings),env_); T22 = CALL1(1,VARREF(YgooScolsScolYenum),T23); x_1493F4071 = T22; LOOP_179: { P a179_0; T15 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1493F4071); T14 = CALL1(1,VARREF(Ynot),T15); if (T14 != YPfalse) { T21 = CALL1(1,VARREF(YgooScolsScolYnow),x_1493F4071); bF4072 = T21; T17 = CALL3(1,VARREF(YgooScolsScolYelt_or),walkedQ_,bF4072,YPfalse); T16 = CALL1(1,VARREF(Ynot),T17); if (T16 != YPfalse) { CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,walkedQ_,bF4072); T18 = CALL1(0,f_,bF4072); } else { } T20 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1493F4071); a179_0 = T20; x_1493F4071 = a179_0; goto LOOP_179; T13 = T19; } else { T13 = YPfalse; } } UNLINK_STACK(); QRET(T13); } P YevalSmoduleY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115; DEFCREGS(); DYNDEFSET(YevalSmoduleYTdynamic_compilationQT,YPfalse); lit_0 = YPPsym((P)""); T2 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcompiler_errorG),T2); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YevalSmoduleYLnamespace_errorG,T0); lit_1 = YPPsym((P)"namespace-error"); lit_2 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T3 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_namespace_error_0 = YPfab_met(FUNCODEREF(fun_namespace_error_0),T3,LITREF(lit_1),LITREF(lit_2),sloc(14),YPfalse); T5 = VARREF_OR(YevalSmoduleYnamespace_error,YPfalse); T6 = fun_namespace_error_0; T4 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T5,T6); VARSET(YevalSmoduleYnamespace_error,T4); lit_3 = YPPsym((P)"goo/boot"); VARSET(YevalSmoduleYDgoo_boot_module_name,LITREF(lit_3)); VARSET(YevalSmoduleYLbinding_nameG,VARREF(YLanyG)); lit_4 = YPPsym((P)""); T8 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T7 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_4),T8); VARSET(YevalSmoduleYLbindingG,T7); lit_5 = YPPsym((P)"binding-name"); lit_6 = YPPlist(1,YPPsym((P)"_x")); T9 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_name_1 = YPfab_met(FUNCODEREF(fun_binding_name_1),T9,LITREF(lit_5),LITREF(lit_6),sloc(31),YPfalse); T11 = VARREF_OR(YevalSmoduleYbinding_name,YPfalse); T12 = fun_binding_name_1; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YevalSmoduleYbinding_name,T10); lit_7 = YPPsym((P)"binding-name-setter"); lit_8 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T13 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLbinding_nameG),VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_name_setter_2 = YPfab_met(FUNCODEREF(fun_binding_name_setter_2),T13,LITREF(lit_7),LITREF(lit_8),sloc(31),YPfalse); T15 = VARREF_OR(YevalSmoduleYbinding_name_setter,YPfalse); T16 = fun_binding_name_setter_2; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YevalSmoduleYbinding_name_setter,T14); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLbindingG),VARREF(YevalSmoduleYbinding_name),VARREF(YevalSmoduleYbinding_name_setter),VARREF(YevalSmoduleYLbinding_nameG),VARREF(YPprop_unbound_error)); lit_9 = YPPsym((P)"binding-mangled-name"); lit_10 = YPPlist(1,YPPsym((P)"_x")); T17 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_mangled_name_3 = YPfab_met(FUNCODEREF(fun_binding_mangled_name_3),T17,LITREF(lit_9),LITREF(lit_10),sloc(32),YPfalse); T19 = VARREF_OR(YevalSmoduleYbinding_mangled_name,YPfalse); T20 = fun_binding_mangled_name_3; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YevalSmoduleYbinding_mangled_name,T18); lit_11 = YPPsym((P)"binding-mangled-name-setter"); lit_12 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T22 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T21 = YPfab_sig(YPPlist(2,T22,VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_mangled_name_setter_4 = YPfab_met(FUNCODEREF(fun_binding_mangled_name_setter_4),T21,LITREF(lit_11),LITREF(lit_12),sloc(32),YPfalse); T24 = VARREF_OR(YevalSmoduleYbinding_mangled_name_setter,YPfalse); T25 = fun_binding_mangled_name_setter_4; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSmoduleYbinding_mangled_name_setter,T23); lit_13 = YPPlist(1,YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T26,YPfalse,LITREF(lit_13),sloc(32),YPfalse); T27 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T28 = fun_5; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLbindingG),VARREF(YevalSmoduleYbinding_mangled_name),VARREF(YevalSmoduleYbinding_mangled_name_setter),T27,T28); lit_14 = YPPsym((P)"binding-type"); lit_15 = YPPlist(1,YPPsym((P)"_x")); T29 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_type_6 = YPfab_met(FUNCODEREF(fun_binding_type_6),T29,LITREF(lit_14),LITREF(lit_15),sloc(33),YPfalse); T31 = VARREF_OR(YevalSmoduleYbinding_type,YPfalse); T32 = fun_binding_type_6; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YevalSmoduleYbinding_type,T30); lit_16 = YPPsym((P)"binding-type-setter"); lit_17 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T33 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_type_setter_7 = YPfab_met(FUNCODEREF(fun_binding_type_setter_7),T33,LITREF(lit_16),LITREF(lit_17),sloc(33),YPfalse); T35 = VARREF_OR(YevalSmoduleYbinding_type_setter,YPfalse); T36 = fun_binding_type_setter_7; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YevalSmoduleYbinding_type_setter,T34); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLbindingG),VARREF(YevalSmoduleYbinding_type),VARREF(YevalSmoduleYbinding_type_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_18 = YPPsym((P)"binding-inferred-type"); lit_19 = YPPlist(1,YPPsym((P)"_x")); T37 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_inferred_type_8 = YPfab_met(FUNCODEREF(fun_binding_inferred_type_8),T37,LITREF(lit_18),LITREF(lit_19),sloc(34),YPfalse); T39 = VARREF_OR(YevalSmoduleYbinding_inferred_type,YPfalse); T40 = fun_binding_inferred_type_8; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YevalSmoduleYbinding_inferred_type,T38); lit_20 = YPPsym((P)"binding-inferred-type-setter"); lit_21 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T41 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLbindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_inferred_type_setter_9 = YPfab_met(FUNCODEREF(fun_binding_inferred_type_setter_9),T41,LITREF(lit_20),LITREF(lit_21),sloc(34),YPfalse); T43 = VARREF_OR(YevalSmoduleYbinding_inferred_type_setter,YPfalse); T44 = fun_binding_inferred_type_setter_9; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YevalSmoduleYbinding_inferred_type_setter,T42); lit_22 = YPPlist(1,YPPsym((P)"_x")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_10 = YPfab_met(FUNCODEREF(fun_10),T45,YPfalse,LITREF(lit_22),sloc(34),YPfalse); T46 = fun_10; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLbindingG),VARREF(YevalSmoduleYbinding_inferred_type),VARREF(YevalSmoduleYbinding_inferred_type_setter),VARREF(YLanyG),T46); lit_23 = YPPsym((P)""); T48 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T47 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_23),T48); VARSET(YevalSmoduleYLglobal_boxG,T47); lit_24 = YPPsym((P)"global-box-value"); lit_25 = YPPlist(1,YPPsym((P)"_x")); T49 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLglobal_boxG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_global_box_value_11 = YPfab_met(FUNCODEREF(fun_global_box_value_11),T49,LITREF(lit_24),LITREF(lit_25),sloc(39),YPfalse); T51 = VARREF_OR(YevalSmoduleYglobal_box_value,YPfalse); T52 = fun_global_box_value_11; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YevalSmoduleYglobal_box_value,T50); lit_26 = YPPsym((P)"global-box-value-setter"); lit_27 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T53 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLglobal_boxG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_global_box_value_setter_12 = YPfab_met(FUNCODEREF(fun_global_box_value_setter_12),T53,LITREF(lit_26),LITREF(lit_27),sloc(39),YPfalse); T55 = VARREF_OR(YevalSmoduleYglobal_box_value_setter,YPfalse); T56 = fun_global_box_value_setter_12; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YevalSmoduleYglobal_box_value_setter,T54); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLglobal_boxG),VARREF(YevalSmoduleYglobal_box_value),VARREF(YevalSmoduleYglobal_box_value_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_28 = YPPsym((P)""); T59 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSdependencyYLdependableG),Ynil); T58 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLbindingG),T59); T57 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_28),T58); VARSET(YevalSmoduleYLmodule_bindingG,T57); lit_29 = YPPsym((P)"binding-kind"); lit_30 = YPPlist(1,YPPsym((P)"_x")); T60 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_kind_13 = YPfab_met(FUNCODEREF(fun_binding_kind_13),T60,LITREF(lit_29),LITREF(lit_30),sloc(43),YPfalse); T62 = VARREF_OR(YevalSmoduleYbinding_kind,YPfalse); T63 = fun_binding_kind_13; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSmoduleYbinding_kind,T61); lit_31 = YPPsym((P)"binding-kind-setter"); lit_32 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T64 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_kind_setter_14 = YPfab_met(FUNCODEREF(fun_binding_kind_setter_14),T64,LITREF(lit_31),LITREF(lit_32),sloc(43),YPfalse); T66 = VARREF_OR(YevalSmoduleYbinding_kind_setter,YPfalse); T67 = fun_binding_kind_setter_14; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSmoduleYbinding_kind_setter,T65); lit_33 = YPPlist(1,YPPsym((P)"_x")); lit_34 = YPPsym((P)"global"); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T68,YPfalse,LITREF(lit_33),sloc(43),YPfalse); T69 = fun_15; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_kind),VARREF(YevalSmoduleYbinding_kind_setter),VARREF(YLanyG),T69); lit_35 = YPPsym((P)"binding-module"); lit_36 = YPPlist(1,YPPsym((P)"_x")); T70 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_module_16 = YPfab_met(FUNCODEREF(fun_binding_module_16),T70,LITREF(lit_35),LITREF(lit_36),sloc(44),YPfalse); T72 = VARREF_OR(YevalSmoduleYbinding_module,YPfalse); T73 = fun_binding_module_16; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSmoduleYbinding_module,T71); lit_37 = YPPsym((P)"binding-module-setter"); lit_38 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_module_setter_17 = YPfab_met(FUNCODEREF(fun_binding_module_setter_17),T74,LITREF(lit_37),LITREF(lit_38),sloc(44),YPfalse); T76 = VARREF_OR(YevalSmoduleYbinding_module_setter,YPfalse); T77 = fun_binding_module_setter_17; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YevalSmoduleYbinding_module_setter,T75); lit_39 = YPPlist(1,YPPsym((P)"_x")); T78 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T78,YPfalse,LITREF(lit_39),sloc(44),YPfalse); T79 = fun_18; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_module),VARREF(YevalSmoduleYbinding_module_setter),VARREF(YLanyG),T79); lit_40 = YPPsym((P)"binding-free?"); lit_41 = YPPlist(1,YPPsym((P)"_x")); T80 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_freeQ_19 = YPfab_met(FUNCODEREF(fun_binding_freeQ_19),T80,LITREF(lit_40),LITREF(lit_41),sloc(45),YPfalse); T82 = VARREF_OR(YevalSmoduleYbinding_freeQ,YPfalse); T83 = fun_binding_freeQ_19; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalSmoduleYbinding_freeQ,T81); lit_42 = YPPsym((P)"binding-free?-setter"); lit_43 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T84 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_freeQ_setter_20 = YPfab_met(FUNCODEREF(fun_binding_freeQ_setter_20),T84,LITREF(lit_42),LITREF(lit_43),sloc(45),YPfalse); T86 = VARREF_OR(YevalSmoduleYbinding_freeQ_setter,YPfalse); T87 = fun_binding_freeQ_setter_20; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalSmoduleYbinding_freeQ_setter,T85); lit_44 = YPPlist(1,YPPsym((P)"_x")); T88 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_21 = YPfab_met(FUNCODEREF(fun_21),T88,YPfalse,LITREF(lit_44),sloc(45),YPfalse); T89 = fun_21; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_freeQ),VARREF(YevalSmoduleYbinding_freeQ_setter),VARREF(YLlogG),T89); lit_45 = YPPsym((P)"binding-info"); lit_46 = YPPlist(1,YPPsym((P)"_x")); T90 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_info_22 = YPfab_met(FUNCODEREF(fun_binding_info_22),T90,LITREF(lit_45),LITREF(lit_46),sloc(46),YPfalse); T92 = VARREF_OR(YevalSmoduleYbinding_info,YPfalse); T93 = fun_binding_info_22; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YevalSmoduleYbinding_info,T91); lit_47 = YPPsym((P)"binding-info-setter"); lit_48 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T94 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_info_setter_23 = YPfab_met(FUNCODEREF(fun_binding_info_setter_23),T94,LITREF(lit_47),LITREF(lit_48),sloc(46),YPfalse); T96 = VARREF_OR(YevalSmoduleYbinding_info_setter,YPfalse); T97 = fun_binding_info_setter_23; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YevalSmoduleYbinding_info_setter,T95); lit_49 = YPPlist(1,YPPsym((P)"_x")); T98 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T98,YPfalse,LITREF(lit_49),sloc(46),YPfalse); T99 = fun_24; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_info),VARREF(YevalSmoduleYbinding_info_setter),VARREF(YLanyG),T99); lit_50 = YPPsym((P)"binding-prop"); lit_51 = YPPlist(1,YPPsym((P)"_x")); T100 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_binding_prop_25 = YPfab_met(FUNCODEREF(fun_binding_prop_25),T100,LITREF(lit_50),LITREF(lit_51),sloc(47),YPfalse); T102 = VARREF_OR(YevalSmoduleYbinding_prop,YPfalse); T103 = fun_binding_prop_25; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSmoduleYbinding_prop,T101); lit_52 = YPPsym((P)"binding-prop-setter"); lit_53 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T104 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_binding_prop_setter_26 = YPfab_met(FUNCODEREF(fun_binding_prop_setter_26),T104,LITREF(lit_52),LITREF(lit_53),sloc(47),YPfalse); T106 = VARREF_OR(YevalSmoduleYbinding_prop_setter,YPfalse); T107 = fun_binding_prop_setter_26; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalSmoduleYbinding_prop_setter,T105); lit_54 = YPPlist(1,YPPsym((P)"_x")); T108 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_27 = YPfab_met(FUNCODEREF(fun_27),T108,YPfalse,LITREF(lit_54),sloc(47),YPfalse); T109 = fun_27; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYbinding_prop),VARREF(YevalSmoduleYbinding_prop_setter),VARREF(YLanyG),T109); lit_55 = YPPsym((P)"binding-module-name"); lit_56 = YPPlist(1,YPPsym((P)"b")); T110 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_binding_module_name_28 = YPfab_met(FUNCODEREF(fun_binding_module_name_28),T110,LITREF(lit_55),LITREF(lit_56),sloc(49),YPfalse); T112 = VARREF_OR(YevalSmoduleYbinding_module_name,YPfalse); T113 = fun_binding_module_name_28; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YevalSmoduleYbinding_module_name,T111); VARSET(YevalSmoduleYbinding_global_box,VARREF(YevalSmoduleYbinding_info)); VARSET(YevalSmoduleYbinding_global_box_setter,VARREF(YevalSmoduleYbinding_info_setter)); T115 = VARSET(YevalSmoduleYbinding_locative,VARREF(YevalSmoduleYbinding_info)); T114 = T115; return T114; } P YevalSmoduleY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130; DEFCREGS(); VARSET(YevalSmoduleYbinding_locative_setter,VARREF(YevalSmoduleYbinding_info_setter)); VARSET(YevalSmoduleYbinding_handler,VARREF(YevalSmoduleYbinding_info)); VARSET(YevalSmoduleYbinding_handler_setter,VARREF(YevalSmoduleYbinding_info_setter)); lit_57 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_57),T1); VARSET(YevalSmoduleYLstatic_environmentG,T0); lit_58 = YPPsym((P)"environment-next"); lit_59 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_environment_next_29 = YPfab_met(FUNCODEREF(fun_environment_next_29),T2,LITREF(lit_58),LITREF(lit_59),sloc(88),YPfalse); T4 = VARREF_OR(YevalSmoduleYenvironment_next,YPfalse); T5 = fun_environment_next_29; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YevalSmoduleYenvironment_next,T3); lit_60 = YPPsym((P)"environment-next-setter"); lit_61 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_environment_next_setter_30 = YPfab_met(FUNCODEREF(fun_environment_next_setter_30),T6,LITREF(lit_60),LITREF(lit_61),sloc(88),YPfalse); T8 = VARREF_OR(YevalSmoduleYenvironment_next_setter,YPfalse); T9 = fun_environment_next_setter_30; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YevalSmoduleYenvironment_next_setter,T7); lit_62 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_31 = YPfab_met(FUNCODEREF(fun_31),T10,YPfalse,LITREF(lit_62),sloc(88),YPfalse); T11 = fun_31; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YevalSmoduleYenvironment_next),VARREF(YevalSmoduleYenvironment_next_setter),VARREF(YLanyG),T11); lit_63 = YPPsym((P)"environment-bindings"); lit_64 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_environment_bindings_32 = YPfab_met(FUNCODEREF(fun_environment_bindings_32),T12,LITREF(lit_63),LITREF(lit_64),sloc(89),YPfalse); T14 = VARREF_OR(YevalSmoduleYenvironment_bindings,YPfalse); T15 = fun_environment_bindings_32; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSmoduleYenvironment_bindings,T13); lit_65 = YPPsym((P)"environment-bindings-setter"); lit_66 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_environment_bindings_setter_33 = YPfab_met(FUNCODEREF(fun_environment_bindings_setter_33),T16,LITREF(lit_65),LITREF(lit_66),sloc(89),YPfalse); T18 = VARREF_OR(YevalSmoduleYenvironment_bindings_setter,YPfalse); T19 = fun_environment_bindings_setter_33; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSmoduleYenvironment_bindings_setter,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLstatic_environmentG),VARREF(YevalSmoduleYenvironment_bindings),VARREF(YevalSmoduleYenvironment_bindings_setter),VARREF(YLcolG),VARREF(YPprop_unbound_error)); lit_67 = YPPsym((P)""); T21 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLstatic_environmentG),Ynil); T20 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_67),T21); VARSET(YevalSmoduleYLstatic_global_environmentG,T20); lit_68 = YPPsym((P)"environment-module"); lit_69 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_environment_module_34 = YPfab_met(FUNCODEREF(fun_environment_module_34),T22,LITREF(lit_68),LITREF(lit_69),sloc(93),YPfalse); T24 = VARREF_OR(YevalSmoduleYenvironment_module,YPfalse); T25 = fun_environment_module_34; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSmoduleYenvironment_module,T23); lit_70 = YPPsym((P)"environment-module-setter"); lit_71 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_environment_module_setter_35 = YPfab_met(FUNCODEREF(fun_environment_module_setter_35),T26,LITREF(lit_70),LITREF(lit_71),sloc(93),YPfalse); T28 = VARREF_OR(YevalSmoduleYenvironment_module_setter,YPfalse); T29 = fun_environment_module_setter_35; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YevalSmoduleYenvironment_module_setter,T27); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYenvironment_module),VARREF(YevalSmoduleYenvironment_module_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_72 = YPPsym((P)"environment-module-loader"); lit_73 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_environment_module_loader_36 = YPfab_met(FUNCODEREF(fun_environment_module_loader_36),T30,LITREF(lit_72),LITREF(lit_73),sloc(96),YPfalse); T32 = VARREF_OR(YevalSmoduleYenvironment_module_loader,YPfalse); T33 = fun_environment_module_loader_36; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSmoduleYenvironment_module_loader,T31); lit_74 = YPPsym((P)"environment-module-loader-setter"); lit_75 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_environment_module_loader_setter_37 = YPfab_met(FUNCODEREF(fun_environment_module_loader_setter_37),T34,LITREF(lit_74),LITREF(lit_75),sloc(96),YPfalse); T36 = VARREF_OR(YevalSmoduleYenvironment_module_loader_setter,YPfalse); T37 = fun_environment_module_loader_setter_37; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSmoduleYenvironment_module_loader_setter,T35); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYenvironment_module_loader),VARREF(YevalSmoduleYenvironment_module_loader_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_76 = YPPsym((P)"environment-uses-modules"); lit_77 = YPPlist(1,YPPsym((P)"_x")); T38 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_environment_uses_modules_38 = YPfab_met(FUNCODEREF(fun_environment_uses_modules_38),T38,LITREF(lit_76),LITREF(lit_77),sloc(98),YPfalse); T40 = VARREF_OR(YevalSmoduleYenvironment_uses_modules,YPfalse); T41 = fun_environment_uses_modules_38; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YevalSmoduleYenvironment_uses_modules,T39); lit_78 = YPPsym((P)"environment-uses-modules-setter"); lit_79 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T42 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_environment_uses_modules_setter_39 = YPfab_met(FUNCODEREF(fun_environment_uses_modules_setter_39),T42,LITREF(lit_78),LITREF(lit_79),sloc(98),YPfalse); T44 = VARREF_OR(YevalSmoduleYenvironment_uses_modules_setter,YPfalse); T45 = fun_environment_uses_modules_setter_39; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YevalSmoduleYenvironment_uses_modules_setter,T43); lit_80 = YPPlist(1,YPPsym((P)"_x")); T46 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_40 = YPfab_met(FUNCODEREF(fun_40),T46,YPfalse,LITREF(lit_80),sloc(98),YPfalse); T47 = fun_40; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYenvironment_uses_modules),VARREF(YevalSmoduleYenvironment_uses_modules_setter),VARREF(YgooScolsSvecYLvecG),T47); lit_81 = YPPsym((P)"environment-allows-foreign-names?"); lit_82 = YPPlist(1,YPPsym((P)"_x")); T48 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_environment_allows_foreign_namesQ_41 = YPfab_met(FUNCODEREF(fun_environment_allows_foreign_namesQ_41),T48,LITREF(lit_81),LITREF(lit_82),sloc(102),YPfalse); T50 = VARREF_OR(YevalSmoduleYenvironment_allows_foreign_namesQ,YPfalse); T51 = fun_environment_allows_foreign_namesQ_41; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSmoduleYenvironment_allows_foreign_namesQ,T49); lit_83 = YPPsym((P)"environment-allows-foreign-names?-setter"); lit_84 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T52 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_environment_allows_foreign_namesQ_setter_42 = YPfab_met(FUNCODEREF(fun_environment_allows_foreign_namesQ_setter_42),T52,LITREF(lit_83),LITREF(lit_84),sloc(102),YPfalse); T54 = VARREF_OR(YevalSmoduleYenvironment_allows_foreign_namesQ_setter,YPfalse); T55 = fun_environment_allows_foreign_namesQ_setter_42; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSmoduleYenvironment_allows_foreign_namesQ_setter,T53); lit_85 = YPPlist(1,YPPsym((P)"_x")); T56 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_43 = YPfab_met(FUNCODEREF(fun_43),T56,YPfalse,LITREF(lit_85),sloc(102),YPfalse); T57 = fun_43; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ),VARREF(YevalSmoduleYenvironment_allows_foreign_namesQ_setter),VARREF(YLlogG),T57); lit_86 = YPPsym((P)""); T59 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLstatic_environmentG),Ynil); T58 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_86),T59); VARSET(YevalSmoduleYLstatic_nul_environmentG,T58); T60 = XCALL1(1,VARREF(Ynew),VARREF(YevalSmoduleYLstatic_nul_environmentG)); VARSET(YevalSmoduleYDnul_static_environment,T60); lit_87 = YPPsym((P)""); T62 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLstatic_environmentG),Ynil); T61 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_87),T62); VARSET(YevalSmoduleYLstatic_local_environmentG,T61); lit_88 = YPPsym((P)"env-object-name"); lit_89 = YPPlist(1,YPPsym((P)"x")); lit_90 = YPPlist(1,YPPsym((P)"return")); lit_91 = YPPlist(1,YPPsym((P)"binding")); T65 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T65,YPfalse,LITREF(lit_91),sloc(119),YPfalse); T64 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_45 = YPfab_met(FUNCODEREF(fun_45),T64,YPfalse,LITREF(lit_90),sloc(117),YPfalse); T63 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_env_object_name_46 = YPfab_met(FUNCODEREF(fun_env_object_name_46),T63,LITREF(lit_88),LITREF(lit_89),sloc(116),YPfalse); T67 = VARREF_OR(YevalSmoduleYenv_object_name,YPfalse); T68 = fun_env_object_name_46; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YevalSmoduleYenv_object_name,T66); lit_92 = YPPsym((P)"frame-bindings"); lit_93 = YPPlist(1,YPPsym((P)"env")); T69 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); fun_frame_bindings_47 = YPfab_met(FUNCODEREF(fun_frame_bindings_47),T69,LITREF(lit_92),LITREF(lit_93),sloc(129),YPfalse); T71 = VARREF_OR(YevalSmoduleYframe_bindings,YPfalse); T72 = fun_frame_bindings_47; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YevalSmoduleYframe_bindings,T70); lit_94 = YPPsym((P)"do-static-global-bindings"); lit_95 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"env")); T73 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_static_global_bindings_48 = YPfab_met(FUNCODEREF(fun_do_static_global_bindings_48),T73,LITREF(lit_94),LITREF(lit_95),sloc(134),YPfalse); T75 = VARREF_OR(YevalSmoduleYdo_static_global_bindings,YPfalse); T76 = fun_do_static_global_bindings_48; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); VARSET(YevalSmoduleYdo_static_global_bindings,T74); lit_96 = YPPsym((P)"do-named-static-global-bindings"); lit_97 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"env")); T77 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYdo_named_static_global_bindings = YPfab_met(FUNCODEREF(YevalSmoduleYdo_named_static_global_bindings),T77,LITREF(lit_96),LITREF(lit_97),sloc(141),YPfalse); T78 = YevalSmoduleYdo_named_static_global_bindings; VARSET(YevalSmoduleYdo_named_static_global_bindings,T78); lit_98 = YPPsym((P)"insert-global!"); lit_99 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"r")); T79 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_insert_globalX_50 = YPfab_met(FUNCODEREF(fun_insert_globalX_50),T79,LITREF(lit_98),LITREF(lit_99),sloc(147),YPfalse); T81 = VARREF_OR(YevalSmoduleYinsert_globalX,YPfalse); T82 = fun_insert_globalX_50; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YevalSmoduleYinsert_globalX,T80); lit_100 = YPPsym((P)"insert-globals!"); lit_101 = YPPlist(2,YPPsym((P)"bindings"),YPPsym((P)"r")); lit_102 = YPPlist(1,YPPsym((P)"b")); T84 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_51 = YPfab_met(FUNCODEREF(fun_51),T84,YPfalse,LITREF(lit_102),sloc(152),YPfalse); T83 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_insert_globalsX_52 = YPfab_met(FUNCODEREF(fun_insert_globalsX_52),T83,LITREF(lit_100),LITREF(lit_101),sloc(151),YPfalse); T86 = VARREF_OR(YevalSmoduleYinsert_globalsX,YPfalse); T87 = fun_insert_globalsX_52; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalSmoduleYinsert_globalsX,T85); lit_103 = YPPsym((P)"find-static-global-environment"); lit_104 = YPPlist(1,YPPsym((P)"r")); T88 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_local_environmentG)),YPfalse,YPint((P)1),VARREF(YevalSmoduleYLstatic_global_environmentG),Ynil); fun_find_static_global_environment_53 = YPfab_met(FUNCODEREF(fun_find_static_global_environment_53),T88,LITREF(lit_103),LITREF(lit_104),sloc(154),YPfalse); T90 = VARREF_OR(YevalSmoduleYfind_static_global_environment,YPfalse); T91 = fun_find_static_global_environment_53; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YevalSmoduleYfind_static_global_environment,T89); lit_105 = YPPlist(1,YPPsym((P)"r")); T92 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)1),VARREF(YevalSmoduleYLstatic_global_environmentG),Ynil); fun_find_static_global_environment_54 = YPfab_met(FUNCODEREF(fun_find_static_global_environment_54),T92,LITREF(lit_103),LITREF(lit_105),sloc(158),YPfalse); T94 = VARREF_OR(YevalSmoduleYfind_static_global_environment,YPfalse); T95 = fun_find_static_global_environment_54; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalSmoduleYfind_static_global_environment,T93); lit_106 = YPPsym((P)"find-syntax-environment"); lit_107 = YPPlist(1,YPPsym((P)"r")); T96 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)1),VARREF(YevalSmoduleYLstatic_global_environmentG),Ynil); fun_find_syntax_environment_55 = YPfab_met(FUNCODEREF(fun_find_syntax_environment_55),T96,LITREF(lit_106),LITREF(lit_107),sloc(162),YPfalse); T98 = VARREF_OR(YevalSmoduleYfind_syntax_environment,YPfalse); T99 = fun_find_syntax_environment_55; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YevalSmoduleYfind_syntax_environment,T97); lit_108 = YPPsym((P)"find-environment-module"); lit_109 = YPPlist(1,YPPsym((P)"r")); T100 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLstatic_environmentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_find_environment_module_56 = YPfab_met(FUNCODEREF(fun_find_environment_module_56),T100,LITREF(lit_108),LITREF(lit_109),sloc(166),YPfalse); T102 = VARREF_OR(YevalSmoduleYfind_environment_module,YPfalse); T103 = fun_find_environment_module_56; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSmoduleYfind_environment_module,T101); lit_110 = YPPsym((P)"find-binding"); lit_111 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T105 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T104 = YPfab_gen(T105,LITREF(lit_110),LITREF(lit_111),YPfalse); VARSET(YevalSmoduleYfind_binding,T104); lit_112 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"r")); T106 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_find_binding_57 = YPfab_met(FUNCODEREF(fun_find_binding_57),T106,LITREF(lit_110),LITREF(lit_112),sloc(171),YPfalse); T108 = VARREF_OR(YevalSmoduleYfind_binding,YPfalse); T109 = fun_find_binding_57; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YevalSmoduleYfind_binding,T107); lit_113 = YPPsym((P)""); T111 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T110 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_113),T111); VARSET(YevalSmoduleYLtransactionG,T110); lit_114 = YPPsym((P)"transaction-implemented-bindings"); lit_115 = YPPlist(1,YPPsym((P)"_x")); T112 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLtransactionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_transaction_implemented_bindings_58 = YPfab_met(FUNCODEREF(fun_transaction_implemented_bindings_58),T112,LITREF(lit_114),LITREF(lit_115),sloc(226),YPfalse); T114 = VARREF_OR(YevalSmoduleYtransaction_implemented_bindings,YPfalse); T115 = fun_transaction_implemented_bindings_58; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YevalSmoduleYtransaction_implemented_bindings,T113); lit_116 = YPPlist(1,YPPsym((P)"_x")); T116 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_59 = YPfab_met(FUNCODEREF(fun_59),T116,YPfalse,LITREF(lit_116),sloc(226),YPfalse); T117 = fun_59; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLtransactionG),VARREF(YevalSmoduleYtransaction_implemented_bindings),YPfalse,VARREF(YgooScolsScolYLtabG),T117); lit_117 = YPPsym((P)"transaction-dependents"); lit_118 = YPPlist(1,YPPsym((P)"_x")); T118 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLtransactionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_transaction_dependents_60 = YPfab_met(FUNCODEREF(fun_transaction_dependents_60),T118,LITREF(lit_117),LITREF(lit_118),sloc(227),YPfalse); T120 = VARREF_OR(YevalSmoduleYtransaction_dependents,YPfalse); T121 = fun_transaction_dependents_60; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YevalSmoduleYtransaction_dependents,T119); lit_119 = YPPlist(1,YPPsym((P)"_x")); T122 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_61 = YPfab_met(FUNCODEREF(fun_61),T122,YPfalse,LITREF(lit_119),sloc(227),YPfalse); T123 = fun_61; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLtransactionG),VARREF(YevalSmoduleYtransaction_dependents),YPfalse,VARREF(YgooScolsScolYLtabG),T123); DYNDEFSET(YevalSmoduleYTcurrent_subtransactionT,YPfalse); lit_120 = YPPsym((P)"transaction-register-implemented-binding"); lit_121 = YPPlist(1,YPPsym((P)"b")); lit_122 = YPsb((P)"Can't register implemented foreign binding (no subtransaction)"); T124 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYtransaction_register_implemented_binding = YPfab_met(FUNCODEREF(YevalSmoduleYtransaction_register_implemented_binding),T124,LITREF(lit_120),LITREF(lit_121),sloc(231),YPfalse); T125 = YevalSmoduleYtransaction_register_implemented_binding; VARSET(YevalSmoduleYtransaction_register_implemented_binding,T125); lit_123 = YPPsym((P)"transaction-register-dependent"); lit_124 = YPPlist(1,YPPsym((P)"d")); lit_125 = YPsb((P)"Can't register dependent (no subtransaction)"); T128 = YPfab_sig(YPPlist(1,VARREF(YevalSdependencyYLdependentG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T127 = YevalSmoduleYtransaction_register_dependent = YPfab_met(FUNCODEREF(YevalSmoduleYtransaction_register_dependent),T128,LITREF(lit_123),LITREF(lit_124),sloc(237),YPfalse); T130 = YevalSmoduleYtransaction_register_dependent; T129 = VARSET(YevalSmoduleYtransaction_register_dependent,T130); T126 = T129; return T126; } P YevalSmoduleY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138; DEFCREGS(); lit_126 = YPPsym((P)"transaction-nul?"); lit_127 = YPPlist(1,YPPsym((P)"t")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLtransactionG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YevalSmoduleYtransaction_nulQ = YPfab_met(FUNCODEREF(YevalSmoduleYtransaction_nulQ),T0,LITREF(lit_126),LITREF(lit_127),sloc(242),YPfalse); T1 = YevalSmoduleYtransaction_nulQ; VARSET(YevalSmoduleYtransaction_nulQ,T1); lit_128 = YPPsym((P)"merge-transactions!"); lit_129 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); lit_130 = YPPlist(2,YPPsym((P)"k"),YPPsym((P)"v")); lit_131 = YPPlist(2,YPPsym((P)"k"),YPPsym((P)"v")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_65 = YPfab_met(FUNCODEREF(fun_65),T4,YPfalse,LITREF(lit_130),sloc(257),YPfalse); T3 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_66 = YPfab_met(FUNCODEREF(fun_66),T3,YPfalse,LITREF(lit_131),sloc(258),YPfalse); T2 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLtransactionG),VARREF(YevalSmoduleYLtransactionG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLtransactionG),Ynil); YevalSmoduleYmerge_transactionsX = YPfab_met(FUNCODEREF(YevalSmoduleYmerge_transactionsX),T2,LITREF(lit_128),LITREF(lit_129),sloc(246),YPfalse); T5 = YevalSmoduleYmerge_transactionsX; VARSET(YevalSmoduleYmerge_transactionsX,T5); lit_132 = YPPsym((P)"roll-back-transaction"); lit_133 = YPPlist(1,YPPsym((P)"t")); lit_134 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"junk")); lit_135 = YPPlist(2,YPPsym((P)"dependent"),YPPsym((P)"junk")); T8 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_68 = YPfab_met(FUNCODEREF(fun_68),T8,YPfalse,LITREF(lit_134),sloc(263),YPfalse); T7 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_69 = YPfab_met(FUNCODEREF(fun_69),T7,YPfalse,LITREF(lit_135),sloc(266),YPfalse); T6 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLtransactionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYroll_back_transaction = YPfab_met(FUNCODEREF(YevalSmoduleYroll_back_transaction),T6,LITREF(lit_132),LITREF(lit_133),sloc(261),YPfalse); T9 = YevalSmoduleYroll_back_transaction; VARSET(YevalSmoduleYroll_back_transaction,T9); lit_136 = YPPsym((P)"call-with-subtransaction"); lit_137 = YPPlist(2,YPPsym((P)"module"),YPPsym((P)"thunk")); lit_138 = Ynil; T12 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_71 = YPfab_met(FUNCODEREF(fun_71),T12,YPfalse,LITREF(lit_138),sloc(272),YPfalse); T11 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_72 = YPfab_met(FUNCODEREF(fun_72),T11,YPfalse,LITREF(lit_138),sloc(282),YPfalse); T10 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYcall_with_subtransaction = YPfab_met(FUNCODEREF(YevalSmoduleYcall_with_subtransaction),T10,LITREF(lit_136),LITREF(lit_137),sloc(269),YPfalse); T13 = YevalSmoduleYcall_with_subtransaction; VARSET(YevalSmoduleYcall_with_subtransaction,T13); lit_139 = YPPlist(1,YPPsym((P)"exp")); lit_140 = YPPlist(1,YPPsym((P)"return")); lit_141 = YPPsym((P)"x-1487"); lit_142 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_143 = YPPsym((P)"with-subtransaction"); lit_144 = YPsb((P)"Match Pattern Failure"); lit_145 = YPPsym((P)"fun"); lit_146 = Ynil; T16 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1487_74 = YPfab_met(FUNCODEREF(fun_x_1487_74),T16,LITREF(lit_141),LITREF(lit_142),YPfalse,YPfalse); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_75 = YPfab_met(FUNCODEREF(fun_75),T15,YPfalse,LITREF(lit_140),YPfalse,YPfalse); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_76 = YPfab_met(FUNCODEREF(fun_76),T14,YPfalse,LITREF(lit_139),YPfalse,YPfalse); T17 = fun_76; YPmacro(YPPsym((P)"eval/module"),YPPsym((P)"with-subtransaction"),T17); lit_147 = YPPsym((P)""); T19 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T18 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_147),T19); VARSET(YevalSmoduleYLmodule_loaderG,T18); lit_148 = YPPsym((P)"module-loader-modules"); lit_149 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_loader_modules_77 = YPfab_met(FUNCODEREF(fun_module_loader_modules_77),T20,LITREF(lit_148),LITREF(lit_149),sloc(317),YPfalse); T22 = VARREF_OR(YevalSmoduleYmodule_loader_modules,YPfalse); T23 = fun_module_loader_modules_77; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSmoduleYmodule_loader_modules,T21); lit_150 = YPPsym((P)"module-loader-modules-setter"); lit_151 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(2,VARREF(YgooScolsScolYLtabG),VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_loader_modules_setter_78 = YPfab_met(FUNCODEREF(fun_module_loader_modules_setter_78),T24,LITREF(lit_150),LITREF(lit_151),sloc(317),YPfalse); T26 = VARREF_OR(YevalSmoduleYmodule_loader_modules_setter,YPfalse); T27 = fun_module_loader_modules_setter_78; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSmoduleYmodule_loader_modules_setter,T25); lit_152 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_79 = YPfab_met(FUNCODEREF(fun_79),T28,YPfalse,LITREF(lit_152),sloc(317),YPfalse); T29 = fun_79; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YevalSmoduleYmodule_loader_modules),VARREF(YevalSmoduleYmodule_loader_modules_setter),VARREF(YgooScolsScolYLtabG),T29); lit_153 = YPPsym((P)"module-loader-stack"); lit_154 = YPPlist(1,YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_loader_stack_80 = YPfab_met(FUNCODEREF(fun_module_loader_stack_80),T30,LITREF(lit_153),LITREF(lit_154),sloc(320),YPfalse); T32 = VARREF_OR(YevalSmoduleYmodule_loader_stack,YPfalse); T33 = fun_module_loader_stack_80; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YevalSmoduleYmodule_loader_stack,T31); lit_155 = YPPsym((P)"module-loader-stack-setter"); lit_156 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_loader_stack_setter_81 = YPfab_met(FUNCODEREF(fun_module_loader_stack_setter_81),T34,LITREF(lit_155),LITREF(lit_156),sloc(320),YPfalse); T36 = VARREF_OR(YevalSmoduleYmodule_loader_stack_setter,YPfalse); T37 = fun_module_loader_stack_setter_81; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalSmoduleYmodule_loader_stack_setter,T35); lit_157 = YPPlist(1,YPPsym((P)"_x")); T38 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_82 = YPfab_met(FUNCODEREF(fun_82),T38,YPfalse,LITREF(lit_157),sloc(320),YPfalse); T39 = fun_82; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YevalSmoduleYmodule_loader_stack),VARREF(YevalSmoduleYmodule_loader_stack_setter),VARREF(YLlstG),T39); lit_158 = YPPsym((P)""); T41 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T40 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_158),T41); VARSET(YevalSmoduleYLmoduleG,T40); lit_159 = YPPsym((P)"module-name"); lit_160 = YPPlist(1,YPPsym((P)"_x")); T42 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_name_83 = YPfab_met(FUNCODEREF(fun_module_name_83),T42,LITREF(lit_159),LITREF(lit_160),sloc(325),YPfalse); T44 = VARREF_OR(YevalSmoduleYmodule_name,YPfalse); T45 = fun_module_name_83; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YevalSmoduleYmodule_name,T43); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_name),YPfalse,VARREF(YLsymG),VARREF(YPprop_unbound_error)); lit_161 = YPPsym((P)"module-mangled-name"); lit_162 = YPPlist(1,YPPsym((P)"_x")); T46 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_mangled_name_84 = YPfab_met(FUNCODEREF(fun_module_mangled_name_84),T46,LITREF(lit_161),LITREF(lit_162),sloc(326),YPfalse); T48 = VARREF_OR(YevalSmoduleYmodule_mangled_name,YPfalse); T49 = fun_module_mangled_name_84; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YevalSmoduleYmodule_mangled_name,T47); lit_163 = YPPsym((P)"module-mangled-name-setter"); lit_164 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T51 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T50 = YPfab_sig(YPPlist(2,T51,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_mangled_name_setter_85 = YPfab_met(FUNCODEREF(fun_module_mangled_name_setter_85),T50,LITREF(lit_163),LITREF(lit_164),sloc(326),YPfalse); T53 = VARREF_OR(YevalSmoduleYmodule_mangled_name_setter,YPfalse); T54 = fun_module_mangled_name_setter_85; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YevalSmoduleYmodule_mangled_name_setter,T52); lit_165 = YPPlist(1,YPPsym((P)"_x")); T55 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_86 = YPfab_met(FUNCODEREF(fun_86),T55,YPfalse,LITREF(lit_165),sloc(326),YPfalse); T56 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T57 = fun_86; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_mangled_name),VARREF(YevalSmoduleYmodule_mangled_name_setter),T56,T57); lit_166 = YPPsym((P)"module-mangled-string-name"); lit_167 = YPPlist(1,YPPsym((P)"_x")); T58 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_mangled_string_name_87 = YPfab_met(FUNCODEREF(fun_module_mangled_string_name_87),T58,LITREF(lit_166),LITREF(lit_167),sloc(327),YPfalse); T60 = VARREF_OR(YevalSmoduleYmodule_mangled_string_name,YPfalse); T61 = fun_module_mangled_string_name_87; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YevalSmoduleYmodule_mangled_string_name,T59); lit_168 = YPPsym((P)"module-mangled-string-name-setter"); lit_169 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T63 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T62 = YPfab_sig(YPPlist(2,T63,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_mangled_string_name_setter_88 = YPfab_met(FUNCODEREF(fun_module_mangled_string_name_setter_88),T62,LITREF(lit_168),LITREF(lit_169),sloc(327),YPfalse); T65 = VARREF_OR(YevalSmoduleYmodule_mangled_string_name_setter,YPfalse); T66 = fun_module_mangled_string_name_setter_88; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YevalSmoduleYmodule_mangled_string_name_setter,T64); lit_170 = YPPlist(1,YPPsym((P)"_x")); T67 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_89 = YPfab_met(FUNCODEREF(fun_89),T67,YPfalse,LITREF(lit_170),sloc(327),YPfalse); T68 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T69 = fun_89; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_mangled_string_name),VARREF(YevalSmoduleYmodule_mangled_string_name_setter),T68,T69); lit_171 = YPPsym((P)"module-target-environment"); lit_172 = YPPlist(1,YPPsym((P)"_x")); T70 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_target_environment_90 = YPfab_met(FUNCODEREF(fun_module_target_environment_90),T70,LITREF(lit_171),LITREF(lit_172),sloc(329),YPfalse); T72 = VARREF_OR(YevalSmoduleYmodule_target_environment,YPfalse); T73 = fun_module_target_environment_90; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSmoduleYmodule_target_environment,T71); lit_173 = YPPsym((P)"module-target-environment-setter"); lit_174 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_target_environment_setter_91 = YPfab_met(FUNCODEREF(fun_module_target_environment_setter_91),T74,LITREF(lit_173),LITREF(lit_174),sloc(329),YPfalse); T76 = VARREF_OR(YevalSmoduleYmodule_target_environment_setter,YPfalse); T77 = fun_module_target_environment_setter_91; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YevalSmoduleYmodule_target_environment_setter,T75); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_target_environment),VARREF(YevalSmoduleYmodule_target_environment_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_175 = YPPsym((P)"module-syntax-environment"); lit_176 = YPPlist(1,YPPsym((P)"_x")); T78 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_syntax_environment_92 = YPfab_met(FUNCODEREF(fun_module_syntax_environment_92),T78,LITREF(lit_175),LITREF(lit_176),sloc(330),YPfalse); T80 = VARREF_OR(YevalSmoduleYmodule_syntax_environment,YPfalse); T81 = fun_module_syntax_environment_92; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSmoduleYmodule_syntax_environment,T79); lit_177 = YPPsym((P)"module-syntax-environment-setter"); lit_178 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T82 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_syntax_environment_setter_93 = YPfab_met(FUNCODEREF(fun_module_syntax_environment_setter_93),T82,LITREF(lit_177),LITREF(lit_178),sloc(330),YPfalse); T84 = VARREF_OR(YevalSmoduleYmodule_syntax_environment_setter,YPfalse); T85 = fun_module_syntax_environment_setter_93; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YevalSmoduleYmodule_syntax_environment_setter,T83); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_syntax_environment),VARREF(YevalSmoduleYmodule_syntax_environment_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_179 = YPPsym((P)"%module-exports"); lit_180 = YPPlist(1,YPPsym((P)"_x")); T86 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pmodule_exports_94 = YPfab_met(FUNCODEREF(fun_Pmodule_exports_94),T86,LITREF(lit_179),LITREF(lit_180),sloc(332),YPfalse); T88 = VARREF_OR(YevalSmoduleYPmodule_exports,YPfalse); T89 = fun_Pmodule_exports_94; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YevalSmoduleYPmodule_exports,T87); lit_181 = YPPlist(1,YPPsym((P)"_x")); T90 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_95 = YPfab_met(FUNCODEREF(fun_95),T90,YPfalse,LITREF(lit_181),sloc(332),YPfalse); T91 = fun_95; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYPmodule_exports),YPfalse,VARREF(YgooScolsScolYLtabG),T91); lit_182 = YPPsym((P)"module-data-processed?"); lit_183 = YPPlist(1,YPPsym((P)"_x")); T92 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_data_processedQ_96 = YPfab_met(FUNCODEREF(fun_module_data_processedQ_96),T92,LITREF(lit_182),LITREF(lit_183),sloc(333),YPfalse); T94 = VARREF_OR(YevalSmoduleYmodule_data_processedQ,YPfalse); T95 = fun_module_data_processedQ_96; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalSmoduleYmodule_data_processedQ,T93); lit_184 = YPPsym((P)"module-data-processed?-setter"); lit_185 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T96 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_data_processedQ_setter_97 = YPfab_met(FUNCODEREF(fun_module_data_processedQ_setter_97),T96,LITREF(lit_184),LITREF(lit_185),sloc(333),YPfalse); T98 = VARREF_OR(YevalSmoduleYmodule_data_processedQ_setter,YPfalse); T99 = fun_module_data_processedQ_setter_97; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YevalSmoduleYmodule_data_processedQ_setter,T97); lit_186 = YPPlist(1,YPPsym((P)"_x")); T100 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_98 = YPfab_met(FUNCODEREF(fun_98),T100,YPfalse,LITREF(lit_186),sloc(333),YPfalse); T101 = fun_98; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_data_processedQ),VARREF(YevalSmoduleYmodule_data_processedQ_setter),VARREF(YLlogG),T101); lit_187 = YPPsym((P)"module-runtime-data"); lit_188 = YPPlist(1,YPPsym((P)"_x")); T102 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_runtime_data_99 = YPfab_met(FUNCODEREF(fun_module_runtime_data_99),T102,LITREF(lit_187),LITREF(lit_188),sloc(334),YPfalse); T104 = VARREF_OR(YevalSmoduleYmodule_runtime_data,YPfalse); T105 = fun_module_runtime_data_99; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YevalSmoduleYmodule_runtime_data,T103); lit_189 = YPPsym((P)"module-runtime-data-setter"); lit_190 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T106 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_runtime_data_setter_100 = YPfab_met(FUNCODEREF(fun_module_runtime_data_setter_100),T106,LITREF(lit_189),LITREF(lit_190),sloc(334),YPfalse); T108 = VARREF_OR(YevalSmoduleYmodule_runtime_data_setter,YPfalse); T109 = fun_module_runtime_data_setter_100; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YevalSmoduleYmodule_runtime_data_setter,T107); lit_191 = YPPlist(1,YPPsym((P)"_x")); T110 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_101 = YPfab_met(FUNCODEREF(fun_101),T110,YPfalse,LITREF(lit_191),sloc(334),YPfalse); T111 = fun_101; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_runtime_data),VARREF(YevalSmoduleYmodule_runtime_data_setter),VARREF(YLanyG),T111); lit_192 = YPPsym((P)"module-transaction"); lit_193 = YPPlist(1,YPPsym((P)"_x")); T112 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_transaction_102 = YPfab_met(FUNCODEREF(fun_module_transaction_102),T112,LITREF(lit_192),LITREF(lit_193),sloc(335),YPfalse); T114 = VARREF_OR(YevalSmoduleYmodule_transaction,YPfalse); T115 = fun_module_transaction_102; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YevalSmoduleYmodule_transaction,T113); lit_194 = YPPsym((P)"module-transaction-setter"); lit_195 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T116 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLtransactionG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_module_transaction_setter_103 = YPfab_met(FUNCODEREF(fun_module_transaction_setter_103),T116,LITREF(lit_194),LITREF(lit_195),sloc(335),YPfalse); T118 = VARREF_OR(YevalSmoduleYmodule_transaction_setter,YPfalse); T119 = fun_module_transaction_setter_103; T117 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T118,T119); VARSET(YevalSmoduleYmodule_transaction_setter,T117); lit_196 = YPPlist(1,YPPsym((P)"_x")); T120 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_104 = YPfab_met(FUNCODEREF(fun_104),T120,YPfalse,LITREF(lit_196),sloc(335),YPfalse); T121 = fun_104; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_transaction),VARREF(YevalSmoduleYmodule_transaction_setter),VARREF(YevalSmoduleYLtransactionG),T121); lit_197 = YPPsym((P)"module-referenced-bindings"); lit_198 = YPPlist(1,YPPsym((P)"_x")); T122 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_referenced_bindings_105 = YPfab_met(FUNCODEREF(fun_module_referenced_bindings_105),T122,LITREF(lit_197),LITREF(lit_198),sloc(336),YPfalse); T124 = VARREF_OR(YevalSmoduleYmodule_referenced_bindings,YPfalse); T125 = fun_module_referenced_bindings_105; T123 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T124,T125); VARSET(YevalSmoduleYmodule_referenced_bindings,T123); lit_199 = YPPlist(1,YPPsym((P)"_x")); T126 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_106 = YPfab_met(FUNCODEREF(fun_106),T126,YPfalse,LITREF(lit_199),sloc(336),YPfalse); T127 = fun_106; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_referenced_bindings),YPfalse,VARREF(YgooScolsScolYLtabG),T127); lit_200 = YPPsym((P)"module-uses-c-files"); lit_201 = YPPlist(1,YPPsym((P)"_x")); T128 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_uses_c_files_107 = YPfab_met(FUNCODEREF(fun_module_uses_c_files_107),T128,LITREF(lit_200),LITREF(lit_201),sloc(337),YPfalse); T130 = VARREF_OR(YevalSmoduleYmodule_uses_c_files,YPfalse); T131 = fun_module_uses_c_files_107; T129 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T130,T131); VARSET(YevalSmoduleYmodule_uses_c_files,T129); lit_202 = YPPlist(1,YPPsym((P)"_x")); T132 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_108 = YPfab_met(FUNCODEREF(fun_108),T132,YPfalse,LITREF(lit_202),sloc(337),YPfalse); T133 = fun_108; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_uses_c_files),YPfalse,VARREF(YgooScolsSvecYLvecG),T133); lit_203 = YPPsym((P)"module-c-forms"); lit_204 = YPPlist(1,YPPsym((P)"_x")); T134 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_c_forms_109 = YPfab_met(FUNCODEREF(fun_module_c_forms_109),T134,LITREF(lit_203),LITREF(lit_204),sloc(338),YPfalse); T136 = VARREF_OR(YevalSmoduleYmodule_c_forms,YPfalse); T137 = fun_module_c_forms_109; T135 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T136,T137); VARSET(YevalSmoduleYmodule_c_forms,T135); T138 = YPfalse; return T138; } P YevalSmoduleY___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116; DEFCREGS(); lit_205 = YPPlist(1,YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_110 = YPfab_met(FUNCODEREF(fun_110),T0,YPfalse,LITREF(lit_205),sloc(338),YPfalse); T1 = fun_110; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_c_forms),YPfalse,VARREF(YgooScolsSvecYLvecG),T1); lit_206 = YPPsym((P)"module-uses-c-includes"); lit_207 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_uses_c_includes_111 = YPfab_met(FUNCODEREF(fun_module_uses_c_includes_111),T2,LITREF(lit_206),LITREF(lit_207),sloc(339),YPfalse); T4 = VARREF_OR(YevalSmoduleYmodule_uses_c_includes,YPfalse); T5 = fun_module_uses_c_includes_111; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YevalSmoduleYmodule_uses_c_includes,T3); lit_208 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_112 = YPfab_met(FUNCODEREF(fun_112),T6,YPfalse,LITREF(lit_208),sloc(339),YPfalse); T7 = fun_112; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_uses_c_includes),YPfalse,VARREF(YgooScolsSvecYLvecG),T7); lit_209 = YPPsym((P)"module-uses-c-libraries"); lit_210 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_module_uses_c_libraries_113 = YPfab_met(FUNCODEREF(fun_module_uses_c_libraries_113),T8,LITREF(lit_209),LITREF(lit_210),sloc(340),YPfalse); T10 = VARREF_OR(YevalSmoduleYmodule_uses_c_libraries,YPfalse); T11 = fun_module_uses_c_libraries_113; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSmoduleYmodule_uses_c_libraries,T9); lit_211 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_114 = YPfab_met(FUNCODEREF(fun_114),T12,YPfalse,LITREF(lit_211),sloc(340),YPfalse); T13 = fun_114; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYmodule_uses_c_libraries),YPfalse,VARREF(YgooScolsSvecYLvecG),T13); lit_212 = YPPsym((P)"ensure-module-data"); lit_213 = YPPlist(1,YPPsym((P)"module")); T15 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_212),LITREF(lit_213),YPfalse); VARSET(YevalSmoduleYensure_module_data,T14); lit_214 = YPPsym((P)"module-exports"); lit_215 = YPPlist(1,YPPsym((P)"x")); T16 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLtabG),Ynil); fun_module_exports_115 = YPfab_met(FUNCODEREF(fun_module_exports_115),T16,LITREF(lit_214),LITREF(lit_215),sloc(344),YPfalse); T18 = VARREF_OR(YevalSmoduleYmodule_exports,YPfalse); T19 = fun_module_exports_115; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSmoduleYmodule_exports,T17); lit_216 = YPPsym((P)"import-global!"); lit_217 = YPPlist(2,YPPsym((P)"b"),YPPsym((P)"env")); lit_218 = YPsb((P)"warning: '%s' from %s clobbers local binding.\n"); T20 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYimport_globalX = YPfab_met(FUNCODEREF(YevalSmoduleYimport_globalX),T20,LITREF(lit_216),LITREF(lit_217),sloc(349),YPfalse); T21 = YevalSmoduleYimport_globalX; VARSET(YevalSmoduleYimport_globalX,T21); lit_219 = YPPsym((P)"insert-and-mangle-global!"); lit_220 = YPPlist(3,YPPsym((P)"binding"),YPPsym((P)"mangle-prefix"),YPPsym((P)"r")); T22 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLstrG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_insert_and_mangle_globalX_117 = YPfab_met(FUNCODEREF(fun_insert_and_mangle_globalX_117),T22,LITREF(lit_219),LITREF(lit_220),sloc(357),YPfalse); T24 = VARREF_OR(YevalSmoduleYinsert_and_mangle_globalX,YPfalse); T25 = fun_insert_and_mangle_globalX_117; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSmoduleYinsert_and_mangle_globalX,T23); lit_221 = YPPsym((P)"import-and-mangle-global!"); lit_222 = YPPlist(3,YPPsym((P)"b"),YPPsym((P)"mangle-prefix"),YPPsym((P)"env")); lit_223 = YPsb((P)"warning: '%s' from %s clobbers local binding.\n"); T26 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YLstrG),VARREF(YevalSmoduleYLstatic_global_environmentG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSmoduleYimport_and_mangle_globalX = YPfab_met(FUNCODEREF(YevalSmoduleYimport_and_mangle_globalX),T26,LITREF(lit_221),LITREF(lit_222),sloc(363),YPfalse); T27 = YevalSmoduleYimport_and_mangle_globalX; VARSET(YevalSmoduleYimport_and_mangle_globalX,T27); lit_224 = YPPsym((P)"set-module-environments"); lit_225 = YPPlist(3,YPPsym((P)"mod"),YPPsym((P)"syntax-env"),YPPsym((P)"target-env")); T28 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSmoduleYset_module_environments = YPfab_met(FUNCODEREF(YevalSmoduleYset_module_environments),T28,LITREF(lit_224),LITREF(lit_225),sloc(385),YPfalse); T29 = YevalSmoduleYset_module_environments; VARSET(YevalSmoduleYset_module_environments,T29); lit_226 = YPPsym((P)"do-module-loader-modules"); lit_227 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"loader")); lit_228 = YPPlist(1,YPPsym((P)"mod")); T31 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_120 = YPfab_met(FUNCODEREF(fun_120),T31,YPfalse,LITREF(lit_228),sloc(392),YPfalse); T30 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYdo_module_loader_modules = YPfab_met(FUNCODEREF(YevalSmoduleYdo_module_loader_modules),T30,LITREF(lit_226),LITREF(lit_227),sloc(391),YPfalse); T32 = YevalSmoduleYdo_module_loader_modules; VARSET(YevalSmoduleYdo_module_loader_modules,T32); lit_229 = YPPsym((P)"module-loader-module-type"); lit_230 = YPPlist(1,YPPsym((P)"loader")); T33 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_loaderG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_module_loader_module_type_122 = YPfab_met(FUNCODEREF(fun_module_loader_module_type_122),T33,LITREF(lit_229),LITREF(lit_230),sloc(397),YPfalse); T35 = VARREF_OR(YevalSmoduleYmodule_loader_module_type,YPfalse); T36 = fun_module_loader_module_type_122; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YevalSmoduleYmodule_loader_module_type,T34); lit_231 = YPPsym((P)"register-module!"); lit_232 = YPPlist(2,YPPsym((P)"module-loader"),YPPsym((P)"mod")); T37 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmodule_loaderG),Ynil); YevalSmoduleYregister_moduleX = YPfab_met(FUNCODEREF(YevalSmoduleYregister_moduleX),T37,LITREF(lit_231),LITREF(lit_232),sloc(401),YPfalse); T38 = YevalSmoduleYregister_moduleX; VARSET(YevalSmoduleYregister_moduleX,T38); lit_233 = YPPsym((P)"probe-module"); lit_234 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"name")); T39 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); YevalSmoduleYprobe_module = YPfab_met(FUNCODEREF(YevalSmoduleYprobe_module),T39,LITREF(lit_233),LITREF(lit_234),sloc(407),YPfalse); T40 = YevalSmoduleYprobe_module; VARSET(YevalSmoduleYprobe_module,T40); lit_235 = YPPsym((P)"load-and-register-module"); lit_236 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"name")); lit_237 = YPsb((P)" "); lit_238 = YPsb((P)"%s: error: Circular use of %s not allowed"); lit_239 = YPsb((P)"%s[Loading module %s...\n"); lit_240 = YPsb((P)"%s]\n"); T43 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_125 = YPfab_met(FUNCODEREF(fun_125),T43,YPfalse,LITREF(lit_138),sloc(428),YPfalse); T42 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_126 = YPfab_met(FUNCODEREF(fun_126),T42,YPfalse,LITREF(lit_138),sloc(429),YPfalse); T41 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); YevalSmoduleYload_and_register_module = YPfab_met(FUNCODEREF(YevalSmoduleYload_and_register_module),T41,LITREF(lit_235),LITREF(lit_236),sloc(412),YPfalse); T44 = YevalSmoduleYload_and_register_module; VARSET(YevalSmoduleYload_and_register_module,T44); lit_241 = YPPsym((P)"load-module"); lit_242 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"name")); T46 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); T45 = YPfab_gen(T46,LITREF(lit_241),LITREF(lit_242),YPfalse); VARSET(YevalSmoduleYload_module,T45); lit_243 = YPPsym((P)"export-binding!"); lit_244 = YPPlist(3,YPPsym((P)"module"),YPPsym((P)"name"),YPPsym((P)"binding")); lit_245 = YPsb((P)"Tried to export %= and %= from %= as %="); T48 = XCALL1(1,VARREF(YgooStypesYtE),YPfalse); T47 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYLbinding_nameG),VARREF(YLanyG)),YPfalse,YPint((P)3),T48,Ynil); YevalSmoduleYexport_bindingX = YPfab_met(FUNCODEREF(YevalSmoduleYexport_bindingX),T47,LITREF(lit_243),LITREF(lit_244),sloc(445),YPfalse); T49 = YevalSmoduleYexport_bindingX; VARSET(YevalSmoduleYexport_bindingX,T49); lit_246 = YPPsym((P)"binding-native-to?"); lit_247 = YPPlist(2,YPPsym((P)"binding"),YPPsym((P)"module")); T50 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YevalSmoduleYbinding_native_toQ = YPfab_met(FUNCODEREF(YevalSmoduleYbinding_native_toQ),T50,LITREF(lit_246),LITREF(lit_247),sloc(460),YPfalse); T51 = YevalSmoduleYbinding_native_toQ; VARSET(YevalSmoduleYbinding_native_toQ,T51); lit_248 = YPPsym((P)"report-undefined-global-bindings"); lit_249 = YPPlist(1,YPPsym((P)"mod")); lit_250 = YPPlist(1,YPPsym((P)"binding")); lit_251 = YPsb((P)"%s: warning: undefined binding '%s'.\n"); T53 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_130 = YPfab_met(FUNCODEREF(fun_130),T53,YPfalse,LITREF(lit_250),sloc(466),YPfalse); T52 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYreport_undefined_global_bindings = YPfab_met(FUNCODEREF(YevalSmoduleYreport_undefined_global_bindings),T52,LITREF(lit_248),LITREF(lit_249),sloc(464),YPfalse); T54 = YevalSmoduleYreport_undefined_global_bindings; VARSET(YevalSmoduleYreport_undefined_global_bindings,T54); lit_252 = YPPsym((P)"compute-transitive-users"); lit_253 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"modnames")); lit_254 = YPPsym((P)"add-user"); lit_255 = YPPlist(1,YPPsym((P)"modname")); lit_256 = YPPlist(1,YPPsym((P)"mod")); lit_257 = YPPlist(1,YPPsym((P)"uses-mod")); lit_258 = YPPlist(1,YPPsym((P)"v")); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_132 = YPfab_met(FUNCODEREF(fun_132),T59,YPfalse,LITREF(lit_257),sloc(485),YPfalse); T58 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_133 = YPfab_met(FUNCODEREF(fun_133),T58,YPfalse,LITREF(lit_256),sloc(483),YPfalse); T57 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_add_user_134 = YPfab_met(FUNCODEREF(fun_add_user_134),T57,LITREF(lit_254),LITREF(lit_255),sloc(479),YPfalse); T56 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_135 = YPfab_met(FUNCODEREF(fun_135),T56,YPfalse,LITREF(lit_258),sloc(491),YPfalse); T55 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YevalSmoduleYcompute_transitive_users = YPfab_met(FUNCODEREF(YevalSmoduleYcompute_transitive_users),T55,LITREF(lit_252),LITREF(lit_253),sloc(476),YPfalse); T60 = YevalSmoduleYcompute_transitive_users; VARSET(YevalSmoduleYcompute_transitive_users,T60); lit_259 = YPPsym((P)"remove-module-internal!"); lit_260 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"mod")); T61 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYremove_module_internalX = YPfab_met(FUNCODEREF(YevalSmoduleYremove_module_internalX),T61,LITREF(lit_259),LITREF(lit_260),sloc(496),YPfalse); T62 = YevalSmoduleYremove_module_internalX; VARSET(YevalSmoduleYremove_module_internalX,T62); lit_261 = YPPsym((P)"remove-modules-by-name!"); lit_262 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"modnames")); lit_263 = YPPlist(1,YPPsym((P)"modname")); T65 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_138 = YPfab_met(FUNCODEREF(fun_138),T65,YPfalse,LITREF(lit_263),sloc(503),YPfalse); T64 = XCALL1(1,VARREF(YgooStypesYtE),YPfalse); T63 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLlstG)),YPfalse,YPint((P)2),T64,Ynil); YevalSmoduleYremove_modules_by_nameX = YPfab_met(FUNCODEREF(YevalSmoduleYremove_modules_by_nameX),T63,LITREF(lit_261),LITREF(lit_262),sloc(501),YPfalse); T66 = YevalSmoduleYremove_modules_by_nameX; VARSET(YevalSmoduleYremove_modules_by_nameX,T66); lit_264 = YPPsym((P)"module-name-to-relpath"); lit_265 = YPPlist(1,YPPsym((P)"name")); T67 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YevalSmoduleYmodule_name_to_relpath = YPfab_met(FUNCODEREF(YevalSmoduleYmodule_name_to_relpath),T67,LITREF(lit_264),LITREF(lit_265),sloc(511),YPfalse); T68 = YevalSmoduleYmodule_name_to_relpath; VARSET(YevalSmoduleYmodule_name_to_relpath,T68); VARSET(YevalSmoduleYTtracing_refsQT,YPfalse); lit_266 = YPPsym((P)"zap-referenced-bindings!"); lit_267 = YPPlist(1,YPPsym((P)"mod")); lit_268 = YPsb((P)"ZAPPING REFS\n"); T69 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_zap_referenced_bindingsX_141 = YPfab_met(FUNCODEREF(fun_zap_referenced_bindingsX_141),T69,LITREF(lit_266),LITREF(lit_267),sloc(517),YPfalse); T71 = VARREF_OR(YevalSmoduleYzap_referenced_bindingsX,YPfalse); T72 = fun_zap_referenced_bindingsX_141; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YevalSmoduleYzap_referenced_bindingsX,T70); lit_269 = YPPlist(1,YPPsym((P)"r")); T73 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_zap_referenced_bindingsX_142 = YPfab_met(FUNCODEREF(fun_zap_referenced_bindingsX_142),T73,LITREF(lit_266),LITREF(lit_269),sloc(522),YPfalse); T75 = VARREF_OR(YevalSmoduleYzap_referenced_bindingsX,YPfalse); T76 = fun_zap_referenced_bindingsX_142; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); VARSET(YevalSmoduleYzap_referenced_bindingsX,T74); lit_270 = YPPsym((P)"register-referenced-binding"); lit_271 = YPPlist(2,YPPsym((P)"mod"),YPPsym((P)"b")); lit_272 = YPsb((P)"REG %= %=\n"); T77 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmoduleG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_register_referenced_binding_143 = YPfab_met(FUNCODEREF(fun_register_referenced_binding_143),T77,LITREF(lit_270),LITREF(lit_271),sloc(526),YPfalse); T79 = VARREF_OR(YevalSmoduleYregister_referenced_binding,YPfalse); T80 = fun_register_referenced_binding_143; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YevalSmoduleYregister_referenced_binding,T78); lit_273 = YPPlist(2,YPPsym((P)"r"),YPPsym((P)"b")); T81 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_register_referenced_binding_144 = YPfab_met(FUNCODEREF(fun_register_referenced_binding_144),T81,LITREF(lit_270),LITREF(lit_273),sloc(532),YPfalse); T83 = VARREF_OR(YevalSmoduleYregister_referenced_binding,YPfalse); T84 = fun_register_referenced_binding_144; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YevalSmoduleYregister_referenced_binding,T82); lit_274 = YPPsym((P)""); T86 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalSmoduleYLmodule_loaderG),Ynil); T85 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_274),T86); VARSET(YevalSmoduleYLruntime_module_loaderG,T85); DYNDEFSET(YevalSmoduleYTnow_rt_envT,YPfalse); lit_275 = YPPsym((P)"install-initial-bindings"); lit_276 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T88 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T87 = YPfab_gen(T88,LITREF(lit_275),LITREF(lit_276),YPfalse); VARSET(YevalSmoduleYinstall_initial_bindings,T87); lit_277 = YPPlist(2,YPPsym((P)"loader"),YPPsym((P)"name")); lit_278 = YPsb((P)"Unable to find module %s"); T93 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_145 = YPfab_met(FUNCODEREF(fun_145),T93,YPfalse,LITREF(lit_138),sloc(591),YPfalse); T92 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_146 = YPfab_met(FUNCODEREF(fun_146),T92,YPfalse,LITREF(lit_138),sloc(591),YPfalse); T91 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_147 = YPfab_met(FUNCODEREF(fun_147),T91,YPfalse,LITREF(lit_138),sloc(588),YPfalse); T90 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_148 = YPfab_met(FUNCODEREF(fun_148),T90,YPfalse,LITREF(lit_138),sloc(607),YPfalse); T89 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLruntime_module_loaderG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); fun_load_module_149 = YPfab_met(FUNCODEREF(fun_load_module_149),T89,LITREF(lit_241),LITREF(lit_277),sloc(578),YPfalse); T95 = VARREF_OR(YevalSmoduleYload_module,YPfalse); T96 = fun_load_module_149; T94 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T95,T96); VARSET(YevalSmoduleYload_module,T94); if (YPfalse != YPfalse) { } else { } T97 = XCALL1(1,VARREF(Ynew),VARREF(YevalSmoduleYLruntime_module_loaderG)); VARSET(YevalSmoduleYTruntime_module_loaderT,T97); lit_279 = YPPsym((P)"runtime-module-loader"); T98 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YevalSmoduleYruntime_module_loader = YPfab_met(FUNCODEREF(YevalSmoduleYruntime_module_loader),T98,LITREF(lit_279),LITREF(lit_138),sloc(612),YPfalse); T99 = YevalSmoduleYruntime_module_loader; VARSET(YevalSmoduleYruntime_module_loader,T99); lit_280 = YPPsym((P)"runtime-module"); lit_281 = YPPlist(1,YPPsym((P)"modname")); T100 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYruntime_module = YPfab_met(FUNCODEREF(YevalSmoduleYruntime_module),T100,LITREF(lit_280),LITREF(lit_281),sloc(613),YPfalse); T101 = YevalSmoduleYruntime_module; VARSET(YevalSmoduleYruntime_module,T101); lit_282 = YPPsym((P)"runtime-environment"); lit_283 = YPPlist(1,YPPsym((P)"modname")); T102 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYruntime_environment = YPfab_met(FUNCODEREF(YevalSmoduleYruntime_environment),T102,LITREF(lit_282),LITREF(lit_283),sloc(615),YPfalse); T103 = YevalSmoduleYruntime_environment; VARSET(YevalSmoduleYruntime_environment,T103); lit_284 = YPPsym((P)"runtime-core-environment"); lit_285 = YPPlist(1,YPPsym((P)"modname")); T104 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYruntime_core_environment = YPfab_met(FUNCODEREF(YevalSmoduleYruntime_core_environment),T104,LITREF(lit_284),LITREF(lit_285),sloc(619),YPfalse); T105 = YevalSmoduleYruntime_core_environment; VARSET(YevalSmoduleYruntime_core_environment,T105); lit_286 = YPPsym((P)"unchecked-runtime-environment"); lit_287 = YPPlist(1,YPPsym((P)"modname")); T106 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYunchecked_runtime_environment = YPfab_met(FUNCODEREF(YevalSmoduleYunchecked_runtime_environment),T106,LITREF(lit_286),LITREF(lit_287),sloc(621),YPfalse); T107 = YevalSmoduleYunchecked_runtime_environment; VARSET(YevalSmoduleYunchecked_runtime_environment,T107); lit_288 = YPPsym((P)"reloader-do-create-module"); lit_289 = YPPlist(2,YPPsym((P)"modname"),YPPsym((P)"data")); T108 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YevalSmoduleYLmoduleG),Ynil); YevalSmoduleYreloader_do_create_module = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_create_module),T108,LITREF(lit_288),LITREF(lit_289),sloc(630),YPfalse); T109 = YevalSmoduleYreloader_do_create_module; VARSET(YevalSmoduleYreloader_do_create_module,T109); lit_290 = YPPsym((P)"reloader-do-use-module"); lit_291 = YPPlist(2,YPPsym((P)"mod"),YPPsym((P)"uses")); T110 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYreloader_do_use_module = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_use_module),T110,LITREF(lit_290),LITREF(lit_291),sloc(641),YPfalse); T111 = YevalSmoduleYreloader_do_use_module; VARSET(YevalSmoduleYreloader_do_use_module,T111); lit_292 = YPPsym((P)"reloader-do-import"); lit_293 = YPPlist(4,YPPsym((P)"mod"),YPPsym((P)"name"),YPPsym((P)"from-mod"),YPPsym((P)"original-name")); lit_294 = YPsb((P)"Can't find %s from %s for %s\n"); T114 = YPfab_sig(YPPlist(4,VARREF(YevalSmoduleYLmoduleG),VARREF(YLstrG),VARREF(YevalSmoduleYLmoduleG),VARREF(YLstrG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); T113 = YevalSmoduleYreloader_do_import = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_import),T114,LITREF(lit_292),LITREF(lit_293),sloc(644),YPfalse); T116 = YevalSmoduleYreloader_do_import; T115 = VARSET(YevalSmoduleYreloader_do_import,T116); T112 = T115; return T112; } P YevalSmoduleY___main_4___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; DEFCREGS(); lit_295 = YPPsym((P)"process-module-data"); lit_296 = YPPlist(1,YPPsym((P)"module")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalSmoduleYprocess_module_data = YPfab_met(FUNCODEREF(YevalSmoduleYprocess_module_data),T0,LITREF(lit_295),LITREF(lit_296),sloc(654),YPfalse); T1 = YevalSmoduleYprocess_module_data; VARSET(YevalSmoduleYprocess_module_data,T1); lit_297 = YPPlist(1,YPPsym((P)"module")); T2 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmoduleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ensure_module_data_159 = YPfab_met(FUNCODEREF(fun_ensure_module_data_159),T2,LITREF(lit_212),LITREF(lit_297),sloc(659),YPfalse); T4 = VARREF_OR(YevalSmoduleYensure_module_data,YPfalse); T5 = fun_ensure_module_data_159; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YevalSmoduleYensure_module_data,T3); lit_298 = YPPsym((P)"reloader-do-runtime-binding"); lit_299 = YPPlist(3,YPPsym((P)"mod"),YPPsym((P)"name"),YPPsym((P)"loc")); lit_300 = YPPsym((P)"runtime"); T6 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YLstrG),VARREF(YLlocG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSmoduleYreloader_do_runtime_binding = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_runtime_binding),T6,LITREF(lit_298),LITREF(lit_299),sloc(665),YPfalse); T7 = YevalSmoduleYreloader_do_runtime_binding; VARSET(YevalSmoduleYreloader_do_runtime_binding,T7); lit_301 = YPPsym((P)"reloader-do-dynamic-binding"); lit_302 = YPPlist(3,YPPsym((P)"mod"),YPPsym((P)"name"),YPPsym((P)"loc")); lit_303 = YPPsym((P)"dynamic"); T8 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YLstrG),VARREF(YLlocG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSmoduleYreloader_do_dynamic_binding = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_dynamic_binding),T8,LITREF(lit_301),LITREF(lit_302),sloc(674),YPfalse); T9 = YevalSmoduleYreloader_do_dynamic_binding; VARSET(YevalSmoduleYreloader_do_dynamic_binding,T9); lit_304 = YPPsym((P)"reloader-do-other-binding"); lit_305 = YPPlist(2,YPPsym((P)"mod"),YPPsym((P)"name")); lit_306 = YPPsym((P)"predefined"); T10 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmoduleG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYreloader_do_other_binding = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_other_binding),T10,LITREF(lit_304),LITREF(lit_305),sloc(687),YPfalse); T11 = YevalSmoduleYreloader_do_other_binding; VARSET(YevalSmoduleYreloader_do_other_binding,T11); lit_307 = YPPsym((P)"reloader-do-export"); lit_308 = YPPlist(3,YPPsym((P)"mod"),YPPsym((P)"name"),YPPsym((P)"as-name")); lit_309 = YPsb((P)"Can't find %s in %s\n"); T12 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YLstrG),VARREF(YLstrG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSmoduleYreloader_do_export = YPfab_met(FUNCODEREF(YevalSmoduleYreloader_do_export),T12,LITREF(lit_307),LITREF(lit_308),sloc(695),YPfalse); T13 = YevalSmoduleYreloader_do_export; VARSET(YevalSmoduleYreloader_do_export,T13); lit_310 = YPPsym((P)"reload-modules"); T14 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YevalSmoduleYreload_modules = YPfab_met(FUNCODEREF(YevalSmoduleYreload_modules),T14,LITREF(lit_310),LITREF(lit_138),sloc(702),YPfalse); T15 = YevalSmoduleYreload_modules; VARSET(YevalSmoduleYreload_modules,T15); lit_311 = YPPsym((P)"fab-static-global-environment"); lit_312 = YPPlist(3,YPPsym((P)"module"),YPPsym((P)"module-loader"),YPPsym((P)"allow-foreign-names?")); T16 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYLmodule_loaderG),VARREF(YLlogG)),YPfalse,YPint((P)3),VARREF(YevalSmoduleYLstatic_global_environmentG),Ynil); YevalSmoduleYfab_static_global_environment = YPfab_met(FUNCODEREF(YevalSmoduleYfab_static_global_environment),T16,LITREF(lit_311),LITREF(lit_312),sloc(709),YPfalse); T17 = YevalSmoduleYfab_static_global_environment; VARSET(YevalSmoduleYfab_static_global_environment,T17); lit_313 = YPPsym((P)"fab-subset-environment"); lit_314 = YPPlist(3,YPPsym((P)"module"),YPPsym((P)"src-module"),YPPsym((P)"excluded")); lit_315 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"binding")); T19 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_166 = YPfab_met(FUNCODEREF(fun_166),T19,YPfalse,LITREF(lit_315),sloc(730),YPfalse); T18 = YPfab_sig(YPPlist(3,VARREF(YevalSmoduleYLmoduleG),VARREF(YevalSmoduleYLmoduleG),VARREF(YLcolG)),YPfalse,YPint((P)3),VARREF(YevalSmoduleYLstatic_global_environmentG),Ynil); YevalSmoduleYfab_subset_environment = YPfab_met(FUNCODEREF(YevalSmoduleYfab_subset_environment),T18,LITREF(lit_313),LITREF(lit_314),sloc(723),YPfalse); T20 = YevalSmoduleYfab_subset_environment; VARSET(YevalSmoduleYfab_subset_environment,T20); lit_316 = YPPsym((P)"walk-bindings"); lit_317 = YPPlist(2,YPPsym((P)"fun"),YPPsym((P)"mod")); T21 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSmoduleYwalk_bindings = YPfab_met(FUNCODEREF(YevalSmoduleYwalk_bindings),T21,LITREF(lit_316),LITREF(lit_317),sloc(737),YPfalse); T22 = YevalSmoduleYwalk_bindings; VARSET(YevalSmoduleYwalk_bindings,T22); lit_318 = YPPsym((P)"walk-bindings*"); lit_319 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"env"),YPPsym((P)"walked?"),YPPsym((P)"mods")); T23 = YPfab_sig(YPPlist(4,VARREF(YLfunG),VARREF(YevalSmoduleYLstatic_global_environmentG),VARREF(YgooScolsScolYLtabG),VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); YevalSmoduleYwalk_bindingsT = YPfab_met(FUNCODEREF(YevalSmoduleYwalk_bindingsT),T23,LITREF(lit_318),LITREF(lit_319),sloc(741),YPfalse); T24 = YevalSmoduleYwalk_bindingsT; VARSET(YevalSmoduleYwalk_bindingsT,T24); T25 = YPfalse; return T25; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSsym; extern MODULE_INFO module_info_gooSsystem; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooStypes}, {&module_info_gooSsym}, {&module_info_gooSsystem}, {&module_info_evalSdependency}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"$nul-dependency", &module_info_evalSdependency, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"invalidate-dependent", &module_info_evalSdependency, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"$value-optimization-dependency", &module_info_evalSdependency, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_evalSdependency, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"dependency-includes-all?", &module_info_evalSdependency, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"", &module_info_evalSdependency, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"label-components", &module_info_gooSsystem, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"dependency-and", &module_info_evalSdependency, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"os-val", &module_info_gooSsystem, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSsystem, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"exe-filename", &module_info_gooSsystem, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"pathname-to-components", &module_info_gooSsystem, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*goo-personal-root*", &module_info_gooSsystem, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"*obj-extension*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"find-goo-file-in-path", &module_info_gooSsystem, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"dependency-nul?", &module_info_evalSdependency, NULL}, {"%false", &module_info_gooSboot, NULL}, {"components-to-pathname", &module_info_gooSsystem, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"parent-directory", &module_info_gooSsystem, NULL}, {"components-parent-directory", &module_info_gooSsystem, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"gooc-filename", &module_info_gooSsystem, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"*path-separator*", &module_info_gooSsystem, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-src-path", &module_info_gooSsystem, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"$all-dependency-types", &module_info_evalSdependency, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"*goo-build-root*", &module_info_gooSsystem, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"file-copy", &module_info_gooSsystem, NULL}, {"os-name", &module_info_gooSsystem, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"%load", &module_info_gooSsystem, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"obj-filename", &module_info_gooSsystem, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"detach-dependent", &module_info_evalSdependency, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"find-goo-file-at", &module_info_gooSsystem, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%compile", &module_info_gooSsystem, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"$expansion-parse-dependency", &module_info_evalSdependency, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"dependency-includes-any?", &module_info_evalSdependency, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"add-build-path", &module_info_gooSsystem, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"c-filename", &module_info_gooSsystem, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"*exe-extension*", &module_info_gooSsystem, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"time", &module_info_gooSsystem, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"*c-extension*", &module_info_gooSsystem, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"$name-parse-dependency", &module_info_evalSdependency, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"process-id", &module_info_gooSsystem, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"file-type", &module_info_gooSsystem, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"add-tmp-path", &module_info_gooSsystem, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"*goo-extension*", &module_info_gooSsystem, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"components-basename", &module_info_gooSsystem, NULL}, {"dependency-or", &module_info_evalSdependency, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"$parse-dependencies", &module_info_evalSdependency, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*goo-root*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSsystem, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"file-exists?", &module_info_gooSsystem, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"probe-directory", &module_info_gooSsystem, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"add-goo-personal-root-path", &module_info_gooSsystem, NULL}, {"*module-search-path*", &module_info_gooSsystem, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"find-dependency", &module_info_evalSdependency, NULL}, {"even?", &module_info_gooSmath, NULL}, {"components-last", &module_info_gooSsystem, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"$optimizaton-dependencies", &module_info_evalSdependency, NULL}, {"invalidate-dependents", &module_info_evalSdependency, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"log-dependency", &module_info_evalSdependency, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-goo-root-path", &module_info_gooSsystem, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"create-directory", &module_info_gooSsystem, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"so-load", &module_info_gooSsystem, NULL}, {"os-val-setter", &module_info_gooSsystem, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"goo-filename", &module_info_gooSsystem, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"hierarchical-components", &module_info_gooSsystem, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"", &module_info_evalSdependency, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"file-mtime", &module_info_gooSsystem, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"transaction-register-implemented-binding", CVAR, &YevalSmoduleYtransaction_register_implemented_binding}, {"", CVAR, &YevalSmoduleYLglobal_boxG}, {"runtime-module", CVAR, &YevalSmoduleYruntime_module}, {"binding-name", CVAR, &YevalSmoduleYbinding_name}, {"binding-name-setter", CVAR, &YevalSmoduleYbinding_name_setter}, {"module-runtime-data", CVAR, &YevalSmoduleYmodule_runtime_data}, {"binding-module", CVAR, &YevalSmoduleYbinding_module}, {"", CVAR, &YevalSmoduleYLstatic_nul_environmentG}, {"binding-native-to?", CVAR, &YevalSmoduleYbinding_native_toQ}, {"binding-handler-setter", CVAR, &YevalSmoduleYbinding_handler_setter}, {"compute-transitive-users", CVAR, &YevalSmoduleYcompute_transitive_users}, {"find-environment-module", CVAR, &YevalSmoduleYfind_environment_module}, {"module-uses-c-libraries", CVAR, &YevalSmoduleYmodule_uses_c_libraries}, {"reloader-do-other-binding", CVAR, &YevalSmoduleYreloader_do_other_binding}, {"", CVAR, &YevalSmoduleYLmodule_loaderG}, {"load-and-register-module", CVAR, &YevalSmoduleYload_and_register_module}, {"remove-modules-by-name!", CVAR, &YevalSmoduleYremove_modules_by_nameX}, {"binding-mangled-name-setter", CVAR, &YevalSmoduleYbinding_mangled_name_setter}, {"global-box-value", CVAR, &YevalSmoduleYglobal_box_value}, {"binding-handler", CVAR, &YevalSmoduleYbinding_handler}, {"$nul-static-environment", CVAR, &YevalSmoduleYDnul_static_environment}, {"module-mangled-name", CVAR, &YevalSmoduleYmodule_mangled_name}, {"ensure-module-data", CVAR, &YevalSmoduleYensure_module_data}, {"transaction-nul?", CVAR, &YevalSmoduleYtransaction_nulQ}, {"environment-module-loader", CVAR, &YevalSmoduleYenvironment_module_loader}, {"do-module-loader-modules", CVAR, &YevalSmoduleYdo_module_loader_modules}, {"binding-inferred-type-setter", CVAR, &YevalSmoduleYbinding_inferred_type_setter}, {"environment-allows-foreign-names?", CVAR, &YevalSmoduleYenvironment_allows_foreign_namesQ}, {"environment-next", CVAR, &YevalSmoduleYenvironment_next}, {"frame-bindings", CVAR, &YevalSmoduleYframe_bindings}, {"module-data-processed?", CVAR, &YevalSmoduleYmodule_data_processedQ}, {"install-initial-bindings", CVAR, &YevalSmoduleYinstall_initial_bindings}, {"binding-type", CVAR, &YevalSmoduleYbinding_type}, {"*runtime-module-loader*", CVAR, &YevalSmoduleYTruntime_module_loaderT}, {"binding-prop", CVAR, &YevalSmoduleYbinding_prop}, {"environment-uses-modules", CVAR, &YevalSmoduleYenvironment_uses_modules}, {"report-undefined-global-bindings", CVAR, &YevalSmoduleYreport_undefined_global_bindings}, {"binding-module-name", CVAR, &YevalSmoduleYbinding_module_name}, {"remove-module-internal!", CVAR, &YevalSmoduleYremove_module_internalX}, {"with-subtransaction", PVAR, NULL}, {"walk-bindings*", CVAR, &YevalSmoduleYwalk_bindingsT}, {"---main-2---", PVAR, NULL}, {"merge-transactions!", CVAR, &YevalSmoduleYmerge_transactionsX}, {"$goo-boot-module-name", CVAR, &YevalSmoduleYDgoo_boot_module_name}, {"find-syntax-environment", CVAR, &YevalSmoduleYfind_syntax_environment}, {"fab-static-global-environment", CVAR, &YevalSmoduleYfab_static_global_environment}, {"*dynamic-compilation?*", DVAR, &YevalSmoduleYTdynamic_compilationQT}, {"", CVAR, &YevalSmoduleYLstatic_environmentG}, {"*tracing-refs?*", CVAR, &YevalSmoduleYTtracing_refsQT}, {"register-referenced-binding", CVAR, &YevalSmoduleYregister_referenced_binding}, {"binding-mangled-name", CVAR, &YevalSmoduleYbinding_mangled_name}, {"runtime-core-environment", CVAR, &YevalSmoduleYruntime_core_environment}, {"import-global!", CVAR, &YevalSmoduleYimport_globalX}, {"environment-bindings-setter", CVAR, &YevalSmoduleYenvironment_bindings_setter}, {"module-loader-modules-setter", CVAR, &YevalSmoduleYmodule_loader_modules_setter}, {"reloader-do-dynamic-binding", CVAR, &YevalSmoduleYreloader_do_dynamic_binding}, {"probe-module", CVAR, &YevalSmoduleYprobe_module}, {"module-c-forms", CVAR, &YevalSmoduleYmodule_c_forms}, {"", CVAR, &YevalSmoduleYLmodule_bindingG}, {"binding-kind", CVAR, &YevalSmoduleYbinding_kind}, {"binding-inferred-type", CVAR, &YevalSmoduleYbinding_inferred_type}, {"reloader-do-import", CVAR, &YevalSmoduleYreloader_do_import}, {"", CVAR, &YevalSmoduleYLbindingG}, {"", CVAR, &YevalSmoduleYLtransactionG}, {"walk-bindings", CVAR, &YevalSmoduleYwalk_bindings}, {"unchecked-runtime-environment", CVAR, &YevalSmoduleYunchecked_runtime_environment}, {"fab-subset-environment", CVAR, &YevalSmoduleYfab_subset_environment}, {"---main-1---", PVAR, NULL}, {"*now-rt-env*", DVAR, &YevalSmoduleYTnow_rt_envT}, {"runtime-environment", CVAR, &YevalSmoduleYruntime_environment}, {"---main-3---", PVAR, NULL}, {"transaction-dependents", CVAR, &YevalSmoduleYtransaction_dependents}, {"*current-subtransaction*", DVAR, &YevalSmoduleYTcurrent_subtransactionT}, {"insert-globals!", CVAR, &YevalSmoduleYinsert_globalsX}, {"module-target-environment-setter", CVAR, &YevalSmoduleYmodule_target_environment_setter}, {"module-uses-c-files", CVAR, &YevalSmoduleYmodule_uses_c_files}, {"binding-info", CVAR, &YevalSmoduleYbinding_info}, {"register-module!", CVAR, &YevalSmoduleYregister_moduleX}, {"do-named-static-global-bindings", CVAR, &YevalSmoduleYdo_named_static_global_bindings}, {"module-name", CVAR, &YevalSmoduleYmodule_name}, {"module-loader-stack-setter", CVAR, &YevalSmoduleYmodule_loader_stack_setter}, {"set-module-environments", CVAR, &YevalSmoduleYset_module_environments}, {"", CVAR, &YevalSmoduleYLstatic_local_environmentG}, {"binding-free?-setter", CVAR, &YevalSmoduleYbinding_freeQ_setter}, {"env-object-name", CVAR, &YevalSmoduleYenv_object_name}, {"module-exports", CVAR, &YevalSmoduleYmodule_exports}, {"reloader-do-create-module", CVAR, &YevalSmoduleYreloader_do_create_module}, {"module-loader-modules", CVAR, &YevalSmoduleYmodule_loader_modules}, {"roll-back-transaction", CVAR, &YevalSmoduleYroll_back_transaction}, {"module-transaction-setter", CVAR, &YevalSmoduleYmodule_transaction_setter}, {"zap-referenced-bindings!", CVAR, &YevalSmoduleYzap_referenced_bindingsX}, {"binding-locative", CVAR, &YevalSmoduleYbinding_locative}, {"export-binding!", CVAR, &YevalSmoduleYexport_bindingX}, {"", CVAR, &YevalSmoduleYLstatic_global_environmentG}, {"find-static-global-environment", CVAR, &YevalSmoduleYfind_static_global_environment}, {"reloader-do-runtime-binding", CVAR, &YevalSmoduleYreloader_do_runtime_binding}, {"reloader-do-use-module", CVAR, &YevalSmoduleYreloader_do_use_module}, {"%module-exports", CVAR, &YevalSmoduleYPmodule_exports}, {"environment-uses-modules-setter", CVAR, &YevalSmoduleYenvironment_uses_modules_setter}, {"reloader-do-export", CVAR, &YevalSmoduleYreloader_do_export}, {"---main-4---", PVAR, NULL}, {"module-runtime-data-setter", CVAR, &YevalSmoduleYmodule_runtime_data_setter}, {"binding-module-setter", CVAR, &YevalSmoduleYbinding_module_setter}, {"module-target-environment", CVAR, &YevalSmoduleYmodule_target_environment}, {"runtime-module-loader", CVAR, &YevalSmoduleYruntime_module_loader}, {"binding-global-box-setter", CVAR, &YevalSmoduleYbinding_global_box_setter}, {"---main-0---", PVAR, NULL}, {"find-binding", CVAR, &YevalSmoduleYfind_binding}, {"reload-modules", CVAR, &YevalSmoduleYreload_modules}, {"module-name-to-relpath", CVAR, &YevalSmoduleYmodule_name_to_relpath}, {"module-loader-stack", CVAR, &YevalSmoduleYmodule_loader_stack}, {"insert-and-mangle-global!", CVAR, &YevalSmoduleYinsert_and_mangle_globalX}, {"module-loader-module-type", CVAR, &YevalSmoduleYmodule_loader_module_type}, {"module-uses-c-includes", CVAR, &YevalSmoduleYmodule_uses_c_includes}, {"load-module", CVAR, &YevalSmoduleYload_module}, {"global-box-value-setter", CVAR, &YevalSmoduleYglobal_box_value_setter}, {"", CVAR, &YevalSmoduleYLnamespace_errorG}, {"binding-free?", CVAR, &YevalSmoduleYbinding_freeQ}, {"binding-global-box", CVAR, &YevalSmoduleYbinding_global_box}, {"import-and-mangle-global!", CVAR, &YevalSmoduleYimport_and_mangle_globalX}, {"transaction-implemented-bindings", CVAR, &YevalSmoduleYtransaction_implemented_bindings}, {"module-referenced-bindings", CVAR, &YevalSmoduleYmodule_referenced_bindings}, {"module-mangled-name-setter", CVAR, &YevalSmoduleYmodule_mangled_name_setter}, {"module-syntax-environment-setter", CVAR, &YevalSmoduleYmodule_syntax_environment_setter}, {"environment-module-loader-setter", CVAR, &YevalSmoduleYenvironment_module_loader_setter}, {"module-mangled-string-name-setter", CVAR, &YevalSmoduleYmodule_mangled_string_name_setter}, {"module-transaction", CVAR, &YevalSmoduleYmodule_transaction}, {"transaction-register-dependent", CVAR, &YevalSmoduleYtransaction_register_dependent}, {"namespace-error", CVAR, &YevalSmoduleYnamespace_error}, {"binding-locative-setter", CVAR, &YevalSmoduleYbinding_locative_setter}, {"", CVAR, &YevalSmoduleYLruntime_module_loaderG}, {"do-static-global-bindings", CVAR, &YevalSmoduleYdo_static_global_bindings}, {"insert-global!", CVAR, &YevalSmoduleYinsert_globalX}, {"", CVAR, &YevalSmoduleYLbinding_nameG}, {"environment-allows-foreign-names?-setter", CVAR, &YevalSmoduleYenvironment_allows_foreign_namesQ_setter}, {"module-syntax-environment", CVAR, &YevalSmoduleYmodule_syntax_environment}, {"call-with-subtransaction", CVAR, &YevalSmoduleYcall_with_subtransaction}, {"environment-next-setter", CVAR, &YevalSmoduleYenvironment_next_setter}, {"environment-bindings", CVAR, &YevalSmoduleYenvironment_bindings}, {"environment-module-setter", CVAR, &YevalSmoduleYenvironment_module_setter}, {"module-data-processed?-setter", CVAR, &YevalSmoduleYmodule_data_processedQ_setter}, {"binding-info-setter", CVAR, &YevalSmoduleYbinding_info_setter}, {"load-in", CVAR, &YevalSmoduleYload_in}, {"environment-module", CVAR, &YevalSmoduleYenvironment_module}, {"binding-type-setter", CVAR, &YevalSmoduleYbinding_type_setter}, {"module-mangled-string-name", CVAR, &YevalSmoduleYmodule_mangled_string_name}, {"", CVAR, &YevalSmoduleYLmoduleG}, {"binding-prop-setter", CVAR, &YevalSmoduleYbinding_prop_setter}, {"process-module-data", CVAR, &YevalSmoduleYprocess_module_data}, {"binding-kind-setter", CVAR, &YevalSmoduleYbinding_kind_setter}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"transaction-register-implemented-binding", NULL}, {"binding-name", NULL}, {"module-runtime-data", NULL}, {"binding-module", NULL}, {"binding-handler-setter", NULL}, {"find-environment-module", NULL}, {"module-uses-c-libraries", NULL}, {"", NULL}, {"remove-modules-by-name!", NULL}, {"binding-mangled-name-setter", NULL}, {"global-box-value", NULL}, {"module-mangled-name", NULL}, {"insert-globals!", NULL}, {"environment-module-loader", NULL}, {"do-module-loader-modules", NULL}, {"binding-inferred-type-setter", NULL}, {"unchecked-runtime-environment", NULL}, {"environment-allows-foreign-names?", NULL}, {"environment-next", NULL}, {"frame-bindings", NULL}, {"module-data-processed?", NULL}, {"install-initial-bindings", NULL}, {"binding-type", NULL}, {"binding-prop", NULL}, {"environment-uses-modules", NULL}, {"binding-kind", NULL}, {"report-undefined-global-bindings", NULL}, {"probe-module", NULL}, {"with-subtransaction", NULL}, {"binding-handler", NULL}, {"binding-info-setter", NULL}, {"find-syntax-environment", NULL}, {"fab-static-global-environment", NULL}, {"", NULL}, {"*dynamic-compilation?*", NULL}, {"register-referenced-binding", NULL}, {"binding-mangled-name", NULL}, {"import-global!", NULL}, {"insert-global!", NULL}, {"module-c-forms", NULL}, {"", NULL}, {"binding-inferred-type", NULL}, {"", NULL}, {"binding-native-to?", NULL}, {"walk-bindings", NULL}, {"runtime-environment", NULL}, {"environment-bindings", NULL}, {"*current-subtransaction*", NULL}, {"", NULL}, {"module-uses-c-files", NULL}, {"binding-info", NULL}, {"register-module!", NULL}, {"do-named-static-global-bindings", NULL}, {"module-name", NULL}, {"module-referenced-bindings", NULL}, {"set-module-environments", NULL}, {"binding-free?-setter", NULL}, {"module-exports", NULL}, {"", NULL}, {"runtime-module", NULL}, {"zap-referenced-bindings!", NULL}, {"binding-locative", NULL}, {"export-binding!", NULL}, {"find-static-global-environment", NULL}, {"", NULL}, {"module-mangled-string-name-setter", NULL}, {"ensure-module-data", NULL}, {"module-runtime-data-setter", NULL}, {"module-target-environment", NULL}, {"runtime-module-loader", NULL}, {"binding-global-box-setter", NULL}, {"find-binding", NULL}, {"module-loader-module-type", NULL}, {"import-and-mangle-global!", NULL}, {"reload-modules", NULL}, {"module-name-to-relpath", NULL}, {"module-loader-stack", NULL}, {"module-uses-c-includes", NULL}, {"transaction-register-dependent", NULL}, {"load-module", NULL}, {"global-box-value-setter", NULL}, {"", NULL}, {"binding-global-box", NULL}, {"call-with-subtransaction", NULL}, {"module-mangled-name-setter", NULL}, {"binding-module-name", NULL}, {"$goo-boot-module-name", NULL}, {"module-transaction", NULL}, {"roll-back-transaction", NULL}, {"namespace-error", NULL}, {"binding-locative-setter", NULL}, {"do-static-global-bindings", NULL}, {"module-syntax-environment", NULL}, {"", NULL}, {"env-object-name", NULL}, {"", NULL}, {"module-data-processed?-setter", NULL}, {"load-in", NULL}, {"environment-module", NULL}, {"fab-subset-environment", NULL}, {"binding-type-setter", NULL}, {"binding-free?", NULL}, {"module-mangled-string-name", NULL}, {"", NULL}, {"binding-prop-setter", NULL}, {"binding-kind-setter", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSmodule; MODULE_INFO module_info_evalSmodule = { "eval/module", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooStypes (void); extern void load_module_gooSsym (void); extern void load_module_gooSsystem (void); extern void load_module_evalSdependency (void); /* EXPRESSION: */ extern void load_module_evalSmodule (void); void load_module_evalSmodule (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooStypes(); load_module_gooSsym(); load_module_gooSsystem(); load_module_evalSdependency(); (P)YevalSmoduleY___main_0___(); (P)YevalSmoduleY___main_1___(); (P)YevalSmoduleY___main_2___(); (P)YevalSmoduleY___main_3___(); (P)YevalSmoduleY___main_4___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/optimize.c0100644000175000017500000035722407756744540015600 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/optimize"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/optimize */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); DEF(YevalSoptimizeYLmet_seqG,"eval/optimize",""); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); DEF(YevalSoptimizeYDmethod1_precedes,"eval/optimize","$method1-precedes"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YLsymG,"goo/boot",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); DEF(YevalSoptimizeYreopt_topX,"eval/optimize","reopt-top!"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); DEF(YevalSoptimizeYdo_do_call_analysisX,"eval/optimize","do-do-call-analysis!"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); DEF(YevalSoptimizeYarguments_potentially_jointQ,"eval/optimize","arguments-potentially-joint?"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YevalSastYLalternativeG,"eval/ast",""); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YevalSastYLc_inlineG,"eval/ast",""); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YevalSoptimizeYensure_loop,"eval/optimize","ensure-loop"); EXT(YevalSastYLcomputed_programG,"eval/ast",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); DEF(YevalSoptimizeYanalyze_calls,"eval/optimize","analyze-calls"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YevalSastYLsequentialG,"eval/ast",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(YevalSastYLdefinitionG,"eval/ast",""); DEF(YevalSoptimizeYmethod_precedesQ,"eval/optimize","method-precedes?"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); DEF(YevalSoptimizeYtype_equivQ,"eval/optimize","type-equiv?"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YgooSlocYas_c,"goo/loc","as-c"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSlocYas_goo,"goo/loc","as-goo"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YevalSastYLmonitorG,"eval/ast",""); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); DEF(YevalSoptimizeYdo_call_analysisX,"eval/optimize","do-call-analysis!"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YevalSastYLast_methodG,"eval/ast",""); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YevalSastYLassignmentG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); DEF(YevalSoptimizeYLarg_seqG,"eval/optimize",""); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); DEF(YevalSoptimizeYpreceding_specializerQ,"eval/optimize","preceding-specializer?"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); DEF(YevalSoptimizeYpotentially_jointQ,"eval/optimize","potentially-joint?"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); DEF(YevalSoptimizeYunconstrained_typeQ,"eval/optimize","unconstrained-type?"); DEF(YevalSoptimizeYsorted_applicable_methods_using_types,"eval/optimize","sorted-applicable-methods-using-types"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(YLsubclassG,"goo/boot",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YLchrG,"goo/boot",""); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); EXT(YgooSmathYevenQ,"goo/math","even?"); DEF(YevalSoptimizeYDmethods_unordered,"eval/optimize","$methods-unordered"); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YevalSastYLprogramG,"eval/ast",""); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); EXT(YLgenG,"goo/boot",""); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(Ynil,"goo/boot","nil"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YevalSastYLbind_exitG,"eval/ast",""); DEF(YevalSoptimizeYDmethod2_precedes,"eval/optimize","$method2-precedes"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); DEF(YevalSoptimizeYmethod_relationship,"eval/optimize","method-relationship"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSmoduleYLmoduleG,"eval/module",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_30); DEFLIT(lit_37); DEFLIT(lit_21); DEFLIT(lit_17); DEFLIT(lit_7); DEFLIT(lit_40); DEFLIT(lit_42); DEFLIT(lit_39); DEFLIT(lit_38); DEFLIT(lit_9); DEFLIT(lit_27); DEFLIT(lit_32); DEFLIT(lit_41); DEFLIT(lit_20); DEFLIT(lit_16); DEFLIT(lit_33); DEFLIT(lit_8); DEFLIT(lit_23); DEFLIT(lit_43); DEFLIT(lit_6); DEFLIT(lit_19); DEFLIT(lit_25); DEFLIT(lit_36); DEFLIT(lit_15); DEFLIT(lit_34); DEFLIT(lit_14); DEFLIT(lit_11); DEFLIT(lit_1); DEFLIT(lit_0); DEFLIT(lit_2); DEFLIT(lit_5); DEFLIT(lit_28); DEFLIT(lit_13); DEFLIT(lit_35); DEFLIT(lit_12); DEFLIT(lit_24); DEFLIT(lit_10); DEFLIT(lit_29); DEFLIT(lit_4); DEFLIT(lit_18); DEFLIT(lit_22); DEFLIT(lit_26); DEFLIT(lit_44); DEFLIT(lit_3); DEFLIT(lit_31); /* FUNCTIONS: */ LOCFOR(fun_unconstrained_typeQ_0); LOCFOR(fun_unconstrained_typeQ_1); LOCFOR(fun_unconstrained_typeQ_2); LOCFOR(fun_after_mQ_3); LOCFOR(fun_merge_method_4); LOCFOR(fun_sorted_applicable_methods_using_types_5); LOCFOR(fun_method_precedesQ_6); LOCFOR(fun_method_relationship_7); LOCFOR(fun_preceding_specializerQ_8); LOCFOR(fun_arguments_potentially_jointQ_9); FUNFOR(YevalSoptimizeYpotentially_jointQ); LOCFOR(fun_type_equivQ_11); LOCFOR(fun_do_do_call_analysisX_12); LOCFOR(fun_do_call_analysisX_13); FUNFOR(YevalSoptimizeYreopt_topX); LOCFOR(fun_do_call_analysisX_15); LOCFOR(fun_do_call_analysisX_16); LOCFOR(fun_ensure_loop_17); LOCFOR(fun_18); LOCFOR(fun_do_call_analysisX_19); LOCFOR(fun_do_call_analysisX_20); LOCFOR(fun_21); LOCFOR(fun_22); LOCFOR(fun_analyze_calls_23); extern P YevalSoptimizeY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_unconstrained_typeQ_0) { P b_; LINK_STACK(); ARG(b_, 0); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_unconstrained_typeQ_1) { P b_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(b_, 0); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_module_name),b_); T1 = CALL2(1,VARREF(YgooSmacrosYEE),T2,LITREF(lit_3)); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YevalSmoduleYbinding_name),b_); T3 = CALL2(1,VARREF(YgooSmacrosYEE),T4,LITREF(lit_4)); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_unconstrained_typeQ_2) { P o_; P T0,T1; LINK_STACK(); ARG(o_, 0); T1 = CALL1(1,VARREF(YevalSastYreference_binding),o_); T0 = CALL1(1,VARREF(YevalSoptimizeYunconstrained_typeQ),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_after_mQ_3) { P other_m_; P T0; LINK_STACK(); ARG(other_m_, 0); T0 = CALL3(1,VARREF(YevalSoptimizeYmethod_precedesQ),FREEREF(0),other_m_,FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_merge_method_4) { P m_,sorted_; P x_1606F4658; P x_1605F4657; P leadF4656; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); ARG(m_, 0); ARG(sorted_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),sorted_); if (T1 != YPfalse) { T4 = FUNFAB(fun_after_mQ_3,2,m_,FREEREF(0)); T5 = BOXGET(FREEREF(1)); T3 = CALL2(1,VARREF(YgooScolsScolYallQ),T4,T5); if (T3 != YPfalse) { T6 = CALL1(1,VARREF(Ylst),m_); T2 = T6; } else { T8 = BOXGET(FREEREF(1)); T7 = CALL2(1,VARREF(YgooScolsSseqxYpushX),T8,m_); BOXPUT(T7,FREEREF(1)); T2 = Ynil; } T0 = T2; } else { T23 = CALL1(1,VARREF(Yhead),sorted_); leadF4656 = T23; T22 = CALL3(1,VARREF(YevalSoptimizeYmethod_relationship),m_,leadF4656,FREEREF(0)); x_1605F4657 = T22; x_1606F4658 = VARREF(YgooSmacrosYEE); T10 = CALL2(0,x_1606F4658,x_1605F4657,VARREF(YevalSoptimizeYDmethod1_precedes)); if (T10 != YPfalse) { T11 = CALL2(1,VARREF(YgooSmacrosYpair),m_,sorted_); T9 = T11; } else { T13 = CALL2(0,x_1606F4658,x_1605F4657,VARREF(YevalSoptimizeYDmethod2_precedes)); if (T13 != YPfalse) { T16 = CALL1(1,VARREF(Ytail),sorted_); T15 = CALL2(0,FREEREF(2),m_,T16); T14 = CALL2(1,VARREF(YgooSmacrosYpair),leadF4656,T15); T12 = T14; } else { T18 = CALL2(0,x_1606F4658,x_1605F4657,VARREF(YevalSoptimizeYDmethods_unordered)); if (T18 != YPfalse) { T21 = BOXGET(FREEREF(1)); T20 = CALL2(1,VARREF(YgooSmacrosYcat),sorted_,T21); T19 = CALL2(1,VARREF(YgooSmacrosYpair),m_,T20); BOXPUT(T19,FREEREF(1)); T17 = Ynil; } else { T17 = YPfalse; } T12 = T17; } T9 = T12; } T0 = T9; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sorted_applicable_methods_using_types_5) { P methods_,arg_types_; P UF4664; P mF4663; P x_1607F4662; P merge_methodF4661; P othersF4660; P leading_sortedF4659; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(methods_, 0); ARG(arg_types_, 1); leading_sortedF4659 = Ynil; othersF4660 = Ynil; othersF4660 = BOXFAB(othersF4660); T15 = FUNSHELL(1,fun_merge_method_4,3); merge_methodF4661 = T15; FUNINIT(merge_methodF4661, 3,arg_types_,othersF4660,merge_methodF4661); T14 = CALL1(1,VARREF(YgooScolsScolYenum),methods_); x_1607F4662 = T14; LOOP_213: { P a213_0; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1607F4662); T3 = CALL1(1,VARREF(Ynot),T4); if (T3 != YPfalse) { T13 = CALL1(1,VARREF(YgooScolsScolYnow),x_1607F4662); mF4663 = T13; T6 = CALL1(1,VARREF(YgooSfunYfun_specs),mF4663); T7 = CALL1(1,VARREF(YgooSfunYfun_arity),mF4663); T5 = CALL3(1,VARREF(YevalSoptimizeYarguments_potentially_jointQ),arg_types_,T6,T7); if (T5 != YPfalse) { T10 = leading_sortedF4659; UF4664 = T10; T9 = CALL2(1,merge_methodF4661,mF4663,UF4664); T8 = leading_sortedF4659 = T9; } else { } T12 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1607F4662); a213_0 = T12; x_1607F4662 = a213_0; goto LOOP_213; T2 = T11; } else { T2 = YPfalse; } } T17 = leading_sortedF4659; T18 = BOXGET(othersF4660); T16 = CALL2(1,VARREF(Ytup),T17,T18); UNLINK_STACK(); RET(T16); } LOCCODEDEF(fun_method_precedesQ_6) { P m1_,m2_,arg_types_; P T0,T1; LINK_STACK(); ARG(m1_, 0); ARG(m2_, 1); ARG(arg_types_, 2); T1 = CALL3(1,VARREF(YevalSoptimizeYmethod_relationship),m1_,m2_,arg_types_); T0 = CALL2(1,VARREF(YgooSmacrosYEE),T1,VARREF(YevalSoptimizeYDmethod1_precedes)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_method_relationship_7) { P m1_,m2_,arg_types_; P arg_typeF4676; P spec1F4675; P spec2F4674; P tmpF4673; P tmpF4672; P x_1609F4671; P x_1610F4670; P x_1611F4669; P follows_somewhereQF4668; P precedes_somewhereQF4667; P specs2F4666; P specs1F4665; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37; LINK_STACK(); ARG(m1_, 0); ARG(m2_, 1); ARG(arg_types_, 2); T37 = CALL1(1,VARREF(YgooSfunYfun_specs),m1_); specs1F4665 = T37; T36 = CALL1(1,VARREF(YgooSfunYfun_specs),m2_); specs2F4666 = T36; precedes_somewhereQF4667 = YPfalse; follows_somewhereQF4668 = YPfalse; T27 = CALL1(1,VARREF(YgooScolsScolYenum),specs2F4666); x_1611F4669 = T27; T28 = CALL1(1,VARREF(YgooScolsScolYenum),specs1F4665); x_1610F4670 = T28; T29 = CALL1(1,VARREF(YgooScolsScolYenum),arg_types_); x_1609F4671 = T29; LOOP_214: { P a214_0,a214_1,a214_2; T8 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1611F4669); tmpF4672 = T8; if (tmpF4672 != YPfalse) { T4 = tmpF4672; } else { T7 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1610F4670); tmpF4673 = T7; if (tmpF4673 != YPfalse) { T5 = tmpF4673; } else { T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1609F4671); T5 = T6; } T4 = T5; } T3 = CALL1(1,VARREF(Ynot),T4); if (T3 != YPfalse) { T26 = CALL1(1,VARREF(YgooScolsScolYnow),x_1611F4669); spec2F4674 = T26; T25 = CALL1(1,VARREF(YgooScolsScolYnow),x_1610F4670); spec1F4675 = T25; T24 = CALL1(1,VARREF(YgooScolsScolYnow),x_1609F4671); arg_typeF4676 = T24; T9 = CALL2(1,VARREF(YgooSmacrosYEE),spec1F4675,spec2F4674); if (T9 != YPfalse) { } else { T11 = CALL3(1,VARREF(YevalSoptimizeYpreceding_specializerQ),spec1F4675,spec2F4674,arg_typeF4676); if (T11 != YPfalse) { T14 = CALL2(1,VARREF(YsubtypeQ),spec2F4674,spec1F4675); T13 = CALL1(1,VARREF(Ynot),T14); if (T13 != YPfalse) { T15 = precedes_somewhereQF4667 = YPtrue; T12 = T15; } else { T12 = YPfalse; } T10 = T12; } else { T17 = CALL3(1,VARREF(YevalSoptimizeYpreceding_specializerQ),spec2F4674,spec1F4675,arg_typeF4676); if (T17 != YPfalse) { T18 = follows_somewhereQF4668 = YPtrue; T16 = T18; } else { if (YPtrue != YPfalse) { T19 = YPfalse; } else { T19 = YPfalse; } T16 = T19; } T10 = T16; } } T21 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1611F4669); T22 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1610F4670); T23 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1609F4671); a214_0 = T21; a214_1 = T22; a214_2 = T23; x_1611F4669 = a214_0; x_1610F4670 = a214_1; x_1609F4671 = a214_2; goto LOOP_214; T2 = T20; } else { T2 = YPfalse; } } T31 = precedes_somewhereQF4667; if (T31 != YPfalse) { T33 = follows_somewhereQF4668; if (T33 != YPfalse) { T32 = VARREF(YevalSoptimizeYDmethods_unordered); } else { T32 = VARREF(YevalSoptimizeYDmethod1_precedes); } T30 = T32; } else { T35 = follows_somewhereQF4668; if (T35 != YPfalse) { T34 = VARREF(YevalSoptimizeYDmethod2_precedes); } else { T34 = VARREF(YevalSoptimizeYDmethods_unordered); } T30 = T34; } UNLINK_STACK(); RET(T30); } LOCCODEDEF(fun_preceding_specializerQ_8) { P t1_,t2_,arg_; P T0; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T0 = CALL2(1,VARREF(YsubtypeQ),t1_,t2_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_arguments_potentially_jointQ_9) { P arg_types_,domain_types_,max_; P T0; LINK_STACK(); ARG(arg_types_, 0); ARG(domain_types_, 1); ARG(max_, 2); T0 = CALL3(1,VARREF(YgooStypesYall2Q),VARREF(YevalSoptimizeYpotentially_jointQ),arg_types_,domain_types_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSoptimizeYpotentially_jointQ) { P t1_,t2_; P tmpF4677; P T0,T1,T2; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); T2 = CALL2(1,VARREF(YsubtypeQ),t1_,t2_); tmpF4677 = T2; if (tmpF4677 != YPfalse) { T0 = tmpF4677; } else { T1 = CALL2(1,VARREF(YsubtypeQ),t2_,t1_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_equivQ_11) { P x_,y_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YsubtypeQ),x_,y_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YsubtypeQ),y_,x_); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_do_do_call_analysisX_12) { P o_,r_,t_,f_,s_,funs_; P T0; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(t_, 2); ARG(f_, 3); ARG(s_, 4); ARG(funs_, 5); T0 = CALLN(1,VARREF(YevalSastYast_walkX),7,VARREF(YevalSoptimizeYdo_call_analysisX),o_,r_,t_,f_,s_,funs_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_call_analysisX_13) { P o_,r_,t_,f_,s_,funs_; P T0; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(t_, 2); ARG(f_, 3); ARG(s_, 4); ARG(funs_, 5); T0 = CALLN(1,VARREF(YevalSoptimizeYdo_do_call_analysisX),6,o_,r_,t_,f_,s_,funs_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSoptimizeYreopt_topX) { P s_,t_; P tmpF4678; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(s_, 0); ARG(t_, 1); T4 = CALL1(1,VARREF(Ynot),t_); tmpF4678 = T4; if (tmpF4678 != YPfalse) { T2 = tmpF4678; } else { T3 = CALL2(1,VARREF(YgooScolsScolYmemQ),s_,t_); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL2(1,VARREF(YgooScolsScolxYaddX),s_,t_); T0 = T5; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_call_analysisX_15) { P o_,r_,t_,f_,s_,funs_; P funQF4679; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(t_, 2); ARG(f_, 3); ARG(s_, 4); ARG(funs_, 5); T1 = CALL1(1,VARREF(YevalSastYreference_called_functionQ),o_); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T3 = CALL1(1,VARREF(YevalSastYreference_binding),o_); T2 = CALL2(1,VARREF(YevalSastYbinding_dynamic_extentQ_setter),YPfalse,T3); } else { } T13 = CALL1(1,VARREF(YevalSastYreference_binding),o_); T12 = CALL1(1,VARREF(YevalSastYbinding_value),T13); funQF4679 = T12; if (funQF4679 != YPfalse) { T6 = CALL2(1,VARREF(YgooScolsScolYmemQ),funs_,funQF4679); T5 = T6; } else { T5 = YPfalse; } if (T5 != YPfalse) { T9 = CALL1(1,VARREF(YevalSastYfunction_ref_count),funQF4679); T8 = CALL2(1,VARREF(YgooSlogYE),T9,YPint((P)1)); if (T8 != YPfalse) { CALL2(1,VARREF(YevalSoptimizeYreopt_topX),s_,t_); T11 = CALL1(1,VARREF(YevalSastYfunction_ref_count),funQF4679); T10 = CALL2(1,VARREF(YgooSmathY_),T11,YPint((P)1)); CALL2(1,VARREF(YevalSastYfunction_ref_count_setter),T10,funQF4679); T7 = funQF4679; } else { T7 = o_; } T4 = T7; } else { T4 = o_; } UNLINK_STACK(); QRET(T4); } LOCCODEDEF(fun_do_call_analysisX_16) { P o_,r_,t_,f_,s_,funs_; P bodyF4680; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(t_, 2); ARG(f_, 3); ARG(s_, 4); ARG(funs_, 5); T0 = CALL1(1,VARREF(YevalSastYfunction_signature),o_); CALLN(1,VARREF(YevalSoptimizeYdo_call_analysisX),6,T0,r_,t_,f_,s_,funs_); T9 = CALL1(1,VARREF(YevalSastYfunction_body),o_); T8 = CALLN(1,VARREF(YevalSoptimizeYdo_call_analysisX),6,T9,r_,t_,o_,s_,funs_); bodyF4680 = T8; T2 = CALL1(1,VARREF(YevalSastYfunction_loop),o_); if (T2 != YPfalse) { T4 = CALL2(1,VARREF(YisaQ),bodyF4680,VARREF(YevalSastYLloopG)); T3 = CALL1(1,VARREF(Ynot),T4); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YevalSastYfunction_loop),o_); CALL2(1,VARREF(YevalSastYloop_body_setter),bodyF4680,T5); T7 = CALL1(1,VARREF(YevalSastYfunction_loop),o_); T6 = CALL2(1,VARREF(YevalSastYfunction_body_setter),T7,o_); } else { } UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_ensure_loop_17) { P f_; P tmpF4682; P UF4681; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(f_, 0); T5 = CALL1(1,VARREF(YevalSastYfunction_loop),f_); UF4681 = T5; T4 = CALL1(1,VARREF(YevalSastYfunction_loop),f_); tmpF4682 = T4; if (tmpF4682 != YPfalse) { T0 = tmpF4682; } else { T3 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); T2 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLloopG),VARREF(YevalSastYloop_bindings),T3); T1 = CALL2(1,VARREF(YevalSastYfunction_loop_setter),T2,f_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_18) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_type),x_); T0 = CALL1(1,VARREF(YevalSoptimizeYunconstrained_typeQ),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_call_analysisX_19) { P o_,r_,t_,f_,s_,funs_; P loopF4687; P calleeF4686; P x_1614F4685; P x_1613F4684; P refF4683; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(t_, 2); ARG(f_, 3); ARG(s_, 4); ARG(funs_, 5); CALLN(1,VARREF(YevalSoptimizeYdo_do_call_analysisX),6,o_,r_,t_,f_,s_,funs_); T39 = CALL1(1,VARREF(YevalSastYapplication_function),o_); refF4683 = T39; x_1613F4684 = refF4683; x_1614F4685 = VARREF(YisaQ); T1 = CALL2(1,x_1614F4685,x_1613F4684,VARREF(YevalSastYLlocal_referenceG)); if (T1 != YPfalse) { T33 = CALL1(1,VARREF(YevalSastYreference_binding),refF4683); T32 = CALL1(1,VARREF(YevalSastYbinding_value),T33); calleeF4686 = T32; T4 = CALL2(1,VARREF(YgooSmacrosYEE),calleeF4686,f_); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(YevalSastYapplication_tailQ),o_); if (T6 != YPfalse) { T8 = CALL1(1,VARREF(YevalSastYfunction_naryQ),f_); T7 = CALL1(1,VARREF(Ynot),T8); T5 = T7; } else { T5 = YPfalse; } T3 = T5; } else { T3 = YPfalse; } if (T3 != YPfalse) { T13 = CALL1(1,VARREF(YevalSoptimizeYensure_loop),f_); loopF4687 = T13; T10 = CALL1(1,VARREF(YevalSastYfunction_ref_count),f_); T9 = CALL2(1,VARREF(YgooSmathY_),T10,YPint((P)1)); CALL2(1,VARREF(YevalSastYfunction_ref_count_setter),T9,f_); CALL2(1,VARREF(YevalSoptimizeYreopt_topX),s_,t_); T12 = CALL1(1,VARREF(YevalSastYapplication_arguments),o_); T11 = CALL5(1,VARREF(Ynew),VARREF(YevalSastYLloop_applicationG),VARREF(YevalSastYapplication_loop),loopF4687,VARREF(YevalSastYapplication_arguments),T12); T2 = T11; } else { T16 = CALL2(1,VARREF(YisaQ),f_,VARREF(YevalSastYLast_functionG)); if (T16 != YPfalse) { T19 = fun_18; T20 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); T18 = CALL2(1,VARREF(YgooScolsScolYallQ),T19,T20); if (T18 != YPfalse) { T23 = CALL1(1,VARREF(YevalSastYfunction_value),f_); T22 = CALL1(1,VARREF(YevalSoptimizeYunconstrained_typeQ),T23); if (T22 != YPfalse) { T26 = CALL1(1,VARREF(YevalSastYfunction_naryQ),f_); T25 = CALL1(1,VARREF(Ynot),T26); if (T25 != YPfalse) { T29 = CALL1(1,VARREF(YevalSastYapplication_arguments),o_); T28 = CALL1(1,VARREF(YgooStypesYlen),T29); T31 = CALL1(1,VARREF(YevalSastYfunction_bindings),f_); T30 = CALL1(1,VARREF(YgooStypesYlen),T31); T27 = CALL2(1,VARREF(YgooSlogYE),T28,T30); T24 = T27; } else { T24 = YPfalse; } T21 = T24; } else { T21 = YPfalse; } T17 = T21; } else { T17 = YPfalse; } T15 = T17; } else { T15 = YPfalse; } if (T15 != YPfalse) { CALL2(1,VARREF(YevalSastYapplication_knownQ_setter),YPtrue,o_); T14 = o_; } else { T14 = o_; } T2 = T14; } T0 = T2; } else { T35 = CALL2(1,x_1614F4685,x_1613F4684,VARREF(YevalSastYLast_embodied_functionG)); if (T35 != YPfalse) { CALL2(1,VARREF(YevalSoptimizeYreopt_topX),s_,t_); T37 = CALL1(1,VARREF(YevalSastYapplication_arguments),o_); T38 = CALL1(1,VARREF(YevalSastYapplication_tailQ),o_); T36 = CALL4(1,VARREF(YevalSastYprocess_closed_application),refF4683,T37,r_,T38); T34 = T36; } else { T34 = o_; } T0 = T34; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_call_analysisX_20) { P o_,r_,t_,f_,s_,funs_; P resF4690; P new_funsF4689; P singleQF4688; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); ARG(t_, 2); ARG(f_, 3); ARG(s_, 4); ARG(funs_, 5); T14 = CALL1(1,VARREF(YevalSastYlocals_functions),o_); T13 = CALL1(1,VARREF(YgooStypesYlen),T14); T12 = CALL2(1,VARREF(YgooSlogYE),T13,YPint((P)1)); singleQF4688 = T12; if (singleQF4688 != YPfalse) { T11 = CALL1(1,VARREF(YevalSastYlocals_functions),o_); T10 = CALL1(1,VARREF(YgooSmacrosY1st),T11); T9 = CALL2(1,VARREF(YgooSmacrosYpair),T10,funs_); T8 = T9; } else { T8 = funs_; } new_funsF4689 = T8; T7 = CALLN(1,VARREF(YevalSoptimizeYdo_do_call_analysisX),6,o_,r_,t_,f_,s_,new_funsF4689); resF4690 = T7; if (singleQF4688 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmacrosY1st),new_funsF4689); T3 = CALL1(1,VARREF(YevalSastYfunction_ref_count),T4); T2 = CALL2(1,VARREF(YgooSlogYE),T3,YPint((P)0)); if (T2 != YPfalse) { CALL2(1,VARREF(YevalSoptimizeYreopt_topX),s_,t_); T5 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YevalSastYLfunctionsG)); CALL2(1,VARREF(YevalSastYlocals_functions_setter),T5,o_); CALL2(1,VARREF(YevalSastYlocals_bindings_setter),Ynil,o_); T6 = CALL1(1,VARREF(YevalSastYlocals_body),o_); T1 = T6; } else { T1 = resF4690; } T0 = T1; } else { T0 = resF4690; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_21) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALLN(1,VARREF(YevalSoptimizeYdo_call_analysisX),6,x_,FREEREF(0),x_,YPfalse,FREEREF(1),Ynil); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL2(1,VARREF(YevalSoptimizeYanalyze_calls),e_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_analyze_calls_23) { P o_,r_; P resF4692; P sF4691; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(o_, 0); ARG(r_, 1); T8 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); sF4691 = T8; T4 = CALL2(1,VARREF(YisaQ),o_,VARREF(YevalSastYLsequentialG)); if (T4 != YPfalse) { T6 = FUNFAB(fun_21,2,r_,sF4691); T5 = CALL2(1,VARREF(YgooSmacrosYmap),T6,o_); T3 = T5; } else { T7 = CALLN(1,VARREF(YevalSoptimizeYdo_call_analysisX),6,o_,r_,o_,YPfalse,sF4691,Ynil); T3 = T7; } resF4692 = T3; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),sF4691); if (T1 != YPfalse) { T0 = resF4692; } else { T2 = FUNFAB(fun_22,1,r_); CALL2(1,VARREF(YgooSmacrosYdo),T2,sF4691); T0 = resF4692; } UNLINK_STACK(); QRET(T0); } P YevalSoptimizeY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80; DEFCREGS(); lit_0 = YPPsym((P)"unconstrained-type?"); lit_1 = YPPlist(1,YPPsym((P)"b")); T0 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLprogramG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_unconstrained_typeQ_0 = YPfab_met(FUNCODEREF(fun_unconstrained_typeQ_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(7),YPfalse); T2 = VARREF_OR(YevalSoptimizeYunconstrained_typeQ,YPfalse); T3 = fun_unconstrained_typeQ_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSoptimizeYunconstrained_typeQ,T1); lit_2 = YPPlist(1,YPPsym((P)"b")); lit_3 = YPPsym((P)"goo/boot"); lit_4 = YPPsym((P)""); T4 = YPfab_sig(YPPlist(1,VARREF(YevalSmoduleYLmodule_bindingG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_unconstrained_typeQ_1 = YPfab_met(FUNCODEREF(fun_unconstrained_typeQ_1),T4,LITREF(lit_0),LITREF(lit_2),sloc(10),YPfalse); T6 = VARREF_OR(YevalSoptimizeYunconstrained_typeQ,YPfalse); T7 = fun_unconstrained_typeQ_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSoptimizeYunconstrained_typeQ,T5); lit_5 = YPPlist(1,YPPsym((P)"o")); T8 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLmodule_binding_referenceG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_unconstrained_typeQ_2 = YPfab_met(FUNCODEREF(fun_unconstrained_typeQ_2),T8,LITREF(lit_0),LITREF(lit_5),sloc(13),YPfalse); T10 = VARREF_OR(YevalSoptimizeYunconstrained_typeQ,YPfalse); T11 = fun_unconstrained_typeQ_2; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSoptimizeYunconstrained_typeQ,T9); VARSET(YevalSoptimizeYLarg_seqG,VARREF(YLlstG)); VARSET(YevalSoptimizeYLmet_seqG,VARREF(YLlstG)); lit_6 = YPPsym((P)"sorted-applicable-methods-using-types"); lit_7 = YPPlist(2,YPPsym((P)"methods"),YPPsym((P)"arg-types")); lit_8 = YPPsym((P)"merge-method"); lit_9 = YPPlist(2,YPPsym((P)"m"),YPPsym((P)"sorted")); lit_10 = YPPsym((P)"after-m?"); lit_11 = YPPlist(1,YPPsym((P)"other-m")); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_after_mQ_3 = YPfab_met(FUNCODEREF(fun_after_mQ_3),T15,LITREF(lit_10),LITREF(lit_11),sloc(28),YPfalse); T14 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_merge_method_4 = YPfab_met(FUNCODEREF(fun_merge_method_4),T14,LITREF(lit_8),LITREF(lit_9),sloc(26),YPfalse); T13 = XCALL2(1,VARREF(YtT),VARREF(YevalSoptimizeYLmet_seqG),VARREF(YevalSoptimizeYLmet_seqG)); T12 = YPfab_sig(YPPlist(2,VARREF(YevalSoptimizeYLmet_seqG),VARREF(YevalSoptimizeYLarg_seqG)),YPfalse,YPint((P)2),T13,Ynil); fun_sorted_applicable_methods_using_types_5 = YPfab_met(FUNCODEREF(fun_sorted_applicable_methods_using_types_5),T12,LITREF(lit_6),LITREF(lit_7),sloc(21),YPfalse); T17 = VARREF_OR(YevalSoptimizeYsorted_applicable_methods_using_types,YPfalse); T18 = fun_sorted_applicable_methods_using_types_5; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YevalSoptimizeYsorted_applicable_methods_using_types,T16); lit_12 = YPPsym((P)"unordered"); VARSET(YevalSoptimizeYDmethods_unordered,LITREF(lit_12)); lit_13 = YPPsym((P)"method1"); VARSET(YevalSoptimizeYDmethod1_precedes,LITREF(lit_13)); lit_14 = YPPsym((P)"method2"); VARSET(YevalSoptimizeYDmethod2_precedes,LITREF(lit_14)); lit_15 = YPPsym((P)"method-precedes?"); lit_16 = YPPlist(3,YPPsym((P)"m1"),YPPsym((P)"m2"),YPPsym((P)"arg-types")); T19 = YPfab_sig(YPPlist(3,VARREF(YLmetG),VARREF(YLmetG),VARREF(YevalSoptimizeYLarg_seqG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_method_precedesQ_6 = YPfab_met(FUNCODEREF(fun_method_precedesQ_6),T19,LITREF(lit_15),LITREF(lit_16),sloc(59),YPfalse); T21 = VARREF_OR(YevalSoptimizeYmethod_precedesQ,YPfalse); T22 = fun_method_precedesQ_6; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YevalSoptimizeYmethod_precedesQ,T20); lit_17 = YPPsym((P)"method-relationship"); lit_18 = YPPlist(3,YPPsym((P)"m1"),YPPsym((P)"m2"),YPPsym((P)"arg-types")); T23 = YPfab_sig(YPPlist(3,VARREF(YLmetG),VARREF(YLmetG),VARREF(YevalSoptimizeYLarg_seqG)),YPfalse,YPint((P)3),VARREF(YLsymG),Ynil); fun_method_relationship_7 = YPfab_met(FUNCODEREF(fun_method_relationship_7),T23,LITREF(lit_17),LITREF(lit_18),sloc(65),YPfalse); T25 = VARREF_OR(YevalSoptimizeYmethod_relationship,YPfalse); T26 = fun_method_relationship_7; T24 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T25,T26); VARSET(YevalSoptimizeYmethod_relationship,T24); lit_19 = YPPsym((P)"preceding-specializer?"); lit_20 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T28 = YPfab_sig(YPPlist(3,VARREF(YLtypeG),VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); T27 = YPfab_gen(T28,LITREF(lit_19),LITREF(lit_20),YPfalse); VARSET(YevalSoptimizeYpreceding_specializerQ,T27); lit_21 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T29 = YPfab_sig(YPPlist(3,VARREF(YLtypeG),VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); fun_preceding_specializerQ_8 = YPfab_met(FUNCODEREF(fun_preceding_specializerQ_8),T29,LITREF(lit_19),LITREF(lit_21),sloc(85),YPfalse); T31 = VARREF_OR(YevalSoptimizeYpreceding_specializerQ,YPfalse); T32 = fun_preceding_specializerQ_8; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YevalSoptimizeYpreceding_specializerQ,T30); lit_22 = YPPsym((P)"arguments-potentially-joint?"); lit_23 = YPPlist(3,YPPsym((P)"arg-types"),YPPsym((P)"domain-types"),YPPsym((P)"max")); T33 = YPfab_sig(YPPlist(3,VARREF(YevalSoptimizeYLarg_seqG),VARREF(YevalSoptimizeYLarg_seqG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); fun_arguments_potentially_jointQ_9 = YPfab_met(FUNCODEREF(fun_arguments_potentially_jointQ_9),T33,LITREF(lit_22),LITREF(lit_23),sloc(88),YPfalse); T35 = VARREF_OR(YevalSoptimizeYarguments_potentially_jointQ,YPfalse); T36 = fun_arguments_potentially_jointQ_9; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YevalSoptimizeYarguments_potentially_jointQ,T34); lit_24 = YPPsym((P)"potentially-joint?"); lit_25 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T37 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YevalSoptimizeYpotentially_jointQ = YPfab_met(FUNCODEREF(YevalSoptimizeYpotentially_jointQ),T37,LITREF(lit_24),LITREF(lit_25),sloc(92),YPfalse); T38 = YevalSoptimizeYpotentially_jointQ; VARSET(YevalSoptimizeYpotentially_jointQ,T38); lit_26 = YPPsym((P)"type-equiv?"); lit_27 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T39 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_type_equivQ_11 = YPfab_met(FUNCODEREF(fun_type_equivQ_11),T39,LITREF(lit_26),LITREF(lit_27),sloc(97),YPfalse); T41 = VARREF_OR(YevalSoptimizeYtype_equivQ,YPfalse); T42 = fun_type_equivQ_11; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YevalSoptimizeYtype_equivQ,T40); lit_28 = YPPsym((P)"do-do-call-analysis!"); lit_29 = YPPlist(6,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"t"),YPPsym((P)"f"),YPPsym((P)"s"),YPPsym((P)"funs")); T43 = YPfab_sig(YPPlist(6,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_do_do_call_analysisX_12 = YPfab_met(FUNCODEREF(fun_do_do_call_analysisX_12),T43,LITREF(lit_28),LITREF(lit_29),sloc(102),YPfalse); T45 = VARREF_OR(YevalSoptimizeYdo_do_call_analysisX,YPfalse); T46 = fun_do_do_call_analysisX_12; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YevalSoptimizeYdo_do_call_analysisX,T44); lit_30 = YPPsym((P)"do-call-analysis!"); lit_31 = YPPlist(6,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"t"),YPPsym((P)"f"),YPPsym((P)"s"),YPPsym((P)"funs")); T47 = YPfab_sig(YPPlist(6,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_do_call_analysisX_13 = YPfab_met(FUNCODEREF(fun_do_call_analysisX_13),T47,LITREF(lit_30),LITREF(lit_31),sloc(105),YPfalse); T49 = VARREF_OR(YevalSoptimizeYdo_call_analysisX,YPfalse); T50 = fun_do_call_analysisX_13; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YevalSoptimizeYdo_call_analysisX,T48); lit_32 = YPPsym((P)"reopt-top!"); lit_33 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"t")); T51 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalSoptimizeYreopt_topX = YPfab_met(FUNCODEREF(YevalSoptimizeYreopt_topX),T51,LITREF(lit_32),LITREF(lit_33),sloc(108),YPfalse); T52 = YevalSoptimizeYreopt_topX; VARSET(YevalSoptimizeYreopt_topX,T52); lit_34 = YPPlist(6,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"t"),YPPsym((P)"f"),YPPsym((P)"s"),YPPsym((P)"funs")); T53 = YPfab_sig(YPPlist(6,VARREF(YevalSastYLlocal_referenceG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_do_call_analysisX_15 = YPfab_met(FUNCODEREF(fun_do_call_analysisX_15),T53,LITREF(lit_30),LITREF(lit_34),sloc(111),YPfalse); T55 = VARREF_OR(YevalSoptimizeYdo_call_analysisX,YPfalse); T56 = fun_do_call_analysisX_15; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YevalSoptimizeYdo_call_analysisX,T54); lit_35 = YPPlist(6,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"t"),YPPsym((P)"f"),YPPsym((P)"s"),YPPsym((P)"funs")); T57 = YPfab_sig(YPPlist(6,VARREF(YevalSastYLast_embodied_functionG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_do_call_analysisX_16 = YPfab_met(FUNCODEREF(fun_do_call_analysisX_16),T57,LITREF(lit_30),LITREF(lit_35),sloc(123),YPfalse); T59 = VARREF_OR(YevalSoptimizeYdo_call_analysisX,YPfalse); T60 = fun_do_call_analysisX_16; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSoptimizeYdo_call_analysisX,T58); lit_36 = YPPsym((P)"ensure-loop"); lit_37 = YPPlist(1,YPPsym((P)"f")); T61 = YPfab_sig(YPPlist(1,VARREF(YevalSastYLast_embodied_functionG)),YPfalse,YPint((P)1),VARREF(YevalSastYLloopG),Ynil); fun_ensure_loop_17 = YPfab_met(FUNCODEREF(fun_ensure_loop_17),T61,LITREF(lit_36),LITREF(lit_37),sloc(131),YPfalse); T63 = VARREF_OR(YevalSoptimizeYensure_loop,YPfalse); T64 = fun_ensure_loop_17; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSoptimizeYensure_loop,T62); lit_38 = YPPlist(6,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"t"),YPPsym((P)"f"),YPPsym((P)"s"),YPPsym((P)"funs")); lit_39 = YPPlist(1,YPPsym((P)"x")); T66 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T66,YPfalse,LITREF(lit_39),sloc(149),YPfalse); T65 = YPfab_sig(YPPlist(6,VARREF(YevalSastYLregular_applicationG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_do_call_analysisX_19 = YPfab_met(FUNCODEREF(fun_do_call_analysisX_19),T65,LITREF(lit_30),LITREF(lit_38),sloc(135),YPfalse); T68 = VARREF_OR(YevalSoptimizeYdo_call_analysisX,YPfalse); T69 = fun_do_call_analysisX_19; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalSoptimizeYdo_call_analysisX,T67); lit_40 = YPPlist(6,YPPsym((P)"o"),YPPsym((P)"r"),YPPsym((P)"t"),YPPsym((P)"f"),YPPsym((P)"s"),YPPsym((P)"funs")); T70 = YPfab_sig(YPPlist(6,VARREF(YevalSastYLlocalsG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_do_call_analysisX_20 = YPfab_met(FUNCODEREF(fun_do_call_analysisX_20),T70,LITREF(lit_30),LITREF(lit_40),sloc(163),YPfalse); T72 = VARREF_OR(YevalSoptimizeYdo_call_analysisX,YPfalse); T73 = fun_do_call_analysisX_20; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSoptimizeYdo_call_analysisX,T71); lit_41 = YPPsym((P)"analyze-calls"); lit_42 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"r")); lit_43 = YPPlist(1,YPPsym((P)"x")); lit_44 = YPPlist(1,YPPsym((P)"e")); T76 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_21 = YPfab_met(FUNCODEREF(fun_21),T76,YPfalse,LITREF(lit_43),sloc(180),YPfalse); T75 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T75,YPfalse,LITREF(lit_44),sloc(184),YPfalse); T74 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_analyze_calls_23 = YPfab_met(FUNCODEREF(fun_analyze_calls_23),T74,LITREF(lit_41),LITREF(lit_42),sloc(176),YPfalse); T78 = VARREF_OR(YevalSoptimizeYanalyze_calls,YPfalse); T79 = fun_analyze_calls_23; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalSoptimizeYanalyze_calls,T77); T80 = YPfalse; return T80; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSloc}, {&module_info_evalSast}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"c-inline-strs", &module_info_evalSast, NULL}, {"", &module_info_gooStypes, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"function-value", &module_info_evalSast, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"c-inline-refs", &module_info_evalSast, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"program-register", &module_info_evalSast, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-inline-expr?", &module_info_evalSast, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"~=", &module_info_gooSlog, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"t?", &module_info_gooStypes, NULL}, {"", &module_info_evalSast, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"any?", &module_info_gooStypes, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"", &module_info_evalSmodule, NULL}, {"|", &module_info_gooSmath, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"-", &module_info_gooSmath, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_evalSast, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"", &module_info_evalSast, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"abs", &module_info_gooSmath, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"as-c", &module_info_gooSloc, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"application-function", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"program-type", &module_info_evalSast, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"", &module_info_evalSast, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"as-goo", &module_info_gooSloc, NULL}, {"round/", &module_info_gooSmath, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"address-of", &module_info_gooSany, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"ds", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"function-source", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"clone", &module_info_gooSclass, NULL}, {"", &module_info_evalSast, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"function-free", &module_info_evalSast, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"dg", &module_info_gooSboot, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"even?", &module_info_gooSmath, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"<", &module_info_gooSmag, NULL}, {"", &module_info_evalSast, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"program-line", &module_info_evalSast, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"function-body", &module_info_evalSast, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"function-index", &module_info_evalSast, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"in", &module_info_gooSioSport, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"", &module_info_evalSast, NULL}, {"until", &module_info_gooSmacros, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-names", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"nil", &module_info_gooSboot, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"opf", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YevalSoptimizeYLmet_seqG}, {"$method1-precedes", CVAR, &YevalSoptimizeYDmethod1_precedes}, {"reopt-top!", CVAR, &YevalSoptimizeYreopt_topX}, {"do-do-call-analysis!", CVAR, &YevalSoptimizeYdo_do_call_analysisX}, {"arguments-potentially-joint?", CVAR, &YevalSoptimizeYarguments_potentially_jointQ}, {"ensure-loop", CVAR, &YevalSoptimizeYensure_loop}, {"analyze-calls", CVAR, &YevalSoptimizeYanalyze_calls}, {"method-precedes?", CVAR, &YevalSoptimizeYmethod_precedesQ}, {"type-equiv?", CVAR, &YevalSoptimizeYtype_equivQ}, {"do-call-analysis!", CVAR, &YevalSoptimizeYdo_call_analysisX}, {"", CVAR, &YevalSoptimizeYLarg_seqG}, {"preceding-specializer?", CVAR, &YevalSoptimizeYpreceding_specializerQ}, {"potentially-joint?", CVAR, &YevalSoptimizeYpotentially_jointQ}, {"unconstrained-type?", CVAR, &YevalSoptimizeYunconstrained_typeQ}, {"sorted-applicable-methods-using-types", CVAR, &YevalSoptimizeYsorted_applicable_methods_using_types}, {"$methods-unordered", CVAR, &YevalSoptimizeYDmethods_unordered}, {"---main-0---", PVAR, NULL}, {"$method2-precedes", CVAR, &YevalSoptimizeYDmethod2_precedes}, {"method-relationship", CVAR, &YevalSoptimizeYmethod_relationship}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"analyze-calls", NULL}, {"type-equiv?", NULL}, {"unconstrained-type?", NULL}, {"potentially-joint?", NULL}, {"sorted-applicable-methods-using-types", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSoptimize; MODULE_INFO module_info_evalSoptimize = { "eval/optimize", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSloc (void); extern void load_module_evalSast (void); /* EXPRESSION: */ extern void load_module_evalSoptimize (void); void load_module_evalSoptimize (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSloc(); load_module_evalSast(); (P)YevalSoptimizeY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/syntax.c0100644000175000017500000076635507756744541015300 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/syntax"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/syntax */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); DEF(YevalSsyntaxYDsexpr_define_method_tag,"eval/syntax","$sexpr-define-method-tag"); DEF(YevalSsyntaxYsexpr_function_value,"eval/syntax","sexpr-function-value"); DEF(YevalSsyntaxYDsexpr_macro_tag,"eval/syntax","$sexpr-macro-tag"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); DEF(YevalSsyntaxYDsexpr_define_constant_tag,"eval/syntax","$sexpr-define-constant-tag"); DEF(YevalSsyntaxYTbq_appendT,"eval/syntax","*bq-append*"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); DEF(YevalSsyntaxYsexpr_isa_parent,"eval/syntax","sexpr-isa-parent"); DEF(YevalSsyntaxYsexpr_unwind_protect_protected_form,"eval/syntax","sexpr-unwind-protect-protected-form"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); DEF(YevalSsyntaxYTbq_nconcT,"eval/syntax","*bq-nconc*"); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); DEF(YevalSsyntaxYDsexpr_set_tag,"eval/syntax","$sexpr-set-tag"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); DEF(YevalSsyntaxYDsexpr_unwind_protect_tag,"eval/syntax","$sexpr-unwind-protect-tag"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); DEF(YevalSsyntaxYDsexpr_quasiquote_tag,"eval/syntax","$sexpr-quasiquote-tag"); DEF(YevalSsyntaxYsexpr_define_classQ,"eval/syntax","sexpr-define-class?"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); DEF(YevalSsyntaxYTbq_listT,"eval/syntax","*bq-list*"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_last_expQ,"eval/syntax","sexpr-last-exp?"); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); DEF(YevalSsyntaxYbq_remove_tokens,"eval/syntax","bq-remove-tokens"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); DEF(YevalSsyntaxYTcomma_atsignT,"eval/syntax","*comma-atsign*"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); DEF(YevalSsyntaxYsexpr_atomQ,"eval/syntax","sexpr-atom?"); DEF(YevalSsyntaxYnreconc,"eval/syntax","nreconc"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_value_type,"eval/syntax","sexpr-value-type"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YevalSsyntaxYsexpr_new_unique_name_counterX,"eval/syntax","sexpr-new-unique-name-counter!"); DEF(YevalSsyntaxYsexpr_isa_prop_inits,"eval/syntax","sexpr-isa-prop-inits"); DEF(YevalSsyntaxYDsexpr_let_tag,"eval/syntax","$sexpr-let-tag"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_prop_initQ,"eval/syntax","sexpr-prop-init?"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); DEF(YevalSsyntaxYDsexpr_locals_tag,"eval/syntax","$sexpr-locals-tag"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_loc_bound_signatures,"eval/syntax","sexpr-loc-bound-signatures"); DEF(YevalSsyntaxYsexpr_loc_bound_bodies,"eval/syntax","sexpr-loc-bound-bodies"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); DEF(YevalSsyntaxYsexpr_syntax_if_then,"eval/syntax","sexpr-syntax-if-then"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); DEF(YevalSsyntaxYsexpr_def_variable,"eval/syntax","sexpr-def-variable"); DEF(YevalSsyntaxYsexpr_iterate_inits,"eval/syntax","sexpr-iterate-inits"); DEF(YevalSsyntaxYsexpr_if_test,"eval/syntax","sexpr-if-test"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); DEF(YevalSsyntaxYsexpr_build_backquote_expander,"eval/syntax","sexpr-build-backquote-expander"); DEF(YevalSsyntaxYsexpr_let_body,"eval/syntax","sexpr-let-body"); DEF(YevalSsyntaxYsexpr_no_operandsQ,"eval/syntax","sexpr-no-operands?"); DEF(YevalSsyntaxYsexpr_fab_setter_name,"eval/syntax","sexpr-fab-setter-name"); DEF(YevalSsyntaxYsexpr_let_Gcombination,"eval/syntax","sexpr-let->combination"); DEF(YevalSsyntaxYLnameG,"eval/syntax",""); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); DEF(YevalSsyntaxYDsexpr_isa_tag,"eval/syntax","$sexpr-isa-tag"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); DEF(YevalSsyntaxYsexpr_monitor_test,"eval/syntax","sexpr-monitor-test"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DEF(YevalSsyntaxYsexpr_unwind_protectQ,"eval/syntax","sexpr-unwind-protect?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); DEF(YevalSsyntaxYDsexpr_iterate_tag,"eval/syntax","$sexpr-iterate-tag"); DEF(YevalSsyntaxYsexpr_monitor_expand,"eval/syntax","sexpr-monitor-expand"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); DEF(YevalSsyntaxYsexpr_variable_name,"eval/syntax","sexpr-variable-name"); EXT(YPtrue,"goo/boot","%true"); DEF(YevalSsyntaxYsexpr_bind_pattern_variables,"eval/syntax","sexpr-bind-pattern-variables"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); DEF(YevalSsyntaxYsexpr_make_anonymous_method,"eval/syntax","sexpr-make-anonymous-method"); DEF(YevalSsyntaxYDsexpr_define_tag,"eval/syntax","$sexpr-define-tag"); DEF(YevalSsyntaxYTbq_clobberableT,"eval/syntax","*bq-clobberable*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); DEF(YevalSsyntaxYsexpr_definition_variable,"eval/syntax","sexpr-definition-variable"); DEF(YevalSsyntaxYsexpr_function_parameters,"eval/syntax","sexpr-function-parameters"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); DEF(YevalSsyntaxYsexpr_function_definition_variable,"eval/syntax","sexpr-function-definition-variable"); DEF(YevalSsyntaxYsexpr_syntax_definition_variable,"eval/syntax","sexpr-syntax-definition-variable"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); DEF(YevalSsyntaxYsexpr_self_evaluatingQ,"eval/syntax","sexpr-self-evaluating?"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); DEF(YevalSsyntaxYsexpr_variableQ,"eval/syntax","sexpr-variable?"); DEF(YevalSsyntaxYsexpr_tagged_listQ,"eval/syntax","sexpr-tagged-list?"); DEF(YevalSsyntaxYDsexpr_monitor_tag,"eval/syntax","$sexpr-monitor-tag"); DEF(YevalSsyntaxYsexpr_assignmentQ,"eval/syntax","sexpr-assignment?"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); DEF(YevalSsyntaxYsexpr_def_value,"eval/syntax","sexpr-def-value"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); DEF(YevalSsyntaxYsexpr_isaQ,"eval/syntax","sexpr-isa?"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); DEF(YevalSsyntaxYsexpr_loc_body,"eval/syntax","sexpr-loc-body"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); DEF(YevalSsyntaxYsexpr_prop_name,"eval/syntax","sexpr-prop-name"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); DEF(YevalSsyntaxYsexpr_make_begin,"eval/syntax","sexpr-make-begin"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); DEF(YevalSsyntaxYsexpr_method_signature,"eval/syntax","sexpr-method-signature"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_text_of_quotation,"eval/syntax","sexpr-text-of-quotation"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); DEF(YevalSsyntaxYsexpr_isa_init_values,"eval/syntax","sexpr-isa-init-values"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YevalSsyntaxYsexpr_ifQ,"eval/syntax","sexpr-if?"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); DEF(YevalSsyntaxYsexpr_sequence_Gbegin,"eval/syntax","sexpr-sequence->begin"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_definitionQ,"eval/syntax","sexpr-definition?"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); DEF(YevalSsyntaxYsexpr_syntax_if_pattern,"eval/syntax","sexpr-syntax-if-pattern"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); DEF(YevalSsyntaxYsexpr_let_values,"eval/syntax","sexpr-let-values"); DEF(YevalSsyntaxYsexpr_begin_actions,"eval/syntax","sexpr-begin-actions"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); DEF(YevalSsyntaxYmap_tree,"eval/syntax","map-tree"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_operands,"eval/syntax","sexpr-operands"); EXT(YgooSioSportYput,"goo/io/port","put"); DEF(YevalSsyntaxYsexpr_loc_bound_names,"eval/syntax","sexpr-loc-bound-names"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); DEF(YevalSsyntaxYsexpr_function_signature,"eval/syntax","sexpr-function-signature"); EXT(YLcolG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_generic_definitionQ,"eval/syntax","sexpr-generic-definition?"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); DEF(YevalSsyntaxYsexpr_method_body,"eval/syntax","sexpr-method-body"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); DEF(YevalSsyntaxYsexpr_make_if,"eval/syntax","sexpr-make-if"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_monitorQ,"eval/syntax","sexpr-monitor?"); DEF(YevalSsyntaxYsexpr_assignment_value,"eval/syntax","sexpr-assignment-value"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); DEF(YevalSsyntaxYsexpr_iterate_signature,"eval/syntax","sexpr-iterate-signature"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); DEF(YevalSsyntaxYsexpr_propQ,"eval/syntax","sexpr-prop?"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); DEF(YevalSsyntaxYsexpr_make_application,"eval/syntax","sexpr-make-application"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); DEF(YevalSsyntaxYDsexpr_begin_tag,"eval/syntax","$sexpr-begin-tag"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); DEF(YevalSsyntaxYsexpr_methodQ,"eval/syntax","sexpr-method?"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); DEF(YevalSsyntaxYsexpr_signature_parameters,"eval/syntax","sexpr-signature-parameters"); EXT(YLlocG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_function_definition_adjectives,"eval/syntax","sexpr-function-definition-adjectives"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); DEF(YevalSsyntaxYsexpr_make_quote,"eval/syntax","sexpr-make-quote"); DEF(YevalSsyntaxYDsexpr_prop_tag,"eval/syntax","$sexpr-prop-tag"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YevalSsyntaxYsexpr_fab_setter,"eval/syntax","sexpr-fab-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_block_body,"eval/syntax","sexpr-block-body"); DEF(YevalSsyntaxYDsexpr_macro_expand_tag,"eval/syntax","$sexpr-macro-expand-tag"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YevalSsyntaxYsexpr_make_syntax_if,"eval/syntax","sexpr-make-syntax-if"); DEF(YevalSsyntaxYsexpr_prop_type,"eval/syntax","sexpr-prop-type"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); DEF(YevalSsyntaxYsexpr_syntax_definitionQ,"eval/syntax","sexpr-syntax-definition?"); DEF(YevalSsyntaxYsexpr_backquoteQ,"eval/syntax","sexpr-backquote?"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); DEF(YevalSsyntaxYDsexpr_define_function_tag,"eval/syntax","$sexpr-define-function-tag"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); DEF(YevalSsyntaxYTunique_name_counterT,"eval/syntax","*unique-name-counter*"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); DEF(YevalSsyntaxYsexpr_syntax_if_value,"eval/syntax","sexpr-syntax-if-value"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); DEF(YevalSsyntaxYsexpr_define_constantQ,"eval/syntax","sexpr-define-constant?"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YevalSsyntaxYas_signature,"eval/syntax","as-signature"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); DEF(YevalSsyntaxYDsexpr_syntax_if_tag,"eval/syntax","$sexpr-syntax-if-tag"); DEF(YevalSsyntaxYsexpr_beginQ,"eval/syntax","sexpr-begin?"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); DEF(YevalSsyntaxYDsexpr_define_class_tag,"eval/syntax","$sexpr-define-class-tag"); DEF(YevalSsyntaxYsexpr_isa_init_props,"eval/syntax","sexpr-isa-init-props"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); DEF(YevalSsyntaxYsexpr_locQ,"eval/syntax","sexpr-loc?"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); DEF(YevalSsyntaxYsexpr_rest_exps,"eval/syntax","sexpr-rest-exps"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); DEF(YevalSsyntaxYsexpr_method_definitionQ,"eval/syntax","sexpr-method-definition?"); DEF(YevalSsyntaxYsexpr_iterate_Gloc,"eval/syntax","sexpr-iterate->loc"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); DEF(YevalSsyntaxYDsexpr_propX_tag,"eval/syntax","$sexpr-prop!-tag"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); DEF(YevalSsyntaxYDsexpr_define_generic_tag,"eval/syntax","$sexpr-define-generic-tag"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); DEF(YevalSsyntaxYsexpr_make_method,"eval/syntax","sexpr-make-method"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); DEF(YevalSsyntaxYsexpr_pattern_variableQ,"eval/syntax","sexpr-pattern-variable?"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); DEF(YevalSsyntaxYsexpr_propXQ,"eval/syntax","sexpr-prop!?"); DEF(YevalSsyntaxYeval,"eval/syntax","eval"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); DEF(YevalSsyntaxYsexpr_operator,"eval/syntax","sexpr-operator"); DEF(YevalSsyntaxYsexpr_function_definition_value,"eval/syntax","sexpr-function-definition-value"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); DEF(YevalSsyntaxYsexpr_quotedQ,"eval/syntax","sexpr-quoted?"); EXT(YgooSclassYclone,"goo/class","clone"); DEF(YevalSsyntaxYDsexpr_method_tag,"eval/syntax","$sexpr-method-tag"); DEF(YevalSsyntaxYsexpr_signature_value,"eval/syntax","sexpr-signature-value"); DEF(YevalSsyntaxYbracket,"eval/syntax","bracket"); DEF(YevalSsyntaxYsexpr_method_value,"eval/syntax","sexpr-method-value"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_defQ,"eval/syntax","sexpr-def?"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); DEF(YevalSsyntaxYsexpr_if_else,"eval/syntax","sexpr-if-else"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); DEF(YevalSsyntaxYDsexpr_def_tag,"eval/syntax","$sexpr-def-tag"); EXT(YgooSmathYGGG,"goo/math",">>>"); DEF(YevalSsyntaxYTbq_quoteT,"eval/syntax","*bq-quote*"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YevalSsyntaxYDsexpr_values_tag,"eval/syntax","$sexpr-values-tag"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); DEF(YevalSsyntaxYsexpr_rest_operands,"eval/syntax","sexpr-rest-operands"); DEF(YevalSsyntaxYsexpr_unquote_splicingQ,"eval/syntax","sexpr-unquote-splicing?"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_forward_primitiveQ,"eval/syntax","sexpr-forward-primitive?"); EXT(YLchrG,"goo/boot",""); DEF(YevalSsyntaxYDsexpr_if_tag,"eval/syntax","$sexpr-if-tag"); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); DEF(YevalSsyntaxYsexpr_pattern_variable_name,"eval/syntax","sexpr-pattern-variable-name"); DEF(YevalSsyntaxYsexpr_block_name,"eval/syntax","sexpr-block-name"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); DEF(YevalSsyntaxYsexpr_fab_getter,"eval/syntax","sexpr-fab-getter"); EXT(YLsingletonG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_prop_init_var,"eval/syntax","sexpr-prop-init-var"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); DEF(YevalSsyntaxYsexpr_loc_raw_body,"eval/syntax","sexpr-loc-raw-body"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); DEF(YevalSsyntaxYsexpr_expand_backquote,"eval/syntax","sexpr-expand-backquote"); DEF(YevalSsyntaxYsexpr_function_definitionQ,"eval/syntax","sexpr-function-definition?"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); DEF(YevalSsyntaxYsexpr_let_bound_variables,"eval/syntax","sexpr-let-bound-variables"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_unwind_protect_cleanup_forms,"eval/syntax","sexpr-unwind-protect-cleanup-forms"); DEF(YevalSsyntaxYsexpr_assignment_variable,"eval/syntax","sexpr-assignment-variable"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); DEF(YevalSsyntaxYsexpr_iterate_name,"eval/syntax","sexpr-iterate-name"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); DEF(YevalSsyntaxYfind_option,"eval/syntax","find-option"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); DEF(YevalSsyntaxYbq_process,"eval/syntax","bq-process"); DEF(YevalSsyntaxYsexpr_definition_value,"eval/syntax","sexpr-definition-value"); DEF(YevalSsyntaxYsexpr_monitor_type,"eval/syntax","sexpr-monitor-type"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); DEF(YevalSsyntaxYsexpr_syntax_ifQ,"eval/syntax","sexpr-syntax-if?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); DEF(YevalSsyntaxYsexpr_applicationQ,"eval/syntax","sexpr-application?"); DEF(YevalSsyntaxYsexpr_let_namesAvalues,"eval/syntax","sexpr-let-names+values"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); DEF(YevalSsyntaxYsexpr_function_body,"eval/syntax","sexpr-function-body"); DEF(YevalSsyntaxYsexpr_first_exp,"eval/syntax","sexpr-first-exp"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); DEF(YevalSsyntaxYsexpr_iterate_body,"eval/syntax","sexpr-iterate-body"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); DEF(YevalSsyntaxYsexpr_variable_type,"eval/syntax","sexpr-variable-type"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); DEF(YevalSsyntaxYTbq_listTT,"eval/syntax","*bq-list**"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); DEF(YevalSsyntaxYsexpr_monitor_body,"eval/syntax","sexpr-monitor-body"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); DEF(YevalSsyntaxYsexpr_syntax_if_else,"eval/syntax","sexpr-syntax-if-else"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); DEF(YevalSsyntaxYDsexpr_define_syntax_tag,"eval/syntax","$sexpr-define-syntax-tag"); DEF(YevalSsyntaxYsexpr_macro_expandQ,"eval/syntax","sexpr-macro-expand?"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); DEF(YevalSsyntaxYsexpr_define_class_parents,"eval/syntax","sexpr-define-class-parents"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); DEF(YevalSsyntaxYsexpr_make_macro_function,"eval/syntax","sexpr-make-macro-function"); DEF(YevalSsyntaxYsexpr_if_then,"eval/syntax","sexpr-if-then"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); DEF(YevalSsyntaxYsexpr_unquoteQ,"eval/syntax","sexpr-unquote?"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); DEF(YevalSsyntaxYsexpr_first_operand,"eval/syntax","sexpr-first-operand"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); DEF(YevalSsyntaxYsexpr_method_parameters,"eval/syntax","sexpr-method-parameters"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); DEF(YevalSsyntaxYsexpr_monitor_info,"eval/syntax","sexpr-monitor-info"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); DEF(YevalSsyntaxYsexpr_blockQ,"eval/syntax","sexpr-block?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); DEF(YevalSsyntaxYDsexpr_bind_exit_tag,"eval/syntax","$sexpr-bind-exit-tag"); DEF(YevalSsyntaxYsexpr_macroQ,"eval/syntax","sexpr-macro?"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); DEF(YevalSsyntaxYsexpr_unique_name,"eval/syntax","sexpr-unique-name"); DEF(YevalSsyntaxYDsexpr_quote_tag,"eval/syntax","$sexpr-quote-tag"); DEF(YevalSsyntaxYsexpr_syntax_definition_value,"eval/syntax","sexpr-syntax-definition-value"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_letQ,"eval/syntax","sexpr-let?"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); DEF(YevalSsyntaxYsexpr_iterateQ,"eval/syntax","sexpr-iterate?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); DEF(YevalSsyntaxYsexpr_prop_init,"eval/syntax","sexpr-prop-init"); EXT(YLtypeG,"goo/boot",""); DEF(YevalSsyntaxYsexpr_prop_owner,"eval/syntax","sexpr-prop-owner"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_78); DEFLIT(lit_345); DEFLIT(lit_110); DEFLIT(lit_149); DEFLIT(lit_237); DEFLIT(lit_264); DEFLIT(lit_120); DEFLIT(lit_134); DEFLIT(lit_303); DEFLIT(lit_138); DEFLIT(lit_252); DEFLIT(lit_199); DEFLIT(lit_327); DEFLIT(lit_353); DEFLIT(lit_81); DEFLIT(lit_273); DEFLIT(lit_269); DEFLIT(lit_75); DEFLIT(lit_218); DEFLIT(lit_174); DEFLIT(lit_291); DEFLIT(lit_348); DEFLIT(lit_163); DEFLIT(lit_315); DEFLIT(lit_41); DEFLIT(lit_336); DEFLIT(lit_338); DEFLIT(lit_228); DEFLIT(lit_65); DEFLIT(lit_293); DEFLIT(lit_198); DEFLIT(lit_63); DEFLIT(lit_292); DEFLIT(lit_254); DEFLIT(lit_374); DEFLIT(lit_90); DEFLIT(lit_295); DEFLIT(lit_86); DEFLIT(lit_235); DEFLIT(lit_360); DEFLIT(lit_197); DEFLIT(lit_246); DEFLIT(lit_272); DEFLIT(lit_328); DEFLIT(lit_79); DEFLIT(lit_102); DEFLIT(lit_324); DEFLIT(lit_190); DEFLIT(lit_209); DEFLIT(lit_322); DEFLIT(lit_64); DEFLIT(lit_95); DEFLIT(lit_66); DEFLIT(lit_167); DEFLIT(lit_171); DEFLIT(lit_182); DEFLIT(lit_177); DEFLIT(lit_314); DEFLIT(lit_124); DEFLIT(lit_135); DEFLIT(lit_20); DEFLIT(lit_112); DEFLIT(lit_288); DEFLIT(lit_50); DEFLIT(lit_76); DEFLIT(lit_161); DEFLIT(lit_93); DEFLIT(lit_56); DEFLIT(lit_298); DEFLIT(lit_265); DEFLIT(lit_28); DEFLIT(lit_256); DEFLIT(lit_38); DEFLIT(lit_51); DEFLIT(lit_224); DEFLIT(lit_60); DEFLIT(lit_49); DEFLIT(lit_42); DEFLIT(lit_0); DEFLIT(lit_2); DEFLIT(lit_30); DEFLIT(lit_14); DEFLIT(lit_207); DEFLIT(lit_183); DEFLIT(lit_262); DEFLIT(lit_118); DEFLIT(lit_244); DEFLIT(lit_92); DEFLIT(lit_152); DEFLIT(lit_46); DEFLIT(lit_127); DEFLIT(lit_189); DEFLIT(lit_307); DEFLIT(lit_70); DEFLIT(lit_243); DEFLIT(lit_283); DEFLIT(lit_139); DEFLIT(lit_234); DEFLIT(lit_250); DEFLIT(lit_87); DEFLIT(lit_253); DEFLIT(lit_11); DEFLIT(lit_323); DEFLIT(lit_34); DEFLIT(lit_143); DEFLIT(lit_222); DEFLIT(lit_119); DEFLIT(lit_165); DEFLIT(lit_302); DEFLIT(lit_13); DEFLIT(lit_5); DEFLIT(lit_372); DEFLIT(lit_248); DEFLIT(lit_270); DEFLIT(lit_19); DEFLIT(lit_334); DEFLIT(lit_100); DEFLIT(lit_69); DEFLIT(lit_180); DEFLIT(lit_15); DEFLIT(lit_261); DEFLIT(lit_373); DEFLIT(lit_1); DEFLIT(lit_146); DEFLIT(lit_31); DEFLIT(lit_73); DEFLIT(lit_282); DEFLIT(lit_137); DEFLIT(lit_238); DEFLIT(lit_71); DEFLIT(lit_32); DEFLIT(lit_358); DEFLIT(lit_300); DEFLIT(lit_67); DEFLIT(lit_215); DEFLIT(lit_219); DEFLIT(lit_172); DEFLIT(lit_346); DEFLIT(lit_162); DEFLIT(lit_349); DEFLIT(lit_223); DEFLIT(lit_188); DEFLIT(lit_126); DEFLIT(lit_255); DEFLIT(lit_74); DEFLIT(lit_54); DEFLIT(lit_274); DEFLIT(lit_370); DEFLIT(lit_136); DEFLIT(lit_333); DEFLIT(lit_148); DEFLIT(lit_321); DEFLIT(lit_25); DEFLIT(lit_151); DEFLIT(lit_339); DEFLIT(lit_108); DEFLIT(lit_331); DEFLIT(lit_125); DEFLIT(lit_367); DEFLIT(lit_169); DEFLIT(lit_33); DEFLIT(lit_251); DEFLIT(lit_173); DEFLIT(lit_325); DEFLIT(lit_318); DEFLIT(lit_281); DEFLIT(lit_21); DEFLIT(lit_196); DEFLIT(lit_214); DEFLIT(lit_96); DEFLIT(lit_85); DEFLIT(lit_153); DEFLIT(lit_62); DEFLIT(lit_99); DEFLIT(lit_9); DEFLIT(lit_299); DEFLIT(lit_185); DEFLIT(lit_205); DEFLIT(lit_115); DEFLIT(lit_17); DEFLIT(lit_242); DEFLIT(lit_351); DEFLIT(lit_191); DEFLIT(lit_107); DEFLIT(lit_312); DEFLIT(lit_330); DEFLIT(lit_290); DEFLIT(lit_176); DEFLIT(lit_84); DEFLIT(lit_48); DEFLIT(lit_39); DEFLIT(lit_332); DEFLIT(lit_320); DEFLIT(lit_310); DEFLIT(lit_304); DEFLIT(lit_117); DEFLIT(lit_217); DEFLIT(lit_193); DEFLIT(lit_12); DEFLIT(lit_364); DEFLIT(lit_355); DEFLIT(lit_267); DEFLIT(lit_131); DEFLIT(lit_297); DEFLIT(lit_72); DEFLIT(lit_150); DEFLIT(lit_337); DEFLIT(lit_280); DEFLIT(lit_170); DEFLIT(lit_344); DEFLIT(lit_268); DEFLIT(lit_208); DEFLIT(lit_233); DEFLIT(lit_88); DEFLIT(lit_178); DEFLIT(lit_164); DEFLIT(lit_229); DEFLIT(lit_142); DEFLIT(lit_259); DEFLIT(lit_239); DEFLIT(lit_213); DEFLIT(lit_77); DEFLIT(lit_97); DEFLIT(lit_57); DEFLIT(lit_160); DEFLIT(lit_40); DEFLIT(lit_356); DEFLIT(lit_319); DEFLIT(lit_279); DEFLIT(lit_227); DEFLIT(lit_179); DEFLIT(lit_141); DEFLIT(lit_363); DEFLIT(lit_83); DEFLIT(lit_230); DEFLIT(lit_94); DEFLIT(lit_231); DEFLIT(lit_7); DEFLIT(lit_91); DEFLIT(lit_260); DEFLIT(lit_266); DEFLIT(lit_203); DEFLIT(lit_158); DEFLIT(lit_277); DEFLIT(lit_236); DEFLIT(lit_106); DEFLIT(lit_175); DEFLIT(lit_130); DEFLIT(lit_369); DEFLIT(lit_43); DEFLIT(lit_101); DEFLIT(lit_216); DEFLIT(lit_232); DEFLIT(lit_24); DEFLIT(lit_258); DEFLIT(lit_226); DEFLIT(lit_278); DEFLIT(lit_194); DEFLIT(lit_329); DEFLIT(lit_37); DEFLIT(lit_129); DEFLIT(lit_311); DEFLIT(lit_276); DEFLIT(lit_114); DEFLIT(lit_156); DEFLIT(lit_301); DEFLIT(lit_271); DEFLIT(lit_22); DEFLIT(lit_168); DEFLIT(lit_289); DEFLIT(lit_47); DEFLIT(lit_366); DEFLIT(lit_113); DEFLIT(lit_365); DEFLIT(lit_240); DEFLIT(lit_263); DEFLIT(lit_140); DEFLIT(lit_187); DEFLIT(lit_132); DEFLIT(lit_296); DEFLIT(lit_287); DEFLIT(lit_186); DEFLIT(lit_27); DEFLIT(lit_59); DEFLIT(lit_68); DEFLIT(lit_202); DEFLIT(lit_3); DEFLIT(lit_221); DEFLIT(lit_212); DEFLIT(lit_122); DEFLIT(lit_16); DEFLIT(lit_359); DEFLIT(lit_18); DEFLIT(lit_249); DEFLIT(lit_116); DEFLIT(lit_308); DEFLIT(lit_121); DEFLIT(lit_45); DEFLIT(lit_8); DEFLIT(lit_147); DEFLIT(lit_36); DEFLIT(lit_305); DEFLIT(lit_340); DEFLIT(lit_354); DEFLIT(lit_361); DEFLIT(lit_82); DEFLIT(lit_145); DEFLIT(lit_154); DEFLIT(lit_220); DEFLIT(lit_80); DEFLIT(lit_341); DEFLIT(lit_159); DEFLIT(lit_257); DEFLIT(lit_35); DEFLIT(lit_317); DEFLIT(lit_211); DEFLIT(lit_10); DEFLIT(lit_23); DEFLIT(lit_26); DEFLIT(lit_184); DEFLIT(lit_61); DEFLIT(lit_128); DEFLIT(lit_284); DEFLIT(lit_350); DEFLIT(lit_313); DEFLIT(lit_245); DEFLIT(lit_343); DEFLIT(lit_157); DEFLIT(lit_362); DEFLIT(lit_98); DEFLIT(lit_103); DEFLIT(lit_347); DEFLIT(lit_309); DEFLIT(lit_275); DEFLIT(lit_371); DEFLIT(lit_104); DEFLIT(lit_326); DEFLIT(lit_192); DEFLIT(lit_55); DEFLIT(lit_109); DEFLIT(lit_29); DEFLIT(lit_89); DEFLIT(lit_195); DEFLIT(lit_144); DEFLIT(lit_111); DEFLIT(lit_52); DEFLIT(lit_335); DEFLIT(lit_241); DEFLIT(lit_225); DEFLIT(lit_181); DEFLIT(lit_306); DEFLIT(lit_316); DEFLIT(lit_204); DEFLIT(lit_123); DEFLIT(lit_58); DEFLIT(lit_352); DEFLIT(lit_200); DEFLIT(lit_44); DEFLIT(lit_210); DEFLIT(lit_53); DEFLIT(lit_155); DEFLIT(lit_368); DEFLIT(lit_133); DEFLIT(lit_247); DEFLIT(lit_357); DEFLIT(lit_342); DEFLIT(lit_201); DEFLIT(lit_6); DEFLIT(lit_105); DEFLIT(lit_4); DEFLIT(lit_294); DEFLIT(lit_166); DEFLIT(lit_285); DEFLIT(lit_286); DEFLIT(lit_206); /* FUNCTIONS: */ LOCFOR(fun_sexpr_self_evaluatingQ_0); LOCFOR(fun_sexpr_variableQ_1); LOCFOR(fun_sexpr_tagged_listQ_2); LOCFOR(fun_sexpr_quotedQ_3); LOCFOR(fun_sexpr_make_quote_4); LOCFOR(fun_sexpr_text_of_quotation_5); LOCFOR(fun_sexpr_assignmentQ_6); LOCFOR(fun_sexpr_assignment_variable_7); LOCFOR(fun_sexpr_assignment_value_8); LOCFOR(fun_sexpr_variable_name_9); LOCFOR(fun_sexpr_variable_name_10); LOCFOR(fun_sexpr_variable_type_11); LOCFOR(fun_sexpr_variable_type_12); LOCFOR(fun_sexpr_define_constantQ_13); LOCFOR(fun_sexpr_definitionQ_14); LOCFOR(fun_sexpr_definition_variable_15); LOCFOR(fun_sexpr_definition_value_16); LOCFOR(fun_sexpr_syntax_definitionQ_17); LOCFOR(fun_sexpr_syntax_definition_variable_18); LOCFOR(fun_sexpr_syntax_definition_value_19); LOCFOR(fun_sexpr_function_definitionQ_20); LOCFOR(fun_sexpr_method_definitionQ_21); LOCFOR(fun_sexpr_generic_definitionQ_22); LOCFOR(fun_sexpr_function_definition_variable_23); LOCFOR(fun_sexpr_function_definition_adjectives_24); LOCFOR(fun_sexpr_forward_primitiveQ_25); LOCFOR(fun_sexpr_signature_parameters_26); LOCFOR(fun_sexpr_value_type_27); LOCFOR(fun_sexpr_value_type_28); LOCFOR(fun_sexpr_signature_value_29); FUNFOR(YevalSsyntaxYas_signature); LOCFOR(fun_sexpr_function_signature_31); LOCFOR(fun_sexpr_function_parameters_32); LOCFOR(fun_sexpr_function_value_33); LOCFOR(fun_sexpr_function_body_34); LOCFOR(fun_sexpr_function_definition_value_35); LOCFOR(fun_sexpr_methodQ_36); LOCFOR(fun_sexpr_method_signature_37); LOCFOR(fun_sexpr_method_parameters_38); LOCFOR(fun_sexpr_method_value_39); LOCFOR(fun_sexpr_method_body_40); LOCFOR(fun_sexpr_make_anonymous_method_41); LOCFOR(fun_sexpr_make_method_42); LOCFOR(fun_sexpr_ifQ_43); LOCFOR(fun_sexpr_if_test_44); LOCFOR(fun_sexpr_if_then_45); LOCFOR(fun_sexpr_if_else_46); LOCFOR(fun_sexpr_make_if_47); LOCFOR(fun_sexpr_blockQ_48); LOCFOR(fun_sexpr_block_name_49); LOCFOR(fun_sexpr_block_body_50); LOCFOR(fun_sexpr_unwind_protectQ_51); LOCFOR(fun_sexpr_unwind_protect_protected_form_52); LOCFOR(fun_sexpr_unwind_protect_cleanup_forms_53); LOCFOR(fun_sexpr_monitorQ_54); LOCFOR(fun_x_1477_55); LOCFOR(fun_56); LOCFOR(fun_sexpr_monitor_expand_57); FUNFOR(YevalSsyntaxYfind_option); LOCFOR(fun_x_1479_59); LOCFOR(fun_60); LOCFOR(fun_sexpr_monitor_type_61); LOCFOR(fun_x_1481_62); LOCFOR(fun_63); LOCFOR(fun_x_1483_64); LOCFOR(fun_65); LOCFOR(fun_sexpr_monitor_info_66); LOCFOR(fun_sexpr_monitor_test_67); LOCFOR(fun_sexpr_monitor_body_68); LOCFOR(fun_sexpr_beginQ_69); LOCFOR(fun_sexpr_begin_actions_70); LOCFOR(fun_sexpr_last_expQ_71); LOCFOR(fun_sexpr_first_exp_72); LOCFOR(fun_sexpr_rest_exps_73); LOCFOR(fun_sexpr_sequence_Gbegin_74); LOCFOR(fun_sexpr_make_begin_75); LOCFOR(fun_sexpr_applicationQ_76); LOCFOR(fun_sexpr_operator_77); LOCFOR(fun_sexpr_operands_78); LOCFOR(fun_sexpr_no_operandsQ_79); LOCFOR(fun_sexpr_first_operand_80); LOCFOR(fun_sexpr_rest_operands_81); LOCFOR(fun_sexpr_make_application_82); LOCFOR(fun_sexpr_new_unique_name_counterX_83); LOCFOR(fun_sexpr_unique_name_84); LOCFOR(fun_sexpr_defQ_85); LOCFOR(fun_sexpr_def_variable_86); LOCFOR(fun_sexpr_def_value_87); LOCFOR(fun_sexpr_letQ_88); LOCFOR(fun_89); LOCFOR(fun_sexpr_let_bound_variables_90); LOCFOR(fun_91); LOCFOR(fun_sexpr_let_values_92); LOCFOR(fun_sexpr_let_body_93); LOCFOR(fun_sexpr_let_namesAvalues_94); LOCFOR(fun_col_95); LOCFOR(fun_sexpr_let_Gcombination_96); LOCFOR(fun_sexpr_locQ_97); LOCFOR(fun_sexpr_loc_bound_names_98); LOCFOR(fun_99); LOCFOR(fun_sexpr_loc_bound_signatures_100); LOCFOR(fun_sexpr_loc_bound_bodies_101); LOCFOR(fun_sexpr_loc_raw_body_102); LOCFOR(fun_sexpr_loc_body_103); LOCFOR(fun_sexpr_iterateQ_104); LOCFOR(fun_sexpr_iterate_name_105); LOCFOR(fun_106); LOCFOR(fun_sexpr_iterate_signature_107); LOCFOR(fun_108); LOCFOR(fun_sexpr_iterate_inits_109); LOCFOR(fun_sexpr_iterate_body_110); LOCFOR(fun_sexpr_iterate_Gloc_111); LOCFOR(fun_sexpr_isaQ_112); LOCFOR(fun_sexpr_isa_parent_113); LOCFOR(fun_sexpr_isa_prop_inits_114); LOCFOR(fun_sexpr_isa_init_props_115); LOCFOR(fun_sexpr_isa_init_values_116); LOCFOR(fun_sexpr_define_classQ_117); LOCFOR(fun_sexpr_define_class_parents_118); LOCFOR(fun_sexpr_propXQ_119); LOCFOR(fun_sexpr_propQ_120); LOCFOR(fun_sexpr_prop_name_121); LOCFOR(fun_sexpr_prop_owner_122); LOCFOR(fun_sexpr_prop_init_var_123); LOCFOR(fun_sexpr_prop_type_124); LOCFOR(fun_sexpr_prop_initQ_125); LOCFOR(fun_sexpr_prop_init_126); LOCFOR(fun_sexpr_fab_getter_127); LOCFOR(fun_sexpr_fab_setter_128); LOCFOR(fun_sexpr_fab_setter_name_129); LOCFOR(fun_sexpr_macroQ_130); LOCFOR(fun_sexpr_macro_expandQ_131); LOCFOR(fun_sexpr_make_syntax_if_132); FUNFOR(YevalSsyntaxYsexpr_expand_backquote); LOCFOR(fun_sexpr_build_backquote_expander_134); LOCFOR(fun_sexpr_unquoteQ_135); LOCFOR(fun_sexpr_unquote_splicingQ_136); LOCFOR(fun_sexpr_backquoteQ_137); LOCFOR(fun_sexpr_atomQ_138); LOCFOR(fun_nreconc_139); LOCFOR(fun_140); LOCFOR(fun_bq_process_141); LOCFOR(fun_bracket_142); LOCFOR(fun_map_tree_143); LOCFOR(fun_bq_remove_tokens_144); LOCFOR(fun_sexpr_syntax_ifQ_145); LOCFOR(fun_sexpr_syntax_if_value_146); LOCFOR(fun_sexpr_syntax_if_pattern_147); LOCFOR(fun_sexpr_syntax_if_then_148); LOCFOR(fun_sexpr_syntax_if_else_149); LOCFOR(fun_sexpr_pattern_variableQ_150); LOCFOR(fun_sexpr_pattern_variable_name_151); LOCFOR(fun_col_152); LOCFOR(fun_sexpr_bind_pattern_variables_153); LOCFOR(fun_sexpr_make_macro_function_154); extern P YevalSsyntaxY___main_0___ (); extern P YevalSsyntaxY___main_1___ (); extern P YevalSsyntaxY___main_2___ (); extern P YevalSsyntaxY___main_3___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_sexpr_self_evaluatingQ_0) { P exp_; P tmpF3913; P tmpF3912; P tmpF3911; P tmpF3910; P tmpF3909; P tmpF3908; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(exp_, 0); T12 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLnumG)); tmpF3908 = T12; if (tmpF3908 != YPfalse) { T0 = tmpF3908; } else { T11 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLchrG)); tmpF3909 = T11; if (tmpF3909 != YPfalse) { T1 = tmpF3909; } else { T10 = CALL2(1,VARREF(YgooSmacrosYEE),exp_,YPtrue); tmpF3910 = T10; if (tmpF3910 != YPfalse) { T2 = tmpF3910; } else { T9 = CALL2(1,VARREF(YgooSmacrosYEE),exp_,YPfalse); tmpF3911 = T9; if (tmpF3911 != YPfalse) { T3 = tmpF3911; } else { T8 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLstrG)); tmpF3912 = T8; if (tmpF3912 != YPfalse) { T4 = tmpF3912; } else { T7 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YgooScolsSvecYLvecG)); tmpF3913 = T7; if (tmpF3913 != YPfalse) { T5 = tmpF3913; } else { T6 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLtupG)); T5 = T6; } T4 = T5; } T3 = T4; } T2 = T3; } T1 = T2; } T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_variableQ_1) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLsymG)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_tagged_listQ_2) { P exp_,tag_; P T0,T1,T2,T3; LINK_STACK(); ARG(exp_, 0); ARG(tag_, 1); T1 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(Yhead),exp_); T2 = CALL2(1,VARREF(YgooSmacrosYEE),T3,tag_); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_quotedQ_3) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_quote_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_make_quote_4) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_quote_tag),exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_text_of_quotation_5) { P quot_; P T0; LINK_STACK(); ARG(quot_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),quot_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_assignmentQ_6) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_set_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_assignment_variable_7) { P assn_; P T0; LINK_STACK(); ARG(assn_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),assn_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_assignment_value_8) { P assn_; P T0; LINK_STACK(); ARG(assn_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqY3rd),assn_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_variable_name_9) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY1st),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_variable_name_10) { P exp_; LINK_STACK(); ARG(exp_, 0); UNLINK_STACK(); QRET(exp_); } LOCCODEDEF(fun_sexpr_variable_type_11) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_variable_type_12) { P exp_; LINK_STACK(); ARG(exp_, 0); UNLINK_STACK(); QRET(LITREF(lit_26)); } LOCCODEDEF(fun_sexpr_define_constantQ_13) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_constant_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_definitionQ_14) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_definition_variable_15) { P defn_; P T0; LINK_STACK(); ARG(defn_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),defn_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_definition_value_16) { P defn_; P T0; LINK_STACK(); ARG(defn_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqY3rd),defn_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_syntax_definitionQ_17) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_syntax_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_syntax_definition_variable_18) { P defn_; P T0; LINK_STACK(); ARG(defn_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),defn_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_syntax_definition_value_19) { P defn_; P varF3914; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(defn_, 0); T9 = CALL1(1,VARREF(YgooSmacrosY2nd),defn_); varF3914 = T9; T1 = CALL1(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_macro_tag)); T4 = CALL1(1,VARREF(Ylst),varF3914); T5 = CALL1(1,VARREF(YgooScolsSseqY3rd),defn_); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,LITREF(lit_46)); T2 = CALL1(1,VARREF(Ylst),T3); T8 = CALL1(1,VARREF(Ytail),defn_); T7 = CALL1(1,VARREF(Ytail),T8); T6 = CALL1(1,VARREF(Ytail),T7); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T6,LITREF(lit_46)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_function_definitionQ_20) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_function_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_method_definitionQ_21) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_method_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_generic_definitionQ_22) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_generic_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_function_definition_variable_23) { P defn_; P varF3915; P T0,T1,T2,T3; LINK_STACK(); ARG(defn_, 0); T3 = CALL1(1,VARREF(YgooSmacrosY2nd),defn_); varF3915 = T3; T1 = CALL2(1,VARREF(YisaQ),varF3915,VARREF(YLlstG)); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(Yhead),varF3915); T0 = T2; } else { T0 = varF3915; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_function_definition_adjectives_24) { P defn_; P varF3916; P T0,T1,T2,T3; LINK_STACK(); ARG(defn_, 0); T3 = CALL1(1,VARREF(YgooSmacrosY2nd),defn_); varF3916 = T3; T1 = CALL2(1,VARREF(YisaQ),varF3916,VARREF(YLlstG)); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(Ytail),varF3916); T0 = T2; } else { T0 = Ynil; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_forward_primitiveQ_25) { P defn_; P T0,T1; LINK_STACK(); ARG(defn_, 0); T1 = CALL1(1,VARREF(YgooStypesYlen),defn_); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)2)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_signature_parameters_26) { P signature_; P values_spec_indexF3917; P T0,T1,T2; LINK_STACK(); ARG(signature_, 0); T2 = CALL2(1,VARREF(YgooScolsSseqYpos),signature_,LITREF(lit_64)); values_spec_indexF3917 = T2; if (values_spec_indexF3917 != YPfalse) { T1 = CALL3(1,VARREF(YgooScolsSseqYsub),signature_,YPint((P)0),values_spec_indexF3917); T0 = T1; } else { T0 = signature_; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_value_type_27) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_value_type_28) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_sexpr_signature_value_29) { P signature_; P valueF3919; P values_spec_indexF3918; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(signature_, 0); T9 = CALL2(1,VARREF(YgooScolsSseqYpos),signature_,LITREF(lit_64)); values_spec_indexF3918 = T9; if (values_spec_indexF3918 != YPfalse) { T8 = CALL2(1,VARREF(YgooSmathYA),values_spec_indexF3918,YPint((P)1)); T7 = CALL2(1,VARREF(YgooSmacrosYelt),signature_,T8); valueF3919 = T7; T2 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),valueF3919,LITREF(lit_70)); if (T2 != YPfalse) { T4 = CALL1(1,VARREF(Ylst),LITREF(lit_71)); T6 = CALL1(1,VARREF(Ytail),valueF3919); T5 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSsyntaxYsexpr_value_type),T6); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,LITREF(lit_46)); T1 = T3; } else { T1 = valueF3919; } T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSsyntaxYas_signature) { P sig_; LINK_STACK(); ARG(sig_, 0); UNLINK_STACK(); RET(sig_); } LOCCODEDEF(fun_sexpr_function_signature_31) { P defn_; P T0,T1; LINK_STACK(); ARG(defn_, 0); T1 = CALL1(1,VARREF(YgooScolsSseqY3rd),defn_); T0 = CALL1(1,VARREF(YevalSsyntaxYas_signature),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_function_parameters_32) { P defn_; P T0,T1; LINK_STACK(); ARG(defn_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_signature),defn_); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_parameters),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_function_value_33) { P defn_; P T0,T1; LINK_STACK(); ARG(defn_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_signature),defn_); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_function_body_34) { P defn_; P T0,T1,T2; LINK_STACK(); ARG(defn_, 0); T2 = CALL1(1,VARREF(Ytail),defn_); T1 = CALL1(1,VARREF(Ytail),T2); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_function_definition_value_35) { P defn_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(defn_, 0); T2 = CALL1(1,VARREF(YgooScolsSseqY3rd),defn_); T5 = CALL1(1,VARREF(Ytail),defn_); T4 = CALL1(1,VARREF(Ytail),T5); T3 = CALL1(1,VARREF(Ytail),T4); T1 = CALL2(1,VARREF(YgooSmacrosYpair),T2,T3); T6 = CALL1(1,VARREF(YgooScolsSlstYline_of),defn_); T0 = CALL3(1,VARREF(YgooScolsSlstYline_pair),VARREF(YevalSsyntaxYDsexpr_method_tag),T1,T6); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_methodQ_36) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_method_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_method_signature_37) { P method_exp_; P T0,T1; LINK_STACK(); ARG(method_exp_, 0); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),method_exp_); T0 = CALL1(1,VARREF(YevalSsyntaxYas_signature),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_method_parameters_38) { P method_exp_; P T0,T1; LINK_STACK(); ARG(method_exp_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_method_signature),method_exp_); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_parameters),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_method_value_39) { P method_exp_; P T0,T1; LINK_STACK(); ARG(method_exp_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_method_signature),method_exp_); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_method_body_40) { P method_exp_; P T0,T1; LINK_STACK(); ARG(method_exp_, 0); T1 = CALL1(1,VARREF(Ytail),method_exp_); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_make_anonymous_method_41) { P parameters_,body_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(parameters_, 0); ARG(body_, 1); T2 = CALL2(1,VARREF(YisaQ),parameters_,VARREF(YgooScolsSlstYLline_listG)); if (T2 != YPfalse) { T1 = parameters_; } else { T1 = body_; } T4 = CALL1(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_method_tag)); T5 = CALL1(1,VARREF(Ylst),parameters_); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,body_); T0 = CALL2(1,VARREF(YgooScolsSlstYline_list_of),T1,T3); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_make_method_42) { P name_,parameters_,body_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(name_, 0); ARG(parameters_, 1); ARG(body_, 2); T2 = CALL2(1,VARREF(YisaQ),parameters_,VARREF(YgooScolsSlstYLline_listG)); if (T2 != YPfalse) { T1 = parameters_; } else { T1 = body_; } T4 = CALL3(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_define_method_tag),name_,parameters_); T3 = CALL2(1,VARREF(YgooSmacrosYcat),T4,body_); T0 = CALL2(1,VARREF(YgooScolsSlstYline_list_of),T1,T3); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_ifQ_43) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_if_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_if_test_44) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_if_then_45) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqY3rd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_if_else_46) { P exp_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(exp_, 0); T4 = CALL1(1,VARREF(Ytail),exp_); T3 = CALL1(1,VARREF(Ytail),T4); T2 = CALL1(1,VARREF(Ytail),T3); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),T2); if (T1 != YPfalse) { T0 = YPfalse; } else { T8 = CALL1(1,VARREF(Ytail),exp_); T7 = CALL1(1,VARREF(Ytail),T8); T6 = CALL1(1,VARREF(Ytail),T7); T5 = CALL1(1,VARREF(Yhead),T6); T0 = T5; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_make_if_47) { P test_,then_,else_; P T0; LINK_STACK(); ARG(test_, 0); ARG(then_, 1); ARG(else_, 2); T0 = CALL4(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_if_tag),test_,then_,else_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_blockQ_48) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_bind_exit_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_block_name_49) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_block_body_50) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = CALL1(1,VARREF(Ytail),exp_); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_unwind_protectQ_51) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_unwind_protect_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_unwind_protect_protected_form_52) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_unwind_protect_cleanup_forms_53) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = CALL1(1,VARREF(Ytail),exp_); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_monitorQ_54) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_monitor_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1477_55) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_132),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_56) { P return_; P optionsF3931; P x_1476F3930; P x_1476F3929; P x_1476F3928; P x_1476F3927; P x_1476F3926; P x_1476F3925; P bodyF3924; P handlerF3923; P optionsF3922; P x_1476F3921; P x_1477F3920; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; LINK_STACK(); ARG(return_, 0); T31 = FUNSHELL(0,fun_x_1477_55,2); x_1477F3920 = T31; FUNINIT(x_1477F3920, 2,FREEREF(0),return_); x_1476F3921 = FREEREF(0); optionsF3922 = YPfalse; handlerF3923 = YPfalse; bodyF3924 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1476F3921,VARREF(YLlstG)); if (T3 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1476F3921,LITREF(lit_124),x_1477F3920); x_1476F3925 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1476F3925,x_1477F3920); optionsF3922 = T10; T11 = CALL1(1,VARREF(Ytail),x_1476F3925); x_1476F3926 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1476F3926,x_1477F3920); handlerF3923 = T8; T9 = CALL1(1,VARREF(Ytail),x_1476F3926); x_1476F3927 = T9; bodyF3924 = x_1476F3927; x_1476F3928 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1476F3928,x_1477F3920); x_1476F3929 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1476F3929,x_1477F3920); T7 = CALL1(1,VARREF(Ytail),x_1476F3928); x_1476F3930 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1476F3930,x_1477F3920); } else { T13 = CALL2(1,x_1477F3920,LITREF(lit_133),x_1476F3921); } T23 = optionsF3922; T22 = CALL2(1,VARREF(YisaQ),T23,VARREF(YLsymG)); if (T22 != YPfalse) { T27 = CALL1(1,VARREF(Ylst),LITREF(lit_134)); T29 = optionsF3922; T28 = CALL1(1,VARREF(Ylst),T29); T26 = CALL3(1,VARREF(YgooSmacrosYcat),T27,T28,LITREF(lit_46)); T25 = CALL1(1,VARREF(Ylst),T26); T24 = CALL2(1,VARREF(YgooSmacrosYcat),T25,LITREF(lit_46)); T21 = T24; } else { T30 = optionsF3922; T21 = T30; } optionsF3931 = T21; T15 = CALL1(1,VARREF(YevalSsyntaxYsexpr_monitor_type),optionsF3931); T16 = CALL1(1,VARREF(YevalSsyntaxYsexpr_monitor_info),optionsF3931); T17 = CALL1(1,VARREF(YevalSsyntaxYsexpr_monitor_test),optionsF3931); T18 = handlerF3923; T20 = bodyF3924; T19 = CALL1(1,VARREF(YevalSsyntaxYsexpr_monitor_body),T20); T14 = CALL5(1,VARREF(Ytup),T15,T16,T17,T18,T19); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_sexpr_monitor_expand_57) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_56,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalSsyntaxYfind_option) { P options_,option_,default_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(options_, 0); ARG(option_, 1); ARG(default_, 2); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),options_); if (T1 != YPfalse) { T0 = default_; } else { T5 = CALL1(1,VARREF(YgooSmacrosY1st),options_); T4 = CALL1(1,VARREF(Yhead),T5); T3 = CALL2(1,VARREF(YgooSmacrosYEE),option_,T4); if (T3 != YPfalse) { T7 = CALL1(1,VARREF(YgooSmacrosY1st),options_); T6 = CALL1(1,VARREF(Ytail),T7); T2 = T6; } else { if (YPtrue != YPfalse) { T10 = CALL1(1,VARREF(Ytail),options_); T9 = CALL3(1,VARREF(YevalSsyntaxYfind_option),T10,option_,default_); T8 = T9; } else { T8 = YPfalse; } T2 = T8; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1479_59) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_143),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_60) { P return_; P x_1478F3937; P x_1478F3936; P x_1478F3935; P typeF3934; P x_1478F3933; P x_1479F3932; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(return_, 0); T10 = FUNSHELL(0,fun_x_1479_59,2); x_1479F3932 = T10; FUNINIT(x_1479F3932, 2,FREEREF(0),return_); x_1478F3933 = FREEREF(0); typeF3934 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1478F3933,VARREF(YLlstG)); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1478F3933,x_1479F3932); typeF3934 = T6; T7 = CALL1(1,VARREF(Ytail),x_1478F3933); x_1478F3935 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1478F3935,x_1479F3932); x_1478F3936 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1478F3936,x_1479F3932); T5 = CALL1(1,VARREF(Ytail),x_1478F3935); x_1478F3937 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1478F3937,x_1479F3932); } else { T8 = CALL2(1,x_1479F3932,LITREF(lit_133),x_1478F3933); } T9 = typeF3934; UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_sexpr_monitor_type_61) { P options_; P type_listF3938; P T0,T1,T2; LINK_STACK(); ARG(options_, 0); T2 = CALL3(1,VARREF(YevalSsyntaxYfind_option),options_,LITREF(lit_134),LITREF(lit_139)); type_listF3938 = T2; T1 = FUNFAB(fun_60,1,type_listF3938); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1481_62) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_152),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_63) { P return_; P x_1480F3944; P x_1480F3943; P x_1480F3942; P info_exprF3941; P x_1480F3940; P x_1481F3939; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(return_, 0); T10 = FUNSHELL(0,fun_x_1481_62,2); x_1481F3939 = T10; FUNINIT(x_1481F3939, 2,FREEREF(0),return_); x_1480F3940 = FREEREF(0); info_exprF3941 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1480F3940,VARREF(YLlstG)); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1480F3940,x_1481F3939); info_exprF3941 = T6; T7 = CALL1(1,VARREF(Ytail),x_1480F3940); x_1480F3942 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1480F3942,x_1481F3939); x_1480F3943 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1480F3943,x_1481F3939); T5 = CALL1(1,VARREF(Ytail),x_1480F3942); x_1480F3944 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1480F3944,x_1481F3939); } else { T8 = CALL2(1,x_1481F3939,LITREF(lit_133),x_1480F3940); } T9 = info_exprF3941; UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_x_1483_64) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_156),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_65) { P return_; P x_1482F3952; P x_1482F3951; P x_1482F3950; P x_1482F3949; P argumentsF3948; P messageF3947; P x_1482F3946; P x_1483F3945; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1483_64,2); x_1483F3945 = T21; FUNINIT(x_1483F3945, 2,FREEREF(0),return_); x_1482F3946 = FREEREF(0); messageF3947 = YPfalse; argumentsF3948 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1482F3946,VARREF(YLlstG)); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1482F3946,x_1483F3945); messageF3947 = T7; T8 = CALL1(1,VARREF(Ytail),x_1482F3946); x_1482F3949 = T8; argumentsF3948 = x_1482F3949; x_1482F3950 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1482F3950,x_1483F3945); x_1482F3951 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1482F3951,x_1483F3945); T6 = CALL1(1,VARREF(Ytail),x_1482F3950); x_1482F3952 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1482F3952,x_1483F3945); } else { T9 = CALL2(1,x_1483F3945,LITREF(lit_133),x_1482F3946); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_157)); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_158)); T13 = CALL1(1,VARREF(Ylst),LITREF(lit_159)); T15 = messageF3947; T14 = CALL1(1,VARREF(Ylst),T15); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_160)); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_161)); T20 = argumentsF3948; T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_46)); T17 = CALL1(1,VARREF(Ylst),T18); T10 = CALLN(1,VARREF(YgooSmacrosYcat),7,T11,T12,T13,T14,T16,T17,LITREF(lit_46)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_sexpr_monitor_info_66) { P options_; P descriptionF3954; P infoF3953; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(options_, 0); T11 = CALL3(1,VARREF(YevalSsyntaxYfind_option),options_,LITREF(lit_146),YPfalse); infoF3953 = T11; T10 = CALL3(1,VARREF(YevalSsyntaxYfind_option),options_,LITREF(lit_147),YPfalse); descriptionF3954 = T10; if (infoF3953 != YPfalse) { T1 = descriptionF3954; } else { T1 = YPfalse; } if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_148),options_); T0 = T2; } else { if (infoF3953 != YPfalse) { T5 = FUNFAB(fun_63,1,infoF3953); T4 = with_exit(T5); T3 = T4; } else { if (descriptionF3954 != YPfalse) { T8 = FUNFAB(fun_65,1,descriptionF3954); T7 = with_exit(T8); T6 = T7; } else { if (YPtrue != YPfalse) { T9 = LITREF(lit_162); } else { T9 = YPfalse; } T6 = T9; } T3 = T6; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_monitor_test_67) { P options_; P test_bodyF3955; P T0,T1; LINK_STACK(); ARG(options_, 0); T1 = CALL3(1,VARREF(YevalSsyntaxYfind_option),options_,LITREF(lit_165),LITREF(lit_166)); test_bodyF3955 = T1; T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),Ynil,test_bodyF3955); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_monitor_body_68) { P body_; P T0; LINK_STACK(); ARG(body_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),Ynil,body_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_beginQ_69) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_begin_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_begin_actions_70) { P begin_exp_; P T0; LINK_STACK(); ARG(begin_exp_, 0); T0 = CALL1(1,VARREF(Ytail),begin_exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_last_expQ_71) { P seq_; P T0,T1; LINK_STACK(); ARG(seq_, 0); T1 = CALL1(1,VARREF(Ytail),seq_); T0 = CALL1(1,VARREF(YgooSmacrosYnulQ),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_first_exp_72) { P seq_; P T0; LINK_STACK(); ARG(seq_, 0); T0 = CALL1(1,VARREF(Yhead),seq_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_rest_exps_73) { P seq_; P T0; LINK_STACK(); ARG(seq_, 0); T0 = CALL1(1,VARREF(Ytail),seq_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_sequence_Gbegin_74) { P seq_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(seq_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),seq_); if (T1 != YPfalse) { T0 = seq_; } else { T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_last_expQ),seq_); if (T3 != YPfalse) { T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_first_exp),seq_); T2 = T4; } else { T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_make_begin),seq_); T2 = T5; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_make_begin_75) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYpair),VARREF(YevalSsyntaxYDsexpr_begin_tag),exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_applicationQ_76) { P exp_; P T0,T1,T2,T3; LINK_STACK(); ARG(exp_, 0); T1 = CALL2(1,VARREF(YisaQ),exp_,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),exp_); T2 = CALL1(1,VARREF(Ynot),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_operator_77) { P app_; P T0; LINK_STACK(); ARG(app_, 0); T0 = CALL1(1,VARREF(Yhead),app_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_operands_78) { P app_; P T0; LINK_STACK(); ARG(app_, 0); T0 = CALL1(1,VARREF(Ytail),app_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_no_operandsQ_79) { P args_; P T0; LINK_STACK(); ARG(args_, 0); T0 = CALL1(1,VARREF(YgooSmacrosYnulQ),args_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_first_operand_80) { P args_; P T0; LINK_STACK(); ARG(args_, 0); T0 = CALL1(1,VARREF(Yhead),args_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_rest_operands_81) { P args_; P T0; LINK_STACK(); ARG(args_, 0); T0 = CALL1(1,VARREF(Ytail),args_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_make_application_82) { P f_,operands_; P T0,T1; LINK_STACK(); ARG(f_, 0); ARG(operands_, 1); T1 = CALL1(1,VARREF(Ylst),f_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),T1,operands_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_new_unique_name_counterX_83) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSmathYA),VARREF(YevalSsyntaxYTunique_name_counterT),YPint((P)1)); VARSET(YevalSsyntaxYTunique_name_counterT,T0); UNLINK_STACK(); RET(VARREF(YevalSsyntaxYTunique_name_counterT)); } LOCCODEDEF(fun_sexpr_unique_name_84) { P prefix_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(prefix_, 0); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),prefix_); T4 = CALL0(1,VARREF(YevalSsyntaxYsexpr_new_unique_name_counterX)); T3 = CALL1(1,VARREF(YgooSmathYnum_to_str),T4); T1 = CALL2(1,VARREF(YgooSmacrosYcat),T2,T3); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_defQ_85) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_def_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_def_variable_86) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_def_value_87) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqY3rd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_letQ_88) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_let_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_89) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYas_signature),x_); T0 = CALL1(1,VARREF(YgooSmacrosY1st),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_let_bound_variables_90) { P let_exp_; P T0,T1,T2; LINK_STACK(); ARG(let_exp_, 0); T1 = fun_89; T2 = CALL1(1,VARREF(YgooSmacrosY2nd),let_exp_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_91) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYas_signature),x_); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_let_values_92) { P let_exp_; P T0,T1,T2; LINK_STACK(); ARG(let_exp_, 0); T1 = fun_91; T2 = CALL1(1,VARREF(YgooSmacrosY2nd),let_exp_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_let_body_93) { P let_exp_; P T0,T1,T2; LINK_STACK(); ARG(let_exp_, 0); T2 = CALL1(1,VARREF(Ytail),let_exp_); T1 = CALL1(1,VARREF(Ytail),T2); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_sequence_Gbegin),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_let_namesAvalues_94) { P names_,vals_; P rtvaluesF3970; P rtnamesF3969; P tup31F3968; P nameF3967; P tnamesF3966; P indexF3965; P rtvaluesF3964; P rtnamesF3963; P tupnameF3962; P valueF3961; P nameF3960; P valsF3959; P namesF3958; P rvaluesF3957; P rnamesF3956; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52; LINK_STACK(); ARG(names_, 0); ARG(vals_, 1); rnamesF3956 = Ynil; rvaluesF3957 = Ynil; namesF3958 = names_; valsF3959 = vals_; LOOP_173: { P a173_0,a173_1,a173_2,a173_3; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),namesF3958); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),rnamesF3956); T4 = CALL1(1,VARREF(YgooSmacrosYrevX),rvaluesF3957); T2 = CALL2(1,VARREF(Ytup),T3,T4); T0 = T2; } else { T52 = CALL1(1,VARREF(Yhead),namesF3958); nameF3960 = T52; T51 = CALL1(1,VARREF(Yhead),valsF3959); valueF3961 = T51; T7 = CALL2(1,VARREF(YisaQ),nameF3960,VARREF(YLlstG)); if (T7 != YPfalse) { T9 = CALL1(1,VARREF(Yhead),nameF3960); T8 = CALL2(1,VARREF(YgooSmacrosYEE),T9,LITREF(lit_70)); T6 = T8; } else { T6 = YPfalse; } if (T6 != YPfalse) { T45 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unique_name),LITREF(lit_222)); tupnameF3962 = T45; T42 = CALL1(1,VARREF(Ylst),tupnameF3962); rtnamesF3963 = T42; T43 = CALL1(1,VARREF(Ylst),valueF3961); rtvaluesF3964 = T43; indexF3965 = YPint((P)0); T44 = CALL1(1,VARREF(Ytail),nameF3960); tnamesF3966 = T44; LOOP_174: { P a174_0,a174_1,a174_2,a174_3; T18 = CALL1(1,VARREF(YgooSmacrosYnulQ),tnamesF3966); if (T18 != YPfalse) { T19 = CALL2(1,VARREF(Ytup),rtnamesF3963,rtvaluesF3964); T17 = T19; } else { T41 = CALL1(1,VARREF(Yhead),tnamesF3966); nameF3967 = T41; T22 = CALL2(1,VARREF(YisaQ),nameF3967,VARREF(YLlstG)); if (T22 != YPfalse) { T25 = CALL1(1,VARREF(Ytail),nameF3967); T24 = CALL1(1,VARREF(Yhead),T25); T23 = CALL2(1,VARREF(YgooSmacrosYEE),T24,LITREF(lit_223)); T21 = T23; } else { T21 = YPfalse; } if (T21 != YPfalse) { T29 = CALL1(1,VARREF(Yhead),nameF3967); T28 = CALL2(1,VARREF(Ylst),T29,LITREF(lit_224)); T27 = CALL2(1,VARREF(YgooSmacrosYpair),T28,rtnamesF3963); T32 = CALL2(1,VARREF(Ylst),LITREF(lit_226),tupnameF3962); T31 = CALL4(1,VARREF(Ylst),LITREF(lit_225),tupnameF3962,indexF3965,T32); T30 = CALL2(1,VARREF(YgooSmacrosYpair),T31,rtvaluesF3964); T33 = CALL2(1,VARREF(YgooSmathYA),indexF3965,YPint((P)1)); T34 = CALL1(1,VARREF(Ytail),tnamesF3966); a174_0 = T27; a174_1 = T30; a174_2 = T33; a174_3 = T34; rtnamesF3963 = a174_0; rtvaluesF3964 = a174_1; indexF3965 = a174_2; tnamesF3966 = a174_3; goto LOOP_174; T20 = T26; } else { T36 = CALL2(1,VARREF(YgooSmacrosYpair),nameF3967,rtnamesF3963); T38 = CALL3(1,VARREF(Ylst),LITREF(lit_227),tupnameF3962,indexF3965); T37 = CALL2(1,VARREF(YgooSmacrosYpair),T38,rtvaluesF3964); T39 = CALL2(1,VARREF(YgooSmathYA),indexF3965,YPint((P)1)); T40 = CALL1(1,VARREF(Ytail),tnamesF3966); a174_0 = T36; a174_1 = T37; a174_2 = T39; a174_3 = T40; rtnamesF3963 = a174_0; rtvaluesF3964 = a174_1; indexF3965 = a174_2; tnamesF3966 = a174_3; goto LOOP_174; T20 = T35; } T17 = T20; } } tup31F3968 = T17; T16 = CALL2(1,VARREF(YgooSmacrosYelt),tup31F3968,YPint((P)0)); rtnamesF3969 = T16; T15 = CALL2(1,VARREF(YgooSmacrosYelt),tup31F3968,YPint((P)1)); rtvaluesF3970 = T15; T11 = CALL2(1,VARREF(YgooSmacrosYcat),rtnamesF3969,rnamesF3956); T12 = CALL2(1,VARREF(YgooSmacrosYcat),rtvaluesF3970,rvaluesF3957); T13 = CALL1(1,VARREF(Ytail),namesF3958); T14 = CALL1(1,VARREF(Ytail),valsF3959); a173_0 = T11; a173_1 = T12; a173_2 = T13; a173_3 = T14; rnamesF3956 = a173_0; rvaluesF3957 = a173_1; namesF3958 = a173_2; valsF3959 = a173_3; goto LOOP_173; T5 = T10; } else { T47 = CALL2(1,VARREF(YgooSmacrosYpair),nameF3960,rnamesF3956); T48 = CALL2(1,VARREF(YgooSmacrosYpair),valueF3961,rvaluesF3957); T49 = CALL1(1,VARREF(Ytail),namesF3958); T50 = CALL1(1,VARREF(Ytail),valsF3959); a173_0 = T47; a173_1 = T48; a173_2 = T49; a173_3 = T50; rnamesF3956 = a173_0; rvaluesF3957 = a173_1; namesF3958 = a173_2; valsF3959 = a173_3; goto LOOP_173; T5 = T46; } T0 = T5; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_col_95) { P names_,values_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(names_, 0); ARG(values_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),names_); if (T1 != YPfalse) { T0 = FREEREF(0); } else { T5 = CALL1(1,VARREF(Yhead),names_); T4 = CALL1(1,VARREF(Ylst),T5); T7 = CALL1(1,VARREF(Ytail),names_); T8 = CALL1(1,VARREF(Ytail),values_); T6 = CALL2(0,FREEREF(1),T7,T8); T3 = CALL3(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_method_tag),T4,T6); T10 = CALL1(1,VARREF(Yhead),values_); T9 = CALL1(1,VARREF(Ylst),T10); T2 = CALL2(1,VARREF(YgooSmacrosYpair),T3,T9); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_let_Gcombination_96) { P let_exp_; P colF3977; P valuesF3976; P namesF3975; P tup32F3974; P bodyF3973; P ovaluesF3972; P onamesF3971; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(let_exp_, 0); T7 = CALL1(1,VARREF(YevalSsyntaxYsexpr_let_bound_variables),let_exp_); onamesF3971 = T7; T6 = CALL1(1,VARREF(YevalSsyntaxYsexpr_let_values),let_exp_); ovaluesF3972 = T6; T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_let_body),let_exp_); bodyF3973 = T5; T4 = CALL2(1,VARREF(YevalSsyntaxYsexpr_let_namesAvalues),onamesF3971,ovaluesF3972); tup32F3974 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYelt),tup32F3974,YPint((P)0)); namesF3975 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYelt),tup32F3974,YPint((P)1)); valuesF3976 = T2; T1 = FUNSHELL(1,fun_col_95,2); colF3977 = T1; FUNINIT(colF3977, 2,bodyF3973,colF3977); T0 = CALL2(1,colF3977,namesF3975,valuesF3976); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_locQ_97) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_locals_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_loc_bound_names_98) { P loc_exp_; P T0,T1; LINK_STACK(); ARG(loc_exp_, 0); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),loc_exp_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooSmacrosY1st),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_99) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),x_); T0 = CALL1(1,VARREF(YevalSsyntaxYas_signature),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_loc_bound_signatures_100) { P loc_exp_; P T0,T1,T2; LINK_STACK(); ARG(loc_exp_, 0); T1 = fun_99; T2 = CALL1(1,VARREF(YgooSmacrosY2nd),loc_exp_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_loc_bound_bodies_101) { P loc_exp_; P T0,T1,T2; LINK_STACK(); ARG(loc_exp_, 0); T1 = CALL2(1,VARREF(YgooSfunctionalYcompose),VARREF(Ytail),VARREF(Ytail)); T2 = CALL1(1,VARREF(YgooSmacrosY2nd),loc_exp_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_loc_raw_body_102) { P loc_exp_; P T0,T1; LINK_STACK(); ARG(loc_exp_, 0); T1 = CALL1(1,VARREF(Ytail),loc_exp_); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_loc_body_103) { P loc_exp_; P T0,T1; LINK_STACK(); ARG(loc_exp_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_loc_raw_body),loc_exp_); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_sequence_Gbegin),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_iterateQ_104) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_iterate_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_iterate_name_105) { P rep_exp_; P T0; LINK_STACK(); ARG(rep_exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),rep_exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_106) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYas_signature),x_); T0 = CALL1(1,VARREF(YgooSmacrosY1st),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_iterate_signature_107) { P rep_exp_; P sigF3978; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(rep_exp_, 0); T9 = CALL1(1,VARREF(YgooScolsSseqY3rd),rep_exp_); sigF3978 = T9; T2 = fun_106; T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_parameters),sigF3978); T1 = CALL2(1,VARREF(YgooSmacrosYmap),T2,T3); T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_value),sigF3978); if (T5 != YPfalse) { T4 = Ynil; } else { T6 = CALL1(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_values_tag)); T4 = T6; } T8 = CALL1(1,VARREF(YevalSsyntaxYsexpr_signature_value),sigF3978); T7 = CALL1(1,VARREF(Ylst),T8); T0 = CALL3(1,VARREF(YgooSmacrosYcat),T1,T4,T7); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_108) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYas_signature),x_); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_iterate_inits_109) { P rep_exp_; P T0,T1,T2; LINK_STACK(); ARG(rep_exp_, 0); T1 = fun_108; T2 = CALL1(1,VARREF(YgooScolsSseqY3rd),rep_exp_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_iterate_body_110) { P rep_exp_; P T0,T1,T2; LINK_STACK(); ARG(rep_exp_, 0); T2 = CALL1(1,VARREF(Ytail),rep_exp_); T1 = CALL1(1,VARREF(Ytail),T2); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_iterate_Gloc_111) { P rep_exp_; P initsF3982; P bodyF3981; P sigF3980; P nameF3979; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(rep_exp_, 0); T10 = CALL1(1,VARREF(YevalSsyntaxYsexpr_iterate_name),rep_exp_); nameF3979 = T10; T9 = CALL1(1,VARREF(YevalSsyntaxYsexpr_iterate_signature),rep_exp_); sigF3980 = T9; T8 = CALL1(1,VARREF(YevalSsyntaxYsexpr_iterate_body),rep_exp_); bodyF3981 = T8; T7 = CALL1(1,VARREF(YevalSsyntaxYsexpr_iterate_inits),rep_exp_); initsF3982 = T7; T4 = CALL2(1,VARREF(Ylst),nameF3979,sigF3980); T3 = CALL2(1,VARREF(YgooSmacrosYcat),T4,bodyF3981); T2 = CALL1(1,VARREF(Ylst),T3); T6 = CALL1(1,VARREF(Ylst),nameF3979); T5 = CALL2(1,VARREF(YgooSmacrosYcat),T6,initsF3982); T1 = CALL3(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_locals_tag),T2,T5); T0 = CALL2(1,VARREF(YgooScolsSlstYline_list_of),rep_exp_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_isaQ_112) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_isa_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_isa_parent_113) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_isa_prop_inits_114) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = CALL1(1,VARREF(Ytail),exp_); T0 = CALL1(1,VARREF(Ytail),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_isa_init_props_115) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_isa_init_values_116) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooScolsSseqY3rd),exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_define_classQ_117) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_define_class_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_define_class_parents_118) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqY3rd),exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_propXQ_119) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_propX_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_propQ_120) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_prop_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_prop_name_121) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_prop_owner_122) { P exp_; P paramF3983; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(exp_, 0); T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_parameters),exp_); T3 = CALL1(1,VARREF(YgooSmacrosY1st),T4); paramF3983 = T3; T1 = CALL2(1,VARREF(YisaQ),paramF3983,VARREF(YLlstG)); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosY2nd),paramF3983); T0 = T2; } else { T0 = paramF3983; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_prop_init_var_123) { P exp_; P paramF3984; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(exp_, 0); T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_parameters),exp_); T3 = CALL1(1,VARREF(YgooSmacrosY1st),T4); paramF3984 = T3; T1 = CALL2(1,VARREF(YisaQ),paramF3984,VARREF(YLlstG)); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosY1st),paramF3984); T0 = T2; } else { T0 = LITREF(lit_289); } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_prop_type_124) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YevalSsyntaxYsexpr_function_value),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_prop_initQ_125) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = CALL1(1,VARREF(YgooStypesYlen),exp_); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)4)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_prop_init_126) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),exp_,YPint((P)3)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_fab_getter_127) { P name_,type_,line_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(name_, 0); ARG(type_, 1); ARG(line_, 2); T2 = CALL2(1,VARREF(Ylst),LITREF(lit_289),type_); T1 = CALL2(1,VARREF(YgooScolsSlstYline_list),line_,T2); T4 = CALL3(1,VARREF(Ylst),LITREF(lit_298),LITREF(lit_289),name_); T3 = CALL1(1,VARREF(Ylst),T4); T0 = CALL3(1,VARREF(YevalSsyntaxYsexpr_make_method),name_,T1,T3); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_fab_setter_128) { P name_,type_,prop_type_,line_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(name_, 0); ARG(type_, 1); ARG(prop_type_, 2); ARG(line_, 3); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_fab_setter_name),name_); T3 = CALL2(1,VARREF(Ylst),LITREF(lit_301),prop_type_); T4 = CALL2(1,VARREF(Ylst),LITREF(lit_289),type_); T2 = CALL3(1,VARREF(YgooScolsSlstYline_list),line_,T3,T4); T6 = CALL4(1,VARREF(Ylst),LITREF(lit_302),LITREF(lit_301),LITREF(lit_289),name_); T5 = CALL1(1,VARREF(Ylst),T6); T0 = CALL3(1,VARREF(YevalSsyntaxYsexpr_make_method),T1,T2,T5); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_fab_setter_name_129) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYcat_sym),name_,LITREF(lit_305)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_macroQ_130) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_macro_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_macro_expandQ_131) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_macro_expand_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_make_syntax_if_132) { P pat_,exp_,then_,else_; P T0,T1; LINK_STACK(); ARG(pat_, 0); ARG(exp_, 1); ARG(then_, 2); ARG(else_, 3); T1 = CALL2(1,VARREF(Ylst),pat_,exp_); T0 = CALL4(1,VARREF(Ylst),VARREF(YevalSsyntaxYDsexpr_syntax_if_tag),T1,then_,else_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalSsyntaxYsexpr_expand_backquote) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_build_backquote_expander),x_); T0 = CALL2(1,VARREF(YevalSsyntaxYeval),T1,LITREF(lit_323)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_build_backquote_expander_134) { P x_; P resF3986; P raw_resultF3985; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYbq_process),x_); raw_resultF3985 = T1; T0 = CALL1(1,VARREF(YevalSsyntaxYbq_remove_tokens),raw_resultF3985); resF3986 = T0; UNLINK_STACK(); RET(resF3986); } LOCCODEDEF(fun_sexpr_unquoteQ_135) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),x_,LITREF(lit_328)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_unquote_splicingQ_136) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),x_,LITREF(lit_331)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_backquoteQ_137) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),x_,VARREF(YevalSsyntaxYDsexpr_quasiquote_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_atomQ_138) { P x_; P tmpF3987; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = CALL2(1,VARREF(YisaQ),x_,VARREF(YLlstG)); T2 = CALL1(1,VARREF(Ynot),T3); tmpF3987 = T2; if (tmpF3987 != YPfalse) { T0 = tmpF3987; } else { T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),x_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nreconc_139) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYrevX),x_); T0 = CALL2(1,VARREF(YgooScolsSseqxYcatX),T1,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_140) { P return_; P qF3989; P pF3988; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; LINK_STACK(); ARG(return_, 0); pF3988 = FREEREF(0); qF3989 = Ynil; LOOP_175: { P a175_0,a175_1; T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_atomQ),pF3988); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYTbq_quoteT),pF3988); T5 = CALL1(1,VARREF(Ylst),T6); T4 = CALL2(1,VARREF(YevalSsyntaxYnreconc),qF3989,T5); T3 = CALL2(1,VARREF(YgooSmacrosYpair),VARREF(YevalSsyntaxYTbq_appendT),T4); T2 = CALL1(0,return_,T3); T0 = T2; } else { T7 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquoteQ),pF3988); if (T7 != YPfalse) { T11 = CALL1(1,VARREF(Ytail),pF3988); T10 = CALL1(1,VARREF(Ytail),T11); T9 = CALL1(1,VARREF(YgooSmacrosYnulQ),T10); T8 = CALL1(1,VARREF(Ynot),T9); if (T8 != YPfalse) { T12 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_342),pF3988); } else { } T18 = CALL1(1,VARREF(Ytail),pF3988); T17 = CALL1(1,VARREF(Yhead),T18); T16 = CALL1(1,VARREF(Ylst),T17); T15 = CALL2(1,VARREF(YevalSsyntaxYnreconc),qF3989,T16); T14 = CALL2(1,VARREF(YgooSmacrosYpair),VARREF(YevalSsyntaxYTbq_appendT),T15); T13 = CALL1(0,return_,T14); } else { } T20 = CALL1(1,VARREF(Ytail),pF3988); T19 = CALL2(1,VARREF(YgooSmacrosYEE),T20,VARREF(YevalSsyntaxYTcomma_atsignT)); if (T19 != YPfalse) { T21 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_343),pF3988); } else { } T23 = CALL1(1,VARREF(Ytail),pF3988); T26 = CALL1(1,VARREF(Yhead),pF3988); T25 = CALL1(1,VARREF(YevalSsyntaxYbracket),T26); T24 = CALL2(1,VARREF(YgooSmacrosYpair),T25,qF3989); a175_0 = T23; a175_1 = T24; pF3988 = a175_0; qF3989 = a175_1; goto LOOP_175; T0 = T22; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bq_process_141) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_atomQ),x_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYTbq_quoteT),x_); T0 = T2; } else { T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_backquoteQ),x_); if (T4 != YPfalse) { T8 = CALL1(1,VARREF(Ytail),x_); T7 = CALL1(1,VARREF(Yhead),T8); T6 = CALL1(1,VARREF(YevalSsyntaxYsexpr_build_backquote_expander),T7); T5 = CALL1(1,VARREF(YevalSsyntaxYbq_process),T6); T3 = T5; } else { T10 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquoteQ),x_); if (T10 != YPfalse) { T12 = CALL1(1,VARREF(Ytail),x_); T11 = CALL1(1,VARREF(Yhead),T12); T9 = T11; } else { T14 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquote_splicingQ),x_); if (T14 != YPfalse) { T18 = CALL0(1,x_); T17 = CALL1(1,VARREF(Ytail),T18); T16 = CALL1(1,VARREF(Yhead),T17); T15 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_340),T16); T13 = T15; } else { if (YPtrue != YPfalse) { T21 = FUNFAB(fun_140,1,x_); T20 = with_exit(T21); T19 = T20; } else { T19 = YPfalse; } T13 = T19; } T9 = T13; } T3 = T9; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bracket_142) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_atomQ),x_); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSsyntaxYbq_process),x_); T2 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYTbq_listT),T3); T0 = T2; } else { T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquoteQ),x_); if (T5 != YPfalse) { T8 = CALL1(1,VARREF(Ytail),x_); T7 = CALL1(1,VARREF(Yhead),T8); T6 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYTbq_listT),T7); T4 = T6; } else { T10 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquote_splicingQ),x_); if (T10 != YPfalse) { T13 = CALL1(1,VARREF(Ytail),x_); T12 = CALL1(1,VARREF(Yhead),T13); T11 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYTbq_clobberableT),T12); T9 = T11; } else { if (YPtrue != YPfalse) { T16 = CALL1(1,VARREF(YevalSsyntaxYbq_process),x_); T15 = CALL2(1,VARREF(Ylst),VARREF(YevalSsyntaxYTbq_listT),T16); T14 = T15; } else { T14 = YPfalse; } T9 = T14; } T4 = T9; } T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_map_tree_143) { P fn_,x_; P dF3991; P aF3990; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(fn_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_atomQ),x_); if (T1 != YPfalse) { T2 = CALL1(1,fn_,x_); T0 = T2; } else { T13 = CALL1(1,VARREF(Yhead),x_); T12 = CALL1(1,fn_,T13); aF3990 = T12; T11 = CALL1(1,VARREF(Ytail),x_); T10 = CALL2(1,VARREF(YevalSsyntaxYmap_tree),fn_,T11); dF3991 = T10; T6 = CALL1(1,VARREF(Yhead),x_); T5 = CALL2(1,VARREF(YgooSlogYE),aF3990,T6); if (T5 != YPfalse) { T8 = CALL1(1,VARREF(Ytail),x_); T7 = CALL2(1,VARREF(YgooSlogYE),dF3991,T8); T4 = T7; } else { T4 = YPfalse; } if (T4 != YPfalse) { T3 = x_; } else { T9 = CALL2(1,VARREF(YgooSmacrosYpair),aF3990,dF3991); T3 = T9; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_bq_remove_tokens_144) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooSmacrosYEE),x_,VARREF(YevalSsyntaxYTbq_listT)); if (T1 != YPfalse) { T0 = LITREF(lit_161); } else { T3 = CALL2(1,VARREF(YgooSmacrosYEE),x_,VARREF(YevalSsyntaxYTbq_appendT)); if (T3 != YPfalse) { T2 = LITREF(lit_350); } else { T5 = CALL2(1,VARREF(YgooSmacrosYEE),x_,VARREF(YevalSsyntaxYTbq_nconcT)); if (T5 != YPfalse) { T4 = LITREF(lit_351); } else { T7 = CALL2(1,VARREF(YgooSmacrosYEE),x_,VARREF(YevalSsyntaxYTbq_listTT)); if (T7 != YPfalse) { T6 = LITREF(lit_352); } else { T9 = CALL2(1,VARREF(YgooSmacrosYEE),x_,VARREF(YevalSsyntaxYTbq_quoteT)); if (T9 != YPfalse) { T8 = LITREF(lit_6); } else { T11 = CALL1(1,VARREF(YevalSsyntaxYsexpr_atomQ),x_); if (T11 != YPfalse) { T10 = x_; } else { T14 = CALL1(1,VARREF(Yhead),x_); T13 = CALL2(1,VARREF(YgooSmacrosYEE),T14,VARREF(YevalSsyntaxYTbq_clobberableT)); if (T13 != YPfalse) { T17 = CALL1(1,VARREF(Ytail),x_); T16 = CALL1(1,VARREF(Yhead),T17); T15 = CALL1(1,VARREF(YevalSsyntaxYbq_remove_tokens),T16); T12 = T15; } else { T21 = CALL1(1,VARREF(Yhead),x_); T20 = CALL2(1,VARREF(YgooSmacrosYEE),T21,VARREF(YevalSsyntaxYTbq_listTT)); if (T20 != YPfalse) { T26 = CALL1(1,VARREF(Ytail),x_); T25 = CALL1(1,VARREF(Ytail),T26); T24 = CALL1(1,VARREF(YgooSmacrosYnulQ),T25); T23 = CALL1(1,VARREF(Ynot),T24); if (T23 != YPfalse) { T30 = CALL1(1,VARREF(Ytail),x_); T29 = CALL1(1,VARREF(Ytail),T30); T28 = CALL1(1,VARREF(Ytail),T29); T27 = CALL1(1,VARREF(YgooSmacrosYnulQ),T28); T22 = T27; } else { T22 = YPfalse; } T19 = T22; } else { T19 = YPfalse; } if (T19 != YPfalse) { T33 = CALL1(1,VARREF(Ytail),x_); T32 = CALL2(1,VARREF(YevalSsyntaxYmap_tree),VARREF(YevalSsyntaxYbq_remove_tokens),T33); T31 = CALL2(1,VARREF(YgooSmacrosYpair),LITREF(lit_353),T32); T18 = T31; } else { if (YPtrue != YPfalse) { T35 = CALL2(1,VARREF(YevalSsyntaxYmap_tree),VARREF(YevalSsyntaxYbq_remove_tokens),x_); T34 = T35; } else { T34 = YPfalse; } T18 = T34; } T12 = T18; } T10 = T12; } T8 = T10; } T6 = T8; } T4 = T6; } T2 = T4; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_syntax_ifQ_145) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_tagged_listQ),exp_,VARREF(YevalSsyntaxYDsexpr_syntax_if_tag)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_syntax_if_value_146) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_syntax_if_pattern_147) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = CALL1(1,VARREF(YgooSmacrosY2nd),exp_); T0 = CALL1(1,VARREF(YgooSmacrosY1st),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_syntax_if_then_148) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqY3rd),exp_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_syntax_if_else_149) { P exp_; P T0; LINK_STACK(); ARG(exp_, 0); T0 = CALL3(1,VARREF(YgooScolsScolYelt_or),exp_,YPint((P)3),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_pattern_variableQ_150) { P pat_; P tmpF3992; P T0,T1,T2; LINK_STACK(); ARG(pat_, 0); T2 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquoteQ),pat_); tmpF3992 = T2; if (tmpF3992 != YPfalse) { T0 = tmpF3992; } else { T1 = CALL1(1,VARREF(YevalSsyntaxYsexpr_unquote_splicingQ),pat_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_pattern_variable_name_151) { P pat_; P T0; LINK_STACK(); ARG(pat_, 0); T0 = CALL1(1,VARREF(YgooSmacrosY2nd),pat_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_col_152) { P pat_; P xF3994; P tmpF3993; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(pat_, 0); T4 = CALL2(1,VARREF(YisaQ),pat_,VARREF(YLlstG)); T3 = CALL1(1,VARREF(Ynot),T4); tmpF3993 = T3; if (tmpF3993 != YPfalse) { T1 = tmpF3993; } else { T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),pat_); T1 = T2; } if (T1 != YPfalse) { T0 = Ynil; } else { T16 = CALL1(1,VARREF(Yhead),pat_); xF3994 = T16; T6 = CALL1(1,VARREF(YevalSsyntaxYsexpr_pattern_variableQ),xF3994); if (T6 != YPfalse) { T8 = CALL1(1,VARREF(YevalSsyntaxYsexpr_pattern_variable_name),xF3994); T10 = CALL1(1,VARREF(Ytail),pat_); T9 = CALL1(0,FREEREF(0),T10); T7 = CALL2(1,VARREF(YgooSmacrosYpair),T8,T9); T5 = T7; } else { T13 = CALL1(1,VARREF(Yhead),pat_); T12 = CALL1(0,FREEREF(0),T13); T15 = CALL1(1,VARREF(Ytail),pat_); T14 = CALL1(0,FREEREF(0),T15); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,T14); T5 = T11; } T0 = T5; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sexpr_bind_pattern_variables_153) { P pat_; P colF3995; P T0,T1,T2; LINK_STACK(); ARG(pat_, 0); T2 = FUNSHELL(1,fun_col_152,1); colF3995 = T2; FUNINIT(colF3995, 1,colF3995); T1 = CALL1(1,colF3995,pat_); T0 = CALL1(1,VARREF(YgooScolsSseqYdel_dups),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sexpr_make_macro_function_154) { P name_,exp_; P funcF3997; P mifF3996; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(name_, 0); ARG(exp_, 1); T4 = CALL1(1,VARREF(YevalSsyntaxYsexpr_method_parameters),exp_); T6 = CALL1(1,VARREF(YevalSsyntaxYsexpr_method_body),exp_); T5 = CALL1(1,VARREF(YevalSsyntaxYsexpr_sequence_Gbegin),T6); T8 = CALL1(1,VARREF(Ylst),LITREF(lit_374)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T12 = CALL1(1,VARREF(Ylst),name_); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,Ynil); T9 = CALL1(1,VARREF(Ylst),T10); T13 = CALL1(1,VARREF(Ylst),LITREF(lit_373)); T7 = CALL4(1,VARREF(YgooSmacrosYcat),T8,T9,T13,LITREF(lit_46)); T3 = CALL4(1,VARREF(YevalSsyntaxYsexpr_make_syntax_if),T4,LITREF(lit_373),T5,T7); mifF3996 = T3; T1 = CALL1(1,VARREF(Ylst),LITREF(lit_373)); T2 = CALL1(1,VARREF(Ylst),mifF3996); T0 = CALL2(1,VARREF(YevalSsyntaxYsexpr_make_anonymous_method),T1,T2); funcF3997 = T0; UNLINK_STACK(); QRET(funcF3997); } P YevalSsyntaxY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144; DEFCREGS(); lit_0 = YPPsym((P)"sexpr-self-evaluating?"); lit_1 = YPPlist(1,YPPsym((P)"exp")); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_self_evaluatingQ_0 = YPfab_met(FUNCODEREF(fun_sexpr_self_evaluatingQ_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(8),YPfalse); T2 = VARREF_OR(YevalSsyntaxYsexpr_self_evaluatingQ,YPfalse); T3 = fun_sexpr_self_evaluatingQ_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSsyntaxYsexpr_self_evaluatingQ,T1); lit_2 = YPPsym((P)"sexpr-variable?"); lit_3 = YPPlist(1,YPPsym((P)"exp")); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_variableQ_1 = YPfab_met(FUNCODEREF(fun_sexpr_variableQ_1),T4,LITREF(lit_2),LITREF(lit_3),sloc(19),YPfalse); T6 = VARREF_OR(YevalSsyntaxYsexpr_variableQ,YPfalse); T7 = fun_sexpr_variableQ_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSsyntaxYsexpr_variableQ,T5); lit_4 = YPPsym((P)"sexpr-tagged-list?"); lit_5 = YPPlist(2,YPPsym((P)"exp"),YPPsym((P)"tag")); T8 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_sexpr_tagged_listQ_2 = YPfab_met(FUNCODEREF(fun_sexpr_tagged_listQ_2),T8,LITREF(lit_4),LITREF(lit_5),sloc(24),YPfalse); T10 = VARREF_OR(YevalSsyntaxYsexpr_tagged_listQ,YPfalse); T11 = fun_sexpr_tagged_listQ_2; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSsyntaxYsexpr_tagged_listQ,T9); lit_6 = YPPsym((P)"quote"); VARSET(YevalSsyntaxYDsexpr_quote_tag,LITREF(lit_6)); lit_7 = YPPsym((P)"sexpr-quoted?"); lit_8 = YPPlist(1,YPPsym((P)"exp")); T12 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_quotedQ_3 = YPfab_met(FUNCODEREF(fun_sexpr_quotedQ_3),T12,LITREF(lit_7),LITREF(lit_8),sloc(31),YPfalse); T14 = VARREF_OR(YevalSsyntaxYsexpr_quotedQ,YPfalse); T15 = fun_sexpr_quotedQ_3; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSsyntaxYsexpr_quotedQ,T13); lit_9 = YPPsym((P)"sexpr-make-quote"); lit_10 = YPPlist(1,YPPsym((P)"exp")); T16 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_make_quote_4 = YPfab_met(FUNCODEREF(fun_sexpr_make_quote_4),T16,LITREF(lit_9),LITREF(lit_10),sloc(34),YPfalse); T18 = VARREF_OR(YevalSsyntaxYsexpr_make_quote,YPfalse); T19 = fun_sexpr_make_quote_4; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSsyntaxYsexpr_make_quote,T17); lit_11 = YPPsym((P)"sexpr-text-of-quotation"); lit_12 = YPPlist(1,YPPsym((P)"quot")); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_text_of_quotation_5 = YPfab_met(FUNCODEREF(fun_sexpr_text_of_quotation_5),T20,LITREF(lit_11),LITREF(lit_12),sloc(37),YPfalse); T22 = VARREF_OR(YevalSsyntaxYsexpr_text_of_quotation,YPfalse); T23 = fun_sexpr_text_of_quotation_5; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSsyntaxYsexpr_text_of_quotation,T21); lit_13 = YPPsym((P)"set"); VARSET(YevalSsyntaxYDsexpr_set_tag,LITREF(lit_13)); lit_14 = YPPsym((P)"sexpr-assignment?"); lit_15 = YPPlist(1,YPPsym((P)"exp")); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_assignmentQ_6 = YPfab_met(FUNCODEREF(fun_sexpr_assignmentQ_6),T24,LITREF(lit_14),LITREF(lit_15),sloc(44),YPfalse); T26 = VARREF_OR(YevalSsyntaxYsexpr_assignmentQ,YPfalse); T27 = fun_sexpr_assignmentQ_6; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSsyntaxYsexpr_assignmentQ,T25); lit_16 = YPPsym((P)"sexpr-assignment-variable"); lit_17 = YPPlist(1,YPPsym((P)"assn")); T28 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_assignment_variable_7 = YPfab_met(FUNCODEREF(fun_sexpr_assignment_variable_7),T28,LITREF(lit_16),LITREF(lit_17),sloc(47),YPfalse); T30 = VARREF_OR(YevalSsyntaxYsexpr_assignment_variable,YPfalse); T31 = fun_sexpr_assignment_variable_7; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalSsyntaxYsexpr_assignment_variable,T29); lit_18 = YPPsym((P)"sexpr-assignment-value"); lit_19 = YPPlist(1,YPPsym((P)"assn")); T32 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_assignment_value_8 = YPfab_met(FUNCODEREF(fun_sexpr_assignment_value_8),T32,LITREF(lit_18),LITREF(lit_19),sloc(50),YPfalse); T34 = VARREF_OR(YevalSsyntaxYsexpr_assignment_value,YPfalse); T35 = fun_sexpr_assignment_value_8; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalSsyntaxYsexpr_assignment_value,T33); lit_20 = YPPsym((P)"sexpr-variable-name"); lit_21 = YPPlist(1,YPPsym((P)"exp")); T36 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_variable_name_9 = YPfab_met(FUNCODEREF(fun_sexpr_variable_name_9),T36,LITREF(lit_20),LITREF(lit_21),sloc(55),YPfalse); T38 = VARREF_OR(YevalSsyntaxYsexpr_variable_name,YPfalse); T39 = fun_sexpr_variable_name_9; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSsyntaxYsexpr_variable_name,T37); lit_22 = YPPlist(1,YPPsym((P)"exp")); T40 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_variable_name_10 = YPfab_met(FUNCODEREF(fun_sexpr_variable_name_10),T40,LITREF(lit_20),LITREF(lit_22),sloc(58),YPfalse); T42 = VARREF_OR(YevalSsyntaxYsexpr_variable_name,YPfalse); T43 = fun_sexpr_variable_name_10; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSsyntaxYsexpr_variable_name,T41); lit_23 = YPPsym((P)"sexpr-variable-type"); lit_24 = YPPlist(1,YPPsym((P)"exp")); T44 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_variable_type_11 = YPfab_met(FUNCODEREF(fun_sexpr_variable_type_11),T44,LITREF(lit_23),LITREF(lit_24),sloc(61),YPfalse); T46 = VARREF_OR(YevalSsyntaxYsexpr_variable_type,YPfalse); T47 = fun_sexpr_variable_type_11; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSsyntaxYsexpr_variable_type,T45); lit_25 = YPPlist(1,YPPsym((P)"exp")); lit_26 = YPPsym((P)""); T48 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_variable_type_12 = YPfab_met(FUNCODEREF(fun_sexpr_variable_type_12),T48,LITREF(lit_23),LITREF(lit_25),sloc(64),YPfalse); T50 = VARREF_OR(YevalSsyntaxYsexpr_variable_type,YPfalse); T51 = fun_sexpr_variable_type_12; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSsyntaxYsexpr_variable_type,T49); lit_27 = YPPsym((P)"d."); VARSET(YevalSsyntaxYDsexpr_define_constant_tag,LITREF(lit_27)); lit_28 = YPPsym((P)"sexpr-define-constant?"); lit_29 = YPPlist(1,YPPsym((P)"exp")); T52 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_define_constantQ_13 = YPfab_met(FUNCODEREF(fun_sexpr_define_constantQ_13),T52,LITREF(lit_28),LITREF(lit_29),sloc(71),YPfalse); T54 = VARREF_OR(YevalSsyntaxYsexpr_define_constantQ,YPfalse); T55 = fun_sexpr_define_constantQ_13; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSsyntaxYsexpr_define_constantQ,T53); lit_30 = YPPsym((P)"dv"); VARSET(YevalSsyntaxYDsexpr_define_tag,LITREF(lit_30)); lit_31 = YPPsym((P)"sexpr-definition?"); lit_32 = YPPlist(1,YPPsym((P)"exp")); T56 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_definitionQ_14 = YPfab_met(FUNCODEREF(fun_sexpr_definitionQ_14),T56,LITREF(lit_31),LITREF(lit_32),sloc(76),YPfalse); T58 = VARREF_OR(YevalSsyntaxYsexpr_definitionQ,YPfalse); T59 = fun_sexpr_definitionQ_14; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalSsyntaxYsexpr_definitionQ,T57); lit_33 = YPPsym((P)"quasiquote"); VARSET(YevalSsyntaxYDsexpr_quasiquote_tag,LITREF(lit_33)); lit_34 = YPPsym((P)"sexpr-definition-variable"); lit_35 = YPPlist(1,YPPsym((P)"defn")); T60 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_definition_variable_15 = YPfab_met(FUNCODEREF(fun_sexpr_definition_variable_15),T60,LITREF(lit_34),LITREF(lit_35),sloc(81),YPfalse); T62 = VARREF_OR(YevalSsyntaxYsexpr_definition_variable,YPfalse); T63 = fun_sexpr_definition_variable_15; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSsyntaxYsexpr_definition_variable,T61); lit_36 = YPPsym((P)"sexpr-definition-value"); lit_37 = YPPlist(1,YPPsym((P)"defn")); T64 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_definition_value_16 = YPfab_met(FUNCODEREF(fun_sexpr_definition_value_16),T64,LITREF(lit_36),LITREF(lit_37),sloc(84),YPfalse); T66 = VARREF_OR(YevalSsyntaxYsexpr_definition_value,YPfalse); T67 = fun_sexpr_definition_value_16; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSsyntaxYsexpr_definition_value,T65); lit_38 = YPPsym((P)"ds"); VARSET(YevalSsyntaxYDsexpr_define_syntax_tag,LITREF(lit_38)); lit_39 = YPPsym((P)"sexpr-syntax-definition?"); lit_40 = YPPlist(1,YPPsym((P)"exp")); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_syntax_definitionQ_17 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_definitionQ_17),T68,LITREF(lit_39),LITREF(lit_40),sloc(89),YPfalse); T70 = VARREF_OR(YevalSsyntaxYsexpr_syntax_definitionQ,YPfalse); T71 = fun_sexpr_syntax_definitionQ_17; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YevalSsyntaxYsexpr_syntax_definitionQ,T69); lit_41 = YPPsym((P)"mac"); VARSET(YevalSsyntaxYDsexpr_macro_tag,LITREF(lit_41)); lit_42 = YPPsym((P)"sexpr-syntax-definition-variable"); lit_43 = YPPlist(1,YPPsym((P)"defn")); T72 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_sexpr_syntax_definition_variable_18 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_definition_variable_18),T72,LITREF(lit_42),LITREF(lit_43),sloc(94),YPfalse); T74 = VARREF_OR(YevalSsyntaxYsexpr_syntax_definition_variable,YPfalse); T75 = fun_sexpr_syntax_definition_variable_18; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSsyntaxYsexpr_syntax_definition_variable,T73); lit_44 = YPPsym((P)"sexpr-syntax-definition-value"); lit_45 = YPPlist(1,YPPsym((P)"defn")); lit_46 = Ynil; T76 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_syntax_definition_value_19 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_definition_value_19),T76,LITREF(lit_44),LITREF(lit_45),sloc(97),YPfalse); T78 = VARREF_OR(YevalSsyntaxYsexpr_syntax_definition_value,YPfalse); T79 = fun_sexpr_syntax_definition_value_19; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalSsyntaxYsexpr_syntax_definition_value,T77); lit_47 = YPPsym((P)"df"); VARSET(YevalSsyntaxYDsexpr_define_function_tag,LITREF(lit_47)); lit_48 = YPPsym((P)"sexpr-function-definition?"); lit_49 = YPPlist(1,YPPsym((P)"exp")); T80 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_function_definitionQ_20 = YPfab_met(FUNCODEREF(fun_sexpr_function_definitionQ_20),T80,LITREF(lit_48),LITREF(lit_49),sloc(104),YPfalse); T82 = VARREF_OR(YevalSsyntaxYsexpr_function_definitionQ,YPfalse); T83 = fun_sexpr_function_definitionQ_20; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalSsyntaxYsexpr_function_definitionQ,T81); lit_50 = YPPsym((P)"dm"); VARSET(YevalSsyntaxYDsexpr_define_method_tag,LITREF(lit_50)); lit_51 = YPPsym((P)"sexpr-method-definition?"); lit_52 = YPPlist(1,YPPsym((P)"exp")); T84 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_method_definitionQ_21 = YPfab_met(FUNCODEREF(fun_sexpr_method_definitionQ_21),T84,LITREF(lit_51),LITREF(lit_52),sloc(109),YPfalse); T86 = VARREF_OR(YevalSsyntaxYsexpr_method_definitionQ,YPfalse); T87 = fun_sexpr_method_definitionQ_21; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalSsyntaxYsexpr_method_definitionQ,T85); lit_53 = YPPsym((P)"dg"); VARSET(YevalSsyntaxYDsexpr_define_generic_tag,LITREF(lit_53)); lit_54 = YPPsym((P)"sexpr-generic-definition?"); lit_55 = YPPlist(1,YPPsym((P)"exp")); T88 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_generic_definitionQ_22 = YPfab_met(FUNCODEREF(fun_sexpr_generic_definitionQ_22),T88,LITREF(lit_54),LITREF(lit_55),sloc(114),YPfalse); T90 = VARREF_OR(YevalSsyntaxYsexpr_generic_definitionQ,YPfalse); T91 = fun_sexpr_generic_definitionQ_22; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YevalSsyntaxYsexpr_generic_definitionQ,T89); lit_56 = YPPsym((P)"sexpr-function-definition-variable"); lit_57 = YPPlist(1,YPPsym((P)"defn")); T92 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_function_definition_variable_23 = YPfab_met(FUNCODEREF(fun_sexpr_function_definition_variable_23),T92,LITREF(lit_56),LITREF(lit_57),sloc(119),YPfalse); T94 = VARREF_OR(YevalSsyntaxYsexpr_function_definition_variable,YPfalse); T95 = fun_sexpr_function_definition_variable_23; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalSsyntaxYsexpr_function_definition_variable,T93); lit_58 = YPPsym((P)"sexpr-function-definition-adjectives"); lit_59 = YPPlist(1,YPPsym((P)"defn")); T96 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_function_definition_adjectives_24 = YPfab_met(FUNCODEREF(fun_sexpr_function_definition_adjectives_24),T96,LITREF(lit_58),LITREF(lit_59),sloc(125),YPfalse); T98 = VARREF_OR(YevalSsyntaxYsexpr_function_definition_adjectives,YPfalse); T99 = fun_sexpr_function_definition_adjectives_24; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YevalSsyntaxYsexpr_function_definition_adjectives,T97); lit_60 = YPPsym((P)"sexpr-forward-primitive?"); lit_61 = YPPlist(1,YPPsym((P)"defn")); T100 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_forward_primitiveQ_25 = YPfab_met(FUNCODEREF(fun_sexpr_forward_primitiveQ_25),T100,LITREF(lit_60),LITREF(lit_61),sloc(131),YPfalse); T102 = VARREF_OR(YevalSsyntaxYsexpr_forward_primitiveQ,YPfalse); T103 = fun_sexpr_forward_primitiveQ_25; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YevalSsyntaxYsexpr_forward_primitiveQ,T101); lit_62 = YPPsym((P)"sexpr-signature-parameters"); lit_63 = YPPlist(1,YPPsym((P)"signature")); lit_64 = YPPsym((P)"=>"); T104 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_signature_parameters_26 = YPfab_met(FUNCODEREF(fun_sexpr_signature_parameters_26),T104,LITREF(lit_62),LITREF(lit_63),sloc(134),YPfalse); T106 = VARREF_OR(YevalSsyntaxYsexpr_signature_parameters,YPfalse); T107 = fun_sexpr_signature_parameters_26; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalSsyntaxYsexpr_signature_parameters,T105); lit_65 = YPPsym((P)"sexpr-value-type"); lit_66 = YPPlist(1,YPPsym((P)"x")); T108 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_value_type_27 = YPfab_met(FUNCODEREF(fun_sexpr_value_type_27),T108,LITREF(lit_65),LITREF(lit_66),sloc(140),YPfalse); T110 = VARREF_OR(YevalSsyntaxYsexpr_value_type,YPfalse); T111 = fun_sexpr_value_type_27; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YevalSsyntaxYsexpr_value_type,T109); lit_67 = YPPlist(1,YPPsym((P)"x")); T112 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_value_type_28 = YPfab_met(FUNCODEREF(fun_sexpr_value_type_28),T112,LITREF(lit_65),LITREF(lit_67),sloc(142),YPfalse); T114 = VARREF_OR(YevalSsyntaxYsexpr_value_type,YPfalse); T115 = fun_sexpr_value_type_28; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YevalSsyntaxYsexpr_value_type,T113); lit_68 = YPPsym((P)"sexpr-signature-value"); lit_69 = YPPlist(1,YPPsym((P)"signature")); lit_70 = YPPsym((P)"tup"); lit_71 = YPPsym((P)"t*"); T116 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_signature_value_29 = YPfab_met(FUNCODEREF(fun_sexpr_signature_value_29),T116,LITREF(lit_68),LITREF(lit_69),sloc(144),YPfalse); T118 = VARREF_OR(YevalSsyntaxYsexpr_signature_value,YPfalse); T119 = fun_sexpr_signature_value_29; T117 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T118,T119); VARSET(YevalSsyntaxYsexpr_signature_value,T117); lit_72 = YPPsym((P)"as-signature"); lit_73 = YPPlist(1,YPPsym((P)"sig")); T120 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YevalSsyntaxYas_signature = YPfab_met(FUNCODEREF(YevalSsyntaxYas_signature),T120,LITREF(lit_72),LITREF(lit_73),sloc(152),YPfalse); T121 = YevalSsyntaxYas_signature; VARSET(YevalSsyntaxYas_signature,T121); lit_74 = YPPsym((P)"sexpr-function-signature"); lit_75 = YPPlist(1,YPPsym((P)"defn")); T122 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_function_signature_31 = YPfab_met(FUNCODEREF(fun_sexpr_function_signature_31),T122,LITREF(lit_74),LITREF(lit_75),sloc(155),YPfalse); T124 = VARREF_OR(YevalSsyntaxYsexpr_function_signature,YPfalse); T125 = fun_sexpr_function_signature_31; T123 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T124,T125); VARSET(YevalSsyntaxYsexpr_function_signature,T123); lit_76 = YPPsym((P)"sexpr-function-parameters"); lit_77 = YPPlist(1,YPPsym((P)"defn")); T126 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_function_parameters_32 = YPfab_met(FUNCODEREF(fun_sexpr_function_parameters_32),T126,LITREF(lit_76),LITREF(lit_77),sloc(158),YPfalse); T128 = VARREF_OR(YevalSsyntaxYsexpr_function_parameters,YPfalse); T129 = fun_sexpr_function_parameters_32; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); VARSET(YevalSsyntaxYsexpr_function_parameters,T127); lit_78 = YPPsym((P)"sexpr-function-value"); lit_79 = YPPlist(1,YPPsym((P)"defn")); T130 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_function_value_33 = YPfab_met(FUNCODEREF(fun_sexpr_function_value_33),T130,LITREF(lit_78),LITREF(lit_79),sloc(161),YPfalse); T132 = VARREF_OR(YevalSsyntaxYsexpr_function_value,YPfalse); T133 = fun_sexpr_function_value_33; T131 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T132,T133); VARSET(YevalSsyntaxYsexpr_function_value,T131); lit_80 = YPPsym((P)"sexpr-function-body"); lit_81 = YPPlist(1,YPPsym((P)"defn")); T134 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_function_body_34 = YPfab_met(FUNCODEREF(fun_sexpr_function_body_34),T134,LITREF(lit_80),LITREF(lit_81),sloc(164),YPfalse); T136 = VARREF_OR(YevalSsyntaxYsexpr_function_body,YPfalse); T137 = fun_sexpr_function_body_34; T135 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T136,T137); VARSET(YevalSsyntaxYsexpr_function_body,T135); lit_82 = YPPsym((P)"fun"); VARSET(YevalSsyntaxYDsexpr_method_tag,LITREF(lit_82)); lit_83 = YPPsym((P)"sexpr-function-definition-value"); lit_84 = YPPlist(1,YPPsym((P)"defn")); T140 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T139 = fun_sexpr_function_definition_value_35 = YPfab_met(FUNCODEREF(fun_sexpr_function_definition_value_35),T140,LITREF(lit_83),LITREF(lit_84),sloc(170),YPfalse); T143 = VARREF_OR(YevalSsyntaxYsexpr_function_definition_value,YPfalse); T144 = fun_sexpr_function_definition_value_35; T142 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T143,T144); T141 = VARSET(YevalSsyntaxYsexpr_function_definition_value,T142); T138 = T141; return T138; } P YevalSsyntaxY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176; DEFCREGS(); lit_85 = YPPsym((P)"sexpr-method?"); lit_86 = YPPlist(1,YPPsym((P)"exp")); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_methodQ_36 = YPfab_met(FUNCODEREF(fun_sexpr_methodQ_36),T0,LITREF(lit_85),LITREF(lit_86),sloc(177),YPfalse); T2 = VARREF_OR(YevalSsyntaxYsexpr_methodQ,YPfalse); T3 = fun_sexpr_methodQ_36; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSsyntaxYsexpr_methodQ,T1); lit_87 = YPPsym((P)"sexpr-method-signature"); lit_88 = YPPlist(1,YPPsym((P)"method-exp")); T4 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_method_signature_37 = YPfab_met(FUNCODEREF(fun_sexpr_method_signature_37),T4,LITREF(lit_87),LITREF(lit_88),sloc(180),YPfalse); T6 = VARREF_OR(YevalSsyntaxYsexpr_method_signature,YPfalse); T7 = fun_sexpr_method_signature_37; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSsyntaxYsexpr_method_signature,T5); lit_89 = YPPsym((P)"sexpr-method-parameters"); lit_90 = YPPlist(1,YPPsym((P)"method-exp")); T8 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_method_parameters_38 = YPfab_met(FUNCODEREF(fun_sexpr_method_parameters_38),T8,LITREF(lit_89),LITREF(lit_90),sloc(183),YPfalse); T10 = VARREF_OR(YevalSsyntaxYsexpr_method_parameters,YPfalse); T11 = fun_sexpr_method_parameters_38; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSsyntaxYsexpr_method_parameters,T9); lit_91 = YPPsym((P)"sexpr-method-value"); lit_92 = YPPlist(1,YPPsym((P)"method-exp")); T12 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_method_value_39 = YPfab_met(FUNCODEREF(fun_sexpr_method_value_39),T12,LITREF(lit_91),LITREF(lit_92),sloc(186),YPfalse); T14 = VARREF_OR(YevalSsyntaxYsexpr_method_value,YPfalse); T15 = fun_sexpr_method_value_39; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalSsyntaxYsexpr_method_value,T13); lit_93 = YPPsym((P)"sexpr-method-body"); lit_94 = YPPlist(1,YPPsym((P)"method-exp")); T16 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_method_body_40 = YPfab_met(FUNCODEREF(fun_sexpr_method_body_40),T16,LITREF(lit_93),LITREF(lit_94),sloc(189),YPfalse); T18 = VARREF_OR(YevalSsyntaxYsexpr_method_body,YPfalse); T19 = fun_sexpr_method_body_40; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalSsyntaxYsexpr_method_body,T17); lit_95 = YPPsym((P)"sexpr-make-anonymous-method"); lit_96 = YPPlist(2,YPPsym((P)"parameters"),YPPsym((P)"body")); T20 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_sexpr_make_anonymous_method_41 = YPfab_met(FUNCODEREF(fun_sexpr_make_anonymous_method_41),T20,LITREF(lit_95),LITREF(lit_96),sloc(194),YPfalse); T22 = VARREF_OR(YevalSsyntaxYsexpr_make_anonymous_method,YPfalse); T23 = fun_sexpr_make_anonymous_method_41; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalSsyntaxYsexpr_make_anonymous_method,T21); lit_97 = YPPsym((P)"sexpr-make-method"); lit_98 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"parameters"),YPPsym((P)"body")); T24 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)3),VARREF(YLlstG),Ynil); fun_sexpr_make_method_42 = YPfab_met(FUNCODEREF(fun_sexpr_make_method_42),T24,LITREF(lit_97),LITREF(lit_98),sloc(199),YPfalse); T26 = VARREF_OR(YevalSsyntaxYsexpr_make_method,YPfalse); T27 = fun_sexpr_make_method_42; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalSsyntaxYsexpr_make_method,T25); lit_99 = YPPsym((P)"if"); VARSET(YevalSsyntaxYDsexpr_if_tag,LITREF(lit_99)); lit_100 = YPPsym((P)"sexpr-if?"); lit_101 = YPPlist(1,YPPsym((P)"exp")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_ifQ_43 = YPfab_met(FUNCODEREF(fun_sexpr_ifQ_43),T28,LITREF(lit_100),LITREF(lit_101),sloc(207),YPfalse); T30 = VARREF_OR(YevalSsyntaxYsexpr_ifQ,YPfalse); T31 = fun_sexpr_ifQ_43; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalSsyntaxYsexpr_ifQ,T29); lit_102 = YPPsym((P)"sexpr-if-test"); lit_103 = YPPlist(1,YPPsym((P)"exp")); T32 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_if_test_44 = YPfab_met(FUNCODEREF(fun_sexpr_if_test_44),T32,LITREF(lit_102),LITREF(lit_103),sloc(210),YPfalse); T34 = VARREF_OR(YevalSsyntaxYsexpr_if_test,YPfalse); T35 = fun_sexpr_if_test_44; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalSsyntaxYsexpr_if_test,T33); lit_104 = YPPsym((P)"sexpr-if-then"); lit_105 = YPPlist(1,YPPsym((P)"exp")); T36 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_if_then_45 = YPfab_met(FUNCODEREF(fun_sexpr_if_then_45),T36,LITREF(lit_104),LITREF(lit_105),sloc(213),YPfalse); T38 = VARREF_OR(YevalSsyntaxYsexpr_if_then,YPfalse); T39 = fun_sexpr_if_then_45; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSsyntaxYsexpr_if_then,T37); lit_106 = YPPsym((P)"sexpr-if-else"); lit_107 = YPPlist(1,YPPsym((P)"exp")); T40 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_if_else_46 = YPfab_met(FUNCODEREF(fun_sexpr_if_else_46),T40,LITREF(lit_106),LITREF(lit_107),sloc(216),YPfalse); T42 = VARREF_OR(YevalSsyntaxYsexpr_if_else,YPfalse); T43 = fun_sexpr_if_else_46; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSsyntaxYsexpr_if_else,T41); lit_108 = YPPsym((P)"sexpr-make-if"); lit_109 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"then"),YPPsym((P)"else")); T44 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLlstG),Ynil); fun_sexpr_make_if_47 = YPfab_met(FUNCODEREF(fun_sexpr_make_if_47),T44,LITREF(lit_108),LITREF(lit_109),sloc(221),YPfalse); T46 = VARREF_OR(YevalSsyntaxYsexpr_make_if,YPfalse); T47 = fun_sexpr_make_if_47; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YevalSsyntaxYsexpr_make_if,T45); lit_110 = YPPsym((P)"esc"); VARSET(YevalSsyntaxYDsexpr_bind_exit_tag,LITREF(lit_110)); lit_111 = YPPsym((P)"sexpr-block?"); lit_112 = YPPlist(1,YPPsym((P)"exp")); T48 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_blockQ_48 = YPfab_met(FUNCODEREF(fun_sexpr_blockQ_48),T48,LITREF(lit_111),LITREF(lit_112),sloc(228),YPfalse); T50 = VARREF_OR(YevalSsyntaxYsexpr_blockQ,YPfalse); T51 = fun_sexpr_blockQ_48; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YevalSsyntaxYsexpr_blockQ,T49); lit_113 = YPPsym((P)"sexpr-block-name"); lit_114 = YPPlist(1,YPPsym((P)"exp")); T52 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_block_name_49 = YPfab_met(FUNCODEREF(fun_sexpr_block_name_49),T52,LITREF(lit_113),LITREF(lit_114),sloc(233),YPfalse); T54 = VARREF_OR(YevalSsyntaxYsexpr_block_name,YPfalse); T55 = fun_sexpr_block_name_49; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalSsyntaxYsexpr_block_name,T53); lit_115 = YPPsym((P)"sexpr-block-body"); lit_116 = YPPlist(1,YPPsym((P)"exp")); T56 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_block_body_50 = YPfab_met(FUNCODEREF(fun_sexpr_block_body_50),T56,LITREF(lit_115),LITREF(lit_116),sloc(236),YPfalse); T58 = VARREF_OR(YevalSsyntaxYsexpr_block_body,YPfalse); T59 = fun_sexpr_block_body_50; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalSsyntaxYsexpr_block_body,T57); lit_117 = YPPsym((P)"fin"); VARSET(YevalSsyntaxYDsexpr_unwind_protect_tag,LITREF(lit_117)); lit_118 = YPPsym((P)"sexpr-unwind-protect?"); lit_119 = YPPlist(1,YPPsym((P)"exp")); T60 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_unwind_protectQ_51 = YPfab_met(FUNCODEREF(fun_sexpr_unwind_protectQ_51),T60,LITREF(lit_118),LITREF(lit_119),sloc(243),YPfalse); T62 = VARREF_OR(YevalSsyntaxYsexpr_unwind_protectQ,YPfalse); T63 = fun_sexpr_unwind_protectQ_51; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalSsyntaxYsexpr_unwind_protectQ,T61); lit_120 = YPPsym((P)"sexpr-unwind-protect-protected-form"); lit_121 = YPPlist(1,YPPsym((P)"exp")); T64 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_unwind_protect_protected_form_52 = YPfab_met(FUNCODEREF(fun_sexpr_unwind_protect_protected_form_52),T64,LITREF(lit_120),LITREF(lit_121),sloc(246),YPfalse); T66 = VARREF_OR(YevalSsyntaxYsexpr_unwind_protect_protected_form,YPfalse); T67 = fun_sexpr_unwind_protect_protected_form_52; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalSsyntaxYsexpr_unwind_protect_protected_form,T65); lit_122 = YPPsym((P)"sexpr-unwind-protect-cleanup-forms"); lit_123 = YPPlist(1,YPPsym((P)"exp")); T68 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_unwind_protect_cleanup_forms_53 = YPfab_met(FUNCODEREF(fun_sexpr_unwind_protect_cleanup_forms_53),T68,LITREF(lit_122),LITREF(lit_123),sloc(249),YPfalse); T70 = VARREF_OR(YevalSsyntaxYsexpr_unwind_protect_cleanup_forms,YPfalse); T71 = fun_sexpr_unwind_protect_cleanup_forms_53; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YevalSsyntaxYsexpr_unwind_protect_cleanup_forms,T69); lit_124 = YPPsym((P)"try"); VARSET(YevalSsyntaxYDsexpr_monitor_tag,LITREF(lit_124)); lit_125 = YPPsym((P)"sexpr-monitor?"); lit_126 = YPPlist(1,YPPsym((P)"exp")); T72 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_monitorQ_54 = YPfab_met(FUNCODEREF(fun_sexpr_monitorQ_54),T72,LITREF(lit_125),LITREF(lit_126),sloc(256),YPfalse); T74 = VARREF_OR(YevalSsyntaxYsexpr_monitorQ,YPfalse); T75 = fun_sexpr_monitorQ_54; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSsyntaxYsexpr_monitorQ,T73); lit_127 = YPPsym((P)"sexpr-monitor-expand"); lit_128 = YPPlist(1,YPPsym((P)"exp")); lit_129 = YPPlist(1,YPPsym((P)"return")); lit_130 = YPPsym((P)"x-1477"); lit_131 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_132 = YPsb((P)"Malformed TRY expression: ~="); lit_133 = YPsb((P)"Match Pattern Failure"); lit_134 = YPPsym((P)"type"); T78 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1477_55 = YPfab_met(FUNCODEREF(fun_x_1477_55),T78,LITREF(lit_130),LITREF(lit_131),YPfalse,YPfalse); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_56 = YPfab_met(FUNCODEREF(fun_56),T77,YPfalse,LITREF(lit_129),YPfalse,YPfalse); T76 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_monitor_expand_57 = YPfab_met(FUNCODEREF(fun_sexpr_monitor_expand_57),T76,LITREF(lit_127),LITREF(lit_128),sloc(259),YPfalse); T80 = VARREF_OR(YevalSsyntaxYsexpr_monitor_expand,YPfalse); T81 = fun_sexpr_monitor_expand_57; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YevalSsyntaxYsexpr_monitor_expand,T79); lit_135 = YPPsym((P)"find-option"); lit_136 = YPPlist(3,YPPsym((P)"options"),YPPsym((P)"option"),YPPsym((P)"default")); T82 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLsymG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YevalSsyntaxYfind_option = YPfab_met(FUNCODEREF(YevalSsyntaxYfind_option),T82,LITREF(lit_135),LITREF(lit_136),sloc(270),YPfalse); T83 = YevalSsyntaxYfind_option; VARSET(YevalSsyntaxYfind_option,T83); lit_137 = YPPsym((P)"sexpr-monitor-type"); lit_138 = YPPlist(1,YPPsym((P)"options")); lit_139 = YPPlist(1,YPPsym((P)"")); lit_140 = YPPlist(1,YPPsym((P)"return")); lit_141 = YPPsym((P)"x-1479"); lit_142 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_143 = YPsb((P)"Malformed TRY condition type: %="); T86 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1479_59 = YPfab_met(FUNCODEREF(fun_x_1479_59),T86,LITREF(lit_141),LITREF(lit_142),YPfalse,YPfalse); T85 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_60 = YPfab_met(FUNCODEREF(fun_60),T85,YPfalse,LITREF(lit_140),YPfalse,YPfalse); T84 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_monitor_type_61 = YPfab_met(FUNCODEREF(fun_sexpr_monitor_type_61),T84,LITREF(lit_137),LITREF(lit_138),sloc(276),YPfalse); T88 = VARREF_OR(YevalSsyntaxYsexpr_monitor_type,YPfalse); T89 = fun_sexpr_monitor_type_61; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YevalSsyntaxYsexpr_monitor_type,T87); lit_144 = YPPsym((P)"sexpr-monitor-info"); lit_145 = YPPlist(1,YPPsym((P)"options")); lit_146 = YPPsym((P)"info"); lit_147 = YPPsym((P)"description"); lit_148 = YPsb((P)"TRY may only have one of INFO or DESCRIPTION: %="); lit_149 = YPPlist(1,YPPsym((P)"return")); lit_150 = YPPsym((P)"x-1481"); lit_151 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_152 = YPsb((P)"Malformed TRY info expression: %="); lit_153 = YPPlist(1,YPPsym((P)"return")); lit_154 = YPPsym((P)"x-1483"); lit_155 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_156 = YPsb((P)"Malformed TRY description: %="); lit_157 = YPPsym((P)"new"); lit_158 = YPPsym((P)""); lit_159 = YPPsym((P)"handler-info-message"); lit_160 = YPPsym((P)"handler-info-arguments"); lit_161 = YPPsym((P)"lst"); lit_162 = YPPsym((P)"$default-handler-info"); T94 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1481_62 = YPfab_met(FUNCODEREF(fun_x_1481_62),T94,LITREF(lit_150),LITREF(lit_151),YPfalse,YPfalse); T93 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_63 = YPfab_met(FUNCODEREF(fun_63),T93,YPfalse,LITREF(lit_149),YPfalse,YPfalse); T92 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1483_64 = YPfab_met(FUNCODEREF(fun_x_1483_64),T92,LITREF(lit_154),LITREF(lit_155),YPfalse,YPfalse); T91 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_65 = YPfab_met(FUNCODEREF(fun_65),T91,YPfalse,LITREF(lit_153),YPfalse,YPfalse); T90 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_monitor_info_66 = YPfab_met(FUNCODEREF(fun_sexpr_monitor_info_66),T90,LITREF(lit_144),LITREF(lit_145),sloc(283),YPfalse); T96 = VARREF_OR(YevalSsyntaxYsexpr_monitor_info,YPfalse); T97 = fun_sexpr_monitor_info_66; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YevalSsyntaxYsexpr_monitor_info,T95); lit_163 = YPPsym((P)"sexpr-monitor-test"); lit_164 = YPPlist(1,YPPsym((P)"options")); lit_165 = YPPsym((P)"test"); lit_166 = YPPlist(1,YPtrue); T98 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_monitor_test_67 = YPfab_met(FUNCODEREF(fun_sexpr_monitor_test_67),T98,LITREF(lit_163),LITREF(lit_164),sloc(302),YPfalse); T100 = VARREF_OR(YevalSsyntaxYsexpr_monitor_test,YPfalse); T101 = fun_sexpr_monitor_test_67; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YevalSsyntaxYsexpr_monitor_test,T99); lit_167 = YPPsym((P)"sexpr-monitor-body"); lit_168 = YPPlist(1,YPPsym((P)"body")); T102 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_monitor_body_68 = YPfab_met(FUNCODEREF(fun_sexpr_monitor_body_68),T102,LITREF(lit_167),LITREF(lit_168),sloc(306),YPfalse); T104 = VARREF_OR(YevalSsyntaxYsexpr_monitor_body,YPfalse); T105 = fun_sexpr_monitor_body_68; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YevalSsyntaxYsexpr_monitor_body,T103); lit_169 = YPPsym((P)"seq"); VARSET(YevalSsyntaxYDsexpr_begin_tag,LITREF(lit_169)); lit_170 = YPPsym((P)"sexpr-begin?"); lit_171 = YPPlist(1,YPPsym((P)"exp")); T106 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_beginQ_69 = YPfab_met(FUNCODEREF(fun_sexpr_beginQ_69),T106,LITREF(lit_170),LITREF(lit_171),sloc(313),YPfalse); T108 = VARREF_OR(YevalSsyntaxYsexpr_beginQ,YPfalse); T109 = fun_sexpr_beginQ_69; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YevalSsyntaxYsexpr_beginQ,T107); lit_172 = YPPsym((P)"sexpr-begin-actions"); lit_173 = YPPlist(1,YPPsym((P)"begin-exp")); T110 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_begin_actions_70 = YPfab_met(FUNCODEREF(fun_sexpr_begin_actions_70),T110,LITREF(lit_172),LITREF(lit_173),sloc(316),YPfalse); T112 = VARREF_OR(YevalSsyntaxYsexpr_begin_actions,YPfalse); T113 = fun_sexpr_begin_actions_70; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YevalSsyntaxYsexpr_begin_actions,T111); lit_174 = YPPsym((P)"sexpr-last-exp?"); lit_175 = YPPlist(1,YPPsym((P)"seq")); T114 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_last_expQ_71 = YPfab_met(FUNCODEREF(fun_sexpr_last_expQ_71),T114,LITREF(lit_174),LITREF(lit_175),sloc(319),YPfalse); T116 = VARREF_OR(YevalSsyntaxYsexpr_last_expQ,YPfalse); T117 = fun_sexpr_last_expQ_71; T115 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T116,T117); VARSET(YevalSsyntaxYsexpr_last_expQ,T115); lit_176 = YPPsym((P)"sexpr-first-exp"); lit_177 = YPPlist(1,YPPsym((P)"seq")); T118 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_first_exp_72 = YPfab_met(FUNCODEREF(fun_sexpr_first_exp_72),T118,LITREF(lit_176),LITREF(lit_177),sloc(322),YPfalse); T120 = VARREF_OR(YevalSsyntaxYsexpr_first_exp,YPfalse); T121 = fun_sexpr_first_exp_72; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YevalSsyntaxYsexpr_first_exp,T119); lit_178 = YPPsym((P)"sexpr-rest-exps"); lit_179 = YPPlist(1,YPPsym((P)"seq")); T122 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_rest_exps_73 = YPfab_met(FUNCODEREF(fun_sexpr_rest_exps_73),T122,LITREF(lit_178),LITREF(lit_179),sloc(325),YPfalse); T124 = VARREF_OR(YevalSsyntaxYsexpr_rest_exps,YPfalse); T125 = fun_sexpr_rest_exps_73; T123 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T124,T125); VARSET(YevalSsyntaxYsexpr_rest_exps,T123); lit_180 = YPPsym((P)"sexpr-sequence->begin"); lit_181 = YPPlist(1,YPPsym((P)"seq")); T126 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_sequence_Gbegin_74 = YPfab_met(FUNCODEREF(fun_sexpr_sequence_Gbegin_74),T126,LITREF(lit_180),LITREF(lit_181),sloc(328),YPfalse); T128 = VARREF_OR(YevalSsyntaxYsexpr_sequence_Gbegin,YPfalse); T129 = fun_sexpr_sequence_Gbegin_74; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); VARSET(YevalSsyntaxYsexpr_sequence_Gbegin,T127); lit_182 = YPPsym((P)"sexpr-make-begin"); lit_183 = YPPlist(1,YPPsym((P)"exp")); T130 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_make_begin_75 = YPfab_met(FUNCODEREF(fun_sexpr_make_begin_75),T130,LITREF(lit_182),LITREF(lit_183),sloc(335),YPfalse); T132 = VARREF_OR(YevalSsyntaxYsexpr_make_begin,YPfalse); T133 = fun_sexpr_make_begin_75; T131 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T132,T133); VARSET(YevalSsyntaxYsexpr_make_begin,T131); lit_184 = YPPsym((P)"sexpr-application?"); lit_185 = YPPlist(1,YPPsym((P)"exp")); T134 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_applicationQ_76 = YPfab_met(FUNCODEREF(fun_sexpr_applicationQ_76),T134,LITREF(lit_184),LITREF(lit_185),sloc(339),YPfalse); T136 = VARREF_OR(YevalSsyntaxYsexpr_applicationQ,YPfalse); T137 = fun_sexpr_applicationQ_76; T135 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T136,T137); VARSET(YevalSsyntaxYsexpr_applicationQ,T135); lit_186 = YPPsym((P)"sexpr-operator"); lit_187 = YPPlist(1,YPPsym((P)"app")); T138 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_operator_77 = YPfab_met(FUNCODEREF(fun_sexpr_operator_77),T138,LITREF(lit_186),LITREF(lit_187),sloc(342),YPfalse); T140 = VARREF_OR(YevalSsyntaxYsexpr_operator,YPfalse); T141 = fun_sexpr_operator_77; T139 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T140,T141); VARSET(YevalSsyntaxYsexpr_operator,T139); lit_188 = YPPsym((P)"sexpr-operands"); lit_189 = YPPlist(1,YPPsym((P)"app")); T142 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_operands_78 = YPfab_met(FUNCODEREF(fun_sexpr_operands_78),T142,LITREF(lit_188),LITREF(lit_189),sloc(345),YPfalse); T144 = VARREF_OR(YevalSsyntaxYsexpr_operands,YPfalse); T145 = fun_sexpr_operands_78; T143 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T144,T145); VARSET(YevalSsyntaxYsexpr_operands,T143); lit_190 = YPPsym((P)"sexpr-no-operands?"); lit_191 = YPPlist(1,YPPsym((P)"args")); T146 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_no_operandsQ_79 = YPfab_met(FUNCODEREF(fun_sexpr_no_operandsQ_79),T146,LITREF(lit_190),LITREF(lit_191),sloc(348),YPfalse); T148 = VARREF_OR(YevalSsyntaxYsexpr_no_operandsQ,YPfalse); T149 = fun_sexpr_no_operandsQ_79; T147 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T148,T149); VARSET(YevalSsyntaxYsexpr_no_operandsQ,T147); lit_192 = YPPsym((P)"sexpr-first-operand"); lit_193 = YPPlist(1,YPPsym((P)"args")); T150 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_first_operand_80 = YPfab_met(FUNCODEREF(fun_sexpr_first_operand_80),T150,LITREF(lit_192),LITREF(lit_193),sloc(351),YPfalse); T152 = VARREF_OR(YevalSsyntaxYsexpr_first_operand,YPfalse); T153 = fun_sexpr_first_operand_80; T151 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T152,T153); VARSET(YevalSsyntaxYsexpr_first_operand,T151); lit_194 = YPPsym((P)"sexpr-rest-operands"); lit_195 = YPPlist(1,YPPsym((P)"args")); T154 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_rest_operands_81 = YPfab_met(FUNCODEREF(fun_sexpr_rest_operands_81),T154,LITREF(lit_194),LITREF(lit_195),sloc(354),YPfalse); T156 = VARREF_OR(YevalSsyntaxYsexpr_rest_operands,YPfalse); T157 = fun_sexpr_rest_operands_81; T155 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T156,T157); VARSET(YevalSsyntaxYsexpr_rest_operands,T155); lit_196 = YPPsym((P)"sexpr-make-application"); lit_197 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"operands")); T158 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_sexpr_make_application_82 = YPfab_met(FUNCODEREF(fun_sexpr_make_application_82),T158,LITREF(lit_196),LITREF(lit_197),sloc(357),YPfalse); T160 = VARREF_OR(YevalSsyntaxYsexpr_make_application,YPfalse); T161 = fun_sexpr_make_application_82; T159 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T160,T161); VARSET(YevalSsyntaxYsexpr_make_application,T159); VARSET(YevalSsyntaxYTunique_name_counterT,YPint((P)0)); lit_198 = YPPsym((P)"sexpr-new-unique-name-counter!"); lit_199 = Ynil; T162 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLintG),Ynil); fun_sexpr_new_unique_name_counterX_83 = YPfab_met(FUNCODEREF(fun_sexpr_new_unique_name_counterX_83),T162,LITREF(lit_198),LITREF(lit_199),sloc(362),YPfalse); T164 = VARREF_OR(YevalSsyntaxYsexpr_new_unique_name_counterX,YPfalse); T165 = fun_sexpr_new_unique_name_counterX_83; T163 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T164,T165); VARSET(YevalSsyntaxYsexpr_new_unique_name_counterX,T163); VARSET(YevalSsyntaxYLnameG,VARREF(YLanyG)); lit_200 = YPPsym((P)"sexpr-unique-name"); lit_201 = YPPlist(1,YPPsym((P)"prefix")); T166 = YPfab_sig(YPPlist(1,VARREF(YevalSsyntaxYLnameG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_sexpr_unique_name_84 = YPfab_met(FUNCODEREF(fun_sexpr_unique_name_84),T166,LITREF(lit_200),LITREF(lit_201),sloc(369),YPfalse); T168 = VARREF_OR(YevalSsyntaxYsexpr_unique_name,YPfalse); T169 = fun_sexpr_unique_name_84; T167 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T168,T169); VARSET(YevalSsyntaxYsexpr_unique_name,T167); lit_202 = YPPsym((P)"def"); VARSET(YevalSsyntaxYDsexpr_def_tag,LITREF(lit_202)); lit_203 = YPPsym((P)"sexpr-def?"); lit_204 = YPPlist(1,YPPsym((P)"exp")); T172 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T171 = fun_sexpr_defQ_85 = YPfab_met(FUNCODEREF(fun_sexpr_defQ_85),T172,LITREF(lit_203),LITREF(lit_204),sloc(380),YPfalse); T175 = VARREF_OR(YevalSsyntaxYsexpr_defQ,YPfalse); T176 = fun_sexpr_defQ_85; T174 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T175,T176); T173 = VARSET(YevalSsyntaxYsexpr_defQ,T174); T170 = T173; return T170; } P YevalSsyntaxY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169; DEFCREGS(); lit_205 = YPPsym((P)"sexpr-def-variable"); lit_206 = YPPlist(1,YPPsym((P)"exp")); T0 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_def_variable_86 = YPfab_met(FUNCODEREF(fun_sexpr_def_variable_86),T0,LITREF(lit_205),LITREF(lit_206),sloc(383),YPfalse); T2 = VARREF_OR(YevalSsyntaxYsexpr_def_variable,YPfalse); T3 = fun_sexpr_def_variable_86; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSsyntaxYsexpr_def_variable,T1); lit_207 = YPPsym((P)"sexpr-def-value"); lit_208 = YPPlist(1,YPPsym((P)"exp")); T4 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_def_value_87 = YPfab_met(FUNCODEREF(fun_sexpr_def_value_87),T4,LITREF(lit_207),LITREF(lit_208),sloc(385),YPfalse); T6 = VARREF_OR(YevalSsyntaxYsexpr_def_value,YPfalse); T7 = fun_sexpr_def_value_87; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalSsyntaxYsexpr_def_value,T5); lit_209 = YPPsym((P)"let"); VARSET(YevalSsyntaxYDsexpr_let_tag,LITREF(lit_209)); lit_210 = YPPsym((P)"sexpr-let?"); lit_211 = YPPlist(1,YPPsym((P)"exp")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_letQ_88 = YPfab_met(FUNCODEREF(fun_sexpr_letQ_88),T8,LITREF(lit_210),LITREF(lit_211),sloc(389),YPfalse); T10 = VARREF_OR(YevalSsyntaxYsexpr_letQ,YPfalse); T11 = fun_sexpr_letQ_88; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalSsyntaxYsexpr_letQ,T9); lit_212 = YPPsym((P)"sexpr-let-bound-variables"); lit_213 = YPPlist(1,YPPsym((P)"let-exp")); lit_214 = YPPlist(1,YPPsym((P)"x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_89 = YPfab_met(FUNCODEREF(fun_89),T13,YPfalse,LITREF(lit_214),sloc(393),YPfalse); T12 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_let_bound_variables_90 = YPfab_met(FUNCODEREF(fun_sexpr_let_bound_variables_90),T12,LITREF(lit_212),LITREF(lit_213),sloc(392),YPfalse); T15 = VARREF_OR(YevalSsyntaxYsexpr_let_bound_variables,YPfalse); T16 = fun_sexpr_let_bound_variables_90; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YevalSsyntaxYsexpr_let_bound_variables,T14); lit_215 = YPPsym((P)"sexpr-let-values"); lit_216 = YPPlist(1,YPPsym((P)"let-exp")); lit_217 = YPPlist(1,YPPsym((P)"x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_91 = YPfab_met(FUNCODEREF(fun_91),T18,YPfalse,LITREF(lit_217),sloc(396),YPfalse); T17 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_let_values_92 = YPfab_met(FUNCODEREF(fun_sexpr_let_values_92),T17,LITREF(lit_215),LITREF(lit_216),sloc(395),YPfalse); T20 = VARREF_OR(YevalSsyntaxYsexpr_let_values,YPfalse); T21 = fun_sexpr_let_values_92; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSsyntaxYsexpr_let_values,T19); lit_218 = YPPsym((P)"sexpr-let-body"); lit_219 = YPPlist(1,YPPsym((P)"let-exp")); T22 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_let_body_93 = YPfab_met(FUNCODEREF(fun_sexpr_let_body_93),T22,LITREF(lit_218),LITREF(lit_219),sloc(398),YPfalse); T24 = VARREF_OR(YevalSsyntaxYsexpr_let_body,YPfalse); T25 = fun_sexpr_let_body_93; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSsyntaxYsexpr_let_body,T23); lit_220 = YPPsym((P)"sexpr-let-names+values"); lit_221 = YPPlist(2,YPPsym((P)"names"),YPPsym((P)"vals")); lit_222 = YPsb((P)"tup"); lit_223 = YPPsym((P)"..."); lit_224 = YPPsym((P)""); lit_225 = YPPsym((P)"sub"); lit_226 = YPPsym((P)"len"); lit_227 = YPPsym((P)"elt"); T27 = XCALL2(1,VARREF(YtT),VARREF(YLlstG),VARREF(YLlstG)); T26 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),T27,Ynil); fun_sexpr_let_namesAvalues_94 = YPfab_met(FUNCODEREF(fun_sexpr_let_namesAvalues_94),T26,LITREF(lit_220),LITREF(lit_221),sloc(401),YPfalse); T29 = VARREF_OR(YevalSsyntaxYsexpr_let_namesAvalues,YPfalse); T30 = fun_sexpr_let_namesAvalues_94; T28 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T29,T30); VARSET(YevalSsyntaxYsexpr_let_namesAvalues,T28); lit_228 = YPPsym((P)"sexpr-let->combination"); lit_229 = YPPlist(1,YPPsym((P)"let-exp")); lit_230 = YPPsym((P)"col"); lit_231 = YPPlist(2,YPPsym((P)"names"),YPPsym((P)"values")); T32 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_col_95 = YPfab_met(FUNCODEREF(fun_col_95),T32,LITREF(lit_230),LITREF(lit_231),sloc(440),YPfalse); T31 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_let_Gcombination_96 = YPfab_met(FUNCODEREF(fun_sexpr_let_Gcombination_96),T31,LITREF(lit_228),LITREF(lit_229),sloc(435),YPfalse); T34 = VARREF_OR(YevalSsyntaxYsexpr_let_Gcombination,YPfalse); T35 = fun_sexpr_let_Gcombination_96; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalSsyntaxYsexpr_let_Gcombination,T33); lit_232 = YPPsym((P)"loc"); VARSET(YevalSsyntaxYDsexpr_locals_tag,LITREF(lit_232)); lit_233 = YPPsym((P)"sexpr-loc?"); lit_234 = YPPlist(1,YPPsym((P)"exp")); T36 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_locQ_97 = YPfab_met(FUNCODEREF(fun_sexpr_locQ_97),T36,LITREF(lit_233),LITREF(lit_234),sloc(451),YPfalse); T38 = VARREF_OR(YevalSsyntaxYsexpr_locQ,YPfalse); T39 = fun_sexpr_locQ_97; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalSsyntaxYsexpr_locQ,T37); lit_235 = YPPsym((P)"sexpr-loc-bound-names"); lit_236 = YPPlist(1,YPPsym((P)"loc-exp")); T40 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_loc_bound_names_98 = YPfab_met(FUNCODEREF(fun_sexpr_loc_bound_names_98),T40,LITREF(lit_235),LITREF(lit_236),sloc(454),YPfalse); T42 = VARREF_OR(YevalSsyntaxYsexpr_loc_bound_names,YPfalse); T43 = fun_sexpr_loc_bound_names_98; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalSsyntaxYsexpr_loc_bound_names,T41); lit_237 = YPPsym((P)"sexpr-loc-bound-signatures"); lit_238 = YPPlist(1,YPPsym((P)"loc-exp")); lit_239 = YPPlist(1,YPPsym((P)"x")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_99 = YPfab_met(FUNCODEREF(fun_99),T45,YPfalse,LITREF(lit_239),sloc(458),YPfalse); T44 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_loc_bound_signatures_100 = YPfab_met(FUNCODEREF(fun_sexpr_loc_bound_signatures_100),T44,LITREF(lit_237),LITREF(lit_238),sloc(457),YPfalse); T47 = VARREF_OR(YevalSsyntaxYsexpr_loc_bound_signatures,YPfalse); T48 = fun_sexpr_loc_bound_signatures_100; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YevalSsyntaxYsexpr_loc_bound_signatures,T46); lit_240 = YPPsym((P)"sexpr-loc-bound-bodies"); lit_241 = YPPlist(1,YPPsym((P)"loc-exp")); T49 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_loc_bound_bodies_101 = YPfab_met(FUNCODEREF(fun_sexpr_loc_bound_bodies_101),T49,LITREF(lit_240),LITREF(lit_241),sloc(462),YPfalse); T51 = VARREF_OR(YevalSsyntaxYsexpr_loc_bound_bodies,YPfalse); T52 = fun_sexpr_loc_bound_bodies_101; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YevalSsyntaxYsexpr_loc_bound_bodies,T50); lit_242 = YPPsym((P)"sexpr-loc-raw-body"); lit_243 = YPPlist(1,YPPsym((P)"loc-exp")); T53 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_loc_raw_body_102 = YPfab_met(FUNCODEREF(fun_sexpr_loc_raw_body_102),T53,LITREF(lit_242),LITREF(lit_243),sloc(465),YPfalse); T55 = VARREF_OR(YevalSsyntaxYsexpr_loc_raw_body,YPfalse); T56 = fun_sexpr_loc_raw_body_102; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YevalSsyntaxYsexpr_loc_raw_body,T54); lit_244 = YPPsym((P)"sexpr-loc-body"); lit_245 = YPPlist(1,YPPsym((P)"loc-exp")); T57 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_loc_body_103 = YPfab_met(FUNCODEREF(fun_sexpr_loc_body_103),T57,LITREF(lit_244),LITREF(lit_245),sloc(468),YPfalse); T59 = VARREF_OR(YevalSsyntaxYsexpr_loc_body,YPfalse); T60 = fun_sexpr_loc_body_103; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YevalSsyntaxYsexpr_loc_body,T58); lit_246 = YPPsym((P)"rep"); VARSET(YevalSsyntaxYDsexpr_iterate_tag,LITREF(lit_246)); lit_247 = YPPsym((P)"sexpr-iterate?"); lit_248 = YPPlist(1,YPPsym((P)"exp")); T61 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_iterateQ_104 = YPfab_met(FUNCODEREF(fun_sexpr_iterateQ_104),T61,LITREF(lit_247),LITREF(lit_248),sloc(474),YPfalse); T63 = VARREF_OR(YevalSsyntaxYsexpr_iterateQ,YPfalse); T64 = fun_sexpr_iterateQ_104; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YevalSsyntaxYsexpr_iterateQ,T62); lit_249 = YPPsym((P)"sexpr-iterate-name"); lit_250 = YPPlist(1,YPPsym((P)"rep-exp")); T65 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_sexpr_iterate_name_105 = YPfab_met(FUNCODEREF(fun_sexpr_iterate_name_105),T65,LITREF(lit_249),LITREF(lit_250),sloc(477),YPfalse); T67 = VARREF_OR(YevalSsyntaxYsexpr_iterate_name,YPfalse); T68 = fun_sexpr_iterate_name_105; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YevalSsyntaxYsexpr_iterate_name,T66); VARSET(YevalSsyntaxYDsexpr_values_tag,LITREF(lit_64)); lit_251 = YPPsym((P)"sexpr-iterate-signature"); lit_252 = YPPlist(1,YPPsym((P)"rep-exp")); lit_253 = YPPlist(1,YPPsym((P)"x")); T70 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_106 = YPfab_met(FUNCODEREF(fun_106),T70,YPfalse,LITREF(lit_253),sloc(484),YPfalse); T69 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_iterate_signature_107 = YPfab_met(FUNCODEREF(fun_sexpr_iterate_signature_107),T69,LITREF(lit_251),LITREF(lit_252),sloc(482),YPfalse); T72 = VARREF_OR(YevalSsyntaxYsexpr_iterate_signature,YPfalse); T73 = fun_sexpr_iterate_signature_107; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YevalSsyntaxYsexpr_iterate_signature,T71); lit_254 = YPPsym((P)"sexpr-iterate-inits"); lit_255 = YPPlist(1,YPPsym((P)"rep-exp")); lit_256 = YPPlist(1,YPPsym((P)"x")); T75 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_108 = YPfab_met(FUNCODEREF(fun_108),T75,YPfalse,LITREF(lit_256),sloc(492),YPfalse); T74 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_iterate_inits_109 = YPfab_met(FUNCODEREF(fun_sexpr_iterate_inits_109),T74,LITREF(lit_254),LITREF(lit_255),sloc(491),YPfalse); T77 = VARREF_OR(YevalSsyntaxYsexpr_iterate_inits,YPfalse); T78 = fun_sexpr_iterate_inits_109; T76 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T77,T78); VARSET(YevalSsyntaxYsexpr_iterate_inits,T76); lit_257 = YPPsym((P)"sexpr-iterate-body"); lit_258 = YPPlist(1,YPPsym((P)"rep-exp")); T79 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_iterate_body_110 = YPfab_met(FUNCODEREF(fun_sexpr_iterate_body_110),T79,LITREF(lit_257),LITREF(lit_258),sloc(494),YPfalse); T81 = VARREF_OR(YevalSsyntaxYsexpr_iterate_body,YPfalse); T82 = fun_sexpr_iterate_body_110; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YevalSsyntaxYsexpr_iterate_body,T80); lit_259 = YPPsym((P)"sexpr-iterate->loc"); lit_260 = YPPlist(1,YPPsym((P)"rep-exp")); T83 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_iterate_Gloc_111 = YPfab_met(FUNCODEREF(fun_sexpr_iterate_Gloc_111),T83,LITREF(lit_259),LITREF(lit_260),sloc(497),YPfalse); T85 = VARREF_OR(YevalSsyntaxYsexpr_iterate_Gloc,YPfalse); T86 = fun_sexpr_iterate_Gloc_111; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YevalSsyntaxYsexpr_iterate_Gloc,T84); lit_261 = YPPsym((P)"isa"); VARSET(YevalSsyntaxYDsexpr_isa_tag,LITREF(lit_261)); lit_262 = YPPsym((P)"sexpr-isa?"); lit_263 = YPPlist(1,YPPsym((P)"exp")); T87 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_isaQ_112 = YPfab_met(FUNCODEREF(fun_sexpr_isaQ_112),T87,LITREF(lit_262),LITREF(lit_263),sloc(511),YPfalse); T89 = VARREF_OR(YevalSsyntaxYsexpr_isaQ,YPfalse); T90 = fun_sexpr_isaQ_112; T88 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T89,T90); VARSET(YevalSsyntaxYsexpr_isaQ,T88); lit_264 = YPPsym((P)"sexpr-isa-parent"); lit_265 = YPPlist(1,YPPsym((P)"exp")); T91 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_isa_parent_113 = YPfab_met(FUNCODEREF(fun_sexpr_isa_parent_113),T91,LITREF(lit_264),LITREF(lit_265),sloc(514),YPfalse); T93 = VARREF_OR(YevalSsyntaxYsexpr_isa_parent,YPfalse); T94 = fun_sexpr_isa_parent_113; T92 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T93,T94); VARSET(YevalSsyntaxYsexpr_isa_parent,T92); lit_266 = YPPsym((P)"sexpr-isa-prop-inits"); lit_267 = YPPlist(1,YPPsym((P)"exp")); T95 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_isa_prop_inits_114 = YPfab_met(FUNCODEREF(fun_sexpr_isa_prop_inits_114),T95,LITREF(lit_266),LITREF(lit_267),sloc(517),YPfalse); T97 = VARREF_OR(YevalSsyntaxYsexpr_isa_prop_inits,YPfalse); T98 = fun_sexpr_isa_prop_inits_114; T96 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T97,T98); VARSET(YevalSsyntaxYsexpr_isa_prop_inits,T96); lit_268 = YPPsym((P)"sexpr-isa-init-props"); lit_269 = YPPlist(1,YPPsym((P)"exp")); T99 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_isa_init_props_115 = YPfab_met(FUNCODEREF(fun_sexpr_isa_init_props_115),T99,LITREF(lit_268),LITREF(lit_269),sloc(520),YPfalse); T101 = VARREF_OR(YevalSsyntaxYsexpr_isa_init_props,YPfalse); T102 = fun_sexpr_isa_init_props_115; T100 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T101,T102); VARSET(YevalSsyntaxYsexpr_isa_init_props,T100); lit_270 = YPPsym((P)"sexpr-isa-init-values"); lit_271 = YPPlist(1,YPPsym((P)"exp")); T103 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_isa_init_values_116 = YPfab_met(FUNCODEREF(fun_sexpr_isa_init_values_116),T103,LITREF(lit_270),LITREF(lit_271),sloc(523),YPfalse); T105 = VARREF_OR(YevalSsyntaxYsexpr_isa_init_values,YPfalse); T106 = fun_sexpr_isa_init_values_116; T104 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T105,T106); VARSET(YevalSsyntaxYsexpr_isa_init_values,T104); lit_272 = YPPsym((P)"dc"); VARSET(YevalSsyntaxYDsexpr_define_class_tag,LITREF(lit_272)); lit_273 = YPPsym((P)"sexpr-define-class?"); lit_274 = YPPlist(1,YPPsym((P)"exp")); T107 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_define_classQ_117 = YPfab_met(FUNCODEREF(fun_sexpr_define_classQ_117),T107,LITREF(lit_273),LITREF(lit_274),sloc(530),YPfalse); T109 = VARREF_OR(YevalSsyntaxYsexpr_define_classQ,YPfalse); T110 = fun_sexpr_define_classQ_117; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YevalSsyntaxYsexpr_define_classQ,T108); lit_275 = YPPsym((P)"sexpr-define-class-parents"); lit_276 = YPPlist(1,YPPsym((P)"exp")); T111 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_define_class_parents_118 = YPfab_met(FUNCODEREF(fun_sexpr_define_class_parents_118),T111,LITREF(lit_275),LITREF(lit_276),sloc(533),YPfalse); T113 = VARREF_OR(YevalSsyntaxYsexpr_define_class_parents,YPfalse); T114 = fun_sexpr_define_class_parents_118; T112 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T113,T114); VARSET(YevalSsyntaxYsexpr_define_class_parents,T112); lit_277 = YPPsym((P)"dp"); VARSET(YevalSsyntaxYDsexpr_prop_tag,LITREF(lit_277)); lit_278 = YPPsym((P)"dp!"); VARSET(YevalSsyntaxYDsexpr_propX_tag,LITREF(lit_278)); lit_279 = YPPsym((P)"sexpr-prop!?"); lit_280 = YPPlist(1,YPPsym((P)"exp")); T115 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_propXQ_119 = YPfab_met(FUNCODEREF(fun_sexpr_propXQ_119),T115,LITREF(lit_279),LITREF(lit_280),sloc(544),YPfalse); T117 = VARREF_OR(YevalSsyntaxYsexpr_propXQ,YPfalse); T118 = fun_sexpr_propXQ_119; T116 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T117,T118); VARSET(YevalSsyntaxYsexpr_propXQ,T116); lit_281 = YPPsym((P)"sexpr-prop?"); lit_282 = YPPlist(1,YPPsym((P)"exp")); T119 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_propQ_120 = YPfab_met(FUNCODEREF(fun_sexpr_propQ_120),T119,LITREF(lit_281),LITREF(lit_282),sloc(547),YPfalse); T121 = VARREF_OR(YevalSsyntaxYsexpr_propQ,YPfalse); T122 = fun_sexpr_propQ_120; T120 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T121,T122); VARSET(YevalSsyntaxYsexpr_propQ,T120); lit_283 = YPPsym((P)"sexpr-prop-name"); lit_284 = YPPlist(1,YPPsym((P)"exp")); T123 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_sexpr_prop_name_121 = YPfab_met(FUNCODEREF(fun_sexpr_prop_name_121),T123,LITREF(lit_283),LITREF(lit_284),sloc(550),YPfalse); T125 = VARREF_OR(YevalSsyntaxYsexpr_prop_name,YPfalse); T126 = fun_sexpr_prop_name_121; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalSsyntaxYsexpr_prop_name,T124); lit_285 = YPPsym((P)"sexpr-prop-owner"); lit_286 = YPPlist(1,YPPsym((P)"exp")); T127 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_prop_owner_122 = YPfab_met(FUNCODEREF(fun_sexpr_prop_owner_122),T127,LITREF(lit_285),LITREF(lit_286),sloc(553),YPfalse); T129 = VARREF_OR(YevalSsyntaxYsexpr_prop_owner,YPfalse); T130 = fun_sexpr_prop_owner_122; T128 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T129,T130); VARSET(YevalSsyntaxYsexpr_prop_owner,T128); lit_287 = YPPsym((P)"sexpr-prop-init-var"); lit_288 = YPPlist(1,YPPsym((P)"exp")); lit_289 = YPPsym((P)"_x"); T131 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_prop_init_var_123 = YPfab_met(FUNCODEREF(fun_sexpr_prop_init_var_123),T131,LITREF(lit_287),LITREF(lit_288),sloc(559),YPfalse); T133 = VARREF_OR(YevalSsyntaxYsexpr_prop_init_var,YPfalse); T134 = fun_sexpr_prop_init_var_123; T132 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T133,T134); VARSET(YevalSsyntaxYsexpr_prop_init_var,T132); lit_290 = YPPsym((P)"sexpr-prop-type"); lit_291 = YPPlist(1,YPPsym((P)"exp")); T135 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_prop_type_124 = YPfab_met(FUNCODEREF(fun_sexpr_prop_type_124),T135,LITREF(lit_290),LITREF(lit_291),sloc(565),YPfalse); T137 = VARREF_OR(YevalSsyntaxYsexpr_prop_type,YPfalse); T138 = fun_sexpr_prop_type_124; T136 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T137,T138); VARSET(YevalSsyntaxYsexpr_prop_type,T136); lit_292 = YPPsym((P)"sexpr-prop-init?"); lit_293 = YPPlist(1,YPPsym((P)"exp")); T139 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_prop_initQ_125 = YPfab_met(FUNCODEREF(fun_sexpr_prop_initQ_125),T139,LITREF(lit_292),LITREF(lit_293),sloc(568),YPfalse); T141 = VARREF_OR(YevalSsyntaxYsexpr_prop_initQ,YPfalse); T142 = fun_sexpr_prop_initQ_125; T140 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T141,T142); VARSET(YevalSsyntaxYsexpr_prop_initQ,T140); lit_294 = YPPsym((P)"sexpr-prop-init"); lit_295 = YPPlist(1,YPPsym((P)"exp")); T143 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_prop_init_126 = YPfab_met(FUNCODEREF(fun_sexpr_prop_init_126),T143,LITREF(lit_294),LITREF(lit_295),sloc(571),YPfalse); T145 = VARREF_OR(YevalSsyntaxYsexpr_prop_init,YPfalse); T146 = fun_sexpr_prop_init_126; T144 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T145,T146); VARSET(YevalSsyntaxYsexpr_prop_init,T144); lit_296 = YPPsym((P)"sexpr-fab-getter"); lit_297 = YPPlist(3,YPPsym((P)"name"),YPPsym((P)"type"),YPPsym((P)"line")); lit_298 = YPPsym((P)"prop-value"); T147 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLlstG),Ynil); fun_sexpr_fab_getter_127 = YPfab_met(FUNCODEREF(fun_sexpr_fab_getter_127),T147,LITREF(lit_296),LITREF(lit_297),sloc(574),YPfalse); T149 = VARREF_OR(YevalSsyntaxYsexpr_fab_getter,YPfalse); T150 = fun_sexpr_fab_getter_127; T148 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T149,T150); VARSET(YevalSsyntaxYsexpr_fab_getter,T148); lit_299 = YPPsym((P)"sexpr-fab-setter"); lit_300 = YPPlist(4,YPPsym((P)"name"),YPPsym((P)"type"),YPPsym((P)"prop-type"),YPPsym((P)"line")); lit_301 = YPPsym((P)"_z"); lit_302 = YPPsym((P)"prop-value-setter"); T151 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLlstG),Ynil); fun_sexpr_fab_setter_128 = YPfab_met(FUNCODEREF(fun_sexpr_fab_setter_128),T151,LITREF(lit_299),LITREF(lit_300),sloc(579),YPfalse); T153 = VARREF_OR(YevalSsyntaxYsexpr_fab_setter,YPfalse); T154 = fun_sexpr_fab_setter_128; T152 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T153,T154); VARSET(YevalSsyntaxYsexpr_fab_setter,T152); lit_303 = YPPsym((P)"sexpr-fab-setter-name"); lit_304 = YPPlist(1,YPPsym((P)"name")); lit_305 = YPsb((P)"-setter"); T155 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_sexpr_fab_setter_name_129 = YPfab_met(FUNCODEREF(fun_sexpr_fab_setter_name_129),T155,LITREF(lit_303),LITREF(lit_304),sloc(585),YPfalse); T157 = VARREF_OR(YevalSsyntaxYsexpr_fab_setter_name,YPfalse); T158 = fun_sexpr_fab_setter_name_129; T156 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T157,T158); VARSET(YevalSsyntaxYsexpr_fab_setter_name,T156); lit_306 = YPPsym((P)"sexpr-macro?"); lit_307 = YPPlist(1,YPPsym((P)"exp")); T159 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_macroQ_130 = YPfab_met(FUNCODEREF(fun_sexpr_macroQ_130),T159,LITREF(lit_306),LITREF(lit_307),sloc(590),YPfalse); T161 = VARREF_OR(YevalSsyntaxYsexpr_macroQ,YPfalse); T162 = fun_sexpr_macroQ_130; T160 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T161,T162); VARSET(YevalSsyntaxYsexpr_macroQ,T160); lit_308 = YPPsym((P)"macro-expand"); VARSET(YevalSsyntaxYDsexpr_macro_expand_tag,LITREF(lit_308)); lit_309 = YPPsym((P)"sexpr-macro-expand?"); lit_310 = YPPlist(1,YPPsym((P)"exp")); T165 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T164 = fun_sexpr_macro_expandQ_131 = YPfab_met(FUNCODEREF(fun_sexpr_macro_expandQ_131),T165,LITREF(lit_309),LITREF(lit_310),sloc(595),YPfalse); T168 = VARREF_OR(YevalSsyntaxYsexpr_macro_expandQ,YPfalse); T169 = fun_sexpr_macro_expandQ_131; T167 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T168,T169); T166 = VARSET(YevalSsyntaxYsexpr_macro_expandQ,T167); T163 = T166; return T163; } P YevalSsyntaxY___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84; DEFCREGS(); lit_311 = YPPsym((P)"mif"); VARSET(YevalSsyntaxYDsexpr_syntax_if_tag,LITREF(lit_311)); lit_312 = YPPsym((P)"sexpr-make-syntax-if"); lit_313 = YPPlist(4,YPPsym((P)"pat"),YPPsym((P)"exp"),YPPsym((P)"then"),YPPsym((P)"else")); T0 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLlstG),Ynil); fun_sexpr_make_syntax_if_132 = YPfab_met(FUNCODEREF(fun_sexpr_make_syntax_if_132),T0,LITREF(lit_312),LITREF(lit_313),sloc(600),YPfalse); T2 = VARREF_OR(YevalSsyntaxYsexpr_make_syntax_if,YPfalse); T3 = fun_sexpr_make_syntax_if_132; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalSsyntaxYsexpr_make_syntax_if,T1); lit_314 = YPPsym((P)"comma-atsign"); VARSET(YevalSsyntaxYTcomma_atsignT,LITREF(lit_314)); lit_315 = YPPsym((P)"bq-list"); VARSET(YevalSsyntaxYTbq_listT,LITREF(lit_315)); lit_316 = YPPsym((P)"bq-list*"); VARSET(YevalSsyntaxYTbq_listTT,LITREF(lit_316)); lit_317 = YPPsym((P)"bq-append"); VARSET(YevalSsyntaxYTbq_appendT,LITREF(lit_317)); lit_318 = YPPsym((P)"bq-nconc"); VARSET(YevalSsyntaxYTbq_nconcT,LITREF(lit_318)); lit_319 = YPPsym((P)"bq-clobberable"); VARSET(YevalSsyntaxYTbq_clobberableT,LITREF(lit_319)); lit_320 = YPPsym((P)"bq-quote"); VARSET(YevalSsyntaxYTbq_quoteT,LITREF(lit_320)); lit_321 = YPPsym((P)"sexpr-expand-backquote"); lit_322 = YPPlist(1,YPPsym((P)"x")); lit_323 = YPPsym((P)"goo"); T4 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YevalSsyntaxYsexpr_expand_backquote = YPfab_met(FUNCODEREF(YevalSsyntaxYsexpr_expand_backquote),T4,LITREF(lit_321),LITREF(lit_322),sloc(613),YPfalse); T5 = YevalSsyntaxYsexpr_expand_backquote; VARSET(YevalSsyntaxYsexpr_expand_backquote,T5); lit_324 = YPPsym((P)"sexpr-build-backquote-expander"); lit_325 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_build_backquote_expander_134 = YPfab_met(FUNCODEREF(fun_sexpr_build_backquote_expander_134),T6,LITREF(lit_324),LITREF(lit_325),sloc(616),YPfalse); T8 = VARREF_OR(YevalSsyntaxYsexpr_build_backquote_expander,YPfalse); T9 = fun_sexpr_build_backquote_expander_134; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YevalSsyntaxYsexpr_build_backquote_expander,T7); lit_326 = YPPsym((P)"sexpr-unquote?"); lit_327 = YPPlist(1,YPPsym((P)"x")); lit_328 = YPPsym((P)"unquote"); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_unquoteQ_135 = YPfab_met(FUNCODEREF(fun_sexpr_unquoteQ_135),T10,LITREF(lit_326),LITREF(lit_327),sloc(622),YPfalse); T12 = VARREF_OR(YevalSsyntaxYsexpr_unquoteQ,YPfalse); T13 = fun_sexpr_unquoteQ_135; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalSsyntaxYsexpr_unquoteQ,T11); lit_329 = YPPsym((P)"sexpr-unquote-splicing?"); lit_330 = YPPlist(1,YPPsym((P)"x")); lit_331 = YPPsym((P)"unquote-splicing"); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_unquote_splicingQ_136 = YPfab_met(FUNCODEREF(fun_sexpr_unquote_splicingQ_136),T14,LITREF(lit_329),LITREF(lit_330),sloc(625),YPfalse); T16 = VARREF_OR(YevalSsyntaxYsexpr_unquote_splicingQ,YPfalse); T17 = fun_sexpr_unquote_splicingQ_136; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YevalSsyntaxYsexpr_unquote_splicingQ,T15); lit_332 = YPPsym((P)"sexpr-backquote?"); lit_333 = YPPlist(1,YPPsym((P)"x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_backquoteQ_137 = YPfab_met(FUNCODEREF(fun_sexpr_backquoteQ_137),T18,LITREF(lit_332),LITREF(lit_333),sloc(628),YPfalse); T20 = VARREF_OR(YevalSsyntaxYsexpr_backquoteQ,YPfalse); T21 = fun_sexpr_backquoteQ_137; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YevalSsyntaxYsexpr_backquoteQ,T19); lit_334 = YPPsym((P)"sexpr-atom?"); lit_335 = YPPlist(1,YPPsym((P)"x")); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_atomQ_138 = YPfab_met(FUNCODEREF(fun_sexpr_atomQ_138),T22,LITREF(lit_334),LITREF(lit_335),sloc(631),YPfalse); T24 = VARREF_OR(YevalSsyntaxYsexpr_atomQ,YPfalse); T25 = fun_sexpr_atomQ_138; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YevalSsyntaxYsexpr_atomQ,T23); lit_336 = YPPsym((P)"nreconc"); lit_337 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T26 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_nreconc_139 = YPfab_met(FUNCODEREF(fun_nreconc_139),T26,LITREF(lit_336),LITREF(lit_337),sloc(634),YPfalse); T28 = VARREF_OR(YevalSsyntaxYnreconc,YPfalse); T29 = fun_nreconc_139; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YevalSsyntaxYnreconc,T27); lit_338 = YPPsym((P)"bq-process"); lit_339 = YPPlist(1,YPPsym((P)"x")); lit_340 = YPsb((P)"UNQUOTE-SPLICING %= AFTER BQ"); lit_341 = YPPlist(1,YPPsym((P)"return")); lit_342 = YPsb((P)"Malformed ,%="); lit_343 = YPsb((P)"Dotted ,@%="); T31 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_140 = YPfab_met(FUNCODEREF(fun_140),T31,YPfalse,LITREF(lit_341),sloc(647),YPfalse); T30 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bq_process_141 = YPfab_met(FUNCODEREF(fun_bq_process_141),T30,LITREF(lit_338),LITREF(lit_339),sloc(637),YPfalse); T33 = VARREF_OR(YevalSsyntaxYbq_process,YPfalse); T34 = fun_bq_process_141; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YevalSsyntaxYbq_process,T32); lit_344 = YPPsym((P)"bracket"); lit_345 = YPPlist(1,YPPsym((P)"x")); T35 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bracket_142 = YPfab_met(FUNCODEREF(fun_bracket_142),T35,LITREF(lit_344),LITREF(lit_345),sloc(662),YPfalse); T37 = VARREF_OR(YevalSsyntaxYbracket,YPfalse); T38 = fun_bracket_142; T36 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T37,T38); VARSET(YevalSsyntaxYbracket,T36); lit_346 = YPPsym((P)"map-tree"); lit_347 = YPPlist(2,YPPsym((P)"fn"),YPPsym((P)"x")); T39 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_map_tree_143 = YPfab_met(FUNCODEREF(fun_map_tree_143),T39,LITREF(lit_346),LITREF(lit_347),sloc(672),YPfalse); T41 = VARREF_OR(YevalSsyntaxYmap_tree,YPfalse); T42 = fun_map_tree_143; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YevalSsyntaxYmap_tree,T40); lit_348 = YPPsym((P)"bq-remove-tokens"); lit_349 = YPPlist(1,YPPsym((P)"x")); lit_350 = YPPsym((P)"cat"); lit_351 = YPPsym((P)"cat!"); lit_352 = YPPsym((P)"list*"); lit_353 = YPPsym((P)"pair"); T43 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_bq_remove_tokens_144 = YPfab_met(FUNCODEREF(fun_bq_remove_tokens_144),T43,LITREF(lit_348),LITREF(lit_349),sloc(681),YPfalse); T45 = VARREF_OR(YevalSsyntaxYbq_remove_tokens,YPfalse); T46 = fun_bq_remove_tokens_144; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YevalSsyntaxYbq_remove_tokens,T44); lit_354 = YPPsym((P)"sexpr-syntax-if?"); lit_355 = YPPlist(1,YPPsym((P)"exp")); T47 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_syntax_ifQ_145 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_ifQ_145),T47,LITREF(lit_354),LITREF(lit_355),sloc(699),YPfalse); T49 = VARREF_OR(YevalSsyntaxYsexpr_syntax_ifQ,YPfalse); T50 = fun_sexpr_syntax_ifQ_145; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YevalSsyntaxYsexpr_syntax_ifQ,T48); lit_356 = YPPsym((P)"sexpr-syntax-if-value"); lit_357 = YPPlist(1,YPPsym((P)"exp")); T51 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_syntax_if_value_146 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_if_value_146),T51,LITREF(lit_356),LITREF(lit_357),sloc(702),YPfalse); T53 = VARREF_OR(YevalSsyntaxYsexpr_syntax_if_value,YPfalse); T54 = fun_sexpr_syntax_if_value_146; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YevalSsyntaxYsexpr_syntax_if_value,T52); lit_358 = YPPsym((P)"sexpr-syntax-if-pattern"); lit_359 = YPPlist(1,YPPsym((P)"exp")); T55 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_syntax_if_pattern_147 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_if_pattern_147),T55,LITREF(lit_358),LITREF(lit_359),sloc(705),YPfalse); T57 = VARREF_OR(YevalSsyntaxYsexpr_syntax_if_pattern,YPfalse); T58 = fun_sexpr_syntax_if_pattern_147; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YevalSsyntaxYsexpr_syntax_if_pattern,T56); lit_360 = YPPsym((P)"sexpr-syntax-if-then"); lit_361 = YPPlist(1,YPPsym((P)"exp")); T59 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_syntax_if_then_148 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_if_then_148),T59,LITREF(lit_360),LITREF(lit_361),sloc(708),YPfalse); T61 = VARREF_OR(YevalSsyntaxYsexpr_syntax_if_then,YPfalse); T62 = fun_sexpr_syntax_if_then_148; T60 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T61,T62); VARSET(YevalSsyntaxYsexpr_syntax_if_then,T60); lit_362 = YPPsym((P)"sexpr-syntax-if-else"); lit_363 = YPPlist(1,YPPsym((P)"exp")); T63 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_syntax_if_else_149 = YPfab_met(FUNCODEREF(fun_sexpr_syntax_if_else_149),T63,LITREF(lit_362),LITREF(lit_363),sloc(713),YPfalse); T65 = VARREF_OR(YevalSsyntaxYsexpr_syntax_if_else,YPfalse); T66 = fun_sexpr_syntax_if_else_149; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YevalSsyntaxYsexpr_syntax_if_else,T64); lit_364 = YPPsym((P)"sexpr-pattern-variable?"); lit_365 = YPPlist(1,YPPsym((P)"pat")); T67 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_sexpr_pattern_variableQ_150 = YPfab_met(FUNCODEREF(fun_sexpr_pattern_variableQ_150),T67,LITREF(lit_364),LITREF(lit_365),sloc(716),YPfalse); T69 = VARREF_OR(YevalSsyntaxYsexpr_pattern_variableQ,YPfalse); T70 = fun_sexpr_pattern_variableQ_150; T68 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T69,T70); VARSET(YevalSsyntaxYsexpr_pattern_variableQ,T68); lit_366 = YPPsym((P)"sexpr-pattern-variable-name"); lit_367 = YPPlist(1,YPPsym((P)"pat")); T71 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sexpr_pattern_variable_name_151 = YPfab_met(FUNCODEREF(fun_sexpr_pattern_variable_name_151),T71,LITREF(lit_366),LITREF(lit_367),sloc(719),YPfalse); T73 = VARREF_OR(YevalSsyntaxYsexpr_pattern_variable_name,YPfalse); T74 = fun_sexpr_pattern_variable_name_151; T72 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T73,T74); VARSET(YevalSsyntaxYsexpr_pattern_variable_name,T72); lit_368 = YPPsym((P)"sexpr-bind-pattern-variables"); lit_369 = YPPlist(1,YPPsym((P)"pat")); lit_370 = YPPlist(1,YPPsym((P)"pat")); T76 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_col_152 = YPfab_met(FUNCODEREF(fun_col_152),T76,LITREF(lit_230),LITREF(lit_370),sloc(724),YPfalse); T75 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_sexpr_bind_pattern_variables_153 = YPfab_met(FUNCODEREF(fun_sexpr_bind_pattern_variables_153),T75,LITREF(lit_368),LITREF(lit_369),sloc(722),YPfalse); T78 = VARREF_OR(YevalSsyntaxYsexpr_bind_pattern_variables,YPfalse); T79 = fun_sexpr_bind_pattern_variables_153; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalSsyntaxYsexpr_bind_pattern_variables,T77); lit_371 = YPPsym((P)"sexpr-make-macro-function"); lit_372 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"exp")); lit_373 = YPPsym((P)"exp"); lit_374 = YPPsym((P)"macro-error"); T80 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sexpr_make_macro_function_154 = YPfab_met(FUNCODEREF(fun_sexpr_make_macro_function_154),T80,LITREF(lit_371),LITREF(lit_372),sloc(735),YPfalse); T82 = VARREF_OR(YevalSsyntaxYsexpr_make_macro_function,YPfalse); T83 = fun_sexpr_make_macro_function_154; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalSsyntaxYsexpr_make_macro_function,T81); if (YPfalse != YPfalse) { } else { } T84 = YPfalse; return T84; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooScolsSlst}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"$sexpr-define-method-tag", CVAR, &YevalSsyntaxYDsexpr_define_method_tag}, {"sexpr-function-value", CVAR, &YevalSsyntaxYsexpr_function_value}, {"$sexpr-macro-tag", CVAR, &YevalSsyntaxYDsexpr_macro_tag}, {"$sexpr-define-constant-tag", CVAR, &YevalSsyntaxYDsexpr_define_constant_tag}, {"*bq-append*", CVAR, &YevalSsyntaxYTbq_appendT}, {"sexpr-isa-parent", CVAR, &YevalSsyntaxYsexpr_isa_parent}, {"sexpr-unwind-protect-protected-form", CVAR, &YevalSsyntaxYsexpr_unwind_protect_protected_form}, {"*bq-nconc*", CVAR, &YevalSsyntaxYTbq_nconcT}, {"$sexpr-set-tag", CVAR, &YevalSsyntaxYDsexpr_set_tag}, {"$sexpr-unwind-protect-tag", CVAR, &YevalSsyntaxYDsexpr_unwind_protect_tag}, {"$sexpr-quasiquote-tag", CVAR, &YevalSsyntaxYDsexpr_quasiquote_tag}, {"sexpr-define-class?", CVAR, &YevalSsyntaxYsexpr_define_classQ}, {"*bq-list*", CVAR, &YevalSsyntaxYTbq_listT}, {"sexpr-last-exp?", CVAR, &YevalSsyntaxYsexpr_last_expQ}, {"bq-remove-tokens", CVAR, &YevalSsyntaxYbq_remove_tokens}, {"*comma-atsign*", CVAR, &YevalSsyntaxYTcomma_atsignT}, {"sexpr-atom?", CVAR, &YevalSsyntaxYsexpr_atomQ}, {"nreconc", CVAR, &YevalSsyntaxYnreconc}, {"sexpr-value-type", CVAR, &YevalSsyntaxYsexpr_value_type}, {"sexpr-new-unique-name-counter!", CVAR, &YevalSsyntaxYsexpr_new_unique_name_counterX}, {"sexpr-isa-prop-inits", CVAR, &YevalSsyntaxYsexpr_isa_prop_inits}, {"$sexpr-let-tag", CVAR, &YevalSsyntaxYDsexpr_let_tag}, {"sexpr-prop-init?", CVAR, &YevalSsyntaxYsexpr_prop_initQ}, {"$sexpr-locals-tag", CVAR, &YevalSsyntaxYDsexpr_locals_tag}, {"sexpr-loc-bound-signatures", CVAR, &YevalSsyntaxYsexpr_loc_bound_signatures}, {"sexpr-loc-bound-bodies", CVAR, &YevalSsyntaxYsexpr_loc_bound_bodies}, {"sexpr-syntax-if-then", CVAR, &YevalSsyntaxYsexpr_syntax_if_then}, {"sexpr-def-variable", CVAR, &YevalSsyntaxYsexpr_def_variable}, {"sexpr-iterate-inits", CVAR, &YevalSsyntaxYsexpr_iterate_inits}, {"sexpr-if-test", CVAR, &YevalSsyntaxYsexpr_if_test}, {"sexpr-build-backquote-expander", CVAR, &YevalSsyntaxYsexpr_build_backquote_expander}, {"sexpr-let-body", CVAR, &YevalSsyntaxYsexpr_let_body}, {"sexpr-no-operands?", CVAR, &YevalSsyntaxYsexpr_no_operandsQ}, {"sexpr-fab-setter-name", CVAR, &YevalSsyntaxYsexpr_fab_setter_name}, {"sexpr-let->combination", CVAR, &YevalSsyntaxYsexpr_let_Gcombination}, {"", CVAR, &YevalSsyntaxYLnameG}, {"$sexpr-isa-tag", CVAR, &YevalSsyntaxYDsexpr_isa_tag}, {"sexpr-monitor-test", CVAR, &YevalSsyntaxYsexpr_monitor_test}, {"sexpr-unwind-protect?", CVAR, &YevalSsyntaxYsexpr_unwind_protectQ}, {"$sexpr-iterate-tag", CVAR, &YevalSsyntaxYDsexpr_iterate_tag}, {"sexpr-monitor-expand", CVAR, &YevalSsyntaxYsexpr_monitor_expand}, {"sexpr-variable-name", CVAR, &YevalSsyntaxYsexpr_variable_name}, {"sexpr-bind-pattern-variables", CVAR, &YevalSsyntaxYsexpr_bind_pattern_variables}, {"sexpr-make-anonymous-method", CVAR, &YevalSsyntaxYsexpr_make_anonymous_method}, {"$sexpr-define-tag", CVAR, &YevalSsyntaxYDsexpr_define_tag}, {"*bq-clobberable*", CVAR, &YevalSsyntaxYTbq_clobberableT}, {"sexpr-definition-variable", CVAR, &YevalSsyntaxYsexpr_definition_variable}, {"sexpr-function-parameters", CVAR, &YevalSsyntaxYsexpr_function_parameters}, {"sexpr-function-definition-variable", CVAR, &YevalSsyntaxYsexpr_function_definition_variable}, {"sexpr-syntax-definition-variable", CVAR, &YevalSsyntaxYsexpr_syntax_definition_variable}, {"sexpr-self-evaluating?", CVAR, &YevalSsyntaxYsexpr_self_evaluatingQ}, {"sexpr-variable?", CVAR, &YevalSsyntaxYsexpr_variableQ}, {"sexpr-tagged-list?", CVAR, &YevalSsyntaxYsexpr_tagged_listQ}, {"$sexpr-monitor-tag", CVAR, &YevalSsyntaxYDsexpr_monitor_tag}, {"sexpr-assignment?", CVAR, &YevalSsyntaxYsexpr_assignmentQ}, {"sexpr-def-value", CVAR, &YevalSsyntaxYsexpr_def_value}, {"sexpr-isa?", CVAR, &YevalSsyntaxYsexpr_isaQ}, {"sexpr-loc-body", CVAR, &YevalSsyntaxYsexpr_loc_body}, {"sexpr-prop-name", CVAR, &YevalSsyntaxYsexpr_prop_name}, {"sexpr-make-begin", CVAR, &YevalSsyntaxYsexpr_make_begin}, {"sexpr-method-signature", CVAR, &YevalSsyntaxYsexpr_method_signature}, {"sexpr-text-of-quotation", CVAR, &YevalSsyntaxYsexpr_text_of_quotation}, {"---main-2---", PVAR, NULL}, {"sexpr-isa-init-values", CVAR, &YevalSsyntaxYsexpr_isa_init_values}, {"sexpr-if?", CVAR, &YevalSsyntaxYsexpr_ifQ}, {"sexpr-sequence->begin", CVAR, &YevalSsyntaxYsexpr_sequence_Gbegin}, {"sexpr-definition?", CVAR, &YevalSsyntaxYsexpr_definitionQ}, {"sexpr-syntax-if-pattern", CVAR, &YevalSsyntaxYsexpr_syntax_if_pattern}, {"sexpr-let-values", CVAR, &YevalSsyntaxYsexpr_let_values}, {"sexpr-begin-actions", CVAR, &YevalSsyntaxYsexpr_begin_actions}, {"map-tree", CVAR, &YevalSsyntaxYmap_tree}, {"sexpr-operands", CVAR, &YevalSsyntaxYsexpr_operands}, {"sexpr-loc-bound-names", CVAR, &YevalSsyntaxYsexpr_loc_bound_names}, {"sexpr-function-signature", CVAR, &YevalSsyntaxYsexpr_function_signature}, {"sexpr-generic-definition?", CVAR, &YevalSsyntaxYsexpr_generic_definitionQ}, {"sexpr-method-body", CVAR, &YevalSsyntaxYsexpr_method_body}, {"sexpr-make-if", CVAR, &YevalSsyntaxYsexpr_make_if}, {"sexpr-monitor?", CVAR, &YevalSsyntaxYsexpr_monitorQ}, {"sexpr-assignment-value", CVAR, &YevalSsyntaxYsexpr_assignment_value}, {"sexpr-iterate-signature", CVAR, &YevalSsyntaxYsexpr_iterate_signature}, {"sexpr-prop?", CVAR, &YevalSsyntaxYsexpr_propQ}, {"sexpr-make-application", CVAR, &YevalSsyntaxYsexpr_make_application}, {"$sexpr-begin-tag", CVAR, &YevalSsyntaxYDsexpr_begin_tag}, {"sexpr-method?", CVAR, &YevalSsyntaxYsexpr_methodQ}, {"sexpr-signature-parameters", CVAR, &YevalSsyntaxYsexpr_signature_parameters}, {"sexpr-function-definition-adjectives", CVAR, &YevalSsyntaxYsexpr_function_definition_adjectives}, {"sexpr-make-quote", CVAR, &YevalSsyntaxYsexpr_make_quote}, {"$sexpr-prop-tag", CVAR, &YevalSsyntaxYDsexpr_prop_tag}, {"sexpr-fab-setter", CVAR, &YevalSsyntaxYsexpr_fab_setter}, {"sexpr-block-body", CVAR, &YevalSsyntaxYsexpr_block_body}, {"$sexpr-macro-expand-tag", CVAR, &YevalSsyntaxYDsexpr_macro_expand_tag}, {"sexpr-make-syntax-if", CVAR, &YevalSsyntaxYsexpr_make_syntax_if}, {"sexpr-prop-type", CVAR, &YevalSsyntaxYsexpr_prop_type}, {"---main-1---", PVAR, NULL}, {"sexpr-syntax-definition?", CVAR, &YevalSsyntaxYsexpr_syntax_definitionQ}, {"sexpr-backquote?", CVAR, &YevalSsyntaxYsexpr_backquoteQ}, {"$sexpr-define-function-tag", CVAR, &YevalSsyntaxYDsexpr_define_function_tag}, {"---main-3---", PVAR, NULL}, {"*unique-name-counter*", CVAR, &YevalSsyntaxYTunique_name_counterT}, {"sexpr-syntax-if-value", CVAR, &YevalSsyntaxYsexpr_syntax_if_value}, {"sexpr-define-constant?", CVAR, &YevalSsyntaxYsexpr_define_constantQ}, {"as-signature", CVAR, &YevalSsyntaxYas_signature}, {"$sexpr-syntax-if-tag", CVAR, &YevalSsyntaxYDsexpr_syntax_if_tag}, {"sexpr-begin?", CVAR, &YevalSsyntaxYsexpr_beginQ}, {"$sexpr-define-class-tag", CVAR, &YevalSsyntaxYDsexpr_define_class_tag}, {"sexpr-isa-init-props", CVAR, &YevalSsyntaxYsexpr_isa_init_props}, {"sexpr-loc?", CVAR, &YevalSsyntaxYsexpr_locQ}, {"sexpr-rest-exps", CVAR, &YevalSsyntaxYsexpr_rest_exps}, {"sexpr-method-definition?", CVAR, &YevalSsyntaxYsexpr_method_definitionQ}, {"sexpr-iterate->loc", CVAR, &YevalSsyntaxYsexpr_iterate_Gloc}, {"$sexpr-prop!-tag", CVAR, &YevalSsyntaxYDsexpr_propX_tag}, {"$sexpr-define-generic-tag", CVAR, &YevalSsyntaxYDsexpr_define_generic_tag}, {"sexpr-make-method", CVAR, &YevalSsyntaxYsexpr_make_method}, {"sexpr-pattern-variable?", CVAR, &YevalSsyntaxYsexpr_pattern_variableQ}, {"sexpr-prop!?", CVAR, &YevalSsyntaxYsexpr_propXQ}, {"eval", CVAR, &YevalSsyntaxYeval}, {"sexpr-operator", CVAR, &YevalSsyntaxYsexpr_operator}, {"sexpr-function-definition-value", CVAR, &YevalSsyntaxYsexpr_function_definition_value}, {"sexpr-quoted?", CVAR, &YevalSsyntaxYsexpr_quotedQ}, {"$sexpr-method-tag", CVAR, &YevalSsyntaxYDsexpr_method_tag}, {"sexpr-signature-value", CVAR, &YevalSsyntaxYsexpr_signature_value}, {"bracket", CVAR, &YevalSsyntaxYbracket}, {"sexpr-method-value", CVAR, &YevalSsyntaxYsexpr_method_value}, {"sexpr-def?", CVAR, &YevalSsyntaxYsexpr_defQ}, {"sexpr-if-else", CVAR, &YevalSsyntaxYsexpr_if_else}, {"$sexpr-def-tag", CVAR, &YevalSsyntaxYDsexpr_def_tag}, {"*bq-quote*", CVAR, &YevalSsyntaxYTbq_quoteT}, {"$sexpr-values-tag", CVAR, &YevalSsyntaxYDsexpr_values_tag}, {"sexpr-rest-operands", CVAR, &YevalSsyntaxYsexpr_rest_operands}, {"sexpr-unquote-splicing?", CVAR, &YevalSsyntaxYsexpr_unquote_splicingQ}, {"sexpr-forward-primitive?", CVAR, &YevalSsyntaxYsexpr_forward_primitiveQ}, {"$sexpr-if-tag", CVAR, &YevalSsyntaxYDsexpr_if_tag}, {"sexpr-pattern-variable-name", CVAR, &YevalSsyntaxYsexpr_pattern_variable_name}, {"sexpr-block-name", CVAR, &YevalSsyntaxYsexpr_block_name}, {"sexpr-fab-getter", CVAR, &YevalSsyntaxYsexpr_fab_getter}, {"sexpr-prop-init-var", CVAR, &YevalSsyntaxYsexpr_prop_init_var}, {"sexpr-loc-raw-body", CVAR, &YevalSsyntaxYsexpr_loc_raw_body}, {"sexpr-expand-backquote", CVAR, &YevalSsyntaxYsexpr_expand_backquote}, {"sexpr-function-definition?", CVAR, &YevalSsyntaxYsexpr_function_definitionQ}, {"sexpr-let-bound-variables", CVAR, &YevalSsyntaxYsexpr_let_bound_variables}, {"sexpr-unwind-protect-cleanup-forms", CVAR, &YevalSsyntaxYsexpr_unwind_protect_cleanup_forms}, {"sexpr-assignment-variable", CVAR, &YevalSsyntaxYsexpr_assignment_variable}, {"sexpr-iterate-name", CVAR, &YevalSsyntaxYsexpr_iterate_name}, {"find-option", CVAR, &YevalSsyntaxYfind_option}, {"bq-process", CVAR, &YevalSsyntaxYbq_process}, {"sexpr-definition-value", CVAR, &YevalSsyntaxYsexpr_definition_value}, {"sexpr-monitor-type", CVAR, &YevalSsyntaxYsexpr_monitor_type}, {"sexpr-syntax-if?", CVAR, &YevalSsyntaxYsexpr_syntax_ifQ}, {"---main-0---", PVAR, NULL}, {"sexpr-application?", CVAR, &YevalSsyntaxYsexpr_applicationQ}, {"sexpr-let-names+values", CVAR, &YevalSsyntaxYsexpr_let_namesAvalues}, {"sexpr-function-body", CVAR, &YevalSsyntaxYsexpr_function_body}, {"sexpr-first-exp", CVAR, &YevalSsyntaxYsexpr_first_exp}, {"sexpr-iterate-body", CVAR, &YevalSsyntaxYsexpr_iterate_body}, {"sexpr-variable-type", CVAR, &YevalSsyntaxYsexpr_variable_type}, {"*bq-list**", CVAR, &YevalSsyntaxYTbq_listTT}, {"sexpr-monitor-body", CVAR, &YevalSsyntaxYsexpr_monitor_body}, {"sexpr-syntax-if-else", CVAR, &YevalSsyntaxYsexpr_syntax_if_else}, {"$sexpr-define-syntax-tag", CVAR, &YevalSsyntaxYDsexpr_define_syntax_tag}, {"sexpr-macro-expand?", CVAR, &YevalSsyntaxYsexpr_macro_expandQ}, {"sexpr-define-class-parents", CVAR, &YevalSsyntaxYsexpr_define_class_parents}, {"sexpr-make-macro-function", CVAR, &YevalSsyntaxYsexpr_make_macro_function}, {"sexpr-if-then", CVAR, &YevalSsyntaxYsexpr_if_then}, {"sexpr-unquote?", CVAR, &YevalSsyntaxYsexpr_unquoteQ}, {"sexpr-first-operand", CVAR, &YevalSsyntaxYsexpr_first_operand}, {"sexpr-method-parameters", CVAR, &YevalSsyntaxYsexpr_method_parameters}, {"sexpr-monitor-info", CVAR, &YevalSsyntaxYsexpr_monitor_info}, {"sexpr-block?", CVAR, &YevalSsyntaxYsexpr_blockQ}, {"$sexpr-bind-exit-tag", CVAR, &YevalSsyntaxYDsexpr_bind_exit_tag}, {"sexpr-macro?", CVAR, &YevalSsyntaxYsexpr_macroQ}, {"sexpr-unique-name", CVAR, &YevalSsyntaxYsexpr_unique_name}, {"$sexpr-quote-tag", CVAR, &YevalSsyntaxYDsexpr_quote_tag}, {"sexpr-syntax-definition-value", CVAR, &YevalSsyntaxYsexpr_syntax_definition_value}, {"sexpr-let?", CVAR, &YevalSsyntaxYsexpr_letQ}, {"sexpr-iterate?", CVAR, &YevalSsyntaxYsexpr_iterateQ}, {"sexpr-prop-init", CVAR, &YevalSsyntaxYsexpr_prop_init}, {"sexpr-prop-owner", CVAR, &YevalSsyntaxYsexpr_prop_owner}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"$sexpr-define-method-tag", NULL}, {"$sexpr-define-constant-tag", NULL}, {"sexpr-loc-bound-signatures", NULL}, {"sexpr-isa-parent", NULL}, {"sexpr-unwind-protect-protected-form", NULL}, {"$sexpr-set-tag", NULL}, {"$sexpr-unwind-protect-tag", NULL}, {"sexpr-define-class?", NULL}, {"sexpr-make-begin", NULL}, {"sexpr-let->combination", NULL}, {"$sexpr-let-tag", NULL}, {"$sexpr-locals-tag", NULL}, {"sexpr-syntax-if-then", NULL}, {"sexpr-if-test", NULL}, {"sexpr-fab-setter-name", NULL}, {"$sexpr-isa-tag", NULL}, {"sexpr-make-anonymous-method", NULL}, {"sexpr-definition-variable", NULL}, {"$sexpr-iterate-tag", NULL}, {"sexpr-variable-name", NULL}, {"sexpr-bind-pattern-variables", NULL}, {"sexpr-variable?", NULL}, {"sexpr-syntax-definition-value", NULL}, {"sexpr-function-definition-variable", NULL}, {"sexpr-syntax-definition-variable", NULL}, {"$sexpr-monitor-tag", NULL}, {"sexpr-def-value", NULL}, {"sexpr-monitor-expand", NULL}, {"$sexpr-define-generic-tag", NULL}, {"sexpr-prop-init?", NULL}, {"sexpr-prop-name", NULL}, {"sexpr-method-signature", NULL}, {"sexpr-text-of-quotation", NULL}, {"sexpr-isa-init-values", NULL}, {"sexpr-sequence->begin", NULL}, {"$sexpr-quasiquote-tag", NULL}, {"sexpr-syntax-if-pattern", NULL}, {"sexpr-operands", NULL}, {"sexpr-loc-bound-names", NULL}, {"sexpr-function-signature", NULL}, {"sexpr-expand-backquote", NULL}, {"sexpr-method-body", NULL}, {"sexpr-assignment-value", NULL}, {"sexpr-make-application", NULL}, {"$sexpr-begin-tag", NULL}, {"sexpr-signature-parameters", NULL}, {"$sexpr-prop-tag", NULL}, {"sexpr-fab-setter", NULL}, {"sexpr-def-variable", NULL}, {"sexpr-block-body", NULL}, {"sexpr-loc-raw-body", NULL}, {"sexpr-prop-type", NULL}, {"$sexpr-macro-expand-tag", NULL}, {"$sexpr-define-function-tag", NULL}, {"$sexpr-syntax-if-tag", NULL}, {"$sexpr-define-class-tag", NULL}, {"sexpr-isa-init-props", NULL}, {"sexpr-iterate->loc", NULL}, {"$sexpr-prop!-tag", NULL}, {"sexpr-make-method", NULL}, {"sexpr-syntax-if-value", NULL}, {"eval", NULL}, {"sexpr-operator", NULL}, {"sexpr-function-definition-value", NULL}, {"$sexpr-method-tag", NULL}, {"sexpr-def?", NULL}, {"sexpr-if-else", NULL}, {"$sexpr-def-tag", NULL}, {"sexpr-unquote-splicing?", NULL}, {"sexpr-forward-primitive?", NULL}, {"$sexpr-if-tag", NULL}, {"sexpr-block-name", NULL}, {"sexpr-loc-bound-bodies", NULL}, {"$sexpr-define-tag", NULL}, {"sexpr-fab-getter", NULL}, {"sexpr-prop-init-var", NULL}, {"sexpr-signature-value", NULL}, {"sexpr-unwind-protect-cleanup-forms", NULL}, {"sexpr-assignment-variable", NULL}, {"sexpr-definition-value", NULL}, {"sexpr-isa-prop-inits", NULL}, {"sexpr-function-body", NULL}, {"sexpr-variable-type", NULL}, {"sexpr-syntax-if-else", NULL}, {"$sexpr-define-syntax-tag", NULL}, {"sexpr-define-class-parents", NULL}, {"sexpr-make-macro-function", NULL}, {"sexpr-if-then", NULL}, {"sexpr-unquote?", NULL}, {"$sexpr-bind-exit-tag", NULL}, {"sexpr-function-definition-adjectives", NULL}, {"$sexpr-quote-tag", NULL}, {"sexpr-prop-init", NULL}, {"sexpr-prop-owner", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalSsyntax; MODULE_INFO module_info_evalSsyntax = { "eval/syntax", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooScolsSlst (void); /* EXPRESSION: */ extern void load_module_evalSsyntax (void); void load_module_evalSsyntax (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooScolsSlst(); (P)YevalSsyntaxY___main_0___(); (P)YevalSsyntaxY___main_1___(); (P)YevalSsyntaxY___main_2___(); (P)YevalSsyntaxY___main_3___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/top.c0100644000175000017500000071273507756744542014546 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/top"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/top */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(YevalSsyntaxYDsexpr_define_method_tag,"eval/syntax","$sexpr-define-method-tag"); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSsyntaxYDsexpr_define_constant_tag,"eval/syntax","$sexpr-define-constant-tag"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YevalSastYc_inline_strs,"eval/ast","c-inline-strs"); EXT(YevalSsyntaxYsexpr_isa_parent,"eval/syntax","sexpr-isa-parent"); EXT(YevalSsyntaxYsexpr_unwind_protect_protected_form,"eval/syntax","sexpr-unwind-protect-protected-form"); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalSsyntaxYDsexpr_set_tag,"eval/syntax","$sexpr-set-tag"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSconditionsYbuild_condition_for_handler_interactively,"goo/conditions","build-condition-for-handler-interactively"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(YevalSsyntaxYDsexpr_unwind_protect_tag,"eval/syntax","$sexpr-unwind-protect-tag"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YevalSsyntaxYDsexpr_quasiquote_tag,"eval/syntax","$sexpr-quasiquote-tag"); EXT(YevalSsyntaxYsexpr_define_classQ,"eval/syntax","sexpr-define-class?"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalSastYloop_body,"eval/ast","loop-body"); DEF(YevalStopYbacktrace,"eval/top","backtrace"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YevalSsyntaxYsexpr_make_macro_function,"eval/syntax","sexpr-make-macro-function"); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); DEF(YevalStopYauto_run,"eval/top","auto-run"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YevalSsyntaxYsexpr_isa_prop_inits,"eval/syntax","sexpr-isa-prop-inits"); EXT(YevalSsyntaxYDsexpr_let_tag,"eval/syntax","$sexpr-let-tag"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YevalSsyntaxYsexpr_prop_initQ,"eval/syntax","sexpr-prop-init?"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YevalSsyntaxYDsexpr_locals_tag,"eval/syntax","$sexpr-locals-tag"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YevalSsyntaxYsexpr_loc_bound_signatures,"eval/syntax","sexpr-loc-bound-signatures"); EXT(YevalSsyntaxYsexpr_loc_raw_body,"eval/syntax","sexpr-loc-raw-body"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YevalSsyntaxYsexpr_syntax_if_then,"eval/syntax","sexpr-syntax-if-then"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSconditionsYdefault_handler_description,"goo/conditions","default-handler-description"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YgooSsystemYos_val,"goo/system","os-val"); EXT(YevalSsyntaxYsexpr_def_variable,"eval/syntax","sexpr-def-variable"); EXT(YevalSsyntaxYsexpr_if_test,"eval/syntax","sexpr-if-test"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); EXT(YevalSsyntaxYsexpr_fab_setter_name,"eval/syntax","sexpr-fab-setter-name"); EXT(YevalSsyntaxYsexpr_let_Gcombination,"eval/syntax","sexpr-let->combination"); EXT(YevalSsyntaxYDsexpr_isa_tag,"eval/syntax","$sexpr-isa-tag"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YLflatG,"goo/boot",""); EXT(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YgooSsystemYexe_filename,"goo/system","exe-filename"); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YevalSsyntaxYDsexpr_iterate_tag,"eval/syntax","$sexpr-iterate-tag"); EXT(YevalSsyntaxYsexpr_monitor_expand,"eval/syntax","sexpr-monitor-expand"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YevalSsyntaxYsexpr_variable_name,"eval/syntax","sexpr-variable-name"); EXT(YPtrue,"goo/boot","%true"); EXT(YevalSsyntaxYsexpr_bind_pattern_variables,"eval/syntax","sexpr-bind-pattern-variables"); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYc_inline_exprQ,"eval/ast","c-inline-expr?"); EXT(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YevalSsyntaxYsexpr_make_anonymous_method,"eval/syntax","sexpr-make-anonymous-method"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YevalSsyntaxYDsexpr_define_tag,"eval/syntax","$sexpr-define-tag"); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSsyntaxYsexpr_definition_variable,"eval/syntax","sexpr-definition-variable"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); DEF(YevalStopYdo_stack_frames,"eval/top","do-stack-frames"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YevalSsyntaxYsexpr_function_definition_variable,"eval/syntax","sexpr-function-definition-variable"); DEF(YevalStopYtop,"eval/top","top"); EXT(YevalSsyntaxYsexpr_syntax_definition_variable,"eval/syntax","sexpr-syntax-definition-variable"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YevalSsyntaxYsexpr_variableQ,"eval/syntax","sexpr-variable?"); EXT(YevalSsyntaxYDsexpr_monitor_tag,"eval/syntax","$sexpr-monitor-tag"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YevalStopYPPbottomPPg2c_run,"eval/top","%%bottom%%g2c-run"); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YevalSsyntaxYsexpr_def_value,"eval/syntax","sexpr-def-value"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); DEF(YevalStopYauto_eval,"eval/top","auto-eval"); EXT(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YevalSsyntaxYsexpr_prop_name,"eval/syntax","sexpr-prop-name"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YevalSsyntaxYsexpr_make_begin,"eval/syntax","sexpr-make-begin"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(YevalSsyntaxYsexpr_method_signature,"eval/syntax","sexpr-method-signature"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); DEF(YevalStopYD,"eval/top","$"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSsystemYfile_copy,"goo/system","file-copy"); EXT(YgooSsystemYos_name,"goo/system","os-name"); EXT(YevalSsyntaxYsexpr_text_of_quotation,"eval/syntax","sexpr-text-of-quotation"); DEF(YevalStopYload,"eval/top","load"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YevalSastYLcomputed_programG,"eval/ast",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSsystemYobj_filename,"goo/system","obj-filename"); DEF(YevalStopYDg2c_evalQ,"eval/top","$g2c-eval?"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(YevalSsyntaxYsexpr_isa_init_values,"eval/syntax","sexpr-isa-init-values"); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSsyntaxYsexpr_sequence_Gbegin,"eval/syntax","sexpr-sequence->begin"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); DEF(YevalStopYdo_restart,"eval/top","do-restart"); EXT(YLcolXG,"goo/boot",""); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYchoose_handler,"goo/conditions","choose-handler"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YevalSastYLbind_exitG,"eval/ast",""); DEF(YevalStopYread_file,"eval/top","read-file"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YevalSastYLassignmentG,"eval/ast",""); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); DEF(YevalStopYstr_parse_in,"eval/top","str-parse-in"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSsyntaxYsexpr_syntax_if_pattern,"eval/syntax","sexpr-syntax-if-pattern"); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); DEF(YevalStopYDDD,"eval/top","$$$"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YevalSsyntaxYsexpr_operands,"eval/syntax","sexpr-operands"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YevalSsyntaxYsexpr_loc_bound_names,"eval/syntax","sexpr-loc-bound-names"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YevalSsyntaxYsexpr_function_signature,"eval/syntax","sexpr-function-signature"); EXT(YLcolG,"goo/boot",""); EXT(YevalSastYLsequentialG,"eval/ast",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YgooSsystemYadd_build_path,"goo/system","add-build-path"); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSsyntaxYsexpr_expand_backquote,"eval/syntax","sexpr-expand-backquote"); EXT(YevalSsyntaxYsexpr_method_body,"eval/syntax","sexpr-method-body"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(YevalSastYLdefinitionG,"eval/ast",""); DEF(YevalStopYmsg_src_loc,"eval/top","msg-src-loc"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); DEF(YevalStopYparse_in,"eval/top","parse-in"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YevalSsyntaxYsexpr_assignment_value,"eval/syntax","sexpr-assignment-value"); DEF(YevalStopYvm_evaluate,"eval/top","vm-evaluate"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); DEF(YevalStopYesctst,"eval/top","esctst"); EXT(YevalSmoduleYmodule_c_forms,"eval/module","module-c-forms"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YevalSsyntaxYsexpr_make_application,"eval/syntax","sexpr-make-application"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSsyntaxYDsexpr_begin_tag,"eval/syntax","$sexpr-begin-tag"); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); DEF(YevalStopYframe,"eval/top","frame"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YevalSsyntaxYsexpr_signature_parameters,"eval/syntax","sexpr-signature-parameters"); DYNDEF(YevalStopYrun,"eval/top","run"); EXT(YLlocG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_function_definition_adjectives,"eval/syntax","sexpr-function-definition-adjectives"); DEF(YevalStopYDD,"eval/top","$$"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSsyntaxYDsexpr_prop_tag,"eval/syntax","$sexpr-prop-tag"); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(YgooSsystemYc_filename,"goo/system","c-filename"); DEF(YevalStopYprint_result_expression,"eval/top","print-result-expression"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YevalSastYLc_inlineG,"eval/ast",""); EXT(YevalSsyntaxYsexpr_fab_setter,"eval/syntax","sexpr-fab-setter"); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); EXT(YevalSastYc_inline_refs,"eval/ast","c-inline-refs"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); EXT(YevalSsyntaxYsexpr_block_body,"eval/syntax","sexpr-block-body"); EXT(YevalSsyntaxYDsexpr_macro_expand_tag,"eval/syntax","$sexpr-macro-expand-tag"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); DYNEXT(YgooSconditionsYTcurrent_handlersT,"goo/conditions","*current-handlers*"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); EXT(YevalSsyntaxYsexpr_prop_type,"eval/syntax","sexpr-prop-type"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YevalSsyntaxYsexpr_loc_bound_bodies,"eval/syntax","sexpr-loc-bound-bodies"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooSsystemYtime,"goo/system","time"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YevalSsyntaxYDsexpr_define_function_tag,"eval/syntax","$sexpr-define-function-tag"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YOlit,"goo/boot","@lit"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YevalSsyntaxYsexpr_syntax_if_value,"eval/syntax","sexpr-syntax-if-value"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YevalSastYLmonitorG,"eval/ast",""); DEF(YevalStopYstr_eval_in,"eval/top","str-eval-in"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); EXT(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YevalSsyntaxYDsexpr_syntax_if_tag,"eval/syntax","$sexpr-syntax-if-tag"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YevalSsyntaxYDsexpr_define_class_tag,"eval/syntax","$sexpr-define-class-tag"); EXT(YevalSsyntaxYsexpr_isa_init_props,"eval/syntax","sexpr-isa-init-props"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSconditionsYdescribe_handler,"goo/conditions","describe-handler"); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YevalSsyntaxYsexpr_iterate_Gloc,"eval/syntax","sexpr-iterate->loc"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSsystemYfile_type,"goo/system","file-type"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); DEF(YevalStopYcompiled_fileQ,"eval/top","compiled-file?"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YevalSsyntaxYDsexpr_propX_tag,"eval/syntax","$sexpr-prop!-tag"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(YevalSsyntaxYDsexpr_define_generic_tag,"eval/syntax","$sexpr-define-generic-tag"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YevalSsyntaxYsexpr_make_method,"eval/syntax","sexpr-make-method"); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YevalSsyntaxYeval,"eval/syntax","eval"); DEF(YevalStopYframe_var,"eval/top","frame-var"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(Yprop_type,"goo/boot","prop-type"); DEF(YevalStopYprompt_for_command_expression,"eval/top","prompt-for-command-expression"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YevalSsyntaxYsexpr_operator,"eval/syntax","sexpr-operator"); EXT(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YgooSconditionsYinvoke_handler_interactively,"goo/conditions","invoke-handler-interactively"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSsyntaxYDsexpr_method_tag,"eval/syntax","$sexpr-method-tag"); EXT(YevalSsyntaxYsexpr_signature_value,"eval/syntax","sexpr-signature-value"); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); DEF(YevalStopYload_file,"eval/top","load-file"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_defQ,"eval/syntax","sexpr-def?"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(YevalSsyntaxYsexpr_if_else,"eval/syntax","sexpr-if-else"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YevalSsyntaxYDsexpr_def_tag,"eval/syntax","$sexpr-def-tag"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YevalSsyntaxYsexpr_unquote_splicingQ,"eval/syntax","sexpr-unquote-splicing?"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); EXT(YLsubclassG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_forward_primitiveQ,"eval/syntax","sexpr-forward-primitive?"); EXT(YLchrG,"goo/boot",""); EXT(YevalSsyntaxYDsexpr_if_tag,"eval/syntax","$sexpr-if-tag"); EXT(YevalSastYLprogramG,"eval/ast",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); EXT(YgooSsystemYLpathname_errorG,"goo/system",""); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); EXT(YevalSsyntaxYsexpr_block_name,"eval/syntax","sexpr-block-name"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); EXT(YevalSastYLalternativeG,"eval/ast",""); DEF(YevalStopYstr_parse,"eval/top","str-parse"); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YevalSsyntaxYsexpr_function_definition_value,"eval/syntax","sexpr-function-definition-value"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YevalSsyntaxYsexpr_fab_getter,"eval/syntax","sexpr-fab-getter"); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YLsingletonG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_prop_init_var,"eval/syntax","sexpr-prop-init-var"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYbuild_condition_interactively,"goo/conditions","build-condition-interactively"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YevalSastYLast_methodG,"eval/ast",""); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_unwind_protect_cleanup_forms,"eval/syntax","sexpr-unwind-protect-cleanup-forms"); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YevalSsyntaxYsexpr_assignment_variable,"eval/syntax","sexpr-assignment-variable"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); DEF(YevalStopYPPtopPPtop_in,"eval/top","%%top%%top-in"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooSsystemYcomponents_last,"goo/system","components-last"); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(YevalSsyntaxYsexpr_definition_value,"eval/syntax","sexpr-definition-value"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); DEF(YevalStopYsave_image,"eval/top","save-image"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSconditionsYlist_handlers,"goo/conditions","list-handlers"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); EXT(YevalSsyntaxYsexpr_function_body,"eval/syntax","sexpr-function-body"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YevalSsyntaxYsexpr_variable_type,"eval/syntax","sexpr-variable-type"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YevalSsyntaxYsexpr_syntax_if_else,"eval/syntax","sexpr-syntax-if-else"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); DEF(YevalStopYbt,"eval/top","bt"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalSsyntaxYDsexpr_define_syntax_tag,"eval/syntax","$sexpr-define-syntax-tag"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); DEF(YevalStopYPPbottomPPvm_run,"eval/top","%%bottom%%vm-run"); DEF(YevalStopYPPbottomPPast_run,"eval/top","%%bottom%%ast-run"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YevalSsyntaxYsexpr_define_class_parents,"eval/syntax","sexpr-define-class-parents"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSsystemYso_load,"goo/system","so-load"); EXT(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YevalSsyntaxYsexpr_if_then,"eval/syntax","sexpr-if-then"); EXT(YevalSastYfunction_body,"eval/ast","function-body"); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YevalSsyntaxYsexpr_unquoteQ,"eval/syntax","sexpr-unquote?"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YevalSast_evalYbinding_value_or,"eval/ast-eval","binding-value-or"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); DEF(YevalStopYg2c_eval,"eval/top","g2c-eval"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); DEF(YevalStopYparse,"eval/top","parse"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); DEF(YevalStopYstr_eval,"eval/top","str-eval"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YevalSsyntaxYDsexpr_bind_exit_tag,"eval/syntax","$sexpr-bind-exit-tag"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(Ynil,"goo/boot","nil"); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YevalSsyntaxYsexpr_syntax_definition_value,"eval/syntax","sexpr-syntax-definition-value"); EXT(YevalSsyntaxYDsexpr_quote_tag,"eval/syntax","$sexpr-quote-tag"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSsystemYfile_mtime,"goo/system","file-mtime"); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YevalSsyntaxYsexpr_prop_init,"eval/syntax","sexpr-prop-init"); EXT(YLtypeG,"goo/boot",""); EXT(YevalSsyntaxYsexpr_prop_owner,"eval/syntax","sexpr-prop-owner"); EXT(YevalSmoduleYLmoduleG,"eval/module",""); DEF(YevalStopYeval_in,"eval/top","eval-in"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_100); DEFLIT(lit_87); DEFLIT(lit_27); DEFLIT(lit_139); DEFLIT(lit_63); DEFLIT(lit_77); DEFLIT(lit_42); DEFLIT(lit_106); DEFLIT(lit_39); DEFLIT(lit_157); DEFLIT(lit_84); DEFLIT(lit_12); DEFLIT(lit_135); DEFLIT(lit_150); DEFLIT(lit_22); DEFLIT(lit_151); DEFLIT(lit_24); DEFLIT(lit_127); DEFLIT(lit_169); DEFLIT(lit_16); DEFLIT(lit_0); DEFLIT(lit_31); DEFLIT(lit_194); DEFLIT(lit_10); DEFLIT(lit_124); DEFLIT(lit_109); DEFLIT(lit_148); DEFLIT(lit_81); DEFLIT(lit_58); DEFLIT(lit_136); DEFLIT(lit_93); DEFLIT(lit_171); DEFLIT(lit_72); DEFLIT(lit_20); DEFLIT(lit_112); DEFLIT(lit_15); DEFLIT(lit_99); DEFLIT(lit_203); DEFLIT(lit_182); DEFLIT(lit_113); DEFLIT(lit_13); DEFLIT(lit_168); DEFLIT(lit_173); DEFLIT(lit_134); DEFLIT(lit_176); DEFLIT(lit_143); DEFLIT(lit_6); DEFLIT(lit_91); DEFLIT(lit_69); DEFLIT(lit_17); DEFLIT(lit_197); DEFLIT(lit_191); DEFLIT(lit_75); DEFLIT(lit_142); DEFLIT(lit_65); DEFLIT(lit_59); DEFLIT(lit_11); DEFLIT(lit_138); DEFLIT(lit_170); DEFLIT(lit_82); DEFLIT(lit_123); DEFLIT(lit_196); DEFLIT(lit_107); DEFLIT(lit_36); DEFLIT(lit_29); DEFLIT(lit_23); DEFLIT(lit_110); DEFLIT(lit_25); DEFLIT(lit_198); DEFLIT(lit_95); DEFLIT(lit_44); DEFLIT(lit_70); DEFLIT(lit_137); DEFLIT(lit_131); DEFLIT(lit_115); DEFLIT(lit_30); DEFLIT(lit_103); DEFLIT(lit_132); DEFLIT(lit_155); DEFLIT(lit_51); DEFLIT(lit_38); DEFLIT(lit_57); DEFLIT(lit_162); DEFLIT(lit_149); DEFLIT(lit_146); DEFLIT(lit_159); DEFLIT(lit_154); DEFLIT(lit_205); DEFLIT(lit_4); DEFLIT(lit_193); DEFLIT(lit_120); DEFLIT(lit_26); DEFLIT(lit_79); DEFLIT(lit_18); DEFLIT(lit_156); DEFLIT(lit_178); DEFLIT(lit_177); DEFLIT(lit_45); DEFLIT(lit_41); DEFLIT(lit_86); DEFLIT(lit_62); DEFLIT(lit_207); DEFLIT(lit_125); DEFLIT(lit_37); DEFLIT(lit_133); DEFLIT(lit_64); DEFLIT(lit_204); DEFLIT(lit_28); DEFLIT(lit_186); DEFLIT(lit_126); DEFLIT(lit_3); DEFLIT(lit_88); DEFLIT(lit_160); DEFLIT(lit_179); DEFLIT(lit_200); DEFLIT(lit_114); DEFLIT(lit_68); DEFLIT(lit_56); DEFLIT(lit_108); DEFLIT(lit_2); DEFLIT(lit_165); DEFLIT(lit_92); DEFLIT(lit_48); DEFLIT(lit_117); DEFLIT(lit_60); DEFLIT(lit_190); DEFLIT(lit_208); DEFLIT(lit_166); DEFLIT(lit_35); DEFLIT(lit_46); DEFLIT(lit_129); DEFLIT(lit_153); DEFLIT(lit_202); DEFLIT(lit_144); DEFLIT(lit_187); DEFLIT(lit_164); DEFLIT(lit_1); DEFLIT(lit_174); DEFLIT(lit_47); DEFLIT(lit_172); DEFLIT(lit_119); DEFLIT(lit_158); DEFLIT(lit_105); DEFLIT(lit_163); DEFLIT(lit_43); DEFLIT(lit_206); DEFLIT(lit_180); DEFLIT(lit_53); DEFLIT(lit_8); DEFLIT(lit_50); DEFLIT(lit_145); DEFLIT(lit_21); DEFLIT(lit_101); DEFLIT(lit_73); DEFLIT(lit_181); DEFLIT(lit_140); DEFLIT(lit_90); DEFLIT(lit_188); DEFLIT(lit_40); DEFLIT(lit_7); DEFLIT(lit_128); DEFLIT(lit_147); DEFLIT(lit_104); DEFLIT(lit_152); DEFLIT(lit_141); DEFLIT(lit_209); DEFLIT(lit_78); DEFLIT(lit_122); DEFLIT(lit_85); DEFLIT(lit_19); DEFLIT(lit_83); DEFLIT(lit_116); DEFLIT(lit_184); DEFLIT(lit_98); DEFLIT(lit_34); DEFLIT(lit_33); DEFLIT(lit_111); DEFLIT(lit_175); DEFLIT(lit_55); DEFLIT(lit_118); DEFLIT(lit_185); DEFLIT(lit_199); DEFLIT(lit_14); DEFLIT(lit_121); DEFLIT(lit_102); DEFLIT(lit_67); DEFLIT(lit_89); DEFLIT(lit_167); DEFLIT(lit_9); DEFLIT(lit_76); DEFLIT(lit_201); DEFLIT(lit_66); DEFLIT(lit_71); DEFLIT(lit_97); DEFLIT(lit_54); DEFLIT(lit_32); DEFLIT(lit_195); DEFLIT(lit_96); DEFLIT(lit_49); DEFLIT(lit_161); DEFLIT(lit_192); DEFLIT(lit_189); DEFLIT(lit_210); DEFLIT(lit_183); DEFLIT(lit_130); DEFLIT(lit_80); DEFLIT(lit_74); DEFLIT(lit_94); DEFLIT(lit_52); DEFLIT(lit_61); DEFLIT(lit_5); /* FUNCTIONS: */ LOCFOR(fun_0); LOCFOR(fun_1); LOCFOR(fun_2); FUNFOR(YevalStopYesctst); LOCFOR(fun_4); LOCFOR(fun_5); LOCFOR(fun_parse_in_6); LOCFOR(fun_parse_7); LOCFOR(fun_str_parse_in_8); LOCFOR(fun_str_parse_9); FUNFOR(YevalStopYPPbottomPPvm_run); FUNFOR(YevalStopYPPbottomPPast_run); FUNFOR(YevalStopYPPbottomPPg2c_run); FUNFOR(YevalStopYauto_run); LOCFOR(fun_14); LOCFOR(fun_15); FUNFOR(YevalStopYauto_eval); LOCFOR(fun_eval_in_17); LOCFOR(fun_eval_18); LOCFOR(fun_str_eval_in_19); LOCFOR(fun_str_eval_20); FUNFOR(YevalStopYcompiled_fileQ); LOCFOR(fun_22); LOCFOR(fun_23); LOCFOR(fun_read_file_24); LOCFOR(fun_25); LOCFOR(fun_26); LOCFOR(fun_load_in_27); LOCFOR(fun_load_file_28); LOCFOR(fun_load_29); LOCFOR(fun_prompt_for_command_expression_30); LOCFOR(fun_print_result_expression_31); LOCFOR(fun_do_stack_frames_32); LOCFOR(fun_x_1548_33); LOCFOR(fun_34); LOCFOR(fun_35); LOCFOR(fun_x_1552_36); LOCFOR(fun_37); LOCFOR(fun_38); LOCFOR(fun_msg_src_loc_39); LOCFOR(fun_40); LOCFOR(fun_41); LOCFOR(fun_backtrace_42); LOCFOR(fun_43); LOCFOR(fun_44); LOCFOR(fun_frame_45); LOCFOR(fun_46); LOCFOR(fun_47); LOCFOR(fun_48); LOCFOR(fun_frame_var_49); LOCFOR(fun_50); LOCFOR(fun_51); LOCFOR(fun_bt_52); FUNFOR(YevalStopYdo_restart); LOCFOR(fun_54); LOCFOR(fun_55); LOCFOR(fun_56); LOCFOR(fun_57); LOCFOR(fun_58); LOCFOR(fun_59); LOCFOR(fun_60); LOCFOR(fun_61); LOCFOR(fun_x_1599_62); LOCFOR(fun_63); LOCFOR(fun_x_1596_64); LOCFOR(fun_65); LOCFOR(fun_x_1593_66); LOCFOR(fun_67); LOCFOR(fun_x_1590_68); LOCFOR(fun_69); LOCFOR(fun_x_1587_70); LOCFOR(fun_71); LOCFOR(fun_x_1584_72); LOCFOR(fun_73); LOCFOR(fun_x_1581_74); LOCFOR(fun_75); LOCFOR(fun_x_1578_76); LOCFOR(fun_77); LOCFOR(fun_x_1575_78); LOCFOR(fun_79); LOCFOR(fun_x_1572_80); LOCFOR(fun_81); LOCFOR(fun_x_1569_82); LOCFOR(fun_83); LOCFOR(fun_x_1566_84); LOCFOR(fun_85); LOCFOR(fun_x_1563_86); LOCFOR(fun_87); LOCFOR(fun_x_1560_88); LOCFOR(fun_89); LOCFOR(fun_x_1557_90); LOCFOR(fun_91); LOCFOR(fun_92); LOCFOR(fun_93); LOCFOR(fun_94); LOCFOR(fun_95); LOCFOR(fun_PPtopPPtop_in_96); LOCFOR(fun_97); LOCFOR(fun_98); LOCFOR(fun_99); LOCFOR(fun_100); LOCFOR(fun_101); LOCFOR(fun_top_102); LOCFOR(fun_103); FUNFOR(YevalStopYsave_image); extern P YevalStopY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_0) { P T0; LINK_STACK(); T0 = CALL1(1,FREEREF(0),LITREF(lit_3)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { LINK_STACK(); CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_4)); UNLINK_STACK(); QRET(LITREF(lit_5)); } LOCCODEDEF(fun_2) { P exit_; P T0,T1; LINK_STACK(); ARG(exit_, 0); T0 = FUNFAB(fun_0,1,exit_); T1 = fun_1; with_cleanup(T0,T1); CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_6)); UNLINK_STACK(); QRET(LITREF(lit_7)); } FUNCODEDEF(YevalStopYesctst) { P T0,T1; LINK_STACK(); T1 = fun_2; T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_4) { P T0,T1; LINK_STACK(); DYNSET(YevalSmoduleYTdynamic_compilationQT,YPfalse); T1 = CALL1(1,VARREF(YgooSioSreadYread_from_string),FREEREF(0)); T0 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),T1,FREEREF(1),YPtrue,YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P T0; LINK_STACK(); T0 = DYNSET(YevalSmoduleYTdynamic_compilationQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_parse_in_6) { P s_,ct_env_; P x_1542F4411; P T0,T1,T2; LINK_STACK(); ARG(s_, 0); ARG(ct_env_, 1); x_1542F4411 = DYNREF(YevalSmoduleYTdynamic_compilationQT); T1 = FUNFAB(fun_4,2,s_,ct_env_); T2 = FUNFAB(fun_5,1,x_1542F4411); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_parse_7) { P s_,modname_; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(modname_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),modname_); T0 = CALL2(1,VARREF(YevalStopYparse_in),s_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_str_parse_in_8) { P s_,ct_env_; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(ct_env_, 1); T1 = CALL2(1,VARREF(YevalStopYparse_in),s_,ct_env_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_16),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_str_parse_9) { P s_,modname_; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(modname_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),modname_); T0 = CALL2(1,VARREF(YevalStopYstr_parse_in),s_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYPPbottomPPvm_run) { P ast_,ct_env_; P T0; LINK_STACK(); ARG(ast_, 0); ARG(ct_env_, 1); T0 = CALL2(1,VARREF(YevalStopYvm_evaluate),ast_,ct_env_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYPPbottomPPast_run) { P ast_,ct_env_; P T0; LINK_STACK(); ARG(ast_, 0); ARG(ct_env_, 1); T0 = CALL1(1,VARREF(YevalSastYast_evaluate),ast_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYPPbottomPPg2c_run) { P ast_,ct_env_; P T0; LINK_STACK(); ARG(ast_, 0); ARG(ct_env_, 1); T0 = CALL2(1,VARREF(YevalStopYg2c_eval),ast_,ct_env_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYauto_run) { P ast_,ct_env_; P T0,T1,T2,T3; LINK_STACK(); ARG(ast_, 0); ARG(ct_env_, 1); T1 = CALL1(1,VARREF(YevalSastYast_contains_funQ),ast_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YevalStopYPPbottomPPg2c_run),ast_,ct_env_); T0 = T2; } else { T3 = CALL2(1,VARREF(YevalStopYPPbottomPPast_run),ast_,ct_env_); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_14) { P astF4412; P T0,T1; LINK_STACK(); DYNSET(YevalSmoduleYTdynamic_compilationQT,YPtrue); CALL1(1,VARREF(YevalSmoduleYzap_referenced_bindingsX),FREEREF(0)); T1 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),FREEREF(1),FREEREF(0),YPtrue,YPfalse); astF4412 = T1; T0 = CALL2(1,DYNREF(YevalStopYrun),astF4412,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_15) { P T0; LINK_STACK(); T0 = DYNSET(YevalSmoduleYTdynamic_compilationQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYauto_eval) { P form_,ct_env_; P x_1543F4413; P T0,T1,T2; LINK_STACK(); ARG(form_, 0); ARG(ct_env_, 1); x_1543F4413 = DYNREF(YevalSmoduleYTdynamic_compilationQT); T1 = FUNFAB(fun_14,2,ct_env_,form_); T2 = FUNFAB(fun_15,1,x_1543F4413); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_eval_in_17) { P x_,ct_env_; P eF4415; P oF4414; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(ct_env_, 1); T1 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),x_,ct_env_,YPtrue,YPfalse); oF4414 = T1; T0 = CALL1(1,VARREF(YevalSastYast_evaluate),oF4414); eF4415 = T0; UNLINK_STACK(); QRET(eF4415); } LOCCODEDEF(fun_eval_18) { P x_,modname_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(modname_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),modname_); T0 = CALL2(1,VARREF(YevalStopYeval_in),x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_str_eval_in_19) { P x_,ct_env_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(ct_env_, 1); T2 = CALL1(1,VARREF(YgooSioSreadYread_from_string),x_); T1 = CALL2(1,VARREF(YevalStopYeval_in),T2,ct_env_); T0 = CALL1(1,VARREF(YgooSioSwriteYwrite_to_string),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_str_eval_20) { P x_,modname_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(modname_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),modname_); T0 = CALL2(1,VARREF(YevalStopYstr_eval_in),x_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYcompiled_fileQ) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooScolsSseqYsuffixQ),name_,LITREF(lit_44)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P xF4417; P formsF4416; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_in_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); formsF4416 = Ynil; LOOP_199: { P a199_0; T8 = BOXGET(FREEREF(0)); T7 = CALL1(1,VARREF(YgooSconditionsYread),T8); xF4417 = T7; T2 = CALL1(1,VARREF(YgooSchrYeof_objectQ),xF4417); if (T2 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmacrosYrevX),formsF4416); T3 = CALL1(1,VARREF(YevalSsyntaxYsexpr_sequence_Gbegin),T4); T1 = T3; } else { T6 = CALL2(1,VARREF(YgooSmacrosYpair),xF4417,formsF4416); a199_0 = T6; formsF4416 = a199_0; goto LOOP_199; T1 = T5; } } UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_23) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_read_file_24) { P filename_; P portF4418; P T0,T1,T2,T3; LINK_STACK(); ARG(filename_, 0); portF4418 = YPfalse; portF4418 = BOXFAB(portF4418); T2 = FUNFAB(fun_22,2,portF4418,filename_); T3 = FUNFAB(fun_23,1,portF4418); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_25) { P oF4420; P xF4419; P T0,T1,T2; LINK_STACK(); DYNSET(YevalSmoduleYTdynamic_compilationQT,YPtrue); T2 = CALL1(1,VARREF(YevalStopYread_file),FREEREF(0)); xF4419 = T2; CALL1(1,VARREF(YevalSmoduleYzap_referenced_bindingsX),FREEREF(1)); T1 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),xF4419,FREEREF(1),YPfalse,YPfalse); oF4420 = T1; T0 = CALL2(1,DYNREF(YevalStopYrun),oF4420,FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_26) { P T0; LINK_STACK(); T0 = DYNSET(YevalSmoduleYTdynamic_compilationQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_load_in_27) { P filename_,ct_env_; P x_1544F4421; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(filename_, 0); ARG(ct_env_, 1); T1 = CALL1(1,VARREF(YevalStopYcompiled_fileQ),filename_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSsystemYso_load),filename_); T0 = T2; } else { x_1544F4421 = DYNREF(YevalSmoduleYTdynamic_compilationQT); T4 = FUNFAB(fun_25,2,filename_,ct_env_); T5 = FUNFAB(fun_26,1,x_1544F4421); T3 = with_cleanup(T4,T5); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_load_file_28) { P filename_,modname_; P T0,T1; LINK_STACK(); ARG(filename_, 0); ARG(modname_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),modname_); T0 = CALL2(1,VARREF(YevalSmoduleYload_in),filename_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_load_29) { P name_,modname_; P realfileF4422; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); ARG(modname_, 1); T3 = CALL2(1,VARREF(YgooSsystemYfind_goo_file_in_path),name_,VARREF(YgooSsystemYTmodule_search_pathT)); realfileF4422 = T3; T0 = CALL1(1,VARREF(Ynot),realfileF4422); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yfile_opening_error),name_); } else { } T2 = CALL2(1,VARREF(YevalStopYload_file),realfileF4422,modname_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_prompt_for_command_expression_30) { P env_,level_,prompt_; P argsF4425; P arg_strF4424; P formF4423; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(env_, 0); ARG(level_, 1); ARG(prompt_, 2); T1 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),env_); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_name),T1); CALL5(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_55),T0,level_,prompt_); CALL1(1,VARREF(YgooSioSportYforce_out),VARREF(YgooSioSportYout)); T13 = CALL1(1,VARREF(YgooSconditionsYread),VARREF(YgooSioSportYin)); formF4423 = T13; T4 = CALL2(1,VARREF(YisaQ),formF4423,VARREF(YLlstG)); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),formF4423); T5 = CALL2(1,VARREF(YgooSmacrosYEE),T6,LITREF(lit_56)); T3 = T5; } else { T3 = YPfalse; } if (T3 != YPfalse) { T12 = CALL1(1,VARREF(YgooSioSportYgets),VARREF(YgooSioSportYin)); arg_strF4424 = T12; T11 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_57),arg_strF4424,LITREF(lit_58)); T10 = CALL1(1,VARREF(YgooSioSreadYread_from_string),T11); argsF4425 = T10; T9 = CALL1(1,VARREF(YgooSmacrosY2nd),formF4423); T8 = CALL2(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_59),T9); T7 = CALL2(1,VARREF(YgooSmacrosYpair),T8,argsF4425); T2 = T7; } else { T2 = formF4423; } UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_print_result_expression_31) { P env_,level_,label_,result_; P T0,T1,T2; LINK_STACK(); ARG(env_, 0); ARG(level_, 1); ARG(label_, 2); ARG(result_, 3); T1 = CALL1(1,VARREF(YevalSmoduleYfind_environment_module),env_); T0 = CALL1(1,VARREF(YevalSmoduleYmodule_name),T1); CALL5(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_62),T0,level_,label_); T2 = CALL2(1,VARREF(YgooSioSwriteYwrite),VARREF(YgooSioSportYout),result_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_do_stack_frames_32) { P fun_; P T0; LINK_STACK(); ARG(fun_, 0); T0 = (P)YPdo_stack_frames(fun_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1548_33) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_69),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_34) { P return_; P x_1547F4440; P x_1547F4439; P x_1547F4438; P x_1547F4437; P x_1547F4436; P x_1547F4435; P x_1547F4434; P x_1547F4433; P x_1547F4432; P bodyF4431; P argsF4430; P fF4429; P numF4428; P x_1547F4427; P x_1548F4426; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55; LINK_STACK(); ARG(return_, 0); T55 = FUNSHELL(0,fun_x_1548_33,2); x_1548F4426 = T55; FUNINIT(x_1548F4426, 2,FREEREF(0),return_); x_1547F4427 = FREEREF(0); numF4428 = YPfalse; fF4429 = YPfalse; argsF4430 = YPfalse; bodyF4431 = YPfalse; T4 = CALL2(1,VARREF(YisaQ),x_1547F4427,VARREF(YLlstG)); if (T4 != YPfalse) { T18 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1547F4427,LITREF(lit_69),x_1548F4426); x_1547F4432 = T18; T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1547F4432,x_1548F4426); x_1547F4433 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1547F4433,x_1548F4426); numF4428 = T14; T15 = CALL1(1,VARREF(Ytail),x_1547F4433); x_1547F4434 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1547F4434,x_1548F4426); fF4429 = T12; T13 = CALL1(1,VARREF(Ytail),x_1547F4434); x_1547F4435 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1547F4435,x_1548F4426); argsF4430 = T10; T11 = CALL1(1,VARREF(Ytail),x_1547F4435); x_1547F4436 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1547F4436,x_1548F4426); x_1547F4437 = T8; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1547F4437,x_1548F4426); T9 = CALL1(1,VARREF(Ytail),x_1547F4436); x_1547F4438 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1547F4438,x_1548F4426); T17 = CALL1(1,VARREF(Ytail),x_1547F4432); x_1547F4439 = T17; bodyF4431 = x_1547F4439; x_1547F4440 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1547F4440,x_1548F4426); } else { T19 = CALL2(1,x_1548F4426,LITREF(lit_70),x_1547F4427); } T21 = CALL1(1,VARREF(Ylst),LITREF(lit_71)); T27 = numF4428; T26 = CALL1(1,VARREF(Ylst),T27); T28 = CALL1(1,VARREF(Ylst),YPint((P)0)); T25 = CALL3(1,VARREF(YgooSmacrosYcat),T26,T28,LITREF(lit_72)); T24 = CALL1(1,VARREF(Ylst),T25); T23 = CALL2(1,VARREF(YgooSmacrosYcat),T24,LITREF(lit_72)); T22 = CALL1(1,VARREF(Ylst),T23); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_73)); T38 = fF4429; T37 = CALL1(1,VARREF(Ylst),T38); T39 = CALL1(1,VARREF(Ylst),LITREF(lit_74)); T36 = CALL3(1,VARREF(YgooSmacrosYcat),T37,T39,LITREF(lit_72)); T35 = CALL1(1,VARREF(Ylst),T36); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_75)); T44 = argsF4430; T43 = CALL1(1,VARREF(Ylst),T44); T47 = CALL1(1,VARREF(Ylst),LITREF(lit_76)); T48 = CALL1(1,VARREF(Ylst),LITREF(lit_74)); T46 = CALL3(1,VARREF(YgooSmacrosYcat),T47,T48,LITREF(lit_72)); T45 = CALL1(1,VARREF(Ylst),T46); T41 = CALL4(1,VARREF(YgooSmacrosYcat),T42,T43,T45,LITREF(lit_72)); T40 = CALL1(1,VARREF(Ylst),T41); T49 = bodyF4431; T52 = CALL1(1,VARREF(Ylst),LITREF(lit_77)); T54 = numF4428; T53 = CALL1(1,VARREF(Ylst),T54); T51 = CALL3(1,VARREF(YgooSmacrosYcat),T52,T53,LITREF(lit_72)); T50 = CALL1(1,VARREF(Ylst),T51); T33 = CALLN(1,VARREF(YgooSmacrosYcat),6,T34,T35,T40,T49,T50,LITREF(lit_72)); T32 = CALL1(1,VARREF(Ylst),T33); T30 = CALL3(1,VARREF(YgooSmacrosYcat),T31,T32,LITREF(lit_72)); T29 = CALL1(1,VARREF(Ylst),T30); T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T29,LITREF(lit_72)); UNLINK_STACK(); QRET(T20); } LOCCODEDEF(fun_35) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_34,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1552_36) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_82),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_37) { P return_; P x_1551F4455; P x_1551F4454; P x_1551F4453; P x_1551F4452; P x_1551F4451; P x_1551F4450; P x_1551F4449; P x_1551F4448; P x_1551F4447; P bodyF4446; P argsF4445; P fF4444; P numF4443; P x_1551F4442; P x_1552F4441; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110; LINK_STACK(); ARG(return_, 0); T110 = FUNSHELL(0,fun_x_1552_36,2); x_1552F4441 = T110; FUNINIT(x_1552F4441, 2,FREEREF(0),return_); x_1551F4442 = FREEREF(0); numF4443 = YPfalse; fF4444 = YPfalse; argsF4445 = YPfalse; bodyF4446 = YPfalse; T4 = CALL2(1,VARREF(YisaQ),x_1551F4442,VARREF(YLlstG)); if (T4 != YPfalse) { T18 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1551F4442,LITREF(lit_82),x_1552F4441); x_1551F4447 = T18; T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1551F4447,x_1552F4441); x_1551F4448 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1551F4448,x_1552F4441); numF4443 = T14; T15 = CALL1(1,VARREF(Ytail),x_1551F4448); x_1551F4449 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1551F4449,x_1552F4441); fF4444 = T12; T13 = CALL1(1,VARREF(Ytail),x_1551F4449); x_1551F4450 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1551F4450,x_1552F4441); argsF4445 = T10; T11 = CALL1(1,VARREF(Ytail),x_1551F4450); x_1551F4451 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1551F4451,x_1552F4441); x_1551F4452 = T8; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1551F4452,x_1552F4441); T9 = CALL1(1,VARREF(Ytail),x_1551F4451); x_1551F4453 = T9; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1551F4453,x_1552F4441); T17 = CALL1(1,VARREF(Ytail),x_1551F4447); x_1551F4454 = T17; bodyF4446 = x_1551F4454; x_1551F4455 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1551F4455,x_1552F4441); } else { T19 = CALL2(1,x_1552F4441,LITREF(lit_70),x_1551F4442); } T21 = CALL1(1,VARREF(Ylst),LITREF(lit_83)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_84)); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_75)); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_85)); T27 = CALL1(1,VARREF(Ylst),YPfalse); T24 = CALL4(1,VARREF(YgooSmacrosYcat),T25,T26,T27,LITREF(lit_72)); T23 = CALL1(1,VARREF(Ylst),T24); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_75)); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T32 = CALL1(1,VARREF(Ylst),YPint((P)0)); T29 = CALL4(1,VARREF(YgooSmacrosYcat),T30,T31,T32,LITREF(lit_72)); T28 = CALL1(1,VARREF(Ylst),T29); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_69)); T38 = CALL1(1,VARREF(Ylst),LITREF(lit_87)); T40 = fF4444; T39 = CALL1(1,VARREF(Ylst),T40); T42 = argsF4445; T41 = CALL1(1,VARREF(Ylst),T42); T37 = CALL4(1,VARREF(YgooSmacrosYcat),T38,T39,T41,LITREF(lit_72)); T36 = CALL1(1,VARREF(Ylst),T37); T45 = CALL1(1,VARREF(Ylst),LITREF(lit_75)); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_88)); T49 = CALL1(1,VARREF(Ylst),LITREF(lit_89)); T52 = CALL1(1,VARREF(Ylst),LITREF(lit_90)); T54 = fF4444; T53 = CALL1(1,VARREF(Ylst),T54); T51 = CALL3(1,VARREF(YgooSmacrosYcat),T52,T53,LITREF(lit_72)); T50 = CALL1(1,VARREF(Ylst),T51); T57 = CALL1(1,VARREF(Ylst),LITREF(lit_91)); T58 = CALL1(1,VARREF(Ylst),LITREF(lit_92)); T61 = CALL1(1,VARREF(Ylst),LITREF(lit_90)); T63 = fF4444; T62 = CALL1(1,VARREF(Ylst),T63); T60 = CALL3(1,VARREF(YgooSmacrosYcat),T61,T62,LITREF(lit_72)); T59 = CALL1(1,VARREF(Ylst),T60); T56 = CALL4(1,VARREF(YgooSmacrosYcat),T57,T58,T59,LITREF(lit_72)); T55 = CALL1(1,VARREF(Ylst),T56); T64 = CALL1(1,VARREF(Ylst),LITREF(lit_93)); T48 = CALL5(1,VARREF(YgooSmacrosYcat),T49,T50,T55,T64,LITREF(lit_72)); T47 = CALL1(1,VARREF(Ylst),T48); T44 = CALL4(1,VARREF(YgooSmacrosYcat),T45,T46,T47,LITREF(lit_72)); T43 = CALL1(1,VARREF(Ylst),T44); T67 = CALL1(1,VARREF(Ylst),LITREF(lit_75)); T69 = numF4443; T68 = CALL1(1,VARREF(Ylst),T69); T72 = CALL1(1,VARREF(Ylst),LITREF(lit_94)); T73 = CALL1(1,VARREF(Ylst),LITREF(lit_87)); T74 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T71 = CALL4(1,VARREF(YgooSmacrosYcat),T72,T73,T74,LITREF(lit_72)); T70 = CALL1(1,VARREF(Ylst),T71); T66 = CALL4(1,VARREF(YgooSmacrosYcat),T67,T68,T70,LITREF(lit_72)); T65 = CALL1(1,VARREF(Ylst),T66); T77 = CALL1(1,VARREF(Ylst),LITREF(lit_95)); T78 = CALL1(1,VARREF(Ylst),LITREF(lit_85)); T81 = CALL1(1,VARREF(Ylst),LITREF(lit_95)); T84 = CALL1(1,VARREF(Ylst),LITREF(lit_96)); T85 = CALL1(1,VARREF(Ylst),LITREF(lit_88)); T86 = CALL1(1,VARREF(Ylst),LITREF(lit_97)); T83 = CALL4(1,VARREF(YgooSmacrosYcat),T84,T85,T86,LITREF(lit_72)); T82 = CALL1(1,VARREF(Ylst),T83); T89 = CALL1(1,VARREF(Ylst),LITREF(lit_84)); T90 = CALL1(1,VARREF(Ylst),YPfalse); T88 = CALL3(1,VARREF(YgooSmacrosYcat),T89,T90,LITREF(lit_72)); T87 = CALL1(1,VARREF(Ylst),T88); T80 = CALL4(1,VARREF(YgooSmacrosYcat),T81,T82,T87,LITREF(lit_72)); T79 = CALL1(1,VARREF(Ylst),T80); T91 = bodyF4446; T76 = CALL5(1,VARREF(YgooSmacrosYcat),T77,T78,T79,T91,LITREF(lit_72)); T75 = CALL1(1,VARREF(Ylst),T76); T94 = CALL1(1,VARREF(Ylst),LITREF(lit_95)); T97 = CALL1(1,VARREF(Ylst),LITREF(lit_96)); T98 = CALL1(1,VARREF(Ylst),LITREF(lit_88)); T99 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T96 = CALL4(1,VARREF(YgooSmacrosYcat),T97,T98,T99,LITREF(lit_72)); T95 = CALL1(1,VARREF(Ylst),T96); T102 = CALL1(1,VARREF(Ylst),LITREF(lit_99)); T103 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T104 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T101 = CALL4(1,VARREF(YgooSmacrosYcat),T102,T103,T104,LITREF(lit_72)); T100 = CALL1(1,VARREF(Ylst),T101); T107 = CALL1(1,VARREF(Ylst),LITREF(lit_99)); T108 = CALL1(1,VARREF(Ylst),LITREF(lit_85)); T109 = CALL1(1,VARREF(Ylst),YPtrue); T106 = CALL4(1,VARREF(YgooSmacrosYcat),T107,T108,T109,LITREF(lit_72)); T105 = CALL1(1,VARREF(Ylst),T106); T93 = CALL5(1,VARREF(YgooSmacrosYcat),T94,T95,T100,T105,LITREF(lit_72)); T92 = CALL1(1,VARREF(Ylst),T93); T34 = CALLN(1,VARREF(YgooSmacrosYcat),7,T35,T36,T43,T65,T75,T92,LITREF(lit_72)); T33 = CALL1(1,VARREF(Ylst),T34); T20 = CALLN(1,VARREF(YgooSmacrosYcat),6,T21,T22,T23,T28,T33,LITREF(lit_72)); UNLINK_STACK(); QRET(T20); } LOCCODEDEF(fun_38) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_37,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_msg_src_loc_39) { P f_; P slF4456; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(f_, 0); T1 = CALL2(1,VARREF(YisaQ),f_,VARREF(YLmetG)); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooSfunYfun_src_loc),f_); slF4456 = T7; T3 = CALL2(1,VARREF(YisaQ),slF4456,VARREF(YLsrc_locG)); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(Ysrc_loc_file),slF4456); T6 = CALL1(1,VARREF(Ysrc_loc_line),slF4456); T4 = CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_103),T5,T6); T2 = T4; } else { T2 = YPfalse; } T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_40) { P f_,Uargs_; P numF4459; P UnameF4458; P argsF4457; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(f_, 0); ARG(Uargs_, 1); T16 = CALL1(1,VARREF(YgooScolsSseqYrev),Uargs_); argsF4457 = T16; T13 = CALL1(1,VARREF(YgooSfunYfun_name),f_); if (T13 != YPfalse) { T15 = CALL1(1,VARREF(YgooSfunYfun_name),f_); T14 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T15); T12 = T14; } else { T12 = LITREF(lit_93); } UnameF4458 = T12; T10 = BOXGET(FREEREF(0)); T11 = BOXGET(FREEREF(1)); T9 = CALL2(1,VARREF(YgooSmathY_),T10,T11); numF4459 = T9; T0 = BOXGET(FREEREF(2)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4458,LITREF(lit_97)); if (T1 != YPfalse) { T2 = CALL1(1,FREEREF(3),YPfalse); } else { } CALL5(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_107),numF4459,f_,argsF4457); CALL1(1,VARREF(YevalStopYmsg_src_loc),f_); T3 = CALL1(1,VARREF(YgooSioSportYnewline),VARREF(YgooSioSportYout)); } else { } T4 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4458,LITREF(lit_98)); if (T4 != YPfalse) { BOXPUT(numF4459,FREEREF(1)); T5 = BOXPUT(YPtrue,FREEREF(2)); } else { } T8 = BOXGET(FREEREF(0)); T7 = CALL2(1,VARREF(YgooSmathYA),T8,YPint((P)1)); T6 = BOXPUT(T7,FREEREF(0)); UNLINK_STACK(); QRET(T6); } LOCCODEDEF(fun_41) { P break_; P UnumF4462; P Utop_numF4461; P Useen_topF4460; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(break_, 0); Useen_topF4460 = YPfalse; Useen_topF4460 = BOXFAB(Useen_topF4460); Utop_numF4461 = YPint((P)0); Utop_numF4461 = BOXFAB(Utop_numF4461); UnumF4462 = YPint((P)0); UnumF4462 = BOXFAB(UnumF4462); T4 = FUNFAB(fun_40,4,UnumF4462,Utop_numF4461,Useen_topF4460,break_); T3 = CALL1(1,VARREF(YevalStopYdo_stack_frames),T4); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_backtrace_42) { P T0,T1; LINK_STACK(); T1 = fun_41; T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_43) { P f_,Uargs_; P numF4465; P UnameF4464; P argsF4463; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(f_, 0); ARG(Uargs_, 1); T18 = CALL1(1,VARREF(YgooScolsSseqYrev),Uargs_); argsF4463 = T18; T15 = CALL1(1,VARREF(YgooSfunYfun_name),f_); if (T15 != YPfalse) { T17 = CALL1(1,VARREF(YgooSfunYfun_name),f_); T16 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T17); T14 = T16; } else { T14 = LITREF(lit_93); } UnameF4464 = T14; T12 = BOXGET(FREEREF(0)); T13 = BOXGET(FREEREF(1)); T11 = CALL2(1,VARREF(YgooSmathY_),T12,T13); numF4465 = T11; T0 = BOXGET(FREEREF(2)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4464,LITREF(lit_97)); if (T1 != YPfalse) { T2 = CALL1(1,FREEREF(3),YPfalse); } else { } T4 = CALL2(1,VARREF(YgooSmacrosYEE),FREEREF(4),numF4465); if (T4 != YPfalse) { CALL5(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_112),numF4465,f_,argsF4463); CALL1(1,VARREF(YevalStopYmsg_src_loc),f_); T5 = CALL1(1,VARREF(YgooSioSportYnewline),VARREF(YgooSioSportYout)); T3 = T5; } else { T3 = YPfalse; } } else { } T6 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4464,LITREF(lit_98)); if (T6 != YPfalse) { BOXPUT(numF4465,FREEREF(1)); T7 = BOXPUT(YPtrue,FREEREF(2)); } else { } T10 = BOXGET(FREEREF(0)); T9 = CALL2(1,VARREF(YgooSmathYA),T10,YPint((P)1)); T8 = BOXPUT(T9,FREEREF(0)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_44) { P break_; P UnumF4468; P Utop_numF4467; P Useen_topF4466; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(break_, 0); Useen_topF4466 = YPfalse; Useen_topF4466 = BOXFAB(Useen_topF4466); Utop_numF4467 = YPint((P)0); Utop_numF4467 = BOXFAB(Utop_numF4467); UnumF4468 = YPint((P)0); UnumF4468 = BOXFAB(UnumF4468); T4 = FUNFAB(fun_43,5,UnumF4468,Utop_numF4467,Useen_topF4466,break_,FREEREF(0)); T3 = CALL1(1,VARREF(YevalStopYdo_stack_frames),T4); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_frame_45) { P n_; P T0,T1; LINK_STACK(); ARG(n_, 0); T1 = FUNFAB(fun_44,1,n_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_46) { P f_,Uargs_; P numF4471; P UnameF4470; P argsF4469; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(f_, 0); ARG(Uargs_, 1); T21 = CALL1(1,VARREF(YgooScolsSseqYrev),Uargs_); argsF4469 = T21; T18 = CALL1(1,VARREF(YgooSfunYfun_name),f_); if (T18 != YPfalse) { T20 = CALL1(1,VARREF(YgooSfunYfun_name),f_); T19 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T20); T17 = T19; } else { T17 = LITREF(lit_93); } UnameF4470 = T17; T15 = BOXGET(FREEREF(0)); T16 = BOXGET(FREEREF(1)); T14 = CALL2(1,VARREF(YgooSmathY_),T15,T16); numF4471 = T14; T0 = BOXGET(FREEREF(2)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4470,LITREF(lit_97)); if (T1 != YPfalse) { T2 = CALL1(1,FREEREF(3),YPfalse); } else { } T4 = CALL2(1,VARREF(YgooSmacrosYEE),FREEREF(4),numF4471); if (T4 != YPfalse) { T8 = CALL1(1,VARREF(YgooSfunYfun_names),f_); T7 = CALL2(1,VARREF(YgooScolsSseqYpos),T8,FREEREF(5)); T6 = CALL2(1,VARREF(YgooSmacrosYelt),argsF4469,T7); T5 = CALL1(1,FREEREF(6),T6); T3 = T5; } else { T3 = YPfalse; } } else { } T9 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4470,LITREF(lit_98)); if (T9 != YPfalse) { BOXPUT(numF4471,FREEREF(1)); T10 = BOXPUT(YPtrue,FREEREF(2)); } else { } T13 = BOXGET(FREEREF(0)); T12 = CALL2(1,VARREF(YgooSmathYA),T13,YPint((P)1)); T11 = BOXPUT(T12,FREEREF(0)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_47) { P break_; P UnumF4474; P Utop_numF4473; P Useen_topF4472; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(break_, 0); Useen_topF4472 = YPfalse; Useen_topF4472 = BOXFAB(Useen_topF4472); Utop_numF4473 = YPint((P)0); Utop_numF4473 = BOXFAB(Utop_numF4473); UnumF4474 = YPint((P)0); UnumF4474 = BOXFAB(UnumF4474); T4 = FUNFAB(fun_46,7,UnumF4474,Utop_numF4473,Useen_topF4472,break_,FREEREF(0),FREEREF(1),FREEREF(2)); T3 = CALL1(1,VARREF(YevalStopYdo_stack_frames),T4); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_48) { P ret_; P T0; LINK_STACK(); ARG(ret_, 0); T0 = FUNFAB(fun_47,3,FREEREF(0),FREEREF(1),ret_); with_exit(T0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_frame_var_49) { P n_,name_; P T0,T1; LINK_STACK(); ARG(n_, 0); ARG(name_, 1); T1 = FUNFAB(fun_48,2,n_,name_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_50) { P f_,Uargs_; P numF4477; P UnameF4476; P argsF4475; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(f_, 0); ARG(Uargs_, 1); T16 = CALL1(1,VARREF(YgooScolsSseqYrev),Uargs_); argsF4475 = T16; T13 = CALL1(1,VARREF(YgooSfunYfun_name),f_); if (T13 != YPfalse) { T15 = CALL1(1,VARREF(YgooSfunYfun_name),f_); T14 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T15); T12 = T14; } else { T12 = LITREF(lit_93); } UnameF4476 = T12; T10 = BOXGET(FREEREF(0)); T11 = BOXGET(FREEREF(1)); T9 = CALL2(1,VARREF(YgooSmathY_),T10,T11); numF4477 = T9; T0 = BOXGET(FREEREF(2)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4476,LITREF(lit_97)); if (T1 != YPfalse) { T2 = CALL1(1,FREEREF(3),YPfalse); } else { } CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_121),numF4477,f_); CALL1(1,VARREF(YevalStopYmsg_src_loc),f_); T3 = CALL1(1,VARREF(YgooSioSportYnewline),VARREF(YgooSioSportYout)); } else { } T4 = CALL2(1,VARREF(YgooScolsSseqYprefixQ),UnameF4476,LITREF(lit_98)); if (T4 != YPfalse) { BOXPUT(numF4477,FREEREF(1)); T5 = BOXPUT(YPtrue,FREEREF(2)); } else { } T8 = BOXGET(FREEREF(0)); T7 = CALL2(1,VARREF(YgooSmathYA),T8,YPint((P)1)); T6 = BOXPUT(T7,FREEREF(0)); UNLINK_STACK(); QRET(T6); } LOCCODEDEF(fun_51) { P break_; P UnumF4480; P Utop_numF4479; P Useen_topF4478; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(break_, 0); Useen_topF4478 = YPfalse; Useen_topF4478 = BOXFAB(Useen_topF4478); Utop_numF4479 = YPint((P)0); Utop_numF4479 = BOXFAB(Utop_numF4479); UnumF4480 = YPint((P)0); UnumF4480 = BOXFAB(UnumF4480); T4 = FUNFAB(fun_50,4,UnumF4480,Utop_numF4479,Useen_topF4478,break_); T3 = CALL1(1,VARREF(YevalStopYdo_stack_frames),T4); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_bt_52) { P T0,T1; LINK_STACK(); T1 = fun_51; T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYdo_restart) { P restarts_,n_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(restarts_, 0); ARG(n_, 1); T0 = CALL1(1,VARREF(Ynot),restarts_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yerror),LITREF(lit_124)); } else { } T4 = CALL2(1,VARREF(YgooSmagYG),n_,YPint((P)0)); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(YgooStypesYlen),restarts_); T5 = CALL2(1,VARREF(YgooSmagYLE),n_,T6); T3 = T5; } else { T3 = YPfalse; } T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(Yerror),LITREF(lit_125),n_); } else { } T10 = CALL2(1,VARREF(YgooSmathY_),n_,YPint((P)1)); T9 = CALL2(1,VARREF(YgooSmacrosYelt),restarts_,T10); T8 = CALL3(1,VARREF(YgooSconditionsYinvoke_handler_interactively),T9,VARREF(YgooSioSportYin),VARREF(YgooSioSportYout)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_54) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_55) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_56) { P c_,r_; P T0; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); CALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_134)); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_57) { P T0,T1; LINK_STACK(); T1 = CALL1(1,VARREF(YgooSconditionsYdescribe_condition),FREEREF(0)); T0 = CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_135),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_58) { P break_; P T0,T1,T2,T3; LINK_STACK(); ARG(break_, 0); T1 = fun_55; T2 = FUNFAB(fun_56,1,break_); T3 = FUNFAB(fun_57,1,FREEREF(0)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSconditionsYLerrorG),VARREF(YgooSconditionsYDdefault_handler_info),T1,T2,T3); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_59) { P c_,r_; P x_1554F4482; P x_1553F4481; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); x_1553F4481 = c_; x_1554F4482 = VARREF(YisaQ); T1 = CALL2(0,x_1554F4482,x_1553F4481,VARREF(YgooSconditionsYLkeyboard_interruptG)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_131)); T0 = T2; } else { T4 = FUNFAB(fun_58,1,c_); T3 = with_exit(T4); T0 = T3; } T5 = CALL2(1,VARREF(YgooSmathYA),FREEREF(0),YPint((P)1)); T6 = BOXGET(FREEREF(3)); CALL5(1,VARREF(YevalStopYPPtopPPtop_in),T5,FREEREF(1),FREEREF(2),YPtrue,T6); T7 = CALL1(1,FREEREF(4),YPfalse); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_60) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_61) { P c_,r_; P T0; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1599_62) { P msg_,args_; P x_1603F4487; P x_1602F4486; P x_1601F4485; P x_1600F4484; P resF4483; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T7 = BOXGET(FREEREF(1)); T6 = CALL2(1,VARREF(YevalStopYauto_eval),FREEREF(0),T7); resF4483 = T6; T2 = BOXGET(FREEREF(1)); T3 = resF4483; CALL4(1,VARREF(YevalStopYprint_result_expression),T2,FREEREF(2),LITREF(lit_185),T3); x_1600F4484 = VARREF(YevalStopYDDD); x_1601F4485 = VARREF(YevalStopYDD); x_1602F4486 = VARREF(YevalStopYD); T5 = resF4483; x_1603F4487 = T5; VARSET(YevalStopYDDD,x_1601F4485); VARSET(YevalStopYDD,x_1602F4486); VARSET(YevalStopYD,x_1603F4487); T4 = resF4483 = x_1600F4484; T0 = CALL1(1,FREEREF(3),T4); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_63) { P return_; P x_1598F4496; P x_1598F4495; P x_1598F4494; P x_1598F4493; P x_1598F4492; P nameF4491; P nF4490; P x_1598F4489; P x_1599F4488; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(return_, 0); T18 = FUNSHELL(0,fun_x_1599_62,4); x_1599F4488 = T18; FUNINIT(x_1599F4488, 4,FREEREF(0),FREEREF(1),FREEREF(2),return_); x_1598F4489 = FREEREF(3); nF4490 = YPfalse; nameF4491 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1598F4489,VARREF(YLlstG)); if (T2 != YPfalse) { T11 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1598F4489,LITREF(lit_186),x_1599F4488); x_1598F4492 = T11; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1598F4492,x_1599F4488); nF4490 = T9; T10 = CALL1(1,VARREF(Ytail),x_1598F4492); x_1598F4493 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1598F4493,x_1599F4488); nameF4491 = T7; T8 = CALL1(1,VARREF(Ytail),x_1598F4493); x_1598F4494 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1598F4494,x_1599F4488); x_1598F4495 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1598F4495,x_1599F4488); T6 = CALL1(1,VARREF(Ytail),x_1598F4494); x_1598F4496 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1598F4496,x_1599F4488); } else { T12 = CALL2(1,x_1599F4488,LITREF(lit_70),x_1598F4489); } T14 = BOXGET(FREEREF(1)); T16 = nF4490; T17 = nameF4491; T15 = CALL2(1,VARREF(YevalStopYframe_var),T16,T17); T13 = CALL4(1,VARREF(YevalStopYprint_result_expression),T14,FREEREF(2),LITREF(lit_187),T15); UNLINK_STACK(); QRET(T13); } LOCCODEDEF(fun_x_1596_64) { P msg_,args_; P x_1597F4497; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1597F4497 = FREEREF(0); T2 = FUNFAB(fun_63,4,FREEREF(1),FREEREF(2),FREEREF(3),x_1597F4497); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_65) { P return_; P x_1595F4504; P x_1595F4503; P x_1595F4502; P x_1595F4501; P nF4500; P x_1595F4499; P x_1596F4498; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(return_, 0); T12 = FUNSHELL(0,fun_x_1596_64,5); x_1596F4498 = T12; FUNINIT(x_1596F4498, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1595F4499 = FREEREF(0); nF4500 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1595F4499,VARREF(YLlstG)); if (T1 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1595F4499,LITREF(lit_188),x_1596F4498); x_1595F4501 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1595F4501,x_1596F4498); nF4500 = T6; T7 = CALL1(1,VARREF(Ytail),x_1595F4501); x_1595F4502 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1595F4502,x_1596F4498); x_1595F4503 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1595F4503,x_1596F4498); T5 = CALL1(1,VARREF(Ytail),x_1595F4502); x_1595F4504 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1595F4504,x_1596F4498); } else { T9 = CALL2(1,x_1596F4498,LITREF(lit_70),x_1595F4499); } T11 = nF4500; T10 = CALL1(1,VARREF(YevalStopYframe),T11); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_x_1593_66) { P msg_,args_; P x_1594F4505; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1594F4505 = FREEREF(0); T2 = FUNFAB(fun_65,4,x_1594F4505,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_67) { P return_; P x_1592F4510; P x_1592F4509; P x_1592F4508; P x_1592F4507; P x_1593F4506; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1593_66,5); x_1593F4506 = T8; FUNINIT(x_1593F4506, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1592F4507 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1592F4507,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1592F4507,LITREF(lit_189),x_1593F4506); x_1592F4508 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1592F4508,x_1593F4506); x_1592F4509 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1592F4509,x_1593F4506); T4 = CALL1(1,VARREF(Ytail),x_1592F4508); x_1592F4510 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1592F4510,x_1593F4506); } else { T6 = CALL2(1,x_1593F4506,LITREF(lit_70),x_1592F4507); } T7 = CALL0(1,VARREF(YevalStopYbacktrace)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1590_68) { P msg_,args_; P x_1591F4511; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1591F4511 = FREEREF(0); T2 = FUNFAB(fun_67,4,x_1591F4511,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_69) { P return_; P x_1589F4516; P x_1589F4515; P x_1589F4514; P x_1589F4513; P x_1590F4512; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1590_68,5); x_1590F4512 = T8; FUNINIT(x_1590F4512, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1589F4513 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1589F4513,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1589F4513,LITREF(lit_190),x_1590F4512); x_1589F4514 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1589F4514,x_1590F4512); x_1589F4515 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1589F4515,x_1590F4512); T4 = CALL1(1,VARREF(Ytail),x_1589F4514); x_1589F4516 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1589F4516,x_1590F4512); } else { T6 = CALL2(1,x_1590F4512,LITREF(lit_70),x_1589F4513); } T7 = CALL0(1,VARREF(YevalStopYbt)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1587_70) { P msg_,args_; P x_1588F4517; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1588F4517 = FREEREF(0); T2 = FUNFAB(fun_69,4,x_1588F4517,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_71) { P return_; P x_1586F4522; P x_1586F4521; P x_1586F4520; P x_1586F4519; P x_1587F4518; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(return_, 0); T9 = FUNSHELL(0,fun_x_1587_70,5); x_1587F4518 = T9; FUNINIT(x_1587F4518, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1586F4519 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1586F4519,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1586F4519,LITREF(lit_191),x_1587F4518); x_1586F4520 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1586F4520,x_1587F4518); x_1586F4521 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1586F4521,x_1587F4518); T4 = CALL1(1,VARREF(Ytail),x_1586F4520); x_1586F4522 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1586F4522,x_1587F4518); } else { T6 = CALL2(1,x_1587F4518,LITREF(lit_70),x_1586F4519); } if (VARREF(YevalStopYDg2c_evalQ) != YPfalse) { T8 = DYNSET(YevalStopYrun,VARREF(YevalStopYauto_run)); T7 = T8; } else { T7 = YPfalse; } UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1584_72) { P msg_,args_; P x_1585F4523; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1585F4523 = FREEREF(0); T2 = FUNFAB(fun_71,4,x_1585F4523,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_73) { P return_; P x_1583F4528; P x_1583F4527; P x_1583F4526; P x_1583F4525; P x_1584F4524; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1584_72,5); x_1584F4524 = T8; FUNINIT(x_1584F4524, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1583F4525 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1583F4525,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1583F4525,LITREF(lit_192),x_1584F4524); x_1583F4526 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1583F4526,x_1584F4524); x_1583F4527 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1583F4527,x_1584F4524); T4 = CALL1(1,VARREF(Ytail),x_1583F4526); x_1583F4528 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1583F4528,x_1584F4524); } else { T6 = CALL2(1,x_1584F4524,LITREF(lit_70),x_1583F4525); } T7 = DYNSET(YevalStopYrun,VARREF(YevalStopYPPbottomPPvm_run)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1581_74) { P msg_,args_; P x_1582F4529; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1582F4529 = FREEREF(0); T2 = FUNFAB(fun_73,4,x_1582F4529,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_75) { P return_; P x_1580F4534; P x_1580F4533; P x_1580F4532; P x_1580F4531; P x_1581F4530; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1581_74,5); x_1581F4530 = T8; FUNINIT(x_1581F4530, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1580F4531 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1580F4531,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1580F4531,LITREF(lit_193),x_1581F4530); x_1580F4532 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1580F4532,x_1581F4530); x_1580F4533 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1580F4533,x_1581F4530); T4 = CALL1(1,VARREF(Ytail),x_1580F4532); x_1580F4534 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1580F4534,x_1581F4530); } else { T6 = CALL2(1,x_1581F4530,LITREF(lit_70),x_1580F4531); } T7 = DYNSET(YevalStopYrun,VARREF(YevalStopYPPbottomPPast_run)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1578_76) { P msg_,args_; P x_1579F4535; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1579F4535 = FREEREF(0); T2 = FUNFAB(fun_75,4,x_1579F4535,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_77) { P return_; P x_1577F4540; P x_1577F4539; P x_1577F4538; P x_1577F4537; P x_1578F4536; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(return_, 0); T9 = FUNSHELL(0,fun_x_1578_76,5); x_1578F4536 = T9; FUNINIT(x_1578F4536, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1577F4537 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1577F4537,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1577F4537,LITREF(lit_194),x_1578F4536); x_1577F4538 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1577F4538,x_1578F4536); x_1577F4539 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1577F4539,x_1578F4536); T4 = CALL1(1,VARREF(Ytail),x_1577F4538); x_1577F4540 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1577F4540,x_1578F4536); } else { T6 = CALL2(1,x_1578F4536,LITREF(lit_70),x_1577F4537); } if (VARREF(YevalStopYDg2c_evalQ) != YPfalse) { T8 = DYNSET(YevalStopYrun,VARREF(YevalStopYPPbottomPPg2c_run)); T7 = T8; } else { T7 = YPfalse; } UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1575_78) { P msg_,args_; P x_1576F4541; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1576F4541 = FREEREF(0); T2 = FUNFAB(fun_77,4,x_1576F4541,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_79) { P return_; P new_envF4549; P x_1574F4548; P x_1574F4547; P x_1574F4546; P x_1574F4545; P mF4544; P x_1574F4543; P x_1575F4542; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(return_, 0); T13 = FUNSHELL(0,fun_x_1575_78,5); x_1575F4542 = T13; FUNINIT(x_1575F4542, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1574F4543 = FREEREF(0); mF4544 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1574F4543,VARREF(YLlstG)); if (T1 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1574F4543,LITREF(lit_195),x_1575F4542); x_1574F4545 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1574F4545,x_1575F4542); mF4544 = T6; T7 = CALL1(1,VARREF(Ytail),x_1574F4545); x_1574F4546 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1574F4546,x_1575F4542); x_1574F4547 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1574F4547,x_1575F4542); T5 = CALL1(1,VARREF(Ytail),x_1574F4546); x_1574F4548 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1574F4548,x_1575F4542); } else { T9 = CALL2(1,x_1575F4542,LITREF(lit_70),x_1574F4543); } T12 = mF4544; T11 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),T12); new_envF4549 = T11; T10 = BOXPUT(new_envF4549,FREEREF(2)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_x_1572_80) { P msg_,args_; P x_1573F4550; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1573F4550 = FREEREF(0); T2 = FUNFAB(fun_79,4,x_1573F4550,FREEREF(1),FREEREF(2),FREEREF(3)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(4),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_81) { P return_; P x_1571F4557; P x_1571F4556; P x_1571F4555; P x_1571F4554; P nF4553; P x_1571F4552; P x_1572F4551; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(return_, 0); T13 = FUNSHELL(0,fun_x_1572_80,5); x_1572F4551 = T13; FUNINIT(x_1572F4551, 5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),return_); x_1571F4552 = FREEREF(0); nF4553 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1571F4552,VARREF(YLlstG)); if (T1 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1571F4552,LITREF(lit_196),x_1572F4551); x_1571F4554 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1571F4554,x_1572F4551); nF4553 = T6; T7 = CALL1(1,VARREF(Ytail),x_1571F4554); x_1571F4555 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1571F4555,x_1572F4551); x_1571F4556 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1571F4556,x_1572F4551); T5 = CALL1(1,VARREF(Ytail),x_1571F4555); x_1571F4557 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1571F4557,x_1572F4551); } else { T9 = CALL2(1,x_1572F4551,LITREF(lit_70),x_1571F4552); } T11 = BOXGET(FREEREF(4)); T12 = nF4553; T10 = CALL2(1,VARREF(YevalStopYdo_restart),T11,T12); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_x_1569_82) { P msg_,args_; P x_1570F4558; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1570F4558 = FREEREF(0); T2 = FUNFAB(fun_81,5,x_1570F4558,FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(5),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_83) { P return_; P x_1568F4563; P x_1568F4562; P x_1568F4561; P x_1568F4560; P x_1569F4559; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1569_82,6); x_1569F4559 = T8; FUNINIT(x_1569F4559, 6,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),return_); x_1568F4560 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1568F4560,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1568F4560,LITREF(lit_197),x_1569F4559); x_1568F4561 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1568F4561,x_1569F4559); x_1568F4562 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1568F4562,x_1569F4559); T4 = CALL1(1,VARREF(Ytail),x_1568F4561); x_1568F4563 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1568F4563,x_1569F4559); } else { T6 = CALL2(1,x_1569F4559,LITREF(lit_70),x_1568F4560); } T7 = CALL2(1,VARREF(YgooSconditionsYlist_handlers),VARREF(YgooSconditionsYLrestartG),VARREF(YgooSioSportYout)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1566_84) { P msg_,args_; P x_1567F4564; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1567F4564 = FREEREF(0); T2 = FUNFAB(fun_83,5,x_1567F4564,FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(5),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_85) { P return_; P x_1565F4569; P x_1565F4568; P x_1565F4567; P x_1565F4566; P x_1566F4565; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1566_84,6); x_1566F4565 = T8; FUNINIT(x_1566F4565, 6,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),return_); x_1565F4566 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1565F4566,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1565F4566,LITREF(lit_198),x_1566F4565); x_1565F4567 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1565F4567,x_1566F4565); x_1565F4568 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1565F4568,x_1566F4565); T4 = CALL1(1,VARREF(Ytail),x_1565F4567); x_1565F4569 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1565F4569,x_1566F4565); } else { T6 = CALL2(1,x_1566F4565,LITREF(lit_70),x_1565F4566); } T7 = CALL2(1,VARREF(YgooSconditionsYlist_handlers),VARREF(YgooSconditionsYLconditionG),VARREF(YgooSioSportYout)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1563_86) { P msg_,args_; P x_1564F4570; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1564F4570 = FREEREF(0); T2 = FUNFAB(fun_85,5,x_1564F4570,FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(5),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_87) { P return_; P x_1562F4575; P x_1562F4574; P x_1562F4573; P x_1562F4572; P x_1563F4571; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1563_86,6); x_1563F4571 = T8; FUNINIT(x_1563F4571, 6,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),return_); x_1562F4572 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1562F4572,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1562F4572,LITREF(lit_199),x_1563F4571); x_1562F4573 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1562F4573,x_1563F4571); x_1562F4574 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1562F4574,x_1563F4571); T4 = CALL1(1,VARREF(Ytail),x_1562F4573); x_1562F4575 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1562F4575,x_1563F4571); } else { T6 = CALL2(1,x_1563F4571,LITREF(lit_70),x_1562F4572); } T7 = CALL1(0,FREEREF(5),YPfalse); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1560_88) { P msg_,args_; P x_1561F4576; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1561F4576 = FREEREF(0); T2 = FUNFAB(fun_87,6,x_1561F4576,FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(5)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(6),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_89) { P return_; P x_1559F4581; P x_1559F4580; P x_1559F4579; P x_1559F4578; P x_1560F4577; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1560_88,7); x_1560F4577 = T8; FUNINIT(x_1560F4577, 7,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(5),return_); x_1559F4578 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1559F4578,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1559F4578,LITREF(lit_200),x_1560F4577); x_1559F4579 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1559F4579,x_1560F4577); x_1559F4580 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1559F4580,x_1560F4577); T4 = CALL1(1,VARREF(Ytail),x_1559F4579); x_1559F4581 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1559F4581,x_1560F4577); } else { T6 = CALL2(1,x_1560F4577,LITREF(lit_70),x_1559F4578); } T7 = CALL1(0,FREEREF(6),YPfalse); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_x_1557_90) { P msg_,args_; P x_1558F4582; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1558F4582 = FREEREF(0); T2 = FUNFAB(fun_89,7,x_1558F4582,FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(5),FREEREF(6)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(7),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_91) { P return_; P x_1556F4587; P x_1556F4586; P x_1556F4585; P x_1556F4584; P x_1557F4583; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = FUNSHELL(0,fun_x_1557_90,8); x_1557F4583 = T8; FUNINIT(x_1557F4583, 8,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(5),FREEREF(6),return_); x_1556F4584 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1556F4584,VARREF(YLlstG)); if (T0 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1556F4584,LITREF(lit_201),x_1557F4583); x_1556F4585 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1556F4585,x_1557F4583); x_1556F4586 = T3; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1556F4586,x_1557F4583); T4 = CALL1(1,VARREF(Ytail),x_1556F4585); x_1556F4587 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1556F4587,x_1557F4583); } else { T6 = CALL2(1,x_1557F4583,LITREF(lit_70),x_1556F4584); } T7 = CALL1(0,FREEREF(7),YPfalse); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_92) { P x_1555F4589; P formF4588; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); CALL1(1,VARREF(YgooSioSportYnewline),VARREF(YgooSioSportYout)); T0 = BOXGET(FREEREF(0)); if (T0 != YPfalse) { CALL2(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_138)); T1 = CALL2(1,VARREF(YgooSconditionsYlist_handlers),VARREF(YgooSconditionsYLrestartG),VARREF(YgooSioSportYout)); BOXPUT(T1,FREEREF(1)); T2 = BOXPUT(YPfalse,FREEREF(0)); } else { } T9 = BOXGET(FREEREF(2)); T8 = CALL3(1,VARREF(YevalStopYprompt_for_command_expression),T9,FREEREF(3),LITREF(lit_139)); formF4588 = T8; T4 = CALL1(1,VARREF(YgooSchrYeof_objectQ),formF4588); if (T4 != YPfalse) { T5 = CALL1(1,FREEREF(4),YPfalse); T3 = T5; } else { x_1555F4589 = formF4588; T7 = FUNFAB(fun_91,8,x_1555F4589,formF4588,FREEREF(2),FREEREF(3),FREEREF(1),FREEREF(5),FREEREF(6),FREEREF(4)); T6 = with_exit(T7); T3 = T6; } UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_93) { P T0,T1,T2,T3,T4,T5; LINK_STACK(); T2 = CALL1(1,VARREF(Ylst),FREEREF(0)); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YgooSfunYhandler_info_message),LITREF(lit_136),VARREF(YgooSfunYhandler_info_arguments),T2); T3 = fun_60; T4 = FUNFAB(fun_61,1,FREEREF(1)); T5 = FUNFAB(fun_92,7,FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(0),FREEREF(5),FREEREF(6),FREEREF(7)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSconditionsYLrestartG),T1,T3,T4,T5); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_94) { P continue_; P T0,T1,T2,T3; LINK_STACK(); ARG(continue_, 0); T1 = fun_54; T2 = FUNFAB(fun_59,5,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),continue_); T3 = FUNFAB(fun_93,8,FREEREF(0),continue_,FREEREF(4),FREEREF(5),FREEREF(3),FREEREF(2),FREEREF(1),FREEREF(6)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSconditionsYLconditionG),VARREF(YgooSconditionsYDdefault_handler_info),T1,T2,T3); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_95) { P blow_; P T0,T1; LINK_STACK(); ARG(blow_, 0); LOOP_200: { T0 = FUNFAB(fun_94,7,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(5),blow_); with_exit(T0); goto LOOP_200; } UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_PPtopPPtop_in_96) { P level_,top_,quit_,show_restartsQ_,ct_env_; P restartsF4590; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(level_, 0); ARG(top_, 1); ARG(quit_, 2); ARG(show_restartsQ_, 3); ARG(ct_env_, 4); show_restartsQ_ = BOXFAB(show_restartsQ_); ct_env_ = BOXFAB(ct_env_); restartsF4590 = YPfalse; restartsF4590 = BOXFAB(restartsF4590); T4 = FUNFAB(fun_95,6,level_,top_,quit_,ct_env_,show_restartsQ_,restartsF4590); T3 = with_exit(T4); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_97) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_98) { P c_,r_; P T0; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_99) { P top_; P T0,T1; LINK_STACK(); ARG(top_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),FREEREF(1)); T0 = CALL5(1,VARREF(YevalStopYPPtopPPtop_in),YPint((P)0),top_,FREEREF(0),YPfalse,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_100) { P T0,T1; LINK_STACK(); LOOP_201: { T0 = FUNFAB(fun_99,2,FREEREF(0),FREEREF(1)); with_exit(T0); goto LOOP_201; } UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_101) { P quit_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(quit_, 0); T2 = CALL0(1,VARREF(Ylst)); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YgooSfunYhandler_info_message),LITREF(lit_205),VARREF(YgooSfunYhandler_info_arguments),T2); T3 = fun_97; T4 = FUNFAB(fun_98,1,quit_); T5 = FUNFAB(fun_100,2,quit_,FREEREF(0)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSconditionsYLrestartG),T1,T3,T4,T5); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_top_102) { P modname_; P T0,T1; LINK_STACK(); ARG(modname_, 0); T1 = FUNFAB(fun_101,1,modname_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_103) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YevalStopYtop),LITREF(lit_210)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStopYsave_image) { P image_name_; P T0,T1; LINK_STACK(); ARG(image_name_, 0); T1 = fun_103; T0 = CALL2(1,VARREF(Yunexec),image_name_,T1); UNLINK_STACK(); QRET(T0); } P YevalStopY___main_0___() { P tmpF4592; P modeF4591; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181,T182,T183,T184,T185,T186,T187,T188,T189,T190,T191; P T192,T193; DEFCREGS(); lit_0 = YPPsym((P)"esctst"); lit_1 = Ynil; lit_2 = YPPlist(1,YPPsym((P)"exit")); lit_3 = YPPsym((P)"exit"); lit_4 = YPsb((P)"CLEANUP\n"); lit_5 = YPPsym((P)"cleanup"); lit_6 = YPsb((P)"DO\n"); lit_7 = YPPsym((P)"done"); T3 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_0 = YPfab_met(FUNCODEREF(fun_0),T3,YPfalse,LITREF(lit_1),sloc(14),YPfalse); T2 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T2,YPfalse,LITREF(lit_1),sloc(15),YPfalse); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T1,YPfalse,LITREF(lit_2),sloc(13),YPfalse); T0 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YevalStopYesctst = YPfab_met(FUNCODEREF(YevalStopYesctst),T0,LITREF(lit_0),LITREF(lit_1),sloc(12),YPfalse); T4 = YevalStopYesctst; VARSET(YevalStopYesctst,T4); lit_8 = YPPsym((P)"g2c-eval"); lit_9 = YPPlist(2,YPPsym((P)"exp"),YPPsym((P)"ct-env")); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T5 = YPfab_gen(T6,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YevalStopYg2c_eval,T5); lit_10 = YPPsym((P)"parse-in"); lit_11 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"ct-env")); T9 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_4 = YPfab_met(FUNCODEREF(fun_4),T9,YPfalse,LITREF(lit_1),sloc(23),YPfalse); T8 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T8,YPfalse,LITREF(lit_1),sloc(23),YPfalse); T7 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_parse_in_6 = YPfab_met(FUNCODEREF(fun_parse_in_6),T7,LITREF(lit_10),LITREF(lit_11),sloc(22),YPfalse); T11 = VARREF_OR(YevalStopYparse_in,YPfalse); T12 = fun_parse_in_6; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YevalStopYparse_in,T10); lit_12 = YPPsym((P)"parse"); lit_13 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"modname")); T13 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_parse_7 = YPfab_met(FUNCODEREF(fun_parse_7),T13,LITREF(lit_12),LITREF(lit_13),sloc(26),YPfalse); T15 = VARREF_OR(YevalStopYparse,YPfalse); T16 = fun_parse_7; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YevalStopYparse,T14); lit_14 = YPPsym((P)"str-parse-in"); lit_15 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"ct-env")); lit_16 = YPsb((P)"%=\n"); T17 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_str_parse_in_8 = YPfab_met(FUNCODEREF(fun_str_parse_in_8),T17,LITREF(lit_14),LITREF(lit_15),sloc(29),YPfalse); T19 = VARREF_OR(YevalStopYstr_parse_in,YPfalse); T20 = fun_str_parse_in_8; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YevalStopYstr_parse_in,T18); lit_17 = YPPsym((P)"str-parse"); lit_18 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"modname")); T21 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_str_parse_9 = YPfab_met(FUNCODEREF(fun_str_parse_9),T21,LITREF(lit_17),LITREF(lit_18),sloc(32),YPfalse); T23 = VARREF_OR(YevalStopYstr_parse,YPfalse); T24 = fun_str_parse_9; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YevalStopYstr_parse,T22); lit_19 = YPPsym((P)"vm-evaluate"); lit_20 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"env")); T26 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T25 = YPfab_gen(T26,LITREF(lit_19),LITREF(lit_20),YPfalse); VARSET(YevalStopYvm_evaluate,T25); lit_21 = YPPsym((P)"%%bottom%%vm-run"); lit_22 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"ct-env")); T27 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalStopYPPbottomPPvm_run = YPfab_met(FUNCODEREF(YevalStopYPPbottomPPvm_run),T27,LITREF(lit_21),LITREF(lit_22),sloc(37),YPfalse); T28 = YevalStopYPPbottomPPvm_run; VARSET(YevalStopYPPbottomPPvm_run,T28); lit_23 = YPPsym((P)"%%bottom%%ast-run"); lit_24 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"ct-env")); T29 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalStopYPPbottomPPast_run = YPfab_met(FUNCODEREF(YevalStopYPPbottomPPast_run),T29,LITREF(lit_23),LITREF(lit_24),sloc(40),YPfalse); T30 = YevalStopYPPbottomPPast_run; VARSET(YevalStopYPPbottomPPast_run,T30); lit_25 = YPPsym((P)"%%bottom%%g2c-run"); lit_26 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"ct-env")); T31 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalStopYPPbottomPPg2c_run = YPfab_met(FUNCODEREF(YevalStopYPPbottomPPg2c_run),T31,LITREF(lit_25),LITREF(lit_26),sloc(43),YPfalse); T32 = YevalStopYPPbottomPPg2c_run; VARSET(YevalStopYPPbottomPPg2c_run,T32); lit_27 = YPPsym((P)"auto-run"); lit_28 = YPPlist(2,YPPsym((P)"ast"),YPPsym((P)"ct-env")); T33 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalStopYauto_run = YPfab_met(FUNCODEREF(YevalStopYauto_run),T33,LITREF(lit_27),LITREF(lit_28),sloc(46),YPfalse); T34 = YevalStopYauto_run; VARSET(YevalStopYauto_run,T34); lit_29 = YPPsym((P)"auto-eval"); lit_30 = YPPlist(2,YPPsym((P)"form"),YPPsym((P)"ct-env")); T37 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T37,YPfalse,LITREF(lit_1),sloc(52),YPfalse); T36 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T36,YPfalse,LITREF(lit_1),sloc(52),YPfalse); T35 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalStopYauto_eval = YPfab_met(FUNCODEREF(YevalStopYauto_eval),T35,LITREF(lit_29),LITREF(lit_30),sloc(51),YPfalse); T38 = YevalStopYauto_eval; VARSET(YevalStopYauto_eval,T38); lit_31 = YPsb((P)"GOO_EVAL_MODE"); lit_32 = YPsb((P)"ast"); lit_33 = YPsb((P)"g2c"); T44 = XCALL1(1,VARREF(YgooSsystemYos_val),LITREF(lit_31)); modeF4591 = T44; T41 = XCALL2(1,VARREF(YgooScolsStabYcase_insensitive_string_equal),modeF4591,LITREF(lit_32)); T40 = XCALL1(1,VARREF(Ynot),T41); if (T40 != YPfalse) { T43 = XCALL2(1,VARREF(YgooScolsStabYcase_insensitive_string_equal),modeF4591,LITREF(lit_33)); tmpF4592 = T43; if (tmpF4592 != YPfalse) { T42 = tmpF4592; } else { T42 = YPtrue; } T39 = T42; } else { T39 = YPfalse; } VARSET(YevalStopYDg2c_evalQ,T39); if (VARREF(YevalStopYDg2c_evalQ) != YPfalse) { T45 = VARREF(YevalStopYauto_run); } else { T45 = VARREF(YevalStopYPPbottomPPast_run); } DYNDEFSET(YevalStopYrun,T45); lit_34 = YPPsym((P)"eval-in"); lit_35 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"ct-env")); T46 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_eval_in_17 = YPfab_met(FUNCODEREF(fun_eval_in_17),T46,LITREF(lit_34),LITREF(lit_35),sloc(65),YPfalse); T48 = VARREF_OR(YevalStopYeval_in,YPfalse); T49 = fun_eval_in_17; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YevalStopYeval_in,T47); lit_36 = YPPsym((P)"eval"); lit_37 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"modname")); T50 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_eval_18 = YPfab_met(FUNCODEREF(fun_eval_18),T50,LITREF(lit_36),LITREF(lit_37),sloc(70),YPfalse); T52 = VARREF_OR(YevalSsyntaxYeval,YPfalse); T53 = fun_eval_18; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YevalSsyntaxYeval,T51); lit_38 = YPPsym((P)"str-eval-in"); lit_39 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"ct-env")); T54 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_str_eval_in_19 = YPfab_met(FUNCODEREF(fun_str_eval_in_19),T54,LITREF(lit_38),LITREF(lit_39),sloc(73),YPfalse); T56 = VARREF_OR(YevalStopYstr_eval_in,YPfalse); T57 = fun_str_eval_in_19; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YevalStopYstr_eval_in,T55); lit_40 = YPPsym((P)"str-eval"); lit_41 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"modname")); T58 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_str_eval_20 = YPfab_met(FUNCODEREF(fun_str_eval_20),T58,LITREF(lit_40),LITREF(lit_41),sloc(76),YPfalse); T60 = VARREF_OR(YevalStopYstr_eval,YPfalse); T61 = fun_str_eval_20; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YevalStopYstr_eval,T59); lit_42 = YPPsym((P)"compiled-file?"); lit_43 = YPPlist(1,YPPsym((P)"name")); lit_44 = YPsb((P)".gooc"); T62 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalStopYcompiled_fileQ = YPfab_met(FUNCODEREF(YevalStopYcompiled_fileQ),T62,LITREF(lit_42),LITREF(lit_43),sloc(79),YPfalse); T63 = YevalStopYcompiled_fileQ; VARSET(YevalStopYcompiled_fileQ,T63); lit_45 = YPPsym((P)"read-file"); lit_46 = YPPlist(1,YPPsym((P)"filename")); T66 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T66,YPfalse,LITREF(lit_1),sloc(83),YPfalse); T65 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_23 = YPfab_met(FUNCODEREF(fun_23),T65,YPfalse,LITREF(lit_1),sloc(83),YPfalse); T64 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_read_file_24 = YPfab_met(FUNCODEREF(fun_read_file_24),T64,LITREF(lit_45),LITREF(lit_46),sloc(82),YPfalse); T68 = VARREF_OR(YevalStopYread_file,YPfalse); T69 = fun_read_file_24; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YevalStopYread_file,T67); lit_47 = YPPsym((P)"load-in"); lit_48 = YPPlist(2,YPPsym((P)"filename"),YPPsym((P)"ct-env")); T72 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_25 = YPfab_met(FUNCODEREF(fun_25),T72,YPfalse,LITREF(lit_1),sloc(93),YPfalse); T71 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T71,YPfalse,LITREF(lit_1),sloc(93),YPfalse); T70 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_load_in_27 = YPfab_met(FUNCODEREF(fun_load_in_27),T70,LITREF(lit_47),LITREF(lit_48),sloc(90),YPfalse); T74 = VARREF_OR(YevalSmoduleYload_in,YPfalse); T75 = fun_load_in_27; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalSmoduleYload_in,T73); lit_49 = YPPsym((P)"load-file"); lit_50 = YPPlist(2,YPPsym((P)"filename"),YPPsym((P)"modname")); T76 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_load_file_28 = YPfab_met(FUNCODEREF(fun_load_file_28),T76,LITREF(lit_49),LITREF(lit_50),sloc(102),YPfalse); T78 = VARREF_OR(YevalStopYload_file,YPfalse); T79 = fun_load_file_28; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalStopYload_file,T77); lit_51 = YPPsym((P)"load"); lit_52 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"modname")); T80 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_load_29 = YPfab_met(FUNCODEREF(fun_load_29),T80,LITREF(lit_51),LITREF(lit_52),sloc(105),YPfalse); T82 = VARREF_OR(YevalStopYload,YPfalse); T83 = fun_load_29; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalStopYload,T81); lit_53 = YPPsym((P)"prompt-for-command-expression"); lit_54 = YPPlist(3,YPPsym((P)"env"),YPPsym((P)"level"),YPPsym((P)"prompt")); lit_55 = YPsb((P)"%s %=%s"); lit_56 = YPPsym((P)"unquote"); lit_57 = YPsb((P)"("); lit_58 = YPsb((P)")"); lit_59 = YPsb((P)"cmd_"); T84 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_prompt_for_command_expression_30 = YPfab_met(FUNCODEREF(fun_prompt_for_command_expression_30),T84,LITREF(lit_53),LITREF(lit_54),sloc(111),YPfalse); T86 = VARREF_OR(YevalStopYprompt_for_command_expression,YPfalse); T87 = fun_prompt_for_command_expression_30; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalStopYprompt_for_command_expression,T85); lit_60 = YPPsym((P)"print-result-expression"); lit_61 = YPPlist(4,YPPsym((P)"env"),YPPsym((P)"level"),YPPsym((P)"label"),YPPsym((P)"result")); lit_62 = YPsb((P)"%s %=%s"); T88 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_print_result_expression_31 = YPfab_met(FUNCODEREF(fun_print_result_expression_31),T88,LITREF(lit_60),LITREF(lit_61),sloc(121),YPfalse); T90 = VARREF_OR(YevalStopYprint_result_expression,YPfalse); T91 = fun_print_result_expression_31; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YevalStopYprint_result_expression,T89); lit_63 = YPPsym((P)"do-stack-frames"); lit_64 = YPPlist(1,YPPsym((P)"fun")); T92 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_do_stack_frames_32 = YPfab_met(FUNCODEREF(fun_do_stack_frames_32),T92,LITREF(lit_63),LITREF(lit_64),sloc(125),YPfalse); T94 = VARREF_OR(YevalStopYdo_stack_frames,YPfalse); T95 = fun_do_stack_frames_32; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YevalStopYdo_stack_frames,T93); lit_65 = YPPlist(1,YPPsym((P)"exp")); lit_66 = YPPlist(1,YPPsym((P)"return")); lit_67 = YPPsym((P)"x-1548"); lit_68 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_69 = YPPsym((P)"for-frames"); lit_70 = YPsb((P)"Match Pattern Failure"); lit_71 = YPPsym((P)"let"); lit_72 = Ynil; lit_73 = YPPsym((P)"fun"); lit_74 = YPPsym((P)"_args"); lit_75 = YPPsym((P)"def"); lit_76 = YPPsym((P)"rev"); lit_77 = YPPsym((P)"incf"); T98 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1548_33 = YPfab_met(FUNCODEREF(fun_x_1548_33),T98,LITREF(lit_67),LITREF(lit_68),YPfalse,YPfalse); T97 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T97,YPfalse,LITREF(lit_66),YPfalse,YPfalse); T96 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_35 = YPfab_met(FUNCODEREF(fun_35),T96,YPfalse,LITREF(lit_65),YPfalse,YPfalse); T99 = fun_35; YPmacro(YPPsym((P)"eval/top"),YPPsym((P)"for-frames"),T99); lit_78 = YPPlist(1,YPPsym((P)"exp")); lit_79 = YPPlist(1,YPPsym((P)"return")); lit_80 = YPPsym((P)"x-1552"); lit_81 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_82 = YPPsym((P)"for-user-frames"); lit_83 = YPPsym((P)"esc"); lit_84 = YPPsym((P)"break"); lit_85 = YPPsym((P)"_seen-top"); lit_86 = YPPsym((P)"_top-num"); lit_87 = YPPsym((P)"_num"); lit_88 = YPPsym((P)"_name"); lit_89 = YPPsym((P)"if"); lit_90 = YPPsym((P)"fun-name"); lit_91 = YPPsym((P)"as"); lit_92 = YPPsym((P)""); lit_93 = YPsb((P)""); lit_94 = YPPsym((P)"-"); lit_95 = YPPsym((P)"when"); lit_96 = YPPsym((P)"prefix?"); lit_97 = YPsb((P)"%%bottom%%"); lit_98 = YPsb((P)"%%top%%"); lit_99 = YPPsym((P)"set"); lit_100 = YPPsym((P)"num"); T102 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1552_36 = YPfab_met(FUNCODEREF(fun_x_1552_36),T102,LITREF(lit_80),LITREF(lit_81),YPfalse,YPfalse); T101 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_37 = YPfab_met(FUNCODEREF(fun_37),T101,YPfalse,LITREF(lit_79),YPfalse,YPfalse); T100 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_38 = YPfab_met(FUNCODEREF(fun_38),T100,YPfalse,LITREF(lit_78),YPfalse,YPfalse); T103 = fun_38; YPmacro(YPPsym((P)"eval/top"),YPPsym((P)"for-user-frames"),T103); lit_101 = YPPsym((P)"msg-src-loc"); lit_102 = YPPlist(1,YPPsym((P)"f")); lit_103 = YPsb((P)" %s:%d"); T104 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_msg_src_loc_39 = YPfab_met(FUNCODEREF(fun_msg_src_loc_39),T104,LITREF(lit_101),LITREF(lit_102),sloc(148),YPfalse); T106 = VARREF_OR(YevalStopYmsg_src_loc,YPfalse); T107 = fun_msg_src_loc_39; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YevalStopYmsg_src_loc,T105); lit_104 = YPPsym((P)"backtrace"); lit_105 = YPPlist(1,YPPsym((P)"break")); lit_106 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"_args")); lit_107 = YPsb((P)"[%=] %= %="); T110 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_40 = YPfab_met(FUNCODEREF(fun_40),T110,YPfalse,LITREF(lit_106),sloc(155),YPfalse); T109 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_41 = YPfab_met(FUNCODEREF(fun_41),T109,YPfalse,LITREF(lit_105),sloc(155),YPfalse); T108 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_backtrace_42 = YPfab_met(FUNCODEREF(fun_backtrace_42),T108,LITREF(lit_104),LITREF(lit_1),sloc(154),YPfalse); T112 = VARREF_OR(YevalStopYbacktrace,YPfalse); T113 = fun_backtrace_42; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YevalStopYbacktrace,T111); lit_108 = YPPsym((P)"frame"); lit_109 = YPPlist(1,YPPsym((P)"n")); lit_110 = YPPlist(1,YPPsym((P)"break")); lit_111 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"_args")); lit_112 = YPsb((P)"[%=] %= %="); T116 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_43 = YPfab_met(FUNCODEREF(fun_43),T116,YPfalse,LITREF(lit_111),sloc(159),YPfalse); T115 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T115,YPfalse,LITREF(lit_110),sloc(159),YPfalse); T114 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_frame_45 = YPfab_met(FUNCODEREF(fun_frame_45),T114,LITREF(lit_108),LITREF(lit_109),sloc(158),YPfalse); T118 = VARREF_OR(YevalStopYframe,YPfalse); T119 = fun_frame_45; T117 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T118,T119); VARSET(YevalStopYframe,T117); lit_113 = YPPsym((P)"frame-var"); lit_114 = YPPlist(2,YPPsym((P)"n"),YPPsym((P)"name")); lit_115 = YPPlist(1,YPPsym((P)"ret")); lit_116 = YPPlist(1,YPPsym((P)"break")); lit_117 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"_args")); T123 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_46 = YPfab_met(FUNCODEREF(fun_46),T123,YPfalse,LITREF(lit_117),sloc(165),YPfalse); T122 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_47 = YPfab_met(FUNCODEREF(fun_47),T122,YPfalse,LITREF(lit_116),sloc(165),YPfalse); T121 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_48 = YPfab_met(FUNCODEREF(fun_48),T121,YPfalse,LITREF(lit_115),sloc(164),YPfalse); T120 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_frame_var_49 = YPfab_met(FUNCODEREF(fun_frame_var_49),T120,LITREF(lit_113),LITREF(lit_114),sloc(163),YPfalse); T125 = VARREF_OR(YevalStopYframe_var,YPfalse); T126 = fun_frame_var_49; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YevalStopYframe_var,T124); lit_118 = YPPsym((P)"bt"); lit_119 = YPPlist(1,YPPsym((P)"break")); lit_120 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"_args")); lit_121 = YPsb((P)"[%=] %="); T129 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_50 = YPfab_met(FUNCODEREF(fun_50),T129,YPfalse,LITREF(lit_120),sloc(172),YPfalse); T128 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_51 = YPfab_met(FUNCODEREF(fun_51),T128,YPfalse,LITREF(lit_119),sloc(172),YPfalse); T127 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_bt_52 = YPfab_met(FUNCODEREF(fun_bt_52),T127,LITREF(lit_118),LITREF(lit_1),sloc(171),YPfalse); T131 = VARREF_OR(YevalStopYbt,YPfalse); T132 = fun_bt_52; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YevalStopYbt,T130); lit_122 = YPPsym((P)"do-restart"); lit_123 = YPPlist(2,YPPsym((P)"restarts"),YPPsym((P)"n")); lit_124 = YPsb((P)"No restarts available.\n"); lit_125 = YPsb((P)"No restart #%d.\n"); T133 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YevalStopYdo_restart = YPfab_met(FUNCODEREF(YevalStopYdo_restart),T133,LITREF(lit_122),LITREF(lit_123),sloc(175),YPfalse); T134 = YevalStopYdo_restart; VARSET(YevalStopYdo_restart,T134); VARSET(YevalStopYD,YPfalse); VARSET(YevalStopYDD,YPfalse); VARSET(YevalStopYDDD,YPfalse); lit_126 = YPPsym((P)"%%top%%top-in"); lit_127 = YPPlist(5,YPPsym((P)"level"),YPPsym((P)"top"),YPPsym((P)"quit"),YPPsym((P)"show-restarts?"),YPPsym((P)"ct-env")); lit_128 = YPPlist(1,YPPsym((P)"blow")); lit_129 = YPPlist(1,YPPsym((P)"continue")); lit_130 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); lit_131 = YPsb((P)"BREAK"); lit_132 = YPPlist(1,YPPsym((P)"break")); lit_133 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); lit_134 = YPsb((P)""); lit_135 = YPsb((P)"ERROR: %s"); lit_136 = YPsb((P)"Return to interpreter level %d"); lit_137 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); lit_138 = YPsb((P)"Type \",restart N\" to restart execution:\n"); lit_139 = YPsb((P)"<= "); lit_140 = YPPlist(1,YPPsym((P)"return")); lit_141 = YPPsym((P)"x-1557"); lit_142 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_143 = YPPlist(1,YPPsym((P)"return")); lit_144 = YPPsym((P)"x-1560"); lit_145 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_146 = YPPlist(1,YPPsym((P)"return")); lit_147 = YPPsym((P)"x-1563"); lit_148 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_149 = YPPlist(1,YPPsym((P)"return")); lit_150 = YPPsym((P)"x-1566"); lit_151 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_152 = YPPlist(1,YPPsym((P)"return")); lit_153 = YPPsym((P)"x-1569"); lit_154 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_155 = YPPlist(1,YPPsym((P)"return")); lit_156 = YPPsym((P)"x-1572"); lit_157 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_158 = YPPlist(1,YPPsym((P)"return")); lit_159 = YPPsym((P)"x-1575"); lit_160 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_161 = YPPlist(1,YPPsym((P)"return")); lit_162 = YPPsym((P)"x-1578"); lit_163 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_164 = YPPlist(1,YPPsym((P)"return")); lit_165 = YPPsym((P)"x-1581"); lit_166 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_167 = YPPlist(1,YPPsym((P)"return")); lit_168 = YPPsym((P)"x-1584"); lit_169 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_170 = YPPlist(1,YPPsym((P)"return")); lit_171 = YPPsym((P)"x-1587"); lit_172 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_173 = YPPlist(1,YPPsym((P)"return")); lit_174 = YPPsym((P)"x-1590"); lit_175 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_176 = YPPlist(1,YPPsym((P)"return")); lit_177 = YPPsym((P)"x-1593"); lit_178 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_179 = YPPlist(1,YPPsym((P)"return")); lit_180 = YPPsym((P)"x-1596"); lit_181 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_182 = YPPlist(1,YPPsym((P)"return")); lit_183 = YPPsym((P)"x-1599"); lit_184 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_185 = YPsb((P)"=> "); lit_186 = YPPsym((P)"cmd_frame-var"); lit_187 = YPsb((P)"=> "); lit_188 = YPPsym((P)"cmd_frame"); lit_189 = YPPsym((P)"cmd_backtrace"); lit_190 = YPPsym((P)"cmd_bt"); lit_191 = YPPsym((P)"cmd_auto-eval"); lit_192 = YPPsym((P)"cmd_vm-eval"); lit_193 = YPPsym((P)"cmd_ast-eval"); lit_194 = YPPsym((P)"cmd_g2c-eval"); lit_195 = YPPsym((P)"cmd_in"); lit_196 = YPPsym((P)"cmd_restart"); lit_197 = YPPsym((P)"cmd_restarts"); lit_198 = YPPsym((P)"cmd_handlers"); lit_199 = YPPsym((P)"cmd_top"); lit_200 = YPPsym((P)"cmd_up"); lit_201 = YPPsym((P)"cmd_quit"); T177 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_54 = YPfab_met(FUNCODEREF(fun_54),T177,YPfalse,LITREF(lit_1),YPfalse,YPfalse); T176 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_55 = YPfab_met(FUNCODEREF(fun_55),T176,YPfalse,LITREF(lit_1),YPfalse,YPfalse); T175 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_56 = YPfab_met(FUNCODEREF(fun_56),T175,YPfalse,LITREF(lit_133),sloc(201),YPfalse); T174 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_57 = YPfab_met(FUNCODEREF(fun_57),T174,YPfalse,LITREF(lit_1),sloc(204),YPfalse); T173 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_58 = YPfab_met(FUNCODEREF(fun_58),T173,YPfalse,LITREF(lit_132),sloc(199),YPfalse); T172 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_59 = YPfab_met(FUNCODEREF(fun_59),T172,YPfalse,LITREF(lit_130),sloc(194),YPfalse); T171 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_60 = YPfab_met(FUNCODEREF(fun_60),T171,YPfalse,LITREF(lit_1),YPfalse,YPfalse); T170 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_61 = YPfab_met(FUNCODEREF(fun_61),T170,YPfalse,LITREF(lit_137),sloc(210),YPfalse); T169 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1599_62 = YPfab_met(FUNCODEREF(fun_x_1599_62),T169,LITREF(lit_183),LITREF(lit_184),YPfalse,YPfalse); T168 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_63 = YPfab_met(FUNCODEREF(fun_63),T168,YPfalse,LITREF(lit_182),YPfalse,YPfalse); T167 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1596_64 = YPfab_met(FUNCODEREF(fun_x_1596_64),T167,LITREF(lit_180),LITREF(lit_181),YPfalse,YPfalse); T166 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_65 = YPfab_met(FUNCODEREF(fun_65),T166,YPfalse,LITREF(lit_179),YPfalse,YPfalse); T165 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1593_66 = YPfab_met(FUNCODEREF(fun_x_1593_66),T165,LITREF(lit_177),LITREF(lit_178),YPfalse,YPfalse); T164 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_67 = YPfab_met(FUNCODEREF(fun_67),T164,YPfalse,LITREF(lit_176),YPfalse,YPfalse); T163 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1590_68 = YPfab_met(FUNCODEREF(fun_x_1590_68),T163,LITREF(lit_174),LITREF(lit_175),YPfalse,YPfalse); T162 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_69 = YPfab_met(FUNCODEREF(fun_69),T162,YPfalse,LITREF(lit_173),YPfalse,YPfalse); T161 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1587_70 = YPfab_met(FUNCODEREF(fun_x_1587_70),T161,LITREF(lit_171),LITREF(lit_172),YPfalse,YPfalse); T160 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_71 = YPfab_met(FUNCODEREF(fun_71),T160,YPfalse,LITREF(lit_170),YPfalse,YPfalse); T159 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1584_72 = YPfab_met(FUNCODEREF(fun_x_1584_72),T159,LITREF(lit_168),LITREF(lit_169),YPfalse,YPfalse); T158 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_73 = YPfab_met(FUNCODEREF(fun_73),T158,YPfalse,LITREF(lit_167),YPfalse,YPfalse); T157 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1581_74 = YPfab_met(FUNCODEREF(fun_x_1581_74),T157,LITREF(lit_165),LITREF(lit_166),YPfalse,YPfalse); T156 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_75 = YPfab_met(FUNCODEREF(fun_75),T156,YPfalse,LITREF(lit_164),YPfalse,YPfalse); T155 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1578_76 = YPfab_met(FUNCODEREF(fun_x_1578_76),T155,LITREF(lit_162),LITREF(lit_163),YPfalse,YPfalse); T154 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_77 = YPfab_met(FUNCODEREF(fun_77),T154,YPfalse,LITREF(lit_161),YPfalse,YPfalse); T153 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1575_78 = YPfab_met(FUNCODEREF(fun_x_1575_78),T153,LITREF(lit_159),LITREF(lit_160),YPfalse,YPfalse); T152 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_79 = YPfab_met(FUNCODEREF(fun_79),T152,YPfalse,LITREF(lit_158),YPfalse,YPfalse); T151 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1572_80 = YPfab_met(FUNCODEREF(fun_x_1572_80),T151,LITREF(lit_156),LITREF(lit_157),YPfalse,YPfalse); T150 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_81 = YPfab_met(FUNCODEREF(fun_81),T150,YPfalse,LITREF(lit_155),YPfalse,YPfalse); T149 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1569_82 = YPfab_met(FUNCODEREF(fun_x_1569_82),T149,LITREF(lit_153),LITREF(lit_154),YPfalse,YPfalse); T148 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_83 = YPfab_met(FUNCODEREF(fun_83),T148,YPfalse,LITREF(lit_152),YPfalse,YPfalse); T147 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1566_84 = YPfab_met(FUNCODEREF(fun_x_1566_84),T147,LITREF(lit_150),LITREF(lit_151),YPfalse,YPfalse); T146 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_85 = YPfab_met(FUNCODEREF(fun_85),T146,YPfalse,LITREF(lit_149),YPfalse,YPfalse); T145 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1563_86 = YPfab_met(FUNCODEREF(fun_x_1563_86),T145,LITREF(lit_147),LITREF(lit_148),YPfalse,YPfalse); T144 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_87 = YPfab_met(FUNCODEREF(fun_87),T144,YPfalse,LITREF(lit_146),YPfalse,YPfalse); T143 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1560_88 = YPfab_met(FUNCODEREF(fun_x_1560_88),T143,LITREF(lit_144),LITREF(lit_145),YPfalse,YPfalse); T142 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_89 = YPfab_met(FUNCODEREF(fun_89),T142,YPfalse,LITREF(lit_143),YPfalse,YPfalse); T141 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1557_90 = YPfab_met(FUNCODEREF(fun_x_1557_90),T141,LITREF(lit_141),LITREF(lit_142),YPfalse,YPfalse); T140 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_91 = YPfab_met(FUNCODEREF(fun_91),T140,YPfalse,LITREF(lit_140),YPfalse,YPfalse); T139 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_92 = YPfab_met(FUNCODEREF(fun_92),T139,YPfalse,LITREF(lit_1),sloc(211),YPfalse); T138 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_93 = YPfab_met(FUNCODEREF(fun_93),T138,YPfalse,LITREF(lit_1),sloc(256),YPfalse); T137 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_94 = YPfab_met(FUNCODEREF(fun_94),T137,YPfalse,LITREF(lit_129),sloc(192),YPfalse); T136 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_95 = YPfab_met(FUNCODEREF(fun_95),T136,YPfalse,LITREF(lit_128),sloc(190),YPfalse); T135 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); fun_PPtopPPtop_in_96 = YPfab_met(FUNCODEREF(fun_PPtopPPtop_in_96),T135,LITREF(lit_126),LITREF(lit_127),sloc(188),YPfalse); T179 = VARREF_OR(YevalStopYPPtopPPtop_in,YPfalse); T180 = fun_PPtopPPtop_in_96; T178 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T179,T180); VARSET(YevalStopYPPtopPPtop_in,T178); lit_202 = YPPsym((P)"top"); lit_203 = YPPlist(1,YPPsym((P)"modname")); lit_204 = YPPlist(1,YPPsym((P)"quit")); lit_205 = YPsb((P)"Exit the top-level interpreter"); lit_206 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); lit_207 = YPPlist(1,YPPsym((P)"top")); T186 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_97 = YPfab_met(FUNCODEREF(fun_97),T186,YPfalse,LITREF(lit_1),YPfalse,YPfalse); T185 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_98 = YPfab_met(FUNCODEREF(fun_98),T185,YPfalse,LITREF(lit_206),sloc(263),YPfalse); T184 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_99 = YPfab_met(FUNCODEREF(fun_99),T184,YPfalse,LITREF(lit_207),sloc(265),YPfalse); T183 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_100 = YPfab_met(FUNCODEREF(fun_100),T183,YPfalse,LITREF(lit_1),sloc(267),YPfalse); T182 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_101 = YPfab_met(FUNCODEREF(fun_101),T182,YPfalse,LITREF(lit_204),sloc(260),YPfalse); T181 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_top_102 = YPfab_met(FUNCODEREF(fun_top_102),T181,LITREF(lit_202),LITREF(lit_203),sloc(259),YPfalse); T188 = VARREF_OR(YevalStopYtop,YPfalse); T189 = fun_top_102; T187 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T188,T189); VARSET(YevalStopYtop,T187); lit_208 = YPPsym((P)"save-image"); lit_209 = YPPlist(1,YPPsym((P)"image-name")); lit_210 = YPPsym((P)"goo/user"); T191 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_103 = YPfab_met(FUNCODEREF(fun_103),T191,YPfalse,LITREF(lit_1),sloc(270),YPfalse); T190 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalStopYsave_image = YPfab_met(FUNCODEREF(YevalStopYsave_image),T190,LITREF(lit_208),LITREF(lit_209),sloc(269),YPfalse); T192 = YevalStopYsave_image; VARSET(YevalStopYsave_image,T192); T193 = YPfalse; return T193; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSsystem; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_evalSsyntax; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_evalSast_eval; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_evalSdependency; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSsystem}, {&module_info_gooSconditions}, {&module_info_evalSsyntax}, {&module_info_evalSast}, {&module_info_evalSast_eval}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"$sexpr-define-method-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSmodule, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"$sexpr-define-constant-tag", &module_info_evalSsyntax, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"c-inline-strs", &module_info_evalSast, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"sexpr-isa-parent", &module_info_evalSsyntax, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"sexpr-unwind-protect-protected-form", &module_info_evalSsyntax, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"$sexpr-set-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"build-condition-for-handler-interactively", &module_info_gooSconditions, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"$sexpr-unwind-protect-tag", &module_info_evalSsyntax, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"$sexpr-quasiquote-tag", &module_info_evalSsyntax, NULL}, {"sexpr-define-class?", &module_info_evalSsyntax, NULL}, {"function-value", &module_info_evalSast, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"sexpr-make-macro-function", &module_info_evalSsyntax, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"sexpr-isa-prop-inits", &module_info_evalSsyntax, NULL}, {"$sexpr-let-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"sexpr-prop-init?", &module_info_evalSsyntax, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"$sexpr-locals-tag", &module_info_evalSsyntax, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"label-components", &module_info_gooSsystem, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"sexpr-loc-bound-signatures", &module_info_evalSsyntax, NULL}, {"sexpr-loc-raw-body", &module_info_evalSsyntax, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sexpr-syntax-if-then", &module_info_evalSsyntax, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"default-handler-description", &module_info_gooSconditions, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"os-val", &module_info_gooSsystem, NULL}, {"sexpr-def-variable", &module_info_evalSsyntax, NULL}, {"sexpr-if-test", &module_info_evalSsyntax, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"sexpr-fab-setter-name", &module_info_evalSsyntax, NULL}, {"sexpr-let->combination", &module_info_evalSsyntax, NULL}, {"$sexpr-isa-tag", &module_info_evalSsyntax, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSsystem, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"exe-filename", &module_info_gooSsystem, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"pathname-to-components", &module_info_gooSsystem, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"$sexpr-iterate-tag", &module_info_evalSsyntax, NULL}, {"sexpr-monitor-expand", &module_info_evalSsyntax, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sexpr-variable-name", &module_info_evalSsyntax, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sexpr-bind-pattern-variables", &module_info_evalSsyntax, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"c-inline-expr?", &module_info_evalSast, NULL}, {"*goo-personal-root*", &module_info_gooSsystem, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"sexpr-make-anonymous-method", &module_info_evalSsyntax, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"$sexpr-define-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"*obj-extension*", &module_info_gooSsystem, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"sexpr-definition-variable", &module_info_evalSsyntax, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%binding-value-or", &module_info_evalSast_eval, NULL}, {"1-", &module_info_gooSmath, NULL}, {"sexpr-function-definition-variable", &module_info_evalSsyntax, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"sexpr-syntax-definition-variable", &module_info_evalSsyntax, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"find-goo-file-in-path", &module_info_gooSsystem, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"sexpr-variable?", &module_info_evalSsyntax, NULL}, {"dv", &module_info_gooSboot, NULL}, {"$sexpr-monitor-tag", &module_info_evalSsyntax, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"sexpr-def-value", &module_info_evalSsyntax, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"%false", &module_info_gooSboot, NULL}, {"components-to-pathname", &module_info_gooSsystem, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"parent-directory", &module_info_gooSsystem, NULL}, {"components-parent-directory", &module_info_gooSsystem, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"gooc-filename", &module_info_gooSsystem, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"*path-separator*", &module_info_gooSsystem, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-src-path", &module_info_gooSsystem, NULL}, {"sexpr-prop-name", &module_info_evalSsyntax, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"sexpr-make-begin", &module_info_evalSsyntax, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"*goo-build-root*", &module_info_gooSsystem, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"sexpr-method-signature", &module_info_evalSsyntax, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"file-copy", &module_info_gooSsystem, NULL}, {"os-name", &module_info_gooSsystem, NULL}, {"sexpr-text-of-quotation", &module_info_evalSsyntax, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"%load", &module_info_gooSsystem, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"obj-filename", &module_info_gooSsystem, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"sexpr-isa-init-values", &module_info_evalSsyntax, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"sexpr-sequence->begin", &module_info_evalSsyntax, NULL}, {"any?", &module_info_gooStypes, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"choose-handler", &module_info_gooSconditions, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"%binding-value-or-of", &module_info_evalSast_eval, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"find-goo-file-at", &module_info_gooSsystem, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%compile", &module_info_gooSsystem, NULL}, {"", &module_info_evalSast, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"sexpr-syntax-if-pattern", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"sexpr-operands", &module_info_evalSsyntax, NULL}, {"put", &module_info_gooSioSport, NULL}, {"sexpr-loc-bound-names", &module_info_evalSsyntax, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"sexpr-function-signature", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"%binding-value", &module_info_evalSast_eval, NULL}, {"add-build-path", &module_info_gooSsystem, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"sexpr-expand-backquote", &module_info_evalSsyntax, NULL}, {"sexpr-method-body", &module_info_evalSsyntax, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"sexpr-assignment-value", &module_info_evalSsyntax, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"module-c-forms", &module_info_evalSmodule, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"sexpr-make-application", &module_info_evalSsyntax, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"$sexpr-begin-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"sexpr-signature-parameters", &module_info_evalSsyntax, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-function-definition-adjectives", &module_info_evalSsyntax, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"$sexpr-prop-tag", &module_info_evalSsyntax, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"c-filename", &module_info_gooSsystem, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"sexpr-fab-setter", &module_info_evalSsyntax, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"c-inline-refs", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"sexpr-block-body", &module_info_evalSsyntax, NULL}, {"$sexpr-macro-expand-tag", &module_info_evalSsyntax, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"", &module_info_evalSast, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"*current-handlers*", &module_info_gooSconditions, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"application-function", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%binding-value-of", &module_info_evalSast_eval, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"program-type", &module_info_evalSast, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"*exe-extension*", &module_info_gooSsystem, NULL}, {"sexpr-prop-type", &module_info_evalSsyntax, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"sexpr-loc-bound-bodies", &module_info_evalSsyntax, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"time", &module_info_gooSsystem, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"$sexpr-define-function-tag", &module_info_evalSsyntax, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"sexpr-syntax-if-value", &module_info_evalSsyntax, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"*c-extension*", &module_info_gooSsystem, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"process-id", &module_info_gooSsystem, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"$sexpr-syntax-if-tag", &module_info_evalSsyntax, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"$sexpr-define-class-tag", &module_info_evalSsyntax, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"sexpr-isa-init-props", &module_info_evalSsyntax, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"describe-handler", &module_info_gooSconditions, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sexpr-iterate->loc", &module_info_evalSsyntax, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"file-type", &module_info_gooSsystem, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"%binding-value-setter", &module_info_evalSast_eval, NULL}, {"add-tmp-path", &module_info_gooSsystem, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"$sexpr-prop!-tag", &module_info_evalSsyntax, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"$sexpr-define-generic-tag", &module_info_evalSsyntax, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"", &module_info_evalSast, NULL}, {"sexpr-make-method", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSmodule, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"ds", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"eval", &module_info_evalSsyntax, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"function-source", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"sexpr-operator", &module_info_evalSsyntax, NULL}, {"*goo-extension*", &module_info_gooSsystem, NULL}, {"invoke-handler-interactively", &module_info_gooSconditions, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"components-basename", &module_info_gooSsystem, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"export", &module_info_gooSboot, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"$sexpr-method-tag", &module_info_evalSsyntax, NULL}, {"sexpr-signature-value", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"sexpr-def?", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"sexpr-if-else", &module_info_evalSsyntax, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"$sexpr-def-tag", &module_info_evalSsyntax, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"sexpr-unquote-splicing?", &module_info_evalSsyntax, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"sexpr-forward-primitive?", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSboot, NULL}, {"$sexpr-if-tag", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*goo-root*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSsystem, NULL}, {"", &module_info_evalSast, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"file-exists?", &module_info_gooSsystem, NULL}, {"sexpr-block-name", &module_info_evalSsyntax, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"sexpr-function-definition-value", &module_info_evalSsyntax, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"probe-directory", &module_info_gooSsystem, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sexpr-fab-getter", &module_info_evalSsyntax, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-prop-init-var", &module_info_evalSsyntax, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"build-condition-interactively", &module_info_gooSconditions, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"function-free", &module_info_evalSast, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"add-goo-personal-root-path", &module_info_gooSsystem, NULL}, {"*module-search-path*", &module_info_gooSsystem, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-unwind-protect-cleanup-forms", &module_info_evalSsyntax, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"dg", &module_info_gooSboot, NULL}, {"sexpr-assignment-variable", &module_info_evalSsyntax, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"even?", &module_info_gooSmath, NULL}, {"components-last", &module_info_gooSsystem, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"sexpr-definition-value", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"list-handlers", &module_info_gooSconditions, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"sexpr-function-body", &module_info_evalSsyntax, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-goo-root-path", &module_info_gooSsystem, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"create-directory", &module_info_gooSsystem, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"sexpr-variable-type", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"program-register", &module_info_evalSast, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"tan", &module_info_gooSmath, NULL}, {"%binding-value-of-setter", &module_info_evalSast_eval, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"sexpr-syntax-if-else", &module_info_evalSsyntax, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"program-line", &module_info_evalSast, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"$sexpr-define-syntax-tag", &module_info_evalSsyntax, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"sexpr-define-class-parents", &module_info_evalSsyntax, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"so-load", &module_info_gooSsystem, NULL}, {"os-val-setter", &module_info_gooSsystem, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"sexpr-if-then", &module_info_evalSsyntax, NULL}, {"function-body", &module_info_evalSast, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"sexpr-unquote?", &module_info_evalSsyntax, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"function-index", &module_info_evalSast, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"binding-value-or", &module_info_evalSast_eval, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"goo-filename", &module_info_gooSsystem, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSmodule, NULL}, {"$sexpr-bind-exit-tag", &module_info_evalSsyntax, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-names", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"hierarchical-components", &module_info_gooSsystem, NULL}, {"sexpr-syntax-definition-value", &module_info_evalSsyntax, NULL}, {"$sexpr-quote-tag", &module_info_evalSsyntax, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"sin", &module_info_gooSmath, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"file-mtime", &module_info_gooSsystem, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"sexpr-prop-init", &module_info_evalSsyntax, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sexpr-prop-owner", &module_info_evalSsyntax, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"backtrace", CVAR, &YevalStopYbacktrace}, {"auto-run", CVAR, &YevalStopYauto_run}, {"do-stack-frames", CVAR, &YevalStopYdo_stack_frames}, {"top", CVAR, &YevalStopYtop}, {"%%bottom%%g2c-run", CVAR, &YevalStopYPPbottomPPg2c_run}, {"auto-eval", CVAR, &YevalStopYauto_eval}, {"$", CVAR, &YevalStopYD}, {"load", CVAR, &YevalStopYload}, {"$g2c-eval?", CVAR, &YevalStopYDg2c_evalQ}, {"do-restart", CVAR, &YevalStopYdo_restart}, {"read-file", CVAR, &YevalStopYread_file}, {"str-parse-in", CVAR, &YevalStopYstr_parse_in}, {"$$$", CVAR, &YevalStopYDDD}, {"for-frames", PVAR, NULL}, {"msg-src-loc", CVAR, &YevalStopYmsg_src_loc}, {"parse-in", CVAR, &YevalStopYparse_in}, {"vm-evaluate", CVAR, &YevalStopYvm_evaluate}, {"esctst", CVAR, &YevalStopYesctst}, {"frame", CVAR, &YevalStopYframe}, {"run", DVAR, &YevalStopYrun}, {"$$", CVAR, &YevalStopYDD}, {"print-result-expression", CVAR, &YevalStopYprint_result_expression}, {"for-user-frames", PVAR, NULL}, {"str-eval-in", CVAR, &YevalStopYstr_eval_in}, {"compiled-file?", CVAR, &YevalStopYcompiled_fileQ}, {"frame-var", CVAR, &YevalStopYframe_var}, {"prompt-for-command-expression", CVAR, &YevalStopYprompt_for_command_expression}, {"load-file", CVAR, &YevalStopYload_file}, {"str-parse", CVAR, &YevalStopYstr_parse}, {"%%top%%top-in", CVAR, &YevalStopYPPtopPPtop_in}, {"save-image", CVAR, &YevalStopYsave_image}, {"---main-0---", PVAR, NULL}, {"bt", CVAR, &YevalStopYbt}, {"%%bottom%%vm-run", CVAR, &YevalStopYPPbottomPPvm_run}, {"%%bottom%%ast-run", CVAR, &YevalStopYPPbottomPPast_run}, {"g2c-eval", CVAR, &YevalStopYg2c_eval}, {"parse", CVAR, &YevalStopYparse}, {"str-eval", CVAR, &YevalStopYstr_eval}, {"eval-in", CVAR, &YevalStopYeval_in}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"save-image", NULL}, {"frame-var", NULL}, {"backtrace", NULL}, {"auto-eval", NULL}, {"top", NULL}, {"$", NULL}, {"load", NULL}, {"*dynamic-compilation?*", NULL}, {"read-file", NULL}, {"esctst", NULL}, {"parse-in", NULL}, {"$$$", NULL}, {"vm-evaluate", NULL}, {"$$", NULL}, {"frame", NULL}, {"eval", NULL}, {"g2c-eval", NULL}, {"load-file", NULL}, {"do-stack-frames", NULL}, {"bt", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalStop; MODULE_INFO module_info_evalStop = { "eval/top", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSsystem (void); extern void load_module_gooSconditions (void); extern void load_module_evalSsyntax (void); extern void load_module_evalSast (void); extern void load_module_evalSast_eval (void); /* EXPRESSION: */ extern void load_module_evalStop (void); void load_module_evalStop (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooSfun(); load_module_gooSsystem(); load_module_gooSconditions(); load_module_evalSsyntax(); load_module_evalSast(); load_module_evalSast_eval(); (P)YevalStopY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/eval/typist.c0100644000175000017500000060424407611107130015243 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"eval/typist"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: eval/typist */ EXT(Yclass_children,"goo/boot","class-children"); EXT(YLfloG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YevalSast_linearizeYreference_selfQ,"eval/ast-linearize","reference-self?"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(YevalSastYLprogramG,"eval/ast",""); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YevalSmoduleYLmodule_bindingG,"eval/module",""); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YevalSmoduleYroll_back_transaction,"eval/module","roll-back-transaction"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YevalSastYfunction_signature_setter,"eval/ast","function-signature-setter"); EXT(YevalSast_linearizeYLbox_writeG,"eval/ast-linearize",""); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooSioSreadYset_standard_read_macroX,"goo/io/read","set-standard-read-macro!"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YevalSastYapplication_binding,"eval/ast","application-binding"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YevalSastYassignment_binding,"eval/ast","assignment-binding"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YevalSastYobjectify_quotation,"eval/ast","objectify-quotation"); EXT(YevalSmoduleYload_module,"eval/module","load-module"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalSmoduleYmodule_data_processedQ,"eval/module","module-data-processed?"); EXT(YevalSmoduleYbinding_type,"eval/module","binding-type"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YevalSastYreference_frame_offset,"eval/ast","reference-frame-offset"); EXT(YevalSastYbinding_closed_overQ,"eval/ast","binding-closed-over?"); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YevalSmoduleYruntime_module_loader,"eval/module","runtime-module-loader"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YevalSmoduleYenvironment_next,"eval/module","environment-next"); EXT(YevalSmoduleYbinding_prop,"eval/module","binding-prop"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YevalSastYfix_let_bindings_setter,"eval/ast","fix-let-bindings-setter"); EXT(YevalSmoduleYframe_bindings,"eval/module","frame-bindings"); EXT(YevalSastYLfunctionsG,"eval/ast",""); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(Yassert_error,"goo/boot","assert-error"); DEF(YevalStypistYLactG,"eval/typist",""); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YevalSmoduleYbinding_locative,"eval/module","binding-locative"); EXT(YevalSastYlocals_bindings_setter,"eval/ast","locals-bindings-setter"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YevalSastYLlow_letG,"eval/ast",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YLpropG,"goo/boot",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); DEF(YevalStypistYtypeAopt_exp,"eval/typist","type+opt-exp"); DEF(YevalStypistYLfoldG,"eval/typist",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YevalSmoduleYprobe_module,"eval/module","probe-module"); EXT(YevalSastYsignature_naryQ,"eval/ast","signature-nary?"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YevalSastYLraw_constantG,"eval/ast",""); EXT(YLintG,"goo/boot",""); EXT(YevalSastYLast_signatureG,"eval/ast",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(Ysig_val,"goo/boot","sig-val"); DEF(YevalStypistYtype_state_acts,"eval/typist","type-state-acts"); EXT(YevalSastYassignment_form,"eval/ast","assignment-form"); EXT(YevalSastYLlocal_assignmentG,"eval/ast",""); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YevalSast_linearizeYprogram_definitions,"eval/ast-linearize","program-definitions"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YevalSmoduleYbinding_info_setter,"eval/module","binding-info-setter"); EXT(Ynot,"goo/boot","not"); EXT(YevalSmoduleYenvironment_uses_modules,"eval/module","environment-uses-modules"); EXT(YevalSoptimizeYsorted_applicable_methods_using_types,"eval/optimize","sorted-applicable-methods-using-types"); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YevalSmoduleYmodule_name_to_relpath,"eval/module","module-name-to-relpath"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(YevalSmoduleYLstatic_local_environmentG,"eval/module",""); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YLnumG,"goo/boot",""); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YPtnul,"goo/boot","%tnul"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YevalSastYmonitor_main_thunk,"eval/ast","monitor-main-thunk"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YevalSastYfunction_inlineableQ,"eval/ast","function-inlineable?"); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSioSreadYread_delimited_list,"goo/io/read","read-delimited-list"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YevalSmoduleYimport_and_mangle_globalX,"eval/module","import-and-mangle-global!"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YOrev,"goo/boot","@rev"); EXT(YevalSastYLpassive_programG,"eval/ast",""); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ylst,"goo/boot","lst"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YevalSastYfree_environment,"eval/ast","free-environment"); EXT(YgooSioSportYLportG,"goo/io/port",""); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YevalSastYast_define_binding,"eval/ast","ast-define-binding"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalSmoduleYinsert_globalsX,"eval/module","insert-globals!"); EXT(YevalSastYfunction_temporaries_setter,"eval/ast","function-temporaries-setter"); EXT(YevalSast_linearizeYflatten_seqs,"eval/ast-linearize","flatten-seqs"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YLunionG,"goo/boot",""); EXT(YevalSastYmonitor_type,"eval/ast","monitor-type"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YevalSastYcompile_time_program,"eval/ast","compile-time-program"); EXT(YevalSastYLglobal_referenceG,"eval/ast",""); EXT(YevalSmoduleYinsert_globalX,"eval/module","insert-global!"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YevalSastYfunction_signature,"eval/ast","function-signature"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YevalSmoduleYbinding_mangled_name,"eval/module","binding-mangled-name"); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YevalSastYbinding_value,"eval/ast","binding-value"); EXT(YevalSastYunwind_protect_protected_thunk,"eval/ast","unwind-protect-protected-thunk"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YevalSastYunwind_protect_cleanup_thunk,"eval/ast","unwind-protect-cleanup-thunk"); EXT(YevalSastYLbind_exitG,"eval/ast",""); EXT(Ytail_setter,"goo/boot","tail-setter"); DEF(YevalStypistYtype_exp,"eval/typist","type-exp"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YevalSastYbind_exit_lightQ,"eval/ast","bind-exit-light?"); EXT(YevalSastYboundQ_default,"eval/ast","bound?-default"); DEF(YevalStypistYsurgeryX,"eval/typist","surgery!"); EXT(YevalSastYLglobal_assignmentG,"eval/ast",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YevalSastYlocals_functions_setter,"eval/ast","locals-functions-setter"); EXT(YLchrG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YevalSastYlocals_body,"eval/ast","locals-body"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YevalSastYast_contains_funQ,"eval/ast","ast-contains-fun?"); DEF(YevalStypistYLfold_ifG,"eval/typist",""); EXT(YgooSioSreadYDchar_long_names,"goo/io/read","$char-long-names"); EXT(YevalSmoduleYexport_bindingX,"eval/module","export-binding!"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YevalSastYLboundQG,"eval/ast",""); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YevalSastYfunction_temporaries,"eval/ast","function-temporaries"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YevalSastYfunction_body_setter,"eval/ast","function-body-setter"); EXT(YevalSastYfix_let_types,"eval/ast","fix-let-types"); DEF(YevalStypistYprop_offset_in,"eval/typist","prop-offset-in"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YevalSmoduleYbinding_inferred_type,"eval/module","binding-inferred-type"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Ytail,"goo/boot","tail"); EXT(YevalSmoduleYLbindingG,"eval/module",""); EXT(YevalSmoduleYdo_module_loader_modules,"eval/module","do-module-loader-modules"); EXT(YLmagG,"goo/boot",""); EXT(YevalSastYbinding_dynamic_extentQ_setter,"eval/ast","binding-dynamic-extent?-setter"); EXT(YevalSastYfunction_debug_name_setter,"eval/ast","function-debug-name-setter"); DEF(YevalStypistYknown_callQ,"eval/typist","known-call?"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YevalSmoduleYdo_static_global_bindings,"eval/module","do-static-global-bindings"); EXT(YOtall2Q,"goo/boot","@tall2?"); DEF(YevalStypistYtype_infer_check,"eval/typist","type-infer-check"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLsingletonG,"goo/boot",""); DEF(YevalStypistYLfold_callG,"eval/typist",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YevalSastYLregular_applicationG,"eval/ast",""); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YOnew,"goo/boot","@new"); EXT(YevalSmoduleYmodule_uses_c_includes,"eval/module","module-uses-c-includes"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); DEF(YevalStypistYLprop_accessG,"eval/typist",""); EXT(YevalSastYfix_let_arguments_setter,"eval/ast","fix-let-arguments-setter"); EXT(YevalSastYfix_let_arguments,"eval/ast","fix-let-arguments"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YevalSastYfix_let_body,"eval/ast","fix-let-body"); EXT(YevalSast_linearizeYliftX,"eval/ast-linearize","lift!"); DEF(YevalStypistYmem_act,"eval/typist","mem-act"); EXT(YevalSastYfix_let_body_setter,"eval/ast","fix-let-body-setter"); EXT(YOanyQ,"goo/boot","@any?"); DEF(YevalStypistYtype_infer_all,"eval/typist","type-infer-all"); EXT(YevalSast_linearizeYLclosure_creationG,"eval/ast-linearize",""); EXT(YevalSastYast_walkX,"eval/ast","ast-walk!"); EXT(YevalSast_linearizeYprogram_bindings,"eval/ast-linearize","program-bindings"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YevalSastYassignment_form_setter,"eval/ast","assignment-form-setter"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); DEF(YevalStypistYtype_infer_binding,"eval/typist","type-infer-binding"); EXT(YevalSastYbinding_dynamic_extentQ,"eval/ast","binding-dynamic-extent?"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); DEF(YevalStypistYLknow_callG,"eval/typist",""); DEF(YevalStypistYtype_union,"eval/typist","type-union"); EXT(YLopts_tupG,"goo/boot",""); EXT(YevalSast_linearizeYform_definitions,"eval/ast-linearize","form-definitions"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YevalSastYloop_body_setter,"eval/ast","loop-body-setter"); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YevalSastYLast_primitive_definitionG,"eval/ast",""); EXT(YLboxG,"goo/boot",""); EXT(YevalSastYfix_let_bindings,"eval/ast","fix-let-bindings"); EXT(YevalSastYfunction_ref_count_setter,"eval/ast","function-ref-count-setter"); DEF(YevalStypistYact_sorted,"eval/typist","act-sorted"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YevalSoptimizeYtype_equivQ,"eval/optimize","type-equiv?"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YevalSmoduleYunchecked_runtime_environment,"eval/module","unchecked-runtime-environment"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YevalSastYreq_sig_specs,"eval/ast","req-sig-specs"); EXT(YevalSastYapplication_knownQ,"eval/ast","application-known?"); EXT(YevalSastYfunction_frame_len_setter,"eval/ast","function-frame-len-setter"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooScolsScolYnow,"goo/cols/col","now"); DEF(YevalStypistYact_off,"eval/typist","act-off"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YevalSastYfunction_arity,"eval/ast","function-arity"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YLlogG,"goo/boot",""); EXT(YevalSastYsignature_bindings_setter,"eval/ast","signature-bindings-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YevalSastYbinding_index_setter,"eval/ast","binding-index-setter"); EXT(YevalSastYprogram_type_setter,"eval/ast","program-type-setter"); EXT(YevalSmoduleYenvironment_bindings,"eval/module","environment-bindings"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YevalSast_linearizeYgather_temporariesX,"eval/ast-linearize","gather-temporaries!"); EXT(YevalSastYLapplicationG,"eval/ast",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YevalSastYLstatic_module_binding_referenceG,"eval/ast",""); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalSast_linearizeYLrenamed_local_bindingG,"eval/ast-linearize",""); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YevalSmoduleYinstall_initial_bindings,"eval/module","install-initial-bindings"); EXT(YevalSastYLlocal_bindingG,"eval/ast",""); EXT(YevalSmoduleYmodule_uses_c_files,"eval/module","module-uses-c-files"); DEF(YevalStypistYdo_type_infer,"eval/typist","do-type-infer"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YevalSastYboundQ_reference,"eval/ast","bound?-reference"); EXT(YevalSastYLloop_applicationG,"eval/ast",""); EXT(YOfold,"goo/boot","@fold"); EXT(YevalSmoduleYreport_undefined_global_bindings,"eval/module","report-undefined-global-bindings"); EXT(YLoptsG,"goo/boot",""); EXT(YevalSastYloop_continue,"eval/ast","loop-continue"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLanyG,"goo/boot",""); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YevalSast_linearizeYTregister_passiveQT,"eval/ast-linearize","*register-passive?*"); EXT(YgooStypesYas,"goo/types","as"); DEF(YevalStypistYmet_prop,"eval/typist","met-prop"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YevalSastYinit_ast,"eval/ast","init-ast"); EXT(YevalSastYas_lst,"eval/ast","as-lst"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YevalSmoduleYdo_named_static_global_bindings,"eval/module","do-named-static-global-bindings"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YevalSastYfab_g2c_module,"eval/ast","fab-g2c-module"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YevalSast_linearizeYclosure_creation_free,"eval/ast-linearize","closure-creation-free"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YevalSast_linearizeYprogram_quotations,"eval/ast-linearize","program-quotations"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YevalSastYLfab_listG,"eval/ast",""); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YevalSmoduleYreload_modules,"eval/module","reload-modules"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YevalSmoduleYmodule_referenced_bindings,"eval/module","module-referenced-bindings"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(YevalSastYobjectify_signature,"eval/ast","objectify-signature"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YevalSastYsequentialize,"eval/ast","sequentialize"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YevalSastYLconstantG,"eval/ast",""); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YevalSastYalternative_alternant,"eval/ast","alternative-alternant"); EXT(YevalSastYconstant_index,"eval/ast","constant-index"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YevalSmoduleYfab_static_global_environment,"eval/module","fab-static-global-environment"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YevalSastYloop_body,"eval/ast","loop-body"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(YevalSastYfunction_adjectives,"eval/ast","function-adjectives"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YevalSastYmonitor_test,"eval/ast","monitor-test"); EXT(YevalSastYLloopG,"eval/ast",""); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YevalSmoduleYbinding_freeQ_setter,"eval/module","binding-free?-setter"); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YevalSast_linearizeYclosurize_mainX,"eval/ast-linearize","closurize-main!"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YPtrue,"goo/boot","%true"); EXT(YevalSastYLalternativeG,"eval/ast",""); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YevalSastYlocals_bindings,"eval/ast","locals-bindings"); EXT(YevalSmoduleYenv_object_name,"eval/module","env-object-name"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YevalSastYalternative_consequent,"eval/ast","alternative-consequent"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YevalSmoduleYtransaction_register_dependent,"eval/module","transaction-register-dependent"); EXT(YevalSmoduleYregister_referenced_binding,"eval/module","register-referenced-binding"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YLgenG,"goo/boot",""); EXT(YevalSmoduleYimport_globalX,"eval/module","import-global!"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YevalSastYLfix_letG,"eval/ast",""); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YevalSastYreference_binding,"eval/ast","reference-binding"); EXT(YevalSmoduleYfab_subset_environment,"eval/module","fab-subset-environment"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YevalSast_linearizeYclosure_creation_index,"eval/ast-linearize","closure-creation-index"); DEF(YevalStypistYdync,"eval/typist","dync"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YevalSmoduleYruntime_environment,"eval/module","runtime-environment"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YevalSastYLlocal_referenceG,"eval/ast",""); EXT(YLclassG,"goo/boot",""); EXT(YevalSastYLcomputed_programG,"eval/ast",""); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YevalSastYLargumentsG,"eval/ast",""); EXT(YevalSmoduleYfind_static_global_environment,"eval/module","find-static-global-environment"); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YevalSastYLast_primitiveG,"eval/ast",""); EXT(YgooSmathYsinh,"goo/math","sinh"); DEF(YevalStypistYarity_checkQ,"eval/typist","arity-check?"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YevalSastYLimmediate_constantG,"eval/ast",""); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YevalSmoduleYLbinding_nameG,"eval/module",""); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YevalSastYfunction_index_setter,"eval/ast","function-index-setter"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YevalSmoduleYmodule_uses_c_libraries,"eval/module","module-uses-c-libraries"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YevalSmoduleYmodule_exports,"eval/module","module-exports"); EXT(YevalSastYprogram_register_setter,"eval/ast","program-register-setter"); EXT(YevalSastYfunction_loop,"eval/ast","function-loop"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YevalSastYlocals_body_setter,"eval/ast","locals-body-setter"); DEF(YevalStypistYLtype_stateG,"eval/typist",""); EXT(YevalSastYreference_called_functionQ,"eval/ast","reference-called-function?"); EXT(YevalSmoduleYmodule_runtime_data_setter,"eval/module","module-runtime-data-setter"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YevalSastYsignature_specs_setter,"eval/ast","signature-specs-setter"); DEF(YevalStypistYact_val,"eval/typist","act-val"); EXT(YevalSmoduleYbinding_global_box_setter,"eval/module","binding-global-box-setter"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YevalSastYLpredefined_applicationG,"eval/ast",""); EXT(YevalSmoduleYmodule_syntax_environment,"eval/module","module-syntax-environment"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YevalSastYsignature_names,"eval/ast","signature-names"); EXT(YevalSastYLruntime_assignmentG,"eval/ast",""); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(YgooSmagYmin,"goo/mag","min"); DEF(YevalStypistYtype_prop_access,"eval/typist","type-prop-access"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YevalSastYobjectify_with_subtransaction,"eval/ast","objectify-with-subtransaction"); EXT(YevalSastYloop_bindings_setter,"eval/ast","loop-bindings-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YevalSmoduleYbinding_native_toQ,"eval/module","binding-native-to?"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(YevalSastYLfree_environmentG,"eval/ast",""); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YevalSmoduleYmodule_mangled_string_name_setter,"eval/module","module-mangled-string-name-setter"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YevalSast_linearizeYLfree_referenceG,"eval/ast-linearize",""); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YevalSmoduleYwalk_bindings,"eval/module","walk-bindings"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YevalSastYLdynamic_assignmentG,"eval/ast",""); EXT(Yhead,"goo/boot","head"); EXT(YevalSastYLmagic_referenceG,"eval/ast",""); EXT(YevalSastYfunction_loop_setter,"eval/ast","function-loop-setter"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YevalSastYsignature_bindings,"eval/ast","signature-bindings"); EXT(YevalSastYprogram_type,"eval/ast","program-type"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YevalSast_linearizeYbox_form,"eval/ast-linearize","box-form"); EXT(YevalSastYbinding_dottedQ_setter,"eval/ast","binding-dotted?-setter"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YevalSmoduleYDgoo_boot_module_name,"eval/module","$goo-boot-module-name"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YevalSastYfunction_frame_len,"eval/ast","function-frame-len"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YevalSmoduleYfind_syntax_environment,"eval/module","find-syntax-environment"); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(YevalSastYfunction_registers_setter,"eval/ast","function-registers-setter"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YevalSastYLlocalsG,"eval/ast",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YevalSmoduleYenvironment_allows_foreign_namesQ,"eval/module","environment-allows-foreign-names?"); EXT(YevalSastYapplication_tailQ,"eval/ast","application-tail?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YevalSastYLmonitorG,"eval/ast",""); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YevalSmoduleYLstatic_environmentG,"eval/module",""); EXT(YevalSastYfunction_body,"eval/ast","function-body"); DEF(YevalStypistYtype_state_env,"eval/typist","type-state-env"); EXT(YevalSmoduleYfind_binding,"eval/module","find-binding"); EXT(YevalSmoduleYLstatic_global_environmentG,"eval/module",""); EXT(YevalSastYLmacro_referenceG,"eval/ast",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YevalSoptimizeYanalyze_calls,"eval/optimize","analyze-calls"); EXT(YevalSmoduleYnamespace_error,"eval/module","namespace-error"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YLtupG,"goo/boot",""); EXT(YevalSmoduleYmodule_target_environment,"eval/module","module-target-environment"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YevalSastYapplication_next_methods,"eval/ast","application-next-methods"); EXT(YevalSmoduleYbinding_info,"eval/module","binding-info"); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YevalSmoduleYbinding_module_name,"eval/module","binding-module-name"); DEF(YevalStypistYtype_known_met_call,"eval/typist","type-known-met-call"); EXT(YevalSastYLast_macro_definitionG,"eval/ast",""); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YisaQ,"goo/boot","isa?"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YevalSmoduleYbinding_kind,"eval/module","binding-kind"); EXT(YevalSastYLdefinitionG,"eval/ast",""); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YevalSastYassignment_reference,"eval/ast","assignment-reference"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YevalSmoduleYbinding_freeQ,"eval/module","binding-free?"); EXT(YevalSmoduleYregister_moduleX,"eval/module","register-module!"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YLflatG,"goo/boot",""); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YevalSmoduleYglobal_box_value_setter,"eval/module","global-box-value-setter"); EXT(YevalSmoduleYbinding_inferred_type_setter,"eval/module","binding-inferred-type-setter"); EXT(YevalSmoduleYLnamespace_errorG,"eval/module",""); EXT(YevalSmoduleYLglobal_boxG,"eval/module",""); EXT(YevalSmoduleYglobal_box_value,"eval/module","global-box-value"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YevalSastYLmethod_applicationG,"eval/ast",""); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YevalSastYLreal_referenceG,"eval/ast",""); EXT(YevalSastYsignature_arity_setter,"eval/ast","signature-arity-setter"); EXT(YevalSmoduleYmodule_loader_stack,"eval/module","module-loader-stack"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YevalSastYfunction_specs,"eval/ast","function-specs"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooSioSreadYget_standard_read_macro,"goo/io/read","get-standard-read-macro"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); DEF(YevalStypistYtype_infer,"eval/typist","type-infer"); EXT(YevalSmoduleYload_in,"eval/module","load-in"); EXT(YevalSmoduleYmodule_mangled_name_setter,"eval/module","module-mangled-name-setter"); EXT(YevalSastYalternative_condition,"eval/ast","alternative-condition"); EXT(YevalSastYfunction_source_setter,"eval/ast","function-source-setter"); EXT(YevalSastYsignature_arity,"eval/ast","signature-arity"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); DEF(YevalStypistYLdispatchG,"eval/typist",""); EXT(YevalSmoduleYset_module_environments,"eval/module","set-module-environments"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YevalSastYfunction_registers,"eval/ast","function-registers"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YevalSmoduleYcall_with_subtransaction,"eval/module","call-with-subtransaction"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YevalSmoduleYbinding_handler_setter,"eval/module","binding-handler-setter"); EXT(YevalSastYfunction_names,"eval/ast","function-names"); EXT(YevalSastYfunction_value,"eval/ast","function-value"); EXT(YevalSastYLast_methodG,"eval/ast",""); EXT(YevalSastYreference_frame_number,"eval/ast","reference-frame-number"); EXT(YevalSastYLprogramsG,"eval/ast",""); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(YevalSastYLast_embodied_functionG,"eval/ast",""); EXT(YevalSastYbinding_closed_overQ_setter,"eval/ast","binding-closed-over?-setter"); EXT(YevalSastYsignature_specs,"eval/ast","signature-specs"); EXT(YevalSmoduleYmodule_transaction,"eval/module","module-transaction"); EXT(YevalSastYinit_environment_for_eval,"eval/ast","init-environment-for-eval"); EXT(YevalSastYbind_exit_main_fun,"eval/ast","bind-exit-main-fun"); EXT(YevalSastYLast_genericG,"eval/ast",""); EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YLlstG,"goo/boot",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YevalSastYfunction_debug_name,"eval/ast","function-debug-name"); EXT(YevalSastYfunction_free_setter,"eval/ast","function-free-setter"); DEF(YevalStypistYLinline_callG,"eval/typist",""); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(YgooSmathYround,"goo/math","round"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YevalSastYLreferenceG,"eval/ast",""); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YevalSoptimizeYunconstrained_typeQ,"eval/optimize","unconstrained-type?"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YevalSastYLsequentialG,"eval/ast",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); DEF(YevalStypistYoptimize_method,"eval/typist","optimize-method"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YevalSast_linearizeYinsert_boxX,"eval/ast-linearize","insert-box!"); EXT(YLseqXG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YgooSmathYN,"goo/math","~"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YevalSast_linearizeYreference_offset,"eval/ast-linearize","reference-offset"); EXT(YevalSastYfunction_index,"eval/ast","function-index"); EXT(YevalSast_linearizeYLtop_level_formG,"eval/ast-linearize",""); EXT(YLfun_infoG,"goo/boot",""); EXT(YevalSastYsignature_value_setter,"eval/ast","signature-value-setter"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YevalSastYfunction_binding,"eval/ast","function-binding"); EXT(YevalSastYLast_functionG,"eval/ast",""); EXT(YevalSastYprogram_register,"eval/ast","program-register"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); DEF(YevalStypistYact_test,"eval/typist","act-test"); EXT(YevalSast_linearizeYregister_allocateX,"eval/ast-linearize","register-allocate!"); EXT(YPfalse,"goo/boot","%false"); EXT(YevalSastYbinding_value_setter,"eval/ast","binding-value-setter"); DEF(YevalStypistYtype_value,"eval/typist","type-value"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); DEF(YevalStypistYdo_surgeryX,"eval/typist","do-surgery!"); EXT(YevalSastYconstant_value,"eval/ast","constant-value"); EXT(YevalSast_linearizeYLbox_creationG,"eval/ast-linearize",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); EXT(YevalSastYsignature_names_setter,"eval/ast","signature-names-setter"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLseqIG,"goo/boot",""); EXT(YevalSmoduleYruntime_module,"eval/module","runtime-module"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YevalSastYLcompile_timeG,"eval/ast",""); EXT(YevalSastYLruntime_referenceG,"eval/ast",""); EXT(YevalSmoduleYmodule_mangled_string_name,"eval/module","module-mangled-string-name"); EXT(YevalSmoduleYzap_referenced_bindingsX,"eval/module","zap-referenced-bindings!"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YevalSmoduleYmodule_data_processedQ_setter,"eval/module","module-data-processed?-setter"); EXT(YevalSmoduleYLmoduleG,"eval/module",""); EXT(YevalSmoduleYbinding_type_setter,"eval/module","binding-type-setter"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YevalSmoduleYenvironment_module,"eval/module","environment-module"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YevalSastYapplication_loop,"eval/ast","application-loop"); EXT(YevalSmoduleYbinding_kind_setter,"eval/module","binding-kind-setter"); EXT(YevalSast_linearizeYextract_thingsX,"eval/ast-linearize","extract-things!"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YevalSastYmonitor_handler,"eval/ast","monitor-handler"); EXT(YevalSastYapplication_arguments,"eval/ast","application-arguments"); EXT(YevalSmoduleYbinding_prop_setter,"eval/module","binding-prop-setter"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLseqG,"goo/boot",""); EXT(YevalSastYbinding_mutableQ,"eval/ast","binding-mutable?"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YevalSdependencyYast_error,"eval/dependency","ast-error"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YevalSastYloop_bindings,"eval/ast","loop-bindings"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YevalSmoduleYbinding_locative_setter,"eval/module","binding-locative-setter"); EXT(YevalSmoduleYbinding_name,"eval/module","binding-name"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YevalSmoduleYtransaction_register_implemented_binding,"eval/module","transaction-register-implemented-binding"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YevalSmoduleYbinding_module,"eval/module","binding-module"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(YevalSmoduleYbinding_handler,"eval/module","binding-handler"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YevalSastYLmodule_binding_referenceG,"eval/ast",""); EXT(YevalSastYsignature_naryQ_setter,"eval/ast","signature-nary?-setter"); EXT(YevalSastYast_evaluate,"eval/ast","ast-evaluate"); EXT(YevalSmoduleYLstatic_nul_environmentG,"eval/module",""); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(YevalSast_linearizeYprogram_form,"eval/ast-linearize","program-form"); EXT(YevalSmoduleYmodule_runtime_data,"eval/module","module-runtime-data"); EXT(YevalSast_linearizeYform_program,"eval/ast-linearize","form-program"); DEF(YevalStypistYtype_intersection,"eval/typist","type-intersection"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalSmoduleYensure_module_data,"eval/module","ensure-module-data"); DYNEXT(YevalSmoduleYTcurrent_subtransactionT,"eval/module","*current-subtransaction*"); EXT(YevalSastYprogram_line,"eval/ast","program-line"); EXT(YOlit,"goo/boot","@lit"); EXT(Yas_error,"goo/boot","as-error"); EXT(YevalSmoduleYfind_environment_module,"eval/module","find-environment-module"); EXT(YevalSmoduleYremove_modules_by_nameX,"eval/module","remove-modules-by-name!"); EXT(YevalSastYfix_let_types_setter,"eval/ast","fix-let-types-setter"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YevalSastYapplication_function,"eval/ast","application-function"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YOpick,"goo/boot","@pick"); EXT(YtT,"goo/boot","t*"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YevalSastYfunction_ref_count,"eval/ast","function-ref-count"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalSmoduleYLmodule_loaderG,"eval/module",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YevalSmoduleYbinding_global_box,"eval/module","binding-global-box"); EXT(YevalSastYLassignmentG,"eval/ast",""); EXT(Yopts_count,"goo/boot","opts-count"); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YLfixnumG,"goo/boot",""); EXT(YevalSastYmonitor_info,"eval/ast","monitor-info"); EXT(YLproductG,"goo/boot",""); EXT(YLcolXG,"goo/boot",""); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YevalSastYbinding_dottedQ,"eval/ast","binding-dotted?"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YevalSoptimizeYpotentially_jointQ,"eval/optimize","potentially-joint?"); EXT(YevalSastYapplication_knownQ_setter,"eval/ast","application-known?-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YevalSmoduleYmodule_loader_module_type,"eval/module","module-loader-module-type"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YLcolG,"goo/boot",""); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YevalSastYprocess_closed_application,"eval/ast","process-closed-application"); EXT(YevalSastYast_walk,"eval/ast","ast-walk"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YevalSast_linearizeYLbox_readG,"eval/ast-linearize",""); EXT(YevalSast_linearizeYbox_reference,"eval/ast-linearize","box-reference"); DEF(YevalStypistYdynamic_compute_program,"eval/typist","dynamic-compute-program"); EXT(YevalSastYfunction_naryQ,"eval/ast","function-nary?"); EXT(YevalSmoduleYmodule_mangled_name,"eval/module","module-mangled-name"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YevalSmoduleYmodule_name,"eval/module","module-name"); EXT(YevalSmoduleYbinding_mangled_name_setter,"eval/module","binding-mangled-name-setter"); EXT(YLrepG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(YevalSastYreference_called_functionQ_setter,"eval/ast","reference-called-function?-setter"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YevalSast_evalYbinding_value_or,"eval/ast-eval","binding-value-or"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YevalSastYLunwind_protectG,"eval/ast",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YOrevX,"goo/boot","@rev!"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YevalSast_linearizeYform_quotations,"eval/ast-linearize","form-quotations"); EXT(Yrange_error,"goo/boot","range-error"); DEF(YevalStypistYcp,"eval/typist","cp"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YevalSastYloop_continue_setter,"eval/ast","loop-continue-setter"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YevalSmoduleYenvironment_module_loader,"eval/module","environment-module-loader"); EXT(YevalSastYPPPmacro,"eval/ast","%%%macro"); EXT(YLlocG,"goo/boot",""); EXT(YevalSastYbinding_index,"eval/ast","binding-index"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YevalSastYLdynamic_referenceG,"eval/ast",""); EXT(YevalSastYfunction_free,"eval/ast","function-free"); EXT(YevalSastYlocals_functions,"eval/ast","locals-functions"); EXT(YevalSastYfunction_bindings,"eval/ast","function-bindings"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YevalSastYsignature_value,"eval/ast","signature-value"); EXT(YevalSastYLdynamic_definitionG,"eval/ast",""); DEF(YevalStypistYall_prop_offsets,"eval/typist","all-prop-offsets"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YevalSastYfunction_source,"eval/ast","function-source"); EXT(YOmap,"goo/boot","@map"); EXT(YgooSmacrosYpair,"goo/macros","pair"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_92); DEFLIT(lit_108); DEFLIT(lit_45); DEFLIT(lit_81); DEFLIT(lit_124); DEFLIT(lit_85); DEFLIT(lit_32); DEFLIT(lit_91); DEFLIT(lit_94); DEFLIT(lit_126); DEFLIT(lit_71); DEFLIT(lit_89); DEFLIT(lit_121); DEFLIT(lit_14); DEFLIT(lit_74); DEFLIT(lit_73); DEFLIT(lit_88); DEFLIT(lit_35); DEFLIT(lit_51); DEFLIT(lit_75); DEFLIT(lit_93); DEFLIT(lit_16); DEFLIT(lit_57); DEFLIT(lit_70); DEFLIT(lit_54); DEFLIT(lit_6); DEFLIT(lit_40); DEFLIT(lit_66); DEFLIT(lit_59); DEFLIT(lit_38); DEFLIT(lit_11); DEFLIT(lit_116); DEFLIT(lit_101); DEFLIT(lit_25); DEFLIT(lit_10); DEFLIT(lit_29); DEFLIT(lit_105); DEFLIT(lit_53); DEFLIT(lit_27); DEFLIT(lit_86); DEFLIT(lit_64); DEFLIT(lit_9); DEFLIT(lit_78); DEFLIT(lit_47); DEFLIT(lit_50); DEFLIT(lit_20); DEFLIT(lit_8); DEFLIT(lit_7); DEFLIT(lit_102); DEFLIT(lit_79); DEFLIT(lit_28); DEFLIT(lit_68); DEFLIT(lit_26); DEFLIT(lit_67); DEFLIT(lit_4); DEFLIT(lit_18); DEFLIT(lit_109); DEFLIT(lit_42); DEFLIT(lit_123); DEFLIT(lit_65); DEFLIT(lit_56); DEFLIT(lit_99); DEFLIT(lit_61); DEFLIT(lit_63); DEFLIT(lit_23); DEFLIT(lit_129); DEFLIT(lit_31); DEFLIT(lit_95); DEFLIT(lit_5); DEFLIT(lit_128); DEFLIT(lit_58); DEFLIT(lit_120); DEFLIT(lit_127); DEFLIT(lit_80); DEFLIT(lit_1); DEFLIT(lit_24); DEFLIT(lit_100); DEFLIT(lit_3); DEFLIT(lit_103); DEFLIT(lit_41); DEFLIT(lit_30); DEFLIT(lit_96); DEFLIT(lit_19); DEFLIT(lit_33); DEFLIT(lit_12); DEFLIT(lit_46); DEFLIT(lit_69); DEFLIT(lit_48); DEFLIT(lit_34); DEFLIT(lit_130); DEFLIT(lit_43); DEFLIT(lit_122); DEFLIT(lit_76); DEFLIT(lit_117); DEFLIT(lit_60); DEFLIT(lit_107); DEFLIT(lit_39); DEFLIT(lit_15); DEFLIT(lit_21); DEFLIT(lit_111); DEFLIT(lit_22); DEFLIT(lit_113); DEFLIT(lit_37); DEFLIT(lit_118); DEFLIT(lit_52); DEFLIT(lit_115); DEFLIT(lit_125); DEFLIT(lit_55); DEFLIT(lit_106); DEFLIT(lit_112); DEFLIT(lit_83); DEFLIT(lit_0); DEFLIT(lit_77); DEFLIT(lit_104); DEFLIT(lit_98); DEFLIT(lit_49); DEFLIT(lit_110); DEFLIT(lit_90); DEFLIT(lit_17); DEFLIT(lit_2); DEFLIT(lit_97); DEFLIT(lit_87); DEFLIT(lit_84); DEFLIT(lit_44); DEFLIT(lit_72); DEFLIT(lit_62); DEFLIT(lit_13); DEFLIT(lit_82); DEFLIT(lit_36); DEFLIT(lit_119); DEFLIT(lit_114); /* FUNCTIONS: */ LOCFOR(fun_type_union_0); LOCFOR(fun_type_intersection_1); LOCFOR(fun_type_state_acts_2); LOCFOR(fun_3); LOCFOR(fun_type_state_env_4); LOCFOR(fun_act_sorted_5); LOCFOR(fun_act_test_6); LOCFOR(fun_act_val_7); LOCFOR(fun_act_off_8); LOCFOR(fun_act_val_9); LOCFOR(fun_mem_act_10); LOCFOR(fun_type_infer_check_11); LOCFOR(fun_type_infer_all_12); LOCFOR(fun_type_infer_13); LOCFOR(fun_do_type_infer_14); LOCFOR(fun_15); LOCFOR(fun_do_type_infer_16); LOCFOR(fun_do_type_infer_17); LOCFOR(fun_do_type_infer_18); LOCFOR(fun_type_infer_binding_19); LOCFOR(fun_type_infer_binding_20); LOCFOR(fun_type_value_21); LOCFOR(fun_type_value_22); LOCFOR(fun_type_infer_binding_23); LOCFOR(fun_do_type_infer_24); LOCFOR(fun_do_type_infer_25); LOCFOR(fun_do_type_infer_26); LOCFOR(fun_do_type_infer_27); LOCFOR(fun_do_type_infer_28); LOCFOR(fun_do_type_infer_29); LOCFOR(fun_30); LOCFOR(fun_do_type_infer_31); LOCFOR(fun_do_type_infer_32); LOCFOR(fun_subtypeQ_33); LOCFOR(fun_34); LOCFOR(fun_do_type_infer_35); LOCFOR(fun_36); LOCFOR(fun_recurse_37); LOCFOR(fun_38); LOCFOR(fun_39); LOCFOR(fun_do_type_infer_40); LOCFOR(fun_41); LOCFOR(fun_do_type_infer_42); LOCFOR(fun_43); LOCFOR(fun_do_type_infer_44); LOCFOR(fun_arity_checkQ_45); LOCFOR(fun_known_callQ_46); LOCFOR(fun_type_known_met_call_47); LOCFOR(fun_met_prop_48); FUNFOR(YevalStypistYprop_offset_in); LOCFOR(fun_50); LOCFOR(fun_all_prop_offsets_51); LOCFOR(fun_type_prop_access_52); LOCFOR(fun_53); LOCFOR(fun_54); LOCFOR(fun_do_type_infer_55); LOCFOR(fun_do_type_infer_56); LOCFOR(fun_do_type_infer_57); LOCFOR(fun_do_type_infer_58); LOCFOR(fun_surgeryX_59); LOCFOR(fun_do_surgeryX_60); LOCFOR(fun_do_surgeryX_61); LOCFOR(fun_do_surgeryX_62); LOCFOR(fun_do_surgeryX_63); LOCFOR(fun_do_surgeryX_64); LOCFOR(fun_do_surgeryX_65); LOCFOR(fun_do_surgeryX_66); LOCFOR(fun_surgeryX_67); LOCFOR(fun_surgeryX_68); FUNFOR(YevalStypistYtype_exp); FUNFOR(YevalStypistYtypeAopt_exp); LOCFOR(fun_dynamic_compute_program_71); LOCFOR(fun_optimize_method_72); extern P YevalStypistY___main_0___ (); extern P YevalStypistY___main_1___ (); /* FUNCTION CODES: */ LOCCODEDEF(fun_type_union_0) { P x_,y_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YsubtypeQ),x_,y_); if (T1 != YPfalse) { T0 = y_; } else { T3 = CALL2(1,VARREF(YsubtypeQ),y_,x_); if (T3 != YPfalse) { T2 = x_; } else { T5 = CALL2(1,VARREF(YisaQ),x_,VARREF(YLunionG)); if (T5 != YPfalse) { T8 = CALL2(1,VARREF(YisaQ),y_,VARREF(YLunionG)); if (T8 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmacrosYcat),x_,y_); T7 = T9; } else { T10 = CALL2(1,VARREF(YgooSmacrosYpair),y_,x_); T7 = T10; } T6 = CALL3(1,VARREF(Ynew),VARREF(YLunionG),VARREF(Yunion_elts),T7); T4 = T6; } else { if (YPtrue != YPfalse) { T14 = CALL2(1,VARREF(YisaQ),y_,VARREF(YLunionG)); if (T14 != YPfalse) { T15 = CALL2(1,VARREF(YgooSmacrosYpair),x_,y_); T13 = T15; } else { T16 = CALL2(1,VARREF(Ylst),x_,y_); T13 = T16; } T12 = CALL3(1,VARREF(Ynew),VARREF(YLunionG),VARREF(Yunion_elts),T13); T11 = T12; } else { T11 = YPfalse; } T4 = T11; } T2 = T4; } T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_intersection_1) { P x_,y_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YsubtypeQ),x_,y_); if (T1 != YPfalse) { T0 = x_; } else { T3 = CALL2(1,VARREF(YsubtypeQ),y_,x_); if (T3 != YPfalse) { T2 = y_; } else { if (YPtrue != YPfalse) { T4 = VARREF(YLanyG); } else { T4 = YPfalse; } T2 = T4; } T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_state_acts_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYtype_state_acts)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_state_env_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYtype_state_env)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_act_sorted_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYact_sorted)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_act_test_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYact_test)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_act_val_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYact_val)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_act_off_8) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYact_off)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_act_val_9) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YevalStypistYact_val)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_mem_act_10) { P s_,x_,act_; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(x_, 1); ARG(act_, 2); T1 = CALL1(1,VARREF(YevalStypistYtype_state_acts),s_); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),act_,T1,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_infer_check_11) { P a_,t_,s_; P typeF4649; P inferred_typeF4648; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(a_, 0); ARG(t_, 1); ARG(s_, 2); T4 = CALL2(1,VARREF(YevalStypistYtype_infer),a_,s_); inferred_typeF4648 = T4; T3 = CALL2(1,VARREF(YevalStypistYtype_infer),t_,s_); T2 = CALL1(1,VARREF(YevalStypistYtype_value),T3); typeF4649 = T2; CALL3(1,VARREF(YgooSioSwriteYpost),LITREF(lit_31),inferred_typeF4648,typeF4649); T1 = CALL2(1,VARREF(YsubtypeQ),inferred_typeF4648,typeF4649); if (T1 != YPfalse) { T0 = inferred_typeF4648; } else { T0 = typeF4649; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_infer_all_12) { P x_,r_; P sF4650; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(r_, 1); T1 = CALL3(1,VARREF(Ynew),VARREF(YevalStypistYLtype_stateG),VARREF(YevalStypistYtype_state_env),r_); sF4650 = T1; CALL2(1,VARREF(YevalStypistYtype_infer),x_,sF4650); T0 = CALL1(1,VARREF(YevalStypistYtype_state_acts),sF4650); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_infer_13) { P x_,s_; P resF4652; P UF4651; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_36),x_); T3 = CALL1(1,VARREF(YevalSastYprogram_type),x_); UF4651 = T3; T2 = CALL2(1,VARREF(YevalStypistYdo_type_infer),x_,s_); T1 = CALL2(1,VARREF(YevalStypistYtype_union),UF4651,T2); T0 = CALL2(1,VARREF(YevalSastYprogram_type_setter),T1,x_); resF4652 = T0; CALL3(1,VARREF(YgooSioSwriteYpost),LITREF(lit_37),x_,resF4652); UNLINK_STACK(); QRET(resF4652); } LOCCODEDEF(fun_do_type_infer_14) { P x_,s_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T1 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T0 = CALL3(1,VARREF(Yerror),LITREF(lit_40),T1,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_15) { P U1_; P T0; LINK_STACK(); ARG(U1_, 0); T0 = CALL2(1,VARREF(YevalStypistYtype_infer),U1_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_16) { P x_,s_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T0 = FUNFAB(fun_15,1,s_); CALL2(1,VARREF(YgooSmacrosYdo),T0,x_); T2 = CALL1(1,VARREF(YgooSmacrosYlast),x_); T1 = CALL1(1,VARREF(YevalSastYprogram_type),T2); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_do_type_infer_17) { P x_,s_; P x_1610F4654; P x_1609F4653; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T6 = CALL1(1,VARREF(YevalSastYconstant_value),x_); x_1609F4653 = T6; x_1610F4654 = VARREF(YisaQ); T1 = CALL2(1,x_1610F4654,x_1609F4653,VARREF(YLlogG)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YevalSastYconstant_value),x_); T2 = CALL1(1,VARREF(YgooStypesYtE),T3); T0 = T2; } else { T5 = CALL1(1,VARREF(YevalSastYconstant_value),x_); T4 = CALL1(1,VARREF(YgooSclassYclass_of),T5); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_18) { P x_,s_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T1 = CALL1(1,VARREF(YevalSastYassignment_form),x_); T0 = CALL2(1,VARREF(YevalStypistYtype_infer),T1,s_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_infer_binding_19) { P x_,s_; P tmpF4658; P x_1612F4657; P x_1611F4656; P valF4655; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T5 = CALL2(1,VARREF(YevalSast_evalYbinding_value_or),x_,YPfalse); valF4655 = T5; x_1611F4656 = valF4655; x_1612F4657 = VARREF(YisaQ); T3 = CALL2(1,x_1612F4657,x_1611F4656,VARREF(YLfunG)); tmpF4658 = T3; if (tmpF4658 != YPfalse) { T1 = tmpF4658; } else { T2 = CALL2(1,x_1612F4657,x_1611F4656,VARREF(YLtypeG)); T1 = T2; } if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YgooStypesYtE),valF4655); T0 = T4; } else { T0 = VARREF(YLanyG); } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_infer_binding_20) { P x_,s_; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); UNLINK_STACK(); QRET(VARREF(YLanyG)); } LOCCODEDEF(fun_type_value_21) { P t_; LINK_STACK(); ARG(t_, 0); UNLINK_STACK(); RET(VARREF(YLanyG)); } LOCCODEDEF(fun_type_value_22) { P t_; P T0; LINK_STACK(); ARG(t_, 0); T0 = CALL1(1,VARREF(Ytype_object),t_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_infer_binding_23) { P x_,s_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T1 = CALL1(1,VARREF(YevalSastYbinding_mutableQ),x_); if (T1 != YPfalse) { T0 = VARREF(YLanyG); } else { T3 = CALL1(1,VARREF(YevalSastYbinding_value),x_); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(YevalSastYbinding_value),x_); T4 = CALL1(1,VARREF(YgooStypesYtE),T5); T2 = T4; } else { if (YPtrue != YPfalse) { T7 = CALL1(1,VARREF(YevalSmoduleYbinding_inferred_type),x_); T6 = T7; } else { T6 = YPfalse; } T2 = T6; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_24) { P x_,s_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T1 = CALL1(1,VARREF(YevalSastYreference_binding),x_); T0 = CALL2(1,VARREF(YevalStypistYtype_infer_binding),T1,s_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_25) { P x_,s_; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); UNLINK_STACK(); QRET(VARREF(YLlogG)); } LOCCODEDEF(fun_do_type_infer_26) { P x_,s_; P T0; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T0 = CALL1(1,VARREF(YgooStypesYtE),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_27) { P x_,s_; P bF4660; P x_1613F4659; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T10 = CALL1(1,VARREF(YevalSastYfunction_bindings),x_); T9 = CALL1(1,VARREF(YgooScolsScolYenum),T10); x_1613F4659 = T9; LOOP_211: { P a211_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1613F4659); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),x_1613F4659); bF4660 = T8; T5 = CALL1(1,VARREF(YevalSmoduleYbinding_type),bF4660); T4 = CALL2(1,VARREF(YevalStypistYtype_infer),T5,s_); T3 = CALL1(1,VARREF(YevalStypistYtype_value),T4); CALL2(1,VARREF(YevalSmoduleYbinding_inferred_type_setter),T3,bF4660); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1613F4659); a211_0 = T7; x_1613F4659 = a211_0; goto LOOP_211; T0 = T6; } else { T0 = YPfalse; } } T11 = CALL1(1,VARREF(YevalSastYfunction_body),x_); CALL2(1,VARREF(YevalStypistYtype_infer),T11,s_); UNLINK_STACK(); QRET(VARREF(YLmetG)); } LOCCODEDEF(fun_do_type_infer_28) { P x_,s_; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); UNLINK_STACK(); QRET(VARREF(YLgenG)); } LOCCODEDEF(fun_do_type_infer_29) { P x_,s_; P test_typeF4661; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T20 = CALL1(1,VARREF(YevalSastYalternative_condition),x_); T19 = CALL2(1,VARREF(YevalStypistYtype_infer),T20,s_); test_typeF4661 = T19; T2 = CALL1(1,VARREF(YgooStypesYtE),YPfalse); T1 = CALL2(1,VARREF(YevalSoptimizeYtype_equivQ),test_typeF4661,T2); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(Ynew),VARREF(YevalStypistYLfold_ifG),VARREF(YevalStypistYact_test),YPfalse); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T3); T5 = CALL1(1,VARREF(YevalSastYalternative_alternant),x_); T4 = CALL2(1,VARREF(YevalStypistYtype_infer),T5,s_); T0 = T4; } else { T9 = CALL1(1,VARREF(YgooStypesYtE),YPfalse); T8 = CALL2(1,VARREF(YevalSoptimizeYpotentially_jointQ),test_typeF4661,T9); T7 = CALL1(1,VARREF(Ynot),T8); if (T7 != YPfalse) { T10 = CALL3(1,VARREF(Ynew),VARREF(YevalStypistYLfold_ifG),VARREF(YevalStypistYact_test),YPtrue); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T10); T12 = CALL1(1,VARREF(YevalSastYalternative_consequent),x_); T11 = CALL2(1,VARREF(YevalStypistYtype_infer),T12,s_); T6 = T11; } else { if (YPtrue != YPfalse) { T16 = CALL1(1,VARREF(YevalSastYalternative_consequent),x_); T15 = CALL2(1,VARREF(YevalStypistYtype_infer),T16,s_); T18 = CALL1(1,VARREF(YevalSastYalternative_alternant),x_); T17 = CALL2(1,VARREF(YevalStypistYtype_infer),T18,s_); T14 = CALL2(1,VARREF(YevalStypistYtype_union),T15,T17); T13 = T14; } else { T13 = YPfalse; } T6 = T13; } T0 = T6; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_30) { P U1_; P T0; LINK_STACK(); ARG(U1_, 0); T0 = CALL2(1,VARREF(YevalStypistYtype_infer),U1_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_31) { P x_,s_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T0 = FUNFAB(fun_30,1,s_); CALL2(1,VARREF(YgooSmacrosYdo),T0,x_); T2 = CALL1(1,VARREF(YgooSmacrosYlast),x_); T1 = CALL2(1,VARREF(YevalStypistYtype_infer),T2,s_); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_do_type_infer_32) { P x_,s_; P bindingF4669; P typeF4668; P argF4667; P tmpF4666; P tmpF4665; P x_1615F4664; P x_1616F4663; P x_1617F4662; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T20 = CALL1(1,VARREF(YevalSastYfix_let_arguments),x_); T19 = CALL1(1,VARREF(YgooScolsScolYenum),T20); x_1617F4662 = T19; T22 = CALL1(1,VARREF(YevalSastYfix_let_types),x_); T21 = CALL1(1,VARREF(YgooScolsScolYenum),T22); x_1616F4663 = T21; T24 = CALL1(1,VARREF(YevalSastYfix_let_bindings),x_); T23 = CALL1(1,VARREF(YgooScolsScolYenum),T24); x_1615F4664 = T23; LOOP_212: { P a212_0,a212_1,a212_2; T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1617F4662); tmpF4665 = T6; if (tmpF4665 != YPfalse) { T2 = tmpF4665; } else { T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1616F4663); tmpF4666 = T5; if (tmpF4666 != YPfalse) { T3 = tmpF4666; } else { T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1615F4664); T3 = T4; } T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T18 = CALL1(1,VARREF(YgooScolsScolYnow),x_1617F4662); argF4667 = T18; T17 = CALL1(1,VARREF(YgooScolsScolYnow),x_1616F4663); typeF4668 = T17; T16 = CALL1(1,VARREF(YgooScolsScolYnow),x_1615F4664); bindingF4669 = T16; T8 = CALL1(1,VARREF(YevalSastYbinding_mutableQ),bindingF4669); T7 = CALL1(1,VARREF(Ynot),T8); if (T7 != YPfalse) { T11 = CALL1(1,VARREF(YevalSmoduleYbinding_type),bindingF4669); T10 = CALL3(1,VARREF(YevalStypistYtype_infer_check),argF4667,T11,s_); T9 = CALL2(1,VARREF(YevalSmoduleYbinding_inferred_type_setter),T10,bindingF4669); } else { } T13 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1617F4662); T14 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1616F4663); T15 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1615F4664); a212_0 = T13; a212_1 = T14; a212_2 = T15; x_1617F4662 = a212_0; x_1616F4663 = a212_1; x_1615F4664 = a212_2; goto LOOP_212; T0 = T12; } else { T0 = YPfalse; } } T26 = CALL1(1,VARREF(YevalSastYfix_let_body),x_); T25 = CALL2(1,VARREF(YevalStypistYtype_infer),T26,s_); UNLINK_STACK(); QRET(T25); } LOCCODEDEF(fun_subtypeQ_33) { P x_,y_; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_34) { P U1_; P T0; LINK_STACK(); ARG(U1_, 0); T0 = CALL2(1,VARREF(YevalStypistYtype_infer),U1_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_35) { P x_,s_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T0 = FUNFAB(fun_34,1,s_); T1 = CALL1(1,VARREF(YevalSastYlocals_functions),x_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); T3 = CALL1(1,VARREF(YevalSastYlocals_body),x_); T2 = CALL2(1,VARREF(YevalStypistYtype_infer),T3,s_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_36) { P b_,a_; P UF4670; P T0,T1,T2; LINK_STACK(); ARG(b_, 0); ARG(a_, 1); T2 = CALL1(1,VARREF(YevalSmoduleYbinding_inferred_type),b_); UF4670 = T2; T1 = CALL2(1,VARREF(YevalStypistYtype_union),UF4670,a_); T0 = CALL2(1,VARREF(YevalSmoduleYbinding_inferred_type_setter),T1,b_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurse_37) { P arg_types_; P new_param_typesF4672; P param_typesF4671; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(arg_types_, 0); T9 = CALL1(1,VARREF(YevalSastYloop_bindings),FREEREF(0)); T8 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YevalSmoduleYbinding_inferred_type),T9); param_typesF4671 = T8; T6 = fun_36; T7 = CALL1(1,VARREF(YevalSastYloop_bindings),FREEREF(0)); T5 = CALL3(1,VARREF(YgooSmacrosYmap2),T6,T7,arg_types_); new_param_typesF4672 = T5; CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_70),param_typesF4671); CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_71),arg_types_); CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_72),new_param_typesF4672); T1 = CALL3(1,VARREF(YgooStypesYall2Q),VARREF(YevalSoptimizeYtype_equivQ),param_typesF4671,new_param_typesF4672); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YevalSastYprogram_type),FREEREF(0)); T0 = T2; } else { T4 = CALL1(1,VARREF(YevalSastYloop_body),FREEREF(0)); T3 = CALL2(1,VARREF(YevalStypistYtype_infer),T4,FREEREF(1)); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_38) { P T0,T1,T2; LINK_STACK(); T0 = FUNFAB(fun_recurse_37,2,FREEREF(0),FREEREF(1)); CALL2(1,VARREF(YevalSastYloop_continue_setter),T0,FREEREF(0)); T2 = CALL1(1,VARREF(YevalSastYloop_body),FREEREF(0)); T1 = CALL2(1,VARREF(YevalStypistYtype_infer),T2,FREEREF(1)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_39) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YevalSastYloop_continue_setter),FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_40) { P x_,s_; P x_1619F4673; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T3 = CALL1(1,VARREF(YevalSastYloop_continue),x_); x_1619F4673 = T3; T1 = FUNFAB(fun_38,2,x_,s_); T2 = FUNFAB(fun_39,2,x_1619F4673,x_); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_41) { P a_,b_; P T0,T1; LINK_STACK(); ARG(a_, 0); ARG(b_, 1); T1 = CALL1(1,VARREF(YevalSmoduleYbinding_type),b_); T0 = CALL3(1,VARREF(YevalStypistYtype_infer_check),a_,T1,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_42) { P x_,s_; P loopF4674; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T6 = CALL1(1,VARREF(YevalSastYapplication_loop),x_); loopF4674 = T6; T5 = CALL1(1,VARREF(YevalSastYloop_continue),loopF4674); T2 = FUNFAB(fun_41,1,s_); T3 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); T4 = CALL1(1,VARREF(YevalSastYloop_bindings),loopF4674); T1 = CALL3(1,VARREF(YgooSmacrosYmap2),T2,T3,T4); T0 = CALL1(1,T5,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_43) { P U1_; P T0; LINK_STACK(); ARG(U1_, 0); T0 = CALL2(1,VARREF(YevalStypistYtype_infer),U1_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_44) { P x_,s_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T0 = FUNFAB(fun_43,1,s_); T1 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); UNLINK_STACK(); QRET(VARREF(YLanyG)); } LOCCODEDEF(fun_arity_checkQ_45) { P naryQ_,arity_,x_,s_; P lenF4675; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(naryQ_, 0); ARG(arity_, 1); ARG(x_, 2); ARG(s_, 3); T4 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); T3 = CALL1(1,VARREF(YgooStypesYlen),T4); lenF4675 = T3; if (naryQ_ != YPfalse) { T1 = CALL2(1,VARREF(YgooSmagYGE),lenF4675,arity_); T0 = T1; } else { T2 = CALL2(1,VARREF(YgooSlogYE),lenF4675,arity_); T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_known_callQ_46) { P naryQ_,arity_,arg_types_,fun_types_,x_,s_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(naryQ_, 0); ARG(arity_, 1); ARG(arg_types_, 2); ARG(fun_types_, 3); ARG(x_, 4); ARG(s_, 5); T2 = CALL4(1,VARREF(YevalStypistYarity_checkQ),naryQ_,arity_,x_,s_); if (T2 != YPfalse) { T3 = CALL3(1,VARREF(YgooStypesYall2Q),VARREF(YsubtypeQ),arg_types_,fun_types_); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T4 = CALL1(1,VARREF(Ynew),VARREF(YevalStypistYLknow_callG)); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T4); T0 = YPtrue; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_known_met_call_47) { P x_,f_,nms_,s_; P cF4678; P fiF4677; P rF4676; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(x_, 0); ARG(f_, 1); ARG(nms_, 2); ARG(s_, 3); T1 = CALL1(1,VARREF(YgooSfunYfun_inlineableQ),f_); if (T1 != YPfalse) { T13 = CALL1(1,VARREF(YevalStypistYtype_state_env),s_); rF4676 = T13; T11 = CALL1(1,VARREF(YgooSfunYfun_src),f_); T10 = CALL1(1,VARREF(YgooSioSreadYread_from_string),T11); T12 = CALL1(1,VARREF(YevalStypistYtype_state_env),s_); T9 = CALL2(1,VARREF(YevalStypistYdynamic_compute_program),T10,T12); fiF4677 = T9; T7 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); T8 = CALL1(1,VARREF(YevalSastYapplication_tailQ),x_); T6 = CALL4(1,VARREF(YevalSastYprocess_closed_application),fiF4677,T7,rF4676,T8); cF4678 = T6; T2 = CALL3(1,VARREF(Ynew),VARREF(YevalStypistYLinline_callG),VARREF(YevalStypistYact_val),cF4678); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T2); T4 = CALL2(1,VARREF(YevalStypistYtype_infer),cF4678,s_); T5 = CALL1(1,VARREF(YgooSfunYfun_val),f_); T3 = CALL2(1,VARREF(YevalStypistYtype_intersection),T4,T5); T0 = T3; } else { T14 = CALL1(1,VARREF(Ynew),VARREF(YevalStypistYLknow_callG)); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T14); T15 = CALL1(1,VARREF(YgooSfunYfun_val),f_); T0 = T15; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_met_prop_48) { P m_; P xF4679; P T0; LINK_STACK(); ARG(m_, 0); xF4679 = m_; T0 = (P)YPprop_elt(xF4679,(P)3); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YevalStypistYprop_offset_in) { P t_,p_; P T0,T1; LINK_STACK(); ARG(t_, 0); ARG(p_, 1); T1 = CALL1(1,VARREF(Yclass_props),t_); T0 = CALL2(1,VARREF(YgooScolsSseqYpos),T1,p_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_50) { P U1_; P T0,T1; LINK_STACK(); ARG(U1_, 0); T1 = CALL2(1,VARREF(YevalStypistYprop_offset_in),U1_,FREEREF(0)); T0 = CALL2(1,VARREF(YgooSlogYE),T1,FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_all_prop_offsets_51) { P t_,p_; P offF4680; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(t_, 0); ARG(p_, 1); T4 = CALL2(1,VARREF(YevalStypistYprop_offset_in),t_,p_); offF4680 = T4; T2 = FUNFAB(fun_50,2,p_,offF4680); T3 = CALL1(1,VARREF(Yclass_children),t_); T1 = CALL2(1,VARREF(YgooScolsScolYallQ),T2,T3); if (T1 != YPfalse) { T0 = offF4680; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_prop_access_52) { P x_,g_,m_,s_; P offF4684; P typeF4683; P propF4682; P argsF4681; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(x_, 0); ARG(g_, 1); ARG(m_, 2); ARG(s_, 3); CALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_92)); T13 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); argsF4681 = T13; T12 = CALL1(1,VARREF(YevalStypistYmet_prop),m_); propF4682 = T12; T9 = CALL1(1,VARREF(YgooStypesYlen),argsF4681); T8 = CALL2(1,VARREF(YgooSlogYE),T9,YPint((P)1)); if (T8 != YPfalse) { T10 = CALL2(1,VARREF(YgooSmacrosYelt),argsF4681,YPint((P)0)); T7 = T10; } else { T11 = CALL2(1,VARREF(YgooSmacrosYelt),argsF4681,YPint((P)1)); T7 = T11; } T6 = CALL2(1,VARREF(YevalStypistYtype_infer),T7,s_); typeF4683 = T6; T5 = CALL2(1,VARREF(YevalStypistYall_prop_offsets),typeF4683,propF4682); offF4684 = T5; if (offF4684 != YPfalse) { CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_93),offF4684); T1 = CALL3(1,VARREF(Ynew),VARREF(YevalStypistYLprop_accessG),VARREF(YevalStypistYact_off),offF4684); T0 = CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T1); } else { T3 = CALL1(1,VARREF(Ynew),VARREF(YevalStypistYLknow_callG)); T2 = CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T3); } T4 = CALL1(1,VARREF(Yprop_type),propF4682); UNLINK_STACK(); RET(T4); } LOCCODEDEF(fun_53) { P U1_; P T0; LINK_STACK(); ARG(U1_, 0); T0 = CALL2(1,VARREF(YevalStypistYtype_infer),U1_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_54) { P U1_; P T0,T1; LINK_STACK(); ARG(U1_, 0); T1 = CALL2(1,VARREF(YevalStypistYtype_infer),U1_,FREEREF(0)); T0 = CALL1(1,VARREF(YevalStypistYtype_value),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_55) { P x_,s_; P fun_typesF4695; P tmpF4694; P othersF4693; P sortedF4692; P tup36F4691; P x_1621F4690; P x_1620F4689; P fF4688; P fun_typeF4687; P fnF4686; P arg_typesF4685; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); T56 = FUNFAB(fun_53,1,s_); T57 = CALL1(1,VARREF(YevalSastYapplication_arguments),x_); T55 = CALL2(1,VARREF(YgooSmacrosYmap),T56,T57); arg_typesF4685 = T55; T54 = CALL1(1,VARREF(YevalSastYapplication_function),x_); fnF4686 = T54; T53 = CALL2(1,VARREF(YevalStypistYtype_infer),fnF4686,s_); fun_typeF4687 = T53; T1 = CALL2(1,VARREF(YisaQ),fun_typeF4687,VARREF(YLsingletonG)); if (T1 != YPfalse) { T52 = CALL1(1,VARREF(Ytype_object),fun_typeF4687); fF4688 = T52; x_1620F4689 = fF4688; x_1621F4690 = VARREF(YisaQ); T3 = CALL2(1,x_1621F4690,x_1620F4689,VARREF(YLgenG)); if (T3 != YPfalse) { T6 = CALL1(1,VARREF(YgooSfunYfun_naryQ),fF4688); T7 = CALL1(1,VARREF(YgooSfunYfun_arity),fF4688); T5 = CALL4(1,VARREF(YevalStypistYarity_checkQ),T6,T7,x_,s_); if (T5 != YPfalse) { T29 = CALL1(1,VARREF(Yfun_mets),fF4688); T28 = CALL2(1,VARREF(YevalSoptimizeYsorted_applicable_methods_using_types),T29,arg_typesF4685); tup36F4691 = T28; T27 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4691,YPint((P)0)); sortedF4692 = T27; T26 = CALL2(1,VARREF(YgooSmacrosYelt),tup36F4691,YPint((P)1)); othersF4693 = T26; CALL5(1,VARREF(YgooSioSwriteYpost),LITREF(lit_96),fF4688,arg_typesF4685,sortedF4692,othersF4693); T12 = CALL1(1,VARREF(YgooSmacrosYnulQ),sortedF4692); tmpF4694 = T12; if (tmpF4694 != YPfalse) { T9 = tmpF4694; } else { T11 = CALL1(1,VARREF(YgooSmacrosYnulQ),othersF4693); T10 = CALL1(1,VARREF(Ynot),T11); T9 = T10; } if (T9 != YPfalse) { T13 = CALL1(1,VARREF(Ynew),VARREF(YevalStypistYLknow_callG)); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T13); T14 = CALL1(1,VARREF(YgooSfunYfun_val),fF4688); T8 = T14; } else { T18 = CALL1(1,VARREF(Yhead),sortedF4692); T17 = CALL1(1,VARREF(YevalStypistYmet_prop),T18); if (T17 != YPfalse) { T20 = CALL1(1,VARREF(Ytail),sortedF4692); T19 = CALL1(1,VARREF(YgooSmacrosYnulQ),T20); T16 = T19; } else { T16 = YPfalse; } if (T16 != YPfalse) { T22 = CALL1(1,VARREF(Yhead),sortedF4692); T21 = CALL4(1,VARREF(YevalStypistYtype_prop_access),x_,fF4688,T22,s_); T15 = T21; } else { CALL1(1,VARREF(YgooSioSwriteYpost),LITREF(lit_97)); T24 = CALL1(1,VARREF(Yhead),sortedF4692); T25 = CALL1(1,VARREF(Ytail),sortedF4692); T23 = CALL4(1,VARREF(YevalStypistYtype_known_met_call),x_,T24,T25,s_); T15 = T23; } T8 = T15; } T4 = T8; } else { T30 = CALL1(1,VARREF(YgooSfunYfun_val),fF4688); T4 = T30; } T2 = T4; } else { T32 = CALL2(1,x_1621F4690,x_1620F4689,VARREF(YevalSastYLast_methodG)); if (T32 != YPfalse) { T42 = FUNFAB(fun_54,1,s_); T43 = CALL1(1,VARREF(YevalSastYfunction_specs),fF4688); T41 = CALL2(1,VARREF(YgooSmacrosYmap),T42,T43); fun_typesF4695 = T41; T35 = CALL1(1,VARREF(YevalSastYfunction_naryQ),fF4688); T36 = CALL1(1,VARREF(YevalSastYfunction_arity),fF4688); T34 = CALLN(1,VARREF(YevalStypistYknown_callQ),6,T35,T36,arg_typesF4685,fun_typesF4695,x_,s_); if (T34 != YPfalse) { T37 = CALL1(1,VARREF(Ynew),VARREF(YevalStypistYLknow_callG)); CALL3(1,VARREF(YevalStypistYmem_act),s_,x_,T37); T40 = CALL1(1,VARREF(YevalSastYfunction_value),fF4688); T39 = CALL2(1,VARREF(YevalStypistYtype_infer),T40,s_); T38 = CALL1(1,VARREF(YevalStypistYtype_value),T39); T33 = T38; } else { T33 = VARREF(YLanyG); } T31 = T33; } else { T45 = CALL2(1,x_1621F4690,x_1620F4689,VARREF(YLfunG)); if (T45 != YPfalse) { T48 = CALL1(1,VARREF(YgooSfunYfun_naryQ),fF4688); T49 = CALL1(1,VARREF(YgooSfunYfun_arity),fF4688); T50 = CALL1(1,VARREF(YgooSfunYfun_specs),fF4688); T47 = CALLN(1,VARREF(YevalStypistYknown_callQ),6,T48,T49,arg_typesF4685,T50,x_,s_); if (T47 != YPfalse) { T51 = CALL4(1,VARREF(YevalStypistYtype_known_met_call),x_,fF4688,Ynil,s_); T46 = T51; } else { T46 = VARREF(YLanyG); } T44 = T46; } else { T44 = VARREF(YLanyG); } T31 = T44; } T2 = T31; } T0 = T2; } else { T0 = VARREF(YLanyG); } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_type_infer_56) { P x_,s_; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); UNLINK_STACK(); QRET(VARREF(YLanyG)); } LOCCODEDEF(fun_do_type_infer_57) { P x_,s_; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); UNLINK_STACK(); QRET(VARREF(YLanyG)); } LOCCODEDEF(fun_do_type_infer_58) { P x_,s_; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); UNLINK_STACK(); QRET(VARREF(YLanyG)); } LOCCODEDEF(fun_surgeryX_59) { P o_,acts_,r_; P T0; LINK_STACK(); ARG(o_, 0); ARG(acts_, 1); ARG(r_, 2); T0 = CALL4(1,VARREF(YevalSastYast_walkX),VARREF(YevalStypistYsurgeryX),o_,acts_,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_surgeryX_60) { P o_,act_,r_; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_do_surgeryX_61) { P o_,act_,r_; P metsF4696; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); T7 = CALL1(1,VARREF(YevalStypistYact_sorted),act_); metsF4696 = T7; T1 = CALL1(1,VARREF(YevalSastYapplication_arguments),o_); T3 = CALL1(1,VARREF(Yhead),metsF4696); T2 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),T3); T5 = CALL1(1,VARREF(Ytail),metsF4696); T4 = CALL3(1,VARREF(Ynew),VARREF(YevalSastYLconstantG),VARREF(YevalSastYconstant_value),T5); T6 = CALL1(1,VARREF(YevalSastYapplication_tailQ),o_); T0 = CALLN(1,VARREF(Ynew),9,VARREF(YevalSastYLmethod_applicationG),VARREF(YevalSastYapplication_arguments),T1,VARREF(YevalSastYapplication_function),T2,VARREF(YevalSastYapplication_next_methods),T4,VARREF(YevalSastYapplication_tailQ),T6); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_surgeryX_62) { P o_,act_,r_; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); T1 = CALL1(1,VARREF(YevalStypistYact_val),act_); T2 = CALL1(1,VARREF(YevalSastYapplication_tailQ),o_); T0 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),T1,r_,YPtrue,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_surgeryX_63) { P o_,act_,r_; P argsF4697; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); T8 = CALL1(1,VARREF(YevalSastYapplication_arguments),o_); argsF4697 = T8; T3 = CALL1(1,VARREF(YgooStypesYlen),argsF4697); T2 = CALL2(1,VARREF(YgooSlogYE),T3,YPint((P)2)); if (T2 != YPfalse) { T5 = CALL1(1,VARREF(Ylst),LITREF(lit_109)); T4 = CALL3(1,VARREF(YgooSmacrosYcat),T5,argsF4697,LITREF(lit_110)); T1 = T4; } else { T7 = CALL1(1,VARREF(Ylst),LITREF(lit_111)); T6 = CALL3(1,VARREF(YgooSmacrosYcat),T7,argsF4697,LITREF(lit_110)); T1 = T6; } T0 = CALL2(1,VARREF(YevalStypistYdynamic_compute_program),T1,r_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_surgeryX_64) { P o_,act_,r_; P T0; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); T0 = CALL1(1,VARREF(YevalStypistYact_val),act_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_surgeryX_65) { P o_,act_,r_; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); CALL2(1,VARREF(YevalSastYapplication_knownQ_setter),YPtrue,o_); UNLINK_STACK(); QRET(o_); } LOCCODEDEF(fun_do_surgeryX_66) { P o_,act_,r_; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); ARG(act_, 1); ARG(r_, 2); T1 = CALL1(1,VARREF(YevalStypistYact_test),act_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YevalSastYalternative_consequent),o_); T0 = T2; } else { T3 = CALL1(1,VARREF(YevalSastYalternative_alternant),o_); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_surgeryX_67) { P o_,acts_,r_; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(acts_, 1); ARG(r_, 2); CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_116),acts_); T0 = CALL3(1,VARREF(YgooScolsScolYelt_or),acts_,o_,YPfalse); CALL3(1,VARREF(YgooSioSwriteYpost),LITREF(lit_117),o_,T0); CALL4(1,VARREF(YevalSastYast_walkX),VARREF(YevalStypistYsurgeryX),o_,acts_,r_); T2 = CALL3(1,VARREF(YgooScolsScolYelt_or),acts_,o_,YPfalse); T1 = CALL3(1,VARREF(YevalStypistYdo_surgeryX),o_,T2,r_); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_surgeryX_68) { P o_,acts_,r_; P T0,T1; LINK_STACK(); ARG(o_, 0); ARG(acts_, 1); ARG(r_, 2); T1 = CALL3(1,VARREF(YgooScolsScolYelt_or),acts_,o_,YPfalse); T0 = CALL3(1,VARREF(YevalStypistYdo_surgeryX),o_,T1,r_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YevalStypistYtype_exp) { P x_; P astF4699; P rF4698; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),LITREF(lit_121)); rF4698 = T1; T0 = CALL2(1,VARREF(YevalStypistYcp),x_,rF4698); astF4699 = T0; CALL2(1,VARREF(YevalStypistYtype_infer_all),astF4699,rF4698); UNLINK_STACK(); QRET(astF4699); } FUNCODEDEF(YevalStypistYtypeAopt_exp) { P x_; P actsF4702; P astF4701; P rF4700; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),LITREF(lit_121)); rF4700 = T3; T2 = CALL2(1,VARREF(YevalStypistYcp),x_,rF4700); astF4701 = T2; T1 = CALL2(1,VARREF(YevalStypistYtype_infer_all),astF4701,rF4700); actsF4702 = T1; T0 = CALL3(1,VARREF(YevalStypistYsurgeryX),astF4701,actsF4702,rF4700); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_dynamic_compute_program_71) { P exp_,env_; P lftF4706; P boxF4705; P anaF4704; P astF4703; P T0,T1,T2,T3; LINK_STACK(); ARG(exp_, 0); ARG(env_, 1); T3 = CALL4(1,VARREF(YevalSastYobjectify_with_subtransaction),exp_,env_,YPtrue,YPfalse); astF4703 = T3; T2 = CALL2(1,VARREF(YevalSoptimizeYanalyze_calls),astF4703,env_); anaF4704 = T2; T1 = CALL1(1,VARREF(YevalSast_linearizeYinsert_boxX),anaF4704); boxF4705 = T1; T0 = CALL1(1,VARREF(YevalSast_linearizeYliftX),boxF4705); lftF4706 = T0; UNLINK_STACK(); QRET(lftF4706); } LOCCODEDEF(fun_optimize_method_72) { P m_; P oastF4714; P actsF4713; P astF4712; P patchF4711; P rF4710; P modF4709; P srclF4708; P srcF4707; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(m_, 0); T18 = CALL1(1,VARREF(YgooSfunYfun_src),m_); T17 = CALL1(1,VARREF(YgooSioSreadYread_from_string),T18); srcF4707 = T17; T16 = CALL1(1,VARREF(YgooSfunYfun_src_loc),m_); srclF4708 = T16; T15 = CALL1(1,VARREF(Ysrc_loc_file),srclF4708); T14 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),T15); modF4709 = T14; T13 = CALL1(1,VARREF(YevalSmoduleYruntime_environment),modF4709); rF4710 = T13; T4 = CALL1(1,VARREF(Ylst),LITREF(lit_128)); T7 = CALL1(1,VARREF(Ylst),LITREF(lit_129)); T8 = CALL1(1,VARREF(Ylst),m_); T6 = CALL3(1,VARREF(YgooSmacrosYcat),T7,T8,LITREF(lit_110)); T5 = CALL1(1,VARREF(Ylst),T6); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_130)); T12 = CALL1(1,VARREF(Ylst),srcF4707); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_110)); T9 = CALL1(1,VARREF(Ylst),T10); T3 = CALL4(1,VARREF(YgooSmacrosYcat),T4,T5,T9,LITREF(lit_110)); patchF4711 = T3; T2 = CALL2(1,VARREF(YevalStypistYdynamic_compute_program),patchF4711,rF4710); astF4712 = T2; T1 = CALL1(1,VARREF(YevalStypistYtype_infer_all),astF4712); actsF4713 = T1; T0 = CALL3(1,VARREF(YevalStypistYsurgeryX),astF4712,actsF4713,rF4710); oastF4714 = T0; CALL2(1,VARREF(YevalStypistYdync),oastF4714,rF4710); UNLINK_STACK(); QRET(oastF4714); } P YevalStypistY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; DEFCREGS(); lit_0 = YPPsym((P)"type-union"); lit_1 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T0 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLtypeG),Ynil); fun_type_union_0 = YPfab_met(FUNCODEREF(fun_type_union_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(13),YPfalse); T2 = VARREF_OR(YevalStypistYtype_union,YPfalse); T3 = fun_type_union_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalStypistYtype_union,T1); lit_2 = YPPsym((P)"type-intersection"); lit_3 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T4 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLtypeG),Ynil); fun_type_intersection_1 = YPfab_met(FUNCODEREF(fun_type_intersection_1),T4,LITREF(lit_2),LITREF(lit_3),sloc(23),YPfalse); T6 = VARREF_OR(YevalStypistYtype_intersection,YPfalse); T7 = fun_type_intersection_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalStypistYtype_intersection,T5); lit_4 = YPPsym((P)""); T9 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T8 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_4),T9); VARSET(YevalStypistYLtype_stateG,T8); lit_5 = YPPsym((P)"type-state-acts"); lit_6 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_type_state_acts_2 = YPfab_met(FUNCODEREF(fun_type_state_acts_2),T10,LITREF(lit_5),LITREF(lit_6),sloc(30),YPfalse); T12 = VARREF_OR(YevalStypistYtype_state_acts,YPfalse); T13 = fun_type_state_acts_2; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YevalStypistYtype_state_acts,T11); lit_7 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T14,YPfalse,LITREF(lit_7),sloc(30),YPfalse); T15 = fun_3; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLtype_stateG),VARREF(YevalStypistYtype_state_acts),YPfalse,VARREF(YgooScolsScolYLtabG),T15); lit_8 = YPPsym((P)"type-state-env"); lit_9 = YPPlist(1,YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_type_state_env_4 = YPfab_met(FUNCODEREF(fun_type_state_env_4),T16,LITREF(lit_8),LITREF(lit_9),sloc(31),YPfalse); T18 = VARREF_OR(YevalStypistYtype_state_env,YPfalse); T19 = fun_type_state_env_4; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalStypistYtype_state_env,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLtype_stateG),VARREF(YevalStypistYtype_state_env),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_10 = YPPsym((P)""); T21 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T20 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_10),T21); VARSET(YevalStypistYLactG,T20); lit_11 = YPPsym((P)""); T23 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLactG),Ynil); T22 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_11),T23); VARSET(YevalStypistYLdispatchG,T22); lit_12 = YPPsym((P)"act-sorted"); lit_13 = YPPlist(1,YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLdispatchG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_act_sorted_5 = YPfab_met(FUNCODEREF(fun_act_sorted_5),T24,LITREF(lit_12),LITREF(lit_13),sloc(36),YPfalse); T26 = VARREF_OR(YevalStypistYact_sorted,YPfalse); T27 = fun_act_sorted_5; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalStypistYact_sorted,T25); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLdispatchG),VARREF(YevalStypistYact_sorted),YPfalse,VARREF(YLlstG),VARREF(YPprop_unbound_error)); lit_14 = YPPsym((P)""); T29 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLactG),Ynil); T28 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_14),T29); VARSET(YevalStypistYLknow_callG,T28); lit_15 = YPPsym((P)""); T31 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLactG),Ynil); T30 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_15),T31); VARSET(YevalStypistYLfoldG,T30); lit_16 = YPPsym((P)""); T33 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLfoldG),Ynil); T32 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_16),T33); VARSET(YevalStypistYLfold_ifG,T32); lit_17 = YPPsym((P)"act-test"); lit_18 = YPPlist(1,YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLfold_ifG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_act_test_6 = YPfab_met(FUNCODEREF(fun_act_test_6),T34,LITREF(lit_17),LITREF(lit_18),sloc(43),YPfalse); T36 = VARREF_OR(YevalStypistYact_test,YPfalse); T37 = fun_act_test_6; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YevalStypistYact_test,T35); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLfold_ifG),VARREF(YevalStypistYact_test),YPfalse,VARREF(YLlogG),VARREF(YPprop_unbound_error)); lit_19 = YPPsym((P)""); T39 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLfoldG),Ynil); T38 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_19),T39); VARSET(YevalStypistYLfold_callG,T38); lit_20 = YPPsym((P)"act-val"); lit_21 = YPPlist(1,YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLfold_callG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_act_val_7 = YPfab_met(FUNCODEREF(fun_act_val_7),T40,LITREF(lit_20),LITREF(lit_21),sloc(46),YPfalse); T42 = VARREF_OR(YevalStypistYact_val,YPfalse); T43 = fun_act_val_7; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YevalStypistYact_val,T41); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLfold_callG),VARREF(YevalStypistYact_val),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_22 = YPPsym((P)""); T45 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLfoldG),Ynil); T44 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_22),T45); VARSET(YevalStypistYLprop_accessG,T44); lit_23 = YPPsym((P)"act-off"); lit_24 = YPPlist(1,YPPsym((P)"_x")); T46 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLprop_accessG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_act_off_8 = YPfab_met(FUNCODEREF(fun_act_off_8),T46,LITREF(lit_23),LITREF(lit_24),sloc(49),YPfalse); T48 = VARREF_OR(YevalStypistYact_off,YPfalse); T49 = fun_act_off_8; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YevalStypistYact_off,T47); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLprop_accessG),VARREF(YevalStypistYact_off),YPfalse,VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_25 = YPPsym((P)""); T51 = XCALL2(1,VARREF(Yfab_pair),VARREF(YevalStypistYLfoldG),Ynil); T50 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_25),T51); VARSET(YevalStypistYLinline_callG,T50); lit_26 = YPPlist(1,YPPsym((P)"_x")); T52 = YPfab_sig(YPPlist(1,VARREF(YevalStypistYLinline_callG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_act_val_9 = YPfab_met(FUNCODEREF(fun_act_val_9),T52,LITREF(lit_20),LITREF(lit_26),sloc(52),YPfalse); T54 = VARREF_OR(YevalStypistYact_val,YPfalse); T55 = fun_act_val_9; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YevalStypistYact_val,T53); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YevalStypistYLinline_callG),VARREF(YevalStypistYact_val),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_27 = YPPsym((P)"mem-act"); lit_28 = YPPlist(3,YPPsym((P)"s"),YPPsym((P)"x"),YPPsym((P)"act")); T56 = YPfab_sig(YPPlist(3,VARREF(YevalStypistYLtype_stateG),VARREF(YLanyG),VARREF(YevalStypistYLactG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_mem_act_10 = YPfab_met(FUNCODEREF(fun_mem_act_10),T56,LITREF(lit_27),LITREF(lit_28),sloc(54),YPfalse); T58 = VARREF_OR(YevalStypistYmem_act,YPfalse); T59 = fun_mem_act_10; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YevalStypistYmem_act,T57); lit_29 = YPPsym((P)"type-infer-check"); lit_30 = YPPlist(3,YPPsym((P)"a"),YPPsym((P)"t"),YPPsym((P)"s")); lit_31 = YPsb((P)"IT %= T %=\n"); T60 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_type_infer_check_11 = YPfab_met(FUNCODEREF(fun_type_infer_check_11),T60,LITREF(lit_29),LITREF(lit_30),sloc(57),YPfalse); T62 = VARREF_OR(YevalStypistYtype_infer_check,YPfalse); T63 = fun_type_infer_check_11; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YevalStypistYtype_infer_check,T61); lit_32 = YPPsym((P)"type-infer-all"); lit_33 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"r")); T64 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_type_infer_all_12 = YPfab_met(FUNCODEREF(fun_type_infer_all_12),T64,LITREF(lit_32),LITREF(lit_33),sloc(65),YPfalse); T66 = VARREF_OR(YevalStypistYtype_infer_all,YPfalse); T67 = fun_type_infer_all_12; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YevalStypistYtype_infer_all,T65); lit_34 = YPPsym((P)"type-infer"); lit_35 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_36 = YPsb((P)"TYPING %= \n"); lit_37 = YPsb((P)"TYPING %= => %t\n"); T68 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_type_infer_13 = YPfab_met(FUNCODEREF(fun_type_infer_13),T68,LITREF(lit_34),LITREF(lit_35),sloc(70),YPfalse); T70 = VARREF_OR(YevalStypistYtype_infer,YPfalse); T71 = fun_type_infer_13; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YevalStypistYtype_infer,T69); lit_38 = YPPsym((P)"do-type-infer"); lit_39 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_40 = YPsb((P)"NYI %t: %="); T72 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLprogramG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_14 = YPfab_met(FUNCODEREF(fun_do_type_infer_14),T72,LITREF(lit_38),LITREF(lit_39),sloc(76),YPfalse); T74 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T75 = fun_do_type_infer_14; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalStypistYdo_type_infer,T73); lit_41 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_42 = YPPlist(1,YPPsym((P)"_1")); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T77,YPfalse,LITREF(lit_42),sloc(80),YPfalse); T76 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLsequentialG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_16 = YPfab_met(FUNCODEREF(fun_do_type_infer_16),T76,LITREF(lit_38),LITREF(lit_41),sloc(79),YPfalse); T79 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T80 = fun_do_type_infer_16; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YevalStypistYdo_type_infer,T78); lit_43 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T81 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLconstantG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_17 = YPfab_met(FUNCODEREF(fun_do_type_infer_17),T81,LITREF(lit_38),LITREF(lit_43),sloc(83),YPfalse); T83 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T84 = fun_do_type_infer_17; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YevalStypistYdo_type_infer,T82); lit_44 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T85 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLassignmentG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_18 = YPfab_met(FUNCODEREF(fun_do_type_infer_18),T85,LITREF(lit_38),LITREF(lit_44),sloc(88),YPfalse); T87 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T88 = fun_do_type_infer_18; T86 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T87,T88); VARSET(YevalStypistYdo_type_infer,T86); lit_45 = YPPsym((P)"type-infer-binding"); lit_46 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T91 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLmodule_bindingG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T90 = fun_type_infer_binding_19 = YPfab_met(FUNCODEREF(fun_type_infer_binding_19),T91,LITREF(lit_45),LITREF(lit_46),sloc(91),YPfalse); T94 = VARREF_OR(YevalStypistYtype_infer_binding,YPfalse); T95 = fun_type_infer_binding_19; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); T92 = VARSET(YevalStypistYtype_infer_binding,T93); T89 = T92; return T89; } P YevalStypistY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178; DEFCREGS(); lit_47 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T0 = YPfab_sig(YPPlist(2,VARREF(YevalSmoduleYLbindingG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_type_infer_binding_20 = YPfab_met(FUNCODEREF(fun_type_infer_binding_20),T0,LITREF(lit_45),LITREF(lit_47),sloc(97),YPfalse); T2 = VARREF_OR(YevalStypistYtype_infer_binding,YPfalse); T3 = fun_type_infer_binding_20; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YevalStypistYtype_infer_binding,T1); lit_48 = YPPsym((P)"type-value"); lit_49 = YPPlist(1,YPPsym((P)"t")); T4 = YPfab_sig(YPPlist(1,VARREF(YLtypeG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_type_value_21 = YPfab_met(FUNCODEREF(fun_type_value_21),T4,LITREF(lit_48),LITREF(lit_49),sloc(101),YPfalse); T6 = VARREF_OR(YevalStypistYtype_value,YPfalse); T7 = fun_type_value_21; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YevalStypistYtype_value,T5); lit_50 = YPPlist(1,YPPsym((P)"t")); T8 = YPfab_sig(YPPlist(1,VARREF(YLsingletonG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_type_value_22 = YPfab_met(FUNCODEREF(fun_type_value_22),T8,LITREF(lit_48),LITREF(lit_50),sloc(104),YPfalse); T10 = VARREF_OR(YevalStypistYtype_value,YPfalse); T11 = fun_type_value_22; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YevalStypistYtype_value,T9); lit_51 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T12 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocal_bindingG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_type_infer_binding_23 = YPfab_met(FUNCODEREF(fun_type_infer_binding_23),T12,LITREF(lit_45),LITREF(lit_51),sloc(107),YPfalse); T14 = VARREF_OR(YevalStypistYtype_infer_binding,YPfalse); T15 = fun_type_infer_binding_23; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YevalStypistYtype_infer_binding,T13); lit_52 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T16 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLreal_referenceG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_24 = YPfab_met(FUNCODEREF(fun_do_type_infer_24),T16,LITREF(lit_38),LITREF(lit_52),sloc(116),YPfalse); T18 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T19 = fun_do_type_infer_24; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YevalStypistYdo_type_infer,T17); lit_53 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T20 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLboundQG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_25 = YPfab_met(FUNCODEREF(fun_do_type_infer_25),T20,LITREF(lit_38),LITREF(lit_53),sloc(119),YPfalse); T22 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T23 = fun_do_type_infer_25; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YevalStypistYdo_type_infer,T21); lit_54 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T24 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLdefinitionG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_26 = YPfab_met(FUNCODEREF(fun_do_type_infer_26),T24,LITREF(lit_38),LITREF(lit_54),sloc(122),YPfalse); T26 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T27 = fun_do_type_infer_26; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YevalStypistYdo_type_infer,T25); lit_55 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T28 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLast_methodG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_27 = YPfab_met(FUNCODEREF(fun_do_type_infer_27),T28,LITREF(lit_38),LITREF(lit_55),sloc(125),YPfalse); T30 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T31 = fun_do_type_infer_27; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YevalStypistYdo_type_infer,T29); lit_56 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T32 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLast_genericG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_28 = YPfab_met(FUNCODEREF(fun_do_type_infer_28),T32,LITREF(lit_38),LITREF(lit_56),sloc(133),YPfalse); T34 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T35 = fun_do_type_infer_28; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YevalStypistYdo_type_infer,T33); lit_57 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T36 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLalternativeG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_29 = YPfab_met(FUNCODEREF(fun_do_type_infer_29),T36,LITREF(lit_38),LITREF(lit_57),sloc(136),YPfalse); T38 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T39 = fun_do_type_infer_29; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YevalStypistYdo_type_infer,T37); lit_58 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_59 = YPPlist(1,YPPsym((P)"_1")); T41 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T41,YPfalse,LITREF(lit_59),sloc(149),YPfalse); T40 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLsequentialG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_31 = YPfab_met(FUNCODEREF(fun_do_type_infer_31),T40,LITREF(lit_38),LITREF(lit_58),sloc(148),YPfalse); T43 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T44 = fun_do_type_infer_31; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YevalStypistYdo_type_infer,T42); lit_60 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T45 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLfix_letG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_32 = YPfab_met(FUNCODEREF(fun_do_type_infer_32),T45,LITREF(lit_38),LITREF(lit_60),sloc(152),YPfalse); T47 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T48 = fun_do_type_infer_32; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YevalStypistYdo_type_infer,T46); lit_61 = YPPsym((P)"subtype?"); lit_62 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T49 = YPfab_sig(YPPlist(2,VARREF(YgooStypesYLbotG),VARREF(YgooStypesYLbotG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_33 = YPfab_met(FUNCODEREF(fun_subtypeQ_33),T49,LITREF(lit_61),LITREF(lit_62),sloc(164),YPfalse); T51 = VARREF_OR(YsubtypeQ,YPfalse); T52 = fun_subtypeQ_33; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YsubtypeQ,T50); lit_63 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_64 = YPPlist(1,YPPsym((P)"_1")); T54 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T54,YPfalse,LITREF(lit_64),sloc(167),YPfalse); T53 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLlocalsG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_35 = YPfab_met(FUNCODEREF(fun_do_type_infer_35),T53,LITREF(lit_38),LITREF(lit_63),sloc(166),YPfalse); T56 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T57 = fun_do_type_infer_35; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YevalStypistYdo_type_infer,T55); lit_65 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_66 = Ynil; lit_67 = YPPsym((P)"recurse"); lit_68 = YPPlist(1,YPPsym((P)"arg-types")); lit_69 = YPPlist(2,YPPsym((P)"b"),YPPsym((P)"a")); lit_70 = YPsb((P)"PARAM TYPES %=\n"); lit_71 = YPsb((P)"ARGUM TYPES %=\n"); lit_72 = YPsb((P)"NEW-PARAM TYPES %=\n"); T62 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T62,YPfalse,LITREF(lit_69),YPfalse,YPfalse); T61 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_recurse_37 = YPfab_met(FUNCODEREF(fun_recurse_37),T61,LITREF(lit_67),LITREF(lit_68),sloc(171),YPfalse); T60 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_38 = YPfab_met(FUNCODEREF(fun_38),T60,YPfalse,LITREF(lit_66),sloc(183),YPfalse); T59 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_39 = YPfab_met(FUNCODEREF(fun_39),T59,YPfalse,LITREF(lit_66),sloc(183),YPfalse); T58 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLloopG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_40 = YPfab_met(FUNCODEREF(fun_do_type_infer_40),T58,LITREF(lit_38),LITREF(lit_65),sloc(170),YPfalse); T64 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T65 = fun_do_type_infer_40; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YevalStypistYdo_type_infer,T63); lit_73 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_74 = YPPlist(2,YPPsym((P)"a"),YPPsym((P)"b")); T67 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_41 = YPfab_met(FUNCODEREF(fun_41),T67,YPfalse,LITREF(lit_74),sloc(189),YPfalse); T66 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLloop_applicationG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_42 = YPfab_met(FUNCODEREF(fun_do_type_infer_42),T66,LITREF(lit_38),LITREF(lit_73),sloc(186),YPfalse); T69 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T70 = fun_do_type_infer_42; T68 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T69,T70); VARSET(YevalStypistYdo_type_infer,T68); lit_75 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_76 = YPPlist(1,YPPsym((P)"_1")); T72 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_43 = YPfab_met(FUNCODEREF(fun_43),T72,YPfalse,LITREF(lit_76),sloc(194),YPfalse); T71 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLpredefined_applicationG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_44 = YPfab_met(FUNCODEREF(fun_do_type_infer_44),T71,LITREF(lit_38),LITREF(lit_75),sloc(193),YPfalse); T74 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T75 = fun_do_type_infer_44; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YevalStypistYdo_type_infer,T73); lit_77 = YPPsym((P)"arity-check?"); lit_78 = YPPlist(4,YPPsym((P)"nary?"),YPPsym((P)"arity"),YPPsym((P)"x"),YPPsym((P)"s")); T76 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)4),VARREF(YLlogG),Ynil); fun_arity_checkQ_45 = YPfab_met(FUNCODEREF(fun_arity_checkQ_45),T76,LITREF(lit_77),LITREF(lit_78),sloc(197),YPfalse); T78 = VARREF_OR(YevalStypistYarity_checkQ,YPfalse); T79 = fun_arity_checkQ_45; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YevalStypistYarity_checkQ,T77); lit_79 = YPPsym((P)"known-call?"); lit_80 = YPPlist(6,YPPsym((P)"nary?"),YPPsym((P)"arity"),YPPsym((P)"arg-types"),YPPsym((P)"fun-types"),YPPsym((P)"x"),YPPsym((P)"s")); T80 = YPfab_sig(YPPlist(6,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)6),VARREF(YLlogG),Ynil); fun_known_callQ_46 = YPfab_met(FUNCODEREF(fun_known_callQ_46),T80,LITREF(lit_79),LITREF(lit_80),sloc(201),YPfalse); T82 = VARREF_OR(YevalStypistYknown_callQ,YPfalse); T83 = fun_known_callQ_46; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YevalStypistYknown_callQ,T81); lit_81 = YPPsym((P)"type-known-met-call"); lit_82 = YPPlist(4,YPPsym((P)"x"),YPPsym((P)"f"),YPPsym((P)"nms"),YPPsym((P)"s")); T84 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLregular_applicationG),VARREF(YLmetG),VARREF(YLlstG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)4),VARREF(YLtypeG),Ynil); fun_type_known_met_call_47 = YPfab_met(FUNCODEREF(fun_type_known_met_call_47),T84,LITREF(lit_81),LITREF(lit_82),sloc(209),YPfalse); T86 = VARREF_OR(YevalStypistYtype_known_met_call,YPfalse); T87 = fun_type_known_met_call_47; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YevalStypistYtype_known_met_call,T85); lit_83 = YPPsym((P)"met-prop"); lit_84 = YPPlist(1,YPPsym((P)"m")); T89 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLpropG)); T88 = YPfab_sig(YPPlist(1,VARREF(YLmetG)),YPfalse,YPint((P)1),T89,Ynil); fun_met_prop_48 = YPfab_met(FUNCODEREF(fun_met_prop_48),T88,LITREF(lit_83),LITREF(lit_84),sloc(221),YPfalse); T91 = VARREF_OR(YevalStypistYmet_prop,YPfalse); T92 = fun_met_prop_48; T90 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T91,T92); VARSET(YevalStypistYmet_prop,T90); lit_85 = YPPsym((P)"prop-offset-in"); lit_86 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"p")); T94 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T93 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLpropG)),YPfalse,YPint((P)2),T94,Ynil); YevalStypistYprop_offset_in = YPfab_met(FUNCODEREF(YevalStypistYprop_offset_in),T93,LITREF(lit_85),LITREF(lit_86),sloc(224),YPfalse); T95 = YevalStypistYprop_offset_in; VARSET(YevalStypistYprop_offset_in,T95); lit_87 = YPPsym((P)"all-prop-offsets"); lit_88 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"p")); lit_89 = YPPlist(1,YPPsym((P)"_1")); T98 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_50 = YPfab_met(FUNCODEREF(fun_50),T98,YPfalse,LITREF(lit_89),sloc(229),YPfalse); T97 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T96 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLpropG)),YPfalse,YPint((P)2),T97,Ynil); fun_all_prop_offsets_51 = YPfab_met(FUNCODEREF(fun_all_prop_offsets_51),T96,LITREF(lit_87),LITREF(lit_88),sloc(227),YPfalse); T100 = VARREF_OR(YevalStypistYall_prop_offsets,YPfalse); T101 = fun_all_prop_offsets_51; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YevalStypistYall_prop_offsets,T99); lit_90 = YPPsym((P)"type-prop-access"); lit_91 = YPPlist(4,YPPsym((P)"x"),YPPsym((P)"g"),YPPsym((P)"m"),YPPsym((P)"s")); lit_92 = YPsb((P)"TYPING PROP-ACCESS\n"); lit_93 = YPsb((P)"CONST-PROP-ACCESS %d\n"); T102 = YPfab_sig(YPPlist(4,VARREF(YevalSastYLregular_applicationG),VARREF(YLgenG),VARREF(YLmetG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)4),VARREF(YLtypeG),Ynil); fun_type_prop_access_52 = YPfab_met(FUNCODEREF(fun_type_prop_access_52),T102,LITREF(lit_90),LITREF(lit_91),sloc(231),YPfalse); T104 = VARREF_OR(YevalStypistYtype_prop_access,YPfalse); T105 = fun_type_prop_access_52; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YevalStypistYtype_prop_access,T103); lit_94 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); lit_95 = YPPlist(1,YPPsym((P)"_1")); lit_96 = YPsb((P)"APP-METS %= %= %= %=\n"); lit_97 = YPsb((P)"KNOWN MET CALL\n"); lit_98 = YPPlist(1,YPPsym((P)"_1")); T108 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_53 = YPfab_met(FUNCODEREF(fun_53),T108,YPfalse,LITREF(lit_95),sloc(245),YPfalse); T107 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_54 = YPfab_met(FUNCODEREF(fun_54),T107,YPfalse,LITREF(lit_98),sloc(267),YPfalse); T106 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_55 = YPfab_met(FUNCODEREF(fun_do_type_infer_55),T106,LITREF(lit_38),LITREF(lit_94),sloc(244),YPfalse); T110 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T111 = fun_do_type_infer_55; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YevalStypistYdo_type_infer,T109); lit_99 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T112 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLbind_exitG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_56 = YPfab_met(FUNCODEREF(fun_do_type_infer_56),T112,LITREF(lit_38),LITREF(lit_99),sloc(283),YPfalse); T114 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T115 = fun_do_type_infer_56; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YevalStypistYdo_type_infer,T113); lit_100 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T116 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLunwind_protectG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_57 = YPfab_met(FUNCODEREF(fun_do_type_infer_57),T116,LITREF(lit_38),LITREF(lit_100),sloc(286),YPfalse); T118 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T119 = fun_do_type_infer_57; T117 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T118,T119); VARSET(YevalStypistYdo_type_infer,T117); lit_101 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T120 = YPfab_sig(YPPlist(2,VARREF(YevalSastYLmonitorG),VARREF(YevalStypistYLtype_stateG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_type_infer_58 = YPfab_met(FUNCODEREF(fun_do_type_infer_58),T120,LITREF(lit_38),LITREF(lit_101),sloc(289),YPfalse); T122 = VARREF_OR(YevalStypistYdo_type_infer,YPfalse); T123 = fun_do_type_infer_58; T121 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T122,T123); VARSET(YevalStypistYdo_type_infer,T121); lit_102 = YPPsym((P)"surgery!"); lit_103 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"acts"),YPPsym((P)"r")); T124 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_surgeryX_59 = YPfab_met(FUNCODEREF(fun_surgeryX_59),T124,LITREF(lit_102),LITREF(lit_103),sloc(296),YPfalse); T126 = VARREF_OR(YevalStypistYsurgeryX,YPfalse); T127 = fun_surgeryX_59; T125 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T126,T127); VARSET(YevalStypistYsurgeryX,T125); lit_104 = YPPsym((P)"do-surgery!"); lit_105 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); T128 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLprogramG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_60 = YPfab_met(FUNCODEREF(fun_do_surgeryX_60),T128,LITREF(lit_104),LITREF(lit_105),sloc(299),YPfalse); T130 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T131 = fun_do_surgeryX_60; T129 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T130,T131); VARSET(YevalStypistYdo_surgeryX,T129); lit_106 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); T132 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLdispatchG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_61 = YPfab_met(FUNCODEREF(fun_do_surgeryX_61),T132,LITREF(lit_104),LITREF(lit_106),sloc(301),YPfalse); T134 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T135 = fun_do_surgeryX_61; T133 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T134,T135); VARSET(YevalStypistYdo_surgeryX,T133); lit_107 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); T136 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLfold_callG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_62 = YPfab_met(FUNCODEREF(fun_do_surgeryX_62),T136,LITREF(lit_104),LITREF(lit_107),sloc(309),YPfalse); T138 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T139 = fun_do_surgeryX_62; T137 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T138,T139); VARSET(YevalStypistYdo_surgeryX,T137); lit_108 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); lit_109 = YPPsym((P)"prop-value-at-setter"); lit_110 = Ynil; lit_111 = YPPsym((P)"prop-value-at"); T140 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLprop_accessG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_63 = YPfab_met(FUNCODEREF(fun_do_surgeryX_63),T140,LITREF(lit_104),LITREF(lit_108),sloc(312),YPfalse); T142 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T143 = fun_do_surgeryX_63; T141 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T142,T143); VARSET(YevalStypistYdo_surgeryX,T141); lit_112 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); T144 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLinline_callG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_64 = YPfab_met(FUNCODEREF(fun_do_surgeryX_64),T144,LITREF(lit_104),LITREF(lit_112),sloc(320),YPfalse); T146 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T147 = fun_do_surgeryX_64; T145 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T146,T147); VARSET(YevalStypistYdo_surgeryX,T145); lit_113 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); T148 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLregular_applicationG),VARREF(YevalStypistYLknow_callG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_65 = YPfab_met(FUNCODEREF(fun_do_surgeryX_65),T148,LITREF(lit_104),LITREF(lit_113),sloc(323),YPfalse); T150 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T151 = fun_do_surgeryX_65; T149 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T150,T151); VARSET(YevalStypistYdo_surgeryX,T149); lit_114 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"act"),YPPsym((P)"r")); T152 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLalternativeG),VARREF(YevalStypistYLfold_ifG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do_surgeryX_66 = YPfab_met(FUNCODEREF(fun_do_surgeryX_66),T152,LITREF(lit_104),LITREF(lit_114),sloc(327),YPfalse); T154 = VARREF_OR(YevalStypistYdo_surgeryX,YPfalse); T155 = fun_do_surgeryX_66; T153 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T154,T155); VARSET(YevalStypistYdo_surgeryX,T153); lit_115 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"acts"),YPPsym((P)"r")); lit_116 = YPsb((P)"ACTS %=\n"); lit_117 = YPsb((P)"VISITING APP %= ACT %=\n"); T156 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLregular_applicationG),VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_surgeryX_67 = YPfab_met(FUNCODEREF(fun_surgeryX_67),T156,LITREF(lit_102),LITREF(lit_115),sloc(332),YPfalse); T158 = VARREF_OR(YevalStypistYsurgeryX,YPfalse); T159 = fun_surgeryX_67; T157 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T158,T159); VARSET(YevalStypistYsurgeryX,T157); lit_118 = YPPlist(3,YPPsym((P)"o"),YPPsym((P)"acts"),YPPsym((P)"r")); T160 = YPfab_sig(YPPlist(3,VARREF(YevalSastYLalternativeG),VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_surgeryX_68 = YPfab_met(FUNCODEREF(fun_surgeryX_68),T160,LITREF(lit_102),LITREF(lit_118),sloc(338),YPfalse); T162 = VARREF_OR(YevalStypistYsurgeryX,YPfalse); T163 = fun_surgeryX_68; T161 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T162,T163); VARSET(YevalStypistYsurgeryX,T161); VARSET(YevalStypistYcp,YPfalse); lit_119 = YPPsym((P)"type-exp"); lit_120 = YPPlist(1,YPPsym((P)"x")); lit_121 = YPPsym((P)"eval/typist"); T164 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalStypistYtype_exp = YPfab_met(FUNCODEREF(YevalStypistYtype_exp),T164,LITREF(lit_119),LITREF(lit_120),sloc(345),YPfalse); T165 = YevalStypistYtype_exp; VARSET(YevalStypistYtype_exp,T165); lit_122 = YPPsym((P)"type+opt-exp"); lit_123 = YPPlist(1,YPPsym((P)"x")); T166 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YevalStypistYtypeAopt_exp = YPfab_met(FUNCODEREF(YevalStypistYtypeAopt_exp),T166,LITREF(lit_122),LITREF(lit_123),sloc(351),YPfalse); T167 = YevalStypistYtypeAopt_exp; VARSET(YevalStypistYtypeAopt_exp,T167); lit_124 = YPPsym((P)"dynamic-compute-program"); lit_125 = YPPlist(2,YPPsym((P)"exp"),YPPsym((P)"env")); T168 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_dynamic_compute_program_71 = YPfab_met(FUNCODEREF(fun_dynamic_compute_program_71),T168,LITREF(lit_124),LITREF(lit_125),sloc(361),YPfalse); T170 = VARREF_OR(YevalStypistYdynamic_compute_program,YPfalse); T171 = fun_dynamic_compute_program_71; T169 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T170,T171); VARSET(YevalStypistYdynamic_compute_program,T169); VARSET(YevalStypistYdync,YPfalse); lit_126 = YPPsym((P)"optimize-method"); lit_127 = YPPlist(1,YPPsym((P)"m")); lit_128 = YPPsym((P)"set"); lit_129 = YPPsym((P)"%gen-code"); lit_130 = YPPsym((P)"%met-code"); T174 = YPfab_sig(YPPlist(1,VARREF(YLmetG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T173 = fun_optimize_method_72 = YPfab_met(FUNCODEREF(fun_optimize_method_72),T174,LITREF(lit_126),LITREF(lit_127),sloc(372),YPfalse); T177 = VARREF_OR(YevalStypistYoptimize_method,YPfalse); T178 = fun_optimize_method_72; T176 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T177,T178); T175 = VARSET(YevalStypistYoptimize_method,T176); T172 = T175; return T172; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_evalSast; extern MODULE_INFO module_info_evalSast_linearize; extern MODULE_INFO module_info_evalSast_eval; extern MODULE_INFO module_info_evalSoptimize; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSlate_macros; extern MODULE_INFO module_info_evalSdependency; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooStypes}, {&module_info_evalSast}, {&module_info_evalSast_linearize}, {&module_info_evalSast_eval}, {&module_info_evalSoptimize}, {&module_info_gooSioSread}, {NULL} }; static IMPORT_INFO import_infos[] = { {"class-children", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"reference-self?", &module_info_evalSast_linearize, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"div", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_evalSmodule, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"roll-back-transaction", &module_info_evalSmodule, NULL}, {"dss", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"function-signature-setter", &module_info_evalSast, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"set-standard-read-macro!", &module_info_gooSioSread, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSioSport, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"application-binding", &module_info_evalSast, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"assignment-binding", &module_info_evalSast, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"|", &module_info_gooSmath, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"objectify-quotation", &module_info_evalSast, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"load-module", &module_info_evalSmodule, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"module-data-processed?", &module_info_evalSmodule, NULL}, {"binding-type", &module_info_evalSmodule, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"reference-frame-offset", &module_info_evalSast, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"binding-closed-over?", &module_info_evalSast, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"runtime-module-loader", &module_info_evalSmodule, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"environment-next", &module_info_evalSmodule, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"binding-prop", &module_info_evalSmodule, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"fix-let-bindings-setter", &module_info_evalSast, NULL}, {"frame-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"t<", &module_info_gooStypes, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"app", &module_info_gooSmacros, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"binding-locative", &module_info_evalSmodule, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"locals-bindings-setter", &module_info_evalSast, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"probe-module", &module_info_evalSmodule, NULL}, {"with-subtransaction", &module_info_evalSmodule, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"signature-nary?", &module_info_evalSast, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"assignment-form", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"program-definitions", &module_info_evalSast_linearize, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"binding-info-setter", &module_info_evalSmodule, NULL}, {"not", &module_info_gooSboot, NULL}, {"environment-uses-modules", &module_info_evalSmodule, NULL}, {"sorted-applicable-methods-using-types", &module_info_evalSoptimize, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"module-name-to-relpath", &module_info_evalSmodule, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"", &module_info_evalSmodule, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"monitor-main-thunk", &module_info_evalSast, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"function-inlineable?", &module_info_evalSast, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"%binding-value-or-of", &module_info_evalSast_eval, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"read-delimited-list", &module_info_gooSioSread, NULL}, {"1+", &module_info_gooSmath, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"import-and-mangle-global!", &module_info_evalSmodule, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"lst", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"free-environment", &module_info_evalSast, NULL}, {"", &module_info_gooSioSport, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"ast-define-binding", &module_info_evalSast, NULL}, {"clone", &module_info_gooSclass, NULL}, {"insert-globals!", &module_info_evalSmodule, NULL}, {"function-temporaries-setter", &module_info_evalSast, NULL}, {"flatten-seqs", &module_info_evalSast_linearize, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"monitor-type", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"compile-time-program", &module_info_evalSast, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"insert-global!", &module_info_evalSmodule, NULL}, {"atan", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"function-signature", &module_info_evalSast, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"binding-mangled-name", &module_info_evalSmodule, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"binding-value", &module_info_evalSast, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"unwind-protect-protected-thunk", &module_info_evalSast, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"unwind-protect-cleanup-thunk", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"%binding-value-of", &module_info_evalSast_eval, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"bind-exit-light?", &module_info_evalSast, NULL}, {"bound?-default", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%binding-value-or", &module_info_evalSast_eval, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"locals-functions-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"locals-body", &module_info_evalSast, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ast-contains-fun?", &module_info_evalSast, NULL}, {"fin", &module_info_gooSboot, NULL}, {"$char-long-names", &module_info_gooSioSread, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"export-binding!", &module_info_evalSmodule, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"+", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"t+", &module_info_gooStypes, NULL}, {"", &module_info_gooSioSport, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"function-temporaries", &module_info_evalSast, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"function-body-setter", &module_info_evalSast, NULL}, {"fix-let-types", &module_info_evalSast, NULL}, {"acos", &module_info_gooSmath, NULL}, {"binding-inferred-type", &module_info_evalSmodule, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"do-module-loader-modules", &module_info_evalSmodule, NULL}, {"and", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"binding-dynamic-extent?-setter", &module_info_evalSast, NULL}, {"function-debug-name-setter", &module_info_evalSast, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"do-static-global-bindings", &module_info_evalSmodule, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"address-of", &module_info_gooSany, NULL}, {"@new", &module_info_gooSboot, NULL}, {"module-uses-c-includes", &module_info_evalSmodule, NULL}, {"", &module_info_gooSioSport, NULL}, {"fix-let-arguments-setter", &module_info_evalSast, NULL}, {"fix-let-arguments", &module_info_evalSast, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"fix-let-body", &module_info_evalSast, NULL}, {"lift!", &module_info_evalSast_linearize, NULL}, {"fix-let-body-setter", &module_info_evalSast, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"ast-walk!", &module_info_evalSast, NULL}, {"program-bindings", &module_info_evalSast_linearize, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"<<", &module_info_gooSmath, NULL}, {"assignment-form-setter", &module_info_evalSast, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"binding-dynamic-extent?", &module_info_evalSast, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"form-definitions", &module_info_evalSast_linearize, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {">", &module_info_gooSmag, NULL}, {"", &module_info_gooSconditions, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"loop-body-setter", &module_info_evalSast, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"fix-let-bindings", &module_info_evalSast, NULL}, {"@not", &module_info_gooSboot, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"function-ref-count-setter", &module_info_evalSast, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"type-equiv?", &module_info_evalSoptimize, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unchecked-runtime-environment", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"req-sig-specs", &module_info_evalSast, NULL}, {"application-known?", &module_info_evalSast, NULL}, {"%head", &module_info_gooSboot, NULL}, {"function-frame-len-setter", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"<", &module_info_gooSmag, NULL}, {"@==", &module_info_gooSboot, NULL}, {"function-arity", &module_info_evalSast, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"", &module_info_gooSboot, NULL}, {"signature-bindings-setter", &module_info_evalSast, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"binding-index-setter", &module_info_evalSast, NULL}, {"fun", &module_info_gooSboot, NULL}, {"program-type-setter", &module_info_evalSast, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"environment-bindings", &module_info_evalSmodule, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"try", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"gather-temporaries!", &module_info_evalSast_linearize, NULL}, {"", &module_info_evalSast, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"install-initial-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"module-uses-c-files", &module_info_evalSmodule, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"export", &module_info_gooSboot, NULL}, {"bound?-reference", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"report-undefined-global-bindings", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"loop-continue", &module_info_evalSast, NULL}, {"=", &module_info_gooSlog, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*register-passive?*", &module_info_evalSast_linearize, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"", &module_info_gooSpacker, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"init-ast", &module_info_evalSast, NULL}, {"as-lst", &module_info_evalSast, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"do-named-static-global-bindings", &module_info_evalSmodule, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"fab-g2c-module", &module_info_evalSast, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"put", &module_info_gooSioSport, NULL}, {"closure-creation-free", &module_info_evalSast_linearize, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {">>>", &module_info_gooSmath, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"program-quotations", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSconditions, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_evalSast, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"len", &module_info_gooStypes, NULL}, {"abs", &module_info_gooSmath, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"reload-modules", &module_info_evalSmodule, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"module-referenced-bindings", &module_info_evalSmodule, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"objectify-signature", &module_info_evalSast, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"sequentialize", &module_info_evalSast, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"mif", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"alternative-alternant", &module_info_evalSast, NULL}, {"constant-index", &module_info_evalSast, NULL}, {"or", &module_info_gooSmacros, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"fab-static-global-environment", &module_info_evalSmodule, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"loop-body", &module_info_evalSast, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"function-adjectives", &module_info_evalSast, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"monitor-test", &module_info_evalSast, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"binding-free?-setter", &module_info_evalSmodule, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"closurize-main!", &module_info_evalSast_linearize, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%true", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"locals-bindings", &module_info_evalSast, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"env-object-name", &module_info_evalSmodule, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"alternative-consequent", &module_info_evalSast, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"transaction-register-dependent", &module_info_evalSmodule, NULL}, {"register-referenced-binding", &module_info_evalSmodule, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"import-global!", &module_info_evalSmodule, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"%binding-value-of-setter", &module_info_evalSast_eval, NULL}, {"$e", &module_info_gooSmath, NULL}, {"reference-binding", &module_info_evalSast, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"fab-subset-environment", &module_info_evalSmodule, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"closure-creation-index", &module_info_evalSast_linearize, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooStypes, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"runtime-environment", &module_info_evalSmodule, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%su", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"dg", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"find-static-global-environment", &module_info_evalSmodule, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"read", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"function-index-setter", &module_info_evalSast, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"module-uses-c-libraries", &module_info_evalSmodule, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"module-exports", &module_info_evalSmodule, NULL}, {"program-register-setter", &module_info_evalSast, NULL}, {"function-loop", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"locals-body-setter", &module_info_evalSast, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"reference-called-function?", &module_info_evalSast, NULL}, {"module-runtime-data-setter", &module_info_evalSmodule, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"signature-specs-setter", &module_info_evalSast, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"binding-global-box-setter", &module_info_evalSmodule, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"module-syntax-environment", &module_info_evalSmodule, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"signature-names", &module_info_evalSast, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"objectify-with-subtransaction", &module_info_evalSast, NULL}, {"loop-bindings-setter", &module_info_evalSast, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"binding-native-to?", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"close", &module_info_gooSioSport, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"module-mangled-string-name-setter", &module_info_evalSmodule, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"walk-bindings", &module_info_evalSmodule, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"last", &module_info_gooSmacros, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"head", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"function-loop-setter", &module_info_evalSast, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"signature-bindings", &module_info_evalSast, NULL}, {"program-type", &module_info_evalSast, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"box-form", &module_info_evalSast_linearize, NULL}, {"binding-dotted?-setter", &module_info_evalSast, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"$goo-boot-module-name", &module_info_evalSmodule, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"function-frame-len", &module_info_evalSast, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"find-syntax-environment", &module_info_evalSmodule, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"function-registers-setter", &module_info_evalSast, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_evalSast, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"environment-allows-foreign-names?", &module_info_evalSmodule, NULL}, {"application-tail?", &module_info_evalSast, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"", &module_info_evalSast, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"function-body", &module_info_evalSast, NULL}, {"find-binding", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"analyze-calls", &module_info_evalSoptimize, NULL}, {"namespace-error", &module_info_evalSmodule, NULL}, {"cos", &module_info_gooSmath, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"module-target-environment", &module_info_evalSmodule, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"application-next-methods", &module_info_evalSast, NULL}, {"binding-info", &module_info_evalSmodule, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"binding-module-name", &module_info_evalSmodule, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"", &module_info_evalSast, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"binding-kind", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"assignment-reference", &module_info_evalSast, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"binding-free?", &module_info_evalSmodule, NULL}, {"register-module!", &module_info_evalSmodule, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"global-box-value-setter", &module_info_evalSmodule, NULL}, {"binding-inferred-type-setter", &module_info_evalSmodule, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"global-box-value", &module_info_evalSmodule, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"", &module_info_evalSast, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%binding-value", &module_info_evalSast_eval, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"", &module_info_evalSast, NULL}, {"signature-arity-setter", &module_info_evalSast, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"module-loader-stack", &module_info_evalSmodule, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"function-specs", &module_info_evalSast, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"get-standard-read-macro", &module_info_gooSioSread, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"load-in", &module_info_evalSmodule, NULL}, {"module-mangled-name-setter", &module_info_evalSmodule, NULL}, {"alternative-condition", &module_info_evalSast, NULL}, {"function-source-setter", &module_info_evalSast, NULL}, {"signature-arity", &module_info_evalSast, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sin", &module_info_gooSmath, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"set-module-environments", &module_info_evalSmodule, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"function-registers", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"call-with-subtransaction", &module_info_evalSmodule, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"binding-handler-setter", &module_info_evalSmodule, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"function-names", &module_info_evalSast, NULL}, {"ct", &module_info_gooSboot, NULL}, {"function-value", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"reference-frame-number", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"binding-closed-over?-setter", &module_info_evalSast, NULL}, {"signature-specs", &module_info_evalSast, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"module-transaction", &module_info_evalSmodule, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"init-environment-for-eval", &module_info_evalSast, NULL}, {"bind-exit-main-fun", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"fold+", &module_info_gooScolsScol, NULL}, {"%im", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"function-debug-name", &module_info_evalSast, NULL}, {"function-free-setter", &module_info_evalSast, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"round", &module_info_gooSmath, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"unconstrained-type?", &module_info_evalSoptimize, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"insert-box!", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"~", &module_info_gooSmath, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"reference-offset", &module_info_evalSast_linearize, NULL}, {"function-index", &module_info_evalSast, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSboot, NULL}, {"signature-value-setter", &module_info_evalSast, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"function-binding", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"program-register", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"register-allocate!", &module_info_evalSast_linearize, NULL}, {"%false", &module_info_gooSboot, NULL}, {"binding-value-setter", &module_info_evalSast, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"constant-value", &module_info_evalSast, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"signature-names-setter", &module_info_evalSast, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"/", &module_info_gooSmath, NULL}, {"==", &module_info_gooSmacros, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"runtime-module", &module_info_evalSmodule, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"", &module_info_evalSast, NULL}, {"module-mangled-string-name", &module_info_evalSmodule, NULL}, {"zap-referenced-bindings!", &module_info_evalSmodule, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"module-data-processed?-setter", &module_info_evalSmodule, NULL}, {"", &module_info_evalSmodule, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"binding-type-setter", &module_info_evalSmodule, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"%break", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"environment-module", &module_info_evalSmodule, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"application-loop", &module_info_evalSast, NULL}, {"binding-kind-setter", &module_info_evalSmodule, NULL}, {"extract-things!", &module_info_evalSast_linearize, NULL}, {"", &module_info_gooSioSport, NULL}, {"monitor-handler", &module_info_evalSast, NULL}, {"application-arguments", &module_info_evalSast, NULL}, {"binding-prop-setter", &module_info_evalSmodule, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"case", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"binding-mutable?", &module_info_evalSast, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"ast-error", &module_info_evalSdependency, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"loop-bindings", &module_info_evalSast, NULL}, {"esc", &module_info_gooSboot, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"binding-locative-setter", &module_info_evalSmodule, NULL}, {"binding-name", &module_info_evalSmodule, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"transaction-register-implemented-binding", &module_info_evalSmodule, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"binding-module", &module_info_evalSmodule, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"binding-handler", &module_info_evalSmodule, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"", &module_info_evalSast, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"signature-nary?-setter", &module_info_evalSast, NULL}, {"ast-evaluate", &module_info_evalSast, NULL}, {"", &module_info_evalSmodule, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"~==", &module_info_gooSlog, NULL}, {"&", &module_info_gooSmath, NULL}, {"program-form", &module_info_evalSast_linearize, NULL}, {"module-runtime-data", &module_info_evalSmodule, NULL}, {"form-program", &module_info_evalSast_linearize, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"ensure-module-data", &module_info_evalSmodule, NULL}, {"*current-subtransaction*", &module_info_evalSmodule, NULL}, {"program-line", &module_info_evalSast, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"find-environment-module", &module_info_evalSmodule, NULL}, {"remove-modules-by-name!", &module_info_evalSmodule, NULL}, {"fix-let-types-setter", &module_info_evalSast, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"application-function", &module_info_evalSast, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"function-ref-count", &module_info_evalSast, NULL}, {"dm", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"", &module_info_evalSmodule, NULL}, {"dl", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"while", &module_info_gooSmacros, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"binding-global-box", &module_info_evalSmodule, NULL}, {"", &module_info_evalSast, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"monitor-info", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"binding-dotted?", &module_info_evalSast, NULL}, {"", &module_info_gooScolsScol, NULL}, {"potentially-joint?", &module_info_evalSoptimize, NULL}, {"application-known?-setter", &module_info_evalSast, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"module-loader-module-type", &module_info_evalSmodule, NULL}, {"get", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"mod", &module_info_gooSmath, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"dv", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"process-closed-application", &module_info_evalSast, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"ast-walk", &module_info_evalSast, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"", &module_info_evalSast_linearize, NULL}, {"box-reference", &module_info_evalSast_linearize, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"function-nary?", &module_info_evalSast, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"module-mangled-name", &module_info_evalSmodule, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"@add", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"module-name", &module_info_evalSmodule, NULL}, {"binding-mangled-name-setter", &module_info_evalSmodule, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"~=", &module_info_gooSlog, NULL}, {"", &module_info_gooSconditions, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"reference-called-function?-setter", &module_info_evalSast, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"def-programs", &module_info_evalSast, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"binding-value-or", &module_info_evalSast_eval, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"form-quotations", &module_info_evalSast_linearize, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%binding-value-setter", &module_info_evalSast_eval, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"log", &module_info_gooSmath, NULL}, {"loop-continue-setter", &module_info_evalSast, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"environment-module-loader", &module_info_evalSmodule, NULL}, {"%%%macro", &module_info_evalSast, NULL}, {"", &module_info_gooSboot, NULL}, {"binding-index", &module_info_evalSast, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_evalSast, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"function-free", &module_info_evalSast, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"locals-functions", &module_info_evalSast, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"function-bindings", &module_info_evalSast, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"signature-value", &module_info_evalSast, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_evalSast, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"function-source", &module_info_evalSast, NULL}, {"@map", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YevalStypistYLactG}, {"type+opt-exp", CVAR, &YevalStypistYtypeAopt_exp}, {"", CVAR, &YevalStypistYLfoldG}, {"type-state-acts", CVAR, &YevalStypistYtype_state_acts}, {"type-exp", CVAR, &YevalStypistYtype_exp}, {"surgery!", CVAR, &YevalStypistYsurgeryX}, {"", CVAR, &YevalStypistYLfold_ifG}, {"prop-offset-in", CVAR, &YevalStypistYprop_offset_in}, {"known-call?", CVAR, &YevalStypistYknown_callQ}, {"type-infer-check", CVAR, &YevalStypistYtype_infer_check}, {"", CVAR, &YevalStypistYLfold_callG}, {"", CVAR, &YevalStypistYLprop_accessG}, {"mem-act", CVAR, &YevalStypistYmem_act}, {"type-infer-all", CVAR, &YevalStypistYtype_infer_all}, {"type-infer-binding", CVAR, &YevalStypistYtype_infer_binding}, {"", CVAR, &YevalStypistYLknow_callG}, {"type-union", CVAR, &YevalStypistYtype_union}, {"act-sorted", CVAR, &YevalStypistYact_sorted}, {"act-off", CVAR, &YevalStypistYact_off}, {"do-type-infer", CVAR, &YevalStypistYdo_type_infer}, {"met-prop", CVAR, &YevalStypistYmet_prop}, {"dync", CVAR, &YevalStypistYdync}, {"arity-check?", CVAR, &YevalStypistYarity_checkQ}, {"", CVAR, &YevalStypistYLtype_stateG}, {"act-val", CVAR, &YevalStypistYact_val}, {"type-prop-access", CVAR, &YevalStypistYtype_prop_access}, {"---main-1---", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"type-state-env", CVAR, &YevalStypistYtype_state_env}, {"type-known-met-call", CVAR, &YevalStypistYtype_known_met_call}, {"type-infer", CVAR, &YevalStypistYtype_infer}, {"", CVAR, &YevalStypistYLdispatchG}, {"", CVAR, &YevalStypistYLinline_callG}, {"optimize-method", CVAR, &YevalStypistYoptimize_method}, {"act-test", CVAR, &YevalStypistYact_test}, {"type-value", CVAR, &YevalStypistYtype_value}, {"do-surgery!", CVAR, &YevalStypistYdo_surgeryX}, {"type-intersection", CVAR, &YevalStypistYtype_intersection}, {"dynamic-compute-program", CVAR, &YevalStypistYdynamic_compute_program}, {"cp", CVAR, &YevalStypistYcp}, {"all-prop-offsets", CVAR, &YevalStypistYall_prop_offsets}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"type-infer", NULL}, {"potentially-joint?", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_evalStypist; MODULE_INFO module_info_evalStypist = { "eval/typist", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooStypes (void); extern void load_module_evalSast (void); extern void load_module_evalSast_linearize (void); extern void load_module_evalSast_eval (void); extern void load_module_evalSoptimize (void); extern void load_module_gooSioSread (void); /* EXPRESSION: */ extern void load_module_evalStypist (void); void load_module_evalStypist (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooSfun(); load_module_gooStypes(); load_module_evalSast(); load_module_evalSast_linearize(); load_module_evalSast_eval(); load_module_evalSoptimize(); load_module_gooSioSread(); (P)YevalStypistY___main_0___(); (P)YevalStypistY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/0040755000175000017500000000000007756746021013413 5ustar vomjomvomjomgoo-0.155/c/g2c/goo/CVS/0040755000175000017500000000000007756746021014046 5ustar vomjomvomjomgoo-0.155/c/g2c/goo/CVS/Root0100644000175000017500000000003307756746016014711 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/goo/CVS/Repository0100644000175000017500000000001607756746016016146 0ustar vomjomvomjomgoo/c/g2c/goo goo-0.155/c/g2c/goo/CVS/Entries0100644000175000017500000000225407756746021015402 0ustar vomjomvomjom/%math.c/1.2/Thu Sep 19 00:30:08 2002/-kb/ /%system.c/1.4/Wed Nov 19 19:49:58 2003/-kb/ /any.c/1.6/Wed Nov 19 19:49:58 2003/-kb/ /app.c/1.42/Wed Nov 19 19:49:58 2003/-kb/ /bignum.c/1.1/Wed Nov 19 19:44:43 2003/-kb/ /boot.c/1.50/Wed Nov 19 19:49:58 2003/-kb/ /chr.c/1.6/Wed Nov 19 19:50:00 2003/-kb/ /class.c/1.7/Wed Nov 19 19:50:00 2003/-kb/ /cols.c/1.33/Wed Nov 19 19:50:00 2003/-kb/ /conditions.c/1.15/Wed Nov 19 19:50:00 2003/-kb/ /eval.c/1.48/Wed Nov 19 19:50:00 2003/-kb/ /fun.c/1.7/Wed Nov 19 19:50:01 2003/-kb/ /functional.c/1.7/Wed Nov 19 19:50:01 2003/-kb/ /late-macros.c/1.13/Wed Nov 19 19:50:01 2003/-kb/ /loc.c/1.7/Wed Nov 19 19:50:01 2003/-kb/ /log.c/1.6/Wed Nov 19 19:50:01 2003/-kb/ /macros.c/1.52/Wed Nov 19 19:50:01 2003/-kb/ /mag.c/1.41/Wed Nov 19 19:50:02 2003/-kb/ /math.c/1.42/Wed Nov 19 19:50:02 2003/-kb/ /packer.c/1.34/Wed Nov 19 19:50:03 2003/-kb/ /random.c/1.21/Wed Nov 19 19:50:03 2003/-kb/ /runtime.c/1.46/Wed Sep 11 21:32:31 2002/-kb/ /sym.c/1.6/Wed Nov 19 19:50:04 2003/-kb/ /system.c/1.50/Wed Nov 19 19:50:04 2003/-kb/ /types.c/1.42/Wed Nov 19 19:50:04 2003/-kb/ /user.c/1.48/Wed Nov 19 19:50:05 2003/-kb/ /x.c/1.3/Wed Nov 19 19:50:05 2003/-kb/ D/cols//// D/io//// goo-0.155/c/g2c/goo/%math.c0100644000175000017500000000543507542215220014542 0ustar vomjomvomjom/* Copyright 2002, Jonathan Bachrach. See file TERMS. */ #include /* ARITHMETIC */ INLINE P YgooSmathYPfE(P x, P y) { INTFLO ix, iy; ix.i = (PINT)x; iy.i = (PINT)y; return (P)(PLOG)(ix.f == iy.f); } INLINE P YgooSmathYPfL(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; return (P)(PLOG)(ix.f < iy.f); } INLINE P YgooSmathYPfA(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f + iy.f; return (P)iz.i; } INLINE P YgooSmathYPf_(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f - iy.f; return (P)iz.i; } INLINE P YgooSmathYPfT(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f * iy.f; return (P)iz.i; } INLINE P YgooSmathYPfS(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f / iy.f; return (P)iz.i; } INLINE P YgooSmathYPfi2f(P x) { INTFLO ix; ix.f = (float)(PINT)x; return (P)ix.i; } INLINE P YgooSmathYPft(P x) { PINT z; INTFLO ix; ix.i = (PINT)x; z = (PINT)ix.f; return (P)z; } INLINE P YgooSmathYPfpow(P x, P n) { INTFLO iz, ix, in; ix.i = (PINT)x; in.i = (PINT)n; iz.f = (float)pow((double)ix.f, (double)in.f); return (P)iz.i; } INLINE P YgooSmathYPflog(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)log((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfsqrt(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)sqrt((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfsin(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)sin((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfcos(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)cos((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPftan(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)tan((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfsinh(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)sinh((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfcosh(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)cosh((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPftanh(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)tanh((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfasin(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)asin((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfacos(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)acos((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfatan(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)atan((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfatan2(P y, P x) { INTFLO iz, ix, iy; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = (float)atan2((double)iy.f, (double)ix.f); return (P)iz.i; } INLINE P FLOINT (PFLO x) { INTFLO ix; ix.f = x; return (P)ix.i; } INLINE P YgooSmathYPflo_bits (P x) { return x; } goo-0.155/c/g2c/goo/%system.c0100644000175000017500000001454307756744546015166 0ustar vomjomvomjom/* Copyright 2002, Jonathan Bachrach. See file TERMS. */ #include /* TODO - Need Windows versions of the following functions. */ #include #if !defined(_MSC_VER) #include #endif #include extern P Yfab_sym; extern P Yerror; static void unix_error (char *command, char *filename) { XXCALL4(1, Yerror, YPsb("%s: %s failed: %s.\n"), YPsb(command), YPsb(filename), YPsb(strerror(errno))); } /* TODO - Resolution is crummy because we use single floats. */ #define GOO_EPOCH (978307200) /* January 01, 2001 00:00:00 GMT */ P YgooSsystemYPfile_mtime (P name) { struct stat buf; int res; INTFLO flo; res = stat((PSTR) name, &buf); if (res == 0) { flo.f = (PFLO) buf.st_mtime - GOO_EPOCH; } else { unix_error("stat", name); /* Not executed. */ flo.f = 0.0; } return (P) flo.i; } P YgooSsystemYPfile_existsQ (P name) { struct stat buf; int res; res = stat((PSTR) name, &buf); if (res == 0) return YPtrue; else if (errno == ENOENT) return YPfalse; else unix_error("stat", name); /* Not executed. */ return YPfalse; } #if defined(_MSC_VER) #define S_ISREG(x) ((x) & _S_IFREG) #define S_ISDIR(x) ((x) & _S_IFDIR) #endif P YgooSsystemYPfile_type (P name) { struct stat buf; int res; res = stat((PSTR) name, &buf); if (res == 0) { if (S_ISREG(buf.st_mode)) return XXCALL1(1, Yfab_sym, YPsb("file")); else if (S_ISDIR(buf.st_mode)) return XXCALL1(1, Yfab_sym, YPsb("directory")); else return XXCALL1(1, Yfab_sym, YPsb("unknown")); } else { unix_error("stat", name); /* Not executed. */ return XXCALL1(1, Yfab_sym, YPsb("unknown")); } } /* mkdir is available on Linux and GNU systems. Other systems may not ** bother to supply it! I think you can find N different semi-portable ** implementations in the GNU tar source code. Yes, some Unix systems ** really require you to invoke the 'mkdir' *program* to create a ** directory. */ P YgooSsystemYPcreate_directory (P name) { int res; /* Rely on umask to set privileges. */ #if defined(_MSC_VER) res = mkdir(name); #else res = mkdir(name, S_IRWXU|S_IRWXG|S_IRWXO); #endif if (res != 0) unix_error("mkdir", name); return YPfalse; } /* OS */ P YgooSsystemYPos_name () { #if defined(_WIN32) || defined(WIN32) || defined(WINNT) return (P)"win32"; #else #ifdef linux return (P)"linux"; #else return (P)"unix"; #endif #endif } P YgooSsystemYPos_val (P name) { PSTR value = (PSTR)getenv((char *)name); if (value == NULL) return (P)""; else return (P)value; } P YgooSsystemYPos_val_setter (P value, P name) { #if defined(_MSC_VER) static char buffer[1024]; sprintf(buffer, "%s=%s", (PSTR)name, (PSTR)value); putenv(buffer); return (P)value; #else setenv((PSTR)name, (PSTR)value, 1); return (P)value; #endif } #if !defined(_MSC_VER) #include typedef P (*PLD)(); extern P YgooSsystemYTgoo_rootT; #endif //#include "libtcc.h" static int split_args (char *s, int i, char** a) { for (;;) { // find beginning of arg for (;;) { if (!(*s)) return i; if (!isspace(*s)) break; *s++ = 0; // terminate arg } a[i++] = s; // find end of arg for (;;) { if (!(*s)) return i; if (isspace(*s)) break; s++; } } } P YgooSsystemYPcompile (P cfile, P sofile, P incs, P libs) { #if defined(_MSC_VER) char* command = (char*)allocate(1024); strcpy(command, "cl /O2 /D MSVC_THREAD /D WITH_THREADS /D BUILD_DLL"); strcat(command, " /I../c /I."); strcat(command, " /Fe"); strcat(command, (char*)sofile); strcat(command, " "); strcat(command, (char*)cfile); strcat(command, " dllentry.c /LD /link ./gc.lib ./goovc.lib kernel32.lib"); printf("Executing %s\n", command); system(command); return YPtrue; #else char rbuf[4096]; char lbuf[4096]; char ibuf[4096]; int i, j; int pid; char *bv[] = {"cc", "-shared", "-g", "-O", "-fPIC", rbuf, "-o", sofile, cfile, NULL}; char *v[100], *lptr; sprintf(rbuf, "-I%s/lib", YPsu(YgooSsystemYTgoo_rootT)); // printf("INCS %s\n", incs); // printf("LIBS %s\n", libs); strcpy(lbuf, libs); strcpy(ibuf, incs); for (i = 0; bv[i] != NULL; i++) v[i] = bv[i]; j = i; i = split_args(ibuf, i, v); i = split_args(lbuf, i, v); // for (; j < i; j++) // printf("ARG[%d] = %s\n", j, v[j]); v[i++] = NULL; // printf("EXECUTING %s %s %d\n", ibuf, v[i-2], i); pid = fork(); if (pid == 0) // child execvp("cc", v); else if (pid < 0) XXCALL1(1, Yerror, YPsb("Cannot exec compiler.")); else { int status; // parent do { if (waitpid(pid, &status, 0) == -1) { if (errno != EINTR) return YPfalse; } else return YPtrue; } while(1); return YPfalse; } /* TCC compiler code TCCState *s; char buf[5000]; void (*func)(); s = tcc_new(); printf("Got to 1\n"); if(!s) return YPfalse; tcc_set_output_type(s, TCC_OUTPUT_MEMORY); printf("Got to 2\n"); snprintf(buf, sizeof(buf)-1, "%s/lib", YPsu(YgooSsystemYTgoo_rootT)); tcc_add_include_path(s, buf); printf("Got to 3\n"); tcc_add_file(s, cfile); printf("Got to 4\n"); tcc_relocate(s); printf("Got to 5\n"); func = tcc_get_symbol(s, "load_module_dl"); if(!func) return YPfalse; printf("Got to 6\n"); func(); printf("Got to 7\n"); tcc_delete(s); printf("Got to 8\n"); return YPtrue; */ #endif } #if defined(_MSC_VER) #undef PINT #include #undef PINT #define PINT long #endif P YgooSsystemYPload(P name) { #if defined(_MSC_VER) HANDLE module = 0; printf("Loading %s\n", (char*)name); module = LoadLibrary(name); if(module == NULL) printf("Failed to load library %s\n", (char*)name); else { FARPROC load = GetProcAddress(module, "LoadModuleDl"); return (P)load(); } return YPfalse; #else void* mod; PLD load; P res; // printf("LOADING %s\n", name); mod = dlopen(name, RTLD_NOW | RTLD_GLOBAL); if (mod == NULL) { printf("FAILED TO LOAD %s BECAUSE %s\n", name, dlerror()); return YPfalse; } else { load = (PLD)dlsym(mod, "load_module_dl"); res = load(); // dlclose(mod); } return res; #endif } /* P YevalSg2cYPcompile (P name) { return YgooSsystemYPcompile(name); } P YevalSg2cYPload(P name) { return YgooSsystemYPload(name); } */ extern time_t time(time_t *t); P YgooSsystemYPtime () { time_t tv; tv = time(NULL); return((P)(tv - GOO_EPOCH)); } goo-0.155/c/g2c/goo/any.c0100644000175000017500000012671407756744546014370 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/any"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/any */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); DEF(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_1); DEFLIT(lit_2); DEFLIT(lit_6); DEFLIT(lit_3); DEFLIT(lit_0); DEFLIT(lit_9); DEFLIT(lit_8); DEFLIT(lit_7); DEFLIT(lit_5); DEFLIT(lit_4); /* FUNCTIONS: */ FUNFOR(YgooSanyYaddress_of); LOCFOR(fun_to_str_1); LOCFOR(fun_as_2); extern P YgooSanyY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSanyYaddress_of) { P x_; P tF2770; P xF2769; P xF2768; P T0,T1; LINK_STACK(); ARG(x_, 0); xF2768 = x_; xF2769 = xF2768; tF2770 = (P)1; T1 = (P)YPiLL(xF2769,(P)2); T0 = (P)YPiv(T1,tF2770); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_1) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T2 = CALL1(1,VARREF(Yclass_name),T3); T1 = CALL1(1,VARREF(YgooSanyYto_str),T2); T0 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_7),T1,LITREF(lit_8)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_as_2) { P type_,x_; P T0,T1,T2; LINK_STACK(); ARG(type_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YisaQ),x_,type_); if (T1 != YPfalse) { T0 = x_; } else { T2 = CALL2(1,VARREF(Yas_error),type_,x_); T0 = T2; } UNLINK_STACK(); QRET(T0); } P YgooSanyY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; DEFCREGS(); lit_0 = YPPsym((P)"to-str"); lit_1 = YPPlist(1,YPPsym((P)"")); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSanyYto_str,T0); lit_2 = YPPsym((P)"as"); lit_3 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T3 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooStypesYas,T2); lit_4 = YPPsym((P)"address-of"); lit_5 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); YgooSanyYaddress_of = YPfab_met(FUNCODEREF(YgooSanyYaddress_of),T4,LITREF(lit_4),LITREF(lit_5),sloc(16),YPfalse); T5 = YgooSanyYaddress_of; VARSET(YgooSanyYaddress_of,T5); lit_6 = YPPlist(1,YPPsym((P)"x")); lit_7 = YPsb((P)"{ obj("); lit_8 = YPsb((P)") }"); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_1 = YPfab_met(FUNCODEREF(fun_to_str_1),T6,LITREF(lit_0),LITREF(lit_6),sloc(18),YPfalse); T8 = VARREF_OR(YgooSanyYto_str,YPfalse); T9 = fun_to_str_1; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSanyYto_str,T7); lit_9 = YPPlist(2,YPPsym((P)"type"),YPPsym((P)"x")); T12 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T11 = fun_as_2 = YPfab_met(FUNCODEREF(fun_as_2),T12,LITREF(lit_2),LITREF(lit_9),sloc(21),YPfalse); T15 = VARREF_OR(YgooStypesYas,YPfalse); T16 = fun_as_2; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); T13 = VARSET(YgooStypesYas,T14); T10 = T13; return T10; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooStypes; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmag}, {&module_info_gooStypes}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"address-of", CVAR, &YgooSanyYaddress_of}, {"to-str", CVAR, &YgooSanyYto_str}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"address-of", NULL}, {"as", NULL}, {"to-str", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSany; MODULE_INFO module_info_gooSany = { "goo/any", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmag (void); extern void load_module_gooStypes (void); /* EXPRESSION: */ extern void load_module_gooSany (void); void load_module_gooSany (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmag(); load_module_gooStypes(); (P)YgooSanyY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/app.c0100644000175000017500000014110607756744546014351 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/app"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/app */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YLunionG,"goo/boot",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_0); DEFLIT(lit_1); /* FUNCTIONS: */ FUNFOR(YgooSmacrosYnapp); extern P YgooSappY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSmacrosYnapp) { P proc_,nexts_,args_; P xF3115; P xF3114; P xF3113; P xF3112; P xF3111; P xF3110; P tF3109; P xF3108; P xF3107; P xF3106; P xF3105; P xF3104; P xF3103; P yF3102; P xF3101; P xF3100; P xF3099; P xF3098; P xF3097; P iF3096; P sF3095; P tF3094; P xF3093; P xF3092; P xF3091; P xF3090; P xF3089; P xF3088; P yF3087; P xF3086; P tF3085; P xF3084; P xF3083; P xF3082; P xF3081; P xF3080; P xF3079; P yF3078; P xF3077; P xF3076; P xF3075; P xF3074; P xF3073; P xF3072; P xF3071; P xF3070; P iF3069; P xF3068; P yF3067; P xF3066; P iF3065; P jF3064; P tF3063; P xF3062; P xF3061; P xF3060; P xF3059; P xF3058; P xF3057; P yF3056; P xF3055; P xF3054; P xF3053; P xF3052; P xF3051; P xF3050; P xF3049; P xF3048; P iF3047; P xF3046; P xF3045; P xF3044; P xF3043; P xF3042; P yF3041; P xF3040; P iF3039; P argtopF3038; P tF3037; P xF3036; P xF3035; P xF3034; P xF3033; P xF3032; P xF3031; P yF3030; P xF3029; P frameendF3028; P stackspaceF3027; P xF3026; P xF3025; P xF3024; P tlenF3023; P tF3022; P xF3021; P xF3020; P xF3019; P xF3018; P xF3017; P xF3016; P yF3015; P xF3014; P xF3013; P xF3012; P lelt_optsQF3011; P yF3010; P xF3009; P tagF3008; P xF3007; P xF3006; P leltF3005; P xF3004; P xF3003; P xF3002; P iF3001; P xF3000; P ilenF2999; P tF2998; P xF2997; P xF2996; P xF2995; P xF2994; P xF2993; P xF2992; P yF2991; P xF2990; P xF2989; P xF2988; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; LINK_STACK(); ARG(proc_, 0); ARG(nexts_, 1); NARGS(args_, 2); xF2988 = args_; xF2989 = xF2988; T95 = (P)YPprop_elt(xF2989,(P)1); xF2990 = T95; yF2991 = YPint((P)-1); xF2992 = xF2990; xF2993 = xF2992; T93 = (P)YPiGG(xF2993,(P)2); xF2994 = yF2991; xF2995 = xF2994; T94 = (P)YPiGG(xF2995,(P)2); T92 = (P)YPiA(T93,T94); xF2996 = T92; xF2997 = xF2996; tF2998 = (P)1; T91 = (P)YPiLL(xF2997,(P)2); T90 = (P)YPiv(T91,tF2998); ilenF2999 = T90; xF3000 = args_; iF3001 = ilenF2999; xF3002 = xF3000; T87 = (P)YPprop_elt(xF3002,(P)0); xF3003 = iF3001; xF3004 = xF3003; T89 = (P)YPiGG(xF3004,(P)2); T88 = (P)YPi_((P)0,T89); T86 = (P)YPloc_off(T87,T88); leltF3005 = T86; xF3006 = leltF3005; xF3007 = xF3006; T85 = (P)YPiB(xF3007,(P)3); tagF3008 = T85; T82 = (P)YPiE(tagF3008,(P)0); T81 = (P)YPbb(T82); if (T82) { T83 = (P)YPobject_class(xF3006); T80 = T83; } else { T84 = (P)YPelt(VARREF(YDdirect_object_class),tagF3008); T80 = T84; } xF3009 = T80; yF3010 = VARREF(YLoptsG); T79 = (P)YPeqQ(xF3009,yF3010); T78 = (P)YPbb(T79); lelt_optsQF3011 = T78; xF3014 = ilenF2999; if (lelt_optsQF3011 != YPfalse) { xF3012 = leltF3005; xF3013 = xF3012; T76 = (P)YPprop_elt(xF3013,(P)1); T75 = T76; } else { T77 = CALL1(1,VARREF(YgooStypesYlen),leltF3005); T75 = T77; } yF3015 = T75; xF3016 = xF3014; xF3017 = xF3016; T73 = (P)YPiGG(xF3017,(P)2); xF3018 = yF3015; xF3019 = xF3018; T74 = (P)YPiGG(xF3019,(P)2); T72 = (P)YPiA(T73,T74); xF3020 = T72; xF3021 = xF3020; tF3022 = (P)1; T71 = (P)YPiLL(xF3021,(P)2); T70 = (P)YPiv(T71,tF3022); tlenF3023 = T70; xF3024 = tlenF3023; xF3025 = xF3024; T69 = (P)YPiGG(xF3025,(P)2); T68 = (P)YPiA((P)2,T69); T67 = (P)YPallocate_stack(T68); xF3026 = T67; T66 = (P)YPtag_into(xF3026,(P)3); stackspaceF3027 = T66; T65 = (P)YPsp_reg(); frameendF3028 = T65; xF3029 = tlenF3023; yF3030 = YPint((P)-1); xF3031 = xF3029; xF3032 = xF3031; T63 = (P)YPiGG(xF3032,(P)2); xF3033 = yF3030; xF3034 = xF3033; T64 = (P)YPiGG(xF3034,(P)2); T62 = (P)YPiA(T63,T64); xF3035 = T62; xF3036 = xF3035; tF3037 = (P)1; T61 = (P)YPiLL(xF3036,(P)2); T60 = (P)YPiv(T61,tF3037); argtopF3038 = T60; iF3039 = YPint((P)0); LOOP_68: { P a68_0; xF3040 = iF3039; yF3041 = ilenF2999; xF3042 = xF3040; xF3043 = xF3042; T3 = (P)YPiGG(xF3043,(P)2); xF3044 = yF3041; xF3045 = xF3044; T4 = (P)YPiGG(xF3045,(P)2); T2 = (P)YPiL(T3,T4); T1 = (P)YPbb(T2); if (T2) { xF3046 = args_; iF3047 = iF3039; xF3048 = xF3046; T6 = (P)YPprop_elt(xF3048,(P)0); xF3049 = iF3047; xF3050 = xF3049; T8 = (P)YPiGG(xF3050,(P)2); T7 = (P)YPi_((P)0,T8); T5 = (P)YPloc_off(T6,T7); xF3051 = argtopF3038; xF3052 = xF3051; T10 = (P)YPiGG(xF3052,(P)2); xF3053 = iF3039; xF3054 = xF3053; T11 = (P)YPiGG(xF3054,(P)2); T9 = (P)YPi_(T10,T11); (P)YPloc_off_setter(T5,stackspaceF3027,T9); xF3055 = iF3039; yF3056 = YPint((P)1); xF3057 = xF3055; xF3058 = xF3057; T16 = (P)YPiGG(xF3058,(P)2); xF3059 = yF3056; xF3060 = xF3059; T17 = (P)YPiGG(xF3060,(P)2); T15 = (P)YPiA(T16,T17); xF3061 = T15; xF3062 = xF3061; tF3063 = (P)1; T14 = (P)YPiLL(xF3062,(P)2); T13 = (P)YPiv(T14,tF3063); a68_0 = T13; iF3039 = a68_0; goto LOOP_68; T0 = T12; } else { T0 = YPfalse; } } if (lelt_optsQF3011 != YPfalse) { jF3064 = YPint((P)0); iF3065 = ilenF2999; LOOP_69: { P a69_0,a69_1; xF3066 = iF3065; yF3067 = tlenF3023; T21 = (P)YPeqQ(xF3066,yF3067); T20 = (P)YPbb(T21); T19 = CALL1(1,VARREF(Ynot),T20); if (T19 != YPfalse) { xF3068 = leltF3005; iF3069 = jF3064; xF3070 = xF3068; T23 = (P)YPprop_elt(xF3070,(P)0); xF3071 = iF3069; xF3072 = xF3071; T25 = (P)YPiGG(xF3072,(P)2); T24 = (P)YPi_((P)0,T25); T22 = (P)YPloc_off(T23,T24); xF3073 = argtopF3038; xF3074 = xF3073; T27 = (P)YPiGG(xF3074,(P)2); xF3075 = iF3065; xF3076 = xF3075; T28 = (P)YPiGG(xF3076,(P)2); T26 = (P)YPi_(T27,T28); (P)YPloc_off_setter(T22,stackspaceF3027,T26); xF3077 = jF3064; yF3078 = YPint((P)1); xF3079 = xF3077; xF3080 = xF3079; T33 = (P)YPiGG(xF3080,(P)2); xF3081 = yF3078; xF3082 = xF3081; T34 = (P)YPiGG(xF3082,(P)2); T32 = (P)YPiA(T33,T34); xF3083 = T32; xF3084 = xF3083; tF3085 = (P)1; T31 = (P)YPiLL(xF3084,(P)2); T30 = (P)YPiv(T31,tF3085); xF3086 = iF3065; yF3087 = YPint((P)1); xF3088 = xF3086; xF3089 = xF3088; T38 = (P)YPiGG(xF3089,(P)2); xF3090 = yF3087; xF3091 = xF3090; T39 = (P)YPiGG(xF3091,(P)2); T37 = (P)YPiA(T38,T39); xF3092 = T37; xF3093 = xF3092; tF3094 = (P)1; T36 = (P)YPiLL(xF3093,(P)2); T35 = (P)YPiv(T36,tF3094); a69_0 = T30; a69_1 = T35; jF3064 = a69_0; iF3065 = a69_1; goto LOOP_69; T18 = T29; } else { T18 = YPfalse; } } } else { T54 = CALL1(1,VARREF(YgooScolsScolYenum),leltF3005); sF3095 = T54; iF3096 = ilenF2999; LOOP_70: { P a70_0,a70_1; T42 = CALL1(1,VARREF(YgooScolsScolYfinQ),sF3095); T41 = CALL1(1,VARREF(Ynot),T42); if (T41 != YPfalse) { T43 = CALL1(1,VARREF(YgooScolsScolYnow),sF3095); xF3097 = argtopF3038; xF3098 = xF3097; T45 = (P)YPiGG(xF3098,(P)2); xF3099 = iF3096; xF3100 = xF3099; T46 = (P)YPiGG(xF3100,(P)2); T44 = (P)YPi_(T45,T46); (P)YPloc_off_setter(T43,stackspaceF3027,T44); T48 = CALL1(1,VARREF(YgooScolsScolYnxt),sF3095); xF3101 = iF3096; yF3102 = YPint((P)1); xF3103 = xF3101; xF3104 = xF3103; T52 = (P)YPiGG(xF3104,(P)2); xF3105 = yF3102; xF3106 = xF3105; T53 = (P)YPiGG(xF3106,(P)2); T51 = (P)YPiA(T52,T53); xF3107 = T51; xF3108 = xF3107; tF3109 = (P)1; T50 = (P)YPiLL(xF3108,(P)2); T49 = (P)YPiv(T50,tF3109); a70_0 = T48; a70_1 = T49; sF3095 = a70_0; iF3096 = a70_1; goto LOOP_70; T40 = T47; } else { T40 = YPfalse; } } } xF3110 = tlenF3023; xF3111 = xF3110; T55 = (P)YPiGG(xF3111,(P)2); xF3112 = tlenF3023; xF3113 = xF3112; T56 = (P)YPiGG(xF3113,(P)2); (P)YPloc_off_setter(T55,stackspaceF3027,T56); xF3114 = tlenF3023; xF3115 = xF3114; T58 = (P)YPiGG(xF3115,(P)2); T57 = (P)YPiA((P)1,T58); (P)YPloc_off_setter(proc_,stackspaceF3027,T57); (P)YPsp_reg_setter(frameendF3028); (P)YPcheck_call_types(); T59 = (P)YPraw_call(proc_,nexts_); UNLINK_STACK(); QRET(T59); } P YgooSappY___main_0___() { P T0,T1,T2,T3,T4; DEFCREGS(); lit_0 = YPPsym((P)"napp"); lit_1 = YPPlist(3,YPPsym((P)"proc"),YPPsym((P)"nexts"),YPPsym((P)"args")); T2 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLanyG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); T1 = YgooSmacrosYnapp = YPfab_met(FUNCODEREF(YgooSmacrosYnapp),T2,LITREF(lit_0),LITREF(lit_1),sloc(7),YPfalse); T4 = YgooSmacrosYnapp; T3 = VARSET(YgooSmacrosYnapp,T4); T0 = T3; return T0; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSmacros}, {&module_info_gooScolsScol}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {NULL, NULL} }; extern MODULE_INFO module_info_gooSapp; MODULE_INFO module_info_gooSapp = { "goo/app", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSmacros (void); extern void load_module_gooScolsScol (void); /* EXPRESSION: */ extern void load_module_gooSapp (void); void load_module_gooSapp (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSmacros(); load_module_gooScolsScol(); (P)YgooSappY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/bignum.c0100644000175000017500000041603307756744053015047 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/bignum"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/bignum */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); DEF(YgooSbignumYpow_pos,"goo/bignum","pow-pos"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); DEF(YgooSbignumYmpzUprint,"goo/bignum","mpz_print"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); DEF(YgooSbignumYto_bignum,"goo/bignum","to-bignum"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); DEF(YgooSbignumYgmp_initialize,"goo/bignum","gmp-initialize"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_103); DEFLIT(lit_12); DEFLIT(lit_79); DEFLIT(lit_31); DEFLIT(lit_2); DEFLIT(lit_52); DEFLIT(lit_96); DEFLIT(lit_21); DEFLIT(lit_1); DEFLIT(lit_126); DEFLIT(lit_112); DEFLIT(lit_19); DEFLIT(lit_72); DEFLIT(lit_75); DEFLIT(lit_65); DEFLIT(lit_20); DEFLIT(lit_127); DEFLIT(lit_124); DEFLIT(lit_130); DEFLIT(lit_45); DEFLIT(lit_61); DEFLIT(lit_131); DEFLIT(lit_26); DEFLIT(lit_50); DEFLIT(lit_128); DEFLIT(lit_59); DEFLIT(lit_25); DEFLIT(lit_71); DEFLIT(lit_34); DEFLIT(lit_14); DEFLIT(lit_49); DEFLIT(lit_89); DEFLIT(lit_82); DEFLIT(lit_129); DEFLIT(lit_18); DEFLIT(lit_122); DEFLIT(lit_29); DEFLIT(lit_105); DEFLIT(lit_73); DEFLIT(lit_70); DEFLIT(lit_92); DEFLIT(lit_7); DEFLIT(lit_60); DEFLIT(lit_95); DEFLIT(lit_115); DEFLIT(lit_76); DEFLIT(lit_48); DEFLIT(lit_66); DEFLIT(lit_85); DEFLIT(lit_22); DEFLIT(lit_51); DEFLIT(lit_84); DEFLIT(lit_40); DEFLIT(lit_107); DEFLIT(lit_9); DEFLIT(lit_16); DEFLIT(lit_100); DEFLIT(lit_11); DEFLIT(lit_36); DEFLIT(lit_80); DEFLIT(lit_88); DEFLIT(lit_93); DEFLIT(lit_111); DEFLIT(lit_23); DEFLIT(lit_8); DEFLIT(lit_120); DEFLIT(lit_134); DEFLIT(lit_68); DEFLIT(lit_38); DEFLIT(lit_69); DEFLIT(lit_42); DEFLIT(lit_44); DEFLIT(lit_118); DEFLIT(lit_13); DEFLIT(lit_77); DEFLIT(lit_15); DEFLIT(lit_35); DEFLIT(lit_5); DEFLIT(lit_87); DEFLIT(lit_63); DEFLIT(lit_108); DEFLIT(lit_32); DEFLIT(lit_113); DEFLIT(lit_81); DEFLIT(lit_64); DEFLIT(lit_117); DEFLIT(lit_24); DEFLIT(lit_99); DEFLIT(lit_56); DEFLIT(lit_123); DEFLIT(lit_0); DEFLIT(lit_41); DEFLIT(lit_101); DEFLIT(lit_78); DEFLIT(lit_109); DEFLIT(lit_30); DEFLIT(lit_74); DEFLIT(lit_62); DEFLIT(lit_27); DEFLIT(lit_39); DEFLIT(lit_110); DEFLIT(lit_83); DEFLIT(lit_47); DEFLIT(lit_10); DEFLIT(lit_132); DEFLIT(lit_67); DEFLIT(lit_33); DEFLIT(lit_86); DEFLIT(lit_17); DEFLIT(lit_57); DEFLIT(lit_55); DEFLIT(lit_46); DEFLIT(lit_6); DEFLIT(lit_91); DEFLIT(lit_53); DEFLIT(lit_106); DEFLIT(lit_94); DEFLIT(lit_116); DEFLIT(lit_28); DEFLIT(lit_133); DEFLIT(lit_4); DEFLIT(lit_43); DEFLIT(lit_54); DEFLIT(lit_104); DEFLIT(lit_90); DEFLIT(lit_119); DEFLIT(lit_121); DEFLIT(lit_102); DEFLIT(lit_3); DEFLIT(lit_97); DEFLIT(lit_37); DEFLIT(lit_98); DEFLIT(lit_125); DEFLIT(lit_114); DEFLIT(lit_58); /* FUNCTIONS: */ FUNFOR(YgooSbignumYgmp_initialize); LOCFOR(fun_x_1882_1); LOCFOR(fun_2); LOCFOR(fun_3); LOCFOR(fun_x_1886_4); LOCFOR(fun_5); LOCFOR(fun_6); LOCFOR(fun_x_1890_7); LOCFOR(fun_8); LOCFOR(fun_9); LOCFOR(fun_x_1894_10); LOCFOR(fun_11); LOCFOR(fun_12); LOCFOR(fun_x_1898_13); LOCFOR(fun_14); LOCFOR(fun_15); LOCFOR(fun_x_1902_16); LOCFOR(fun_17); LOCFOR(fun_18); LOCFOR(fun_A_19); LOCFOR(fun_A_20); LOCFOR(fun_A_21); LOCFOR(fun___22); LOCFOR(fun___23); LOCFOR(fun___24); LOCFOR(fun_T_25); LOCFOR(fun_T_26); LOCFOR(fun_T_27); LOCFOR(fun_neg_28); LOCFOR(fun_GG_29); LOCFOR(fun_LL_30); LOCFOR(fun_L_31); LOCFOR(fun_L_32); LOCFOR(fun_L_33); LOCFOR(fun_EE_34); FUNFOR(YgooSbignumYto_bignum); LOCFOR(fun_x_1915_36); LOCFOR(fun_37); LOCFOR(fun_38); LOCFOR(fun_K_39); LOCFOR(fun_K_40); LOCFOR(fun_K_41); LOCFOR(fun_C_42); LOCFOR(fun_C_43); LOCFOR(fun_C_44); LOCFOR(fun_B_45); LOCFOR(fun_B_46); LOCFOR(fun_B_47); LOCFOR(fun_N_48); LOCFOR(fun_bitQ_49); LOCFOR(fun_evenQ_50); LOCFOR(fun_oddQ_51); LOCFOR(fun_truncS_52); LOCFOR(fun_truncS_53); LOCFOR(fun_truncS_54); LOCFOR(fun_pow_pos_55); LOCFOR(fun_pow_56); LOCFOR(fun_A_57); LOCFOR(fun___58); LOCFOR(fun_T_59); LOCFOR(fun_pow_60); LOCFOR(fun_LL_61); LOCFOR(fun_as_62); LOCFOR(fun_truncS_63); FUNFOR(YgooSbignumYmpzUprint); extern P YgooSbignumY___main_0___ (); extern P YgooSbignumY___main_1___ (); /* C-FORMS: */ #include #include static mp_limb_t dummy_limb; static inline PINT iu (P x) { return (PINT)IU(x); } static inline P ib (PINT x) { return (P)tag((P)x, int_tag); } static inline mpz_init_zero(mpz_ptr z) { z->_mp_size = 0; z->_mp_alloc = 0; z->_mp_d = &dummy_limb; } // workaround for the lack of long long handling functions in the mpz library void mpz_init_set_si64(mpz_ptr result, long long src) { int negp = src < 0; if (negp) src = -src; mpz_init_set_si(result, src>>32); mpz_mul_2exp(result, result, 32); mpz_add_ui(result, result, (long)src); if (negp) mpz_neg(result, result); } // checks if the mpz will fit in a GOO fixnum (long - 2 tag bits) static inline int mpz_fits_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t data = z->_mp_d[0]; return (size == 0 || (size == 1 && data <= MAX_GOO_FIXNUM) || (size == -1 && data <= - (mp_limb_t) MIN_GOO_FIXNUM)); } static inline int rawint_fits_fixnum(PINT x) { return (x <= MAX_GOO_FIXNUM && x >= MIN_GOO_FIXNUM); } // returns a GOO integer -- assumes you already checked that it fits static inline P mpz_to_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t low_limb = z->_mp_d[0]; if (size > 0) return ib((PINT)low_limb); else if (size < 0) return ib((PINT)-(long)low_limb); else return ib(0); } static P mpz_to_bignum(mpz_ptr p) { P* obj = (P*)allocate(sizeof(P)+sizeof(__mpz_struct)); mpz_ptr newp = (mpz_ptr)(obj+1); *newp = *p; YPobject_class_setter(YLbignumG, obj); return obj; } static inline mpz_ptr bignum_to_mpz(P obj) { return (mpz_ptr)(((P*)obj)+1); } // this should only be used internally, as most functions assume // bignums cannot be in the range of fixnums static inline P fixnum_to_bignum (P num) { mpz_t mpz; mpz_init_set_si(mpz, (long)iu(num)); return mpz_to_bignum(mpz); } static inline P rawint_to_goo (PINT num) { if(rawint_fits_fixnum(num)) return YPib((P)num); else { mpz_t mpz; mpz_init_set_si(mpz, num); return mpz_to_bignum(mpz); } } static inline P mpz_to_goo(mpz_ptr result) { if(mpz_fits_fixnum(result)) return mpz_to_fixnum(result); else return mpz_to_bignum(result); } static P rawint64_to_goo (long long num) { if(num > LONG_MAX || num < LONG_MIN) { // if it has an upper 32 bits mpz_t mpz; mpz_init_set_si64(mpz, num); return mpz_to_bignum(mpz); } return rawint_to_goo((PINT)num); } static void *gmp_realloc(void *ptr, size_t old, size_t new) { if(ptr == &dummy_limb) return GC_realloc(NULL, new); else return GC_realloc(ptr, new); } static void do_nothing_free(void *ptr, size_t size) { } P gmp_initialize () { mp_set_memory_functions(GC_malloc, gmp_realloc, do_nothing_free); } /* FUNCTION CODES: */ FUNCODEDEF(YgooSbignumYgmp_initialize) { P T0; LINK_STACK(); T0 = YPfalse; { gmp_initialize(); } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1882_1) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_6),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_2) { P return_; P x_1881F5232; P x_1881F5231; P x_1881F5230; P bodyF5229; P resF5228; P x_1881F5227; P x_1882F5226; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(return_, 0); T20 = FUNSHELL(0,fun_x_1882_1,2); x_1882F5226 = T20; FUNINIT(x_1882F5226, 2,FREEREF(0),return_); x_1881F5227 = FREEREF(0); resF5228 = YPfalse; bodyF5229 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1881F5227,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1881F5227,LITREF(lit_6),x_1882F5226); x_1881F5230 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1881F5230,x_1882F5226); resF5228 = T4; T5 = CALL1(1,VARREF(Ytail),x_1881F5230); x_1881F5231 = T5; bodyF5229 = x_1881F5231; x_1881F5232 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1881F5232,x_1882F5226); } else { T7 = CALL2(1,x_1882F5226,LITREF(lit_7),x_1881F5227); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T15 = resF5228; T14 = CALL1(1,VARREF(Ylst),T15); T16 = CALL1(1,VARREF(Ylst),YPfalse); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T16,LITREF(lit_9)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_9)); T10 = CALL1(1,VARREF(Ylst),T11); T17 = bodyF5229; T19 = resF5228; T18 = CALL1(1,VARREF(Ylst),T19); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T17,T18,LITREF(lit_9)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_3) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_2,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1886_4) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_14),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P return_; P zcF5241; P resF5240; P x_1885F5239; P x_1885F5238; P x_1885F5237; P bodyF5236; P zF5235; P x_1885F5234; P x_1886F5233; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; LINK_STACK(); ARG(return_, 0); T29 = FUNSHELL(0,fun_x_1886_4,2); x_1886F5233 = T29; FUNINIT(x_1886F5233, 2,FREEREF(0),return_); x_1885F5234 = FREEREF(0); zF5235 = YPfalse; bodyF5236 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1885F5234,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1885F5234,LITREF(lit_14),x_1886F5233); x_1885F5237 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1885F5237,x_1886F5233); zF5235 = T6; T7 = CALL1(1,VARREF(Ytail),x_1885F5237); x_1885F5238 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1885F5238,x_1886F5233); bodyF5236 = T4; T5 = CALL1(1,VARREF(Ytail),x_1885F5238); x_1885F5239 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1885F5239,x_1886F5233); } else { T9 = CALL2(1,x_1886F5233,LITREF(lit_7),x_1885F5234); } T28 = CALL0(1,VARREF(YgooSmacrosYgensym)); resF5240 = T28; T27 = zF5235; T26 = CALL1(1,VARREF(YgooSanyYto_str),T27); zcF5241 = T26; T11 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T12 = CALL1(1,VARREF(Ylst),resF5240); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_16)); T17 = CALL1(1,VARREF(Ylst),zcF5241); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_17)); T20 = bodyF5236; T19 = CALL1(1,VARREF(Ylst),T20); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_18)); T22 = CALL1(1,VARREF(Ylst),resF5240); T23 = CALL1(1,VARREF(Ylst),LITREF(lit_19)); T24 = CALL1(1,VARREF(Ylst),zcF5241); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_20)); T14 = CALLN(1,VARREF(YgooSmacrosYcat),11,T15,T16,T17,T18,T19,T21,T22,T23,T24,T25,Ynil); T13 = CALL1(1,VARREF(Ylst),T14); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T13,LITREF(lit_9)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_6) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_5,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1890_7) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_25),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_8) { P return_; P x_1889F5248; P x_1889F5247; P x_1889F5246; P c_funF5245; P nameF5244; P x_1889F5243; P x_1890F5242; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44; LINK_STACK(); ARG(return_, 0); T44 = FUNSHELL(0,fun_x_1890_7,2); x_1890F5242 = T44; FUNINIT(x_1890F5242, 2,FREEREF(0),return_); x_1889F5243 = FREEREF(0); nameF5244 = YPfalse; c_funF5245 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1889F5243,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1889F5243,LITREF(lit_25),x_1890F5242); x_1889F5246 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1889F5246,x_1890F5242); nameF5244 = T6; T7 = CALL1(1,VARREF(Ytail),x_1889F5246); x_1889F5247 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1889F5247,x_1890F5242); c_funF5245 = T4; T5 = CALL1(1,VARREF(Ytail),x_1889F5247); x_1889F5248 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1889F5248,x_1890F5242); } else { T9 = CALL2(1,x_1890F5242,LITREF(lit_7),x_1889F5243); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T15 = nameF5244; T14 = CALL1(1,VARREF(Ylst),T15); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_27)); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T16,LITREF(lit_9)); T12 = CALL1(1,VARREF(Ylst),T13); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_9)); T19 = CALL1(1,VARREF(Ylst),T20); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_9)); T23 = CALL1(1,VARREF(Ylst),T24); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T18 = CALL5(1,VARREF(YgooSmacrosYcat),T19,T23,T27,T28,LITREF(lit_9)); T17 = CALL1(1,VARREF(Ylst),T18); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_33)); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_34)); T38 = c_funF5245; T37 = CALL1(1,VARREF(Ylst),T38); T39 = CALL1(1,VARREF(Ylst),LITREF(lit_35)); T40 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T41 = CALL1(1,VARREF(Ylst),LITREF(lit_36)); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T43 = CALL1(1,VARREF(Ylst),LITREF(lit_37)); T34 = CALLN(1,VARREF(YgooSmacrosYcat),9,T35,T36,T37,T39,T40,T41,T42,T43,Ynil); T33 = CALL1(1,VARREF(Ylst),T34); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T33,LITREF(lit_9)); T29 = CALL1(1,VARREF(Ylst),T30); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T17,T29,LITREF(lit_9)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_9) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_8,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1894_10) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_42),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_11) { P return_; P x_1893F5255; P x_1893F5254; P x_1893F5253; P c_funF5252; P nameF5251; P x_1893F5250; P x_1894F5249; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44; LINK_STACK(); ARG(return_, 0); T44 = FUNSHELL(0,fun_x_1894_10,2); x_1894F5249 = T44; FUNINIT(x_1894F5249, 2,FREEREF(0),return_); x_1893F5250 = FREEREF(0); nameF5251 = YPfalse; c_funF5252 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1893F5250,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1893F5250,LITREF(lit_42),x_1894F5249); x_1893F5253 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1893F5253,x_1894F5249); nameF5251 = T6; T7 = CALL1(1,VARREF(Ytail),x_1893F5253); x_1893F5254 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1893F5254,x_1894F5249); c_funF5252 = T4; T5 = CALL1(1,VARREF(Ytail),x_1893F5254); x_1893F5255 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1893F5255,x_1894F5249); } else { T9 = CALL2(1,x_1894F5249,LITREF(lit_7),x_1893F5250); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T15 = nameF5251; T14 = CALL1(1,VARREF(Ylst),T15); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_27)); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T16,LITREF(lit_9)); T12 = CALL1(1,VARREF(Ylst),T13); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_9)); T19 = CALL1(1,VARREF(Ylst),T20); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_43)); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_9)); T23 = CALL1(1,VARREF(Ylst),T24); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T18 = CALL5(1,VARREF(YgooSmacrosYcat),T19,T23,T27,T28,LITREF(lit_9)); T17 = CALL1(1,VARREF(Ylst),T18); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_33)); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_44)); T38 = c_funF5252; T37 = CALL1(1,VARREF(Ylst),T38); T39 = CALL1(1,VARREF(Ylst),LITREF(lit_45)); T40 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T41 = CALL1(1,VARREF(Ylst),LITREF(lit_46)); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T43 = CALL1(1,VARREF(Ylst),LITREF(lit_47)); T34 = CALLN(1,VARREF(YgooSmacrosYcat),9,T35,T36,T37,T39,T40,T41,T42,T43,Ynil); T33 = CALL1(1,VARREF(Ylst),T34); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T33,LITREF(lit_9)); T29 = CALL1(1,VARREF(Ylst),T30); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T17,T29,LITREF(lit_9)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_12) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_11,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1898_13) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_52),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_14) { P return_; P x_1897F5262; P x_1897F5261; P x_1897F5260; P c_funF5259; P nameF5258; P x_1897F5257; P x_1898F5256; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44; LINK_STACK(); ARG(return_, 0); T44 = FUNSHELL(0,fun_x_1898_13,2); x_1898F5256 = T44; FUNINIT(x_1898F5256, 2,FREEREF(0),return_); x_1897F5257 = FREEREF(0); nameF5258 = YPfalse; c_funF5259 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1897F5257,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1897F5257,LITREF(lit_52),x_1898F5256); x_1897F5260 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1897F5260,x_1898F5256); nameF5258 = T6; T7 = CALL1(1,VARREF(Ytail),x_1897F5260); x_1897F5261 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1897F5261,x_1898F5256); c_funF5259 = T4; T5 = CALL1(1,VARREF(Ytail),x_1897F5261); x_1897F5262 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1897F5262,x_1898F5256); } else { T9 = CALL2(1,x_1898F5256,LITREF(lit_7),x_1897F5257); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T15 = nameF5258; T14 = CALL1(1,VARREF(Ylst),T15); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_27)); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T16,LITREF(lit_9)); T12 = CALL1(1,VARREF(Ylst),T13); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_43)); T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_9)); T19 = CALL1(1,VARREF(Ylst),T20); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_9)); T23 = CALL1(1,VARREF(Ylst),T24); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T18 = CALL5(1,VARREF(YgooSmacrosYcat),T19,T23,T27,T28,LITREF(lit_9)); T17 = CALL1(1,VARREF(Ylst),T18); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_33)); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_53)); T38 = c_funF5259; T37 = CALL1(1,VARREF(Ylst),T38); T39 = CALL1(1,VARREF(Ylst),LITREF(lit_54)); T40 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T41 = CALL1(1,VARREF(Ylst),LITREF(lit_55)); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T43 = CALL1(1,VARREF(Ylst),LITREF(lit_56)); T34 = CALLN(1,VARREF(YgooSmacrosYcat),9,T35,T36,T37,T39,T40,T41,T42,T43,Ynil); T33 = CALL1(1,VARREF(Ylst),T34); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T33,LITREF(lit_9)); T29 = CALL1(1,VARREF(Ylst),T30); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T17,T29,LITREF(lit_9)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_15) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_14,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1902_16) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_61),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_17) { P return_; P x_1901F5269; P x_1901F5268; P x_1901F5267; P c_funF5266; P nameF5265; P x_1901F5264; P x_1902F5263; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38; LINK_STACK(); ARG(return_, 0); T38 = FUNSHELL(0,fun_x_1902_16,2); x_1902F5263 = T38; FUNINIT(x_1902F5263, 2,FREEREF(0),return_); x_1901F5264 = FREEREF(0); nameF5265 = YPfalse; c_funF5266 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1901F5264,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1901F5264,LITREF(lit_61),x_1902F5263); x_1901F5267 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1901F5267,x_1902F5263); nameF5265 = T6; T7 = CALL1(1,VARREF(Ytail),x_1901F5267); x_1901F5268 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1901F5268,x_1902F5263); c_funF5266 = T4; T5 = CALL1(1,VARREF(Ytail),x_1901F5268); x_1901F5269 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1901F5269,x_1902F5263); } else { T9 = CALL2(1,x_1902F5263,LITREF(lit_7),x_1901F5264); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T15 = nameF5265; T14 = CALL1(1,VARREF(Ylst),T15); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_27)); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T16,LITREF(lit_9)); T12 = CALL1(1,VARREF(Ylst),T13); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_9)); T19 = CALL1(1,VARREF(Ylst),T20); T23 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T18 = CALL4(1,VARREF(YgooSmacrosYcat),T19,T23,T24,LITREF(lit_9)); T17 = CALL1(1,VARREF(Ylst),T18); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_33)); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_62)); T34 = c_funF5266; T33 = CALL1(1,VARREF(Ylst),T34); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T37 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T30 = CALLN(1,VARREF(YgooSmacrosYcat),7,T31,T32,T33,T35,T36,T37,Ynil); T29 = CALL1(1,VARREF(Ylst),T30); T26 = CALL4(1,VARREF(YgooSmacrosYcat),T27,T28,T29,LITREF(lit_9)); T25 = CALL1(1,VARREF(Ylst),T26); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T17,T25,LITREF(lit_9)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_18) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_17,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_A_19) { P x_,y_; P x_1903F5270; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1903F5270 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_add(z, bignum_to_mpz(x_), bignum_to_mpz(y_)); } x_1903F5270 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1903F5270); } LOCCODEDEF(fun_A_20) { P x_,y_; P x_1904F5271; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1904F5271 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { if (y_ >= 0) mpz_add_ui(z, bignum_to_mpz(x_), iu(y_)); else mpz_sub_ui(z, bignum_to_mpz(x_), -iu(y_)); } x_1904F5271 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1904F5271); } LOCCODEDEF(fun_A_21) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL2(1,VARREF(YgooSmathYA),y_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun___22) { P x_,y_; P x_1905F5272; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1905F5272 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_sub(z, bignum_to_mpz(x_), bignum_to_mpz(y_)); } x_1905F5272 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1905F5272); } LOCCODEDEF(fun___23) { P x_,y_; P x_1906F5273; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1906F5273 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { if (y_ >= 0) mpz_sub_ui(z, bignum_to_mpz(x_), iu(y_)); else mpz_add_ui(z, bignum_to_mpz(x_), -iu(y_)); } x_1906F5273 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1906F5273); } LOCCODEDEF(fun___24) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmathY_),y_,x_); T0 = CALL1(1,VARREF(YgooSmathYneg),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_T_25) { P x_,y_; P x_1907F5274; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1907F5274 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_mul(z, bignum_to_mpz(x_), bignum_to_mpz(y_)); } x_1907F5274 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1907F5274); } LOCCODEDEF(fun_T_26) { P x_,y_; P x_1908F5275; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1908F5275 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_mul_si(z, bignum_to_mpz(x_), iu(y_)); } x_1908F5275 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1908F5275); } LOCCODEDEF(fun_T_27) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL2(1,VARREF(YgooSmathYT),y_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_neg_28) { P x_; P x_1909F5276; P T0; LINK_STACK(); ARG(x_, 0); x_1909F5276 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_neg(z, bignum_to_mpz(x_)); } x_1909F5276 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1909F5276); } LOCCODEDEF(fun_GG_29) { P x_,y_; P x_1910F5277; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1910F5277 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_fdiv_q_2exp(z, bignum_to_mpz(x_), iu(y_)); } x_1910F5277 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1910F5277); } LOCCODEDEF(fun_LL_30) { P x_,y_; P x_1911F5278; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1911F5278 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_mul_2exp(z, bignum_to_mpz(x_), iu(y_)); } x_1911F5278 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1911F5278); } LOCCODEDEF(fun_L_31) { P x_,y_; P tF5281; P xF5280; P xF5279; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T3 = (P)( mpz_sgn(bignum_to_mpz(y_)) ); xF5279 = T3; xF5280 = xF5279; tF5281 = (P)1; T2 = (P)YPiLL(xF5280,(P)2); T1 = (P)YPiv(T2,tF5281); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)1)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_32) { P x_,y_; P tF5284; P xF5283; P xF5282; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T3 = (P)( mpz_sgn(bignum_to_mpz(x_)) ); xF5282 = T3; xF5283 = xF5282; tF5284 = (P)1; T2 = (P)YPiLL(xF5283,(P)2); T1 = (P)YPiv(T2,tF5284); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)-1)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_33) { P x_,y_; P tF5287; P xF5286; P xF5285; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T3 = (P)( mpz_cmp(bignum_to_mpz(x_), bignum_to_mpz(y_)) ); xF5285 = T3; xF5286 = xF5285; tF5287 = (P)1; T2 = (P)YPiLL(xF5286,(P)2); T1 = (P)YPiv(T2,tF5287); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)-1)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_EE_34) { P x_,y_; P tF5290; P xF5289; P xF5288; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T3 = (P)( mpz_cmp(bignum_to_mpz(x_), bignum_to_mpz(y_)) ); xF5288 = T3; xF5289 = xF5288; tF5290 = (P)1; T2 = (P)YPiLL(xF5289,(P)2); T1 = (P)YPiv(T2,tF5290); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)0)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSbignumYto_bignum) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)( fixnum_to_bignum(x_) );UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1915_36) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_95),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_37) { P return_; P x_1914F5297; P x_1914F5296; P x_1914F5295; P c_funF5294; P nameF5293; P x_1914F5292; P x_1915F5291; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77; LINK_STACK(); ARG(return_, 0); T77 = FUNSHELL(0,fun_x_1915_36,2); x_1915F5291 = T77; FUNINIT(x_1915F5291, 2,FREEREF(0),return_); x_1914F5292 = FREEREF(0); nameF5293 = YPfalse; c_funF5294 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1914F5292,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1914F5292,LITREF(lit_95),x_1915F5291); x_1914F5295 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1914F5295,x_1915F5291); nameF5293 = T6; T7 = CALL1(1,VARREF(Ytail),x_1914F5295); x_1914F5296 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1914F5296,x_1915F5291); c_funF5294 = T4; T5 = CALL1(1,VARREF(Ytail),x_1914F5296); x_1914F5297 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1914F5297,x_1915F5291); } else { T9 = CALL2(1,x_1915F5291,LITREF(lit_7),x_1914F5292); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_96)); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_25)); T16 = nameF5293; T15 = CALL1(1,VARREF(Ylst),T16); T18 = c_funF5294; T17 = CALL1(1,VARREF(Ylst),T18); T13 = CALL4(1,VARREF(YgooSmacrosYcat),T14,T15,T17,LITREF(lit_9)); T12 = CALL1(1,VARREF(Ylst),T13); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T25 = nameF5293; T24 = CALL1(1,VARREF(Ylst),T25); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_27)); T23 = CALL3(1,VARREF(YgooSmacrosYcat),T24,T26,LITREF(lit_9)); T22 = CALL1(1,VARREF(Ylst),T23); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_43)); T30 = CALL3(1,VARREF(YgooSmacrosYcat),T31,T32,LITREF(lit_9)); T29 = CALL1(1,VARREF(Ylst),T30); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T34 = CALL3(1,VARREF(YgooSmacrosYcat),T35,T36,LITREF(lit_9)); T33 = CALL1(1,VARREF(Ylst),T34); T37 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T38 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T28 = CALL5(1,VARREF(YgooSmacrosYcat),T29,T33,T37,T38,LITREF(lit_9)); T27 = CALL1(1,VARREF(Ylst),T28); T42 = nameF5293; T41 = CALL1(1,VARREF(Ylst),T42); T45 = CALL1(1,VARREF(Ylst),LITREF(lit_89)); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T44 = CALL3(1,VARREF(YgooSmacrosYcat),T45,T46,LITREF(lit_9)); T43 = CALL1(1,VARREF(Ylst),T44); T47 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T40 = CALL4(1,VARREF(YgooSmacrosYcat),T41,T43,T47,LITREF(lit_9)); T39 = CALL1(1,VARREF(Ylst),T40); T20 = CALL5(1,VARREF(YgooSmacrosYcat),T21,T22,T27,T39,LITREF(lit_9)); T19 = CALL1(1,VARREF(Ylst),T20); T50 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T54 = nameF5293; T53 = CALL1(1,VARREF(Ylst),T54); T55 = CALL1(1,VARREF(Ylst),LITREF(lit_27)); T52 = CALL3(1,VARREF(YgooSmacrosYcat),T53,T55,LITREF(lit_9)); T51 = CALL1(1,VARREF(Ylst),T52); T60 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T61 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T59 = CALL3(1,VARREF(YgooSmacrosYcat),T60,T61,LITREF(lit_9)); T58 = CALL1(1,VARREF(Ylst),T59); T64 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T65 = CALL1(1,VARREF(Ylst),LITREF(lit_43)); T63 = CALL3(1,VARREF(YgooSmacrosYcat),T64,T65,LITREF(lit_9)); T62 = CALL1(1,VARREF(Ylst),T63); T66 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T67 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T57 = CALL5(1,VARREF(YgooSmacrosYcat),T58,T62,T66,T67,LITREF(lit_9)); T56 = CALL1(1,VARREF(Ylst),T57); T71 = nameF5293; T70 = CALL1(1,VARREF(Ylst),T71); T72 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T75 = CALL1(1,VARREF(Ylst),LITREF(lit_89)); T76 = CALL1(1,VARREF(Ylst),LITREF(lit_30)); T74 = CALL3(1,VARREF(YgooSmacrosYcat),T75,T76,LITREF(lit_9)); T73 = CALL1(1,VARREF(Ylst),T74); T69 = CALL4(1,VARREF(YgooSmacrosYcat),T70,T72,T73,LITREF(lit_9)); T68 = CALL1(1,VARREF(Ylst),T69); T49 = CALL5(1,VARREF(YgooSmacrosYcat),T50,T51,T56,T68,LITREF(lit_9)); T48 = CALL1(1,VARREF(Ylst),T49); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T19,T48,LITREF(lit_9)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_38) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_37,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_K_39) { P x_,y_; P x_1916F5298; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1916F5298 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_ior(z, bignum_to_mpz(x_), bignum_to_mpz(y_)); } x_1916F5298 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1916F5298); } LOCCODEDEF(fun_K_40) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),x_); T0 = CALL2(1,VARREF(YgooSmathYK),T1,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_K_41) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),y_); T0 = CALL2(1,VARREF(YgooSmathYK),x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_C_42) { P x_,y_; P x_1917F5299; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1917F5299 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_xor(z, bignum_to_mpz(x_), bignum_to_mpz(y_)); } x_1917F5299 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1917F5299); } LOCCODEDEF(fun_C_43) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),x_); T0 = CALL2(1,VARREF(YgooSmathYC),T1,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_C_44) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),y_); T0 = CALL2(1,VARREF(YgooSmathYC),x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_B_45) { P x_,y_; P x_1918F5300; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1918F5300 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_and(z, bignum_to_mpz(x_), bignum_to_mpz(y_)); } x_1918F5300 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1918F5300); } LOCCODEDEF(fun_B_46) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),x_); T0 = CALL2(1,VARREF(YgooSmathYB),T1,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_B_47) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),y_); T0 = CALL2(1,VARREF(YgooSmathYB),x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_N_48) { P x_; P x_1919F5301; P T0; LINK_STACK(); ARG(x_, 0); x_1919F5301 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_com(z, bignum_to_mpz(x_)); } x_1919F5301 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1919F5301); } LOCCODEDEF(fun_bitQ_49) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = (P)( mpz_tstbit(bignum_to_mpz(x_), iu(y_)) ); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_evenQ_50) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmathYoddQ),x_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_oddQ_51) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = (P)( mpz_odd_p(bignum_to_mpz(x_)) ); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_truncS_52) { P x_,y_; P rF5303; P qF5302; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); qF5302 = YPint((P)0); rF5303 = YPint((P)0); YPfalse; { mpz_t q, r; mpz_init_zero(q); mpz_init_zero(r); mpz_tdiv_qr(q, r, bignum_to_mpz(x_), bignum_to_mpz(y_)); qF5302 = mpz_to_goo(q); rF5303 = mpz_to_goo(r); } T0 = CALL2(1,VARREF(Ytup),qF5302,rF5303); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_truncS_53) { P x_,y_; P rF5305; P qF5304; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); qF5304 = YPint((P)0); rF5305 = YPint((P)0); YPfalse; { mpz_t q; long r; PINT y = iu(y_); PINT d = (y > 0) ? y : -y; mpz_ptr xm = bignum_to_mpz(x_); mpz_init_zero(q); r = mpz_tdiv_q_ui(q, xm, d); if(mpz_sgn(xm) < 0) r = -r; if(y < 0) mpz_neg(q,q); qF5304 = mpz_to_goo(q); rF5305 = YPib((P)r); } T0 = CALL2(1,VARREF(Ytup),qF5304,rF5305); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_truncS_54) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL2(1,VARREF(Ytup),YPint((P)0),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pow_pos_55) { P x_,y_; P x_1920F5306; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); x_1920F5306 = YPfalse; YPfalse; { mpz_t z; mpz_init_zero(z); T0 = YPfalse; { mpz_pow_ui(z, bignum_to_mpz(x_), iu(y_)); } x_1920F5306 = mpz_to_goo(z); } UNLINK_STACK(); RET(x_1920F5306); } LOCCODEDEF(fun_pow_56) { P x_,n_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); ARG(n_, 1); T1 = CALL2(1,VARREF(YgooSmagYL),n_,YPint((P)0)); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmathYneg),n_); T3 = CALL2(1,VARREF(YgooSbignumYpow_pos),x_,T4); T2 = CALL2(1,VARREF(YgooSmathYS),YPint((P)1),T3); T0 = T2; } else { T5 = CALL2(1,VARREF(YgooSbignumYpow_pos),x_,n_); T0 = T5; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_A_57) { P x_,y_; P xF5310; P xF5309; P xF5308; P xF5307; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = (P)( rawint_to_goo((PINT)(P)YPiA((xF5307 = x_, (xF5308 = xF5307, (P)YPiGG(xF5308,(P)2))),(xF5309 = y_, (xF5310 = xF5309, (P)YPiGG(xF5310,(P)2))))) );UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun___58) { P x_,y_; P xF5314; P xF5313; P xF5312; P xF5311; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = (P)( rawint_to_goo((PINT)(P)YPi_((xF5311 = x_, (xF5312 = xF5311, (P)YPiGG(xF5312,(P)2))),(xF5313 = y_, (xF5314 = xF5313, (P)YPiGG(xF5314,(P)2))))) );UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_T_59) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = (P)( rawint64_to_goo(((long long)YPiu(x_))*((long long)YPiu(y_))) );UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pow_60) { P x_,n_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(n_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),x_); T0 = CALL2(1,VARREF(YgooSmathYpow),T1,n_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_LL_61) { P x_,a_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(a_, 1); T1 = CALL1(1,VARREF(YgooSbignumYto_bignum),x_); T0 = CALL2(1,VARREF(YgooSmathYLL),T1,a_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_as_62) { P t_,x_; P resF5315; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); resF5315 = YPfalse; YPfalse; { INTFLO iz; iz.f = mpz_get_d(bignum_to_mpz(x_)); resF5315 = (P)YPfb((P)iz.i); } UNLINK_STACK(); QRET(resF5315); } LOCCODEDEF(fun_truncS_63) { P x_,y_; P resultF5317; P dividedF5316; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T5 = CALL2(1,VARREF(YgooSmathYS),x_,y_); dividedF5316 = T5; resultF5317 = YPint((P)0); YPfalse; { INTFLO iz; iz.i = (P)YPfu(x_); if (rawint_fits_fixnum((PINT)iz.f)) resultF5317 = ib((PINT)iz.f); else { mpz_t z; mpz_init_set_d(z, iz.f); resultF5317 = mpz_to_goo(z); } } T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),resultF5317); T3 = CALL2(1,VARREF(YgooSmathY_),dividedF5316,T4); T2 = CALL2(1,VARREF(YgooSmathYT),y_,T3); T1 = CALL2(1,VARREF(Ytup),resultF5317,T2); UNLINK_STACK(); RET(T1); } FUNCODEDEF(YgooSbignumYmpzUprint) { P num_; P T0; LINK_STACK(); ARG(num_, 0); T0 = YPfalse; { mpz_out_str(stdout, 10, bignum_to_mpz(num_)); } UNLINK_STACK(); QRET(T0); } P YgooSbignumY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177; DEFCREGS(); lit_0 = YPPsym((P)"gmp-initialize"); lit_1 = Ynil; T0 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSbignumYgmp_initialize = YPfab_met(FUNCODEREF(YgooSbignumYgmp_initialize),T0,LITREF(lit_0),LITREF(lit_1),sloc(118),YPfalse); T1 = YgooSbignumYgmp_initialize; VARSET(YgooSbignumYgmp_initialize,T1); XCALL0(1,VARREF(YgooSbignumYgmp_initialize)); lit_2 = YPPlist(1,YPPsym((P)"exp")); lit_3 = YPPlist(1,YPPsym((P)"return")); lit_4 = YPPsym((P)"x-1882"); lit_5 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_6 = YPPsym((P)"with-returning"); lit_7 = YPsb((P)"Match Pattern Failure"); lit_8 = YPPsym((P)"let"); lit_9 = Ynil; T4 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1882_1 = YPfab_met(FUNCODEREF(fun_x_1882_1),T4,LITREF(lit_4),LITREF(lit_5),YPfalse,YPfalse); T3 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T3,YPfalse,LITREF(lit_3),YPfalse,YPfalse); T2 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T2,YPfalse,LITREF(lit_2),YPfalse,YPfalse); T5 = fun_3; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"with-returning"),T5); lit_10 = YPPlist(1,YPPsym((P)"exp")); lit_11 = YPPlist(1,YPPsym((P)"return")); lit_12 = YPPsym((P)"x-1886"); lit_13 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_14 = YPPsym((P)"with-gmp-returning"); lit_15 = YPPsym((P)"c-ment"); lit_16 = YPsb((P)" mpz_t "); lit_17 = YPsb((P)"; mpz_init_zero(z); "); lit_18 = YPsb((P)" "); lit_19 = YPsb((P)" = mpz_to_goo("); lit_20 = YPsb((P)"); "); T8 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1886_4 = YPfab_met(FUNCODEREF(fun_x_1886_4),T8,LITREF(lit_12),LITREF(lit_13),YPfalse,YPfalse); T7 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T7,YPfalse,LITREF(lit_11),YPfalse,YPfalse); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T6,YPfalse,LITREF(lit_10),YPfalse,YPfalse); T9 = fun_6; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"with-gmp-returning"),T9); lit_21 = YPPlist(1,YPPsym((P)"exp")); lit_22 = YPPlist(1,YPPsym((P)"return")); lit_23 = YPPsym((P)"x-1890"); lit_24 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_25 = YPPsym((P)"def-b-b"); lit_26 = YPPsym((P)"dm"); lit_27 = YPPsym((P)"inline"); lit_28 = YPPsym((P)"x"); lit_29 = YPPsym((P)""); lit_30 = YPPsym((P)"y"); lit_31 = YPPsym((P)"=>"); lit_32 = YPPsym((P)""); lit_33 = YPPsym((P)"z"); lit_34 = YPsb((P)" "); lit_35 = YPsb((P)"(z, bignum_to_mpz("); lit_36 = YPsb((P)"), bignum_to_mpz("); lit_37 = YPsb((P)")); "); T12 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1890_7 = YPfab_met(FUNCODEREF(fun_x_1890_7),T12,LITREF(lit_23),LITREF(lit_24),YPfalse,YPfalse); T11 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_8 = YPfab_met(FUNCODEREF(fun_8),T11,YPfalse,LITREF(lit_22),YPfalse,YPfalse); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T10,YPfalse,LITREF(lit_21),YPfalse,YPfalse); T13 = fun_9; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"def-b-b"),T13); lit_38 = YPPlist(1,YPPsym((P)"exp")); lit_39 = YPPlist(1,YPPsym((P)"return")); lit_40 = YPPsym((P)"x-1894"); lit_41 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_42 = YPPsym((P)"def-b-i"); lit_43 = YPPsym((P)""); lit_44 = YPsb((P)" "); lit_45 = YPsb((P)"(z, bignum_to_mpz("); lit_46 = YPsb((P)"), iu("); lit_47 = YPsb((P)")); "); T16 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1894_10 = YPfab_met(FUNCODEREF(fun_x_1894_10),T16,LITREF(lit_40),LITREF(lit_41),YPfalse,YPfalse); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T15,YPfalse,LITREF(lit_39),YPfalse,YPfalse); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T14,YPfalse,LITREF(lit_38),YPfalse,YPfalse); T17 = fun_12; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"def-b-i"),T17); lit_48 = YPPlist(1,YPPsym((P)"exp")); lit_49 = YPPlist(1,YPPsym((P)"return")); lit_50 = YPPsym((P)"x-1898"); lit_51 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_52 = YPPsym((P)"def-i-b"); lit_53 = YPsb((P)" "); lit_54 = YPsb((P)"(z, iu("); lit_55 = YPsb((P)"), bignum_to_mpz("); lit_56 = YPsb((P)")); "); T20 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1898_13 = YPfab_met(FUNCODEREF(fun_x_1898_13),T20,LITREF(lit_50),LITREF(lit_51),YPfalse,YPfalse); T19 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T19,YPfalse,LITREF(lit_49),YPfalse,YPfalse); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T18,YPfalse,LITREF(lit_48),YPfalse,YPfalse); T21 = fun_15; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"def-i-b"),T21); lit_57 = YPPlist(1,YPPsym((P)"exp")); lit_58 = YPPlist(1,YPPsym((P)"return")); lit_59 = YPPsym((P)"x-1902"); lit_60 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_61 = YPPsym((P)"def-b"); lit_62 = YPsb((P)" "); lit_63 = YPsb((P)"(z, bignum_to_mpz("); lit_64 = YPsb((P)")); "); T24 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1902_16 = YPfab_met(FUNCODEREF(fun_x_1902_16),T24,LITREF(lit_59),LITREF(lit_60),YPfalse,YPfalse); T23 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_17 = YPfab_met(FUNCODEREF(fun_17),T23,YPfalse,LITREF(lit_58),YPfalse,YPfalse); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T22,YPfalse,LITREF(lit_57),YPfalse,YPfalse); T25 = fun_18; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"def-b"),T25); lit_65 = YPPsym((P)"+"); lit_66 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T26 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_A_19 = YPfab_met_inlineable(FUNCODEREF(fun_A_19),T26,LITREF(lit_65),LITREF(lit_66),sloc(159),YPfalse); T28 = VARREF_OR(YgooSmathYA,YPfalse); T29 = fun_A_19; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSmathYA,T27); lit_67 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T30 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_A_20 = YPfab_met_inlineable(FUNCODEREF(fun_A_20),T30,LITREF(lit_65),LITREF(lit_67),sloc(161),YPfalse); T32 = VARREF_OR(YgooSmathYA,YPfalse); T33 = fun_A_20; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSmathYA,T31); lit_68 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T34 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_A_21 = YPfab_met_inlineable(FUNCODEREF(fun_A_21),T34,LITREF(lit_65),LITREF(lit_68),sloc(168),YPfalse); T36 = VARREF_OR(YgooSmathYA,YPfalse); T37 = fun_A_21; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooSmathYA,T35); lit_69 = YPPsym((P)"-"); lit_70 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T38 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun___22 = YPfab_met_inlineable(FUNCODEREF(fun___22),T38,LITREF(lit_69),LITREF(lit_70),sloc(171),YPfalse); T40 = VARREF_OR(YgooSmathY_,YPfalse); T41 = fun___22; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSmathY_,T39); lit_71 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T42 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun___23 = YPfab_met_inlineable(FUNCODEREF(fun___23),T42,LITREF(lit_69),LITREF(lit_71),sloc(173),YPfalse); T44 = VARREF_OR(YgooSmathY_,YPfalse); T45 = fun___23; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSmathY_,T43); lit_72 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T46 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun___24 = YPfab_met_inlineable(FUNCODEREF(fun___24),T46,LITREF(lit_69),LITREF(lit_72),sloc(180),YPfalse); T48 = VARREF_OR(YgooSmathY_,YPfalse); T49 = fun___24; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSmathY_,T47); lit_73 = YPPsym((P)"*"); lit_74 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T50 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_T_25 = YPfab_met_inlineable(FUNCODEREF(fun_T_25),T50,LITREF(lit_73),LITREF(lit_74),sloc(183),YPfalse); T52 = VARREF_OR(YgooSmathYT,YPfalse); T53 = fun_T_25; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSmathYT,T51); lit_75 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T54 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_T_26 = YPfab_met_inlineable(FUNCODEREF(fun_T_26),T54,LITREF(lit_73),LITREF(lit_75),sloc(184),YPfalse); T56 = VARREF_OR(YgooSmathYT,YPfalse); T57 = fun_T_26; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSmathYT,T55); lit_76 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T58 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_T_27 = YPfab_met_inlineable(FUNCODEREF(fun_T_27),T58,LITREF(lit_73),LITREF(lit_76),sloc(185),YPfalse); T60 = VARREF_OR(YgooSmathYT,YPfalse); T61 = fun_T_27; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooSmathYT,T59); lit_77 = YPPsym((P)"neg"); lit_78 = YPPlist(1,YPPsym((P)"x")); T62 = YPfab_sig(YPPlist(1,VARREF(YLbignumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_neg_28 = YPfab_met_inlineable(FUNCODEREF(fun_neg_28),T62,LITREF(lit_77),LITREF(lit_78),sloc(186),YPfalse); T64 = VARREF_OR(YgooSmathYneg,YPfalse); T65 = fun_neg_28; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooSmathYneg,T63); lit_79 = YPPsym((P)">>"); lit_80 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T66 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_GG_29 = YPfab_met_inlineable(FUNCODEREF(fun_GG_29),T66,LITREF(lit_79),LITREF(lit_80),sloc(187),YPfalse); T68 = VARREF_OR(YgooSmathYGG,YPfalse); T69 = fun_GG_29; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooSmathYGG,T67); lit_81 = YPPsym((P)"<<"); lit_82 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T70 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_LL_30 = YPfab_met_inlineable(FUNCODEREF(fun_LL_30),T70,LITREF(lit_81),LITREF(lit_82),sloc(188),YPfalse); T72 = VARREF_OR(YgooSmathYLL,YPfalse); T73 = fun_LL_30; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooSmathYLL,T71); lit_83 = YPPsym((P)"<"); lit_84 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T74 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_31 = YPfab_met_inlineable(FUNCODEREF(fun_L_31),T74,LITREF(lit_83),LITREF(lit_84),sloc(196),YPfalse); T76 = VARREF_OR(YgooSmagYL,YPfalse); T77 = fun_L_31; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooSmagYL,T75); lit_85 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T78 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_32 = YPfab_met_inlineable(FUNCODEREF(fun_L_32),T78,LITREF(lit_83),LITREF(lit_85),sloc(199),YPfalse); T80 = VARREF_OR(YgooSmagYL,YPfalse); T81 = fun_L_32; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YgooSmagYL,T79); lit_86 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T82 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_33 = YPfab_met_inlineable(FUNCODEREF(fun_L_33),T82,LITREF(lit_83),LITREF(lit_86),sloc(202),YPfalse); T84 = VARREF_OR(YgooSmagYL,YPfalse); T85 = fun_L_33; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YgooSmagYL,T83); lit_87 = YPPsym((P)"=="); lit_88 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T86 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_EE_34 = YPfab_met_inlineable(FUNCODEREF(fun_EE_34),T86,LITREF(lit_87),LITREF(lit_88),sloc(205),YPfalse); T88 = VARREF_OR(YgooSmacrosYEE,YPfalse); T89 = fun_EE_34; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YgooSmacrosYEE,T87); lit_89 = YPPsym((P)"to-bignum"); lit_90 = YPPlist(1,YPPsym((P)"x")); T90 = YPfab_sig(YPPlist(1,VARREF(YLfixnumG)),YPfalse,YPint((P)1),VARREF(YLbignumG),Ynil); YgooSbignumYto_bignum = YPfab_met_inlineable(FUNCODEREF(YgooSbignumYto_bignum),T90,LITREF(lit_89),LITREF(lit_90),sloc(208),YPfalse); T91 = YgooSbignumYto_bignum; VARSET(YgooSbignumYto_bignum,T91); lit_91 = YPPlist(1,YPPsym((P)"exp")); lit_92 = YPPlist(1,YPPsym((P)"return")); lit_93 = YPPsym((P)"x-1915"); lit_94 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_95 = YPPsym((P)"def-log-ops"); lit_96 = YPPsym((P)"seq"); T94 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1915_36 = YPfab_met(FUNCODEREF(fun_x_1915_36),T94,LITREF(lit_93),LITREF(lit_94),YPfalse,YPfalse); T93 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_37 = YPfab_met(FUNCODEREF(fun_37),T93,YPfalse,LITREF(lit_92),YPfalse,YPfalse); T92 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_38 = YPfab_met(FUNCODEREF(fun_38),T92,YPfalse,LITREF(lit_91),YPfalse,YPfalse); T95 = fun_38; YPmacro(YPPsym((P)"goo/bignum"),YPPsym((P)"def-log-ops"),T95); lit_97 = YPPsym((P)"|"); lit_98 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T96 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_K_39 = YPfab_met_inlineable(FUNCODEREF(fun_K_39),T96,LITREF(lit_97),LITREF(lit_98),sloc(218),YPfalse); T98 = VARREF_OR(YgooSmathYK,YPfalse); T99 = fun_K_39; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YgooSmathYK,T97); lit_99 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T100 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_K_40 = YPfab_met_inlineable(FUNCODEREF(fun_K_40),T100,LITREF(lit_97),LITREF(lit_99),sloc(218),YPfalse); T102 = VARREF_OR(YgooSmathYK,YPfalse); T103 = fun_K_40; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooSmathYK,T101); lit_100 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T104 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_K_41 = YPfab_met_inlineable(FUNCODEREF(fun_K_41),T104,LITREF(lit_97),LITREF(lit_100),sloc(218),YPfalse); T106 = VARREF_OR(YgooSmathYK,YPfalse); T107 = fun_K_41; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YgooSmathYK,T105); lit_101 = YPPsym((P)"^"); lit_102 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T108 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_C_42 = YPfab_met_inlineable(FUNCODEREF(fun_C_42),T108,LITREF(lit_101),LITREF(lit_102),sloc(219),YPfalse); T110 = VARREF_OR(YgooSmathYC,YPfalse); T111 = fun_C_42; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YgooSmathYC,T109); lit_103 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T112 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_C_43 = YPfab_met_inlineable(FUNCODEREF(fun_C_43),T112,LITREF(lit_101),LITREF(lit_103),sloc(219),YPfalse); T114 = VARREF_OR(YgooSmathYC,YPfalse); T115 = fun_C_43; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YgooSmathYC,T113); lit_104 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T116 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_C_44 = YPfab_met_inlineable(FUNCODEREF(fun_C_44),T116,LITREF(lit_101),LITREF(lit_104),sloc(219),YPfalse); T118 = VARREF_OR(YgooSmathYC,YPfalse); T119 = fun_C_44; T117 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T118,T119); VARSET(YgooSmathYC,T117); lit_105 = YPPsym((P)"&"); lit_106 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T120 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_B_45 = YPfab_met_inlineable(FUNCODEREF(fun_B_45),T120,LITREF(lit_105),LITREF(lit_106),sloc(220),YPfalse); T122 = VARREF_OR(YgooSmathYB,YPfalse); T123 = fun_B_45; T121 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T122,T123); VARSET(YgooSmathYB,T121); lit_107 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T124 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_B_46 = YPfab_met_inlineable(FUNCODEREF(fun_B_46),T124,LITREF(lit_105),LITREF(lit_107),sloc(220),YPfalse); T126 = VARREF_OR(YgooSmathYB,YPfalse); T127 = fun_B_46; T125 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T126,T127); VARSET(YgooSmathYB,T125); lit_108 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T128 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_B_47 = YPfab_met_inlineable(FUNCODEREF(fun_B_47),T128,LITREF(lit_105),LITREF(lit_108),sloc(220),YPfalse); T130 = VARREF_OR(YgooSmathYB,YPfalse); T131 = fun_B_47; T129 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T130,T131); VARSET(YgooSmathYB,T129); lit_109 = YPPsym((P)"~"); lit_110 = YPPlist(1,YPPsym((P)"x")); T132 = YPfab_sig(YPPlist(1,VARREF(YLbignumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_N_48 = YPfab_met_inlineable(FUNCODEREF(fun_N_48),T132,LITREF(lit_109),LITREF(lit_110),sloc(222),YPfalse); T134 = VARREF_OR(YgooSmathYN,YPfalse); T135 = fun_N_48; T133 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T134,T135); VARSET(YgooSmathYN,T133); lit_111 = YPPsym((P)"bit?"); lit_112 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T136 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_bitQ_49 = YPfab_met_inlineable(FUNCODEREF(fun_bitQ_49),T136,LITREF(lit_111),LITREF(lit_112),sloc(224),YPfalse); T138 = VARREF_OR(YgooSmathYbitQ,YPfalse); T139 = fun_bitQ_49; T137 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T138,T139); VARSET(YgooSmathYbitQ,T137); lit_113 = YPPsym((P)"even?"); lit_114 = YPPlist(1,YPPsym((P)"x")); T140 = YPfab_sig(YPPlist(1,VARREF(YLbignumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_evenQ_50 = YPfab_met_inlineable(FUNCODEREF(fun_evenQ_50),T140,LITREF(lit_113),LITREF(lit_114),sloc(227),YPfalse); T142 = VARREF_OR(YgooSmathYevenQ,YPfalse); T143 = fun_evenQ_50; T141 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T142,T143); VARSET(YgooSmathYevenQ,T141); lit_115 = YPPsym((P)"odd?"); lit_116 = YPPlist(1,YPPsym((P)"x")); T144 = YPfab_sig(YPPlist(1,VARREF(YLbignumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_oddQ_51 = YPfab_met_inlineable(FUNCODEREF(fun_oddQ_51),T144,LITREF(lit_115),LITREF(lit_116),sloc(230),YPfalse); T146 = VARREF_OR(YgooSmathYoddQ,YPfalse); T147 = fun_oddQ_51; T145 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T146,T147); VARSET(YgooSmathYoddQ,T145); lit_117 = YPPsym((P)"trunc/"); lit_118 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T149 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLintG)); T148 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),T149,Ynil); fun_truncS_52 = YPfab_met(FUNCODEREF(fun_truncS_52),T148,LITREF(lit_117),LITREF(lit_118),sloc(236),YPfalse); T151 = VARREF_OR(YgooSmathYtruncS,YPfalse); T152 = fun_truncS_52; T150 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T151,T152); VARSET(YgooSmathYtruncS,T150); lit_119 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T154 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLintG)); T153 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),T154,Ynil); fun_truncS_53 = YPfab_met(FUNCODEREF(fun_truncS_53),T153,LITREF(lit_117),LITREF(lit_119),sloc(246),YPfalse); T156 = VARREF_OR(YgooSmathYtruncS,YPfalse); T157 = fun_truncS_53; T155 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T156,T157); VARSET(YgooSmathYtruncS,T155); lit_120 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T159 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLintG)); T158 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLbignumG)),YPfalse,YPint((P)2),T159,Ynil); fun_truncS_54 = YPfab_met(FUNCODEREF(fun_truncS_54),T158,LITREF(lit_117),LITREF(lit_120),sloc(263),YPfalse); T161 = VARREF_OR(YgooSmathYtruncS,YPfalse); T162 = fun_truncS_54; T160 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T161,T162); VARSET(YgooSmathYtruncS,T160); lit_121 = YPPsym((P)"pow-pos"); lit_122 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T163 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_pow_pos_55 = YPfab_met_inlineable(FUNCODEREF(fun_pow_pos_55),T163,LITREF(lit_121),LITREF(lit_122),sloc(268),YPfalse); T165 = VARREF_OR(YgooSbignumYpow_pos,YPfalse); T166 = fun_pow_pos_55; T164 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T165,T166); VARSET(YgooSbignumYpow_pos,T164); lit_123 = YPPsym((P)"pow"); lit_124 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"n")); T167 = YPfab_sig(YPPlist(2,VARREF(YLbignumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLbignumG),Ynil); fun_pow_56 = YPfab_met(FUNCODEREF(fun_pow_56),T167,LITREF(lit_123),LITREF(lit_124),sloc(270),YPfalse); T169 = VARREF_OR(YgooSmathYpow,YPfalse); T170 = fun_pow_56; T168 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T169,T170); VARSET(YgooSmathYpow,T168); lit_125 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T173 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T172 = fun_A_57 = YPfab_met_inlineable(FUNCODEREF(fun_A_57),T173,LITREF(lit_65),LITREF(lit_125),sloc(275),YPfalse); T176 = VARREF_OR(YgooSmathYA,YPfalse); T177 = fun_A_57; T175 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T176,T177); T174 = VARSET(YgooSmathYA,T175); T171 = T174; return T171; } P YgooSbignumY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; DEFCREGS(); lit_126 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T0 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun___58 = YPfab_met_inlineable(FUNCODEREF(fun___58),T0,LITREF(lit_69),LITREF(lit_126),sloc(278),YPfalse); T2 = VARREF_OR(YgooSmathY_,YPfalse); T3 = fun___58; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSmathY_,T1); lit_127 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T4 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_T_59 = YPfab_met_inlineable(FUNCODEREF(fun_T_59),T4,LITREF(lit_73),LITREF(lit_127),sloc(285),YPfalse); T6 = VARREF_OR(YgooSmathYT,YPfalse); T7 = fun_T_59; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooSmathYT,T5); lit_128 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"n")); T8 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_pow_60 = YPfab_met(FUNCODEREF(fun_pow_60),T8,LITREF(lit_123),LITREF(lit_128),sloc(289),YPfalse); T10 = VARREF_OR(YgooSmathYpow,YPfalse); T11 = fun_pow_60; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooSmathYpow,T9); lit_129 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"a")); T12 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_LL_61 = YPfab_met_inlineable(FUNCODEREF(fun_LL_61),T12,LITREF(lit_81),LITREF(lit_129),sloc(293),YPfalse); T14 = VARREF_OR(YgooSmathYLL,YPfalse); T15 = fun_LL_61; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSmathYLL,T13); lit_130 = YPPsym((P)"as"); lit_131 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T17 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLfloG)); T16 = YPfab_sig(YPPlist(2,T17,VARREF(YLbignumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_as_62 = YPfab_met(FUNCODEREF(fun_as_62),T16,LITREF(lit_130),LITREF(lit_131),sloc(296),YPfalse); T19 = VARREF_OR(YgooStypesYas,YPfalse); T20 = fun_as_62; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YgooStypesYas,T18); lit_132 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T22 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLfloG)); T21 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),T22,Ynil); fun_truncS_63 = YPfab_met(FUNCODEREF(fun_truncS_63),T21,LITREF(lit_117),LITREF(lit_132),sloc(302),YPfalse); T24 = VARREF_OR(YgooSmathYtruncS,YPfalse); T25 = fun_truncS_63; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSmathYtruncS,T23); lit_133 = YPPsym((P)"mpz_print"); lit_134 = YPPlist(1,YPPsym((P)"num")); T26 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSbignumYmpzUprint = YPfab_met(FUNCODEREF(YgooSbignumYmpzUprint),T26,LITREF(lit_133),LITREF(lit_134),sloc(314),YPfalse); T27 = YgooSbignumYmpzUprint; VARSET(YgooSbignumYmpzUprint,T27); T28 = YPfalse; return T28; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"def-i-b", PVAR, NULL}, {"pow-pos", CVAR, &YgooSbignumYpow_pos}, {"def-log-ops", PVAR, NULL}, {"def-b-b", PVAR, NULL}, {"with-gmp-returning", PVAR, NULL}, {"def-b-i", PVAR, NULL}, {"---main-1---", PVAR, NULL}, {"with-returning", PVAR, NULL}, {"def-b", PVAR, NULL}, {"mpz_print", CVAR, &YgooSbignumYmpzUprint}, {"---main-0---", PVAR, NULL}, {"to-bignum", CVAR, &YgooSbignumYto_bignum}, {"gmp-initialize", CVAR, &YgooSbignumYgmp_initialize}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"mpz_print", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSbignum; MODULE_INFO module_info_gooSbignum = { "goo/bignum", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); /* EXPRESSION: */ extern void load_module_gooSbignum (void); void load_module_gooSbignum (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); (P)YgooSbignumY___main_0___(); (P)YgooSbignumY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/boot.c0100644000175000017500000116325007756744546014541 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/boot"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/boot */ DEF(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); DEF(Yproperty_not_found_error,"goo/boot","property-not-found-error"); DEF(YPsymbols,"goo/boot","%symbols"); DEF(Yhead_setter,"goo/boot","head-setter"); DEF(YsubtypeQ,"goo/boot","subtype?"); DEF(YPcollect_direct_props,"goo/boot","%collect-direct-props"); DEF(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); DEF(YPrnul,"goo/boot","%rnul"); DEF(Ysrc_loc_file,"goo/boot","src-loc-file"); DEF(YLmetG,"goo/boot",""); DEF(YOnew,"goo/boot","@new"); DEF(YLsymG,"goo/boot",""); DEF(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); DEF(Yhead,"goo/boot","head"); DEF(YLstrG,"goo/boot",""); DEF(YOsubtypeQ,"goo/boot","@subtype?"); DEF(Yclass_ancestors,"goo/boot","class-ancestors"); DEF(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); DEF(YPsnul,"goo/boot","%snul"); DEF(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(Yorder_specs,"goo/boot","order-specs"); DEF(YLtupG,"goo/boot",""); DEF(YPTused_symbols_too_earlyT,"goo/boot","%*used-symbols-too-early*"); DEF(Yclass_gens_setter,"goo/boot","class-gens-setter"); DEF(YLfunG,"goo/boot",""); DEF(YLflatG,"goo/boot",""); DEF(YTmacros_okQT,"goo/boot","*macros-ok?*"); DEF(Yprop_owner,"goo/boot","prop-owner"); DEF(YOalter,"goo/boot","@alter"); DEF(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); DEF(YPadd_met,"goo/boot","%add-met"); DEF(YDmax_int,"goo/boot","$max-int"); DEF(Yclass_gens,"goo/boot","class-gens"); DEF(YPtrue,"goo/boot","%true"); DEF(Yclass_id,"goo/boot","class-id"); DEF(YTearly_classesT,"goo/boot","*early-classes*"); DEF(Ylst,"goo/boot","lst"); DEF(YOall2Q,"goo/boot","@all2?"); DEF(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); DEF(Yone_nil,"goo/boot","one-nil"); DEF(YLlstG,"goo/boot",""); DEF(YPsymbols_readyQ,"goo/boot","%symbols-ready?"); DEF(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); DEF(YPfalse,"goo/boot","%false"); DEF(Yfun_env,"goo/boot","fun-env"); DEF(YLseqXG,"goo/boot",""); DEF(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); DEF(Ytup,"goo/boot","tup"); DEF(Yclass_prop_len,"goo/boot","class-prop-len"); DEF(Ynarity_error,"goo/boot","narity-error"); DEF(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); DEF(YLfun_infoG,"goo/boot",""); DEF(YOelt,"goo/boot","@elt"); DEF(YPearly_dispatch,"goo/boot","%early-dispatch"); DEF(YOcat2,"goo/boot","@cat2"); DEF(YOdel_dups,"goo/boot","@del-dups"); DEF(YOopts_as_lst,"goo/boot","@opts-as-lst"); DEF(Ysig_naryQ,"goo/boot","sig-nary?"); DEF(YOtype_equalQ,"goo/boot","@type-equal?"); DEF(YOdo,"goo/boot","@do"); DEF(Yfun_mets,"goo/boot","fun-mets"); DEF(Yopts_tup_storage,"goo/boot","opts-tup-storage"); DEF(YLseqIG,"goo/boot",""); DEF(Ysig_unification_vars,"goo/boot","sig-unification-vars"); DEF(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); DEF(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); DEF(YLseqG,"goo/boot",""); DEF(Yproduct_elts,"goo/boot","product-elts"); DEF(YPTstart_running_atT,"goo/boot","%*start-running-at*"); DEF(YLcolXG,"goo/boot",""); DEF(YOmemQ,"goo/boot","@mem?"); DEF(YLsigG,"goo/boot",""); DEF(YOallQ,"goo/boot","@all?"); DEF(YLcolIG,"goo/boot",""); DEF(YtT,"goo/boot","t*"); DEF(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); DEF(YOpick,"goo/boot","@pick"); DEF(Yopts_count,"goo/boot","opts-count"); DEF(YLcolG,"goo/boot",""); DEF(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); DEF(Yclass_direct_props,"goo/boot","class-direct-props"); DEF(Ysym_name,"goo/boot","sym-name"); DEF(Ymay_isaQ,"goo/boot","may-isa?"); DEF(Ysrc_loc_line,"goo/boot","src-loc-line"); DEF(YPprop_offset,"goo/boot","%prop-offset"); DEF(YLrepG,"goo/boot",""); DEF(YOrevX,"goo/boot","@rev!"); DEF(YOfind,"goo/boot","@find"); DEF(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); DEF(Yclass_children_setter,"goo/boot","class-children-setter"); DEF(YLgen_cacheG,"goo/boot",""); DEF(YDgen_cache_singletons_offset,"goo/boot","$gen-cache-singletons-offset"); DEF(YLlocG,"goo/boot",""); DEF(Yprop_init,"goo/boot","prop-init"); DEF(YOmap,"goo/boot","@map"); DEF(YLfloG,"goo/boot",""); DEF(Yclass_children,"goo/boot","class-children"); DEF(Yfun_info_setter,"goo/boot","fun-info-setter"); DEF(YPwith_monitor,"goo/boot","%with-monitor"); DEF(Yclass_forward,"goo/boot","class-forward"); DEF(YOlit,"goo/boot","@lit"); DEF(YOOnulQ,"goo/boot","@@nul?"); DEF(YLbignumG,"goo/boot",""); DEF(Ysig_specs_setter,"goo/boot","sig-specs-setter"); DEF(YOtup,"goo/boot","@tup"); DEF(YLfixnumG,"goo/boot",""); DEF(Yopts_location,"goo/boot","opts-location"); DEF(Yfun_info,"goo/boot","fun-info"); DEF(YLpropG,"goo/boot",""); DEF(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); DEF(YLintG,"goo/boot",""); DEF(Ysig_specs,"goo/boot","sig-specs"); DEF(Yprop_offset,"goo/boot","prop-offset"); DEF(Ynot,"goo/boot","not"); DEF(Ysig_val,"goo/boot","sig-val"); DEF(Yapp_args,"goo/boot","app-args"); DEF(YDnum_int_bits,"goo/boot","$num-int-bits"); DEF(YLproductG,"goo/boot",""); DEF(Yfun_info_names,"goo/boot","fun-info-names"); DEF(YLnumG,"goo/boot",""); DEF(Yno_next_methods_error,"goo/boot","no-next-methods-error"); DEF(Yfun_info_count,"goo/boot","fun-info-count"); DEF(Yas_error,"goo/boot","as-error"); DEF(Yproperty_unbound_error,"goo/boot","property-unbound-error"); DEF(Yprop_type,"goo/boot","prop-type"); DEF(YOrev,"goo/boot","@rev"); DEF(Yfab_sym,"goo/boot","fab-sym"); DEF(Yapp_filename,"goo/boot","app-filename"); DEF(Yfab_pair,"goo/boot","fab-pair"); DEF(YLunionG,"goo/boot",""); DEF(Ytype_class,"goo/boot","type-class"); DEF(Yprops_of,"goo/boot","props-of"); DEF(YPdispatch,"goo/boot","%dispatch"); DEF(Ysyntax_error,"goo/boot","syntax-error"); DEF(YLsrc_locG,"goo/boot",""); DEF(YPmet_prop_len,"goo/boot","%met-prop-len"); DEF(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YPPmacro,"goo/boot","%%macro"); DEF(Yclass_parents_setter,"goo/boot","class-parents-setter"); DEF(Ytail_setter,"goo/boot","tail-setter"); DEF(YOOEE,"goo/boot","@@=="); DEF(YLsubclassG,"goo/boot",""); DEF(YLchrG,"goo/boot",""); DEF(YPpatch_early_generic,"goo/boot","%patch-early-generic"); DEF(Yclass_props_setter,"goo/boot","class-props-setter"); DEF(Yerror,"goo/boot","error"); DEF(Yproperty_type_error,"goo/boot","property-type-error"); DEF(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(Yfun_cache,"goo/boot","fun-cache"); DEF(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); DEF(Ybox_value_setter,"goo/boot","box-value-setter"); DEF(YLmagG,"goo/boot",""); DEF(YDmin_int,"goo/boot","$min-int"); DEF(YOtall2Q,"goo/boot","@tall2?"); DEF(Yclass_parents,"goo/boot","class-parents"); DEF(Yfun_sig_setter,"goo/boot","fun-sig-setter"); DEF(Ytail,"goo/boot","tail"); DEF(YLsingletonG,"goo/boot",""); DEF(Yclass_props,"goo/boot","class-props"); DEF(Yreturn_type_error,"goo/boot","return-type-error"); DEF(Ystack_overflow_error,"goo/boot","stack-overflow-error"); DEF(YOanyQ,"goo/boot","@any?"); DEF(Ycpl_error,"goo/boot","cpl-error"); DEF(YLopts_tupG,"goo/boot",""); DEF(Yunknown_function_error,"goo/boot","unknown-function-error"); DEF(YLboxG,"goo/boot",""); DEF(Yfun_sig,"goo/boot","fun-sig"); DEF(Yarity_error,"goo/boot","arity-error"); DEF(Yprop_setter,"goo/boot","prop-setter"); DEF(Ybox_value,"goo/boot","box-value"); DEF(YLlogG,"goo/boot",""); DEF(Ytype_object,"goo/boot","type-object"); DEF(Yclass_mets,"goo/boot","class-mets"); DEF(YOfold,"goo/boot","@fold"); DEF(YLoptsG,"goo/boot",""); DEF(Ynul_prop,"goo/boot","nul-prop"); DEF(YLanyG,"goo/boot",""); DEF(Yunexec,"goo/boot","unexec"); DEF(YOtanyQ,"goo/boot","@tany?"); DEF(YDgen_cache_classes_offset,"goo/boot","$gen-cache-classes-offset"); DEF(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); DEF(Ynew,"goo/boot","new"); DEF(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); DEF(Ysig_arity_setter,"goo/boot","sig-arity-setter"); DEF(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); DEF(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); DEF(YDdirect_object_class,"goo/boot","$direct-object-class"); DEF(Ytype_error,"goo/boot","type-error"); DEF(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); DEF(YOfill,"goo/boot","@fill"); DEF(Yarithmetic_error,"goo/boot","arithmetic-error"); DEF(YPtnul,"goo/boot","%tnul"); DEF(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); DEF(YPclasses_readyQ,"goo/boot","%classes-ready?"); DEF(YOlst,"goo/boot","@lst"); DEF(Yclass_name,"goo/boot","class-name"); DEF(Ysig_arity,"goo/boot","sig-arity"); DEF(Yinternal_error,"goo/boot","internal-error"); DEF(Yfun_info_name,"goo/boot","fun-info-name"); DEF(YisaQ,"goo/boot","isa?"); DEF(YLgenG,"goo/boot",""); DEF(Yfun_info_src,"goo/boot","fun-info-src"); DEF(Ynil,"goo/boot","nil"); DEF(YPfinalize_propsX,"goo/boot","%finalize-props!"); DEF(Yfun_code,"goo/boot","fun-code"); DEF(YLclassG,"goo/boot",""); DEF(Yprop_getter,"goo/boot","prop-getter"); DEF(YOmay_isaQ,"goo/boot","@may-isa?"); DEF(YOfab,"goo/boot","@fab"); DEF(Yrange_error,"goo/boot","range-error"); DEF(YPadd_prop,"goo/boot","%add-prop"); DEF(Ynul,"goo/boot","nul"); DEF(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); DEF(Ysig_val_setter,"goo/boot","sig-val-setter"); DEF(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); DEF(Yassert_error,"goo/boot","assert-error"); DEF(YLtypeG,"goo/boot",""); DEF(Yclass_mets_setter,"goo/boot","class-mets-setter"); DEF(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(Yunion_elts,"goo/boot","union-elts"); DEF(Yfun_mets_setter,"goo/boot","fun-mets-setter"); DEF(Yclass_row,"goo/boot","class-row"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_122); DEFLIT(lit_242); DEFLIT(lit_106); DEFLIT(lit_101); DEFLIT(lit_126); DEFLIT(lit_212); DEFLIT(lit_77); DEFLIT(lit_208); DEFLIT(lit_236); DEFLIT(lit_54); DEFLIT(lit_120); DEFLIT(lit_149); DEFLIT(lit_71); DEFLIT(lit_192); DEFLIT(lit_144); DEFLIT(lit_183); DEFLIT(lit_226); DEFLIT(lit_287); DEFLIT(lit_161); DEFLIT(lit_180); DEFLIT(lit_194); DEFLIT(lit_229); DEFLIT(lit_17); DEFLIT(lit_68); DEFLIT(lit_239); DEFLIT(lit_216); DEFLIT(lit_241); DEFLIT(lit_284); DEFLIT(lit_18); DEFLIT(lit_293); DEFLIT(lit_40); DEFLIT(lit_328); DEFLIT(lit_259); DEFLIT(lit_61); DEFLIT(lit_170); DEFLIT(lit_111); DEFLIT(lit_62); DEFLIT(lit_164); DEFLIT(lit_154); DEFLIT(lit_148); DEFLIT(lit_311); DEFLIT(lit_190); DEFLIT(lit_280); DEFLIT(lit_2); DEFLIT(lit_42); DEFLIT(lit_271); DEFLIT(lit_181); DEFLIT(lit_97); DEFLIT(lit_225); DEFLIT(lit_107); DEFLIT(lit_319); DEFLIT(lit_90); DEFLIT(lit_195); DEFLIT(lit_150); DEFLIT(lit_269); DEFLIT(lit_305); DEFLIT(lit_143); DEFLIT(lit_151); DEFLIT(lit_63); DEFLIT(lit_174); DEFLIT(lit_281); DEFLIT(lit_286); DEFLIT(lit_176); DEFLIT(lit_189); DEFLIT(lit_105); DEFLIT(lit_82); DEFLIT(lit_238); DEFLIT(lit_214); DEFLIT(lit_237); DEFLIT(lit_60); DEFLIT(lit_168); DEFLIT(lit_207); DEFLIT(lit_146); DEFLIT(lit_26); DEFLIT(lit_23); DEFLIT(lit_22); DEFLIT(lit_317); DEFLIT(lit_65); DEFLIT(lit_128); DEFLIT(lit_75); DEFLIT(lit_27); DEFLIT(lit_85); DEFLIT(lit_235); DEFLIT(lit_117); DEFLIT(lit_140); DEFLIT(lit_313); DEFLIT(lit_112); DEFLIT(lit_307); DEFLIT(lit_142); DEFLIT(lit_265); DEFLIT(lit_83); DEFLIT(lit_223); DEFLIT(lit_88); DEFLIT(lit_47); DEFLIT(lit_99); DEFLIT(lit_96); DEFLIT(lit_133); DEFLIT(lit_291); DEFLIT(lit_4); DEFLIT(lit_56); DEFLIT(lit_258); DEFLIT(lit_277); DEFLIT(lit_255); DEFLIT(lit_166); DEFLIT(lit_199); DEFLIT(lit_139); DEFLIT(lit_24); DEFLIT(lit_95); DEFLIT(lit_92); DEFLIT(lit_187); DEFLIT(lit_227); DEFLIT(lit_300); DEFLIT(lit_185); DEFLIT(lit_74); DEFLIT(lit_315); DEFLIT(lit_329); DEFLIT(lit_209); DEFLIT(lit_198); DEFLIT(lit_25); DEFLIT(lit_217); DEFLIT(lit_324); DEFLIT(lit_132); DEFLIT(lit_224); DEFLIT(lit_35); DEFLIT(lit_162); DEFLIT(lit_119); DEFLIT(lit_263); DEFLIT(lit_103); DEFLIT(lit_156); DEFLIT(lit_188); DEFLIT(lit_45); DEFLIT(lit_153); DEFLIT(lit_131); DEFLIT(lit_14); DEFLIT(lit_308); DEFLIT(lit_135); DEFLIT(lit_186); DEFLIT(lit_234); DEFLIT(lit_33); DEFLIT(lit_323); DEFLIT(lit_6); DEFLIT(lit_268); DEFLIT(lit_38); DEFLIT(lit_215); DEFLIT(lit_21); DEFLIT(lit_121); DEFLIT(lit_266); DEFLIT(lit_249); DEFLIT(lit_326); DEFLIT(lit_253); DEFLIT(lit_155); DEFLIT(lit_52); DEFLIT(lit_213); DEFLIT(lit_55); DEFLIT(lit_67); DEFLIT(lit_179); DEFLIT(lit_172); DEFLIT(lit_66); DEFLIT(lit_145); DEFLIT(lit_116); DEFLIT(lit_114); DEFLIT(lit_53); DEFLIT(lit_173); DEFLIT(lit_206); DEFLIT(lit_37); DEFLIT(lit_31); DEFLIT(lit_318); DEFLIT(lit_8); DEFLIT(lit_32); DEFLIT(lit_316); DEFLIT(lit_246); DEFLIT(lit_94); DEFLIT(lit_110); DEFLIT(lit_78); DEFLIT(lit_11); DEFLIT(lit_325); DEFLIT(lit_274); DEFLIT(lit_211); DEFLIT(lit_0); DEFLIT(lit_262); DEFLIT(lit_43); DEFLIT(lit_252); DEFLIT(lit_270); DEFLIT(lit_232); DEFLIT(lit_276); DEFLIT(lit_147); DEFLIT(lit_282); DEFLIT(lit_1); DEFLIT(lit_39); DEFLIT(lit_138); DEFLIT(lit_243); DEFLIT(lit_303); DEFLIT(lit_46); DEFLIT(lit_312); DEFLIT(lit_296); DEFLIT(lit_321); DEFLIT(lit_240); DEFLIT(lit_137); DEFLIT(lit_171); DEFLIT(lit_267); DEFLIT(lit_288); DEFLIT(lit_29); DEFLIT(lit_261); DEFLIT(lit_130); DEFLIT(lit_178); DEFLIT(lit_205); DEFLIT(lit_125); DEFLIT(lit_273); DEFLIT(lit_109); DEFLIT(lit_48); DEFLIT(lit_134); DEFLIT(lit_298); DEFLIT(lit_244); DEFLIT(lit_81); DEFLIT(lit_16); DEFLIT(lit_219); DEFLIT(lit_221); DEFLIT(lit_306); DEFLIT(lit_152); DEFLIT(lit_245); DEFLIT(lit_251); DEFLIT(lit_12); DEFLIT(lit_327); DEFLIT(lit_257); DEFLIT(lit_50); DEFLIT(lit_158); DEFLIT(lit_136); DEFLIT(lit_36); DEFLIT(lit_175); DEFLIT(lit_44); DEFLIT(lit_84); DEFLIT(lit_127); DEFLIT(lit_30); DEFLIT(lit_230); DEFLIT(lit_159); DEFLIT(lit_295); DEFLIT(lit_283); DEFLIT(lit_279); DEFLIT(lit_157); DEFLIT(lit_9); DEFLIT(lit_167); DEFLIT(lit_231); DEFLIT(lit_285); DEFLIT(lit_177); DEFLIT(lit_89); DEFLIT(lit_310); DEFLIT(lit_123); DEFLIT(lit_41); DEFLIT(lit_3); DEFLIT(lit_72); DEFLIT(lit_102); DEFLIT(lit_73); DEFLIT(lit_203); DEFLIT(lit_160); DEFLIT(lit_256); DEFLIT(lit_250); DEFLIT(lit_10); DEFLIT(lit_100); DEFLIT(lit_301); DEFLIT(lit_334); DEFLIT(lit_87); DEFLIT(lit_222); DEFLIT(lit_184); DEFLIT(lit_264); DEFLIT(lit_15); DEFLIT(lit_98); DEFLIT(lit_302); DEFLIT(lit_278); DEFLIT(lit_5); DEFLIT(lit_197); DEFLIT(lit_220); DEFLIT(lit_76); DEFLIT(lit_294); DEFLIT(lit_309); DEFLIT(lit_322); DEFLIT(lit_7); DEFLIT(lit_108); DEFLIT(lit_20); DEFLIT(lit_297); DEFLIT(lit_299); DEFLIT(lit_59); DEFLIT(lit_49); DEFLIT(lit_314); DEFLIT(lit_57); DEFLIT(lit_210); DEFLIT(lit_204); DEFLIT(lit_70); DEFLIT(lit_93); DEFLIT(lit_333); DEFLIT(lit_104); DEFLIT(lit_275); DEFLIT(lit_260); DEFLIT(lit_115); DEFLIT(lit_193); DEFLIT(lit_129); DEFLIT(lit_332); DEFLIT(lit_165); DEFLIT(lit_34); DEFLIT(lit_272); DEFLIT(lit_28); DEFLIT(lit_247); DEFLIT(lit_331); DEFLIT(lit_228); DEFLIT(lit_91); DEFLIT(lit_292); DEFLIT(lit_169); DEFLIT(lit_254); DEFLIT(lit_290); DEFLIT(lit_79); DEFLIT(lit_118); DEFLIT(lit_19); DEFLIT(lit_289); DEFLIT(lit_200); DEFLIT(lit_191); DEFLIT(lit_58); DEFLIT(lit_320); DEFLIT(lit_51); DEFLIT(lit_163); DEFLIT(lit_202); DEFLIT(lit_196); DEFLIT(lit_141); DEFLIT(lit_80); DEFLIT(lit_13); DEFLIT(lit_304); DEFLIT(lit_86); DEFLIT(lit_248); DEFLIT(lit_64); DEFLIT(lit_182); DEFLIT(lit_218); DEFLIT(lit_233); DEFLIT(lit_330); DEFLIT(lit_201); DEFLIT(lit_124); DEFLIT(lit_113); DEFLIT(lit_69); /* FUNCTIONS: */ extern P YPallocate_stack (P); extern P YPclass_prop_len_setter (P,P); extern P YPclass_prop_len (P); extern P YPclass_name_setter (P,P); extern P YPclass_name (P); extern P YPclass_parents_setter (P,P); extern P YPclass_parents (P); extern P YPclass_direct_props_setter (P,P); extern P YPclass_direct_props (P); extern P YPclass_ancestors_setter (P,P); extern P YPclass_ancestors (P); extern P YPclass_props_setter (P,P); extern P YPclass_props (P); extern P YPclass_children_setter (P,P); extern P YPclass_children (P); extern P YPclass_gens_setter (P,P); extern P YPclass_gens (P); extern P YPclass_mets_setter (P,P); extern P YPclass_mets (P); extern P YPclass_forward_setter (P,P); extern P YPclass_forward (P); extern P YPclass_id_setter (P,P); extern P YPclass_id (P); extern P YPclass_row_setter (P,P); extern P YPclass_row (P); extern P YPclass (P,P,P,P,P,P,P,P,P,P,P,P); extern P YPtype_object_setter (P,P); extern P YPtype_object (P); extern P YPsingleton (P); extern P YPtype_class_setter (P,P); extern P YPtype_class (P); extern P YPsubclass (P); extern P YPunion_elts_setter (P,P); extern P YPunion_elts (P); extern P YPunion (P); extern P YPproduct_elts_setter (P,P); extern P YPproduct_elts (P); extern P YPproduct (P); extern P YPhead_setter (P,P); extern P YPhead (P); extern P YPtail_setter (P,P); extern P YPtail (P); extern P YPlst (P,P); extern P YPpair (P,P); extern P YPnulQ (P); extern P YPPlen (P); extern P YPrevX (P); extern P YPcat2 (P,P); extern P YPsig_specs_setter (P,P); extern P YPsig_specs (P); extern P YPsig_naryQ_setter (P,P); extern P YPsig_naryQ (P); extern P YPsig_arity_setter (P,P); extern P YPsig_arity (P); extern P YPsig_val_setter (P,P); extern P YPsig_val (P); extern P YPsig_unification_vars_setter (P,P); extern P YPsig_unification_vars (P); extern P YPsig (P,P,P,P,P); extern P YPsrc_loc_line_setter (P,P); extern P YPsrc_loc_line (P); extern P YPsrc_loc_file_setter (P,P); extern P YPsrc_loc_file (P); extern P YPsrc_loc (P,P); extern P YPfun_info_name_setter (P,P); extern P YPfun_info_name (P); extern P YPfun_info_names_setter (P,P); extern P YPfun_info_names (P); extern P YPfun_info_src_setter (P,P); extern P YPfun_info_src (P); extern P YPfun_info_src_loc_setter (P,P); extern P YPfun_info_src_loc (P); extern P YPfun_info_count_setter (P,P); extern P YPfun_info_count (P); extern P YPfun_info_inlineableQ_setter (P,P); extern P YPfun_info_inlineableQ (P); extern P YPfun_info (P,P,P,P,P,P); extern P YPmet_code_setter (P,P); extern P YPmet_code (P); extern P YPmet_sig_setter (P,P); extern P YPmet_sig (P); extern P YPmet_info_setter (P,P); extern P YPmet_info (P); extern P YPmet_env_setter (P,P); extern P YPmet_env (P); extern P YPmet (P,P,P,P); extern P YPtag_bits (P); extern P YPtag (P,P); extern P YPuntag (P); extern P YPtag_into (P,P); extern P YPuntag_into (P); extern P YPindirect_objectQ (P); extern P YOadrQ (P); extern P YPclass_of (P); extern P YPib (P); extern P YPfixnum (P); extern P YPiu (P); extern P YOintQ (P); extern P YPcb (P); extern P YPchr (P); extern P YPcu (P); extern P YPlb (P); extern P YPloc (P); extern P YPlu (P); extern P YPstrX (P,P); extern P YPstr (P,P); extern P YPtupX (P,P); extern P YPtup (P,P); extern P YPrepX (P,P); extern P YPrep (P,P); extern P YPstr_eqQ (P,P); extern P YPcompute_ancestors (P); extern P YPdefine_parents (P,P); extern P YPPsym (P); extern P YPsym_nam_setter (P,P); extern P YPsym_nam (P); extern P YPsym (P); extern P YPfab_sym (P); LOCFOR(fun_118); FUNFOR(Yfab_sym); extern P YPflo_dat_setter (P,P); extern P YPflo_dat (P); extern P YPflo (P); extern P YPfb (P); extern P YPfu (P); extern P YPopts_location_setter (P,P); extern P YPopts_location (P); extern P YPopts_count_setter (P,P); extern P YPopts_count (P); extern P YPopts (P,P); extern P YPopts_tup_location_setter (P,P); extern P YPopts_tup_location (P); extern P YPopts_tup_count_setter (P,P); extern P YPopts_tup_count (P); extern P YPopts_tup_tup_setter (P,P); extern P YPopts_tup_tup (P); extern P YPopts_tup (P,P,P); extern P YPprop_owner_setter (P,P); extern P YPprop_owner (P); extern P YPprop_getter_setter (P,P); extern P YPprop_getter (P); extern P YPprop_setter_setter (P,P); extern P YPprop_setter (P); extern P YPprop_type_setter (P,P); extern P YPprop_type (P); extern P YPprop_init_setter (P,P); extern P YPprop_init (P); extern P YPPprop (P,P,P,P,P); extern P YPgen_cache_missableQ_setter (P,P); extern P YPgen_cache_missableQ (P); extern P YPgen_cache_arg_pos_setter (P,P); extern P YPgen_cache_arg_pos (P); extern P YPgen_cache_singletons_setter (P,P); extern P YPgen_cache_singletons (P); extern P YPgen_cache_classes_setter (P,P); extern P YPgen_cache_classes (P); extern P YPgen_cache_count_setter (P,P); extern P YPgen_cache_count (P); extern P YPgen_cache (P,P,P,P,P); extern P YPgen_code_setter (P,P); extern P YPgen_code (P); extern P YPgen_sig_setter (P,P); extern P YPgen_sig (P); extern P YPgen_info_setter (P,P); extern P YPgen_info (P); extern P YPgen_mets_setter (P,P); extern P YPgen_mets (P); extern P YPfun_cache_setter (P,P); extern P YPfun_cache (P); extern P YPgen (P,P,P,P,P); FUNFOR(YPprop_offset); FUNFOR(YPearly_dispatch); FUNFOR(YPadd_met); extern P YPfab_sig (P,P,P,P,P); extern P YPfab_genScode (P,P,P,P,P); extern P YPfab_gen (P,P,P,P); extern P YPfab_met_inlineable (P,P,P,P,P,P); extern P YPfab_met (P,P,P,P,P,P); FUNFOR(YPadd_prop); LOCFOR(fun_179); LOCFOR(fun_180); LOCFOR(fun_181); LOCFOR(fun_182); LOCFOR(fun_183); LOCFOR(fun_184); LOCFOR(fun_185); LOCFOR(fun_186); LOCFOR(fun_187); LOCFOR(fun_188); LOCFOR(fun_189); LOCFOR(fun_190); LOCFOR(fun_191); LOCFOR(fun_192); LOCFOR(fun_193); LOCFOR(fun_194); LOCFOR(fun_195); LOCFOR(fun_196); LOCFOR(fun_197); LOCFOR(fun_198); LOCFOR(fun_199); LOCFOR(fun_200); LOCFOR(fun_201); LOCFOR(fun_202); LOCFOR(fun_203); LOCFOR(fun_204); LOCFOR(fun_205); LOCFOR(fun_206); LOCFOR(fun_207); LOCFOR(fun_208); LOCFOR(fun_209); LOCFOR(fun_210); LOCFOR(fun_211); LOCFOR(fun_212); LOCFOR(fun_213); LOCFOR(fun_214); LOCFOR(fun_215); LOCFOR(fun_216); LOCFOR(fun_217); LOCFOR(fun_218); LOCFOR(fun_219); LOCFOR(fun_220); LOCFOR(fun_221); LOCFOR(fun_222); LOCFOR(fun_223); LOCFOR(fun_224); LOCFOR(fun_225); LOCFOR(fun_226); LOCFOR(fun_227); LOCFOR(fun_228); LOCFOR(fun_229); LOCFOR(fun_230); LOCFOR(fun_231); LOCFOR(fun_232); LOCFOR(fun_233); LOCFOR(fun_234); LOCFOR(fun_235); LOCFOR(fun_236); LOCFOR(fun_237); LOCFOR(fun_238); LOCFOR(fun_239); LOCFOR(fun_240); LOCFOR(fun_241); LOCFOR(fun_242); LOCFOR(fun_243); LOCFOR(fun_244); LOCFOR(fun_245); LOCFOR(fun_246); LOCFOR(fun_247); LOCFOR(fun_248); LOCFOR(fun_249); LOCFOR(fun_250); LOCFOR(fun_251); LOCFOR(fun_252); LOCFOR(fun_253); LOCFOR(fun_254); LOCFOR(fun_255); LOCFOR(fun_256); LOCFOR(fun_257); LOCFOR(fun_258); LOCFOR(fun_259); LOCFOR(fun_260); LOCFOR(fun_261); LOCFOR(fun_262); LOCFOR(fun_263); LOCFOR(fun_264); LOCFOR(fun_265); LOCFOR(fun_266); LOCFOR(fun_267); LOCFOR(fun_268); LOCFOR(fun_269); LOCFOR(fun_270); LOCFOR(fun_271); LOCFOR(fun_272); LOCFOR(fun_273); LOCFOR(fun_274); LOCFOR(fun_275); LOCFOR(fun_276); LOCFOR(fun_277); LOCFOR(fun_278); LOCFOR(fun_279); LOCFOR(fun_280); LOCFOR(fun_281); LOCFOR(fun_282); LOCFOR(fun_283); LOCFOR(fun_284); LOCFOR(fun_285); LOCFOR(fun_286); LOCFOR(fun_287); LOCFOR(fun_288); LOCFOR(fun_289); LOCFOR(fun_290); LOCFOR(fun_291); LOCFOR(fun_292); LOCFOR(fun_293); LOCFOR(fun_294); LOCFOR(fun_295); LOCFOR(fun_296); LOCFOR(fun_297); LOCFOR(fun_298); LOCFOR(fun_299); LOCFOR(fun_300); LOCFOR(fun_301); LOCFOR(fun_302); LOCFOR(fun_303); LOCFOR(fun_304); LOCFOR(fun_305); LOCFOR(fun_306); LOCFOR(fun_307); FUNFOR(YPcollect_direct_props); FUNFOR(YPfinalize_propsX); extern P YOhead (P); extern P YOhead_setter (P,P); extern P YOtail (P); extern P YOtail_setter (P,P); extern P YOE (P,P); extern P YOL (P,P); extern P YOA (P,P); extern P YOEE (P,P); FUNFOR(YOOEE); FUNFOR(Ynot); extern P YOnot (P); extern P YOnulQ (P); FUNFOR(YOOnulQ); FUNFOR(YOrevX); extern P YOlen (P); extern P YOoelt (P,P); extern P YOoelt_setter (P,P,P); extern P YOolen (P); FUNFOR(YOallQ); FUNFOR(YOall2Q); FUNFOR(YOelt); FUNFOR(YOfill); FUNFOR(YOanyQ); extern P YOpair (P,P); FUNFOR(Yfab_pair); extern P YOadd (P,P); extern P YOadd_new (P,P); FUNFOR(YOmap); FUNFOR(YOpick); FUNFOR(YOdo); FUNFOR(YOalter); FUNFOR(YOfab); FUNFOR(YOfold); FUNFOR(YOrev); FUNFOR(YOcat2); FUNFOR(YOfind); LOCFOR(fun_346); FUNFOR(YOmemQ); LOCFOR(fun_348); FUNFOR(YOdel_dups); FUNFOR(YOopts_as_lst); FUNFOR(YOlst); extern P YOtlen (P); extern P YOtelt (P,P); extern P YOtelt_setter (P,P,P); FUNFOR(YOtanyQ); FUNFOR(YOtall2Q); extern P YPto_tup (P); LOCFOR(fun_into_358); FUNFOR(YOtup); LOCFOR(fun_into_360); FUNFOR(YtT); FUNFOR(YOtype_equalQ); extern P YOsubclassQ (P,P); extern P YOclass_isaQ (P,P); FUNFOR(YOsubtypeQ); FUNFOR(YOmay_isaQ); extern P YOsingleton_isaQ (P,P); extern P YOisaQ (P,P); FUNFOR(Yunexec); FUNFOR(YPpatch_early_generic); extern P YPpatch_early_generics (); extern P YOraw_nulQ (P); extern P YPcons_args (); extern P YPcheck_arity (P,P,P); extern P YParg_check_type (P,P,P); extern P YPfun_val_check_type (P,P,P); extern P YPcheck_type (P,P,P); extern P YPstack_check (P); extern P YPPcheck_call_types (P); extern P YPmacro (P,P,P); FUNFOR(Yapp_filename); FUNFOR(Yapp_args); extern P YPlit (P); extern P Y___main_0___ (); extern P Y___main_1___ (); extern P Y___main_2___ (); extern P Y___main_3___ (); extern P Y___main_4___ (); extern P Y___main_5___ (); extern P Y___main_6___ (); extern P Y___main_7___ (); extern P Y___main_8___ (); extern P Y___main_9___ (); extern P Y___main_10___ (); extern P Y___main_11___ (); extern P Y___main_12___ (); extern P Y___main_13___ (); extern P Y___main_14___ (); extern P Y___main_15___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YPallocate_stack(P num_) { P retF1; P T0,T1,T2,T3; DEFCREGS(); (P)YPdef_regs(); T3 = (P)YPsp_reg(); retF1 = T3; T1 = (P)YPsp_reg(); T2 = (P)YPiT((P)4,num_); T0 = (P)YPiA(T1,T2); (P)YPsp_reg_setter(T0); return retF1; } P YPclass_prop_len_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPclass_prop_len(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPclass_name_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPclass_name(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPclass_parents_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPclass_parents(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPclass_direct_props_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPclass_direct_props(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPclass_ancestors_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)4); return T0; } INLINE P YPclass_ancestors(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)4); return T0; } P YPclass_props_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)5); return T0; } INLINE P YPclass_props(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)5); return T0; } P YPclass_children_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)6); return T0; } INLINE P YPclass_children(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)6); return T0; } P YPclass_gens_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)7); return T0; } INLINE P YPclass_gens(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)7); return T0; } P YPclass_mets_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)8); return T0; } INLINE P YPclass_mets(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)8); return T0; } P YPclass_forward_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)9); return T0; } INLINE P YPclass_forward(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)9); return T0; } P YPclass_id_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)10); return T0; } INLINE P YPclass_id(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)10); return T0; } P YPclass_row_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)11); return T0; } INLINE P YPclass_row(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)11); return T0; } P YPclass(P class_prop_len_,P class_name_,P class_parents_,P class_direct_props_,P class_ancestors_,P class_props_,P class_children_,P class_gens_,P class_mets_,P class_forward_,P class_id_,P class_row_) { P classF2; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLclassG),(P)12); classF2 = T0; (P)YPprop_elt_setter(Ynil,classF2,(P)12); (P)YPprop_elt_setter(class_row_,classF2,(P)11); (P)YPprop_elt_setter(class_id_,classF2,(P)10); (P)YPprop_elt_setter(class_forward_,classF2,(P)9); (P)YPprop_elt_setter(class_mets_,classF2,(P)8); (P)YPprop_elt_setter(class_gens_,classF2,(P)7); (P)YPprop_elt_setter(class_children_,classF2,(P)6); (P)YPprop_elt_setter(class_props_,classF2,(P)5); (P)YPprop_elt_setter(class_ancestors_,classF2,(P)4); (P)YPprop_elt_setter(class_direct_props_,classF2,(P)3); (P)YPprop_elt_setter(class_parents_,classF2,(P)2); (P)YPprop_elt_setter(class_name_,classF2,(P)1); (P)YPprop_elt_setter(class_prop_len_,classF2,(P)0); return classF2; } P YPtype_object_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPtype_object(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPsingleton(P type_object_) { P classF3; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLsingletonG),(P)1); classF3 = T0; (P)YPprop_elt_setter(Ynil,classF3,(P)1); (P)YPprop_elt_setter(type_object_,classF3,(P)0); return classF3; } P YPtype_class_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPtype_class(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPsubclass(P type_class_) { P classF4; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLsubclassG),(P)1); classF4 = T0; (P)YPprop_elt_setter(Ynil,classF4,(P)1); (P)YPprop_elt_setter(type_class_,classF4,(P)0); return classF4; } P YPunion_elts_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPunion_elts(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPunion(P union_elts_) { P classF5; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLunionG),(P)1); classF5 = T0; (P)YPprop_elt_setter(Ynil,classF5,(P)1); (P)YPprop_elt_setter(union_elts_,classF5,(P)0); return classF5; } P YPproduct_elts_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPproduct_elts(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPproduct(P product_elts_) { P classF6; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLproductG),(P)1); classF6 = T0; (P)YPprop_elt_setter(Ynil,classF6,(P)1); (P)YPprop_elt_setter(product_elts_,classF6,(P)0); return classF6; } P YPhead_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPhead(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPtail_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPtail(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPlst(P head_,P tail_) { P classF7; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLlstG),(P)2); classF7 = T0; (P)YPprop_elt_setter(Ynil,classF7,(P)2); (P)YPprop_elt_setter(tail_,classF7,(P)1); (P)YPprop_elt_setter(head_,classF7,(P)0); return classF7; } P YPpair(P head_,P tail_) { P T0; DEFCREGS(); T0 = (P)YPlst(head_,tail_); return T0; } INLINE P YPnulQ(P x_) { P T0,T1; DEFCREGS(); T1 = (P)YPeqQ(x_,VARREF(Ynil)); T0 = (P)YPbb(T1); return T0; } P YPPlen(P x_) { P xF11; P xF10; P iF9; P xF8; P T0,T1,T2,T3,T4,T5; DEFCREGS(); xF8 = x_; iF9 = (P)0; LOOP_0: { P a0_0,a0_1; xF10 = xF8; T2 = (P)YPeqQ(xF10,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = iF9; } else { xF11 = xF8; T4 = (P)YPprop_elt(xF11,(P)1); T5 = (P)YPiA(iF9,(P)1); a0_0 = T4; a0_1 = T5; xF8 = a0_0; iF9 = a0_1; goto LOOP_0; T0 = T3; } } return T0; } P YPrevX(P c_) { P tF16; P xF15; P xF14; P rF13; P lF12; P T0,T1,T2,T3,T4; DEFCREGS(); lF12 = c_; rF13 = Ynil; LOOP_1: { P a1_0,a1_1; xF14 = lF12; T2 = (P)YPeqQ(xF14,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = rF13; } else { xF15 = lF12; T4 = (P)YPprop_elt(xF15,(P)1); tF16 = T4; (P)YPtail_setter(rF13,lF12); a1_0 = tF16; a1_1 = lF12; lF12 = a1_0; rF13 = a1_1; goto LOOP_1; T0 = T3; } } return T0; } P YPcat2(P x_,P y_) { P xF26; P xF25; P xF24; P xF23; P xF22; P yF21; P lxyF20; P xF19; P xF18; P lxF17; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; DEFCREGS(); lxF17 = VARREF(Ynil); xF18 = x_; LOOP_2: { P a2_0,a2_1; xF19 = xF18; T2 = (P)YPeqQ(xF19,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { lxyF20 = lxF17; yF21 = y_; LOOP_3: { P a3_0,a3_1; xF22 = yF21; T5 = (P)YPeqQ(xF22,VARREF(Ynil)); T4 = (P)YPbb(T5); if (T5) { T6 = (P)YPrevX(lxyF20); T3 = T6; } else { xF23 = yF21; T9 = (P)YPprop_elt(xF23,(P)0); T8 = (P)YPpair(T9,lxyF20); xF24 = yF21; T10 = (P)YPprop_elt(xF24,(P)1); a3_0 = T8; a3_1 = T10; lxyF20 = a3_0; yF21 = a3_1; goto LOOP_3; T3 = T7; } } T0 = T3; } else { xF25 = xF18; T13 = (P)YPprop_elt(xF25,(P)0); T12 = (P)YPpair(T13,lxF17); xF26 = xF18; T14 = (P)YPprop_elt(xF26,(P)1); a2_0 = T12; a2_1 = T14; lxF17 = a2_0; xF18 = a2_1; goto LOOP_2; T0 = T11; } } return T0; } P YPsig_specs_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPsig_specs(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPsig_naryQ_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPsig_naryQ(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPsig_arity_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPsig_arity(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPsig_val_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPsig_val(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPsig_unification_vars_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)4); return T0; } INLINE P YPsig_unification_vars(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)4); return T0; } P YPsig(P sig_specs_,P sig_naryQ_,P sig_arity_,P sig_val_,P sig_unification_vars_) { P classF27; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLsigG),(P)5); classF27 = T0; (P)YPprop_elt_setter(Ynil,classF27,(P)5); (P)YPprop_elt_setter(sig_unification_vars_,classF27,(P)4); (P)YPprop_elt_setter(sig_val_,classF27,(P)3); (P)YPprop_elt_setter(sig_arity_,classF27,(P)2); (P)YPprop_elt_setter(sig_naryQ_,classF27,(P)1); (P)YPprop_elt_setter(sig_specs_,classF27,(P)0); return classF27; } P YPsrc_loc_line_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPsrc_loc_line(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPsrc_loc_file_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPsrc_loc_file(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPsrc_loc(P src_loc_line_,P src_loc_file_) { P classF28; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLsrc_locG),(P)2); classF28 = T0; (P)YPprop_elt_setter(Ynil,classF28,(P)2); (P)YPprop_elt_setter(src_loc_file_,classF28,(P)1); (P)YPprop_elt_setter(src_loc_line_,classF28,(P)0); return classF28; } P YPfun_info_name_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPfun_info_name(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPfun_info_names_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPfun_info_names(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPfun_info_src_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPfun_info_src(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPfun_info_src_loc_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPfun_info_src_loc(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPfun_info_count_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)4); return T0; } INLINE P YPfun_info_count(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)4); return T0; } P YPfun_info_inlineableQ_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)5); return T0; } INLINE P YPfun_info_inlineableQ(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)5); return T0; } P YPfun_info(P fun_info_name_,P fun_info_names_,P fun_info_src_,P fun_info_src_loc_,P fun_info_count_,P fun_info_inlineableQ_) { P classF29; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLfun_infoG),(P)6); classF29 = T0; (P)YPprop_elt_setter(Ynil,classF29,(P)6); (P)YPprop_elt_setter(fun_info_inlineableQ_,classF29,(P)5); (P)YPprop_elt_setter(fun_info_count_,classF29,(P)4); (P)YPprop_elt_setter(fun_info_src_loc_,classF29,(P)3); (P)YPprop_elt_setter(fun_info_src_,classF29,(P)2); (P)YPprop_elt_setter(fun_info_names_,classF29,(P)1); (P)YPprop_elt_setter(fun_info_name_,classF29,(P)0); return classF29; } P YPmet_code_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPmet_code(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPmet_sig_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPmet_sig(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPmet_info_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPmet_info(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPmet_env_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPmet_env(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPmet(P met_code_,P met_sig_,P met_info_,P met_env_) { P classF30; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLmetG),(P)4); classF30 = T0; (P)YPprop_elt_setter(Ynil,classF30,(P)4); (P)YPprop_elt_setter(met_env_,classF30,(P)3); (P)YPprop_elt_setter(met_info_,classF30,(P)2); (P)YPprop_elt_setter(met_sig_,classF30,(P)1); (P)YPprop_elt_setter(met_code_,classF30,(P)0); return classF30; } INLINE P YPtag_bits(P x_) { P T0; DEFCREGS(); T0 = (P)YPiB(x_,(P)3); return T0; } INLINE P YPtag(P x_,P t_) { P T0,T1; DEFCREGS(); T1 = (P)YPiLL(x_,(P)2); T0 = (P)YPiv(T1,t_); return T0; } INLINE P YPuntag(P x_) { P T0; DEFCREGS(); T0 = (P)YPiGG(x_,(P)2); return T0; } P YPtag_into(P x_,P t_) { P tF33; P xF32; P xF31; P T0,T1,T2; DEFCREGS(); xF31 = x_; T2 = (P)YPiGG(xF31,(P)2); xF32 = T2; tF33 = t_; T1 = (P)YPiLL(xF32,(P)2); T0 = (P)YPiv(T1,tF33); return T0; } P YPuntag_into(P x_) { P tF36; P xF35; P xF34; P T0,T1,T2; DEFCREGS(); xF34 = x_; T2 = (P)YPiGG(xF34,(P)2); xF35 = T2; tF36 = (P)0; T1 = (P)YPiLL(xF35,(P)2); T0 = (P)YPiv(T1,tF36); return T0; } P YPindirect_objectQ(P x_) { P xF37; P T0,T1; DEFCREGS(); xF37 = x_; T1 = (P)YPiB(xF37,(P)3); T0 = (P)YPiE(T1,(P)0); return T0; } INLINE P YOadrQ(P x_) { P xF38; P T0,T1,T2; DEFCREGS(); xF38 = x_; T2 = (P)YPiB(xF38,(P)3); T1 = (P)YPiE(T2,(P)0); T0 = (P)YPbb(T1); return T0; } INLINE P YPclass_of(P x_) { P tagF40; P xF39; P T0,T1,T2,T3,T4,T5; DEFCREGS(); xF39 = x_; T5 = (P)YPiB(xF39,(P)3); tagF40 = T5; T2 = (P)YPiE(tagF40,(P)0); T1 = (P)YPbb(T2); if (T2) { T3 = (P)YPobject_class(x_); T0 = T3; } else { T4 = (P)YPelt(VARREF(YDdirect_object_class),tagF40); T0 = T4; } return T0; } INLINE P YPib(P x_) { P tF42; P xF41; P T0,T1; DEFCREGS(); xF41 = x_; tF42 = (P)1; T1 = (P)YPiLL(xF41,(P)2); T0 = (P)YPiv(T1,tF42); return T0; } INLINE P YPfixnum(P x_) { P tF45; P xF44; P xF43; P T0,T1; DEFCREGS(); xF43 = x_; xF44 = xF43; tF45 = (P)1; T1 = (P)YPiLL(xF44,(P)2); T0 = (P)YPiv(T1,tF45); return T0; } INLINE P YPiu(P x_) { P xF46; P T0; DEFCREGS(); xF46 = x_; T0 = (P)YPiGG(xF46,(P)2); return T0; } INLINE P YOintQ(P x_) { P xF47; P T0,T1,T2; DEFCREGS(); xF47 = x_; T2 = (P)YPiB(xF47,(P)3); T1 = (P)YPiE(T2,(P)1); T0 = (P)YPbb(T1); return T0; } INLINE P YPcb(P x_) { P tF49; P xF48; P T0,T1; DEFCREGS(); xF48 = x_; tF49 = (P)2; T1 = (P)YPiLL(xF48,(P)2); T0 = (P)YPiv(T1,tF49); return T0; } INLINE P YPchr(P x_) { P tF52; P xF51; P xF50; P T0,T1; DEFCREGS(); xF50 = x_; xF51 = xF50; tF52 = (P)2; T1 = (P)YPiLL(xF51,(P)2); T0 = (P)YPiv(T1,tF52); return T0; } INLINE P YPcu(P x_) { P xF53; P T0; DEFCREGS(); xF53 = x_; T0 = (P)YPiGG(xF53,(P)2); return T0; } INLINE P YPlb(P x_) { P T0; DEFCREGS(); T0 = (P)YPtag_into(x_,(P)3); return T0; } INLINE P YPloc(P x_) { P xF54; P T0; DEFCREGS(); xF54 = x_; T0 = (P)YPtag_into(xF54,(P)3); return T0; } INLINE P YPlu(P x_) { P T0; DEFCREGS(); T0 = (P)YPuntag_into(x_); return T0; } P YPstrX(P len_,P e_) { P T0; DEFCREGS(); T0 = (P)YPPsfab(len_,e_); return T0; } P YPstr(P len_,P e_) { P T0,T1,T2,T3; DEFCREGS(); T2 = (P)YPiE(len_,(P)0); T1 = (P)YPbb(T2); if (T2) { T0 = VARREF(YPsnul); } else { T3 = (P)YPstrX(len_,e_); T0 = T3; } return T0; } P YPtupX(P len_,P e_) { P T0; DEFCREGS(); T0 = (P)YPPtfab(len_,e_); return T0; } P YPtup(P len_,P e_) { P T0,T1,T2,T3; DEFCREGS(); T2 = (P)YPiE(len_,(P)0); T1 = (P)YPbb(T2); if (T2) { T0 = VARREF(YPtnul); } else { T3 = (P)YPtupX(len_,e_); T0 = T3; } return T0; } P YPrepX(P len_,P e_) { P T0; DEFCREGS(); T0 = (P)YPPrfab(len_,e_); return T0; } P YPrep(P len_,P e_) { P T0,T1,T2,T3; DEFCREGS(); T2 = (P)YPiE(len_,(P)0); T1 = (P)YPbb(T2); if (T2) { T0 = VARREF(YPrnul); } else { T3 = (P)YPrepX(len_,e_); T0 = T3; } return T0; } P YPstr_eqQ(P s1_,P s2_) { P c2F59; P c1F58; P tmpF57; P iF56; P lenF55; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; DEFCREGS(); T14 = (P)YPslen(s1_); lenF55 = T14; T3 = (P)YPslen(s2_); T2 = (P)YPiE(lenF55,T3); T1 = (P)YPbb(T2); if (T2) { iF56 = (P)0; LOOP_4: { P a4_0; T13 = (P)YPiE(iF56,lenF55); T12 = (P)YPbb(T13); tmpF57 = T12; if (tmpF57 != YPfalse) { T4 = tmpF57; } else { T11 = (P)YPselt(s1_,iF56); c1F58 = T11; T10 = (P)YPselt(s2_,iF56); c2F59 = T10; T7 = (P)YPcE(c1F58,c2F59); T6 = (P)YPbb(T7); if (T7) { T9 = (P)YPiA(iF56,(P)1); a4_0 = T9; iF56 = a4_0; goto LOOP_4; T5 = T8; } else { T5 = YPfalse; } T4 = T5; } } T0 = T4; } else { T0 = YPfalse; } return T0; } P YPcompute_ancestors(P parent_) { P xF63; P xF62; P parentF61; P resF60; P T0,T1,T2,T3,T4,T5,T6,T7,T8; DEFCREGS(); resF60 = Ynil; parentF61 = parent_; LOOP_5: { P a5_0,a5_1; T2 = (P)YPeqQ(parentF61,VARREF(YLanyG)); T1 = (P)YPbb(T2); if (T2) { T4 = (P)YPpair(VARREF(YLanyG),resF60); T3 = (P)YPrevX(T4); T0 = T3; } else { T6 = (P)YPpair(parentF61,resF60); xF62 = parentF61; T8 = (P)YPprop_elt(xF62,(P)2); xF63 = T8; T7 = (P)YPprop_elt(xF63,(P)0); a5_0 = T6; a5_1 = T7; resF60 = a5_0; parentF61 = a5_1; goto LOOP_5; T0 = T5; } } return T0; } P YPdefine_parents(P class_,P parents_) { P xF67; P xF66; P xF65; P xF64; P T0,T1,T2,T3,T4,T5,T6,T7,T8; DEFCREGS(); T0 = (P)YPpair(class_,VARREF(YTearly_classesT)); VARSET(YTearly_classesT,T0); (P)YPclass_prop_len_setter(YPint((P)0),class_); (P)YPclass_forward_setter(YPfalse,class_); (P)YPclass_parents_setter(parents_,class_); xF64 = parents_; T3 = (P)YPprop_elt(xF64,(P)0); T2 = (P)YPcompute_ancestors(T3); T1 = (P)YPpair(class_,T2); (P)YPclass_ancestors_setter(T1,class_); xF65 = parents_; T7 = (P)YPprop_elt(xF65,(P)0); xF66 = T7; T6 = (P)YPprop_elt(xF66,(P)6); T5 = (P)YPpair(class_,T6); xF67 = parents_; T8 = (P)YPprop_elt(xF67,(P)0); T4 = (P)YPclass_children_setter(T5,T8); return T4; } P YPPsym(P raw_str_) { P T0,T1,T2,T3; DEFCREGS(); if (VARREF(YPsymbols_readyQ) != YPfalse) { T2 = (P)YPsb(raw_str_); T1 = XCALL1(1,VARREF(Yfab_sym),T2); T0 = T1; } else { T3 = VARSET(YPTused_symbols_too_earlyT,YPtrue); T0 = T3; } return T0; } P YPsym_nam_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPsym_nam(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPsym(P sym_nam_) { P classF68; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLsymG),(P)1); classF68 = T0; (P)YPprop_elt_setter(Ynil,classF68,(P)1); (P)YPprop_elt_setter(sym_nam_,classF68,(P)0); return classF68; } P YPfab_sym(P name_) { P xF75; P xF74; P symF73; P xF72; P symF71; P xF70; P sF69; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; DEFCREGS(); sF69 = VARREF(YPsymbols); LOOP_6: { P a6_0; xF70 = sF69; T2 = (P)YPeqQ(xF70,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T4 = (P)YPsym(name_); symF71 = T4; T3 = (P)YPpair(symF71,VARREF(YPsymbols)); VARSET(YPsymbols,T3); T0 = symF71; } else { xF72 = sF69; T10 = (P)YPprop_elt(xF72,(P)0); symF73 = T10; xF74 = symF73; T7 = (P)YPprop_elt(xF74,(P)0); T6 = (P)YPstr_eqQ(T7,name_); if (T6 != YPfalse) { T5 = symF73; } else { xF75 = sF69; T9 = (P)YPprop_elt(xF75,(P)1); a6_0 = T9; sF69 = a6_0; goto LOOP_6; T5 = T8; } T0 = T5; } } return T0; } LOCCODEDEF(fun_118) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = (P)YPfab_sym(name_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Yfab_sym) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = (P)YPfab_sym(name_); UNLINK_STACK(); QRET(T0); } P YPflo_dat_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPflo_dat(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPflo(P flo_dat_) { P classF76; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLfloG),(P)1); classF76 = T0; (P)YPprop_elt_setter(flo_dat_,classF76,(P)0); return classF76; } P YPfb(P x_) { P T0; DEFCREGS(); T0 = (P)YPflo(x_); return T0; } P YPfu(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPopts_location_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPopts_location(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPopts_count_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPopts_count(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPopts(P opts_location_,P opts_count_) { P classF77; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLoptsG),(P)2); classF77 = T0; (P)YPprop_elt_setter(Ynil,classF77,(P)2); (P)YPprop_elt_setter(opts_count_,classF77,(P)1); (P)YPprop_elt_setter(opts_location_,classF77,(P)0); return classF77; } P YPopts_tup_location_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPopts_tup_location(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPopts_tup_count_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPopts_tup_count(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPopts_tup_tup_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPopts_tup_tup(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPopts_tup(P opts_tup_location_,P opts_tup_count_,P opts_tup_tup_) { P classF78; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLopts_tupG),(P)3); classF78 = T0; (P)YPprop_elt_setter(Ynil,classF78,(P)3); (P)YPprop_elt_setter(opts_tup_tup_,classF78,(P)2); (P)YPprop_elt_setter(opts_tup_count_,classF78,(P)1); (P)YPprop_elt_setter(opts_tup_location_,classF78,(P)0); return classF78; } P YPprop_owner_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPprop_owner(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPprop_getter_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPprop_getter(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPprop_setter_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPprop_setter(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPprop_type_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPprop_type(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPprop_init_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)4); return T0; } INLINE P YPprop_init(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)4); return T0; } P YPPprop(P prop_owner_,P prop_getter_,P prop_setter_,P prop_type_,P prop_init_) { P classF79; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLpropG),(P)5); classF79 = T0; (P)YPprop_elt_setter(Ynil,classF79,(P)5); (P)YPprop_elt_setter(prop_init_,classF79,(P)4); (P)YPprop_elt_setter(prop_type_,classF79,(P)3); (P)YPprop_elt_setter(prop_setter_,classF79,(P)2); (P)YPprop_elt_setter(prop_getter_,classF79,(P)1); (P)YPprop_elt_setter(prop_owner_,classF79,(P)0); return classF79; } P YPgen_cache_missableQ_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPgen_cache_missableQ(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPgen_cache_arg_pos_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPgen_cache_arg_pos(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPgen_cache_singletons_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPgen_cache_singletons(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPgen_cache_classes_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPgen_cache_classes(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPgen_cache_count_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)4); return T0; } INLINE P YPgen_cache_count(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)4); return T0; } P YPgen_cache(P gen_cache_missableQ_,P gen_cache_arg_pos_,P gen_cache_singletons_,P gen_cache_classes_,P gen_cache_count_) { P classF80; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLgen_cacheG),(P)5); classF80 = T0; (P)YPprop_elt_setter(Ynil,classF80,(P)5); (P)YPprop_elt_setter(gen_cache_count_,classF80,(P)4); (P)YPprop_elt_setter(gen_cache_classes_,classF80,(P)3); (P)YPprop_elt_setter(gen_cache_singletons_,classF80,(P)2); (P)YPprop_elt_setter(gen_cache_arg_pos_,classF80,(P)1); (P)YPprop_elt_setter(gen_cache_missableQ_,classF80,(P)0); return classF80; } P YPgen_code_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)0); return T0; } INLINE P YPgen_code(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)0); return T0; } P YPgen_sig_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)1); return T0; } INLINE P YPgen_sig(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)1); return T0; } P YPgen_info_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)2); return T0; } INLINE P YPgen_info(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)2); return T0; } P YPgen_mets_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)3); return T0; } INLINE P YPgen_mets(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)3); return T0; } P YPfun_cache_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt_setter(z_,x_,(P)4); return T0; } INLINE P YPfun_cache(P x_) { P T0; DEFCREGS(); T0 = (P)YPprop_elt(x_,(P)4); return T0; } P YPgen(P gen_code_,P gen_sig_,P gen_info_,P gen_mets_,P fun_cache_) { P classF81; P T0; DEFCREGS(); T0 = (P)YPobject_of(VARREF(YLgenG),(P)5); classF81 = T0; (P)YPprop_elt_setter(Ynil,classF81,(P)5); (P)YPprop_elt_setter(fun_cache_,classF81,(P)4); (P)YPprop_elt_setter(gen_mets_,classF81,(P)3); (P)YPprop_elt_setter(gen_info_,classF81,(P)2); (P)YPprop_elt_setter(gen_sig_,classF81,(P)1); (P)YPprop_elt_setter(gen_code_,classF81,(P)0); return classF81; } FUNCODEDEF(YPprop_offset) { P owner_,getter_; P xF91; P xF90; P propF89; P xF88; P xF87; P xF86; P xF85; P propsF84; P iF83; P xF82; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(owner_, 0); ARG(getter_, 1); iF83 = (P)0; T13 = (P)YPobject_class(owner_); xF82 = T13; T12 = (P)YPprop_elt(xF82,(P)5); propsF84 = T12; LOOP_7: { P a7_0,a7_1; xF85 = propsF84; T2 = (P)YPeqQ(xF85,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { xF86 = YPint((P)-1); xF87 = xF86; T3 = (P)YPiGG(xF87,(P)2); T0 = T3; } else { xF88 = propsF84; T11 = (P)YPprop_elt(xF88,(P)0); propF89 = T11; xF90 = propF89; T7 = (P)YPprop_elt(xF90,(P)1); T6 = (P)YPeqQ(T7,getter_); T5 = (P)YPbb(T6); if (T6) { T4 = iF83; } else { T9 = (P)YPiA(iF83,(P)1); xF91 = propsF84; T10 = (P)YPprop_elt(xF91,(P)1); a7_0 = T9; a7_1 = T10; iF83 = a7_0; propsF84 = a7_1; goto LOOP_7; T4 = T8; } T0 = T4; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YPearly_dispatch) { P args_; P genF92; P T0,T1,T2; LINK_STACK(); NARGS(args_, 0); T2 = (P)YPfun_reg(); genF92 = T2; T1 = (P)YPsu(LITREF(lit_8)); T0 = (P)YPbreak(T1); QRET(T0); } FUNCODEDEF(YPadd_met) { P gen_,met_; P xF93; P T0,T1,T2; LINK_STACK(); ARG(gen_, 0); ARG(met_, 1); xF93 = gen_; T2 = (P)YPprop_elt(xF93,(P)3); T1 = (P)YPpair(met_,T2); T0 = (P)YPgen_mets_setter(T1,gen_); UNLINK_STACK(); QRET(T0); } P YPfab_sig(P specs_,P naryQ_,P arity_,P val_,P unis_) { P T0; DEFCREGS(); T0 = (P)YPsig(specs_,naryQ_,arity_,val_,unis_); return T0; } P YPfab_genScode(P code_,P sig_,P name_,P names_,P src_loc_) { P xF95; P infoF94; P T0,T1,T2; DEFCREGS(); T2 = (P)YPfun_info(name_,names_,src_loc_,YPfalse,YPint((P)0),YPfalse); infoF94 = T2; xF95 = code_; T1 = (P)YPprop_elt(xF95,(P)0); T0 = (P)YPgen(T1,sig_,infoF94,Ynil,YPfalse); return T0; } P YPfab_gen(P sig_,P name_,P names_,P src_loc_) { P T0; DEFCREGS(); T0 = (P)YPfab_genScode(VARREF(YPdispatch),sig_,name_,names_,src_loc_); return T0; } P YPfab_met_inlineable(P code_,P sig_,P name_,P names_,P src_loc_,P src_) { P T0,T1; DEFCREGS(); T1 = (P)YPfun_info(name_,names_,src_loc_,src_,YPint((P)0),YPtrue); T0 = (P)YPmet(code_,sig_,T1,YPfalse); return T0; } P YPfab_met(P code_,P sig_,P name_,P names_,P src_loc_,P src_) { P T0,T1; DEFCREGS(); T1 = (P)YPfun_info(name_,names_,src_loc_,src_,YPint((P)0),YPfalse); T0 = (P)YPmet(code_,sig_,T1,YPfalse); return T0; } FUNCODEDEF(YPadd_prop) { P class_,prop_; P xF96; P T0,T1,T2; LINK_STACK(); ARG(class_, 0); ARG(prop_, 1); xF96 = class_; T2 = (P)YPprop_elt(xF96,(P)3); T1 = (P)YPpair(prop_,T2); T0 = (P)YPclass_direct_props_setter(T1,class_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_179) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLboxG),VARREF(Ybox_value)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_180) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLboxG),VARREF(Ybox_value)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_181) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_182) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsrc_locG),VARREF(Ysrc_loc_line)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_183) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_184) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsrc_locG),VARREF(Ysrc_loc_file)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_185) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_186) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLlstG),VARREF(Yhead)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_187) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLlstG),VARREF(Yhead)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_188) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_189) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLlstG),VARREF(Ytail)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_190) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLlstG),VARREF(Ytail)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_191) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_192) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsymG),VARREF(Ysym_name)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_193) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_194) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_prop_len)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_195) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_prop_len)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_196) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_197) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_name)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_198) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_199) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_parents)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_200) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_parents)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_201) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_202) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_direct_props)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_203) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_direct_props)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_204) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_205) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_ancestors)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_206) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_ancestors)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_207) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_208) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_props)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_209) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_props)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_210) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_211) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_children)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_212) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_children)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_213) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_214) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_gens)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_215) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_gens)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_216) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_217) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_mets)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_218) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_mets)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_219) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_220) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_forward)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_221) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_forward)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_222) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_223) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_id)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_224) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)-1)); } LOCCODEDEF(fun_225) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLclassG),VARREF(Yclass_row)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_226) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul)); } LOCCODEDEF(fun_227) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsingletonG),VARREF(Ytype_object)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_228) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_229) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsubclassG),VARREF(Ytype_class)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_230) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_231) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLunionG),VARREF(Yunion_elts)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_232) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_233) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLproductG),VARREF(Yproduct_elts)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_234) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_235) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLpropG),VARREF(Yprop_owner)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_236) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_237) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLpropG),VARREF(Yprop_getter)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_238) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_239) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLpropG),VARREF(Yprop_setter)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_240) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_241) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLpropG),VARREF(Yprop_type)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_242) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_243) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLpropG),VARREF(Yprop_init)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_244) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_245) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = fun_244; UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_246) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgen_cacheG),VARREF(Ygen_cache_missableQ)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_247) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_248) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgen_cacheG),VARREF(Ygen_cache_arg_pos)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_249) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_250) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgen_cacheG),VARREF(Ygen_cache_singletons)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_251) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_252) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgen_cacheG),VARREF(Ygen_cache_classes)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_253) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_254) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_specs)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_255) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_specs)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_256) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_257) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_naryQ)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_258) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_naryQ)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_259) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_260) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_arity)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_261) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_arity)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_262) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_263) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_val)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_264) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_val)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_265) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YLanyG)); } LOCCODEDEF(fun_266) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_unification_vars)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_267) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLsigG),VARREF(Ysig_unification_vars)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_268) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_269) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_name)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_270) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_name)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_271) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_272) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_names)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_273) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_names)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_274) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_275) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_src_loc)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_276) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_src_loc)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_277) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_278) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_src)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_279) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_src)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_280) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_281) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_count)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_282) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_count)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_283) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_284) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_inlineableQ)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_285) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfun_infoG),VARREF(Yfun_info_inlineableQ)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_286) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_287) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfunG),VARREF(Yfun_code)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_288) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_289) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfunG),VARREF(Yfun_sig)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_290) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfunG),VARREF(Yfun_sig)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_291) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul_prop)); } LOCCODEDEF(fun_292) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfunG),VARREF(Yfun_info)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_293) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLfunG),VARREF(Yfun_info)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_294) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_295) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLmetG),VARREF(Yfun_env)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_296) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_297) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgenG),VARREF(Yfun_mets)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_298) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgenG),VARREF(Yfun_mets)); T0 = (P)YPprop_elt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_299) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynil)); } LOCCODEDEF(fun_300) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLgenG),VARREF(Yfun_cache)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_301) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YPfalse)); } LOCCODEDEF(fun_302) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLoptsG),VARREF(Yopts_location)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_303) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_304) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLoptsG),VARREF(Yopts_count)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_305) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_306) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YPprop_offset),VARREF(YLopts_tupG),VARREF(Yopts_tup_storage)); T0 = (P)YPprop_elt(x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_307) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(Ynul)); } FUNCODEDEF(YPcollect_direct_props) { P class_; P xF101; P xF100; P parentF99; P xF98; P xF97; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(class_, 0); xF97 = class_; T4 = (P)YPprop_elt(xF97,(P)2); xF98 = T4; T3 = (P)YPprop_elt(xF98,(P)0); parentF99 = T3; xF100 = parentF99; T1 = (P)YPprop_elt(xF100,(P)5); xF101 = class_; T2 = (P)YPprop_elt(xF101,(P)3); T0 = (P)YPcat2(T1,T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YPfinalize_propsX) { P name_,class_; P tF106; P xF105; P xF104; P xF103; P xF102; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(name_, 0); ARG(class_, 1); (P)YPclass_name_setter(name_,class_); xF102 = class_; T1 = (P)YPprop_elt(xF102,(P)3); T0 = (P)YPrevX(T1); (P)YPclass_direct_props_setter(T0,class_); T2 = CALL1(1,VARREF(YPcollect_direct_props),class_); (P)YPclass_props_setter(T2,class_); xF103 = class_; T6 = (P)YPprop_elt(xF103,(P)5); T5 = (P)YPPlen(T6); xF104 = T5; xF105 = xF104; tF106 = (P)1; T4 = (P)YPiLL(xF105,(P)2); T3 = (P)YPiv(T4,tF106); (P)YPclass_prop_len_setter(T3,class_); UNLINK_STACK(); QRET(class_); } INLINE P YOhead(P x_) { P xF107; P T0; DEFCREGS(); xF107 = x_; T0 = (P)YPprop_elt(xF107,(P)0); return T0; } P YOhead_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPhead_setter(z_,x_); return T0; } INLINE P YOtail(P x_) { P xF108; P T0; DEFCREGS(); xF108 = x_; T0 = (P)YPprop_elt(xF108,(P)1); return T0; } P YOtail_setter(P z_,P x_) { P T0; DEFCREGS(); T0 = (P)YPtail_setter(z_,x_); return T0; } INLINE P YOE(P x_,P y_) { P T0,T1; DEFCREGS(); T1 = (P)YPiE(x_,y_); T0 = (P)YPbb(T1); return T0; } INLINE P YOL(P x_,P y_) { P xF112; P xF111; P xF110; P xF109; P T0,T1,T2,T3; DEFCREGS(); xF109 = x_; xF110 = xF109; T2 = (P)YPiGG(xF110,(P)2); xF111 = y_; xF112 = xF111; T3 = (P)YPiGG(xF112,(P)2); T1 = (P)YPiL(T2,T3); T0 = (P)YPbb(T1); return T0; } INLINE P YOA(P x_,P y_) { P tF119; P xF118; P xF117; P xF116; P xF115; P xF114; P xF113; P T0,T1,T2,T3,T4; DEFCREGS(); xF113 = x_; xF114 = xF113; T3 = (P)YPiGG(xF114,(P)2); xF115 = y_; xF116 = xF115; T4 = (P)YPiGG(xF116,(P)2); T2 = (P)YPiA(T3,T4); xF117 = T2; xF118 = xF117; tF119 = (P)1; T1 = (P)YPiLL(xF118,(P)2); T0 = (P)YPiv(T1,tF119); return T0; } INLINE P YOEE(P x_,P y_) { P T0,T1; DEFCREGS(); T1 = (P)YPeqQ(x_,y_); T0 = (P)YPbb(T1); return T0; } FUNCODEDEF(YOOEE) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = (P)YPeqQ(x_,y_); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Ynot) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = (P)YPeqQ(x_,YPfalse); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } INLINE P YOnot(P x_) { P T0,T1; DEFCREGS(); T1 = (P)YPeqQ(x_,YPfalse); T0 = (P)YPbb(T1); return T0; } INLINE P YOnulQ(P x_) { P xF120; P T0,T1; DEFCREGS(); xF120 = x_; T1 = (P)YPeqQ(xF120,VARREF(Ynil)); T0 = (P)YPbb(T1); return T0; } FUNCODEDEF(YOOnulQ) { P x_; P xF121; P T0,T1; LINK_STACK(); ARG(x_, 0); xF121 = x_; T1 = (P)YPeqQ(xF121,VARREF(Ynil)); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOrevX) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPrevX(x_); UNLINK_STACK(); RET(T0); } P YOlen(P x_) { P tF124; P xF123; P xF122; P T0,T1,T2; DEFCREGS(); T2 = (P)YPPlen(x_); xF122 = T2; xF123 = xF122; tF124 = (P)1; T1 = (P)YPiLL(xF123,(P)2); T0 = (P)YPiv(T1,tF124); return T0; } INLINE P YOoelt(P x_,P i_) { P xF127; P xF126; P xF125; P T0,T1,T2,T3; DEFCREGS(); xF125 = x_; T1 = (P)YPprop_elt(xF125,(P)0); xF126 = i_; xF127 = xF126; T3 = (P)YPiGG(xF127,(P)2); T2 = (P)YPi_((P)0,T3); T0 = (P)YPloc_off(T1,T2); return T0; } INLINE P YOoelt_setter(P z_,P x_,P i_) { P xF130; P xF129; P xF128; P T0,T1,T2,T3; DEFCREGS(); xF128 = x_; T1 = (P)YPprop_elt(xF128,(P)0); xF129 = i_; xF130 = xF129; T3 = (P)YPiGG(xF130,(P)2); T2 = (P)YPi_((P)0,T3); T0 = (P)YPloc_off_setter(z_,T1,T2); return T0; } INLINE P YOolen(P x_) { P xF131; P T0; DEFCREGS(); xF131 = x_; T0 = (P)YPprop_elt(xF131,(P)1); return T0; } FUNCODEDEF(YOallQ) { P test_,c_; P xF138; P xF137; P xF136; P xF135; P xF134; P xF133; P pF132; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(test_, 0); ARG(c_, 1); pF132 = c_; LOOP_8: { P a8_0; xF133 = pF132; xF134 = xF133; T2 = (P)YPeqQ(xF134,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = YPtrue; } else { xF135 = pF132; xF136 = xF135; T5 = (P)YPprop_elt(xF136,(P)0); T4 = CALL1(0,test_,T5); if (T4 != YPfalse) { xF137 = pF132; xF138 = xF137; T7 = (P)YPprop_elt(xF138,(P)1); a8_0 = T7; pF132 = a8_0; goto LOOP_8; T3 = T6; } else { T3 = YPfalse; } T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOall2Q) { P test_,x_,y_; P xF154; P xF153; P xF152; P xF151; P xF150; P xF149; P xF148; P xF147; P xF146; P xF145; P xF144; P xF143; P xF142; P xF141; P pyF140; P pxF139; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(test_, 0); ARG(x_, 1); ARG(y_, 2); pxF139 = x_; pyF140 = y_; LOOP_9: { P a9_0,a9_1; xF141 = pxF139; xF142 = xF141; T2 = (P)YPeqQ(xF142,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { xF143 = pyF140; xF144 = xF143; T4 = (P)YPeqQ(xF144,VARREF(Ynil)); T3 = (P)YPbb(T4); T0 = T3; } else { xF145 = pyF140; xF146 = xF145; T7 = (P)YPeqQ(xF146,VARREF(Ynil)); T6 = (P)YPbb(T7); if (T7) { T5 = YPfalse; } else { xF147 = pxF139; xF148 = xF147; T10 = (P)YPprop_elt(xF148,(P)0); xF149 = pyF140; xF150 = xF149; T11 = (P)YPprop_elt(xF150,(P)0); T9 = CALL2(0,test_,T10,T11); if (T9 != YPfalse) { xF151 = pxF139; xF152 = xF151; T13 = (P)YPprop_elt(xF152,(P)1); xF153 = pyF140; xF154 = xF153; T14 = (P)YPprop_elt(xF154,(P)1); a9_0 = T13; a9_1 = T14; pxF139 = a9_0; pyF140 = a9_1; goto LOOP_9; T8 = T12; } else { T8 = YPfalse; } T5 = T8; } T0 = T5; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOelt) { P x_,key_; P xF173; P xF172; P tF171; P xF170; P xF169; P xF168; P xF167; P xF166; P xF165; P yF164; P xF163; P xF162; P xF161; P yF160; P xF159; P yF158; P xF157; P xF156; P countF155; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(x_, 0); ARG(key_, 1); check_type(YPint((P)0),VARREF(YLfixnumG)); countF155 = YPint((P)0); check_type(x_,VARREF(YLlstG)); xF156 = x_; LOOP_10: { P a10_0,a10_1; xF157 = xF156; yF158 = Ynil; T2 = (P)YPeqQ(xF157,yF158); T1 = (P)YPbb(T2); if (T2) { T0 = VARREF(Ynul); } else { xF159 = countF155; yF160 = key_; T5 = (P)YPiE(xF159,yF160); T4 = (P)YPbb(T5); if (T5) { xF161 = xF156; xF162 = xF161; T6 = (P)YPprop_elt(xF162,(P)0); T3 = T6; } else { xF163 = countF155; yF164 = YPint((P)1); xF165 = xF163; xF166 = xF165; T11 = (P)YPiGG(xF166,(P)2); xF167 = yF164; xF168 = xF167; T12 = (P)YPiGG(xF168,(P)2); T10 = (P)YPiA(T11,T12); xF169 = T10; xF170 = xF169; tF171 = (P)1; T9 = (P)YPiLL(xF170,(P)2); T8 = (P)YPiv(T9,tF171); xF172 = xF156; xF173 = xF172; T13 = (P)YPprop_elt(xF173,(P)1); a10_0 = T8; a10_1 = T13; countF155 = a10_0; xF156 = a10_1; goto LOOP_10; T3 = T7; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOfill) { P x_,f_; P xF178; P xF177; P xF176; P xF175; P pF174; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(f_, 1); pF174 = x_; LOOP_11: { P a11_0; xF175 = pF174; xF176 = xF175; T2 = (P)YPeqQ(xF176,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = x_; } else { (P)YOhead_setter(f_,pF174); xF177 = pF174; xF178 = xF177; T4 = (P)YPprop_elt(xF178,(P)1); a11_0 = T4; pF174 = a11_0; goto LOOP_11; T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOanyQ) { P test_,c_; P xF186; P xF185; P tmpF184; P xF183; P xF182; P xF181; P xF180; P pF179; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(test_, 0); ARG(c_, 1); pF179 = c_; LOOP_12: { P a12_0; xF180 = pF179; xF181 = xF180; T2 = (P)YPeqQ(xF181,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = YPfalse; } else { xF182 = pF179; xF183 = xF182; T7 = (P)YPprop_elt(xF183,(P)0); T6 = CALL1(0,test_,T7); tmpF184 = T6; if (tmpF184 != YPfalse) { T3 = tmpF184; } else { xF185 = pF179; xF186 = xF185; T5 = (P)YPprop_elt(xF186,(P)1); a12_0 = T5; pF179 = a12_0; goto LOOP_12; T3 = T4; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } P YOpair(P h_,P t_) { P T0; DEFCREGS(); T0 = (P)YPpair(h_,t_); return T0; } FUNCODEDEF(Yfab_pair) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = (P)YPpair(h_,t_); UNLINK_STACK(); RET(T0); } P YOadd(P c_,P e_) { P T0; DEFCREGS(); T0 = (P)YOpair(e_,c_); return T0; } P YOadd_new(P c_,P e_) { P T0,T1,T2; DEFCREGS(); T1 = XCALL2(1,VARREF(YOmemQ),c_,e_); if (T1 != YPfalse) { T0 = c_; } else { T2 = (P)YOpair(e_,c_); T0 = T2; } return T0; } FUNCODEDEF(YOmap) { P f_,x_; P xF194; P xF193; P xF192; P xF191; P xF190; P xF189; P resF188; P xF187; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); xF187 = x_; resF188 = Ynil; LOOP_13: { P a13_0,a13_1; xF189 = xF187; xF190 = xF189; T2 = (P)YPeqQ(xF190,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL1(1,VARREF(YOrevX),resF188); T0 = T3; } else { xF191 = xF187; xF192 = xF191; T5 = (P)YPprop_elt(xF192,(P)1); xF193 = xF187; xF194 = xF193; T8 = (P)YPprop_elt(xF194,(P)0); T7 = CALL1(1,f_,T8); T6 = (P)YOpair(T7,resF188); a13_0 = T5; a13_1 = T6; xF187 = a13_0; resF188 = a13_1; goto LOOP_13; T0 = T4; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOpick) { P f_,x_; P xF203; P xF202; P hF201; P xF200; P xF199; P xF198; P xF197; P resF196; P xF195; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); xF195 = x_; resF196 = Ynil; LOOP_14: { P a14_0,a14_1; xF197 = xF195; xF198 = xF197; T2 = (P)YPeqQ(xF198,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL1(1,VARREF(YOrevX),resF196); T0 = T3; } else { xF199 = xF195; xF200 = xF199; T9 = (P)YPprop_elt(xF200,(P)0); hF201 = T9; xF202 = xF195; xF203 = xF202; T5 = (P)YPprop_elt(xF203,(P)1); T7 = CALL1(1,f_,hF201); if (T7 != YPfalse) { T8 = (P)YOpair(hF201,resF196); T6 = T8; } else { T6 = resF196; } a14_0 = T5; a14_1 = T6; xF195 = a14_0; resF196 = a14_1; goto LOOP_14; T0 = T4; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOdo) { P f_,x_; P xF210; P xF209; P xF208; P xF207; P xF206; P xF205; P xF204; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); xF204 = x_; LOOP_15: { P a15_0; xF205 = xF204; xF206 = xF205; T2 = (P)YPeqQ(xF206,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = YPfalse; } else { xF207 = xF204; xF208 = xF207; T3 = (P)YPprop_elt(xF208,(P)0); CALL1(0,f_,T3); xF209 = xF204; xF210 = xF209; T5 = (P)YPprop_elt(xF210,(P)1); a15_0 = T5; xF204 = a15_0; goto LOOP_15; T0 = T4; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOalter) { P dst_,src_; P xF223; P xF222; P xF221; P xF220; P xF219; P xF218; P xF217; P xF216; P tmpF215; P xF214; P xF213; P ssF212; P dsF211; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(dst_, 0); ARG(src_, 1); dsF211 = dst_; ssF212 = src_; LOOP_16: { P a16_0,a16_1; xF213 = dsF211; xF214 = xF213; T5 = (P)YPeqQ(xF214,VARREF(Ynil)); T4 = (P)YPbb(T5); tmpF215 = T4; if (tmpF215 != YPfalse) { T1 = tmpF215; } else { xF216 = ssF212; xF217 = xF216; T3 = (P)YPeqQ(xF217,VARREF(Ynil)); T2 = (P)YPbb(T3); T1 = T2; } if (T1 != YPfalse) { T0 = dst_; } else { xF218 = ssF212; xF219 = xF218; T6 = (P)YPprop_elt(xF219,(P)0); (P)YOhead_setter(T6,dsF211); xF220 = dsF211; xF221 = xF220; T8 = (P)YPprop_elt(xF221,(P)1); xF222 = ssF212; xF223 = xF222; T9 = (P)YPprop_elt(xF223,(P)1); a16_0 = T8; a16_1 = T9; dsF211 = a16_0; ssF212 = a16_1; goto LOOP_16; T0 = T7; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOfab) { P x_,s_; P tF240; P xF239; P xF238; P xF237; P xF236; P xF235; P xF234; P yF233; P xF232; P xF231; P xF230; P xF229; P xF228; P yF227; P xF226; P resF225; P iF224; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); check_type(s_,VARREF(YLfixnumG)); iF224 = s_; check_type(Ynil,VARREF(YLlstG)); resF225 = Ynil; LOOP_17: { P a17_0,a17_1; xF226 = iF224; yF227 = YPint((P)0); xF228 = xF226; xF229 = xF228; T3 = (P)YPiGG(xF229,(P)2); xF230 = yF227; xF231 = xF230; T4 = (P)YPiGG(xF231,(P)2); T2 = (P)YPiL(T3,T4); T1 = (P)YPbb(T2); if (T2) { T0 = resF225; } else { xF232 = iF224; yF233 = YPint((P)-1); xF234 = xF232; xF235 = xF234; T9 = (P)YPiGG(xF235,(P)2); xF236 = yF233; xF237 = xF236; T10 = (P)YPiGG(xF237,(P)2); T8 = (P)YPiA(T9,T10); xF238 = T8; xF239 = xF238; tF240 = (P)1; T7 = (P)YPiLL(xF239,(P)2); T6 = (P)YPiv(T7,tF240); T11 = (P)YOpair(VARREF(Ynul),resF225); a17_0 = T6; a17_1 = T11; iF224 = a17_0; resF225 = a17_1; goto LOOP_17; T0 = T5; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOfold) { P combine_,init_,c_; P xF248; P xF247; P xF246; P xF245; P xF244; P xF243; P cF242; P resF241; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(combine_, 0); ARG(init_, 1); ARG(c_, 2); resF241 = init_; cF242 = c_; LOOP_18: { P a18_0,a18_1; xF243 = cF242; xF244 = xF243; T2 = (P)YPeqQ(xF244,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = resF241; } else { xF245 = cF242; xF246 = xF245; T5 = (P)YPprop_elt(xF246,(P)0); T4 = CALL2(0,combine_,resF241,T5); xF247 = cF242; xF248 = xF247; T6 = (P)YPprop_elt(xF248,(P)1); a18_0 = T4; a18_1 = T6; resF241 = a18_0; cF242 = a18_1; goto LOOP_18; T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOrev) { P x_; P xF256; P xF255; P xF254; P xF253; P xF252; P xF251; P rF250; P lF249; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); lF249 = x_; rF250 = Ynil; LOOP_19: { P a19_0,a19_1; xF251 = lF249; xF252 = xF251; T2 = (P)YPeqQ(xF252,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = rF250; } else { xF253 = lF249; xF254 = xF253; T4 = (P)YPprop_elt(xF254,(P)1); xF255 = lF249; xF256 = xF255; T6 = (P)YPprop_elt(xF256,(P)0); T5 = (P)YOpair(T6,rF250); a19_0 = T4; a19_1 = T5; lF249 = a19_0; rF250 = a19_1; goto LOOP_19; T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOcat2) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = (P)YPcat2(x_,y_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOfind) { P f_,c_; P tF273; P xF272; P xF271; P xF270; P xF269; P xF268; P xF267; P yF266; P xF265; P xF264; P xF263; P xF262; P xF261; P xF260; P xF259; P iF258; P cF257; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); cF257 = c_; iF258 = YPint((P)0); LOOP_20: { P a20_0,a20_1; xF259 = cF257; xF260 = xF259; T2 = (P)YPeqQ(xF260,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = VARREF(Ynul); } else { xF261 = cF257; xF262 = xF261; T5 = (P)YPprop_elt(xF262,(P)0); T4 = CALL1(1,f_,T5); if (T4 != YPfalse) { T3 = iF258; } else { xF263 = cF257; xF264 = xF263; T7 = (P)YPprop_elt(xF264,(P)1); xF265 = iF258; yF266 = YPint((P)1); xF267 = xF265; xF268 = xF267; T11 = (P)YPiGG(xF268,(P)2); xF269 = yF266; xF270 = xF269; T12 = (P)YPiGG(xF270,(P)2); T10 = (P)YPiA(T11,T12); xF271 = T10; xF272 = xF271; tF273 = (P)1; T9 = (P)YPiLL(xF272,(P)2); T8 = (P)YPiv(T9,tF273); a20_0 = T7; a20_1 = T8; cF257 = a20_0; iF258 = a20_1; goto LOOP_20; T3 = T6; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_346) { P y_; P yF275; P xF274; P T0,T1; LINK_STACK(); ARG(y_, 0); xF274 = FREEREF(0); yF275 = y_; T1 = (P)YPeqQ(xF274,yF275); T0 = (P)YPbb(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOmemQ) { P c_,x_; P yF277; P xF276; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T4 = FUNFAB(fun_346,1,x_); T3 = CALL2(1,VARREF(YOfind),T4,c_); xF276 = T3; yF277 = VARREF(Ynul); T2 = (P)YPeqQ(xF276,yF277); T1 = (P)YPbb(T2); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_348) { P s_,e_; P T0,T1,T2; LINK_STACK(); ARG(s_, 0); ARG(e_, 1); T1 = CALL2(1,VARREF(YOmemQ),s_,e_); if (T1 != YPfalse) { T0 = s_; } else { T2 = (P)YOpair(e_,s_); T0 = T2; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOdel_dups) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = fun_348; T1 = CALL3(1,VARREF(YOfold),T2,Ynil,x_); T0 = CALL1(1,VARREF(YOrevX),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOopts_as_lst) { P x_; P xF306; P xF305; P xF304; P iF303; P xF302; P tF301; P xF300; P xF299; P xF298; P xF297; P xF296; P xF295; P yF294; P xF293; P yF292; P xF291; P lF290; P iF289; P tF288; P xF287; P xF286; P xF285; P xF284; P xF283; P xF282; P yF281; P xF280; P xF279; P xF278; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(x_, 0); xF278 = x_; xF279 = xF278; T19 = (P)YPprop_elt(xF279,(P)1); xF280 = T19; yF281 = YPint((P)-1); xF282 = xF280; xF283 = xF282; T17 = (P)YPiGG(xF283,(P)2); xF284 = yF281; xF285 = xF284; T18 = (P)YPiGG(xF285,(P)2); T16 = (P)YPiA(T17,T18); xF286 = T16; xF287 = xF286; tF288 = (P)1; T15 = (P)YPiLL(xF287,(P)2); T14 = (P)YPiv(T15,tF288); iF289 = T14; lF290 = Ynil; LOOP_21: { P a21_0,a21_1; xF291 = iF289; yF292 = YPint((P)-1); T2 = (P)YPeqQ(xF291,yF292); T1 = (P)YPbb(T2); if (T2) { T0 = lF290; } else { xF293 = iF289; yF294 = YPint((P)-1); xF295 = xF293; xF296 = xF295; T7 = (P)YPiGG(xF296,(P)2); xF297 = yF294; xF298 = xF297; T8 = (P)YPiGG(xF298,(P)2); T6 = (P)YPiA(T7,T8); xF299 = T6; xF300 = xF299; tF301 = (P)1; T5 = (P)YPiLL(xF300,(P)2); T4 = (P)YPiv(T5,tF301); xF302 = x_; iF303 = iF289; xF304 = xF302; T11 = (P)YPprop_elt(xF304,(P)0); xF305 = iF303; xF306 = xF305; T13 = (P)YPiGG(xF306,(P)2); T12 = (P)YPi_((P)0,T13); T10 = (P)YPloc_off(T11,T12); T9 = (P)YOpair(T10,lF290); a21_0 = T4; a21_1 = T9; iF289 = a21_0; lF290 = a21_1; goto LOOP_21; T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOlst) { P x_; P xF335; P xF334; P xF333; P iF332; P xF331; P tF330; P xF329; P xF328; P xF327; P xF326; P xF325; P xF324; P yF323; P xF322; P yF321; P xF320; P lF319; P iF318; P tF317; P xF316; P xF315; P xF314; P xF313; P xF312; P xF311; P yF310; P xF309; P xF308; P xF307; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); NARGS(x_, 0); xF307 = x_; xF308 = xF307; T19 = (P)YPprop_elt(xF308,(P)1); xF309 = T19; yF310 = YPint((P)-1); xF311 = xF309; xF312 = xF311; T17 = (P)YPiGG(xF312,(P)2); xF313 = yF310; xF314 = xF313; T18 = (P)YPiGG(xF314,(P)2); T16 = (P)YPiA(T17,T18); xF315 = T16; xF316 = xF315; tF317 = (P)1; T15 = (P)YPiLL(xF316,(P)2); T14 = (P)YPiv(T15,tF317); iF318 = T14; lF319 = Ynil; LOOP_22: { P a22_0,a22_1; xF320 = iF318; yF321 = YPint((P)-1); T2 = (P)YPeqQ(xF320,yF321); T1 = (P)YPbb(T2); if (T2) { T0 = lF319; } else { xF322 = iF318; yF323 = YPint((P)-1); xF324 = xF322; xF325 = xF324; T7 = (P)YPiGG(xF325,(P)2); xF326 = yF323; xF327 = xF326; T8 = (P)YPiGG(xF327,(P)2); T6 = (P)YPiA(T7,T8); xF328 = T6; xF329 = xF328; tF330 = (P)1; T5 = (P)YPiLL(xF329,(P)2); T4 = (P)YPiv(T5,tF330); xF331 = x_; iF332 = iF318; xF333 = xF331; T11 = (P)YPprop_elt(xF333,(P)0); xF334 = iF332; xF335 = xF334; T13 = (P)YPiGG(xF335,(P)2); T12 = (P)YPi_((P)0,T13); T10 = (P)YPloc_off(T11,T12); T9 = (P)YOpair(T10,lF319); a22_0 = T4; a22_1 = T9; iF318 = a22_0; lF319 = a22_1; goto LOOP_22; T0 = T3; } } UNLINK_STACK(); QRET(T0); } INLINE P YOtlen(P x_) { P tF338; P xF337; P xF336; P T0,T1,T2; DEFCREGS(); T2 = (P)YPtlen(x_); xF336 = T2; xF337 = xF336; tF338 = (P)1; T1 = (P)YPiLL(xF337,(P)2); T0 = (P)YPiv(T1,tF338); return T0; } INLINE P YOtelt(P x_,P i_) { P xF340; P xF339; P T0,T1; DEFCREGS(); xF339 = i_; xF340 = xF339; T1 = (P)YPiGG(xF340,(P)2); T0 = (P)YPtelt(x_,T1); return T0; } INLINE P YOtelt_setter(P z_,P x_,P i_) { P xF342; P xF341; P T0,T1; DEFCREGS(); xF341 = i_; xF342 = xF341; T1 = (P)YPiGG(xF342,(P)2); T0 = (P)YPtelt_setter(z_,x_,T1); return T0; } FUNCODEDEF(YOtanyQ) { P test_,c_; P tF376; P xF375; P xF374; P xF373; P xF372; P xF371; P xF370; P yF369; P xF368; P tmpF367; P xF366; P xF365; P iF364; P xF363; P xF362; P xF361; P xF360; P xF359; P yF358; P xF357; P iF356; P tF355; P xF354; P xF353; P xF352; P xF351; P xF350; P xF349; P yF348; P xF347; P tF346; P xF345; P xF344; P xF343; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(test_, 0); ARG(c_, 1); xF343 = c_; T22 = (P)YPtlen(xF343); xF344 = T22; xF345 = xF344; tF346 = (P)1; T21 = (P)YPiLL(xF345,(P)2); T20 = (P)YPiv(T21,tF346); xF347 = T20; yF348 = YPint((P)-1); xF349 = xF347; xF350 = xF349; T18 = (P)YPiGG(xF350,(P)2); xF351 = yF348; xF352 = xF351; T19 = (P)YPiGG(xF352,(P)2); T17 = (P)YPiA(T18,T19); xF353 = T17; xF354 = xF353; tF355 = (P)1; T16 = (P)YPiLL(xF354,(P)2); T15 = (P)YPiv(T16,tF355); iF356 = T15; LOOP_23: { P a23_0; xF357 = iF356; yF358 = YPint((P)0); xF359 = xF357; xF360 = xF359; T3 = (P)YPiGG(xF360,(P)2); xF361 = yF358; xF362 = xF361; T4 = (P)YPiGG(xF362,(P)2); T2 = (P)YPiL(T3,T4); T1 = (P)YPbb(T2); if (T2) { T0 = YPfalse; } else { xF363 = c_; iF364 = iF356; xF365 = iF364; xF366 = xF365; T14 = (P)YPiGG(xF366,(P)2); T13 = (P)YPtelt(xF363,T14); T12 = CALL1(0,test_,T13); tmpF367 = T12; if (tmpF367 != YPfalse) { T5 = tmpF367; } else { xF368 = iF356; yF369 = YPint((P)-1); xF370 = xF368; xF371 = xF370; T10 = (P)YPiGG(xF371,(P)2); xF372 = yF369; xF373 = xF372; T11 = (P)YPiGG(xF373,(P)2); T9 = (P)YPiA(T10,T11); xF374 = T9; xF375 = xF374; tF376 = (P)1; T8 = (P)YPiLL(xF375,(P)2); T7 = (P)YPiv(T8,tF376); a23_0 = T7; iF356 = a23_0; goto LOOP_23; T5 = T6; } T0 = T5; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOtall2Q) { P test_,c1_,c2_; P tF424; P xF423; P xF422; P xF421; P xF420; P xF419; P xF418; P yF417; P xF416; P xF415; P xF414; P iF413; P xF412; P xF411; P xF410; P iF409; P xF408; P tmpF407; P xF406; P xF405; P xF404; P xF403; P yF402; P xF401; P iF400; P tF399; P xF398; P xF397; P xF396; P xF395; P xF394; P xF393; P yF392; P xF391; P tF390; P xF389; P xF388; P xF387; P yF386; P xF385; P tF384; P xF383; P xF382; P xF381; P tF380; P xF379; P xF378; P xF377; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33; LINK_STACK(); ARG(test_, 0); ARG(c1_, 1); ARG(c2_, 2); xF377 = c1_; T5 = (P)YPtlen(xF377); xF378 = T5; xF379 = xF378; tF380 = (P)1; T4 = (P)YPiLL(xF379,(P)2); T3 = (P)YPiv(T4,tF380); xF385 = T3; xF381 = c2_; T8 = (P)YPtlen(xF381); xF382 = T8; xF383 = xF382; tF384 = (P)1; T7 = (P)YPiLL(xF383,(P)2); T6 = (P)YPiv(T7,tF384); yF386 = T6; T2 = (P)YPeqQ(xF385,yF386); T1 = (P)YPbb(T2); if (T2) { xF387 = c1_; T33 = (P)YPtlen(xF387); xF388 = T33; xF389 = xF388; tF390 = (P)1; T32 = (P)YPiLL(xF389,(P)2); T31 = (P)YPiv(T32,tF390); xF391 = T31; yF392 = YPint((P)-1); xF393 = xF391; xF394 = xF393; T29 = (P)YPiGG(xF394,(P)2); xF395 = yF392; xF396 = xF395; T30 = (P)YPiGG(xF396,(P)2); T28 = (P)YPiA(T29,T30); xF397 = T28; xF398 = xF397; tF399 = (P)1; T27 = (P)YPiLL(xF398,(P)2); T26 = (P)YPiv(T27,tF399); iF400 = T26; LOOP_24: { P a24_0; xF401 = iF400; yF402 = YPint((P)0); xF403 = xF401; xF404 = xF403; T24 = (P)YPiGG(xF404,(P)2); xF405 = yF402; xF406 = xF405; T25 = (P)YPiGG(xF406,(P)2); T23 = (P)YPiL(T24,T25); T22 = (P)YPbb(T23); tmpF407 = T22; if (tmpF407 != YPfalse) { T9 = tmpF407; } else { xF408 = c1_; iF409 = iF400; xF410 = iF409; xF411 = xF410; T13 = (P)YPiGG(xF411,(P)2); T12 = (P)YPtelt(xF408,T13); xF412 = c2_; iF413 = iF400; xF414 = iF413; xF415 = xF414; T15 = (P)YPiGG(xF415,(P)2); T14 = (P)YPtelt(xF412,T15); T11 = CALL2(1,test_,T12,T14); if (T11 != YPfalse) { xF416 = iF400; yF417 = YPint((P)-1); xF418 = xF416; xF419 = xF418; T20 = (P)YPiGG(xF419,(P)2); xF420 = yF417; xF421 = xF420; T21 = (P)YPiGG(xF421,(P)2); T19 = (P)YPiA(T20,T21); xF422 = T19; xF423 = xF422; tF424 = (P)1; T18 = (P)YPiLL(xF423,(P)2); T17 = (P)YPiv(T18,tF424); a24_0 = T17; iF400 = a24_0; goto LOOP_24; T10 = T16; } else { T10 = YPfalse; } T9 = T10; } } T0 = T9; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } INLINE P YPto_tup(P args_) { P tF484; P xF483; P xF482; P xF481; P xF480; P xF479; P xF478; P yF477; P xF476; P xF475; P xF474; P iF473; P xF472; P zF471; P xF470; P xF469; P xF468; P iF467; P xF466; P xF465; P yF464; P xF463; P kF462; P tF461; P xF460; P xF459; P xF458; P xF457; P xF456; P xF455; P yF454; P xF453; P xF452; P xF451; P iF450; P xF449; P zF448; P xF447; P xF446; P xF445; P iF444; P xF443; P xF442; P xF441; P iF440; P xF439; P zF438; P xF437; P xF436; P xF435; P iF434; P xF433; P yF432; P xF431; P tF430; P xF429; P xF428; P lF427; P xF426; P xF425; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38; DEFCREGS(); xF425 = args_; xF426 = xF425; T38 = (P)YPprop_elt(xF426,(P)1); lF427 = T38; xF428 = lF427; xF429 = xF428; T37 = (P)YPiGG(xF429,(P)2); T36 = (P)YPtup(T37,VARREF(Ynul)); tF430 = T36; xF431 = lF427; yF432 = YPint((P)2); T1 = (P)YPiE(xF431,yF432); T0 = (P)YPbb(T1); if (T1) { xF433 = args_; iF434 = YPint((P)0); xF435 = xF433; T5 = (P)YPprop_elt(xF435,(P)0); xF436 = iF434; xF437 = xF436; T7 = (P)YPiGG(xF437,(P)2); T6 = (P)YPi_((P)0,T7); T4 = (P)YPloc_off(T5,T6); zF438 = T4; xF439 = tF430; iF440 = YPint((P)0); xF441 = iF440; xF442 = xF441; T3 = (P)YPiGG(xF442,(P)2); T2 = (P)YPtelt_setter(zF438,xF439,T3); xF443 = args_; iF444 = YPint((P)1); xF445 = xF443; T11 = (P)YPprop_elt(xF445,(P)0); xF446 = iF444; xF447 = xF446; T13 = (P)YPiGG(xF447,(P)2); T12 = (P)YPi_((P)0,T13); T10 = (P)YPloc_off(T11,T12); zF448 = T10; xF449 = tF430; iF450 = YPint((P)1); xF451 = iF450; xF452 = xF451; T9 = (P)YPiGG(xF452,(P)2); T8 = (P)YPtelt_setter(zF448,xF449,T9); } else { xF453 = lF427; yF454 = YPint((P)-1); xF455 = xF453; xF456 = xF455; T34 = (P)YPiGG(xF456,(P)2); xF457 = yF454; xF458 = xF457; T35 = (P)YPiGG(xF458,(P)2); T33 = (P)YPiA(T34,T35); xF459 = T33; xF460 = xF459; tF461 = (P)1; T32 = (P)YPiLL(xF460,(P)2); T31 = (P)YPiv(T32,tF461); kF462 = T31; LOOP_25: { P a25_0; xF463 = kF462; yF464 = YPint((P)-1); T18 = (P)YPiE(xF463,yF464); T17 = (P)YPbb(T18); xF465 = T17; T16 = (P)YPeqQ(xF465,YPfalse); T15 = (P)YPbb(T16); if (T16) { xF466 = args_; iF467 = kF462; xF468 = xF466; T22 = (P)YPprop_elt(xF468,(P)0); xF469 = iF467; xF470 = xF469; T24 = (P)YPiGG(xF470,(P)2); T23 = (P)YPi_((P)0,T24); T21 = (P)YPloc_off(T22,T23); zF471 = T21; xF472 = tF430; iF473 = kF462; xF474 = iF473; xF475 = xF474; T20 = (P)YPiGG(xF475,(P)2); T19 = (P)YPtelt_setter(zF471,xF472,T20); xF476 = kF462; yF477 = YPint((P)-1); xF478 = xF476; xF479 = xF478; T29 = (P)YPiGG(xF479,(P)2); xF480 = yF477; xF481 = xF480; T30 = (P)YPiGG(xF481,(P)2); T28 = (P)YPiA(T29,T30); xF482 = T28; xF483 = xF482; tF484 = (P)1; T27 = (P)YPiLL(xF483,(P)2); T26 = (P)YPiv(T27,tF484); a25_0 = T26; kF462 = a25_0; goto LOOP_25; T14 = T25; } else { T14 = YPfalse; } } } return tF430; } LOCCODEDEF(fun_into_358) { P k_; P tF506; P xF505; P xF504; P xF503; P xF502; P xF501; P xF500; P yF499; P xF498; P xF497; P xF496; P iF495; P xF494; P zF493; P xF492; P xF491; P xF490; P iF489; P xF488; P xF487; P yF486; P xF485; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(k_, 0); xF485 = k_; yF486 = YPint((P)-1); T4 = (P)YPiE(xF485,yF486); T3 = (P)YPbb(T4); xF487 = T3; T2 = (P)YPeqQ(xF487,YPfalse); T1 = (P)YPbb(T2); if (T2) { xF488 = FREEREF(0); iF489 = k_; xF490 = xF488; T8 = (P)YPprop_elt(xF490,(P)0); xF491 = iF489; xF492 = xF491; T10 = (P)YPiGG(xF492,(P)2); T9 = (P)YPi_((P)0,T10); T7 = (P)YPloc_off(T8,T9); zF493 = T7; xF494 = FREEREF(1); iF495 = k_; xF496 = iF495; xF497 = xF496; T6 = (P)YPiGG(xF497,(P)2); T5 = (P)YPtelt_setter(zF493,xF494,T6); xF498 = k_; yF499 = YPint((P)-1); xF500 = xF498; xF501 = xF500; T15 = (P)YPiGG(xF501,(P)2); xF502 = yF499; xF503 = xF502; T16 = (P)YPiGG(xF503,(P)2); T14 = (P)YPiA(T15,T16); xF504 = T14; xF505 = xF504; tF506 = (P)1; T13 = (P)YPiLL(xF505,(P)2); T12 = (P)YPiv(T13,tF506); T11 = CALL1(0,FREEREF(2),T12); T0 = T11; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOtup) { P args_; P tF545; P xF544; P xF543; P xF542; P xF541; P xF540; P xF539; P yF538; P xF537; P intoF536; P xF535; P xF534; P iF533; P xF532; P zF531; P xF530; P xF529; P xF528; P iF527; P xF526; P xF525; P xF524; P iF523; P xF522; P zF521; P xF520; P xF519; P xF518; P iF517; P xF516; P yF515; P xF514; P tF513; P xF512; P xF511; P lF510; P xF509; P xF508; P argsF507; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); NARGS(args_, 0); argsF507 = args_; xF508 = argsF507; xF509 = xF508; T23 = (P)YPprop_elt(xF509,(P)1); lF510 = T23; xF511 = lF510; xF512 = xF511; T22 = (P)YPiGG(xF512,(P)2); T21 = (P)YPtup(T22,VARREF(Ynul)); tF513 = T21; xF514 = lF510; yF515 = YPint((P)2); T1 = (P)YPiE(xF514,yF515); T0 = (P)YPbb(T1); if (T1) { xF516 = argsF507; iF517 = YPint((P)0); xF518 = xF516; T5 = (P)YPprop_elt(xF518,(P)0); xF519 = iF517; xF520 = xF519; T7 = (P)YPiGG(xF520,(P)2); T6 = (P)YPi_((P)0,T7); T4 = (P)YPloc_off(T5,T6); zF521 = T4; xF522 = tF513; iF523 = YPint((P)0); xF524 = iF523; xF525 = xF524; T3 = (P)YPiGG(xF525,(P)2); T2 = (P)YPtelt_setter(zF521,xF522,T3); xF526 = argsF507; iF527 = YPint((P)1); xF528 = xF526; T11 = (P)YPprop_elt(xF528,(P)0); xF529 = iF527; xF530 = xF529; T13 = (P)YPiGG(xF530,(P)2); T12 = (P)YPi_((P)0,T13); T10 = (P)YPloc_off(T11,T12); zF531 = T10; xF532 = tF513; iF533 = YPint((P)1); xF534 = iF533; xF535 = xF534; T9 = (P)YPiGG(xF535,(P)2); T8 = (P)YPtelt_setter(zF531,xF532,T9); } else { T20 = FUNSHELL(1,fun_into_358,3); intoF536 = T20; FUNINIT(intoF536, 3,argsF507,tF513,intoF536); xF537 = lF510; yF538 = YPint((P)-1); xF539 = xF537; xF540 = xF539; T18 = (P)YPiGG(xF540,(P)2); xF541 = yF538; xF542 = xF541; T19 = (P)YPiGG(xF542,(P)2); T17 = (P)YPiA(T18,T19); xF543 = T17; xF544 = xF543; tF545 = (P)1; T16 = (P)YPiLL(xF544,(P)2); T15 = (P)YPiv(T16,tF545); T14 = CALL1(1,intoF536,T15); } UNLINK_STACK(); QRET(tF513); } LOCCODEDEF(fun_into_360) { P k_; P tF567; P xF566; P xF565; P xF564; P xF563; P xF562; P xF561; P yF560; P xF559; P xF558; P xF557; P iF556; P xF555; P zF554; P xF553; P xF552; P xF551; P iF550; P xF549; P xF548; P yF547; P xF546; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(k_, 0); xF546 = k_; yF547 = YPint((P)-1); T4 = (P)YPiE(xF546,yF547); T3 = (P)YPbb(T4); xF548 = T3; T2 = (P)YPeqQ(xF548,YPfalse); T1 = (P)YPbb(T2); if (T2) { xF549 = FREEREF(0); iF550 = k_; xF551 = xF549; T8 = (P)YPprop_elt(xF551,(P)0); xF552 = iF550; xF553 = xF552; T10 = (P)YPiGG(xF553,(P)2); T9 = (P)YPi_((P)0,T10); T7 = (P)YPloc_off(T8,T9); zF554 = T7; xF555 = FREEREF(1); iF556 = k_; xF557 = iF556; xF558 = xF557; T6 = (P)YPiGG(xF558,(P)2); T5 = (P)YPtelt_setter(zF554,xF555,T6); xF559 = k_; yF560 = YPint((P)-1); xF561 = xF559; xF562 = xF561; T15 = (P)YPiGG(xF562,(P)2); xF563 = yF560; xF564 = xF563; T16 = (P)YPiGG(xF564,(P)2); T14 = (P)YPiA(T15,T16); xF565 = T14; xF566 = xF565; tF567 = (P)1; T13 = (P)YPiLL(xF566,(P)2); T12 = (P)YPiv(T13,tF567); T11 = CALL1(0,FREEREF(2),T12); T0 = T11; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YtT) { P args_; P tF606; P xF605; P xF604; P xF603; P xF602; P xF601; P xF600; P yF599; P xF598; P intoF597; P xF596; P xF595; P iF594; P xF593; P zF592; P xF591; P xF590; P xF589; P iF588; P xF587; P xF586; P xF585; P iF584; P xF583; P zF582; P xF581; P xF580; P xF579; P iF578; P xF577; P yF576; P xF575; P tF574; P xF573; P xF572; P lF571; P xF570; P xF569; P argsF568; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); NARGS(args_, 0); argsF568 = args_; xF569 = argsF568; xF570 = xF569; T24 = (P)YPprop_elt(xF570,(P)1); lF571 = T24; xF572 = lF571; xF573 = xF572; T23 = (P)YPiGG(xF573,(P)2); T22 = (P)YPtup(T23,VARREF(Ynul)); tF574 = T22; xF575 = lF571; yF576 = YPint((P)2); T2 = (P)YPiE(xF575,yF576); T1 = (P)YPbb(T2); if (T2) { xF577 = argsF568; iF578 = YPint((P)0); xF579 = xF577; T6 = (P)YPprop_elt(xF579,(P)0); xF580 = iF578; xF581 = xF580; T8 = (P)YPiGG(xF581,(P)2); T7 = (P)YPi_((P)0,T8); T5 = (P)YPloc_off(T6,T7); zF582 = T5; xF583 = tF574; iF584 = YPint((P)0); xF585 = iF584; xF586 = xF585; T4 = (P)YPiGG(xF586,(P)2); T3 = (P)YPtelt_setter(zF582,xF583,T4); xF587 = argsF568; iF588 = YPint((P)1); xF589 = xF587; T12 = (P)YPprop_elt(xF589,(P)0); xF590 = iF588; xF591 = xF590; T14 = (P)YPiGG(xF591,(P)2); T13 = (P)YPi_((P)0,T14); T11 = (P)YPloc_off(T12,T13); zF592 = T11; xF593 = tF574; iF594 = YPint((P)1); xF595 = iF594; xF596 = xF595; T10 = (P)YPiGG(xF596,(P)2); T9 = (P)YPtelt_setter(zF592,xF593,T10); } else { T21 = FUNSHELL(1,fun_into_360,3); intoF597 = T21; FUNINIT(intoF597, 3,argsF568,tF574,intoF597); xF598 = lF571; yF599 = YPint((P)-1); xF600 = xF598; xF601 = xF600; T19 = (P)YPiGG(xF601,(P)2); xF602 = yF599; xF603 = xF602; T20 = (P)YPiGG(xF603,(P)2); T18 = (P)YPiA(T19,T20); xF604 = T18; xF605 = xF604; tF606 = (P)1; T17 = (P)YPiLL(xF605,(P)2); T16 = (P)YPiv(T17,tF606); T15 = CALL1(1,intoF597,T16); } T0 = (P)YPproduct(tF574); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YOtype_equalQ) { P t1_,t2_; P yF619; P xF618; P tagF617; P xF616; P xF615; P yF614; P xF613; P tagF612; P xF611; P xF610; P tmpF609; P yF608; P xF607; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF607 = t1_; yF608 = t2_; T25 = (P)YPeqQ(xF607,yF608); T24 = (P)YPbb(T25); tmpF609 = T24; if (tmpF609 != YPfalse) { T0 = tmpF609; } else { xF610 = t1_; xF611 = xF610; T10 = (P)YPiB(xF611,(P)3); tagF612 = T10; T7 = (P)YPiE(tagF612,(P)0); T6 = (P)YPbb(T7); if (T7) { T8 = (P)YPobject_class(xF610); T5 = T8; } else { T9 = (P)YPelt(VARREF(YDdirect_object_class),tagF612); T5 = T9; } xF613 = T5; yF614 = VARREF(YLclassG); T4 = (P)YPeqQ(xF613,yF614); T3 = (P)YPbb(T4); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { xF615 = t2_; xF616 = xF615; T20 = (P)YPiB(xF616,(P)3); tagF617 = T20; T17 = (P)YPiE(tagF617,(P)0); T16 = (P)YPbb(T17); if (T17) { T18 = (P)YPobject_class(xF615); T15 = T18; } else { T19 = (P)YPelt(VARREF(YDdirect_object_class),tagF617); T15 = T19; } xF618 = T15; yF619 = VARREF(YLclassG); T14 = (P)YPeqQ(xF618,yF619); T13 = (P)YPbb(T14); T12 = CALL1(1,VARREF(Ynot),T13); if (T12 != YPfalse) { T22 = CALL2(1,VARREF(YOsubtypeQ),t1_,t2_); if (T22 != YPfalse) { T23 = CALL2(1,VARREF(YOsubtypeQ),t2_,t1_); T21 = T23; } else { T21 = YPfalse; } T11 = T21; } else { T11 = YPfalse; } T1 = T11; } else { T1 = YPfalse; } T0 = T1; } UNLINK_STACK(); RET(T0); } INLINE P YOsubclassQ(P c1_,P c2_) { P xF625; P xF624; P xF623; P xF622; P xF621; P xF620; P T0,T1,T2,T3,T4,T5,T6; DEFCREGS(); xF620 = c1_; T3 = (P)YPprop_elt(xF620,(P)11); xF621 = c2_; T5 = (P)YPprop_elt(xF621,(P)10); xF622 = T5; xF623 = xF622; T4 = (P)YPiGG(xF623,(P)2); T2 = (P)YPselt(T3,T4); xF624 = YPint((P)1); xF625 = xF624; T6 = (P)YPiGG(xF625,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); return T0; } INLINE P YOclass_isaQ(P o_,P c_) { P xF636; P xF635; P xF634; P xF633; P xF632; P xF631; P c2F630; P c1F629; P tagF628; P xF627; P xF626; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; DEFCREGS(); xF626 = o_; xF627 = xF626; T12 = (P)YPiB(xF627,(P)3); tagF628 = T12; T9 = (P)YPiE(tagF628,(P)0); T8 = (P)YPbb(T9); if (T9) { T10 = (P)YPobject_class(xF626); T7 = T10; } else { T11 = (P)YPelt(VARREF(YDdirect_object_class),tagF628); T7 = T11; } c1F629 = T7; c2F630 = c_; xF631 = c1F629; T3 = (P)YPprop_elt(xF631,(P)11); xF632 = c2F630; T5 = (P)YPprop_elt(xF632,(P)10); xF633 = T5; xF634 = xF633; T4 = (P)YPiGG(xF634,(P)2); T2 = (P)YPselt(T3,T4); xF635 = YPint((P)1); xF636 = xF635; T6 = (P)YPiGG(xF636,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); return T0; } FUNCODEDEF(YOsubtypeQ) { P t1_,t2_; P xF654; P xF653; P xF652; P xF651; P xF650; P xF649; P c2F648; P c1F647; P yF646; P xF645; P tagF644; P xF643; P xF642; P yF641; P xF640; P tagF639; P xF638; P xF637; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF637 = t2_; xF638 = xF637; T9 = (P)YPiB(xF638,(P)3); tagF639 = T9; T6 = (P)YPiE(tagF639,(P)0); T5 = (P)YPbb(T6); if (T6) { T7 = (P)YPobject_class(xF637); T4 = T7; } else { T8 = (P)YPelt(VARREF(YDdirect_object_class),tagF639); T4 = T8; } xF640 = T4; yF641 = VARREF(YLclassG); T3 = (P)YPeqQ(xF640,yF641); T2 = (P)YPbb(T3); if (T3) { xF642 = t1_; xF643 = xF642; T17 = (P)YPiB(xF643,(P)3); tagF644 = T17; T14 = (P)YPiE(tagF644,(P)0); T13 = (P)YPbb(T14); if (T14) { T15 = (P)YPobject_class(xF642); T12 = T15; } else { T16 = (P)YPelt(VARREF(YDdirect_object_class),tagF644); T12 = T16; } xF645 = T12; yF646 = VARREF(YLclassG); T11 = (P)YPeqQ(xF645,yF646); T10 = (P)YPbb(T11); T1 = T10; } else { T1 = YPfalse; } if (T1 != YPfalse) { c1F647 = t1_; c2F648 = t2_; xF649 = c1F647; T21 = (P)YPprop_elt(xF649,(P)11); xF650 = c2F648; T23 = (P)YPprop_elt(xF650,(P)10); xF651 = T23; xF652 = xF651; T22 = (P)YPiGG(xF652,(P)2); T20 = (P)YPselt(T21,T22); xF653 = YPint((P)1); xF654 = xF653; T24 = (P)YPiGG(xF654,(P)2); T19 = (P)YPiE(T20,T24); T18 = (P)YPbb(T19); T0 = T18; } else { T25 = CALL2(1,VARREF(YsubtypeQ),t1_,t2_); T0 = T25; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YOmay_isaQ) { P c_,t_; P xF667; P xF666; P xF665; P xF664; P xF663; P xF662; P c2F661; P c1F660; P yF659; P xF658; P tagF657; P xF656; P xF655; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(c_, 0); ARG(t_, 1); xF655 = t_; xF656 = xF655; T8 = (P)YPiB(xF656,(P)3); tagF657 = T8; T5 = (P)YPiE(tagF657,(P)0); T4 = (P)YPbb(T5); if (T5) { T6 = (P)YPobject_class(xF655); T3 = T6; } else { T7 = (P)YPelt(VARREF(YDdirect_object_class),tagF657); T3 = T7; } xF658 = T3; yF659 = VARREF(YLclassG); T2 = (P)YPeqQ(xF658,yF659); T1 = (P)YPbb(T2); if (T2) { c1F660 = c_; c2F661 = t_; xF662 = c1F660; T13 = (P)YPprop_elt(xF662,(P)11); xF663 = c2F661; T15 = (P)YPprop_elt(xF663,(P)10); xF664 = T15; xF665 = xF664; T14 = (P)YPiGG(xF665,(P)2); T12 = (P)YPselt(T13,T14); xF666 = YPint((P)1); xF667 = xF666; T16 = (P)YPiGG(xF667,(P)2); T11 = (P)YPiE(T12,T16); T10 = (P)YPbb(T11); if (T11) { T17 = CALL2(1,VARREF(YOtup),YPtrue,YPtrue); T9 = T17; } else { T18 = CALL2(1,VARREF(YOtup),YPfalse,YPfalse); T9 = T18; } T0 = T9; } else { T19 = CALL2(1,VARREF(Ymay_isaQ),c_,t_); T0 = T19; } UNLINK_STACK(); RET(T0); } P YOsingleton_isaQ(P o_,P t_) { P yF670; P xF669; P xF668; P T0,T1,T2; DEFCREGS(); xF668 = t_; T2 = (P)YPprop_elt(xF668,(P)0); xF669 = T2; yF670 = o_; T1 = (P)YPeqQ(xF669,yF670); T0 = (P)YPbb(T1); return T0; } INLINE P YOisaQ(P o_,P t_) { P xF688; P xF687; P xF686; P xF685; P xF684; P xF683; P c2F682; P c1F681; P tagF680; P xF679; P xF678; P cF677; P oF676; P yF675; P xF674; P tagF673; P xF672; P xF671; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; DEFCREGS(); xF671 = t_; xF672 = xF671; T8 = (P)YPiB(xF672,(P)3); tagF673 = T8; T5 = (P)YPiE(tagF673,(P)0); T4 = (P)YPbb(T5); if (T5) { T6 = (P)YPobject_class(xF671); T3 = T6; } else { T7 = (P)YPelt(VARREF(YDdirect_object_class),tagF673); T3 = T7; } xF674 = T3; yF675 = VARREF(YLclassG); T2 = (P)YPeqQ(xF674,yF675); T1 = (P)YPbb(T2); if (T2) { oF676 = o_; cF677 = t_; xF678 = oF676; xF679 = xF678; T21 = (P)YPiB(xF679,(P)3); tagF680 = T21; T18 = (P)YPiE(tagF680,(P)0); T17 = (P)YPbb(T18); if (T18) { T19 = (P)YPobject_class(xF678); T16 = T19; } else { T20 = (P)YPelt(VARREF(YDdirect_object_class),tagF680); T16 = T20; } c1F681 = T16; c2F682 = cF677; xF683 = c1F681; T12 = (P)YPprop_elt(xF683,(P)11); xF684 = c2F682; T14 = (P)YPprop_elt(xF684,(P)10); xF685 = T14; xF686 = xF685; T13 = (P)YPiGG(xF686,(P)2); T11 = (P)YPselt(T12,T13); xF687 = YPint((P)1); xF688 = xF687; T15 = (P)YPiGG(xF688,(P)2); T10 = (P)YPiE(T11,T15); T9 = (P)YPbb(T10); T0 = T9; } else { T22 = XCALL2(1,VARREF(YisaQ),o_,t_); T0 = T22; } return T0; } FUNCODEDEF(Yunexec) { P name_,fun_; P T0,T1; LINK_STACK(); ARG(name_, 0); ARG(fun_, 1); VARSET(YPTstart_running_atT,fun_); T1 = (P)YPsu(name_); T0 = (P)YPunexec(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YPpatch_early_generic) { P generic_; P xF689; P T0,T1; LINK_STACK(); ARG(generic_, 0); xF689 = VARREF(YPdispatch); T1 = (P)YPprop_elt(xF689,(P)0); T0 = (P)YPgen_code_setter(T1,generic_); UNLINK_STACK(); QRET(T0); } P YPpatch_early_generics() { DEFCREGS(); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ybox_value)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ybox_value_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysrc_loc_line)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysrc_loc_file)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yhead)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yhead_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ytail)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ytail_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysym_name)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_prop_len)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_prop_len_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_name)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_parents)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_parents_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_direct_props)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_direct_props_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_ancestors)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_ancestors_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_props)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_props_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_children)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_children_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_gens)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_gens_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_mets)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_mets_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_forward)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_forward_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_id)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yclass_row)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ytype_object)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ytype_class)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yunion_elts)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yproduct_elts)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yprop_owner)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yprop_getter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yprop_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yprop_type)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yprop_init)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ygen_cache_missableQ)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ygen_cache_arg_pos)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ygen_cache_singletons)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ygen_cache_classes)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_specs)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_specs_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_naryQ)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_naryQ_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_arity)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_arity_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_val)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_val_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_unification_vars)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Ysig_unification_vars_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_name)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_name_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_names)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_names_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_src_loc)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_src_loc_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_src)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_src_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_count)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_count_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_inlineableQ)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_inlineableQ_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_code)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_sig)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_sig_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_info_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_env)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_mets)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_mets_setter)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yfun_cache)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yopts_location)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yopts_count)); XCALL1(1,VARREF(YPpatch_early_generic),VARREF(Yopts_tup_storage)); return YPfalse; } INLINE P YOraw_nulQ(P x_) { P yF691; P xF690; P T0,T1; DEFCREGS(); xF690 = x_; yF691 = (P)0; T1 = (P)YPeqQ(xF690,yF691); T0 = (P)YPbb(T1); return T0; } P YPcons_args() { P iF695; P rF694; P bF693; P nF692; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; DEFCREGS(); (P)YPdef_regs(); T9 = (P)YPsp_elt((P)-2); nF692 = T9; T8 = (P)YPi_((P)-2,nF692); bF693 = T8; rF694 = Ynil; iF695 = (P)0; LOOP_26: { P a26_0,a26_1; T2 = (P)YPiL(iF695,nF692); T1 = (P)YPbb(T2); if (T2) { T6 = (P)YPiA(bF693,iF695); T5 = (P)YPsp_elt(T6); T4 = (P)YPpair(T5,rF694); T7 = (P)YPiA(iF695,(P)1); a26_0 = T4; a26_1 = T7; rF694 = a26_0; iF695 = a26_1; goto LOOP_26; T0 = T3; } else { T0 = rF694; } } return T0; } INLINE P YPcheck_arity(P fn_,P sig_,P n_) { P naryQF701; P xF700; P arityF699; P xF698; P xF697; P xF696; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; DEFCREGS(); xF696 = sig_; T13 = (P)YPprop_elt(xF696,(P)2); xF697 = T13; xF698 = xF697; T12 = (P)YPiGG(xF698,(P)2); arityF699 = T12; xF700 = sig_; T11 = (P)YPprop_elt(xF700,(P)1); naryQF701 = T11; if (naryQF701 != YPfalse) { T3 = (P)YPiL(n_,arityF699); T2 = (P)YPbb(T3); if (T3) { T5 = (P)YPcons_args(); T4 = XCALL2(1,VARREF(Ynarity_error),fn_,T5); T1 = T4; } else { T1 = YPfalse; } T0 = T1; } else { T8 = (P)YPiE(n_,arityF699); T7 = (P)YPbb(T8); if (T8) { T6 = YPtrue; } else { T10 = (P)YPcons_args(); T9 = XCALL2(1,VARREF(Yarity_error),fn_,T10); T6 = T9; } T0 = T6; } return T0; } INLINE P YParg_check_type(P res_,P type_,P fn_) { P xF723; P xF722; P xF721; P xF720; P xF719; P xF718; P c2F717; P c1F716; P tagF715; P xF714; P xF713; P cF712; P oF711; P yF710; P xF709; P tagF708; P xF707; P xF706; P tF705; P oF704; P yF703; P xF702; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; DEFCREGS(); xF702 = type_; yF703 = VARREF(YLanyG); T2 = (P)YPeqQ(xF702,yF703); T1 = (P)YPbb(T2); if (T2) { T0 = YPtrue; } else { oF704 = res_; tF705 = type_; xF706 = tF705; xF707 = xF706; T12 = (P)YPiB(xF707,(P)3); tagF708 = T12; T9 = (P)YPiE(tagF708,(P)0); T8 = (P)YPbb(T9); if (T9) { T10 = (P)YPobject_class(xF706); T7 = T10; } else { T11 = (P)YPelt(VARREF(YDdirect_object_class),tagF708); T7 = T11; } xF709 = T7; yF710 = VARREF(YLclassG); T6 = (P)YPeqQ(xF709,yF710); T5 = (P)YPbb(T6); if (T6) { oF711 = oF704; cF712 = tF705; xF713 = oF711; xF714 = xF713; T25 = (P)YPiB(xF714,(P)3); tagF715 = T25; T22 = (P)YPiE(tagF715,(P)0); T21 = (P)YPbb(T22); if (T22) { T23 = (P)YPobject_class(xF713); T20 = T23; } else { T24 = (P)YPelt(VARREF(YDdirect_object_class),tagF715); T20 = T24; } c1F716 = T20; c2F717 = cF712; xF718 = c1F716; T16 = (P)YPprop_elt(xF718,(P)11); xF719 = c2F717; T18 = (P)YPprop_elt(xF719,(P)10); xF720 = T18; xF721 = xF720; T17 = (P)YPiGG(xF721,(P)2); T15 = (P)YPselt(T16,T17); xF722 = YPint((P)1); xF723 = xF722; T19 = (P)YPiGG(xF723,(P)2); T14 = (P)YPiE(T15,T19); T13 = (P)YPbb(T14); T4 = T13; } else { T26 = XCALL2(1,VARREF(YisaQ),oF704,tF705); T4 = T26; } if (T4 != YPfalse) { T3 = res_; } else { T28 = (P)YPcons_args(); T27 = XCALL4(1,VARREF(Yargument_type_error),fn_,res_,type_,T28); T3 = T27; } T0 = T3; } return T0; } P YPfun_val_check_type(P regs_,P res_,P fn_) { P xF746; P xF745; P xF744; P xF743; P xF742; P xF741; P c2F740; P c1F739; P tagF738; P xF737; P xF736; P cF735; P oF734; P yF733; P xF732; P tagF731; P xF730; P xF729; P tF728; P oF727; P typeF726; P xF725; P xF724; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; DEFCREGS(); (P)YPset_regs(regs_); xF724 = fn_; T28 = (P)YPprop_elt(xF724,(P)1); xF725 = T28; T27 = (P)YPprop_elt(xF725,(P)3); typeF726 = T27; if (VARREF(YPclasses_readyQ) != YPfalse) { oF727 = res_; tF728 = typeF726; xF729 = tF728; xF730 = xF729; T10 = (P)YPiB(xF730,(P)3); tagF731 = T10; T7 = (P)YPiE(tagF731,(P)0); T6 = (P)YPbb(T7); if (T7) { T8 = (P)YPobject_class(xF729); T5 = T8; } else { T9 = (P)YPelt(VARREF(YDdirect_object_class),tagF731); T5 = T9; } xF732 = T5; yF733 = VARREF(YLclassG); T4 = (P)YPeqQ(xF732,yF733); T3 = (P)YPbb(T4); if (T4) { oF734 = oF727; cF735 = tF728; xF736 = oF734; xF737 = xF736; T23 = (P)YPiB(xF737,(P)3); tagF738 = T23; T20 = (P)YPiE(tagF738,(P)0); T19 = (P)YPbb(T20); if (T20) { T21 = (P)YPobject_class(xF736); T18 = T21; } else { T22 = (P)YPelt(VARREF(YDdirect_object_class),tagF738); T18 = T22; } c1F739 = T18; c2F740 = cF735; xF741 = c1F739; T14 = (P)YPprop_elt(xF741,(P)11); xF742 = c2F740; T16 = (P)YPprop_elt(xF742,(P)10); xF743 = T16; xF744 = xF743; T15 = (P)YPiGG(xF744,(P)2); T13 = (P)YPselt(T14,T15); xF745 = YPint((P)1); xF746 = xF745; T17 = (P)YPiGG(xF746,(P)2); T12 = (P)YPiE(T13,T17); T11 = (P)YPbb(T12); T2 = T11; } else { T24 = XCALL2(1,VARREF(YisaQ),oF727,tF728); T2 = T24; } if (T2 != YPfalse) { T1 = res_; } else { T26 = (P)YPcons_args(); T25 = XCALL4(1,VARREF(Yreturn_type_error),fn_,res_,typeF726,T26); T1 = T25; } T0 = T1; } else { T0 = YPfalse; } return T0; } P YPcheck_type(P regs_,P res_,P type_) { P xF766; P xF765; P xF764; P xF763; P xF762; P xF761; P c2F760; P c1F759; P tagF758; P xF757; P xF756; P cF755; P oF754; P yF753; P xF752; P tagF751; P xF750; P xF749; P tF748; P oF747; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; DEFCREGS(); (P)YPset_regs(regs_); if (VARREF(YPclasses_readyQ) != YPfalse) { oF747 = res_; tF748 = type_; xF749 = tF748; xF750 = xF749; T10 = (P)YPiB(xF750,(P)3); tagF751 = T10; T7 = (P)YPiE(tagF751,(P)0); T6 = (P)YPbb(T7); if (T7) { T8 = (P)YPobject_class(xF749); T5 = T8; } else { T9 = (P)YPelt(VARREF(YDdirect_object_class),tagF751); T5 = T9; } xF752 = T5; yF753 = VARREF(YLclassG); T4 = (P)YPeqQ(xF752,yF753); T3 = (P)YPbb(T4); if (T4) { oF754 = oF747; cF755 = tF748; xF756 = oF754; xF757 = xF756; T23 = (P)YPiB(xF757,(P)3); tagF758 = T23; T20 = (P)YPiE(tagF758,(P)0); T19 = (P)YPbb(T20); if (T20) { T21 = (P)YPobject_class(xF756); T18 = T21; } else { T22 = (P)YPelt(VARREF(YDdirect_object_class),tagF758); T18 = T22; } c1F759 = T18; c2F760 = cF755; xF761 = c1F759; T14 = (P)YPprop_elt(xF761,(P)11); xF762 = c2F760; T16 = (P)YPprop_elt(xF762,(P)10); xF763 = T16; xF764 = xF763; T15 = (P)YPiGG(xF764,(P)2); T13 = (P)YPselt(T14,T15); xF765 = YPint((P)1); xF766 = xF765; T17 = (P)YPiGG(xF766,(P)2); T12 = (P)YPiE(T13,T17); T11 = (P)YPbb(T12); T2 = T11; } else { T24 = XCALL2(1,VARREF(YisaQ),oF747,tF748); T2 = T24; } if (T2 != YPfalse) { T1 = res_; } else { T25 = XCALL2(1,VARREF(Ytype_error),res_,type_); T1 = T25; } T0 = T1; } else { T0 = YPfalse; } return T0; } INLINE P YPstack_check(P regs_) { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; DEFCREGS(); (P)YPset_regs(regs_); T4 = (P)YPmax_stack_len(); T3 = (P)YPi_(T4,(P)1000); T6 = (P)YPsp_reg(); T7 = (P)YPstack_reg(); T5 = (P)YPi_(T6,T7); T2 = (P)YPiL(T3,T5); T1 = (P)YPbb(T2); if (T2) { T10 = (P)YPstack_check_regQ(); T9 = (P)YPbb(T10); if (T10) { (P)YPstack_check_regQ_setter((P)0); T11 = XCALL0(1,VARREF(Ystack_overflow_error)); T8 = T11; } else { T8 = YPfalse; } T0 = T8; } else { T14 = (P)YPstack_check_regQ(); T13 = (P)YPbb(T14); if (T14) { T12 = YPfalse; } else { T15 = (P)YPstack_check_regQ_setter((P)1); T12 = T15; } T0 = T12; } return T0; } P YPPcheck_call_types(P regs_) { P yF796; P xF795; P xF794; P yF793; P xF792; P xF791; P yF790; P xF789; P xF788; P xF787; P yF786; P xF785; P specsF784; P iF783; P xF782; P sigF781; P xF780; P yF779; P xF778; P nF777; P classF776; P tagF775; P xF774; P xF773; P xF772; P xF771; P yF770; P xF769; P xF768; P fnF767; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43; DEFCREGS(); (P)YPset_regs(regs_); T43 = (P)YPsp_elt((P)-1); fnF767 = T43; xF768 = fnF767; xF769 = xF768; yF770 = (P)0; T32 = (P)YPeqQ(xF769,yF770); T31 = (P)YPbb(T32); if (T32) { T30 = (P)0; } else { xF771 = fnF767; xF772 = xF771; T36 = (P)YPiB(xF772,(P)3); T35 = (P)YPiE(T36,(P)0); T34 = (P)YPbb(T35); if (T35) { xF773 = fnF767; xF774 = xF773; T42 = (P)YPiB(xF774,(P)3); tagF775 = T42; T39 = (P)YPiE(tagF775,(P)0); T38 = (P)YPbb(T39); if (T39) { T40 = (P)YPobject_class(xF773); T37 = T40; } else { T41 = (P)YPelt(VARREF(YDdirect_object_class),tagF775); T37 = T41; } T33 = T37; } else { T33 = (P)0; } T30 = T33; } classF776 = T30; T29 = (P)YPsp_elt((P)-2); nF777 = T29; (P)YPstack_check(regs_); xF778 = classF776; yF779 = VARREF(YLmetG); T1 = (P)YPeqQ(xF778,yF779); T0 = (P)YPbb(T1); if (T1) { xF780 = fnF767; T13 = (P)YPprop_elt(xF780,(P)1); sigF781 = T13; (P)YPcheck_arity(fnF767,sigF781,nF777); if (VARREF(YPclasses_readyQ) != YPfalse) { iF783 = (P)0; xF782 = sigF781; T12 = (P)YPprop_elt(xF782,(P)0); specsF784 = T12; LOOP_27: { P a27_0,a27_1; xF785 = specsF784; yF786 = Ynil; T5 = (P)YPeqQ(xF785,yF786); T4 = (P)YPbb(T5); if (T5) { T3 = YPfalse; } else { T7 = (P)YPi_((P)-3,iF783); T6 = (P)YPsp_elt(T7); xF787 = specsF784; T8 = (P)YPprop_elt(xF787,(P)0); (P)YParg_check_type(T6,T8,fnF767); T10 = (P)YPiA(iF783,(P)1); xF788 = specsF784; T11 = (P)YPprop_elt(xF788,(P)1); a27_0 = T10; a27_1 = T11; iF783 = a27_0; specsF784 = a27_1; goto LOOP_27; T3 = T9; } } T2 = T3; } else { T2 = YPfalse; } } else { xF789 = classF776; yF790 = VARREF(YLgenG); T16 = (P)YPeqQ(xF789,yF790); T15 = (P)YPbb(T16); if (T16) { xF791 = fnF767; T18 = (P)YPprop_elt(xF791,(P)1); T17 = (P)YPcheck_arity(fnF767,T18,nF777); T14 = T17; } else { xF792 = VARREF(Yunknown_function_error); yF793 = (P)0; T21 = (P)YPeqQ(xF792,yF793); T20 = (P)YPbb(T21); if (T21) { T23 = (P)YPsu(LITREF(lit_331)); T22 = (P)YPbreak(T23); T19 = T22; } else { xF794 = fnF767; xF795 = xF794; yF796 = (P)0; T27 = (P)YPeqQ(xF795,yF796); T26 = (P)YPbb(T27); if (T27) { T25 = YPfalse; } else { T25 = fnF767; } T28 = (P)YPcons_args(); T24 = XCALL2(1,VARREF(Yunknown_function_error),T25,T28); T19 = T24; } T14 = T19; } } return YPfalse; } P YPmacro(P modname_,P name_,P expander_) { P T0,T1,T2,T3,T4; DEFCREGS(); if (VARREF(YTmacros_okQT) != YPfalse) { T0 = XCALL4(1,VARREF(YPPmacro),modname_,name_,expander_,YPfalse); } else { T1 = (P)YOpair(modname_,VARREF(YTboot_macro_module_namesT)); VARSET(YTboot_macro_module_namesT,T1); T2 = (P)YOpair(name_,VARREF(YTboot_macro_namesT)); VARSET(YTboot_macro_namesT,T2); T4 = (P)YOpair(expander_,VARREF(YTboot_macro_expandersT)); T3 = VARSET(YTboot_macro_expandersT,T4); } return YPfalse; } FUNCODEDEF(Yapp_filename) { P T0; LINK_STACK(); T0 = (P)YPapp_filename(); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Yapp_args) { P T0; LINK_STACK(); T0 = (P)YPapp_args(); UNLINK_STACK(); QRET(T0); } P YPlit(P n_) { P tF799; P xF798; P xF797; P T0,T1,T2; DEFCREGS(); xF797 = n_; xF798 = xF797; tF799 = (P)1; T2 = (P)YPiLL(xF798,(P)2); T1 = (P)YPiv(T2,tF799); T0 = XCALL1(1,VARREF(YOlit),T1); return T0; } P Y___main_0___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } P Y___main_1___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } P Y___main_2___() { P T0; DEFCREGS(); VARSET(YPfalse,(P)0); VARSET(YPtrue,(P)1); VARSET(YPTused_symbols_too_earlyT,(P)0); T0 = YPfalse; return T0; } P Y___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; DEFCREGS(); T0 = (P)YPobject_of((P)0,(P)10); VARSET(YLclassG,T0); T1 = (P)YPobject_of(VARREF(YLclassG),(P)10); VARSET(YLlstG,T1); T2 = (P)YPobject_of(VARREF(YLlstG),(P)2); VARSET(Ynil,T2); VARSET(Yone_nil,VARREF(Ynil)); T3 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLanyG,T3); T4 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLlogG,T4); T5 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLboxG,T5); T6 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLmagG,T6); T7 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLchrG,T7); T8 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLsrc_locG,T8); T9 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLnumG,T9); T10 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLintG,T10); T11 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLfixnumG,T11); T12 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLbignumG,T12); T13 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLfloG,T13); T14 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLlocG,T14); T15 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLrepG,T15); T16 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLcolG,T16); T17 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLcolIG,T17); T18 = YPfalse; return T18; } P Y___main_4___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; DEFCREGS(); T0 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLcolXG,T0); T1 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLseqG,T1); T2 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLseqIG,T2); T3 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLseqXG,T3); T4 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLlstG,T4); T5 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLflatG,T5); T6 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLtupG,T6); T7 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLstrG,T7); T8 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLsymG,T8); T9 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLtypeG,T9); T10 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLclassG,T10); T11 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLsingletonG,T11); T12 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLsubclassG,T12); T13 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLunionG,T13); T14 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLproductG,T14); T15 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLpropG,T15); T16 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLgen_cacheG,T16); T17 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLsigG,T17); T18 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLfun_infoG,T18); T19 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLfunG,T19); T20 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLmetG,T20); T21 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLgenG,T21); T22 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLoptsG,T22); T23 = (P)YPclass(VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),VARREF(Ynil),YPint((P)-1),VARREF(Ynil)); VARSET(YLopts_tupG,T23); T25 = (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLanyG)); T24 = T25; return T24; } P Y___main_5___() { P T0,T1,T2,T3,T4,T5; DEFCREGS(); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLlogG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLboxG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLmagG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLchrG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLsrc_locG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLnumG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLintG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLfixnumG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLbignumG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLfloG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLlocG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLrepG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLcolG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLcolIG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLcolXG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLseqG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLseqIG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLseqXG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLlstG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLflatG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLtupG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLstrG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLsymG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLtypeG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLclassG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLsingletonG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLsubclassG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLunionG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLproductG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLpropG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLgen_cacheG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLsigG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLfun_infoG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLfunG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLmetG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLgenG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLoptsG)); (P)YPobject_class_setter(VARREF(YLclassG),VARREF(YLopts_tupG)); (P)YPobject_class_setter(VARREF(YLlstG),VARREF(Ynil)); T0 = (P)YPobject_of(VARREF(YLanyG),(P)0); VARSET(Ynul,T0); T1 = (P)YPobject_of(VARREF(YLanyG),(P)0); VARSET(Ynul_prop,T1); T2 = (P)YPobject_of(VARREF(YLlogG),(P)0); VARSET(YPtrue,T2); T3 = (P)YPobject_of(VARREF(YLlogG),(P)0); VARSET(YPfalse,T3); T4 = (P)YPobject_of(VARREF(YLlstG),(P)0); VARSET(Ynil,T4); T5 = YPfalse; return T5; } P Y___main_6___() { P T0; DEFCREGS(); VARSET(YPclasses_readyQ,YPfalse); VARSET(Ynil,VARREF(Yone_nil)); (P)YPhead_setter(VARREF(Ynil),VARREF(Ynil)); (P)YPtail_setter(VARREF(Ynil),VARREF(Ynil)); T0 = YPfalse; return T0; } P Y___main_7___() { P xF826; P xF825; P tF824; P xF823; P xF822; P xF821; P xF820; P xF819; P xF818; P xF817; P xF816; P tF815; P xF814; P xF813; P xF812; P xF811; P xF810; P xF809; P xF808; P xF807; P xF806; P xF805; P tF804; P xF803; P xF802; P xF801; P xF800; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; DEFCREGS(); VARSET(YPmet_prop_len,(P)4); VARSET(YPsymbols_readyQ,YPfalse); VARSET(YPTstart_running_atT,VARREF(Ynil)); T0 = (P)YPraw_alloc((P)4); VARSET(YDdirect_object_class,T0); (P)YPelt_setter(VARREF(YLfixnumG),VARREF(YDdirect_object_class),(P)1); (P)YPelt_setter(VARREF(YLchrG),VARREF(YDdirect_object_class),(P)2); (P)YPelt_setter(VARREF(YLlocG),VARREF(YDdirect_object_class),(P)3); xF800 = YPint((P)32); xF801 = xF800; T4 = (P)YPiGG(xF801,(P)2); T3 = (P)YPi_(T4,(P)2); xF802 = T3; xF803 = xF802; tF804 = (P)1; T2 = (P)YPiLL(xF803,(P)2); T1 = (P)YPiv(T2,tF804); VARSET(YDnum_int_bits,T1); xF805 = YPint((P)1); xF806 = xF805; T9 = (P)YPiGG(xF806,(P)2); xF807 = VARREF(YDnum_int_bits); xF808 = xF807; T11 = (P)YPiGG(xF808,(P)2); xF809 = YPint((P)1); xF810 = xF809; T12 = (P)YPiGG(xF810,(P)2); T10 = (P)YPi_(T11,T12); T8 = (P)YPiLL(T9,T10); xF811 = YPint((P)1); xF812 = xF811; T13 = (P)YPiGG(xF812,(P)2); T7 = (P)YPi_(T8,T13); xF813 = T7; xF814 = xF813; tF815 = (P)1; T6 = (P)YPiLL(xF814,(P)2); T5 = (P)YPiv(T6,tF815); VARSET(YDmax_int,T5); xF816 = YPint((P)1); xF817 = xF816; T17 = (P)YPiGG(xF817,(P)2); xF818 = VARREF(YDnum_int_bits); xF819 = xF818; T19 = (P)YPiGG(xF819,(P)2); xF820 = YPint((P)1); xF821 = xF820; T20 = (P)YPiGG(xF821,(P)2); T18 = (P)YPi_(T19,T20); T16 = (P)YPiLL(T17,T18); xF822 = T16; xF823 = xF822; tF824 = (P)1; T15 = (P)YPiLL(xF823,(P)2); T14 = (P)YPiv(T15,tF824); VARSET(YDmin_int,T14); xF825 = YPchr((P)32); xF826 = xF825; T22 = (P)YPiGG(xF826,(P)2); T21 = (P)YPstrX((P)0,T22); VARSET(YPsnul,T21); T23 = (P)YPtupX((P)0,VARREF(Ynul)); VARSET(YPtnul,T23); T24 = (P)YPrepX((P)0,VARREF(Ynul)); VARSET(YPrnul,T24); VARSET(YTearly_classesT,VARREF(Ynil)); T25 = YPfalse; return T25; } P Y___main_8___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56; DEFCREGS(); T0 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLanyG),T0); T1 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLlogG),T1); T2 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLboxG),T2); T3 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLmagG),T3); T4 = (P)YPpair(VARREF(YLmagG),Ynil); (P)YPdefine_parents(VARREF(YLchrG),T4); T5 = (P)YPpair(VARREF(YLmagG),Ynil); (P)YPdefine_parents(VARREF(YLsrc_locG),T5); T6 = (P)YPpair(VARREF(YLmagG),Ynil); (P)YPdefine_parents(VARREF(YLnumG),T6); T7 = (P)YPpair(VARREF(YLnumG),Ynil); (P)YPdefine_parents(VARREF(YLintG),T7); T8 = (P)YPpair(VARREF(YLintG),Ynil); (P)YPdefine_parents(VARREF(YLfixnumG),T8); T9 = (P)YPpair(VARREF(YLintG),Ynil); (P)YPdefine_parents(VARREF(YLbignumG),T9); T10 = (P)YPpair(VARREF(YLnumG),Ynil); (P)YPdefine_parents(VARREF(YLfloG),T10); T11 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLlocG),T11); T12 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLrepG),T12); T13 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLcolG),T13); T14 = (P)YPpair(VARREF(YLcolG),Ynil); (P)YPdefine_parents(VARREF(YLcolIG),T14); T15 = (P)YPpair(VARREF(YLcolG),Ynil); (P)YPdefine_parents(VARREF(YLcolXG),T15); T16 = (P)YPpair(VARREF(YLcolG),Ynil); (P)YPdefine_parents(VARREF(YLseqG),T16); T18 = (P)YPpair(VARREF(YLcolIG),Ynil); T17 = (P)YPpair(VARREF(YLseqG),T18); (P)YPdefine_parents(VARREF(YLseqIG),T17); T20 = (P)YPpair(VARREF(YLcolXG),Ynil); T19 = (P)YPpair(VARREF(YLseqG),T20); (P)YPdefine_parents(VARREF(YLseqXG),T19); T21 = (P)YPpair(VARREF(YLseqXG),Ynil); (P)YPdefine_parents(VARREF(YLlstG),T21); T22 = (P)YPpair(VARREF(YLseqG),Ynil); (P)YPdefine_parents(VARREF(YLflatG),T22); T24 = (P)YPpair(VARREF(YLseqIG),Ynil); T23 = (P)YPpair(VARREF(YLflatG),T24); (P)YPdefine_parents(VARREF(YLtupG),T23); T27 = (P)YPpair(VARREF(YLmagG),Ynil); T26 = (P)YPpair(VARREF(YLseqIG),T27); T25 = (P)YPpair(VARREF(YLflatG),T26); (P)YPdefine_parents(VARREF(YLstrG),T25); T28 = (P)YPpair(VARREF(YLmagG),Ynil); (P)YPdefine_parents(VARREF(YLsymG),T28); T29 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLtypeG),T29); T30 = (P)YPpair(VARREF(YLtypeG),Ynil); (P)YPdefine_parents(VARREF(YLclassG),T30); T31 = (P)YPpair(VARREF(YLtypeG),Ynil); (P)YPdefine_parents(VARREF(YLsingletonG),T31); T32 = (P)YPpair(VARREF(YLtypeG),Ynil); (P)YPdefine_parents(VARREF(YLsubclassG),T32); T33 = (P)YPpair(VARREF(YLtypeG),Ynil); (P)YPdefine_parents(VARREF(YLunionG),T33); T34 = (P)YPpair(VARREF(YLtypeG),Ynil); (P)YPdefine_parents(VARREF(YLproductG),T34); T35 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLpropG),T35); T36 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLgen_cacheG),T36); T37 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLsigG),T37); T38 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLfun_infoG),T38); T39 = (P)YPpair(VARREF(YLanyG),Ynil); (P)YPdefine_parents(VARREF(YLfunG),T39); T40 = (P)YPpair(VARREF(YLfunG),Ynil); (P)YPdefine_parents(VARREF(YLmetG),T40); T41 = (P)YPpair(VARREF(YLfunG),Ynil); (P)YPdefine_parents(VARREF(YLgenG),T41); T43 = (P)YPpair(VARREF(YLseqIG),Ynil); T42 = (P)YPpair(VARREF(YLflatG),T43); (P)YPdefine_parents(VARREF(YLoptsG),T42); T44 = (P)YPpair(VARREF(YLoptsG),Ynil); (P)YPdefine_parents(VARREF(YLopts_tupG),T44); T45 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); (P)YPclass_ancestors_setter(T45,VARREF(YLanyG)); VARSET(YPsymbols,VARREF(Ynil)); lit_0 = YPsb((P)"Warning: symbols were created in the boot image before the symbol-creation was setup. (Probably from a df or rep)\n"); T47 = (P)YPeqQ(VARREF(YPTused_symbols_too_earlyT),YPtrue); T46 = (P)YPbb(T47); if (T47) { T49 = (P)YPsu(LITREF(lit_0)); T48 = (P)YPbreak(T49); } else { } lit_1 = YPPlist(1,YPPsym((P)"name")); T50 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_118 = YPfab_met(FUNCODEREF(fun_118),T50,YPfalse,LITREF(lit_1),sloc(587),YPfalse); T51 = fun_118; VARSET(Yfab_sym,T51); VARSET(YPsymbols_readyQ,YPtrue); lit_2 = YPPsym((P)"fab-sym"); lit_3 = YPPlist(1,YPPsym((P)"name")); T54 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T53 = Yfab_sym = YPfab_met(FUNCODEREF(Yfab_sym),T54,LITREF(lit_2),LITREF(lit_3),sloc(592),YPfalse); T56 = Yfab_sym; T55 = VARSET(Yfab_sym,T56); T52 = T55; return T52; } P Y___main_9___() { P T0; DEFCREGS(); VARSET(YDgen_cache_singletons_offset,YPint((P)2)); VARSET(YDgen_cache_classes_offset,YPint((P)3)); T0 = YPfalse; return T0; } P Y___main_10___() { P propF1057; P setterF1056; P xF1055; P xF1054; P accessorF1053; P getterF1052; P xF1051; P xF1050; P accessorF1049; P propF1048; P setterF1047; P getterF1046; P xF1045; P xF1044; P accessorF1043; P propF1042; P setterF1041; P getterF1040; P xF1039; P xF1038; P accessorF1037; P propF1036; P setterF1035; P getterF1034; P xF1033; P xF1032; P accessorF1031; P propF1030; P setterF1029; P getterF1028; P xF1027; P xF1026; P accessorF1025; P propF1024; P setterF1023; P getterF1022; P xF1021; P xF1020; P accessorF1019; P propF1018; P setterF1017; P getterF1016; P xF1015; P xF1014; P accessorF1013; P propF1012; P setterF1011; P getterF1010; P xF1009; P xF1008; P accessorF1007; P propF1006; P setterF1005; P getterF1004; P xF1003; P xF1002; P accessorF1001; P propF1000; P setterF999; P getterF998; P xF997; P xF996; P accessorF995; P propF994; P setterF993; P getterF992; P xF991; P xF990; P accessorF989; P propF988; P setterF987; P getterF986; P xF985; P xF984; P accessorF983; P propF982; P setterF981; P getterF980; P xF979; P xF978; P accessorF977; P propF976; P setterF975; P getterF974; P xF973; P xF972; P accessorF971; P propF970; P setterF969; P getterF968; P xF967; P xF966; P accessorF965; P propF964; P setterF963; P getterF962; P xF961; P xF960; P accessorF959; P propF958; P setterF957; P xF956; P xF955; P accessorF954; P getterF953; P xF952; P xF951; P accessorF950; P propF949; P setterF948; P xF947; P xF946; P accessorF945; P getterF944; P xF943; P xF942; P accessorF941; P propF940; P setterF939; P xF938; P xF937; P accessorF936; P getterF935; P xF934; P xF933; P accessorF932; P propF931; P setterF930; P xF929; P xF928; P accessorF927; P getterF926; P xF925; P xF924; P accessorF923; P propF922; P setterF921; P xF920; P xF919; P accessorF918; P getterF917; P xF916; P xF915; P accessorF914; P propF913; P setterF912; P xF911; P xF910; P accessorF909; P getterF908; P xF907; P xF906; P accessorF905; P propF904; P setterF903; P xF902; P xF901; P accessorF900; P getterF899; P xF898; P xF897; P accessorF896; P propF895; P setterF894; P xF893; P xF892; P accessorF891; P getterF890; P xF889; P xF888; P accessorF887; P propF886; P setterF885; P getterF884; P xF883; P xF882; P accessorF881; P propF880; P setterF879; P xF878; P xF877; P accessorF876; P getterF875; P xF874; P xF873; P accessorF872; P propF871; P setterF870; P getterF869; P xF868; P xF867; P accessorF866; P propF865; P setterF864; P xF863; P xF862; P accessorF861; P getterF860; P xF859; P xF858; P accessorF857; P propF856; P setterF855; P xF854; P xF853; P accessorF852; P getterF851; P xF850; P xF849; P accessorF848; P propF847; P setterF846; P getterF845; P xF844; P xF843; P accessorF842; P propF841; P setterF840; P getterF839; P xF838; P xF837; P accessorF836; P propF835; P setterF834; P xF833; P xF832; P accessorF831; P getterF830; P xF829; P xF828; P accessorF827; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181,T182,T183,T184,T185,T186,T187,T188,T189,T190,T191; P T192,T193,T194,T195,T196,T197,T198,T199,T200,T201,T202,T203,T204,T205,T206,T207; P T208,T209,T210,T211,T212,T213,T214,T215,T216,T217,T218,T219,T220,T221,T222,T223; P T224,T225,T226,T227,T228,T229,T230,T231,T232,T233,T234,T235,T236,T237,T238,T239; P T240,T241,T242,T243,T244,T245,T246,T247,T248,T249,T250,T251,T252,T253,T254,T255; P T256,T257,T258,T259,T260,T261,T262,T263,T264,T265,T266,T267,T268,T269,T270,T271; P T272,T273,T274,T275,T276,T277,T278,T279,T280,T281,T282,T283,T284,T285,T286,T287; P T288,T289,T290,T291,T292,T293,T294,T295,T296,T297,T298,T299,T300,T301,T302,T303; P T304,T305,T306,T307,T308,T309,T310,T311,T312,T313,T314,T315,T316,T317,T318,T319; P T320,T321,T322,T323,T324,T325,T326,T327,T328,T329,T330,T331,T332,T333,T334,T335; P T336,T337,T338,T339,T340,T341,T342,T343,T344,T345,T346,T347,T348,T349,T350,T351; P T352,T353,T354,T355,T356,T357,T358,T359,T360,T361,T362,T363,T364,T365,T366,T367; P T368,T369,T370,T371,T372,T373,T374,T375,T376,T377,T378,T379,T380,T381,T382,T383; P T384,T385,T386,T387,T388,T389,T390,T391,T392,T393,T394,T395,T396,T397,T398,T399; P T400,T401,T402,T403,T404,T405,T406,T407,T408,T409,T410,T411,T412,T413,T414,T415; P T416,T417,T418,T419,T420,T421,T422,T423,T424,T425,T426,T427,T428,T429,T430,T431; P T432,T433,T434,T435,T436,T437,T438,T439,T440,T441,T442,T443,T444,T445,T446,T447; P T448,T449,T450,T451,T452,T453,T454,T455,T456,T457,T458,T459,T460,T461,T462,T463; P T464,T465,T466,T467,T468; DEFCREGS(); lit_4 = YPPsym((P)"%prop-offset"); lit_5 = YPPlist(2,YPPsym((P)"owner"),YPPsym((P)"getter")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YPprop_offset = YPfab_met(FUNCODEREF(YPprop_offset),T0,LITREF(lit_4),LITREF(lit_5),sloc(652),YPfalse); T1 = YPprop_offset; VARSET(YPprop_offset,T1); lit_6 = YPPsym((P)"%early-dispatch"); lit_7 = YPPlist(1,YPPsym((P)"args")); lit_8 = YPsb((P)"ERROR: Generic function dispatch called before it existed."); T2 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); YPearly_dispatch = YPfab_met(FUNCODEREF(YPearly_dispatch),T2,LITREF(lit_6),LITREF(lit_7),sloc(670),YPfalse); T3 = YPearly_dispatch; VARSET(YPearly_dispatch,T3); lit_9 = YPPsym((P)"%add-met"); lit_10 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"met")); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YPadd_met = YPfab_met(FUNCODEREF(YPadd_met),T4,LITREF(lit_9),LITREF(lit_10),sloc(674),YPfalse); T5 = YPadd_met; VARSET(YPadd_met,T5); lit_11 = YPPsym((P)"%add-prop"); lit_12 = YPPlist(2,YPPsym((P)"class"),YPPsym((P)"prop")); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YPadd_prop = YPfab_met(FUNCODEREF(YPadd_prop),T6,LITREF(lit_11),LITREF(lit_12),sloc(724),YPfalse); T7 = YPadd_prop; VARSET(YPadd_prop,T7); lit_13 = YPPsym((P)"box-value"); lit_14 = YPPlist(1,YPPsym((P)"x")); lit_15 = YPPsym((P)"box-value-setter"); lit_16 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_17 = YPPlist(1,YPPsym((P)"x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLboxG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_179 = YPfab_met(FUNCODEREF(fun_179),T10,YPfalse,LITREF(lit_14),sloc(746),YPfalse); T9 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLboxG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_180 = YPfab_met(FUNCODEREF(fun_180),T9,YPfalse,LITREF(lit_16),sloc(746),YPfalse); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_181 = YPfab_met(FUNCODEREF(fun_181),T8,YPfalse,LITREF(lit_17),sloc(746),YPfalse); T23 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T22 = (P)YPsig(T23,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T21 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T22,LITREF(lit_13),Ynil,YPfalse); VARSET(Ybox_value,T21); T26 = fun_179; accessorF827 = T26; XCALL2(1,VARREF(YPadd_met),VARREF(Ybox_value),accessorF827); xF828 = accessorF827; T24 = (P)YPprop_elt(xF828,(P)2); (P)YPfun_info_name_setter(LITREF(lit_13),T24); xF829 = accessorF827; T25 = (P)YPprop_elt(xF829,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T25); getterF830 = accessorF827; T17 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T16 = (P)YPpair(VARREF(YLanyG),T17); T15 = (P)YPsig(T16,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T14 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T15,LITREF(lit_15),Ynil,YPfalse); VARSET(Ybox_value_setter,T14); T20 = fun_180; accessorF831 = T20; XCALL2(1,VARREF(YPadd_met),VARREF(Ybox_value_setter),accessorF831); xF832 = accessorF831; T18 = (P)YPprop_elt(xF832,(P)2); (P)YPfun_info_name_setter(LITREF(lit_15),T18); xF833 = accessorF831; T19 = (P)YPprop_elt(xF833,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T19); setterF834 = accessorF831; T13 = fun_181; T12 = (P)YPPprop(VARREF(YLboxG),VARREF(Ybox_value),VARREF(Ybox_value_setter),VARREF(YLanyG),T13); propF835 = T12; (P)YPmet_env_setter(propF835,getterF830); (P)YPmet_env_setter(propF835,setterF834); T11 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLboxG),propF835); lit_18 = YPPsym((P)"src-loc-line"); lit_19 = YPPlist(1,YPPsym((P)"x")); lit_20 = YPPlist(1,YPPsym((P)"x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLsrc_locG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_182 = YPfab_met(FUNCODEREF(fun_182),T28,YPfalse,LITREF(lit_19),sloc(746),YPfalse); T27 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_183 = YPfab_met(FUNCODEREF(fun_183),T27,YPfalse,LITREF(lit_20),sloc(746),YPfalse); T34 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T33 = (P)YPsig(T34,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T32 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T33,LITREF(lit_18),Ynil,YPfalse); VARSET(Ysrc_loc_line,T32); T37 = fun_182; accessorF836 = T37; XCALL2(1,VARREF(YPadd_met),VARREF(Ysrc_loc_line),accessorF836); xF837 = accessorF836; T35 = (P)YPprop_elt(xF837,(P)2); (P)YPfun_info_name_setter(LITREF(lit_18),T35); xF838 = accessorF836; T36 = (P)YPprop_elt(xF838,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T36); getterF839 = accessorF836; setterF840 = YPfalse; T31 = fun_183; T30 = (P)YPPprop(VARREF(YLsrc_locG),VARREF(Ysrc_loc_line),YPfalse,VARREF(YLintG),T31); propF841 = T30; (P)YPmet_env_setter(propF841,getterF839); T29 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsrc_locG),propF841); lit_21 = YPPsym((P)"src-loc-file"); lit_22 = YPPlist(1,YPPsym((P)"x")); lit_23 = YPPlist(1,YPPsym((P)"x")); T39 = YPfab_sig(YPPlist(1,VARREF(YLsrc_locG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_184 = YPfab_met(FUNCODEREF(fun_184),T39,YPfalse,LITREF(lit_22),sloc(746),YPfalse); T38 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_185 = YPfab_met(FUNCODEREF(fun_185),T38,YPfalse,LITREF(lit_23),sloc(746),YPfalse); T45 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T44 = (P)YPsig(T45,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T43 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T44,LITREF(lit_21),Ynil,YPfalse); VARSET(Ysrc_loc_file,T43); T48 = fun_184; accessorF842 = T48; XCALL2(1,VARREF(YPadd_met),VARREF(Ysrc_loc_file),accessorF842); xF843 = accessorF842; T46 = (P)YPprop_elt(xF843,(P)2); (P)YPfun_info_name_setter(LITREF(lit_21),T46); xF844 = accessorF842; T47 = (P)YPprop_elt(xF844,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T47); getterF845 = accessorF842; setterF846 = YPfalse; T42 = fun_185; T41 = (P)YPPprop(VARREF(YLsrc_locG),VARREF(Ysrc_loc_file),YPfalse,VARREF(YLstrG),T42); propF847 = T41; (P)YPmet_env_setter(propF847,getterF845); T40 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsrc_locG),propF847); lit_24 = YPPsym((P)"head"); lit_25 = YPPlist(1,YPPsym((P)"x")); lit_26 = YPPsym((P)"head-setter"); lit_27 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_28 = YPPlist(1,YPPsym((P)"x")); T51 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_186 = YPfab_met(FUNCODEREF(fun_186),T51,YPfalse,LITREF(lit_25),sloc(746),YPfalse); T50 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_187 = YPfab_met(FUNCODEREF(fun_187),T50,YPfalse,LITREF(lit_27),sloc(746),YPfalse); T49 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_188 = YPfab_met(FUNCODEREF(fun_188),T49,YPfalse,LITREF(lit_28),sloc(746),YPfalse); T64 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T63 = (P)YPsig(T64,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T62 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T63,LITREF(lit_24),Ynil,YPfalse); VARSET(Yhead,T62); T67 = fun_186; accessorF848 = T67; XCALL2(1,VARREF(YPadd_met),VARREF(Yhead),accessorF848); xF849 = accessorF848; T65 = (P)YPprop_elt(xF849,(P)2); (P)YPfun_info_name_setter(LITREF(lit_24),T65); xF850 = accessorF848; T66 = (P)YPprop_elt(xF850,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T66); getterF851 = accessorF848; T58 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T57 = (P)YPpair(VARREF(YLanyG),T58); T56 = (P)YPsig(T57,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T55 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T56,LITREF(lit_26),Ynil,YPfalse); VARSET(Yhead_setter,T55); T61 = fun_187; accessorF852 = T61; XCALL2(1,VARREF(YPadd_met),VARREF(Yhead_setter),accessorF852); xF853 = accessorF852; T59 = (P)YPprop_elt(xF853,(P)2); (P)YPfun_info_name_setter(LITREF(lit_26),T59); xF854 = accessorF852; T60 = (P)YPprop_elt(xF854,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T60); setterF855 = accessorF852; T54 = fun_188; T53 = (P)YPPprop(VARREF(YLlstG),VARREF(Yhead),VARREF(Yhead_setter),VARREF(YLanyG),T54); propF856 = T53; (P)YPmet_env_setter(propF856,getterF851); (P)YPmet_env_setter(propF856,setterF855); T52 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLlstG),propF856); lit_29 = YPPsym((P)"tail"); lit_30 = YPPlist(1,YPPsym((P)"x")); lit_31 = YPPsym((P)"tail-setter"); lit_32 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_33 = YPPlist(1,YPPsym((P)"x")); T70 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_189 = YPfab_met(FUNCODEREF(fun_189),T70,YPfalse,LITREF(lit_30),sloc(746),YPfalse); T69 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_190 = YPfab_met(FUNCODEREF(fun_190),T69,YPfalse,LITREF(lit_32),sloc(746),YPfalse); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_191 = YPfab_met(FUNCODEREF(fun_191),T68,YPfalse,LITREF(lit_33),sloc(746),YPfalse); T83 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T82 = (P)YPsig(T83,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T81 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T82,LITREF(lit_29),Ynil,YPfalse); VARSET(Ytail,T81); T86 = fun_189; accessorF857 = T86; XCALL2(1,VARREF(YPadd_met),VARREF(Ytail),accessorF857); xF858 = accessorF857; T84 = (P)YPprop_elt(xF858,(P)2); (P)YPfun_info_name_setter(LITREF(lit_29),T84); xF859 = accessorF857; T85 = (P)YPprop_elt(xF859,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T85); getterF860 = accessorF857; T77 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T76 = (P)YPpair(VARREF(YLanyG),T77); T75 = (P)YPsig(T76,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T74 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T75,LITREF(lit_31),Ynil,YPfalse); VARSET(Ytail_setter,T74); T80 = fun_190; accessorF861 = T80; XCALL2(1,VARREF(YPadd_met),VARREF(Ytail_setter),accessorF861); xF862 = accessorF861; T78 = (P)YPprop_elt(xF862,(P)2); (P)YPfun_info_name_setter(LITREF(lit_31),T78); xF863 = accessorF861; T79 = (P)YPprop_elt(xF863,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T79); setterF864 = accessorF861; T73 = fun_191; T72 = (P)YPPprop(VARREF(YLlstG),VARREF(Ytail),VARREF(Ytail_setter),VARREF(YLlstG),T73); propF865 = T72; (P)YPmet_env_setter(propF865,getterF860); (P)YPmet_env_setter(propF865,setterF864); T71 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLlstG),propF865); lit_34 = YPPsym((P)"sym-name"); lit_35 = YPPlist(1,YPPsym((P)"x")); lit_36 = YPPlist(1,YPPsym((P)"x")); T88 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_192 = YPfab_met(FUNCODEREF(fun_192),T88,YPfalse,LITREF(lit_35),sloc(746),YPfalse); T87 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_193 = YPfab_met(FUNCODEREF(fun_193),T87,YPfalse,LITREF(lit_36),sloc(746),YPfalse); T94 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T93 = (P)YPsig(T94,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T92 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T93,LITREF(lit_34),Ynil,YPfalse); VARSET(Ysym_name,T92); T97 = fun_192; accessorF866 = T97; XCALL2(1,VARREF(YPadd_met),VARREF(Ysym_name),accessorF866); xF867 = accessorF866; T95 = (P)YPprop_elt(xF867,(P)2); (P)YPfun_info_name_setter(LITREF(lit_34),T95); xF868 = accessorF866; T96 = (P)YPprop_elt(xF868,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T96); getterF869 = accessorF866; setterF870 = YPfalse; T91 = fun_193; T90 = (P)YPPprop(VARREF(YLsymG),VARREF(Ysym_name),YPfalse,VARREF(YLstrG),T91); propF871 = T90; (P)YPmet_env_setter(propF871,getterF869); T89 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsymG),propF871); lit_37 = YPPsym((P)"class-prop-len"); lit_38 = YPPlist(1,YPPsym((P)"x")); lit_39 = YPPsym((P)"class-prop-len-setter"); lit_40 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_41 = YPPlist(1,YPPsym((P)"x")); T100 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_194 = YPfab_met(FUNCODEREF(fun_194),T100,YPfalse,LITREF(lit_38),sloc(746),YPfalse); T99 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_195 = YPfab_met(FUNCODEREF(fun_195),T99,YPfalse,LITREF(lit_40),sloc(746),YPfalse); T98 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_196 = YPfab_met(FUNCODEREF(fun_196),T98,YPfalse,LITREF(lit_41),sloc(746),YPfalse); T113 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T112 = (P)YPsig(T113,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T111 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T112,LITREF(lit_37),Ynil,YPfalse); VARSET(Yclass_prop_len,T111); T116 = fun_194; accessorF872 = T116; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_prop_len),accessorF872); xF873 = accessorF872; T114 = (P)YPprop_elt(xF873,(P)2); (P)YPfun_info_name_setter(LITREF(lit_37),T114); xF874 = accessorF872; T115 = (P)YPprop_elt(xF874,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T115); getterF875 = accessorF872; T107 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T106 = (P)YPpair(VARREF(YLanyG),T107); T105 = (P)YPsig(T106,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T104 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T105,LITREF(lit_39),Ynil,YPfalse); VARSET(Yclass_prop_len_setter,T104); T110 = fun_195; accessorF876 = T110; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_prop_len_setter),accessorF876); xF877 = accessorF876; T108 = (P)YPprop_elt(xF877,(P)2); (P)YPfun_info_name_setter(LITREF(lit_39),T108); xF878 = accessorF876; T109 = (P)YPprop_elt(xF878,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T109); setterF879 = accessorF876; T103 = fun_196; T102 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_prop_len),VARREF(Yclass_prop_len_setter),VARREF(YLfixnumG),T103); propF880 = T102; (P)YPmet_env_setter(propF880,getterF875); (P)YPmet_env_setter(propF880,setterF879); T101 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF880); lit_42 = YPPsym((P)"class-name"); lit_43 = YPPlist(1,YPPsym((P)"x")); lit_44 = YPPlist(1,YPPsym((P)"x")); T118 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_197 = YPfab_met(FUNCODEREF(fun_197),T118,YPfalse,LITREF(lit_43),sloc(746),YPfalse); T117 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_198 = YPfab_met(FUNCODEREF(fun_198),T117,YPfalse,LITREF(lit_44),sloc(746),YPfalse); T124 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T123 = (P)YPsig(T124,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T122 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T123,LITREF(lit_42),Ynil,YPfalse); VARSET(Yclass_name,T122); T127 = fun_197; accessorF881 = T127; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_name),accessorF881); xF882 = accessorF881; T125 = (P)YPprop_elt(xF882,(P)2); (P)YPfun_info_name_setter(LITREF(lit_42),T125); xF883 = accessorF881; T126 = (P)YPprop_elt(xF883,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T126); getterF884 = accessorF881; setterF885 = YPfalse; T121 = fun_198; T120 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_name),YPfalse,VARREF(YLsymG),T121); propF886 = T120; (P)YPmet_env_setter(propF886,getterF884); T119 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF886); lit_45 = YPPsym((P)"class-parents"); lit_46 = YPPlist(1,YPPsym((P)"x")); lit_47 = YPPsym((P)"class-parents-setter"); lit_48 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_49 = YPPlist(1,YPPsym((P)"x")); T130 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_199 = YPfab_met(FUNCODEREF(fun_199),T130,YPfalse,LITREF(lit_46),sloc(746),YPfalse); T129 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_200 = YPfab_met(FUNCODEREF(fun_200),T129,YPfalse,LITREF(lit_48),sloc(746),YPfalse); T128 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_201 = YPfab_met(FUNCODEREF(fun_201),T128,YPfalse,LITREF(lit_49),sloc(746),YPfalse); T143 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T142 = (P)YPsig(T143,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T141 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T142,LITREF(lit_45),Ynil,YPfalse); VARSET(Yclass_parents,T141); T146 = fun_199; accessorF887 = T146; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_parents),accessorF887); xF888 = accessorF887; T144 = (P)YPprop_elt(xF888,(P)2); (P)YPfun_info_name_setter(LITREF(lit_45),T144); xF889 = accessorF887; T145 = (P)YPprop_elt(xF889,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T145); getterF890 = accessorF887; T137 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T136 = (P)YPpair(VARREF(YLanyG),T137); T135 = (P)YPsig(T136,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T134 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T135,LITREF(lit_47),Ynil,YPfalse); VARSET(Yclass_parents_setter,T134); T140 = fun_200; accessorF891 = T140; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_parents_setter),accessorF891); xF892 = accessorF891; T138 = (P)YPprop_elt(xF892,(P)2); (P)YPfun_info_name_setter(LITREF(lit_47),T138); xF893 = accessorF891; T139 = (P)YPprop_elt(xF893,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T139); setterF894 = accessorF891; T133 = fun_201; T132 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_parents),VARREF(Yclass_parents_setter),VARREF(YLlstG),T133); propF895 = T132; (P)YPmet_env_setter(propF895,getterF890); (P)YPmet_env_setter(propF895,setterF894); T131 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF895); lit_50 = YPPsym((P)"class-direct-props"); lit_51 = YPPlist(1,YPPsym((P)"x")); lit_52 = YPPsym((P)"class-direct-props-setter"); lit_53 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_54 = YPPlist(1,YPPsym((P)"x")); T149 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_202 = YPfab_met(FUNCODEREF(fun_202),T149,YPfalse,LITREF(lit_51),sloc(746),YPfalse); T148 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_203 = YPfab_met(FUNCODEREF(fun_203),T148,YPfalse,LITREF(lit_53),sloc(746),YPfalse); T147 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_204 = YPfab_met(FUNCODEREF(fun_204),T147,YPfalse,LITREF(lit_54),sloc(746),YPfalse); T162 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T161 = (P)YPsig(T162,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T160 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T161,LITREF(lit_50),Ynil,YPfalse); VARSET(Yclass_direct_props,T160); T165 = fun_202; accessorF896 = T165; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_direct_props),accessorF896); xF897 = accessorF896; T163 = (P)YPprop_elt(xF897,(P)2); (P)YPfun_info_name_setter(LITREF(lit_50),T163); xF898 = accessorF896; T164 = (P)YPprop_elt(xF898,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T164); getterF899 = accessorF896; T156 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T155 = (P)YPpair(VARREF(YLanyG),T156); T154 = (P)YPsig(T155,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T153 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T154,LITREF(lit_52),Ynil,YPfalse); VARSET(Yclass_direct_props_setter,T153); T159 = fun_203; accessorF900 = T159; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_direct_props_setter),accessorF900); xF901 = accessorF900; T157 = (P)YPprop_elt(xF901,(P)2); (P)YPfun_info_name_setter(LITREF(lit_52),T157); xF902 = accessorF900; T158 = (P)YPprop_elt(xF902,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T158); setterF903 = accessorF900; T152 = fun_204; T151 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_direct_props),VARREF(Yclass_direct_props_setter),VARREF(YLlstG),T152); propF904 = T151; (P)YPmet_env_setter(propF904,getterF899); (P)YPmet_env_setter(propF904,setterF903); T150 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF904); lit_55 = YPPsym((P)"class-ancestors"); lit_56 = YPPlist(1,YPPsym((P)"x")); lit_57 = YPPsym((P)"class-ancestors-setter"); lit_58 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_59 = YPPlist(1,YPPsym((P)"x")); T168 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_205 = YPfab_met(FUNCODEREF(fun_205),T168,YPfalse,LITREF(lit_56),sloc(746),YPfalse); T167 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_206 = YPfab_met(FUNCODEREF(fun_206),T167,YPfalse,LITREF(lit_58),sloc(746),YPfalse); T166 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_207 = YPfab_met(FUNCODEREF(fun_207),T166,YPfalse,LITREF(lit_59),sloc(746),YPfalse); T181 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T180 = (P)YPsig(T181,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T179 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T180,LITREF(lit_55),Ynil,YPfalse); VARSET(Yclass_ancestors,T179); T184 = fun_205; accessorF905 = T184; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_ancestors),accessorF905); xF906 = accessorF905; T182 = (P)YPprop_elt(xF906,(P)2); (P)YPfun_info_name_setter(LITREF(lit_55),T182); xF907 = accessorF905; T183 = (P)YPprop_elt(xF907,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T183); getterF908 = accessorF905; T175 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T174 = (P)YPpair(VARREF(YLanyG),T175); T173 = (P)YPsig(T174,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T172 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T173,LITREF(lit_57),Ynil,YPfalse); VARSET(Yclass_ancestors_setter,T172); T178 = fun_206; accessorF909 = T178; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_ancestors_setter),accessorF909); xF910 = accessorF909; T176 = (P)YPprop_elt(xF910,(P)2); (P)YPfun_info_name_setter(LITREF(lit_57),T176); xF911 = accessorF909; T177 = (P)YPprop_elt(xF911,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T177); setterF912 = accessorF909; T171 = fun_207; T170 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_ancestors),VARREF(Yclass_ancestors_setter),VARREF(YLlstG),T171); propF913 = T170; (P)YPmet_env_setter(propF913,getterF908); (P)YPmet_env_setter(propF913,setterF912); T169 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF913); lit_60 = YPPsym((P)"class-props"); lit_61 = YPPlist(1,YPPsym((P)"x")); lit_62 = YPPsym((P)"class-props-setter"); lit_63 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_64 = YPPlist(1,YPPsym((P)"x")); T187 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_208 = YPfab_met(FUNCODEREF(fun_208),T187,YPfalse,LITREF(lit_61),sloc(746),YPfalse); T186 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_209 = YPfab_met(FUNCODEREF(fun_209),T186,YPfalse,LITREF(lit_63),sloc(746),YPfalse); T185 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_210 = YPfab_met(FUNCODEREF(fun_210),T185,YPfalse,LITREF(lit_64),sloc(746),YPfalse); T200 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T199 = (P)YPsig(T200,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T198 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T199,LITREF(lit_60),Ynil,YPfalse); VARSET(Yclass_props,T198); T203 = fun_208; accessorF914 = T203; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_props),accessorF914); xF915 = accessorF914; T201 = (P)YPprop_elt(xF915,(P)2); (P)YPfun_info_name_setter(LITREF(lit_60),T201); xF916 = accessorF914; T202 = (P)YPprop_elt(xF916,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T202); getterF917 = accessorF914; T194 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T193 = (P)YPpair(VARREF(YLanyG),T194); T192 = (P)YPsig(T193,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T191 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T192,LITREF(lit_62),Ynil,YPfalse); VARSET(Yclass_props_setter,T191); T197 = fun_209; accessorF918 = T197; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_props_setter),accessorF918); xF919 = accessorF918; T195 = (P)YPprop_elt(xF919,(P)2); (P)YPfun_info_name_setter(LITREF(lit_62),T195); xF920 = accessorF918; T196 = (P)YPprop_elt(xF920,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T196); setterF921 = accessorF918; T190 = fun_210; T189 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_props),VARREF(Yclass_props_setter),VARREF(YLlstG),T190); propF922 = T189; (P)YPmet_env_setter(propF922,getterF917); (P)YPmet_env_setter(propF922,setterF921); T188 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF922); lit_65 = YPPsym((P)"class-children"); lit_66 = YPPlist(1,YPPsym((P)"x")); lit_67 = YPPsym((P)"class-children-setter"); lit_68 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_69 = YPPlist(1,YPPsym((P)"x")); T206 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_211 = YPfab_met(FUNCODEREF(fun_211),T206,YPfalse,LITREF(lit_66),sloc(746),YPfalse); T205 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_212 = YPfab_met(FUNCODEREF(fun_212),T205,YPfalse,LITREF(lit_68),sloc(746),YPfalse); T204 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_213 = YPfab_met(FUNCODEREF(fun_213),T204,YPfalse,LITREF(lit_69),sloc(746),YPfalse); T219 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T218 = (P)YPsig(T219,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T217 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T218,LITREF(lit_65),Ynil,YPfalse); VARSET(Yclass_children,T217); T222 = fun_211; accessorF923 = T222; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_children),accessorF923); xF924 = accessorF923; T220 = (P)YPprop_elt(xF924,(P)2); (P)YPfun_info_name_setter(LITREF(lit_65),T220); xF925 = accessorF923; T221 = (P)YPprop_elt(xF925,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T221); getterF926 = accessorF923; T213 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T212 = (P)YPpair(VARREF(YLanyG),T213); T211 = (P)YPsig(T212,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T210 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T211,LITREF(lit_67),Ynil,YPfalse); VARSET(Yclass_children_setter,T210); T216 = fun_212; accessorF927 = T216; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_children_setter),accessorF927); xF928 = accessorF927; T214 = (P)YPprop_elt(xF928,(P)2); (P)YPfun_info_name_setter(LITREF(lit_67),T214); xF929 = accessorF927; T215 = (P)YPprop_elt(xF929,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T215); setterF930 = accessorF927; T209 = fun_213; T208 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_children),VARREF(Yclass_children_setter),VARREF(YLlstG),T209); propF931 = T208; (P)YPmet_env_setter(propF931,getterF926); (P)YPmet_env_setter(propF931,setterF930); T207 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF931); lit_70 = YPPsym((P)"class-gens"); lit_71 = YPPlist(1,YPPsym((P)"x")); lit_72 = YPPsym((P)"class-gens-setter"); lit_73 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_74 = YPPlist(1,YPPsym((P)"x")); T225 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_214 = YPfab_met(FUNCODEREF(fun_214),T225,YPfalse,LITREF(lit_71),sloc(746),YPfalse); T224 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_215 = YPfab_met(FUNCODEREF(fun_215),T224,YPfalse,LITREF(lit_73),sloc(746),YPfalse); T223 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_216 = YPfab_met(FUNCODEREF(fun_216),T223,YPfalse,LITREF(lit_74),sloc(746),YPfalse); T238 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T237 = (P)YPsig(T238,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T236 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T237,LITREF(lit_70),Ynil,YPfalse); VARSET(Yclass_gens,T236); T241 = fun_214; accessorF932 = T241; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_gens),accessorF932); xF933 = accessorF932; T239 = (P)YPprop_elt(xF933,(P)2); (P)YPfun_info_name_setter(LITREF(lit_70),T239); xF934 = accessorF932; T240 = (P)YPprop_elt(xF934,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T240); getterF935 = accessorF932; T232 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T231 = (P)YPpair(VARREF(YLanyG),T232); T230 = (P)YPsig(T231,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T229 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T230,LITREF(lit_72),Ynil,YPfalse); VARSET(Yclass_gens_setter,T229); T235 = fun_215; accessorF936 = T235; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_gens_setter),accessorF936); xF937 = accessorF936; T233 = (P)YPprop_elt(xF937,(P)2); (P)YPfun_info_name_setter(LITREF(lit_72),T233); xF938 = accessorF936; T234 = (P)YPprop_elt(xF938,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T234); setterF939 = accessorF936; T228 = fun_216; T227 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_gens),VARREF(Yclass_gens_setter),VARREF(YLlstG),T228); propF940 = T227; (P)YPmet_env_setter(propF940,getterF935); (P)YPmet_env_setter(propF940,setterF939); T226 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF940); lit_75 = YPPsym((P)"class-mets"); lit_76 = YPPlist(1,YPPsym((P)"x")); lit_77 = YPPsym((P)"class-mets-setter"); lit_78 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_79 = YPPlist(1,YPPsym((P)"x")); T244 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_217 = YPfab_met(FUNCODEREF(fun_217),T244,YPfalse,LITREF(lit_76),sloc(746),YPfalse); T243 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_218 = YPfab_met(FUNCODEREF(fun_218),T243,YPfalse,LITREF(lit_78),sloc(746),YPfalse); T242 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_219 = YPfab_met(FUNCODEREF(fun_219),T242,YPfalse,LITREF(lit_79),sloc(746),YPfalse); T257 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T256 = (P)YPsig(T257,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T255 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T256,LITREF(lit_75),Ynil,YPfalse); VARSET(Yclass_mets,T255); T260 = fun_217; accessorF941 = T260; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_mets),accessorF941); xF942 = accessorF941; T258 = (P)YPprop_elt(xF942,(P)2); (P)YPfun_info_name_setter(LITREF(lit_75),T258); xF943 = accessorF941; T259 = (P)YPprop_elt(xF943,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T259); getterF944 = accessorF941; T251 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T250 = (P)YPpair(VARREF(YLanyG),T251); T249 = (P)YPsig(T250,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T248 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T249,LITREF(lit_77),Ynil,YPfalse); VARSET(Yclass_mets_setter,T248); T254 = fun_218; accessorF945 = T254; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_mets_setter),accessorF945); xF946 = accessorF945; T252 = (P)YPprop_elt(xF946,(P)2); (P)YPfun_info_name_setter(LITREF(lit_77),T252); xF947 = accessorF945; T253 = (P)YPprop_elt(xF947,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T253); setterF948 = accessorF945; T247 = fun_219; T246 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_mets),VARREF(Yclass_mets_setter),VARREF(YLlstG),T247); propF949 = T246; (P)YPmet_env_setter(propF949,getterF944); (P)YPmet_env_setter(propF949,setterF948); T245 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF949); lit_80 = YPPsym((P)"class-forward"); lit_81 = YPPlist(1,YPPsym((P)"x")); lit_82 = YPPsym((P)"class-forward-setter"); lit_83 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_84 = YPPlist(1,YPPsym((P)"x")); T263 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_220 = YPfab_met(FUNCODEREF(fun_220),T263,YPfalse,LITREF(lit_81),sloc(746),YPfalse); T262 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_221 = YPfab_met(FUNCODEREF(fun_221),T262,YPfalse,LITREF(lit_83),sloc(746),YPfalse); T261 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_222 = YPfab_met(FUNCODEREF(fun_222),T261,YPfalse,LITREF(lit_84),sloc(746),YPfalse); T276 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T275 = (P)YPsig(T276,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T274 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T275,LITREF(lit_80),Ynil,YPfalse); VARSET(Yclass_forward,T274); T279 = fun_220; accessorF950 = T279; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_forward),accessorF950); xF951 = accessorF950; T277 = (P)YPprop_elt(xF951,(P)2); (P)YPfun_info_name_setter(LITREF(lit_80),T277); xF952 = accessorF950; T278 = (P)YPprop_elt(xF952,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T278); getterF953 = accessorF950; T270 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T269 = (P)YPpair(VARREF(YLanyG),T270); T268 = (P)YPsig(T269,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T267 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T268,LITREF(lit_82),Ynil,YPfalse); VARSET(Yclass_forward_setter,T267); T273 = fun_221; accessorF954 = T273; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_forward_setter),accessorF954); xF955 = accessorF954; T271 = (P)YPprop_elt(xF955,(P)2); (P)YPfun_info_name_setter(LITREF(lit_82),T271); xF956 = accessorF954; T272 = (P)YPprop_elt(xF956,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T272); setterF957 = accessorF954; T266 = fun_222; T265 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_forward),VARREF(Yclass_forward_setter),VARREF(YLanyG),T266); propF958 = T265; (P)YPmet_env_setter(propF958,getterF953); (P)YPmet_env_setter(propF958,setterF957); T264 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF958); lit_85 = YPPsym((P)"class-id"); lit_86 = YPPlist(1,YPPsym((P)"x")); lit_87 = YPPlist(1,YPPsym((P)"x")); T281 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_223 = YPfab_met(FUNCODEREF(fun_223),T281,YPfalse,LITREF(lit_86),sloc(746),YPfalse); T280 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_224 = YPfab_met(FUNCODEREF(fun_224),T280,YPfalse,LITREF(lit_87),sloc(746),YPfalse); T287 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T286 = (P)YPsig(T287,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T285 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T286,LITREF(lit_85),Ynil,YPfalse); VARSET(Yclass_id,T285); T290 = fun_223; accessorF959 = T290; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_id),accessorF959); xF960 = accessorF959; T288 = (P)YPprop_elt(xF960,(P)2); (P)YPfun_info_name_setter(LITREF(lit_85),T288); xF961 = accessorF959; T289 = (P)YPprop_elt(xF961,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T289); getterF962 = accessorF959; setterF963 = YPfalse; T284 = fun_224; T283 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_id),YPfalse,VARREF(YLfixnumG),T284); propF964 = T283; (P)YPmet_env_setter(propF964,getterF962); T282 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF964); lit_88 = YPPsym((P)"class-row"); lit_89 = YPPlist(1,YPPsym((P)"x")); lit_90 = YPPlist(1,YPPsym((P)"x")); T292 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLtupG),Ynil); fun_225 = YPfab_met(FUNCODEREF(fun_225),T292,YPfalse,LITREF(lit_89),sloc(746),YPfalse); T291 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_226 = YPfab_met(FUNCODEREF(fun_226),T291,YPfalse,LITREF(lit_90),sloc(746),YPfalse); T298 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T297 = (P)YPsig(T298,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T296 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T297,LITREF(lit_88),Ynil,YPfalse); VARSET(Yclass_row,T296); T301 = fun_225; accessorF965 = T301; XCALL2(1,VARREF(YPadd_met),VARREF(Yclass_row),accessorF965); xF966 = accessorF965; T299 = (P)YPprop_elt(xF966,(P)2); (P)YPfun_info_name_setter(LITREF(lit_88),T299); xF967 = accessorF965; T300 = (P)YPprop_elt(xF967,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T300); getterF968 = accessorF965; setterF969 = YPfalse; T295 = fun_226; T294 = (P)YPPprop(VARREF(YLclassG),VARREF(Yclass_row),YPfalse,VARREF(YLtupG),T295); propF970 = T294; (P)YPmet_env_setter(propF970,getterF968); T293 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLclassG),propF970); lit_91 = YPPsym((P)"type-object"); lit_92 = YPPlist(1,YPPsym((P)"x")); lit_93 = YPPlist(1,YPPsym((P)"x")); T303 = YPfab_sig(YPPlist(1,VARREF(YLsingletonG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_227 = YPfab_met(FUNCODEREF(fun_227),T303,YPfalse,LITREF(lit_92),sloc(746),YPfalse); T302 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_228 = YPfab_met(FUNCODEREF(fun_228),T302,YPfalse,LITREF(lit_93),sloc(746),YPfalse); T309 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T308 = (P)YPsig(T309,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T307 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T308,LITREF(lit_91),Ynil,YPfalse); VARSET(Ytype_object,T307); T312 = fun_227; accessorF971 = T312; XCALL2(1,VARREF(YPadd_met),VARREF(Ytype_object),accessorF971); xF972 = accessorF971; T310 = (P)YPprop_elt(xF972,(P)2); (P)YPfun_info_name_setter(LITREF(lit_91),T310); xF973 = accessorF971; T311 = (P)YPprop_elt(xF973,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T311); getterF974 = accessorF971; setterF975 = YPfalse; T306 = fun_228; T305 = (P)YPPprop(VARREF(YLsingletonG),VARREF(Ytype_object),YPfalse,VARREF(YLanyG),T306); propF976 = T305; (P)YPmet_env_setter(propF976,getterF974); T304 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsingletonG),propF976); lit_94 = YPPsym((P)"type-class"); lit_95 = YPPlist(1,YPPsym((P)"x")); lit_96 = YPPlist(1,YPPsym((P)"x")); T314 = YPfab_sig(YPPlist(1,VARREF(YLsubclassG)),YPfalse,YPint((P)1),VARREF(YLclassG),Ynil); fun_229 = YPfab_met(FUNCODEREF(fun_229),T314,YPfalse,LITREF(lit_95),sloc(746),YPfalse); T313 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_230 = YPfab_met(FUNCODEREF(fun_230),T313,YPfalse,LITREF(lit_96),sloc(746),YPfalse); T320 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T319 = (P)YPsig(T320,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T318 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T319,LITREF(lit_94),Ynil,YPfalse); VARSET(Ytype_class,T318); T323 = fun_229; accessorF977 = T323; XCALL2(1,VARREF(YPadd_met),VARREF(Ytype_class),accessorF977); xF978 = accessorF977; T321 = (P)YPprop_elt(xF978,(P)2); (P)YPfun_info_name_setter(LITREF(lit_94),T321); xF979 = accessorF977; T322 = (P)YPprop_elt(xF979,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T322); getterF980 = accessorF977; setterF981 = YPfalse; T317 = fun_230; T316 = (P)YPPprop(VARREF(YLsubclassG),VARREF(Ytype_class),YPfalse,VARREF(YLclassG),T317); propF982 = T316; (P)YPmet_env_setter(propF982,getterF980); T315 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsubclassG),propF982); lit_97 = YPPsym((P)"union-elts"); lit_98 = YPPlist(1,YPPsym((P)"x")); lit_99 = YPPlist(1,YPPsym((P)"x")); T325 = YPfab_sig(YPPlist(1,VARREF(YLunionG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_231 = YPfab_met(FUNCODEREF(fun_231),T325,YPfalse,LITREF(lit_98),sloc(746),YPfalse); T324 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_232 = YPfab_met(FUNCODEREF(fun_232),T324,YPfalse,LITREF(lit_99),sloc(746),YPfalse); T331 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T330 = (P)YPsig(T331,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T329 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T330,LITREF(lit_97),Ynil,YPfalse); VARSET(Yunion_elts,T329); T334 = fun_231; accessorF983 = T334; XCALL2(1,VARREF(YPadd_met),VARREF(Yunion_elts),accessorF983); xF984 = accessorF983; T332 = (P)YPprop_elt(xF984,(P)2); (P)YPfun_info_name_setter(LITREF(lit_97),T332); xF985 = accessorF983; T333 = (P)YPprop_elt(xF985,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T333); getterF986 = accessorF983; setterF987 = YPfalse; T328 = fun_232; T327 = (P)YPPprop(VARREF(YLunionG),VARREF(Yunion_elts),YPfalse,VARREF(YLlstG),T328); propF988 = T327; (P)YPmet_env_setter(propF988,getterF986); T326 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLunionG),propF988); lit_100 = YPPsym((P)"product-elts"); lit_101 = YPPlist(1,YPPsym((P)"x")); lit_102 = YPPlist(1,YPPsym((P)"x")); T336 = YPfab_sig(YPPlist(1,VARREF(YLproductG)),YPfalse,YPint((P)1),VARREF(YLtupG),Ynil); fun_233 = YPfab_met(FUNCODEREF(fun_233),T336,YPfalse,LITREF(lit_101),sloc(746),YPfalse); T335 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_234 = YPfab_met(FUNCODEREF(fun_234),T335,YPfalse,LITREF(lit_102),sloc(746),YPfalse); T342 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T341 = (P)YPsig(T342,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T340 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T341,LITREF(lit_100),Ynil,YPfalse); VARSET(Yproduct_elts,T340); T345 = fun_233; accessorF989 = T345; XCALL2(1,VARREF(YPadd_met),VARREF(Yproduct_elts),accessorF989); xF990 = accessorF989; T343 = (P)YPprop_elt(xF990,(P)2); (P)YPfun_info_name_setter(LITREF(lit_100),T343); xF991 = accessorF989; T344 = (P)YPprop_elt(xF991,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T344); getterF992 = accessorF989; setterF993 = YPfalse; T339 = fun_234; T338 = (P)YPPprop(VARREF(YLproductG),VARREF(Yproduct_elts),YPfalse,VARREF(YLtupG),T339); propF994 = T338; (P)YPmet_env_setter(propF994,getterF992); T337 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLproductG),propF994); lit_103 = YPPsym((P)"prop-owner"); lit_104 = YPPlist(1,YPPsym((P)"x")); lit_105 = YPPlist(1,YPPsym((P)"x")); T347 = YPfab_sig(YPPlist(1,VARREF(YLpropG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_235 = YPfab_met(FUNCODEREF(fun_235),T347,YPfalse,LITREF(lit_104),sloc(746),YPfalse); T346 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_236 = YPfab_met(FUNCODEREF(fun_236),T346,YPfalse,LITREF(lit_105),sloc(746),YPfalse); T353 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T352 = (P)YPsig(T353,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T351 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T352,LITREF(lit_103),Ynil,YPfalse); VARSET(Yprop_owner,T351); T356 = fun_235; accessorF995 = T356; XCALL2(1,VARREF(YPadd_met),VARREF(Yprop_owner),accessorF995); xF996 = accessorF995; T354 = (P)YPprop_elt(xF996,(P)2); (P)YPfun_info_name_setter(LITREF(lit_103),T354); xF997 = accessorF995; T355 = (P)YPprop_elt(xF997,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T355); getterF998 = accessorF995; setterF999 = YPfalse; T350 = fun_236; T349 = (P)YPPprop(VARREF(YLpropG),VARREF(Yprop_owner),YPfalse,VARREF(YLanyG),T350); propF1000 = T349; (P)YPmet_env_setter(propF1000,getterF998); T348 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLpropG),propF1000); lit_106 = YPPsym((P)"prop-getter"); lit_107 = YPPlist(1,YPPsym((P)"x")); lit_108 = YPPlist(1,YPPsym((P)"x")); T358 = YPfab_sig(YPPlist(1,VARREF(YLpropG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_237 = YPfab_met(FUNCODEREF(fun_237),T358,YPfalse,LITREF(lit_107),sloc(746),YPfalse); T357 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_238 = YPfab_met(FUNCODEREF(fun_238),T357,YPfalse,LITREF(lit_108),sloc(746),YPfalse); T364 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T363 = (P)YPsig(T364,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T362 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T363,LITREF(lit_106),Ynil,YPfalse); VARSET(Yprop_getter,T362); T367 = fun_237; accessorF1001 = T367; XCALL2(1,VARREF(YPadd_met),VARREF(Yprop_getter),accessorF1001); xF1002 = accessorF1001; T365 = (P)YPprop_elt(xF1002,(P)2); (P)YPfun_info_name_setter(LITREF(lit_106),T365); xF1003 = accessorF1001; T366 = (P)YPprop_elt(xF1003,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T366); getterF1004 = accessorF1001; setterF1005 = YPfalse; T361 = fun_238; T360 = (P)YPPprop(VARREF(YLpropG),VARREF(Yprop_getter),YPfalse,VARREF(YLfunG),T361); propF1006 = T360; (P)YPmet_env_setter(propF1006,getterF1004); T359 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLpropG),propF1006); lit_109 = YPPsym((P)"prop-setter"); lit_110 = YPPlist(1,YPPsym((P)"x")); lit_111 = YPPlist(1,YPPsym((P)"x")); T369 = YPfab_sig(YPPlist(1,VARREF(YLpropG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_239 = YPfab_met(FUNCODEREF(fun_239),T369,YPfalse,LITREF(lit_110),sloc(746),YPfalse); T368 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_240 = YPfab_met(FUNCODEREF(fun_240),T368,YPfalse,LITREF(lit_111),sloc(746),YPfalse); T375 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T374 = (P)YPsig(T375,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T373 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T374,LITREF(lit_109),Ynil,YPfalse); VARSET(Yprop_setter,T373); T378 = fun_239; accessorF1007 = T378; XCALL2(1,VARREF(YPadd_met),VARREF(Yprop_setter),accessorF1007); xF1008 = accessorF1007; T376 = (P)YPprop_elt(xF1008,(P)2); (P)YPfun_info_name_setter(LITREF(lit_109),T376); xF1009 = accessorF1007; T377 = (P)YPprop_elt(xF1009,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T377); getterF1010 = accessorF1007; setterF1011 = YPfalse; T372 = fun_240; T371 = (P)YPPprop(VARREF(YLpropG),VARREF(Yprop_setter),YPfalse,VARREF(YLanyG),T372); propF1012 = T371; (P)YPmet_env_setter(propF1012,getterF1010); T370 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLpropG),propF1012); lit_112 = YPPsym((P)"prop-type"); lit_113 = YPPlist(1,YPPsym((P)"x")); lit_114 = YPPlist(1,YPPsym((P)"x")); T380 = YPfab_sig(YPPlist(1,VARREF(YLpropG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_241 = YPfab_met(FUNCODEREF(fun_241),T380,YPfalse,LITREF(lit_113),sloc(746),YPfalse); T379 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_242 = YPfab_met(FUNCODEREF(fun_242),T379,YPfalse,LITREF(lit_114),sloc(746),YPfalse); T386 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T385 = (P)YPsig(T386,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T384 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T385,LITREF(lit_112),Ynil,YPfalse); VARSET(Yprop_type,T384); T389 = fun_241; accessorF1013 = T389; XCALL2(1,VARREF(YPadd_met),VARREF(Yprop_type),accessorF1013); xF1014 = accessorF1013; T387 = (P)YPprop_elt(xF1014,(P)2); (P)YPfun_info_name_setter(LITREF(lit_112),T387); xF1015 = accessorF1013; T388 = (P)YPprop_elt(xF1015,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T388); getterF1016 = accessorF1013; setterF1017 = YPfalse; T383 = fun_242; T382 = (P)YPPprop(VARREF(YLpropG),VARREF(Yprop_type),YPfalse,VARREF(YLtypeG),T383); propF1018 = T382; (P)YPmet_env_setter(propF1018,getterF1016); T381 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLpropG),propF1018); lit_115 = YPPsym((P)"prop-init"); lit_116 = YPPlist(1,YPPsym((P)"x")); lit_117 = YPPlist(1,YPPsym((P)"x")); lit_118 = YPPlist(1,YPPsym((P)"x")); T392 = YPfab_sig(YPPlist(1,VARREF(YLpropG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_243 = YPfab_met(FUNCODEREF(fun_243),T392,YPfalse,LITREF(lit_116),sloc(746),YPfalse); T391 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_244 = YPfab_met(FUNCODEREF(fun_244),T391,YPfalse,LITREF(lit_118),sloc(157),YPfalse); T390 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_245 = YPfab_met(FUNCODEREF(fun_245),T390,YPfalse,LITREF(lit_117),sloc(746),YPfalse); T398 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T397 = (P)YPsig(T398,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T396 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T397,LITREF(lit_115),Ynil,YPfalse); VARSET(Yprop_init,T396); T401 = fun_243; accessorF1019 = T401; XCALL2(1,VARREF(YPadd_met),VARREF(Yprop_init),accessorF1019); xF1020 = accessorF1019; T399 = (P)YPprop_elt(xF1020,(P)2); (P)YPfun_info_name_setter(LITREF(lit_115),T399); xF1021 = accessorF1019; T400 = (P)YPprop_elt(xF1021,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T400); getterF1022 = accessorF1019; setterF1023 = YPfalse; T395 = fun_245; T394 = (P)YPPprop(VARREF(YLpropG),VARREF(Yprop_init),YPfalse,VARREF(YLfunG),T395); propF1024 = T394; (P)YPmet_env_setter(propF1024,getterF1022); T393 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLpropG),propF1024); lit_119 = YPPsym((P)"gen-cache-missable?"); lit_120 = YPPlist(1,YPPsym((P)"x")); lit_121 = YPPlist(1,YPPsym((P)"x")); T403 = YPfab_sig(YPPlist(1,VARREF(YLgen_cacheG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_246 = YPfab_met(FUNCODEREF(fun_246),T403,YPfalse,LITREF(lit_120),sloc(746),YPfalse); T402 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_247 = YPfab_met(FUNCODEREF(fun_247),T402,YPfalse,LITREF(lit_121),sloc(746),YPfalse); T409 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T408 = (P)YPsig(T409,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T407 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T408,LITREF(lit_119),Ynil,YPfalse); VARSET(Ygen_cache_missableQ,T407); T412 = fun_246; accessorF1025 = T412; XCALL2(1,VARREF(YPadd_met),VARREF(Ygen_cache_missableQ),accessorF1025); xF1026 = accessorF1025; T410 = (P)YPprop_elt(xF1026,(P)2); (P)YPfun_info_name_setter(LITREF(lit_119),T410); xF1027 = accessorF1025; T411 = (P)YPprop_elt(xF1027,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T411); getterF1028 = accessorF1025; setterF1029 = YPfalse; T406 = fun_247; T405 = (P)YPPprop(VARREF(YLgen_cacheG),VARREF(Ygen_cache_missableQ),YPfalse,VARREF(YLlogG),T406); propF1030 = T405; (P)YPmet_env_setter(propF1030,getterF1028); T404 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLgen_cacheG),propF1030); lit_122 = YPPsym((P)"gen-cache-arg-pos"); lit_123 = YPPlist(1,YPPsym((P)"x")); lit_124 = YPPlist(1,YPPsym((P)"x")); T414 = YPfab_sig(YPPlist(1,VARREF(YLgen_cacheG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_248 = YPfab_met(FUNCODEREF(fun_248),T414,YPfalse,LITREF(lit_123),sloc(746),YPfalse); T413 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_249 = YPfab_met(FUNCODEREF(fun_249),T413,YPfalse,LITREF(lit_124),sloc(746),YPfalse); T420 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T419 = (P)YPsig(T420,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T418 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T419,LITREF(lit_122),Ynil,YPfalse); VARSET(Ygen_cache_arg_pos,T418); T423 = fun_248; accessorF1031 = T423; XCALL2(1,VARREF(YPadd_met),VARREF(Ygen_cache_arg_pos),accessorF1031); xF1032 = accessorF1031; T421 = (P)YPprop_elt(xF1032,(P)2); (P)YPfun_info_name_setter(LITREF(lit_122),T421); xF1033 = accessorF1031; T422 = (P)YPprop_elt(xF1033,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T422); getterF1034 = accessorF1031; setterF1035 = YPfalse; T417 = fun_249; T416 = (P)YPPprop(VARREF(YLgen_cacheG),VARREF(Ygen_cache_arg_pos),YPfalse,VARREF(YLfixnumG),T417); propF1036 = T416; (P)YPmet_env_setter(propF1036,getterF1034); T415 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLgen_cacheG),propF1036); lit_125 = YPPsym((P)"gen-cache-singletons"); lit_126 = YPPlist(1,YPPsym((P)"x")); lit_127 = YPPlist(1,YPPsym((P)"x")); T425 = YPfab_sig(YPPlist(1,VARREF(YLgen_cacheG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_250 = YPfab_met(FUNCODEREF(fun_250),T425,YPfalse,LITREF(lit_126),sloc(746),YPfalse); T424 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_251 = YPfab_met(FUNCODEREF(fun_251),T424,YPfalse,LITREF(lit_127),sloc(746),YPfalse); T431 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T430 = (P)YPsig(T431,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T429 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T430,LITREF(lit_125),Ynil,YPfalse); VARSET(Ygen_cache_singletons,T429); T434 = fun_250; accessorF1037 = T434; XCALL2(1,VARREF(YPadd_met),VARREF(Ygen_cache_singletons),accessorF1037); xF1038 = accessorF1037; T432 = (P)YPprop_elt(xF1038,(P)2); (P)YPfun_info_name_setter(LITREF(lit_125),T432); xF1039 = accessorF1037; T433 = (P)YPprop_elt(xF1039,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T433); getterF1040 = accessorF1037; setterF1041 = YPfalse; T428 = fun_251; T427 = (P)YPPprop(VARREF(YLgen_cacheG),VARREF(Ygen_cache_singletons),YPfalse,VARREF(YLlstG),T428); propF1042 = T427; (P)YPmet_env_setter(propF1042,getterF1040); T426 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLgen_cacheG),propF1042); lit_128 = YPPsym((P)"gen-cache-classes"); lit_129 = YPPlist(1,YPPsym((P)"x")); lit_130 = YPPlist(1,YPPsym((P)"x")); T436 = YPfab_sig(YPPlist(1,VARREF(YLgen_cacheG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_252 = YPfab_met(FUNCODEREF(fun_252),T436,YPfalse,LITREF(lit_129),sloc(746),YPfalse); T435 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_253 = YPfab_met(FUNCODEREF(fun_253),T435,YPfalse,LITREF(lit_130),sloc(746),YPfalse); T442 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T441 = (P)YPsig(T442,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T440 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T441,LITREF(lit_128),Ynil,YPfalse); VARSET(Ygen_cache_classes,T440); T445 = fun_252; accessorF1043 = T445; XCALL2(1,VARREF(YPadd_met),VARREF(Ygen_cache_classes),accessorF1043); xF1044 = accessorF1043; T443 = (P)YPprop_elt(xF1044,(P)2); (P)YPfun_info_name_setter(LITREF(lit_128),T443); xF1045 = accessorF1043; T444 = (P)YPprop_elt(xF1045,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T444); getterF1046 = accessorF1043; setterF1047 = YPfalse; T439 = fun_253; T438 = (P)YPPprop(VARREF(YLgen_cacheG),VARREF(Ygen_cache_classes),YPfalse,VARREF(YLlstG),T439); propF1048 = T438; (P)YPmet_env_setter(propF1048,getterF1046); T437 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLgen_cacheG),propF1048); lit_131 = YPPsym((P)"sig-specs"); lit_132 = YPPlist(1,YPPsym((P)"x")); lit_133 = YPPsym((P)"sig-specs-setter"); lit_134 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_135 = YPPlist(1,YPPsym((P)"x")); T452 = YPfab_sig(YPPlist(1,VARREF(YLsigG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); T451 = fun_254 = YPfab_met(FUNCODEREF(fun_254),T452,YPfalse,LITREF(lit_132),sloc(746),YPfalse); T450 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLsigG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T449 = fun_255 = YPfab_met(FUNCODEREF(fun_255),T450,YPfalse,LITREF(lit_134),sloc(746),YPfalse); T448 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T447 = fun_256 = YPfab_met(FUNCODEREF(fun_256),T448,YPfalse,LITREF(lit_135),sloc(746),YPfalse); T465 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T464 = (P)YPsig(T465,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T463 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T464,LITREF(lit_131),Ynil,YPfalse); VARSET(Ysig_specs,T463); T468 = fun_254; accessorF1049 = T468; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_specs),accessorF1049); xF1050 = accessorF1049; T466 = (P)YPprop_elt(xF1050,(P)2); (P)YPfun_info_name_setter(LITREF(lit_131),T466); xF1051 = accessorF1049; T467 = (P)YPprop_elt(xF1051,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T467); getterF1052 = accessorF1049; T459 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T458 = (P)YPpair(VARREF(YLanyG),T459); T457 = (P)YPsig(T458,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T456 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T457,LITREF(lit_133),Ynil,YPfalse); VARSET(Ysig_specs_setter,T456); T462 = fun_255; accessorF1053 = T462; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_specs_setter),accessorF1053); xF1054 = accessorF1053; T460 = (P)YPprop_elt(xF1054,(P)2); (P)YPfun_info_name_setter(LITREF(lit_133),T460); xF1055 = accessorF1053; T461 = (P)YPprop_elt(xF1055,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T461); setterF1056 = accessorF1053; T455 = fun_256; T454 = (P)YPPprop(VARREF(YLsigG),VARREF(Ysig_specs),VARREF(Ysig_specs_setter),VARREF(YLlstG),T455); propF1057 = T454; (P)YPmet_env_setter(propF1057,getterF1052); (P)YPmet_env_setter(propF1057,setterF1056); T453 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsigG),propF1057); T446 = T453; return T446; } P Y___main_11___() { P propF1210; P setterF1209; P getterF1208; P xF1207; P xF1206; P accessorF1205; P propF1204; P setterF1203; P getterF1202; P xF1201; P xF1200; P accessorF1199; P propF1198; P setterF1197; P getterF1196; P xF1195; P xF1194; P accessorF1193; P propF1192; P setterF1191; P getterF1190; P xF1189; P xF1188; P accessorF1187; P propF1186; P setterF1185; P xF1184; P xF1183; P accessorF1182; P getterF1181; P xF1180; P xF1179; P accessorF1178; P propF1177; P setterF1176; P getterF1175; P xF1174; P xF1173; P accessorF1172; P propF1171; P setterF1170; P xF1169; P xF1168; P accessorF1167; P getterF1166; P xF1165; P xF1164; P accessorF1163; P propF1162; P setterF1161; P xF1160; P xF1159; P accessorF1158; P getterF1157; P xF1156; P xF1155; P accessorF1154; P propF1153; P setterF1152; P getterF1151; P xF1150; P xF1149; P accessorF1148; P propF1147; P setterF1146; P xF1145; P xF1144; P accessorF1143; P getterF1142; P xF1141; P xF1140; P accessorF1139; P propF1138; P setterF1137; P xF1136; P xF1135; P accessorF1134; P getterF1133; P xF1132; P xF1131; P accessorF1130; P propF1129; P setterF1128; P xF1127; P xF1126; P accessorF1125; P getterF1124; P xF1123; P xF1122; P accessorF1121; P propF1120; P setterF1119; P xF1118; P xF1117; P accessorF1116; P getterF1115; P xF1114; P xF1113; P accessorF1112; P propF1111; P setterF1110; P xF1109; P xF1108; P accessorF1107; P getterF1106; P xF1105; P xF1104; P accessorF1103; P propF1102; P setterF1101; P xF1100; P xF1099; P accessorF1098; P getterF1097; P xF1096; P xF1095; P accessorF1094; P propF1093; P setterF1092; P xF1091; P xF1090; P accessorF1089; P getterF1088; P xF1087; P xF1086; P accessorF1085; P propF1084; P setterF1083; P xF1082; P xF1081; P accessorF1080; P getterF1079; P xF1078; P xF1077; P accessorF1076; P propF1075; P setterF1074; P xF1073; P xF1072; P accessorF1071; P getterF1070; P xF1069; P xF1068; P accessorF1067; P propF1066; P setterF1065; P xF1064; P xF1063; P accessorF1062; P getterF1061; P xF1060; P xF1059; P accessorF1058; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181,T182,T183,T184,T185,T186,T187,T188,T189,T190,T191; P T192,T193,T194,T195,T196,T197,T198,T199,T200,T201,T202,T203,T204,T205,T206,T207; P T208,T209,T210,T211,T212,T213,T214,T215,T216,T217,T218,T219,T220,T221,T222,T223; P T224,T225,T226,T227,T228,T229,T230,T231,T232,T233,T234,T235,T236,T237,T238,T239; P T240,T241,T242,T243,T244,T245,T246,T247,T248,T249,T250,T251,T252,T253,T254,T255; P T256,T257,T258,T259,T260,T261,T262,T263,T264,T265,T266,T267,T268,T269,T270,T271; P T272,T273,T274,T275,T276,T277,T278,T279,T280,T281,T282,T283,T284,T285,T286,T287; P T288,T289,T290,T291,T292,T293,T294,T295,T296,T297,T298,T299,T300,T301,T302,T303; P T304,T305,T306,T307,T308,T309,T310,T311,T312,T313,T314,T315,T316,T317,T318; DEFCREGS(); lit_136 = YPPsym((P)"sig-nary?"); lit_137 = YPPlist(1,YPPsym((P)"x")); lit_138 = YPPsym((P)"sig-nary?-setter"); lit_139 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_140 = YPPlist(1,YPPsym((P)"x")); T2 = YPfab_sig(YPPlist(1,VARREF(YLsigG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_257 = YPfab_met(FUNCODEREF(fun_257),T2,YPfalse,LITREF(lit_137),sloc(746),YPfalse); T1 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YLsigG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_258 = YPfab_met(FUNCODEREF(fun_258),T1,YPfalse,LITREF(lit_139),sloc(746),YPfalse); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_259 = YPfab_met(FUNCODEREF(fun_259),T0,YPfalse,LITREF(lit_140),sloc(746),YPfalse); T15 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T14 = (P)YPsig(T15,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T13 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T14,LITREF(lit_136),Ynil,YPfalse); VARSET(Ysig_naryQ,T13); T18 = fun_257; accessorF1058 = T18; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_naryQ),accessorF1058); xF1059 = accessorF1058; T16 = (P)YPprop_elt(xF1059,(P)2); (P)YPfun_info_name_setter(LITREF(lit_136),T16); xF1060 = accessorF1058; T17 = (P)YPprop_elt(xF1060,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T17); getterF1061 = accessorF1058; T9 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T8 = (P)YPpair(VARREF(YLanyG),T9); T7 = (P)YPsig(T8,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T6 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T7,LITREF(lit_138),Ynil,YPfalse); VARSET(Ysig_naryQ_setter,T6); T12 = fun_258; accessorF1062 = T12; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_naryQ_setter),accessorF1062); xF1063 = accessorF1062; T10 = (P)YPprop_elt(xF1063,(P)2); (P)YPfun_info_name_setter(LITREF(lit_138),T10); xF1064 = accessorF1062; T11 = (P)YPprop_elt(xF1064,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T11); setterF1065 = accessorF1062; T5 = fun_259; T4 = (P)YPPprop(VARREF(YLsigG),VARREF(Ysig_naryQ),VARREF(Ysig_naryQ_setter),VARREF(YLlogG),T5); propF1066 = T4; (P)YPmet_env_setter(propF1066,getterF1061); (P)YPmet_env_setter(propF1066,setterF1065); T3 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsigG),propF1066); lit_141 = YPPsym((P)"sig-arity"); lit_142 = YPPlist(1,YPPsym((P)"x")); lit_143 = YPPsym((P)"sig-arity-setter"); lit_144 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_145 = YPPlist(1,YPPsym((P)"x")); T21 = YPfab_sig(YPPlist(1,VARREF(YLsigG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_260 = YPfab_met(FUNCODEREF(fun_260),T21,YPfalse,LITREF(lit_142),sloc(746),YPfalse); T20 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLsigG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_261 = YPfab_met(FUNCODEREF(fun_261),T20,YPfalse,LITREF(lit_144),sloc(746),YPfalse); T19 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_262 = YPfab_met(FUNCODEREF(fun_262),T19,YPfalse,LITREF(lit_145),sloc(746),YPfalse); T34 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T33 = (P)YPsig(T34,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T32 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T33,LITREF(lit_141),Ynil,YPfalse); VARSET(Ysig_arity,T32); T37 = fun_260; accessorF1067 = T37; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_arity),accessorF1067); xF1068 = accessorF1067; T35 = (P)YPprop_elt(xF1068,(P)2); (P)YPfun_info_name_setter(LITREF(lit_141),T35); xF1069 = accessorF1067; T36 = (P)YPprop_elt(xF1069,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T36); getterF1070 = accessorF1067; T28 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T27 = (P)YPpair(VARREF(YLanyG),T28); T26 = (P)YPsig(T27,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T25 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T26,LITREF(lit_143),Ynil,YPfalse); VARSET(Ysig_arity_setter,T25); T31 = fun_261; accessorF1071 = T31; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_arity_setter),accessorF1071); xF1072 = accessorF1071; T29 = (P)YPprop_elt(xF1072,(P)2); (P)YPfun_info_name_setter(LITREF(lit_143),T29); xF1073 = accessorF1071; T30 = (P)YPprop_elt(xF1073,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T30); setterF1074 = accessorF1071; T24 = fun_262; T23 = (P)YPPprop(VARREF(YLsigG),VARREF(Ysig_arity),VARREF(Ysig_arity_setter),VARREF(YLfixnumG),T24); propF1075 = T23; (P)YPmet_env_setter(propF1075,getterF1070); (P)YPmet_env_setter(propF1075,setterF1074); T22 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsigG),propF1075); lit_146 = YPPsym((P)"sig-val"); lit_147 = YPPlist(1,YPPsym((P)"x")); lit_148 = YPPsym((P)"sig-val-setter"); lit_149 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_150 = YPPlist(1,YPPsym((P)"x")); T40 = YPfab_sig(YPPlist(1,VARREF(YLsigG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_263 = YPfab_met(FUNCODEREF(fun_263),T40,YPfalse,LITREF(lit_147),sloc(746),YPfalse); T39 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsigG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_264 = YPfab_met(FUNCODEREF(fun_264),T39,YPfalse,LITREF(lit_149),sloc(746),YPfalse); T38 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_265 = YPfab_met(FUNCODEREF(fun_265),T38,YPfalse,LITREF(lit_150),sloc(746),YPfalse); T53 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T52 = (P)YPsig(T53,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T51 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T52,LITREF(lit_146),Ynil,YPfalse); VARSET(Ysig_val,T51); T56 = fun_263; accessorF1076 = T56; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_val),accessorF1076); xF1077 = accessorF1076; T54 = (P)YPprop_elt(xF1077,(P)2); (P)YPfun_info_name_setter(LITREF(lit_146),T54); xF1078 = accessorF1076; T55 = (P)YPprop_elt(xF1078,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T55); getterF1079 = accessorF1076; T47 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T46 = (P)YPpair(VARREF(YLanyG),T47); T45 = (P)YPsig(T46,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T44 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T45,LITREF(lit_148),Ynil,YPfalse); VARSET(Ysig_val_setter,T44); T50 = fun_264; accessorF1080 = T50; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_val_setter),accessorF1080); xF1081 = accessorF1080; T48 = (P)YPprop_elt(xF1081,(P)2); (P)YPfun_info_name_setter(LITREF(lit_148),T48); xF1082 = accessorF1080; T49 = (P)YPprop_elt(xF1082,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T49); setterF1083 = accessorF1080; T43 = fun_265; T42 = (P)YPPprop(VARREF(YLsigG),VARREF(Ysig_val),VARREF(Ysig_val_setter),VARREF(YLanyG),T43); propF1084 = T42; (P)YPmet_env_setter(propF1084,getterF1079); (P)YPmet_env_setter(propF1084,setterF1083); T41 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsigG),propF1084); lit_151 = YPPsym((P)"sig-unification-vars"); lit_152 = YPPlist(1,YPPsym((P)"x")); lit_153 = YPPsym((P)"sig-unification-vars-setter"); lit_154 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_155 = YPPlist(1,YPPsym((P)"x")); T59 = YPfab_sig(YPPlist(1,VARREF(YLsigG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_266 = YPfab_met(FUNCODEREF(fun_266),T59,YPfalse,LITREF(lit_152),sloc(746),YPfalse); T58 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLsigG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_267 = YPfab_met(FUNCODEREF(fun_267),T58,YPfalse,LITREF(lit_154),sloc(746),YPfalse); T57 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_268 = YPfab_met(FUNCODEREF(fun_268),T57,YPfalse,LITREF(lit_155),sloc(746),YPfalse); T72 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T71 = (P)YPsig(T72,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T70 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T71,LITREF(lit_151),Ynil,YPfalse); VARSET(Ysig_unification_vars,T70); T75 = fun_266; accessorF1085 = T75; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_unification_vars),accessorF1085); xF1086 = accessorF1085; T73 = (P)YPprop_elt(xF1086,(P)2); (P)YPfun_info_name_setter(LITREF(lit_151),T73); xF1087 = accessorF1085; T74 = (P)YPprop_elt(xF1087,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T74); getterF1088 = accessorF1085; T66 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T65 = (P)YPpair(VARREF(YLanyG),T66); T64 = (P)YPsig(T65,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T63 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T64,LITREF(lit_153),Ynil,YPfalse); VARSET(Ysig_unification_vars_setter,T63); T69 = fun_267; accessorF1089 = T69; XCALL2(1,VARREF(YPadd_met),VARREF(Ysig_unification_vars_setter),accessorF1089); xF1090 = accessorF1089; T67 = (P)YPprop_elt(xF1090,(P)2); (P)YPfun_info_name_setter(LITREF(lit_153),T67); xF1091 = accessorF1089; T68 = (P)YPprop_elt(xF1091,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T68); setterF1092 = accessorF1089; T62 = fun_268; T61 = (P)YPPprop(VARREF(YLsigG),VARREF(Ysig_unification_vars),VARREF(Ysig_unification_vars_setter),VARREF(YLlstG),T62); propF1093 = T61; (P)YPmet_env_setter(propF1093,getterF1088); (P)YPmet_env_setter(propF1093,setterF1092); T60 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLsigG),propF1093); lit_156 = YPPsym((P)"fun-info-name"); lit_157 = YPPlist(1,YPPsym((P)"x")); lit_158 = YPPsym((P)"fun-info-name-setter"); lit_159 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_160 = YPPlist(1,YPPsym((P)"x")); T78 = YPfab_sig(YPPlist(1,VARREF(YLfun_infoG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_269 = YPfab_met(FUNCODEREF(fun_269),T78,YPfalse,LITREF(lit_157),sloc(746),YPfalse); T77 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfun_infoG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_270 = YPfab_met(FUNCODEREF(fun_270),T77,YPfalse,LITREF(lit_159),sloc(746),YPfalse); T76 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_271 = YPfab_met(FUNCODEREF(fun_271),T76,YPfalse,LITREF(lit_160),sloc(746),YPfalse); T91 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T90 = (P)YPsig(T91,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T89 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T90,LITREF(lit_156),Ynil,YPfalse); VARSET(Yfun_info_name,T89); T94 = fun_269; accessorF1094 = T94; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_name),accessorF1094); xF1095 = accessorF1094; T92 = (P)YPprop_elt(xF1095,(P)2); (P)YPfun_info_name_setter(LITREF(lit_156),T92); xF1096 = accessorF1094; T93 = (P)YPprop_elt(xF1096,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T93); getterF1097 = accessorF1094; T85 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T84 = (P)YPpair(VARREF(YLanyG),T85); T83 = (P)YPsig(T84,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T82 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T83,LITREF(lit_158),Ynil,YPfalse); VARSET(Yfun_info_name_setter,T82); T88 = fun_270; accessorF1098 = T88; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_name_setter),accessorF1098); xF1099 = accessorF1098; T86 = (P)YPprop_elt(xF1099,(P)2); (P)YPfun_info_name_setter(LITREF(lit_158),T86); xF1100 = accessorF1098; T87 = (P)YPprop_elt(xF1100,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T87); setterF1101 = accessorF1098; T81 = fun_271; T80 = (P)YPPprop(VARREF(YLfun_infoG),VARREF(Yfun_info_name),VARREF(Yfun_info_name_setter),VARREF(YLanyG),T81); propF1102 = T80; (P)YPmet_env_setter(propF1102,getterF1097); (P)YPmet_env_setter(propF1102,setterF1101); T79 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfun_infoG),propF1102); lit_161 = YPPsym((P)"fun-info-names"); lit_162 = YPPlist(1,YPPsym((P)"x")); lit_163 = YPPsym((P)"fun-info-names-setter"); lit_164 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_165 = YPPlist(1,YPPsym((P)"x")); T97 = YPfab_sig(YPPlist(1,VARREF(YLfun_infoG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_272 = YPfab_met(FUNCODEREF(fun_272),T97,YPfalse,LITREF(lit_162),sloc(746),YPfalse); T96 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfun_infoG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_273 = YPfab_met(FUNCODEREF(fun_273),T96,YPfalse,LITREF(lit_164),sloc(746),YPfalse); T95 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_274 = YPfab_met(FUNCODEREF(fun_274),T95,YPfalse,LITREF(lit_165),sloc(746),YPfalse); T110 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T109 = (P)YPsig(T110,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T108 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T109,LITREF(lit_161),Ynil,YPfalse); VARSET(Yfun_info_names,T108); T113 = fun_272; accessorF1103 = T113; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_names),accessorF1103); xF1104 = accessorF1103; T111 = (P)YPprop_elt(xF1104,(P)2); (P)YPfun_info_name_setter(LITREF(lit_161),T111); xF1105 = accessorF1103; T112 = (P)YPprop_elt(xF1105,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T112); getterF1106 = accessorF1103; T104 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T103 = (P)YPpair(VARREF(YLanyG),T104); T102 = (P)YPsig(T103,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T101 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T102,LITREF(lit_163),Ynil,YPfalse); VARSET(Yfun_info_names_setter,T101); T107 = fun_273; accessorF1107 = T107; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_names_setter),accessorF1107); xF1108 = accessorF1107; T105 = (P)YPprop_elt(xF1108,(P)2); (P)YPfun_info_name_setter(LITREF(lit_163),T105); xF1109 = accessorF1107; T106 = (P)YPprop_elt(xF1109,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T106); setterF1110 = accessorF1107; T100 = fun_274; T99 = (P)YPPprop(VARREF(YLfun_infoG),VARREF(Yfun_info_names),VARREF(Yfun_info_names_setter),VARREF(YLlstG),T100); propF1111 = T99; (P)YPmet_env_setter(propF1111,getterF1106); (P)YPmet_env_setter(propF1111,setterF1110); T98 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfun_infoG),propF1111); lit_166 = YPPsym((P)"fun-info-src-loc"); lit_167 = YPPlist(1,YPPsym((P)"x")); lit_168 = YPPsym((P)"fun-info-src-loc-setter"); lit_169 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_170 = YPPlist(1,YPPsym((P)"x")); T116 = YPfab_sig(YPPlist(1,VARREF(YLfun_infoG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_275 = YPfab_met(FUNCODEREF(fun_275),T116,YPfalse,LITREF(lit_167),sloc(746),YPfalse); T115 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfun_infoG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_276 = YPfab_met(FUNCODEREF(fun_276),T115,YPfalse,LITREF(lit_169),sloc(746),YPfalse); T114 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_277 = YPfab_met(FUNCODEREF(fun_277),T114,YPfalse,LITREF(lit_170),sloc(746),YPfalse); T129 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T128 = (P)YPsig(T129,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T127 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T128,LITREF(lit_166),Ynil,YPfalse); VARSET(Yfun_info_src_loc,T127); T132 = fun_275; accessorF1112 = T132; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_src_loc),accessorF1112); xF1113 = accessorF1112; T130 = (P)YPprop_elt(xF1113,(P)2); (P)YPfun_info_name_setter(LITREF(lit_166),T130); xF1114 = accessorF1112; T131 = (P)YPprop_elt(xF1114,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T131); getterF1115 = accessorF1112; T123 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T122 = (P)YPpair(VARREF(YLanyG),T123); T121 = (P)YPsig(T122,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T120 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T121,LITREF(lit_168),Ynil,YPfalse); VARSET(Yfun_info_src_loc_setter,T120); T126 = fun_276; accessorF1116 = T126; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_src_loc_setter),accessorF1116); xF1117 = accessorF1116; T124 = (P)YPprop_elt(xF1117,(P)2); (P)YPfun_info_name_setter(LITREF(lit_168),T124); xF1118 = accessorF1116; T125 = (P)YPprop_elt(xF1118,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T125); setterF1119 = accessorF1116; T119 = fun_277; T118 = (P)YPPprop(VARREF(YLfun_infoG),VARREF(Yfun_info_src_loc),VARREF(Yfun_info_src_loc_setter),VARREF(YLanyG),T119); propF1120 = T118; (P)YPmet_env_setter(propF1120,getterF1115); (P)YPmet_env_setter(propF1120,setterF1119); T117 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfun_infoG),propF1120); lit_171 = YPPsym((P)"fun-info-src"); lit_172 = YPPlist(1,YPPsym((P)"x")); lit_173 = YPPsym((P)"fun-info-src-setter"); lit_174 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_175 = YPPlist(1,YPPsym((P)"x")); T135 = YPfab_sig(YPPlist(1,VARREF(YLfun_infoG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_278 = YPfab_met(FUNCODEREF(fun_278),T135,YPfalse,LITREF(lit_172),sloc(746),YPfalse); T134 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfun_infoG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_279 = YPfab_met(FUNCODEREF(fun_279),T134,YPfalse,LITREF(lit_174),sloc(746),YPfalse); T133 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_280 = YPfab_met(FUNCODEREF(fun_280),T133,YPfalse,LITREF(lit_175),sloc(746),YPfalse); T148 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T147 = (P)YPsig(T148,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T146 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T147,LITREF(lit_171),Ynil,YPfalse); VARSET(Yfun_info_src,T146); T151 = fun_278; accessorF1121 = T151; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_src),accessorF1121); xF1122 = accessorF1121; T149 = (P)YPprop_elt(xF1122,(P)2); (P)YPfun_info_name_setter(LITREF(lit_171),T149); xF1123 = accessorF1121; T150 = (P)YPprop_elt(xF1123,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T150); getterF1124 = accessorF1121; T142 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T141 = (P)YPpair(VARREF(YLanyG),T142); T140 = (P)YPsig(T141,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T139 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T140,LITREF(lit_173),Ynil,YPfalse); VARSET(Yfun_info_src_setter,T139); T145 = fun_279; accessorF1125 = T145; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_src_setter),accessorF1125); xF1126 = accessorF1125; T143 = (P)YPprop_elt(xF1126,(P)2); (P)YPfun_info_name_setter(LITREF(lit_173),T143); xF1127 = accessorF1125; T144 = (P)YPprop_elt(xF1127,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T144); setterF1128 = accessorF1125; T138 = fun_280; T137 = (P)YPPprop(VARREF(YLfun_infoG),VARREF(Yfun_info_src),VARREF(Yfun_info_src_setter),VARREF(YLanyG),T138); propF1129 = T137; (P)YPmet_env_setter(propF1129,getterF1124); (P)YPmet_env_setter(propF1129,setterF1128); T136 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfun_infoG),propF1129); lit_176 = YPPsym((P)"fun-info-count"); lit_177 = YPPlist(1,YPPsym((P)"x")); lit_178 = YPPsym((P)"fun-info-count-setter"); lit_179 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_180 = YPPlist(1,YPPsym((P)"x")); T154 = YPfab_sig(YPPlist(1,VARREF(YLfun_infoG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_281 = YPfab_met(FUNCODEREF(fun_281),T154,YPfalse,LITREF(lit_177),sloc(746),YPfalse); T153 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLfun_infoG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_282 = YPfab_met(FUNCODEREF(fun_282),T153,YPfalse,LITREF(lit_179),sloc(746),YPfalse); T152 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_283 = YPfab_met(FUNCODEREF(fun_283),T152,YPfalse,LITREF(lit_180),sloc(746),YPfalse); T167 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T166 = (P)YPsig(T167,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T165 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T166,LITREF(lit_176),Ynil,YPfalse); VARSET(Yfun_info_count,T165); T170 = fun_281; accessorF1130 = T170; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_count),accessorF1130); xF1131 = accessorF1130; T168 = (P)YPprop_elt(xF1131,(P)2); (P)YPfun_info_name_setter(LITREF(lit_176),T168); xF1132 = accessorF1130; T169 = (P)YPprop_elt(xF1132,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T169); getterF1133 = accessorF1130; T161 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T160 = (P)YPpair(VARREF(YLanyG),T161); T159 = (P)YPsig(T160,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T158 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T159,LITREF(lit_178),Ynil,YPfalse); VARSET(Yfun_info_count_setter,T158); T164 = fun_282; accessorF1134 = T164; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_count_setter),accessorF1134); xF1135 = accessorF1134; T162 = (P)YPprop_elt(xF1135,(P)2); (P)YPfun_info_name_setter(LITREF(lit_178),T162); xF1136 = accessorF1134; T163 = (P)YPprop_elt(xF1136,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T163); setterF1137 = accessorF1134; T157 = fun_283; T156 = (P)YPPprop(VARREF(YLfun_infoG),VARREF(Yfun_info_count),VARREF(Yfun_info_count_setter),VARREF(YLintG),T157); propF1138 = T156; (P)YPmet_env_setter(propF1138,getterF1133); (P)YPmet_env_setter(propF1138,setterF1137); T155 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfun_infoG),propF1138); lit_181 = YPPsym((P)"fun-info-inlineable?"); lit_182 = YPPlist(1,YPPsym((P)"x")); lit_183 = YPPsym((P)"fun-info-inlineable?-setter"); lit_184 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_185 = YPPlist(1,YPPsym((P)"x")); T173 = YPfab_sig(YPPlist(1,VARREF(YLfun_infoG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_284 = YPfab_met(FUNCODEREF(fun_284),T173,YPfalse,LITREF(lit_182),sloc(746),YPfalse); T172 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YLfun_infoG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_285 = YPfab_met(FUNCODEREF(fun_285),T172,YPfalse,LITREF(lit_184),sloc(746),YPfalse); T171 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_286 = YPfab_met(FUNCODEREF(fun_286),T171,YPfalse,LITREF(lit_185),sloc(746),YPfalse); T186 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T185 = (P)YPsig(T186,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T184 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T185,LITREF(lit_181),Ynil,YPfalse); VARSET(Yfun_info_inlineableQ,T184); T189 = fun_284; accessorF1139 = T189; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_inlineableQ),accessorF1139); xF1140 = accessorF1139; T187 = (P)YPprop_elt(xF1140,(P)2); (P)YPfun_info_name_setter(LITREF(lit_181),T187); xF1141 = accessorF1139; T188 = (P)YPprop_elt(xF1141,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T188); getterF1142 = accessorF1139; T180 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T179 = (P)YPpair(VARREF(YLanyG),T180); T178 = (P)YPsig(T179,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T177 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T178,LITREF(lit_183),Ynil,YPfalse); VARSET(Yfun_info_inlineableQ_setter,T177); T183 = fun_285; accessorF1143 = T183; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_inlineableQ_setter),accessorF1143); xF1144 = accessorF1143; T181 = (P)YPprop_elt(xF1144,(P)2); (P)YPfun_info_name_setter(LITREF(lit_183),T181); xF1145 = accessorF1143; T182 = (P)YPprop_elt(xF1145,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T182); setterF1146 = accessorF1143; T176 = fun_286; T175 = (P)YPPprop(VARREF(YLfun_infoG),VARREF(Yfun_info_inlineableQ),VARREF(Yfun_info_inlineableQ_setter),VARREF(YLlogG),T176); propF1147 = T175; (P)YPmet_env_setter(propF1147,getterF1142); (P)YPmet_env_setter(propF1147,setterF1146); T174 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfun_infoG),propF1147); lit_186 = YPPsym((P)"fun-code"); lit_187 = YPPlist(1,YPPsym((P)"x")); lit_188 = YPPlist(1,YPPsym((P)"x")); T191 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_287 = YPfab_met(FUNCODEREF(fun_287),T191,YPfalse,LITREF(lit_187),sloc(746),YPfalse); T190 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_288 = YPfab_met(FUNCODEREF(fun_288),T190,YPfalse,LITREF(lit_188),sloc(746),YPfalse); T197 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T196 = (P)YPsig(T197,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T195 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T196,LITREF(lit_186),Ynil,YPfalse); VARSET(Yfun_code,T195); T200 = fun_287; accessorF1148 = T200; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_code),accessorF1148); xF1149 = accessorF1148; T198 = (P)YPprop_elt(xF1149,(P)2); (P)YPfun_info_name_setter(LITREF(lit_186),T198); xF1150 = accessorF1148; T199 = (P)YPprop_elt(xF1150,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T199); getterF1151 = accessorF1148; setterF1152 = YPfalse; T194 = fun_288; T193 = (P)YPPprop(VARREF(YLfunG),VARREF(Yfun_code),YPfalse,VARREF(YLanyG),T194); propF1153 = T193; (P)YPmet_env_setter(propF1153,getterF1151); T192 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfunG),propF1153); lit_189 = YPPsym((P)"fun-sig"); lit_190 = YPPlist(1,YPPsym((P)"x")); lit_191 = YPPsym((P)"fun-sig-setter"); lit_192 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_193 = YPPlist(1,YPPsym((P)"x")); T203 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLsigG),Ynil); fun_289 = YPfab_met(FUNCODEREF(fun_289),T203,YPfalse,LITREF(lit_190),sloc(746),YPfalse); T202 = YPfab_sig(YPPlist(2,VARREF(YLsigG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_290 = YPfab_met(FUNCODEREF(fun_290),T202,YPfalse,LITREF(lit_192),sloc(746),YPfalse); T201 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_291 = YPfab_met(FUNCODEREF(fun_291),T201,YPfalse,LITREF(lit_193),sloc(746),YPfalse); T216 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T215 = (P)YPsig(T216,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T214 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T215,LITREF(lit_189),Ynil,YPfalse); VARSET(Yfun_sig,T214); T219 = fun_289; accessorF1154 = T219; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_sig),accessorF1154); xF1155 = accessorF1154; T217 = (P)YPprop_elt(xF1155,(P)2); (P)YPfun_info_name_setter(LITREF(lit_189),T217); xF1156 = accessorF1154; T218 = (P)YPprop_elt(xF1156,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T218); getterF1157 = accessorF1154; T210 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T209 = (P)YPpair(VARREF(YLanyG),T210); T208 = (P)YPsig(T209,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T207 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T208,LITREF(lit_191),Ynil,YPfalse); VARSET(Yfun_sig_setter,T207); T213 = fun_290; accessorF1158 = T213; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_sig_setter),accessorF1158); xF1159 = accessorF1158; T211 = (P)YPprop_elt(xF1159,(P)2); (P)YPfun_info_name_setter(LITREF(lit_191),T211); xF1160 = accessorF1158; T212 = (P)YPprop_elt(xF1160,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T212); setterF1161 = accessorF1158; T206 = fun_291; T205 = (P)YPPprop(VARREF(YLfunG),VARREF(Yfun_sig),VARREF(Yfun_sig_setter),VARREF(YLsigG),T206); propF1162 = T205; (P)YPmet_env_setter(propF1162,getterF1157); (P)YPmet_env_setter(propF1162,setterF1161); T204 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfunG),propF1162); lit_194 = YPPsym((P)"fun-info"); lit_195 = YPPlist(1,YPPsym((P)"x")); lit_196 = YPPsym((P)"fun-info-setter"); lit_197 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_198 = YPPlist(1,YPPsym((P)"x")); T222 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_292 = YPfab_met(FUNCODEREF(fun_292),T222,YPfalse,LITREF(lit_195),sloc(746),YPfalse); T221 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_293 = YPfab_met(FUNCODEREF(fun_293),T221,YPfalse,LITREF(lit_197),sloc(746),YPfalse); T220 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_294 = YPfab_met(FUNCODEREF(fun_294),T220,YPfalse,LITREF(lit_198),sloc(746),YPfalse); T235 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T234 = (P)YPsig(T235,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T233 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T234,LITREF(lit_194),Ynil,YPfalse); VARSET(Yfun_info,T233); T238 = fun_292; accessorF1163 = T238; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info),accessorF1163); xF1164 = accessorF1163; T236 = (P)YPprop_elt(xF1164,(P)2); (P)YPfun_info_name_setter(LITREF(lit_194),T236); xF1165 = accessorF1163; T237 = (P)YPprop_elt(xF1165,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T237); getterF1166 = accessorF1163; T229 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T228 = (P)YPpair(VARREF(YLanyG),T229); T227 = (P)YPsig(T228,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T226 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T227,LITREF(lit_196),Ynil,YPfalse); VARSET(Yfun_info_setter,T226); T232 = fun_293; accessorF1167 = T232; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_info_setter),accessorF1167); xF1168 = accessorF1167; T230 = (P)YPprop_elt(xF1168,(P)2); (P)YPfun_info_name_setter(LITREF(lit_196),T230); xF1169 = accessorF1167; T231 = (P)YPprop_elt(xF1169,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T231); setterF1170 = accessorF1167; T225 = fun_294; T224 = (P)YPPprop(VARREF(YLfunG),VARREF(Yfun_info),VARREF(Yfun_info_setter),VARREF(YLanyG),T225); propF1171 = T224; (P)YPmet_env_setter(propF1171,getterF1166); (P)YPmet_env_setter(propF1171,setterF1170); T223 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLfunG),propF1171); lit_199 = YPPsym((P)"fun-env"); lit_200 = YPPlist(1,YPPsym((P)"x")); lit_201 = YPPlist(1,YPPsym((P)"x")); T240 = YPfab_sig(YPPlist(1,VARREF(YLmetG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_295 = YPfab_met(FUNCODEREF(fun_295),T240,YPfalse,LITREF(lit_200),sloc(746),YPfalse); T239 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_296 = YPfab_met(FUNCODEREF(fun_296),T239,YPfalse,LITREF(lit_201),sloc(746),YPfalse); T246 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T245 = (P)YPsig(T246,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T244 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T245,LITREF(lit_199),Ynil,YPfalse); VARSET(Yfun_env,T244); T249 = fun_295; accessorF1172 = T249; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_env),accessorF1172); xF1173 = accessorF1172; T247 = (P)YPprop_elt(xF1173,(P)2); (P)YPfun_info_name_setter(LITREF(lit_199),T247); xF1174 = accessorF1172; T248 = (P)YPprop_elt(xF1174,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T248); getterF1175 = accessorF1172; setterF1176 = YPfalse; T243 = fun_296; T242 = (P)YPPprop(VARREF(YLmetG),VARREF(Yfun_env),YPfalse,VARREF(YLanyG),T243); propF1177 = T242; (P)YPmet_env_setter(propF1177,getterF1175); T241 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLmetG),propF1177); lit_202 = YPPsym((P)"fun-mets"); lit_203 = YPPlist(1,YPPsym((P)"x")); lit_204 = YPPsym((P)"fun-mets-setter"); lit_205 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); lit_206 = YPPlist(1,YPPsym((P)"x")); T252 = YPfab_sig(YPPlist(1,VARREF(YLgenG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_297 = YPfab_met(FUNCODEREF(fun_297),T252,YPfalse,LITREF(lit_203),sloc(746),YPfalse); T251 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLgenG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_298 = YPfab_met(FUNCODEREF(fun_298),T251,YPfalse,LITREF(lit_205),sloc(746),YPfalse); T250 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_299 = YPfab_met(FUNCODEREF(fun_299),T250,YPfalse,LITREF(lit_206),sloc(746),YPfalse); T265 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T264 = (P)YPsig(T265,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T263 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T264,LITREF(lit_202),Ynil,YPfalse); VARSET(Yfun_mets,T263); T268 = fun_297; accessorF1178 = T268; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_mets),accessorF1178); xF1179 = accessorF1178; T266 = (P)YPprop_elt(xF1179,(P)2); (P)YPfun_info_name_setter(LITREF(lit_202),T266); xF1180 = accessorF1178; T267 = (P)YPprop_elt(xF1180,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T267); getterF1181 = accessorF1178; T259 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T258 = (P)YPpair(VARREF(YLanyG),T259); T257 = (P)YPsig(T258,YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T256 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T257,LITREF(lit_204),Ynil,YPfalse); VARSET(Yfun_mets_setter,T256); T262 = fun_298; accessorF1182 = T262; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_mets_setter),accessorF1182); xF1183 = accessorF1182; T260 = (P)YPprop_elt(xF1183,(P)2); (P)YPfun_info_name_setter(LITREF(lit_204),T260); xF1184 = accessorF1182; T261 = (P)YPprop_elt(xF1184,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T261); setterF1185 = accessorF1182; T255 = fun_299; T254 = (P)YPPprop(VARREF(YLgenG),VARREF(Yfun_mets),VARREF(Yfun_mets_setter),VARREF(YLlstG),T255); propF1186 = T254; (P)YPmet_env_setter(propF1186,getterF1181); (P)YPmet_env_setter(propF1186,setterF1185); T253 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLgenG),propF1186); lit_207 = YPPsym((P)"fun-cache"); lit_208 = YPPlist(1,YPPsym((P)"x")); lit_209 = YPPlist(1,YPPsym((P)"x")); T270 = YPfab_sig(YPPlist(1,VARREF(YLgenG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_300 = YPfab_met(FUNCODEREF(fun_300),T270,YPfalse,LITREF(lit_208),sloc(746),YPfalse); T269 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_301 = YPfab_met(FUNCODEREF(fun_301),T269,YPfalse,LITREF(lit_209),sloc(746),YPfalse); T276 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T275 = (P)YPsig(T276,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T274 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T275,LITREF(lit_207),Ynil,YPfalse); VARSET(Yfun_cache,T274); T279 = fun_300; accessorF1187 = T279; XCALL2(1,VARREF(YPadd_met),VARREF(Yfun_cache),accessorF1187); xF1188 = accessorF1187; T277 = (P)YPprop_elt(xF1188,(P)2); (P)YPfun_info_name_setter(LITREF(lit_207),T277); xF1189 = accessorF1187; T278 = (P)YPprop_elt(xF1189,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T278); getterF1190 = accessorF1187; setterF1191 = YPfalse; T273 = fun_301; T272 = (P)YPPprop(VARREF(YLgenG),VARREF(Yfun_cache),YPfalse,VARREF(YLanyG),T273); propF1192 = T272; (P)YPmet_env_setter(propF1192,getterF1190); T271 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLgenG),propF1192); lit_210 = YPPsym((P)"opts-location"); lit_211 = YPPlist(1,YPPsym((P)"x")); lit_212 = YPPlist(1,YPPsym((P)"x")); T281 = YPfab_sig(YPPlist(1,VARREF(YLoptsG)),YPfalse,YPint((P)1),VARREF(YLlocG),Ynil); fun_302 = YPfab_met(FUNCODEREF(fun_302),T281,YPfalse,LITREF(lit_211),sloc(746),YPfalse); T280 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_303 = YPfab_met(FUNCODEREF(fun_303),T280,YPfalse,LITREF(lit_212),sloc(746),YPfalse); T287 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T286 = (P)YPsig(T287,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T285 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T286,LITREF(lit_210),Ynil,YPfalse); VARSET(Yopts_location,T285); T290 = fun_302; accessorF1193 = T290; XCALL2(1,VARREF(YPadd_met),VARREF(Yopts_location),accessorF1193); xF1194 = accessorF1193; T288 = (P)YPprop_elt(xF1194,(P)2); (P)YPfun_info_name_setter(LITREF(lit_210),T288); xF1195 = accessorF1193; T289 = (P)YPprop_elt(xF1195,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T289); getterF1196 = accessorF1193; setterF1197 = YPfalse; T284 = fun_303; T283 = (P)YPPprop(VARREF(YLoptsG),VARREF(Yopts_location),YPfalse,VARREF(YLlocG),T284); propF1198 = T283; (P)YPmet_env_setter(propF1198,getterF1196); T282 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLoptsG),propF1198); lit_213 = YPPsym((P)"opts-count"); lit_214 = YPPlist(1,YPPsym((P)"x")); lit_215 = YPPlist(1,YPPsym((P)"x")); T292 = YPfab_sig(YPPlist(1,VARREF(YLoptsG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_304 = YPfab_met(FUNCODEREF(fun_304),T292,YPfalse,LITREF(lit_214),sloc(746),YPfalse); T291 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_305 = YPfab_met(FUNCODEREF(fun_305),T291,YPfalse,LITREF(lit_215),sloc(746),YPfalse); T298 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T297 = (P)YPsig(T298,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T296 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T297,LITREF(lit_213),Ynil,YPfalse); VARSET(Yopts_count,T296); T301 = fun_304; accessorF1199 = T301; XCALL2(1,VARREF(YPadd_met),VARREF(Yopts_count),accessorF1199); xF1200 = accessorF1199; T299 = (P)YPprop_elt(xF1200,(P)2); (P)YPfun_info_name_setter(LITREF(lit_213),T299); xF1201 = accessorF1199; T300 = (P)YPprop_elt(xF1201,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T300); getterF1202 = accessorF1199; setterF1203 = YPfalse; T295 = fun_305; T294 = (P)YPPprop(VARREF(YLoptsG),VARREF(Yopts_count),YPfalse,VARREF(YLfixnumG),T295); propF1204 = T294; (P)YPmet_env_setter(propF1204,getterF1202); T293 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLoptsG),propF1204); lit_216 = YPPsym((P)"opts-tup-storage"); lit_217 = YPPlist(1,YPPsym((P)"x")); lit_218 = YPPlist(1,YPPsym((P)"x")); T303 = YPfab_sig(YPPlist(1,VARREF(YLopts_tupG)),YPfalse,YPint((P)1),VARREF(YLtupG),Ynil); fun_306 = YPfab_met(FUNCODEREF(fun_306),T303,YPfalse,LITREF(lit_217),sloc(746),YPfalse); T302 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_307 = YPfab_met(FUNCODEREF(fun_307),T302,YPfalse,LITREF(lit_218),sloc(746),YPfalse); T309 = (P)YPpair(VARREF(YLanyG),VARREF(Ynil)); T308 = (P)YPsig(T309,YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T307 = (P)YPfab_genScode(VARREF(YPearly_dispatch),T308,LITREF(lit_216),Ynil,YPfalse); VARSET(Yopts_tup_storage,T307); T312 = fun_306; accessorF1205 = T312; XCALL2(1,VARREF(YPadd_met),VARREF(Yopts_tup_storage),accessorF1205); xF1206 = accessorF1205; T310 = (P)YPprop_elt(xF1206,(P)2); (P)YPfun_info_name_setter(LITREF(lit_216),T310); xF1207 = accessorF1205; T311 = (P)YPprop_elt(xF1207,(P)2); (P)YPfun_info_inlineableQ_setter(YPtrue,T311); getterF1208 = accessorF1205; setterF1209 = YPfalse; T306 = fun_307; T305 = (P)YPPprop(VARREF(YLopts_tupG),VARREF(Yopts_tup_storage),YPfalse,VARREF(YLtupG),T306); propF1210 = T305; (P)YPmet_env_setter(propF1210,getterF1208); T304 = XCALL2(1,VARREF(YPadd_prop),VARREF(YLopts_tupG),propF1210); lit_219 = YPPsym((P)"%collect-direct-props"); lit_220 = YPPlist(1,YPPsym((P)"class")); T313 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YPcollect_direct_props = YPfab_met(FUNCODEREF(YPcollect_direct_props),T313,LITREF(lit_219),LITREF(lit_220),sloc(754),YPfalse); T314 = YPcollect_direct_props; VARSET(YPcollect_direct_props,T314); lit_221 = YPPsym((P)"%finalize-props!"); lit_222 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"class")); T315 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YPfinalize_propsX = YPfab_met(FUNCODEREF(YPfinalize_propsX),T315,LITREF(lit_221),LITREF(lit_222),sloc(758),YPfalse); T316 = YPfinalize_propsX; VARSET(YPfinalize_propsX,T316); lit_223 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_223),VARREF(YLanyG)); lit_224 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_224),VARREF(YLlogG)); lit_225 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_225),VARREF(YLboxG)); lit_226 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_226),VARREF(YLmagG)); lit_227 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_227),VARREF(YLchrG)); lit_228 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_228),VARREF(YLsrc_locG)); lit_229 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_229),VARREF(YLnumG)); lit_230 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_230),VARREF(YLintG)); lit_231 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_231),VARREF(YLfixnumG)); lit_232 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_232),VARREF(YLbignumG)); lit_233 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_233),VARREF(YLfloG)); lit_234 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_234),VARREF(YLlocG)); lit_235 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_235),VARREF(YLrepG)); lit_236 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_236),VARREF(YLcolG)); lit_237 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_237),VARREF(YLcolIG)); lit_238 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_238),VARREF(YLcolXG)); lit_239 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_239),VARREF(YLseqG)); lit_240 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_240),VARREF(YLseqIG)); lit_241 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_241),VARREF(YLseqXG)); lit_242 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_242),VARREF(YLlstG)); lit_243 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_243),VARREF(YLflatG)); lit_244 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_244),VARREF(YLtupG)); lit_245 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_245),VARREF(YLstrG)); lit_246 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_246),VARREF(YLsymG)); lit_247 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_247),VARREF(YLtypeG)); lit_248 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_248),VARREF(YLclassG)); lit_249 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_249),VARREF(YLsingletonG)); lit_250 = YPPsym((P)""); T318 = XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_250),VARREF(YLsubclassG)); T317 = T318; return T317; } P Y___main_12___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48; DEFCREGS(); lit_251 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_251),VARREF(YLunionG)); lit_252 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_252),VARREF(YLproductG)); lit_253 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_253),VARREF(YLpropG)); lit_254 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_254),VARREF(YLgen_cacheG)); lit_255 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_255),VARREF(YLsigG)); lit_256 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_256),VARREF(YLfun_infoG)); lit_257 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_257),VARREF(YLfunG)); lit_258 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_258),VARREF(YLmetG)); lit_259 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_259),VARREF(YLgenG)); lit_260 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_260),VARREF(YLoptsG)); lit_261 = YPPsym((P)""); XCALL2(1,VARREF(YPfinalize_propsX),LITREF(lit_261),VARREF(YLopts_tupG)); lit_262 = YPPsym((P)"@@=="); lit_263 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YOOEE = YPfab_met(FUNCODEREF(YOOEE),T0,LITREF(lit_262),LITREF(lit_263),sloc(800),YPfalse); T1 = YOOEE; VARSET(YOOEE,T1); lit_264 = YPPsym((P)"not"); lit_265 = YPPlist(1,YPPsym((P)"x")); T2 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); Ynot = YPfab_met_inlineable(FUNCODEREF(Ynot),T2,LITREF(lit_264),LITREF(lit_265),sloc(802),YPfalse); T3 = Ynot; VARSET(Ynot,T3); lit_266 = YPPsym((P)"@@nul?"); lit_267 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YOOnulQ = YPfab_met(FUNCODEREF(YOOnulQ),T4,LITREF(lit_266),LITREF(lit_267),sloc(808),YPfalse); T5 = YOOnulQ; VARSET(YOOnulQ,T5); lit_268 = YPPsym((P)"@rev!"); lit_269 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YOrevX = YPfab_met(FUNCODEREF(YOrevX),T6,LITREF(lit_268),LITREF(lit_269),sloc(810),YPfalse); T7 = YOrevX; VARSET(YOrevX,T7); lit_270 = YPPsym((P)"@all?"); lit_271 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"c")); T8 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YOallQ = YPfab_met(FUNCODEREF(YOallQ),T8,LITREF(lit_270),LITREF(lit_271),sloc(820),YPfalse); T9 = YOallQ; VARSET(YOallQ,T9); lit_272 = YPPsym((P)"@all2?"); lit_273 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"x"),YPPsym((P)"y")); T10 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); YOall2Q = YPfab_met(FUNCODEREF(YOall2Q),T10,LITREF(lit_272),LITREF(lit_273),sloc(824),YPfalse); T11 = YOall2Q; VARSET(YOall2Q,T11); lit_274 = YPPsym((P)"@elt"); lit_275 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"key")); T12 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YOelt = YPfab_met(FUNCODEREF(YOelt),T12,LITREF(lit_274),LITREF(lit_275),sloc(834),YPfalse); T13 = YOelt; VARSET(YOelt,T13); lit_276 = YPPsym((P)"@fill"); lit_277 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"f")); T14 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YOfill = YPfab_met(FUNCODEREF(YOfill),T14,LITREF(lit_276),LITREF(lit_277),sloc(840),YPfalse); T15 = YOfill; VARSET(YOfill,T15); lit_278 = YPPsym((P)"@any?"); lit_279 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"c")); T16 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YOanyQ = YPfab_met(FUNCODEREF(YOanyQ),T16,LITREF(lit_278),LITREF(lit_279),sloc(844),YPfalse); T17 = YOanyQ; VARSET(YOanyQ,T17); lit_280 = YPPsym((P)"fab-pair"); lit_281 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T18 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); Yfab_pair = YPfab_met(FUNCODEREF(Yfab_pair),T18,LITREF(lit_280),LITREF(lit_281),sloc(849),YPfalse); T19 = Yfab_pair; VARSET(Yfab_pair,T19); lit_282 = YPPsym((P)"@map"); lit_283 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T20 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YOmap = YPfab_met(FUNCODEREF(YOmap),T20,LITREF(lit_282),LITREF(lit_283),sloc(856),YPfalse); T21 = YOmap; VARSET(YOmap,T21); lit_284 = YPPsym((P)"@pick"); lit_285 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T22 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YOpick = YPfab_met(FUNCODEREF(YOpick),T22,LITREF(lit_284),LITREF(lit_285),sloc(862),YPfalse); T23 = YOpick; VARSET(YOpick,T23); lit_286 = YPPsym((P)"@do"); lit_287 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T24 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YOdo = YPfab_met(FUNCODEREF(YOdo),T24,LITREF(lit_286),LITREF(lit_287),sloc(868),YPfalse); T25 = YOdo; VARSET(YOdo,T25); lit_288 = YPPsym((P)"@alter"); lit_289 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"src")); T26 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YOalter = YPfab_met(FUNCODEREF(YOalter),T26,LITREF(lit_288),LITREF(lit_289),sloc(874),YPfalse); T27 = YOalter; VARSET(YOalter,T27); lit_290 = YPPsym((P)"@fab"); lit_291 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T28 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YOfab = YPfab_met(FUNCODEREF(YOfab),T28,LITREF(lit_290),LITREF(lit_291),sloc(881),YPfalse); T29 = YOfab; VARSET(YOfab,T29); lit_292 = YPPsym((P)"@fold"); lit_293 = YPPlist(3,YPPsym((P)"combine"),YPPsym((P)"init"),YPPsym((P)"c")); T30 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)3),VARREF(YLlstG),Ynil); YOfold = YPfab_met(FUNCODEREF(YOfold),T30,LITREF(lit_292),LITREF(lit_293),sloc(885),YPfalse); T31 = YOfold; VARSET(YOfold,T31); lit_294 = YPPsym((P)"@rev"); lit_295 = YPPlist(1,YPPsym((P)"x")); T32 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YOrev = YPfab_met(FUNCODEREF(YOrev),T32,LITREF(lit_294),LITREF(lit_295),sloc(891),YPfalse); T33 = YOrev; VARSET(YOrev,T33); lit_296 = YPPsym((P)"@cat2"); lit_297 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T34 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YOcat2 = YPfab_met(FUNCODEREF(YOcat2),T34,LITREF(lit_296),LITREF(lit_297),sloc(897),YPfalse); T35 = YOcat2; VARSET(YOcat2,T35); lit_298 = YPPsym((P)"@find"); lit_299 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T36 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YOfind = YPfab_met(FUNCODEREF(YOfind),T36,LITREF(lit_298),LITREF(lit_299),sloc(900),YPfalse); T37 = YOfind; VARSET(YOfind,T37); lit_300 = YPPsym((P)"@mem?"); lit_301 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); lit_302 = YPPlist(1,YPPsym((P)"y")); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_346 = YPfab_met(FUNCODEREF(fun_346),T39,YPfalse,LITREF(lit_302),sloc(909),YPfalse); T38 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YOmemQ = YPfab_met(FUNCODEREF(YOmemQ),T38,LITREF(lit_300),LITREF(lit_301),sloc(908),YPfalse); T40 = YOmemQ; VARSET(YOmemQ,T40); lit_303 = YPPsym((P)"@del-dups"); lit_304 = YPPlist(1,YPPsym((P)"x")); lit_305 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"e")); T42 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_348 = YPfab_met(FUNCODEREF(fun_348),T42,YPfalse,LITREF(lit_305),sloc(914),YPfalse); T41 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YOdel_dups = YPfab_met(FUNCODEREF(YOdel_dups),T41,LITREF(lit_303),LITREF(lit_304),sloc(913),YPfalse); T43 = YOdel_dups; VARSET(YOdel_dups,T43); lit_306 = YPPsym((P)"@opts-as-lst"); lit_307 = YPPlist(1,YPPsym((P)"x")); T46 = YPfab_sig(YPPlist(1,VARREF(YLoptsG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); T45 = YOopts_as_lst = YPfab_met(FUNCODEREF(YOopts_as_lst),T46,LITREF(lit_306),LITREF(lit_307),sloc(916),YPfalse); T48 = YOopts_as_lst; T47 = VARSET(YOopts_as_lst,T48); T44 = T47; return T44; } P Y___main_13___() { P tF1213; P xF1212; P xF1211; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; DEFCREGS(); lit_308 = YPPsym((P)"@lst"); lit_309 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); YOlst = YPfab_met(FUNCODEREF(YOlst),T0,LITREF(lit_308),LITREF(lit_309),sloc(920),YPfalse); T1 = YOlst; VARSET(YOlst,T1); lit_310 = YPPsym((P)"@tany?"); lit_311 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"c")); T2 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLtupG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YOtanyQ = YPfab_met(FUNCODEREF(YOtanyQ),T2,LITREF(lit_310),LITREF(lit_311),sloc(933),YPfalse); T3 = YOtanyQ; VARSET(YOtanyQ,T3); lit_312 = YPPsym((P)"@tall2?"); lit_313 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"c1"),YPPsym((P)"c2")); T4 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLtupG),VARREF(YLtupG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); YOtall2Q = YPfab_met(FUNCODEREF(YOtall2Q),T4,LITREF(lit_312),LITREF(lit_313),sloc(937),YPfalse); T5 = YOtall2Q; VARSET(YOtall2Q,T5); lit_314 = YPPsym((P)"@tup"); lit_315 = YPPlist(1,YPPsym((P)"args")); lit_316 = YPPsym((P)"into"); lit_317 = YPPlist(1,YPPsym((P)"k")); T7 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_into_358 = YPfab_met(FUNCODEREF(fun_into_358),T7,LITREF(lit_316),LITREF(lit_317),sloc(948),YPfalse); T6 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); YOtup = YPfab_met(FUNCODEREF(YOtup),T6,LITREF(lit_314),LITREF(lit_315),sloc(954),YPfalse); T8 = YOtup; VARSET(YOtup,T8); VARSET(Ytup,VARREF(YOtup)); lit_318 = YPPsym((P)"t*"); lit_319 = YPPlist(1,YPPsym((P)"args")); lit_320 = YPPlist(1,YPPsym((P)"k")); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_into_360 = YPfab_met(FUNCODEREF(fun_into_360),T10,LITREF(lit_316),LITREF(lit_320),sloc(948),YPfalse); T9 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); YtT = YPfab_met(FUNCODEREF(YtT),T9,LITREF(lit_318),LITREF(lit_319),sloc(958),YPfalse); T11 = YtT; VARSET(YtT,T11); lit_321 = YPPsym((P)"@type-equal?"); lit_322 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T12 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YOtype_equalQ = YPfab_met(FUNCODEREF(YOtype_equalQ),T12,LITREF(lit_321),LITREF(lit_322),sloc(962),YPfalse); T13 = YOtype_equalQ; VARSET(YOtype_equalQ,T13); lit_323 = YPPsym((P)"@subtype?"); lit_324 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T14 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YOsubtypeQ = YPfab_met(FUNCODEREF(YOsubtypeQ),T14,LITREF(lit_323),LITREF(lit_324),sloc(976),YPfalse); T15 = YOsubtypeQ; VARSET(YOsubtypeQ,T15); lit_325 = YPPsym((P)"@may-isa?"); lit_326 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); T17 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T16 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLtypeG)),YPfalse,YPint((P)2),T17,Ynil); YOmay_isaQ = YPfab_met(FUNCODEREF(YOmay_isaQ),T16,LITREF(lit_325),LITREF(lit_326),sloc(981),YPfalse); T18 = YOmay_isaQ; VARSET(YOmay_isaQ,T18); VARSET(YTrestarts_okQT,YPfalse); lit_327 = YPPsym((P)"unexec"); lit_328 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"fun")); T19 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yunexec = YPfab_met(FUNCODEREF(Yunexec),T19,LITREF(lit_327),LITREF(lit_328),sloc(1004),YPfalse); T20 = Yunexec; VARSET(Yunexec,T20); lit_329 = YPPsym((P)"%patch-early-generic"); lit_330 = YPPlist(1,YPPsym((P)"generic")); T21 = YPfab_sig(YPPlist(1,VARREF(YLgenG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YPpatch_early_generic = YPfab_met(FUNCODEREF(YPpatch_early_generic),T21,LITREF(lit_329),LITREF(lit_330),sloc(1008),YPfalse); T22 = YPpatch_early_generic; VARSET(YPpatch_early_generic,T22); xF1211 = VARREF(YPmet_prop_len); xF1212 = xF1211; tF1213 = (P)1; T24 = (P)YPiLL(xF1212,(P)2); T23 = (P)YPiv(T24,tF1213); (P)YPclass_prop_len_setter(T23,VARREF(YLmetG)); lit_331 = YPsb((P)"Tried to call an unbound function, but the function error\nhandler is itself unbound. Exiting."); VARSET(YTboot_macro_module_namesT,Ynil); VARSET(YTboot_macro_namesT,Ynil); VARSET(YTboot_macro_expandersT,Ynil); VARSET(YTmacros_okQT,YPfalse); lit_332 = YPPsym((P)"app-filename"); lit_333 = Ynil; T25 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); Yapp_filename = YPfab_met(FUNCODEREF(Yapp_filename),T25,LITREF(lit_332),LITREF(lit_333),sloc(1130),YPfalse); T26 = Yapp_filename; VARSET(Yapp_filename,T26); lit_334 = YPPsym((P)"app-args"); T27 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); Yapp_args = YPfab_met(FUNCODEREF(Yapp_args),T27,LITREF(lit_334),LITREF(lit_333),sloc(1132),YPfalse); T28 = Yapp_args; VARSET(Yapp_args,T28); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T29 = YPfalse; return T29; } P Y___main_14___() { P T0; DEFCREGS(); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T0 = YPfalse; return T0; } P Y___main_15___() { P T0; DEFCREGS(); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T0 = YPfalse; return T0; } /* MODULE ENVIRONMENT INFORMATION */ static USE_INFO use_infos[] = { {NULL} }; static IMPORT_INFO import_infos[] = { {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"update-instance-for-changed-class", CVAR, &Yupdate_instance_for_changed_class}, {"property-not-found-error", CVAR, &Yproperty_not_found_error}, {"esc", PVAR, NULL}, {"%fapply", PVAR, NULL}, {"%object-class", PVAR, NULL}, {"%symbols", CVAR, &YPsymbols}, {"@tlen", PVAR, NULL}, {"head-setter", CVAR, &Yhead_setter}, {"subtype?", CVAR, &YsubtypeQ}, {"@oelt-setter", PVAR, NULL}, {"%collect-direct-props", CVAR, &YPcollect_direct_props}, {"class-ancestors-setter", CVAR, &Yclass_ancestors_setter}, {"%break", PVAR, NULL}, {"%prop-type-setter", PVAR, NULL}, {"%eq?", PVAR, NULL}, {"%rnul", CVAR, &YPrnul}, {"src-loc-file", CVAR, &Ysrc_loc_file}, {"", CVAR, &YLmetG}, {"@new", CVAR, &YOnew}, {"%class-props", PVAR, NULL}, {"%object-shells", PVAR, NULL}, {"%fun-info-src-loc-setter", PVAR, NULL}, {"", CVAR, &YLsymG}, {"%next-methods", PVAR, NULL}, {"%build-runtime-modules", PVAR, NULL}, {"%im", PVAR, NULL}, {"%relt-setter", PVAR, NULL}, {"%gen-cache-arg-pos", PVAR, NULL}, {"%eof-object?", PVAR, NULL}, {"%max-stack-len", PVAR, NULL}, {"%class", PVAR, NULL}, {"%fun-info-names-setter", PVAR, NULL}, {"gen-cache-arg-pos", CVAR, &Ygen_cache_arg_pos}, {"ct-also", PVAR, NULL}, {"%prop-init-setter", PVAR, NULL}, {"%vnm-setter", PVAR, NULL}, {"%rep!", PVAR, NULL}, {"%check-call-types", PVAR, NULL}, {"head", CVAR, &Yhead}, {"%tail", PVAR, NULL}, {"force-names-into-boot-module", PVAR, NULL}, {"", CVAR, &YLstrG}, {"%fun-reg", PVAR, NULL}, {"%@subclass?", PVAR, NULL}, {"@subtype?", CVAR, &YOsubtypeQ}, {"class-ancestors", CVAR, &Yclass_ancestors}, {"*boot-macro-module-names*", CVAR, &YTboot_macro_module_namesT}, {"%snul", CVAR, &YPsnul}, {"%vfp", PVAR, NULL}, {"%met-code", PVAR, NULL}, {"%stack-check-reg?", PVAR, NULL}, {"*restarts-ok?*", CVAR, &YTrestarts_okQT}, {"%fun-info-inlineable?-setter", PVAR, NULL}, {"%to-tup", PVAR, NULL}, {"%class-ancestors-setter", PVAR, NULL}, {"%fab-gen", PVAR, NULL}, {"order-specs", CVAR, &Yorder_specs}, {"", CVAR, &YLtupG}, {"%%tfab", PVAR, NULL}, {"%vpc-setter", PVAR, NULL}, {"%*used-symbols-too-early*", CVAR, &YPTused_symbols_too_earlyT}, {"class-gens-setter", CVAR, &Yclass_gens_setter}, {"", CVAR, &YLfunG}, {"%gen-mets", PVAR, NULL}, {"%opts-location-setter", PVAR, NULL}, {"%vm-with-exit", PVAR, NULL}, {"%src-loc-line-setter", PVAR, NULL}, {"bound?", PVAR, NULL}, {"%%check-call-types", PVAR, NULL}, {"%compute-ancestors", PVAR, NULL}, {"%raw-alloc", PVAR, NULL}, {"", CVAR, &YLflatG}, {"%subclass", PVAR, NULL}, {"%tup!", PVAR, NULL}, {"let", PVAR, NULL}, {"*macros-ok?*", CVAR, &YTmacros_okQT}, {"prop-owner", CVAR, &Yprop_owner}, {"%ru", PVAR, NULL}, {"%i^", PVAR, NULL}, {"%class-props-setter", PVAR, NULL}, {"@alter", CVAR, &YOalter}, {"keyboard-interrupt", CVAR, &Ykeyboard_interrupt}, {"%selt-setter", PVAR, NULL}, {"%add-met", CVAR, &YPadd_met}, {"%gen-cache-classes-setter", PVAR, NULL}, {"%gen-cache-count", PVAR, NULL}, {"use/mangle", PVAR, NULL}, {"%fun-info-name-setter", PVAR, NULL}, {"$max-int", CVAR, &YDmax_int}, {"class-gens", CVAR, &Yclass_gens}, {"%selt", PVAR, NULL}, {"%lst", PVAR, NULL}, {"%true", CVAR, &YPtrue}, {"%met-sig", PVAR, NULL}, {"%product-elts", PVAR, NULL}, {"%cat2", PVAR, NULL}, {"dm", PVAR, NULL}, {"class-id", CVAR, &Yclass_id}, {"*early-classes*", CVAR, &YTearly_classesT}, {"%prop-setter", PVAR, NULL}, {"%gen-info-setter", PVAR, NULL}, {"lst", CVAR, &Ylst}, {"%i>>>", PVAR, NULL}, {"@all2?", CVAR, &YOall2Q}, {"%fun-cache-setter", PVAR, NULL}, {"%sig-val-setter", PVAR, NULL}, {"class-prop-len-setter", CVAR, &Yclass_prop_len_setter}, {"one-nil", CVAR, &Yone_nil}, {"", CVAR, &YLlstG}, {"%trace-on", PVAR, NULL}, {"when", PVAR, NULL}, {"%sig-nary?-setter", PVAR, NULL}, {"dv", PVAR, NULL}, {"%pair", PVAR, NULL}, {"%symbols-ready?", CVAR, &YPsymbols_readyQ}, {"%prop-getter", PVAR, NULL}, {"sig-unification-vars-setter", CVAR, &Ysig_unification_vars_setter}, {"%false", CVAR, &YPfalse}, {"%clone", PVAR, NULL}, {"@int?", PVAR, NULL}, {"fun-env", CVAR, &Yfun_env}, {"%define-setter", PVAR, NULL}, {"%product", PVAR, NULL}, {"%met-code-setter", PVAR, NULL}, {"%bb", PVAR, NULL}, {"", CVAR, &YLseqXG}, {"%vm-box-val", PVAR, NULL}, {"gen-cache-missable?", CVAR, &Ygen_cache_missableQ}, {"%app-args", PVAR, NULL}, {"tup", CVAR, &Ytup}, {"class-prop-len", CVAR, &Yclass_prop_len}, {"narity-error", CVAR, &Ynarity_error}, {"fun-info-inlineable?-setter", CVAR, &Yfun_info_inlineableQ_setter}, {"%class-id-setter", PVAR, NULL}, {"%sig-arity-setter", PVAR, NULL}, {"", CVAR, &YLfun_infoG}, {"@elt", CVAR, &YOelt}, {"%early-dispatch", CVAR, &YPearly_dispatch}, {"@cat2", CVAR, &YOcat2}, {"@del-dups", CVAR, &YOdel_dups}, {"@opts-as-lst", CVAR, &YOopts_as_lst}, {"%set-regs", PVAR, NULL}, {"sig-nary?", CVAR, &Ysig_naryQ}, {"@type-equal?", CVAR, &YOtype_equalQ}, {"@do", CVAR, &YOdo}, {"fun-mets", CVAR, &Yfun_mets}, {"%vfp-setter", PVAR, NULL}, {"opts-tup-storage", CVAR, &Yopts_tup_storage}, {"", CVAR, &YLseqIG}, {"sig-unification-vars", CVAR, &Ysig_unification_vars}, {"%tag-bits", PVAR, NULL}, {"@isa?", PVAR, NULL}, {"%class-shells", PVAR, NULL}, {"%raw", PVAR, NULL}, {"fun-info-src-loc", CVAR, &Yfun_info_src_loc}, {"%define-accessor", PVAR, NULL}, {"%patch-early-generics", PVAR, NULL}, {"%define-tagged-structure", PVAR, NULL}, {"%type-class-setter", PVAR, NULL}, {"%fab-met", PVAR, NULL}, {"c-expr", PVAR, NULL}, {"fun-info-inlineable?", CVAR, &Yfun_info_inlineableQ}, {"%vm-fun-env-elt", PVAR, NULL}, {"@len", PVAR, NULL}, {"set", PVAR, NULL}, {"", CVAR, &YLseqG}, {"---main-2---", PVAR, NULL}, {"%%sym", PVAR, NULL}, {"%class-direct-props", PVAR, NULL}, {"%elt-setter", PVAR, NULL}, {"%ir", PVAR, NULL}, {"%i-", PVAR, NULL}, {"product-elts", CVAR, &Yproduct_elts}, {"%*start-running-at*", CVAR, &YPTstart_running_atT}, {"%gen-mets-setter", PVAR, NULL}, {"%fun-info-src-setter", PVAR, NULL}, {"---main-13---", PVAR, NULL}, {"", CVAR, &YLcolXG}, {"%class-forward-setter", PVAR, NULL}, {"%ib", PVAR, NULL}, {"---main-3---", PVAR, NULL}, {"%bu", PVAR, NULL}, {"@pair", PVAR, NULL}, {"---main-9---", PVAR, NULL}, {"@oelt", PVAR, NULL}, {"@mem?", CVAR, &YOmemQ}, {"$tag-len", PVAR, NULL}, {"%fun-info-count-setter", PVAR, NULL}, {"%fab-gen/code", PVAR, NULL}, {"%def-patch-early-generics", PVAR, NULL}, {"%sp-elt", PVAR, NULL}, {"%src-loc-file", PVAR, NULL}, {"%class-gens", PVAR, NULL}, {"%loc-val-setter", PVAR, NULL}, {"%fun-val-check-type", PVAR, NULL}, {"%fab-sig", PVAR, NULL}, {"---main-14---", PVAR, NULL}, {"%%sfab", PVAR, NULL}, {"@=", PVAR, NULL}, {"%dyn-var-val", PVAR, NULL}, {"", CVAR, &YLsigG}, {"%i=", PVAR, NULL}, {"@all?", CVAR, &YOallQ}, {"%fab-code-refs", PVAR, NULL}, {"", CVAR, &YLcolIG}, {"%gen-code", PVAR, NULL}, {"t*", CVAR, &YtT}, {"%prop-setter-setter", PVAR, NULL}, {"class-direct-props-setter", CVAR, &Yclass_direct_props_setter}, {"%%prop", PVAR, NULL}, {"@telt", PVAR, NULL}, {"@tail", PVAR, NULL}, {"@pick", CVAR, &YOpick}, {"%finalize-props", PVAR, NULL}, {"%object-class-setter", PVAR, NULL}, {"%iv", PVAR, NULL}, {"%c<", PVAR, NULL}, {"opts-count", CVAR, &Yopts_count}, {"%gen-cache", PVAR, NULL}, {"%gen-cache-classes", PVAR, NULL}, {"%fab-dyn-var", PVAR, NULL}, {"", CVAR, &YLcolG}, {"%stack-check-reg?-setter", PVAR, NULL}, {"%tag", PVAR, NULL}, {"%i<<<", PVAR, NULL}, {"%rev!", PVAR, NULL}, {"%flo-dat-setter", PVAR, NULL}, {"%fun-info-names", PVAR, NULL}, {"%define-boxed-structure", PVAR, NULL}, {"%gen-sig", PVAR, NULL}, {"fun-info-count-setter", CVAR, &Yfun_info_count_setter}, {"dl", PVAR, NULL}, {"%define-structure", PVAR, NULL}, {"class-direct-props", CVAR, &Yclass_direct_props}, {"sym-name", CVAR, &Ysym_name}, {"%define-structure-accessors", PVAR, NULL}, {"%str-eq?", PVAR, NULL}, {"may-isa?", CVAR, &Ymay_isaQ}, {"src-loc-line", CVAR, &Ysrc_loc_line}, {"%i?", PVAR, NULL}, {"%prop-offset", CVAR, &YPprop_offset}, {"", CVAR, &YLrepG}, {"seq", PVAR, NULL}, {"quasiquote", PVAR, NULL}, {"%met", PVAR, NULL}, {"@head", PVAR, NULL}, {"%class-of", PVAR, NULL}, {"%src-loc-line", PVAR, NULL}, {"@rev!", CVAR, &YOrevX}, {"%opts-location", PVAR, NULL}, {"@adr?", PVAR, NULL}, {"%fu", PVAR, NULL}, {"%reparent-class-shells", PVAR, NULL}, {"@find", CVAR, &YOfind}, {"%prop-unbound-error", CVAR, &YPprop_unbound_error}, {"class-children-setter", CVAR, &Yclass_children_setter}, {"", CVAR, &YLgen_cacheG}, {"$gen-cache-singletons-offset", CVAR, &YDgen_cache_singletons_offset}, {"%vm-fun-env-fab", PVAR, NULL}, {"", CVAR, &YLlocG}, {"prop-init", CVAR, &Yprop_init}, {"if", PVAR, NULL}, {"dss", PVAR, NULL}, {"%lb", PVAR, NULL}, {"---main-15---", PVAR, NULL}, {"%app-filename", PVAR, NULL}, {"%class-gens-setter", PVAR, NULL}, {"%sp-reg-setter", PVAR, NULL}, {"%sig", PVAR, NULL}, {"%fb", PVAR, NULL}, {"%fun-info-inlineable?", PVAR, NULL}, {"%unexec", PVAR, NULL}, {"@map", CVAR, &YOmap}, {"use/export", PVAR, NULL}, {"", CVAR, &YLfloG}, {"use/include", PVAR, NULL}, {"%i>>", PVAR, NULL}, {"unless", PVAR, NULL}, {"%str", PVAR, NULL}, {"%prop-elt-setter", PVAR, NULL}, {"%trace-off", PVAR, NULL}, {"---main-11---", PVAR, NULL}, {"class-children", CVAR, &Yclass_children}, {"%new", PVAR, NULL}, {"%loc-off", PVAR, NULL}, {"%unlink-stack", PVAR, NULL}, {"fun-info-setter", CVAR, &Yfun_info_setter}, {"%with-monitor", CVAR, &YPwith_monitor}, {"%opts-tup", PVAR, NULL}, {"class-forward", CVAR, &Yclass_forward}, {"@lit", CVAR, &YOlit}, {"%product-elts-setter", PVAR, NULL}, {"@@nul?", CVAR, &YOOnulQ}, {"%stack-check", PVAR, NULL}, {"%head", PVAR, NULL}, {"", CVAR, &YLbignumG}, {"%flo", PVAR, NULL}, {"ct", PVAR, NULL}, {"fin", PVAR, NULL}, {"%opts", PVAR, NULL}, {"%sb", PVAR, NULL}, {"try", PVAR, NULL}, {"%class-parents", PVAR, NULL}, {"sig-specs-setter", CVAR, &Ysig_specs_setter}, {"%fp-reg", PVAR, NULL}, {"@tup", CVAR, &YOtup}, {"%loc-off-setter", PVAR, NULL}, {"%sp-reg", PVAR, NULL}, {"and", PVAR, NULL}, {"", CVAR, &YLfixnumG}, {"opts-location", CVAR, &Yopts_location}, {"fun-info", CVAR, &Yfun_info}, {"%gen-cache-missable?-setter", PVAR, NULL}, {"%fun-info-src-loc", PVAR, NULL}, {"%define-parents", PVAR, NULL}, {"%opts-tup-count-setter", PVAR, NULL}, {"", CVAR, &YLpropG}, {"fun-info-names-setter", CVAR, &Yfun_info_names_setter}, {"%union", PVAR, NULL}, {"%def-regs", PVAR, NULL}, {"%class-mets-setter", PVAR, NULL}, {"%allocate-stack", PVAR, NULL}, {"@nul?", PVAR, NULL}, {"%define-repeated-structure", PVAR, NULL}, {"%gen-info", PVAR, NULL}, {"%invoke-debugger", PVAR, NULL}, {"%fun-info-src", PVAR, NULL}, {"%opts-tup-count", PVAR, NULL}, {"%class-row", PVAR, NULL}, {"%pairize", PVAR, NULL}, {"%%mep-apply", PVAR, NULL}, {"%class-prop-len-setter", PVAR, NULL}, {"", CVAR, &YLintG}, {"%vnm", PVAR, NULL}, {"%%len", PVAR, NULL}, {"sig-specs", CVAR, &Ysig_specs}, {"prop-offset", CVAR, &Yprop_offset}, {"ddv", PVAR, NULL}, {"not", CVAR, &Ynot}, {"%stack-overflow-lim", PVAR, NULL}, {"sig-val", CVAR, &Ysig_val}, {"@<", PVAR, NULL}, {"app-args", CVAR, &Yapp_args}, {"$num-int-bits", CVAR, &YDnum_int_bits}, {"%i<", PVAR, NULL}, {"%raw-call", PVAR, NULL}, {"", CVAR, &YLproductG}, {"fun-info-names", CVAR, &Yfun_info_names}, {"%it/", PVAR, NULL}, {"", CVAR, &YLnumG}, {"$adr-tag", PVAR, NULL}, {"%class-row-setter", PVAR, NULL}, {"%tup", PVAR, NULL}, {"ds", PVAR, NULL}, {"%cons-args", PVAR, NULL}, {"%flo-dat", PVAR, NULL}, {"---main-10---", PVAR, NULL}, {"%gen-code-setter", PVAR, NULL}, {"no-next-methods-error", CVAR, &Yno_next_methods_error}, {"@+", PVAR, NULL}, {"fun-info-count", CVAR, &Yfun_info_count}, {"as-error", CVAR, &Yas_error}, {"%prop-owner", PVAR, NULL}, {"property-unbound-error", CVAR, &Yproperty_unbound_error}, {"%do-stack-frames", PVAR, NULL}, {"prop-type", CVAR, &Yprop_type}, {"%str!", PVAR, NULL}, {"@==", PVAR, NULL}, {"%sig-specs", PVAR, NULL}, {"@rev", CVAR, &YOrev}, {"%opts-tup-tup", PVAR, NULL}, {"---main-6---", PVAR, NULL}, {"%fp-reg-setter", PVAR, NULL}, {"fab-sym", CVAR, &Yfab_sym}, {"%vsp-setter", PVAR, NULL}, {"%@class-of", PVAR, NULL}, {"%rep", PVAR, NULL}, {"app-filename", CVAR, &Yapp_filename}, {"export", PVAR, NULL}, {"%macro", PVAR, NULL}, {"%vfn-setter", PVAR, NULL}, {"%loc-val", PVAR, NULL}, {"fab-pair", CVAR, &Yfab_pair}, {"", CVAR, &YLunionG}, {"@tail-setter", PVAR, NULL}, {"%%rfab", PVAR, NULL}, {"dp", PVAR, NULL}, {"%met-env-setter", PVAR, NULL}, {"type-class", CVAR, &Ytype_class}, {"props-of", CVAR, &Yprops_of}, {"%eof-object", PVAR, NULL}, {"---main-1---", PVAR, NULL}, {"%dispatch", CVAR, &YPdispatch}, {"syntax-error", CVAR, &Ysyntax_error}, {"", CVAR, &YLsrc_locG}, {"%met-prop-len", CVAR, &YPmet_prop_len}, {"%define-hierarchy", PVAR, NULL}, {"@singleton-isa?", PVAR, NULL}, {"%binding-name", PVAR, NULL}, {"%dyn-var-val-setter", PVAR, NULL}, {"%nul?", PVAR, NULL}, {"loc", PVAR, NULL}, {"%src-loc", PVAR, NULL}, {"argument-type-error", CVAR, &Yargument_type_error}, {"%%macro", CVAR, &YPPmacro}, {"%sig-unification-vars-setter", PVAR, NULL}, {"dp!", PVAR, NULL}, {"class-parents-setter", CVAR, &Yclass_parents_setter}, {"%gen-cache-arg-pos-setter", PVAR, NULL}, {"tail-setter", CVAR, &Ytail_setter}, {"@@==", CVAR, &YOOEE}, {"%type-object", PVAR, NULL}, {"", CVAR, &YLsubclassG}, {"%cb", PVAR, NULL}, {"mif", PVAR, NULL}, {"%met-sig-setter", PVAR, NULL}, {"", CVAR, &YLchrG}, {"%patch-early-generic", CVAR, &YPpatch_early_generic}, {"or", PVAR, NULL}, {"class-props-setter", CVAR, &Yclass_props_setter}, {"error", CVAR, &Yerror}, {"property-type-error", CVAR, &Yproperty_type_error}, {"---main-12---", PVAR, NULL}, {"%class-name-setter", PVAR, NULL}, {"gen-cache-classes", CVAR, &Ygen_cache_classes}, {"df", PVAR, NULL}, {"fun-cache", CVAR, &Yfun_cache}, {"%vm-fun-env-elt-setter", PVAR, NULL}, {"no-applicable-methods-error", CVAR, &Yno_applicable_methods_error}, {"%i+", PVAR, NULL}, {"%sym-nam", PVAR, NULL}, {"box-value-setter", CVAR, &Ybox_value_setter}, {"%sig-unification-vars", PVAR, NULL}, {"%raw-met-call", PVAR, NULL}, {"", CVAR, &YLmagG}, {"%indirect-object?", PVAR, NULL}, {"%fun-info-name", PVAR, NULL}, {"%lit", PVAR, NULL}, {"%relt", PVAR, NULL}, {"$min-int", CVAR, &YDmin_int}, {"%vsp", PVAR, NULL}, {"@tall2?", CVAR, &YOtall2Q}, {"class-parents", CVAR, &Yclass_parents}, {"fun-sig-setter", CVAR, &Yfun_sig_setter}, {"c-ment", PVAR, NULL}, {"tail", CVAR, &Ytail}, {"%elt", PVAR, NULL}, {"%opts-tup-tup-setter", PVAR, NULL}, {"", CVAR, &YLsingletonG}, {"d.", PVAR, NULL}, {"%check-arity", PVAR, NULL}, {"class-props", CVAR, &Yclass_props}, {"return-type-error", CVAR, &Yreturn_type_error}, {"%define-props", PVAR, NULL}, {"stack-overflow-error", CVAR, &Ystack_overflow_error}, {"@any?", CVAR, &YOanyQ}, {"%vpc", PVAR, NULL}, {"def", PVAR, NULL}, {"%i&", PVAR, NULL}, {"%telt", PVAR, NULL}, {"%prop-init", PVAR, NULL}, {"cpl-error", CVAR, &Ycpl_error}, {"%stack-reg", PVAR, NULL}, {"", CVAR, &YLopts_tupG}, {"%class-ancestors", PVAR, NULL}, {"unknown-function-error", CVAR, &Yunknown_function_error}, {"%met-info-setter", PVAR, NULL}, {"", CVAR, &YLboxG}, {"---main-4---", PVAR, NULL}, {"dg", PVAR, NULL}, {"%i!", PVAR, NULL}, {"%prop-elt", PVAR, NULL}, {"%class-children", PVAR, NULL}, {"%union-elts", PVAR, NULL}, {"fun-sig", CVAR, &Yfun_sig}, {"%%apply", PVAR, NULL}, {"%class-direct-props-setter", PVAR, NULL}, {"%sym-nam-setter", PVAR, NULL}, {"macro-expand", PVAR, NULL}, {"arity-error", CVAR, &Yarity_error}, {"%rlen", PVAR, NULL}, {"%src-loc-file-setter", PVAR, NULL}, {"prop-setter", CVAR, &Yprop_setter}, {"%type-class", PVAR, NULL}, {"%fun-info-count", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"box-value", CVAR, &Ybox_value}, {"", CVAR, &YLlogG}, {"@head-setter", PVAR, NULL}, {"dc", PVAR, NULL}, {"fun", PVAR, NULL}, {"%c=", PVAR, NULL}, {"%iu", PVAR, NULL}, {"%sym", PVAR, NULL}, {"@not", PVAR, NULL}, {"%fun-info", PVAR, NULL}, {"%fab-sym", PVAR, NULL}, {"%union-elts-setter", PVAR, NULL}, {"type-object", CVAR, &Ytype_object}, {"@add", PVAR, NULL}, {"class-mets", CVAR, &Yclass_mets}, {"@fold", CVAR, &YOfold}, {"", CVAR, &YLoptsG}, {"nul-prop", CVAR, &Ynul_prop}, {"%type-object-setter", PVAR, NULL}, {"%opts-tup-location", PVAR, NULL}, {"", CVAR, &YLanyG}, {"unexec", CVAR, &Yunexec}, {"use", PVAR, NULL}, {"@tany?", CVAR, &YOtanyQ}, {"%class-prop-len", PVAR, NULL}, {"%class-children-setter", PVAR, NULL}, {"$gen-cache-classes-offset", CVAR, &YDgen_cache_classes_offset}, {"@add-new", PVAR, NULL}, {"file-opening-error", CVAR, &Yfile_opening_error}, {"%vm-with-cleanup", PVAR, NULL}, {"---main-7---", PVAR, NULL}, {"%loc", PVAR, NULL}, {"ambiguous-method-error", CVAR, &Yambiguous_method_error}, {"%telt-setter", PVAR, NULL}, {"%met-info", PVAR, NULL}, {"new", CVAR, &Ynew}, {"%class-mets", PVAR, NULL}, {"%opts-count-setter", PVAR, NULL}, {"%untag", PVAR, NULL}, {"*boot-macro-names*", CVAR, &YTboot_macro_namesT}, {"rep", PVAR, NULL}, {"%lu", PVAR, NULL}, {"%class-id", PVAR, NULL}, {"%define-getter", PVAR, NULL}, {"%opts-count", PVAR, NULL}, {"sig-arity-setter", CVAR, &Ysig_arity_setter}, {"%gen-cache-missable?", PVAR, NULL}, {"%fun-cache", PVAR, NULL}, {"%gen", PVAR, NULL}, {"%define-primitives", PVAR, NULL}, {"%opts-tup-location-setter", PVAR, NULL}, {"fun-info-name-setter", CVAR, &Yfun_info_name_setter}, {"%class-forward", PVAR, NULL}, {"%cu", PVAR, NULL}, {"%fixnum", PVAR, NULL}, {"gen-cache-singletons", CVAR, &Ygen_cache_singletons}, {"%sig-arity", PVAR, NULL}, {"$direct-object-class", CVAR, &YDdirect_object_class}, {"%tlen", PVAR, NULL}, {"type-error", CVAR, &Ytype_error}, {"fun-info-src-setter", CVAR, &Yfun_info_src_setter}, {"@fill", CVAR, &YOfill}, {"%i<<", PVAR, NULL}, {"arithmetic-error", CVAR, &Yarithmetic_error}, {"%tu", PVAR, NULL}, {"---main-5---", PVAR, NULL}, {"%tnul", CVAR, &YPtnul}, {"*boot-macro-expanders*", CVAR, &YTboot_macro_expandersT}, {"$tag-msk", PVAR, NULL}, {"%classes-ready?", CVAR, &YPclasses_readyQ}, {"%gen-sig-setter", PVAR, NULL}, {"@lst", CVAR, &YOlst}, {"class-name", CVAR, &Yclass_name}, {"%i*", PVAR, NULL}, {"%object-of", PVAR, NULL}, {"use/library", PVAR, NULL}, {"%fab-met-inlineable", PVAR, NULL}, {"sig-arity", CVAR, &Ysig_arity}, {"%process-module", PVAR, NULL}, {"@olen", PVAR, NULL}, {"internal-error", CVAR, &Yinternal_error}, {"@telt-setter", PVAR, NULL}, {"%class-parents-setter", PVAR, NULL}, {"%gen-cache-count-setter", PVAR, NULL}, {"%gen-cache-singletons", PVAR, NULL}, {"---main-8---", PVAR, NULL}, {"fun-info-name", CVAR, &Yfun_info_name}, {"%prop-owner-setter", PVAR, NULL}, {"isa?", CVAR, &YisaQ}, {"", CVAR, &YLgenG}, {"fun-info-src", CVAR, &Yfun_info_src}, {"%met-env", PVAR, NULL}, {"%next-methods-reg-setter", PVAR, NULL}, {"nil", CVAR, &Ynil}, {"%finalize-props!", CVAR, &YPfinalize_propsX}, {"%arg-check-type", PVAR, NULL}, {"%singleton", PVAR, NULL}, {"%head-setter", PVAR, NULL}, {"@subclass?", PVAR, NULL}, {"%prop-getter-setter", PVAR, NULL}, {"%sig-nary?", PVAR, NULL}, {"%sig-val", PVAR, NULL}, {"fun-code", CVAR, &Yfun_code}, {"%prop-dat-at", PVAR, NULL}, {"", CVAR, &YLclassG}, {"prop-getter", CVAR, &Yprop_getter}, {"@may-isa?", CVAR, &YOmay_isaQ}, {"%vfn", PVAR, NULL}, {"%su", PVAR, NULL}, {"%chr", PVAR, NULL}, {"@fab", CVAR, &YOfab}, {"range-error", CVAR, &Yrange_error}, {"%gen-cache-singletons-setter", PVAR, NULL}, {"%add-prop", CVAR, &YPadd_prop}, {"%untag-into", PVAR, NULL}, {"%prop-type", PVAR, NULL}, {"nul", CVAR, &Ynul}, {"sig-nary?-setter", CVAR, &Ysig_naryQ_setter}, {"quote", PVAR, NULL}, {"%check-type", PVAR, NULL}, {"sig-val-setter", CVAR, &Ysig_val_setter}, {"fun-info-src-loc-setter", CVAR, &Yfun_info_src_loc_setter}, {"%tag-into", PVAR, NULL}, {"%code-ref", PVAR, NULL}, {"%vm-box-fab", PVAR, NULL}, {"%vm-box-val-setter", PVAR, NULL}, {"assert-error", CVAR, &Yassert_error}, {"@class-isa?", PVAR, NULL}, {"", CVAR, &YLtypeG}, {"@raw-nul?", PVAR, NULL}, {"%class-name", PVAR, NULL}, {"class-mets-setter", CVAR, &Yclass_mets_setter}, {"class-forward-setter", CVAR, &Yclass_forward_setter}, {"union-elts", CVAR, &Yunion_elts}, {"fun-mets-setter", CVAR, &Yfun_mets_setter}, {"class-row", CVAR, &Yclass_row}, {"%tail-setter", PVAR, NULL}, {"%slen", PVAR, NULL}, {"%sig-specs-setter", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"$min-int", NULL}, {"update-instance-for-changed-class", NULL}, {"esc", NULL}, {"%object-class", NULL}, {"%symbols", NULL}, {"head-setter", NULL}, {"subtype?", NULL}, {"@oelt-setter", NULL}, {"class-ancestors-setter", NULL}, {"%break", NULL}, {"%eq?", NULL}, {"%rnul", NULL}, {"", NULL}, {"%class-props", NULL}, {"set", NULL}, {"", NULL}, {"%next-methods", NULL}, {"%build-runtime-modules", NULL}, {"fun-mets", NULL}, {"%gen-cache-arg-pos", NULL}, {"@rev!", NULL}, {"%eof-object?", NULL}, {"%max-stack-len", NULL}, {"%class", NULL}, {"%fun-info-names-setter", NULL}, {"gen-cache-arg-pos", NULL}, {"ct-also", NULL}, {"%vnm-setter", NULL}, {"%check-call-types", NULL}, {"head", NULL}, {"%tail", NULL}, {"", NULL}, {"%fun-reg", NULL}, {"@subtype?", NULL}, {"class-ancestors", NULL}, {"*boot-macro-module-names*", NULL}, {"%snul", NULL}, {"%vfp", NULL}, {"%met-code", NULL}, {"%stack-check-reg?", NULL}, {"*restarts-ok?*", NULL}, {"%to-tup", NULL}, {"%class-ancestors-setter", NULL}, {"%vm-box-fab", NULL}, {"order-specs", NULL}, {"", NULL}, {"%vpc-setter", NULL}, {"dss", NULL}, {"class-gens-setter", NULL}, {"", NULL}, {"%gen-mets", NULL}, {"%gen-code-setter", NULL}, {"%vm-with-exit", NULL}, {"bound?", NULL}, {"@all?", NULL}, {"%%check-call-types", NULL}, {"%met-info", NULL}, {"", NULL}, {"let", NULL}, {"prop-owner", NULL}, {"%i^", NULL}, {"keyboard-interrupt", NULL}, {"%selt-setter", NULL}, {"@len", NULL}, {"%gen-cache-classes-setter", NULL}, {"%relt", NULL}, {"use/mangle", NULL}, {"%fab-met-inlineable", NULL}, {"%src-loc", NULL}, {"class-gens", NULL}, {"%selt", NULL}, {"%true", NULL}, {"%met-sig", NULL}, {"%met-prop-len", NULL}, {"class-id", NULL}, {"%i&", NULL}, {"lst", NULL}, {"%i>>>", NULL}, {"%fun-cache-setter", NULL}, {"class-prop-len-setter", NULL}, {"", NULL}, {"sig-nary?-setter", NULL}, {"*early-classes*", NULL}, {"%c=", NULL}, {"%su", NULL}, {"dv", NULL}, {"%prop-elt", NULL}, {"%pair", NULL}, {"%prop-getter", NULL}, {"sig-unification-vars-setter", NULL}, {"%false", NULL}, {"%clone", NULL}, {"%class-mets-setter", NULL}, {"fun-env", NULL}, {"%class-forward", NULL}, {"fun-info-src-loc-setter", NULL}, {"%bb", NULL}, {"", NULL}, {"%vm-box-val", NULL}, {"gen-cache-missable?", NULL}, {"%app-args", NULL}, {"tup", NULL}, {"class-prop-len", NULL}, {"fun-info-inlineable?-setter", NULL}, {"%class-prop-len-setter", NULL}, {"src-loc-file", NULL}, {"", NULL}, {"@olen", NULL}, {"@cat2", NULL}, {"@opts-as-lst", NULL}, {"%set-regs", NULL}, {"sig-nary?", NULL}, {"@type-equal?", NULL}, {"@do", NULL}, {"%i-", NULL}, {"%vfp-setter", NULL}, {"opts-tup-storage", NULL}, {"", NULL}, {"@isa?", NULL}, {"fun-info-src-loc", NULL}, {"%patch-early-generics", NULL}, {"c-expr", NULL}, {"fun-info-inlineable?", NULL}, {"%vm-fun-env-elt", NULL}, {"", NULL}, {"fab-sym", NULL}, {"%%sym", NULL}, {"%type-class", NULL}, {"%vsp", NULL}, {"%class-direct-props", NULL}, {"product-elts", NULL}, {"%gen-mets-setter", NULL}, {"%fun-info-src-setter", NULL}, {"@del-dups", NULL}, {"@<", NULL}, {"", NULL}, {"%class-forward-setter", NULL}, {"%ib", NULL}, {"@new", NULL}, {"%bu", NULL}, {"@pair", NULL}, {"@oelt", NULL}, {"@mem?", NULL}, {"%fun-info-count-setter", NULL}, {"%fun-info-name-setter", NULL}, {"%sp-elt", NULL}, {"%class-gens", NULL}, {"%loc-val-setter", NULL}, {"$direct-object-class", NULL}, {"%class-direct-props-setter", NULL}, {"@=", NULL}, {"", NULL}, {"assert-error", NULL}, {"", NULL}, {"%gen-code", NULL}, {"t*", NULL}, {"class-direct-props-setter", NULL}, {"%product-elts", NULL}, {"@all2?", NULL}, {"fun-info-names", NULL}, {"%iv", NULL}, {"%c<", NULL}, {"opts-count", NULL}, {"%i=", NULL}, {"%gen-cache", NULL}, {"%gen-cache-classes", NULL}, {"%fab-dyn-var", NULL}, {"", NULL}, {"%stack-check-reg?-setter", NULL}, {"%i<<<", NULL}, {"c-ment", NULL}, {"%fun-info-names", NULL}, {"%gen-sig", NULL}, {"dl", NULL}, {"class-direct-props", NULL}, {"sym-name", NULL}, {"may-isa?", NULL}, {"src-loc-line", NULL}, {"%i?", NULL}, {"", NULL}, {"@telt", NULL}, {"seq", NULL}, {"quasiquote", NULL}, {"@head", NULL}, {"%sig-val", NULL}, {"%class-of", NULL}, {"%fun-info-inlineable?-setter", NULL}, {"@adr?", NULL}, {"%class-row-setter", NULL}, {"%fu", NULL}, {"%prop-unbound-error", NULL}, {"class-children-setter", NULL}, {"@elt", NULL}, {"", NULL}, {"%vm-fun-env-fab", NULL}, {"", NULL}, {"prop-init", NULL}, {"if", NULL}, {"%iu", NULL}, {"class-forward-setter", NULL}, {"%sig-unification-vars", NULL}, {"@int?", NULL}, {"%app-filename", NULL}, {"%class-gens-setter", NULL}, {"%sp-reg-setter", NULL}, {"return-type-error", NULL}, {"%fun-info-inlineable?", NULL}, {"@rev", NULL}, {"@map", NULL}, {"use/export", NULL}, {"", NULL}, {"use/include", NULL}, {"%str", NULL}, {"union-elts", NULL}, {"class-children", NULL}, {"%loc-off", NULL}, {"%i>>", NULL}, {"%unlink-stack", NULL}, {"fun-info-setter", NULL}, {"%opts-tup", NULL}, {"class-forward", NULL}, {"@lit", NULL}, {"@@nul?", NULL}, {"%head", NULL}, {"", NULL}, {"%raw-call", NULL}, {"$max-int", NULL}, {"ct", NULL}, {"%sb", NULL}, {"try", NULL}, {"%class-parents", NULL}, {"sig-specs-setter", NULL}, {"@tup", NULL}, {"%fun-val-check-type", NULL}, {"%lb", NULL}, {"%sp-reg", NULL}, {"", NULL}, {"opts-location", NULL}, {"fun-info", NULL}, {"%fun-info-src-loc", NULL}, {"%fun-info-src", NULL}, {"", NULL}, {"%def-regs", NULL}, {"%allocate-stack", NULL}, {"@nul?", NULL}, {"%gen-info", NULL}, {"%invoke-debugger", NULL}, {"fun-info-count-setter", NULL}, {"", NULL}, {"%vnm", NULL}, {"sig-specs", NULL}, {"%fun-info-src-loc-setter", NULL}, {"prop-offset", NULL}, {"ddv", NULL}, {"not", NULL}, {"%stack-reg", NULL}, {"sig-val", NULL}, {"%class-props-setter", NULL}, {"app-args", NULL}, {"@subclass?", NULL}, {"%met", NULL}, {"%i<", NULL}, {"", NULL}, {"%it/", NULL}, {"%do-stack-frames", NULL}, {"", NULL}, {"%tup", NULL}, {"ds", NULL}, {"property-type-error", NULL}, {"@+", NULL}, {"fun-info-count", NULL}, {"as-error", NULL}, {"property-unbound-error", NULL}, {"prop-type", NULL}, {"property-not-found-error", NULL}, {"@==", NULL}, {"%sig-specs", NULL}, {"dm", NULL}, {"%vsp-setter", NULL}, {"%@class-of", NULL}, {"%rep", NULL}, {"@add-new", NULL}, {"app-filename", NULL}, {"export", NULL}, {"%macro", NULL}, {"%vfn-setter", NULL}, {"%i<<", NULL}, {"%loc-val", NULL}, {"", NULL}, {"@tail-setter", NULL}, {"dp", NULL}, {"%met-env-setter", NULL}, {"type-class", NULL}, {"props-of", NULL}, {"%eof-object", NULL}, {"%dispatch", NULL}, {"syntax-error", NULL}, {"", NULL}, {"@singleton-isa?", NULL}, {"%dyn-var-val-setter", NULL}, {"loc", NULL}, {"%%macro", NULL}, {"dp!", NULL}, {"class-parents-setter", NULL}, {"%gen-cache-arg-pos-setter", NULL}, {"%loc-off-setter", NULL}, {"tail-setter", NULL}, {"@@==", NULL}, {"%type-object", NULL}, {"", NULL}, {"mif", NULL}, {"", NULL}, {"class-props-setter", NULL}, {"error", NULL}, {"sig-unification-vars", NULL}, {"@tail", NULL}, {"@fold", NULL}, {"gen-cache-classes", NULL}, {"df", NULL}, {"fun-cache", NULL}, {"%vm-fun-env-elt-setter", NULL}, {"no-applicable-methods-error", NULL}, {"%i+", NULL}, {"box-value-setter", NULL}, {"no-next-methods-error", NULL}, {"%raw-met-call", NULL}, {"", NULL}, {"%fun-info-name", NULL}, {"%fab-met", NULL}, {"%im", NULL}, {"class-parents", NULL}, {"fun-sig-setter", NULL}, {"tail", NULL}, {"", NULL}, {"argument-type-error", NULL}, {"d.", NULL}, {"class-props", NULL}, {"stack-overflow-error", NULL}, {"@tall2?", NULL}, {"@any?", NULL}, {"%vpc", NULL}, {"def", NULL}, {"%telt", NULL}, {"cpl-error", NULL}, {"", NULL}, {"%class-ancestors", NULL}, {"unknown-function-error", NULL}, {"", NULL}, {"narity-error", NULL}, {"dg", NULL}, {"%binding-name", NULL}, {"%class-children", NULL}, {"fun-sig", NULL}, {"class-mets-setter", NULL}, {"%cb", NULL}, {"macro-expand", NULL}, {"arity-error", NULL}, {"%rlen", NULL}, {"prop-setter", NULL}, {"%next-methods-reg-setter", NULL}, {"%fun-info-count", NULL}, {"%met-code-setter", NULL}, {"box-value", NULL}, {"@may-isa?", NULL}, {"", NULL}, {"fun", NULL}, {"%with-monitor", NULL}, {"@tlen", NULL}, {"@not", NULL}, {"%fb", NULL}, {"%prop-elt-setter", NULL}, {"type-object", NULL}, {"@add", NULL}, {"class-mets", NULL}, {"", NULL}, {"fab-pair", NULL}, {"nul-prop", NULL}, {"", NULL}, {"unexec", NULL}, {"use", NULL}, {"@tany?", NULL}, {"%class-prop-len", NULL}, {"%class-children-setter", NULL}, {"file-opening-error", NULL}, {"%vm-with-cleanup", NULL}, {"ambiguous-method-error", NULL}, {"%telt-setter", NULL}, {"new", NULL}, {"%prop-init", NULL}, {"%class-mets", NULL}, {"%untag", NULL}, {"*boot-macro-names*", NULL}, {"rep", NULL}, {"%class-id", NULL}, {"sig-arity-setter", NULL}, {"%gen-cache-missable?", NULL}, {"%fun-cache", NULL}, {"fun-info-name-setter", NULL}, {"%cu", NULL}, {"gen-cache-singletons", NULL}, {"%sig-arity", NULL}, {"%tlen", NULL}, {"type-error", NULL}, {"%i!", NULL}, {"fun-info-src-setter", NULL}, {"%@subclass?", NULL}, {"arithmetic-error", NULL}, {"%union-elts", NULL}, {"%tnul", NULL}, {"*boot-macro-expanders*", NULL}, {"%classes-ready?", NULL}, {"@lst", NULL}, {"class-name", NULL}, {"%i*", NULL}, {"%object-of", NULL}, {"use/library", NULL}, {"sig-arity", NULL}, {"%process-module", NULL}, {"internal-error", NULL}, {"@telt-setter", NULL}, {"%gen-cache-singletons", NULL}, {"fun-info-name", NULL}, {"isa?", NULL}, {"", NULL}, {"%met-env", NULL}, {"nil", NULL}, {"%class-id-setter", NULL}, {"%singleton", NULL}, {"%relt-setter", NULL}, {"%sig-nary?", NULL}, {"fun-code", NULL}, {"*macros-ok?*", NULL}, {"%prop-dat-at", NULL}, {"", NULL}, {"dc", NULL}, {"prop-getter", NULL}, {"%vfn", NULL}, {"%lu", NULL}, {"range-error", NULL}, {"%gen-cache-singletons-setter", NULL}, {"%prop-type", NULL}, {"%raw", NULL}, {"quote", NULL}, {"sig-val-setter", NULL}, {"fun-info-names-setter", NULL}, {"fun-info-src", NULL}, {"%vm-box-val-setter", NULL}, {"@class-isa?", NULL}, {"fin", NULL}, {"", NULL}, {"@pick", NULL}, {"fun-mets-setter", NULL}, {"class-row", NULL}, {"%slen", NULL}, {"%dyn-var-val", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSboot; MODULE_INFO module_info_gooSboot = { "goo/boot", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ /* EXPRESSION: */ extern void load_module_gooSboot (void); void load_module_gooSboot (void) { static int need_init = 1; if (!need_init) return; need_init = 0; (P)Y___main_0___(); (P)Y___main_1___(); (P)Y___main_2___(); (P)Y___main_3___(); (P)Y___main_4___(); (P)Y___main_5___(); (P)Y___main_6___(); (P)Y___main_7___(); (P)Y___main_8___(); (P)Y___main_9___(); (P)Y___main_10___(); (P)Y___main_11___(); (P)Y___main_12___(); (P)Y___main_13___(); (P)Y___main_14___(); (P)Y___main_15___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/chr.c0100644000175000017500000017307307756744550014350 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/chr"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/chr */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); DEF(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); DEF(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); DEF(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); DEF(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); DEF(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooSmathYatan,"goo/math","atan"); DEF(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); DEF(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); DEF(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); DEF(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); DEF(YgooSchrYupperQ,"goo/chr","upper?"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); DEF(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YLlogG,"goo/boot",""); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_12); DEFLIT(lit_13); DEFLIT(lit_2); DEFLIT(lit_22); DEFLIT(lit_5); DEFLIT(lit_21); DEFLIT(lit_8); DEFLIT(lit_33); DEFLIT(lit_3); DEFLIT(lit_7); DEFLIT(lit_4); DEFLIT(lit_1); DEFLIT(lit_14); DEFLIT(lit_17); DEFLIT(lit_32); DEFLIT(lit_11); DEFLIT(lit_34); DEFLIT(lit_9); DEFLIT(lit_27); DEFLIT(lit_18); DEFLIT(lit_23); DEFLIT(lit_29); DEFLIT(lit_10); DEFLIT(lit_19); DEFLIT(lit_35); DEFLIT(lit_31); DEFLIT(lit_25); DEFLIT(lit_15); DEFLIT(lit_0); DEFLIT(lit_20); DEFLIT(lit_16); DEFLIT(lit_30); DEFLIT(lit_6); DEFLIT(lit_28); DEFLIT(lit_24); DEFLIT(lit_26); /* FUNCTIONS: */ LOCFOR(fun_as_0); LOCFOR(fun_as_1); LOCFOR(fun_L_2); LOCFOR(fun_EE_3); LOCFOR(fun_lowerQ_4); LOCFOR(fun_upperQ_5); LOCFOR(fun_to_lower_6); LOCFOR(fun_to_upper_7); LOCFOR(fun_to_digit_8); LOCFOR(fun_to_str_9); LOCFOR(fun_alphaQ_10); LOCFOR(fun_digitQ_11); LOCFOR(fun_eof_objectQ_12); LOCFOR(fun_eof_objectQ_13); LOCFOR(fun_eof_object_14); extern P YgooSchrY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_as_0) { P U_,i_; P tF2937; P xF2936; P xF2935; P xF2934; P xF2933; P T0,T1,T2; LINK_STACK(); ARG(U_, 0); ARG(i_, 1); xF2933 = i_; xF2934 = xF2933; T2 = (P)YPiGG(xF2934,(P)2); xF2935 = T2; xF2936 = xF2935; tF2937 = (P)2; T1 = (P)YPiLL(xF2936,(P)2); T0 = (P)YPiv(T1,tF2937); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_as_1) { P U_,c_; P tF2942; P xF2941; P xF2940; P xF2939; P xF2938; P T0,T1,T2; LINK_STACK(); ARG(U_, 0); ARG(c_, 1); xF2938 = c_; xF2939 = xF2938; T2 = (P)YPiGG(xF2939,(P)2); xF2940 = T2; xF2941 = xF2940; tF2942 = (P)1; T1 = (P)YPiLL(xF2941,(P)2); T0 = (P)YPiv(T1,tF2942); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_2) { P x_,y_; P xF2946; P xF2945; P xF2944; P xF2943; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2943 = x_; xF2944 = xF2943; T2 = (P)YPiGG(xF2944,(P)2); xF2945 = y_; xF2946 = xF2945; T3 = (P)YPiGG(xF2946,(P)2); T1 = (P)YPcL(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_EE_3) { P x_,y_; P xF2950; P xF2949; P xF2948; P xF2947; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2947 = x_; xF2948 = xF2947; T2 = (P)YPiGG(xF2948,(P)2); xF2949 = y_; xF2950 = xF2949; T3 = (P)YPiGG(xF2950,(P)2); T1 = (P)YPcE(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_lowerQ_4) { P x_; P codeF2951; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); T5 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),x_); codeF2951 = T5; T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)97)); T1 = CALL2(1,VARREF(YgooSmagYGE),codeF2951,T2); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)122)); T3 = CALL2(1,VARREF(YgooSmagYLE),codeF2951,T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_upperQ_5) { P x_; P codeF2952; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); T5 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),x_); codeF2952 = T5; T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)65)); T1 = CALL2(1,VARREF(YgooSmagYGE),codeF2952,T2); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)90)); T3 = CALL2(1,VARREF(YgooSmagYLE),codeF2952,T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_lower_6) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSchrYupperQ),x_); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),x_); T6 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)97)); T7 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)65)); T5 = CALL2(1,VARREF(YgooSmathY_),T6,T7); T3 = CALL2(1,VARREF(YgooSmathYA),T4,T5); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLchrG),T3); T0 = T2; } else { T0 = x_; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_upper_7) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSchrYlowerQ),x_); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),x_); T6 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)65)); T7 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfixnumG),YPchr((P)97)); T5 = CALL2(1,VARREF(YgooSmathY_),T6,T7); T3 = CALL2(1,VARREF(YgooSmathYA),T4,T5); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLchrG),T3); T0 = T2; } else { T0 = x_; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_digit_8) { P digit_; P T0,T1,T2; LINK_STACK(); ARG(digit_, 0); T1 = CALL1(1,VARREF(YgooSchrYchar_Gascii),digit_); T2 = CALL1(1,VARREF(YgooSchrYchar_Gascii),YPchr((P)48)); T0 = CALL2(1,VARREF(YgooSmathY_),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_9) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSchrYfabs),VARREF(YLstrG),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_alphaQ_10) { P x_; P tmpF2953; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); T5 = CALL2(1,VARREF(YgooSmagYLE),YPchr((P)97),x_); if (T5 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmagYLE),x_,YPchr((P)122)); T4 = T6; } else { T4 = YPfalse; } tmpF2953 = T4; if (tmpF2953 != YPfalse) { T0 = tmpF2953; } else { T2 = CALL2(1,VARREF(YgooSmagYLE),YPchr((P)65),x_); if (T2 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmagYLE),x_,YPchr((P)90)); T1 = T3; } else { T1 = YPfalse; } T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_digitQ_11) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooSmagYLE),YPchr((P)48),x_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSmagYLE),x_,YPchr((P)57)); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_eof_objectQ_12) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_eof_objectQ_13) { P x_; P xF2955; P xF2954; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); xF2954 = x_; xF2955 = xF2954; T2 = (P)YPiGG(xF2955,(P)2); T3 = (P)YPeof_object(); T1 = (P)YPeqQ(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_eof_object_14) { P tF2958; P xF2957; P xF2956; P T0,T1,T2; LINK_STACK(); T2 = (P)YPeof_object(); xF2956 = T2; xF2957 = xF2956; tF2958 = (P)2; T1 = (P)YPiLL(xF2957,(P)2); T0 = (P)YPiv(T1,tF2958); UNLINK_STACK(); RET(T0); } P YgooSchrY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80; DEFCREGS(); lit_0 = YPPsym((P)"lower?"); lit_1 = YPPlist(1,YPPsym((P)"")); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSchrYlowerQ,T0); lit_2 = YPPsym((P)"upper?"); lit_3 = YPPlist(1,YPPsym((P)"")); T3 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSchrYupperQ,T2); lit_4 = YPPsym((P)"to-lower"); lit_5 = YPPlist(1,YPPsym((P)"")); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSchrYto_lower,T4); lit_6 = YPPsym((P)"to-upper"); lit_7 = YPPlist(1,YPPsym((P)"")); T7 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooSchrYto_upper,T6); lit_8 = YPPsym((P)"to-digit"); lit_9 = YPPlist(1,YPPsym((P)"")); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooSchrYto_digit,T8); lit_10 = YPPsym((P)"alpha?"); lit_11 = YPPlist(1,YPPsym((P)"")); T11 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooSchrYalphaQ,T10); lit_12 = YPPsym((P)"digit?"); lit_13 = YPPlist(1,YPPsym((P)"")); T13 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T12 = YPfab_gen(T13,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooSchrYdigitQ,T12); lit_14 = YPPsym((P)"eof-object?"); lit_15 = YPPlist(1,YPPsym((P)"")); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_14),LITREF(lit_15),YPfalse); VARSET(YgooSchrYeof_objectQ,T14); lit_16 = YPPsym((P)"eof-object"); lit_17 = Ynil; T17 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLchrG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_16),LITREF(lit_17),YPfalse); VARSET(YgooSchrYeof_object,T16); lit_18 = YPPsym((P)"as"); lit_19 = YPPlist(2,YPPsym((P)"_"),YPPsym((P)"i")); T19 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLchrG)); T18 = YPfab_sig(YPPlist(2,T19,VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLchrG),Ynil); fun_as_0 = YPfab_met(FUNCODEREF(fun_as_0),T18,LITREF(lit_18),LITREF(lit_19),sloc(24),YPfalse); T21 = VARREF_OR(YgooStypesYas,YPfalse); T22 = fun_as_0; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YgooStypesYas,T20); lit_20 = YPPlist(2,YPPsym((P)"_"),YPPsym((P)"c")); T24 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLintG)); T23 = YPfab_sig(YPPlist(2,T24,VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_as_1 = YPfab_met(FUNCODEREF(fun_as_1),T23,LITREF(lit_18),LITREF(lit_20),sloc(27),YPfalse); T26 = VARREF_OR(YgooStypesYas,YPfalse); T27 = fun_as_1; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooStypesYas,T25); lit_21 = YPPsym((P)"<"); lit_22 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T28 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_2 = YPfab_met(FUNCODEREF(fun_L_2),T28,LITREF(lit_21),LITREF(lit_22),sloc(30),YPfalse); T30 = VARREF_OR(YgooSmagYL,YPfalse); T31 = fun_L_2; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooSmagYL,T29); lit_23 = YPPsym((P)"=="); lit_24 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T32 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_EE_3 = YPfab_met(FUNCODEREF(fun_EE_3),T32,LITREF(lit_23),LITREF(lit_24),sloc(33),YPfalse); T34 = VARREF_OR(YgooSmacrosYEE,YPfalse); T35 = fun_EE_3; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooSmacrosYEE,T33); lit_25 = YPPlist(1,YPPsym((P)"x")); T36 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_lowerQ_4 = YPfab_met(FUNCODEREF(fun_lowerQ_4),T36,LITREF(lit_0),LITREF(lit_25),sloc(36),YPfalse); T38 = VARREF_OR(YgooSchrYlowerQ,YPfalse); T39 = fun_lowerQ_4; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSchrYlowerQ,T37); lit_26 = YPPlist(1,YPPsym((P)"x")); T40 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_upperQ_5 = YPfab_met(FUNCODEREF(fun_upperQ_5),T40,LITREF(lit_2),LITREF(lit_26),sloc(42),YPfalse); T42 = VARREF_OR(YgooSchrYupperQ,YPfalse); T43 = fun_upperQ_5; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooSchrYupperQ,T41); lit_27 = YPPlist(1,YPPsym((P)"x")); T44 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_to_lower_6 = YPfab_met(FUNCODEREF(fun_to_lower_6),T44,LITREF(lit_4),LITREF(lit_27),sloc(48),YPfalse); T46 = VARREF_OR(YgooSchrYto_lower,YPfalse); T47 = fun_to_lower_6; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooSchrYto_lower,T45); lit_28 = YPPlist(1,YPPsym((P)"x")); T48 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_to_upper_7 = YPfab_met(FUNCODEREF(fun_to_upper_7),T48,LITREF(lit_6),LITREF(lit_28),sloc(53),YPfalse); T50 = VARREF_OR(YgooSchrYto_upper,YPfalse); T51 = fun_to_upper_7; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooSchrYto_upper,T49); lit_29 = YPPlist(1,YPPsym((P)"digit")); T52 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_to_digit_8 = YPfab_met(FUNCODEREF(fun_to_digit_8),T52,LITREF(lit_8),LITREF(lit_29),sloc(58),YPfalse); T54 = VARREF_OR(YgooSchrYto_digit,YPfalse); T55 = fun_to_digit_8; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooSchrYto_digit,T53); lit_30 = YPPsym((P)"to-str"); lit_31 = YPPlist(1,YPPsym((P)"x")); T56 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_9 = YPfab_met(FUNCODEREF(fun_to_str_9),T56,LITREF(lit_30),LITREF(lit_31),sloc(61),YPfalse); T58 = VARREF_OR(YgooSanyYto_str,YPfalse); T59 = fun_to_str_9; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YgooSanyYto_str,T57); lit_32 = YPPlist(1,YPPsym((P)"x")); T60 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_alphaQ_10 = YPfab_met(FUNCODEREF(fun_alphaQ_10),T60,LITREF(lit_10),LITREF(lit_32),sloc(64),YPfalse); T62 = VARREF_OR(YgooSchrYalphaQ,YPfalse); T63 = fun_alphaQ_10; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooSchrYalphaQ,T61); lit_33 = YPPlist(1,YPPsym((P)"x")); T64 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_digitQ_11 = YPfab_met(FUNCODEREF(fun_digitQ_11),T64,LITREF(lit_12),LITREF(lit_33),sloc(68),YPfalse); T66 = VARREF_OR(YgooSchrYdigitQ,YPfalse); T67 = fun_digitQ_11; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooSchrYdigitQ,T65); lit_34 = YPPlist(1,YPPsym((P)"x")); T68 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_eof_objectQ_12 = YPfab_met(FUNCODEREF(fun_eof_objectQ_12),T68,LITREF(lit_14),LITREF(lit_34),sloc(71),YPfalse); T70 = VARREF_OR(YgooSchrYeof_objectQ,YPfalse); T71 = fun_eof_objectQ_12; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YgooSchrYeof_objectQ,T69); lit_35 = YPPlist(1,YPPsym((P)"x")); T72 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_eof_objectQ_13 = YPfab_met(FUNCODEREF(fun_eof_objectQ_13),T72,LITREF(lit_14),LITREF(lit_35),sloc(74),YPfalse); T74 = VARREF_OR(YgooSchrYeof_objectQ,YPfalse); T75 = fun_eof_objectQ_13; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooSchrYeof_objectQ,T73); T76 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLchrG),Ynil); fun_eof_object_14 = YPfab_met(FUNCODEREF(fun_eof_object_14),T76,LITREF(lit_16),LITREF(lit_17),sloc(77),YPfalse); T78 = VARREF_OR(YgooSchrYeof_object,YPfalse); T79 = fun_eof_object_14; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YgooSchrYeof_object,T77); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T80 = YPfalse; return T80; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSmath; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmag}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSmath}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"eof-object", CVAR, &YgooSchrYeof_object}, {"eof-object?", CVAR, &YgooSchrYeof_objectQ}, {"digit?", CVAR, &YgooSchrYdigitQ}, {"alpha?", CVAR, &YgooSchrYalphaQ}, {"to-digit", CVAR, &YgooSchrYto_digit}, {"to-upper", CVAR, &YgooSchrYto_upper}, {"fabs", CVAR, &YgooSchrYfabs}, {"char->ascii", CVAR, &YgooSchrYchar_Gascii}, {"to-lower", CVAR, &YgooSchrYto_lower}, {"upper?", CVAR, &YgooSchrYupperQ}, {"lower?", CVAR, &YgooSchrYlowerQ}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"eof-object", NULL}, {"eof-object?", NULL}, {"digit?", NULL}, {"alpha?", NULL}, {"to-digit", NULL}, {"to-upper", NULL}, {"fabs", NULL}, {"char->ascii", NULL}, {"to-lower", NULL}, {"upper?", NULL}, {"lower?", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSchr; MODULE_INFO module_info_gooSchr = { "goo/chr", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmag (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSmath (void); /* EXPRESSION: */ extern void load_module_gooSchr (void); void load_module_gooSchr (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmag(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSmath(); (P)YgooSchrY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/class.c0100644000175000017500000024106007756744550014671 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/class"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/class */ EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); DEF(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); DEF(YgooSclassYTnext_class_idT,"goo/class","*next-class-id*"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); DEF(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); DEF(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); DEF(YgooSclassYPprop,"goo/class","%prop"); DEF(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); DEF(YgooSclassYinit_class,"goo/class","init-class"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); DEF(YgooSclassYLparentsG,"goo/class",""); DEF(YgooSclassYdel_class,"goo/class","del-class"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YLcolIG,"goo/boot",""); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); DEF(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooSclassYfinalize_props,"goo/class","finalize-props"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); DEF(YgooSclassYclass_ordered_props,"goo/class","class-ordered-props"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); DEF(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YgooSclassYOclass_direct_props,"goo/class","@class-direct-props"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); DEF(YgooSclassYOdo_descendents,"goo/class","@do-descendents"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(Yapp_args,"goo/boot","app-args"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); DEF(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); DEF(YgooSclassYDgetter_not_found,"goo/class","$getter-not-found"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); DEF(YgooSclassYforward_class,"goo/class","forward-class"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); DEF(YgooSclassYrefab_class,"goo/class","refab-class"); DEF(YgooSclassYclass_ordered_ancestors,"goo/class","class-ordered-ancestors"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); DEF(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); DEF(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); DEF(YgooSclassYDmax_classes,"goo/class","$max-classes"); DEF(YgooSclassYpatch_early_classes,"goo/class","patch-early-classes"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); DEF(YgooSclassYOclass_ancestors,"goo/class","@class-ancestors"); EXT(YLtypeG,"goo/boot",""); DEF(YgooSclassYLpropsG,"goo/class",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); DEF(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_43); DEFLIT(lit_14); DEFLIT(lit_22); DEFLIT(lit_50); DEFLIT(lit_63); DEFLIT(lit_60); DEFLIT(lit_28); DEFLIT(lit_25); DEFLIT(lit_57); DEFLIT(lit_20); DEFLIT(lit_48); DEFLIT(lit_4); DEFLIT(lit_17); DEFLIT(lit_12); DEFLIT(lit_34); DEFLIT(lit_5); DEFLIT(lit_8); DEFLIT(lit_52); DEFLIT(lit_44); DEFLIT(lit_49); DEFLIT(lit_68); DEFLIT(lit_29); DEFLIT(lit_58); DEFLIT(lit_35); DEFLIT(lit_69); DEFLIT(lit_56); DEFLIT(lit_26); DEFLIT(lit_55); DEFLIT(lit_19); DEFLIT(lit_62); DEFLIT(lit_2); DEFLIT(lit_51); DEFLIT(lit_39); DEFLIT(lit_21); DEFLIT(lit_53); DEFLIT(lit_31); DEFLIT(lit_23); DEFLIT(lit_46); DEFLIT(lit_37); DEFLIT(lit_67); DEFLIT(lit_1); DEFLIT(lit_54); DEFLIT(lit_15); DEFLIT(lit_65); DEFLIT(lit_7); DEFLIT(lit_27); DEFLIT(lit_6); DEFLIT(lit_64); DEFLIT(lit_0); DEFLIT(lit_30); DEFLIT(lit_33); DEFLIT(lit_13); DEFLIT(lit_10); DEFLIT(lit_16); DEFLIT(lit_61); DEFLIT(lit_47); DEFLIT(lit_66); DEFLIT(lit_32); DEFLIT(lit_9); DEFLIT(lit_36); DEFLIT(lit_40); DEFLIT(lit_41); DEFLIT(lit_18); DEFLIT(lit_45); DEFLIT(lit_59); DEFLIT(lit_38); DEFLIT(lit_3); DEFLIT(lit_24); DEFLIT(lit_42); DEFLIT(lit_11); /* FUNCTIONS: */ FUNFOR(YgooSclassYOclass_ancestors); LOCFOR(fun_tailQ_1); LOCFOR(fun_candidate_2); LOCFOR(fun_candidate_at_head_3); LOCFOR(fun_del_next_4); FUNFOR(YgooSclassYclass_ordered_ancestors); FUNFOR(YgooSclassYOclass_direct_props); FUNFOR(YgooSclassYclass_ordered_props); FUNFOR(YgooSclassYdel_class); LOCFOR(fun_9); LOCFOR(fun_10); FUNFOR(YgooSclassYinit_class); FUNFOR(YgooSclassYfab_class); FUNFOR(YgooSclassYrefab_class); FUNFOR(YgooSclassYclass_of); FUNFOR(Yprops_of); extern P YgooSclassYensure_fresh_object (P); FUNFOR(Yprop_offset); FUNFOR(YPprop_unbound_error); FUNFOR(YgooSclassYprop_value); FUNFOR(YgooSclassYprop_boundQ); FUNFOR(YgooSclassYprop_value_setter); FUNFOR(YgooSclassYfind_getter); FUNFOR(YgooSclassYfind_setter); LOCFOR(fun_24); FUNFOR(YgooSclassYforward_class); FUNFOR(YgooSclassYclone); LOCFOR(fun_visit_27); FUNFOR(YgooSclassYOdo_descendents); LOCFOR(fun_29); FUNFOR(YgooSclassYfinalize_props); FUNFOR(YgooSclassYPprop); extern P YgooSclassYPupdate_instance_for_changed_class (P); FUNFOR(Yupdate_instance_for_changed_class); FUNFOR(YgooSclassYpatch_early_classes); extern P YgooSclassYPnew (P,P); FUNFOR(YOnew); LOCFOR(fun_new_37); extern P YgooSclassY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSclassYOclass_ancestors) { P x_; P xF1854; P T0; LINK_STACK(); ARG(x_, 0); xF1854 = x_; T0 = (P)YPprop_elt(xF1854,(P)4); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_tailQ_1) { P l_; P xF1856; P xF1855; P T0,T1; LINK_STACK(); ARG(l_, 0); xF1855 = l_; xF1856 = xF1855; T1 = (P)YPprop_elt(xF1856,(P)1); T0 = CALL2(1,VARREF(YOmemQ),T1,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_candidate_2) { P c_; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); T3 = FUNFAB(fun_tailQ_1,1,c_); T2 = CALL2(1,VARREF(YOanyQ),T3,FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T0 = c_; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_candidate_at_head_3) { P l_; P xF1860; P xF1859; P xF1858; P xF1857; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(l_, 0); xF1857 = l_; xF1858 = xF1857; T3 = (P)YPeqQ(xF1858,VARREF(Ynil)); T2 = (P)YPbb(T3); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { xF1859 = l_; xF1860 = xF1859; T5 = (P)YPprop_elt(xF1860,(P)0); T4 = CALL1(1,FREEREF(0),T5); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_del_next_4) { P l_; P xF1866; P xF1865; P yF1864; P xF1863; P xF1862; P xF1861; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(l_, 0); xF1861 = l_; xF1862 = xF1861; T3 = (P)YPprop_elt(xF1862,(P)0); xF1863 = T3; yF1864 = FREEREF(0); T2 = (P)YPeqQ(xF1863,yF1864); T1 = (P)YPbb(T2); if (T2) { xF1865 = l_; xF1866 = xF1865; T4 = (P)YPprop_elt(xF1866,(P)1); T0 = T4; } else { T0 = l_; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYclass_ordered_ancestors) { P c_; P nextF1873; P candidate_at_headF1872; P candidateF1871; P remaining_listsF1870; P partial_cplF1869; P parentsF1868; P xF1867; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(c_, 0); xF1867 = c_; T15 = (P)YPprop_elt(xF1867,(P)2); parentsF1868 = T15; T12 = CALL1(1,VARREF(YOlst),c_); check_type(T12,VARREF(YLlstG)); partial_cplF1869 = T12; T14 = CALL2(1,VARREF(YOmap),VARREF(YgooSclassYOclass_ancestors),parentsF1868); T13 = (P)YOadd(T14,parentsF1868); check_type(T13,VARREF(YLlstG)); remaining_listsF1870 = T13; LOOP_43: { P a43_0,a43_1; T1 = CALL2(1,VARREF(YOallQ),VARREF(YOOnulQ),remaining_listsF1870); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YOrevX),partial_cplF1869); T0 = T2; } else { T10 = FUNSHELL(1,fun_candidate_2,1); candidateF1871 = T10; T11 = FUNSHELL(0,fun_candidate_at_head_3,1); candidate_at_headF1872 = T11; FUNINIT(candidateF1871, 1,remaining_listsF1870); FUNINIT(candidate_at_headF1872, 1,candidateF1871); T9 = CALL2(1,VARREF(YOanyQ),candidate_at_headF1872,remaining_listsF1870); nextF1873 = T9; if (nextF1873 != YPfalse) { T5 = (P)YOpair(nextF1873,partial_cplF1869); T7 = FUNFAB(fun_del_next_4,1,nextF1873); T6 = CALL2(1,VARREF(YOmap),T7,remaining_listsF1870); a43_0 = T5; a43_1 = T6; partial_cplF1869 = a43_0; remaining_listsF1870 = a43_1; goto LOOP_43; T3 = T4; } else { T8 = CALL1(1,VARREF(Ycpl_error),LITREF(lit_12)); T3 = T8; } T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSclassYOclass_direct_props) { P x_; P xF1874; P T0; LINK_STACK(); ARG(x_, 0); xF1874 = x_; T0 = (P)YPprop_elt(xF1874,(P)3); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYclass_ordered_props) { P x_; P propsF1876; P xF1875; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); xF1875 = x_; T5 = (P)YPprop_elt(xF1875,(P)4); T4 = CALL1(1,VARREF(YOrev),T5); T3 = CALL2(1,VARREF(YOmap),VARREF(YgooSclassYOclass_direct_props),T4); T2 = CALL3(1,VARREF(YOfold),VARREF(YOcat2),Ynil,T3); T1 = CALL1(1,VARREF(YOdel_dups),T2); propsF1876 = T1; T0 = (P)YOlen(propsF1876); (P)YPclass_prop_len_setter(T0,x_); UNLINK_STACK(); RET(propsF1876); } FUNCODEDEF(YgooSclassYdel_class) { P class_; LINK_STACK(); ARG(class_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_9) { P parent_; P xF1877; P T0,T1,T2; LINK_STACK(); ARG(parent_, 0); xF1877 = parent_; T2 = (P)YPprop_elt(xF1877,(P)6); T1 = (P)YOadd_new(T2,FREEREF(0)); T0 = (P)YPclass_children_setter(T1,parent_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_10) { P ancestor_; P xF1882; P xF1881; P xF1880; P xF1879; P xF1878; P T0,T1,T2,T3; LINK_STACK(); ARG(ancestor_, 0); xF1878 = YPint((P)1); xF1879 = xF1878; T1 = (P)YPiGG(xF1879,(P)2); xF1880 = ancestor_; T3 = (P)YPprop_elt(xF1880,(P)10); xF1881 = T3; xF1882 = xF1881; T2 = (P)YPiGG(xF1882,(P)2); T0 = (P)YPselt_setter(T1,FREEREF(0),T2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYinit_class) { P x_; P xF1910; P rowF1909; P xF1908; P xF1907; P xF1906; P xF1905; P xF1904; P xF1903; P yF1902; P xF1901; P tF1900; P xF1899; P xF1898; P xF1897; P xF1896; P xF1895; P xF1894; P yF1893; P xF1892; P yF1891; P xF1890; P xF1889; P xF1888; P xF1887; P xF1886; P xF1885; P yF1884; P xF1883; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; LINK_STACK(); ARG(x_, 0); xF1883 = VARREF(YgooSclassYDmax_classes); yF1884 = VARREF(YgooSclassYTnext_class_idT); xF1885 = xF1883; xF1886 = xF1885; T2 = (P)YPiGG(xF1886,(P)2); xF1887 = yF1884; xF1888 = xF1887; T3 = (P)YPiGG(xF1888,(P)2); T1 = (P)YPiL(T2,T3); T0 = (P)YPbb(T1); if (T1) { T4 = CALL2(1,VARREF(Yinternal_error),LITREF(lit_21),VARREF(YgooSclassYDmax_classes)); } else { } xF1889 = x_; T8 = (P)YPprop_elt(xF1889,(P)2); T7 = (P)YOlen(T8); xF1890 = T7; yF1891 = YPint((P)0); T6 = (P)YPeqQ(xF1890,yF1891); T5 = (P)YPbb(T6); if (T6) { T9 = CALL1(1,VARREF(Yinternal_error),LITREF(lit_22)); } else { } (P)YPclass_id_setter(VARREF(YgooSclassYTnext_class_idT),x_); xF1892 = VARREF(YgooSclassYTnext_class_idT); yF1893 = YPint((P)1); xF1894 = xF1892; xF1895 = xF1894; T13 = (P)YPiGG(xF1895,(P)2); xF1896 = yF1893; xF1897 = xF1896; T14 = (P)YPiGG(xF1897,(P)2); T12 = (P)YPiA(T13,T14); xF1898 = T12; xF1899 = xF1898; tF1900 = (P)1; T11 = (P)YPiLL(xF1899,(P)2); T10 = (P)YPiv(T11,tF1900); VARSET(YgooSclassYTnext_class_idT,T10); xF1901 = x_; yF1902 = VARREF(YLanyG); T18 = (P)YPeqQ(xF1901,yF1902); T17 = (P)YPbb(T18); xF1903 = T17; T16 = (P)YPeqQ(xF1903,YPfalse); T15 = (P)YPbb(T16); if (T16) { T19 = FUNFAB(fun_9,1,x_); xF1904 = x_; T20 = (P)YPprop_elt(xF1904,(P)2); CALL2(1,VARREF(YOdo),T19,T20); T22 = CALL1(1,VARREF(YgooSclassYclass_ordered_ancestors),x_); T21 = (P)YPclass_ancestors_setter(T22,x_); } else { } xF1905 = VARREF(YgooSclassYDmax_classes); xF1906 = xF1905; T27 = (P)YPiGG(xF1906,(P)2); xF1907 = YPint((P)0); xF1908 = xF1907; T28 = (P)YPiGG(xF1908,(P)2); T26 = (P)YPstr(T27,T28); rowF1909 = T26; (P)YPclass_row_setter(rowF1909,x_); T23 = FUNFAB(fun_10,1,rowF1909); xF1910 = x_; T24 = (P)YPprop_elt(xF1910,(P)4); CALL2(1,VARREF(YOdo),T23,T24); T25 = CALL1(1,VARREF(YgooSclassYclass_ordered_props),x_); (P)YPclass_props_setter(T25,x_); UNLINK_STACK(); QRET(x_); } FUNCODEDEF(YgooSclassYfab_class) { P name_,parents_; P xF1911; P T0; LINK_STACK(); ARG(name_, 0); ARG(parents_, 1); T0 = (P)YPclass(YPint((P)0),name_,parents_,Ynil,Ynil,Ynil,Ynil,Ynil,Ynil,YPfalse,YPint((P)-1),YPfalse); xF1911 = T0; CALL1(1,VARREF(YgooSclassYinit_class),xF1911); UNLINK_STACK(); RET(xF1911); } FUNCODEDEF(YgooSclassYrefab_class) { P old_class_,parents_; P new_classF1913; P xF1912; P T0,T1; LINK_STACK(); ARG(old_class_, 0); ARG(parents_, 1); xF1912 = old_class_; T1 = (P)YPprop_elt(xF1912,(P)3); T0 = CALL2(1,VARREF(YgooSclassYfab_class),parents_,T1); new_classF1913 = T0; (P)YPclass_forward_setter(new_classF1913,old_class_); UNLINK_STACK(); RET(new_classF1913); } FUNCODEDEF(YgooSclassYclass_of) { P x_; P tagF1916; P xF1915; P xF1914; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); xF1914 = x_; xF1915 = xF1914; T5 = (P)YPiB(xF1915,(P)3); tagF1916 = T5; T2 = (P)YPiE(tagF1916,(P)0); T1 = (P)YPbb(T2); if (T2) { T3 = (P)YPobject_class(xF1914); T0 = T3; } else { T4 = (P)YPelt(VARREF(YDdirect_object_class),tagF1916); T0 = T4; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Yprops_of) { P x_; P xF1920; P tagF1919; P xF1918; P xF1917; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); xF1917 = x_; xF1918 = xF1917; T6 = (P)YPiB(xF1918,(P)3); tagF1919 = T6; T3 = (P)YPiE(tagF1919,(P)0); T2 = (P)YPbb(T3); if (T3) { T4 = (P)YPobject_class(xF1917); T1 = T4; } else { T5 = (P)YPelt(VARREF(YDdirect_object_class),tagF1919); T1 = T5; } xF1920 = T1; T0 = (P)YPprop_elt(xF1920,(P)5); UNLINK_STACK(); QRET(T0); } INLINE P YgooSclassYensure_fresh_object(P x_) { P xF1924; P tagF1923; P xF1922; P xF1921; P T0,T1,T2,T3,T4,T5,T6,T7,T8; DEFCREGS(); xF1921 = x_; xF1922 = xF1921; T7 = (P)YPiB(xF1922,(P)3); tagF1923 = T7; T4 = (P)YPiE(tagF1923,(P)0); T3 = (P)YPbb(T4); if (T4) { T5 = (P)YPobject_class(xF1921); T2 = T5; } else { T6 = (P)YPelt(VARREF(YDdirect_object_class),tagF1923); T2 = T6; } xF1924 = T2; T1 = (P)YPprop_elt(xF1924,(P)9); if (T1 != YPfalse) { T8 = XCALL1(1,VARREF(Yupdate_instance_for_changed_class),x_); T0 = T8; } else { T0 = YPfalse; } return T0; } FUNCODEDEF(Yprop_offset) { P object_,getter_; P xF1944; P xF1943; P tF1942; P xF1941; P xF1940; P xF1939; P xF1938; P xF1937; P xF1936; P yF1935; P xF1934; P yF1933; P xF1932; P xF1931; P xF1930; P xF1929; P xF1928; P xF1927; P propsF1926; P iF1925; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(object_, 0); ARG(getter_, 1); iF1925 = YPint((P)0); T15 = CALL1(1,VARREF(Yprops_of),object_); propsF1926 = T15; LOOP_44: { P a44_0,a44_1; xF1927 = propsF1926; xF1928 = xF1927; T2 = (P)YPeqQ(xF1928,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T0 = VARREF(YgooSclassYDgetter_not_found); } else { xF1929 = propsF1926; xF1930 = xF1929; T7 = (P)YPprop_elt(xF1930,(P)0); xF1931 = T7; T6 = (P)YPprop_elt(xF1931,(P)1); xF1932 = T6; yF1933 = getter_; T5 = (P)YPeqQ(xF1932,yF1933); T4 = (P)YPbb(T5); if (T5) { T3 = iF1925; } else { xF1934 = iF1925; yF1935 = YPint((P)1); xF1936 = xF1934; xF1937 = xF1936; T12 = (P)YPiGG(xF1937,(P)2); xF1938 = yF1935; xF1939 = xF1938; T13 = (P)YPiGG(xF1939,(P)2); T11 = (P)YPiA(T12,T13); xF1940 = T11; xF1941 = xF1940; tF1942 = (P)1; T10 = (P)YPiLL(xF1941,(P)2); T9 = (P)YPiv(T10,tF1942); xF1943 = propsF1926; xF1944 = xF1943; T14 = (P)YPprop_elt(xF1944,(P)1); a44_0 = T9; a44_1 = T14; iF1925 = a44_0; propsF1926 = a44_1; goto LOOP_44; T3 = T8; } T0 = T3; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YPprop_unbound_error) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); if (VARREF(YgooSclassYTreport_prop_unbound_errorsQT) != YPfalse) { T1 = CALL1(1,VARREF(Yproperty_unbound_error),x_); T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYprop_value) { P object_,getter_; P yF1952; P xF1951; P offsetF1950; P xF1949; P tagF1948; P xF1947; P xF1946; P xF1945; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(object_, 0); ARG(getter_, 1); xF1945 = object_; xF1946 = xF1945; xF1947 = xF1946; T7 = (P)YPiB(xF1947,(P)3); tagF1948 = T7; T4 = (P)YPiE(tagF1948,(P)0); T3 = (P)YPbb(T4); if (T4) { T5 = (P)YPobject_class(xF1946); T2 = T5; } else { T6 = (P)YPelt(VARREF(YDdirect_object_class),tagF1948); T2 = T6; } xF1949 = T2; T1 = (P)YPprop_elt(xF1949,(P)9); if (T1 != YPfalse) { T8 = CALL1(1,VARREF(Yupdate_instance_for_changed_class),xF1945); T0 = T8; } else { T0 = YPfalse; } T14 = CALL2(1,VARREF(Yprop_offset),object_,getter_); offsetF1950 = T14; xF1951 = offsetF1950; yF1952 = VARREF(YgooSclassYDgetter_not_found); T11 = (P)YPiE(xF1951,yF1952); T10 = (P)YPbb(T11); if (T11) { T12 = CALL2(1,VARREF(Yproperty_not_found_error),getter_,object_); T9 = T12; } else { T13 = (P)YgooSfunYprop_value_at(object_,offsetF1950); T9 = T13; } UNLINK_STACK(); QRET(T9); } FUNCODEDEF(YgooSclassYprop_boundQ) { P object_,getter_; P yF1960; P xF1959; P offsetF1958; P xF1957; P tagF1956; P xF1955; P xF1954; P xF1953; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(object_, 0); ARG(getter_, 1); xF1953 = object_; xF1954 = xF1953; xF1955 = xF1954; T7 = (P)YPiB(xF1955,(P)3); tagF1956 = T7; T4 = (P)YPiE(tagF1956,(P)0); T3 = (P)YPbb(T4); if (T4) { T5 = (P)YPobject_class(xF1954); T2 = T5; } else { T6 = (P)YPelt(VARREF(YDdirect_object_class),tagF1956); T2 = T6; } xF1957 = T2; T1 = (P)YPprop_elt(xF1957,(P)9); if (T1 != YPfalse) { T8 = CALL1(1,VARREF(Yupdate_instance_for_changed_class),xF1953); T0 = T8; } else { T0 = YPfalse; } T14 = CALL2(1,VARREF(Yprop_offset),object_,getter_); offsetF1958 = T14; xF1959 = offsetF1958; yF1960 = VARREF(YgooSclassYDgetter_not_found); T11 = (P)YPiE(xF1959,yF1960); T10 = (P)YPbb(T11); if (T11) { T12 = CALL2(1,VARREF(Yproperty_not_found_error),getter_,object_); T9 = T12; } else { T13 = (P)YgooSfunYprop_bound_atQ(object_,offsetF1958); T9 = T13; } UNLINK_STACK(); RET(T9); } FUNCODEDEF(YgooSclassYprop_value_setter) { P z_,object_,getter_; P xF2008; P xF2007; P tF2006; P xF2005; P xF2004; P xF2003; P xF2002; P xF2001; P xF2000; P yF1999; P xF1998; P xF1997; P xF1996; P xF1995; P xF1994; P xF1993; P xF1992; P xF1991; P c2F1990; P c1F1989; P tagF1988; P xF1987; P xF1986; P cF1985; P oF1984; P yF1983; P xF1982; P tagF1981; P xF1980; P xF1979; P tF1978; P oF1977; P xF1976; P yF1975; P xF1974; P xF1973; P propF1972; P xF1971; P xF1970; P xF1969; P xF1968; P propsF1967; P iF1966; P xF1965; P tagF1964; P xF1963; P xF1962; P xF1961; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53; LINK_STACK(); ARG(z_, 0); ARG(object_, 1); ARG(getter_, 2); xF1961 = object_; xF1962 = xF1961; xF1963 = xF1962; T7 = (P)YPiB(xF1963,(P)3); tagF1964 = T7; T4 = (P)YPiE(tagF1964,(P)0); T3 = (P)YPbb(T4); if (T4) { T5 = (P)YPobject_class(xF1962); T2 = T5; } else { T6 = (P)YPelt(VARREF(YDdirect_object_class),tagF1964); T2 = T6; } xF1965 = T2; T1 = (P)YPprop_elt(xF1965,(P)9); if (T1 != YPfalse) { T8 = CALL1(1,VARREF(Yupdate_instance_for_changed_class),xF1961); T0 = T8; } else { T0 = YPfalse; } iF1966 = YPint((P)0); T53 = CALL1(1,VARREF(Yprops_of),object_); propsF1967 = T53; LOOP_45: { P a45_0,a45_1; xF1968 = propsF1967; xF1969 = xF1968; T11 = (P)YPeqQ(xF1969,VARREF(Ynil)); T10 = (P)YPbb(T11); if (T11) { T12 = CALL2(1,VARREF(Yproperty_not_found_error),getter_,object_); T9 = T12; } else { xF1970 = propsF1967; xF1971 = xF1970; T52 = (P)YPprop_elt(xF1971,(P)0); propF1972 = T52; xF1973 = propF1972; T16 = (P)YPprop_elt(xF1973,(P)1); xF1974 = T16; yF1975 = getter_; T15 = (P)YPeqQ(xF1974,yF1975); T14 = (P)YPbb(T15); if (T15) { oF1977 = z_; xF1976 = propF1972; T41 = (P)YPprop_elt(xF1976,(P)3); tF1978 = T41; xF1979 = tF1978; xF1980 = xF1979; T26 = (P)YPiB(xF1980,(P)3); tagF1981 = T26; T23 = (P)YPiE(tagF1981,(P)0); T22 = (P)YPbb(T23); if (T23) { T24 = (P)YPobject_class(xF1979); T21 = T24; } else { T25 = (P)YPelt(VARREF(YDdirect_object_class),tagF1981); T21 = T25; } xF1982 = T21; yF1983 = VARREF(YLclassG); T20 = (P)YPeqQ(xF1982,yF1983); T19 = (P)YPbb(T20); if (T20) { oF1984 = oF1977; cF1985 = tF1978; xF1986 = oF1984; xF1987 = xF1986; T39 = (P)YPiB(xF1987,(P)3); tagF1988 = T39; T36 = (P)YPiE(tagF1988,(P)0); T35 = (P)YPbb(T36); if (T36) { T37 = (P)YPobject_class(xF1986); T34 = T37; } else { T38 = (P)YPelt(VARREF(YDdirect_object_class),tagF1988); T34 = T38; } c1F1989 = T34; c2F1990 = cF1985; xF1991 = c1F1989; T30 = (P)YPprop_elt(xF1991,(P)11); xF1992 = c2F1990; T32 = (P)YPprop_elt(xF1992,(P)10); xF1993 = T32; xF1994 = xF1993; T31 = (P)YPiGG(xF1994,(P)2); T29 = (P)YPselt(T30,T31); xF1995 = YPint((P)1); xF1996 = xF1995; T33 = (P)YPiGG(xF1996,(P)2); T28 = (P)YPiE(T29,T33); T27 = (P)YPbb(T28); T18 = T27; } else { T40 = CALL2(1,VARREF(YisaQ),oF1977,tF1978); T18 = T40; } if (T18 != YPfalse) { T42 = (P)YgooSfunYprop_value_at_setter(z_,object_,iF1966); T17 = T42; } else { xF1997 = propF1972; T44 = (P)YPprop_elt(xF1997,(P)3); T43 = CALL3(1,VARREF(Yproperty_type_error),getter_,z_,T44); T17 = T43; } T13 = T17; } else { xF1998 = iF1966; yF1999 = YPint((P)1); xF2000 = xF1998; xF2001 = xF2000; T49 = (P)YPiGG(xF2001,(P)2); xF2002 = yF1999; xF2003 = xF2002; T50 = (P)YPiGG(xF2003,(P)2); T48 = (P)YPiA(T49,T50); xF2004 = T48; xF2005 = xF2004; tF2006 = (P)1; T47 = (P)YPiLL(xF2005,(P)2); T46 = (P)YPiv(T47,tF2006); xF2007 = propsF1967; xF2008 = xF2007; T51 = (P)YPprop_elt(xF2008,(P)1); a45_0 = T46; a45_1 = T51; iF1966 = a45_0; propsF1967 = a45_1; goto LOOP_45; T13 = T45; } T9 = T13; } } UNLINK_STACK(); QRET(T9); } FUNCODEDEF(YgooSclassYfind_getter) { P owner_,getter_; P xF2018; P xF2017; P yF2016; P xF2015; P metF2014; P xF2013; P xF2012; P xF2011; P xF2010; P metsF2009; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(owner_, 0); ARG(getter_, 1); T11 = CALL1(1,VARREF(YgooSfunYOfun_mets),getter_); metsF2009 = T11; LOOP_46: { P a46_0; xF2010 = metsF2009; xF2011 = xF2010; T2 = (P)YPeqQ(xF2011,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL2(1,VARREF(Yproperty_not_found_error),getter_,owner_); T0 = T3; } else { xF2012 = metsF2009; xF2013 = xF2012; T10 = (P)YPprop_elt(xF2013,(P)0); metF2014 = T10; T7 = CALL2(1,VARREF(YgooSfunYfun_spec),metF2014,YPint((P)0)); xF2015 = T7; yF2016 = owner_; T6 = (P)YPeqQ(xF2015,yF2016); T5 = (P)YPbb(T6); if (T6) { T4 = metF2014; } else { xF2017 = metsF2009; xF2018 = xF2017; T9 = (P)YPprop_elt(xF2018,(P)1); a46_0 = T9; metsF2009 = a46_0; goto LOOP_46; T4 = T8; } T0 = T4; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSclassYfind_setter) { P owner_,type_,zetter_; P xF2028; P xF2027; P yF2026; P xF2025; P metF2024; P xF2023; P xF2022; P xF2021; P xF2020; P metsF2019; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(owner_, 0); ARG(type_, 1); ARG(zetter_, 2); T14 = CALL1(1,VARREF(YgooSfunYOfun_mets),zetter_); metsF2019 = T14; LOOP_47: { P a47_0; xF2020 = metsF2019; xF2021 = xF2020; T2 = (P)YPeqQ(xF2021,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL2(1,VARREF(Yproperty_not_found_error),zetter_,owner_); T0 = T3; } else { xF2022 = metsF2019; xF2023 = xF2022; T13 = (P)YPprop_elt(xF2023,(P)0); metF2024 = T13; T8 = CALL2(1,VARREF(YgooSfunYfun_spec),metF2024,YPint((P)1)); xF2025 = T8; yF2026 = owner_; T7 = (P)YPeqQ(xF2025,yF2026); T6 = (P)YPbb(T7); if (T7) { T10 = CALL2(1,VARREF(YgooSfunYfun_spec),metF2024,YPint((P)0)); T9 = CALL2(1,VARREF(YOtype_equalQ),T10,type_); T5 = T9; } else { T5 = YPfalse; } if (T5 != YPfalse) { T4 = metF2024; } else { xF2027 = metsF2019; xF2028 = xF2027; T12 = (P)YPprop_elt(xF2028,(P)1); a47_0 = T12; metsF2019 = a47_0; goto LOOP_47; T4 = T11; } T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_24) { P g_; P T0; LINK_STACK(); ARG(g_, 0); T0 = (P)YPfun_cache_setter(YPfalse,g_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYforward_class) { P old_class_; P xF2030; P new_classF2029; P T0,T1,T2,T3; LINK_STACK(); ARG(old_class_, 0); T3 = (P)YPclone(old_class_); new_classF2029 = T3; T0 = fun_24; xF2030 = old_class_; T1 = (P)YPprop_elt(xF2030,(P)7); CALL2(1,VARREF(YOdo),T0,T1); T2 = (P)YPclass_forward_setter(new_classF2029,old_class_); UNLINK_STACK(); QRET(T2); } FUNCODEDEF(YgooSclassYclone) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPclone(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_visit_27) { P x_; P xF2032; P xF2031; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); T4 = BOXGET(FREEREF(0)); T3 = CALL2(1,VARREF(YOmemQ),T4,x_); xF2031 = T3; T2 = (P)YPeqQ(xF2031,YPfalse); T1 = (P)YPbb(T2); if (T2) { T6 = BOXGET(FREEREF(0)); T5 = (P)YOadd(T6,x_); BOXPUT(T5,FREEREF(0)); CALL1(0,FREEREF(1),x_); xF2032 = x_; T8 = (P)YPprop_elt(xF2032,(P)6); T7 = CALL2(1,VARREF(YOdo),FREEREF(2),T8); T0 = T7; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYOdo_descendents) { P f_,x_; P visitF2034; P visitedF2033; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); visitedF2033 = Ynil; visitedF2033 = BOXFAB(visitedF2033); T2 = FUNSHELL(0,fun_visit_27,3); visitF2034 = T2; FUNINIT(visitF2034, 3,visitedF2033,f_,visitF2034); T1 = CALL1(1,visitF2034,x_); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_29) { P prop_; P xF2035; P T0,T1; LINK_STACK(); ARG(prop_, 0); xF2035 = prop_; T1 = (P)YPprop_elt(xF2035,(P)1); T0 = (P)YPfun_cache_setter(YPfalse,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYfinalize_props) { P class_; P xF2036; P T0,T1,T2,T3; LINK_STACK(); ARG(class_, 0); T0 = CALL1(1,VARREF(YgooSclassYclass_ordered_props),class_); (P)YPclass_props_setter(T0,class_); T2 = fun_29; xF2036 = class_; T3 = (P)YPprop_elt(xF2036,(P)5); T1 = CALL2(1,VARREF(YOdo),T2,T3); UNLINK_STACK(); QRET(T1); } FUNCODEDEF(YgooSclassYPprop) { P owner_,getter_,setter_,type_,init_; P xF2041; P setter_metF2040; P getter_metF2039; P propF2038; P classF2037; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(owner_, 0); ARG(getter_, 1); ARG(setter_, 2); ARG(type_, 3); ARG(init_, 4); classF2037 = owner_; T6 = CALLN(1,VARREF(YOnew),11,VARREF(YLpropG),VARREF(Yprop_owner),owner_,VARREF(Yprop_getter),getter_,VARREF(Yprop_setter),setter_,VARREF(Yprop_type),type_,VARREF(Yprop_init),init_); propF2038 = T6; T5 = CALL2(1,VARREF(YgooSclassYfind_getter),owner_,getter_); getter_metF2039 = T5; (P)YPmet_env_setter(propF2038,getter_metF2039); if (setter_ != YPfalse) { T1 = CALL3(1,VARREF(YgooSclassYfind_setter),owner_,type_,setter_); setter_metF2040 = T1; T0 = (P)YPmet_env_setter(propF2038,setter_metF2040); } else { } xF2041 = classF2037; T3 = (P)YPprop_elt(xF2041,(P)3); T4 = CALL1(1,VARREF(YOlst),propF2038); T2 = CALL2(1,VARREF(YOcat2),T3,T4); (P)YPclass_direct_props_setter(T2,classF2037); CALL2(1,VARREF(YgooSclassYOdo_descendents),VARREF(YgooSclassYfinalize_props),owner_); UNLINK_STACK(); QRET(propF2038); } P YgooSclassYPupdate_instance_for_changed_class(P new_object_) { DEFCREGS(); return new_object_; } FUNCODEDEF(Yupdate_instance_for_changed_class) { P object_; P T0; LINK_STACK(); ARG(object_, 0); T0 = (P)YgooSclassYPupdate_instance_for_changed_class(object_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSclassYpatch_early_classes) { P T0,T1; LINK_STACK(); T0 = CALL1(1,VARREF(YOrevX),VARREF(YTearly_classesT)); VARSET(YTearly_classesT,T0); CALL2(1,VARREF(YOdo),VARREF(YgooSclassYinit_class),VARREF(YTearly_classesT)); T1 = VARSET(YPclasses_readyQ,YPtrue); UNLINK_STACK(); QRET(T1); } INLINE P YgooSclassYPnew(P parent_,P inits_) { P tF2085; P xF2084; P xF2083; P xF2082; P xF2081; P xF2080; P xF2079; P yF2078; P xF2077; P valF2076; P xF2075; P xF2074; P xF2073; P iF2072; P xF2071; P tF2070; P xF2069; P xF2068; P xF2067; P xF2066; P xF2065; P xF2064; P yF2063; P xF2062; P getterF2061; P xF2060; P xF2059; P xF2058; P iF2057; P xF2056; P xF2055; P xF2054; P xF2053; P xF2052; P yF2051; P xF2050; P iF2049; P numF2048; P xF2047; P xF2046; P objectF2045; P xF2044; P xF2043; P xF2042; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27; DEFCREGS(); xF2042 = parent_; T27 = (P)YPprop_elt(xF2042,(P)0); xF2043 = T27; xF2044 = xF2043; T26 = (P)YPiGG(xF2044,(P)2); T25 = (P)YPobject_of(parent_,T26); objectF2045 = T25; xF2046 = inits_; xF2047 = xF2046; T24 = (P)YPprop_elt(xF2047,(P)1); numF2048 = T24; iF2049 = YPint((P)0); LOOP_48: { P a48_0; xF2050 = iF2049; yF2051 = numF2048; xF2052 = xF2050; xF2053 = xF2052; T3 = (P)YPiGG(xF2053,(P)2); xF2054 = yF2051; xF2055 = xF2054; T4 = (P)YPiGG(xF2055,(P)2); T2 = (P)YPiL(T3,T4); T1 = (P)YPbb(T2); if (T2) { xF2056 = inits_; iF2057 = iF2049; xF2058 = xF2056; T21 = (P)YPprop_elt(xF2058,(P)0); xF2059 = iF2057; xF2060 = xF2059; T23 = (P)YPiGG(xF2060,(P)2); T22 = (P)YPi_((P)0,T23); T20 = (P)YPloc_off(T21,T22); getterF2061 = T20; xF2071 = inits_; xF2062 = iF2049; yF2063 = YPint((P)1); xF2064 = xF2062; xF2065 = xF2064; T18 = (P)YPiGG(xF2065,(P)2); xF2066 = yF2063; xF2067 = xF2066; T19 = (P)YPiGG(xF2067,(P)2); T17 = (P)YPiA(T18,T19); xF2068 = T17; xF2069 = xF2068; tF2070 = (P)1; T16 = (P)YPiLL(xF2069,(P)2); T15 = (P)YPiv(T16,tF2070); iF2072 = T15; xF2073 = xF2071; T12 = (P)YPprop_elt(xF2073,(P)0); xF2074 = iF2072; xF2075 = xF2074; T14 = (P)YPiGG(xF2075,(P)2); T13 = (P)YPi_((P)0,T14); T11 = (P)YPloc_off(T12,T13); valF2076 = T11; XCALL3(1,VARREF(YgooSclassYprop_value_setter),valF2076,objectF2045,getterF2061); xF2077 = iF2049; yF2078 = YPint((P)2); xF2079 = xF2077; xF2080 = xF2079; T9 = (P)YPiGG(xF2080,(P)2); xF2081 = yF2078; xF2082 = xF2081; T10 = (P)YPiGG(xF2082,(P)2); T8 = (P)YPiA(T9,T10); xF2083 = T8; xF2084 = xF2083; tF2085 = (P)1; T7 = (P)YPiLL(xF2084,(P)2); T6 = (P)YPiv(T7,tF2085); a48_0 = T6; iF2049 = a48_0; goto LOOP_48; T0 = T5; } else { T0 = YPfalse; } } return objectF2045; } FUNCODEDEF(YOnew) { P parent_,inits_; P T0; LINK_STACK(); ARG(parent_, 0); NARGS(inits_, 1); T0 = (P)YgooSclassYPnew(parent_,inits_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_new_37) { P parent_,inits_; P T0; LINK_STACK(); ARG(parent_, 0); NARGS(inits_, 1); T0 = (P)YgooSclassYPnew(parent_,inits_); UNLINK_STACK(); QRET(T0); } P YgooSclassY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65; DEFCREGS(); VARSET(YgooSclassYLparentsG,VARREF(YLlstG)); VARSET(YgooSclassYLpropsG,VARREF(YLlstG)); lit_0 = YPPsym((P)"@class-ancestors"); lit_1 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYOclass_ancestors = YPfab_met(FUNCODEREF(YgooSclassYOclass_ancestors),T0,LITREF(lit_0),LITREF(lit_1),sloc(26),YPfalse); T1 = YgooSclassYOclass_ancestors; VARSET(YgooSclassYOclass_ancestors,T1); lit_2 = YPPsym((P)"class-ordered-ancestors"); lit_3 = YPPlist(1,YPPsym((P)"c")); lit_4 = YPPsym((P)"candidate"); lit_5 = YPPlist(1,YPPsym((P)"c")); lit_6 = YPPsym((P)"tail?"); lit_7 = YPPlist(1,YPPsym((P)"l")); lit_8 = YPPsym((P)"candidate-at-head"); lit_9 = YPPlist(1,YPPsym((P)"l")); lit_10 = YPPsym((P)"del-next"); lit_11 = YPPlist(1,YPPsym((P)"l")); lit_12 = YPsb((P)"inconsistent precedence graph"); T6 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_tailQ_1 = YPfab_met(FUNCODEREF(fun_tailQ_1),T6,LITREF(lit_6),LITREF(lit_7),sloc(37),YPfalse); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_candidate_2 = YPfab_met(FUNCODEREF(fun_candidate_2),T5,LITREF(lit_4),LITREF(lit_5),sloc(36),YPfalse); T4 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_candidate_at_head_3 = YPfab_met(FUNCODEREF(fun_candidate_at_head_3),T4,LITREF(lit_8),LITREF(lit_9),sloc(39),YPfalse); T3 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_del_next_4 = YPfab_met(FUNCODEREF(fun_del_next_4),T3,LITREF(lit_10),LITREF(lit_11),sloc(43),YPfalse); T2 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YgooSclassYLparentsG),Ynil); YgooSclassYclass_ordered_ancestors = YPfab_met(FUNCODEREF(YgooSclassYclass_ordered_ancestors),T2,LITREF(lit_2),LITREF(lit_3),sloc(28),YPfalse); T7 = YgooSclassYclass_ordered_ancestors; VARSET(YgooSclassYclass_ordered_ancestors,T7); lit_13 = YPPsym((P)"@class-direct-props"); lit_14 = YPPlist(1,YPPsym((P)"x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYOclass_direct_props = YPfab_met(FUNCODEREF(YgooSclassYOclass_direct_props),T8,LITREF(lit_13),LITREF(lit_14),sloc(48),YPfalse); T9 = YgooSclassYOclass_direct_props; VARSET(YgooSclassYOclass_direct_props,T9); lit_15 = YPPsym((P)"class-ordered-props"); lit_16 = YPPlist(1,YPPsym((P)"x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YgooSclassYLpropsG),Ynil); YgooSclassYclass_ordered_props = YPfab_met(FUNCODEREF(YgooSclassYclass_ordered_props),T10,LITREF(lit_15),LITREF(lit_16),sloc(50),YPfalse); T11 = YgooSclassYclass_ordered_props; VARSET(YgooSclassYclass_ordered_props,T11); lit_17 = YPPsym((P)"del-class"); lit_18 = YPPlist(1,YPPsym((P)"class")); T12 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYdel_class = YPfab_met(FUNCODEREF(YgooSclassYdel_class),T12,LITREF(lit_17),LITREF(lit_18),sloc(57),YPfalse); T13 = YgooSclassYdel_class; VARSET(YgooSclassYdel_class,T13); VARSET(YgooSclassYTnext_class_idT,YPint((P)0)); VARSET(YgooSclassYDmax_classes,YPint((P)500)); lit_19 = YPPsym((P)"init-class"); lit_20 = YPPlist(1,YPPsym((P)"x")); lit_21 = YPsb((P)"Too many classes %="); lit_22 = YPsb((P)"Need at least one parent in class definition"); lit_23 = YPPlist(1,YPPsym((P)"parent")); lit_24 = YPPlist(1,YPPsym((P)"ancestor")); T16 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T16,YPfalse,LITREF(lit_23),sloc(74),YPfalse); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_10 = YPfab_met(FUNCODEREF(fun_10),T15,YPfalse,LITREF(lit_24),sloc(81),YPfalse); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYinit_class = YPfab_met(FUNCODEREF(YgooSclassYinit_class),T14,LITREF(lit_19),LITREF(lit_20),sloc(66),YPfalse); T17 = YgooSclassYinit_class; VARSET(YgooSclassYinit_class,T17); lit_25 = YPPsym((P)"fab-class"); lit_26 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"parents")); T18 = YPfab_sig(YPPlist(2,VARREF(YLsymG),VARREF(YgooSclassYLparentsG)),YPfalse,YPint((P)2),VARREF(YLclassG),Ynil); YgooSclassYfab_class = YPfab_met(FUNCODEREF(YgooSclassYfab_class),T18,LITREF(lit_25),LITREF(lit_26),sloc(86),YPfalse); T19 = YgooSclassYfab_class; VARSET(YgooSclassYfab_class,T19); lit_27 = YPPsym((P)"refab-class"); lit_28 = YPPlist(2,YPPsym((P)"old-class"),YPPsym((P)"parents")); T20 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YgooSclassYLparentsG)),YPfalse,YPint((P)2),VARREF(YLclassG),Ynil); YgooSclassYrefab_class = YPfab_met(FUNCODEREF(YgooSclassYrefab_class),T20,LITREF(lit_27),LITREF(lit_28),sloc(91),YPfalse); T21 = YgooSclassYrefab_class; VARSET(YgooSclassYrefab_class,T21); lit_29 = YPPsym((P)"class-of"); lit_30 = YPPlist(1,YPPsym((P)"x")); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYclass_of = YPfab_met(FUNCODEREF(YgooSclassYclass_of),T22,LITREF(lit_29),LITREF(lit_30),sloc(99),YPfalse); T23 = YgooSclassYclass_of; VARSET(YgooSclassYclass_of,T23); lit_31 = YPPsym((P)"props-of"); lit_32 = YPPlist(1,YPPsym((P)"x")); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); Yprops_of = YPfab_met(FUNCODEREF(Yprops_of),T24,LITREF(lit_31),LITREF(lit_32),sloc(100),YPfalse); T25 = Yprops_of; VARSET(Yprops_of,T25); VARSET(YgooSclassYDgetter_not_found,YPint((P)-1)); lit_33 = YPPsym((P)"prop-offset"); lit_34 = YPPlist(2,YPPsym((P)"object"),YPPsym((P)"getter")); T26 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); Yprop_offset = YPfab_met(FUNCODEREF(Yprop_offset),T26,LITREF(lit_33),LITREF(lit_34),sloc(112),YPfalse); T27 = Yprop_offset; VARSET(Yprop_offset,T27); VARSET(YgooSclassYTreport_prop_unbound_errorsQT,YPtrue); lit_35 = YPPsym((P)"%prop-unbound-error"); lit_36 = YPPlist(1,YPPsym((P)"x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YPprop_unbound_error = YPfab_met(FUNCODEREF(YPprop_unbound_error),T28,LITREF(lit_35),LITREF(lit_36),sloc(122),YPfalse); T29 = YPprop_unbound_error; VARSET(YPprop_unbound_error,T29); lit_37 = YPPsym((P)"prop-value"); lit_38 = YPPlist(2,YPPsym((P)"object"),YPPsym((P)"getter")); T30 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSclassYprop_value = YPfab_met(FUNCODEREF(YgooSclassYprop_value),T30,LITREF(lit_37),LITREF(lit_38),sloc(127),YPfalse); T31 = YgooSclassYprop_value; VARSET(YgooSclassYprop_value,T31); lit_39 = YPPsym((P)"prop-bound?"); lit_40 = YPPlist(2,YPPsym((P)"object"),YPPsym((P)"getter")); T32 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooSclassYprop_boundQ = YPfab_met(FUNCODEREF(YgooSclassYprop_boundQ),T32,LITREF(lit_39),LITREF(lit_40),sloc(134),YPfalse); T33 = YgooSclassYprop_boundQ; VARSET(YgooSclassYprop_boundQ,T33); lit_41 = YPPsym((P)"prop-value-setter"); lit_42 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"object"),YPPsym((P)"getter")); T34 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSclassYprop_value_setter = YPfab_met(FUNCODEREF(YgooSclassYprop_value_setter),T34,LITREF(lit_41),LITREF(lit_42),sloc(141),YPfalse); T35 = YgooSclassYprop_value_setter; VARSET(YgooSclassYprop_value_setter,T35); lit_43 = YPPsym((P)"find-getter"); lit_44 = YPPlist(2,YPPsym((P)"owner"),YPPsym((P)"getter")); T36 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLgenG)),YPfalse,YPint((P)2),VARREF(YLmetG),Ynil); YgooSclassYfind_getter = YPfab_met(FUNCODEREF(YgooSclassYfind_getter),T36,LITREF(lit_43),LITREF(lit_44),sloc(153),YPfalse); T37 = YgooSclassYfind_getter; VARSET(YgooSclassYfind_getter,T37); lit_45 = YPPsym((P)"find-setter"); lit_46 = YPPlist(3,YPPsym((P)"owner"),YPPsym((P)"type"),YPPsym((P)"zetter")); T38 = YPfab_sig(YPPlist(3,VARREF(YLclassG),VARREF(YLanyG),VARREF(YLgenG)),YPfalse,YPint((P)3),VARREF(YLmetG),Ynil); YgooSclassYfind_setter = YPfab_met(FUNCODEREF(YgooSclassYfind_setter),T38,LITREF(lit_45),LITREF(lit_46),sloc(162),YPfalse); T39 = YgooSclassYfind_setter; VARSET(YgooSclassYfind_setter,T39); lit_47 = YPPsym((P)"forward-class"); lit_48 = YPPlist(1,YPPsym((P)"old-class")); lit_49 = YPPlist(1,YPPsym((P)"g")); T41 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T41,YPfalse,LITREF(lit_49),sloc(177),YPfalse); T40 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYforward_class = YPfab_met(FUNCODEREF(YgooSclassYforward_class),T40,LITREF(lit_47),LITREF(lit_48),sloc(175),YPfalse); T42 = YgooSclassYforward_class; VARSET(YgooSclassYforward_class,T42); lit_50 = YPPsym((P)"clone"); lit_51 = YPPlist(1,YPPsym((P)"x")); T43 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYclone = YPfab_met(FUNCODEREF(YgooSclassYclone),T43,LITREF(lit_50),LITREF(lit_51),sloc(180),YPfalse); T44 = YgooSclassYclone; VARSET(YgooSclassYclone,T44); lit_52 = YPPsym((P)"@do-descendents"); lit_53 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); lit_54 = YPPsym((P)"visit"); lit_55 = YPPlist(1,YPPsym((P)"x")); T46 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_visit_27 = YPfab_met(FUNCODEREF(fun_visit_27),T46,LITREF(lit_54),LITREF(lit_55),sloc(184),YPfalse); T45 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSclassYOdo_descendents = YPfab_met(FUNCODEREF(YgooSclassYOdo_descendents),T45,LITREF(lit_52),LITREF(lit_53),sloc(182),YPfalse); T47 = YgooSclassYOdo_descendents; VARSET(YgooSclassYOdo_descendents,T47); lit_56 = YPPsym((P)"finalize-props"); lit_57 = YPPlist(1,YPPsym((P)"class")); lit_58 = YPPlist(1,YPPsym((P)"prop")); T49 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_29 = YPfab_met(FUNCODEREF(fun_29),T49,YPfalse,LITREF(lit_58),sloc(194),YPfalse); T48 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSclassYfinalize_props = YPfab_met(FUNCODEREF(YgooSclassYfinalize_props),T48,LITREF(lit_56),LITREF(lit_57),sloc(190),YPfalse); T50 = YgooSclassYfinalize_props; VARSET(YgooSclassYfinalize_props,T50); lit_59 = YPPsym((P)"%prop"); lit_60 = YPPlist(5,YPPsym((P)"owner"),YPPsym((P)"getter"),YPPsym((P)"setter"),YPPsym((P)"type"),YPPsym((P)"init")); T51 = YPfab_sig(YPPlist(5,VARREF(YLclassG),VARREF(YLgenG),VARREF(YLanyG),VARREF(YLtypeG),VARREF(YLfunG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); YgooSclassYPprop = YPfab_met(FUNCODEREF(YgooSclassYPprop),T51,LITREF(lit_59),LITREF(lit_60),sloc(197),YPfalse); T52 = YgooSclassYPprop; VARSET(YgooSclassYPprop,T52); lit_61 = YPPsym((P)"update-instance-for-changed-class"); lit_62 = YPPlist(1,YPPsym((P)"object")); T53 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); Yupdate_instance_for_changed_class = YPfab_met(FUNCODEREF(Yupdate_instance_for_changed_class),T53,LITREF(lit_61),LITREF(lit_62),sloc(236),YPfalse); T54 = Yupdate_instance_for_changed_class; VARSET(Yupdate_instance_for_changed_class,T54); VARSET(YgooSclassYadd_prop,VARREF(YgooSclassYPprop)); lit_63 = YPPsym((P)"patch-early-classes"); lit_64 = Ynil; T55 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSclassYpatch_early_classes = YPfab_met(FUNCODEREF(YgooSclassYpatch_early_classes),T55,LITREF(lit_63),LITREF(lit_64),sloc(242),YPfalse); T56 = YgooSclassYpatch_early_classes; VARSET(YgooSclassYpatch_early_classes,T56); XCALL0(1,VARREF(YgooSclassYpatch_early_classes)); lit_65 = YPPsym((P)"new"); lit_66 = YPPlist(2,YPPsym((P)"parent"),YPPsym((P)"inits")); T58 = YPfab_sig(YPPlist(1,VARREF(YLtypeG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T57 = YPfab_gen(T58,LITREF(lit_65),LITREF(lit_66),YPfalse); VARSET(Ynew,T57); lit_67 = YPPsym((P)"@new"); lit_68 = YPPlist(2,YPPsym((P)"parent"),YPPsym((P)"inits")); T59 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); YOnew = YPfab_met(FUNCODEREF(YOnew),T59,LITREF(lit_67),LITREF(lit_68),sloc(261),YPfalse); T60 = YOnew; VARSET(YOnew,T60); lit_69 = YPPlist(2,YPPsym((P)"parent"),YPPsym((P)"inits")); T61 = YPfab_sig(YPPlist(1,VARREF(YLclassG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_new_37 = YPfab_met(FUNCODEREF(fun_new_37),T61,LITREF(lit_65),LITREF(lit_69),sloc(264),YPfalse); T63 = VARREF_OR(Ynew,YPfalse); T64 = fun_new_37; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(Ynew,T62); T65 = YPfalse; return T65; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {NULL} }; static IMPORT_INFO import_infos[] = { {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"and", PVAR, NULL}, {"fab-class", CVAR, &YgooSclassYfab_class}, {"*next-class-id*", CVAR, &YgooSclassYTnext_class_idT}, {"prop-value-setter", CVAR, &YgooSclassYprop_value_setter}, {"class-of", CVAR, &YgooSclassYclass_of}, {"%prop", CVAR, &YgooSclassYPprop}, {"prop-bound?", CVAR, &YgooSclassYprop_boundQ}, {"init-class", CVAR, &YgooSclassYinit_class}, {"", CVAR, &YgooSclassYLparentsG}, {"del-class", CVAR, &YgooSclassYdel_class}, {"ensure-fresh-object", PVAR, NULL}, {"prop-value", CVAR, &YgooSclassYprop_value}, {"finalize-props", CVAR, &YgooSclassYfinalize_props}, {"class-ordered-props", CVAR, &YgooSclassYclass_ordered_props}, {"add-prop", CVAR, &YgooSclassYadd_prop}, {"unless", PVAR, NULL}, {"@class-direct-props", CVAR, &YgooSclassYOclass_direct_props}, {"%new", PVAR, NULL}, {"@do-descendents", CVAR, &YgooSclassYOdo_descendents}, {"clone", CVAR, &YgooSclassYclone}, {"$getter-not-found", CVAR, &YgooSclassYDgetter_not_found}, {"or", PVAR, NULL}, {"%update-instance-for-changed-class", PVAR, NULL}, {"forward-class", CVAR, &YgooSclassYforward_class}, {"---main-0---", PVAR, NULL}, {"refab-class", CVAR, &YgooSclassYrefab_class}, {"class-ordered-ancestors", CVAR, &YgooSclassYclass_ordered_ancestors}, {"*report-prop-unbound-errors?*", CVAR, &YgooSclassYTreport_prop_unbound_errorsQT}, {"find-setter", CVAR, &YgooSclassYfind_setter}, {"$max-classes", CVAR, &YgooSclassYDmax_classes}, {"patch-early-classes", CVAR, &YgooSclassYpatch_early_classes}, {"@class-ancestors", CVAR, &YgooSclassYOclass_ancestors}, {"", CVAR, &YgooSclassYLpropsG}, {"find-getter", CVAR, &YgooSclassYfind_getter}, {"when", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"fab-class", NULL}, {"prop-value-setter", NULL}, {"%prop", NULL}, {"prop-bound?", NULL}, {"prop-value", NULL}, {"add-prop", NULL}, {"%prop-unbound-error", NULL}, {"prop-offset", NULL}, {"clone", NULL}, {"props-of", NULL}, {"class-of", NULL}, {"new", NULL}, {"*report-prop-unbound-errors?*", NULL}, {"find-setter", NULL}, {"find-getter", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSclass; MODULE_INFO module_info_gooSclass = { "goo/class", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); /* EXPRESSION: */ extern void load_module_gooSclass (void); void load_module_gooSclass (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); (P)YgooSclassY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols.c0100644000175000017500000015660407756744550014535 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); /* FORWARD QUOTATIONS: */ /* FUNCTIONS: */ extern P YgooScolsY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YgooScolsY___main_0___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooScolsSopts; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSflat; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsStup; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSmacros}, {&module_info_gooScolsSopts}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSflat}, {&module_info_gooScolsSlst}, {&module_info_gooScolsSmap}, {&module_info_gooScolsSrange}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSstep}, {&module_info_gooScolsSstr}, {&module_info_gooScolsStab}, {&module_info_gooScolsSrep}, {&module_info_gooScolsSvec}, {&module_info_gooScolsStup}, {&module_info_gooScolsSzip}, {&module_info_gooScolsScycle}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"fold+", NULL}, {"2nd", NULL}, {"head-setter", NULL}, {"zap!", NULL}, {"tab-growth-threshold", NULL}, {"fab-elt-setter", NULL}, {"all2?", NULL}, {"nul?", NULL}, {"num-to-str", NULL}, {"pair", NULL}, {"pick", NULL}, {"sort-by!", NULL}, {"head", NULL}, {"push!", NULL}, {"1st", NULL}, {"", NULL}, {"", NULL}, {"tab-shrink-threshold", NULL}, {"", NULL}, {"sub-setter", NULL}, {"case-insensitive-string-equal", NULL}, {"del!", NULL}, {"range-check", NULL}, {"low-elt", NULL}, {"lst*", NULL}, {"fold", NULL}, {"", NULL}, {"keys", NULL}, {"del-dups", NULL}, {"rev!", NULL}, {"any2?", NULL}, {"elts", NULL}, {"", NULL}, {"lst", NULL}, {"case-insensitive-string-hash", NULL}, {"", NULL}, {"", NULL}, {"split", NULL}, {"pop!", NULL}, {"pos", NULL}, {"fab-fill!", NULL}, {"all?", NULL}, {"key-test", NULL}, {"tup", NULL}, {"elt!", NULL}, {"col-res-type", NULL}, {"", NULL}, {"", NULL}, {"assq", NULL}, {"map2", NULL}, {"", NULL}, {"key-type", NULL}, {"fab-into", NULL}, {"items", NULL}, {"any?", NULL}, {"add!", NULL}, {"", NULL}, {"ins", NULL}, {"", NULL}, {"elt-default", NULL}, {"range", NULL}, {"elt-type", NULL}, {"", NULL}, {"", NULL}, {"first-then", NULL}, {"", NULL}, {"*print-base*", NULL}, {"", NULL}, {"map", NULL}, {"fill", NULL}, {"", NULL}, {"str-to-num", NULL}, {"mem?", NULL}, {"do3", NULL}, {"repeat", NULL}, {"prefix?", NULL}, {"cat!", NULL}, {"rep-fill!", NULL}, {"into", NULL}, {"map-keyed", NULL}, {"line-of", NULL}, {"fabs", NULL}, {"cycle", NULL}, {"unzip", NULL}, {"char->ascii", NULL}, {"elt-setter", NULL}, {"elt-or", NULL}, {"do", NULL}, {"list", NULL}, {"do2", NULL}, {"", NULL}, {"nxt", NULL}, {"line-list-of", NULL}, {"", NULL}, {"str", NULL}, {"rep-len", NULL}, {"each", NULL}, {"alter", NULL}, {"now-key", NULL}, {"sub*", NULL}, {"do-keyed", NULL}, {"zap", NULL}, {"now", NULL}, {"elt", NULL}, {"col", NULL}, {"ins!", NULL}, {"push", NULL}, {"zip", NULL}, {"def-list", NULL}, {"rep-nul", NULL}, {"line-list", NULL}, {"len", NULL}, {"tail-setter", NULL}, {"del", NULL}, {"ascii-limit", NULL}, {"range-check?", NULL}, {"finds", NULL}, {"del-vals!", NULL}, {"suffix?", NULL}, {"low-elt-setter", NULL}, {"fill!", NULL}, {"rep-elt-setter", NULL}, {"num-to-str-base", NULL}, {"now-setter", NULL}, {"fin?", NULL}, {"", NULL}, {"do-key-vals", NULL}, {"empty?", NULL}, {"tail", NULL}, {"cat2", NULL}, {"fab", NULL}, {"enum", NULL}, {"sort!", NULL}, {"rep-into!", NULL}, {"empty", NULL}, {"find", NULL}, {"id-hash", NULL}, {"vals-to-str", NULL}, {"dup", NULL}, {"", NULL}, {"", NULL}, {"reject", NULL}, {"line-pair", NULL}, {"join", NULL}, {"sub*-setter", NULL}, {"", NULL}, {"len/fill-setter", NULL}, {"rep-elt", NULL}, {"del-dups!", NULL}, {"cat", NULL}, {"tab-hash", NULL}, {"from", NULL}, {"tab-growth-factor", NULL}, {"below", NULL}, {"last", NULL}, {"assqn", NULL}, {"add", NULL}, {"col-res", NULL}, {"sort-by", NULL}, {"ascii-whitespaces", NULL}, {"rev", NULL}, {"find-or", NULL}, {"pop", NULL}, {"del-vals", NULL}, {"sub", NULL}, {"nil", NULL}, {"3rd", NULL}, {"len-setter", NULL}, {"rep-fab", NULL}, {"vec", NULL}, {"range-by", NULL}, {"nul", NULL}, {"sort", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScols; MODULE_INFO module_info_gooScols = { "goo/cols", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSmacros (void); extern void load_module_gooScolsSopts (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSflat (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsSmap (void); extern void load_module_gooScolsSrange (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSstep (void); extern void load_module_gooScolsSstr (void); extern void load_module_gooScolsStab (void); extern void load_module_gooScolsSrep (void); extern void load_module_gooScolsSvec (void); extern void load_module_gooScolsStup (void); extern void load_module_gooScolsSzip (void); extern void load_module_gooScolsScycle (void); /* EXPRESSION: */ extern void load_module_gooScols (void); void load_module_gooScols (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSmacros(); load_module_gooScolsSopts(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSflat(); load_module_gooScolsSlst(); load_module_gooScolsSmap(); load_module_gooScolsSrange(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSstep(); load_module_gooScolsSstr(); load_module_gooScolsStab(); load_module_gooScolsSrep(); load_module_gooScolsSvec(); load_module_gooScolsStup(); load_module_gooScolsSzip(); load_module_gooScolsScycle(); (P)YgooScolsY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/conditions.c0100644000175000017500000056135207756744550015746 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/conditions"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/conditions */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); DEF(YgooSconditionsYdo_handlers_of_type,"goo/conditions","do-handlers-of-type"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); DEF(YgooSconditionsYbuild_condition_for_handler_interactively,"goo/conditions","build-condition-for-handler-interactively"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); DEF(YgooSconditionsYLas_errorG,"goo/conditions",""); DEF(YgooSconditionsYhandler_activeQ,"goo/conditions","handler-active?"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); DEF(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); DEF(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); DEF(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); DEF(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); DEF(YgooSconditionsYdefault_handler_description,"goo/conditions","default-handler-description"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); DEF(YgooSconditionsYLcpl_errorG,"goo/conditions",""); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); DEF(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); DEF(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); DEF(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); DEF(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); DEF(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); DEF(YgooSconditionsYhandler_condition_type,"goo/conditions","handler-condition-type"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); DEF(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); DEF(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); DEF(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooScolsScolYitems,"goo/cols/col","items"); DEF(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); DEF(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); DEF(YgooSconditionsYchoose_handler,"goo/conditions","choose-handler"); DEF(YgooSconditionsYcondition_message_setter,"goo/conditions","condition-message-setter"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); DEF(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); DEF(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); DEF(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); DEF(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); DEF(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); DYNDEF(YgooSconditionsYTcurrent_handlersT,"goo/conditions","*current-handlers*"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); DEF(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSioSportYport_filename,"goo/io/port","port-filename"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSioSportYport_line_setter,"goo/io/port","port-line-setter"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); DEF(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); DEF(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); DEF(YgooSconditionsYcondition_arguments_setter,"goo/conditions","condition-arguments-setter"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); DEF(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); DEF(YgooSconditionsYdescribe_handler,"goo/conditions","describe-handler"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); DEF(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); DEF(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); DEF(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); DEF(YgooSconditionsYinvoke_handler_interactively,"goo/conditions","invoke-handler-interactively"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); DEF(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); DEF(YgooSconditionsYhandler_info,"goo/conditions","handler-info"); DEF(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooStypesYlen,"goo/types","len"); DEF(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); DEF(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); DEF(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooSconditionsYLrestartG,"goo/conditions",""); DEF(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); DEF(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); DEF(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); DEF(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); DEF(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); DEF(YgooSconditionsYbuild_condition_interactively,"goo/conditions","build-condition-interactively"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); DEF(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSmathYpow,"goo/math","pow"); DEF(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); DEF(YgooSconditionsYLtype_errorG,"goo/conditions",""); DEF(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); DEF(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); DEF(YgooSconditionsYhandler_test,"goo/conditions","handler-test"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); DEF(YgooSconditionsYsignal_handler_list,"goo/conditions","signal-handler-list"); DEF(YgooSconditionsYsig,"goo/conditions","sig"); DEF(YgooSconditionsYlist_handlers,"goo/conditions","list-handlers"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); DEF(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); DEF(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); DEF(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); DEF(YgooSconditionsYincongruent_method_error_generic,"goo/conditions","incongruent-method-error-generic"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YgooSconditionsYincongruent_method_error_method,"goo/conditions","incongruent-method-error-method"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); DEF(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); DEF(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); DEF(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSioSportYport_index_setter,"goo/io/port","port-index-setter"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); DEF(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); DEF(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); DEF(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); DEF(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); DEF(YgooSconditionsYLincongruent_method_errorG,"goo/conditions",""); DEF(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_91); DEFLIT(lit_38); DEFLIT(lit_188); DEFLIT(lit_11); DEFLIT(lit_153); DEFLIT(lit_177); DEFLIT(lit_7); DEFLIT(lit_149); DEFLIT(lit_232); DEFLIT(lit_170); DEFLIT(lit_81); DEFLIT(lit_17); DEFLIT(lit_54); DEFLIT(lit_162); DEFLIT(lit_115); DEFLIT(lit_191); DEFLIT(lit_212); DEFLIT(lit_197); DEFLIT(lit_171); DEFLIT(lit_103); DEFLIT(lit_202); DEFLIT(lit_169); DEFLIT(lit_94); DEFLIT(lit_219); DEFLIT(lit_104); DEFLIT(lit_203); DEFLIT(lit_6); DEFLIT(lit_30); DEFLIT(lit_172); DEFLIT(lit_222); DEFLIT(lit_87); DEFLIT(lit_211); DEFLIT(lit_208); DEFLIT(lit_65); DEFLIT(lit_61); DEFLIT(lit_88); DEFLIT(lit_34); DEFLIT(lit_35); DEFLIT(lit_216); DEFLIT(lit_108); DEFLIT(lit_79); DEFLIT(lit_235); DEFLIT(lit_82); DEFLIT(lit_64); DEFLIT(lit_111); DEFLIT(lit_36); DEFLIT(lit_128); DEFLIT(lit_40); DEFLIT(lit_56); DEFLIT(lit_68); DEFLIT(lit_90); DEFLIT(lit_132); DEFLIT(lit_16); DEFLIT(lit_76); DEFLIT(lit_196); DEFLIT(lit_145); DEFLIT(lit_217); DEFLIT(lit_236); DEFLIT(lit_141); DEFLIT(lit_229); DEFLIT(lit_146); DEFLIT(lit_23); DEFLIT(lit_231); DEFLIT(lit_225); DEFLIT(lit_210); DEFLIT(lit_2); DEFLIT(lit_237); DEFLIT(lit_9); DEFLIT(lit_122); DEFLIT(lit_52); DEFLIT(lit_185); DEFLIT(lit_207); DEFLIT(lit_193); DEFLIT(lit_125); DEFLIT(lit_183); DEFLIT(lit_112); DEFLIT(lit_147); DEFLIT(lit_118); DEFLIT(lit_195); DEFLIT(lit_194); DEFLIT(lit_198); DEFLIT(lit_199); DEFLIT(lit_228); DEFLIT(lit_154); DEFLIT(lit_148); DEFLIT(lit_131); DEFLIT(lit_28); DEFLIT(lit_69); DEFLIT(lit_95); DEFLIT(lit_92); DEFLIT(lit_42); DEFLIT(lit_176); DEFLIT(lit_127); DEFLIT(lit_201); DEFLIT(lit_63); DEFLIT(lit_0); DEFLIT(lit_230); DEFLIT(lit_45); DEFLIT(lit_96); DEFLIT(lit_62); DEFLIT(lit_156); DEFLIT(lit_226); DEFLIT(lit_165); DEFLIT(lit_84); DEFLIT(lit_19); DEFLIT(lit_123); DEFLIT(lit_139); DEFLIT(lit_1); DEFLIT(lit_144); DEFLIT(lit_138); DEFLIT(lit_238); DEFLIT(lit_214); DEFLIT(lit_113); DEFLIT(lit_107); DEFLIT(lit_31); DEFLIT(lit_152); DEFLIT(lit_150); DEFLIT(lit_78); DEFLIT(lit_5); DEFLIT(lit_233); DEFLIT(lit_166); DEFLIT(lit_83); DEFLIT(lit_116); DEFLIT(lit_47); DEFLIT(lit_221); DEFLIT(lit_53); DEFLIT(lit_224); DEFLIT(lit_22); DEFLIT(lit_227); DEFLIT(lit_190); DEFLIT(lit_157); DEFLIT(lit_86); DEFLIT(lit_26); DEFLIT(lit_101); DEFLIT(lit_181); DEFLIT(lit_135); DEFLIT(lit_175); DEFLIT(lit_25); DEFLIT(lit_51); DEFLIT(lit_206); DEFLIT(lit_121); DEFLIT(lit_143); DEFLIT(lit_218); DEFLIT(lit_70); DEFLIT(lit_137); DEFLIT(lit_133); DEFLIT(lit_215); DEFLIT(lit_117); DEFLIT(lit_164); DEFLIT(lit_213); DEFLIT(lit_13); DEFLIT(lit_178); DEFLIT(lit_161); DEFLIT(lit_200); DEFLIT(lit_167); DEFLIT(lit_77); DEFLIT(lit_205); DEFLIT(lit_3); DEFLIT(lit_27); DEFLIT(lit_71); DEFLIT(lit_44); DEFLIT(lit_93); DEFLIT(lit_109); DEFLIT(lit_136); DEFLIT(lit_75); DEFLIT(lit_186); DEFLIT(lit_110); DEFLIT(lit_134); DEFLIT(lit_168); DEFLIT(lit_48); DEFLIT(lit_129); DEFLIT(lit_12); DEFLIT(lit_182); DEFLIT(lit_32); DEFLIT(lit_220); DEFLIT(lit_151); DEFLIT(lit_184); DEFLIT(lit_97); DEFLIT(lit_119); DEFLIT(lit_29); DEFLIT(lit_33); DEFLIT(lit_204); DEFLIT(lit_55); DEFLIT(lit_174); DEFLIT(lit_66); DEFLIT(lit_24); DEFLIT(lit_41); DEFLIT(lit_59); DEFLIT(lit_189); DEFLIT(lit_124); DEFLIT(lit_209); DEFLIT(lit_37); DEFLIT(lit_80); DEFLIT(lit_74); DEFLIT(lit_223); DEFLIT(lit_158); DEFLIT(lit_102); DEFLIT(lit_89); DEFLIT(lit_8); DEFLIT(lit_192); DEFLIT(lit_120); DEFLIT(lit_159); DEFLIT(lit_50); DEFLIT(lit_46); DEFLIT(lit_18); DEFLIT(lit_99); DEFLIT(lit_140); DEFLIT(lit_98); DEFLIT(lit_100); DEFLIT(lit_180); DEFLIT(lit_234); DEFLIT(lit_173); DEFLIT(lit_67); DEFLIT(lit_21); DEFLIT(lit_179); DEFLIT(lit_4); DEFLIT(lit_57); DEFLIT(lit_10); DEFLIT(lit_20); DEFLIT(lit_106); DEFLIT(lit_155); DEFLIT(lit_160); DEFLIT(lit_39); DEFLIT(lit_15); DEFLIT(lit_105); DEFLIT(lit_73); DEFLIT(lit_49); DEFLIT(lit_72); DEFLIT(lit_43); DEFLIT(lit_126); DEFLIT(lit_114); DEFLIT(lit_187); DEFLIT(lit_14); DEFLIT(lit_163); DEFLIT(lit_60); DEFLIT(lit_58); DEFLIT(lit_142); DEFLIT(lit_85); DEFLIT(lit_130); /* FUNCTIONS: */ LOCFOR(fun_default_handler_0); LOCFOR(fun_describe_condition_1); LOCFOR(fun_default_handler_description_2); LOCFOR(fun_build_condition_interactively_3); LOCFOR(fun_condition_message_4); LOCFOR(fun_condition_message_setter_5); LOCFOR(fun_6); LOCFOR(fun_condition_arguments_7); LOCFOR(fun_condition_arguments_setter_8); LOCFOR(fun_9); LOCFOR(fun_describe_condition_10); LOCFOR(fun_build_condition_interactively_11); LOCFOR(fun_default_handler_12); LOCFOR(fun_default_handler_description_13); LOCFOR(fun_incongruent_method_error_generic_14); LOCFOR(fun_incongruent_method_error_method_15); LOCFOR(fun_describe_condition_16); LOCFOR(fun_default_handler_description_17); LOCFOR(fun_describe_handler_18); LOCFOR(fun_build_condition_for_handler_interactively_19); LOCFOR(fun_handler_info_message_20); LOCFOR(fun_handler_info_arguments_21); LOCFOR(fun_22); LOCFOR(fun_describe_handler_23); LOCFOR(fun_handler_condition_type_24); LOCFOR(fun_handler_info_25); LOCFOR(fun_handler_test_26); LOCFOR(fun_handler_function_27); FUNFOR(YgooSconditionsYfab_handler); FUNFOR(YgooSconditionsYhandler_activeQ); FUNFOR(YgooSconditionsYhandler_matchesQ); LOCFOR(fun_31); LOCFOR(fun_Uhandler_functionU_32); LOCFOR(fun_33); LOCFOR(fun_34); FUNFOR(YPwith_monitor); LOCFOR(fun_36); FUNFOR(YgooSconditionsYsignal_handler_list); LOCFOR(fun_sig_38); LOCFOR(fun_sig_39); LOCFOR(fun_error_40); LOCFOR(fun_error_41); FUNFOR(YgooSfunYincongruent_method_error); LOCFOR(fun_call_error_function_43); LOCFOR(fun_call_error_arguments_44); LOCFOR(fun_describe_condition_45); FUNFOR(Yarity_error); FUNFOR(Ynarity_error); LOCFOR(fun_describe_condition_48); LOCFOR(fun_type_error_value_49); LOCFOR(fun_type_error_type_50); FUNFOR(Ytype_error); LOCFOR(fun_describe_condition_52); FUNFOR(Yunknown_function_error); LOCFOR(fun_describe_condition_54); FUNFOR(Yargument_type_error); LOCFOR(fun_describe_condition_56); FUNFOR(Yreturn_type_error); LOCFOR(fun_describe_condition_58); FUNFOR(Yambiguous_method_error); LOCFOR(fun_describe_condition_60); FUNFOR(Yno_applicable_methods_error); LOCFOR(fun_describe_condition_62); FUNFOR(Yno_next_methods_error); LOCFOR(fun_describe_condition_64); FUNFOR(Ycpl_error); FUNFOR(Ysyntax_error); LOCFOR(fun_macro_error_name_67); LOCFOR(fun_macro_error_arguments_68); FUNFOR(YgooSmacrosYmacro_error); LOCFOR(fun_describe_condition_70); FUNFOR(Ystack_overflow_error); LOCFOR(fun_describe_condition_72); FUNFOR(Yinternal_error); FUNFOR(Yassert_error); LOCFOR(fun_describe_condition_75); LOCFOR(fun_range_error_collection_76); LOCFOR(fun_range_error_key_77); LOCFOR(fun_range_error_78); LOCFOR(fun_describe_condition_79); LOCFOR(fun_file_opening_error_filename_80); LOCFOR(fun_file_opening_error_81); LOCFOR(fun_describe_condition_82); LOCFOR(fun_unbound_variable_error_variable_83); LOCFOR(fun_describe_condition_84); LOCFOR(fun_property_error_owner_85); LOCFOR(fun_86); LOCFOR(fun_property_error_generic_87); LOCFOR(fun_88); FUNFOR(Yproperty_unbound_error); LOCFOR(fun_describe_condition_90); FUNFOR(Yproperty_not_found_error); LOCFOR(fun_describe_condition_92); FUNFOR(Yproperty_type_error); LOCFOR(fun_describe_condition_94); FUNFOR(Yas_error); LOCFOR(fun_describe_condition_96); FUNFOR(Yarithmetic_error); FUNFOR(Ykeyboard_interrupt); FUNFOR(YgooSconditionsYdo_handlers_of_type); LOCFOR(fun_100); FUNFOR(YgooSconditionsYlist_handlers); LOCFOR(fun_102); FUNFOR(YgooSconditionsYinvoke_handler_interactively); FUNFOR(YgooSconditionsYchoose_handler); extern P YgooSconditionsY___main_0___ (); extern P YgooSconditionsY___main_1___ (); extern P YgooSconditionsY___main_2___ (); extern P YgooSconditionsY___main_3___ (); extern P YgooSconditionsY___main_4___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_default_handler_0) { P c_; LINK_STACK(); ARG(c_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_describe_condition_1) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_5),c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_default_handler_description_2) { P cond_type_; P T0; LINK_STACK(); ARG(cond_type_, 0); T0 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_8),cond_type_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_build_condition_interactively_3) { P cond_type_,in_,out_; P T0; LINK_STACK(); ARG(cond_type_, 0); ARG(in_, 1); ARG(out_, 2); T0 = CALL1(1,VARREF(Ynew),cond_type_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_condition_message_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYcondition_message)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_condition_message_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSconditionsYcondition_message)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_6) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_17)); } LOCCODEDEF(fun_condition_arguments_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYcondition_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_condition_arguments_setter_8) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSconditionsYcondition_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_describe_condition_10) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYcondition_message),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcondition_arguments),c_); T0 = CALL4(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSconditionsYmsg_to_str),YPfalse,T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_build_condition_interactively_11) { P cond_type_,in_,out_; P condF3662; P next_metsF3661; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(cond_type_, 0); ARG(in_, 1); ARG(out_, 2); T6 = (P)YPfun_reg(); T7 = (P)YPnext_methods(); T5 = CALL5(1,VARREF(YgooSmacrosYOchecked_next_methods),T6,T7,cond_type_,in_,out_); next_metsF3661 = T5; T3 = CALL1(1,VARREF(Yhead),next_metsF3661); T4 = CALL1(1,VARREF(Ytail),next_metsF3661); T2 = CALLN(1,VARREF(YgooSmacrosYnapp),6,T3,T4,cond_type_,in_,out_,Ynil); condF3662 = T2; CALL2(1,VARREF(YgooSconditionsYmsg),out_,LITREF(lit_25)); T0 = CALL1(1,VARREF(YgooSconditionsYread),in_); CALL2(1,VARREF(YgooSconditionsYcondition_message_setter),T0,condF3662); CALL2(1,VARREF(YgooSconditionsYmsg),out_,LITREF(lit_26)); T1 = CALL1(1,VARREF(YgooSconditionsYread),in_); CALL2(1,VARREF(YgooSconditionsYcondition_arguments_setter),T1,condF3662); UNLINK_STACK(); RET(condF3662); } LOCCODEDEF(fun_default_handler_12) { P c_; P T0,T1; LINK_STACK(); ARG(c_, 0); T0 = CALL1(1,VARREF(YgooSconditionsYdescribe_condition),c_); CALL3(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_29),T0); T1 = (P)YPinvoke_debugger(c_); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_default_handler_description_13) { P cond_type_; P T0; LINK_STACK(); ARG(cond_type_, 0); T0 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_34),cond_type_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_incongruent_method_error_generic_14) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYincongruent_method_error_generic)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_incongruent_method_error_method_15) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYincongruent_method_error_method)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_16) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYincongruent_method_error_method),c_); T2 = CALL1(1,VARREF(YgooSconditionsYincongruent_method_error_generic),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_41),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_default_handler_description_17) { P cond_type_; LINK_STACK(); ARG(cond_type_, 0); UNLINK_STACK(); RET(LITREF(lit_44)); } LOCCODEDEF(fun_describe_handler_18) { P info_,condition_type_; P T0; LINK_STACK(); ARG(info_, 0); ARG(condition_type_, 1); T0 = CALL1(1,VARREF(YgooSconditionsYdefault_handler_description),condition_type_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_build_condition_for_handler_interactively_19) { P info_,condition_type_,in_,out_; P T0; LINK_STACK(); ARG(info_, 0); ARG(condition_type_, 1); ARG(in_, 2); ARG(out_, 3); T0 = CALL3(1,VARREF(YgooSconditionsYbuild_condition_interactively),condition_type_,in_,out_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_handler_info_message_20) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSfunYhandler_info_message)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_handler_info_arguments_21) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSfunYhandler_info_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(Ynil); } LOCCODEDEF(fun_describe_handler_23) { P info_,condition_type_; P T0,T1,T2; LINK_STACK(); ARG(info_, 0); ARG(condition_type_, 1); T1 = CALL1(1,VARREF(YgooSfunYhandler_info_message),info_); T2 = CALL1(1,VARREF(YgooSfunYhandler_info_arguments),info_); T0 = CALL4(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSconditionsYmsg_to_str),YPfalse,T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_handler_condition_type_24) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYhandler_condition_type)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_handler_info_25) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYhandler_info)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_handler_test_26) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYhandler_test)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_handler_function_27) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYhandler_function)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSconditionsYfab_handler) { P type_,info_,test_,f_; P T0; LINK_STACK(); ARG(type_, 0); ARG(info_, 1); ARG(test_, 2); ARG(f_, 3); T0 = CALLN(1,VARREF(Ynew),9,VARREF(YgooSconditionsYLhandlerG),VARREF(YgooSconditionsYhandler_condition_type),type_,VARREF(YgooSconditionsYhandler_info),info_,VARREF(YgooSconditionsYhandler_test),test_,VARREF(YgooSconditionsYhandler_function),f_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSconditionsYhandler_activeQ) { P handler_; P T0,T1; LINK_STACK(); ARG(handler_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYhandler_test),handler_); T0 = CALL0(1,T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSconditionsYhandler_matchesQ) { P handler_,condition_; P T0,T1,T2,T3; LINK_STACK(); ARG(handler_, 0); ARG(condition_, 1); T2 = CALL1(1,VARREF(YgooSconditionsYhandler_condition_type),handler_); T1 = CALL2(1,VARREF(YisaQ),condition_,T2); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSconditionsYhandler_activeQ),handler_); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_31) { P UresumeU_; P T0; LINK_STACK(); ARG(UresumeU_, 0); CALL2(1,FREEREF(1),FREEREF(0),UresumeU_); T0 = CALL0(1,FREEREF(2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Uhandler_functionU_32) { P condition_,Unext_handlerU_; P T0,T1; LINK_STACK(); ARG(condition_, 0); ARG(Unext_handlerU_, 1); T1 = FUNFAB(fun_31,3,condition_,FREEREF(0),Unext_handlerU_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_33) { P T0; LINK_STACK(); T0 = CALL0(0,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_34) { P T0; LINK_STACK(); T0 = DYNSET(YgooSconditionsYTcurrent_handlersT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YPwith_monitor) { P type_,info_,test_fun_,user_handler_,main_fun_; P Uoriginal_handlersUF3663; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(type_, 0); ARG(info_, 1); ARG(test_fun_, 2); ARG(user_handler_, 3); ARG(main_fun_, 4); Uoriginal_handlersUF3663 = DYNREF(YgooSconditionsYTcurrent_handlersT); T2 = FUNFAB(fun_Uhandler_functionU_32,1,user_handler_); T1 = CALL4(1,VARREF(YgooSconditionsYfab_handler),type_,info_,test_fun_,T2); T0 = CALL2(1,VARREF(YgooScolsSseqxYpushX),DYNREF(YgooSconditionsYTcurrent_handlersT),T1); DYNSET(YgooSconditionsYTcurrent_handlersT,T0); T4 = FUNFAB(fun_33,1,main_fun_); T5 = FUNFAB(fun_34,1,Uoriginal_handlersUF3663); T3 = with_cleanup(T4,T5); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_36) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSconditionsYsignal_handler_list),FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSconditionsYsignal_handler_list) { P condition_,handlers_; P remainingF3665; P handlerF3664; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(condition_, 0); ARG(handlers_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),handlers_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSconditionsYdefault_handler),condition_); T0 = T2; } else { T10 = CALL1(1,VARREF(Yhead),handlers_); handlerF3664 = T10; T9 = CALL1(1,VARREF(Ytail),handlers_); remainingF3665 = T9; T4 = CALL2(1,VARREF(YgooSconditionsYhandler_matchesQ),handlerF3664,condition_); if (T4 != YPfalse) { T7 = CALL1(1,VARREF(YgooSconditionsYhandler_function),handlerF3664); T6 = FUNFAB(fun_36,2,condition_,remainingF3665); T5 = CALL2(1,T7,condition_,T6); T3 = T5; } else { T8 = CALL2(1,VARREF(YgooSconditionsYsignal_handler_list),condition_,remainingF3665); T3 = T8; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sig_38) { P condition_,args_; P T0; LINK_STACK(); ARG(condition_, 0); NARGS(args_, 1); T0 = CALL2(1,VARREF(YgooSconditionsYsignal_handler_list),condition_,DYNREF(YgooSconditionsYTcurrent_handlersT)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sig_39) { P c_,args_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLsimple_conditionG),VARREF(YgooSconditionsYcondition_message),c_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_error_40) { P c_,args_; P T0; LINK_STACK(); ARG(c_, 0); NARGS(args_, 1); T0 = CALL1(1,VARREF(YgooSconditionsYsig),c_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_error_41) { P c_,args_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLsimple_errorG),VARREF(YgooSconditionsYcondition_message),c_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(Yerror),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYincongruent_method_error) { P gen_,met_; P T0,T1; LINK_STACK(); ARG(gen_, 0); ARG(met_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLincongruent_method_errorG),VARREF(YgooSconditionsYincongruent_method_error_generic),gen_,VARREF(YgooSconditionsYincongruent_method_error_method),met_); T0 = CALL1(1,VARREF(Yerror),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_call_error_function_43) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYcall_error_function)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_call_error_arguments_44) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYcall_error_arguments)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_45) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_95),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yarity_error) { P fun_,args_; P T0,T1,T2; LINK_STACK(); ARG(fun_, 0); ARG(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLarity_errorG),VARREF(YgooSconditionsYcall_error_function),fun_,VARREF(YgooSconditionsYcall_error_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Ynarity_error) { P fun_,args_; P T0,T1,T2; LINK_STACK(); ARG(fun_, 0); ARG(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLnarity_errorG),VARREF(YgooSconditionsYcall_error_function),fun_,VARREF(YgooSconditionsYcall_error_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_48) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_102),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_type_error_value_49) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYtype_error_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_type_error_type_50) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYtype_error_type)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Ytype_error) { P arg_,type_; P T0,T1; LINK_STACK(); ARG(arg_, 0); ARG(type_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLtype_errorG),VARREF(YgooSconditionsYtype_error_value),arg_,VARREF(YgooSconditionsYtype_error_type),type_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_52) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYtype_error_value),c_); T2 = CALL1(1,VARREF(YgooSconditionsYtype_error_type),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_111),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yunknown_function_error) { P f_,args_; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALLN(1,VARREF(Ynew),9,VARREF(YgooSconditionsYLunknown_function_errorG),VARREF(YgooSconditionsYcall_error_function),f_,VARREF(YgooSconditionsYcall_error_arguments),T2,VARREF(YgooSconditionsYtype_error_value),f_,VARREF(YgooSconditionsYtype_error_type),VARREF(YLfunG)); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_54) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYtype_error_value),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_116),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yargument_type_error) { P f_,val_,type_,args_; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(val_, 1); ARG(type_, 2); ARG(args_, 3); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALLN(1,VARREF(Ynew),9,VARREF(YgooSconditionsYLargument_type_errorG),VARREF(YgooSconditionsYcall_error_function),f_,VARREF(YgooSconditionsYcall_error_arguments),T2,VARREF(YgooSconditionsYtype_error_value),val_,VARREF(YgooSconditionsYtype_error_type),type_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_56) { P c_; P next_metsF3666; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(c_, 0); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T3 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T1 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_121),T2,T3); T8 = (P)YPfun_reg(); T9 = (P)YPnext_methods(); T7 = CALL3(1,VARREF(YgooSmacrosYOchecked_next_methods),T8,T9,c_); next_metsF3666 = T7; T5 = CALL1(1,VARREF(Yhead),next_metsF3666); T6 = CALL1(1,VARREF(Ytail),next_metsF3666); T4 = CALL4(1,VARREF(YgooSmacrosYnapp),T5,T6,c_,Ynil); T0 = CALL2(1,VARREF(YgooSmacrosYcat),T1,T4); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yreturn_type_error) { P f_,val_,type_,args_; P T0,T1,T2; LINK_STACK(); ARG(f_, 0); ARG(val_, 1); ARG(type_, 2); ARG(args_, 3); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALLN(1,VARREF(Ynew),9,VARREF(YgooSconditionsYLreturn_type_errorG),VARREF(YgooSconditionsYcall_error_function),f_,VARREF(YgooSconditionsYcall_error_arguments),T2,VARREF(YgooSconditionsYtype_error_value),val_,VARREF(YgooSconditionsYtype_error_type),type_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_58) { P c_; P next_metsF3667; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(c_, 0); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T3 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T1 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_126),T2,T3); T8 = (P)YPfun_reg(); T9 = (P)YPnext_methods(); T7 = CALL3(1,VARREF(YgooSmacrosYOchecked_next_methods),T8,T9,c_); next_metsF3667 = T7; T5 = CALL1(1,VARREF(Yhead),next_metsF3667); T6 = CALL1(1,VARREF(Ytail),next_metsF3667); T4 = CALL4(1,VARREF(YgooSmacrosYnapp),T5,T6,c_,Ynil); T0 = CALL2(1,VARREF(YgooSmacrosYcat),T1,T4); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yambiguous_method_error) { P gen_,args_; P T0,T1,T2; LINK_STACK(); ARG(gen_, 0); ARG(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLambiguous_method_errorG),VARREF(YgooSconditionsYcall_error_function),gen_,VARREF(YgooSconditionsYcall_error_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_60) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_131),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yno_applicable_methods_error) { P gen_,args_; P T0,T1,T2; LINK_STACK(); ARG(gen_, 0); ARG(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLno_applicable_methods_errorG),VARREF(YgooSconditionsYcall_error_function),gen_,VARREF(YgooSconditionsYcall_error_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_62) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_136),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yno_next_methods_error) { P met_,args_; P T0,T1,T2; LINK_STACK(); ARG(met_, 0); ARG(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLno_next_methods_errorG),VARREF(YgooSconditionsYcall_error_function),met_,VARREF(YgooSconditionsYcall_error_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_64) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYcall_error_function),c_); T2 = CALL1(1,VARREF(YgooSconditionsYcall_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_141),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Ycpl_error) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL4(1,VARREF(Ynew),VARREF(YgooSconditionsYLcpl_errorG),VARREF(YgooSconditionsYcondition_message),msg_,T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Ysyntax_error) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLsyntax_errorG),VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_macro_error_name_67) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYmacro_error_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_macro_error_arguments_68) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYmacro_error_arguments)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmacro_error) { P name_,args_; P T0,T1; LINK_STACK(); ARG(name_, 0); ARG(args_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLmacro_errorG),VARREF(YgooSconditionsYmacro_error_name),name_,VARREF(YgooSconditionsYmacro_error_arguments),args_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_70) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYmacro_error_name),c_); T2 = CALL1(1,VARREF(YgooSconditionsYmacro_error_arguments),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_157),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Ystack_overflow_error) { P T0,T1; LINK_STACK(); T1 = CALL1(1,VARREF(Ynew),VARREF(YgooSconditionsYLstack_overflowG)); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_72) { P c_; LINK_STACK(); ARG(c_, 0); UNLINK_STACK(); RET(LITREF(lit_161)); } FUNCODEDEF(Yinternal_error) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLinternal_errorG),VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Yassert_error) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLassert_errorG),VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_75) { P c_; P next_metsF3668; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(c_, 0); T5 = (P)YPfun_reg(); T6 = (P)YPnext_methods(); T4 = CALL3(1,VARREF(YgooSmacrosYOchecked_next_methods),T5,T6,c_); next_metsF3668 = T4; T2 = CALL1(1,VARREF(Yhead),next_metsF3668); T3 = CALL1(1,VARREF(Ytail),next_metsF3668); T1 = CALL4(1,VARREF(YgooSmacrosYnapp),T2,T3,c_,Ynil); T0 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_169),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_range_error_collection_76) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYrange_error_collection)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_range_error_key_77) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYrange_error_key)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_range_error_78) { P c_,k_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(k_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLrange_errorG),VARREF(YgooSconditionsYrange_error_collection),c_,VARREF(YgooSconditionsYrange_error_key),k_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_79) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYrange_error_key),c_); T2 = CALL1(1,VARREF(YgooSconditionsYrange_error_collection),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_178),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_file_opening_error_filename_80) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYfile_opening_error_filename)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_file_opening_error_81) { P filename_; P T0,T1; LINK_STACK(); ARG(filename_, 0); T1 = CALL3(1,VARREF(Ynew),VARREF(YgooSconditionsYLfile_opening_errorG),VARREF(YgooSconditionsYfile_opening_error_filename),filename_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_82) { P c_; P T0,T1; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYfile_opening_error_filename),c_); T0 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_186),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_unbound_variable_error_variable_83) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYunbound_variable_error_variable)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_84) { P c_; P T0,T1; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYunbound_variable_error_variable),c_); T0 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_192),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_property_error_owner_85) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYproperty_error_owner)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_86) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_property_error_generic_87) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSconditionsYproperty_error_generic)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_88) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(Yproperty_unbound_error) { P owner_; P T0,T1; LINK_STACK(); ARG(owner_, 0); T1 = CALL3(1,VARREF(Ynew),VARREF(YgooSconditionsYLproperty_unbound_errorG),VARREF(YgooSconditionsYproperty_error_owner),owner_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_90) { P c_; P T0,T1; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYproperty_error_owner),c_); T0 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_204),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yproperty_not_found_error) { P generic_,owner_; P T0,T1; LINK_STACK(); ARG(generic_, 0); ARG(owner_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLproperty_not_found_errorG),VARREF(YgooSconditionsYproperty_error_generic),generic_,VARREF(YgooSconditionsYproperty_error_owner),owner_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_92) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYproperty_error_generic),c_); T2 = CALL1(1,VARREF(YgooSconditionsYproperty_error_owner),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_209),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yproperty_type_error) { P generic_,value_,type_; P T0,T1; LINK_STACK(); ARG(generic_, 0); ARG(value_, 1); ARG(type_, 2); T1 = CALLN(1,VARREF(Ynew),7,VARREF(YgooSconditionsYLproperty_type_errorG),VARREF(YgooSconditionsYproperty_error_generic),generic_,VARREF(YgooSconditionsYtype_error_value),value_,VARREF(YgooSconditionsYtype_error_type),type_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_94) { P c_; P next_metsF3669; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(c_, 0); T2 = CALL1(1,VARREF(YgooSconditionsYproperty_error_generic),c_); T1 = CALL2(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_214),T2); T7 = (P)YPfun_reg(); T8 = (P)YPnext_methods(); T6 = CALL3(1,VARREF(YgooSmacrosYOchecked_next_methods),T7,T8,c_); next_metsF3669 = T6; T4 = CALL1(1,VARREF(Yhead),next_metsF3669); T5 = CALL1(1,VARREF(Ytail),next_metsF3669); T3 = CALL4(1,VARREF(YgooSmacrosYnapp),T4,T5,c_,Ynil); T0 = CALL2(1,VARREF(YgooSmacrosYcat),T1,T3); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yas_error) { P type_,value_; P T0,T1; LINK_STACK(); ARG(type_, 0); ARG(value_, 1); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLas_errorG),VARREF(YgooSconditionsYtype_error_type),type_,VARREF(YgooSconditionsYtype_error_value),value_); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_describe_condition_96) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooSconditionsYtype_error_type),c_); T2 = CALL1(1,VARREF(YgooSconditionsYtype_error_value),c_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg_to_str),LITREF(lit_219),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(Yarithmetic_error) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSconditionsYLarithmetic_errorG),VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(Ykeyboard_interrupt) { P T0,T1; LINK_STACK(); T1 = CALL1(1,VARREF(Ynew),VARREF(YgooSconditionsYLkeyboard_interruptG)); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSconditionsYdo_handlers_of_type) { P type_,f_; P remainingF3672; P handlerF3671; P handlersF3670; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(type_, 0); ARG(f_, 1); handlersF3670 = DYNREF(YgooSconditionsYTcurrent_handlersT); LOOP_151: { P a151_0; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),handlersF3670); if (T1 != YPfalse) { T0 = YPfalse; } else { T9 = CALL1(1,VARREF(Yhead),handlersF3670); handlerF3671 = T9; T8 = CALL1(1,VARREF(Ytail),handlersF3670); remainingF3672 = T8; T4 = CALL1(1,VARREF(YgooSconditionsYhandler_condition_type),handlerF3671); T3 = CALL2(1,VARREF(YsubtypeQ),T4,type_); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(YgooSconditionsYhandler_activeQ),handlerF3671); T2 = T5; } else { T2 = YPfalse; } if (T2 != YPfalse) { T6 = CALL1(0,f_,handlerF3671); } else { } a151_0 = remainingF3672; handlersF3670 = a151_0; goto LOOP_151; T0 = T7; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_100) { P handler_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(handler_, 0); T0 = BOXGET(FREEREF(1)); T2 = CALL1(1,VARREF(YgooSconditionsYhandler_info),handler_); T3 = CALL1(1,VARREF(YgooSconditionsYhandler_condition_type),handler_); T1 = CALL2(1,VARREF(YgooSconditionsYdescribe_handler),T2,T3); CALL4(1,VARREF(YgooSconditionsYmsg),FREEREF(0),LITREF(lit_230),T0,T1); CALL2(1,VARREF(YgooScolsSseqxYpushX),FREEREF(2),handler_); T6 = BOXGET(FREEREF(1)); T5 = CALL2(1,VARREF(YgooSmathYA),T6,YPint((P)1)); T4 = BOXPUT(T5,FREEREF(1)); UNLINK_STACK(); QRET(T4); } FUNCODEDEF(YgooSconditionsYlist_handlers) { P type_,out_; P applicableF3674; P iF3673; P T0,T1,T2; LINK_STACK(); ARG(type_, 0); ARG(out_, 1); iF3673 = YPint((P)1); iF3673 = BOXFAB(iF3673); T2 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); applicableF3674 = T2; T1 = FUNFAB(fun_100,3,out_,iF3673,applicableF3674); CALL2(1,VARREF(YgooSconditionsYdo_handlers_of_type),type_,T1); UNLINK_STACK(); RET(applicableF3674); } LOCCODEDEF(fun_102) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSconditionsYsignal_handler_list),FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSconditionsYinvoke_handler_interactively) { P handler_,in_,out_; P remainingF3678; P currentF3677; P handlersF3676; P conditionF3675; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(handler_, 0); ARG(in_, 1); ARG(out_, 2); T15 = CALL1(1,VARREF(YgooSconditionsYhandler_info),handler_); T16 = CALL1(1,VARREF(YgooSconditionsYhandler_condition_type),handler_); T14 = CALL4(1,VARREF(YgooSconditionsYbuild_condition_for_handler_interactively),T15,T16,in_,out_); conditionF3675 = T14; T1 = CALL2(1,VARREF(YgooSconditionsYhandler_matchesQ),handler_,conditionF3675); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T2 = CALL3(1,VARREF(Yerror),LITREF(lit_233),handler_,conditionF3675); } else { } handlersF3676 = DYNREF(YgooSconditionsYTcurrent_handlersT); LOOP_152: { P a152_0; T4 = CALL1(1,VARREF(YgooSmacrosYnulQ),handlersF3676); if (T4 != YPfalse) { T5 = CALL2(1,VARREF(Yerror),LITREF(lit_234),handler_); T3 = T5; } else { T13 = CALL1(1,VARREF(Yhead),handlersF3676); currentF3677 = T13; T12 = CALL1(1,VARREF(Ytail),handlersF3676); remainingF3678 = T12; T7 = CALL2(1,VARREF(YgooSmacrosYEE),handler_,currentF3677); if (T7 != YPfalse) { T10 = CALL1(1,VARREF(YgooSconditionsYhandler_function),handler_); T9 = FUNFAB(fun_102,2,conditionF3675,remainingF3678); T8 = CALL2(1,T10,conditionF3675,T9); T6 = T8; } else { a152_0 = remainingF3678; handlersF3676 = a152_0; goto LOOP_152; T6 = T11; } T3 = T6; } } UNLINK_STACK(); QRET(T3); } FUNCODEDEF(YgooSconditionsYchoose_handler) { P type_,in_,out_; P tmpF3681; P nF3680; P handlersF3679; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(type_, 0); ARG(in_, 1); ARG(out_, 2); T9 = CALL2(1,VARREF(YgooSconditionsYlist_handlers),type_,out_); handlersF3679 = T9; CALL2(1,VARREF(YgooSconditionsYmsg),out_,LITREF(lit_237)); T8 = CALL1(1,VARREF(YgooSconditionsYread),in_); T7 = CALL2(1,VARREF(YgooSmathY_),T8,YPint((P)1)); nF3680 = T7; T3 = CALL2(1,VARREF(YgooSmagYL),nF3680,YPint((P)0)); tmpF3681 = T3; if (tmpF3681 != YPfalse) { T0 = tmpF3681; } else { T2 = CALL1(1,VARREF(YgooStypesYlen),handlersF3679); T1 = CALL2(1,VARREF(YgooSmagYGE),nF3680,T2); T0 = T1; } if (T0 != YPfalse) { T4 = CALL2(1,VARREF(Yerror),LITREF(lit_238),nF3680); } else { } T6 = CALL2(1,VARREF(YgooSmacrosYelt),handlersF3679,nF3680); T5 = CALL3(1,VARREF(YgooSconditionsYinvoke_handler_interactively),T6,in_,out_); UNLINK_STACK(); QRET(T5); } P YgooSconditionsY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooSconditionsYLconditionG,T0); lit_1 = YPPsym((P)"default-handler"); lit_2 = YPPlist(1,YPPsym((P)"c")); T2 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLconditionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_default_handler_0 = YPfab_met(FUNCODEREF(fun_default_handler_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(27),YPfalse); T4 = VARREF_OR(YgooSconditionsYdefault_handler,YPfalse); T5 = fun_default_handler_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooSconditionsYdefault_handler,T3); lit_3 = YPPsym((P)"describe-condition"); lit_4 = YPPlist(1,YPPsym((P)"c")); lit_5 = YPsb((P)"Anonymous condition %="); T6 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLconditionG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_1 = YPfab_met(FUNCODEREF(fun_describe_condition_1),T6,LITREF(lit_3),LITREF(lit_4),sloc(30),YPfalse); T8 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T9 = fun_describe_condition_1; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSconditionsYdescribe_condition,T7); lit_6 = YPPsym((P)"default-handler-description"); lit_7 = YPPlist(1,YPPsym((P)"cond-type")); lit_8 = YPsb((P)"Anonymous handler for %s"); T11 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T10 = YPfab_sig(YPPlist(1,T11),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_default_handler_description_2 = YPfab_met(FUNCODEREF(fun_default_handler_description_2),T10,LITREF(lit_6),LITREF(lit_7),sloc(33),YPfalse); T13 = VARREF_OR(YgooSconditionsYdefault_handler_description,YPfalse); T14 = fun_default_handler_description_2; T12 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T13,T14); VARSET(YgooSconditionsYdefault_handler_description,T12); lit_9 = YPPsym((P)"build-condition-interactively"); lit_10 = YPPlist(3,YPPsym((P)"cond-type"),YPPsym((P)"in"),YPPsym((P)"out")); T16 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T15 = YPfab_sig(YPPlist(3,T16,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YgooSconditionsYLconditionG),Ynil); fun_build_condition_interactively_3 = YPfab_met(FUNCODEREF(fun_build_condition_interactively_3),T15,LITREF(lit_9),LITREF(lit_10),sloc(36),YPfalse); T18 = VARREF_OR(YgooSconditionsYbuild_condition_interactively,YPfalse); T19 = fun_build_condition_interactively_3; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSconditionsYbuild_condition_interactively,T17); lit_11 = YPPsym((P)""); T21 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLconditionG),Ynil); T20 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_11),T21); VARSET(YgooSconditionsYLsimple_conditionG,T20); lit_12 = YPPsym((P)"condition-message"); lit_13 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLsimple_conditionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_condition_message_4 = YPfab_met(FUNCODEREF(fun_condition_message_4),T22,LITREF(lit_12),LITREF(lit_13),sloc(41),YPfalse); T24 = VARREF_OR(YgooSconditionsYcondition_message,YPfalse); T25 = fun_condition_message_4; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSconditionsYcondition_message,T23); lit_14 = YPPsym((P)"condition-message-setter"); lit_15 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YgooSconditionsYLsimple_conditionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_condition_message_setter_5 = YPfab_met(FUNCODEREF(fun_condition_message_setter_5),T26,LITREF(lit_14),LITREF(lit_15),sloc(41),YPfalse); T28 = VARREF_OR(YgooSconditionsYcondition_message_setter,YPfalse); T29 = fun_condition_message_setter_5; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSconditionsYcondition_message_setter,T27); lit_16 = YPPlist(1,YPPsym((P)"_x")); lit_17 = YPsb((P)""); T30 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T30,YPfalse,LITREF(lit_16),sloc(41),YPfalse); T31 = fun_6; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLsimple_conditionG),VARREF(YgooSconditionsYcondition_message),VARREF(YgooSconditionsYcondition_message_setter),VARREF(YLstrG),T31); lit_18 = YPPsym((P)"condition-arguments"); lit_19 = YPPlist(1,YPPsym((P)"_x")); T32 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLsimple_conditionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_condition_arguments_7 = YPfab_met(FUNCODEREF(fun_condition_arguments_7),T32,LITREF(lit_18),LITREF(lit_19),sloc(42),YPfalse); T34 = VARREF_OR(YgooSconditionsYcondition_arguments,YPfalse); T35 = fun_condition_arguments_7; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooSconditionsYcondition_arguments,T33); lit_20 = YPPsym((P)"condition-arguments-setter"); lit_21 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T36 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YgooSconditionsYLsimple_conditionG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_condition_arguments_setter_8 = YPfab_met(FUNCODEREF(fun_condition_arguments_setter_8),T36,LITREF(lit_20),LITREF(lit_21),sloc(42),YPfalse); T38 = VARREF_OR(YgooSconditionsYcondition_arguments_setter,YPfalse); T39 = fun_condition_arguments_setter_8; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSconditionsYcondition_arguments_setter,T37); lit_22 = YPPlist(1,YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T40,YPfalse,LITREF(lit_22),sloc(42),YPfalse); T41 = fun_9; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLsimple_conditionG),VARREF(YgooSconditionsYcondition_arguments),VARREF(YgooSconditionsYcondition_arguments_setter),VARREF(YLlstG),T41); lit_23 = YPPlist(1,YPPsym((P)"c")); T42 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLsimple_conditionG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_10 = YPfab_met(FUNCODEREF(fun_describe_condition_10),T42,LITREF(lit_3),LITREF(lit_23),sloc(44),YPfalse); T44 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T45 = fun_describe_condition_10; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSconditionsYdescribe_condition,T43); lit_24 = YPPlist(3,YPPsym((P)"cond-type"),YPPsym((P)"in"),YPPsym((P)"out")); lit_25 = YPsb((P)"Condition format string: "); lit_26 = YPsb((P)"Condition format arguments: "); T47 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLsimple_conditionG)); T46 = YPfab_sig(YPPlist(3,T47,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YgooSconditionsYLconditionG),Ynil); fun_build_condition_interactively_11 = YPfab_met(FUNCODEREF(fun_build_condition_interactively_11),T46,LITREF(lit_9),LITREF(lit_24),sloc(47),YPfalse); T49 = VARREF_OR(YgooSconditionsYbuild_condition_interactively,YPfalse); T50 = fun_build_condition_interactively_11; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YgooSconditionsYbuild_condition_interactively,T48); lit_27 = YPPsym((P)""); T52 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLconditionG),Ynil); T51 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_27),T52); VARSET(YgooSconditionsYLserious_conditionG,T51); lit_28 = YPPlist(1,YPPsym((P)"c")); lit_29 = YPsb((P)"%s\n"); T53 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLserious_conditionG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_default_handler_12 = YPfab_met(FUNCODEREF(fun_default_handler_12),T53,LITREF(lit_1),LITREF(lit_28),sloc(58),YPfalse); T55 = VARREF_OR(YgooSconditionsYdefault_handler,YPfalse); T56 = fun_default_handler_12; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YgooSconditionsYdefault_handler,T54); lit_30 = YPPsym((P)""); T58 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLserious_conditionG),Ynil); T57 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_30),T58); VARSET(YgooSconditionsYLerrorG,T57); lit_31 = YPPsym((P)""); T61 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_conditionG),Ynil); T60 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),T61); T59 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_31),T60); VARSET(YgooSconditionsYLsimple_errorG,T59); lit_32 = YPPsym((P)""); T63 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLconditionG),Ynil); T62 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_32),T63); VARSET(YgooSconditionsYLrestartG,T62); lit_33 = YPPlist(1,YPPsym((P)"cond-type")); lit_34 = YPsb((P)"Anonymous restart of type %s"); T65 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLrestartG)); T64 = YPfab_sig(YPPlist(1,T65),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_default_handler_description_13 = YPfab_met(FUNCODEREF(fun_default_handler_description_13),T64,LITREF(lit_6),LITREF(lit_33),sloc(82),YPfalse); T67 = VARREF_OR(YgooSconditionsYdefault_handler_description,YPfalse); T68 = fun_default_handler_description_13; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YgooSconditionsYdefault_handler_description,T66); lit_35 = YPPsym((P)""); T70 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T69 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_35),T70); VARSET(YgooSconditionsYLincongruent_method_errorG,T69); lit_36 = YPPsym((P)"incongruent-method-error-generic"); lit_37 = YPPlist(1,YPPsym((P)"_x")); T71 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLincongruent_method_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_incongruent_method_error_generic_14 = YPfab_met(FUNCODEREF(fun_incongruent_method_error_generic_14),T71,LITREF(lit_36),LITREF(lit_37),sloc(86),YPfalse); T73 = VARREF_OR(YgooSconditionsYincongruent_method_error_generic,YPfalse); T74 = fun_incongruent_method_error_generic_14; T72 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T73,T74); VARSET(YgooSconditionsYincongruent_method_error_generic,T72); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLincongruent_method_errorG),VARREF(YgooSconditionsYincongruent_method_error_generic),YPfalse,VARREF(YLgenG),VARREF(YPprop_unbound_error)); lit_38 = YPPsym((P)"incongruent-method-error-method"); lit_39 = YPPlist(1,YPPsym((P)"_x")); T75 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLincongruent_method_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_incongruent_method_error_method_15 = YPfab_met(FUNCODEREF(fun_incongruent_method_error_method_15),T75,LITREF(lit_38),LITREF(lit_39),sloc(87),YPfalse); T77 = VARREF_OR(YgooSconditionsYincongruent_method_error_method,YPfalse); T78 = fun_incongruent_method_error_method_15; T76 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T77,T78); VARSET(YgooSconditionsYincongruent_method_error_method,T76); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLincongruent_method_errorG),VARREF(YgooSconditionsYincongruent_method_error_method),YPfalse,VARREF(YLmetG),VARREF(YPprop_unbound_error)); lit_40 = YPPlist(1,YPPsym((P)"c")); lit_41 = YPsb((P)"Method %= incongruent with generic %=."); T81 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLincongruent_method_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T80 = fun_describe_condition_16 = YPfab_met(FUNCODEREF(fun_describe_condition_16),T81,LITREF(lit_3),LITREF(lit_40),sloc(89),YPfalse); T84 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T85 = fun_describe_condition_16; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); T82 = VARSET(YgooSconditionsYdescribe_condition,T83); T79 = T82; return T79; } P YgooSconditionsY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108; DEFCREGS(); lit_42 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLrestartG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_42),T1); VARSET(YgooSfunYLreplace_generic_restartG,T0); lit_43 = YPPlist(1,YPPsym((P)"cond-type")); lit_44 = YPsb((P)"Replace the generic function with an nul, congruent one"); T3 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSfunYLreplace_generic_restartG)); T2 = YPfab_sig(YPPlist(1,T3),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_default_handler_description_17 = YPfab_met(FUNCODEREF(fun_default_handler_description_17),T2,LITREF(lit_6),LITREF(lit_43),sloc(96),YPfalse); T5 = VARREF_OR(YgooSconditionsYdefault_handler_description,YPfalse); T6 = fun_default_handler_description_17; T4 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T5,T6); VARSET(YgooSconditionsYdefault_handler_description,T4); lit_45 = YPPsym((P)""); T8 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T7 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_45),T8); VARSET(YgooSconditionsYLhandler_infoG,T7); lit_46 = YPPsym((P)"describe-handler"); lit_47 = YPPlist(2,YPPsym((P)"info"),YPPsym((P)"condition-type")); T9 = YPfab_sig(YPPlist(2,VARREF(YgooSconditionsYLhandler_infoG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_describe_handler_18 = YPfab_met(FUNCODEREF(fun_describe_handler_18),T9,LITREF(lit_46),LITREF(lit_47),sloc(113),YPfalse); T11 = VARREF_OR(YgooSconditionsYdescribe_handler,YPfalse); T12 = fun_describe_handler_18; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YgooSconditionsYdescribe_handler,T10); lit_48 = YPPsym((P)"build-condition-for-handler-interactively"); lit_49 = YPPlist(4,YPPsym((P)"info"),YPPsym((P)"condition-type"),YPPsym((P)"in"),YPPsym((P)"out")); T13 = YPfab_sig(YPPlist(4,VARREF(YgooSconditionsYLhandler_infoG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YgooSconditionsYLconditionG),Ynil); fun_build_condition_for_handler_interactively_19 = YPfab_met(FUNCODEREF(fun_build_condition_for_handler_interactively_19),T13,LITREF(lit_48),LITREF(lit_49),sloc(116),YPfalse); T15 = VARREF_OR(YgooSconditionsYbuild_condition_for_handler_interactively,YPfalse); T16 = fun_build_condition_for_handler_interactively_19; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YgooSconditionsYbuild_condition_for_handler_interactively,T14); T17 = XCALL1(1,VARREF(Ynew),VARREF(YgooSconditionsYLhandler_infoG)); VARSET(YgooSconditionsYDdefault_handler_info,T17); lit_50 = YPPsym((P)""); T19 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLhandler_infoG),Ynil); T18 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_50),T19); VARSET(YgooSfunYLsimple_handler_infoG,T18); lit_51 = YPPsym((P)"handler-info-message"); lit_52 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YgooSfunYLsimple_handler_infoG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_handler_info_message_20 = YPfab_met(FUNCODEREF(fun_handler_info_message_20),T20,LITREF(lit_51),LITREF(lit_52),sloc(123),YPfalse); T22 = VARREF_OR(YgooSfunYhandler_info_message,YPfalse); T23 = fun_handler_info_message_20; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSfunYhandler_info_message,T21); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YgooSfunYhandler_info_message),YPfalse,VARREF(YLstrG),VARREF(YPprop_unbound_error)); lit_53 = YPPsym((P)"handler-info-arguments"); lit_54 = YPPlist(1,YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(1,VARREF(YgooSfunYLsimple_handler_infoG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_handler_info_arguments_21 = YPfab_met(FUNCODEREF(fun_handler_info_arguments_21),T24,LITREF(lit_53),LITREF(lit_54),sloc(124),YPfalse); T26 = VARREF_OR(YgooSfunYhandler_info_arguments,YPfalse); T27 = fun_handler_info_arguments_21; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooSfunYhandler_info_arguments,T25); lit_55 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T28,YPfalse,LITREF(lit_55),sloc(124),YPfalse); T29 = fun_22; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YgooSfunYhandler_info_arguments),YPfalse,VARREF(YLlstG),T29); lit_56 = YPPlist(2,YPPsym((P)"info"),YPPsym((P)"condition-type")); T30 = YPfab_sig(YPPlist(2,VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_describe_handler_23 = YPfab_met(FUNCODEREF(fun_describe_handler_23),T30,LITREF(lit_46),LITREF(lit_56),sloc(126),YPfalse); T32 = VARREF_OR(YgooSconditionsYdescribe_handler,YPfalse); T33 = fun_describe_handler_23; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSconditionsYdescribe_handler,T31); DYNDEFSET(YgooSconditionsYTcurrent_handlersT,Ynil); lit_57 = YPPsym((P)""); T35 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T34 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_57),T35); VARSET(YgooSconditionsYLhandlerG,T34); lit_58 = YPPsym((P)"handler-condition-type"); lit_59 = YPPlist(1,YPPsym((P)"_x")); T36 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLhandlerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_handler_condition_type_24 = YPfab_met(FUNCODEREF(fun_handler_condition_type_24),T36,LITREF(lit_58),LITREF(lit_59),sloc(144),YPfalse); T38 = VARREF_OR(YgooSconditionsYhandler_condition_type,YPfalse); T39 = fun_handler_condition_type_24; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSconditionsYhandler_condition_type,T37); T40 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLhandlerG),VARREF(YgooSconditionsYhandler_condition_type),YPfalse,T40,VARREF(YPprop_unbound_error)); lit_60 = YPPsym((P)"handler-info"); lit_61 = YPPlist(1,YPPsym((P)"_x")); T41 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLhandlerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_handler_info_25 = YPfab_met(FUNCODEREF(fun_handler_info_25),T41,LITREF(lit_60),LITREF(lit_61),sloc(145),YPfalse); T43 = VARREF_OR(YgooSconditionsYhandler_info,YPfalse); T44 = fun_handler_info_25; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YgooSconditionsYhandler_info,T42); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLhandlerG),VARREF(YgooSconditionsYhandler_info),YPfalse,VARREF(YgooSconditionsYLhandler_infoG),VARREF(YPprop_unbound_error)); lit_62 = YPPsym((P)"handler-test"); lit_63 = YPPlist(1,YPPsym((P)"_x")); T45 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLhandlerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_handler_test_26 = YPfab_met(FUNCODEREF(fun_handler_test_26),T45,LITREF(lit_62),LITREF(lit_63),sloc(146),YPfalse); T47 = VARREF_OR(YgooSconditionsYhandler_test,YPfalse); T48 = fun_handler_test_26; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YgooSconditionsYhandler_test,T46); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLhandlerG),VARREF(YgooSconditionsYhandler_test),YPfalse,VARREF(YLfunG),VARREF(YPprop_unbound_error)); lit_64 = YPPsym((P)"handler-function"); lit_65 = YPPlist(1,YPPsym((P)"_x")); T49 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLhandlerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_handler_function_27 = YPfab_met(FUNCODEREF(fun_handler_function_27),T49,LITREF(lit_64),LITREF(lit_65),sloc(147),YPfalse); T51 = VARREF_OR(YgooSconditionsYhandler_function,YPfalse); T52 = fun_handler_function_27; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YgooSconditionsYhandler_function,T50); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLhandlerG),VARREF(YgooSconditionsYhandler_function),YPfalse,VARREF(YLfunG),VARREF(YPprop_unbound_error)); lit_66 = YPPsym((P)"fab-handler"); lit_67 = YPPlist(4,YPPsym((P)"type"),YPPsym((P)"info"),YPPsym((P)"test"),YPPsym((P)"f")); T54 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T53 = YPfab_sig(YPPlist(4,T54,VARREF(YgooSconditionsYLhandler_infoG),VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YgooSconditionsYLhandlerG),Ynil); YgooSconditionsYfab_handler = YPfab_met(FUNCODEREF(YgooSconditionsYfab_handler),T53,LITREF(lit_66),LITREF(lit_67),sloc(149),YPfalse); T55 = YgooSconditionsYfab_handler; VARSET(YgooSconditionsYfab_handler,T55); lit_68 = YPPsym((P)"handler-active?"); lit_69 = YPPlist(1,YPPsym((P)"handler")); T56 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLhandlerG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YgooSconditionsYhandler_activeQ = YPfab_met(FUNCODEREF(YgooSconditionsYhandler_activeQ),T56,LITREF(lit_68),LITREF(lit_69),sloc(157),YPfalse); T57 = YgooSconditionsYhandler_activeQ; VARSET(YgooSconditionsYhandler_activeQ,T57); lit_70 = YPPsym((P)"handler-matches?"); lit_71 = YPPlist(2,YPPsym((P)"handler"),YPPsym((P)"condition")); T58 = YPfab_sig(YPPlist(2,VARREF(YgooSconditionsYLhandlerG),VARREF(YgooSconditionsYLconditionG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooSconditionsYhandler_matchesQ = YPfab_met(FUNCODEREF(YgooSconditionsYhandler_matchesQ),T58,LITREF(lit_70),LITREF(lit_71),sloc(160),YPfalse); T59 = YgooSconditionsYhandler_matchesQ; VARSET(YgooSconditionsYhandler_matchesQ,T59); lit_72 = YPPsym((P)"%with-monitor"); lit_73 = YPPlist(5,YPPsym((P)"type"),YPPsym((P)"info"),YPPsym((P)"test-fun"),YPPsym((P)"user-handler"),YPPsym((P)"main-fun")); lit_74 = YPPsym((P)"_handler-function_"); lit_75 = YPPlist(2,YPPsym((P)"condition"),YPPsym((P)"_next-handler_")); lit_76 = YPPlist(1,YPPsym((P)"_resume_")); lit_77 = Ynil; T65 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_31 = YPfab_met(FUNCODEREF(fun_31),T65,YPfalse,LITREF(lit_76),sloc(169),YPfalse); T64 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Uhandler_functionU_32 = YPfab_met(FUNCODEREF(fun_Uhandler_functionU_32),T64,LITREF(lit_74),LITREF(lit_75),sloc(168),YPfalse); T63 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_33 = YPfab_met(FUNCODEREF(fun_33),T63,YPfalse,LITREF(lit_77),sloc(174),YPfalse); T62 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T62,YPfalse,LITREF(lit_77),sloc(174),YPfalse); T61 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T60 = YPfab_sig(YPPlist(5,T61,VARREF(YgooSconditionsYLhandler_infoG),VARREF(YLfunG),VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); YPwith_monitor = YPfab_met(FUNCODEREF(YPwith_monitor),T60,LITREF(lit_72),LITREF(lit_73),sloc(164),YPfalse); T66 = YPwith_monitor; VARSET(YPwith_monitor,T66); lit_78 = YPPsym((P)"signal-handler-list"); lit_79 = YPPlist(2,YPPsym((P)"condition"),YPPsym((P)"handlers")); T68 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T68,YPfalse,LITREF(lit_77),sloc(184),YPfalse); T67 = YPfab_sig(YPPlist(2,VARREF(YgooSconditionsYLconditionG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSconditionsYsignal_handler_list = YPfab_met(FUNCODEREF(YgooSconditionsYsignal_handler_list),T67,LITREF(lit_78),LITREF(lit_79),sloc(177),YPfalse); T69 = YgooSconditionsYsignal_handler_list; VARSET(YgooSconditionsYsignal_handler_list,T69); lit_80 = YPPsym((P)"sig"); lit_81 = YPPlist(2,YPPsym((P)"condition"),YPPsym((P)"args")); T70 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLconditionG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_sig_38 = YPfab_met(FUNCODEREF(fun_sig_38),T70,LITREF(lit_80),LITREF(lit_81),sloc(187),YPfalse); T72 = VARREF_OR(YgooSconditionsYsig,YPfalse); T73 = fun_sig_38; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooSconditionsYsig,T71); lit_82 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"args")); T74 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_sig_39 = YPfab_met(FUNCODEREF(fun_sig_39),T74,LITREF(lit_80),LITREF(lit_82),sloc(190),YPfalse); T76 = VARREF_OR(YgooSconditionsYsig,YPfalse); T77 = fun_sig_39; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooSconditionsYsig,T75); lit_83 = YPPsym((P)"error"); lit_84 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"args")); T78 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLerrorG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_error_40 = YPfab_met(FUNCODEREF(fun_error_40),T78,LITREF(lit_83),LITREF(lit_84),sloc(197),YPfalse); T80 = VARREF_OR(Yerror,YPfalse); T81 = fun_error_40; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(Yerror,T79); lit_85 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"args")); T82 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_error_41 = YPfab_met(FUNCODEREF(fun_error_41),T82,LITREF(lit_83),LITREF(lit_85),sloc(200),YPfalse); T84 = VARREF_OR(Yerror,YPfalse); T85 = fun_error_41; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(Yerror,T83); lit_86 = YPPsym((P)"incongruent-method-error"); lit_87 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"met")); T86 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLmetG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYincongruent_method_error = YPfab_met(FUNCODEREF(YgooSfunYincongruent_method_error),T86,LITREF(lit_86),LITREF(lit_87),sloc(204),YPfalse); T87 = YgooSfunYincongruent_method_error; VARSET(YgooSfunYincongruent_method_error,T87); lit_88 = YPPsym((P)""); T89 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T88 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_88),T89); VARSET(YgooSconditionsYLcall_errorG,T88); lit_89 = YPPsym((P)"call-error-function"); lit_90 = YPPlist(1,YPPsym((P)"_x")); T90 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLcall_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_call_error_function_43 = YPfab_met(FUNCODEREF(fun_call_error_function_43),T90,LITREF(lit_89),LITREF(lit_90),sloc(210),YPfalse); T92 = VARREF_OR(YgooSconditionsYcall_error_function,YPfalse); T93 = fun_call_error_function_43; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YgooSconditionsYcall_error_function,T91); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLcall_errorG),VARREF(YgooSconditionsYcall_error_function),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_91 = YPPsym((P)"call-error-arguments"); lit_92 = YPPlist(1,YPPsym((P)"_x")); T94 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLcall_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_call_error_arguments_44 = YPfab_met(FUNCODEREF(fun_call_error_arguments_44),T94,LITREF(lit_91),LITREF(lit_92),sloc(211),YPfalse); T96 = VARREF_OR(YgooSconditionsYcall_error_arguments,YPfalse); T97 = fun_call_error_arguments_44; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YgooSconditionsYcall_error_arguments,T95); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLcall_errorG),VARREF(YgooSconditionsYcall_error_arguments),YPfalse,VARREF(YLlstG),VARREF(YPprop_unbound_error)); lit_93 = YPPsym((P)""); T99 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T98 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_93),T99); VARSET(YgooSconditionsYLarity_errorG,T98); lit_94 = YPPlist(1,YPPsym((P)"c")); lit_95 = YPsb((P)"Function %= called with wrong number arguments %=."); T100 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLarity_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_45 = YPfab_met(FUNCODEREF(fun_describe_condition_45),T100,LITREF(lit_3),LITREF(lit_94),sloc(215),YPfalse); T102 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T103 = fun_describe_condition_45; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooSconditionsYdescribe_condition,T101); lit_96 = YPPsym((P)"arity-error"); lit_97 = YPPlist(2,YPPsym((P)"fun"),YPPsym((P)"args")); T106 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T105 = Yarity_error = YPfab_met(FUNCODEREF(Yarity_error),T106,LITREF(lit_96),LITREF(lit_97),sloc(219),YPfalse); T108 = Yarity_error; T107 = VARSET(Yarity_error,T108); T104 = T107; return T104; } P YgooSconditionsY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117; DEFCREGS(); lit_98 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLarity_errorG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_98),T1); VARSET(YgooSconditionsYLnarity_errorG,T0); lit_99 = YPPsym((P)"narity-error"); lit_100 = YPPlist(2,YPPsym((P)"fun"),YPPsym((P)"args")); T2 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Ynarity_error = YPfab_met(FUNCODEREF(Ynarity_error),T2,LITREF(lit_99),LITREF(lit_100),sloc(225),YPfalse); T3 = Ynarity_error; VARSET(Ynarity_error,T3); lit_101 = YPPlist(1,YPPsym((P)"c")); lit_102 = YPsb((P)"Nary function %= called with too few arguments %=."); T4 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLnarity_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_48 = YPfab_met(FUNCODEREF(fun_describe_condition_48),T4,LITREF(lit_3),LITREF(lit_101),sloc(229),YPfalse); T6 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T7 = fun_describe_condition_48; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooSconditionsYdescribe_condition,T5); lit_103 = YPPsym((P)""); T9 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T8 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_103),T9); VARSET(YgooSconditionsYLtype_errorG,T8); lit_104 = YPPsym((P)"type-error-value"); lit_105 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLtype_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_type_error_value_49 = YPfab_met(FUNCODEREF(fun_type_error_value_49),T10,LITREF(lit_104),LITREF(lit_105),sloc(234),YPfalse); T12 = VARREF_OR(YgooSconditionsYtype_error_value,YPfalse); T13 = fun_type_error_value_49; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSconditionsYtype_error_value,T11); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLtype_errorG),VARREF(YgooSconditionsYtype_error_value),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_106 = YPPsym((P)"type-error-type"); lit_107 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLtype_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_type_error_type_50 = YPfab_met(FUNCODEREF(fun_type_error_type_50),T14,LITREF(lit_106),LITREF(lit_107),sloc(235),YPfalse); T16 = VARREF_OR(YgooSconditionsYtype_error_type,YPfalse); T17 = fun_type_error_type_50; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSconditionsYtype_error_type,T15); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLtype_errorG),VARREF(YgooSconditionsYtype_error_type),YPfalse,VARREF(YLtypeG),VARREF(YPprop_unbound_error)); lit_108 = YPPsym((P)"type-error"); lit_109 = YPPlist(2,YPPsym((P)"arg"),YPPsym((P)"type")); T18 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Ytype_error = YPfab_met(FUNCODEREF(Ytype_error),T18,LITREF(lit_108),LITREF(lit_109),sloc(237),YPfalse); T19 = Ytype_error; VARSET(Ytype_error,T19); lit_110 = YPPlist(1,YPPsym((P)"c")); lit_111 = YPsb((P)"Type check failure on %= expected %t."); T20 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLtype_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_52 = YPfab_met(FUNCODEREF(fun_describe_condition_52),T20,LITREF(lit_3),LITREF(lit_110),sloc(240),YPfalse); T22 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T23 = fun_describe_condition_52; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSconditionsYdescribe_condition,T21); lit_112 = YPPsym((P)""); T26 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T25 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLtype_errorG),T26); T24 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_112),T25); VARSET(YgooSconditionsYLunknown_function_errorG,T24); lit_113 = YPPsym((P)"unknown-function-error"); lit_114 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"args")); T27 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yunknown_function_error = YPfab_met(FUNCODEREF(Yunknown_function_error),T27,LITREF(lit_113),LITREF(lit_114),sloc(246),YPfalse); T28 = Yunknown_function_error; VARSET(Yunknown_function_error,T28); lit_115 = YPPlist(1,YPPsym((P)"c")); lit_116 = YPsb((P)"Unknown function %= called on %=."); T29 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLunknown_function_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_54 = YPfab_met(FUNCODEREF(fun_describe_condition_54),T29,LITREF(lit_3),LITREF(lit_115),sloc(251),YPfalse); T31 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T32 = fun_describe_condition_54; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooSconditionsYdescribe_condition,T30); lit_117 = YPPsym((P)""); T35 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T34 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLtype_errorG),T35); T33 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_117),T34); VARSET(YgooSconditionsYLargument_type_errorG,T33); lit_118 = YPPsym((P)"argument-type-error"); lit_119 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"val"),YPPsym((P)"type"),YPPsym((P)"args")); T36 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLseqG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); Yargument_type_error = YPfab_met(FUNCODEREF(Yargument_type_error),T36,LITREF(lit_118),LITREF(lit_119),sloc(257),YPfalse); T37 = Yargument_type_error; VARSET(Yargument_type_error,T37); lit_120 = YPPlist(1,YPPsym((P)"c")); lit_121 = YPsb((P)"During call of %= on %= "); T38 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLargument_type_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_56 = YPfab_met(FUNCODEREF(fun_describe_condition_56),T38,LITREF(lit_3),LITREF(lit_120),sloc(262),YPfalse); T40 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T41 = fun_describe_condition_56; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSconditionsYdescribe_condition,T39); lit_122 = YPPsym((P)""); T44 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T43 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLtype_errorG),T44); T42 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_122),T43); VARSET(YgooSconditionsYLreturn_type_errorG,T42); lit_123 = YPPsym((P)"return-type-error"); lit_124 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"val"),YPPsym((P)"type"),YPPsym((P)"args")); T45 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLseqG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); Yreturn_type_error = YPfab_met(FUNCODEREF(Yreturn_type_error),T45,LITREF(lit_123),LITREF(lit_124),sloc(269),YPfalse); T46 = Yreturn_type_error; VARSET(Yreturn_type_error,T46); lit_125 = YPPlist(1,YPPsym((P)"c")); lit_126 = YPsb((P)"During return of call of %= on %= "); T47 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLreturn_type_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_58 = YPfab_met(FUNCODEREF(fun_describe_condition_58),T47,LITREF(lit_3),LITREF(lit_125),sloc(274),YPfalse); T49 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T50 = fun_describe_condition_58; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YgooSconditionsYdescribe_condition,T48); lit_127 = YPPsym((P)""); T52 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T51 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_127),T52); VARSET(YgooSconditionsYLambiguous_method_errorG,T51); lit_128 = YPPsym((P)"ambiguous-method-error"); lit_129 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"args")); T53 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLoptsG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yambiguous_method_error = YPfab_met(FUNCODEREF(Yambiguous_method_error),T53,LITREF(lit_128),LITREF(lit_129),sloc(281),YPfalse); T54 = Yambiguous_method_error; VARSET(Yambiguous_method_error,T54); lit_130 = YPPlist(1,YPPsym((P)"c")); lit_131 = YPsb((P)"Ambiguous methods on %= when called with %=."); T55 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLambiguous_method_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_60 = YPfab_met(FUNCODEREF(fun_describe_condition_60),T55,LITREF(lit_3),LITREF(lit_130),sloc(285),YPfalse); T57 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T58 = fun_describe_condition_60; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YgooSconditionsYdescribe_condition,T56); lit_132 = YPPsym((P)""); T60 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T59 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_132),T60); VARSET(YgooSconditionsYLno_applicable_methods_errorG,T59); lit_133 = YPPsym((P)"no-applicable-methods-error"); lit_134 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"args")); T61 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLoptsG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yno_applicable_methods_error = YPfab_met(FUNCODEREF(Yno_applicable_methods_error),T61,LITREF(lit_133),LITREF(lit_134),sloc(291),YPfalse); T62 = Yno_applicable_methods_error; VARSET(Yno_applicable_methods_error,T62); lit_135 = YPPlist(1,YPPsym((P)"c")); lit_136 = YPsb((P)"No applicable methods on %= when called with %=."); T63 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLno_applicable_methods_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_62 = YPfab_met(FUNCODEREF(fun_describe_condition_62),T63,LITREF(lit_3),LITREF(lit_135),sloc(296),YPfalse); T65 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T66 = fun_describe_condition_62; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YgooSconditionsYdescribe_condition,T64); lit_137 = YPPsym((P)""); T68 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcall_errorG),Ynil); T67 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_137),T68); VARSET(YgooSconditionsYLno_next_methods_errorG,T67); lit_138 = YPPsym((P)"no-next-methods-error"); lit_139 = YPPlist(2,YPPsym((P)"met"),YPPsym((P)"args")); T69 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yno_next_methods_error = YPfab_met(FUNCODEREF(Yno_next_methods_error),T69,LITREF(lit_138),LITREF(lit_139),sloc(302),YPfalse); T70 = Yno_next_methods_error; VARSET(Yno_next_methods_error,T70); lit_140 = YPPlist(1,YPPsym((P)"c")); lit_141 = YPsb((P)"No next-methods on %= when called with %=."); T71 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLno_next_methods_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_64 = YPfab_met(FUNCODEREF(fun_describe_condition_64),T71,LITREF(lit_3),LITREF(lit_140),sloc(306),YPfalse); T73 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T74 = fun_describe_condition_64; T72 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T73,T74); VARSET(YgooSconditionsYdescribe_condition,T72); lit_142 = YPPsym((P)""); T76 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T75 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_142),T76); VARSET(YgooSconditionsYLcpl_errorG,T75); lit_143 = YPPsym((P)"cpl-error"); lit_144 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T77 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); Ycpl_error = YPfab_met(FUNCODEREF(Ycpl_error),T77,LITREF(lit_143),LITREF(lit_144),sloc(312),YPfalse); T78 = Ycpl_error; VARSET(Ycpl_error,T78); lit_145 = YPPsym((P)""); T80 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T79 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_145),T80); VARSET(YgooSconditionsYLcompiler_errorG,T79); lit_146 = YPPsym((P)""); T83 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T82 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLcompiler_errorG),T83); T81 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_146),T82); VARSET(YgooSconditionsYLsyntax_errorG,T81); lit_147 = YPPsym((P)"syntax-error"); lit_148 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T84 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); Ysyntax_error = YPfab_met(FUNCODEREF(Ysyntax_error),T84,LITREF(lit_147),LITREF(lit_148),sloc(319),YPfalse); T85 = Ysyntax_error; VARSET(Ysyntax_error,T85); lit_149 = YPPsym((P)""); T87 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsyntax_errorG),Ynil); T86 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_149),T87); VARSET(YgooSconditionsYLmacro_errorG,T86); lit_150 = YPPsym((P)"macro-error-name"); lit_151 = YPPlist(1,YPPsym((P)"_x")); T88 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLmacro_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_macro_error_name_67 = YPfab_met(FUNCODEREF(fun_macro_error_name_67),T88,LITREF(lit_150),LITREF(lit_151),sloc(324),YPfalse); T90 = VARREF_OR(YgooSconditionsYmacro_error_name,YPfalse); T91 = fun_macro_error_name_67; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooSconditionsYmacro_error_name,T89); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLmacro_errorG),VARREF(YgooSconditionsYmacro_error_name),YPfalse,VARREF(YLsymG),VARREF(YPprop_unbound_error)); lit_152 = YPPsym((P)"macro-error-arguments"); lit_153 = YPPlist(1,YPPsym((P)"_x")); T92 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLmacro_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_macro_error_arguments_68 = YPfab_met(FUNCODEREF(fun_macro_error_arguments_68),T92,LITREF(lit_152),LITREF(lit_153),sloc(325),YPfalse); T94 = VARREF_OR(YgooSconditionsYmacro_error_arguments,YPfalse); T95 = fun_macro_error_arguments_68; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YgooSconditionsYmacro_error_arguments,T93); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLmacro_errorG),VARREF(YgooSconditionsYmacro_error_arguments),YPfalse,VARREF(YLlstG),VARREF(YPprop_unbound_error)); lit_154 = YPPsym((P)"macro-error"); lit_155 = YPPlist(2,YPPsym((P)"name"),YPPsym((P)"args")); T96 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmacro_error = YPfab_met(FUNCODEREF(YgooSmacrosYmacro_error),T96,LITREF(lit_154),LITREF(lit_155),sloc(327),YPfalse); T97 = YgooSmacrosYmacro_error; VARSET(YgooSmacrosYmacro_error,T97); lit_156 = YPPlist(1,YPPsym((P)"c")); lit_157 = YPsb((P)"Macro expansion failure for %s when called with %=."); T98 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLmacro_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_70 = YPfab_met(FUNCODEREF(fun_describe_condition_70),T98,LITREF(lit_3),LITREF(lit_156),sloc(330),YPfalse); T100 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T101 = fun_describe_condition_70; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YgooSconditionsYdescribe_condition,T99); lit_158 = YPPsym((P)""); T103 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T102 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_158),T103); VARSET(YgooSconditionsYLstack_overflowG,T102); lit_159 = YPPsym((P)"stack-overflow-error"); T104 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); Ystack_overflow_error = YPfab_met(FUNCODEREF(Ystack_overflow_error),T104,LITREF(lit_159),LITREF(lit_77),sloc(336),YPfalse); T105 = Ystack_overflow_error; VARSET(Ystack_overflow_error,T105); lit_160 = YPPlist(1,YPPsym((P)"c")); lit_161 = YPsb((P)"Stack overflow."); T106 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLstack_overflowG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_72 = YPfab_met(FUNCODEREF(fun_describe_condition_72),T106,LITREF(lit_3),LITREF(lit_160),sloc(339),YPfalse); T108 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T109 = fun_describe_condition_72; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YgooSconditionsYdescribe_condition,T107); lit_162 = YPPsym((P)""); T111 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T110 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_162),T111); VARSET(YgooSconditionsYLinternal_errorG,T110); lit_163 = YPPsym((P)"internal-error"); lit_164 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T112 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); Yinternal_error = YPfab_met(FUNCODEREF(Yinternal_error),T112,LITREF(lit_163),LITREF(lit_164),sloc(343),YPfalse); T113 = Yinternal_error; VARSET(Yinternal_error,T113); lit_165 = YPPsym((P)""); T117 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T116 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_165),T117); T115 = VARSET(YgooSconditionsYLassert_errorG,T116); T114 = T115; return T114; } P YgooSconditionsY___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118; DEFCREGS(); lit_166 = YPPsym((P)"assert-error"); lit_167 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T0 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); Yassert_error = YPfab_met(FUNCODEREF(Yassert_error),T0,LITREF(lit_166),LITREF(lit_167),sloc(349),YPfalse); T1 = Yassert_error; VARSET(Yassert_error,T1); lit_168 = YPPlist(1,YPPsym((P)"c")); lit_169 = YPsb((P)"Assert failure "); T2 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLassert_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_75 = YPfab_met(FUNCODEREF(fun_describe_condition_75),T2,LITREF(lit_3),LITREF(lit_168),sloc(353),YPfalse); T4 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T5 = fun_describe_condition_75; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooSconditionsYdescribe_condition,T3); lit_170 = YPPsym((P)""); T7 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T6 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_170),T7); VARSET(YgooSconditionsYLrange_errorG,T6); lit_171 = YPPsym((P)"range-error-collection"); lit_172 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLrange_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_range_error_collection_76 = YPfab_met(FUNCODEREF(fun_range_error_collection_76),T8,LITREF(lit_171),LITREF(lit_172),sloc(357),YPfalse); T10 = VARREF_OR(YgooSconditionsYrange_error_collection,YPfalse); T11 = fun_range_error_collection_76; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooSconditionsYrange_error_collection,T9); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLrange_errorG),VARREF(YgooSconditionsYrange_error_collection),YPfalse,VARREF(YLcolG),VARREF(YPprop_unbound_error)); lit_173 = YPPsym((P)"range-error-key"); lit_174 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLrange_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_range_error_key_77 = YPfab_met(FUNCODEREF(fun_range_error_key_77),T12,LITREF(lit_173),LITREF(lit_174),sloc(358),YPfalse); T14 = VARREF_OR(YgooSconditionsYrange_error_key,YPfalse); T15 = fun_range_error_key_77; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSconditionsYrange_error_key,T13); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLrange_errorG),VARREF(YgooSconditionsYrange_error_key),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_175 = YPPsym((P)"range-error"); lit_176 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"k")); T16 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_range_error_78 = YPfab_met(FUNCODEREF(fun_range_error_78),T16,LITREF(lit_175),LITREF(lit_176),sloc(360),YPfalse); T18 = VARREF_OR(Yrange_error,YPfalse); T19 = fun_range_error_78; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(Yrange_error,T17); lit_177 = YPPlist(1,YPPsym((P)"c")); lit_178 = YPsb((P)"Nonexistent key %= in %="); T20 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLrange_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_79 = YPfab_met(FUNCODEREF(fun_describe_condition_79),T20,LITREF(lit_3),LITREF(lit_177),sloc(363),YPfalse); T22 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T23 = fun_describe_condition_79; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSconditionsYdescribe_condition,T21); lit_179 = YPPsym((P)""); T25 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T24 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_179),T25); VARSET(YgooSconditionsYLio_errorG,T24); lit_180 = YPPsym((P)""); T27 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLio_errorG),Ynil); T26 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_180),T27); VARSET(YgooSconditionsYLfile_opening_errorG,T26); lit_181 = YPPsym((P)"file-opening-error-filename"); lit_182 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLfile_opening_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_file_opening_error_filename_80 = YPfab_met(FUNCODEREF(fun_file_opening_error_filename_80),T28,LITREF(lit_181),LITREF(lit_182),sloc(370),YPfalse); T30 = VARREF_OR(YgooSconditionsYfile_opening_error_filename,YPfalse); T31 = fun_file_opening_error_filename_80; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooSconditionsYfile_opening_error_filename,T29); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLfile_opening_errorG),VARREF(YgooSconditionsYfile_opening_error_filename),YPfalse,VARREF(YLstrG),VARREF(YPprop_unbound_error)); lit_183 = YPPsym((P)"file-opening-error"); lit_184 = YPPlist(1,YPPsym((P)"filename")); T32 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_file_opening_error_81 = YPfab_met(FUNCODEREF(fun_file_opening_error_81),T32,LITREF(lit_183),LITREF(lit_184),sloc(372),YPfalse); T34 = VARREF_OR(Yfile_opening_error,YPfalse); T35 = fun_file_opening_error_81; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(Yfile_opening_error,T33); lit_185 = YPPlist(1,YPPsym((P)"c")); lit_186 = YPsb((P)"Failed to open %s."); T36 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLfile_opening_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_82 = YPfab_met(FUNCODEREF(fun_describe_condition_82),T36,LITREF(lit_3),LITREF(lit_185),sloc(375),YPfalse); T38 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T39 = fun_describe_condition_82; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSconditionsYdescribe_condition,T37); lit_187 = YPPsym((P)""); T41 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T40 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_187),T41); VARSET(YgooSconditionsYLunbound_errorG,T40); lit_188 = YPPsym((P)""); T43 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLunbound_errorG),Ynil); T42 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_188),T43); VARSET(YgooSconditionsYLunbound_variable_errorG,T42); lit_189 = YPPsym((P)"unbound-variable-error-variable"); lit_190 = YPPlist(1,YPPsym((P)"_x")); T44 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLunbound_variable_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_unbound_variable_error_variable_83 = YPfab_met(FUNCODEREF(fun_unbound_variable_error_variable_83),T44,LITREF(lit_189),LITREF(lit_190),sloc(381),YPfalse); T46 = VARREF_OR(YgooSconditionsYunbound_variable_error_variable,YPfalse); T47 = fun_unbound_variable_error_variable_83; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooSconditionsYunbound_variable_error_variable,T45); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLunbound_variable_errorG),VARREF(YgooSconditionsYunbound_variable_error_variable),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_191 = YPPlist(1,YPPsym((P)"c")); lit_192 = YPsb((P)"Unbound variable %s."); T48 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLunbound_variable_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_84 = YPfab_met(FUNCODEREF(fun_describe_condition_84),T48,LITREF(lit_3),LITREF(lit_191),sloc(383),YPfalse); T50 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T51 = fun_describe_condition_84; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooSconditionsYdescribe_condition,T49); lit_193 = YPPsym((P)""); T53 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLerrorG),Ynil); T52 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_193),T53); VARSET(YgooSconditionsYLproperty_errorG,T52); lit_194 = YPPsym((P)"property-error-owner"); lit_195 = YPPlist(1,YPPsym((P)"_x")); T54 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLproperty_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_property_error_owner_85 = YPfab_met(FUNCODEREF(fun_property_error_owner_85),T54,LITREF(lit_194),LITREF(lit_195),sloc(387),YPfalse); T56 = VARREF_OR(YgooSconditionsYproperty_error_owner,YPfalse); T57 = fun_property_error_owner_85; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSconditionsYproperty_error_owner,T55); lit_196 = YPPlist(1,YPPsym((P)"_x")); T58 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_86 = YPfab_met(FUNCODEREF(fun_86),T58,YPfalse,LITREF(lit_196),sloc(387),YPfalse); T59 = fun_86; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLproperty_errorG),VARREF(YgooSconditionsYproperty_error_owner),YPfalse,VARREF(YLanyG),T59); lit_197 = YPPsym((P)"property-error-generic"); lit_198 = YPPlist(1,YPPsym((P)"_x")); T60 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLproperty_errorG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_property_error_generic_87 = YPfab_met(FUNCODEREF(fun_property_error_generic_87),T60,LITREF(lit_197),LITREF(lit_198),sloc(388),YPfalse); T62 = VARREF_OR(YgooSconditionsYproperty_error_generic,YPfalse); T63 = fun_property_error_generic_87; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooSconditionsYproperty_error_generic,T61); lit_199 = YPPlist(1,YPPsym((P)"_x")); T64 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_88 = YPfab_met(FUNCODEREF(fun_88),T64,YPfalse,LITREF(lit_199),sloc(388),YPfalse); T65 = fun_88; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSconditionsYLproperty_errorG),VARREF(YgooSconditionsYproperty_error_generic),YPfalse,VARREF(YLanyG),T65); lit_200 = YPPsym((P)""); T68 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLunbound_errorG),Ynil); T67 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLproperty_errorG),T68); T66 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_200),T67); VARSET(YgooSconditionsYLproperty_unbound_errorG,T66); lit_201 = YPPsym((P)"property-unbound-error"); lit_202 = YPPlist(1,YPPsym((P)"owner")); T69 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); Yproperty_unbound_error = YPfab_met(FUNCODEREF(Yproperty_unbound_error),T69,LITREF(lit_201),LITREF(lit_202),sloc(392),YPfalse); T70 = Yproperty_unbound_error; VARSET(Yproperty_unbound_error,T70); lit_203 = YPPlist(1,YPPsym((P)"c")); lit_204 = YPsb((P)"Unbound property on %=."); T71 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLproperty_unbound_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_90 = YPfab_met(FUNCODEREF(fun_describe_condition_90),T71,LITREF(lit_3),LITREF(lit_203),sloc(395),YPfalse); T73 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T74 = fun_describe_condition_90; T72 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T73,T74); VARSET(YgooSconditionsYdescribe_condition,T72); lit_205 = YPPsym((P)""); T76 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLproperty_errorG),Ynil); T75 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_205),T76); VARSET(YgooSconditionsYLproperty_not_found_errorG,T75); lit_206 = YPPsym((P)"property-not-found-error"); lit_207 = YPPlist(2,YPPsym((P)"generic"),YPPsym((P)"owner")); T77 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yproperty_not_found_error = YPfab_met(FUNCODEREF(Yproperty_not_found_error),T77,LITREF(lit_206),LITREF(lit_207),sloc(400),YPfalse); T78 = Yproperty_not_found_error; VARSET(Yproperty_not_found_error,T78); lit_208 = YPPlist(1,YPPsym((P)"c")); lit_209 = YPsb((P)"Property %s not found in %s."); T79 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLproperty_not_found_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_92 = YPfab_met(FUNCODEREF(fun_describe_condition_92),T79,LITREF(lit_3),LITREF(lit_208),sloc(405),YPfalse); T81 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T82 = fun_describe_condition_92; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YgooSconditionsYdescribe_condition,T80); lit_210 = YPPsym((P)""); T85 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLtype_errorG),Ynil); T84 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLproperty_errorG),T85); T83 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_210),T84); VARSET(YgooSconditionsYLproperty_type_errorG,T83); lit_211 = YPPsym((P)"property-type-error"); lit_212 = YPPlist(3,YPPsym((P)"generic"),YPPsym((P)"value"),YPPsym((P)"type")); T86 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); Yproperty_type_error = YPfab_met(FUNCODEREF(Yproperty_type_error),T86,LITREF(lit_211),LITREF(lit_212),sloc(411),YPfalse); T87 = Yproperty_type_error; VARSET(Yproperty_type_error,T87); lit_213 = YPPlist(1,YPPsym((P)"c")); lit_214 = YPsb((P)"Property %s "); T88 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLproperty_type_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_94 = YPfab_met(FUNCODEREF(fun_describe_condition_94),T88,LITREF(lit_3),LITREF(lit_213),sloc(417),YPfalse); T90 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T91 = fun_describe_condition_94; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooSconditionsYdescribe_condition,T89); lit_215 = YPPsym((P)""); T93 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLtype_errorG),Ynil); T92 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_215),T93); VARSET(YgooSconditionsYLas_errorG,T92); lit_216 = YPPsym((P)"as-error"); lit_217 = YPPlist(2,YPPsym((P)"type"),YPPsym((P)"value")); T94 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); Yas_error = YPfab_met(FUNCODEREF(Yas_error),T94,LITREF(lit_216),LITREF(lit_217),sloc(422),YPfalse); T95 = Yas_error; VARSET(Yas_error,T95); lit_218 = YPPlist(1,YPPsym((P)"c")); lit_219 = YPsb((P)"No AS method for type %t and value %=."); T96 = YPfab_sig(YPPlist(1,VARREF(YgooSconditionsYLas_errorG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_describe_condition_96 = YPfab_met(FUNCODEREF(fun_describe_condition_96),T96,LITREF(lit_3),LITREF(lit_218),sloc(425),YPfalse); T98 = VARREF_OR(YgooSconditionsYdescribe_condition,YPfalse); T99 = fun_describe_condition_96; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YgooSconditionsYdescribe_condition,T97); lit_220 = YPPsym((P)""); T101 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T100 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_220),T101); VARSET(YgooSconditionsYLarithmetic_errorG,T100); lit_221 = YPPsym((P)"arithmetic-error"); lit_222 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T102 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); Yarithmetic_error = YPfab_met(FUNCODEREF(Yarithmetic_error),T102,LITREF(lit_221),LITREF(lit_222),sloc(431),YPfalse); T103 = Yarithmetic_error; VARSET(Yarithmetic_error,T103); lit_223 = YPPsym((P)""); T105 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLconditionG),Ynil); T104 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_223),T105); VARSET(YgooSconditionsYLkeyboard_interruptG,T104); lit_224 = YPPsym((P)"keyboard-interrupt"); T106 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); Ykeyboard_interrupt = YPfab_met(FUNCODEREF(Ykeyboard_interrupt),T106,LITREF(lit_224),LITREF(lit_77),sloc(437),YPfalse); T107 = Ykeyboard_interrupt; VARSET(Ykeyboard_interrupt,T107); lit_225 = YPPsym((P)"do-handlers-of-type"); lit_226 = YPPlist(2,YPPsym((P)"type"),YPPsym((P)"f")); T109 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T108 = YPfab_sig(YPPlist(2,T109,VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSconditionsYdo_handlers_of_type = YPfab_met(FUNCODEREF(YgooSconditionsYdo_handlers_of_type),T108,LITREF(lit_225),LITREF(lit_226),sloc(468),YPfalse); T110 = YgooSconditionsYdo_handlers_of_type; VARSET(YgooSconditionsYdo_handlers_of_type,T110); lit_227 = YPPsym((P)"list-handlers"); lit_228 = YPPlist(2,YPPsym((P)"type"),YPPsym((P)"out")); lit_229 = YPPlist(1,YPPsym((P)"handler")); lit_230 = YPsb((P)"%d. %s.\n"); T116 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T115 = fun_100 = YPfab_met(FUNCODEREF(fun_100),T116,YPfalse,LITREF(lit_229),sloc(487),YPfalse); T114 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T113 = YPfab_sig(YPPlist(2,T114,VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooScolsSvecYLvecG),Ynil); T112 = YgooSconditionsYlist_handlers = YPfab_met(FUNCODEREF(YgooSconditionsYlist_handlers),T113,LITREF(lit_227),LITREF(lit_228),sloc(483),YPfalse); T118 = YgooSconditionsYlist_handlers; T117 = VARSET(YgooSconditionsYlist_handlers,T118); T111 = T117; return T111; } P YgooSconditionsY___main_4___() { P T0,T1,T2,T3,T4,T5,T6; DEFCREGS(); lit_231 = YPPsym((P)"invoke-handler-interactively"); lit_232 = YPPlist(3,YPPsym((P)"handler"),YPPsym((P)"in"),YPPsym((P)"out")); lit_233 = YPsb((P)"Handler %= does not match condition %="); lit_234 = YPsb((P)"Handler %= is not installed"); T1 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_102 = YPfab_met(FUNCODEREF(fun_102),T1,YPfalse,LITREF(lit_77),sloc(510),YPfalse); T0 = YPfab_sig(YPPlist(3,VARREF(YgooSconditionsYLhandlerG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSconditionsYinvoke_handler_interactively = YPfab_met(FUNCODEREF(YgooSconditionsYinvoke_handler_interactively),T0,LITREF(lit_231),LITREF(lit_232),sloc(497),YPfalse); T2 = YgooSconditionsYinvoke_handler_interactively; VARSET(YgooSconditionsYinvoke_handler_interactively,T2); lit_235 = YPPsym((P)"choose-handler"); lit_236 = YPPlist(3,YPPsym((P)"type"),YPPsym((P)"in"),YPPsym((P)"out")); lit_237 = YPsb((P)"Please pick a handler: "); lit_238 = YPsb((P)"No such handler %d"); T4 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSconditionsYLconditionG)); T3 = YPfab_sig(YPPlist(3,T4,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSconditionsYchoose_handler = YPfab_met(FUNCODEREF(YgooSconditionsYchoose_handler),T3,LITREF(lit_235),LITREF(lit_236),sloc(514),YPfalse); T5 = YgooSconditionsYchoose_handler; VARSET(YgooSconditionsYchoose_handler,T5); VARSET(YTrestarts_okQT,YPtrue); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T6 = YPfalse; return T6; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSapp; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSopts; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsStup; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooSapp}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSopts}, {&module_info_gooScolsSlst}, {&module_info_gooScolsStup}, {&module_info_gooScolsSvec}, {&module_info_gooScolsStab}, {&module_info_gooSioSport}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"port-filename", &module_info_gooSioSport, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"port-line-setter", &module_info_gooSioSport, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"out", &module_info_gooSioSport, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"port-index-setter", &module_info_gooSioSport, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"sin", &module_info_gooSmath, NULL}, {"port-handle", &module_info_gooSioSport, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"do-handlers-of-type", CVAR, &YgooSconditionsYdo_handlers_of_type}, {"build-condition-for-handler-interactively", CVAR, &YgooSconditionsYbuild_condition_for_handler_interactively}, {"", CVAR, &YgooSconditionsYLas_errorG}, {"handler-active?", CVAR, &YgooSconditionsYhandler_activeQ}, {"macro-error-arguments", CVAR, &YgooSconditionsYmacro_error_arguments}, {"", CVAR, &YgooSconditionsYLarity_errorG}, {"", CVAR, &YgooSconditionsYLsimple_errorG}, {"range-error-collection", CVAR, &YgooSconditionsYrange_error_collection}, {"", CVAR, &YgooSconditionsYLcall_errorG}, {"default-handler-description", CVAR, &YgooSconditionsYdefault_handler_description}, {"", CVAR, &YgooSconditionsYLcpl_errorG}, {"", CVAR, &YgooSconditionsYLconditionG}, {"", CVAR, &YgooSconditionsYLsimple_conditionG}, {"condition-message", CVAR, &YgooSconditionsYcondition_message}, {"", CVAR, &YgooSconditionsYLreturn_type_errorG}, {"call-error-function", CVAR, &YgooSconditionsYcall_error_function}, {"handler-condition-type", CVAR, &YgooSconditionsYhandler_condition_type}, {"", CVAR, &YgooSconditionsYLunbound_errorG}, {"", CVAR, &YgooSconditionsYLarithmetic_errorG}, {"", CVAR, &YgooSconditionsYLproperty_unbound_errorG}, {"", CVAR, &YgooSconditionsYLambiguous_method_errorG}, {"---main-2---", PVAR, NULL}, {"unbound-variable-error-variable", CVAR, &YgooSconditionsYunbound_variable_error_variable}, {"fab-handler", CVAR, &YgooSconditionsYfab_handler}, {"choose-handler", CVAR, &YgooSconditionsYchoose_handler}, {"condition-message-setter", CVAR, &YgooSconditionsYcondition_message_setter}, {"", CVAR, &YgooSconditionsYLunbound_variable_errorG}, {"describe-condition", CVAR, &YgooSconditionsYdescribe_condition}, {"$default-handler-info", CVAR, &YgooSconditionsYDdefault_handler_info}, {"", CVAR, &YgooSconditionsYLproperty_errorG}, {"file-opening-error-filename", CVAR, &YgooSconditionsYfile_opening_error_filename}, {"", CVAR, &YgooSconditionsYLproperty_type_errorG}, {"", CVAR, &YgooSconditionsYLfile_opening_errorG}, {"*current-handlers*", DVAR, &YgooSconditionsYTcurrent_handlersT}, {"property-error-owner", CVAR, &YgooSconditionsYproperty_error_owner}, {"---main-1---", PVAR, NULL}, {"", CVAR, &YgooSconditionsYLunknown_function_errorG}, {"read", CVAR, &YgooSconditionsYread}, {"---main-3---", PVAR, NULL}, {"condition-arguments-setter", CVAR, &YgooSconditionsYcondition_arguments_setter}, {"", CVAR, &YgooSconditionsYLserious_conditionG}, {"describe-handler", CVAR, &YgooSconditionsYdescribe_handler}, {"range-error-key", CVAR, &YgooSconditionsYrange_error_key}, {"", CVAR, &YgooSconditionsYLnarity_errorG}, {"", CVAR, &YgooSconditionsYLproperty_not_found_errorG}, {"invoke-handler-interactively", CVAR, &YgooSconditionsYinvoke_handler_interactively}, {"", CVAR, &YgooSconditionsYLstack_overflowG}, {"handler-info", CVAR, &YgooSconditionsYhandler_info}, {"", CVAR, &YgooSconditionsYLio_errorG}, {"call-error-arguments", CVAR, &YgooSconditionsYcall_error_arguments}, {"", CVAR, &YgooSconditionsYLinternal_errorG}, {"", CVAR, &YgooSconditionsYLassert_errorG}, {"", CVAR, &YgooSconditionsYLsyntax_errorG}, {"", CVAR, &YgooSconditionsYLrestartG}, {"", CVAR, &YgooSconditionsYLcompiler_errorG}, {"", CVAR, &YgooSconditionsYLno_applicable_methods_errorG}, {"", CVAR, &YgooSconditionsYLkeyboard_interruptG}, {"default-handler", CVAR, &YgooSconditionsYdefault_handler}, {"condition-arguments", CVAR, &YgooSconditionsYcondition_arguments}, {"build-condition-interactively", CVAR, &YgooSconditionsYbuild_condition_interactively}, {"", CVAR, &YgooSconditionsYLmacro_errorG}, {"", CVAR, &YgooSconditionsYLargument_type_errorG}, {"---main-4---", PVAR, NULL}, {"", CVAR, &YgooSconditionsYLtype_errorG}, {"type-error-type", CVAR, &YgooSconditionsYtype_error_type}, {"", CVAR, &YgooSconditionsYLno_next_methods_errorG}, {"---main-0---", PVAR, NULL}, {"handler-test", CVAR, &YgooSconditionsYhandler_test}, {"signal-handler-list", CVAR, &YgooSconditionsYsignal_handler_list}, {"sig", CVAR, &YgooSconditionsYsig}, {"list-handlers", CVAR, &YgooSconditionsYlist_handlers}, {"", CVAR, &YgooSconditionsYLhandlerG}, {"", CVAR, &YgooSconditionsYLerrorG}, {"msg", CVAR, &YgooSconditionsYmsg}, {"incongruent-method-error-generic", CVAR, &YgooSconditionsYincongruent_method_error_generic}, {"incongruent-method-error-method", CVAR, &YgooSconditionsYincongruent_method_error_method}, {"handler-matches?", CVAR, &YgooSconditionsYhandler_matchesQ}, {"msg-to-str", CVAR, &YgooSconditionsYmsg_to_str}, {"property-error-generic", CVAR, &YgooSconditionsYproperty_error_generic}, {"", CVAR, &YgooSconditionsYLhandler_infoG}, {"handler-function", CVAR, &YgooSconditionsYhandler_function}, {"type-error-value", CVAR, &YgooSconditionsYtype_error_value}, {"macro-error-name", CVAR, &YgooSconditionsYmacro_error_name}, {"", CVAR, &YgooSconditionsYLincongruent_method_errorG}, {"", CVAR, &YgooSconditionsYLrange_errorG}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"build-condition-for-handler-interactively", NULL}, {"", NULL}, {"macro-error-arguments", NULL}, {"handler-info-message", NULL}, {"sig", NULL}, {"", NULL}, {"", NULL}, {"macro-error", NULL}, {"range-error-collection", NULL}, {"", NULL}, {"default-handler-description", NULL}, {"keyboard-interrupt", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"call-error-function", NULL}, {"msg", NULL}, {"narity-error", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"unbound-variable-error-variable", NULL}, {"fab-handler", NULL}, {"choose-handler", NULL}, {"", NULL}, {"", NULL}, {"assert-error", NULL}, {"describe-condition", NULL}, {"$default-handler-info", NULL}, {"", NULL}, {"", NULL}, {"file-opening-error-filename", NULL}, {"", NULL}, {"", NULL}, {"type-error-type", NULL}, {"", NULL}, {"return-type-error", NULL}, {"*current-handlers*", NULL}, {"property-error-owner", NULL}, {"%with-monitor", NULL}, {"", NULL}, {"read", NULL}, {"", NULL}, {"describe-handler", NULL}, {"invoke-handler-interactively", NULL}, {"range-error-key", NULL}, {"condition-message", NULL}, {"", NULL}, {"", NULL}, {"handler-info-arguments", NULL}, {"no-next-methods-error", NULL}, {"", NULL}, {"", NULL}, {"argument-type-error", NULL}, {"call-error-arguments", NULL}, {"error", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"default-handler", NULL}, {"condition-arguments", NULL}, {"build-condition-interactively", NULL}, {"", NULL}, {"", NULL}, {"stack-overflow-error", NULL}, {"type-error-value", NULL}, {"", NULL}, {"arity-error", NULL}, {"handler-matches?", NULL}, {"list-handlers", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"msg-to-str", NULL}, {"", NULL}, {"arithmetic-error", NULL}, {"property-error-generic", NULL}, {"internal-error", NULL}, {"", NULL}, {"handler-function", NULL}, {"range-error", NULL}, {"macro-error-name", NULL}, {"", NULL}, {"", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSconditions; MODULE_INFO module_info_gooSconditions = { "goo/conditions", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooSapp (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSopts (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsStup (void); extern void load_module_gooScolsSvec (void); extern void load_module_gooScolsStab (void); extern void load_module_gooSioSport (void); /* EXPRESSION: */ extern void load_module_gooSconditions (void); void load_module_gooSconditions (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooSapp(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSopts(); load_module_gooScolsSlst(); load_module_gooScolsStup(); load_module_gooScolsSvec(); load_module_gooScolsStab(); load_module_gooSioSport(); (P)YgooSconditionsY___main_0___(); (P)YgooSconditionsY___main_1___(); (P)YgooSconditionsY___main_2___(); (P)YgooSconditionsY___main_3___(); (P)YgooSconditionsY___main_4___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/eval.c0100644000175000017500000014022707756744550014516 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/eval"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/eval */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalStopYsave_image,"eval/top","save-image"); EXT(YLsymG,"goo/boot",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalStopYframe_var,"eval/top","frame-var"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalStopYbacktrace,"eval/top","backtrace"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YevalStopYtop,"eval/top","top"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YevalStopYD,"eval/top","$"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YevalStopYload,"eval/top","load"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); DYNEXT(YevalSmoduleYTdynamic_compilationQT,"eval/module","*dynamic-compilation?*"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YevalStopYread_file,"eval/top","read-file"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YevalStopYesctst,"eval/top","esctst"); EXT(YgooSmathY_,"goo/math","-"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YevalStopYparse_in,"eval/top","parse-in"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalStopYDDD,"eval/top","$$$"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YevalStopYvm_evaluate,"eval/top","vm-evaluate"); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(YevalStopYDD,"eval/top","$$"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YevalStopYframe,"eval/top","frame"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSsyntaxYeval,"eval/syntax","eval"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YevalStopYg2c_eval,"eval/top","g2c-eval"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YevalStopYload_file,"eval/top","load-file"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YevalStopYdo_stack_frames,"eval/top","do-stack-frames"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YevalStopYbt,"eval/top","bt"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YevalStopYauto_eval,"eval/top","auto-eval"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ /* FUNCTIONS: */ extern P YgooSevalY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YgooSevalY___main_0___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_evalStop; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_evalSmodule; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_evalSsyntax; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_evalStop}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSioSport, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"save-image", &module_info_evalStop, NULL}, {"", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"frame-var", &module_info_evalStop, NULL}, {"", &module_info_gooSconditions, NULL}, {"backtrace", &module_info_evalStop, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"top", &module_info_evalStop, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"~=", &module_info_gooSlog, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"$", &module_info_evalStop, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"load", &module_info_evalStop, NULL}, {"t?", &module_info_gooStypes, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"*dynamic-compilation?*", &module_info_evalSmodule, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"|", &module_info_gooSmath, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-file", &module_info_evalStop, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"esctst", &module_info_evalStop, NULL}, {"-", &module_info_gooSmath, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"parse-in", &module_info_evalStop, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"$$$", &module_info_evalStop, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"vm-evaluate", &module_info_evalStop, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"t=", &module_info_gooStypes, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"$$", &module_info_evalStop, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"frame", &module_info_evalStop, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"eval", &module_info_evalSsyntax, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"g2c-eval", &module_info_evalStop, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"load-file", &module_info_evalStop, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"gets", &module_info_gooSioSport, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"do-stack-frames", &module_info_evalStop, NULL}, {"max", &module_info_gooSmag, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"dg", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"bt", &module_info_evalStop, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"auto-eval", &module_info_evalStop, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"in", &module_info_gooSioSport, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"until", &module_info_gooSmacros, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"opf", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"save-image", NULL}, {"frame-var", NULL}, {"backtrace", NULL}, {"top", NULL}, {"$", NULL}, {"load", NULL}, {"$$$", NULL}, {"$$", NULL}, {"frame", NULL}, {"eval", NULL}, {"load-file", NULL}, {"do-stack-frames", NULL}, {"bt", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSeval; MODULE_INFO module_info_gooSeval = { "goo/eval", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_evalStop (void); /* EXPRESSION: */ extern void load_module_gooSeval (void); void load_module_gooSeval (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_evalStop(); (P)YgooSevalY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/fun.c0100644000175000017500000046105707756744551014367 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/fun"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/fun */ EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); DEF(YgooSfunYOgen_cache_singletons,"goo/fun","@gen-cache-singletons"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); DEF(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); DEF(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); DEF(YgooSfunYfun_src_loc_setter,"goo/fun","fun-src-loc-setter"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); DEF(YgooSfunYOprune_mets_by_type_at,"goo/fun","@prune-mets-by-type-at"); EXT(Yhead,"goo/boot","head"); EXT(YLstrG,"goo/boot",""); DEF(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(Yorder_specs,"goo/boot","order-specs"); DEF(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); DEF(YgooSfunYOclassL,"goo/fun","@class<"); DEF(YgooSfunYOfun_unification_vars,"goo/fun","@fun-unification-vars"); DEF(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); DEF(YgooSfunYOgen_cache_arg_pos_setter,"goo/fun","@gen-cache-arg-pos-setter"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); DEF(YgooSfunYfun_arity_setter,"goo/fun","fun-arity-setter"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); DEF(YgooSfunYgen_lookup_miss_1,"goo/fun","gen-lookup-miss-1"); EXT(YPtrue,"goo/boot","%true"); DEF(YgooSfunYgen_lookup_miss_1_using,"goo/fun","gen-lookup-miss-1-using"); DEF(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); DEF(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YLlstG,"goo/boot",""); DEF(YgooSfunYgen_lookup_miss,"goo/fun","gen-lookup-miss"); DEF(YgooSfunYfun_specs,"goo/fun","fun-specs"); DEF(YgooSfunYOfun_val,"goo/fun","@fun-val"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); DEF(YgooSfunYOorder_specs,"goo/fun","@order-specs"); DEF(YgooSfunYDmissed_dispatch,"goo/fun","$missed-dispatch"); DEF(YgooSfunYOgen_cache_arg_pos,"goo/fun","@gen-cache-arg-pos"); DEF(YgooSfunYOgen_cache_singletons_setter,"goo/fun","@gen-cache-singletons-setter"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); DEF(YgooSfunYgen_from_met,"goo/fun","gen-from-met"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); DEF(YgooSfunYfun_src_setter,"goo/fun","fun-src-setter"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); DEF(YgooSfunYOmets_unspecialized_atQ,"goo/fun","@mets-unspecialized-at?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); DEF(YgooSfunYOfun_arity,"goo/fun","@fun-arity"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YLseqG,"goo/boot",""); DEF(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); DEF(YgooSfunYord_app_mets_1,"goo/fun","ord-app-mets-1"); DEF(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YLcolXG,"goo/boot",""); DEF(YgooSfunYOprecise_specQ,"goo/fun","@precise-spec?"); EXT(YOmemQ,"goo/boot","@mem?"); DEF(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); DEF(YgooSfunYfun_naryQ_setter,"goo/fun","fun-nary?-setter"); EXT(Ytail,"goo/boot","tail"); DEF(YgooSfunYOcache_add,"goo/fun","@cache-add"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YLcolIG,"goo/boot",""); DEF(YgooSfunYOfun_naryQ,"goo/fun","@fun-nary?"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); DEF(YgooSfunYLspecsG,"goo/fun",""); DEF(YgooSfunYmet_app_unify,"goo/fun","met-app-unify"); DEF(YgooSfunYensure_singleton_cache,"goo/fun","ensure-singleton-cache"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); DEF(YgooSfunYOunion_specQ,"goo/fun","@union-spec?"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); DEF(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); DEF(YgooSfunYDnul_assocs,"goo/fun","$nul-assocs"); DEF(YgooSfunYfun_names_setter,"goo/fun","fun-names-setter"); DEF(YgooSfunYLbodyG,"goo/fun",""); EXT(YOrevX,"goo/boot","@rev!"); DEF(YgooSfunYOfun_specs,"goo/fun","@fun-specs"); DEF(YgooSfunYLmetsG,"goo/fun",""); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); DEF(YgooSfunYord_app_metsT,"goo/fun","ord-app-mets*"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); DEF(YgooSfunYOsubclass_specQ,"goo/fun","@subclass-spec?"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); DEF(YgooSfunYfun_names,"goo/fun","fun-names"); DEF(YgooSfunYOmets_subclasses_at,"goo/fun","@mets-subclasses-at"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); DEF(YgooSfunYrequires_singleton_prec,"goo/fun","requires-singleton-prec"); DEF(YgooSfunYfun_specs_setter,"goo/fun","fun-specs-setter"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); DEF(YgooSfunYorder_mets,"goo/fun","order-mets"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); DEF(YgooSfunYOfun_names,"goo/fun","@fun-names"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YOcat2,"goo/boot","@cat2"); DEF(YgooSfunYfun_unification_vars,"goo/fun","fun-unification-vars"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); DEF(YgooSfunYfab_gen,"goo/fun","fab-gen"); DEF(YgooSfunYOsingleton_specQ,"goo/fun","@singleton-spec?"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); DEF(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(Yapp_args,"goo/boot","app-args"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); DEF(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); DEF(YgooSfunYfun_congruentQ,"goo/fun","fun-congruent?"); EXT(YLnumG,"goo/boot",""); DEF(YgooSfunYfun_name_setter,"goo/fun","fun-name-setter"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); DEF(YgooSfunYfun_unification_vars_setter,"goo/fun","fun-unification-vars-setter"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YLunionG,"goo/boot",""); DEF(YgooSfunYOspecd_args,"goo/fun","@specd-args"); DEF(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); DEF(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YgooSfunYfun_name,"goo/fun","fun-name"); DEF(YgooSfunYOmets_singletons_at,"goo/fun","@mets-singletons-at"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); DEF(YgooSfunYmethod_accessor_offset,"goo/fun","method-accessor-offset"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooSfunYfun_same_metQ,"goo/fun","fun-same-met?"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); DEF(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); DEF(YgooSfunYOgen_cache_classes_setter,"goo/fun","@gen-cache-classes-setter"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); DEF(YgooSfunYchoose_methods,"goo/fun","choose-methods"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); DEF(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); DEF(YgooSfunYOmets_specs_at,"goo/fun","@mets-specs-at"); EXT(YOtanyQ,"goo/boot","@tany?"); DEF(YgooSfunYOgen_cache_classes,"goo/fun","@gen-cache-classes"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YgooSfunYLenvG,"goo/fun",""); DEF(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); DEF(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); DEF(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); DEF(YgooSfunYfun_val_setter,"goo/fun","fun-val-setter"); EXT(YLclassG,"goo/boot",""); DEF(YgooSfunYOfun_mets_setter,"goo/fun","@fun-mets-setter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_40); DEFLIT(lit_50); DEFLIT(lit_116); DEFLIT(lit_87); DEFLIT(lit_34); DEFLIT(lit_131); DEFLIT(lit_110); DEFLIT(lit_2); DEFLIT(lit_114); DEFLIT(lit_44); DEFLIT(lit_15); DEFLIT(lit_66); DEFLIT(lit_47); DEFLIT(lit_113); DEFLIT(lit_79); DEFLIT(lit_118); DEFLIT(lit_97); DEFLIT(lit_128); DEFLIT(lit_102); DEFLIT(lit_68); DEFLIT(lit_109); DEFLIT(lit_145); DEFLIT(lit_73); DEFLIT(lit_74); DEFLIT(lit_105); DEFLIT(lit_150); DEFLIT(lit_136); DEFLIT(lit_111); DEFLIT(lit_38); DEFLIT(lit_93); DEFLIT(lit_133); DEFLIT(lit_28); DEFLIT(lit_137); DEFLIT(lit_27); DEFLIT(lit_112); DEFLIT(lit_121); DEFLIT(lit_57); DEFLIT(lit_132); DEFLIT(lit_37); DEFLIT(lit_23); DEFLIT(lit_122); DEFLIT(lit_108); DEFLIT(lit_143); DEFLIT(lit_115); DEFLIT(lit_19); DEFLIT(lit_64); DEFLIT(lit_31); DEFLIT(lit_147); DEFLIT(lit_12); DEFLIT(lit_154); DEFLIT(lit_70); DEFLIT(lit_49); DEFLIT(lit_54); DEFLIT(lit_151); DEFLIT(lit_20); DEFLIT(lit_6); DEFLIT(lit_72); DEFLIT(lit_61); DEFLIT(lit_126); DEFLIT(lit_123); DEFLIT(lit_120); DEFLIT(lit_164); DEFLIT(lit_86); DEFLIT(lit_94); DEFLIT(lit_4); DEFLIT(lit_124); DEFLIT(lit_77); DEFLIT(lit_106); DEFLIT(lit_103); DEFLIT(lit_163); DEFLIT(lit_85); DEFLIT(lit_139); DEFLIT(lit_16); DEFLIT(lit_30); DEFLIT(lit_32); DEFLIT(lit_95); DEFLIT(lit_104); DEFLIT(lit_83); DEFLIT(lit_134); DEFLIT(lit_80); DEFLIT(lit_141); DEFLIT(lit_53); DEFLIT(lit_58); DEFLIT(lit_59); DEFLIT(lit_0); DEFLIT(lit_42); DEFLIT(lit_67); DEFLIT(lit_21); DEFLIT(lit_65); DEFLIT(lit_17); DEFLIT(lit_51); DEFLIT(lit_43); DEFLIT(lit_140); DEFLIT(lit_130); DEFLIT(lit_39); DEFLIT(lit_100); DEFLIT(lit_157); DEFLIT(lit_78); DEFLIT(lit_159); DEFLIT(lit_148); DEFLIT(lit_36); DEFLIT(lit_160); DEFLIT(lit_10); DEFLIT(lit_48); DEFLIT(lit_138); DEFLIT(lit_96); DEFLIT(lit_76); DEFLIT(lit_117); DEFLIT(lit_107); DEFLIT(lit_153); DEFLIT(lit_69); DEFLIT(lit_46); DEFLIT(lit_90); DEFLIT(lit_119); DEFLIT(lit_24); DEFLIT(lit_81); DEFLIT(lit_56); DEFLIT(lit_161); DEFLIT(lit_91); DEFLIT(lit_25); DEFLIT(lit_29); DEFLIT(lit_71); DEFLIT(lit_92); DEFLIT(lit_5); DEFLIT(lit_3); DEFLIT(lit_35); DEFLIT(lit_1); DEFLIT(lit_144); DEFLIT(lit_45); DEFLIT(lit_152); DEFLIT(lit_33); DEFLIT(lit_156); DEFLIT(lit_135); DEFLIT(lit_88); DEFLIT(lit_155); DEFLIT(lit_142); DEFLIT(lit_18); DEFLIT(lit_89); DEFLIT(lit_55); DEFLIT(lit_158); DEFLIT(lit_22); DEFLIT(lit_52); DEFLIT(lit_129); DEFLIT(lit_63); DEFLIT(lit_82); DEFLIT(lit_62); DEFLIT(lit_162); DEFLIT(lit_98); DEFLIT(lit_11); DEFLIT(lit_125); DEFLIT(lit_9); DEFLIT(lit_149); DEFLIT(lit_7); DEFLIT(lit_26); DEFLIT(lit_75); DEFLIT(lit_99); DEFLIT(lit_14); DEFLIT(lit_84); DEFLIT(lit_60); DEFLIT(lit_41); DEFLIT(lit_13); DEFLIT(lit_101); DEFLIT(lit_127); DEFLIT(lit_146); DEFLIT(lit_8); /* FUNCTIONS: */ FUNFOR(YgooSfunYOfun_names); FUNFOR(YgooSfunYOfun_specs); FUNFOR(YgooSfunYOfun_naryQ); FUNFOR(YgooSfunYOfun_arity); FUNFOR(YgooSfunYOfun_val); FUNFOR(YgooSfunYOfun_unification_vars); FUNFOR(YgooSfunYOfun_mets); FUNFOR(YgooSfunYOfun_mets_setter); FUNFOR(YgooSfunYfun_spec); FUNFOR(YgooSfunYfun_same_metQ); FUNFOR(YgooSfunYfun_congruentQ); LOCFOR(fun_11); LOCFOR(fun_12); LOCFOR(fun_13); LOCFOR(fun_14); FUNFOR(YgooSfunYgen_add_met); FUNFOR(YgooSfunYOclassL); FUNFOR(YgooSfunYOorder_specs_class); FUNFOR(YgooSfunYOorder_specs); FUNFOR(YgooSfunYorder_mets); LOCFOR(fun_make_ambiguous_20); LOCFOR(fun_precedes_allQ_21); LOCFOR(fun_check_subsequent_ambiguities_22); LOCFOR(fun_insert_23); FUNFOR(YgooSfunYord_app_mets_1); LOCFOR(fun_25); FUNFOR(YgooSfunYmet_appQ); FUNFOR(YgooSfunYord_app_metsT); FUNFOR(YgooSfunYord_app_mets); FUNFOR(YgooSfunYOgen_cache_arg_pos); FUNFOR(YgooSfunYOgen_cache_arg_pos_setter); FUNFOR(YgooSfunYOgen_cache_singletons); FUNFOR(YgooSfunYOgen_cache_singletons_setter); FUNFOR(YgooSfunYOgen_cache_classes); FUNFOR(YgooSfunYOgen_cache_classes_setter); FUNFOR(YgooSfunYmethod_accessor_offset); FUNFOR(YgooSfunYOsingleton_specQ); FUNFOR(YgooSfunYOsubclass_specQ); FUNFOR(YgooSfunYOunion_specQ); FUNFOR(YgooSfunYOprecise_specQ); LOCFOR(fun_40); FUNFOR(YgooSfunYOmets_unspecialized_atQ); LOCFOR(fun_42); FUNFOR(YgooSfunYOprune_mets_by_type_at); LOCFOR(fun_44); FUNFOR(YgooSfunYOmets_specs_at); LOCFOR(fun_46); FUNFOR(YgooSfunYOmets_singletons_at); LOCFOR(fun_48); FUNFOR(YgooSfunYOmets_subclasses_at); FUNFOR(YgooSfunYOcache_add); FUNFOR(YgooSfunYgen_lookup_miss_1_using); FUNFOR(YgooSfunYOspecd_args); FUNFOR(YgooSfunYrequires_singleton_prec); FUNFOR(YgooSfunYensure_singleton_cache); FUNFOR(YgooSfunYgen_lookup_miss_1); FUNFOR(YgooSfunYgen_lookup_miss); extern P YgooSfunYprop_value_at (P,P); extern P YgooSfunYprop_bound_atQ (P,P); extern P YgooSfunYprop_value_at_setter (P,P,P); extern P YgooSfunYgen_lookup (P,P); extern P YgooSfunYgen_lookup_1_using (P,P,P,P,P,P,P); extern P YgooSfunYgen_lookup_1i (P,P,P); extern P YgooSfunYgen_lookup_1 (P,P,P); FUNFOR(YgooSfunYchoose_methods); extern P YgooSfunYgen_lookup_i (P,P); FUNFOR(YPdispatch); FUNFOR(YgooSfunYfun_specs); FUNFOR(YgooSfunYfun_specs_setter); FUNFOR(YgooSfunYfun_naryQ); FUNFOR(YgooSfunYfun_naryQ_setter); FUNFOR(YgooSfunYfun_arity); FUNFOR(YgooSfunYfun_arity_setter); FUNFOR(YgooSfunYfun_val); FUNFOR(YgooSfunYfun_val_setter); FUNFOR(YgooSfunYfun_unification_vars); FUNFOR(YgooSfunYfun_unification_vars_setter); FUNFOR(YgooSfunYfun_name); FUNFOR(YgooSfunYfun_name_setter); FUNFOR(YgooSfunYfun_names); FUNFOR(YgooSfunYfun_names_setter); FUNFOR(YgooSfunYfun_src); FUNFOR(YgooSfunYfun_src_setter); FUNFOR(YgooSfunYfun_src_loc); FUNFOR(YgooSfunYfun_src_loc_setter); FUNFOR(YgooSfunYfun_count); FUNFOR(YgooSfunYfun_count_setter); FUNFOR(YgooSfunYfun_inlineableQ); FUNFOR(YgooSfunYfun_inlineableQ_setter); FUNFOR(YgooSfunYfab_gen); LOCFOR(fun_90); FUNFOR(YgooSfunYgen_from_met); FUNFOR(YgooSfunYPdefine_method); extern P YgooSfunY___main_0___ (); extern P YgooSfunY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSfunYOfun_names) { P x_; P xF1215; P xF1214; P T0,T1; LINK_STACK(); ARG(x_, 0); xF1214 = x_; T1 = (P)YPprop_elt(xF1214,(P)2); xF1215 = T1; T0 = (P)YPprop_elt(xF1215,(P)1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOfun_specs) { P x_; P xF1217; P xF1216; P T0,T1; LINK_STACK(); ARG(x_, 0); xF1216 = x_; T1 = (P)YPprop_elt(xF1216,(P)1); xF1217 = T1; T0 = (P)YPprop_elt(xF1217,(P)0); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOfun_naryQ) { P x_; P xF1219; P xF1218; P T0,T1; LINK_STACK(); ARG(x_, 0); xF1218 = x_; T1 = (P)YPprop_elt(xF1218,(P)1); xF1219 = T1; T0 = (P)YPprop_elt(xF1219,(P)1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOfun_arity) { P x_; P xF1221; P xF1220; P T0,T1; LINK_STACK(); ARG(x_, 0); xF1220 = x_; T1 = (P)YPprop_elt(xF1220,(P)1); xF1221 = T1; T0 = (P)YPprop_elt(xF1221,(P)2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOfun_val) { P x_; P xF1223; P xF1222; P T0,T1; LINK_STACK(); ARG(x_, 0); xF1222 = x_; T1 = (P)YPprop_elt(xF1222,(P)1); xF1223 = T1; T0 = (P)YPprop_elt(xF1223,(P)3); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOfun_unification_vars) { P x_; P xF1225; P xF1224; P T0,T1; LINK_STACK(); ARG(x_, 0); xF1224 = x_; T1 = (P)YPprop_elt(xF1224,(P)1); xF1225 = T1; T0 = (P)YPprop_elt(xF1225,(P)4); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOfun_mets) { P x_; P xF1226; P T0; LINK_STACK(); ARG(x_, 0); xF1226 = x_; T0 = (P)YPprop_elt(xF1226,(P)3); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOfun_mets_setter) { P z_,x_; P T0; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T0 = (P)YPgen_mets_setter(z_,x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_spec) { P x_,i_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); T1 = CALL1(1,VARREF(YgooSfunYOfun_specs),x_); T0 = CALL2(1,VARREF(YOelt),T1,i_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_same_metQ) { P x_,y_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSfunYOfun_specs),x_); T2 = CALL1(1,VARREF(YgooSfunYOfun_specs),y_); T0 = CALL3(1,VARREF(YOall2Q),VARREF(YOOEE),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYfun_congruentQ) { P x_,y_; P yF1230; P xF1229; P yF1228; P xF1227; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T3 = CALL1(1,VARREF(YgooSfunYOfun_arity),x_); xF1227 = T3; T4 = CALL1(1,VARREF(YgooSfunYOfun_arity),y_); yF1228 = T4; T2 = (P)YPiE(xF1227,yF1228); T1 = (P)YPbb(T2); if (T2) { T8 = CALL1(1,VARREF(YgooSfunYOfun_naryQ),x_); xF1229 = T8; T9 = CALL1(1,VARREF(YgooSfunYOfun_naryQ),y_); yF1230 = T9; T7 = (P)YPeqQ(xF1229,yF1230); T6 = (P)YPbb(T7); if (T7) { T12 = CALL1(1,VARREF(YgooSfunYOfun_specs),x_); T13 = CALL1(1,VARREF(YgooSfunYOfun_specs),y_); T11 = CALL3(1,VARREF(YOall2Q),VARREF(YOsubtypeQ),T12,T13); if (T11 != YPfalse) { T15 = CALL1(1,VARREF(YgooSfunYOfun_val),x_); T16 = CALL1(1,VARREF(YgooSfunYOfun_val),y_); T14 = CALL2(1,VARREF(YOsubtypeQ),T15,T16); T10 = T14; } else { T10 = YPfalse; } T5 = T10; } else { T5 = YPfalse; } T0 = T5; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_11) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_12) { P c_,r_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); T2 = CALL1(1,VARREF(YgooSfunYgen_from_met),FREEREF(0)); T1 = CALL2(1,VARREF(YgooSfunYgen_add_met),T2,FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_13) { P T0; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSfunYincongruent_method_error),FREEREF(0),FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_14) { P return_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(return_, 0); T2 = CALL2(1,VARREF(Ylst),FREEREF(0),FREEREF(1)); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSfunYLsimple_handler_infoG),VARREF(YgooSfunYhandler_info_message),LITREF(lit_25),VARREF(YgooSfunYhandler_info_arguments),T2); T3 = fun_11; T4 = FUNFAB(fun_12,2,FREEREF(1),return_); T5 = FUNFAB(fun_13,2,FREEREF(0),FREEREF(1)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSfunYLreplace_generic_restartG),T1,T3,T4,T5); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYgen_add_met) { P g_,m_; P xF1258; P xF1257; P tmpF1256; P now_sameQF1255; P gmF1254; P xF1253; P xF1252; P xF1251; P xF1250; P gmsF1249; P sameQF1248; P metsF1247; P xF1246; P xF1245; P xF1244; P xF1243; P spec_classF1242; P xF1241; P yF1240; P xF1239; P tmpF1238; P specF1237; P xF1236; P xF1235; P xF1234; P xF1233; P xF1232; P specsF1231; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42; LINK_STACK(); ARG(g_, 0); ARG(m_, 1); (P)YPfun_cache_setter(YPfalse,g_); T2 = CALL2(1,VARREF(YgooSfunYfun_congruentQ),m_,g_); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { if (VARREF(YTrestarts_okQT) != YPfalse) { T5 = FUNFAB(fun_14,2,g_,m_); T4 = with_exit(T5); T3 = T4; } else { T6 = CALL2(1,VARREF(YgooSfunYincongruent_method_error),g_,m_); T3 = T6; } T0 = T3; } else { T27 = CALL1(1,VARREF(YgooSfunYOfun_specs),m_); specsF1231 = T27; LOOP_28: { P a28_0; xF1232 = specsF1231; xF1233 = xF1232; T11 = (P)YPeqQ(xF1233,VARREF(Ynil)); T10 = (P)YPbb(T11); xF1234 = T10; T9 = (P)YPeqQ(xF1234,YPfalse); T8 = (P)YPbb(T9); if (T9) { xF1235 = specsF1231; xF1236 = xF1235; T26 = (P)YPprop_elt(xF1236,(P)0); specF1237 = T26; T18 = CALL1(1,VARREF(YgooSfunYOsingleton_specQ),specF1237); tmpF1238 = T18; if (tmpF1238 != YPfalse) { T15 = tmpF1238; } else { xF1239 = specF1237; yF1240 = VARREF(YLanyG); T17 = (P)YPeqQ(xF1239,yF1240); T16 = (P)YPbb(T17); T15 = T16; } xF1241 = T15; T14 = (P)YPeqQ(xF1241,YPfalse); T13 = (P)YPbb(T14); if (T14) { T25 = (P)YPobject_class(specF1237); spec_classF1242 = T25; xF1243 = spec_classF1242; T20 = (P)YPprop_elt(xF1243,(P)7); T19 = (P)YOadd_new(T20,g_); (P)YPclass_gens_setter(T19,spec_classF1242); xF1244 = spec_classF1242; T22 = (P)YPprop_elt(xF1244,(P)8); T21 = (P)YOadd_new(T22,m_); (P)YPclass_mets_setter(T21,spec_classF1242); xF1245 = specsF1231; xF1246 = xF1245; T24 = (P)YPprop_elt(xF1246,(P)1); a28_0 = T24; specsF1231 = a28_0; goto LOOP_28; T12 = T23; } else { T12 = YPfalse; } T7 = T12; } else { T7 = YPfalse; } } metsF1247 = Ynil; sameQF1248 = YPfalse; T42 = CALL1(1,VARREF(YgooSfunYOfun_mets),g_); check_type(T42,VARREF(YgooSfunYLmetsG)); gmsF1249 = T42; LOOP_29: { P a29_0,a29_1,a29_2; xF1250 = gmsF1249; xF1251 = xF1250; T30 = (P)YPeqQ(xF1251,VARREF(Ynil)); T29 = (P)YPbb(T30); if (T30) { if (sameQF1248 != YPfalse) { T33 = metsF1247; } else { T34 = (P)YOadd(metsF1247,m_); T33 = T34; } T32 = CALL1(1,VARREF(YOrevX),T33); T31 = (P)YPgen_mets_setter(T32,g_); T28 = T31; } else { xF1252 = gmsF1249; xF1253 = xF1252; T41 = (P)YPprop_elt(xF1253,(P)0); gmF1254 = T41; T40 = CALL2(1,VARREF(YgooSfunYfun_same_metQ),gmF1254,m_); now_sameQF1255 = T40; if (now_sameQF1255 != YPfalse) { T37 = m_; } else { T37 = gmF1254; } T36 = (P)YOadd(metsF1247,T37); tmpF1256 = now_sameQF1255; if (tmpF1256 != YPfalse) { T38 = tmpF1256; } else { T38 = sameQF1248; } xF1257 = gmsF1249; xF1258 = xF1257; T39 = (P)YPprop_elt(xF1258,(P)1); a29_0 = T36; a29_1 = T38; a29_2 = T39; metsF1247 = a29_0; sameQF1248 = a29_1; gmsF1249 = a29_2; goto LOOP_29; T28 = T35; } } T0 = g_; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOclassL) { P c1_,c2_,wrt_; P xF1271; P xF1270; P yF1269; P xF1268; P yF1267; P xF1266; P cF1265; P xF1264; P xF1263; P xF1262; P xF1261; P psF1260; P xF1259; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(c1_, 0); ARG(c2_, 1); ARG(wrt_, 2); xF1259 = wrt_; T13 = (P)YPprop_elt(xF1259,(P)4); psF1260 = T13; LOOP_30: { P a30_0; xF1261 = psF1260; xF1262 = xF1261; T2 = (P)YPeqQ(xF1262,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL5(1,VARREF(Ycpl_error),LITREF(lit_30),LITREF(lit_31),wrt_,c1_,c2_); T0 = T3; } else { xF1263 = psF1260; xF1264 = xF1263; T12 = (P)YPprop_elt(xF1264,(P)0); cF1265 = T12; xF1266 = cF1265; yF1267 = c1_; T6 = (P)YPeqQ(xF1266,yF1267); T5 = (P)YPbb(T6); if (T6) { T4 = YPtrue; } else { xF1268 = cF1265; yF1269 = c2_; T9 = (P)YPeqQ(xF1268,yF1269); T8 = (P)YPbb(T9); if (T9) { T7 = YPfalse; } else { xF1270 = psF1260; xF1271 = xF1270; T11 = (P)YPprop_elt(xF1271,(P)1); a30_0 = T11; psF1260 = a30_0; goto LOOP_30; T7 = T10; } T4 = T7; } T0 = T4; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOorder_specs_class) { P t1_,t2_,arg_; P tagF1276; P xF1275; P xF1274; P yF1273; P xF1272; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); xF1272 = t1_; yF1273 = t2_; T2 = (P)YPeqQ(xF1272,yF1273); T1 = (P)YPbb(T2); if (T2) { T3 = CALL2(1,VARREF(YOtup),LITREF(lit_34),t1_); T0 = T3; } else { xF1274 = arg_; xF1275 = xF1274; T11 = (P)YPiB(xF1275,(P)3); tagF1276 = T11; T8 = (P)YPiE(tagF1276,(P)0); T7 = (P)YPbb(T8); if (T8) { T9 = (P)YPobject_class(xF1274); T6 = T9; } else { T10 = (P)YPelt(VARREF(YDdirect_object_class),tagF1276); T6 = T10; } T5 = CALL3(1,VARREF(YgooSfunYOclassL),t1_,t2_,T6); if (T5 != YPfalse) { T12 = CALL2(1,VARREF(YOtup),LITREF(lit_35),t1_); T4 = T12; } else { T13 = CALL2(1,VARREF(YOtup),LITREF(lit_36),t2_); T4 = T13; } T0 = T4; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOorder_specs) { P t1_,t2_,arg_; P yF1286; P xF1285; P tagF1284; P xF1283; P xF1282; P yF1281; P xF1280; P tagF1279; P xF1278; P xF1277; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); xF1277 = t1_; xF1278 = xF1277; T9 = (P)YPiB(xF1278,(P)3); tagF1279 = T9; T6 = (P)YPiE(tagF1279,(P)0); T5 = (P)YPbb(T6); if (T6) { T7 = (P)YPobject_class(xF1277); T4 = T7; } else { T8 = (P)YPelt(VARREF(YDdirect_object_class),tagF1279); T4 = T8; } xF1280 = T4; yF1281 = VARREF(YLclassG); T3 = (P)YPeqQ(xF1280,yF1281); T2 = (P)YPbb(T3); if (T3) { xF1282 = t2_; xF1283 = xF1282; T17 = (P)YPiB(xF1283,(P)3); tagF1284 = T17; T14 = (P)YPiE(tagF1284,(P)0); T13 = (P)YPbb(T14); if (T14) { T15 = (P)YPobject_class(xF1282); T12 = T15; } else { T16 = (P)YPelt(VARREF(YDdirect_object_class),tagF1284); T12 = T16; } xF1285 = T12; yF1286 = VARREF(YLclassG); T11 = (P)YPeqQ(xF1285,yF1286); T10 = (P)YPbb(T11); T1 = T10; } else { T1 = YPfalse; } if (T1 != YPfalse) { T18 = CALL3(1,VARREF(YgooSfunYOorder_specs_class),t1_,t2_,arg_); T0 = T18; } else { T19 = CALL3(1,VARREF(Yorder_specs),t1_,t2_,arg_); T0 = T19; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYorder_mets) { P m1_,m2_,args_; P yF1323; P xF1322; P tmpF1321; P yF1320; P xF1319; P yF1318; P xF1317; P yF1316; P xF1315; P idxF1314; P tF1313; P xF1312; P xF1311; P xF1310; P xF1309; P xF1308; P xF1307; P yF1306; P xF1305; P cmpF1304; P xF1303; P xF1302; P iF1301; P xF1300; P cmpAtypF1299; P xF1298; P xF1297; P xF1296; P iF1295; P xF1294; P m2specF1293; P m1specF1292; P yF1291; P xF1290; P idxF1289; P stateF1288; P arityF1287; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32; LINK_STACK(); ARG(m1_, 0); ARG(m2_, 1); ARG(args_, 2); T32 = CALL1(1,VARREF(YgooSfunYOfun_arity),m1_); check_type(T32,VARREF(YLfixnumG)); arityF1287 = T32; check_type(LITREF(lit_34),VARREF(YLsymG)); stateF1288 = LITREF(lit_34); check_type(YPint((P)0),VARREF(YLfixnumG)); idxF1289 = YPint((P)0); LOOP_31: { P a31_0,a31_1; xF1290 = idxF1289; yF1291 = arityF1287; T2 = (P)YPiE(xF1290,yF1291); T1 = (P)YPbb(T2); if (T2) { T0 = stateF1288; } else { T31 = CALL2(1,VARREF(YgooSfunYfun_spec),m1_,idxF1289); m1specF1292 = T31; T30 = CALL2(1,VARREF(YgooSfunYfun_spec),m2_,idxF1289); m2specF1293 = T30; xF1294 = args_; iF1295 = idxF1289; xF1296 = xF1294; T27 = (P)YPprop_elt(xF1296,(P)0); xF1297 = iF1295; xF1298 = xF1297; T29 = (P)YPiGG(xF1298,(P)2); T28 = (P)YPi_((P)0,T29); T26 = (P)YPloc_off(T27,T28); T25 = CALL3(1,VARREF(YgooSfunYOorder_specs),m1specF1292,m2specF1293,T26); check_type(T25,VARREF(YLtupG)); cmpAtypF1299 = T25; xF1300 = cmpAtypF1299; iF1301 = YPint((P)0); xF1302 = iF1301; xF1303 = xF1302; T24 = (P)YPiGG(xF1303,(P)2); T23 = (P)YPtelt(xF1300,T24); check_type(T23,VARREF(YLsymG)); cmpF1304 = T23; xF1305 = idxF1289; yF1306 = YPint((P)1); xF1307 = xF1305; xF1308 = xF1307; T21 = (P)YPiGG(xF1308,(P)2); xF1309 = yF1306; xF1310 = xF1309; T22 = (P)YPiGG(xF1310,(P)2); T20 = (P)YPiA(T21,T22); xF1311 = T20; xF1312 = xF1311; tF1313 = (P)1; T19 = (P)YPiLL(xF1312,(P)2); T18 = (P)YPiv(T19,tF1313); check_type(T18,VARREF(YLfixnumG)); idxF1314 = T18; xF1315 = cmpF1304; yF1316 = LITREF(lit_34); T5 = (P)YPeqQ(xF1315,yF1316); T4 = (P)YPbb(T5); if (T5) { a31_0 = stateF1288; a31_1 = idxF1314; stateF1288 = a31_0; idxF1289 = a31_1; goto LOOP_31; T3 = T6; } else { xF1317 = cmpF1304; yF1318 = LITREF(lit_41); T11 = (P)YPeqQ(xF1317,yF1318); T10 = (P)YPbb(T11); T9 = CALL1(1,VARREF(Ynot),T10); if (T9 != YPfalse) { xF1319 = stateF1288; yF1320 = LITREF(lit_34); T16 = (P)YPeqQ(xF1319,yF1320); T15 = (P)YPbb(T16); tmpF1321 = T15; if (tmpF1321 != YPfalse) { T12 = tmpF1321; } else { xF1322 = cmpF1304; yF1323 = stateF1288; T14 = (P)YPeqQ(xF1322,yF1323); T13 = (P)YPbb(T14); T12 = T13; } T8 = T12; } else { T8 = YPfalse; } if (T8 != YPfalse) { a31_0 = cmpF1304; a31_1 = idxF1314; stateF1288 = a31_0; idxF1289 = a31_1; goto LOOP_31; T7 = T17; } else { T7 = LITREF(lit_41); } T3 = T7; } T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_make_ambiguous_20) { P headed_list_; P xF1336; P xF1335; P xF1334; P xF1333; P t1F1332; P xF1331; P xF1330; P tmpF1329; P yF1328; P xF1327; P lF1326; P xF1325; P xF1324; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(headed_list_, 0); xF1324 = headed_list_; xF1325 = xF1324; T6 = (P)YPprop_elt(xF1325,(P)1); check_type(T6,VARREF(YLlstG)); lF1326 = T6; LOOP_32: { P a32_0; xF1327 = lF1326; yF1328 = Ynil; T5 = (P)YPeqQ(xF1327,yF1328); T4 = (P)YPbb(T5); tmpF1329 = T4; if (tmpF1329 != YPfalse) { T0 = tmpF1329; } else { xF1330 = lF1326; xF1331 = xF1330; T3 = (P)YPprop_elt(xF1331,(P)1); t1F1332 = T3; xF1333 = FREEREF(0); xF1334 = xF1333; T1 = (P)YPprop_elt(xF1334,(P)1); (P)YOtail_setter(T1,lF1326); (P)YOtail_setter(lF1326,FREEREF(0)); a32_0 = t1F1332; lF1326 = a32_0; goto LOOP_32; T0 = T2; } } (P)YOtail_setter(Ynil,headed_list_); xF1335 = FREEREF(0); xF1336 = xF1335; T9 = (P)YPprop_elt(xF1336,(P)1); T8 = (P)YOpair(FREEREF(1),T9); T7 = (P)YOtail_setter(T8,FREEREF(0)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_precedes_allQ_21) { P l_; P xF1345; P xF1344; P yF1343; P xF1342; P xF1341; P xF1340; P yF1339; P xF1338; P lF1337; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(l_, 0); check_type(l_,VARREF(YLlstG)); lF1337 = l_; LOOP_33: { P a33_0; xF1338 = lF1337; yF1339 = Ynil; T2 = (P)YPeqQ(xF1338,yF1339); T1 = (P)YPbb(T2); if (T2) { T0 = YPtrue; } else { xF1340 = lF1337; xF1341 = xF1340; T7 = (P)YPprop_elt(xF1341,(P)0); T6 = CALL3(1,FREEREF(2),FREEREF(0),T7,FREEREF(1)); xF1342 = T6; yF1343 = LITREF(lit_35); T5 = (P)YPeqQ(xF1342,yF1343); T4 = (P)YPbb(T5); if (T5) { xF1344 = lF1337; xF1345 = xF1344; T9 = (P)YPprop_elt(xF1345,(P)1); a33_0 = T9; lF1337 = a33_0; goto LOOP_33; T3 = T8; } else { T3 = YPfalse; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_check_subsequent_ambiguities_22) { P oprev_; P xF1352; P xF1351; P xF1350; P xF1349; P tmpF1348; P xF1347; P xF1346; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(oprev_, 0); xF1346 = oprev_; xF1347 = xF1346; T7 = (P)YPprop_elt(xF1347,(P)1); T6 = CALL1(1,FREEREF(0),T7); T5 = CALL1(1,VARREF(Ynot),T6); tmpF1348 = T5; if (tmpF1348 != YPfalse) { T1 = tmpF1348; } else { xF1349 = FREEREF(1); xF1350 = xF1349; T4 = (P)YPprop_elt(xF1350,(P)1); T3 = CALL1(1,FREEREF(0),T4); T2 = CALL1(1,VARREF(Ynot),T3); T1 = T2; } if (T1 != YPfalse) { T8 = CALL1(1,FREEREF(2),oprev_); T0 = T8; } else { xF1351 = oprev_; xF1352 = xF1351; T11 = (P)YPprop_elt(xF1352,(P)1); T10 = (P)YOpair(FREEREF(3),T11); T9 = (P)YOtail_setter(T10,oprev_); T0 = T9; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_insert_23) { P oprev_,osub_; P xF1374; P xF1373; P yF1372; P xF1371; P yF1370; P xF1369; P indicF1368; P xF1367; P xF1366; P xF1365; P xF1364; P xF1363; P xF1362; P yF1361; P xF1360; P yF1359; P xF1358; P indicF1357; P xF1356; P xF1355; P xF1354; P xF1353; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(oprev_, 0); ARG(osub_, 1); LOOP_34: { P a34_0,a34_1; xF1364 = osub_; xF1365 = xF1364; T2 = (P)YPeqQ(xF1365,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL1(1,FREEREF(0),oprev_); T0 = T3; } else { xF1366 = osub_; xF1367 = xF1366; T15 = (P)YPprop_elt(xF1367,(P)0); T14 = CALL3(1,FREEREF(3),FREEREF(1),T15,FREEREF(2)); indicF1368 = T14; xF1369 = indicF1368; yF1370 = LITREF(lit_35); T6 = (P)YPeqQ(xF1369,yF1370); T5 = (P)YPbb(T6); if (T6) { T7 = CALL1(1,FREEREF(0),oprev_); T4 = T7; } else { xF1371 = indicF1368; yF1372 = LITREF(lit_36); T10 = (P)YPeqQ(xF1371,yF1372); T9 = (P)YPbb(T10); if (T10) { xF1373 = osub_; xF1374 = xF1373; T12 = (P)YPprop_elt(xF1374,(P)1); a34_0 = osub_; a34_1 = T12; oprev_ = a34_0; osub_ = a34_1; goto LOOP_34; T8 = T11; } else { T13 = CALL1(1,FREEREF(4),oprev_); T8 = T13; } T4 = T8; } T0 = T4; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYord_app_mets_1) { P mets_,args_,order_mets_; P xF1395; P xF1394; P xF1393; P xF1392; P xF1391; P xF1390; P xF1389; P xF1388; P insertF1387; P check_subsequent_ambiguitiesF1386; P precedes_allQF1385; P make_ambiguousF1384; P metF1383; P xF1382; P xF1381; P xF1380; P yF1379; P xF1378; P metsF1377; P aheadF1376; P oheadF1375; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(mets_, 0); ARG(args_, 1); ARG(order_mets_, 2); T17 = (P)YOpair(YPfalse,Ynil); check_type(T17,VARREF(YLlstG)); oheadF1375 = T17; T16 = (P)YOpair(YPfalse,Ynil); check_type(T16,VARREF(YLlstG)); aheadF1376 = T16; check_type(mets_,VARREF(YLlstG)); metsF1377 = mets_; LOOP_35: { P a35_0; xF1378 = metsF1377; yF1379 = Ynil; T4 = (P)YPeqQ(xF1378,yF1379); T3 = (P)YPbb(T4); xF1380 = T3; T2 = (P)YPeqQ(xF1380,YPfalse); T1 = (P)YPbb(T2); if (T2) { xF1381 = metsF1377; xF1382 = xF1381; T12 = (P)YPprop_elt(xF1382,(P)0); check_type(T12,VARREF(YLmetG)); metF1383 = T12; T8 = FUNSHELL(1,fun_make_ambiguous_20,2); make_ambiguousF1384 = T8; T9 = FUNSHELL(1,fun_precedes_allQ_21,3); precedes_allQF1385 = T9; T10 = FUNSHELL(1,fun_check_subsequent_ambiguities_22,4); check_subsequent_ambiguitiesF1386 = T10; T11 = FUNSHELL(1,fun_insert_23,5); insertF1387 = T11; FUNINIT(make_ambiguousF1384, 2,aheadF1376,metF1383); FUNINIT(precedes_allQF1385, 3,metF1383,args_,order_mets_); FUNINIT(check_subsequent_ambiguitiesF1386, 4,precedes_allQF1385,aheadF1376,make_ambiguousF1384,metF1383); FUNINIT(insertF1387, 5,check_subsequent_ambiguitiesF1386,metF1383,args_,order_mets_,make_ambiguousF1384); xF1388 = oheadF1375; xF1389 = xF1388; T5 = (P)YPprop_elt(xF1389,(P)1); CALL2(1,insertF1387,oheadF1375,T5); xF1390 = metsF1377; xF1391 = xF1390; T7 = (P)YPprop_elt(xF1391,(P)1); a35_0 = T7; metsF1377 = a35_0; goto LOOP_35; T0 = T6; } else { T0 = YPfalse; } } xF1392 = oheadF1375; xF1393 = xF1392; T14 = (P)YPprop_elt(xF1393,(P)1); xF1394 = aheadF1376; xF1395 = xF1394; T15 = (P)YPprop_elt(xF1395,(P)1); T13 = CALL2(1,VARREF(YOtup),T14,T15); UNLINK_STACK(); RET(T13); } LOCCODEDEF(fun_25) { P x_,y_; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YgooSfunYmet_appQ) { P met_,args_; P tF1435; P xF1434; P xF1433; P xF1432; P xF1431; P xF1430; P xF1429; P yF1428; P xF1427; P xF1426; P xF1425; P xF1424; P xF1423; P xF1422; P xF1421; P c2F1420; P c1F1419; P tagF1418; P xF1417; P xF1416; P cF1415; P oF1414; P yF1413; P xF1412; P tagF1411; P xF1410; P xF1409; P tF1408; P oF1407; P xF1406; P xF1405; P xF1404; P iF1403; P xF1402; P yF1401; P xF1400; P iF1399; P nF1398; P xF1397; P xF1396; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44; LINK_STACK(); ARG(met_, 0); ARG(args_, 1); T4 = CALL1(1,VARREF(YgooSfunYOfun_unification_vars),met_); xF1396 = T4; xF1397 = xF1396; T3 = (P)YPeqQ(xF1397,VARREF(Ynil)); T2 = (P)YPbb(T3); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL2(1,VARREF(YgooSfunYmet_app_unify),met_,args_); T0 = T5; } else { T44 = CALL1(1,VARREF(YgooSfunYOfun_arity),met_); check_type(T44,VARREF(YLfixnumG)); nF1398 = T44; check_type(YPint((P)0),VARREF(YLfixnumG)); iF1399 = YPint((P)0); LOOP_36: { P a36_0; xF1400 = iF1399; yF1401 = nF1398; T8 = (P)YPiE(xF1400,yF1401); T7 = (P)YPbb(T8); if (T8) { T6 = YPtrue; } else { xF1402 = args_; iF1403 = iF1399; xF1404 = xF1402; T34 = (P)YPprop_elt(xF1404,(P)0); xF1405 = iF1403; xF1406 = xF1405; T36 = (P)YPiGG(xF1406,(P)2); T35 = (P)YPi_((P)0,T36); T33 = (P)YPloc_off(T34,T35); oF1407 = T33; T37 = CALL2(1,VARREF(YgooSfunYfun_spec),met_,iF1399); tF1408 = T37; xF1409 = tF1408; xF1410 = xF1409; T18 = (P)YPiB(xF1410,(P)3); tagF1411 = T18; T15 = (P)YPiE(tagF1411,(P)0); T14 = (P)YPbb(T15); if (T15) { T16 = (P)YPobject_class(xF1409); T13 = T16; } else { T17 = (P)YPelt(VARREF(YDdirect_object_class),tagF1411); T13 = T17; } xF1412 = T13; yF1413 = VARREF(YLclassG); T12 = (P)YPeqQ(xF1412,yF1413); T11 = (P)YPbb(T12); if (T12) { oF1414 = oF1407; cF1415 = tF1408; xF1416 = oF1414; xF1417 = xF1416; T31 = (P)YPiB(xF1417,(P)3); tagF1418 = T31; T28 = (P)YPiE(tagF1418,(P)0); T27 = (P)YPbb(T28); if (T28) { T29 = (P)YPobject_class(xF1416); T26 = T29; } else { T30 = (P)YPelt(VARREF(YDdirect_object_class),tagF1418); T26 = T30; } c1F1419 = T26; c2F1420 = cF1415; xF1421 = c1F1419; T22 = (P)YPprop_elt(xF1421,(P)11); xF1422 = c2F1420; T24 = (P)YPprop_elt(xF1422,(P)10); xF1423 = T24; xF1424 = xF1423; T23 = (P)YPiGG(xF1424,(P)2); T21 = (P)YPselt(T22,T23); xF1425 = YPint((P)1); xF1426 = xF1425; T25 = (P)YPiGG(xF1426,(P)2); T20 = (P)YPiE(T21,T25); T19 = (P)YPbb(T20); T10 = T19; } else { T32 = CALL2(1,VARREF(YisaQ),oF1407,tF1408); T10 = T32; } if (T10 != YPfalse) { xF1427 = iF1399; yF1428 = YPint((P)1); xF1429 = xF1427; xF1430 = xF1429; T42 = (P)YPiGG(xF1430,(P)2); xF1431 = yF1428; xF1432 = xF1431; T43 = (P)YPiGG(xF1432,(P)2); T41 = (P)YPiA(T42,T43); xF1433 = T41; xF1434 = xF1433; tF1435 = (P)1; T40 = (P)YPiLL(xF1434,(P)2); T39 = (P)YPiv(T40,tF1435); a36_0 = T39; iF1399 = a36_0; goto LOOP_36; T9 = T38; } else { T9 = YPfalse; } T6 = T9; } } T0 = T6; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYord_app_metsT) { P gf_,args_; P considered_metsF1446; P xF1445; P xF1444; P ansF1443; P mF1442; P xF1441; P xF1440; P xF1439; P xF1438; P msF1437; P ansF1436; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(gf_, 0); ARG(args_, 1); ansF1436 = Ynil; T10 = CALL1(1,VARREF(YgooSfunYOfun_mets),gf_); msF1437 = T10; LOOP_37: { P a37_0,a37_1; xF1438 = msF1437; xF1439 = xF1438; T3 = (P)YPeqQ(xF1439,VARREF(Ynil)); T2 = (P)YPbb(T3); if (T3) { T1 = ansF1436; } else { xF1440 = msF1437; xF1441 = xF1440; T9 = (P)YPprop_elt(xF1441,(P)0); mF1442 = T9; T7 = CALL2(1,VARREF(YgooSfunYmet_appQ),mF1442,args_); if (T7 != YPfalse) { T8 = (P)YOpair(mF1442,ansF1436); T6 = T8; } else { T6 = ansF1436; } ansF1443 = T6; xF1444 = msF1437; xF1445 = xF1444; T5 = (P)YPprop_elt(xF1445,(P)1); a37_0 = ansF1443; a37_1 = T5; ansF1436 = a37_0; msF1437 = a37_1; goto LOOP_37; T1 = T4; } } considered_metsF1446 = T1; T0 = CALL3(1,VARREF(YgooSfunYord_app_mets_1),considered_metsF1446,args_,VARREF(YgooSfunYorder_mets)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYord_app_mets) { P gf_,args_; P T0; LINK_STACK(); ARG(gf_, 0); NARGS(args_, 1); T0 = CALL2(1,VARREF(YgooSfunYord_app_metsT),gf_,args_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOgen_cache_arg_pos) { P x_; P xF1447; P T0; LINK_STACK(); ARG(x_, 0); xF1447 = x_; T0 = (P)YPprop_elt(xF1447,(P)1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOgen_cache_arg_pos_setter) { P z_,x_; P T0; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T0 = (P)YPgen_cache_arg_pos_setter(z_,x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOgen_cache_singletons) { P x_; P xF1448; P T0; LINK_STACK(); ARG(x_, 0); xF1448 = x_; T0 = (P)YPprop_elt(xF1448,(P)2); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOgen_cache_singletons_setter) { P z_,x_; P T0; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T0 = (P)YPgen_cache_singletons_setter(z_,x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOgen_cache_classes) { P x_; P xF1449; P T0; LINK_STACK(); ARG(x_, 0); xF1449 = x_; T0 = (P)YPprop_elt(xF1449,(P)3); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOgen_cache_classes_setter) { P z_,x_; P T0; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T0 = (P)YPgen_cache_classes_setter(z_,x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYmethod_accessor_offset) { P gen_,met_,args_; P xF1473; P xF1472; P xF1471; P xF1470; P iF1469; P xF1468; P xF1467; P xF1466; P xF1465; P iF1464; P xF1463; P yF1462; P xF1461; P nF1460; P xF1459; P xF1458; P propQF1457; P yF1456; P xF1455; P tagF1454; P xF1453; P xF1452; P propF1451; P xF1450; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(gen_, 0); ARG(met_, 1); ARG(args_, 2); xF1450 = met_; T25 = (P)YPprop_elt(xF1450,(P)3); propF1451 = T25; if (propF1451 != YPfalse) { xF1452 = propF1451; xF1453 = xF1452; T24 = (P)YPiB(xF1453,(P)3); tagF1454 = T24; T21 = (P)YPiE(tagF1454,(P)0); T20 = (P)YPbb(T21); if (T21) { T22 = (P)YPobject_class(xF1452); T19 = T22; } else { T23 = (P)YPelt(VARREF(YDdirect_object_class),tagF1454); T19 = T23; } xF1455 = T19; yF1456 = VARREF(YLpropG); T18 = (P)YPeqQ(xF1455,yF1456); T17 = (P)YPbb(T18); T16 = T17; } else { T16 = YPfalse; } propQF1457 = T16; xF1458 = args_; xF1459 = xF1458; T15 = (P)YPprop_elt(xF1459,(P)1); nF1460 = T15; if (propQF1457 != YPfalse) { xF1461 = nF1460; yF1462 = YPint((P)1); T3 = (P)YPiE(xF1461,yF1462); T2 = (P)YPbb(T3); if (T3) { xF1463 = args_; iF1464 = YPint((P)0); xF1465 = xF1463; T6 = (P)YPprop_elt(xF1465,(P)0); xF1466 = iF1464; xF1467 = xF1466; T8 = (P)YPiGG(xF1467,(P)2); T7 = (P)YPi_((P)0,T8); T5 = (P)YPloc_off(T6,T7); T4 = CALL2(1,VARREF(Yprop_offset),T5,gen_); T1 = T4; } else { xF1468 = args_; iF1469 = YPint((P)1); xF1470 = xF1468; T11 = (P)YPprop_elt(xF1470,(P)0); xF1471 = iF1469; xF1472 = xF1471; T13 = (P)YPiGG(xF1472,(P)2); T12 = (P)YPi_((P)0,T13); T10 = (P)YPloc_off(T11,T12); xF1473 = propF1451; T14 = (P)YPprop_elt(xF1473,(P)1); T9 = CALL2(1,VARREF(Yprop_offset),T10,T14); T1 = T9; } T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOsingleton_specQ) { P x_; P xF1486; P xF1485; P xF1484; P xF1483; P xF1482; P xF1481; P c2F1480; P c1F1479; P tagF1478; P xF1477; P xF1476; P cF1475; P oF1474; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(x_, 0); oF1474 = x_; cF1475 = VARREF(YLsingletonG); xF1476 = oF1474; xF1477 = xF1476; T12 = (P)YPiB(xF1477,(P)3); tagF1478 = T12; T9 = (P)YPiE(tagF1478,(P)0); T8 = (P)YPbb(T9); if (T9) { T10 = (P)YPobject_class(xF1476); T7 = T10; } else { T11 = (P)YPelt(VARREF(YDdirect_object_class),tagF1478); T7 = T11; } c1F1479 = T7; c2F1480 = cF1475; xF1481 = c1F1479; T3 = (P)YPprop_elt(xF1481,(P)11); xF1482 = c2F1480; T5 = (P)YPprop_elt(xF1482,(P)10); xF1483 = T5; xF1484 = xF1483; T4 = (P)YPiGG(xF1484,(P)2); T2 = (P)YPselt(T3,T4); xF1485 = YPint((P)1); xF1486 = xF1485; T6 = (P)YPiGG(xF1486,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOsubclass_specQ) { P x_; P xF1499; P xF1498; P xF1497; P xF1496; P xF1495; P xF1494; P c2F1493; P c1F1492; P tagF1491; P xF1490; P xF1489; P cF1488; P oF1487; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(x_, 0); oF1487 = x_; cF1488 = VARREF(YLsubclassG); xF1489 = oF1487; xF1490 = xF1489; T12 = (P)YPiB(xF1490,(P)3); tagF1491 = T12; T9 = (P)YPiE(tagF1491,(P)0); T8 = (P)YPbb(T9); if (T9) { T10 = (P)YPobject_class(xF1489); T7 = T10; } else { T11 = (P)YPelt(VARREF(YDdirect_object_class),tagF1491); T7 = T11; } c1F1492 = T7; c2F1493 = cF1488; xF1494 = c1F1492; T3 = (P)YPprop_elt(xF1494,(P)11); xF1495 = c2F1493; T5 = (P)YPprop_elt(xF1495,(P)10); xF1496 = T5; xF1497 = xF1496; T4 = (P)YPiGG(xF1497,(P)2); T2 = (P)YPselt(T3,T4); xF1498 = YPint((P)1); xF1499 = xF1498; T6 = (P)YPiGG(xF1499,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOunion_specQ) { P x_; P xF1512; P xF1511; P xF1510; P xF1509; P xF1508; P xF1507; P c2F1506; P c1F1505; P tagF1504; P xF1503; P xF1502; P cF1501; P oF1500; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(x_, 0); oF1500 = x_; cF1501 = VARREF(YLunionG); xF1502 = oF1500; xF1503 = xF1502; T12 = (P)YPiB(xF1503,(P)3); tagF1504 = T12; T9 = (P)YPiE(tagF1504,(P)0); T8 = (P)YPbb(T9); if (T9) { T10 = (P)YPobject_class(xF1502); T7 = T10; } else { T11 = (P)YPelt(VARREF(YDdirect_object_class),tagF1504); T7 = T11; } c1F1505 = T7; c2F1506 = cF1501; xF1507 = c1F1505; T3 = (P)YPprop_elt(xF1507,(P)11); xF1508 = c2F1506; T5 = (P)YPprop_elt(xF1508,(P)10); xF1509 = T5; xF1510 = xF1509; T4 = (P)YPiGG(xF1510,(P)2); T2 = (P)YPselt(T3,T4); xF1511 = YPint((P)1); xF1512 = xF1511; T6 = (P)YPiGG(xF1512,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOprecise_specQ) { P x_; P xF1515; P tmpF1514; P tmpF1513; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); T7 = CALL1(1,VARREF(YgooSfunYOsingleton_specQ),x_); tmpF1513 = T7; if (tmpF1513 != YPfalse) { T0 = tmpF1513; } else { T6 = CALL1(1,VARREF(YgooSfunYOsubclass_specQ),x_); tmpF1514 = T6; if (tmpF1514 != YPfalse) { T1 = tmpF1514; } else { T3 = CALL1(1,VARREF(YgooSfunYOunion_specQ),x_); if (T3 != YPfalse) { xF1515 = x_; T5 = (P)YPprop_elt(xF1515,(P)0); T4 = CALL2(1,VARREF(YOanyQ),VARREF(YgooSfunYOprecise_specQ),T5); T2 = T4; } else { T2 = YPfalse; } T1 = T2; } T0 = T1; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_40) { P met_; P yF1517; P xF1516; P T0,T1,T2; LINK_STACK(); ARG(met_, 0); T2 = CALL2(1,VARREF(YgooSfunYfun_spec),met_,FREEREF(0)); xF1516 = T2; yF1517 = VARREF(YLanyG); T1 = (P)YPiE(xF1516,yF1517); T0 = (P)YPbb(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOmets_unspecialized_atQ) { P mets_,pos_; P T0,T1; LINK_STACK(); ARG(mets_, 0); ARG(pos_, 1); T1 = FUNFAB(fun_40,1,pos_); T0 = CALL2(1,VARREF(YOallQ),T1,mets_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_42) { P met_; P T0,T1; LINK_STACK(); ARG(met_, 0); T1 = CALL2(1,VARREF(YgooSfunYfun_spec),met_,FREEREF(1)); T0 = CALL2(1,VARREF(YOsubtypeQ),FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOprune_mets_by_type_at) { P mets_,type_,pos_; P T0,T1; LINK_STACK(); ARG(mets_, 0); ARG(type_, 1); ARG(pos_, 2); T1 = FUNFAB(fun_42,2,type_,pos_); T0 = CALL2(1,VARREF(YOpick),T1,mets_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_44) { P met_; P T0; LINK_STACK(); ARG(met_, 0); T0 = CALL2(1,VARREF(YgooSfunYfun_spec),met_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOmets_specs_at) { P mets_,pos_; P T0,T1; LINK_STACK(); ARG(mets_, 0); ARG(pos_, 1); T1 = FUNFAB(fun_44,1,pos_); T0 = CALL2(1,VARREF(YOmap),T1,mets_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_46) { P spec_; P T0; LINK_STACK(); ARG(spec_, 0); T0 = CALL1(1,VARREF(YgooSfunYOsingleton_specQ),spec_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOmets_singletons_at) { P mets_,pos_; P T0,T1,T2; LINK_STACK(); ARG(mets_, 0); ARG(pos_, 1); T1 = fun_46; T2 = CALL2(1,VARREF(YgooSfunYOmets_specs_at),mets_,pos_); T0 = CALL2(1,VARREF(YOpick),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_48) { P spec_; P T0; LINK_STACK(); ARG(spec_, 0); T0 = CALL1(1,VARREF(YgooSfunYOsubclass_specQ),spec_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYOmets_subclasses_at) { P mets_,pos_; P T0,T1,T2; LINK_STACK(); ARG(mets_, 0); ARG(pos_, 1); T1 = fun_48; T2 = CALL2(1,VARREF(YgooSfunYOmets_specs_at),mets_,pos_); T0 = CALL2(1,VARREF(YOpick),T1,T2); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYOcache_add) { P t_,k_,v_; P xF1594; P xF1593; P iF1592; P xF1591; P zF1590; P tF1589; P xF1588; P xF1587; P xF1586; P xF1585; P xF1584; P xF1583; P yF1582; P xF1581; P xF1580; P xF1579; P iF1578; P xF1577; P zF1576; P tF1575; P xF1574; P xF1573; P xF1572; P xF1571; P xF1570; P xF1569; P yF1568; P xF1567; P xF1566; P xF1565; P iF1564; P xF1563; P zF1562; P xF1561; P xF1560; P iF1559; P xF1558; P iF1557; P tF1556; P xF1555; P xF1554; P xF1553; P xF1552; P xF1551; P xF1550; P yF1549; P xF1548; P xF1547; P xF1546; P iF1545; P xF1544; P zF1543; P xF1542; P xF1541; P iF1540; P xF1539; P xF1538; P yF1537; P xF1536; P iF1535; P resF1534; P xF1533; P xF1532; P tF1531; P xF1530; P xF1529; P xF1528; P xF1527; P xF1526; P xF1525; P yF1524; P xF1523; P olenF1522; P tF1521; P xF1520; P xF1519; P xF1518; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42; LINK_STACK(); ARG(t_, 0); ARG(k_, 1); ARG(v_, 2); xF1518 = t_; T42 = (P)YPtlen(xF1518); xF1519 = T42; xF1520 = xF1519; tF1521 = (P)1; T41 = (P)YPiLL(xF1520,(P)2); T40 = (P)YPiv(T41,tF1521); olenF1522 = T40; xF1523 = olenF1522; yF1524 = YPint((P)2); xF1525 = xF1523; xF1526 = xF1525; T38 = (P)YPiGG(xF1526,(P)2); xF1527 = yF1524; xF1528 = xF1527; T39 = (P)YPiGG(xF1528,(P)2); T37 = (P)YPiA(T38,T39); xF1529 = T37; xF1530 = xF1529; tF1531 = (P)1; T36 = (P)YPiLL(xF1530,(P)2); T35 = (P)YPiv(T36,tF1531); xF1532 = T35; xF1533 = xF1532; T34 = (P)YPiGG(xF1533,(P)2); T33 = (P)YPtup(T34,YPfalse); resF1534 = T33; iF1535 = YPint((P)0); LOOP_38: { P a38_0; xF1536 = iF1535; yF1537 = olenF1522; T4 = (P)YPiE(xF1536,yF1537); T3 = (P)YPbb(T4); xF1538 = T3; T2 = (P)YPeqQ(xF1538,YPfalse); T1 = (P)YPbb(T2); if (T2) { xF1539 = t_; iF1540 = iF1535; xF1541 = iF1540; xF1542 = xF1541; T8 = (P)YPiGG(xF1542,(P)2); T7 = (P)YPtelt(xF1539,T8); zF1543 = T7; xF1544 = resF1534; iF1545 = iF1535; xF1546 = iF1545; xF1547 = xF1546; T6 = (P)YPiGG(xF1547,(P)2); T5 = (P)YPtelt_setter(zF1543,xF1544,T6); xF1548 = iF1535; yF1549 = YPint((P)1); xF1550 = xF1548; xF1551 = xF1550; T22 = (P)YPiGG(xF1551,(P)2); xF1552 = yF1549; xF1553 = xF1552; T23 = (P)YPiGG(xF1553,(P)2); T21 = (P)YPiA(T22,T23); xF1554 = T21; xF1555 = xF1554; tF1556 = (P)1; T20 = (P)YPiLL(xF1555,(P)2); T19 = (P)YPiv(T20,tF1556); iF1557 = T19; xF1558 = t_; iF1559 = iF1557; xF1560 = iF1559; xF1561 = xF1560; T12 = (P)YPiGG(xF1561,(P)2); T11 = (P)YPtelt(xF1558,T12); zF1562 = T11; xF1563 = resF1534; iF1564 = iF1557; xF1565 = iF1564; xF1566 = xF1565; T10 = (P)YPiGG(xF1566,(P)2); T9 = (P)YPtelt_setter(zF1562,xF1563,T10); xF1567 = iF1557; yF1568 = YPint((P)1); xF1569 = xF1567; xF1570 = xF1569; T17 = (P)YPiGG(xF1570,(P)2); xF1571 = yF1568; xF1572 = xF1571; T18 = (P)YPiGG(xF1572,(P)2); T16 = (P)YPiA(T17,T18); xF1573 = T16; xF1574 = xF1573; tF1575 = (P)1; T15 = (P)YPiLL(xF1574,(P)2); T14 = (P)YPiv(T15,tF1575); a38_0 = T14; iF1535 = a38_0; goto LOOP_38; T0 = T13; } else { T0 = YPfalse; } } zF1576 = k_; xF1577 = resF1534; iF1578 = olenF1522; xF1579 = iF1578; xF1580 = xF1579; T25 = (P)YPiGG(xF1580,(P)2); T24 = (P)YPtelt_setter(zF1576,xF1577,T25); zF1590 = v_; xF1591 = resF1534; xF1581 = olenF1522; yF1582 = YPint((P)1); xF1583 = xF1581; xF1584 = xF1583; T31 = (P)YPiGG(xF1584,(P)2); xF1585 = yF1582; xF1586 = xF1585; T32 = (P)YPiGG(xF1586,(P)2); T30 = (P)YPiA(T31,T32); xF1587 = T30; xF1588 = xF1587; tF1589 = (P)1; T29 = (P)YPiLL(xF1588,(P)2); T28 = (P)YPiv(T29,tF1589); iF1592 = T28; xF1593 = iF1592; xF1594 = xF1593; T27 = (P)YPiGG(xF1594,(P)2); T26 = (P)YPtelt_setter(zF1590,xF1591,T27); UNLINK_STACK(); QRET(resF1534); } FUNCODEDEF(YgooSfunYgen_lookup_miss_1_using) { P key_,instance_,all_assocs_,all_assocs_setter_,gen_,cache_,mets_,sorted_mets_,i_,args_; P tF1658; P xF1657; P xF1656; P xF1655; P xF1654; P xF1653; P xF1652; P yF1651; P xF1650; P tF1649; P xF1648; P xF1647; P xF1646; P xF1645; P xF1644; P xF1643; P yF1642; P xF1641; P vF1640; P xF1639; P xF1638; P iF1637; P xF1636; P tF1635; P xF1634; P xF1633; P xF1632; P xF1631; P xF1630; P xF1629; P yF1628; P xF1627; P yF1626; P xF1625; P xF1624; P xF1623; P iF1622; P xF1621; P valF1620; P tF1619; P xF1618; P xF1617; P xF1616; P xF1615; P xF1614; P xF1613; P yF1612; P xF1611; P tagF1610; P xF1609; P xF1608; P xF1607; P yF1606; P xF1605; P yF1604; P xF1603; P tF1602; P xF1601; P xF1600; P xF1599; P jF1598; P assocsF1597; P cacheF1596; P tmpF1595; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57; LINK_STACK(); ARG(key_, 0); ARG(instance_, 1); ARG(all_assocs_, 2); ARG(all_assocs_setter_, 3); ARG(gen_, 4); ARG(cache_, 5); ARG(mets_, 6); ARG(sorted_mets_, 7); ARG(i_, 8); ARG(args_, 9); tmpF1595 = cache_; if (tmpF1595 != YPfalse) { T56 = tmpF1595; } else { T57 = (P)YPgen_cache(YPtrue,i_,VARREF(YgooSfunYDnul_assocs),VARREF(YgooSfunYDnul_assocs),(P)0); T56 = T57; } cacheF1596 = T56; T55 = CALL1(1,all_assocs_,cacheF1596); assocsF1597 = T55; jF1598 = YPint((P)0); LOOP_39: { P a39_0; xF1603 = jF1598; xF1599 = assocsF1597; T6 = (P)YPtlen(xF1599); xF1600 = T6; xF1601 = xF1600; tF1602 = (P)1; T5 = (P)YPiLL(xF1601,(P)2); T4 = (P)YPiv(T5,tF1602); yF1604 = T4; T3 = (P)YPiE(xF1603,yF1604); T2 = (P)YPbb(T3); if (T3) { xF1605 = all_assocs_; yF1606 = VARREF(YgooSfunYOgen_cache_classes); T10 = (P)YPeqQ(xF1605,yF1606); T9 = (P)YPbb(T10); if (T10) { T12 = key_; xF1607 = T12; T11 = (P)YPprop_elt(xF1607,(P)9); T8 = T11; } else { T8 = YPfalse; } if (T8 != YPfalse) { CALL1(1,VARREF(Yupdate_instance_for_changed_class),instance_); xF1608 = instance_; xF1609 = xF1608; T18 = (P)YPiB(xF1609,(P)3); tagF1610 = T18; T15 = (P)YPiE(tagF1610,(P)0); T14 = (P)YPbb(T15); if (T15) { T16 = (P)YPobject_class(xF1608); T13 = T16; } else { T17 = (P)YPelt(VARREF(YDdirect_object_class),tagF1610); T13 = T17; } key_ = T13; T20 = CALL1(0,all_assocs_,cacheF1596); a39_0 = T20; jF1598 = a39_0; goto LOOP_39; T7 = T19; } else { xF1611 = i_; yF1612 = YPint((P)1); xF1613 = xF1611; xF1614 = xF1613; T28 = (P)YPiGG(xF1614,(P)2); xF1615 = yF1612; xF1616 = xF1615; T29 = (P)YPiGG(xF1616,(P)2); T27 = (P)YPiA(T28,T29); xF1617 = T27; xF1618 = xF1617; tF1619 = (P)1; T26 = (P)YPiLL(xF1618,(P)2); T25 = (P)YPiv(T26,tF1619); T24 = CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1),6,gen_,YPfalse,mets_,sorted_mets_,T25,args_); valF1620 = T24; T23 = key_; T22 = CALL3(1,VARREF(YgooSfunYOcache_add),assocsF1597,T23,valF1620); T21 = CALL2(1,all_assocs_setter_,T22,cacheF1596); T7 = T21; } T1 = T7; } else { xF1621 = assocsF1597; iF1622 = jF1598; xF1623 = iF1622; xF1624 = xF1623; T34 = (P)YPiGG(xF1624,(P)2); T33 = (P)YPtelt(xF1621,T34); xF1625 = T33; T35 = key_; yF1626 = T35; T32 = (P)YPeqQ(xF1625,yF1626); T31 = (P)YPbb(T32); if (T32) { xF1636 = assocsF1597; xF1627 = jF1598; yF1628 = YPint((P)1); xF1629 = xF1627; xF1630 = xF1629; T47 = (P)YPiGG(xF1630,(P)2); xF1631 = yF1628; xF1632 = xF1631; T48 = (P)YPiGG(xF1632,(P)2); T46 = (P)YPiA(T47,T48); xF1633 = T46; xF1634 = xF1633; tF1635 = (P)1; T45 = (P)YPiLL(xF1634,(P)2); T44 = (P)YPiv(T45,tF1635); iF1637 = T44; xF1638 = iF1637; xF1639 = xF1638; T43 = (P)YPiGG(xF1639,(P)2); T42 = (P)YPtelt(xF1636,T43); vF1640 = T42; xF1641 = i_; yF1642 = YPint((P)1); xF1643 = xF1641; xF1644 = xF1643; T40 = (P)YPiGG(xF1644,(P)2); xF1645 = yF1642; xF1646 = xF1645; T41 = (P)YPiGG(xF1646,(P)2); T39 = (P)YPiA(T40,T41); xF1647 = T39; xF1648 = xF1647; tF1649 = (P)1; T38 = (P)YPiLL(xF1648,(P)2); T37 = (P)YPiv(T38,tF1649); T36 = CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1),6,gen_,vF1640,mets_,sorted_mets_,T37,args_); T30 = T36; } else { xF1650 = jF1598; yF1651 = YPint((P)2); xF1652 = xF1650; xF1653 = xF1652; T53 = (P)YPiGG(xF1653,(P)2); xF1654 = yF1651; xF1655 = xF1654; T54 = (P)YPiGG(xF1655,(P)2); T52 = (P)YPiA(T53,T54); xF1656 = T52; xF1657 = xF1656; tF1658 = (P)1; T51 = (P)YPiLL(xF1657,(P)2); T50 = (P)YPiv(T51,tF1658); a39_0 = T50; jF1598 = a39_0; goto LOOP_39; T30 = T49; } T1 = T30; } } UNLINK_STACK(); QRET(cacheF1596); } FUNCODEDEF(YgooSfunYOspecd_args) { P args_,i_,arg_; P tF1695; P xF1694; P xF1693; P xF1692; P xF1691; P xF1690; P xF1689; P yF1688; P xF1687; P xF1686; P xF1685; P xF1684; P iF1683; P xF1682; P zF1681; P xF1680; P xF1679; P xF1678; P iF1677; P xF1676; P yF1675; P xF1674; P yF1673; P xF1672; P xF1671; P xF1670; P kF1669; P rF1668; P tF1667; P xF1666; P xF1665; P xF1664; P vF1663; P xF1662; P xF1661; P xF1660; P xF1659; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30; LINK_STACK(); ARG(args_, 0); ARG(i_, 1); ARG(arg_, 2); xF1659 = args_; xF1660 = xF1659; T30 = (P)YPprop_elt(xF1660,(P)1); xF1661 = T30; xF1662 = xF1661; T29 = (P)YPiGG(xF1662,(P)2); T28 = (P)YPtup(T29,YPfalse); vF1663 = T28; T24 = (P)YPtlen(vF1663); T23 = (P)YPprop_dat_at(vF1663,T24); xF1664 = T23; T22 = (P)YPtag_into(xF1664,(P)3); T27 = (P)YPtlen(vF1663); xF1665 = T27; xF1666 = xF1665; tF1667 = (P)1; T26 = (P)YPiLL(xF1666,(P)2); T25 = (P)YPiv(T26,tF1667); T21 = (P)YPopts_tup(T22,T25,vF1663); rF1668 = T21; kF1669 = YPint((P)0); LOOP_40: { P a40_0; xF1670 = args_; xF1671 = xF1670; T3 = (P)YPprop_elt(xF1671,(P)1); xF1672 = T3; yF1673 = kF1669; T2 = (P)YPeqQ(xF1672,yF1673); T1 = (P)YPbb(T2); if (T2) { T0 = rF1668; } else { xF1674 = kF1669; yF1675 = i_; T10 = (P)YPeqQ(xF1674,yF1675); T9 = (P)YPbb(T10); if (T10) { T8 = arg_; } else { xF1676 = args_; iF1677 = kF1669; xF1678 = xF1676; T12 = (P)YPprop_elt(xF1678,(P)0); xF1679 = iF1677; xF1680 = xF1679; T14 = (P)YPiGG(xF1680,(P)2); T13 = (P)YPi_((P)0,T14); T11 = (P)YPloc_off(T12,T13); T8 = T11; } zF1681 = T8; xF1682 = rF1668; iF1683 = kF1669; xF1684 = xF1682; T5 = (P)YPprop_elt(xF1684,(P)0); xF1685 = iF1683; xF1686 = xF1685; T7 = (P)YPiGG(xF1686,(P)2); T6 = (P)YPi_((P)0,T7); T4 = (P)YPloc_off_setter(zF1681,T5,T6); xF1687 = kF1669; yF1688 = YPint((P)1); xF1689 = xF1687; xF1690 = xF1689; T19 = (P)YPiGG(xF1690,(P)2); xF1691 = yF1688; xF1692 = xF1691; T20 = (P)YPiGG(xF1692,(P)2); T18 = (P)YPiA(T19,T20); xF1693 = T18; xF1694 = xF1693; tF1695 = (P)1; T17 = (P)YPiLL(xF1694,(P)2); T16 = (P)YPiv(T17,tF1695); a40_0 = T16; kF1669 = a40_0; goto LOOP_40; T0 = T15; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYrequires_singleton_prec) { P mets_,pos_; P xF1697; P xF1696; P T0,T1,T2,T3; LINK_STACK(); ARG(mets_, 0); ARG(pos_, 1); T3 = CALL2(1,VARREF(YgooSfunYOmets_subclasses_at),mets_,pos_); xF1696 = T3; xF1697 = xF1696; T2 = (P)YPeqQ(xF1697,VARREF(Ynil)); T1 = (P)YPbb(T2); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYensure_singleton_cache) { P gen_,cache_,mets_,sorted_mets_,i_,args_; P xF1715; P xF1714; P app_metsF1713; P smetsF1712; P argsF1711; P argF1710; P xF1709; P singF1708; P xF1707; P xF1706; P xF1705; P xF1704; P singletonsF1703; P cacheF1702; P xF1701; P xF1700; P singletonsF1699; P tmpF1698; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(gen_, 0); ARG(cache_, 1); ARG(mets_, 2); ARG(sorted_mets_, 3); ARG(i_, 4); ARG(args_, 5); tmpF1698 = cache_; if (tmpF1698 != YPfalse) { T0 = tmpF1698; } else { T2 = CALL2(1,VARREF(YgooSfunYrequires_singleton_prec),mets_,i_); if (T2 != YPfalse) { T3 = (P)YPgen_cache(YPfalse,i_,VARREF(YgooSfunYDnul_assocs),VARREF(YgooSfunYDnul_assocs),(P)0); T1 = T3; } else { T18 = CALL2(1,VARREF(YgooSfunYOmets_singletons_at),mets_,i_); singletonsF1699 = T18; xF1700 = singletonsF1699; xF1701 = xF1700; T6 = (P)YPeqQ(xF1701,VARREF(Ynil)); T5 = (P)YPbb(T6); if (T6) { T4 = YPfalse; } else { T17 = (P)YPgen_cache(YPtrue,i_,VARREF(YgooSfunYDnul_assocs),VARREF(YgooSfunYDnul_assocs),(P)0); cacheF1702 = T17; singletonsF1703 = singletonsF1699; LOOP_41: { P a41_0; xF1704 = singletonsF1703; xF1705 = xF1704; T9 = (P)YPeqQ(xF1705,VARREF(Ynil)); T8 = (P)YPbb(T9); if (T9) { T7 = cacheF1702; } else { xF1706 = singletonsF1703; xF1707 = xF1706; T16 = (P)YPprop_elt(xF1707,(P)0); singF1708 = T16; xF1709 = singF1708; T15 = (P)YPprop_elt(xF1709,(P)0); argF1710 = T15; T14 = CALL3(1,VARREF(YgooSfunYOspecd_args),args_,i_,argF1710); argsF1711 = T14; T13 = CALL2(1,VARREF(YgooSfunYchoose_methods),gen_,argsF1711); smetsF1712 = T13; T12 = CALL3(1,VARREF(YgooSfunYOprune_mets_by_type_at),mets_,singF1708,i_); app_metsF1713 = T12; CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1_using),10,argF1710,argF1710,VARREF(YgooSfunYOgen_cache_singletons),VARREF(YgooSfunYOgen_cache_singletons_setter),gen_,cacheF1702,mets_,smetsF1712,i_,argsF1711); xF1714 = singletonsF1703; xF1715 = xF1714; T11 = (P)YPprop_elt(xF1715,(P)1); a41_0 = T11; singletonsF1703 = a41_0; goto LOOP_41; T7 = T10; } } T4 = T7; } T1 = T4; } T0 = T1; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYgen_lookup_miss_1) { P gen_,ocache_,mets_,sorted_mets_,i_,args_; P app_metsF1757; P classF1756; P tagF1755; P xF1754; P xF1753; P metsF1752; P xF1751; P tmpF1750; P yF1749; P xF1748; P singQF1747; P xF1746; P xF1745; P cacheF1744; P argF1743; P xF1742; P xF1741; P xF1740; P iF1739; P xF1738; P tF1737; P xF1736; P xF1735; P xF1734; P xF1733; P xF1732; P xF1731; P yF1730; P xF1729; P tmpF1728; P xF1727; P xF1726; P xF1725; P xF1724; P yF1723; P xF1722; P xF1721; P tmpF1720; P xF1719; P xF1718; P yF1717; P xF1716; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49; LINK_STACK(); ARG(gen_, 0); ARG(ocache_, 1); ARG(mets_, 2); ARG(sorted_mets_, 3); ARG(i_, 4); ARG(args_, 5); xF1716 = i_; T3 = CALL1(1,VARREF(YgooSfunYOfun_arity),gen_); yF1717 = T3; T2 = (P)YPiE(xF1716,yF1717); T1 = (P)YPbb(T2); if (T2) { xF1718 = sorted_mets_; xF1719 = xF1718; T6 = (P)YPprop_elt(xF1719,(P)0); T5 = CALL3(1,VARREF(YgooSfunYmethod_accessor_offset),gen_,T6,args_); tmpF1720 = T5; if (tmpF1720 != YPfalse) { T4 = tmpF1720; } else { T4 = sorted_mets_; } T0 = T4; } else { if (ocache_ != YPfalse) { xF1722 = i_; xF1721 = ocache_; T15 = (P)YPprop_elt(xF1721,(P)1); yF1723 = T15; xF1724 = xF1722; xF1725 = xF1724; T13 = (P)YPiGG(xF1725,(P)2); xF1726 = yF1723; xF1727 = xF1726; T14 = (P)YPiGG(xF1727,(P)2); T12 = (P)YPiL(T13,T14); T11 = (P)YPbb(T12); T10 = T11; } else { T10 = YPfalse; } tmpF1728 = T10; if (tmpF1728 != YPfalse) { T8 = tmpF1728; } else { T9 = CALL2(1,VARREF(YgooSfunYOmets_unspecialized_atQ),mets_,i_); T8 = T9; } if (T8 != YPfalse) { xF1729 = i_; yF1730 = YPint((P)1); xF1731 = xF1729; xF1732 = xF1731; T20 = (P)YPiGG(xF1732,(P)2); xF1733 = yF1730; xF1734 = xF1733; T21 = (P)YPiGG(xF1734,(P)2); T19 = (P)YPiA(T20,T21); xF1735 = T19; xF1736 = xF1735; tF1737 = (P)1; T18 = (P)YPiLL(xF1736,(P)2); T17 = (P)YPiv(T18,tF1737); T16 = CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1),6,gen_,ocache_,mets_,sorted_mets_,T17,args_); T7 = T16; } else { xF1738 = args_; iF1739 = i_; xF1740 = xF1738; T47 = (P)YPprop_elt(xF1740,(P)0); xF1741 = iF1739; xF1742 = xF1741; T49 = (P)YPiGG(xF1742,(P)2); T48 = (P)YPi_((P)0,T49); T46 = (P)YPloc_off(T47,T48); argF1743 = T46; T45 = CALLN(1,VARREF(YgooSfunYensure_singleton_cache),6,gen_,ocache_,mets_,sorted_mets_,i_,args_); cacheF1744 = T45; xF1745 = sorted_mets_; xF1746 = xF1745; T44 = (P)YPprop_elt(xF1746,(P)0); T43 = CALL2(1,VARREF(YgooSfunYfun_spec),T44,i_); T42 = CALL1(1,VARREF(YgooSfunYOsingleton_specQ),T43); singQF1747 = T42; if (singQF1747 != YPfalse) { xF1748 = ocache_; yF1749 = cacheF1744; T29 = (P)YPeqQ(xF1748,yF1749); T28 = (P)YPbb(T29); T27 = T28; } else { T27 = YPfalse; } tmpF1750 = T27; if (tmpF1750 != YPfalse) { T23 = tmpF1750; } else { if (cacheF1744 != YPfalse) { xF1751 = cacheF1744; T26 = (P)YPprop_elt(xF1751,(P)0); T25 = CALL1(1,VARREF(Ynot),T26); T24 = T25; } else { T24 = YPfalse; } T23 = T24; } if (T23 != YPfalse) { T32 = (P)YPsingleton(argF1743); T31 = CALL3(1,VARREF(YgooSfunYOprune_mets_by_type_at),mets_,T32,i_); metsF1752 = T31; T30 = CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1_using),10,argF1743,argF1743,VARREF(YgooSfunYOgen_cache_singletons),VARREF(YgooSfunYOgen_cache_singletons_setter),gen_,cacheF1744,metsF1752,sorted_mets_,i_,args_); T22 = T30; } else { if (singQF1747 != YPfalse) { T33 = cacheF1744; } else { xF1753 = argF1743; xF1754 = xF1753; T41 = (P)YPiB(xF1754,(P)3); tagF1755 = T41; T38 = (P)YPiE(tagF1755,(P)0); T37 = (P)YPbb(T38); if (T38) { T39 = (P)YPobject_class(xF1753); T36 = T39; } else { T40 = (P)YPelt(VARREF(YDdirect_object_class),tagF1755); T36 = T40; } classF1756 = T36; T35 = CALL3(1,VARREF(YgooSfunYOprune_mets_by_type_at),mets_,classF1756,i_); app_metsF1757 = T35; T34 = CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1_using),10,classF1756,argF1743,VARREF(YgooSfunYOgen_cache_classes),VARREF(YgooSfunYOgen_cache_classes_setter),gen_,cacheF1744,app_metsF1757,sorted_mets_,i_,args_); T33 = T34; } T22 = T33; } T7 = T22; } T0 = T7; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYgen_lookup_miss) { P gen_,args_; P xF1760; P xF1759; P metsF1758; P T0,T1,T2,T3; LINK_STACK(); ARG(gen_, 0); ARG(args_, 1); T3 = CALL2(1,VARREF(YgooSfunYchoose_methods),gen_,args_); metsF1758 = T3; xF1759 = gen_; T1 = (P)YPprop_elt(xF1759,(P)4); xF1760 = gen_; T2 = (P)YPprop_elt(xF1760,(P)3); T0 = CALLN(1,VARREF(YgooSfunYgen_lookup_miss_1),6,gen_,T1,T2,metsF1758,YPint((P)0),args_); UNLINK_STACK(); QRET(T0); } INLINE P YgooSfunYprop_value_at(P object_,P offset_) { P xF1769; P xF1768; P xF1767; P propsF1766; P yF1765; P xF1764; P valF1763; P xF1762; P xF1761; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; DEFCREGS(); xF1761 = offset_; xF1762 = xF1761; T10 = (P)YPiGG(xF1762,(P)2); T9 = (P)YPprop_elt(object_,T10); valF1763 = T9; xF1764 = valF1763; yF1765 = VARREF(Ynul_prop); T2 = (P)YPeqQ(xF1764,yF1765); T1 = (P)YPbb(T2); if (T2) { T8 = XCALL1(1,VARREF(Yprops_of),object_); propsF1766 = T8; T6 = XCALL2(1,VARREF(YOelt),propsF1766,offset_); xF1767 = T6; T5 = (P)YPprop_elt(xF1767,(P)4); T4 = XCALL1(1,T5,object_); xF1768 = offset_; xF1769 = xF1768; T7 = (P)YPiGG(xF1769,(P)2); T3 = (P)YPprop_elt_setter(T4,object_,T7); T0 = T3; } else { T0 = valF1763; } return T0; } P YgooSfunYprop_bound_atQ(P object_,P offset_) { P yF1778; P xF1777; P xF1776; P propsF1775; P yF1774; P xF1773; P valF1772; P xF1771; P xF1770; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; DEFCREGS(); xF1770 = offset_; xF1771 = xF1770; T10 = (P)YPiGG(xF1771,(P)2); T9 = (P)YPprop_elt(object_,T10); valF1772 = T9; xF1773 = valF1772; yF1774 = VARREF(Ynul_prop); T2 = (P)YPeqQ(xF1773,yF1774); T1 = (P)YPbb(T2); if (T2) { T8 = XCALL1(1,VARREF(Yprops_of),object_); propsF1775 = T8; T7 = XCALL2(1,VARREF(YOelt),propsF1775,offset_); xF1776 = T7; T6 = (P)YPprop_elt(xF1776,(P)4); xF1777 = T6; yF1778 = VARREF(YPprop_unbound_error); T5 = (P)YPeqQ(xF1777,yF1778); T4 = (P)YPbb(T5); T3 = XCALL1(1,VARREF(Ynot),T4); T0 = T3; } else { T0 = YPtrue; } return T0; } INLINE P YgooSfunYprop_value_at_setter(P z_,P object_,P offset_) { P xF1780; P xF1779; P T0,T1; DEFCREGS(); xF1779 = offset_; xF1780 = xF1779; T1 = (P)YPiGG(xF1780,(P)2); T0 = (P)YPprop_elt_setter(z_,object_,T1); return T0; } INLINE P YgooSfunYgen_lookup(P gen_,P args_) { P tmpF1782; P xF1781; P T0,T1,T2,T3,T4; DEFCREGS(); xF1781 = gen_; T4 = (P)YPprop_elt(xF1781,(P)4); tmpF1782 = T4; if (tmpF1782 != YPfalse) { T1 = tmpF1782; } else { T3 = XCALL2(1,VARREF(YgooSfunYgen_lookup_miss),gen_,args_); T2 = (P)YPfun_cache_setter(T3,gen_); T1 = T2; } T0 = (P)YgooSfunYgen_lookup_1(gen_,T1,args_); return T0; } INLINE P YgooSfunYgen_lookup_1_using(P key_,P i_,P len_,P assocs_,P missableQ_,P gen_,P args_) { P yF1785; P xF1784; P iF1783; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; DEFCREGS(); iF1783 = i_; LOOP_42: { P a42_0; T2 = (P)YPiE(iF1783,len_); T1 = (P)YPbb(T2); if (T2) { if (missableQ_ != YPfalse) { T3 = VARREF(YgooSfunYDmissed_dispatch); } else { T4 = XCALL2(1,VARREF(YgooSfunYgen_lookup_miss),gen_,args_); (P)YPfun_cache_setter(T4,gen_); T5 = (P)YgooSfunYgen_lookup(gen_,args_); T3 = T5; } T0 = T3; } else { T9 = (P)YPtelt(assocs_,iF1783); xF1784 = T9; yF1785 = key_; T8 = (P)YPeqQ(xF1784,yF1785); T7 = (P)YPbb(T8); if (T8) { T12 = (P)YPiA(iF1783,(P)1); T11 = (P)YPtelt(assocs_,T12); T10 = (P)YgooSfunYgen_lookup_1(gen_,T11,args_); T6 = T10; } else { T14 = (P)YPiA(iF1783,(P)2); a42_0 = T14; iF1783 = a42_0; goto LOOP_42; T6 = T13; } T0 = T6; } } return T0; } INLINE P YgooSfunYgen_lookup_1i(P gen_,P cache_,P args_) { P tagF1808; P xF1807; P xF1806; P assocsF1805; P xF1804; P yF1803; P xF1802; P valF1801; P xF1800; P assocsF1799; P xF1798; P argF1797; P xF1796; P xF1795; P xF1794; P iF1793; P xF1792; P xF1791; P yF1790; P xF1789; P tagF1788; P xF1787; P xF1786; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; DEFCREGS(); xF1786 = cache_; xF1787 = xF1786; T8 = (P)YPiB(xF1787,(P)3); tagF1788 = T8; T5 = (P)YPiE(tagF1788,(P)0); T4 = (P)YPbb(T5); if (T5) { T6 = (P)YPobject_class(xF1786); T3 = T6; } else { T7 = (P)YPelt(VARREF(YDdirect_object_class),tagF1788); T3 = T7; } xF1789 = T3; yF1790 = VARREF(YLgen_cacheG); T2 = (P)YPeqQ(xF1789,yF1790); T1 = (P)YPbb(T2); if (T2) { xF1792 = args_; xF1791 = cache_; T29 = (P)YPprop_elt(xF1791,(P)1); iF1793 = T29; xF1794 = xF1792; T26 = (P)YPprop_elt(xF1794,(P)0); xF1795 = iF1793; xF1796 = xF1795; T28 = (P)YPiGG(xF1796,(P)2); T27 = (P)YPi_((P)0,T28); T25 = (P)YPloc_off(T26,T27); argF1797 = T25; xF1798 = cache_; T24 = (P)YPprop_elt(xF1798,(P)2); assocsF1799 = T24; T22 = (P)YPtlen(assocsF1799); xF1800 = cache_; T23 = (P)YPprop_elt(xF1800,(P)0); T21 = (P)YgooSfunYgen_lookup_1_using(argF1797,(P)0,T22,assocsF1799,T23,gen_,args_); valF1801 = T21; xF1802 = valF1801; yF1803 = VARREF(YgooSfunYDmissed_dispatch); T11 = (P)YPeqQ(xF1802,yF1803); T10 = (P)YPbb(T11); if (T11) { xF1804 = cache_; T20 = (P)YPprop_elt(xF1804,(P)3); assocsF1805 = T20; xF1806 = argF1797; xF1807 = xF1806; T18 = (P)YPiB(xF1807,(P)3); tagF1808 = T18; T15 = (P)YPiE(tagF1808,(P)0); T14 = (P)YPbb(T15); if (T15) { T16 = (P)YPobject_class(xF1806); T13 = T16; } else { T17 = (P)YPelt(VARREF(YDdirect_object_class),tagF1808); T13 = T17; } T19 = (P)YPtlen(assocsF1805); T12 = (P)YgooSfunYgen_lookup_1_using(T13,(P)0,T19,assocsF1805,YPfalse,gen_,args_); T9 = T12; } else { T9 = valF1801; } T0 = T9; } else { T0 = cache_; } return T0; } P YgooSfunYgen_lookup_1(P gen_,P cache_,P args_) { P T0; DEFCREGS(); T0 = (P)YgooSfunYgen_lookup_1i(gen_,cache_,args_); return T0; } FUNCODEDEF(YgooSfunYchoose_methods) { P gen_,args_; P xF1821; P xF1820; P ambiguous_metsF1819; P xF1818; P xF1817; P iF1816; P xF1815; P sorted_metsF1814; P xF1813; P xF1812; P iF1811; P xF1810; P ord_amb_metsF1809; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(gen_, 0); ARG(args_, 1); T8 = CALL2(1,VARREF(YgooSfunYord_app_metsT),gen_,args_); ord_amb_metsF1809 = T8; xF1810 = ord_amb_metsF1809; iF1811 = YPint((P)0); xF1812 = iF1811; xF1813 = xF1812; T7 = (P)YPiGG(xF1813,(P)2); T6 = (P)YPtelt(xF1810,T7); sorted_metsF1814 = T6; xF1815 = ord_amb_metsF1809; iF1816 = YPint((P)1); xF1817 = iF1816; xF1818 = xF1817; T5 = (P)YPiGG(xF1818,(P)2); T4 = (P)YPtelt(xF1815,T5); ambiguous_metsF1819 = T4; xF1820 = sorted_metsF1814; xF1821 = xF1820; T2 = (P)YPeqQ(xF1821,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL2(1,VARREF(Yno_applicable_methods_error),gen_,args_); T0 = T3; } else { T0 = sorted_metsF1814; } UNLINK_STACK(); RET(T0); } INLINE P YgooSfunYgen_lookup_i(P gen_,P args_) { P tmpF1823; P xF1822; P T0,T1,T2,T3,T4; DEFCREGS(); xF1822 = gen_; T4 = (P)YPprop_elt(xF1822,(P)4); tmpF1823 = T4; if (tmpF1823 != YPfalse) { T1 = tmpF1823; } else { T3 = XCALL2(1,VARREF(YgooSfunYgen_lookup_miss),gen_,args_); T2 = (P)YPfun_cache_setter(T3,gen_); T1 = T2; } T0 = (P)YgooSfunYgen_lookup_1i(gen_,T1,args_); return T0; } FUNCODEDEF(YPdispatch) { P args_; P xF1848; P xF1847; P resF1846; P xF1845; P xF1844; P xF1843; P iF1842; P xF1841; P xF1840; P xF1839; P xF1838; P iF1837; P xF1836; P xF1835; P xF1834; P xF1833; P iF1832; P xF1831; P yF1830; P xF1829; P xF1828; P xF1827; P xF1826; P xF1825; P resultF1824; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; LINK_STACK(); NARGS(args_, 0); T26 = (P)YPfun_reg(); T25 = (P)YgooSfunYgen_lookup_i(T26,args_); resultF1824 = T25; xF1825 = resultF1824; xF1826 = xF1825; T3 = (P)YPiB(xF1826,(P)3); T2 = (P)YPiE(T3,(P)1); T1 = (P)YPbb(T2); if (T2) { xF1827 = args_; xF1828 = xF1827; T7 = (P)YPprop_elt(xF1828,(P)1); xF1829 = T7; yF1830 = YPint((P)1); T6 = (P)YPiE(xF1829,yF1830); T5 = (P)YPbb(T6); if (T6) { xF1831 = args_; iF1832 = YPint((P)0); xF1833 = xF1831; T10 = (P)YPprop_elt(xF1833,(P)0); xF1834 = iF1832; xF1835 = xF1834; T12 = (P)YPiGG(xF1835,(P)2); T11 = (P)YPi_((P)0,T12); T9 = (P)YPloc_off(T10,T11); T8 = (P)YgooSfunYprop_value_at(T9,resultF1824); T4 = T8; } else { xF1836 = args_; iF1837 = YPint((P)0); xF1838 = xF1836; T15 = (P)YPprop_elt(xF1838,(P)0); xF1839 = iF1837; xF1840 = xF1839; T17 = (P)YPiGG(xF1840,(P)2); T16 = (P)YPi_((P)0,T17); T14 = (P)YPloc_off(T15,T16); xF1841 = args_; iF1842 = YPint((P)1); xF1843 = xF1841; T19 = (P)YPprop_elt(xF1843,(P)0); xF1844 = iF1842; xF1845 = xF1844; T21 = (P)YPiGG(xF1845,(P)2); T20 = (P)YPi_((P)0,T21); T18 = (P)YPloc_off(T19,T20); T13 = (P)YgooSfunYprop_value_at_setter(T14,T18,resultF1824); T4 = T13; } resF1846 = T4; (P)YPunlink_stack(); T0 = resF1846; } else { xF1847 = resultF1824; T23 = (P)YPprop_elt(xF1847,(P)0); xF1848 = resultF1824; T24 = (P)YPprop_elt(xF1848,(P)1); T22 = (P)YPraw_met_call(T23,T24); T0 = T22; } QRET(T0); } FUNCODEDEF(YgooSfunYfun_specs) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL1(1,VARREF(Ysig_specs),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_specs_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL2(1,VARREF(Ysig_specs_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_naryQ) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL1(1,VARREF(Ysig_naryQ),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_naryQ_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL2(1,VARREF(Ysig_naryQ_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_arity) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL1(1,VARREF(Ysig_arity),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_arity_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL2(1,VARREF(Ysig_arity_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_val) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL1(1,VARREF(Ysig_val),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_val_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL2(1,VARREF(Ysig_val_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_unification_vars) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL1(1,VARREF(Ysig_unification_vars),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_unification_vars_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_sig),x_); T0 = CALL2(1,VARREF(Ysig_unification_vars_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_name) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL1(1,VARREF(Yfun_info_name),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_name_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL2(1,VARREF(Yfun_info_name_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_names) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL1(1,VARREF(Yfun_info_names),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_names_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL2(1,VARREF(Yfun_info_names_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_src) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL1(1,VARREF(Yfun_info_src),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_src_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL2(1,VARREF(Yfun_info_src_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_src_loc) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL1(1,VARREF(Yfun_info_src_loc),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_src_loc_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL2(1,VARREF(Yfun_info_src_loc_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_count) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL1(1,VARREF(Yfun_info_count),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_count_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL2(1,VARREF(Yfun_info_count_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_inlineableQ) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL1(1,VARREF(Yfun_info_inlineableQ),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfun_inlineableQ_setter) { P z_,x_; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(Yfun_info),x_); T0 = CALL2(1,VARREF(Yfun_info_inlineableQ_setter),z_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSfunYfab_gen) { P specs_,naryQ_,val_,name_,names_; P xF1851; P gF1850; P iF1849; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(specs_, 0); ARG(naryQ_, 1); ARG(val_, 2); ARG(name_, 3); ARG(names_, 4); T4 = CALLN(1,VARREF(YOnew),7,VARREF(YLfun_infoG),VARREF(Yfun_info_name),name_,VARREF(Yfun_info_names),names_,VARREF(Yfun_info_count),YPint((P)0)); iF1849 = T4; T3 = (P)YOlen(specs_); T2 = CALLN(1,VARREF(YOnew),9,VARREF(YLsigG),VARREF(Ysig_specs),specs_,VARREF(Ysig_naryQ),naryQ_,VARREF(Ysig_arity),T3,VARREF(Ysig_val),val_); T1 = CALLN(1,VARREF(YOnew),9,VARREF(YLgenG),VARREF(Yfun_sig),T2,VARREF(Yfun_info),iF1849,VARREF(Yfun_mets),Ynil,VARREF(Yfun_cache),YPfalse); gF1850 = T1; xF1851 = VARREF(YPdispatch); T0 = (P)YPprop_elt(xF1851,(P)0); (P)YPgen_code_setter(T0,gF1850); UNLINK_STACK(); RET(gF1850); } LOCCODEDEF(fun_90) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(VARREF(YLanyG)); } FUNCODEDEF(YgooSfunYgen_from_met) { P x_; P specsF1852; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); T4 = fun_90; T5 = CALL1(1,VARREF(YgooSfunYOfun_specs),x_); T3 = CALL2(1,VARREF(YOmap),T4,T5); specsF1852 = T3; T1 = CALL1(1,VARREF(YgooSfunYOfun_naryQ),x_); T2 = CALL1(1,VARREF(YgooSfunYfun_name),x_); T0 = CALL5(1,VARREF(YgooSfunYfab_gen),specsF1852,T1,VARREF(YLanyG),T2,Ynil); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSfunYPdefine_method) { P gen_,met_; P tmpF1853; P T0,T1,T2; LINK_STACK(); ARG(gen_, 0); ARG(met_, 1); tmpF1853 = gen_; if (tmpF1853 != YPfalse) { T1 = tmpF1853; } else { T2 = CALL1(1,VARREF(YgooSfunYgen_from_met),met_); T1 = T2; } T0 = CALL2(1,VARREF(YgooSfunYgen_add_met),T1,met_); UNLINK_STACK(); RET(T0); } P YgooSfunY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96; DEFCREGS(); lit_0 = YPPsym((P)"@fun-names"); lit_1 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSfunYOfun_names = YPfab_met(FUNCODEREF(YgooSfunYOfun_names),T0,LITREF(lit_0),LITREF(lit_1),sloc(22),YPfalse); T1 = YgooSfunYOfun_names; VARSET(YgooSfunYOfun_names,T1); lit_2 = YPPsym((P)"@fun-specs"); lit_3 = YPPlist(1,YPPsym((P)"x")); T2 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSfunYOfun_specs = YPfab_met(FUNCODEREF(YgooSfunYOfun_specs),T2,LITREF(lit_2),LITREF(lit_3),sloc(24),YPfalse); T3 = YgooSfunYOfun_specs; VARSET(YgooSfunYOfun_specs,T3); lit_4 = YPPsym((P)"@fun-nary?"); lit_5 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YgooSfunYOfun_naryQ = YPfab_met(FUNCODEREF(YgooSfunYOfun_naryQ),T4,LITREF(lit_4),LITREF(lit_5),sloc(26),YPfalse); T5 = YgooSfunYOfun_naryQ; VARSET(YgooSfunYOfun_naryQ,T5); lit_6 = YPPsym((P)"@fun-arity"); lit_7 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); YgooSfunYOfun_arity = YPfab_met(FUNCODEREF(YgooSfunYOfun_arity),T6,LITREF(lit_6),LITREF(lit_7),sloc(28),YPfalse); T7 = YgooSfunYOfun_arity; VARSET(YgooSfunYOfun_arity,T7); lit_8 = YPPsym((P)"@fun-val"); lit_9 = YPPlist(1,YPPsym((P)"x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOfun_val = YPfab_met(FUNCODEREF(YgooSfunYOfun_val),T8,LITREF(lit_8),LITREF(lit_9),sloc(30),YPfalse); T9 = YgooSfunYOfun_val; VARSET(YgooSfunYOfun_val,T9); lit_10 = YPPsym((P)"@fun-unification-vars"); lit_11 = YPPlist(1,YPPsym((P)"x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSfunYOfun_unification_vars = YPfab_met(FUNCODEREF(YgooSfunYOfun_unification_vars),T10,LITREF(lit_10),LITREF(lit_11),sloc(32),YPfalse); T11 = YgooSfunYOfun_unification_vars; VARSET(YgooSfunYOfun_unification_vars,T11); lit_12 = YPPsym((P)"@fun-mets"); lit_13 = YPPlist(1,YPPsym((P)"x")); T12 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSfunYOfun_mets = YPfab_met(FUNCODEREF(YgooSfunYOfun_mets),T12,LITREF(lit_12),LITREF(lit_13),sloc(34),YPfalse); T13 = YgooSfunYOfun_mets; VARSET(YgooSfunYOfun_mets,T13); lit_14 = YPPsym((P)"@fun-mets-setter"); lit_15 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T14 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYOfun_mets_setter = YPfab_met(FUNCODEREF(YgooSfunYOfun_mets_setter),T14,LITREF(lit_14),LITREF(lit_15),sloc(36),YPfalse); T15 = YgooSfunYOfun_mets_setter; VARSET(YgooSfunYOfun_mets_setter,T15); VARSET(YgooSfunYLenvG,VARREF(YLanyG)); VARSET(YgooSfunYLspecsG,VARREF(YLlstG)); VARSET(YgooSfunYLbodyG,VARREF(YLanyG)); lit_16 = YPPsym((P)"fun-spec"); lit_17 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T16 = YPfab_sig(YPPlist(2,VARREF(YLmetG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_spec = YPfab_met(FUNCODEREF(YgooSfunYfun_spec),T16,LITREF(lit_16),LITREF(lit_17),sloc(42),YPfalse); T17 = YgooSfunYfun_spec; VARSET(YgooSfunYfun_spec,T17); VARSET(YgooSfunYLmetsG,VARREF(YLlstG)); lit_18 = YPPsym((P)"fun-same-met?"); lit_19 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T18 = YPfab_sig(YPPlist(2,VARREF(YLmetG),VARREF(YLmetG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooSfunYfun_same_metQ = YPfab_met(FUNCODEREF(YgooSfunYfun_same_metQ),T18,LITREF(lit_18),LITREF(lit_19),sloc(47),YPfalse); T19 = YgooSfunYfun_same_metQ; VARSET(YgooSfunYfun_same_metQ,T19); lit_20 = YPPsym((P)"fun-congruent?"); lit_21 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T20 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooSfunYfun_congruentQ = YPfab_met(FUNCODEREF(YgooSfunYfun_congruentQ),T20,LITREF(lit_20),LITREF(lit_21),sloc(50),YPfalse); T21 = YgooSfunYfun_congruentQ; VARSET(YgooSfunYfun_congruentQ,T21); lit_22 = YPPsym((P)"gen-add-met"); lit_23 = YPPlist(2,YPPsym((P)"g"),YPPsym((P)"m")); lit_24 = YPPlist(1,YPPsym((P)"return")); lit_25 = YPsb((P)"Replace %= with an nul generic congruent with %="); lit_26 = Ynil; lit_27 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); T26 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T26,YPfalse,LITREF(lit_26),YPfalse,YPfalse); T25 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T25,YPfalse,LITREF(lit_27),sloc(70),YPfalse); T24 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_13 = YPfab_met(FUNCODEREF(fun_13),T24,YPfalse,LITREF(lit_26),sloc(72),YPfalse); T23 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T23,YPfalse,LITREF(lit_24),sloc(66),YPfalse); T22 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLmetG)),YPfalse,YPint((P)2),VARREF(YLgenG),Ynil); YgooSfunYgen_add_met = YPfab_met(FUNCODEREF(YgooSfunYgen_add_met),T22,LITREF(lit_22),LITREF(lit_23),sloc(59),YPfalse); T27 = YgooSfunYgen_add_met; VARSET(YgooSfunYgen_add_met,T27); lit_28 = YPPsym((P)"@class<"); lit_29 = YPPlist(3,YPPsym((P)"c1"),YPPsym((P)"c2"),YPPsym((P)"wrt")); lit_30 = YPsb((P)"can't order specializers - arg/reference object %= is "); lit_31 = YPsb((P)"neither %= nor %="); T28 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); YgooSfunYOclassL = YPfab_met(FUNCODEREF(YgooSfunYOclassL),T28,LITREF(lit_28),LITREF(lit_29),sloc(101),YPfalse); T29 = YgooSfunYOclassL; VARSET(YgooSfunYOclassL,T29); lit_32 = YPPsym((P)"@order-specs-class"); lit_33 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); lit_34 = YPPsym((P)"="); lit_35 = YPPsym((P)"<"); lit_36 = YPPsym((P)">"); T30 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSfunYOorder_specs_class = YPfab_met(FUNCODEREF(YgooSfunYOorder_specs_class),T30,LITREF(lit_32),LITREF(lit_33),sloc(113),YPfalse); T31 = YgooSfunYOorder_specs_class; VARSET(YgooSfunYOorder_specs_class,T31); lit_37 = YPPsym((P)"@order-specs"); lit_38 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T32 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSfunYOorder_specs = YPfab_met(FUNCODEREF(YgooSfunYOorder_specs),T32,LITREF(lit_37),LITREF(lit_38),sloc(120),YPfalse); T33 = YgooSfunYOorder_specs; VARSET(YgooSfunYOorder_specs,T33); lit_39 = YPPsym((P)"order-mets"); lit_40 = YPPlist(3,YPPsym((P)"m1"),YPPsym((P)"m2"),YPPsym((P)"args")); lit_41 = YPPsym((P)"<>"); T34 = YPfab_sig(YPPlist(3,VARREF(YLmetG),VARREF(YLmetG),VARREF(YLoptsG)),YPfalse,YPint((P)3),VARREF(YLsymG),Ynil); YgooSfunYorder_mets = YPfab_met(FUNCODEREF(YgooSfunYorder_mets),T34,LITREF(lit_39),LITREF(lit_40),sloc(125),YPfalse); T35 = YgooSfunYorder_mets; VARSET(YgooSfunYorder_mets,T35); lit_42 = YPPsym((P)"ord-app-mets-1"); lit_43 = YPPlist(3,YPPsym((P)"mets"),YPPsym((P)"args"),YPPsym((P)"order-mets")); lit_44 = YPPsym((P)"make-ambiguous"); lit_45 = YPPlist(1,YPPsym((P)"headed-list")); lit_46 = YPPsym((P)"precedes-all?"); lit_47 = YPPlist(1,YPPsym((P)"l")); lit_48 = YPPsym((P)"check-subsequent-ambiguities"); lit_49 = YPPlist(1,YPPsym((P)"oprev")); lit_50 = YPPsym((P)"insert"); lit_51 = YPPlist(2,YPPsym((P)"oprev"),YPPsym((P)"osub")); T40 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_make_ambiguous_20 = YPfab_met(FUNCODEREF(fun_make_ambiguous_20),T40,LITREF(lit_44),LITREF(lit_45),sloc(150),YPfalse); T39 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_precedes_allQ_21 = YPfab_met(FUNCODEREF(fun_precedes_allQ_21),T39,LITREF(lit_46),LITREF(lit_47),sloc(159),YPfalse); T38 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_check_subsequent_ambiguities_22 = YPfab_met(FUNCODEREF(fun_check_subsequent_ambiguities_22),T38,LITREF(lit_48),LITREF(lit_49),sloc(166),YPfalse); T37 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_insert_23 = YPfab_met(FUNCODEREF(fun_insert_23),T37,LITREF(lit_50),LITREF(lit_51),sloc(171),YPfalse); T36 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLoptsG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLtupG),Ynil); YgooSfunYord_app_mets_1 = YPfab_met(FUNCODEREF(YgooSfunYord_app_mets_1),T36,LITREF(lit_42),LITREF(lit_43),sloc(142),YPfalse); T41 = YgooSfunYord_app_mets_1; VARSET(YgooSfunYord_app_mets_1,T41); lit_52 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T42 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_25 = YPfab_met(FUNCODEREF(fun_25),T42,YPfalse,LITREF(lit_52),sloc(184),YPfalse); T43 = fun_25; VARSET(YgooSfunYmet_app_unify,T43); lit_53 = YPPsym((P)"met-app?"); lit_54 = YPPlist(2,YPPsym((P)"met"),YPPsym((P)"args")); T44 = YPfab_sig(YPPlist(2,VARREF(YLmetG),VARREF(YLoptsG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooSfunYmet_appQ = YPfab_met(FUNCODEREF(YgooSfunYmet_appQ),T44,LITREF(lit_53),LITREF(lit_54),sloc(186),YPfalse); T45 = YgooSfunYmet_appQ; VARSET(YgooSfunYmet_appQ,T45); lit_55 = YPPsym((P)"ord-app-mets*"); lit_56 = YPPlist(2,YPPsym((P)"gf"),YPPsym((P)"args")); T46 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLoptsG)),YPfalse,YPint((P)2),VARREF(YLtupG),Ynil); YgooSfunYord_app_metsT = YPfab_met(FUNCODEREF(YgooSfunYord_app_metsT),T46,LITREF(lit_55),LITREF(lit_56),sloc(197),YPfalse); T47 = YgooSfunYord_app_metsT; VARSET(YgooSfunYord_app_metsT,T47); lit_57 = YPPsym((P)"ord-app-mets"); lit_58 = YPPlist(2,YPPsym((P)"gf"),YPPsym((P)"args")); T49 = XCALL2(1,VARREF(YtT),VARREF(YLlstG),VARREF(YLlstG)); T48 = YPfab_sig(YPPlist(1,VARREF(YLgenG)),YPtrue,YPint((P)1),T49,Ynil); YgooSfunYord_app_mets = YPfab_met(FUNCODEREF(YgooSfunYord_app_mets),T48,LITREF(lit_57),LITREF(lit_58),sloc(208),YPfalse); T50 = YgooSfunYord_app_mets; VARSET(YgooSfunYord_app_mets,T50); lit_59 = YPPsym((P)"@gen-cache-arg-pos"); lit_60 = YPPlist(1,YPPsym((P)"x")); T51 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOgen_cache_arg_pos = YPfab_met(FUNCODEREF(YgooSfunYOgen_cache_arg_pos),T51,LITREF(lit_59),LITREF(lit_60),sloc(219),YPfalse); T52 = YgooSfunYOgen_cache_arg_pos; VARSET(YgooSfunYOgen_cache_arg_pos,T52); lit_61 = YPPsym((P)"@gen-cache-arg-pos-setter"); lit_62 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T53 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYOgen_cache_arg_pos_setter = YPfab_met(FUNCODEREF(YgooSfunYOgen_cache_arg_pos_setter),T53,LITREF(lit_61),LITREF(lit_62),sloc(220),YPfalse); T54 = YgooSfunYOgen_cache_arg_pos_setter; VARSET(YgooSfunYOgen_cache_arg_pos_setter,T54); lit_63 = YPPsym((P)"@gen-cache-singletons"); lit_64 = YPPlist(1,YPPsym((P)"x")); T55 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOgen_cache_singletons = YPfab_met(FUNCODEREF(YgooSfunYOgen_cache_singletons),T55,LITREF(lit_63),LITREF(lit_64),sloc(221),YPfalse); T56 = YgooSfunYOgen_cache_singletons; VARSET(YgooSfunYOgen_cache_singletons,T56); lit_65 = YPPsym((P)"@gen-cache-singletons-setter"); lit_66 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T57 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYOgen_cache_singletons_setter = YPfab_met(FUNCODEREF(YgooSfunYOgen_cache_singletons_setter),T57,LITREF(lit_65),LITREF(lit_66),sloc(222),YPfalse); T58 = YgooSfunYOgen_cache_singletons_setter; VARSET(YgooSfunYOgen_cache_singletons_setter,T58); lit_67 = YPPsym((P)"@gen-cache-classes"); lit_68 = YPPlist(1,YPPsym((P)"x")); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOgen_cache_classes = YPfab_met(FUNCODEREF(YgooSfunYOgen_cache_classes),T59,LITREF(lit_67),LITREF(lit_68),sloc(223),YPfalse); T60 = YgooSfunYOgen_cache_classes; VARSET(YgooSfunYOgen_cache_classes,T60); lit_69 = YPPsym((P)"@gen-cache-classes-setter"); lit_70 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T61 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYOgen_cache_classes_setter = YPfab_met(FUNCODEREF(YgooSfunYOgen_cache_classes_setter),T61,LITREF(lit_69),LITREF(lit_70),sloc(224),YPfalse); T62 = YgooSfunYOgen_cache_classes_setter; VARSET(YgooSfunYOgen_cache_classes_setter,T62); lit_71 = YPPsym((P)"method-accessor-offset"); lit_72 = YPPlist(3,YPPsym((P)"gen"),YPPsym((P)"met"),YPPsym((P)"args")); T63 = YPfab_sig(YPPlist(3,VARREF(YLgenG),VARREF(YLmetG),VARREF(YLoptsG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSfunYmethod_accessor_offset = YPfab_met(FUNCODEREF(YgooSfunYmethod_accessor_offset),T63,LITREF(lit_71),LITREF(lit_72),sloc(228),YPfalse); T64 = YgooSfunYmethod_accessor_offset; VARSET(YgooSfunYmethod_accessor_offset,T64); lit_73 = YPPsym((P)"@singleton-spec?"); lit_74 = YPPlist(1,YPPsym((P)"x")); T65 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOsingleton_specQ = YPfab_met(FUNCODEREF(YgooSfunYOsingleton_specQ),T65,LITREF(lit_73),LITREF(lit_74),sloc(237),YPfalse); T66 = YgooSfunYOsingleton_specQ; VARSET(YgooSfunYOsingleton_specQ,T66); lit_75 = YPPsym((P)"@subclass-spec?"); lit_76 = YPPlist(1,YPPsym((P)"x")); T67 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOsubclass_specQ = YPfab_met(FUNCODEREF(YgooSfunYOsubclass_specQ),T67,LITREF(lit_75),LITREF(lit_76),sloc(240),YPfalse); T68 = YgooSfunYOsubclass_specQ; VARSET(YgooSfunYOsubclass_specQ,T68); lit_77 = YPPsym((P)"@union-spec?"); lit_78 = YPPlist(1,YPPsym((P)"x")); T69 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOunion_specQ = YPfab_met(FUNCODEREF(YgooSfunYOunion_specQ),T69,LITREF(lit_77),LITREF(lit_78),sloc(243),YPfalse); T70 = YgooSfunYOunion_specQ; VARSET(YgooSfunYOunion_specQ,T70); lit_79 = YPPsym((P)"@precise-spec?"); lit_80 = YPPlist(1,YPPsym((P)"x")); T71 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYOprecise_specQ = YPfab_met(FUNCODEREF(YgooSfunYOprecise_specQ),T71,LITREF(lit_79),LITREF(lit_80),sloc(246),YPfalse); T72 = YgooSfunYOprecise_specQ; VARSET(YgooSfunYOprecise_specQ,T72); lit_81 = YPPsym((P)"@mets-unspecialized-at?"); lit_82 = YPPlist(2,YPPsym((P)"mets"),YPPsym((P)"pos")); lit_83 = YPPlist(1,YPPsym((P)"met")); T74 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_40 = YPfab_met(FUNCODEREF(fun_40),T74,YPfalse,LITREF(lit_83),sloc(251),YPfalse); T73 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooSfunYOmets_unspecialized_atQ = YPfab_met(FUNCODEREF(YgooSfunYOmets_unspecialized_atQ),T73,LITREF(lit_81),LITREF(lit_82),sloc(250),YPfalse); T75 = YgooSfunYOmets_unspecialized_atQ; VARSET(YgooSfunYOmets_unspecialized_atQ,T75); lit_84 = YPPsym((P)"@prune-mets-by-type-at"); lit_85 = YPPlist(3,YPPsym((P)"mets"),YPPsym((P)"type"),YPPsym((P)"pos")); lit_86 = YPPlist(1,YPPsym((P)"met")); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_42 = YPfab_met(FUNCODEREF(fun_42),T77,YPfalse,LITREF(lit_86),sloc(255),YPfalse); T76 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLtypeG),VARREF(YLfixnumG)),YPfalse,YPint((P)3),VARREF(YgooSfunYLmetsG),Ynil); YgooSfunYOprune_mets_by_type_at = YPfab_met(FUNCODEREF(YgooSfunYOprune_mets_by_type_at),T76,LITREF(lit_84),LITREF(lit_85),sloc(253),YPfalse); T78 = YgooSfunYOprune_mets_by_type_at; VARSET(YgooSfunYOprune_mets_by_type_at,T78); lit_87 = YPPsym((P)"@mets-specs-at"); lit_88 = YPPlist(2,YPPsym((P)"mets"),YPPsym((P)"pos")); lit_89 = YPPlist(1,YPPsym((P)"met")); T80 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T80,YPfalse,LITREF(lit_89),sloc(258),YPfalse); T79 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YgooSfunYOmets_specs_at = YPfab_met(FUNCODEREF(YgooSfunYOmets_specs_at),T79,LITREF(lit_87),LITREF(lit_88),sloc(257),YPfalse); T81 = YgooSfunYOmets_specs_at; VARSET(YgooSfunYOmets_specs_at,T81); lit_90 = YPPsym((P)"@mets-singletons-at"); lit_91 = YPPlist(2,YPPsym((P)"mets"),YPPsym((P)"pos")); lit_92 = YPPlist(1,YPPsym((P)"spec")); T83 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_46 = YPfab_met(FUNCODEREF(fun_46),T83,YPfalse,LITREF(lit_92),sloc(263),YPfalse); T82 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YgooSfunYOmets_singletons_at = YPfab_met(FUNCODEREF(YgooSfunYOmets_singletons_at),T82,LITREF(lit_90),LITREF(lit_91),sloc(262),YPfalse); T84 = YgooSfunYOmets_singletons_at; VARSET(YgooSfunYOmets_singletons_at,T84); lit_93 = YPPsym((P)"@mets-subclasses-at"); lit_94 = YPPlist(2,YPPsym((P)"mets"),YPPsym((P)"pos")); lit_95 = YPPlist(1,YPPsym((P)"spec")); T86 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_48 = YPfab_met(FUNCODEREF(fun_48),T86,YPfalse,LITREF(lit_95),sloc(266),YPfalse); T85 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YgooSfunYOmets_subclasses_at = YPfab_met(FUNCODEREF(YgooSfunYOmets_subclasses_at),T85,LITREF(lit_93),LITREF(lit_94),sloc(265),YPfalse); T87 = YgooSfunYOmets_subclasses_at; VARSET(YgooSfunYOmets_subclasses_at,T87); VARSET(YgooSfunYDnul_assocs,VARREF(YPtnul)); lit_96 = YPPsym((P)"@cache-add"); lit_97 = YPPlist(3,YPPsym((P)"t"),YPPsym((P)"k"),YPPsym((P)"v")); T88 = YPfab_sig(YPPlist(3,VARREF(YLtupG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSfunYOcache_add = YPfab_met(FUNCODEREF(YgooSfunYOcache_add),T88,LITREF(lit_96),LITREF(lit_97),sloc(270),YPfalse); T89 = YgooSfunYOcache_add; VARSET(YgooSfunYOcache_add,T89); lit_98 = YPPsym((P)"gen-lookup-miss-1-using"); lit_99 = YPPlist(10,YPPsym((P)"key"),YPPsym((P)"instance"),YPPsym((P)"all-assocs"),YPPsym((P)"all-assocs-setter"),YPPsym((P)"gen"),YPPsym((P)"cache"),YPPsym((P)"mets"),YPPsym((P)"sorted-mets"),YPPsym((P)"i"),YPPsym((P)"args")); T90 = YPfab_sig(YPPlist(10,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLfunG),VARREF(YLfunG),VARREF(YLgenG),VARREF(YLanyG),VARREF(YLlstG),VARREF(YLlstG),VARREF(YLfixnumG),VARREF(YLoptsG)),YPfalse,YPint((P)10),VARREF(YLanyG),Ynil); YgooSfunYgen_lookup_miss_1_using = YPfab_met(FUNCODEREF(YgooSfunYgen_lookup_miss_1_using),T90,LITREF(lit_98),LITREF(lit_99),sloc(283),YPfalse); T91 = YgooSfunYgen_lookup_miss_1_using; VARSET(YgooSfunYgen_lookup_miss_1_using,T91); lit_100 = YPPsym((P)"@specd-args"); lit_101 = YPPlist(3,YPPsym((P)"args"),YPPsym((P)"i"),YPPsym((P)"arg")); T94 = YPfab_sig(YPPlist(3,VARREF(YLoptsG),VARREF(YLfixnumG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLoptsG),Ynil); T93 = YgooSfunYOspecd_args = YPfab_met(FUNCODEREF(YgooSfunYOspecd_args),T94,LITREF(lit_100),LITREF(lit_101),sloc(308),YPfalse); T96 = YgooSfunYOspecd_args; T95 = VARSET(YgooSfunYOspecd_args,T96); T92 = T95; return T92; } P YgooSfunY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64; DEFCREGS(); lit_102 = YPPsym((P)"requires-singleton-prec"); lit_103 = YPPlist(2,YPPsym((P)"mets"),YPPsym((P)"pos")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYrequires_singleton_prec = YPfab_met(FUNCODEREF(YgooSfunYrequires_singleton_prec),T0,LITREF(lit_102),LITREF(lit_103),sloc(318),YPfalse); T1 = YgooSfunYrequires_singleton_prec; VARSET(YgooSfunYrequires_singleton_prec,T1); lit_104 = YPPsym((P)"ensure-singleton-cache"); lit_105 = YPPlist(6,YPPsym((P)"gen"),YPPsym((P)"cache"),YPPsym((P)"mets"),YPPsym((P)"sorted-mets"),YPPsym((P)"i"),YPPsym((P)"args")); T2 = YPfab_sig(YPPlist(6,VARREF(YLgenG),VARREF(YLanyG),VARREF(YLlstG),VARREF(YLlstG),VARREF(YLfixnumG),VARREF(YLoptsG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); YgooSfunYensure_singleton_cache = YPfab_met(FUNCODEREF(YgooSfunYensure_singleton_cache),T2,LITREF(lit_104),LITREF(lit_105),sloc(333),YPfalse); T3 = YgooSfunYensure_singleton_cache; VARSET(YgooSfunYensure_singleton_cache,T3); lit_106 = YPPsym((P)"gen-lookup-miss-1"); lit_107 = YPPlist(6,YPPsym((P)"gen"),YPPsym((P)"ocache"),YPPsym((P)"mets"),YPPsym((P)"sorted-mets"),YPPsym((P)"i"),YPPsym((P)"args")); T4 = YPfab_sig(YPPlist(6,VARREF(YLgenG),VARREF(YLanyG),VARREF(YLlstG),VARREF(YLlstG),VARREF(YLfixnumG),VARREF(YLoptsG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); YgooSfunYgen_lookup_miss_1 = YPfab_met(FUNCODEREF(YgooSfunYgen_lookup_miss_1),T4,LITREF(lit_106),LITREF(lit_107),sloc(356),YPfalse); T5 = YgooSfunYgen_lookup_miss_1; VARSET(YgooSfunYgen_lookup_miss_1,T5); lit_108 = YPPsym((P)"gen-lookup-miss"); lit_109 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"args")); T6 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLoptsG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYgen_lookup_miss = YPfab_met(FUNCODEREF(YgooSfunYgen_lookup_miss),T6,LITREF(lit_108),LITREF(lit_109),sloc(380),YPfalse); T7 = YgooSfunYgen_lookup_miss; VARSET(YgooSfunYgen_lookup_miss,T7); T8 = (P)YPpair(VARREF(Ynil),VARREF(Ynil)); VARSET(YgooSfunYDmissed_dispatch,T8); lit_110 = YPPsym((P)"choose-methods"); lit_111 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"args")); T9 = YPfab_sig(YPPlist(2,VARREF(YLgenG),VARREF(YLoptsG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); YgooSfunYchoose_methods = YPfab_met(FUNCODEREF(YgooSfunYchoose_methods),T9,LITREF(lit_110),LITREF(lit_111),sloc(456),YPfalse); T10 = YgooSfunYchoose_methods; VARSET(YgooSfunYchoose_methods,T10); lit_112 = YPPsym((P)"%dispatch"); lit_113 = YPPlist(1,YPPsym((P)"args")); T11 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); YPdispatch = YPfab_met(FUNCODEREF(YPdispatch),T11,LITREF(lit_112),LITREF(lit_113),sloc(474),YPfalse); T12 = YPdispatch; VARSET(YPdispatch,T12); (P)YPpatch_early_generics(); lit_114 = YPPsym((P)"fun-specs"); lit_115 = YPPlist(1,YPPsym((P)"x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_specs = YPfab_met(FUNCODEREF(YgooSfunYfun_specs),T13,LITREF(lit_114),LITREF(lit_115),sloc(497),YPfalse); T14 = YgooSfunYfun_specs; VARSET(YgooSfunYfun_specs,T14); lit_116 = YPPsym((P)"fun-specs-setter"); lit_117 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T15 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_specs_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_specs_setter),T15,LITREF(lit_116),LITREF(lit_117),sloc(497),YPfalse); T16 = YgooSfunYfun_specs_setter; VARSET(YgooSfunYfun_specs_setter,T16); lit_118 = YPPsym((P)"fun-nary?"); lit_119 = YPPlist(1,YPPsym((P)"x")); T17 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_naryQ = YPfab_met(FUNCODEREF(YgooSfunYfun_naryQ),T17,LITREF(lit_118),LITREF(lit_119),sloc(498),YPfalse); T18 = YgooSfunYfun_naryQ; VARSET(YgooSfunYfun_naryQ,T18); lit_120 = YPPsym((P)"fun-nary?-setter"); lit_121 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T19 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_naryQ_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_naryQ_setter),T19,LITREF(lit_120),LITREF(lit_121),sloc(498),YPfalse); T20 = YgooSfunYfun_naryQ_setter; VARSET(YgooSfunYfun_naryQ_setter,T20); lit_122 = YPPsym((P)"fun-arity"); lit_123 = YPPlist(1,YPPsym((P)"x")); T21 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_arity = YPfab_met(FUNCODEREF(YgooSfunYfun_arity),T21,LITREF(lit_122),LITREF(lit_123),sloc(499),YPfalse); T22 = YgooSfunYfun_arity; VARSET(YgooSfunYfun_arity,T22); lit_124 = YPPsym((P)"fun-arity-setter"); lit_125 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T23 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_arity_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_arity_setter),T23,LITREF(lit_124),LITREF(lit_125),sloc(499),YPfalse); T24 = YgooSfunYfun_arity_setter; VARSET(YgooSfunYfun_arity_setter,T24); lit_126 = YPPsym((P)"fun-val"); lit_127 = YPPlist(1,YPPsym((P)"x")); T25 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_val = YPfab_met(FUNCODEREF(YgooSfunYfun_val),T25,LITREF(lit_126),LITREF(lit_127),sloc(500),YPfalse); T26 = YgooSfunYfun_val; VARSET(YgooSfunYfun_val,T26); lit_128 = YPPsym((P)"fun-val-setter"); lit_129 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T27 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_val_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_val_setter),T27,LITREF(lit_128),LITREF(lit_129),sloc(500),YPfalse); T28 = YgooSfunYfun_val_setter; VARSET(YgooSfunYfun_val_setter,T28); lit_130 = YPPsym((P)"fun-unification-vars"); lit_131 = YPPlist(1,YPPsym((P)"x")); T29 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_unification_vars = YPfab_met(FUNCODEREF(YgooSfunYfun_unification_vars),T29,LITREF(lit_130),LITREF(lit_131),sloc(501),YPfalse); T30 = YgooSfunYfun_unification_vars; VARSET(YgooSfunYfun_unification_vars,T30); lit_132 = YPPsym((P)"fun-unification-vars-setter"); lit_133 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T31 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_unification_vars_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_unification_vars_setter),T31,LITREF(lit_132),LITREF(lit_133),sloc(501),YPfalse); T32 = YgooSfunYfun_unification_vars_setter; VARSET(YgooSfunYfun_unification_vars_setter,T32); lit_134 = YPPsym((P)"fun-name"); lit_135 = YPPlist(1,YPPsym((P)"x")); T33 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_name = YPfab_met(FUNCODEREF(YgooSfunYfun_name),T33,LITREF(lit_134),LITREF(lit_135),sloc(509),YPfalse); T34 = YgooSfunYfun_name; VARSET(YgooSfunYfun_name,T34); lit_136 = YPPsym((P)"fun-name-setter"); lit_137 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T35 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_name_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_name_setter),T35,LITREF(lit_136),LITREF(lit_137),sloc(509),YPfalse); T36 = YgooSfunYfun_name_setter; VARSET(YgooSfunYfun_name_setter,T36); lit_138 = YPPsym((P)"fun-names"); lit_139 = YPPlist(1,YPPsym((P)"x")); T37 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_names = YPfab_met(FUNCODEREF(YgooSfunYfun_names),T37,LITREF(lit_138),LITREF(lit_139),sloc(510),YPfalse); T38 = YgooSfunYfun_names; VARSET(YgooSfunYfun_names,T38); lit_140 = YPPsym((P)"fun-names-setter"); lit_141 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T39 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_names_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_names_setter),T39,LITREF(lit_140),LITREF(lit_141),sloc(510),YPfalse); T40 = YgooSfunYfun_names_setter; VARSET(YgooSfunYfun_names_setter,T40); lit_142 = YPPsym((P)"fun-src"); lit_143 = YPPlist(1,YPPsym((P)"x")); T41 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_src = YPfab_met(FUNCODEREF(YgooSfunYfun_src),T41,LITREF(lit_142),LITREF(lit_143),sloc(511),YPfalse); T42 = YgooSfunYfun_src; VARSET(YgooSfunYfun_src,T42); lit_144 = YPPsym((P)"fun-src-setter"); lit_145 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T43 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_src_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_src_setter),T43,LITREF(lit_144),LITREF(lit_145),sloc(511),YPfalse); T44 = YgooSfunYfun_src_setter; VARSET(YgooSfunYfun_src_setter,T44); lit_146 = YPPsym((P)"fun-src-loc"); lit_147 = YPPlist(1,YPPsym((P)"x")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_src_loc = YPfab_met(FUNCODEREF(YgooSfunYfun_src_loc),T45,LITREF(lit_146),LITREF(lit_147),sloc(512),YPfalse); T46 = YgooSfunYfun_src_loc; VARSET(YgooSfunYfun_src_loc,T46); lit_148 = YPPsym((P)"fun-src-loc-setter"); lit_149 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T47 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_src_loc_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_src_loc_setter),T47,LITREF(lit_148),LITREF(lit_149),sloc(512),YPfalse); T48 = YgooSfunYfun_src_loc_setter; VARSET(YgooSfunYfun_src_loc_setter,T48); lit_150 = YPPsym((P)"fun-count"); lit_151 = YPPlist(1,YPPsym((P)"x")); T49 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_count = YPfab_met(FUNCODEREF(YgooSfunYfun_count),T49,LITREF(lit_150),LITREF(lit_151),sloc(513),YPfalse); T50 = YgooSfunYfun_count; VARSET(YgooSfunYfun_count,T50); lit_152 = YPPsym((P)"fun-count-setter"); lit_153 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T51 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_count_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_count_setter),T51,LITREF(lit_152),LITREF(lit_153),sloc(513),YPfalse); T52 = YgooSfunYfun_count_setter; VARSET(YgooSfunYfun_count_setter,T52); lit_154 = YPPsym((P)"fun-inlineable?"); lit_155 = YPPlist(1,YPPsym((P)"x")); T53 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSfunYfun_inlineableQ = YPfab_met(FUNCODEREF(YgooSfunYfun_inlineableQ),T53,LITREF(lit_154),LITREF(lit_155),sloc(514),YPfalse); T54 = YgooSfunYfun_inlineableQ; VARSET(YgooSfunYfun_inlineableQ,T54); lit_156 = YPPsym((P)"fun-inlineable?-setter"); lit_157 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T55 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSfunYfun_inlineableQ_setter = YPfab_met(FUNCODEREF(YgooSfunYfun_inlineableQ_setter),T55,LITREF(lit_156),LITREF(lit_157),sloc(514),YPfalse); T56 = YgooSfunYfun_inlineableQ_setter; VARSET(YgooSfunYfun_inlineableQ_setter,T56); lit_158 = YPPsym((P)"fab-gen"); lit_159 = YPPlist(5,YPPsym((P)"specs"),YPPsym((P)"nary?"),YPPsym((P)"val"),YPPsym((P)"name"),YPPsym((P)"names")); T57 = YPfab_sig(YPPlist(5,VARREF(YLlstG),VARREF(YLlogG),VARREF(YLtypeG),VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)5),VARREF(YLgenG),Ynil); YgooSfunYfab_gen = YPfab_met(FUNCODEREF(YgooSfunYfab_gen),T57,LITREF(lit_158),LITREF(lit_159),sloc(518),YPfalse); T58 = YgooSfunYfab_gen; VARSET(YgooSfunYfab_gen,T58); lit_160 = YPPsym((P)"gen-from-met"); lit_161 = YPPlist(1,YPPsym((P)"x")); lit_162 = YPPlist(1,YPPsym((P)"x")); T60 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_90 = YPfab_met(FUNCODEREF(fun_90),T60,YPfalse,LITREF(lit_162),sloc(537),YPfalse); T59 = YPfab_sig(YPPlist(1,VARREF(YLmetG)),YPfalse,YPint((P)1),VARREF(YLgenG),Ynil); YgooSfunYgen_from_met = YPfab_met(FUNCODEREF(YgooSfunYgen_from_met),T59,LITREF(lit_160),LITREF(lit_161),sloc(536),YPfalse); T61 = YgooSfunYgen_from_met; VARSET(YgooSfunYgen_from_met,T61); lit_163 = YPPsym((P)"%define-method"); lit_164 = YPPlist(2,YPPsym((P)"gen"),YPPsym((P)"met")); T62 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLmetG)),YPfalse,YPint((P)2),VARREF(YLgenG),Ynil); YgooSfunYPdefine_method = YPfab_met(FUNCODEREF(YgooSfunYPdefine_method),T62,LITREF(lit_163),LITREF(lit_164),sloc(542),YPfalse); T63 = YgooSfunYPdefine_method; VARSET(YgooSfunYPdefine_method,T63); T64 = YPfalse; return T64; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {NULL} }; static IMPORT_INFO import_infos[] = { {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"and", PVAR, NULL}, {"@gen-cache-singletons", CVAR, &YgooSfunYOgen_cache_singletons}, {"fun-val", CVAR, &YgooSfunYfun_val}, {"@fun-mets", CVAR, &YgooSfunYOfun_mets}, {"fun-src-loc-setter", CVAR, &YgooSfunYfun_src_loc_setter}, {"@prune-mets-by-type-at", CVAR, &YgooSfunYOprune_mets_by_type_at}, {"handler-info-message", CVAR, &YgooSfunYhandler_info_message}, {"%define-method", CVAR, &YgooSfunYPdefine_method}, {"@class<", CVAR, &YgooSfunYOclassL}, {"@fun-unification-vars", CVAR, &YgooSfunYOfun_unification_vars}, {"fun-src-loc", CVAR, &YgooSfunYfun_src_loc}, {"@gen-cache-arg-pos-setter", CVAR, &YgooSfunYOgen_cache_arg_pos_setter}, {"fun-arity-setter", CVAR, &YgooSfunYfun_arity_setter}, {"prop-value-at", PVAR, NULL}, {"gen-lookup-miss-1", CVAR, &YgooSfunYgen_lookup_miss_1}, {"gen-lookup-miss-1-using", CVAR, &YgooSfunYgen_lookup_miss_1_using}, {"fun-arity", CVAR, &YgooSfunYfun_arity}, {"fun-count-setter", CVAR, &YgooSfunYfun_count_setter}, {"gen-lookup-miss", CVAR, &YgooSfunYgen_lookup_miss}, {"fun-specs", CVAR, &YgooSfunYfun_specs}, {"@fun-val", CVAR, &YgooSfunYOfun_val}, {"@order-specs", CVAR, &YgooSfunYOorder_specs}, {"$missed-dispatch", CVAR, &YgooSfunYDmissed_dispatch}, {"@gen-cache-arg-pos", CVAR, &YgooSfunYOgen_cache_arg_pos}, {"@gen-cache-singletons-setter", CVAR, &YgooSfunYOgen_cache_singletons_setter}, {"gen-from-met", CVAR, &YgooSfunYgen_from_met}, {"fun-src-setter", CVAR, &YgooSfunYfun_src_setter}, {"@mets-unspecialized-at?", CVAR, &YgooSfunYOmets_unspecialized_atQ}, {"gen-lookup-i", PVAR, NULL}, {"@fun-arity", CVAR, &YgooSfunYOfun_arity}, {"incongruent-method-error", CVAR, &YgooSfunYincongruent_method_error}, {"ord-app-mets-1", CVAR, &YgooSfunYord_app_mets_1}, {"fun-src", CVAR, &YgooSfunYfun_src}, {"gen-lookup", PVAR, NULL}, {"@precise-spec?", CVAR, &YgooSfunYOprecise_specQ}, {"ord-app-mets", CVAR, &YgooSfunYord_app_mets}, {"fun-nary?-setter", CVAR, &YgooSfunYfun_naryQ_setter}, {"@cache-add", CVAR, &YgooSfunYOcache_add}, {"@fun-nary?", CVAR, &YgooSfunYOfun_naryQ}, {"", CVAR, &YgooSfunYLspecsG}, {"met-app-unify", CVAR, &YgooSfunYmet_app_unify}, {"ensure-singleton-cache", CVAR, &YgooSfunYensure_singleton_cache}, {"@union-spec?", CVAR, &YgooSfunYOunion_specQ}, {"fun-nary?", CVAR, &YgooSfunYfun_naryQ}, {"$nul-assocs", CVAR, &YgooSfunYDnul_assocs}, {"fun-names-setter", CVAR, &YgooSfunYfun_names_setter}, {"", CVAR, &YgooSfunYLbodyG}, {"@fun-specs", CVAR, &YgooSfunYOfun_specs}, {"", CVAR, &YgooSfunYLmetsG}, {"ord-app-mets*", CVAR, &YgooSfunYord_app_metsT}, {"unless", PVAR, NULL}, {"@subclass-spec?", CVAR, &YgooSfunYOsubclass_specQ}, {"gen-add-met", CVAR, &YgooSfunYgen_add_met}, {"fun-names", CVAR, &YgooSfunYfun_names}, {"@mets-subclasses-at", CVAR, &YgooSfunYOmets_subclasses_at}, {"requires-singleton-prec", CVAR, &YgooSfunYrequires_singleton_prec}, {"def-fun/sig-accessor", PVAR, NULL}, {"fun-specs-setter", CVAR, &YgooSfunYfun_specs_setter}, {"order-mets", CVAR, &YgooSfunYorder_mets}, {"@fun-names", CVAR, &YgooSfunYOfun_names}, {"fun-unification-vars", CVAR, &YgooSfunYfun_unification_vars}, {"fab-gen", CVAR, &YgooSfunYfab_gen}, {"@singleton-spec?", CVAR, &YgooSfunYOsingleton_specQ}, {"met-app?", CVAR, &YgooSfunYmet_appQ}, {"handler-info-arguments", CVAR, &YgooSfunYhandler_info_arguments}, {"fun-congruent?", CVAR, &YgooSfunYfun_congruentQ}, {"fun-name-setter", CVAR, &YgooSfunYfun_name_setter}, {"fun-unification-vars-setter", CVAR, &YgooSfunYfun_unification_vars_setter}, {"prop-bound-at?", PVAR, NULL}, {"@specd-args", CVAR, &YgooSfunYOspecd_args}, {"", CVAR, &YgooSfunYLsimple_handler_infoG}, {"---main-1---", PVAR, NULL}, {"fun-inlineable?-setter", CVAR, &YgooSfunYfun_inlineableQ_setter}, {"fun-name", CVAR, &YgooSfunYfun_name}, {"@mets-singletons-at", CVAR, &YgooSfunYOmets_singletons_at}, {"or", PVAR, NULL}, {"method-accessor-offset", CVAR, &YgooSfunYmethod_accessor_offset}, {"fun-same-met?", CVAR, &YgooSfunYfun_same_metQ}, {"fun-inlineable?", CVAR, &YgooSfunYfun_inlineableQ}, {"gen-lookup-1i", PVAR, NULL}, {"@gen-cache-classes-setter", CVAR, &YgooSfunYOgen_cache_classes_setter}, {"choose-methods", CVAR, &YgooSfunYchoose_methods}, {"or-set", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"gen-lookup-1-using", PVAR, NULL}, {"", CVAR, &YgooSfunYLreplace_generic_restartG}, {"prop-value-at-setter", PVAR, NULL}, {"@mets-specs-at", CVAR, &YgooSfunYOmets_specs_at}, {"@gen-cache-classes", CVAR, &YgooSfunYOgen_cache_classes}, {"", CVAR, &YgooSfunYLenvG}, {"fun-spec", CVAR, &YgooSfunYfun_spec}, {"def-fun/info-accessor", PVAR, NULL}, {"fun-count", CVAR, &YgooSfunYfun_count}, {"@order-specs-class", CVAR, &YgooSfunYOorder_specs_class}, {"fun-val-setter", CVAR, &YgooSfunYfun_val_setter}, {"@fun-mets-setter", CVAR, &YgooSfunYOfun_mets_setter}, {"gen-lookup-1", PVAR, NULL}, {"when", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"fun-val", NULL}, {"@fun-mets", NULL}, {"handler-info-message", NULL}, {"%define-method", NULL}, {"@class<", NULL}, {"fun-src-loc", NULL}, {"prop-value-at", NULL}, {"fun-spec", NULL}, {"fun-arity", NULL}, {"incongruent-method-error", NULL}, {"fun-src", NULL}, {"ord-app-mets", NULL}, {"fun-nary?", NULL}, {"gen-add-met", NULL}, {"fun-names", NULL}, {"fab-gen", NULL}, {"met-app?", NULL}, {"fun-specs", NULL}, {"handler-info-arguments", NULL}, {"prop-bound-at?", NULL}, {"", NULL}, {"%dispatch", NULL}, {"fun-inlineable?-setter", NULL}, {"fun-name", NULL}, {"fun-inlineable?", NULL}, {"", NULL}, {"prop-value-at-setter", NULL}, {"fun-count-setter", NULL}, {"fun-count", NULL}, {"@order-specs-class", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSfun; MODULE_INFO module_info_gooSfun = { "goo/fun", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); /* EXPRESSION: */ extern void load_module_gooSfun (void); void load_module_gooSfun (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); (P)YgooSfunY___main_0___(); (P)YgooSfunY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/functional.c0100644000175000017500000015126507756744551015736 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/functional"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/functional */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); DEF(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); DEF(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); DEF(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); DEF(YgooSfunctionalYzipped,"goo/functional","zipped"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooSmathYcos,"goo/math","cos"); DEF(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); DEF(YgooSfunctionalYalways,"goo/functional","always"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_0); DEFLIT(lit_1); DEFLIT(lit_10); DEFLIT(lit_14); DEFLIT(lit_12); DEFLIT(lit_15); DEFLIT(lit_6); DEFLIT(lit_7); DEFLIT(lit_4); DEFLIT(lit_13); DEFLIT(lit_5); DEFLIT(lit_8); DEFLIT(lit_11); DEFLIT(lit_2); DEFLIT(lit_9); DEFLIT(lit_16); DEFLIT(lit_3); /* FUNCTIONS: */ LOCFOR(fun_identity_0); LOCFOR(fun_1); LOCFOR(fun_compose_2); LOCFOR(fun_3); LOCFOR(fun_rcurry_4); LOCFOR(fun_5); LOCFOR(fun_curry_6); LOCFOR(fun_7); LOCFOR(fun_always_8); LOCFOR(fun_9); LOCFOR(fun_zipped_10); extern P YgooSfunctionalY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_identity_0) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_1) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,args_); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_compose_2) { P fx_,fy_; P T0; LINK_STACK(); ARG(fx_, 0); ARG(fy_, 1); T0 = FUNFAB(fun_1,2,fy_,fx_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_3) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL3(1,VARREF(YgooSmacrosYcat),Ynil,args_,FREEREF(1)); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_rcurry_4) { P f_,curried_; P savedcurriedF3116; P T0,T1; LINK_STACK(); ARG(f_, 0); NARGS(curried_, 1); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),curried_); savedcurriedF3116 = T1; T0 = FUNFAB(fun_3,2,f_,savedcurriedF3116); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_5) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL3(1,VARREF(YgooSmacrosYcat),Ynil,FREEREF(1),args_); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_curry_6) { P f_,curried_; P savedcurriedF3117; P T0,T1; LINK_STACK(); ARG(f_, 0); NARGS(curried_, 1); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),curried_); savedcurriedF3117 = T1; T0 = FUNFAB(fun_5,2,f_,savedcurriedF3117); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_7) { P args_; LINK_STACK(); NARGS(args_, 0); UNLINK_STACK(); QRET(FREEREF(0)); } LOCCODEDEF(fun_always_8) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = FUNFAB(fun_7,1,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_9) { P t_; P T0; LINK_STACK(); ARG(t_, 0); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_zipped_10) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = FUNFAB(fun_9,1,x_); UNLINK_STACK(); RET(T0); } P YgooSfunctionalY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; DEFCREGS(); lit_0 = YPPsym((P)"identity"); lit_1 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_identity_0 = YPfab_met(FUNCODEREF(fun_identity_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(13),YPfalse); T2 = VARREF_OR(YgooSfunctionalYidentity,YPfalse); T3 = fun_identity_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSfunctionalYidentity,T1); lit_2 = YPPsym((P)"compose"); lit_3 = YPPlist(2,YPPsym((P)"fx"),YPPsym((P)"fy")); lit_4 = YPPlist(1,YPPsym((P)"args")); T5 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T5,YPfalse,LITREF(lit_4),sloc(16),YPfalse); T4 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLfunG),Ynil); fun_compose_2 = YPfab_met(FUNCODEREF(fun_compose_2),T4,LITREF(lit_2),LITREF(lit_3),sloc(15),YPfalse); T7 = VARREF_OR(YgooSfunctionalYcompose,YPfalse); T8 = fun_compose_2; T6 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T7,T8); VARSET(YgooSfunctionalYcompose,T6); lit_5 = YPPsym((P)"rcurry"); lit_6 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"curried")); lit_7 = YPPlist(1,YPPsym((P)"args")); T10 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T10,YPfalse,LITREF(lit_7),sloc(24),YPfalse); T9 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPtrue,YPint((P)1),VARREF(YLfunG),Ynil); fun_rcurry_4 = YPfab_met(FUNCODEREF(fun_rcurry_4),T9,LITREF(lit_5),LITREF(lit_6),sloc(22),YPfalse); T12 = VARREF_OR(YgooSfunctionalYrcurry,YPfalse); T13 = fun_rcurry_4; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSfunctionalYrcurry,T11); lit_8 = YPPsym((P)"curry"); lit_9 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"curried")); lit_10 = YPPlist(1,YPPsym((P)"args")); T15 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T15,YPfalse,LITREF(lit_10),sloc(28),YPfalse); T14 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPtrue,YPint((P)1),VARREF(YLfunG),Ynil); fun_curry_6 = YPfab_met(FUNCODEREF(fun_curry_6),T14,LITREF(lit_8),LITREF(lit_9),sloc(26),YPfalse); T17 = VARREF_OR(YgooSfunctionalYcurry,YPfalse); T18 = fun_curry_6; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YgooSfunctionalYcurry,T16); lit_11 = YPPsym((P)"always"); lit_12 = YPPlist(1,YPPsym((P)"x")); lit_13 = YPPlist(1,YPPsym((P)"args")); T20 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_7 = YPfab_met(FUNCODEREF(fun_7),T20,YPfalse,LITREF(lit_13),sloc(31),YPfalse); T19 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_always_8 = YPfab_met(FUNCODEREF(fun_always_8),T19,LITREF(lit_11),LITREF(lit_12),sloc(30),YPfalse); T22 = VARREF_OR(YgooSfunctionalYalways,YPfalse); T23 = fun_always_8; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSfunctionalYalways,T21); lit_14 = YPPsym((P)"zipped"); lit_15 = YPPlist(1,YPPsym((P)"x")); lit_16 = YPPlist(1,YPPsym((P)"t")); T25 = YPfab_sig(YPPlist(1,VARREF(YLtupG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T25,YPfalse,LITREF(lit_16),sloc(34),YPfalse); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_zipped_10 = YPfab_met(FUNCODEREF(fun_zipped_10),T24,LITREF(lit_14),LITREF(lit_15),sloc(33),YPfalse); T27 = VARREF_OR(YgooSfunctionalYzipped,YPfalse); T28 = fun_zipped_10; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooSfunctionalYzipped,T26); T29 = YPfalse; return T29; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSapp; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSapp}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmath}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"rcurry", CVAR, &YgooSfunctionalYrcurry}, {"curry", CVAR, &YgooSfunctionalYcurry}, {"compose", CVAR, &YgooSfunctionalYcompose}, {"---main-0---", PVAR, NULL}, {"zipped", CVAR, &YgooSfunctionalYzipped}, {"identity", CVAR, &YgooSfunctionalYidentity}, {"always", CVAR, &YgooSfunctionalYalways}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"curry", NULL}, {"rcurry", NULL}, {"compose", NULL}, {"zipped", NULL}, {"identity", NULL}, {"always", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSfunctional; MODULE_INFO module_info_gooSfunctional = { "goo/functional", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSapp (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmath (void); /* EXPRESSION: */ extern void load_module_gooSfunctional (void); void load_module_gooSfunctional (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSapp(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmath(); (P)YgooSfunctionalY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/late-macros.c0100644000175000017500000024034107756744551015775 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/late-macros"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/late-macros */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooSlate_macrosYTgensym_counterT,"goo/late-macros","*gensym-counter*"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_51); DEFLIT(lit_2); DEFLIT(lit_54); DEFLIT(lit_57); DEFLIT(lit_4); DEFLIT(lit_34); DEFLIT(lit_0); DEFLIT(lit_49); DEFLIT(lit_36); DEFLIT(lit_8); DEFLIT(lit_19); DEFLIT(lit_1); DEFLIT(lit_48); DEFLIT(lit_22); DEFLIT(lit_26); DEFLIT(lit_35); DEFLIT(lit_37); DEFLIT(lit_44); DEFLIT(lit_16); DEFLIT(lit_15); DEFLIT(lit_39); DEFLIT(lit_46); DEFLIT(lit_52); DEFLIT(lit_40); DEFLIT(lit_12); DEFLIT(lit_27); DEFLIT(lit_53); DEFLIT(lit_30); DEFLIT(lit_25); DEFLIT(lit_18); DEFLIT(lit_9); DEFLIT(lit_24); DEFLIT(lit_10); DEFLIT(lit_23); DEFLIT(lit_56); DEFLIT(lit_45); DEFLIT(lit_5); DEFLIT(lit_55); DEFLIT(lit_17); DEFLIT(lit_31); DEFLIT(lit_7); DEFLIT(lit_50); DEFLIT(lit_13); DEFLIT(lit_42); DEFLIT(lit_43); DEFLIT(lit_38); DEFLIT(lit_28); DEFLIT(lit_47); DEFLIT(lit_29); DEFLIT(lit_21); DEFLIT(lit_14); DEFLIT(lit_20); DEFLIT(lit_3); DEFLIT(lit_33); DEFLIT(lit_32); DEFLIT(lit_6); DEFLIT(lit_41); DEFLIT(lit_11); /* FUNCTIONS: */ LOCFOR(fun_x_1454_0); LOCFOR(fun_1); LOCFOR(fun_splice_2); LOCFOR(fun_rest_opQ_3); LOCFOR(fun_4); LOCFOR(fun_5); LOCFOR(fun_walk_op_6); LOCFOR(fun_7); LOCFOR(fun_8); FUNFOR(YgooSmacrosYmatch_nul_list); FUNFOR(YgooSmacrosYmatch_unquote); FUNFOR(YgooSmacrosYmatch_atom); FUNFOR(YgooSmacrosYmatch_sublist); LOCFOR(fun_13); LOCFOR(fun_cat_sym_14); LOCFOR(fun_gensym_15); LOCFOR(fun_fab_setter_name_16); LOCFOR(fun_var_name_17); LOCFOR(fun_var_name_18); LOCFOR(fun_var_type_19); LOCFOR(fun_var_type_20); extern P YgooSlate_macrosY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_x_1454_0) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_4),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooSmacrosYEE),x_,LITREF(lit_9)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(Ylst),LITREF(lit_10)); T4 = CALL1(1,VARREF(Ylst),LITREF(lit_11)); T5 = CALL1(1,VARREF(Ylst),LITREF(lit_12)); T2 = CALL4(1,VARREF(YgooSmacrosYcat),T3,T4,T5,LITREF(lit_13)); T0 = T2; } else { T7 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T8 = CALL1(1,VARREF(Ylst),x_); T6 = CALL3(1,VARREF(YgooSmacrosYcat),T7,T8,LITREF(lit_13)); T0 = T6; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_splice_2) { P y_; P T0,T1; LINK_STACK(); ARG(y_, 0); T1 = fun_1; T0 = CALL2(1,VARREF(YgooSmacrosYmap),T1,y_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_rest_opQ_3) { P x_; P tmpF3768; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); T3 = CALL2(1,VARREF(YisaQ),x_,VARREF(YLlstG)); if (T3 != YPfalse) { T4 = CALL2(1,VARREF(YgooStypesYanyQ),FREEREF(0),x_); T2 = T4; } else { T2 = YPfalse; } tmpF3768 = T2; if (tmpF3768 != YPfalse) { T0 = tmpF3768; } else { T1 = CALL2(1,VARREF(YgooSmacrosYEE),x_,LITREF(lit_9)); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_4) { P y_; P T0; LINK_STACK(); ARG(y_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYEE),y_,LITREF(lit_9)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P y_; P T0; LINK_STACK(); ARG(y_, 0); T0 = CALL2(1,FREEREF(1),FREEREF(0),y_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_walk_op_6) { P vars_,x_; P yF3771; P spliceQF3770; P varF3769; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(vars_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYEE),x_,LITREF(lit_19)); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooStypesYlen),vars_); T4 = CALL2(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_20),T5); varF3769 = T4; T3 = CALL1(1,VARREF(Ytail),vars_); T2 = CALL2(1,VARREF(YgooSmacrosYpair),varF3769,T3); CALL2(1,VARREF(Ytail_setter),T2,vars_); T0 = varF3769; } else { T7 = CALL2(1,VARREF(YisaQ),x_,VARREF(YLlstG)); if (T7 != YPfalse) { T21 = fun_4; T20 = CALL2(1,VARREF(YgooStypesYanyQ),T21,x_); spliceQF3770 = T20; T19 = FUNFAB(fun_5,2,vars_,FREEREF(0)); T18 = CALL2(1,VARREF(YgooSmacrosYmap),T19,x_); yF3771 = T18; if (spliceQF3770 != YPfalse) { T10 = CALL1(1,VARREF(Ylst),LITREF(lit_23)); T12 = CALL1(1,VARREF(Yhead),yF3771); T11 = CALL1(1,VARREF(Ylst),T12); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_24)); T17 = CALL1(1,VARREF(Ytail),yF3771); T16 = CALL1(1,FREEREF(1),T17); T14 = CALL3(1,VARREF(YgooSmacrosYcat),T15,T16,LITREF(lit_13)); T13 = CALL1(1,VARREF(Ylst),T14); T9 = CALL4(1,VARREF(YgooSmacrosYcat),T10,T11,T13,LITREF(lit_13)); T8 = T9; } else { T8 = yF3771; } T6 = T8; } else { if (YPtrue != YPfalse) { T22 = x_; } else { T22 = YPfalse; } T6 = T22; } T0 = T6; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_7) { P return_; P argsF3784; P exprF3783; P varsF3782; P walk_opF3781; P rest_opQF3780; P spliceF3779; P x_1453F3778; P x_1453F3777; P x_1453F3776; P argsF3775; P fF3774; P x_1453F3773; P x_1454F3772; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49; LINK_STACK(); ARG(return_, 0); T49 = FUNSHELL(0,fun_x_1454_0,2); x_1454F3772 = T49; FUNINIT(x_1454F3772, 2,FREEREF(0),return_); x_1453F3773 = FREEREF(0); fF3774 = YPfalse; argsF3775 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1453F3773,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1453F3773,LITREF(lit_4),x_1454F3772); x_1453F3776 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1453F3776,x_1454F3772); fF3774 = T4; T5 = CALL1(1,VARREF(Ytail),x_1453F3776); x_1453F3777 = T5; argsF3775 = x_1453F3777; x_1453F3778 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1453F3778,x_1454F3772); } else { T7 = CALL2(1,x_1454F3772,LITREF(lit_5),x_1453F3773); } T46 = fun_splice_2; spliceF3779 = T46; T47 = FUNSHELL(0,fun_rest_opQ_3,1); rest_opQF3780 = T47; T48 = FUNSHELL(1,fun_walk_op_6,2); walk_opF3781 = T48; FUNINIT(rest_opQF3780, 1,rest_opQF3780); FUNINIT(walk_opF3781, 2,walk_opF3781,spliceF3779); T10 = argsF3775; T9 = CALL1(1,VARREF(YgooSmacrosYnulQ),T10); if (T9 != YPfalse) { T13 = fF3774; T12 = CALL2(1,VARREF(YgooSmacrosYEE),T13,LITREF(lit_19)); if (T12 != YPfalse) { T15 = CALL1(1,VARREF(Ylst),LITREF(lit_25)); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T17 = CALL2(1,VARREF(YgooSmacrosYcat),T18,LITREF(lit_13)); T16 = CALL1(1,VARREF(Ylst),T17); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T14 = CALL4(1,VARREF(YgooSmacrosYcat),T15,T16,T19,LITREF(lit_13)); T11 = T14; } else { T21 = CALL1(1,VARREF(Ylst),LITREF(lit_25)); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_26)); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T25 = CALL3(1,VARREF(YgooSmacrosYcat),T26,T27,LITREF(lit_13)); T24 = CALL1(1,VARREF(Ylst),T25); T23 = CALL2(1,VARREF(YgooSmacrosYcat),T24,Ynil); T22 = CALL1(1,VARREF(Ylst),T23); T29 = fF3774; T28 = CALL1(1,VARREF(Ylst),T29); T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T28,LITREF(lit_13)); T11 = T20; } T8 = T11; } else { T45 = CALL2(1,VARREF(YgooSmacrosYpair),YPfalse,Ynil); varsF3782 = T45; T43 = fF3774; T42 = CALL1(1,VARREF(Ylst),T43); T44 = argsF3775; T41 = CALL3(1,VARREF(YgooSmacrosYcat),T42,T44,LITREF(lit_13)); T40 = CALL2(1,walk_opF3781,varsF3782,T41); exprF3783 = T40; T36 = CALL1(1,VARREF(Ytail),varsF3782); T35 = CALL1(1,VARREF(YgooSmacrosYrevX),T36); T39 = argsF3775; T38 = CALL1(0,rest_opQF3780,T39); if (T38 != YPfalse) { T37 = LITREF(lit_27); } else { T37 = Ynil; } T34 = CALL3(1,VARREF(YgooSmacrosYcat),T35,T37,LITREF(lit_13)); argsF3784 = T34; T31 = CALL1(1,VARREF(Ylst),LITREF(lit_25)); T32 = CALL1(1,VARREF(Ylst),argsF3784); T33 = CALL1(1,VARREF(Ylst),exprF3783); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T33,LITREF(lit_13)); T8 = T30; } UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_8) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_7,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_nul_list) { P x_,fail_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(fail_, 1); T1 = CALL1(1,VARREF(YgooScolsScolYemptyQ),x_); if (T1 != YPfalse) { T0 = x_; } else { T2 = CALL2(1,fail_,LITREF(lit_30),x_); T0 = T2; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_unquote) { P x_,fail_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(fail_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),x_); if (T1 != YPfalse) { T2 = CALL1(1,fail_,LITREF(lit_33)); T0 = T2; } else { T3 = CALL1(1,VARREF(Yhead),x_); T0 = T3; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_atom) { P x_,pat_,fail_; P expF3785; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); ARG(pat_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),x_); if (T1 != YPfalse) { T2 = CALL2(1,fail_,LITREF(lit_36),pat_); T0 = T2; } else { T7 = CALL1(1,VARREF(Yhead),x_); expF3785 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYEE),expF3785,pat_); if (T4 != YPfalse) { T5 = CALL1(1,VARREF(Ytail),x_); T3 = T5; } else { T6 = CALL3(1,fail_,LITREF(lit_37),expF3785,pat_); T3 = T6; } T0 = T3; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_sublist) { P x_,fail_; P xF3786; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(fail_, 1); T3 = CALL1(1,VARREF(Yhead),x_); xF3786 = T3; T1 = CALL2(1,VARREF(YisaQ),xF3786,VARREF(YLlstG)); if (T1 != YPfalse) { T0 = xF3786; } else { T2 = CALL2(1,fail_,LITREF(lit_40),xF3786); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_13) { P r_,e_; P T0,T1; LINK_STACK(); ARG(r_, 0); ARG(e_, 1); T1 = CALL1(1,VARREF(YgooSanyYto_str),e_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),r_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_cat_sym_14) { P x_; P T0,T1,T2; LINK_STACK(); NARGS(x_, 0); T2 = fun_13; T1 = CALL3(1,VARREF(YgooScolsScolYfold),T2,LITREF(lit_44),x_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_gensym_15) { P T0,T1,T2; LINK_STACK(); T2 = CALL2(1,VARREF(YgooSmathYA),VARREF(YgooSlate_macrosYTgensym_counterT),YPint((P)1)); T1 = VARSET(YgooSlate_macrosYTgensym_counterT,T2); T0 = CALL2(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_47),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fab_setter_name_16) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYcat_sym),x_,LITREF(lit_50)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_var_name_17) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_var_name_18) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_var_type_19) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(LITREF(lit_56)); } LOCCODEDEF(fun_var_type_20) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)1)); UNLINK_STACK(); QRET(T0); } P YgooSlate_macrosY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; DEFCREGS(); lit_0 = YPPlist(1,YPPsym((P)"exp")); lit_1 = YPPlist(1,YPPsym((P)"return")); lit_2 = YPPsym((P)"x-1454"); lit_3 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_4 = YPPsym((P)"op"); lit_5 = YPsb((P)"Match Pattern Failure"); lit_6 = YPPsym((P)"splice"); lit_7 = YPPlist(1,YPPsym((P)"y")); lit_8 = YPPlist(1,YPPsym((P)"x")); lit_9 = YPPsym((P)"..."); lit_10 = YPPsym((P)"as"); lit_11 = YPPsym((P)""); lit_12 = YPPsym((P)"_*"); lit_13 = Ynil; lit_14 = YPPsym((P)"lst"); lit_15 = YPPsym((P)"rest-op?"); lit_16 = YPPlist(1,YPPsym((P)"x")); lit_17 = YPPsym((P)"walk-op"); lit_18 = YPPlist(2,YPPsym((P)"vars"),YPPsym((P)"x")); lit_19 = YPPsym((P)"_"); lit_20 = YPsb((P)"_"); lit_21 = YPPlist(1,YPPsym((P)"y")); lit_22 = YPPlist(1,YPPsym((P)"y")); lit_23 = YPPsym((P)"app"); lit_24 = YPPsym((P)"cat!"); lit_25 = YPPsym((P)"fun"); lit_26 = YPPsym((P)"x"); lit_27 = YPPlist(1,YPPlist(2,YPPsym((P)"_*"),YPPsym((P)"..."))); T8 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1454_0 = YPfab_met(FUNCODEREF(fun_x_1454_0),T8,LITREF(lit_2),LITREF(lit_3),YPfalse,YPfalse); T7 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T7,YPfalse,LITREF(lit_8),sloc(15),YPfalse); T6 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_splice_2 = YPfab_met(FUNCODEREF(fun_splice_2),T6,LITREF(lit_6),LITREF(lit_7),sloc(14),YPfalse); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_rest_opQ_3 = YPfab_met(FUNCODEREF(fun_rest_opQ_3),T5,LITREF(lit_15),LITREF(lit_16),sloc(16),YPfalse); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_4 = YPfab_met(FUNCODEREF(fun_4),T4,YPfalse,LITREF(lit_21),sloc(24),YPfalse); T3 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T3,YPfalse,LITREF(lit_22),sloc(25),YPfalse); T2 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_walk_op_6 = YPfab_met(FUNCODEREF(fun_walk_op_6),T2,LITREF(lit_17),LITREF(lit_18),sloc(18),YPfalse); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_7 = YPfab_met(FUNCODEREF(fun_7),T1,YPfalse,LITREF(lit_1),YPfalse,YPfalse); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_8 = YPfab_met(FUNCODEREF(fun_8),T0,YPfalse,LITREF(lit_0),YPfalse,YPfalse); T9 = fun_8; YPmacro(YPPsym((P)"goo/late-macros"),YPPsym((P)"op"),T9); lit_28 = YPPsym((P)"match-nul-list"); lit_29 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fail")); lit_30 = YPsb((P)"Match Empty Failure of %="); T10 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_nul_list = YPfab_met(FUNCODEREF(YgooSmacrosYmatch_nul_list),T10,LITREF(lit_28),LITREF(lit_29),sloc(42),YPfalse); T11 = YgooSmacrosYmatch_nul_list; VARSET(YgooSmacrosYmatch_nul_list,T11); lit_31 = YPPsym((P)"match-unquote"); lit_32 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fail")); lit_33 = YPsb((P)"Match Failure Nul List on Unquote"); T12 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_unquote = YPfab_met(FUNCODEREF(YgooSmacrosYmatch_unquote),T12,LITREF(lit_31),LITREF(lit_32),sloc(47),YPfalse); T13 = YgooSmacrosYmatch_unquote; VARSET(YgooSmacrosYmatch_unquote,T13); lit_34 = YPPsym((P)"match-atom"); lit_35 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"pat"),YPPsym((P)"fail")); lit_36 = YPsb((P)"Match Failure Nul List on %="); lit_37 = YPsb((P)"Match Failure of %= on %="); T14 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_atom = YPfab_met(FUNCODEREF(YgooSmacrosYmatch_atom),T14,LITREF(lit_34),LITREF(lit_35),sloc(52),YPfalse); T15 = YgooSmacrosYmatch_atom; VARSET(YgooSmacrosYmatch_atom,T15); lit_38 = YPPsym((P)"match-sublist"); lit_39 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fail")); lit_40 = YPsb((P)"Match Failure on Sub List on %="); T16 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_sublist = YPfab_met(FUNCODEREF(YgooSmacrosYmatch_sublist),T16,LITREF(lit_38),LITREF(lit_39),sloc(60),YPfalse); T17 = YgooSmacrosYmatch_sublist; VARSET(YgooSmacrosYmatch_sublist,T17); lit_41 = YPPsym((P)"cat-sym"); lit_42 = YPPlist(1,YPPsym((P)"x")); lit_43 = YPPlist(2,YPPsym((P)"r"),YPPsym((P)"e")); lit_44 = YPsb((P)""); T19 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_13 = YPfab_met(FUNCODEREF(fun_13),T19,YPfalse,LITREF(lit_43),sloc(67),YPfalse); T18 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLsymG),Ynil); fun_cat_sym_14 = YPfab_met(FUNCODEREF(fun_cat_sym_14),T18,LITREF(lit_41),LITREF(lit_42),sloc(66),YPfalse); T21 = VARREF_OR(YgooSmacrosYcat_sym,YPfalse); T22 = fun_cat_sym_14; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YgooSmacrosYcat_sym,T20); VARSET(YgooSlate_macrosYTgensym_counterT,YPint((P)1000)); lit_45 = YPPsym((P)"gensym"); lit_46 = Ynil; lit_47 = YPsb((P)"x-"); T23 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLsymG),Ynil); fun_gensym_15 = YPfab_met(FUNCODEREF(fun_gensym_15),T23,LITREF(lit_45),LITREF(lit_46),sloc(71),YPfalse); T25 = VARREF_OR(YgooSmacrosYgensym,YPfalse); T26 = fun_gensym_15; T24 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T25,T26); VARSET(YgooSmacrosYgensym,T24); lit_48 = YPPsym((P)"fab-setter-name"); lit_49 = YPPlist(1,YPPsym((P)"x")); lit_50 = YPsb((P)"-setter"); T27 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_fab_setter_name_16 = YPfab_met(FUNCODEREF(fun_fab_setter_name_16),T27,LITREF(lit_48),LITREF(lit_49),sloc(74),YPfalse); T29 = VARREF_OR(YgooSmacrosYfab_setter_name,YPfalse); T30 = fun_fab_setter_name_16; T28 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T29,T30); VARSET(YgooSmacrosYfab_setter_name,T28); lit_51 = YPPsym((P)"var-name"); lit_52 = YPPlist(1,YPPsym((P)"x")); T31 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_name_17 = YPfab_met(FUNCODEREF(fun_var_name_17),T31,LITREF(lit_51),LITREF(lit_52),sloc(77),YPfalse); T33 = VARREF_OR(YgooSmacrosYvar_name,YPfalse); T34 = fun_var_name_17; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YgooSmacrosYvar_name,T32); lit_53 = YPPlist(1,YPPsym((P)"x")); T35 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_name_18 = YPfab_met(FUNCODEREF(fun_var_name_18),T35,LITREF(lit_51),LITREF(lit_53),sloc(79),YPfalse); T37 = VARREF_OR(YgooSmacrosYvar_name,YPfalse); T38 = fun_var_name_18; T36 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T37,T38); VARSET(YgooSmacrosYvar_name,T36); lit_54 = YPPsym((P)"var-type"); lit_55 = YPPlist(1,YPPsym((P)"x")); lit_56 = YPPsym((P)""); T39 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_type_19 = YPfab_met(FUNCODEREF(fun_var_type_19),T39,LITREF(lit_54),LITREF(lit_55),sloc(81),YPfalse); T41 = VARREF_OR(YgooSmacrosYvar_type,YPfalse); T42 = fun_var_type_19; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YgooSmacrosYvar_type,T40); lit_57 = YPPlist(1,YPPsym((P)"x")); T43 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_type_20 = YPfab_met(FUNCODEREF(fun_var_type_20),T43,LITREF(lit_54),LITREF(lit_57),sloc(83),YPfalse); T45 = VARREF_OR(YgooSmacrosYvar_type,YPfalse); T46 = fun_var_type_20; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooSmacrosYvar_type,T44); T47 = YPfalse; return T47; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScols; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsSmap; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmath}, {&module_info_gooScols}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"op", PVAR, NULL}, {"*gensym-counter*", CVAR, &YgooSlate_macrosYTgensym_counterT}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"match-atom", NULL}, {"fab-setter-name", NULL}, {"match-unquote", NULL}, {"gensym", NULL}, {"*gensym-counter*", NULL}, {"match-nul-list", NULL}, {"var-type", NULL}, {"cat-sym", NULL}, {"match-sublist", NULL}, {"op", NULL}, {"var-name", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSlate_macros; MODULE_INFO module_info_gooSlate_macros = { "goo/late-macros", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmath (void); extern void load_module_gooScols (void); /* EXPRESSION: */ extern void load_module_gooSlate_macros (void); void load_module_gooSlate_macros (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmath(); load_module_gooScols(); (P)YgooSlate_macrosY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/loc.c0100644000175000017500000013227607756744551014352 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/loc"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/loc */ EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); DEF(YgooSlocYas_c,"goo/loc","as-c"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); DEF(YgooSlocYas_goo,"goo/loc","as-goo"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(Yapp_args,"goo/boot","app-args"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); DEF(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); DEF(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_18); DEFLIT(lit_4); DEFLIT(lit_17); DEFLIT(lit_12); DEFLIT(lit_10); DEFLIT(lit_6); DEFLIT(lit_0); DEFLIT(lit_15); DEFLIT(lit_9); DEFLIT(lit_7); DEFLIT(lit_8); DEFLIT(lit_3); DEFLIT(lit_2); DEFLIT(lit_16); DEFLIT(lit_14); DEFLIT(lit_13); DEFLIT(lit_11); DEFLIT(lit_5); DEFLIT(lit_1); /* FUNCTIONS: */ FUNFOR(YgooSlocYloc_val); FUNFOR(YgooSlocYloc_val_setter); LOCFOR(fun_as_c_2); LOCFOR(fun_as_c_3); LOCFOR(fun_as_c_4); LOCFOR(fun_as_c_5); LOCFOR(fun_as_c_6); LOCFOR(fun_as_c_7); LOCFOR(fun_as_goo_8); LOCFOR(fun_as_goo_9); LOCFOR(fun_as_goo_10); LOCFOR(fun_as_goo_11); LOCFOR(fun_as_goo_12); extern P YgooSlocY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSlocYloc_val) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPloc_val(x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSlocYloc_val_setter) { P z_,x_; P T0; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T0 = (P)YPloc_val_setter(z_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_c_2) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_as_c_3) { P x_; P xF3119; P xF3118; P T0; LINK_STACK(); ARG(x_, 0); xF3118 = x_; xF3119 = xF3118; T0 = (P)YPiGG(xF3119,(P)2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_c_4) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPfu(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_c_5) { P x_; P xF3121; P xF3120; P T0; LINK_STACK(); ARG(x_, 0); xF3120 = x_; xF3121 = xF3120; T0 = (P)YPiGG(xF3121,(P)2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_c_6) { P x_; P xF3122; P T0; LINK_STACK(); ARG(x_, 0); xF3122 = x_; T0 = (P)YPuntag_into(xF3122); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_c_7) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPsu(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_goo_8) { P t_,x_; P tF3125; P xF3124; P xF3123; P T0,T1; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); xF3123 = x_; xF3124 = xF3123; tF3125 = (P)1; T1 = (P)YPiLL(xF3124,(P)2); T0 = (P)YPiv(T1,tF3125); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_goo_9) { P t_,x_; P T0; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); T0 = (P)YPfb(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_goo_10) { P t_,x_; P tF3128; P xF3127; P xF3126; P T0,T1; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); xF3126 = x_; xF3127 = xF3126; tF3128 = (P)2; T1 = (P)YPiLL(xF3127,(P)2); T0 = (P)YPiv(T1,tF3128); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_goo_11) { P t_,x_; P xF3129; P T0; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); xF3129 = x_; T0 = (P)YPtag_into(xF3129,(P)3); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_as_goo_12) { P t_,x_; P T0; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); T0 = (P)YPsb(x_); UNLINK_STACK(); QRET(T0); } P YgooSlocY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57; DEFCREGS(); lit_0 = YPPsym((P)"loc-val"); lit_1 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLlocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSlocYloc_val = YPfab_met(FUNCODEREF(YgooSlocYloc_val),T0,LITREF(lit_0),LITREF(lit_1),sloc(9),YPfalse); T1 = YgooSlocYloc_val; VARSET(YgooSlocYloc_val,T1); lit_2 = YPPsym((P)"loc-val-setter"); lit_3 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T2 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlocG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSlocYloc_val_setter = YPfab_met(FUNCODEREF(YgooSlocYloc_val_setter),T2,LITREF(lit_2),LITREF(lit_3),sloc(12),YPfalse); T3 = YgooSlocYloc_val_setter; VARSET(YgooSlocYloc_val_setter,T3); lit_4 = YPPsym((P)"as-c"); lit_5 = YPPlist(1,YPPsym((P)"x")); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSlocYas_c,T4); lit_6 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_c_2 = YPfab_met(FUNCODEREF(fun_as_c_2),T6,LITREF(lit_4),LITREF(lit_6),sloc(19),YPfalse); T8 = VARREF_OR(YgooSlocYas_c,YPfalse); T9 = fun_as_c_2; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSlocYas_c,T7); lit_7 = YPPlist(1,YPPsym((P)"x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_c_3 = YPfab_met(FUNCODEREF(fun_as_c_3),T10,LITREF(lit_4),LITREF(lit_7),sloc(20),YPfalse); T12 = VARREF_OR(YgooSlocYas_c,YPfalse); T13 = fun_as_c_3; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSlocYas_c,T11); lit_8 = YPPlist(1,YPPsym((P)"x")); T14 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_c_4 = YPfab_met(FUNCODEREF(fun_as_c_4),T14,LITREF(lit_4),LITREF(lit_8),sloc(21),YPfalse); T16 = VARREF_OR(YgooSlocYas_c,YPfalse); T17 = fun_as_c_4; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSlocYas_c,T15); lit_9 = YPPlist(1,YPPsym((P)"x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_c_5 = YPfab_met(FUNCODEREF(fun_as_c_5),T18,LITREF(lit_4),LITREF(lit_9),sloc(22),YPfalse); T20 = VARREF_OR(YgooSlocYas_c,YPfalse); T21 = fun_as_c_5; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooSlocYas_c,T19); lit_10 = YPPlist(1,YPPsym((P)"x")); T22 = YPfab_sig(YPPlist(1,VARREF(YLlocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_c_6 = YPfab_met(FUNCODEREF(fun_as_c_6),T22,LITREF(lit_4),LITREF(lit_10),sloc(23),YPfalse); T24 = VARREF_OR(YgooSlocYas_c,YPfalse); T25 = fun_as_c_6; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSlocYas_c,T23); lit_11 = YPPlist(1,YPPsym((P)"x")); T26 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_c_7 = YPfab_met(FUNCODEREF(fun_as_c_7),T26,LITREF(lit_4),LITREF(lit_11),sloc(24),YPfalse); T28 = VARREF_OR(YgooSlocYas_c,YPfalse); T29 = fun_as_c_7; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSlocYas_c,T27); lit_12 = YPPsym((P)"as-goo"); lit_13 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T31 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T30 = YPfab_gen(T31,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooSlocYas_goo,T30); lit_14 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T33 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLintG)); T32 = YPfab_sig(YPPlist(2,T33,VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_as_goo_8 = YPfab_met(FUNCODEREF(fun_as_goo_8),T32,LITREF(lit_12),LITREF(lit_14),sloc(27),YPfalse); T35 = VARREF_OR(YgooSlocYas_goo,YPfalse); T36 = fun_as_goo_8; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooSlocYas_goo,T34); lit_15 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T38 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLfloG)); T37 = YPfab_sig(YPPlist(2,T38,VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_as_goo_9 = YPfab_met(FUNCODEREF(fun_as_goo_9),T37,LITREF(lit_12),LITREF(lit_15),sloc(28),YPfalse); T40 = VARREF_OR(YgooSlocYas_goo,YPfalse); T41 = fun_as_goo_9; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSlocYas_goo,T39); lit_16 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T43 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLchrG)); T42 = YPfab_sig(YPPlist(2,T43,VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_as_goo_10 = YPfab_met(FUNCODEREF(fun_as_goo_10),T42,LITREF(lit_12),LITREF(lit_16),sloc(29),YPfalse); T45 = VARREF_OR(YgooSlocYas_goo,YPfalse); T46 = fun_as_goo_10; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooSlocYas_goo,T44); lit_17 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T48 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLlocG)); T47 = YPfab_sig(YPPlist(2,T48,VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_as_goo_11 = YPfab_met(FUNCODEREF(fun_as_goo_11),T47,LITREF(lit_12),LITREF(lit_17),sloc(30),YPfalse); T50 = VARREF_OR(YgooSlocYas_goo,YPfalse); T51 = fun_as_goo_11; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooSlocYas_goo,T49); lit_18 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T53 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLstrG)); T52 = YPfab_sig(YPPlist(2,T53,VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_as_goo_12 = YPfab_met(FUNCODEREF(fun_as_goo_12),T52,LITREF(lit_12),LITREF(lit_18),sloc(31),YPfalse); T55 = VARREF_OR(YgooSlocYas_goo,YPfalse); T56 = fun_as_goo_12; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YgooSlocYas_goo,T54); T57 = YPfalse; return T57; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmacros; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooStypes}, {NULL} }; static IMPORT_INFO import_infos[] = { {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"as-c", CVAR, &YgooSlocYas_c}, {"as-goo", CVAR, &YgooSlocYas_goo}, {"loc-val", CVAR, &YgooSlocYloc_val}, {"loc-val-setter", CVAR, &YgooSlocYloc_val_setter}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"as-c", NULL}, {"as-goo", NULL}, {"loc-val-setter", NULL}, {"loc-val", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSloc; MODULE_INFO module_info_gooSloc = { "goo/loc", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooStypes (void); /* EXPRESSION: */ extern void load_module_gooSloc (void); void load_module_gooSloc (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooStypes(); (P)YgooSlocY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/log.c0100644000175000017500000013446607756744551014361 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/log"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/log */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); DEF(YgooSlogYas_log,"goo/log","as-log"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); DEF(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); DEF(YgooSlogYNE,"goo/log","~="); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); DEF(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_2); DEFLIT(lit_5); DEFLIT(lit_10); DEFLIT(lit_13); DEFLIT(lit_17); DEFLIT(lit_8); DEFLIT(lit_14); DEFLIT(lit_3); DEFLIT(lit_11); DEFLIT(lit_6); DEFLIT(lit_15); DEFLIT(lit_1); DEFLIT(lit_12); DEFLIT(lit_4); DEFLIT(lit_16); DEFLIT(lit_0); DEFLIT(lit_9); DEFLIT(lit_7); /* FUNCTIONS: */ FUNFOR(YgooSlogYas_log); LOCFOR(fun_EE_1); LOCFOR(fun_E_2); LOCFOR(fun_NE_3); LOCFOR(fun_NEE_4); LOCFOR(fun_to_str_5); LOCFOR(fun_to_str_6); extern P YgooSlogY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSlogYas_log) { P x_; P T0; LINK_STACK(); ARG(x_, 0); if (x_ != YPfalse) { T0 = YPtrue; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_EE_1) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = (P)YPeqQ(x_,y_); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_E_2) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL2(1,VARREF(YgooSmacrosYEE),x_,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_NE_3) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSlogYE),x_,y_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_NEE_4) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYEE),x_,y_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_5) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(LITREF(lit_15)); } LOCCODEDEF(fun_to_str_6) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(LITREF(lit_17)); } P YgooSlogY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36; DEFCREGS(); lit_0 = YPPsym((P)"="); lit_1 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T1 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSlogYE,T0); lit_2 = YPPsym((P)"~="); lit_3 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T3 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSlogYNE,T2); lit_4 = YPPsym((P)"~=="); lit_5 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T5 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSlogYNEE,T4); lit_6 = YPPsym((P)"as-log"); lit_7 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YgooSlogYas_log = YPfab_met(FUNCODEREF(YgooSlogYas_log),T6,LITREF(lit_6),LITREF(lit_7),sloc(19),YPfalse); T7 = YgooSlogYas_log; VARSET(YgooSlogYas_log,T7); lit_8 = YPPsym((P)"=="); lit_9 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T8 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_EE_1 = YPfab_met(FUNCODEREF(fun_EE_1),T8,LITREF(lit_8),LITREF(lit_9),sloc(23),YPfalse); T10 = VARREF_OR(YgooSmacrosYEE,YPfalse); T11 = fun_EE_1; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooSmacrosYEE,T9); lit_10 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T12 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_E_2 = YPfab_met(FUNCODEREF(fun_E_2),T12,LITREF(lit_0),LITREF(lit_10),sloc(25),YPfalse); T14 = VARREF_OR(YgooSlogYE,YPfalse); T15 = fun_E_2; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSlogYE,T13); lit_11 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T16 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_NE_3 = YPfab_met(FUNCODEREF(fun_NE_3),T16,LITREF(lit_2),LITREF(lit_11),sloc(27),YPfalse); T18 = VARREF_OR(YgooSlogYNE,YPfalse); T19 = fun_NE_3; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSlogYNE,T17); lit_12 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T20 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_NEE_4 = YPfab_met(FUNCODEREF(fun_NEE_4),T20,LITREF(lit_4),LITREF(lit_12),sloc(30),YPfalse); T22 = VARREF_OR(YgooSlogYNEE,YPfalse); T23 = fun_NEE_4; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSlogYNEE,T21); lit_13 = YPPsym((P)"to-str"); lit_14 = YPPlist(1,YPPsym((P)"x")); lit_15 = YPsb((P)"#t"); T25 = XCALL1(1,VARREF(YgooStypesYtE),YPtrue); T24 = YPfab_sig(YPPlist(1,T25),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_5 = YPfab_met(FUNCODEREF(fun_to_str_5),T24,LITREF(lit_13),LITREF(lit_14),sloc(33),YPfalse); T27 = VARREF_OR(YgooSanyYto_str,YPfalse); T28 = fun_to_str_5; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooSanyYto_str,T26); lit_16 = YPPlist(1,YPPsym((P)"x")); lit_17 = YPsb((P)"#f"); T32 = XCALL1(1,VARREF(YgooStypesYtE),YPfalse); T31 = YPfab_sig(YPPlist(1,T32),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T30 = fun_to_str_6 = YPfab_met(FUNCODEREF(fun_to_str_6),T31,LITREF(lit_13),LITREF(lit_16),sloc(35),YPfalse); T35 = VARREF_OR(YgooSanyYto_str,YPfalse); T36 = fun_to_str_6; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); T33 = VARSET(YgooSanyYto_str,T34); T29 = T33; return T29; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmag}, {&module_info_gooStypes}, {&module_info_gooSany}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"as-log", CVAR, &YgooSlogYas_log}, {"~==", CVAR, &YgooSlogYNEE}, {"~=", CVAR, &YgooSlogYNE}, {"---main-0---", PVAR, NULL}, {"=", CVAR, &YgooSlogYE}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"as-log", NULL}, {"~==", NULL}, {"~=", NULL}, {"=", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSlog; MODULE_INFO module_info_gooSlog = { "goo/log", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmag (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); /* EXPRESSION: */ extern void load_module_gooSlog (void); void load_module_gooSlog (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmag(); load_module_gooStypes(); load_module_gooSany(); (P)YgooSlogY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/macros.c0100644000175000017500000062007707756744551015062 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/macros"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/macros */ DEF(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); DEF(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); DEF(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(Yfun_mets,"goo/boot","fun-mets"); DEF(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); DEF(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); DEF(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); DEF(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); DEF(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); DEF(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YLlstG,"goo/boot",""); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); DEF(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); DEF(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); DEF(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); DEF(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); DEF(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); DEF(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); DEF(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); DEF(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); DEF(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); DEF(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YLunionG,"goo/boot",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); DEF(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); DEF(YgooSmacrosYdo_case_by,"goo/macros","do-case-by"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); DEF(YgooSmacrosYlast,"goo/macros","last"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); DEF(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); DEF(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); DEF(YgooSmacrosYdo,"goo/macros","do"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_86); DEFLIT(lit_240); DEFLIT(lit_29); DEFLIT(lit_212); DEFLIT(lit_41); DEFLIT(lit_76); DEFLIT(lit_194); DEFLIT(lit_266); DEFLIT(lit_31); DEFLIT(lit_184); DEFLIT(lit_200); DEFLIT(lit_130); DEFLIT(lit_95); DEFLIT(lit_32); DEFLIT(lit_63); DEFLIT(lit_21); DEFLIT(lit_250); DEFLIT(lit_151); DEFLIT(lit_4); DEFLIT(lit_154); DEFLIT(lit_85); DEFLIT(lit_81); DEFLIT(lit_229); DEFLIT(lit_53); DEFLIT(lit_236); DEFLIT(lit_48); DEFLIT(lit_244); DEFLIT(lit_239); DEFLIT(lit_267); DEFLIT(lit_237); DEFLIT(lit_65); DEFLIT(lit_62); DEFLIT(lit_66); DEFLIT(lit_159); DEFLIT(lit_90); DEFLIT(lit_56); DEFLIT(lit_140); DEFLIT(lit_11); DEFLIT(lit_96); DEFLIT(lit_169); DEFLIT(lit_40); DEFLIT(lit_120); DEFLIT(lit_183); DEFLIT(lit_241); DEFLIT(lit_67); DEFLIT(lit_188); DEFLIT(lit_17); DEFLIT(lit_278); DEFLIT(lit_127); DEFLIT(lit_186); DEFLIT(lit_253); DEFLIT(lit_51); DEFLIT(lit_133); DEFLIT(lit_152); DEFLIT(lit_279); DEFLIT(lit_210); DEFLIT(lit_101); DEFLIT(lit_201); DEFLIT(lit_191); DEFLIT(lit_277); DEFLIT(lit_73); DEFLIT(lit_282); DEFLIT(lit_50); DEFLIT(lit_2); DEFLIT(lit_258); DEFLIT(lit_24); DEFLIT(lit_64); DEFLIT(lit_255); DEFLIT(lit_249); DEFLIT(lit_274); DEFLIT(lit_202); DEFLIT(lit_34); DEFLIT(lit_28); DEFLIT(lit_223); DEFLIT(lit_142); DEFLIT(lit_103); DEFLIT(lit_113); DEFLIT(lit_160); DEFLIT(lit_30); DEFLIT(lit_243); DEFLIT(lit_189); DEFLIT(lit_25); DEFLIT(lit_256); DEFLIT(lit_220); DEFLIT(lit_204); DEFLIT(lit_206); DEFLIT(lit_164); DEFLIT(lit_111); DEFLIT(lit_47); DEFLIT(lit_99); DEFLIT(lit_193); DEFLIT(lit_172); DEFLIT(lit_234); DEFLIT(lit_235); DEFLIT(lit_192); DEFLIT(lit_228); DEFLIT(lit_105); DEFLIT(lit_283); DEFLIT(lit_214); DEFLIT(lit_7); DEFLIT(lit_37); DEFLIT(lit_238); DEFLIT(lit_257); DEFLIT(lit_60); DEFLIT(lit_281); DEFLIT(lit_171); DEFLIT(lit_209); DEFLIT(lit_84); DEFLIT(lit_225); DEFLIT(lit_145); DEFLIT(lit_1); DEFLIT(lit_126); DEFLIT(lit_77); DEFLIT(lit_137); DEFLIT(lit_149); DEFLIT(lit_153); DEFLIT(lit_144); DEFLIT(lit_242); DEFLIT(lit_93); DEFLIT(lit_285); DEFLIT(lit_146); DEFLIT(lit_177); DEFLIT(lit_161); DEFLIT(lit_221); DEFLIT(lit_233); DEFLIT(lit_158); DEFLIT(lit_14); DEFLIT(lit_141); DEFLIT(lit_92); DEFLIT(lit_187); DEFLIT(lit_131); DEFLIT(lit_262); DEFLIT(lit_199); DEFLIT(lit_269); DEFLIT(lit_55); DEFLIT(lit_248); DEFLIT(lit_222); DEFLIT(lit_207); DEFLIT(lit_167); DEFLIT(lit_173); DEFLIT(lit_165); DEFLIT(lit_13); DEFLIT(lit_36); DEFLIT(lit_42); DEFLIT(lit_219); DEFLIT(lit_116); DEFLIT(lit_104); DEFLIT(lit_91); DEFLIT(lit_147); DEFLIT(lit_179); DEFLIT(lit_61); DEFLIT(lit_272); DEFLIT(lit_251); DEFLIT(lit_5); DEFLIT(lit_89); DEFLIT(lit_180); DEFLIT(lit_245); DEFLIT(lit_270); DEFLIT(lit_138); DEFLIT(lit_80); DEFLIT(lit_19); DEFLIT(lit_195); DEFLIT(lit_254); DEFLIT(lit_8); DEFLIT(lit_16); DEFLIT(lit_33); DEFLIT(lit_74); DEFLIT(lit_213); DEFLIT(lit_224); DEFLIT(lit_59); DEFLIT(lit_247); DEFLIT(lit_182); DEFLIT(lit_125); DEFLIT(lit_15); DEFLIT(lit_35); DEFLIT(lit_26); DEFLIT(lit_218); DEFLIT(lit_107); DEFLIT(lit_286); DEFLIT(lit_79); DEFLIT(lit_70); DEFLIT(lit_168); DEFLIT(lit_181); DEFLIT(lit_170); DEFLIT(lit_58); DEFLIT(lit_123); DEFLIT(lit_71); DEFLIT(lit_114); DEFLIT(lit_205); DEFLIT(lit_232); DEFLIT(lit_115); DEFLIT(lit_57); DEFLIT(lit_119); DEFLIT(lit_46); DEFLIT(lit_215); DEFLIT(lit_216); DEFLIT(lit_268); DEFLIT(lit_134); DEFLIT(lit_112); DEFLIT(lit_78); DEFLIT(lit_38); DEFLIT(lit_163); DEFLIT(lit_44); DEFLIT(lit_157); DEFLIT(lit_12); DEFLIT(lit_176); DEFLIT(lit_231); DEFLIT(lit_23); DEFLIT(lit_39); DEFLIT(lit_82); DEFLIT(lit_143); DEFLIT(lit_135); DEFLIT(lit_88); DEFLIT(lit_0); DEFLIT(lit_68); DEFLIT(lit_148); DEFLIT(lit_198); DEFLIT(lit_18); DEFLIT(lit_174); DEFLIT(lit_27); DEFLIT(lit_265); DEFLIT(lit_226); DEFLIT(lit_45); DEFLIT(lit_124); DEFLIT(lit_108); DEFLIT(lit_10); DEFLIT(lit_230); DEFLIT(lit_139); DEFLIT(lit_117); DEFLIT(lit_217); DEFLIT(lit_129); DEFLIT(lit_178); DEFLIT(lit_128); DEFLIT(lit_156); DEFLIT(lit_150); DEFLIT(lit_284); DEFLIT(lit_69); DEFLIT(lit_52); DEFLIT(lit_100); DEFLIT(lit_110); DEFLIT(lit_197); DEFLIT(lit_155); DEFLIT(lit_136); DEFLIT(lit_9); DEFLIT(lit_190); DEFLIT(lit_273); DEFLIT(lit_227); DEFLIT(lit_102); DEFLIT(lit_118); DEFLIT(lit_94); DEFLIT(lit_260); DEFLIT(lit_261); DEFLIT(lit_3); DEFLIT(lit_263); DEFLIT(lit_75); DEFLIT(lit_252); DEFLIT(lit_121); DEFLIT(lit_98); DEFLIT(lit_280); DEFLIT(lit_196); DEFLIT(lit_211); DEFLIT(lit_20); DEFLIT(lit_271); DEFLIT(lit_259); DEFLIT(lit_175); DEFLIT(lit_109); DEFLIT(lit_122); DEFLIT(lit_87); DEFLIT(lit_132); DEFLIT(lit_72); DEFLIT(lit_276); DEFLIT(lit_203); DEFLIT(lit_162); DEFLIT(lit_246); DEFLIT(lit_83); DEFLIT(lit_43); DEFLIT(lit_208); DEFLIT(lit_106); DEFLIT(lit_97); DEFLIT(lit_166); DEFLIT(lit_185); DEFLIT(lit_49); DEFLIT(lit_54); DEFLIT(lit_22); DEFLIT(lit_6); DEFLIT(lit_264); DEFLIT(lit_275); /* FUNCTIONS: */ FUNFOR(YgooSmacrosYOchecked_next_methods); LOCFOR(fun_x_1112_1); LOCFOR(fun_2); LOCFOR(fun_3); LOCFOR(fun_x_1116_4); LOCFOR(fun_5); LOCFOR(fun_6); LOCFOR(fun_x_1120_7); LOCFOR(fun_8); LOCFOR(fun_9); LOCFOR(fun_x_1124_10); LOCFOR(fun_11); LOCFOR(fun_12); LOCFOR(fun_munch_13); FUNFOR(YgooSmacrosYlift_place_subforms); LOCFOR(fun_x_1130_15); LOCFOR(fun_x_1132_16); LOCFOR(fun_17); LOCFOR(fun_18); LOCFOR(fun_19); LOCFOR(fun_x_1138_20); LOCFOR(fun_x_1140_21); LOCFOR(fun_22); LOCFOR(fun_23); LOCFOR(fun_24); LOCFOR(fun_x_1144_25); LOCFOR(fun_26); LOCFOR(fun_27); LOCFOR(fun_x_1148_28); LOCFOR(fun_29); LOCFOR(fun_30); LOCFOR(fun_x_1152_31); LOCFOR(fun_32); LOCFOR(fun_33); LOCFOR(fun_34); LOCFOR(fun_35); LOCFOR(fun_36); LOCFOR(fun_x_1156_37); LOCFOR(fun_38); LOCFOR(fun_39); LOCFOR(fun_x_1160_40); LOCFOR(fun_41); LOCFOR(fun_42); LOCFOR(fun_x_1164_43); LOCFOR(fun_44); LOCFOR(fun_45); LOCFOR(fun_x_1168_46); LOCFOR(fun_47); LOCFOR(fun_48); LOCFOR(fun_x_1172_49); LOCFOR(fun_50); LOCFOR(fun_51); LOCFOR(fun_x_1180_52); LOCFOR(fun_x_1182_53); LOCFOR(fun_x_1184_54); LOCFOR(fun_55); LOCFOR(fun_56); LOCFOR(fun_57); LOCFOR(fun_58); LOCFOR(fun_x_1192_59); LOCFOR(fun_x_1194_60); LOCFOR(fun_x_1196_61); LOCFOR(fun_62); LOCFOR(fun_63); LOCFOR(fun_64); LOCFOR(fun_65); LOCFOR(fun_x_1202_66); LOCFOR(fun_x_1204_67); LOCFOR(fun_68); LOCFOR(fun_69); LOCFOR(fun_70); LOCFOR(fun_x_1210_71); LOCFOR(fun_x_1212_72); LOCFOR(fun_73); LOCFOR(fun_74); LOCFOR(fun_75); FUNFOR(YgooSmacrosYdo_case_by); LOCFOR(fun_x_1216_77); LOCFOR(fun_78); LOCFOR(fun_79); LOCFOR(fun_x_1220_80); LOCFOR(fun_81); LOCFOR(fun_82); LOCFOR(fun_x_1228_83); LOCFOR(fun_x_1232_84); LOCFOR(fun_85); LOCFOR(fun_x_1230_86); LOCFOR(fun_87); LOCFOR(fun_88); LOCFOR(fun_89); LOCFOR(fun_x_1236_90); LOCFOR(fun_91); LOCFOR(fun_92); LOCFOR(fun_x_1244_93); LOCFOR(fun_x_1246_94); LOCFOR(fun_x_1248_95); LOCFOR(fun_96); LOCFOR(fun_97); LOCFOR(fun_grok_98); LOCFOR(fun_99); LOCFOR(fun_100); LOCFOR(fun_x_1252_101); LOCFOR(fun_102); LOCFOR(fun_103); LOCFOR(fun_x_1256_104); LOCFOR(fun_105); LOCFOR(fun_106); LOCFOR(fun_x_1266_107); LOCFOR(fun_x_1272_108); LOCFOR(fun_109); LOCFOR(fun_x_1269_110); LOCFOR(fun_111); LOCFOR(fun_112); LOCFOR(fun_113); LOCFOR(fun_x_1276_114); LOCFOR(fun_115); LOCFOR(fun_116); LOCFOR(fun_x_1280_117); LOCFOR(fun_118); LOCFOR(fun_119); LOCFOR(fun_x_1284_120); LOCFOR(fun_121); LOCFOR(fun_122); LOCFOR(fun_x_1312_123); LOCFOR(fun_x_1336_124); LOCFOR(fun_125); LOCFOR(fun_x_1333_126); LOCFOR(fun_127); LOCFOR(fun_x_1330_128); LOCFOR(fun_129); LOCFOR(fun_x_1327_130); LOCFOR(fun_131); LOCFOR(fun_x_1324_132); LOCFOR(fun_133); LOCFOR(fun_x_1321_134); LOCFOR(fun_135); LOCFOR(fun_x_1318_136); LOCFOR(fun_137); LOCFOR(fun_x_1315_138); LOCFOR(fun_139); LOCFOR(fun_140); LOCFOR(fun_141); LOCFOR(fun_x_1340_142); LOCFOR(fun_143); LOCFOR(fun_144); LOCFOR(fun_145); extern P YgooSmacrosY___main_0___ (); extern P YgooSmacrosY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSmacrosYOchecked_next_methods) { P met_,nxt_mets_,args_; P yF2087; P xF2086; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(met_, 0); ARG(nxt_mets_, 1); NARGS(args_, 2); if (nxt_mets_ != YPfalse) { xF2086 = nxt_mets_; yF2087 = Ynil; T3 = (P)YPeqQ(xF2086,yF2087); T2 = (P)YPbb(T3); if (T3) { T4 = CALL2(1,VARREF(Yno_next_methods_error),met_,args_); T1 = T4; } else { T1 = nxt_mets_; } T0 = T1; } else { T5 = CALL2(1,VARREF(Yno_next_methods_error),met_,args_); T0 = T5; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1112_1) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_6),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_2) { P return_; P x_1111F2092; P x_1111F2091; P argsF2090; P x_1111F2089; P x_1112F2088; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38; LINK_STACK(); ARG(return_, 0); T38 = FUNSHELL(0,fun_x_1112_1,2); x_1112F2088 = T38; FUNINIT(x_1112F2088, 2,FREEREF(0),return_); x_1111F2089 = FREEREF(0); argsF2090 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1111F2089,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1111F2089,LITREF(lit_6),x_1112F2088); x_1111F2091 = T3; argsF2090 = x_1111F2091; x_1111F2092 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1111F2092,x_1112F2088); } else { T4 = CALL2(1,x_1112F2088,LITREF(lit_7),x_1111F2089); } T6 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_0)); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_10)); T16 = CALL2(1,VARREF(YgooSmacrosYcat),T17,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_12)); T19 = CALL2(1,VARREF(YgooSmacrosYcat),T20,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T21 = argsF2090; T13 = CALL5(1,VARREF(YgooSmacrosYcat),T14,T15,T18,T21,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_11)); T9 = CALL1(1,VARREF(Ylst),T10); T8 = CALL2(1,VARREF(YgooSmacrosYcat),T9,LITREF(lit_11)); T7 = CALL1(1,VARREF(Ylst),T8); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_13)); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T26 = CALL3(1,VARREF(YgooSmacrosYcat),T27,T28,LITREF(lit_11)); T25 = CALL1(1,VARREF(Ylst),T26); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T30 = CALL3(1,VARREF(YgooSmacrosYcat),T31,T32,LITREF(lit_11)); T29 = CALL1(1,VARREF(Ylst),T30); T33 = argsF2090; T36 = CALL1(1,VARREF(Ylst),LITREF(lit_16)); T37 = CALL1(1,VARREF(Ylst),Ynil); T35 = CALL3(1,VARREF(YgooSmacrosYcat),T36,T37,Ynil); T34 = CALL1(1,VARREF(Ylst),T35); T23 = CALLN(1,VARREF(YgooSmacrosYcat),6,T24,T25,T29,T33,T34,LITREF(lit_11)); T22 = CALL1(1,VARREF(Ylst),T23); T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T22,LITREF(lit_11)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_3) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_2,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1116_4) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_21),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P return_; P x_1115F2097; P x_1115F2096; P argsF2095; P x_1115F2094; P x_1116F2093; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(return_, 0); T34 = FUNSHELL(0,fun_x_1116_4,2); x_1116F2093 = T34; FUNINIT(x_1116F2093, 2,FREEREF(0),return_); x_1115F2094 = FREEREF(0); argsF2095 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1115F2094,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1115F2094,LITREF(lit_21),x_1116F2093); x_1115F2096 = T3; argsF2095 = x_1115F2096; x_1115F2097 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1115F2097,x_1116F2093); } else { T4 = CALL2(1,x_1116F2093,LITREF(lit_7),x_1115F2094); } T6 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_0)); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_10)); T16 = CALL2(1,VARREF(YgooSmacrosYcat),T17,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_12)); T19 = CALL2(1,VARREF(YgooSmacrosYcat),T20,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T21 = argsF2095; T13 = CALL5(1,VARREF(YgooSmacrosYcat),T14,T15,T18,T21,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_11)); T9 = CALL1(1,VARREF(Ylst),T10); T8 = CALL2(1,VARREF(YgooSmacrosYcat),T9,LITREF(lit_11)); T7 = CALL1(1,VARREF(Ylst),T8); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_13)); T27 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T26 = CALL3(1,VARREF(YgooSmacrosYcat),T27,T28,LITREF(lit_11)); T25 = CALL1(1,VARREF(Ylst),T26); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_15)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_9)); T30 = CALL3(1,VARREF(YgooSmacrosYcat),T31,T32,LITREF(lit_11)); T29 = CALL1(1,VARREF(Ylst),T30); T33 = argsF2095; T23 = CALL5(1,VARREF(YgooSmacrosYcat),T24,T25,T29,T33,LITREF(lit_11)); T22 = CALL1(1,VARREF(Ylst),T23); T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T22,LITREF(lit_11)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_6) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_5,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1120_7) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_26),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_8) { P return_; P x_1119F2104; P x_1119F2103; P x_1119F2102; P argsF2101; P fF2100; P x_1119F2099; P x_1120F2098; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(return_, 0); T14 = FUNSHELL(0,fun_x_1120_7,2); x_1120F2098 = T14; FUNINIT(x_1120F2098, 2,FREEREF(0),return_); x_1119F2099 = FREEREF(0); fF2100 = YPfalse; argsF2101 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1119F2099,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1119F2099,LITREF(lit_26),x_1120F2098); x_1119F2102 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1119F2102,x_1120F2098); fF2100 = T4; T5 = CALL1(1,VARREF(Ytail),x_1119F2102); x_1119F2103 = T5; argsF2101 = x_1119F2103; x_1119F2104 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1119F2104,x_1120F2098); } else { T7 = CALL2(1,x_1120F2098,LITREF(lit_7),x_1119F2099); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_13)); T11 = fF2100; T10 = CALL1(1,VARREF(Ylst),T11); T12 = CALL1(1,VARREF(Ylst),YPfalse); T13 = argsF2101; T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T12,T13,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_9) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_8,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1124_10) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_31),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_11) { P return_; P setsF2116; P valF2115; P initsF2114; P setsF2113; P varF2112; P x_1123F2111; P x_1123F2110; P x_1123F2109; P prop_initsF2108; P xF2107; P x_1123F2106; P x_1124F2105; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37; LINK_STACK(); ARG(return_, 0); T37 = FUNSHELL(0,fun_x_1124_10,2); x_1124F2105 = T37; FUNINIT(x_1124F2105, 2,FREEREF(0),return_); x_1123F2106 = FREEREF(0); xF2107 = YPfalse; prop_initsF2108 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1123F2106,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1123F2106,LITREF(lit_31),x_1124F2105); x_1123F2109 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1123F2109,x_1124F2105); xF2107 = T4; T5 = CALL1(1,VARREF(Ytail),x_1123F2109); x_1123F2110 = T5; prop_initsF2108 = x_1123F2110; x_1123F2111 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1123F2111,x_1124F2105); } else { T7 = CALL2(1,x_1124F2105,LITREF(lit_7),x_1123F2106); } T36 = CALL0(1,VARREF(YgooSmacrosYgensym)); varF2112 = T36; setsF2113 = Ynil; T35 = prop_initsF2108; initsF2114 = T35; LOOP_49: { P a49_0,a49_1; T19 = CALL1(1,VARREF(YgooSmacrosYnulQ),initsF2114); if (T19 != YPfalse) { T20 = CALL1(1,VARREF(YgooSmacrosYrevX),setsF2113); T18 = T20; } else { T34 = CALL1(1,VARREF(Ytail),initsF2114); T33 = CALL1(1,VARREF(Yhead),T34); valF2115 = T33; T24 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T28 = CALL1(1,VARREF(Yhead),initsF2114); T27 = CALL1(1,VARREF(Ylst),T28); T29 = CALL1(1,VARREF(Ylst),varF2112); T26 = CALL3(1,VARREF(YgooSmacrosYcat),T27,T29,LITREF(lit_11)); T25 = CALL1(1,VARREF(Ylst),T26); T30 = CALL1(1,VARREF(Ylst),valF2115); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T30,LITREF(lit_11)); T22 = CALL2(1,VARREF(YgooSmacrosYpair),T23,setsF2113); T32 = CALL1(1,VARREF(Ytail),initsF2114); T31 = CALL1(1,VARREF(Ytail),T32); a49_0 = T22; a49_1 = T31; setsF2113 = a49_0; initsF2114 = a49_1; goto LOOP_49; T18 = T21; } } setsF2116 = T18; T9 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T14 = CALL1(1,VARREF(Ylst),varF2112); T16 = xF2107; T15 = CALL1(1,VARREF(Ylst),T16); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_11)); T10 = CALL1(1,VARREF(Ylst),T11); T17 = CALL1(1,VARREF(Ylst),varF2112); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,setsF2116,T17,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_12) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_11,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_munch_13) { P subforms_; P gF2121; P subformF2120; P g_argsF2119; P g_declsF2118; P tup3F2117; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(subforms_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),subforms_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Ytup),Ynil,Ynil); T0 = T2; } else { T18 = CALL1(1,VARREF(Ytail),subforms_); T17 = CALL1(1,FREEREF(0),T18); tup3F2117 = T17; T16 = CALL2(1,VARREF(YgooSmacrosYelt),tup3F2117,YPint((P)0)); g_declsF2118 = T16; T15 = CALL2(1,VARREF(YgooSmacrosYelt),tup3F2117,YPint((P)1)); g_argsF2119 = T15; T14 = CALL1(1,VARREF(Yhead),subforms_); subformF2120 = T14; T4 = CALL2(1,VARREF(YisaQ),subformF2120,VARREF(YLlstG)); if (T4 != YPfalse) { T11 = CALL0(1,VARREF(YgooSmacrosYgensym)); gF2121 = T11; T8 = CALL1(1,VARREF(Ylst),gF2121); T9 = CALL1(1,VARREF(Ylst),subformF2120); T7 = CALL3(1,VARREF(YgooSmacrosYcat),T8,T9,LITREF(lit_11)); T6 = CALL2(1,VARREF(YgooSmacrosYpair),T7,g_declsF2118); T10 = CALL2(1,VARREF(YgooSmacrosYpair),gF2121,g_argsF2119); T5 = CALL2(1,VARREF(Ytup),T6,T10); T3 = T5; } else { T13 = CALL2(1,VARREF(YgooSmacrosYpair),subformF2120,g_argsF2119); T12 = CALL2(1,VARREF(Ytup),g_declsF2118,T13); T3 = T12; } T0 = T3; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSmacrosYlift_place_subforms) { P place_; P g_argsF2125; P g_declsF2124; P tup4F2123; P munchF2122; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(place_, 0); T11 = FUNSHELL(1,fun_munch_13,1); munchF2122 = T11; FUNINIT(munchF2122, 1,munchF2122); T1 = CALL2(1,VARREF(YisaQ),place_,VARREF(YLsymG)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Ytup),Ynil,place_); T0 = T2; } else { T10 = CALL1(1,VARREF(Ytail),place_); T9 = CALL1(1,munchF2122,T10); tup4F2123 = T9; T8 = CALL2(1,VARREF(YgooSmacrosYelt),tup4F2123,YPint((P)0)); g_declsF2124 = T8; T7 = CALL2(1,VARREF(YgooSmacrosYelt),tup4F2123,YPint((P)1)); g_argsF2125 = T7; T6 = CALL1(1,VARREF(Yhead),place_); T5 = CALL1(1,VARREF(Ylst),T6); T4 = CALL3(1,VARREF(YgooSmacrosYcat),T5,g_argsF2125,LITREF(lit_11)); T3 = CALL2(1,VARREF(Ytup),g_declsF2124,T4); T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1130_15) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_41),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1132_16) { P msg_,args_; P T0; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T0 = CALL1(1,FREEREF(0),YPint((P)1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_17) { P return_; P x_1131F2131; P x_1131F2130; P x_1131F2129; P amountF2128; P x_1131F2127; P x_1132F2126; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(return_, 0); T11 = FUNSHELL(0,fun_x_1132_16,1); x_1132F2126 = T11; FUNINIT(x_1132F2126, 1,return_); T10 = BOXGET(FREEREF(0)); x_1131F2127 = T10; amountF2128 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1131F2127,VARREF(YLlstG)); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1131F2127,x_1132F2126); amountF2128 = T6; T7 = CALL1(1,VARREF(Ytail),x_1131F2127); x_1131F2129 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1131F2129,x_1132F2126); x_1131F2130 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1131F2130,x_1132F2126); T5 = CALL1(1,VARREF(Ytail),x_1131F2129); x_1131F2131 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1131F2131,x_1132F2126); } else { T8 = CALL2(1,x_1132F2126,LITREF(lit_7),x_1131F2127); } T9 = amountF2128; UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_18) { P return_; P amountF2142; P g_placeF2141; P g_declsF2140; P tup6F2139; P x_1129F2138; P x_1129F2137; P x_1129F2136; P amountF2135; P placeF2134; P x_1129F2133; P x_1130F2132; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27; LINK_STACK(); ARG(return_, 0); T27 = FUNSHELL(0,fun_x_1130_15,2); x_1130F2132 = T27; FUNINIT(x_1130F2132, 2,FREEREF(0),return_); x_1129F2133 = FREEREF(0); placeF2134 = YPfalse; amountF2135 = YPfalse; amountF2135 = BOXFAB(amountF2135); T2 = CALL2(1,VARREF(YisaQ),x_1129F2133,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1129F2133,LITREF(lit_41),x_1130F2132); x_1129F2136 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1129F2136,x_1130F2132); placeF2134 = T4; T5 = CALL1(1,VARREF(Ytail),x_1129F2136); x_1129F2137 = T5; BOXPUT(x_1129F2137,amountF2135); x_1129F2138 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1129F2138,x_1130F2132); } else { T7 = CALL2(1,x_1130F2132,LITREF(lit_7),x_1129F2133); } T26 = placeF2134; T25 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T26); tup6F2139 = T25; T24 = CALL2(1,VARREF(YgooSmacrosYelt),tup6F2139,YPint((P)0)); g_declsF2140 = T24; T23 = CALL2(1,VARREF(YgooSmacrosYelt),tup6F2139,YPint((P)1)); g_placeF2141 = T23; T22 = FUNFAB(fun_17,1,amountF2135); T21 = with_exit(T22); amountF2142 = T21; T9 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T11 = CALL2(1,VARREF(YgooSmacrosYcat),g_declsF2140,LITREF(lit_11)); T10 = CALL1(1,VARREF(Ylst),T11); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T15 = CALL1(1,VARREF(Ylst),g_placeF2141); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_45)); T19 = CALL1(1,VARREF(Ylst),g_placeF2141); T20 = CALL1(1,VARREF(Ylst),amountF2142); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T20,LITREF(lit_11)); T16 = CALL1(1,VARREF(Ylst),T17); T13 = CALL4(1,VARREF(YgooSmacrosYcat),T14,T15,T16,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T8 = CALL4(1,VARREF(YgooSmacrosYcat),T9,T10,T12,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_19) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_18,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1138_20) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_50),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1140_21) { P msg_,args_; P T0; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T0 = CALL1(1,FREEREF(0),YPint((P)1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P return_; P x_1139F2148; P x_1139F2147; P x_1139F2146; P amountF2145; P x_1139F2144; P x_1140F2143; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(return_, 0); T11 = FUNSHELL(0,fun_x_1140_21,1); x_1140F2143 = T11; FUNINIT(x_1140F2143, 1,return_); T10 = BOXGET(FREEREF(0)); x_1139F2144 = T10; amountF2145 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1139F2144,VARREF(YLlstG)); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1139F2144,x_1140F2143); amountF2145 = T6; T7 = CALL1(1,VARREF(Ytail),x_1139F2144); x_1139F2146 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1139F2146,x_1140F2143); x_1139F2147 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1139F2147,x_1140F2143); T5 = CALL1(1,VARREF(Ytail),x_1139F2146); x_1139F2148 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1139F2148,x_1140F2143); } else { T8 = CALL2(1,x_1140F2143,LITREF(lit_7),x_1139F2144); } T9 = amountF2145; UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_23) { P return_; P amountF2159; P g_placeF2158; P g_declsF2157; P tup8F2156; P x_1137F2155; P x_1137F2154; P x_1137F2153; P amountF2152; P placeF2151; P x_1137F2150; P x_1138F2149; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27; LINK_STACK(); ARG(return_, 0); T27 = FUNSHELL(0,fun_x_1138_20,2); x_1138F2149 = T27; FUNINIT(x_1138F2149, 2,FREEREF(0),return_); x_1137F2150 = FREEREF(0); placeF2151 = YPfalse; amountF2152 = YPfalse; amountF2152 = BOXFAB(amountF2152); T2 = CALL2(1,VARREF(YisaQ),x_1137F2150,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1137F2150,LITREF(lit_50),x_1138F2149); x_1137F2153 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1137F2153,x_1138F2149); placeF2151 = T4; T5 = CALL1(1,VARREF(Ytail),x_1137F2153); x_1137F2154 = T5; BOXPUT(x_1137F2154,amountF2152); x_1137F2155 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1137F2155,x_1138F2149); } else { T7 = CALL2(1,x_1138F2149,LITREF(lit_7),x_1137F2150); } T26 = placeF2151; T25 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T26); tup8F2156 = T25; T24 = CALL2(1,VARREF(YgooSmacrosYelt),tup8F2156,YPint((P)0)); g_declsF2157 = T24; T23 = CALL2(1,VARREF(YgooSmacrosYelt),tup8F2156,YPint((P)1)); g_placeF2158 = T23; T22 = FUNFAB(fun_22,1,amountF2152); T21 = with_exit(T22); amountF2159 = T21; T9 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T11 = CALL2(1,VARREF(YgooSmacrosYcat),g_declsF2157,LITREF(lit_11)); T10 = CALL1(1,VARREF(Ylst),T11); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T15 = CALL1(1,VARREF(Ylst),g_placeF2158); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_54)); T19 = CALL1(1,VARREF(Ylst),g_placeF2158); T20 = CALL1(1,VARREF(Ylst),amountF2159); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T20,LITREF(lit_11)); T16 = CALL1(1,VARREF(Ylst),T17); T13 = CALL4(1,VARREF(YgooSmacrosYcat),T14,T15,T16,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T8 = CALL4(1,VARREF(YgooSmacrosYcat),T9,T10,T12,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_24) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_23,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1144_25) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_59),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_26) { P return_; P g_placeF2169; P g_declsF2168; P tup10F2167; P x_1143F2166; P x_1143F2165; P x_1143F2164; P valueF2163; P placeF2162; P x_1143F2161; P x_1144F2160; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; LINK_STACK(); ARG(return_, 0); T28 = FUNSHELL(0,fun_x_1144_25,2); x_1144F2160 = T28; FUNINIT(x_1144F2160, 2,FREEREF(0),return_); x_1143F2161 = FREEREF(0); placeF2162 = YPfalse; valueF2163 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1143F2161,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1143F2161,LITREF(lit_59),x_1144F2160); x_1143F2164 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1143F2164,x_1144F2160); placeF2162 = T6; T7 = CALL1(1,VARREF(Ytail),x_1143F2164); x_1143F2165 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1143F2165,x_1144F2160); valueF2163 = T4; T5 = CALL1(1,VARREF(Ytail),x_1143F2165); x_1143F2166 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1143F2166,x_1144F2160); } else { T9 = CALL2(1,x_1144F2160,LITREF(lit_7),x_1143F2161); } T27 = placeF2162; T26 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T27); tup10F2167 = T26; T25 = CALL2(1,VARREF(YgooSmacrosYelt),tup10F2167,YPint((P)0)); g_declsF2168 = T25; T24 = CALL2(1,VARREF(YgooSmacrosYelt),tup10F2167,YPint((P)1)); g_placeF2169 = T24; T11 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T13 = CALL2(1,VARREF(YgooSmacrosYcat),g_declsF2168,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T17 = CALL1(1,VARREF(Ylst),g_placeF2169); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_60)); T21 = CALL1(1,VARREF(Ylst),g_placeF2169); T23 = valueF2163; T22 = CALL1(1,VARREF(Ylst),T23); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T22,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T15 = CALL4(1,VARREF(YgooSmacrosYcat),T16,T17,T18,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_27) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_26,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1148_28) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_65),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_29) { P return_; P tmpF2183; P yg_placeF2182; P yg_declsF2181; P tup14F2180; P xg_placeF2179; P xg_declsF2178; P tup13F2177; P x_1147F2176; P x_1147F2175; P x_1147F2174; P yF2173; P xF2172; P x_1147F2171; P x_1148F2170; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37; LINK_STACK(); ARG(return_, 0); T37 = FUNSHELL(0,fun_x_1148_28,2); x_1148F2170 = T37; FUNINIT(x_1148F2170, 2,FREEREF(0),return_); x_1147F2171 = FREEREF(0); xF2172 = YPfalse; yF2173 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1147F2171,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1147F2171,LITREF(lit_65),x_1148F2170); x_1147F2174 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1147F2174,x_1148F2170); xF2172 = T6; T7 = CALL1(1,VARREF(Ytail),x_1147F2174); x_1147F2175 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1147F2175,x_1148F2170); yF2173 = T4; T5 = CALL1(1,VARREF(Ytail),x_1147F2175); x_1147F2176 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1147F2176,x_1148F2170); } else { T9 = CALL2(1,x_1148F2170,LITREF(lit_7),x_1147F2171); } T36 = xF2172; T35 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T36); tup13F2177 = T35; T34 = CALL2(1,VARREF(YgooSmacrosYelt),tup13F2177,YPint((P)0)); xg_declsF2178 = T34; T33 = CALL2(1,VARREF(YgooSmacrosYelt),tup13F2177,YPint((P)1)); xg_placeF2179 = T33; T32 = yF2173; T31 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T32); tup14F2180 = T31; T30 = CALL2(1,VARREF(YgooSmacrosYelt),tup14F2180,YPint((P)0)); yg_declsF2181 = T30; T29 = CALL2(1,VARREF(YgooSmacrosYelt),tup14F2180,YPint((P)1)); yg_placeF2182 = T29; T28 = CALL0(1,VARREF(YgooSmacrosYgensym)); tmpF2183 = T28; T11 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T16 = CALL1(1,VARREF(Ylst),tmpF2183); T17 = CALL1(1,VARREF(Ylst),xg_placeF2179); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T13 = CALL4(1,VARREF(YgooSmacrosYcat),xg_declsF2178,yg_declsF2181,T14,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T21 = CALL1(1,VARREF(Ylst),xg_placeF2179); T22 = CALL1(1,VARREF(Ylst),yg_placeF2182); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T22,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T26 = CALL1(1,VARREF(Ylst),yg_placeF2182); T27 = CALL1(1,VARREF(Ylst),tmpF2183); T24 = CALL4(1,VARREF(YgooSmacrosYcat),T25,T26,T27,LITREF(lit_11)); T23 = CALL1(1,VARREF(Ylst),T24); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T18,T23,LITREF(lit_11)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_30) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_29,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1152_31) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_70),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_32) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL0(1,VARREF(YgooSmacrosYgensym)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_33) { P t_,p_; P T0,T1,T2; LINK_STACK(); ARG(t_, 0); ARG(p_, 1); T1 = CALL1(1,VARREF(Ylst),t_); T2 = CALL1(1,VARREF(Ylst),p_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),T1,T2,LITREF(lit_11)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_34) { P p_,t_; P T0,T1,T2,T3; LINK_STACK(); ARG(p_, 0); ARG(t_, 1); T1 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T2 = CALL1(1,VARREF(Ylst),p_); T3 = CALL1(1,VARREF(Ylst),t_); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T3,LITREF(lit_11)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_35) { P return_; P placesF2197; P declsF2196; P psF2195; P tmpsF2194; P placesF2193; P x_1151F2192; P x_1151F2191; P x_1151F2190; P x_1151F2189; P zsF2188; P yF2187; P xF2186; P x_1151F2185; P x_1152F2184; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; LINK_STACK(); ARG(return_, 0); T39 = FUNSHELL(0,fun_x_1152_31,2); x_1152F2184 = T39; FUNINIT(x_1152F2184, 2,FREEREF(0),return_); x_1151F2185 = FREEREF(0); xF2186 = YPfalse; yF2187 = YPfalse; zsF2188 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1151F2185,VARREF(YLlstG)); if (T3 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1151F2185,LITREF(lit_70),x_1152F2184); x_1151F2189 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1151F2189,x_1152F2184); xF2186 = T7; T8 = CALL1(1,VARREF(Ytail),x_1151F2189); x_1151F2190 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1151F2190,x_1152F2184); yF2187 = T5; T6 = CALL1(1,VARREF(Ytail),x_1151F2190); x_1151F2191 = T6; zsF2188 = x_1151F2191; x_1151F2192 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1151F2192,x_1152F2184); } else { T10 = CALL2(1,x_1152F2184,LITREF(lit_7),x_1151F2185); } T35 = xF2186; T34 = CALL1(1,VARREF(Ylst),T35); T37 = yF2187; T36 = CALL1(1,VARREF(Ylst),T37); T38 = zsF2188; T33 = CALL4(1,VARREF(YgooSmacrosYcat),T34,T36,T38,LITREF(lit_11)); placesF2193 = T33; T32 = fun_32; T31 = CALL2(1,VARREF(YgooSmacrosYmap),T32,placesF2193); tmpsF2194 = T31; T30 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooSmacrosYlift_place_subforms),placesF2193); psF2195 = T30; T29 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooSmacrosY1st),psF2195); declsF2196 = T29; T28 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooSmacrosY2nd),psF2195); placesF2197 = T28; T12 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T15 = CALL3(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSmacrosYcat),YPfalse,declsF2196); T17 = fun_33; T16 = CALL3(1,VARREF(YgooSmacrosYmap2),T17,tmpsF2194,placesF2197); T14 = CALL3(1,VARREF(YgooSmacrosYcat),T15,T16,LITREF(lit_11)); T13 = CALL1(1,VARREF(Ylst),T14); T19 = fun_34; T20 = CALL1(1,VARREF(Ytail),tmpsF2194); T18 = CALL3(1,VARREF(YgooSmacrosYmap2),T19,placesF2197,T20); T23 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T25 = CALL1(1,VARREF(YgooSmacrosYlast),placesF2197); T24 = CALL1(1,VARREF(Ylst),T25); T27 = CALL1(1,VARREF(YgooSmacrosY1st),tmpsF2194); T26 = CALL1(1,VARREF(Ylst),T27); T22 = CALL4(1,VARREF(YgooSmacrosYcat),T23,T24,T26,LITREF(lit_11)); T21 = CALL1(1,VARREF(Ylst),T22); T11 = CALL5(1,VARREF(YgooSmacrosYcat),T12,T13,T18,T21,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_36) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_35,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1156_37) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_78),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_38) { P return_; P valF2207; P new_colF2206; P g_placeF2205; P g_declsF2204; P tup16F2203; P x_1155F2202; P x_1155F2201; P placeF2200; P x_1155F2199; P x_1156F2198; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(return_, 0); T34 = FUNSHELL(0,fun_x_1156_37,2); x_1156F2198 = T34; FUNINIT(x_1156F2198, 2,FREEREF(0),return_); x_1155F2199 = FREEREF(0); placeF2200 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1155F2199,VARREF(YLlstG)); if (T1 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1155F2199,LITREF(lit_78),x_1156F2198); x_1155F2201 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1155F2201,x_1156F2198); placeF2200 = T3; T4 = CALL1(1,VARREF(Ytail),x_1155F2201); x_1155F2202 = T4; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1155F2202,x_1156F2198); } else { T6 = CALL2(1,x_1156F2198,LITREF(lit_7),x_1155F2199); } T33 = placeF2200; T32 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T33); tup16F2203 = T32; T31 = CALL2(1,VARREF(YgooSmacrosYelt),tup16F2203,YPint((P)0)); g_declsF2204 = T31; T30 = CALL2(1,VARREF(YgooSmacrosYelt),tup16F2203,YPint((P)1)); g_placeF2205 = T30; T29 = CALL0(1,VARREF(YgooSmacrosYgensym)); new_colF2206 = T29; T28 = CALL0(1,VARREF(YgooSmacrosYgensym)); valF2207 = T28; T8 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_79)); T16 = CALL1(1,VARREF(Ylst),new_colF2206); T17 = CALL1(1,VARREF(Ylst),valF2207); T14 = CALL4(1,VARREF(YgooSmacrosYcat),T15,T16,T17,LITREF(lit_11)); T13 = CALL1(1,VARREF(Ylst),T14); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_80)); T21 = CALL1(1,VARREF(Ylst),g_placeF2205); T19 = CALL3(1,VARREF(YgooSmacrosYcat),T20,T21,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T12 = CALL3(1,VARREF(YgooSmacrosYcat),T13,T18,LITREF(lit_11)); T11 = CALL1(1,VARREF(Ylst),T12); T10 = CALL3(1,VARREF(YgooSmacrosYcat),g_declsF2204,T11,LITREF(lit_11)); T9 = CALL1(1,VARREF(Ylst),T10); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T25 = CALL1(1,VARREF(Ylst),g_placeF2205); T26 = CALL1(1,VARREF(Ylst),new_colF2206); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T26,LITREF(lit_11)); T22 = CALL1(1,VARREF(Ylst),T23); T27 = CALL1(1,VARREF(Ylst),valF2207); T7 = CALL5(1,VARREF(YgooSmacrosYcat),T8,T9,T22,T27,LITREF(lit_11)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_39) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_38,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1160_40) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_85),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_41) { P return_; P g_placeF2217; P g_declsF2216; P tup18F2215; P x_1159F2214; P x_1159F2213; P x_1159F2212; P callF2211; P placeF2210; P x_1159F2209; P x_1160F2208; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; LINK_STACK(); ARG(return_, 0); T28 = FUNSHELL(0,fun_x_1160_40,2); x_1160F2208 = T28; FUNINIT(x_1160F2208, 2,FREEREF(0),return_); x_1159F2209 = FREEREF(0); placeF2210 = YPfalse; callF2211 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1159F2209,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1159F2209,LITREF(lit_85),x_1160F2208); x_1159F2212 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1159F2212,x_1160F2208); placeF2210 = T6; T7 = CALL1(1,VARREF(Ytail),x_1159F2212); x_1159F2213 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1159F2213,x_1160F2208); callF2211 = T4; T5 = CALL1(1,VARREF(Ytail),x_1159F2213); x_1159F2214 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1159F2214,x_1160F2208); } else { T9 = CALL2(1,x_1160F2208,LITREF(lit_7),x_1159F2209); } T27 = placeF2210; T26 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T27); tup18F2215 = T26; T25 = CALL2(1,VARREF(YgooSmacrosYelt),tup18F2215,YPint((P)0)); g_declsF2216 = T25; T24 = CALL2(1,VARREF(YgooSmacrosYelt),tup18F2215,YPint((P)1)); g_placeF2217 = T24; T11 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T17 = CALL1(1,VARREF(Ylst),g_placeF2217); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T13 = CALL3(1,VARREF(YgooSmacrosYcat),g_declsF2216,T14,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T21 = CALL1(1,VARREF(Ylst),g_placeF2217); T23 = callF2211; T22 = CALL1(1,VARREF(Ylst),T23); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T22,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T18,LITREF(lit_11)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_42) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_41,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1164_43) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_91),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_44) { P return_; P g_placeF2227; P g_declsF2226; P tup20F2225; P x_1163F2224; P x_1163F2223; P x_1163F2222; P valueF2221; P placeF2220; P x_1163F2219; P x_1164F2218; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32; LINK_STACK(); ARG(return_, 0); T32 = FUNSHELL(0,fun_x_1164_43,2); x_1164F2218 = T32; FUNINIT(x_1164F2218, 2,FREEREF(0),return_); x_1163F2219 = FREEREF(0); placeF2220 = YPfalse; valueF2221 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1163F2219,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1163F2219,LITREF(lit_91),x_1164F2218); x_1163F2222 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1163F2222,x_1164F2218); placeF2220 = T6; T7 = CALL1(1,VARREF(Ytail),x_1163F2222); x_1163F2223 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1163F2223,x_1164F2218); valueF2221 = T4; T5 = CALL1(1,VARREF(Ytail),x_1163F2223); x_1163F2224 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1163F2224,x_1164F2218); } else { T9 = CALL2(1,x_1164F2218,LITREF(lit_7),x_1163F2219); } T31 = placeF2220; T30 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T31); tup20F2225 = T30; T29 = CALL2(1,VARREF(YgooSmacrosYelt),tup20F2225,YPint((P)0)); g_declsF2226 = T29; T28 = CALL2(1,VARREF(YgooSmacrosYelt),tup20F2225,YPint((P)1)); g_placeF2227 = T28; T11 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T17 = CALL1(1,VARREF(Ylst),g_placeF2227); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T13 = CALL3(1,VARREF(YgooSmacrosYcat),g_declsF2226,T14,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_92)); T21 = CALL1(1,VARREF(Ylst),g_placeF2227); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T25 = CALL1(1,VARREF(Ylst),g_placeF2227); T27 = valueF2221; T26 = CALL1(1,VARREF(Ylst),T27); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T26,LITREF(lit_11)); T22 = CALL1(1,VARREF(Ylst),T23); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T22,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T18,LITREF(lit_11)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_45) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_44,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1168_46) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_97),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_47) { P return_; P x_1167F2234; P x_1167F2233; P x_1167F2232; P bodyF2231; P testF2230; P x_1167F2229; P x_1168F2228; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1168_46,2); x_1168F2228 = T19; FUNINIT(x_1168F2228, 2,FREEREF(0),return_); x_1167F2229 = FREEREF(0); testF2230 = YPfalse; bodyF2231 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1167F2229,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1167F2229,LITREF(lit_97),x_1168F2228); x_1167F2232 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1167F2232,x_1168F2228); testF2230 = T4; T5 = CALL1(1,VARREF(Ytail),x_1167F2232); x_1167F2233 = T5; bodyF2231 = x_1167F2233; x_1167F2234 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1167F2234,x_1168F2228); } else { T7 = CALL2(1,x_1168F2228,LITREF(lit_7),x_1167F2229); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_99)); T14 = testF2230; T13 = CALL1(1,VARREF(Ylst),T14); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T13,LITREF(lit_11)); T10 = CALL1(1,VARREF(Ylst),T11); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T18 = bodyF2231; T16 = CALL3(1,VARREF(YgooSmacrosYcat),T17,T18,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T8 = CALL4(1,VARREF(YgooSmacrosYcat),T9,T10,T15,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_48) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_47,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1172_49) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_105),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_50) { P return_; P x_1171F2241; P x_1171F2240; P x_1171F2239; P bodyF2238; P testF2237; P x_1171F2236; P x_1172F2235; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(return_, 0); T16 = FUNSHELL(0,fun_x_1172_49,2); x_1172F2235 = T16; FUNINIT(x_1172F2235, 2,FREEREF(0),return_); x_1171F2236 = FREEREF(0); testF2237 = YPfalse; bodyF2238 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1171F2236,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1171F2236,LITREF(lit_105),x_1172F2235); x_1171F2239 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1171F2239,x_1172F2235); testF2237 = T4; T5 = CALL1(1,VARREF(Ytail),x_1171F2239); x_1171F2240 = T5; bodyF2238 = x_1171F2240; x_1171F2241 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1171F2241,x_1172F2235); } else { T7 = CALL2(1,x_1172F2235,LITREF(lit_7),x_1171F2236); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T11 = testF2237; T10 = CALL1(1,VARREF(Ylst),T11); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T15 = bodyF2238; T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T8 = CALL4(1,VARREF(YgooSmacrosYcat),T9,T10,T12,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_51) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_50,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1180_52) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_92),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1182_53) { P msg_,args_; P T0; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1184_54) { P msg_,args_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T7 = CALL1(1,VARREF(Ylst),LITREF(lit_116)); T9 = BOXGET(FREEREF(0)); T8 = CALL1(1,VARREF(Ylst),T9); T6 = CALL3(1,VARREF(YgooSmacrosYcat),T7,T8,LITREF(lit_11)); T5 = CALL1(1,VARREF(Ylst),T6); T4 = CALL2(1,VARREF(YgooSmacrosYcat),T5,LITREF(lit_11)); T3 = CALL1(1,VARREF(Ylst),T4); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T13 = CALL1(1,VARREF(Ylst),LITREF(lit_116)); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_116)); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_92)); T18 = BOXGET(FREEREF(1)); T16 = CALL3(1,VARREF(YgooSmacrosYcat),T17,T18,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T11 = CALL5(1,VARREF(YgooSmacrosYcat),T12,T13,T14,T15,LITREF(lit_11)); T10 = CALL1(1,VARREF(Ylst),T11); T1 = CALL4(1,VARREF(YgooSmacrosYcat),T2,T3,T10,LITREF(lit_11)); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_55) { P return_; P x_1183F2243; P x_1184F2242; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(return_, 0); T5 = FUNSHELL(0,fun_x_1184_54,3); x_1184F2242 = T5; FUNINIT(x_1184F2242, 3,FREEREF(0),FREEREF(1),return_); T4 = BOXGET(FREEREF(1)); x_1183F2243 = T4; T0 = CALL2(1,VARREF(YisaQ),x_1183F2243,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1183F2243,x_1184F2242); } else { T2 = CALL2(1,x_1184F2242,LITREF(lit_7),x_1183F2243); } T3 = BOXGET(FREEREF(0)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_56) { P return_; P x_1181F2251; P x_1181F2250; P x_1181F2249; P x_1181F2248; P restF2247; P xF2246; P x_1181F2245; P x_1182F2244; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(return_, 0); T13 = FUNSHELL(0,fun_x_1182_53,1); x_1182F2244 = T13; FUNINIT(x_1182F2244, 1,return_); T12 = BOXGET(FREEREF(0)); x_1181F2245 = T12; xF2246 = YPfalse; xF2246 = BOXFAB(xF2246); restF2247 = YPfalse; restF2247 = BOXFAB(restF2247); T2 = CALL2(1,VARREF(YisaQ),x_1181F2245,VARREF(YLlstG)); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1181F2245,x_1182F2244); BOXPUT(T7,xF2246); T8 = CALL1(1,VARREF(Ytail),x_1181F2245); x_1181F2248 = T8; BOXPUT(x_1181F2248,restF2247); x_1181F2249 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1181F2249,x_1182F2244); x_1181F2250 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1181F2250,x_1182F2244); T6 = CALL1(1,VARREF(Ytail),x_1181F2249); x_1181F2251 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1181F2251,x_1182F2244); } else { T9 = CALL2(1,x_1182F2244,LITREF(lit_7),x_1181F2245); } T11 = FUNFAB(fun_55,2,xF2246,restF2247); T10 = with_exit(T11); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_57) { P return_; P x_1179F2256; P x_1179F2255; P restF2254; P x_1179F2253; P x_1180F2252; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(return_, 0); T7 = FUNSHELL(0,fun_x_1180_52,2); x_1180F2252 = T7; FUNINIT(x_1180F2252, 2,FREEREF(0),return_); x_1179F2253 = FREEREF(0); restF2254 = YPfalse; restF2254 = BOXFAB(restF2254); T1 = CALL2(1,VARREF(YisaQ),x_1179F2253,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1179F2253,LITREF(lit_92),x_1180F2252); x_1179F2255 = T3; BOXPUT(x_1179F2255,restF2254); x_1179F2256 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1179F2256,x_1180F2252); } else { T4 = CALL2(1,x_1180F2252,LITREF(lit_7),x_1179F2253); } T6 = FUNFAB(fun_56,1,restF2254); T5 = with_exit(T6); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_58) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_57,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1192_59) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_121),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1194_60) { P msg_,args_; P T0; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T0 = CALL1(1,FREEREF(0),YPtrue); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1196_61) { P msg_,args_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T4 = BOXGET(FREEREF(0)); T3 = CALL1(1,VARREF(Ylst),T4); T7 = CALL1(1,VARREF(Ylst),LITREF(lit_121)); T8 = BOXGET(FREEREF(1)); T6 = CALL3(1,VARREF(YgooSmacrosYcat),T7,T8,LITREF(lit_11)); T5 = CALL1(1,VARREF(Ylst),T6); T9 = CALL1(1,VARREF(Ylst),YPfalse); T1 = CALL5(1,VARREF(YgooSmacrosYcat),T2,T3,T5,T9,LITREF(lit_11)); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_62) { P return_; P x_1195F2258; P x_1196F2257; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(return_, 0); T5 = FUNSHELL(0,fun_x_1196_61,3); x_1196F2257 = T5; FUNINIT(x_1196F2257, 3,FREEREF(0),FREEREF(1),return_); T4 = BOXGET(FREEREF(1)); x_1195F2258 = T4; T0 = CALL2(1,VARREF(YisaQ),x_1195F2258,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1195F2258,x_1196F2257); } else { T2 = CALL2(1,x_1196F2257,LITREF(lit_7),x_1195F2258); } T3 = BOXGET(FREEREF(0)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_63) { P return_; P x_1193F2266; P x_1193F2265; P x_1193F2264; P x_1193F2263; P restF2262; P xF2261; P x_1193F2260; P x_1194F2259; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(return_, 0); T13 = FUNSHELL(0,fun_x_1194_60,1); x_1194F2259 = T13; FUNINIT(x_1194F2259, 1,return_); T12 = BOXGET(FREEREF(0)); x_1193F2260 = T12; xF2261 = YPfalse; xF2261 = BOXFAB(xF2261); restF2262 = YPfalse; restF2262 = BOXFAB(restF2262); T2 = CALL2(1,VARREF(YisaQ),x_1193F2260,VARREF(YLlstG)); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1193F2260,x_1194F2259); BOXPUT(T7,xF2261); T8 = CALL1(1,VARREF(Ytail),x_1193F2260); x_1193F2263 = T8; BOXPUT(x_1193F2263,restF2262); x_1193F2264 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1193F2264,x_1194F2259); x_1193F2265 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1193F2265,x_1194F2259); T6 = CALL1(1,VARREF(Ytail),x_1193F2264); x_1193F2266 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1193F2266,x_1194F2259); } else { T9 = CALL2(1,x_1194F2259,LITREF(lit_7),x_1193F2260); } T11 = FUNFAB(fun_62,2,xF2261,restF2262); T10 = with_exit(T11); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_64) { P return_; P x_1191F2271; P x_1191F2270; P restF2269; P x_1191F2268; P x_1192F2267; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(return_, 0); T7 = FUNSHELL(0,fun_x_1192_59,2); x_1192F2267 = T7; FUNINIT(x_1192F2267, 2,FREEREF(0),return_); x_1191F2268 = FREEREF(0); restF2269 = YPfalse; restF2269 = BOXFAB(restF2269); T1 = CALL2(1,VARREF(YisaQ),x_1191F2268,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1191F2268,LITREF(lit_121),x_1192F2267); x_1191F2270 = T3; BOXPUT(x_1191F2270,restF2269); x_1191F2271 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1191F2271,x_1192F2267); } else { T4 = CALL2(1,x_1192F2267,LITREF(lit_7),x_1191F2268); } T6 = FUNFAB(fun_63,1,restF2269); T5 = with_exit(T6); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_65) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_64,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1202_66) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_132),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1204_67) { P msg_,args_; P T0,T1,T2,T3; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(Yhead),T3); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_136),T2); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_68) { P return_; P x_1203F2279; P x_1203F2278; P x_1203F2277; P x_1203F2276; P bodyF2275; P condF2274; P x_1203F2273; P x_1204F2272; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(return_, 0); T25 = FUNSHELL(0,fun_x_1204_67,2); x_1204F2272 = T25; FUNINIT(x_1204F2272, 2,FREEREF(0),return_); T24 = BOXGET(FREEREF(0)); T23 = CALL1(1,VARREF(Yhead),T24); x_1203F2273 = T23; condF2274 = YPfalse; bodyF2275 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1203F2273,VARREF(YLlstG)); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1203F2273,x_1204F2272); condF2274 = T7; T8 = CALL1(1,VARREF(Ytail),x_1203F2273); x_1203F2276 = T8; bodyF2275 = x_1203F2276; x_1203F2277 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1203F2277,x_1204F2272); x_1203F2278 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1203F2278,x_1204F2272); T6 = CALL1(1,VARREF(Ytail),x_1203F2277); x_1203F2279 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1203F2279,x_1204F2272); } else { T9 = CALL2(1,x_1204F2272,LITREF(lit_7),x_1203F2273); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T13 = condF2274; T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T17 = bodyF2275; T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_132)); T22 = BOXGET(FREEREF(0)); T21 = CALL1(1,VARREF(Ytail),T22); T19 = CALL3(1,VARREF(YgooSmacrosYcat),T20,T21,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T14,T18,LITREF(lit_11)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_69) { P return_; P x_1201F2284; P x_1201F2283; P casesF2282; P x_1201F2281; P x_1202F2280; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(return_, 0); T10 = FUNSHELL(0,fun_x_1202_66,2); x_1202F2280 = T10; FUNINIT(x_1202F2280, 2,FREEREF(0),return_); x_1201F2281 = FREEREF(0); casesF2282 = YPfalse; casesF2282 = BOXFAB(casesF2282); T1 = CALL2(1,VARREF(YisaQ),x_1201F2281,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1201F2281,LITREF(lit_132),x_1202F2280); x_1201F2283 = T3; BOXPUT(x_1201F2283,casesF2282); x_1201F2284 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1201F2284,x_1202F2280); } else { T4 = CALL2(1,x_1202F2280,LITREF(lit_7),x_1201F2281); } T7 = BOXGET(casesF2282); T6 = CALL1(1,VARREF(YgooSmacrosYnulQ),T7); if (T6 != YPfalse) { T5 = YPfalse; } else { T9 = FUNFAB(fun_68,1,casesF2282); T8 = with_exit(T9); T5 = T8; } UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_70) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_69,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1210_71) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL1(1,VARREF(Yhead),FREEREF(0)); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_142),T2); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1212_72) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL1(1,VARREF(Yhead),FREEREF(0)); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_146),T2); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_73) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(Ylst),FREEREF(0)); T2 = CALL1(1,VARREF(Ylst),FREEREF(1)); T3 = CALL1(1,VARREF(Ylst),x_); T0 = CALL4(1,VARREF(YgooSmacrosYcat),T1,T2,T3,LITREF(lit_11)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_74) { P return_; P x_1211F2290; P x_1211F2289; P x_1211F2288; P valuesF2287; P x_1211F2286; P x_1212F2285; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); ARG(return_, 0); T23 = FUNSHELL(0,fun_x_1212_72,2); x_1212F2285 = T23; FUNINIT(x_1212F2285, 2,FREEREF(0),return_); T22 = BOXGET(FREEREF(1)); x_1211F2286 = T22; valuesF2287 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1211F2286,VARREF(YLlstG)); if (T1 != YPfalse) { valuesF2287 = x_1211F2286; x_1211F2288 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1211F2288,x_1212F2285); x_1211F2289 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1211F2289,x_1212F2285); T5 = CALL1(1,VARREF(Ytail),x_1211F2288); x_1211F2290 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1211F2290,x_1212F2285); } else { T6 = CALL2(1,x_1212F2285,LITREF(lit_7),x_1211F2286); } T8 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_92)); T13 = FUNFAB(fun_73,2,FREEREF(2),FREEREF(3)); T14 = valuesF2287; T12 = CALL2(1,VARREF(YgooSmacrosYmap),T13,T14); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_11)); T9 = CALL1(1,VARREF(Ylst),T10); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T18 = BOXGET(FREEREF(4)); T16 = CALL3(1,VARREF(YgooSmacrosYcat),T17,T18,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T21 = CALL1(1,VARREF(Ytail),FREEREF(0)); T20 = CALL3(1,VARREF(YgooSmacrosYdo_case_by),FREEREF(3),FREEREF(2),T21); T19 = CALL1(1,VARREF(Ylst),T20); T7 = CALL5(1,VARREF(YgooSmacrosYcat),T8,T9,T15,T19,LITREF(lit_11)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_75) { P return_; P x_1209F2298; P x_1209F2297; P x_1209F2296; P x_1209F2295; P bodyF2294; P condF2293; P x_1209F2292; P x_1210F2291; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1210_71,2); x_1210F2291 = T19; FUNINIT(x_1210F2291, 2,FREEREF(0),return_); T18 = CALL1(1,VARREF(Yhead),FREEREF(0)); x_1209F2292 = T18; condF2293 = YPfalse; condF2293 = BOXFAB(condF2293); bodyF2294 = YPfalse; bodyF2294 = BOXFAB(bodyF2294); T2 = CALL2(1,VARREF(YisaQ),x_1209F2292,VARREF(YLlstG)); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1209F2292,x_1210F2291); BOXPUT(T7,condF2293); T8 = CALL1(1,VARREF(Ytail),x_1209F2292); x_1209F2295 = T8; BOXPUT(x_1209F2295,bodyF2294); x_1209F2296 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1209F2296,x_1210F2291); x_1209F2297 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1209F2297,x_1210F2291); T6 = CALL1(1,VARREF(Ytail),x_1209F2296); x_1209F2298 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1209F2298,x_1210F2291); } else { T9 = CALL2(1,x_1210F2291,LITREF(lit_7),x_1209F2292); } T12 = BOXGET(condF2293); T11 = CALL2(1,VARREF(YgooSmacrosYEE),T12,YPtrue); if (T11 != YPfalse) { T14 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T15 = BOXGET(bodyF2294); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_11)); T10 = T13; } else { T17 = FUNFAB(fun_74,5,FREEREF(0),condF2293,FREEREF(1),FREEREF(2),bodyF2294); T16 = with_exit(T17); T10 = T16; } UNLINK_STACK(); QRET(T10); } FUNCODEDEF(YgooSmacrosYdo_case_by) { P val_,tst_,cases_; P T0,T1,T2,T3; LINK_STACK(); ARG(val_, 0); ARG(tst_, 1); ARG(cases_, 2); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),cases_); if (T1 != YPfalse) { T0 = YPfalse; } else { T3 = FUNFAB(fun_75,3,cases_,tst_,val_); T2 = with_exit(T3); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1216_77) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_152),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_78) { P return_; P tst_varF2309; P val_varF2308; P x_1215F2307; P x_1215F2306; P x_1215F2305; P x_1215F2304; P casesF2303; P tstF2302; P valF2301; P x_1215F2300; P x_1216F2299; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30; LINK_STACK(); ARG(return_, 0); T30 = FUNSHELL(0,fun_x_1216_77,2); x_1216F2299 = T30; FUNINIT(x_1216F2299, 2,FREEREF(0),return_); x_1215F2300 = FREEREF(0); valF2301 = YPfalse; tstF2302 = YPfalse; casesF2303 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1215F2300,VARREF(YLlstG)); if (T3 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1215F2300,LITREF(lit_152),x_1216F2299); x_1215F2304 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1215F2304,x_1216F2299); valF2301 = T7; T8 = CALL1(1,VARREF(Ytail),x_1215F2304); x_1215F2305 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1215F2305,x_1216F2299); tstF2302 = T5; T6 = CALL1(1,VARREF(Ytail),x_1215F2305); x_1215F2306 = T6; casesF2303 = x_1215F2306; x_1215F2307 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1215F2307,x_1216F2299); } else { T10 = CALL2(1,x_1216F2299,LITREF(lit_7),x_1215F2300); } T29 = CALL0(1,VARREF(YgooSmacrosYgensym)); val_varF2308 = T29; T28 = CALL0(1,VARREF(YgooSmacrosYgensym)); tst_varF2309 = T28; T12 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T17 = CALL1(1,VARREF(Ylst),val_varF2308); T19 = valF2301; T18 = CALL1(1,VARREF(Ylst),T19); T16 = CALL3(1,VARREF(YgooSmacrosYcat),T17,T18,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T22 = CALL1(1,VARREF(Ylst),tst_varF2309); T24 = tstF2302; T23 = CALL1(1,VARREF(Ylst),T24); T21 = CALL3(1,VARREF(YgooSmacrosYcat),T22,T23,LITREF(lit_11)); T20 = CALL1(1,VARREF(Ylst),T21); T14 = CALL3(1,VARREF(YgooSmacrosYcat),T15,T20,LITREF(lit_11)); T13 = CALL1(1,VARREF(Ylst),T14); T27 = casesF2303; T26 = CALL3(1,VARREF(YgooSmacrosYdo_case_by),val_varF2308,tst_varF2309,T27); T25 = CALL1(1,VARREF(Ylst),T26); T11 = CALL4(1,VARREF(YgooSmacrosYcat),T12,T13,T25,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_79) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_78,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1220_80) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_157),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_81) { P return_; P x_1219F2316; P x_1219F2315; P x_1219F2314; P casesF2313; P valF2312; P x_1219F2311; P x_1220F2310; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(return_, 0); T14 = FUNSHELL(0,fun_x_1220_80,2); x_1220F2310 = T14; FUNINIT(x_1220F2310, 2,FREEREF(0),return_); x_1219F2311 = FREEREF(0); valF2312 = YPfalse; casesF2313 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1219F2311,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1219F2311,LITREF(lit_157),x_1220F2310); x_1219F2314 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1219F2314,x_1220F2310); valF2312 = T4; T5 = CALL1(1,VARREF(Ytail),x_1219F2314); x_1219F2315 = T5; casesF2313 = x_1219F2315; x_1219F2316 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1219F2316,x_1220F2310); } else { T7 = CALL2(1,x_1220F2310,LITREF(lit_7),x_1219F2311); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_152)); T11 = valF2312; T10 = CALL1(1,VARREF(Ylst),T11); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_158)); T13 = casesF2313; T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T12,T13,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_82) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_81,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1228_83) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_163),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1232_84) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL1(1,VARREF(Ysyntax_error),LITREF(lit_170)); T0 = CALL1(1,FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_85) { P return_; P varF2331; P x_1231F2330; P x_1231F2329; P x_1231F2328; P x_1231F2327; P x_1231F2326; P x_1231F2325; P x_1231F2324; P x_1231F2323; P x_1231F2322; P restF2321; P thenF2320; P patF2319; P x_1231F2318; P x_1232F2317; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51; LINK_STACK(); ARG(return_, 0); T51 = FUNSHELL(0,fun_x_1232_84,1); x_1232F2317 = T51; FUNINIT(x_1232F2317, 1,return_); T50 = BOXGET(FREEREF(0)); x_1231F2318 = T50; patF2319 = YPfalse; thenF2320 = YPfalse; restF2321 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1231F2318,VARREF(YLlstG)); if (T3 != YPfalse) { T14 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1231F2318,x_1232F2317); x_1231F2322 = T14; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1231F2322,x_1232F2317); patF2319 = T12; T13 = CALL1(1,VARREF(Ytail),x_1231F2322); x_1231F2323 = T13; thenF2320 = x_1231F2323; x_1231F2324 = Ynil; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1231F2324,x_1232F2317); x_1231F2325 = T10; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1231F2325,x_1232F2317); T11 = CALL1(1,VARREF(Ytail),x_1231F2324); x_1231F2326 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1231F2326,x_1232F2317); T15 = CALL1(1,VARREF(Ytail),x_1231F2318); x_1231F2327 = T15; restF2321 = x_1231F2327; x_1231F2328 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1231F2328,x_1232F2317); x_1231F2329 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1231F2329,x_1232F2317); T7 = CALL1(1,VARREF(Ytail),x_1231F2328); x_1231F2330 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1231F2330,x_1232F2317); } else { T16 = CALL2(1,x_1232F2317,LITREF(lit_7),x_1231F2318); } T19 = patF2319; T18 = CALL2(1,VARREF(YgooSmacrosYEE),T19,YPtrue); if (T18 != YPfalse) { T21 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T22 = thenF2320; T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_11)); T17 = T20; } else { T49 = CALL0(1,VARREF(YgooSmacrosYgensym)); varF2331 = T49; T24 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T29 = CALL1(1,VARREF(Ylst),varF2331); T31 = BOXGET(FREEREF(1)); T30 = CALL1(1,VARREF(Ylst),T31); T28 = CALL3(1,VARREF(YgooSmacrosYcat),T29,T30,LITREF(lit_11)); T27 = CALL1(1,VARREF(Ylst),T28); T26 = CALL2(1,VARREF(YgooSmacrosYcat),T27,LITREF(lit_11)); T25 = CALL1(1,VARREF(Ylst),T26); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_171)); T38 = patF2319; T37 = CALL1(1,VARREF(Ylst),T38); T39 = CALL1(1,VARREF(Ylst),varF2331); T36 = CALL3(1,VARREF(YgooSmacrosYcat),T37,T39,LITREF(lit_11)); T35 = CALL1(1,VARREF(Ylst),T36); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T43 = thenF2320; T41 = CALL3(1,VARREF(YgooSmacrosYcat),T42,T43,LITREF(lit_11)); T40 = CALL1(1,VARREF(Ylst),T41); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_163)); T47 = CALL1(1,VARREF(Ylst),varF2331); T48 = restF2321; T45 = CALL4(1,VARREF(YgooSmacrosYcat),T46,T47,T48,LITREF(lit_11)); T44 = CALL1(1,VARREF(Ylst),T45); T33 = CALL5(1,VARREF(YgooSmacrosYcat),T34,T35,T40,T44,LITREF(lit_11)); T32 = CALL1(1,VARREF(Ylst),T33); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T32,LITREF(lit_11)); T17 = T23; } UNLINK_STACK(); QRET(T17); } LOCCODEDEF(fun_x_1230_86) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = FUNFAB(fun_85,2,FREEREF(0),FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_87) { P return_; P x_1229F2333; P x_1230F2332; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(return_, 0); T7 = FUNSHELL(0,fun_x_1230_86,3); x_1230F2332 = T7; FUNINIT(x_1230F2332, 3,FREEREF(0),FREEREF(1),return_); T6 = BOXGET(FREEREF(0)); x_1229F2333 = T6; T0 = CALL2(1,VARREF(YisaQ),x_1229F2333,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1229F2333,x_1230F2332); } else { T2 = CALL2(1,x_1230F2332,LITREF(lit_7),x_1229F2333); } T4 = CALL1(1,VARREF(Ylst),LITREF(lit_172)); T5 = CALL1(1,VARREF(Ylst),LITREF(lit_173)); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,LITREF(lit_11)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_88) { P return_; P x_1227F2340; P x_1227F2339; P x_1227F2338; P casesF2337; P expF2336; P x_1227F2335; P x_1228F2334; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(return_, 0); T10 = FUNSHELL(0,fun_x_1228_83,2); x_1228F2334 = T10; FUNINIT(x_1228F2334, 2,FREEREF(0),return_); x_1227F2335 = FREEREF(0); expF2336 = YPfalse; expF2336 = BOXFAB(expF2336); casesF2337 = YPfalse; casesF2337 = BOXFAB(casesF2337); T2 = CALL2(1,VARREF(YisaQ),x_1227F2335,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1227F2335,LITREF(lit_163),x_1228F2334); x_1227F2338 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1227F2338,x_1228F2334); BOXPUT(T4,expF2336); T5 = CALL1(1,VARREF(Ytail),x_1227F2338); x_1227F2339 = T5; BOXPUT(x_1227F2339,casesF2337); x_1227F2340 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1227F2340,x_1228F2334); } else { T7 = CALL2(1,x_1228F2334,LITREF(lit_7),x_1227F2335); } T9 = FUNFAB(fun_87,2,casesF2337,expF2336); T8 = with_exit(T9); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_89) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_88,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1236_90) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_178),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_91) { P return_; P x_1235F2349; P x_1235F2348; P x_1235F2347; P x_1235F2346; P argsF2345; P messageF2344; P condF2343; P x_1235F2342; P x_1236F2341; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(return_, 0); T24 = FUNSHELL(0,fun_x_1236_90,2); x_1236F2341 = T24; FUNINIT(x_1236F2341, 2,FREEREF(0),return_); x_1235F2342 = FREEREF(0); condF2343 = YPfalse; messageF2344 = YPfalse; argsF2345 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1235F2342,VARREF(YLlstG)); if (T3 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1235F2342,LITREF(lit_178),x_1236F2341); x_1235F2346 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1235F2346,x_1236F2341); condF2343 = T7; T8 = CALL1(1,VARREF(Ytail),x_1235F2346); x_1235F2347 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1235F2347,x_1236F2341); messageF2344 = T5; T6 = CALL1(1,VARREF(Ytail),x_1235F2347); x_1235F2348 = T6; argsF2345 = x_1235F2348; x_1235F2349 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1235F2349,x_1236F2341); } else { T10 = CALL2(1,x_1236F2341,LITREF(lit_7),x_1235F2342); } T12 = CALL1(1,VARREF(Ylst),LITREF(lit_98)); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_99)); T17 = condF2343; T16 = CALL1(1,VARREF(Ylst),T17); T14 = CALL3(1,VARREF(YgooSmacrosYcat),T15,T16,LITREF(lit_11)); T13 = CALL1(1,VARREF(Ylst),T14); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_179)); T22 = messageF2344; T21 = CALL1(1,VARREF(Ylst),T22); T23 = argsF2345; T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T23,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T11 = CALL4(1,VARREF(YgooSmacrosYcat),T12,T13,T18,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_92) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_91,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1244_93) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_184),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1246_94) { P msg_,args_; P T0; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1248_95) { P msg_,args_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(Ylst),T3); T6 = CALL1(1,VARREF(Ylst),LITREF(lit_196)); T7 = CALL1(1,VARREF(Ylst),FREEREF(1)); T5 = CALL3(1,VARREF(YgooSmacrosYcat),T6,T7,LITREF(lit_11)); T4 = CALL1(1,VARREF(Ylst),T5); T1 = CALL3(1,VARREF(YgooSmacrosYcat),T2,T4,LITREF(lit_11)); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_96) { P return_; P x_1247F2358; P x_1247F2357; P x_1247F2356; P x_1247F2355; P x_1247F2354; P valF2353; P keyF2352; P x_1247F2351; P x_1248F2350; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33; LINK_STACK(); ARG(return_, 0); T33 = FUNSHELL(0,fun_x_1248_95,3); x_1248F2350 = T33; FUNINIT(x_1248F2350, 3,FREEREF(0),FREEREF(1),return_); T32 = BOXGET(FREEREF(0)); x_1247F2351 = T32; keyF2352 = YPfalse; valF2353 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1247F2351,VARREF(YLlstG)); if (T2 != YPfalse) { T11 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1247F2351,LITREF(lit_79),x_1248F2350); x_1247F2354 = T11; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1247F2354,x_1248F2350); keyF2352 = T9; T10 = CALL1(1,VARREF(Ytail),x_1247F2354); x_1247F2355 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1247F2355,x_1248F2350); valF2353 = T7; T8 = CALL1(1,VARREF(Ytail),x_1247F2355); x_1247F2356 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1247F2356,x_1248F2350); x_1247F2357 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1247F2357,x_1248F2350); T6 = CALL1(1,VARREF(Ytail),x_1247F2356); x_1247F2358 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1247F2358,x_1248F2350); } else { T12 = CALL2(1,x_1248F2350,LITREF(lit_7),x_1247F2351); } T16 = CALL1(1,VARREF(Ylst),LITREF(lit_79)); T18 = keyF2352; T17 = CALL1(1,VARREF(Ylst),T18); T20 = valF2353; T19 = CALL1(1,VARREF(Ylst),T20); T15 = CALL4(1,VARREF(YgooSmacrosYcat),T16,T17,T19,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T23 = CALL1(1,VARREF(Ylst),LITREF(lit_79)); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_197)); T27 = CALL1(1,VARREF(Ylst),FREEREF(1)); T25 = CALL3(1,VARREF(YgooSmacrosYcat),T26,T27,LITREF(lit_11)); T24 = CALL1(1,VARREF(Ylst),T25); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_196)); T31 = CALL1(1,VARREF(Ylst),FREEREF(1)); T29 = CALL3(1,VARREF(YgooSmacrosYcat),T30,T31,LITREF(lit_11)); T28 = CALL1(1,VARREF(Ylst),T29); T22 = CALL4(1,VARREF(YgooSmacrosYcat),T23,T24,T28,LITREF(lit_11)); T21 = CALL1(1,VARREF(Ylst),T22); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T21,LITREF(lit_11)); UNLINK_STACK(); QRET(T13); } LOCCODEDEF(fun_97) { P return_; P stateF2367; P x_1245F2366; P x_1245F2365; P x_1245F2364; P x_1245F2363; P expF2362; P varF2361; P x_1245F2360; P x_1246F2359; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(return_, 0); T34 = FUNSHELL(0,fun_x_1246_94,1); x_1246F2359 = T34; FUNINIT(x_1246F2359, 1,return_); x_1245F2360 = FREEREF(0); varF2361 = YPfalse; varF2361 = BOXFAB(varF2361); expF2362 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1245F2360,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1245F2360,x_1246F2359); BOXPUT(T9,varF2361); T10 = CALL1(1,VARREF(Ytail),x_1245F2360); x_1245F2363 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1245F2363,x_1246F2359); expF2362 = T7; T8 = CALL1(1,VARREF(Ytail),x_1245F2363); x_1245F2364 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1245F2364,x_1246F2359); x_1245F2365 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1245F2365,x_1246F2359); T6 = CALL1(1,VARREF(Ytail),x_1245F2364); x_1245F2366 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1245F2366,x_1246F2359); } else { T11 = CALL2(1,x_1246F2359,LITREF(lit_7),x_1245F2360); } T33 = CALL0(1,VARREF(YgooSmacrosYgensym)); stateF2367 = T33; T13 = CALL1(1,VARREF(Ytail),FREEREF(1)); T16 = CALL1(1,VARREF(Ylst),stateF2367); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_191)); T21 = expF2362; T20 = CALL1(1,VARREF(Ylst),T21); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_11)); T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL2(1,VARREF(YgooSmacrosYpair),T15,FREEREF(2)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_192)); T25 = CALL1(1,VARREF(Ylst),stateF2367); T23 = CALL3(1,VARREF(YgooSmacrosYcat),T24,T25,LITREF(lit_11)); T22 = CALL2(1,VARREF(YgooSmacrosYpair),T23,FREEREF(3)); T28 = FUNFAB(fun_96,2,varF2361,stateF2367); T27 = with_exit(T28); T26 = CALL2(1,VARREF(YgooSmacrosYpair),T27,FREEREF(4)); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_198)); T32 = CALL1(1,VARREF(Ylst),stateF2367); T30 = CALL3(1,VARREF(YgooSmacrosYcat),T31,T32,LITREF(lit_11)); T29 = CALL2(1,VARREF(YgooSmacrosYpair),T30,FREEREF(5)); T12 = CALL5(1,FREEREF(6),T13,T14,T22,T26,T29); UNLINK_STACK(); QRET(T12); } LOCCODEDEF(fun_grok_98) { P clauses_,inits_,preds_,nows_,nexts_; P clauseF2369; P loopF2368; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); ARG(clauses_, 0); ARG(inits_, 1); ARG(preds_, 2); ARG(nows_, 3); ARG(nexts_, 4); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),clauses_); if (T1 != YPfalse) { T20 = CALL0(1,VARREF(YgooSmacrosYgensym)); loopF2368 = T20; T3 = CALL1(1,VARREF(Ylst),LITREF(lit_187)); T4 = CALL1(1,VARREF(Ylst),loopF2368); T5 = CALL1(1,VARREF(Ylst),inits_); T8 = CALL1(1,VARREF(Ylst),LITREF(lit_97)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_92)); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,preds_,LITREF(lit_11)); T9 = CALL1(1,VARREF(Ylst),T10); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T15 = CALL1(1,VARREF(Ylst),nows_); T16 = BOXGET(FREEREF(0)); T19 = CALL1(1,VARREF(Ylst),loopF2368); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,nexts_,LITREF(lit_11)); T17 = CALL1(1,VARREF(Ylst),T18); T13 = CALL5(1,VARREF(YgooSmacrosYcat),T14,T15,T16,T17,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T7 = CALL4(1,VARREF(YgooSmacrosYcat),T8,T9,T12,LITREF(lit_11)); T6 = CALL1(1,VARREF(Ylst),T7); T2 = CALL5(1,VARREF(YgooSmacrosYcat),T3,T4,T5,T6,LITREF(lit_11)); T0 = T2; } else { T23 = CALL1(1,VARREF(Yhead),clauses_); clauseF2369 = T23; T22 = FUNFAB(fun_97,7,clauseF2369,clauses_,inits_,preds_,nows_,nexts_,FREEREF(1)); T21 = with_exit(T22); T0 = T21; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_99) { P return_; P grokF2381; P x_1243F2380; P x_1243F2379; P x_1243F2378; P x_1243F2377; P x_1243F2376; P x_1243F2375; P x_1243F2374; P bodyF2373; P clausesF2372; P x_1243F2371; P x_1244F2370; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(return_, 0); T15 = FUNSHELL(0,fun_x_1244_93,2); x_1244F2370 = T15; FUNINIT(x_1244F2370, 2,FREEREF(0),return_); x_1243F2371 = FREEREF(0); clausesF2372 = YPfalse; bodyF2373 = YPfalse; bodyF2373 = BOXFAB(bodyF2373); T2 = CALL2(1,VARREF(YisaQ),x_1243F2371,VARREF(YLlstG)); if (T2 != YPfalse) { T10 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1243F2371,LITREF(lit_184),x_1244F2370); x_1243F2374 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1243F2374,x_1244F2370); x_1243F2375 = T8; clausesF2372 = x_1243F2375; x_1243F2376 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1243F2376,x_1244F2370); x_1243F2377 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1243F2377,x_1244F2370); T7 = CALL1(1,VARREF(Ytail),x_1243F2376); x_1243F2378 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1243F2378,x_1244F2370); T9 = CALL1(1,VARREF(Ytail),x_1243F2374); x_1243F2379 = T9; BOXPUT(x_1243F2379,bodyF2373); x_1243F2380 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1243F2380,x_1244F2370); } else { T11 = CALL2(1,x_1244F2370,LITREF(lit_7),x_1243F2371); } T14 = FUNSHELL(1,fun_grok_98,2); grokF2381 = T14; FUNINIT(grokF2381, 2,bodyF2373,grokF2381); T13 = clausesF2372; T12 = CALL5(1,grokF2381,T13,Ynil,Ynil,Ynil,Ynil); UNLINK_STACK(); QRET(T12); } LOCCODEDEF(fun_100) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_99,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1252_101) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_203),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_102) { P return_; P x_1251F2388; P x_1251F2387; P x_1251F2386; P bodyF2385; P testF2384; P x_1251F2383; P x_1252F2382; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1252_101,2); x_1252F2382 = T21; FUNINIT(x_1252F2382, 2,FREEREF(0),return_); x_1251F2383 = FREEREF(0); testF2384 = YPfalse; bodyF2385 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1251F2383,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1251F2383,LITREF(lit_203),x_1252F2382); x_1251F2386 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1251F2386,x_1252F2382); testF2384 = T4; T5 = CALL1(1,VARREF(Ytail),x_1251F2386); x_1251F2387 = T5; bodyF2385 = x_1251F2387; x_1251F2388 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1251F2388,x_1252F2382); } else { T7 = CALL2(1,x_1252F2382,LITREF(lit_7),x_1251F2383); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_187)); T10 = CALL1(1,VARREF(Ylst),LITREF(lit_204)); T11 = CALL1(1,VARREF(Ylst),Ynil); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_105)); T16 = testF2384; T15 = CALL1(1,VARREF(Ylst),T16); T17 = bodyF2385; T20 = CALL1(1,VARREF(Ylst),LITREF(lit_204)); T19 = CALL2(1,VARREF(YgooSmacrosYcat),T20,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T13 = CALL5(1,VARREF(YgooSmacrosYcat),T14,T15,T17,T18,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T11,T12,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_103) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_102,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1256_104) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_209),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_105) { P return_; P x_1255F2395; P x_1255F2394; P x_1255F2393; P bodyF2392; P testF2391; P x_1255F2390; P x_1256F2389; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1256_104,2); x_1256F2389 = T21; FUNINIT(x_1256F2389, 2,FREEREF(0),return_); x_1255F2390 = FREEREF(0); testF2391 = YPfalse; bodyF2392 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1255F2390,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1255F2390,LITREF(lit_209),x_1256F2389); x_1255F2393 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1255F2393,x_1256F2389); testF2391 = T4; T5 = CALL1(1,VARREF(Ytail),x_1255F2393); x_1255F2394 = T5; bodyF2392 = x_1255F2394; x_1255F2395 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1255F2395,x_1256F2389); } else { T7 = CALL2(1,x_1256F2389,LITREF(lit_7),x_1255F2390); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_187)); T10 = CALL1(1,VARREF(Ylst),LITREF(lit_204)); T11 = CALL1(1,VARREF(Ylst),Ynil); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_97)); T16 = testF2391; T15 = CALL1(1,VARREF(Ylst),T16); T17 = bodyF2392; T20 = CALL1(1,VARREF(Ylst),LITREF(lit_204)); T19 = CALL2(1,VARREF(YgooSmacrosYcat),T20,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T13 = CALL5(1,VARREF(YgooSmacrosYcat),T14,T15,T17,T18,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T11,T12,LITREF(lit_11)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_106) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_105,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1266_107) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_214),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1272_108) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = BOXGET(FREEREF(0)); T1 = CALL2(1,VARREF(Ysyntax_error),LITREF(lit_221),T2); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_109) { P return_; P old_valueF2413; P g_placeF2412; P g_declsF2411; P tup22F2410; P x_1271F2409; P x_1271F2408; P x_1271F2407; P x_1271F2406; P x_1271F2405; P x_1271F2404; P x_1271F2403; P x_1271F2402; P x_1271F2401; P restF2400; P valueF2399; P placeF2398; P x_1271F2397; P x_1272F2396; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56; LINK_STACK(); ARG(return_, 0); T56 = FUNSHELL(0,fun_x_1272_108,2); x_1272F2396 = T56; FUNINIT(x_1272F2396, 2,FREEREF(0),return_); x_1271F2397 = FREEREF(1); placeF2398 = YPfalse; valueF2399 = YPfalse; restF2400 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1271F2397,VARREF(YLlstG)); if (T3 != YPfalse) { T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1271F2397,x_1272F2396); x_1271F2401 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1271F2401,x_1272F2396); placeF2398 = T14; T15 = CALL1(1,VARREF(Ytail),x_1271F2401); x_1271F2402 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1271F2402,x_1272F2396); valueF2399 = T12; T13 = CALL1(1,VARREF(Ytail),x_1271F2402); x_1271F2403 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1271F2403,x_1272F2396); x_1271F2404 = T10; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1271F2404,x_1272F2396); T11 = CALL1(1,VARREF(Ytail),x_1271F2403); x_1271F2405 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1271F2405,x_1272F2396); T17 = CALL1(1,VARREF(Ytail),x_1271F2397); x_1271F2406 = T17; restF2400 = x_1271F2406; x_1271F2407 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1271F2407,x_1272F2396); x_1271F2408 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1271F2408,x_1272F2396); T7 = CALL1(1,VARREF(Ytail),x_1271F2407); x_1271F2409 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1271F2409,x_1272F2396); } else { T18 = CALL2(1,x_1272F2396,LITREF(lit_7),x_1271F2397); } T55 = placeF2398; T54 = CALL1(1,VARREF(YgooSmacrosYlift_place_subforms),T55); tup22F2410 = T54; T53 = CALL2(1,VARREF(YgooSmacrosYelt),tup22F2410,YPint((P)0)); g_declsF2411 = T53; T52 = CALL2(1,VARREF(YgooSmacrosYelt),tup22F2410,YPint((P)1)); g_placeF2412 = T52; T51 = CALL0(1,VARREF(YgooSmacrosYgensym)); old_valueF2413 = T51; T20 = CALL1(1,VARREF(Ylst),LITREF(lit_8)); T25 = CALL1(1,VARREF(Ylst),old_valueF2413); T26 = CALL1(1,VARREF(Ylst),g_placeF2412); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_11)); T23 = CALL1(1,VARREF(Ylst),T24); T22 = CALL3(1,VARREF(YgooSmacrosYcat),g_declsF2411,T23,LITREF(lit_11)); T21 = CALL1(1,VARREF(Ylst),T22); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_222)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T36 = CALL1(1,VARREF(Ylst),g_placeF2412); T38 = valueF2399; T37 = CALL1(1,VARREF(Ylst),T38); T34 = CALL4(1,VARREF(YgooSmacrosYcat),T35,T36,T37,LITREF(lit_11)); T33 = CALL1(1,VARREF(Ylst),T34); T41 = CALL1(1,VARREF(Ylst),LITREF(lit_214)); T44 = restF2400; T43 = CALL2(1,VARREF(YgooSmacrosYcat),T44,LITREF(lit_11)); T42 = CALL1(1,VARREF(Ylst),T43); T45 = BOXGET(FREEREF(2)); T40 = CALL4(1,VARREF(YgooSmacrosYcat),T41,T42,T45,LITREF(lit_11)); T39 = CALL1(1,VARREF(Ylst),T40); T31 = CALL4(1,VARREF(YgooSmacrosYcat),T32,T33,T39,LITREF(lit_11)); T30 = CALL1(1,VARREF(Ylst),T31); T48 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T49 = CALL1(1,VARREF(Ylst),g_placeF2412); T50 = CALL1(1,VARREF(Ylst),old_valueF2413); T47 = CALL4(1,VARREF(YgooSmacrosYcat),T48,T49,T50,LITREF(lit_11)); T46 = CALL1(1,VARREF(Ylst),T47); T28 = CALL4(1,VARREF(YgooSmacrosYcat),T29,T30,T46,LITREF(lit_11)); T27 = CALL1(1,VARREF(Ylst),T28); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T27,LITREF(lit_11)); UNLINK_STACK(); QRET(T19); } LOCCODEDEF(fun_x_1269_110) { P msg_,args_; P x_1270F2414; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1270F2414 = FREEREF(0); T2 = FUNFAB(fun_109,3,FREEREF(1),x_1270F2414,FREEREF(2)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(3),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_111) { P return_; P x_1268F2416; P x_1269F2415; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(return_, 0); T6 = FUNSHELL(0,fun_x_1269_110,4); x_1269F2415 = T6; FUNINIT(x_1269F2415, 4,FREEREF(0),FREEREF(1),FREEREF(2),return_); x_1268F2416 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1268F2416,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1268F2416,x_1269F2415); } else { T2 = CALL2(1,x_1269F2415,LITREF(lit_7),x_1268F2416); } T4 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T5 = BOXGET(FREEREF(2)); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,LITREF(lit_11)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_112) { P return_; P x_1267F2424; P x_1265F2423; P x_1265F2422; P x_1265F2421; P bodyF2420; P placesF2419; P x_1265F2418; P x_1266F2417; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(return_, 0); T11 = FUNSHELL(0,fun_x_1266_107,2); x_1266F2417 = T11; FUNINIT(x_1266F2417, 2,FREEREF(0),return_); x_1265F2418 = FREEREF(0); placesF2419 = YPfalse; placesF2419 = BOXFAB(placesF2419); bodyF2420 = YPfalse; bodyF2420 = BOXFAB(bodyF2420); T2 = CALL2(1,VARREF(YisaQ),x_1265F2418,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1265F2418,LITREF(lit_214),x_1266F2417); x_1265F2421 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1265F2421,x_1266F2417); BOXPUT(T4,placesF2419); T5 = CALL1(1,VARREF(Ytail),x_1265F2421); x_1265F2422 = T5; BOXPUT(x_1265F2422,bodyF2420); x_1265F2423 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1265F2423,x_1266F2417); } else { T7 = CALL2(1,x_1266F2417,LITREF(lit_7),x_1265F2418); } T10 = BOXGET(placesF2419); x_1267F2424 = T10; T9 = FUNFAB(fun_111,3,x_1267F2424,placesF2419,bodyF2420); T8 = with_exit(T9); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_113) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_112,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1276_114) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_227),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_115) { P return_; P vnamF2434; P typF2433; P namF2432; P x_1275F2431; P x_1275F2430; P x_1275F2429; P valueF2428; P varF2427; P x_1275F2426; P x_1276F2425; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48; LINK_STACK(); ARG(return_, 0); T48 = FUNSHELL(0,fun_x_1276_114,2); x_1276F2425 = T48; FUNINIT(x_1276F2425, 2,FREEREF(0),return_); x_1275F2426 = FREEREF(0); varF2427 = YPfalse; valueF2428 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1275F2426,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1275F2426,LITREF(lit_227),x_1276F2425); x_1275F2429 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1275F2429,x_1276F2425); varF2427 = T6; T7 = CALL1(1,VARREF(Ytail),x_1275F2429); x_1275F2430 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1275F2430,x_1276F2425); valueF2428 = T4; T5 = CALL1(1,VARREF(Ytail),x_1275F2430); x_1275F2431 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1275F2431,x_1276F2425); } else { T9 = CALL2(1,x_1276F2425,LITREF(lit_7),x_1275F2426); } T47 = varF2427; T46 = CALL1(1,VARREF(YgooSmacrosYvar_name),T47); namF2432 = T46; T45 = varF2427; T44 = CALL1(1,VARREF(YgooSmacrosYvar_type),T45); typF2433 = T44; T43 = CALL3(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_228),namF2432,LITREF(lit_229)); vnamF2434 = T43; T11 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_230)); T15 = CALL1(1,VARREF(Ylst),vnamF2434); T17 = valueF2428; T16 = CALL1(1,VARREF(Ylst),T17); T13 = CALL4(1,VARREF(YgooSmacrosYcat),T14,T15,T16,LITREF(lit_11)); T12 = CALL1(1,VARREF(Ylst),T13); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_231)); T21 = CALL1(1,VARREF(Ylst),namF2432); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_232)); T25 = CALL1(1,VARREF(Ylst),typF2433); T23 = CALL3(1,VARREF(YgooSmacrosYcat),T24,T25,LITREF(lit_11)); T22 = CALL1(1,VARREF(Ylst),T23); T26 = CALL1(1,VARREF(Ylst),vnamF2434); T19 = CALL5(1,VARREF(YgooSmacrosYcat),T20,T21,T22,T26,LITREF(lit_11)); T18 = CALL1(1,VARREF(Ylst),T19); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_231)); T31 = CALL1(1,VARREF(YgooSmacrosYfab_setter_name),namF2432); T30 = CALL1(1,VARREF(Ylst),T31); T36 = CALL1(1,VARREF(Ylst),LITREF(lit_233)); T37 = CALL1(1,VARREF(Ylst),typF2433); T35 = CALL3(1,VARREF(YgooSmacrosYcat),T36,T37,LITREF(lit_11)); T34 = CALL1(1,VARREF(Ylst),T35); T33 = CALL2(1,VARREF(YgooSmacrosYcat),T34,LITREF(lit_11)); T32 = CALL1(1,VARREF(Ylst),T33); T40 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T41 = CALL1(1,VARREF(Ylst),vnamF2434); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_233)); T39 = CALL4(1,VARREF(YgooSmacrosYcat),T40,T41,T42,LITREF(lit_11)); T38 = CALL1(1,VARREF(Ylst),T39); T28 = CALL5(1,VARREF(YgooSmacrosYcat),T29,T30,T32,T38,LITREF(lit_11)); T27 = CALL1(1,VARREF(Ylst),T28); T10 = CALL5(1,VARREF(YgooSmacrosYcat),T11,T12,T18,T27,LITREF(lit_11)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_116) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_115,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1280_117) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_238),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_118) { P return_; P x_1279F2439; P x_1279F2438; P bodyF2437; P x_1279F2436; P x_1280F2435; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(return_, 0); T14 = FUNSHELL(0,fun_x_1280_117,2); x_1280F2435 = T14; FUNINIT(x_1280F2435, 2,FREEREF(0),return_); x_1279F2436 = FREEREF(0); bodyF2437 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1279F2436,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1279F2436,LITREF(lit_238),x_1280F2435); x_1279F2438 = T3; bodyF2437 = x_1279F2438; x_1279F2439 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1279F2439,x_1280F2435); } else { T4 = CALL2(1,x_1280F2435,LITREF(lit_7),x_1279F2436); } T6 = CALL1(1,VARREF(Ylst),LITREF(lit_214)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_239)); T12 = CALL1(1,VARREF(Ylst),YPfalse); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_11)); T9 = CALL1(1,VARREF(Ylst),T10); T8 = CALL2(1,VARREF(YgooSmacrosYcat),T9,LITREF(lit_11)); T7 = CALL1(1,VARREF(Ylst),T8); T13 = bodyF2437; T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T13,LITREF(lit_11)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_119) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_118,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1284_120) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_244),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_121) { P return_; P x_1283F2444; P x_1283F2443; P namesF2442; P x_1283F2441; P x_1284F2440; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28; LINK_STACK(); ARG(return_, 0); T28 = FUNSHELL(0,fun_x_1284_120,2); x_1284F2440 = T28; FUNINIT(x_1284F2440, 2,FREEREF(0),return_); x_1283F2441 = FREEREF(0); namesF2442 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1283F2441,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1283F2441,LITREF(lit_244),x_1284F2440); x_1283F2443 = T3; namesF2442 = x_1283F2443; x_1283F2444 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1283F2444,x_1284F2440); } else { T4 = CALL2(1,x_1284F2440,LITREF(lit_7),x_1283F2441); } T7 = namesF2442; T6 = CALL1(1,VARREF(YgooSmacrosYnulQ),T7); if (T6 != YPfalse) { T5 = YPfalse; } else { T9 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_121)); T13 = CALL1(1,VARREF(Ylst),YPfalse); T16 = namesF2442; T15 = CALL1(1,VARREF(Yhead),T16); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL4(1,VARREF(YgooSmacrosYcat),T12,T13,T14,LITREF(lit_11)); T10 = CALL1(1,VARREF(Ylst),T11); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T22 = namesF2442; T21 = CALL1(1,VARREF(Yhead),T22); T20 = CALL1(1,VARREF(Ylst),T21); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_11)); T17 = CALL1(1,VARREF(Ylst),T18); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_244)); T27 = namesF2442; T26 = CALL1(1,VARREF(Ytail),T27); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_11)); T23 = CALL1(1,VARREF(Ylst),T24); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T17,T23,LITREF(lit_11)); T5 = T8; } UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_122) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_121,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1312_123) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_250),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1336_124) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL1(1,VARREF(Ysyntax_error),LITREF(lit_173)); T0 = CALL1(1,FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_125) { P return_; P x_1335F2450; P x_1335F2449; P x_1335F2448; P nameF2447; P x_1335F2446; P x_1336F2445; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(return_, 0); T20 = FUNSHELL(0,fun_x_1336_124,1); x_1336F2445 = T20; FUNINIT(x_1336F2445, 1,return_); x_1335F2446 = FREEREF(0); nameF2447 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1335F2446,VARREF(YLlstG)); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1335F2446,x_1336F2445); nameF2447 = T6; T7 = CALL1(1,VARREF(Ytail),x_1335F2446); x_1335F2448 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1335F2448,x_1336F2445); x_1335F2449 = T4; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1335F2449,x_1336F2445); T5 = CALL1(1,VARREF(Ytail),x_1335F2448); x_1335F2450 = T5; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1335F2450,x_1336F2445); } else { T8 = CALL2(1,x_1336F2445,LITREF(lit_7),x_1335F2446); } T11 = nameF2447; T10 = CALL2(1,VARREF(YisaQ),T11,VARREF(YLsymG)); if (T10 != YPfalse) { T14 = nameF2447; T13 = CALL1(1,VARREF(Ylst),T14); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T19 = nameF2447; T18 = CALL1(1,VARREF(Ylst),T19); T16 = CALL3(1,VARREF(YgooSmacrosYcat),T17,T18,LITREF(lit_11)); T15 = CALL1(1,VARREF(Ylst),T16); T12 = CALL3(1,VARREF(YgooSmacrosYcat),T13,T15,LITREF(lit_11)); T9 = T12; } else { T9 = Ynil; } UNLINK_STACK(); QRET(T9); } LOCCODEDEF(fun_x_1333_126) { P msg_,args_; P x_1334F2451; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1334F2451 = FREEREF(0); T2 = FUNFAB(fun_125,1,x_1334F2451); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_127) { P return_; P x_1332F2460; P x_1332F2459; P x_1332F2458; P x_1332F2457; P x_1332F2456; P restF2455; P nameF2454; P x_1332F2453; P x_1333F2452; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1333_126,2); x_1333F2452 = T19; FUNINIT(x_1333F2452, 2,FREEREF(0),return_); x_1332F2453 = FREEREF(0); nameF2454 = YPfalse; restF2455 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1332F2453,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1332F2453,LITREF(lit_275),x_1333F2452); x_1332F2456 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1332F2456,x_1333F2452); nameF2454 = T7; T8 = CALL1(1,VARREF(Ytail),x_1332F2456); x_1332F2457 = T8; restF2455 = x_1332F2457; x_1332F2458 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1332F2458,x_1333F2452); x_1332F2459 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1332F2459,x_1333F2452); T6 = CALL1(1,VARREF(Ytail),x_1332F2458); x_1332F2460 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1332F2460,x_1333F2452); } else { T10 = CALL2(1,x_1333F2452,LITREF(lit_7),x_1332F2453); } T13 = BOXGET(FREEREF(1)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2454; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_x_1330_128) { P msg_,args_; P x_1331F2461; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1331F2461 = FREEREF(0); T2 = FUNFAB(fun_127,2,x_1331F2461,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_129) { P return_; P x_1329F2470; P x_1329F2469; P x_1329F2468; P x_1329F2467; P x_1329F2466; P restF2465; P nameF2464; P x_1329F2463; P x_1330F2462; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1330_128,3); x_1330F2462 = T19; FUNINIT(x_1330F2462, 3,FREEREF(0),FREEREF(1),return_); x_1329F2463 = FREEREF(0); nameF2464 = YPfalse; restF2465 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1329F2463,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1329F2463,LITREF(lit_276),x_1330F2462); x_1329F2466 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1329F2466,x_1330F2462); nameF2464 = T7; T8 = CALL1(1,VARREF(Ytail),x_1329F2466); x_1329F2467 = T8; restF2465 = x_1329F2467; x_1329F2468 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1329F2468,x_1330F2462); x_1329F2469 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1329F2469,x_1330F2462); T6 = CALL1(1,VARREF(Ytail),x_1329F2468); x_1329F2470 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1329F2470,x_1330F2462); } else { T10 = CALL2(1,x_1330F2462,LITREF(lit_7),x_1329F2463); } T13 = BOXGET(FREEREF(1)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2464; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_x_1327_130) { P msg_,args_; P x_1328F2471; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1328F2471 = FREEREF(0); T2 = FUNFAB(fun_129,2,x_1328F2471,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_131) { P return_; P x_1326F2480; P x_1326F2479; P x_1326F2478; P x_1326F2477; P x_1326F2476; P restF2475; P nameF2474; P x_1326F2473; P x_1327F2472; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1327_130,3); x_1327F2472 = T19; FUNINIT(x_1327F2472, 3,FREEREF(0),FREEREF(1),return_); x_1326F2473 = FREEREF(0); nameF2474 = YPfalse; restF2475 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1326F2473,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1326F2473,LITREF(lit_277),x_1327F2472); x_1326F2476 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1326F2476,x_1327F2472); nameF2474 = T7; T8 = CALL1(1,VARREF(Ytail),x_1326F2476); x_1326F2477 = T8; restF2475 = x_1326F2477; x_1326F2478 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1326F2478,x_1327F2472); x_1326F2479 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1326F2479,x_1327F2472); T6 = CALL1(1,VARREF(Ytail),x_1326F2478); x_1326F2480 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1326F2480,x_1327F2472); } else { T10 = CALL2(1,x_1327F2472,LITREF(lit_7),x_1326F2473); } T13 = BOXGET(FREEREF(1)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2474; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_x_1324_132) { P msg_,args_; P x_1325F2481; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1325F2481 = FREEREF(0); T2 = FUNFAB(fun_131,2,x_1325F2481,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_133) { P return_; P x_1323F2490; P x_1323F2489; P x_1323F2488; P x_1323F2487; P x_1323F2486; P restF2485; P nameF2484; P x_1323F2483; P x_1324F2482; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1324_132,3); x_1324F2482 = T19; FUNINIT(x_1324F2482, 3,FREEREF(0),FREEREF(1),return_); x_1323F2483 = FREEREF(0); nameF2484 = YPfalse; restF2485 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1323F2483,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1323F2483,LITREF(lit_230),x_1324F2482); x_1323F2486 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1323F2486,x_1324F2482); nameF2484 = T7; T8 = CALL1(1,VARREF(Ytail),x_1323F2486); x_1323F2487 = T8; restF2485 = x_1323F2487; x_1323F2488 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1323F2488,x_1324F2482); x_1323F2489 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1323F2489,x_1324F2482); T6 = CALL1(1,VARREF(Ytail),x_1323F2488); x_1323F2490 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1323F2490,x_1324F2482); } else { T10 = CALL2(1,x_1324F2482,LITREF(lit_7),x_1323F2483); } T13 = BOXGET(FREEREF(1)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2484; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_x_1321_134) { P msg_,args_; P x_1322F2491; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1322F2491 = FREEREF(0); T2 = FUNFAB(fun_133,2,x_1322F2491,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_135) { P return_; P x_1320F2500; P x_1320F2499; P x_1320F2498; P x_1320F2497; P x_1320F2496; P restF2495; P nameF2494; P x_1320F2493; P x_1321F2492; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1321_134,3); x_1321F2492 = T19; FUNINIT(x_1321F2492, 3,FREEREF(0),FREEREF(1),return_); x_1320F2493 = FREEREF(0); nameF2494 = YPfalse; restF2495 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1320F2493,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1320F2493,LITREF(lit_278),x_1321F2492); x_1320F2496 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1320F2496,x_1321F2492); nameF2494 = T7; T8 = CALL1(1,VARREF(Ytail),x_1320F2496); x_1320F2497 = T8; restF2495 = x_1320F2497; x_1320F2498 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1320F2498,x_1321F2492); x_1320F2499 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1320F2499,x_1321F2492); T6 = CALL1(1,VARREF(Ytail),x_1320F2498); x_1320F2500 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1320F2500,x_1321F2492); } else { T10 = CALL2(1,x_1321F2492,LITREF(lit_7),x_1320F2493); } T13 = nameF2494; T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2494; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_x_1318_136) { P msg_,args_; P x_1319F2501; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1319F2501 = FREEREF(0); T2 = FUNFAB(fun_135,2,x_1319F2501,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_137) { P return_; P x_1317F2510; P x_1317F2509; P x_1317F2508; P x_1317F2507; P x_1317F2506; P restF2505; P nameF2504; P x_1317F2503; P x_1318F2502; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(return_, 0); T25 = FUNSHELL(0,fun_x_1318_136,3); x_1318F2502 = T25; FUNINIT(x_1318F2502, 3,FREEREF(0),FREEREF(1),return_); x_1317F2503 = FREEREF(0); nameF2504 = YPfalse; restF2505 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1317F2503,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1317F2503,LITREF(lit_279),x_1318F2502); x_1317F2506 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1317F2506,x_1318F2502); nameF2504 = T7; T8 = CALL1(1,VARREF(Ytail),x_1317F2506); x_1317F2507 = T8; restF2505 = x_1317F2507; x_1317F2508 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1317F2508,x_1318F2502); x_1317F2509 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1317F2509,x_1318F2502); T6 = CALL1(1,VARREF(Ytail),x_1317F2508); x_1317F2510 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1317F2510,x_1318F2502); } else { T10 = CALL2(1,x_1318F2502,LITREF(lit_7),x_1317F2503); } T13 = BOXGET(FREEREF(1)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2504; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T24 = nameF2504; T23 = CALL1(1,VARREF(YgooSmacrosYfab_setter_name),T24); T22 = CALL1(1,VARREF(Ylst),T23); T20 = CALL3(1,VARREF(YgooSmacrosYcat),T21,T22,LITREF(lit_11)); T19 = CALL1(1,VARREF(Ylst),T20); T11 = CALL4(1,VARREF(YgooSmacrosYcat),T12,T14,T19,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_x_1315_138) { P msg_,args_; P x_1316F2511; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1316F2511 = FREEREF(0); T2 = FUNFAB(fun_137,2,x_1316F2511,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_139) { P return_; P x_1314F2520; P x_1314F2519; P x_1314F2518; P x_1314F2517; P x_1314F2516; P restF2515; P nameF2514; P x_1314F2513; P x_1315F2512; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(return_, 0); T19 = FUNSHELL(0,fun_x_1315_138,3); x_1315F2512 = T19; FUNINIT(x_1315F2512, 3,FREEREF(0),FREEREF(1),return_); x_1314F2513 = FREEREF(0); nameF2514 = YPfalse; restF2515 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1314F2513,VARREF(YLlstG)); if (T2 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1314F2513,LITREF(lit_280),x_1315F2512); x_1314F2516 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1314F2516,x_1315F2512); nameF2514 = T7; T8 = CALL1(1,VARREF(Ytail),x_1314F2516); x_1314F2517 = T8; restF2515 = x_1314F2517; x_1314F2518 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1314F2518,x_1315F2512); x_1314F2519 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1314F2519,x_1315F2512); T6 = CALL1(1,VARREF(Ytail),x_1314F2518); x_1314F2520 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1314F2520,x_1315F2512); } else { T10 = CALL2(1,x_1315F2512,LITREF(lit_7),x_1314F2513); } T13 = BOXGET(FREEREF(1)); T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_245)); T18 = nameF2514; T17 = CALL1(1,VARREF(Ylst),T18); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T17,LITREF(lit_11)); T14 = CALL1(1,VARREF(Ylst),T15); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T14,LITREF(lit_11)); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_140) { P return_; P defsF2527; P x_1313F2526; P x_1311F2525; P x_1311F2524; P defF2523; P x_1311F2522; P x_1312F2521; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(return_, 0); T10 = FUNSHELL(0,fun_x_1312_123,2); x_1312F2521 = T10; FUNINIT(x_1312F2521, 2,FREEREF(0),return_); x_1311F2522 = FREEREF(0); defF2523 = YPfalse; defF2523 = BOXFAB(defF2523); T1 = CALL2(1,VARREF(YisaQ),x_1311F2522,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1311F2522,LITREF(lit_250),x_1312F2521); x_1311F2524 = T3; BOXPUT(x_1311F2524,defF2523); x_1311F2525 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1311F2525,x_1312F2521); } else { T4 = CALL2(1,x_1312F2521,LITREF(lit_7),x_1311F2522); } T9 = BOXGET(defF2523); x_1313F2526 = T9; T8 = FUNFAB(fun_139,2,x_1313F2526,defF2523); T7 = with_exit(T8); defsF2527 = T7; T6 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T5 = CALL3(1,VARREF(YgooSmacrosYcat),T6,defsF2527,LITREF(lit_11)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_141) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_140,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1340_142) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_285),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_143) { P x_; P xF2528; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); T3 = CALL2(1,VARREF(YisaQ),x_,VARREF(YLlstG)); if (T3 != YPfalse) { T2 = x_; } else { T4 = CALL1(1,VARREF(Ylst),x_); T2 = T4; } xF2528 = T2; T1 = CALL1(1,VARREF(Ylst),LITREF(lit_250)); T0 = CALL3(1,VARREF(YgooSmacrosYcat),T1,xF2528,LITREF(lit_11)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_144) { P return_; P x_1339F2533; P x_1339F2532; P defsF2531; P x_1339F2530; P x_1340F2529; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(return_, 0); T10 = FUNSHELL(0,fun_x_1340_142,2); x_1340F2529 = T10; FUNINIT(x_1340F2529, 2,FREEREF(0),return_); x_1339F2530 = FREEREF(0); defsF2531 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1339F2530,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1339F2530,LITREF(lit_285),x_1340F2529); x_1339F2532 = T3; defsF2531 = x_1339F2532; x_1339F2533 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1339F2533,x_1340F2529); } else { T4 = CALL2(1,x_1340F2529,LITREF(lit_7),x_1339F2530); } T6 = CALL1(1,VARREF(Ylst),LITREF(lit_100)); T8 = fun_143; T9 = defsF2531; T7 = CALL2(1,VARREF(YgooSmacrosYmap),T8,T9); T5 = CALL3(1,VARREF(YgooSmacrosYcat),T6,T7,LITREF(lit_11)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_145) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_144,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } P YgooSmacrosY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165,T166,T167,T168,T169,T170,T171,T172,T173,T174,T175; P T176,T177,T178,T179,T180,T181; DEFCREGS(); lit_0 = YPPsym((P)"@checked-next-methods"); lit_1 = YPPlist(3,YPPsym((P)"met"),YPPsym((P)"nxt-mets"),YPPsym((P)"args")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYOchecked_next_methods = YPfab_met(FUNCODEREF(YgooSmacrosYOchecked_next_methods),T0,LITREF(lit_0),LITREF(lit_1),sloc(10),YPfalse); T1 = YgooSmacrosYOchecked_next_methods; VARSET(YgooSmacrosYOchecked_next_methods,T1); lit_2 = YPPlist(1,YPPsym((P)"exp")); lit_3 = YPPlist(1,YPPsym((P)"return")); lit_4 = YPPsym((P)"x-1112"); lit_5 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_6 = YPPsym((P)"sup"); lit_7 = YPsb((P)"Match Pattern Failure"); lit_8 = YPPsym((P)"let"); lit_9 = YPPsym((P)"next-mets"); lit_10 = YPPsym((P)"%fun-reg"); lit_11 = Ynil; lit_12 = YPPsym((P)"%next-methods"); lit_13 = YPPsym((P)"napp"); lit_14 = YPPsym((P)"head"); lit_15 = YPPsym((P)"tail"); lit_16 = YPPsym((P)"quote"); T4 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1112_1 = YPfab_met(FUNCODEREF(fun_x_1112_1),T4,LITREF(lit_4),LITREF(lit_5),YPfalse,YPfalse); T3 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T3,YPfalse,LITREF(lit_3),YPfalse,YPfalse); T2 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T2,YPfalse,LITREF(lit_2),YPfalse,YPfalse); T5 = fun_3; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"sup"),T5); lit_17 = YPPlist(1,YPPsym((P)"exp")); lit_18 = YPPlist(1,YPPsym((P)"return")); lit_19 = YPPsym((P)"x-1116"); lit_20 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_21 = YPPsym((P)"app-sup"); T8 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1116_4 = YPfab_met(FUNCODEREF(fun_x_1116_4),T8,LITREF(lit_19),LITREF(lit_20),YPfalse,YPfalse); T7 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T7,YPfalse,LITREF(lit_18),YPfalse,YPfalse); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T6,YPfalse,LITREF(lit_17),YPfalse,YPfalse); T9 = fun_6; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"app-sup"),T9); lit_22 = YPPlist(1,YPPsym((P)"exp")); lit_23 = YPPlist(1,YPPsym((P)"return")); lit_24 = YPPsym((P)"x-1120"); lit_25 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_26 = YPPsym((P)"app"); T12 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1120_7 = YPfab_met(FUNCODEREF(fun_x_1120_7),T12,LITREF(lit_24),LITREF(lit_25),YPfalse,YPfalse); T11 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_8 = YPfab_met(FUNCODEREF(fun_8),T11,YPfalse,LITREF(lit_23),YPfalse,YPfalse); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T10,YPfalse,LITREF(lit_22),YPfalse,YPfalse); T13 = fun_9; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"app"),T13); lit_27 = YPPlist(1,YPPsym((P)"exp")); lit_28 = YPPlist(1,YPPsym((P)"return")); lit_29 = YPPsym((P)"x-1124"); lit_30 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_31 = YPPsym((P)"renew"); lit_32 = YPPsym((P)"set"); T16 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1124_10 = YPfab_met(FUNCODEREF(fun_x_1124_10),T16,LITREF(lit_29),LITREF(lit_30),YPfalse,YPfalse); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T15,YPfalse,LITREF(lit_28),YPfalse,YPfalse); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T14,YPfalse,LITREF(lit_27),YPfalse,YPfalse); T17 = fun_12; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"renew"),T17); lit_33 = YPPsym((P)"lift-place-subforms"); lit_34 = YPPlist(1,YPPsym((P)"place")); lit_35 = YPPsym((P)"munch"); lit_36 = YPPlist(1,YPPsym((P)"subforms")); T21 = XCALL2(1,VARREF(YtT),VARREF(YLlstG),VARREF(YLlstG)); T20 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),T21,Ynil); fun_munch_13 = YPfab_met(FUNCODEREF(fun_munch_13),T20,LITREF(lit_35),LITREF(lit_36),sloc(48),YPfalse); T19 = XCALL2(1,VARREF(YtT),VARREF(YLlstG),VARREF(YLanyG)); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),T19,Ynil); YgooSmacrosYlift_place_subforms = YPfab_met(FUNCODEREF(YgooSmacrosYlift_place_subforms),T18,LITREF(lit_33),LITREF(lit_34),sloc(47),YPfalse); T22 = YgooSmacrosYlift_place_subforms; VARSET(YgooSmacrosYlift_place_subforms,T22); lit_37 = YPPlist(1,YPPsym((P)"exp")); lit_38 = YPPlist(1,YPPsym((P)"return")); lit_39 = YPPsym((P)"x-1130"); lit_40 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_41 = YPPsym((P)"incf"); lit_42 = YPPlist(1,YPPsym((P)"return")); lit_43 = YPPsym((P)"x-1132"); lit_44 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_45 = YPPsym((P)"+"); T27 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1130_15 = YPfab_met(FUNCODEREF(fun_x_1130_15),T27,LITREF(lit_39),LITREF(lit_40),YPfalse,YPfalse); T26 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1132_16 = YPfab_met(FUNCODEREF(fun_x_1132_16),T26,LITREF(lit_43),LITREF(lit_44),YPfalse,YPfalse); T25 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_17 = YPfab_met(FUNCODEREF(fun_17),T25,YPfalse,LITREF(lit_42),YPfalse,YPfalse); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T24,YPfalse,LITREF(lit_38),YPfalse,YPfalse); T23 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_19 = YPfab_met(FUNCODEREF(fun_19),T23,YPfalse,LITREF(lit_37),YPfalse,YPfalse); T28 = fun_19; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"incf"),T28); lit_46 = YPPlist(1,YPPsym((P)"exp")); lit_47 = YPPlist(1,YPPsym((P)"return")); lit_48 = YPPsym((P)"x-1138"); lit_49 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_50 = YPPsym((P)"decf"); lit_51 = YPPlist(1,YPPsym((P)"return")); lit_52 = YPPsym((P)"x-1140"); lit_53 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_54 = YPPsym((P)"-"); T33 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1138_20 = YPfab_met(FUNCODEREF(fun_x_1138_20),T33,LITREF(lit_48),LITREF(lit_49),YPfalse,YPfalse); T32 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1140_21 = YPfab_met(FUNCODEREF(fun_x_1140_21),T32,LITREF(lit_52),LITREF(lit_53),YPfalse,YPfalse); T31 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T31,YPfalse,LITREF(lit_51),YPfalse,YPfalse); T30 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_23 = YPfab_met(FUNCODEREF(fun_23),T30,YPfalse,LITREF(lit_47),YPfalse,YPfalse); T29 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T29,YPfalse,LITREF(lit_46),YPfalse,YPfalse); T34 = fun_24; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"decf"),T34); lit_55 = YPPlist(1,YPPsym((P)"exp")); lit_56 = YPPlist(1,YPPsym((P)"return")); lit_57 = YPPsym((P)"x-1144"); lit_58 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_59 = YPPsym((P)"pushf"); lit_60 = YPPsym((P)"push!"); T37 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1144_25 = YPfab_met(FUNCODEREF(fun_x_1144_25),T37,LITREF(lit_57),LITREF(lit_58),YPfalse,YPfalse); T36 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T36,YPfalse,LITREF(lit_56),YPfalse,YPfalse); T35 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_27 = YPfab_met(FUNCODEREF(fun_27),T35,YPfalse,LITREF(lit_55),YPfalse,YPfalse); T38 = fun_27; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"pushf"),T38); lit_61 = YPPlist(1,YPPsym((P)"exp")); lit_62 = YPPlist(1,YPPsym((P)"return")); lit_63 = YPPsym((P)"x-1148"); lit_64 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_65 = YPPsym((P)"swapf"); T41 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1148_28 = YPfab_met(FUNCODEREF(fun_x_1148_28),T41,LITREF(lit_63),LITREF(lit_64),YPfalse,YPfalse); T40 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_29 = YPfab_met(FUNCODEREF(fun_29),T40,YPfalse,LITREF(lit_62),YPfalse,YPfalse); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T39,YPfalse,LITREF(lit_61),YPfalse,YPfalse); T42 = fun_30; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"swapf"),T42); lit_66 = YPPlist(1,YPPsym((P)"exp")); lit_67 = YPPlist(1,YPPsym((P)"return")); lit_68 = YPPsym((P)"x-1152"); lit_69 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_70 = YPPsym((P)"rotf"); lit_71 = YPPlist(1,YPPsym((P)"x")); lit_72 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"p")); lit_73 = YPPlist(2,YPPsym((P)"p"),YPPsym((P)"t")); T48 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1152_31 = YPfab_met(FUNCODEREF(fun_x_1152_31),T48,LITREF(lit_68),LITREF(lit_69),YPfalse,YPfalse); T47 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_32 = YPfab_met(FUNCODEREF(fun_32),T47,YPfalse,LITREF(lit_71),sloc(92),YPfalse); T46 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_33 = YPfab_met(FUNCODEREF(fun_33),T46,YPfalse,LITREF(lit_72),YPfalse,YPfalse); T45 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T45,YPfalse,LITREF(lit_73),YPfalse,YPfalse); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_35 = YPfab_met(FUNCODEREF(fun_35),T44,YPfalse,LITREF(lit_67),YPfalse,YPfalse); T43 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T43,YPfalse,LITREF(lit_66),YPfalse,YPfalse); T49 = fun_36; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"rotf"),T49); lit_74 = YPPlist(1,YPPsym((P)"exp")); lit_75 = YPPlist(1,YPPsym((P)"return")); lit_76 = YPPsym((P)"x-1156"); lit_77 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_78 = YPPsym((P)"popf"); lit_79 = YPPsym((P)"tup"); lit_80 = YPPsym((P)"pop!"); T52 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1156_37 = YPfab_met(FUNCODEREF(fun_x_1156_37),T52,LITREF(lit_76),LITREF(lit_77),YPfalse,YPfalse); T51 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_38 = YPfab_met(FUNCODEREF(fun_38),T51,YPfalse,LITREF(lit_75),YPfalse,YPfalse); T50 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_39 = YPfab_met(FUNCODEREF(fun_39),T50,YPfalse,LITREF(lit_74),YPfalse,YPfalse); T53 = fun_39; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"popf"),T53); lit_81 = YPPlist(1,YPPsym((P)"exp")); lit_82 = YPPlist(1,YPPsym((P)"return")); lit_83 = YPPsym((P)"x-1160"); lit_84 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_85 = YPPsym((P)"opf"); lit_86 = YPPsym((P)"_"); T56 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1160_40 = YPfab_met(FUNCODEREF(fun_x_1160_40),T56,LITREF(lit_83),LITREF(lit_84),YPfalse,YPfalse); T55 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_41 = YPfab_met(FUNCODEREF(fun_41),T55,YPfalse,LITREF(lit_82),YPfalse,YPfalse); T54 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_42 = YPfab_met(FUNCODEREF(fun_42),T54,YPfalse,LITREF(lit_81),YPfalse,YPfalse); T57 = fun_42; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"opf"),T57); lit_87 = YPPlist(1,YPPsym((P)"exp")); lit_88 = YPPlist(1,YPPsym((P)"return")); lit_89 = YPPsym((P)"x-1164"); lit_90 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_91 = YPPsym((P)"or/set"); lit_92 = YPPsym((P)"or"); T60 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1164_43 = YPfab_met(FUNCODEREF(fun_x_1164_43),T60,LITREF(lit_89),LITREF(lit_90),YPfalse,YPfalse); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T59,YPfalse,LITREF(lit_88),YPfalse,YPfalse); T58 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_45 = YPfab_met(FUNCODEREF(fun_45),T58,YPfalse,LITREF(lit_87),YPfalse,YPfalse); T61 = fun_45; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"or/set"),T61); lit_93 = YPPlist(1,YPPsym((P)"exp")); lit_94 = YPPlist(1,YPPsym((P)"return")); lit_95 = YPPsym((P)"x-1168"); lit_96 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_97 = YPPsym((P)"unless"); lit_98 = YPPsym((P)"if"); lit_99 = YPPsym((P)"not"); lit_100 = YPPsym((P)"seq"); T64 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1168_46 = YPfab_met(FUNCODEREF(fun_x_1168_46),T64,LITREF(lit_95),LITREF(lit_96),YPfalse,YPfalse); T63 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_47 = YPfab_met(FUNCODEREF(fun_47),T63,YPfalse,LITREF(lit_94),YPfalse,YPfalse); T62 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_48 = YPfab_met(FUNCODEREF(fun_48),T62,YPfalse,LITREF(lit_93),YPfalse,YPfalse); T65 = fun_48; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"unless"),T65); lit_101 = YPPlist(1,YPPsym((P)"exp")); lit_102 = YPPlist(1,YPPsym((P)"return")); lit_103 = YPPsym((P)"x-1172"); lit_104 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_105 = YPPsym((P)"when"); T68 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1172_49 = YPfab_met(FUNCODEREF(fun_x_1172_49),T68,LITREF(lit_103),LITREF(lit_104),YPfalse,YPfalse); T67 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_50 = YPfab_met(FUNCODEREF(fun_50),T67,YPfalse,LITREF(lit_102),YPfalse,YPfalse); T66 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_51 = YPfab_met(FUNCODEREF(fun_51),T66,YPfalse,LITREF(lit_101),YPfalse,YPfalse); T69 = fun_51; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"when"),T69); lit_106 = YPPlist(1,YPPsym((P)"exp")); lit_107 = YPPlist(1,YPPsym((P)"return")); lit_108 = YPPsym((P)"x-1180"); lit_109 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_110 = YPPlist(1,YPPsym((P)"return")); lit_111 = YPPsym((P)"x-1182"); lit_112 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_113 = YPPlist(1,YPPsym((P)"return")); lit_114 = YPPsym((P)"x-1184"); lit_115 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_116 = YPPsym((P)"tmp"); T76 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1180_52 = YPfab_met(FUNCODEREF(fun_x_1180_52),T76,LITREF(lit_108),LITREF(lit_109),YPfalse,YPfalse); T75 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1182_53 = YPfab_met(FUNCODEREF(fun_x_1182_53),T75,LITREF(lit_111),LITREF(lit_112),YPfalse,YPfalse); T74 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1184_54 = YPfab_met(FUNCODEREF(fun_x_1184_54),T74,LITREF(lit_114),LITREF(lit_115),YPfalse,YPfalse); T73 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_55 = YPfab_met(FUNCODEREF(fun_55),T73,YPfalse,LITREF(lit_113),YPfalse,YPfalse); T72 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_56 = YPfab_met(FUNCODEREF(fun_56),T72,YPfalse,LITREF(lit_110),YPfalse,YPfalse); T71 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_57 = YPfab_met(FUNCODEREF(fun_57),T71,YPfalse,LITREF(lit_107),YPfalse,YPfalse); T70 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_58 = YPfab_met(FUNCODEREF(fun_58),T70,YPfalse,LITREF(lit_106),YPfalse,YPfalse); T77 = fun_58; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"or"),T77); lit_117 = YPPlist(1,YPPsym((P)"exp")); lit_118 = YPPlist(1,YPPsym((P)"return")); lit_119 = YPPsym((P)"x-1192"); lit_120 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_121 = YPPsym((P)"and"); lit_122 = YPPlist(1,YPPsym((P)"return")); lit_123 = YPPsym((P)"x-1194"); lit_124 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_125 = YPPlist(1,YPPsym((P)"return")); lit_126 = YPPsym((P)"x-1196"); lit_127 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T84 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1192_59 = YPfab_met(FUNCODEREF(fun_x_1192_59),T84,LITREF(lit_119),LITREF(lit_120),YPfalse,YPfalse); T83 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1194_60 = YPfab_met(FUNCODEREF(fun_x_1194_60),T83,LITREF(lit_123),LITREF(lit_124),YPfalse,YPfalse); T82 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1196_61 = YPfab_met(FUNCODEREF(fun_x_1196_61),T82,LITREF(lit_126),LITREF(lit_127),YPfalse,YPfalse); T81 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_62 = YPfab_met(FUNCODEREF(fun_62),T81,YPfalse,LITREF(lit_125),YPfalse,YPfalse); T80 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_63 = YPfab_met(FUNCODEREF(fun_63),T80,YPfalse,LITREF(lit_122),YPfalse,YPfalse); T79 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_64 = YPfab_met(FUNCODEREF(fun_64),T79,YPfalse,LITREF(lit_118),YPfalse,YPfalse); T78 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_65 = YPfab_met(FUNCODEREF(fun_65),T78,YPfalse,LITREF(lit_117),YPfalse,YPfalse); T85 = fun_65; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"and"),T85); lit_128 = YPPlist(1,YPPsym((P)"exp")); lit_129 = YPPlist(1,YPPsym((P)"return")); lit_130 = YPPsym((P)"x-1202"); lit_131 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_132 = YPPsym((P)"cond"); lit_133 = YPPlist(1,YPPsym((P)"return")); lit_134 = YPPsym((P)"x-1204"); lit_135 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_136 = YPsb((P)"bad case %="); T90 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1202_66 = YPfab_met(FUNCODEREF(fun_x_1202_66),T90,LITREF(lit_130),LITREF(lit_131),YPfalse,YPfalse); T89 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1204_67 = YPfab_met(FUNCODEREF(fun_x_1204_67),T89,LITREF(lit_134),LITREF(lit_135),YPfalse,YPfalse); T88 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_68 = YPfab_met(FUNCODEREF(fun_68),T88,YPfalse,LITREF(lit_133),YPfalse,YPfalse); T87 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_69 = YPfab_met(FUNCODEREF(fun_69),T87,YPfalse,LITREF(lit_129),YPfalse,YPfalse); T86 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_70 = YPfab_met(FUNCODEREF(fun_70),T86,YPfalse,LITREF(lit_128),YPfalse,YPfalse); T91 = fun_70; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"cond"),T91); lit_137 = YPPsym((P)"do-case-by"); lit_138 = YPPlist(3,YPPsym((P)"val"),YPPsym((P)"tst"),YPPsym((P)"cases")); lit_139 = YPPlist(1,YPPsym((P)"return")); lit_140 = YPPsym((P)"x-1210"); lit_141 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_142 = YPsb((P)"bad case %="); lit_143 = YPPlist(1,YPPsym((P)"return")); lit_144 = YPPsym((P)"x-1212"); lit_145 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_146 = YPsb((P)"bad case %="); lit_147 = YPPlist(1,YPPsym((P)"x")); T97 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1210_71 = YPfab_met(FUNCODEREF(fun_x_1210_71),T97,LITREF(lit_140),LITREF(lit_141),YPfalse,YPfalse); T96 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1212_72 = YPfab_met(FUNCODEREF(fun_x_1212_72),T96,LITREF(lit_144),LITREF(lit_145),YPfalse,YPfalse); T95 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_73 = YPfab_met(FUNCODEREF(fun_73),T95,YPfalse,LITREF(lit_147),YPfalse,YPfalse); T94 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_74 = YPfab_met(FUNCODEREF(fun_74),T94,YPfalse,LITREF(lit_143),YPfalse,YPfalse); T93 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_75 = YPfab_met(FUNCODEREF(fun_75),T93,YPfalse,LITREF(lit_139),YPfalse,YPfalse); T92 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSmacrosYdo_case_by = YPfab_met(FUNCODEREF(YgooSmacrosYdo_case_by),T92,LITREF(lit_137),LITREF(lit_138),sloc(150),YPfalse); T98 = YgooSmacrosYdo_case_by; VARSET(YgooSmacrosYdo_case_by,T98); lit_148 = YPPlist(1,YPPsym((P)"exp")); lit_149 = YPPlist(1,YPPsym((P)"return")); lit_150 = YPPsym((P)"x-1216"); lit_151 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_152 = YPPsym((P)"case-by"); T101 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1216_77 = YPfab_met(FUNCODEREF(fun_x_1216_77),T101,LITREF(lit_150),LITREF(lit_151),YPfalse,YPfalse); T100 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_78 = YPfab_met(FUNCODEREF(fun_78),T100,YPfalse,LITREF(lit_149),YPfalse,YPfalse); T99 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_79 = YPfab_met(FUNCODEREF(fun_79),T99,YPfalse,LITREF(lit_148),YPfalse,YPfalse); T102 = fun_79; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"case-by"),T102); lit_153 = YPPlist(1,YPPsym((P)"exp")); lit_154 = YPPlist(1,YPPsym((P)"return")); lit_155 = YPPsym((P)"x-1220"); lit_156 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_157 = YPPsym((P)"case"); lit_158 = YPPsym((P)"=="); T105 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1220_80 = YPfab_met(FUNCODEREF(fun_x_1220_80),T105,LITREF(lit_155),LITREF(lit_156),YPfalse,YPfalse); T104 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_81 = YPfab_met(FUNCODEREF(fun_81),T104,YPfalse,LITREF(lit_154),YPfalse,YPfalse); T103 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_82 = YPfab_met(FUNCODEREF(fun_82),T103,YPfalse,LITREF(lit_153),YPfalse,YPfalse); T106 = fun_82; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"case"),T106); lit_159 = YPPlist(1,YPPsym((P)"exp")); lit_160 = YPPlist(1,YPPsym((P)"return")); lit_161 = YPPsym((P)"x-1228"); lit_162 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_163 = YPPsym((P)"match"); lit_164 = YPPlist(1,YPPsym((P)"return")); lit_165 = YPPsym((P)"x-1230"); lit_166 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_167 = YPPlist(1,YPPsym((P)"return")); lit_168 = YPPsym((P)"x-1232"); lit_169 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_170 = YPsb((P)"invalid match syntax."); lit_171 = YPPsym((P)"mif"); lit_172 = YPPsym((P)"syntax-error"); lit_173 = YPsb((P)"failed to match."); T113 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1228_83 = YPfab_met(FUNCODEREF(fun_x_1228_83),T113,LITREF(lit_161),LITREF(lit_162),YPfalse,YPfalse); T112 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1232_84 = YPfab_met(FUNCODEREF(fun_x_1232_84),T112,LITREF(lit_168),LITREF(lit_169),YPfalse,YPfalse); T111 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_85 = YPfab_met(FUNCODEREF(fun_85),T111,YPfalse,LITREF(lit_167),YPfalse,YPfalse); T110 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1230_86 = YPfab_met(FUNCODEREF(fun_x_1230_86),T110,LITREF(lit_165),LITREF(lit_166),YPfalse,YPfalse); T109 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_87 = YPfab_met(FUNCODEREF(fun_87),T109,YPfalse,LITREF(lit_164),YPfalse,YPfalse); T108 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_88 = YPfab_met(FUNCODEREF(fun_88),T108,YPfalse,LITREF(lit_160),YPfalse,YPfalse); T107 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_89 = YPfab_met(FUNCODEREF(fun_89),T107,YPfalse,LITREF(lit_159),YPfalse,YPfalse); T114 = fun_89; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"match"),T114); lit_174 = YPPlist(1,YPPsym((P)"exp")); lit_175 = YPPlist(1,YPPsym((P)"return")); lit_176 = YPPsym((P)"x-1236"); lit_177 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_178 = YPPsym((P)"assert"); lit_179 = YPPsym((P)"assert-error"); T117 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1236_90 = YPfab_met(FUNCODEREF(fun_x_1236_90),T117,LITREF(lit_176),LITREF(lit_177),YPfalse,YPfalse); T116 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_91 = YPfab_met(FUNCODEREF(fun_91),T116,YPfalse,LITREF(lit_175),YPfalse,YPfalse); T115 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_92 = YPfab_met(FUNCODEREF(fun_92),T115,YPfalse,LITREF(lit_174),YPfalse,YPfalse); T118 = fun_92; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"assert"),T118); lit_180 = YPPlist(1,YPPsym((P)"exp")); lit_181 = YPPlist(1,YPPsym((P)"return")); lit_182 = YPPsym((P)"x-1244"); lit_183 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_184 = YPPsym((P)"for"); lit_185 = YPPsym((P)"grok"); lit_186 = YPPlist(5,YPPsym((P)"clauses"),YPPsym((P)"inits"),YPPsym((P)"preds"),YPPsym((P)"nows"),YPPsym((P)"nexts")); lit_187 = YPPsym((P)"rep"); lit_188 = YPPlist(1,YPPsym((P)"return")); lit_189 = YPPsym((P)"x-1246"); lit_190 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_191 = YPPsym((P)"enum"); lit_192 = YPPsym((P)"fin?"); lit_193 = YPPlist(1,YPPsym((P)"return")); lit_194 = YPPsym((P)"x-1248"); lit_195 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_196 = YPPsym((P)"now"); lit_197 = YPPsym((P)"now-key"); lit_198 = YPPsym((P)"nxt"); T126 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1244_93 = YPfab_met(FUNCODEREF(fun_x_1244_93),T126,LITREF(lit_182),LITREF(lit_183),YPfalse,YPfalse); T125 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1246_94 = YPfab_met(FUNCODEREF(fun_x_1246_94),T125,LITREF(lit_189),LITREF(lit_190),YPfalse,YPfalse); T124 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1248_95 = YPfab_met(FUNCODEREF(fun_x_1248_95),T124,LITREF(lit_194),LITREF(lit_195),YPfalse,YPfalse); T123 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_96 = YPfab_met(FUNCODEREF(fun_96),T123,YPfalse,LITREF(lit_193),YPfalse,YPfalse); T122 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_97 = YPfab_met(FUNCODEREF(fun_97),T122,YPfalse,LITREF(lit_188),YPfalse,YPfalse); T121 = YPfab_sig(YPPlist(5,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)5),VARREF(YLanyG),Ynil); fun_grok_98 = YPfab_met(FUNCODEREF(fun_grok_98),T121,LITREF(lit_185),LITREF(lit_186),sloc(188),YPfalse); T120 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_99 = YPfab_met(FUNCODEREF(fun_99),T120,YPfalse,LITREF(lit_181),YPfalse,YPfalse); T119 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_100 = YPfab_met(FUNCODEREF(fun_100),T119,YPfalse,LITREF(lit_180),YPfalse,YPfalse); T127 = fun_100; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"for"),T127); lit_199 = YPPlist(1,YPPsym((P)"exp")); lit_200 = YPPlist(1,YPPsym((P)"return")); lit_201 = YPPsym((P)"x-1252"); lit_202 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_203 = YPPsym((P)"while"); lit_204 = YPPsym((P)"_loop"); T130 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1252_101 = YPfab_met(FUNCODEREF(fun_x_1252_101),T130,LITREF(lit_201),LITREF(lit_202),YPfalse,YPfalse); T129 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_102 = YPfab_met(FUNCODEREF(fun_102),T129,YPfalse,LITREF(lit_200),YPfalse,YPfalse); T128 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_103 = YPfab_met(FUNCODEREF(fun_103),T128,YPfalse,LITREF(lit_199),YPfalse,YPfalse); T131 = fun_103; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"while"),T131); lit_205 = YPPlist(1,YPPsym((P)"exp")); lit_206 = YPPlist(1,YPPsym((P)"return")); lit_207 = YPPsym((P)"x-1256"); lit_208 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_209 = YPPsym((P)"until"); T134 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1256_104 = YPfab_met(FUNCODEREF(fun_x_1256_104),T134,LITREF(lit_207),LITREF(lit_208),YPfalse,YPfalse); T133 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_105 = YPfab_met(FUNCODEREF(fun_105),T133,YPfalse,LITREF(lit_206),YPfalse,YPfalse); T132 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_106 = YPfab_met(FUNCODEREF(fun_106),T132,YPfalse,LITREF(lit_205),YPfalse,YPfalse); T135 = fun_106; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"until"),T135); lit_210 = YPPlist(1,YPPsym((P)"exp")); lit_211 = YPPlist(1,YPPsym((P)"return")); lit_212 = YPPsym((P)"x-1266"); lit_213 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_214 = YPPsym((P)"dlet"); lit_215 = YPPlist(1,YPPsym((P)"return")); lit_216 = YPPsym((P)"x-1269"); lit_217 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_218 = YPPlist(1,YPPsym((P)"return")); lit_219 = YPPsym((P)"x-1272"); lit_220 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_221 = YPsb((P)"Bad dlet places %="); lit_222 = YPPsym((P)"fin"); T142 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1266_107 = YPfab_met(FUNCODEREF(fun_x_1266_107),T142,LITREF(lit_212),LITREF(lit_213),YPfalse,YPfalse); T141 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1272_108 = YPfab_met(FUNCODEREF(fun_x_1272_108),T141,LITREF(lit_219),LITREF(lit_220),YPfalse,YPfalse); T140 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_109 = YPfab_met(FUNCODEREF(fun_109),T140,YPfalse,LITREF(lit_218),YPfalse,YPfalse); T139 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1269_110 = YPfab_met(FUNCODEREF(fun_x_1269_110),T139,LITREF(lit_216),LITREF(lit_217),YPfalse,YPfalse); T138 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_111 = YPfab_met(FUNCODEREF(fun_111),T138,YPfalse,LITREF(lit_215),YPfalse,YPfalse); T137 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_112 = YPfab_met(FUNCODEREF(fun_112),T137,YPfalse,LITREF(lit_211),YPfalse,YPfalse); T136 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_113 = YPfab_met(FUNCODEREF(fun_113),T136,YPfalse,LITREF(lit_210),YPfalse,YPfalse); T143 = fun_113; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"dlet"),T143); lit_223 = YPPlist(1,YPPsym((P)"exp")); lit_224 = YPPlist(1,YPPsym((P)"return")); lit_225 = YPPsym((P)"x-1276"); lit_226 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_227 = YPPsym((P)"def-fun-var"); lit_228 = YPsb((P)"*"); lit_229 = YPsb((P)"*"); lit_230 = YPPsym((P)"dv"); lit_231 = YPPsym((P)"dm"); lit_232 = YPPsym((P)"=>"); lit_233 = YPPsym((P)"z"); T146 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1276_114 = YPfab_met(FUNCODEREF(fun_x_1276_114),T146,LITREF(lit_225),LITREF(lit_226),YPfalse,YPfalse); T145 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_115 = YPfab_met(FUNCODEREF(fun_115),T145,YPfalse,LITREF(lit_224),YPfalse,YPfalse); T144 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_116 = YPfab_met(FUNCODEREF(fun_116),T144,YPfalse,LITREF(lit_223),YPfalse,YPfalse); T147 = fun_116; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"def-fun-var"),T147); lit_234 = YPPlist(1,YPPsym((P)"exp")); lit_235 = YPPlist(1,YPPsym((P)"return")); lit_236 = YPPsym((P)"x-1280"); lit_237 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_238 = YPPsym((P)"without-prop-unbound-errors"); lit_239 = YPPsym((P)"*report-prop-unbound-errors?*"); T150 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1280_117 = YPfab_met(FUNCODEREF(fun_x_1280_117),T150,LITREF(lit_236),LITREF(lit_237),YPfalse,YPfalse); T149 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_118 = YPfab_met(FUNCODEREF(fun_118),T149,YPfalse,LITREF(lit_235),YPfalse,YPfalse); T148 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_119 = YPfab_met(FUNCODEREF(fun_119),T148,YPfalse,LITREF(lit_234),YPfalse,YPfalse); T151 = fun_119; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"without-prop-unbound-errors"),T151); lit_240 = YPPlist(1,YPPsym((P)"exp")); lit_241 = YPPlist(1,YPPsym((P)"return")); lit_242 = YPPsym((P)"x-1284"); lit_243 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_244 = YPPsym((P)"need-implementation"); lit_245 = YPPsym((P)"export"); T154 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1284_120 = YPfab_met(FUNCODEREF(fun_x_1284_120),T154,LITREF(lit_242),LITREF(lit_243),YPfalse,YPfalse); T153 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_121 = YPfab_met(FUNCODEREF(fun_121),T153,YPfalse,LITREF(lit_241),YPfalse,YPfalse); T152 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_122 = YPfab_met(FUNCODEREF(fun_122),T152,YPfalse,LITREF(lit_240),YPfalse,YPfalse); T155 = fun_122; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"need-implementation"),T155); lit_246 = YPPlist(1,YPPsym((P)"exp")); lit_247 = YPPlist(1,YPPsym((P)"return")); lit_248 = YPPsym((P)"x-1312"); lit_249 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_250 = YPPsym((P)"pub"); lit_251 = YPPlist(1,YPPsym((P)"return")); lit_252 = YPPsym((P)"x-1315"); lit_253 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_254 = YPPlist(1,YPPsym((P)"return")); lit_255 = YPPsym((P)"x-1318"); lit_256 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_257 = YPPlist(1,YPPsym((P)"return")); lit_258 = YPPsym((P)"x-1321"); lit_259 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_260 = YPPlist(1,YPPsym((P)"return")); lit_261 = YPPsym((P)"x-1324"); lit_262 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_263 = YPPlist(1,YPPsym((P)"return")); lit_264 = YPPsym((P)"x-1327"); lit_265 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_266 = YPPlist(1,YPPsym((P)"return")); lit_267 = YPPsym((P)"x-1330"); lit_268 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_269 = YPPlist(1,YPPsym((P)"return")); lit_270 = YPPsym((P)"x-1333"); lit_271 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_272 = YPPlist(1,YPPsym((P)"return")); lit_273 = YPPsym((P)"x-1336"); lit_274 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_275 = YPPsym((P)"dc"); lit_276 = YPPsym((P)"dg"); lit_277 = YPPsym((P)"d."); lit_278 = YPPsym((P)"df"); lit_279 = YPPsym((P)"dp!"); lit_280 = YPPsym((P)"dp"); T174 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1312_123 = YPfab_met(FUNCODEREF(fun_x_1312_123),T174,LITREF(lit_248),LITREF(lit_249),YPfalse,YPfalse); T173 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1336_124 = YPfab_met(FUNCODEREF(fun_x_1336_124),T173,LITREF(lit_273),LITREF(lit_274),YPfalse,YPfalse); T172 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_125 = YPfab_met(FUNCODEREF(fun_125),T172,YPfalse,LITREF(lit_272),YPfalse,YPfalse); T171 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1333_126 = YPfab_met(FUNCODEREF(fun_x_1333_126),T171,LITREF(lit_270),LITREF(lit_271),YPfalse,YPfalse); T170 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_127 = YPfab_met(FUNCODEREF(fun_127),T170,YPfalse,LITREF(lit_269),YPfalse,YPfalse); T169 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1330_128 = YPfab_met(FUNCODEREF(fun_x_1330_128),T169,LITREF(lit_267),LITREF(lit_268),YPfalse,YPfalse); T168 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_129 = YPfab_met(FUNCODEREF(fun_129),T168,YPfalse,LITREF(lit_266),YPfalse,YPfalse); T167 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1327_130 = YPfab_met(FUNCODEREF(fun_x_1327_130),T167,LITREF(lit_264),LITREF(lit_265),YPfalse,YPfalse); T166 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_131 = YPfab_met(FUNCODEREF(fun_131),T166,YPfalse,LITREF(lit_263),YPfalse,YPfalse); T165 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1324_132 = YPfab_met(FUNCODEREF(fun_x_1324_132),T165,LITREF(lit_261),LITREF(lit_262),YPfalse,YPfalse); T164 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_133 = YPfab_met(FUNCODEREF(fun_133),T164,YPfalse,LITREF(lit_260),YPfalse,YPfalse); T163 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1321_134 = YPfab_met(FUNCODEREF(fun_x_1321_134),T163,LITREF(lit_258),LITREF(lit_259),YPfalse,YPfalse); T162 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_135 = YPfab_met(FUNCODEREF(fun_135),T162,YPfalse,LITREF(lit_257),YPfalse,YPfalse); T161 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1318_136 = YPfab_met(FUNCODEREF(fun_x_1318_136),T161,LITREF(lit_255),LITREF(lit_256),YPfalse,YPfalse); T160 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_137 = YPfab_met(FUNCODEREF(fun_137),T160,YPfalse,LITREF(lit_254),YPfalse,YPfalse); T159 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1315_138 = YPfab_met(FUNCODEREF(fun_x_1315_138),T159,LITREF(lit_252),LITREF(lit_253),YPfalse,YPfalse); T158 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_139 = YPfab_met(FUNCODEREF(fun_139),T158,YPfalse,LITREF(lit_251),YPfalse,YPfalse); T157 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_140 = YPfab_met(FUNCODEREF(fun_140),T157,YPfalse,LITREF(lit_247),YPfalse,YPfalse); T156 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_141 = YPfab_met(FUNCODEREF(fun_141),T156,YPfalse,LITREF(lit_246),YPfalse,YPfalse); T175 = fun_141; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"pub"),T175); lit_281 = YPPlist(1,YPPsym((P)"exp")); lit_282 = YPPlist(1,YPPsym((P)"return")); lit_283 = YPPsym((P)"x-1340"); lit_284 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_285 = YPPsym((P)"exported"); lit_286 = YPPlist(1,YPPsym((P)"x")); T179 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1340_142 = YPfab_met(FUNCODEREF(fun_x_1340_142),T179,LITREF(lit_283),LITREF(lit_284),YPfalse,YPfalse); T178 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_143 = YPfab_met(FUNCODEREF(fun_143),T178,YPfalse,LITREF(lit_286),YPfalse,YPfalse); T177 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_144 = YPfab_met(FUNCODEREF(fun_144),T177,YPfalse,LITREF(lit_282),YPfalse,YPfalse); T176 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_145 = YPfab_met(FUNCODEREF(fun_145),T176,YPfalse,LITREF(lit_281),YPfalse,YPfalse); T180 = fun_145; YPmacro(YPPsym((P)"goo/macros"),YPPsym((P)"exported"),T180); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T181 = YPfalse; return T181; } P YgooSmacrosY___main_1___() { P T0; DEFCREGS(); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T0 = YPfalse; return T0; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {NULL} }; static IMPORT_INFO import_infos[] = { {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"and", PVAR, NULL}, {"napp", CVAR, &YgooSmacrosYnapp}, {"2nd", CVAR, &YgooSmacrosY2nd}, {"app-sup", PVAR, NULL}, {"nul?", CVAR, &YgooSmacrosYnulQ}, {"pair", CVAR, &YgooSmacrosYpair}, {"==", CVAR, &YgooSmacrosYEE}, {"1st", CVAR, &YgooSmacrosY1st}, {"macro-error", CVAR, &YgooSmacrosYmacro_error}, {"pushf", PVAR, NULL}, {"case", PVAR, NULL}, {"cond", PVAR, NULL}, {"match-atom", CVAR, &YgooSmacrosYmatch_atom}, {"for", PVAR, NULL}, {"rev!", CVAR, &YgooSmacrosYrevX}, {"lift-place-subforms", CVAR, &YgooSmacrosYlift_place_subforms}, {"sup", PVAR, NULL}, {"while", PVAR, NULL}, {"exported", PVAR, NULL}, {"def-fun-var", PVAR, NULL}, {"popf", PVAR, NULL}, {"map2", CVAR, &YgooSmacrosYmap2}, {"match-unquote", CVAR, &YgooSmacrosYmatch_unquote}, {"case-by", PVAR, NULL}, {"renew", PVAR, NULL}, {"fab-setter-name", CVAR, &YgooSmacrosYfab_setter_name}, {"gensym", CVAR, &YgooSmacrosYgensym}, {"assert", PVAR, NULL}, {"map", CVAR, &YgooSmacrosYmap}, {"pub", PVAR, NULL}, {"decf", PVAR, NULL}, {"unless", PVAR, NULL}, {"@checked-next-methods", CVAR, &YgooSmacrosYOchecked_next_methods}, {"app", PVAR, NULL}, {"match-nul-list", CVAR, &YgooSmacrosYmatch_nul_list}, {"var-type", CVAR, &YgooSmacrosYvar_type}, {"cat-sym", CVAR, &YgooSmacrosYcat_sym}, {"elt", CVAR, &YgooSmacrosYelt}, {"---main-1---", PVAR, NULL}, {"need-implementation", PVAR, NULL}, {"rotf", PVAR, NULL}, {"cat", CVAR, &YgooSmacrosYcat}, {"or", PVAR, NULL}, {"dlet", PVAR, NULL}, {"or/set", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"incf", PVAR, NULL}, {"do-case-by", CVAR, &YgooSmacrosYdo_case_by}, {"last", CVAR, &YgooSmacrosYlast}, {"swapf", PVAR, NULL}, {"match-sublist", CVAR, &YgooSmacrosYmatch_sublist}, {"without-prop-unbound-errors", PVAR, NULL}, {"until", PVAR, NULL}, {"var-name", CVAR, &YgooSmacrosYvar_name}, {"opf", PVAR, NULL}, {"match", PVAR, NULL}, {"do", CVAR, &YgooSmacrosYdo}, {"when", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"and", NULL}, {"case", NULL}, {"napp", NULL}, {"2nd", NULL}, {"nul?", NULL}, {"pair", NULL}, {"==", NULL}, {"1st", NULL}, {"macro-error", NULL}, {"pushf", NULL}, {"cond", NULL}, {"match-atom", NULL}, {"for", NULL}, {"rev!", NULL}, {"lift-place-subforms", NULL}, {"sup", NULL}, {"while", NULL}, {"exported", NULL}, {"when", NULL}, {"fab-setter-name", NULL}, {"tup", NULL}, {"def-fun-var", NULL}, {"popf", NULL}, {"map2", NULL}, {"match-unquote", NULL}, {"case-by", NULL}, {"renew", NULL}, {"gensym", NULL}, {"assert", NULL}, {"map", NULL}, {"pub", NULL}, {"decf", NULL}, {"unless", NULL}, {"@checked-next-methods", NULL}, {"do", NULL}, {"app", NULL}, {"match-nul-list", NULL}, {"var-type", NULL}, {"cat-sym", NULL}, {"elt", NULL}, {"need-implementation", NULL}, {"rotf", NULL}, {"or", NULL}, {"error", NULL}, {"dlet", NULL}, {"or/set", NULL}, {"app-sup", NULL}, {"match-sublist", NULL}, {"incf", NULL}, {"cat", NULL}, {"match", NULL}, {"last", NULL}, {"swapf", NULL}, {"without-prop-unbound-errors", NULL}, {"until", NULL}, {"var-name", NULL}, {"opf", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSmacros; MODULE_INFO module_info_gooSmacros = { "goo/macros", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); /* EXPRESSION: */ extern void load_module_gooSmacros (void); void load_module_gooSmacros (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); (P)YgooSmacrosY___main_0___(); (P)YgooSmacrosY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/mag.c0100644000175000017500000012631207756744552014334 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/mag"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/mag */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); DEF(YgooSmagYLE,"goo/mag","<="); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); DEF(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); DEF(YgooSmagYL,"goo/mag","<"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); DEF(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); DEF(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); DEF(YgooSmagYmax,"goo/mag","max"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_11); DEFLIT(lit_8); DEFLIT(lit_0); DEFLIT(lit_3); DEFLIT(lit_14); DEFLIT(lit_13); DEFLIT(lit_6); DEFLIT(lit_2); DEFLIT(lit_16); DEFLIT(lit_15); DEFLIT(lit_4); DEFLIT(lit_9); DEFLIT(lit_5); DEFLIT(lit_1); DEFLIT(lit_10); DEFLIT(lit_12); DEFLIT(lit_7); /* FUNCTIONS: */ LOCFOR(fun_G_0); LOCFOR(fun_LE_1); LOCFOR(fun_GE_2); LOCFOR(fun_min_3); LOCFOR(fun_max_4); extern P YgooSmagY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_G_0) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL2(1,VARREF(YgooSmagYL),y_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_LE_1) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmagYL),y_,x_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_GE_2) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmagYL),x_,y_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_min_3) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmagYL),x_,y_); if (T1 != YPfalse) { T0 = x_; } else { T0 = y_; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_max_4) { P x_,y_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmagYG),x_,y_); if (T1 != YPfalse) { T0 = x_; } else { T0 = y_; } UNLINK_STACK(); RET(T0); } P YgooSmagY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; DEFCREGS(); lit_0 = YPPsym((P)"<"); lit_1 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T1 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSmagYL,T0); lit_2 = YPPsym((P)">"); lit_3 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T3 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSmagYG,T2); lit_4 = YPPsym((P)"<="); lit_5 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T5 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSmagYLE,T4); lit_6 = YPPsym((P)">="); lit_7 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T7 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooSmagYGE,T6); lit_8 = YPPsym((P)"min"); lit_9 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T9 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLmagG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooSmagYmin,T8); lit_10 = YPPsym((P)"max"); lit_11 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T11 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLmagG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooSmagYmax,T10); lit_12 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T12 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_G_0 = YPfab_met(FUNCODEREF(fun_G_0),T12,LITREF(lit_2),LITREF(lit_12),sloc(18),YPfalse); T14 = VARREF_OR(YgooSmagYG,YPfalse); T15 = fun_G_0; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSmagYG,T13); lit_13 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T16 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_LE_1 = YPfab_met_inlineable(FUNCODEREF(fun_LE_1),T16,LITREF(lit_4),LITREF(lit_13),sloc(21),YPfalse); T18 = VARREF_OR(YgooSmagYLE,YPfalse); T19 = fun_LE_1; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSmagYLE,T17); lit_14 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T20 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_GE_2 = YPfab_met_inlineable(FUNCODEREF(fun_GE_2),T20,LITREF(lit_6),LITREF(lit_14),sloc(24),YPfalse); T22 = VARREF_OR(YgooSmagYGE,YPfalse); T23 = fun_GE_2; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSmagYGE,T21); lit_15 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T24 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLmagG),Ynil); fun_min_3 = YPfab_met_inlineable(FUNCODEREF(fun_min_3),T24,LITREF(lit_8),LITREF(lit_15),sloc(27),YPfalse); T26 = VARREF_OR(YgooSmagYmin,YPfalse); T27 = fun_min_3; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooSmagYmin,T25); lit_16 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T30 = YPfab_sig(YPPlist(2,VARREF(YLmagG),VARREF(YLmagG)),YPfalse,YPint((P)2),VARREF(YLmagG),Ynil); T29 = fun_max_4 = YPfab_met_inlineable(FUNCODEREF(fun_max_4),T30,LITREF(lit_10),LITREF(lit_16),sloc(30),YPfalse); T33 = VARREF_OR(YgooSmagYmax,YPfalse); T34 = fun_max_4; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); T31 = VARSET(YgooSmagYmax,T32); T28 = T31; return T28; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSmacros; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSmacros}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"<=", CVAR, &YgooSmagYLE}, {">", CVAR, &YgooSmagYG}, {"---main-0---", PVAR, NULL}, {"<", CVAR, &YgooSmagYL}, {"min", CVAR, &YgooSmagYmin}, {">=", CVAR, &YgooSmagYGE}, {"max", CVAR, &YgooSmagYmax}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"<=", NULL}, {"", NULL}, {"max", NULL}, {">", NULL}, {"<", NULL}, {"min", NULL}, {">=", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSmag; MODULE_INFO module_info_gooSmag = { "goo/mag", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSmacros (void); /* EXPRESSION: */ extern void load_module_gooSmag (void); void load_module_gooSmag (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSmacros(); (P)YgooSmagY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/math.c0100644000175000017500000047443207756744552014532 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/math"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/math */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); DEF(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); DEF(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); DEF(YgooSmathYN,"goo/math","~"); DEF(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); DEF(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); DEF(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); DEF(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); DEF(YgooSmathYfloor,"goo/math","floor"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); DEF(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); DEF(YgooSmathYT,"goo/math","*"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); DEF(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); DEF(YgooSmathYasin,"goo/math","asin"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); DEF(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); DEF(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); DEF(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); DEF(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); DEF(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); DEF(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); DEF(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); DEF(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); DEF(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); DEF(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); DEF(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); DEF(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); DEF(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); DEF(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); DEF(YgooSmathYnegQ,"goo/math","neg?"); DEF(YgooSmathYroundS,"goo/math","round/"); DEF(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); DEF(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); DEF(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); DEF(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); DEF(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); DEF(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); DEF(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); DEF(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); DEF(YgooSmathYcosh,"goo/math","cosh"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); DEF(YgooSmathYoddQ,"goo/math","odd?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); DEF(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); DEF(YgooSmathYsinh,"goo/math","sinh"); EXT(Yarity_error,"goo/boot","arity-error"); DEF(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); DEF(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YLlogG,"goo/boot",""); DEF(YgooSmathYDpi,"goo/math","$pi"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); DEF(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); DEF(YgooSmathYrem,"goo/math","rem"); DEF(YgooSmathY1_,"goo/math","1-"); DEF(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); DEF(YgooSmathYlogn,"goo/math","logn"); DEF(YgooSmathYround_to,"goo/math","round-to"); DEF(YgooSmathYK,"goo/math","|"); DEF(YgooSmathYB,"goo/math","&"); DEF(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); DEF(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); DEF(YgooSmathYcos,"goo/math","cos"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); DEF(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooStypesYDbot,"goo/types","$bot"); DEF(YgooSmathYmod_,"goo/math","mod-"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_143); DEFLIT(lit_234); DEFLIT(lit_91); DEFLIT(lit_162); DEFLIT(lit_173); DEFLIT(lit_76); DEFLIT(lit_160); DEFLIT(lit_233); DEFLIT(lit_156); DEFLIT(lit_148); DEFLIT(lit_43); DEFLIT(lit_3); DEFLIT(lit_29); DEFLIT(lit_30); DEFLIT(lit_128); DEFLIT(lit_142); DEFLIT(lit_9); DEFLIT(lit_118); DEFLIT(lit_202); DEFLIT(lit_111); DEFLIT(lit_229); DEFLIT(lit_192); DEFLIT(lit_71); DEFLIT(lit_224); DEFLIT(lit_37); DEFLIT(lit_54); DEFLIT(lit_83); DEFLIT(lit_226); DEFLIT(lit_144); DEFLIT(lit_89); DEFLIT(lit_183); DEFLIT(lit_46); DEFLIT(lit_106); DEFLIT(lit_196); DEFLIT(lit_131); DEFLIT(lit_195); DEFLIT(lit_74); DEFLIT(lit_17); DEFLIT(lit_14); DEFLIT(lit_204); DEFLIT(lit_108); DEFLIT(lit_198); DEFLIT(lit_146); DEFLIT(lit_209); DEFLIT(lit_178); DEFLIT(lit_81); DEFLIT(lit_21); DEFLIT(lit_28); DEFLIT(lit_193); DEFLIT(lit_47); DEFLIT(lit_179); DEFLIT(lit_25); DEFLIT(lit_191); DEFLIT(lit_85); DEFLIT(lit_255); DEFLIT(lit_194); DEFLIT(lit_171); DEFLIT(lit_45); DEFLIT(lit_232); DEFLIT(lit_169); DEFLIT(lit_222); DEFLIT(lit_124); DEFLIT(lit_153); DEFLIT(lit_99); DEFLIT(lit_2); DEFLIT(lit_145); DEFLIT(lit_219); DEFLIT(lit_242); DEFLIT(lit_206); DEFLIT(lit_19); DEFLIT(lit_96); DEFLIT(lit_31); DEFLIT(lit_72); DEFLIT(lit_12); DEFLIT(lit_110); DEFLIT(lit_243); DEFLIT(lit_147); DEFLIT(lit_165); DEFLIT(lit_138); DEFLIT(lit_155); DEFLIT(lit_252); DEFLIT(lit_84); DEFLIT(lit_26); DEFLIT(lit_44); DEFLIT(lit_141); DEFLIT(lit_158); DEFLIT(lit_166); DEFLIT(lit_5); DEFLIT(lit_11); DEFLIT(lit_236); DEFLIT(lit_151); DEFLIT(lit_107); DEFLIT(lit_51); DEFLIT(lit_163); DEFLIT(lit_24); DEFLIT(lit_257); DEFLIT(lit_167); DEFLIT(lit_220); DEFLIT(lit_217); DEFLIT(lit_239); DEFLIT(lit_94); DEFLIT(lit_70); DEFLIT(lit_221); DEFLIT(lit_253); DEFLIT(lit_93); DEFLIT(lit_109); DEFLIT(lit_120); DEFLIT(lit_136); DEFLIT(lit_122); DEFLIT(lit_149); DEFLIT(lit_207); DEFLIT(lit_60); DEFLIT(lit_133); DEFLIT(lit_57); DEFLIT(lit_228); DEFLIT(lit_59); DEFLIT(lit_216); DEFLIT(lit_39); DEFLIT(lit_188); DEFLIT(lit_231); DEFLIT(lit_116); DEFLIT(lit_152); DEFLIT(lit_67); DEFLIT(lit_10); DEFLIT(lit_0); DEFLIT(lit_203); DEFLIT(lit_69); DEFLIT(lit_103); DEFLIT(lit_27); DEFLIT(lit_98); DEFLIT(lit_63); DEFLIT(lit_181); DEFLIT(lit_117); DEFLIT(lit_82); DEFLIT(lit_33); DEFLIT(lit_246); DEFLIT(lit_186); DEFLIT(lit_125); DEFLIT(lit_112); DEFLIT(lit_68); DEFLIT(lit_92); DEFLIT(lit_126); DEFLIT(lit_237); DEFLIT(lit_62); DEFLIT(lit_114); DEFLIT(lit_223); DEFLIT(lit_256); DEFLIT(lit_13); DEFLIT(lit_174); DEFLIT(lit_104); DEFLIT(lit_22); DEFLIT(lit_50); DEFLIT(lit_40); DEFLIT(lit_101); DEFLIT(lit_121); DEFLIT(lit_1); DEFLIT(lit_132); DEFLIT(lit_227); DEFLIT(lit_164); DEFLIT(lit_150); DEFLIT(lit_154); DEFLIT(lit_213); DEFLIT(lit_254); DEFLIT(lit_250); DEFLIT(lit_119); DEFLIT(lit_55); DEFLIT(lit_129); DEFLIT(lit_53); DEFLIT(lit_41); DEFLIT(lit_258); DEFLIT(lit_241); DEFLIT(lit_49); DEFLIT(lit_79); DEFLIT(lit_230); DEFLIT(lit_215); DEFLIT(lit_15); DEFLIT(lit_161); DEFLIT(lit_247); DEFLIT(lit_245); DEFLIT(lit_115); DEFLIT(lit_34); DEFLIT(lit_214); DEFLIT(lit_8); DEFLIT(lit_199); DEFLIT(lit_175); DEFLIT(lit_185); DEFLIT(lit_137); DEFLIT(lit_159); DEFLIT(lit_102); DEFLIT(lit_80); DEFLIT(lit_180); DEFLIT(lit_20); DEFLIT(lit_38); DEFLIT(lit_212); DEFLIT(lit_218); DEFLIT(lit_113); DEFLIT(lit_4); DEFLIT(lit_90); DEFLIT(lit_42); DEFLIT(lit_52); DEFLIT(lit_95); DEFLIT(lit_66); DEFLIT(lit_130); DEFLIT(lit_86); DEFLIT(lit_75); DEFLIT(lit_135); DEFLIT(lit_184); DEFLIT(lit_61); DEFLIT(lit_205); DEFLIT(lit_157); DEFLIT(lit_210); DEFLIT(lit_172); DEFLIT(lit_23); DEFLIT(lit_170); DEFLIT(lit_87); DEFLIT(lit_139); DEFLIT(lit_201); DEFLIT(lit_225); DEFLIT(lit_105); DEFLIT(lit_77); DEFLIT(lit_176); DEFLIT(lit_190); DEFLIT(lit_123); DEFLIT(lit_35); DEFLIT(lit_127); DEFLIT(lit_197); DEFLIT(lit_134); DEFLIT(lit_100); DEFLIT(lit_97); DEFLIT(lit_78); DEFLIT(lit_249); DEFLIT(lit_56); DEFLIT(lit_251); DEFLIT(lit_182); DEFLIT(lit_244); DEFLIT(lit_177); DEFLIT(lit_208); DEFLIT(lit_58); DEFLIT(lit_65); DEFLIT(lit_238); DEFLIT(lit_235); DEFLIT(lit_64); DEFLIT(lit_211); DEFLIT(lit_16); DEFLIT(lit_18); DEFLIT(lit_32); DEFLIT(lit_240); DEFLIT(lit_200); DEFLIT(lit_140); DEFLIT(lit_189); DEFLIT(lit_73); DEFLIT(lit_168); DEFLIT(lit_36); DEFLIT(lit_248); DEFLIT(lit_7); DEFLIT(lit_6); DEFLIT(lit_88); DEFLIT(lit_187); DEFLIT(lit_48); /* FUNCTIONS: */ LOCFOR(fun_contagious_call_0); LOCFOR(fun_E_1); LOCFOR(fun_L_2); LOCFOR(fun_A_3); FUNFOR(YgooSmathY1A); LOCFOR(fun___5); FUNFOR(YgooSmathY1_); LOCFOR(fun_T_7); LOCFOR(fun_S_8); LOCFOR(fun_atan2_9); LOCFOR(fun_logn_10); LOCFOR(fun_floor_11); LOCFOR(fun_ceil_12); LOCFOR(fun_round_13); LOCFOR(fun_round_to_14); LOCFOR(fun_trunc_15); LOCFOR(fun_floorS_16); LOCFOR(fun_ceilS_17); LOCFOR(fun_roundS_18); LOCFOR(fun_truncS_19); LOCFOR(fun_div_20); LOCFOR(fun_mod_21); LOCFOR(fun_modA_22); LOCFOR(fun_mod__23); LOCFOR(fun_x_1344_24); LOCFOR(fun_25); LOCFOR(fun_26); LOCFOR(fun_x_1348_27); LOCFOR(fun_28); LOCFOR(fun_29); LOCFOR(fun_rem_30); LOCFOR(fun_pow_31); LOCFOR(fun_exp_32); LOCFOR(fun_posQ_33); LOCFOR(fun_zeroQ_34); LOCFOR(fun_negQ_35); LOCFOR(fun_neg_36); LOCFOR(fun_abs_37); LOCFOR(fun_to_str_38); LOCFOR(fun_contagious_type_39); LOCFOR(fun_contagious_type_40); LOCFOR(fun_contagious_type_41); LOCFOR(fun_contagious_type_42); LOCFOR(fun_EE_43); LOCFOR(fun_L_44); LOCFOR(fun_A_45); LOCFOR(fun___46); LOCFOR(fun_T_47); LOCFOR(fun_S_48); LOCFOR(fun_floor_49); LOCFOR(fun_ceil_50); LOCFOR(fun_round_51); LOCFOR(fun_trunc_52); LOCFOR(fun_truncS_53); LOCFOR(fun_mod_54); LOCFOR(fun_pow_55); LOCFOR(fun_K_56); LOCFOR(fun_C_57); LOCFOR(fun_B_58); LOCFOR(fun_N_59); LOCFOR(fun_bitQ_60); LOCFOR(fun_evenQ_61); LOCFOR(fun_oddQ_62); LOCFOR(fun_GG_63); LOCFOR(fun_GGG_64); LOCFOR(fun_LL_65); LOCFOR(fun_power_of_two_ceil_66); FUNFOR(YgooSmathYflo_bits); LOCFOR(fun_as_68); LOCFOR(fun_EE_69); LOCFOR(fun_L_70); LOCFOR(fun_A_71); LOCFOR(fun___72); LOCFOR(fun_T_73); LOCFOR(fun_S_74); LOCFOR(fun_truncS_75); LOCFOR(fun_pow_76); LOCFOR(fun_isqrt_77); LOCFOR(fun_x_1352_78); LOCFOR(fun_79); LOCFOR(fun_80); LOCFOR(fun_sqrt_81); LOCFOR(fun_sqrt_82); LOCFOR(fun_log_83); LOCFOR(fun_log_84); LOCFOR(fun_sin_85); LOCFOR(fun_sin_86); LOCFOR(fun_cos_87); LOCFOR(fun_cos_88); LOCFOR(fun_tan_89); LOCFOR(fun_tan_90); LOCFOR(fun_sinh_91); LOCFOR(fun_sinh_92); LOCFOR(fun_cosh_93); LOCFOR(fun_cosh_94); LOCFOR(fun_tanh_95); LOCFOR(fun_tanh_96); LOCFOR(fun_asin_97); LOCFOR(fun_asin_98); LOCFOR(fun_acos_99); LOCFOR(fun_acos_100); LOCFOR(fun_atan_101); LOCFOR(fun_atan_102); LOCFOR(fun_atan2_103); LOCFOR(fun_atan2_104); LOCFOR(fun_logn_105); extern P YgooSmathY___main_0___ (); extern P YgooSmathY___main_1___ (); extern P YgooSmathY___main_2___ (); extern P YgooSmathY___main_3___ (); extern P YgooSmathY___main_4___ (); extern P YgooSmathY___main_5___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_contagious_call_0) { P f_,x_,y_; P typeF2771; P T0,T1,T2,T3; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); ARG(y_, 2); T3 = CALL2(1,VARREF(YgooSmathYcontagious_type),x_,y_); typeF2771 = T3; T1 = CALL2(1,VARREF(YgooStypesYas),typeF2771,x_); T2 = CALL2(1,VARREF(YgooStypesYas),typeF2771,y_); T0 = CALL2(1,f_,T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_E_1) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmacrosYEE),x_,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_2) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmagYL),x_,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_A_3) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYA),x_,y_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSmathY1A) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmathYA),x_,YPint((P)1)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun___5) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathY_),x_,y_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSmathY1_) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmathY_),x_,YPint((P)1)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_T_7) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYT),x_,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_S_8) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYS),x_,y_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_atan2_9) { P y_,x_; P T0; LINK_STACK(); ARG(y_, 0); ARG(x_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYatan2),y_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_logn_10) { P x_,b_; P T0; LINK_STACK(); ARG(x_, 0); ARG(b_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYlogn),x_,b_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_floor_11) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYfloorS),x_,YPint((P)1)); T0 = CALL2(1,VARREF(YgooSmacrosYelt),T1,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_ceil_12) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYceilS),x_,YPint((P)1)); T0 = CALL2(1,VARREF(YgooSmacrosYelt),T1,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_round_13) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYroundS),x_,YPint((P)1)); T0 = CALL2(1,VARREF(YgooSmacrosYelt),T1,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_round_to_14) { P x_,n_; P fF2772; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); ARG(n_, 1); T1 = CALL2(1,VARREF(YgooSlogYE),n_,YPint((P)0)); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmathYround),x_); T0 = T2; } else { T7 = CALL2(1,VARREF(YgooSmathYpow),LITREF(lit_125),n_); fF2772 = T7; T6 = CALL2(1,VARREF(YgooSmathYT),x_,fF2772); T5 = CALL1(1,VARREF(YgooSmathYround),T6); T4 = CALL2(1,VARREF(YgooSmathYS),T5,fF2772); T3 = CALL1(1,x_,T4); T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_trunc_15) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYtruncS),x_,YPint((P)1)); T0 = CALL2(1,VARREF(YgooSmacrosYelt),T1,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_floorS_16) { P real_,divisor_; P remainderF2775; P integerF2774; P tup23F2773; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(real_, 0); ARG(divisor_, 1); T14 = CALL2(1,VARREF(YgooSmathYtruncS),real_,divisor_); tup23F2773 = T14; T13 = CALL2(1,VARREF(YgooSmacrosYelt),tup23F2773,YPint((P)0)); check_type(T13,VARREF(YLintG)); integerF2774 = T13; T12 = CALL2(1,VARREF(YgooSmacrosYelt),tup23F2773,YPint((P)1)); check_type(T12,VARREF(YLnumG)); remainderF2775 = T12; T3 = CALL1(1,VARREF(YgooSmathYzeroQ),remainderF2775); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmathYnegQ),divisor_); if (T5 != YPfalse) { T6 = CALL1(1,VARREF(YgooSmathYposQ),real_); T4 = T6; } else { T7 = CALL1(1,VARREF(YgooSmathYnegQ),real_); T4 = T7; } T1 = T4; } else { T1 = YPfalse; } if (T1 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmathY_),integerF2774,YPint((P)1)); T10 = CALL2(1,VARREF(YgooSmathYA),remainderF2775,divisor_); T8 = CALL2(1,VARREF(Ytup),T9,T10); T0 = T8; } else { T11 = CALL2(1,VARREF(Ytup),integerF2774,remainderF2775); T0 = T11; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_ceilS_17) { P real_,divisor_; P remainderF2778; P integerF2777; P tup24F2776; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(real_, 0); ARG(divisor_, 1); T14 = CALL2(1,VARREF(YgooSmathYtruncS),real_,divisor_); tup24F2776 = T14; T13 = CALL2(1,VARREF(YgooSmacrosYelt),tup24F2776,YPint((P)0)); check_type(T13,VARREF(YLintG)); integerF2777 = T13; T12 = CALL2(1,VARREF(YgooSmacrosYelt),tup24F2776,YPint((P)1)); check_type(T12,VARREF(YLnumG)); remainderF2778 = T12; T3 = CALL1(1,VARREF(YgooSmathYzeroQ),remainderF2778); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmathYnegQ),divisor_); if (T5 != YPfalse) { T6 = CALL1(1,VARREF(YgooSmathYnegQ),real_); T4 = T6; } else { T7 = CALL1(1,VARREF(YgooSmathYposQ),real_); T4 = T7; } T1 = T4; } else { T1 = YPfalse; } if (T1 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmathYA),integerF2777,YPint((P)1)); T10 = CALL2(1,VARREF(YgooSmathY_),remainderF2778,divisor_); T8 = CALL2(1,VARREF(Ytup),T9,T10); T0 = T8; } else { T11 = CALL2(1,VARREF(Ytup),integerF2777,remainderF2778); T0 = T11; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_roundS_18) { P real_,divisor_; P tmpF2785; P minus_thresholdF2784; P tmpF2783; P thresholdF2782; P remainderF2781; P integerF2780; P tup25F2779; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34; LINK_STACK(); ARG(real_, 0); ARG(divisor_, 1); T34 = CALL2(1,VARREF(YgooSmathYtruncS),real_,divisor_); tup25F2779 = T34; T33 = CALL2(1,VARREF(YgooSmacrosYelt),tup25F2779,YPint((P)0)); check_type(T33,VARREF(YLintG)); integerF2780 = T33; T32 = CALL2(1,VARREF(YgooSmacrosYelt),tup25F2779,YPint((P)1)); check_type(T32,VARREF(YLnumG)); remainderF2781 = T32; T31 = CALL1(1,VARREF(YgooSmathYabs),divisor_); T30 = CALL2(1,VARREF(YgooSmathYS),T31,LITREF(lit_130)); check_type(T30,VARREF(YLnumG)); thresholdF2782 = T30; T5 = CALL2(1,VARREF(YgooSmagYG),remainderF2781,thresholdF2782); tmpF2783 = T5; if (tmpF2783 != YPfalse) { T1 = tmpF2783; } else { T3 = CALL2(1,VARREF(YgooSlogYE),remainderF2781,thresholdF2782); if (T3 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmathYoddQ),integerF2780); T2 = T4; } else { T2 = YPfalse; } T1 = T2; } if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooSmathYnegQ),divisor_); if (T7 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmathY_),integerF2780,YPint((P)1)); T10 = CALL2(1,VARREF(YgooSmathYA),remainderF2781,divisor_); T8 = CALL2(1,VARREF(Ytup),T9,T10); T6 = T8; } else { T12 = CALL2(1,VARREF(YgooSmathYA),integerF2780,YPint((P)1)); T13 = CALL2(1,VARREF(YgooSmathY_),remainderF2781,divisor_); T11 = CALL2(1,VARREF(Ytup),T12,T13); T6 = T11; } T0 = T6; } else { T20 = CALL1(1,VARREF(YgooSmathYneg),thresholdF2782); minus_thresholdF2784 = T20; T19 = CALL2(1,VARREF(YgooSmagYL),remainderF2781,minus_thresholdF2784); tmpF2785 = T19; if (tmpF2785 != YPfalse) { T15 = tmpF2785; } else { T17 = CALL2(1,VARREF(YgooSlogYE),remainderF2781,minus_thresholdF2784); if (T17 != YPfalse) { T18 = CALL1(1,VARREF(YgooSmathYoddQ),integerF2780); T16 = T18; } else { T16 = YPfalse; } T15 = T16; } if (T15 != YPfalse) { T22 = CALL1(1,VARREF(YgooSmathYnegQ),divisor_); if (T22 != YPfalse) { T24 = CALL2(1,VARREF(YgooSmathYA),integerF2780,YPint((P)1)); T25 = CALL2(1,VARREF(YgooSmathY_),remainderF2781,divisor_); T23 = CALL2(1,VARREF(Ytup),T24,T25); T21 = T23; } else { T27 = CALL2(1,VARREF(YgooSmathY_),integerF2780,YPint((P)1)); T28 = CALL2(1,VARREF(YgooSmathYA),remainderF2781,divisor_); T26 = CALL2(1,VARREF(Ytup),T27,T28); T21 = T26; } T14 = T21; } else { T29 = CALL2(1,VARREF(Ytup),integerF2780,remainderF2781); T14 = T29; } T0 = T14; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_truncS_19) { P real_,divisor_; P T0; LINK_STACK(); ARG(real_, 0); ARG(divisor_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYtruncS),real_,divisor_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_div_20) { P x_,y_; P xF2787; P xF2786; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL2(1,VARREF(YgooSmathYtruncS),x_,y_); xF2786 = YPint((P)0); xF2787 = xF2786; T2 = (P)YPiGG(xF2787,(P)2); T0 = (P)YPtelt(T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mod_21) { P real_,divisor_; P remainderF2790; P UF2789; P tup26F2788; P T0,T1,T2; LINK_STACK(); ARG(real_, 0); ARG(divisor_, 1); T2 = CALL2(1,VARREF(YgooSmathYfloorS),real_,divisor_); tup26F2788 = T2; T1 = CALL2(1,VARREF(YgooSmacrosYelt),tup26F2788,YPint((P)0)); UF2789 = T1; T0 = CALL2(1,VARREF(YgooSmacrosYelt),tup26F2788,YPint((P)1)); check_type(T0,VARREF(YLnumG)); remainderF2790 = T0; UNLINK_STACK(); RET(remainderF2790); } LOCCODEDEF(fun_modA_22) { P i_,j_,n_; P T0,T1; LINK_STACK(); ARG(i_, 0); ARG(j_, 1); ARG(n_, 2); T1 = CALL2(1,VARREF(YgooSmathYA),i_,j_); T0 = CALL2(1,VARREF(YgooSmathYmod),T1,n_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mod__23) { P i_,j_,n_; P T0,T1; LINK_STACK(); ARG(i_, 0); ARG(j_, 1); ARG(n_, 2); T1 = CALL2(1,VARREF(YgooSmathY_),i_,j_); T0 = CALL2(1,VARREF(YgooSmathYmod),T1,n_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1344_24) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_140),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_25) { P return_; P x_1343F2797; P x_1343F2796; P x_1343F2795; P maxF2794; P placeF2793; P x_1343F2792; P x_1344F2791; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1344_24,2); x_1344F2791 = T21; FUNINIT(x_1344F2791, 2,FREEREF(0),return_); x_1343F2792 = FREEREF(0); placeF2793 = YPfalse; maxF2794 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1343F2792,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1343F2792,LITREF(lit_140),x_1344F2791); x_1343F2795 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1343F2795,x_1344F2791); placeF2793 = T6; T7 = CALL1(1,VARREF(Ytail),x_1343F2795); x_1343F2796 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1343F2796,x_1344F2791); maxF2794 = T4; T5 = CALL1(1,VARREF(Ytail),x_1343F2796); x_1343F2797 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1343F2797,x_1344F2791); } else { T9 = CALL2(1,x_1344F2791,LITREF(lit_141),x_1343F2792); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_142)); T13 = placeF2793; T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_60)); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_143)); T18 = CALL1(1,VARREF(Ylst),YPint((P)1)); T20 = maxF2794; T19 = CALL1(1,VARREF(Ylst),T20); T15 = CALL5(1,VARREF(YgooSmacrosYcat),T16,T17,T18,T19,LITREF(lit_144)); T14 = CALL1(1,VARREF(Ylst),T15); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T14,LITREF(lit_144)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_26) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_25,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1348_27) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_149),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_28) { P return_; P x_1347F2804; P x_1347F2803; P x_1347F2802; P maxF2801; P placeF2800; P x_1347F2799; P x_1348F2798; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1348_27,2); x_1348F2798 = T21; FUNINIT(x_1348F2798, 2,FREEREF(0),return_); x_1347F2799 = FREEREF(0); placeF2800 = YPfalse; maxF2801 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1347F2799,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1347F2799,LITREF(lit_149),x_1348F2798); x_1347F2802 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1347F2802,x_1348F2798); placeF2800 = T6; T7 = CALL1(1,VARREF(Ytail),x_1347F2802); x_1347F2803 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1347F2803,x_1348F2798); maxF2801 = T4; T5 = CALL1(1,VARREF(Ytail),x_1347F2803); x_1347F2804 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1347F2804,x_1348F2798); } else { T9 = CALL2(1,x_1348F2798,LITREF(lit_141),x_1347F2799); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_142)); T13 = placeF2800; T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_62)); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_143)); T18 = CALL1(1,VARREF(Ylst),YPint((P)1)); T20 = maxF2801; T19 = CALL1(1,VARREF(Ylst),T20); T15 = CALL5(1,VARREF(YgooSmacrosYcat),T16,T17,T18,T19,LITREF(lit_144)); T14 = CALL1(1,VARREF(Ylst),T15); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T14,LITREF(lit_144)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_29) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_28,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_rem_30) { P real_,divisor_; P remainderF2807; P UF2806; P tup27F2805; P T0,T1,T2; LINK_STACK(); ARG(real_, 0); ARG(divisor_, 1); T2 = CALL2(1,VARREF(YgooSmathYtruncS),real_,divisor_); tup27F2805 = T2; T1 = CALL2(1,VARREF(YgooSmacrosYelt),tup27F2805,YPint((P)0)); UF2806 = T1; T0 = CALL2(1,VARREF(YgooSmacrosYelt),tup27F2805,YPint((P)1)); check_type(T0,VARREF(YLnumG)); remainderF2807 = T0; UNLINK_STACK(); RET(remainderF2807); } LOCCODEDEF(fun_pow_31) { P base_,n_; P T0; LINK_STACK(); ARG(base_, 0); ARG(n_, 1); T0 = CALL3(1,VARREF(YgooSmathYcontagious_call),VARREF(YgooSmathYpow),base_,n_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_exp_32) { P n_; P T0; LINK_STACK(); ARG(n_, 0); T0 = CALL2(1,VARREF(YgooSmathYpow),VARREF(YgooSmathYDe),n_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_posQ_33) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmagYG),x_,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_zeroQ_34) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSlogYE),x_,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_negQ_35) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmagYL),x_,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_neg_36) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmathY_),YPint((P)0),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_abs_37) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmathYneg),x_); T0 = T2; } else { T0 = x_; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_38) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnum_to_str),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_contagious_type_39) { P x_,y_; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); UNLINK_STACK(); RET(VARREF(YLintG)); } LOCCODEDEF(fun_contagious_type_40) { P x_,y_; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); UNLINK_STACK(); RET(VARREF(YLfloG)); } LOCCODEDEF(fun_contagious_type_41) { P x_,y_; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); UNLINK_STACK(); RET(VARREF(YLfloG)); } LOCCODEDEF(fun_contagious_type_42) { P x_,y_; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); UNLINK_STACK(); RET(VARREF(YLfloG)); } LOCCODEDEF(fun_EE_43) { P x_,y_; P xF2811; P xF2810; P xF2809; P xF2808; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2808 = x_; xF2809 = xF2808; T2 = (P)YPiGG(xF2809,(P)2); xF2810 = y_; xF2811 = xF2810; T3 = (P)YPiGG(xF2811,(P)2); T1 = (P)YPiE(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_44) { P x_,y_; P xF2815; P xF2814; P xF2813; P xF2812; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2812 = x_; xF2813 = xF2812; T2 = (P)YPiGG(xF2813,(P)2); xF2814 = y_; xF2815 = xF2814; T3 = (P)YPiGG(xF2815,(P)2); T1 = (P)YPiL(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_A_45) { P x_,y_; P tF2822; P xF2821; P xF2820; P xF2819; P xF2818; P xF2817; P xF2816; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2816 = x_; xF2817 = xF2816; T3 = (P)YPiGG(xF2817,(P)2); xF2818 = y_; xF2819 = xF2818; T4 = (P)YPiGG(xF2819,(P)2); T2 = (P)YPiA(T3,T4); xF2820 = T2; xF2821 = xF2820; tF2822 = (P)1; T1 = (P)YPiLL(xF2821,(P)2); T0 = (P)YPiv(T1,tF2822); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun___46) { P x_,y_; P tF2829; P xF2828; P xF2827; P xF2826; P xF2825; P xF2824; P xF2823; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2823 = x_; xF2824 = xF2823; T3 = (P)YPiGG(xF2824,(P)2); xF2825 = y_; xF2826 = xF2825; T4 = (P)YPiGG(xF2826,(P)2); T2 = (P)YPi_(T3,T4); xF2827 = T2; xF2828 = xF2827; tF2829 = (P)1; T1 = (P)YPiLL(xF2828,(P)2); T0 = (P)YPiv(T1,tF2829); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_T_47) { P x_,y_; P tF2836; P xF2835; P xF2834; P xF2833; P xF2832; P xF2831; P xF2830; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2830 = x_; xF2831 = xF2830; T3 = (P)YPiGG(xF2831,(P)2); xF2832 = y_; xF2833 = xF2832; T4 = (P)YPiGG(xF2833,(P)2); T2 = (P)YPiT(T3,T4); xF2834 = T2; xF2835 = xF2834; tF2836 = (P)1; T1 = (P)YPiLL(xF2835,(P)2); T0 = (P)YPiv(T1,tF2836); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_S_48) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_171)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_floor_49) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_ceil_50) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_round_51) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_trunc_52) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_truncS_53) { P x_,y_; P resultF2844; P tF2843; P xF2842; P xF2841; P xF2840; P xF2839; P xF2838; P xF2837; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2837 = x_; xF2838 = xF2837; T6 = (P)YPiGG(xF2838,(P)2); xF2839 = y_; xF2840 = xF2839; T7 = (P)YPiGG(xF2840,(P)2); T5 = (P)YPitS(T6,T7); xF2841 = T5; xF2842 = xF2841; tF2843 = (P)1; T4 = (P)YPiLL(xF2842,(P)2); T3 = (P)YPiv(T4,tF2843); resultF2844 = T3; T2 = CALL2(1,VARREF(YgooSmathYT),resultF2844,y_); T1 = CALL2(1,VARREF(YgooSmathY_),x_,T2); T0 = CALL2(1,VARREF(Ytup),resultF2844,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_mod_54) { P x_,y_; P resF2852; P tF2851; P xF2850; P xF2849; P xF2848; P xF2847; P xF2846; P xF2845; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2845 = x_; xF2846 = xF2845; T9 = (P)YPiGG(xF2846,(P)2); xF2847 = y_; xF2848 = xF2847; T10 = (P)YPiGG(xF2848,(P)2); T8 = (P)YPim(T9,T10); xF2849 = T8; xF2850 = xF2849; tF2851 = (P)1; T7 = (P)YPiLL(xF2850,(P)2); T6 = (P)YPiv(T7,tF2851); resF2852 = T6; T1 = CALL2(1,VARREF(YgooSmagYL),resF2852,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmagYG),y_,YPint((P)0)); if (T3 != YPfalse) { T4 = CALL2(1,VARREF(YgooSmathYA),resF2852,y_); T2 = T4; } else { T5 = CALL2(1,VARREF(YgooSmathY_),resF2852,y_); T2 = T5; } T0 = T2; } else { T0 = resF2852; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pow_55) { P x_,n_; P yF2855; P pF2854; P xF2853; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33; LINK_STACK(); ARG(x_, 0); ARG(n_, 1); T1 = CALL1(1,VARREF(YgooSmathYnegQ),n_); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmathYneg),n_); T3 = CALL2(1,VARREF(YgooSmathYpow),x_,T4); T2 = CALL2(1,VARREF(YgooSmathYS),YPint((P)1),T3); T0 = T2; } else { T6 = CALL2(1,VARREF(YgooSlogYE),x_,YPint((P)2)); if (T6 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmathYLL),YPint((P)1),n_); T5 = T7; } else { T9 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T9 != YPfalse) { T11 = CALL1(1,VARREF(YgooSmathYoddQ),n_); if (T11 != YPfalse) { T14 = CALL1(1,VARREF(YgooSmathYneg),x_); T13 = CALL2(1,VARREF(YgooSmathYpow),T14,n_); T12 = CALL1(1,VARREF(YgooSmathYneg),T13); T10 = T12; } else { T16 = CALL1(1,VARREF(YgooSmathYneg),x_); T15 = CALL2(1,VARREF(YgooSmathYpow),T16,n_); T10 = T15; } T8 = T10; } else { if (YPtrue != YPfalse) { T29 = CALL2(1,VARREF(YgooSmagYG),n_,YPint((P)1)); if (T29 != YPfalse) { T30 = CALL2(1,VARREF(YgooSmathYT),x_,x_); T28 = T30; } else { T28 = x_; } check_type(T28,VARREF(YLfixnumG)); xF2853 = T28; T31 = CALL2(1,VARREF(YgooSmathYGG),n_,YPint((P)1)); check_type(T31,VARREF(YLfixnumG)); pF2854 = T31; T33 = CALL1(1,VARREF(YgooSmathYoddQ),n_); if (T33 != YPfalse) { T32 = x_; } else { T32 = YPint((P)1); } check_type(T32,VARREF(YLfixnumG)); yF2855 = T32; LOOP_51: { P a51_0,a51_1,a51_2; T19 = CALL1(1,VARREF(YgooSmathYzeroQ),pF2854); if (T19 != YPfalse) { T18 = yF2855; } else { T22 = CALL2(1,VARREF(YgooSmagYG),pF2854,YPint((P)1)); if (T22 != YPfalse) { T23 = CALL2(1,VARREF(YgooSmathYT),xF2853,xF2853); T21 = T23; } else { T21 = xF2853; } T24 = CALL2(1,VARREF(YgooSmathYGG),pF2854,YPint((P)1)); T26 = CALL1(1,VARREF(YgooSmathYoddQ),pF2854); if (T26 != YPfalse) { T27 = CALL2(1,VARREF(YgooSmathYT),xF2853,yF2855); T25 = T27; } else { T25 = yF2855; } a51_0 = T21; a51_1 = T24; a51_2 = T25; xF2853 = a51_0; pF2854 = a51_1; yF2855 = a51_2; goto LOOP_51; T18 = T20; } } T17 = T18; } else { T17 = YPfalse; } T8 = T17; } T5 = T8; } T0 = T5; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_K_56) { P x_,y_; P tF2862; P xF2861; P xF2860; P xF2859; P xF2858; P xF2857; P xF2856; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2856 = x_; xF2857 = xF2856; T3 = (P)YPiGG(xF2857,(P)2); xF2858 = y_; xF2859 = xF2858; T4 = (P)YPiGG(xF2859,(P)2); T2 = (P)YPiv(T3,T4); xF2860 = T2; xF2861 = xF2860; tF2862 = (P)1; T1 = (P)YPiLL(xF2861,(P)2); T0 = (P)YPiv(T1,tF2862); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_C_57) { P x_,y_; P tF2869; P xF2868; P xF2867; P xF2866; P xF2865; P xF2864; P xF2863; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2863 = x_; xF2864 = xF2863; T3 = (P)YPiGG(xF2864,(P)2); xF2865 = y_; xF2866 = xF2865; T4 = (P)YPiGG(xF2866,(P)2); T2 = (P)YPiC(T3,T4); xF2867 = T2; xF2868 = xF2867; tF2869 = (P)1; T1 = (P)YPiLL(xF2868,(P)2); T0 = (P)YPiv(T1,tF2869); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_B_58) { P x_,y_; P tF2876; P xF2875; P xF2874; P xF2873; P xF2872; P xF2871; P xF2870; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xF2870 = x_; xF2871 = xF2870; T3 = (P)YPiGG(xF2871,(P)2); xF2872 = y_; xF2873 = xF2872; T4 = (P)YPiGG(xF2873,(P)2); T2 = (P)YPiB(T3,T4); xF2874 = T2; xF2875 = xF2874; tF2876 = (P)1; T1 = (P)YPiLL(xF2875,(P)2); T0 = (P)YPiv(T1,tF2876); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_N_59) { P x_; P tF2881; P xF2880; P xF2879; P xF2878; P xF2877; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); xF2877 = x_; xF2878 = xF2877; T3 = (P)YPiGG(xF2878,(P)2); T2 = (P)YPiX(T3); xF2879 = T2; xF2880 = xF2879; tF2881 = (P)1; T1 = (P)YPiLL(xF2880,(P)2); T0 = (P)YPiv(T1,tF2881); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_bitQ_60) { P o_,x_; P xF2885; P xF2884; P xF2883; P xF2882; P T0,T1,T2,T3; LINK_STACK(); ARG(o_, 0); ARG(x_, 1); xF2882 = o_; xF2883 = xF2882; T2 = (P)YPiGG(xF2883,(P)2); xF2884 = x_; xF2885 = xF2884; T3 = (P)YPiGG(xF2885,(P)2); T1 = (P)YPiQ(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_evenQ_61) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooSmathYB),x_,YPint((P)1)); T0 = CALL1(1,VARREF(YgooSmathYzeroQ),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_oddQ_62) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmathYevenQ),x_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_GG_63) { P x_,a_; P tF2892; P xF2891; P xF2890; P xF2889; P xF2888; P xF2887; P xF2886; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(a_, 1); xF2886 = x_; xF2887 = xF2886; T3 = (P)YPiGG(xF2887,(P)2); xF2888 = a_; xF2889 = xF2888; T4 = (P)YPiGG(xF2889,(P)2); T2 = (P)YPiGG(T3,T4); xF2890 = T2; xF2891 = xF2890; tF2892 = (P)1; T1 = (P)YPiLL(xF2891,(P)2); T0 = (P)YPiv(T1,tF2892); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_GGG_64) { P x_,a_; P tF2899; P xF2898; P xF2897; P xF2896; P xF2895; P xF2894; P xF2893; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(a_, 1); xF2893 = x_; xF2894 = xF2893; T3 = (P)YPiGG(xF2894,(P)2); xF2895 = a_; xF2896 = xF2895; T4 = (P)YPiGG(xF2896,(P)2); T2 = (P)YPiGGG(T3,T4); xF2897 = T2; xF2898 = xF2897; tF2899 = (P)1; T1 = (P)YPiLL(xF2898,(P)2); T0 = (P)YPiv(T1,tF2899); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_LL_65) { P x_,a_; P tF2906; P xF2905; P xF2904; P xF2903; P xF2902; P xF2901; P xF2900; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(a_, 1); xF2900 = x_; xF2901 = xF2900; T3 = (P)YPiGG(xF2901,(P)2); xF2902 = a_; xF2903 = xF2902; T4 = (P)YPiGG(xF2903,(P)2); T2 = (P)YPiLL(T3,T4); xF2904 = T2; xF2905 = xF2904; tF2906 = (P)1; T1 = (P)YPiLL(xF2905,(P)2); T0 = (P)YPiv(T1,tF2906); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_power_of_two_ceil_66) { P x_; P po2F2907; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); check_type(YPint((P)1),VARREF(YLintG)); po2F2907 = YPint((P)1); LOOP_52: { P a52_0; T1 = CALL2(1,VARREF(YgooSmagYG),po2F2907,x_); if (T1 != YPfalse) { T0 = po2F2907; } else { T3 = CALL2(1,VARREF(YgooSmathYA),po2F2907,po2F2907); a52_0 = T3; po2F2907 = a52_0; goto LOOP_52; T0 = T2; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSmathYflo_bits) { P x_; P tF2910; P xF2909; P xF2908; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = (P)YPfu(x_); T2 = (P)YgooSmathYPflo_bits(T3); xF2908 = T2; xF2909 = xF2908; tF2910 = (P)1; T1 = (P)YPiLL(xF2909,(P)2); T0 = (P)YPiv(T1,tF2910); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_as_68) { P U_,x_; P xF2912; P xF2911; P T0,T1,T2; LINK_STACK(); ARG(U_, 0); ARG(x_, 1); xF2911 = x_; xF2912 = xF2911; T2 = (P)YPiGG(xF2912,(P)2); T1 = (P)YgooSmathYPfi2f(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_EE_69) { P x_,y_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T2 = (P)YPfu(x_); T3 = (P)YPfu(y_); T1 = (P)YgooSmathYPfE(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_70) { P x_,y_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T2 = (P)YPfu(x_); T3 = (P)YPfu(y_); T1 = (P)YgooSmathYPfL(T2,T3); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_A_71) { P x_,y_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T2 = (P)YPfu(x_); T3 = (P)YPfu(y_); T1 = (P)YgooSmathYPfA(T2,T3); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun___72) { P x_,y_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T2 = (P)YPfu(x_); T3 = (P)YPfu(y_); T1 = (P)YgooSmathYPf_(T2,T3); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_T_73) { P x_,y_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T2 = (P)YPfu(x_); T3 = (P)YPfu(y_); T1 = (P)YgooSmathYPfT(T2,T3); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_S_74) { P x_,y_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T2 = (P)YPfu(x_); T3 = (P)YPfu(y_); T1 = (P)YgooSmathYPfS(T2,T3); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_truncS_75) { P x_,y_; P resultF2917; P tF2916; P xF2915; P xF2914; P dividedF2913; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T8 = CALL2(1,VARREF(YgooSmathYS),x_,y_); dividedF2913 = T8; T7 = (P)YPfu(dividedF2913); T6 = (P)YgooSmathYPft(T7); xF2914 = T6; xF2915 = xF2914; tF2916 = (P)1; T5 = (P)YPiLL(xF2915,(P)2); T4 = (P)YPiv(T5,tF2916); resultF2917 = T4; T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),resultF2917); T2 = CALL2(1,VARREF(YgooSmathY_),dividedF2913,T3); T1 = CALL2(1,VARREF(YgooSmathYT),y_,T2); T0 = CALL2(1,VARREF(Ytup),resultF2917,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pow_76) { P x_,n_; P resF2918; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(x_, 0); ARG(n_, 1); T8 = CALL1(1,VARREF(YgooSmathYabs),x_); T7 = (P)YPfu(T8); T9 = (P)YPfu(n_); T6 = (P)YgooSmathYPfpow(T7,T9); T5 = (P)YPfb(T6); resF2918 = T5; T2 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T2 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmathYoddQ),n_); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmathYneg),resF2918); T0 = T4; } else { T0 = resF2918; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_isqrt_77) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T1 = CALL1(1,VARREF(YgooSmathYsqrt),T2); T0 = CALL1(1,VARREF(YgooSmathYround),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1352_78) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_208),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_79) { P return_; P PfpF2932; P x_1351F2931; P x_1351F2930; P x_1351F2929; P x_1351F2928; P x_1351F2927; P x_1351F2926; P x_1351F2925; P x_1351F2924; P prefixF2923; P paramF2922; P nameF2921; P x_1351F2920; P x_1352F2919; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86; LINK_STACK(); ARG(return_, 0); T86 = FUNSHELL(0,fun_x_1352_78,2); x_1352F2919 = T86; FUNINIT(x_1352F2919, 2,FREEREF(0),return_); x_1351F2920 = FREEREF(0); nameF2921 = YPfalse; paramF2922 = YPfalse; prefixF2923 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1351F2920,VARREF(YLlstG)); if (T3 != YPfalse) { T15 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1351F2920,LITREF(lit_208),x_1352F2919); x_1351F2924 = T15; T13 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1351F2924,x_1352F2919); nameF2921 = T13; T14 = CALL1(1,VARREF(Ytail),x_1351F2924); x_1351F2925 = T14; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1351F2925,x_1352F2919); x_1351F2926 = T11; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1351F2926,x_1352F2919); paramF2922 = T9; T10 = CALL1(1,VARREF(Ytail),x_1351F2926); x_1351F2927 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1351F2927,x_1352F2919); x_1351F2928 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1351F2928,x_1352F2919); T8 = CALL1(1,VARREF(Ytail),x_1351F2927); x_1351F2929 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1351F2929,x_1352F2919); T12 = CALL1(1,VARREF(Ytail),x_1351F2925); x_1351F2930 = T12; prefixF2923 = x_1351F2930; x_1351F2931 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1351F2931,x_1352F2919); } else { T16 = CALL2(1,x_1352F2919,LITREF(lit_141),x_1351F2920); } T85 = nameF2921; T84 = CALL2(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_209),T85); PfpF2932 = T84; T18 = CALL1(1,VARREF(Ylst),LITREF(lit_210)); T21 = CALL1(1,VARREF(Ylst),LITREF(lit_211)); T23 = nameF2921; T22 = CALL1(1,VARREF(Ylst),T23); T29 = paramF2922; T28 = CALL1(1,VARREF(Ylst),T29); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_212)); T27 = CALL3(1,VARREF(YgooSmacrosYcat),T28,T30,LITREF(lit_144)); T26 = CALL1(1,VARREF(Ylst),T27); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_213)); T32 = CALL1(1,VARREF(Ylst),LITREF(lit_212)); T25 = CALL4(1,VARREF(YgooSmacrosYcat),T26,T31,T32,LITREF(lit_144)); T24 = CALL1(1,VARREF(Ylst),T25); T20 = CALL4(1,VARREF(YgooSmacrosYcat),T21,T22,T24,LITREF(lit_144)); T19 = CALL1(1,VARREF(Ylst),T20); T35 = CALL1(1,VARREF(Ylst),LITREF(lit_214)); T37 = nameF2921; T36 = CALL1(1,VARREF(Ylst),T37); T43 = paramF2922; T42 = CALL1(1,VARREF(Ylst),T43); T44 = CALL1(1,VARREF(Ylst),LITREF(lit_215)); T41 = CALL3(1,VARREF(YgooSmacrosYcat),T42,T44,LITREF(lit_144)); T40 = CALL1(1,VARREF(Ylst),T41); T45 = CALL1(1,VARREF(Ylst),LITREF(lit_213)); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_216)); T39 = CALL4(1,VARREF(YgooSmacrosYcat),T40,T45,T46,LITREF(lit_144)); T38 = CALL1(1,VARREF(Ylst),T39); T47 = prefixF2923; T51 = nameF2921; T50 = CALL1(1,VARREF(Ylst),T51); T54 = CALL1(1,VARREF(Ylst),LITREF(lit_191)); T55 = CALL1(1,VARREF(Ylst),LITREF(lit_216)); T57 = paramF2922; T56 = CALL1(1,VARREF(Ylst),T57); T53 = CALL4(1,VARREF(YgooSmacrosYcat),T54,T55,T56,LITREF(lit_144)); T52 = CALL1(1,VARREF(Ylst),T53); T49 = CALL3(1,VARREF(YgooSmacrosYcat),T50,T52,LITREF(lit_144)); T48 = CALL1(1,VARREF(Ylst),T49); T34 = CALLN(1,VARREF(YgooSmacrosYcat),6,T35,T36,T38,T47,T48,LITREF(lit_144)); T33 = CALL1(1,VARREF(Ylst),T34); T60 = CALL1(1,VARREF(Ylst),LITREF(lit_214)); T62 = nameF2921; T61 = CALL1(1,VARREF(Ylst),T62); T68 = paramF2922; T67 = CALL1(1,VARREF(Ylst),T68); T69 = CALL1(1,VARREF(Ylst),LITREF(lit_216)); T66 = CALL3(1,VARREF(YgooSmacrosYcat),T67,T69,LITREF(lit_144)); T65 = CALL1(1,VARREF(Ylst),T66); T70 = CALL1(1,VARREF(Ylst),LITREF(lit_213)); T71 = CALL1(1,VARREF(Ylst),LITREF(lit_216)); T64 = CALL4(1,VARREF(YgooSmacrosYcat),T65,T70,T71,LITREF(lit_144)); T63 = CALL1(1,VARREF(Ylst),T64); T72 = prefixF2923; T75 = CALL1(1,VARREF(Ylst),LITREF(lit_217)); T78 = CALL1(1,VARREF(Ylst),PfpF2932); T81 = CALL1(1,VARREF(Ylst),LITREF(lit_218)); T83 = paramF2922; T82 = CALL1(1,VARREF(Ylst),T83); T80 = CALL3(1,VARREF(YgooSmacrosYcat),T81,T82,LITREF(lit_144)); T79 = CALL1(1,VARREF(Ylst),T80); T77 = CALL3(1,VARREF(YgooSmacrosYcat),T78,T79,LITREF(lit_144)); T76 = CALL1(1,VARREF(Ylst),T77); T74 = CALL3(1,VARREF(YgooSmacrosYcat),T75,T76,LITREF(lit_144)); T73 = CALL1(1,VARREF(Ylst),T74); T59 = CALLN(1,VARREF(YgooSmacrosYcat),6,T60,T61,T63,T72,T73,LITREF(lit_144)); T58 = CALL1(1,VARREF(Ylst),T59); T17 = CALL5(1,VARREF(YgooSmacrosYcat),T18,T19,T33,T58,LITREF(lit_144)); UNLINK_STACK(); QRET(T17); } LOCCODEDEF(fun_80) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_79,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sqrt_81) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_221)); } else { } T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T2 = CALL1(1,VARREF(YgooSmathYsqrt),T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_sqrt_82) { P x_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_221)); } else { } T4 = (P)YPfu(x_); T3 = (P)YgooSmathYPfsqrt(T4); T2 = (P)YPfb(T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_log_83) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYlog),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_log_84) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPflog(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sin_85) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYsin),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sin_86) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPfsin(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_cos_87) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYcos),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_cos_88) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPfcos(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_tan_89) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYtan),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_tan_90) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPftan(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sinh_91) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYsinh),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sinh_92) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPfsinh(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_cosh_93) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYcosh),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_cosh_94) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPfcosh(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_tanh_95) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYtanh),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_tanh_96) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPftanh(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_asin_97) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_246)); } else { } T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T2 = CALL1(1,VARREF(YgooSmathYasin),T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_asin_98) { P x_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_246)); } else { } T4 = (P)YPfu(x_); T3 = (P)YgooSmathYPfasin(T4); T2 = (P)YPfb(T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_acos_99) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_250)); } else { } T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T2 = CALL1(1,VARREF(YgooSmathYacos),T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_acos_100) { P x_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSmathYnegQ),x_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(Yarithmetic_error),LITREF(lit_250)); } else { } T4 = (P)YPfu(x_); T3 = (P)YgooSmathYPfacos(T4); T2 = (P)YPfb(T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_atan_101) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),x_); T0 = CALL1(1,VARREF(YgooSmathYatan),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_atan_102) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPfu(x_); T1 = (P)YgooSmathYPfatan(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_atan2_103) { P y_,x_; P T0,T1,T2,T3; LINK_STACK(); ARG(y_, 0); ARG(x_, 1); T2 = (P)YPfu(y_); T3 = (P)YPfu(x_); T1 = (P)YgooSmathYPfatan2(T2,T3); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_atan2_104) { P y_,x_; P T0,T1,T2,T3; LINK_STACK(); ARG(y_, 0); ARG(x_, 1); T2 = (P)YPfu(y_); T3 = (P)YPfu(x_); T1 = (P)YgooSmathYPfatan2(T2,T3); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_logn_105) { P x_,b_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(b_, 1); T1 = CALL1(1,VARREF(YgooSmathYlog),x_); T2 = CALL1(1,VARREF(YgooSmathYlog),b_); T0 = CALL2(1,VARREF(YgooSmathYS),T1,T2); UNLINK_STACK(); RET(T0); } P YgooSmathY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40; DEFCREGS(); lit_0 = YPPsym((P)"contagious-type"); lit_1 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T2 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLnumG)); T1 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),T2,Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSmathYcontagious_type,T0); lit_2 = YPPsym((P)"contagious-call"); lit_3 = YPPlist(3,YPPsym((P)""),YPPsym((P)""),YPPsym((P)"")); T4 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T3 = YPfab_gen(T4,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSmathYcontagious_call,T3); lit_4 = YPPsym((P)"+"); lit_5 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T5 = YPfab_gen(T6,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSmathYA,T5); lit_6 = YPPsym((P)"-"); lit_7 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T8 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T7 = YPfab_gen(T8,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooSmathY_,T7); lit_8 = YPPsym((P)"*"); lit_9 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T10 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T9 = YPfab_gen(T10,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooSmathYT,T9); lit_10 = YPPsym((P)"/"); lit_11 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T12 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T11 = YPfab_gen(T12,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooSmathYS,T11); lit_12 = YPPsym((P)"sin"); lit_13 = YPPlist(1,YPPsym((P)"")); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T13 = YPfab_gen(T14,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooSmathYsin,T13); lit_14 = YPPsym((P)"cos"); lit_15 = YPPlist(1,YPPsym((P)"")); T16 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T15 = YPfab_gen(T16,LITREF(lit_14),LITREF(lit_15),YPfalse); VARSET(YgooSmathYcos,T15); lit_16 = YPPsym((P)"tan"); lit_17 = YPPlist(1,YPPsym((P)"")); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T17 = YPfab_gen(T18,LITREF(lit_16),LITREF(lit_17),YPfalse); VARSET(YgooSmathYtan,T17); lit_18 = YPPsym((P)"sinh"); lit_19 = YPPlist(1,YPPsym((P)"")); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T19 = YPfab_gen(T20,LITREF(lit_18),LITREF(lit_19),YPfalse); VARSET(YgooSmathYsinh,T19); lit_20 = YPPsym((P)"cosh"); lit_21 = YPPlist(1,YPPsym((P)"")); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T21 = YPfab_gen(T22,LITREF(lit_20),LITREF(lit_21),YPfalse); VARSET(YgooSmathYcosh,T21); lit_22 = YPPsym((P)"tanh"); lit_23 = YPPlist(1,YPPsym((P)"")); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T23 = YPfab_gen(T24,LITREF(lit_22),LITREF(lit_23),YPfalse); VARSET(YgooSmathYtanh,T23); lit_24 = YPPsym((P)"asin"); lit_25 = YPPlist(1,YPPsym((P)"")); T26 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T25 = YPfab_gen(T26,LITREF(lit_24),LITREF(lit_25),YPfalse); VARSET(YgooSmathYasin,T25); lit_26 = YPPsym((P)"acos"); lit_27 = YPPlist(1,YPPsym((P)"")); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T27 = YPfab_gen(T28,LITREF(lit_26),LITREF(lit_27),YPfalse); VARSET(YgooSmathYacos,T27); lit_28 = YPPsym((P)"atan"); lit_29 = YPPlist(1,YPPsym((P)"")); T30 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T29 = YPfab_gen(T30,LITREF(lit_28),LITREF(lit_29),YPfalse); VARSET(YgooSmathYatan,T29); lit_30 = YPPsym((P)"atan2"); lit_31 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T32 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T31 = YPfab_gen(T32,LITREF(lit_30),LITREF(lit_31),YPfalse); VARSET(YgooSmathYatan2,T31); lit_32 = YPPsym((P)"sqrt"); lit_33 = YPPlist(1,YPPsym((P)"")); T34 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T33 = YPfab_gen(T34,LITREF(lit_32),LITREF(lit_33),YPfalse); VARSET(YgooSmathYsqrt,T33); lit_34 = YPPsym((P)"log"); lit_35 = YPPlist(1,YPPsym((P)"")); T36 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T35 = YPfab_gen(T36,LITREF(lit_34),LITREF(lit_35),YPfalse); VARSET(YgooSmathYlog,T35); lit_36 = YPPsym((P)"logn"); lit_37 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T40 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T39 = YPfab_gen(T40,LITREF(lit_36),LITREF(lit_37),YPfalse); T38 = VARSET(YgooSmathYlogn,T39); T37 = T38; return T37; } P YgooSmathY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51; DEFCREGS(); lit_38 = YPPsym((P)"floor"); lit_39 = YPPlist(1,YPPsym((P)"")); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_38),LITREF(lit_39),YPfalse); VARSET(YgooSmathYfloor,T0); lit_40 = YPPsym((P)"ceil"); lit_41 = YPPlist(1,YPPsym((P)"")); T3 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_40),LITREF(lit_41),YPfalse); VARSET(YgooSmathYceil,T2); lit_42 = YPPsym((P)"round"); lit_43 = YPPlist(1,YPPsym((P)"")); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_42),LITREF(lit_43),YPfalse); VARSET(YgooSmathYround,T4); lit_44 = YPPsym((P)"round-to"); lit_45 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T7 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_44),LITREF(lit_45),YPfalse); VARSET(YgooSmathYround_to,T6); lit_46 = YPPsym((P)"trunc"); lit_47 = YPPlist(1,YPPsym((P)"")); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_46),LITREF(lit_47),YPfalse); VARSET(YgooSmathYtrunc,T8); lit_48 = YPPsym((P)"floor/"); lit_49 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T12 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T11 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T12,Ynil); T10 = YPfab_gen(T11,LITREF(lit_48),LITREF(lit_49),YPfalse); VARSET(YgooSmathYfloorS,T10); lit_50 = YPPsym((P)"ceil/"); lit_51 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T15 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T14 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T15,Ynil); T13 = YPfab_gen(T14,LITREF(lit_50),LITREF(lit_51),YPfalse); VARSET(YgooSmathYceilS,T13); lit_52 = YPPsym((P)"round/"); lit_53 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T18 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T17 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T18,Ynil); T16 = YPfab_gen(T17,LITREF(lit_52),LITREF(lit_53),YPfalse); VARSET(YgooSmathYroundS,T16); lit_54 = YPPsym((P)"trunc/"); lit_55 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T21 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T20 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T21,Ynil); T19 = YPfab_gen(T20,LITREF(lit_54),LITREF(lit_55),YPfalse); VARSET(YgooSmathYtruncS,T19); lit_56 = YPPsym((P)"div"); lit_57 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T23 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T22 = YPfab_gen(T23,LITREF(lit_56),LITREF(lit_57),YPfalse); VARSET(YgooSmathYdiv,T22); lit_58 = YPPsym((P)"mod"); lit_59 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T25 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T24 = YPfab_gen(T25,LITREF(lit_58),LITREF(lit_59),YPfalse); VARSET(YgooSmathYmod,T24); lit_60 = YPPsym((P)"mod+"); lit_61 = YPPlist(3,YPPsym((P)""),YPPsym((P)""),YPPsym((P)"")); T27 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLnumG),Ynil); T26 = YPfab_gen(T27,LITREF(lit_60),LITREF(lit_61),YPfalse); VARSET(YgooSmathYmodA,T26); lit_62 = YPPsym((P)"mod-"); lit_63 = YPPlist(3,YPPsym((P)""),YPPsym((P)""),YPPsym((P)"")); T29 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLnumG),Ynil); T28 = YPfab_gen(T29,LITREF(lit_62),LITREF(lit_63),YPfalse); VARSET(YgooSmathYmod_,T28); lit_64 = YPPsym((P)"rem"); lit_65 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T31 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T30 = YPfab_gen(T31,LITREF(lit_64),LITREF(lit_65),YPfalse); VARSET(YgooSmathYrem,T30); lit_66 = YPPsym((P)"pow"); lit_67 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T33 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T32 = YPfab_gen(T33,LITREF(lit_66),LITREF(lit_67),YPfalse); VARSET(YgooSmathYpow,T32); lit_68 = YPPsym((P)"exp"); lit_69 = YPPlist(1,YPPsym((P)"")); T35 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T34 = YPfab_gen(T35,LITREF(lit_68),LITREF(lit_69),YPfalse); VARSET(YgooSmathYexp,T34); lit_70 = YPPsym((P)"pos?"); lit_71 = YPPlist(1,YPPsym((P)"")); T37 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T36 = YPfab_gen(T37,LITREF(lit_70),LITREF(lit_71),YPfalse); VARSET(YgooSmathYposQ,T36); lit_72 = YPPsym((P)"zero?"); lit_73 = YPPlist(1,YPPsym((P)"")); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T38 = YPfab_gen(T39,LITREF(lit_72),LITREF(lit_73),YPfalse); VARSET(YgooSmathYzeroQ,T38); lit_74 = YPPsym((P)"neg?"); lit_75 = YPPlist(1,YPPsym((P)"")); T41 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T40 = YPfab_gen(T41,LITREF(lit_74),LITREF(lit_75),YPfalse); VARSET(YgooSmathYnegQ,T40); lit_76 = YPPsym((P)"neg"); lit_77 = YPPlist(1,YPPsym((P)"")); T43 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T42 = YPfab_gen(T43,LITREF(lit_76),LITREF(lit_77),YPfalse); VARSET(YgooSmathYneg,T42); lit_78 = YPPsym((P)"abs"); lit_79 = YPPlist(1,YPPsym((P)"")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T44 = YPfab_gen(T45,LITREF(lit_78),LITREF(lit_79),YPfalse); VARSET(YgooSmathYabs,T44); lit_80 = YPPsym((P)"|"); lit_81 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T47 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T46 = YPfab_gen(T47,LITREF(lit_80),LITREF(lit_81),YPfalse); VARSET(YgooSmathYK,T46); lit_82 = YPPsym((P)"^"); lit_83 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T51 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T50 = YPfab_gen(T51,LITREF(lit_82),LITREF(lit_83),YPfalse); T49 = VARSET(YgooSmathYC,T50); T48 = T49; return T48; } P YgooSmathY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116; DEFCREGS(); lit_84 = YPPsym((P)"&"); lit_85 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T1 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_84),LITREF(lit_85),YPfalse); VARSET(YgooSmathYB,T0); lit_86 = YPPsym((P)"~"); lit_87 = YPPlist(1,YPPsym((P)"")); T3 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_86),LITREF(lit_87),YPfalse); VARSET(YgooSmathYN,T2); lit_88 = YPPsym((P)"bit?"); lit_89 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T5 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_88),LITREF(lit_89),YPfalse); VARSET(YgooSmathYbitQ,T4); lit_90 = YPPsym((P)">>"); lit_91 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T7 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_90),LITREF(lit_91),YPfalse); VARSET(YgooSmathYGG,T6); lit_92 = YPPsym((P)"even?"); lit_93 = YPPlist(1,YPPsym((P)"")); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_92),LITREF(lit_93),YPfalse); VARSET(YgooSmathYevenQ,T8); lit_94 = YPPsym((P)"odd?"); lit_95 = YPPlist(1,YPPsym((P)"")); T11 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_94),LITREF(lit_95),YPfalse); VARSET(YgooSmathYoddQ,T10); lit_96 = YPPsym((P)">>>"); lit_97 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T13 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T12 = YPfab_gen(T13,LITREF(lit_96),LITREF(lit_97),YPfalse); VARSET(YgooSmathYGGG,T12); lit_98 = YPPsym((P)"<<"); lit_99 = YPPlist(2,YPPsym((P)""),YPPsym((P)"")); T15 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_98),LITREF(lit_99),YPfalse); VARSET(YgooSmathYLL,T14); lit_100 = YPPsym((P)"isqrt"); lit_101 = YPPlist(1,YPPsym((P)"")); T17 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_100),LITREF(lit_101),YPfalse); VARSET(YgooSmathYisqrt,T16); lit_102 = YPPsym((P)"power-of-two-ceil"); lit_103 = YPPlist(1,YPPsym((P)"")); T19 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T18 = YPfab_gen(T19,LITREF(lit_102),LITREF(lit_103),YPfalse); VARSET(YgooSmathYpower_of_two_ceil,T18); lit_104 = YPPsym((P)"flo-bits"); lit_105 = YPPlist(1,YPPsym((P)"")); T21 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T20 = YPfab_gen(T21,LITREF(lit_104),LITREF(lit_105),YPfalse); VARSET(YgooSmathYflo_bits,T20); lit_106 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y")); T22 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_contagious_call_0 = YPfab_met(FUNCODEREF(fun_contagious_call_0),T22,LITREF(lit_2),LITREF(lit_106),sloc(75),YPfalse); T24 = VARREF_OR(YgooSmathYcontagious_call,YPfalse); T25 = fun_contagious_call_0; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSmathYcontagious_call,T23); lit_107 = YPPsym((P)"="); lit_108 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T26 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_E_1 = YPfab_met(FUNCODEREF(fun_E_1),T26,LITREF(lit_107),LITREF(lit_108),sloc(79),YPfalse); T28 = VARREF_OR(YgooSlogYE,YPfalse); T29 = fun_E_1; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSlogYE,T27); lit_109 = YPPsym((P)"<"); lit_110 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T30 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_2 = YPfab_met(FUNCODEREF(fun_L_2),T30,LITREF(lit_109),LITREF(lit_110),sloc(82),YPfalse); T32 = VARREF_OR(YgooSmagYL,YPfalse); T33 = fun_L_2; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSmagYL,T31); lit_111 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T34 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_A_3 = YPfab_met(FUNCODEREF(fun_A_3),T34,LITREF(lit_4),LITREF(lit_111),sloc(85),YPfalse); T36 = VARREF_OR(YgooSmathYA,YPfalse); T37 = fun_A_3; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooSmathYA,T35); lit_112 = YPPsym((P)"1+"); lit_113 = YPPlist(1,YPPsym((P)"x")); T38 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); YgooSmathY1A = YPfab_met_inlineable(FUNCODEREF(YgooSmathY1A),T38,LITREF(lit_112),LITREF(lit_113),sloc(88),YPfalse); T39 = YgooSmathY1A; VARSET(YgooSmathY1A,T39); lit_114 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T40 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun___5 = YPfab_met(FUNCODEREF(fun___5),T40,LITREF(lit_6),LITREF(lit_114),sloc(90),YPfalse); T42 = VARREF_OR(YgooSmathY_,YPfalse); T43 = fun___5; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooSmathY_,T41); lit_115 = YPPsym((P)"1-"); lit_116 = YPPlist(1,YPPsym((P)"x")); T44 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); YgooSmathY1_ = YPfab_met_inlineable(FUNCODEREF(YgooSmathY1_),T44,LITREF(lit_115),LITREF(lit_116),sloc(93),YPfalse); T45 = YgooSmathY1_; VARSET(YgooSmathY1_,T45); lit_117 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T46 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_T_7 = YPfab_met(FUNCODEREF(fun_T_7),T46,LITREF(lit_8),LITREF(lit_117),sloc(95),YPfalse); T48 = VARREF_OR(YgooSmathYT,YPfalse); T49 = fun_T_7; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSmathYT,T47); lit_118 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T50 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_S_8 = YPfab_met(FUNCODEREF(fun_S_8),T50,LITREF(lit_10),LITREF(lit_118),sloc(98),YPfalse); T52 = VARREF_OR(YgooSmathYS,YPfalse); T53 = fun_S_8; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSmathYS,T51); lit_119 = YPPlist(2,YPPsym((P)"y"),YPPsym((P)"x")); T54 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_atan2_9 = YPfab_met(FUNCODEREF(fun_atan2_9),T54,LITREF(lit_30),LITREF(lit_119),sloc(101),YPfalse); T56 = VARREF_OR(YgooSmathYatan2,YPfalse); T57 = fun_atan2_9; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSmathYatan2,T55); lit_120 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"b")); T58 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_logn_10 = YPfab_met(FUNCODEREF(fun_logn_10),T58,LITREF(lit_36),LITREF(lit_120),sloc(104),YPfalse); T60 = VARREF_OR(YgooSmathYlogn,YPfalse); T61 = fun_logn_10; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooSmathYlogn,T59); lit_121 = YPPlist(1,YPPsym((P)"x")); T62 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_floor_11 = YPfab_met(FUNCODEREF(fun_floor_11),T62,LITREF(lit_38),LITREF(lit_121),sloc(107),YPfalse); T64 = VARREF_OR(YgooSmathYfloor,YPfalse); T65 = fun_floor_11; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooSmathYfloor,T63); lit_122 = YPPlist(1,YPPsym((P)"x")); T66 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_ceil_12 = YPfab_met(FUNCODEREF(fun_ceil_12),T66,LITREF(lit_40),LITREF(lit_122),sloc(110),YPfalse); T68 = VARREF_OR(YgooSmathYceil,YPfalse); T69 = fun_ceil_12; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooSmathYceil,T67); lit_123 = YPPlist(1,YPPsym((P)"x")); T70 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_round_13 = YPfab_met(FUNCODEREF(fun_round_13),T70,LITREF(lit_42),LITREF(lit_123),sloc(113),YPfalse); T72 = VARREF_OR(YgooSmathYround,YPfalse); T73 = fun_round_13; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooSmathYround,T71); lit_124 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"n")); lit_125 = YPflo(FLOINT(10.0)); T74 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_round_to_14 = YPfab_met(FUNCODEREF(fun_round_to_14),T74,LITREF(lit_44),LITREF(lit_124),sloc(116),YPfalse); T76 = VARREF_OR(YgooSmathYround_to,YPfalse); T77 = fun_round_to_14; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooSmathYround_to,T75); lit_126 = YPPlist(1,YPPsym((P)"x")); T78 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_trunc_15 = YPfab_met(FUNCODEREF(fun_trunc_15),T78,LITREF(lit_46),LITREF(lit_126),sloc(122),YPfalse); T80 = VARREF_OR(YgooSmathYtrunc,YPfalse); T81 = fun_trunc_15; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YgooSmathYtrunc,T79); lit_127 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T83 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T82 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T83,Ynil); fun_floorS_16 = YPfab_met(FUNCODEREF(fun_floorS_16),T82,LITREF(lit_48),LITREF(lit_127),sloc(125),YPfalse); T85 = VARREF_OR(YgooSmathYfloorS,YPfalse); T86 = fun_floorS_16; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YgooSmathYfloorS,T84); lit_128 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T88 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T87 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T88,Ynil); fun_ceilS_17 = YPfab_met(FUNCODEREF(fun_ceilS_17),T87,LITREF(lit_50),LITREF(lit_128),sloc(134),YPfalse); T90 = VARREF_OR(YgooSmathYceilS,YPfalse); T91 = fun_ceilS_17; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooSmathYceilS,T89); lit_129 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); lit_130 = YPflo(FLOINT(2.0)); T93 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T92 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T93,Ynil); fun_roundS_18 = YPfab_met(FUNCODEREF(fun_roundS_18),T92,LITREF(lit_52),LITREF(lit_129),sloc(143),YPfalse); T95 = VARREF_OR(YgooSmathYroundS,YPfalse); T96 = fun_roundS_18; T94 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T95,T96); VARSET(YgooSmathYroundS,T94); lit_131 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T98 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLnumG)); T97 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),T98,Ynil); fun_truncS_19 = YPfab_met(FUNCODEREF(fun_truncS_19),T97,LITREF(lit_54),LITREF(lit_131),sloc(159),YPfalse); T100 = VARREF_OR(YgooSmathYtruncS,YPfalse); T101 = fun_truncS_19; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YgooSmathYtruncS,T99); lit_132 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T102 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_div_20 = YPfab_met(FUNCODEREF(fun_div_20),T102,LITREF(lit_56),LITREF(lit_132),sloc(162),YPfalse); T104 = VARREF_OR(YgooSmathYdiv,YPfalse); T105 = fun_div_20; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YgooSmathYdiv,T103); lit_133 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T106 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_mod_21 = YPfab_met(FUNCODEREF(fun_mod_21),T106,LITREF(lit_58),LITREF(lit_133),sloc(165),YPfalse); T108 = VARREF_OR(YgooSmathYmod,YPfalse); T109 = fun_mod_21; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YgooSmathYmod,T107); lit_134 = YPPlist(3,YPPsym((P)"i"),YPPsym((P)"j"),YPPsym((P)"n")); T112 = YPfab_sig(YPPlist(3,VARREF(YLnumG),VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)3),VARREF(YLnumG),Ynil); T111 = fun_modA_22 = YPfab_met_inlineable(FUNCODEREF(fun_modA_22),T112,LITREF(lit_60),LITREF(lit_134),sloc(169),YPfalse); T115 = VARREF_OR(YgooSmathYmodA,YPfalse); T116 = fun_modA_22; T114 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T115,T116); T113 = VARSET(YgooSmathYmodA,T114); T110 = T113; return T110; } P YgooSmathY___main_3___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; P T144,T145,T146,T147,T148,T149,T150,T151,T152,T153,T154,T155,T156,T157,T158,T159; P T160,T161,T162,T163,T164,T165; DEFCREGS(); lit_135 = YPPlist(3,YPPsym((P)"i"),YPPsym((P)"j"),YPPsym((P)"n")); T0 = YPfab_sig(YPPlist(3,VARREF(YLnumG),VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)3),VARREF(YLnumG),Ynil); fun_mod__23 = YPfab_met_inlineable(FUNCODEREF(fun_mod__23),T0,LITREF(lit_62),LITREF(lit_135),sloc(172),YPfalse); T2 = VARREF_OR(YgooSmathYmod_,YPfalse); T3 = fun_mod__23; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSmathYmod_,T1); lit_136 = YPPlist(1,YPPsym((P)"exp")); lit_137 = YPPlist(1,YPPsym((P)"return")); lit_138 = YPPsym((P)"x-1344"); lit_139 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_140 = YPPsym((P)"modincf"); lit_141 = YPsb((P)"Match Pattern Failure"); lit_142 = YPPsym((P)"opf"); lit_143 = YPPsym((P)"_"); lit_144 = Ynil; T6 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1344_24 = YPfab_met(FUNCODEREF(fun_x_1344_24),T6,LITREF(lit_138),LITREF(lit_139),YPfalse,YPfalse); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_25 = YPfab_met(FUNCODEREF(fun_25),T5,YPfalse,LITREF(lit_137),YPfalse,YPfalse); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T4,YPfalse,LITREF(lit_136),YPfalse,YPfalse); T7 = fun_26; YPmacro(YPPsym((P)"goo/math"),YPPsym((P)"modincf"),T7); lit_145 = YPPlist(1,YPPsym((P)"exp")); lit_146 = YPPlist(1,YPPsym((P)"return")); lit_147 = YPPsym((P)"x-1348"); lit_148 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_149 = YPPsym((P)"moddecf"); T10 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1348_27 = YPfab_met(FUNCODEREF(fun_x_1348_27),T10,LITREF(lit_147),LITREF(lit_148),YPfalse,YPfalse); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_28 = YPfab_met(FUNCODEREF(fun_28),T9,YPfalse,LITREF(lit_146),YPfalse,YPfalse); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_29 = YPfab_met(FUNCODEREF(fun_29),T8,YPfalse,LITREF(lit_145),YPfalse,YPfalse); T11 = fun_29; YPmacro(YPPsym((P)"goo/math"),YPPsym((P)"moddecf"),T11); lit_150 = YPPlist(2,YPPsym((P)"real"),YPPsym((P)"divisor")); T12 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_rem_30 = YPfab_met(FUNCODEREF(fun_rem_30),T12,LITREF(lit_64),LITREF(lit_150),sloc(181),YPfalse); T14 = VARREF_OR(YgooSmathYrem,YPfalse); T15 = fun_rem_30; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSmathYrem,T13); lit_151 = YPPlist(2,YPPsym((P)"base"),YPPsym((P)"n")); T16 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_pow_31 = YPfab_met(FUNCODEREF(fun_pow_31),T16,LITREF(lit_66),LITREF(lit_151),sloc(185),YPfalse); T18 = VARREF_OR(YgooSmathYpow,YPfalse); T19 = fun_pow_31; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSmathYpow,T17); lit_152 = YPPlist(1,YPPsym((P)"n")); T20 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); fun_exp_32 = YPfab_met_inlineable(FUNCODEREF(fun_exp_32),T20,LITREF(lit_68),LITREF(lit_152),sloc(188),YPfalse); T22 = VARREF_OR(YgooSmathYexp,YPfalse); T23 = fun_exp_32; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSmathYexp,T21); lit_153 = YPPlist(1,YPPsym((P)"x")); T24 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_posQ_33 = YPfab_met_inlineable(FUNCODEREF(fun_posQ_33),T24,LITREF(lit_70),LITREF(lit_153),sloc(191),YPfalse); T26 = VARREF_OR(YgooSmathYposQ,YPfalse); T27 = fun_posQ_33; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooSmathYposQ,T25); lit_154 = YPPlist(1,YPPsym((P)"x")); T28 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_zeroQ_34 = YPfab_met_inlineable(FUNCODEREF(fun_zeroQ_34),T28,LITREF(lit_72),LITREF(lit_154),sloc(194),YPfalse); T30 = VARREF_OR(YgooSmathYzeroQ,YPfalse); T31 = fun_zeroQ_34; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooSmathYzeroQ,T29); lit_155 = YPPlist(1,YPPsym((P)"x")); T32 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_negQ_35 = YPfab_met_inlineable(FUNCODEREF(fun_negQ_35),T32,LITREF(lit_74),LITREF(lit_155),sloc(197),YPfalse); T34 = VARREF_OR(YgooSmathYnegQ,YPfalse); T35 = fun_negQ_35; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooSmathYnegQ,T33); lit_156 = YPPlist(1,YPPsym((P)"x")); T36 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); fun_neg_36 = YPfab_met_inlineable(FUNCODEREF(fun_neg_36),T36,LITREF(lit_76),LITREF(lit_156),sloc(200),YPfalse); T38 = VARREF_OR(YgooSmathYneg,YPfalse); T39 = fun_neg_36; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSmathYneg,T37); lit_157 = YPPlist(1,YPPsym((P)"x")); T40 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); fun_abs_37 = YPfab_met_inlineable(FUNCODEREF(fun_abs_37),T40,LITREF(lit_78),LITREF(lit_157),sloc(203),YPfalse); T42 = VARREF_OR(YgooSmathYabs,YPfalse); T43 = fun_abs_37; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooSmathYabs,T41); lit_158 = YPPsym((P)"to-str"); lit_159 = YPPlist(1,YPPsym((P)"x")); T44 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_38 = YPfab_met(FUNCODEREF(fun_to_str_38),T44,LITREF(lit_158),LITREF(lit_159),sloc(206),YPfalse); T46 = VARREF_OR(YgooSanyYto_str,YPfalse); T47 = fun_to_str_38; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooSanyYto_str,T45); lit_160 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T49 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLintG)); T48 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)2),T49,Ynil); fun_contagious_type_39 = YPfab_met(FUNCODEREF(fun_contagious_type_39),T48,LITREF(lit_0),LITREF(lit_160),sloc(211),YPfalse); T51 = VARREF_OR(YgooSmathYcontagious_type,YPfalse); T52 = fun_contagious_type_39; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YgooSmathYcontagious_type,T50); lit_161 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T54 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLfloG)); T53 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),T54,Ynil); fun_contagious_type_40 = YPfab_met(FUNCODEREF(fun_contagious_type_40),T53,LITREF(lit_0),LITREF(lit_161),sloc(214),YPfalse); T56 = VARREF_OR(YgooSmathYcontagious_type,YPfalse); T57 = fun_contagious_type_40; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSmathYcontagious_type,T55); lit_162 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T59 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLfloG)); T58 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLfloG)),YPfalse,YPint((P)2),T59,Ynil); fun_contagious_type_41 = YPfab_met(FUNCODEREF(fun_contagious_type_41),T58,LITREF(lit_0),LITREF(lit_162),sloc(217),YPfalse); T61 = VARREF_OR(YgooSmathYcontagious_type,YPfalse); T62 = fun_contagious_type_41; T60 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T61,T62); VARSET(YgooSmathYcontagious_type,T60); lit_163 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T64 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLfloG)); T63 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLintG)),YPfalse,YPint((P)2),T64,Ynil); fun_contagious_type_42 = YPfab_met(FUNCODEREF(fun_contagious_type_42),T63,LITREF(lit_0),LITREF(lit_163),sloc(220),YPfalse); T66 = VARREF_OR(YgooSmathYcontagious_type,YPfalse); T67 = fun_contagious_type_42; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooSmathYcontagious_type,T65); lit_164 = YPPsym((P)"=="); lit_165 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T68 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_EE_43 = YPfab_met_inlineable(FUNCODEREF(fun_EE_43),T68,LITREF(lit_164),LITREF(lit_165),sloc(223),YPfalse); T70 = VARREF_OR(YgooSmacrosYEE,YPfalse); T71 = fun_EE_43; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YgooSmacrosYEE,T69); lit_166 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T72 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_44 = YPfab_met_inlineable(FUNCODEREF(fun_L_44),T72,LITREF(lit_109),LITREF(lit_166),sloc(226),YPfalse); T74 = VARREF_OR(YgooSmagYL,YPfalse); T75 = fun_L_44; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooSmagYL,T73); lit_167 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T76 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_A_45 = YPfab_met_inlineable(FUNCODEREF(fun_A_45),T76,LITREF(lit_4),LITREF(lit_167),sloc(229),YPfalse); T78 = VARREF_OR(YgooSmathYA,YPfalse); T79 = fun_A_45; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YgooSmathYA,T77); lit_168 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T80 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun___46 = YPfab_met_inlineable(FUNCODEREF(fun___46),T80,LITREF(lit_6),LITREF(lit_168),sloc(232),YPfalse); T82 = VARREF_OR(YgooSmathY_,YPfalse); T83 = fun___46; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YgooSmathY_,T81); lit_169 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T84 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_T_47 = YPfab_met_inlineable(FUNCODEREF(fun_T_47),T84,LITREF(lit_8),LITREF(lit_169),sloc(235),YPfalse); T86 = VARREF_OR(YgooSmathYT,YPfalse); T87 = fun_T_47; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YgooSmathYT,T85); lit_170 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); lit_171 = YPsb((P)"No int divide, consider trunc/"); T88 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_S_48 = YPfab_met_inlineable(FUNCODEREF(fun_S_48),T88,LITREF(lit_10),LITREF(lit_170),sloc(238),YPfalse); T90 = VARREF_OR(YgooSmathYS,YPfalse); T91 = fun_S_48; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooSmathYS,T89); lit_172 = YPPlist(1,YPPsym((P)"x")); T92 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_floor_49 = YPfab_met_inlineable(FUNCODEREF(fun_floor_49),T92,LITREF(lit_38),LITREF(lit_172),sloc(241),YPfalse); T94 = VARREF_OR(YgooSmathYfloor,YPfalse); T95 = fun_floor_49; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YgooSmathYfloor,T93); lit_173 = YPPlist(1,YPPsym((P)"x")); T96 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_ceil_50 = YPfab_met_inlineable(FUNCODEREF(fun_ceil_50),T96,LITREF(lit_40),LITREF(lit_173),sloc(243),YPfalse); T98 = VARREF_OR(YgooSmathYceil,YPfalse); T99 = fun_ceil_50; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YgooSmathYceil,T97); lit_174 = YPPlist(1,YPPsym((P)"x")); T100 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_round_51 = YPfab_met_inlineable(FUNCODEREF(fun_round_51),T100,LITREF(lit_42),LITREF(lit_174),sloc(245),YPfalse); T102 = VARREF_OR(YgooSmathYround,YPfalse); T103 = fun_round_51; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooSmathYround,T101); lit_175 = YPPlist(1,YPPsym((P)"x")); T104 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_trunc_52 = YPfab_met_inlineable(FUNCODEREF(fun_trunc_52),T104,LITREF(lit_46),LITREF(lit_175),sloc(247),YPfalse); T106 = VARREF_OR(YgooSmathYtrunc,YPfalse); T107 = fun_trunc_52; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YgooSmathYtrunc,T105); lit_176 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T109 = XCALL2(1,VARREF(YtT),VARREF(YLfixnumG),VARREF(YLfixnumG)); T108 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),T109,Ynil); fun_truncS_53 = YPfab_met(FUNCODEREF(fun_truncS_53),T108,LITREF(lit_54),LITREF(lit_176),sloc(249),YPfalse); T111 = VARREF_OR(YgooSmathYtruncS,YPfalse); T112 = fun_truncS_53; T110 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T111,T112); VARSET(YgooSmathYtruncS,T110); lit_177 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T113 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_mod_54 = YPfab_met(FUNCODEREF(fun_mod_54),T113,LITREF(lit_58),LITREF(lit_177),sloc(253),YPfalse); T115 = VARREF_OR(YgooSmathYmod,YPfalse); T116 = fun_mod_54; T114 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T115,T116); VARSET(YgooSmathYmod,T114); lit_178 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"n")); T117 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_pow_55 = YPfab_met(FUNCODEREF(fun_pow_55),T117,LITREF(lit_66),LITREF(lit_178),sloc(261),YPfalse); T119 = VARREF_OR(YgooSmathYpow,YPfalse); T120 = fun_pow_55; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); VARSET(YgooSmathYpow,T118); lit_179 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T121 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_K_56 = YPfab_met_inlineable(FUNCODEREF(fun_K_56),T121,LITREF(lit_80),LITREF(lit_179),sloc(276),YPfalse); T123 = VARREF_OR(YgooSmathYK,YPfalse); T124 = fun_K_56; T122 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T123,T124); VARSET(YgooSmathYK,T122); lit_180 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T125 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_C_57 = YPfab_met_inlineable(FUNCODEREF(fun_C_57),T125,LITREF(lit_82),LITREF(lit_180),sloc(279),YPfalse); T127 = VARREF_OR(YgooSmathYC,YPfalse); T128 = fun_C_57; T126 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T127,T128); VARSET(YgooSmathYC,T126); lit_181 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T129 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_B_58 = YPfab_met_inlineable(FUNCODEREF(fun_B_58),T129,LITREF(lit_84),LITREF(lit_181),sloc(282),YPfalse); T131 = VARREF_OR(YgooSmathYB,YPfalse); T132 = fun_B_58; T130 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T131,T132); VARSET(YgooSmathYB,T130); lit_182 = YPPlist(1,YPPsym((P)"x")); T133 = YPfab_sig(YPPlist(1,VARREF(YLfixnumG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_N_59 = YPfab_met_inlineable(FUNCODEREF(fun_N_59),T133,LITREF(lit_86),LITREF(lit_182),sloc(285),YPfalse); T135 = VARREF_OR(YgooSmathYN,YPfalse); T136 = fun_N_59; T134 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T135,T136); VARSET(YgooSmathYN,T134); lit_183 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"x")); T137 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_bitQ_60 = YPfab_met_inlineable(FUNCODEREF(fun_bitQ_60),T137,LITREF(lit_88),LITREF(lit_183),sloc(288),YPfalse); T139 = VARREF_OR(YgooSmathYbitQ,YPfalse); T140 = fun_bitQ_60; T138 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T139,T140); VARSET(YgooSmathYbitQ,T138); lit_184 = YPPlist(1,YPPsym((P)"x")); T141 = YPfab_sig(YPPlist(1,VARREF(YLfixnumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_evenQ_61 = YPfab_met_inlineable(FUNCODEREF(fun_evenQ_61),T141,LITREF(lit_92),LITREF(lit_184),sloc(291),YPfalse); T143 = VARREF_OR(YgooSmathYevenQ,YPfalse); T144 = fun_evenQ_61; T142 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T143,T144); VARSET(YgooSmathYevenQ,T142); lit_185 = YPPlist(1,YPPsym((P)"x")); T145 = YPfab_sig(YPPlist(1,VARREF(YLfixnumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_oddQ_62 = YPfab_met_inlineable(FUNCODEREF(fun_oddQ_62),T145,LITREF(lit_94),LITREF(lit_185),sloc(294),YPfalse); T147 = VARREF_OR(YgooSmathYoddQ,YPfalse); T148 = fun_oddQ_62; T146 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T147,T148); VARSET(YgooSmathYoddQ,T146); lit_186 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"a")); T149 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_GG_63 = YPfab_met_inlineable(FUNCODEREF(fun_GG_63),T149,LITREF(lit_90),LITREF(lit_186),sloc(297),YPfalse); T151 = VARREF_OR(YgooSmathYGG,YPfalse); T152 = fun_GG_63; T150 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T151,T152); VARSET(YgooSmathYGG,T150); lit_187 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"a")); T153 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfixnumG),Ynil); fun_GGG_64 = YPfab_met_inlineable(FUNCODEREF(fun_GGG_64),T153,LITREF(lit_96),LITREF(lit_187),sloc(300),YPfalse); T155 = VARREF_OR(YgooSmathYGGG,YPfalse); T156 = fun_GGG_64; T154 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T155,T156); VARSET(YgooSmathYGGG,T154); lit_188 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"a")); T157 = YPfab_sig(YPPlist(2,VARREF(YLfixnumG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_LL_65 = YPfab_met_inlineable(FUNCODEREF(fun_LL_65),T157,LITREF(lit_98),LITREF(lit_188),sloc(303),YPfalse); T159 = VARREF_OR(YgooSmathYLL,YPfalse); T160 = fun_LL_65; T158 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T159,T160); VARSET(YgooSmathYLL,T158); lit_189 = YPPlist(1,YPPsym((P)"x")); T161 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_power_of_two_ceil_66 = YPfab_met(FUNCODEREF(fun_power_of_two_ceil_66),T161,LITREF(lit_102),LITREF(lit_189),sloc(306),YPfalse); T163 = VARREF_OR(YgooSmathYpower_of_two_ceil,YPfalse); T164 = fun_power_of_two_ceil_66; T162 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T163,T164); VARSET(YgooSmathYpower_of_two_ceil,T162); T165 = YPfalse; return T165; } P YgooSmathY___main_4___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120; DEFCREGS(); lit_190 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); YgooSmathYflo_bits = YPfab_met(FUNCODEREF(YgooSmathYflo_bits),T0,LITREF(lit_104),LITREF(lit_190),sloc(340),YPfalse); T1 = YgooSmathYflo_bits; VARSET(YgooSmathYflo_bits,T1); lit_191 = YPPsym((P)"as"); lit_192 = YPPlist(2,YPPsym((P)"_"),YPPsym((P)"x")); T3 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLfloG)); T2 = YPfab_sig(YPPlist(2,T3,VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_as_68 = YPfab_met(FUNCODEREF(fun_as_68),T2,LITREF(lit_191),LITREF(lit_192),sloc(343),YPfalse); T5 = VARREF_OR(YgooStypesYas,YPfalse); T6 = fun_as_68; T4 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T5,T6); VARSET(YgooStypesYas,T4); lit_193 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T7 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_EE_69 = YPfab_met_inlineable(FUNCODEREF(fun_EE_69),T7,LITREF(lit_164),LITREF(lit_193),sloc(346),YPfalse); T9 = VARREF_OR(YgooSmacrosYEE,YPfalse); T10 = fun_EE_69; T8 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T9,T10); VARSET(YgooSmacrosYEE,T8); lit_194 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T11 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_70 = YPfab_met_inlineable(FUNCODEREF(fun_L_70),T11,LITREF(lit_109),LITREF(lit_194),sloc(349),YPfalse); T13 = VARREF_OR(YgooSmagYL,YPfalse); T14 = fun_L_70; T12 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T13,T14); VARSET(YgooSmagYL,T12); lit_195 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T15 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_A_71 = YPfab_met_inlineable(FUNCODEREF(fun_A_71),T15,LITREF(lit_4),LITREF(lit_195),sloc(352),YPfalse); T17 = VARREF_OR(YgooSmathYA,YPfalse); T18 = fun_A_71; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YgooSmathYA,T16); lit_196 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T19 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun___72 = YPfab_met_inlineable(FUNCODEREF(fun___72),T19,LITREF(lit_6),LITREF(lit_196),sloc(355),YPfalse); T21 = VARREF_OR(YgooSmathY_,YPfalse); T22 = fun___72; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YgooSmathY_,T20); lit_197 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T23 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_T_73 = YPfab_met_inlineable(FUNCODEREF(fun_T_73),T23,LITREF(lit_8),LITREF(lit_197),sloc(358),YPfalse); T25 = VARREF_OR(YgooSmathYT,YPfalse); T26 = fun_T_73; T24 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T25,T26); VARSET(YgooSmathYT,T24); lit_198 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T27 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_S_74 = YPfab_met_inlineable(FUNCODEREF(fun_S_74),T27,LITREF(lit_10),LITREF(lit_198),sloc(361),YPfalse); T29 = VARREF_OR(YgooSmathYS,YPfalse); T30 = fun_S_74; T28 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T29,T30); VARSET(YgooSmathYS,T28); lit_199 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T32 = XCALL2(1,VARREF(YtT),VARREF(YLfixnumG),VARREF(YLfloG)); T31 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),T32,Ynil); fun_truncS_75 = YPfab_met(FUNCODEREF(fun_truncS_75),T31,LITREF(lit_54),LITREF(lit_199),sloc(364),YPfalse); T34 = VARREF_OR(YgooSmathYtruncS,YPfalse); T35 = fun_truncS_75; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooSmathYtruncS,T33); lit_200 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"n")); T36 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_pow_76 = YPfab_met(FUNCODEREF(fun_pow_76),T36,LITREF(lit_66),LITREF(lit_200),sloc(369),YPfalse); T38 = VARREF_OR(YgooSmathYpow,YPfalse); T39 = fun_pow_76; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSmathYpow,T37); lit_201 = YPflo(FLOINT(3.1415928)); VARSET(YgooSmathYDpi,LITREF(lit_201)); lit_202 = YPflo(FLOINT(2.7182816)); VARSET(YgooSmathYDe,LITREF(lit_202)); lit_203 = YPPlist(1,YPPsym((P)"x")); T40 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_isqrt_77 = YPfab_met(FUNCODEREF(fun_isqrt_77),T40,LITREF(lit_100),LITREF(lit_203),sloc(376),YPfalse); T42 = VARREF_OR(YgooSmathYisqrt,YPfalse); T43 = fun_isqrt_77; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooSmathYisqrt,T41); lit_204 = YPPlist(1,YPPsym((P)"exp")); lit_205 = YPPlist(1,YPPsym((P)"return")); lit_206 = YPPsym((P)"x-1352"); lit_207 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_208 = YPPsym((P)"def-unary-trans"); lit_209 = YPsb((P)"%f"); lit_210 = YPPsym((P)"seq"); lit_211 = YPPsym((P)"dg"); lit_212 = YPPsym((P)""); lit_213 = YPPsym((P)"=>"); lit_214 = YPPsym((P)"dm"); lit_215 = YPPsym((P)""); lit_216 = YPPsym((P)""); lit_217 = YPPsym((P)"%fb"); lit_218 = YPPsym((P)"%fu"); T46 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1352_78 = YPfab_met(FUNCODEREF(fun_x_1352_78),T46,LITREF(lit_206),LITREF(lit_207),YPfalse,YPfalse); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_79 = YPfab_met(FUNCODEREF(fun_79),T45,YPfalse,LITREF(lit_205),YPfalse,YPfalse); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_80 = YPfab_met(FUNCODEREF(fun_80),T44,YPfalse,LITREF(lit_204),YPfalse,YPfalse); T47 = fun_80; YPmacro(YPPsym((P)"goo/math"),YPPsym((P)"def-unary-trans"),T47); lit_219 = YPPlist(1,YPPsym((P)"x")); T49 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T48 = YPfab_gen(T49,LITREF(lit_32),LITREF(lit_219),YPfalse); VARSET(YgooSmathYsqrt,T48); lit_220 = YPPlist(1,YPPsym((P)"x")); lit_221 = YPsb((P)"SQRT would produce complex number"); T50 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_sqrt_81 = YPfab_met(FUNCODEREF(fun_sqrt_81),T50,LITREF(lit_32),LITREF(lit_220),sloc(389),YPfalse); T52 = VARREF_OR(YgooSmathYsqrt,YPfalse); T53 = fun_sqrt_81; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSmathYsqrt,T51); lit_222 = YPPlist(1,YPPsym((P)"x")); T54 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_sqrt_82 = YPfab_met(FUNCODEREF(fun_sqrt_82),T54,LITREF(lit_32),LITREF(lit_222),sloc(389),YPfalse); T56 = VARREF_OR(YgooSmathYsqrt,YPfalse); T57 = fun_sqrt_82; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSmathYsqrt,T55); lit_223 = YPPlist(1,YPPsym((P)"x")); T59 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T58 = YPfab_gen(T59,LITREF(lit_34),LITREF(lit_223),YPfalse); VARSET(YgooSmathYlog,T58); lit_224 = YPPlist(1,YPPsym((P)"x")); T60 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_log_83 = YPfab_met(FUNCODEREF(fun_log_83),T60,LITREF(lit_34),LITREF(lit_224),sloc(392),YPfalse); T62 = VARREF_OR(YgooSmathYlog,YPfalse); T63 = fun_log_83; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooSmathYlog,T61); lit_225 = YPPlist(1,YPPsym((P)"x")); T64 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_log_84 = YPfab_met(FUNCODEREF(fun_log_84),T64,LITREF(lit_34),LITREF(lit_225),sloc(392),YPfalse); T66 = VARREF_OR(YgooSmathYlog,YPfalse); T67 = fun_log_84; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooSmathYlog,T65); lit_226 = YPPlist(1,YPPsym((P)"x")); T69 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T68 = YPfab_gen(T69,LITREF(lit_12),LITREF(lit_226),YPfalse); VARSET(YgooSmathYsin,T68); lit_227 = YPPlist(1,YPPsym((P)"x")); T70 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_sin_85 = YPfab_met(FUNCODEREF(fun_sin_85),T70,LITREF(lit_12),LITREF(lit_227),sloc(393),YPfalse); T72 = VARREF_OR(YgooSmathYsin,YPfalse); T73 = fun_sin_85; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooSmathYsin,T71); lit_228 = YPPlist(1,YPPsym((P)"x")); T74 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_sin_86 = YPfab_met(FUNCODEREF(fun_sin_86),T74,LITREF(lit_12),LITREF(lit_228),sloc(393),YPfalse); T76 = VARREF_OR(YgooSmathYsin,YPfalse); T77 = fun_sin_86; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooSmathYsin,T75); lit_229 = YPPlist(1,YPPsym((P)"x")); T79 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T78 = YPfab_gen(T79,LITREF(lit_14),LITREF(lit_229),YPfalse); VARSET(YgooSmathYcos,T78); lit_230 = YPPlist(1,YPPsym((P)"x")); T80 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_cos_87 = YPfab_met(FUNCODEREF(fun_cos_87),T80,LITREF(lit_14),LITREF(lit_230),sloc(394),YPfalse); T82 = VARREF_OR(YgooSmathYcos,YPfalse); T83 = fun_cos_87; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YgooSmathYcos,T81); lit_231 = YPPlist(1,YPPsym((P)"x")); T84 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_cos_88 = YPfab_met(FUNCODEREF(fun_cos_88),T84,LITREF(lit_14),LITREF(lit_231),sloc(394),YPfalse); T86 = VARREF_OR(YgooSmathYcos,YPfalse); T87 = fun_cos_88; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YgooSmathYcos,T85); lit_232 = YPPlist(1,YPPsym((P)"x")); T89 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T88 = YPfab_gen(T89,LITREF(lit_16),LITREF(lit_232),YPfalse); VARSET(YgooSmathYtan,T88); lit_233 = YPPlist(1,YPPsym((P)"x")); T90 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_tan_89 = YPfab_met(FUNCODEREF(fun_tan_89),T90,LITREF(lit_16),LITREF(lit_233),sloc(395),YPfalse); T92 = VARREF_OR(YgooSmathYtan,YPfalse); T93 = fun_tan_89; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YgooSmathYtan,T91); lit_234 = YPPlist(1,YPPsym((P)"x")); T94 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_tan_90 = YPfab_met(FUNCODEREF(fun_tan_90),T94,LITREF(lit_16),LITREF(lit_234),sloc(395),YPfalse); T96 = VARREF_OR(YgooSmathYtan,YPfalse); T97 = fun_tan_90; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YgooSmathYtan,T95); lit_235 = YPPlist(1,YPPsym((P)"x")); T99 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T98 = YPfab_gen(T99,LITREF(lit_18),LITREF(lit_235),YPfalse); VARSET(YgooSmathYsinh,T98); lit_236 = YPPlist(1,YPPsym((P)"x")); T100 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_sinh_91 = YPfab_met(FUNCODEREF(fun_sinh_91),T100,LITREF(lit_18),LITREF(lit_236),sloc(396),YPfalse); T102 = VARREF_OR(YgooSmathYsinh,YPfalse); T103 = fun_sinh_91; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooSmathYsinh,T101); lit_237 = YPPlist(1,YPPsym((P)"x")); T104 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_sinh_92 = YPfab_met(FUNCODEREF(fun_sinh_92),T104,LITREF(lit_18),LITREF(lit_237),sloc(396),YPfalse); T106 = VARREF_OR(YgooSmathYsinh,YPfalse); T107 = fun_sinh_92; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YgooSmathYsinh,T105); lit_238 = YPPlist(1,YPPsym((P)"x")); T109 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T108 = YPfab_gen(T109,LITREF(lit_20),LITREF(lit_238),YPfalse); VARSET(YgooSmathYcosh,T108); lit_239 = YPPlist(1,YPPsym((P)"x")); T110 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_cosh_93 = YPfab_met(FUNCODEREF(fun_cosh_93),T110,LITREF(lit_20),LITREF(lit_239),sloc(397),YPfalse); T112 = VARREF_OR(YgooSmathYcosh,YPfalse); T113 = fun_cosh_93; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YgooSmathYcosh,T111); lit_240 = YPPlist(1,YPPsym((P)"x")); T116 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); T115 = fun_cosh_94 = YPfab_met(FUNCODEREF(fun_cosh_94),T116,LITREF(lit_20),LITREF(lit_240),sloc(397),YPfalse); T119 = VARREF_OR(YgooSmathYcosh,YPfalse); T120 = fun_cosh_94; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); T117 = VARSET(YgooSmathYcosh,T118); T114 = T117; return T114; } P YgooSmathY___main_5___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54; DEFCREGS(); lit_241 = YPPlist(1,YPPsym((P)"x")); T1 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_22),LITREF(lit_241),YPfalse); VARSET(YgooSmathYtanh,T0); lit_242 = YPPlist(1,YPPsym((P)"x")); T2 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_tanh_95 = YPfab_met(FUNCODEREF(fun_tanh_95),T2,LITREF(lit_22),LITREF(lit_242),sloc(398),YPfalse); T4 = VARREF_OR(YgooSmathYtanh,YPfalse); T5 = fun_tanh_95; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooSmathYtanh,T3); lit_243 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_tanh_96 = YPfab_met(FUNCODEREF(fun_tanh_96),T6,LITREF(lit_22),LITREF(lit_243),sloc(398),YPfalse); T8 = VARREF_OR(YgooSmathYtanh,YPfalse); T9 = fun_tanh_96; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSmathYtanh,T7); lit_244 = YPPlist(1,YPPsym((P)"x")); T11 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_24),LITREF(lit_244),YPfalse); VARSET(YgooSmathYasin,T10); lit_245 = YPPlist(1,YPPsym((P)"x")); lit_246 = YPsb((P)"SQRT would produce complex number"); T12 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_asin_97 = YPfab_met(FUNCODEREF(fun_asin_97),T12,LITREF(lit_24),LITREF(lit_245),sloc(399),YPfalse); T14 = VARREF_OR(YgooSmathYasin,YPfalse); T15 = fun_asin_97; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSmathYasin,T13); lit_247 = YPPlist(1,YPPsym((P)"x")); T16 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_asin_98 = YPfab_met(FUNCODEREF(fun_asin_98),T16,LITREF(lit_24),LITREF(lit_247),sloc(399),YPfalse); T18 = VARREF_OR(YgooSmathYasin,YPfalse); T19 = fun_asin_98; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSmathYasin,T17); lit_248 = YPPlist(1,YPPsym((P)"x")); T21 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T20 = YPfab_gen(T21,LITREF(lit_26),LITREF(lit_248),YPfalse); VARSET(YgooSmathYacos,T20); lit_249 = YPPlist(1,YPPsym((P)"x")); lit_250 = YPsb((P)"SQRT would produce complex number"); T22 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_acos_99 = YPfab_met(FUNCODEREF(fun_acos_99),T22,LITREF(lit_26),LITREF(lit_249),sloc(401),YPfalse); T24 = VARREF_OR(YgooSmathYacos,YPfalse); T25 = fun_acos_99; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSmathYacos,T23); lit_251 = YPPlist(1,YPPsym((P)"x")); T26 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_acos_100 = YPfab_met(FUNCODEREF(fun_acos_100),T26,LITREF(lit_26),LITREF(lit_251),sloc(401),YPfalse); T28 = VARREF_OR(YgooSmathYacos,YPfalse); T29 = fun_acos_100; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSmathYacos,T27); lit_252 = YPPlist(1,YPPsym((P)"x")); T31 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); T30 = YPfab_gen(T31,LITREF(lit_28),LITREF(lit_252),YPfalse); VARSET(YgooSmathYatan,T30); lit_253 = YPPlist(1,YPPsym((P)"x")); T32 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_atan_101 = YPfab_met(FUNCODEREF(fun_atan_101),T32,LITREF(lit_28),LITREF(lit_253),sloc(403),YPfalse); T34 = VARREF_OR(YgooSmathYatan,YPfalse); T35 = fun_atan_101; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooSmathYatan,T33); lit_254 = YPPlist(1,YPPsym((P)"x")); T36 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_atan_102 = YPfab_met(FUNCODEREF(fun_atan_102),T36,LITREF(lit_28),LITREF(lit_254),sloc(403),YPfalse); T38 = VARREF_OR(YgooSmathYatan,YPfalse); T39 = fun_atan_102; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSmathYatan,T37); lit_255 = YPPlist(2,YPPsym((P)"y"),YPPsym((P)"x")); T41 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); T40 = YPfab_gen(T41,LITREF(lit_30),LITREF(lit_255),YPfalse); VARSET(YgooSmathYatan2,T40); lit_256 = YPPlist(2,YPPsym((P)"y"),YPPsym((P)"x")); T42 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_atan2_103 = YPfab_met(FUNCODEREF(fun_atan2_103),T42,LITREF(lit_30),LITREF(lit_256),sloc(406),YPfalse); T44 = VARREF_OR(YgooSmathYatan2,YPfalse); T45 = fun_atan2_103; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSmathYatan2,T43); lit_257 = YPPlist(2,YPPsym((P)"y"),YPPsym((P)"x")); T46 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLfloG)),YPfalse,YPint((P)2),VARREF(YLfloG),Ynil); fun_atan2_104 = YPfab_met(FUNCODEREF(fun_atan2_104),T46,LITREF(lit_30),LITREF(lit_257),sloc(408),YPfalse); T48 = VARREF_OR(YgooSmathYatan2,YPfalse); T49 = fun_atan2_104; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSmathYatan2,T47); lit_258 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"b")); T50 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLnumG),Ynil); fun_logn_105 = YPfab_met(FUNCODEREF(fun_logn_105),T50,LITREF(lit_36),LITREF(lit_258),sloc(411),YPfalse); T52 = VARREF_OR(YgooSmathYlogn,YPfalse); T53 = fun_logn_105; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSmathYlogn,T51); if (YPfalse != YPfalse) { } else { } T54 = YPfalse; return T54; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmag}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"round", CVAR, &YgooSmathYround}, {"%ft", PVAR, NULL}, {"-", CVAR, &YgooSmathY_}, {"~", CVAR, &YgooSmathYN}, {"num-to-str", CVAR, &YgooSmathYnum_to_str}, {"%facos", PVAR, NULL}, {"%fpow", PVAR, NULL}, {"/", CVAR, &YgooSmathYS}, {"ceil", CVAR, &YgooSmathYceil}, {"mod+", CVAR, &YgooSmathYmodA}, {"%flo-bits", PVAR, NULL}, {"%ftan", PVAR, NULL}, {"floor", CVAR, &YgooSmathYfloor}, {"$e", CVAR, &YgooSmathYDe}, {"*", CVAR, &YgooSmathYT}, {"mod", CVAR, &YgooSmathYmod}, {"%ff", PVAR, NULL}, {"asin", CVAR, &YgooSmathYasin}, {"^", CVAR, &YgooSmathYC}, {"log", CVAR, &YgooSmathYlog}, {"---main-2---", PVAR, NULL}, {"div", CVAR, &YgooSmathYdiv}, {"%ftanh", PVAR, NULL}, {"sqrt", CVAR, &YgooSmathYsqrt}, {"exp", CVAR, &YgooSmathYexp}, {"flo-bits", CVAR, &YgooSmathYflo_bits}, {"abs", CVAR, &YgooSmathYabs}, {"trunc/", CVAR, &YgooSmathYtruncS}, {"atan2", CVAR, &YgooSmathYatan2}, {"%fsin", PVAR, NULL}, {"contagious-call", CVAR, &YgooSmathYcontagious_call}, {"power-of-two-ceil", CVAR, &YgooSmathYpower_of_two_ceil}, {"1+", CVAR, &YgooSmathY1A}, {"neg", CVAR, &YgooSmathYneg}, {"%f/", PVAR, NULL}, {"atan", CVAR, &YgooSmathYatan}, {"isqrt", CVAR, &YgooSmathYisqrt}, {"%fsinh", PVAR, NULL}, {"neg?", CVAR, &YgooSmathYnegQ}, {"round/", CVAR, &YgooSmathYroundS}, {"---main-3---", PVAR, NULL}, {"contagious-type", CVAR, &YgooSmathYcontagious_type}, {"acos", CVAR, &YgooSmathYacos}, {"moddecf", PVAR, NULL}, {"%fatan2", PVAR, NULL}, {"zero?", CVAR, &YgooSmathYzeroQ}, {"%f<", PVAR, NULL}, {"%fc", PVAR, NULL}, {"%f-", PVAR, NULL}, {"ceil/", CVAR, &YgooSmathYceilS}, {"%fcosh", PVAR, NULL}, {"pos?", CVAR, &YgooSmathYposQ}, {"%f=", PVAR, NULL}, {"tanh", CVAR, &YgooSmathYtanh}, {"---main-1---", PVAR, NULL}, {"%fsqrt", PVAR, NULL}, {">>>", CVAR, &YgooSmathYGGG}, {"bit?", CVAR, &YgooSmathYbitQ}, {"+", CVAR, &YgooSmathYA}, {"cosh", CVAR, &YgooSmathYcosh}, {"%flog", PVAR, NULL}, {"odd?", CVAR, &YgooSmathYoddQ}, {"pow", CVAR, &YgooSmathYpow}, {"modincf", PVAR, NULL}, {"---main-4---", PVAR, NULL}, {"sinh", CVAR, &YgooSmathYsinh}, {"even?", CVAR, &YgooSmathYevenQ}, {"%fi2f", PVAR, NULL}, {"floor/", CVAR, &YgooSmathYfloorS}, {"---main-0---", PVAR, NULL}, {"%fcos", PVAR, NULL}, {"def-unary-trans", PVAR, NULL}, {"$pi", CVAR, &YgooSmathYDpi}, {"%fatan", PVAR, NULL}, {"%f+", PVAR, NULL}, {"tan", CVAR, &YgooSmathYtan}, {"%fasin", PVAR, NULL}, {"rem", CVAR, &YgooSmathYrem}, {"1-", CVAR, &YgooSmathY1_}, {"trunc", CVAR, &YgooSmathYtrunc}, {"%ft/", PVAR, NULL}, {"logn", CVAR, &YgooSmathYlogn}, {"round-to", CVAR, &YgooSmathYround_to}, {"|", CVAR, &YgooSmathYK}, {"&", CVAR, &YgooSmathYB}, {"<<", CVAR, &YgooSmathYLL}, {">>", CVAR, &YgooSmathYGG}, {"---main-5---", PVAR, NULL}, {"cos", CVAR, &YgooSmathYcos}, {"%f*", PVAR, NULL}, {"sin", CVAR, &YgooSmathYsin}, {"mod-", CVAR, &YgooSmathYmod_}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"round", NULL}, {"~", NULL}, {"num-to-str", NULL}, {"/", NULL}, {"ceil", NULL}, {"mod+", NULL}, {"&", NULL}, {"floor", NULL}, {"$e", NULL}, {"*", NULL}, {"1-", NULL}, {"mod", NULL}, {"^", NULL}, {"logn", NULL}, {"log", NULL}, {"div", NULL}, {"sqrt", NULL}, {"exp", NULL}, {"-", NULL}, {"flo-bits", NULL}, {"abs", NULL}, {"trunc/", NULL}, {"atan2", NULL}, {"contagious-call", NULL}, {"power-of-two-ceil", NULL}, {"1+", NULL}, {"neg", NULL}, {"atan", NULL}, {"isqrt", NULL}, {"neg?", NULL}, {"round/", NULL}, {"contagious-type", NULL}, {"acos", NULL}, {"moddecf", NULL}, {"<<", NULL}, {"zero?", NULL}, {"asin", NULL}, {"ceil/", NULL}, {"pos?", NULL}, {"tanh", NULL}, {">>>", NULL}, {"+", NULL}, {"cosh", NULL}, {"odd?", NULL}, {"pow", NULL}, {"modincf", NULL}, {"sinh", NULL}, {"even?", NULL}, {"floor/", NULL}, {"$pi", NULL}, {"tan", NULL}, {"rem", NULL}, {"trunc", NULL}, {"|", NULL}, {">>", NULL}, {"cos", NULL}, {"round-to", NULL}, {"sin", NULL}, {"bit?", NULL}, {"mod-", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSmath; MODULE_INFO module_info_gooSmath = { "goo/math", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmag (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); /* EXPRESSION: */ extern void load_module_gooSmath (void); void load_module_gooSmath (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmag(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); (P)YgooSmathY___main_0___(); (P)YgooSmathY___main_1___(); (P)YgooSmathY___main_2___(); (P)YgooSmathY___main_3___(); (P)YgooSmathY___main_4___(); (P)YgooSmathY___main_5___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/packer.c0100644000175000017500000030126107756744553015034 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/packer"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/packer */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); DEF(YgooSpackerYpacker_value,"goo/packer","packer-value"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); DEF(YgooSpackerYpacker,"goo/packer","packer"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); DEF(YgooSpackerYpacker_reser,"goo/packer","packer-reser"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); DEF(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); DEF(YgooSpackerYpacker_adder,"goo/packer","packer-adder"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); DEF(YgooSpackerYLsim_packerG,"goo/packer",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); DEF(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); DEF(YgooSpackerYpacker_value_setter,"goo/packer","packer-value-setter"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); DEF(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_46); DEFLIT(lit_79); DEFLIT(lit_42); DEFLIT(lit_55); DEFLIT(lit_3); DEFLIT(lit_68); DEFLIT(lit_9); DEFLIT(lit_80); DEFLIT(lit_47); DEFLIT(lit_36); DEFLIT(lit_64); DEFLIT(lit_13); DEFLIT(lit_48); DEFLIT(lit_16); DEFLIT(lit_20); DEFLIT(lit_67); DEFLIT(lit_49); DEFLIT(lit_18); DEFLIT(lit_37); DEFLIT(lit_45); DEFLIT(lit_11); DEFLIT(lit_6); DEFLIT(lit_25); DEFLIT(lit_63); DEFLIT(lit_57); DEFLIT(lit_54); DEFLIT(lit_72); DEFLIT(lit_78); DEFLIT(lit_14); DEFLIT(lit_5); DEFLIT(lit_60); DEFLIT(lit_81); DEFLIT(lit_7); DEFLIT(lit_41); DEFLIT(lit_15); DEFLIT(lit_74); DEFLIT(lit_62); DEFLIT(lit_76); DEFLIT(lit_26); DEFLIT(lit_38); DEFLIT(lit_61); DEFLIT(lit_50); DEFLIT(lit_40); DEFLIT(lit_65); DEFLIT(lit_34); DEFLIT(lit_4); DEFLIT(lit_83); DEFLIT(lit_58); DEFLIT(lit_71); DEFLIT(lit_28); DEFLIT(lit_21); DEFLIT(lit_39); DEFLIT(lit_43); DEFLIT(lit_75); DEFLIT(lit_8); DEFLIT(lit_52); DEFLIT(lit_0); DEFLIT(lit_56); DEFLIT(lit_2); DEFLIT(lit_70); DEFLIT(lit_32); DEFLIT(lit_22); DEFLIT(lit_29); DEFLIT(lit_23); DEFLIT(lit_53); DEFLIT(lit_69); DEFLIT(lit_85); DEFLIT(lit_82); DEFLIT(lit_66); DEFLIT(lit_10); DEFLIT(lit_12); DEFLIT(lit_84); DEFLIT(lit_30); DEFLIT(lit_73); DEFLIT(lit_19); DEFLIT(lit_44); DEFLIT(lit_27); DEFLIT(lit_24); DEFLIT(lit_59); DEFLIT(lit_17); DEFLIT(lit_1); DEFLIT(lit_31); DEFLIT(lit_51); DEFLIT(lit_33); DEFLIT(lit_35); DEFLIT(lit_77); /* FUNCTIONS: */ LOCFOR(fun_packer_value_0); LOCFOR(fun_packer_value_setter_1); LOCFOR(fun_packer_adder_2); LOCFOR(fun_packer_reser_3); LOCFOR(fun_4); LOCFOR(fun_5); LOCFOR(fun_packer_6); LOCFOR(fun_packer_add_7); LOCFOR(fun_packer_res_8); LOCFOR(fun_9); LOCFOR(fun_packer_fab_10); LOCFOR(fun_11); LOCFOR(fun_packer_fab_12); LOCFOR(fun_x_1376_13); LOCFOR(fun_x_1382_14); LOCFOR(fun_15); LOCFOR(fun_x_1379_16); LOCFOR(fun_17); LOCFOR(fun_18); LOCFOR(fun_19); LOCFOR(fun_x_1395_20); LOCFOR(fun_x_1404_21); LOCFOR(fun_22); LOCFOR(fun_x_1401_23); LOCFOR(fun_24); LOCFOR(fun_x_1398_25); LOCFOR(fun_26); LOCFOR(fun_27); LOCFOR(fun_28); LOCFOR(fun_x_1408_29); LOCFOR(fun_30); LOCFOR(fun_31); LOCFOR(fun_x_1412_32); LOCFOR(fun_33); LOCFOR(fun_34); LOCFOR(fun_x_1416_35); LOCFOR(fun_36); LOCFOR(fun_37); LOCFOR(fun_x_1420_38); LOCFOR(fun_39); LOCFOR(fun_40); LOCFOR(fun_x_1424_41); LOCFOR(fun_42); LOCFOR(fun_43); extern P YgooSpackerY___main_0___ (); extern P YgooSpackerY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_packer_value_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSpackerYpacker_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_packer_value_setter_1) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSpackerYpacker_value)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_packer_adder_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSpackerYpacker_adder)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_packer_reser_3) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSpackerYpacker_reser)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_4) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = fun_4; UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_packer_6) { P init_,add_,res_; P T0; LINK_STACK(); ARG(init_, 0); ARG(add_, 1); ARG(res_, 2); T0 = CALLN(1,VARREF(Ynew),7,VARREF(YgooSpackerYLsim_packerG),VARREF(YgooSpackerYpacker_value),init_,VARREF(YgooSpackerYpacker_adder),add_,VARREF(YgooSpackerYpacker_reser),res_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_packer_add_7) { P a_,x_; P x_1366F3322; P T0,T1,T2; LINK_STACK(); ARG(a_, 0); ARG(x_, 1); x_1366F3322 = a_; T2 = CALL1(1,VARREF(YgooSpackerYpacker_adder),a_); T1 = CALL1(1,VARREF(YgooSpackerYpacker_value),a_); T0 = CALL2(1,T2,x_,T1); CALL2(1,VARREF(YgooSpackerYpacker_value_setter),T0,x_1366F3322); UNLINK_STACK(); RET(x_1366F3322); } LOCCODEDEF(fun_packer_res_8) { P a_; P T0,T1,T2; LINK_STACK(); ARG(a_, 0); T2 = CALL1(1,VARREF(YgooSpackerYpacker_reser),a_); T1 = CALL1(1,VARREF(YgooSpackerYpacker_value),a_); T0 = CALL1(1,T2,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmacrosYrevX),x_); T0 = CALL2(1,VARREF(YgooStypesYas),FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_packer_fab_10) { P t_; P T0,T1; LINK_STACK(); ARG(t_, 0); T1 = FUNFAB(fun_9,1,t_); T0 = CALL3(1,VARREF(YgooSpackerYpacker),Ynil,VARREF(YgooSmacrosYpair),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_11) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } LOCCODEDEF(fun_packer_fab_12) { P t_; P T0,T1; LINK_STACK(); ARG(t_, 0); T1 = fun_11; T0 = CALL3(1,VARREF(YgooSpackerYpacker),YPint((P)0),VARREF(YgooSmathYA),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_x_1376_13) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_31),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1382_14) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL1(1,VARREF(Ysyntax_error),LITREF(lit_39)); T0 = CALL1(1,FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_15) { P return_; P x_1381F3336; P x_1381F3335; P x_1381F3334; P x_1381F3333; P x_1381F3332; P x_1381F3331; P x_1381F3330; P x_1381F3329; P x_1381F3328; P restF3327; P packF3326; P varF3325; P x_1381F3324; P x_1382F3323; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36; LINK_STACK(); ARG(return_, 0); T36 = FUNSHELL(0,fun_x_1382_14,1); x_1382F3323 = T36; FUNINIT(x_1382F3323, 1,return_); x_1381F3324 = FREEREF(0); varF3325 = YPfalse; packF3326 = YPfalse; restF3327 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1381F3324,VARREF(YLlstG)); if (T3 != YPfalse) { T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1381F3324,x_1382F3323); x_1381F3328 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1381F3328,x_1382F3323); varF3325 = T14; T15 = CALL1(1,VARREF(Ytail),x_1381F3328); x_1381F3329 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1381F3329,x_1382F3323); packF3326 = T12; T13 = CALL1(1,VARREF(Ytail),x_1381F3329); x_1381F3330 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1381F3330,x_1382F3323); x_1381F3331 = T10; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1381F3331,x_1382F3323); T11 = CALL1(1,VARREF(Ytail),x_1381F3330); x_1381F3332 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1381F3332,x_1382F3323); T17 = CALL1(1,VARREF(Ytail),x_1381F3324); x_1381F3333 = T17; restF3327 = x_1381F3333; x_1381F3334 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1381F3334,x_1382F3323); x_1381F3335 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1381F3335,x_1382F3323); T7 = CALL1(1,VARREF(Ytail),x_1381F3334); x_1381F3336 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1381F3336,x_1382F3323); } else { T18 = CALL2(1,x_1382F3323,LITREF(lit_32),x_1381F3324); } T20 = CALL1(1,VARREF(Ylst),LITREF(lit_40)); T26 = varF3325; T25 = CALL1(1,VARREF(Ylst),T26); T28 = packF3326; T27 = CALL1(1,VARREF(Ylst),T28); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T27,LITREF(lit_41)); T23 = CALL1(1,VARREF(Ylst),T24); T22 = CALL2(1,VARREF(YgooSmacrosYcat),T23,LITREF(lit_41)); T21 = CALL1(1,VARREF(Ylst),T22); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T34 = restF3327; T33 = CALL2(1,VARREF(YgooSmacrosYcat),T34,LITREF(lit_41)); T32 = CALL1(1,VARREF(Ylst),T33); T35 = BOXGET(FREEREF(1)); T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T35,LITREF(lit_41)); T29 = CALL1(1,VARREF(Ylst),T30); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T29,LITREF(lit_41)); UNLINK_STACK(); QRET(T19); } LOCCODEDEF(fun_x_1379_16) { P msg_,args_; P x_1380F3337; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1380F3337 = FREEREF(0); T2 = FUNFAB(fun_15,2,x_1380F3337,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_17) { P return_; P x_1378F3339; P x_1379F3338; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(return_, 0); T6 = FUNSHELL(0,fun_x_1379_16,3); x_1379F3338 = T6; FUNINIT(x_1379F3338, 3,FREEREF(0),FREEREF(1),return_); x_1378F3339 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1378F3339,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1378F3339,x_1379F3338); } else { T2 = CALL2(1,x_1379F3338,LITREF(lit_32),x_1378F3339); } T4 = CALL1(1,VARREF(Ylst),LITREF(lit_42)); T5 = BOXGET(FREEREF(1)); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,LITREF(lit_41)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_18) { P return_; P x_1377F3351; P x_1375F3350; P x_1375F3349; P x_1375F3348; P x_1375F3347; P x_1375F3346; P x_1375F3345; P x_1375F3344; P bodyF3343; P declsF3342; P x_1375F3341; P x_1376F3340; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(return_, 0); T15 = FUNSHELL(0,fun_x_1376_13,2); x_1376F3340 = T15; FUNINIT(x_1376F3340, 2,FREEREF(0),return_); x_1375F3341 = FREEREF(0); declsF3342 = YPfalse; bodyF3343 = YPfalse; bodyF3343 = BOXFAB(bodyF3343); T2 = CALL2(1,VARREF(YisaQ),x_1375F3341,VARREF(YLlstG)); if (T2 != YPfalse) { T10 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1375F3341,LITREF(lit_31),x_1376F3340); x_1375F3344 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1375F3344,x_1376F3340); x_1375F3345 = T8; declsF3342 = x_1375F3345; x_1375F3346 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1375F3346,x_1376F3340); x_1375F3347 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1375F3347,x_1376F3340); T7 = CALL1(1,VARREF(Ytail),x_1375F3346); x_1375F3348 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1375F3348,x_1376F3340); T9 = CALL1(1,VARREF(Ytail),x_1375F3344); x_1375F3349 = T9; BOXPUT(x_1375F3349,bodyF3343); x_1375F3350 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1375F3350,x_1376F3340); } else { T11 = CALL2(1,x_1376F3340,LITREF(lit_32),x_1375F3341); } T14 = declsF3342; x_1377F3351 = T14; T13 = FUNFAB(fun_17,2,x_1377F3351,bodyF3343); T12 = with_exit(T13); UNLINK_STACK(); QRET(T12); } LOCCODEDEF(fun_19) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_18,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1395_20) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_47),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1404_21) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL1(1,VARREF(Ysyntax_error),LITREF(lit_39)); T0 = CALL1(1,FREEREF(0),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P return_; P x_1403F3359; P x_1403F3358; P x_1403F3357; P x_1403F3356; P restF3355; P nameF3354; P x_1403F3353; P x_1404F3352; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1404_21,1); x_1404F3352 = T21; FUNINIT(x_1404F3352, 1,return_); x_1403F3353 = FREEREF(0); nameF3354 = YPfalse; restF3355 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1403F3353,VARREF(YLlstG)); if (T2 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1403F3353,x_1404F3352); nameF3354 = T7; T8 = CALL1(1,VARREF(Ytail),x_1403F3353); x_1403F3356 = T8; restF3355 = x_1403F3356; x_1403F3357 = Ynil; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1403F3357,x_1404F3352); x_1403F3358 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1403F3358,x_1404F3352); T6 = CALL1(1,VARREF(Ytail),x_1403F3357); x_1403F3359 = T6; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1403F3359,x_1404F3352); } else { T9 = CALL2(1,x_1404F3352,LITREF(lit_32),x_1403F3353); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_47)); T17 = nameF3354; T16 = CALL1(1,VARREF(Ylst),T17); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_57)); T15 = CALL3(1,VARREF(YgooSmacrosYcat),T16,T18,LITREF(lit_41)); T14 = CALL1(1,VARREF(Ylst),T15); T19 = restF3355; T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T19,LITREF(lit_41)); T12 = CALL1(1,VARREF(Ylst),T13); T20 = BOXGET(FREEREF(1)); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T20,LITREF(lit_41)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_x_1401_23) { P msg_,args_; P x_1402F3360; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1402F3360 = FREEREF(0); T2 = FUNFAB(fun_22,2,x_1402F3360,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_24) { P return_; P x_1400F3374; P x_1400F3373; P x_1400F3372; P x_1400F3371; P x_1400F3370; P x_1400F3369; P x_1400F3368; P x_1400F3367; P x_1400F3366; P restF3365; P typeF3364; P nameF3363; P x_1400F3362; P x_1401F3361; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; LINK_STACK(); ARG(return_, 0); T39 = FUNSHELL(0,fun_x_1401_23,3); x_1401F3361 = T39; FUNINIT(x_1401F3361, 3,FREEREF(0),FREEREF(1),return_); x_1400F3362 = FREEREF(0); nameF3363 = YPfalse; typeF3364 = YPfalse; restF3365 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1400F3362,VARREF(YLlstG)); if (T3 != YPfalse) { T16 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1400F3362,x_1401F3361); x_1400F3366 = T16; T14 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1400F3366,x_1401F3361); nameF3363 = T14; T15 = CALL1(1,VARREF(Ytail),x_1400F3366); x_1400F3367 = T15; T12 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1400F3367,x_1401F3361); typeF3364 = T12; T13 = CALL1(1,VARREF(Ytail),x_1400F3367); x_1400F3368 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1400F3368,x_1401F3361); x_1400F3369 = T10; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1400F3369,x_1401F3361); T11 = CALL1(1,VARREF(Ytail),x_1400F3368); x_1400F3370 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1400F3370,x_1401F3361); T17 = CALL1(1,VARREF(Ytail),x_1400F3362); x_1400F3371 = T17; restF3365 = x_1400F3371; x_1400F3372 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1400F3372,x_1401F3361); x_1400F3373 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1400F3373,x_1401F3361); T7 = CALL1(1,VARREF(Ytail),x_1400F3372); x_1400F3374 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1400F3374,x_1401F3361); } else { T18 = CALL2(1,x_1401F3361,LITREF(lit_32),x_1400F3362); } T20 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T26 = nameF3363; T25 = CALL1(1,VARREF(Ylst),T26); T29 = CALL1(1,VARREF(Ylst),LITREF(lit_3)); T31 = typeF3364; T30 = CALL1(1,VARREF(Ylst),T31); T28 = CALL3(1,VARREF(YgooSmacrosYcat),T29,T30,LITREF(lit_41)); T27 = CALL1(1,VARREF(Ylst),T28); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T27,LITREF(lit_41)); T23 = CALL1(1,VARREF(Ylst),T24); T22 = CALL2(1,VARREF(YgooSmacrosYcat),T23,LITREF(lit_41)); T21 = CALL1(1,VARREF(Ylst),T22); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_47)); T37 = restF3365; T36 = CALL2(1,VARREF(YgooSmacrosYcat),T37,LITREF(lit_41)); T35 = CALL1(1,VARREF(Ylst),T36); T38 = BOXGET(FREEREF(1)); T33 = CALL4(1,VARREF(YgooSmacrosYcat),T34,T35,T38,LITREF(lit_41)); T32 = CALL1(1,VARREF(Ylst),T33); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T32,LITREF(lit_41)); UNLINK_STACK(); QRET(T19); } LOCCODEDEF(fun_x_1398_25) { P msg_,args_; P x_1399F3375; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); x_1399F3375 = FREEREF(0); T2 = FUNFAB(fun_24,2,x_1399F3375,FREEREF(1)); T1 = with_exit(T2); T0 = CALL1(1,FREEREF(2),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_26) { P return_; P x_1397F3377; P x_1398F3376; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(return_, 0); T6 = FUNSHELL(0,fun_x_1398_25,3); x_1398F3376 = T6; FUNINIT(x_1398F3376, 3,FREEREF(0),FREEREF(1),return_); x_1397F3377 = FREEREF(0); T0 = CALL2(1,VARREF(YisaQ),x_1397F3377,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1397F3377,x_1398F3376); } else { T2 = CALL2(1,x_1398F3376,LITREF(lit_32),x_1397F3377); } T4 = CALL1(1,VARREF(Ylst),LITREF(lit_42)); T5 = BOXGET(FREEREF(1)); T3 = CALL3(1,VARREF(YgooSmacrosYcat),T4,T5,LITREF(lit_41)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_27) { P return_; P x_1396F3389; P x_1394F3388; P x_1394F3387; P x_1394F3386; P x_1394F3385; P x_1394F3384; P x_1394F3383; P x_1394F3382; P bodyF3381; P varsF3380; P x_1394F3379; P x_1395F3378; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(return_, 0); T15 = FUNSHELL(0,fun_x_1395_20,2); x_1395F3378 = T15; FUNINIT(x_1395F3378, 2,FREEREF(0),return_); x_1394F3379 = FREEREF(0); varsF3380 = YPfalse; bodyF3381 = YPfalse; bodyF3381 = BOXFAB(bodyF3381); T2 = CALL2(1,VARREF(YisaQ),x_1394F3379,VARREF(YLlstG)); if (T2 != YPfalse) { T10 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1394F3379,LITREF(lit_47),x_1395F3378); x_1394F3382 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1394F3382,x_1395F3378); x_1394F3383 = T8; varsF3380 = x_1394F3383; x_1394F3384 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1394F3384,x_1395F3378); x_1394F3385 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1394F3385,x_1395F3378); T7 = CALL1(1,VARREF(Ytail),x_1394F3384); x_1394F3386 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1394F3386,x_1395F3378); T9 = CALL1(1,VARREF(Ytail),x_1394F3382); x_1394F3387 = T9; BOXPUT(x_1394F3387,bodyF3381); x_1394F3388 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1394F3388,x_1395F3378); } else { T11 = CALL2(1,x_1395F3378,LITREF(lit_32),x_1394F3379); } T14 = varsF3380; x_1396F3389 = T14; T13 = FUNFAB(fun_26,2,x_1396F3389,bodyF3381); T12 = with_exit(T13); UNLINK_STACK(); QRET(T12); } LOCCODEDEF(fun_28) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_27,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1408_29) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_62),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_30) { P return_; P x_1407F3394; P x_1407F3393; P bodyF3392; P x_1407F3391; P x_1408F3390; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21; LINK_STACK(); ARG(return_, 0); T21 = FUNSHELL(0,fun_x_1408_29,2); x_1408F3390 = T21; FUNINIT(x_1408F3390, 2,FREEREF(0),return_); x_1407F3391 = FREEREF(0); bodyF3392 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1407F3391,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1407F3391,LITREF(lit_62),x_1408F3390); x_1407F3393 = T3; bodyF3392 = x_1407F3393; x_1407F3394 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1407F3394,x_1408F3390); } else { T4 = CALL2(1,x_1408F3390,LITREF(lit_32),x_1407F3391); } T6 = CALL1(1,VARREF(Ylst),LITREF(lit_47)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T12 = CALL1(1,VARREF(Ylst),LITREF(lit_57)); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_41)); T9 = CALL1(1,VARREF(Ylst),T10); T8 = CALL2(1,VARREF(YgooSmacrosYcat),T9,LITREF(lit_41)); T7 = CALL1(1,VARREF(Ylst),T8); T15 = CALL1(1,VARREF(Ylst),LITREF(lit_42)); T16 = bodyF3392; T19 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_41)); T17 = CALL1(1,VARREF(Ylst),T18); T14 = CALL4(1,VARREF(YgooSmacrosYcat),T15,T16,T17,LITREF(lit_41)); T13 = CALL1(1,VARREF(Ylst),T14); T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T13,LITREF(lit_41)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_31) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_30,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1412_32) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_69),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_33) { P return_; P x_1411F3401; P x_1411F3400; P x_1411F3399; P bodyF3398; P typeF3397; P x_1411F3396; P x_1412F3395; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(return_, 0); T25 = FUNSHELL(0,fun_x_1412_32,2); x_1412F3395 = T25; FUNINIT(x_1412F3395, 2,FREEREF(0),return_); x_1411F3396 = FREEREF(0); typeF3397 = YPfalse; bodyF3398 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1411F3396,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1411F3396,LITREF(lit_69),x_1412F3395); x_1411F3399 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1411F3399,x_1412F3395); typeF3397 = T4; T5 = CALL1(1,VARREF(Ytail),x_1411F3399); x_1411F3400 = T5; bodyF3398 = x_1411F3400; x_1411F3401 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1411F3401,x_1412F3395); } else { T7 = CALL2(1,x_1412F3395,LITREF(lit_32),x_1411F3396); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_47)); T14 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T16 = typeF3397; T15 = CALL1(1,VARREF(Ylst),T16); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_41)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_41)); T10 = CALL1(1,VARREF(Ylst),T11); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_42)); T20 = bodyF3398; T23 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T22 = CALL3(1,VARREF(YgooSmacrosYcat),T23,T24,LITREF(lit_41)); T21 = CALL1(1,VARREF(Ylst),T22); T18 = CALL4(1,VARREF(YgooSmacrosYcat),T19,T20,T21,LITREF(lit_41)); T17 = CALL1(1,VARREF(Ylst),T18); T8 = CALL4(1,VARREF(YgooSmacrosYcat),T9,T10,T17,LITREF(lit_41)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_34) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_33,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1416_35) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_74),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_36) { P return_; P x_1415F3408; P x_1415F3407; P x_1415F3406; P valueF3405; P packF3404; P x_1415F3403; P x_1416F3402; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(return_, 0); T20 = FUNSHELL(0,fun_x_1416_35,2); x_1416F3402 = T20; FUNINIT(x_1416F3402, 2,FREEREF(0),return_); x_1415F3403 = FREEREF(0); packF3404 = YPfalse; valueF3405 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1415F3403,VARREF(YLlstG)); if (T2 != YPfalse) { T8 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1415F3403,LITREF(lit_74),x_1416F3402); x_1415F3406 = T8; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1415F3406,x_1416F3402); packF3404 = T6; T7 = CALL1(1,VARREF(Ytail),x_1415F3406); x_1415F3407 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1415F3407,x_1416F3402); valueF3405 = T4; T5 = CALL1(1,VARREF(Ytail),x_1415F3407); x_1415F3408 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1415F3408,x_1416F3402); } else { T9 = CALL2(1,x_1416F3402,LITREF(lit_32),x_1415F3403); } T11 = CALL1(1,VARREF(Ylst),LITREF(lit_75)); T13 = packF3404; T12 = CALL1(1,VARREF(Ylst),T13); T16 = CALL1(1,VARREF(Ylst),LITREF(lit_5)); T17 = CALL1(1,VARREF(Ylst),LITREF(lit_76)); T19 = valueF3405; T18 = CALL1(1,VARREF(Ylst),T19); T15 = CALL4(1,VARREF(YgooSmacrosYcat),T16,T17,T18,LITREF(lit_41)); T14 = CALL1(1,VARREF(Ylst),T15); T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T14,LITREF(lit_41)); UNLINK_STACK(); QRET(T10); } LOCCODEDEF(fun_37) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_36,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1420_38) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_81),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_39) { P return_; P x_1419F3413; P x_1419F3412; P valueF3411; P x_1419F3410; P x_1420F3409; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(return_, 0); T12 = FUNSHELL(0,fun_x_1420_38,2); x_1420F3409 = T12; FUNINIT(x_1420F3409, 2,FREEREF(0),return_); x_1419F3410 = FREEREF(0); valueF3411 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1419F3410,VARREF(YLlstG)); if (T1 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1419F3410,LITREF(lit_81),x_1420F3409); x_1419F3412 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1419F3412,x_1420F3409); valueF3411 = T3; T4 = CALL1(1,VARREF(Ytail),x_1419F3412); x_1419F3413 = T4; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1419F3413,x_1420F3409); } else { T6 = CALL2(1,x_1420F3409,LITREF(lit_32),x_1419F3410); } T8 = CALL1(1,VARREF(Ylst),LITREF(lit_74)); T9 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T11 = valueF3411; T10 = CALL1(1,VARREF(Ylst),T11); T7 = CALL4(1,VARREF(YgooSmacrosYcat),T8,T9,T10,LITREF(lit_41)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_40) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_39,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1424_41) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_64),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_42) { P return_; P x_1423F3418; P x_1423F3417; P nameF3416; P x_1423F3415; P x_1424F3414; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(return_, 0); T11 = FUNSHELL(0,fun_x_1424_41,2); x_1424F3414 = T11; FUNINIT(x_1424F3414, 2,FREEREF(0),return_); x_1423F3415 = FREEREF(0); nameF3416 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1423F3415,VARREF(YLlstG)); if (T1 != YPfalse) { T5 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1423F3415,LITREF(lit_64),x_1424F3414); x_1423F3417 = T5; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1423F3417,x_1424F3414); nameF3416 = T3; T4 = CALL1(1,VARREF(Ytail),x_1423F3417); x_1423F3418 = T4; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1423F3418,x_1424F3414); } else { T6 = CALL2(1,x_1424F3414,LITREF(lit_32),x_1423F3415); } T8 = CALL1(1,VARREF(Ylst),LITREF(lit_7)); T10 = nameF3416; T9 = CALL1(1,VARREF(Ylst),T10); T7 = CALL3(1,VARREF(YgooSmacrosYcat),T8,T9,LITREF(lit_41)); UNLINK_STACK(); QRET(T7); } LOCCODEDEF(fun_43) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_42,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } P YgooSpackerY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooSpackerYLpackerG,T0); lit_1 = YPPsym((P)"packer"); lit_2 = YPPlist(3,YPPsym((P)"init"),YPPsym((P)"add"),YPPsym((P)"res")); T3 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YgooSpackerYLpackerG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooSpackerYpacker,T2); lit_3 = YPPsym((P)"packer-fab"); lit_4 = YPPlist(1,YPPsym((P)"t")); T5 = YPfab_sig(YPPlist(1,VARREF(YLtypeG)),YPfalse,YPint((P)1),VARREF(YgooSpackerYLpackerG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_3),LITREF(lit_4),YPfalse); VARSET(YgooSpackerYpacker_fab,T4); lit_5 = YPPsym((P)"packer-add"); lit_6 = YPPlist(2,YPPsym((P)"a"),YPPsym((P)"x")); T7 = YPfab_sig(YPPlist(2,VARREF(YgooSpackerYLpackerG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooSpackerYLpackerG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_5),LITREF(lit_6),YPfalse); VARSET(YgooSpackerYpacker_add,T6); lit_7 = YPPsym((P)"packer-res"); lit_8 = YPPlist(1,YPPsym((P)"a")); T9 = YPfab_sig(YPPlist(1,VARREF(YgooSpackerYLpackerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_7),LITREF(lit_8),YPfalse); VARSET(YgooSpackerYpacker_res,T8); lit_9 = YPPsym((P)""); T11 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSpackerYLpackerG),Ynil); T10 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_9),T11); VARSET(YgooSpackerYLsim_packerG,T10); lit_10 = YPPsym((P)"packer-value"); lit_11 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YgooSpackerYLsim_packerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_packer_value_0 = YPfab_met(FUNCODEREF(fun_packer_value_0),T12,LITREF(lit_10),LITREF(lit_11),sloc(21),YPfalse); T14 = VARREF_OR(YgooSpackerYpacker_value,YPfalse); T15 = fun_packer_value_0; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSpackerYpacker_value,T13); lit_12 = YPPsym((P)"packer-value-setter"); lit_13 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooSpackerYLsim_packerG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_packer_value_setter_1 = YPfab_met(FUNCODEREF(fun_packer_value_setter_1),T16,LITREF(lit_12),LITREF(lit_13),sloc(21),YPfalse); T18 = VARREF_OR(YgooSpackerYpacker_value_setter,YPfalse); T19 = fun_packer_value_setter_1; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSpackerYpacker_value_setter,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSpackerYLsim_packerG),VARREF(YgooSpackerYpacker_value),VARREF(YgooSpackerYpacker_value_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_14 = YPPsym((P)"packer-adder"); lit_15 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YgooSpackerYLsim_packerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_packer_adder_2 = YPfab_met(FUNCODEREF(fun_packer_adder_2),T20,LITREF(lit_14),LITREF(lit_15),sloc(22),YPfalse); T22 = VARREF_OR(YgooSpackerYpacker_adder,YPfalse); T23 = fun_packer_adder_2; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSpackerYpacker_adder,T21); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSpackerYLsim_packerG),VARREF(YgooSpackerYpacker_adder),YPfalse,VARREF(YLfunG),VARREF(YPprop_unbound_error)); lit_16 = YPPsym((P)"packer-reser"); lit_17 = YPPlist(1,YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(1,VARREF(YgooSpackerYLsim_packerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_packer_reser_3 = YPfab_met(FUNCODEREF(fun_packer_reser_3),T24,LITREF(lit_16),LITREF(lit_17),sloc(23),YPfalse); T26 = VARREF_OR(YgooSpackerYpacker_reser,YPfalse); T27 = fun_packer_reser_3; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooSpackerYpacker_reser,T25); lit_18 = YPPlist(1,YPPsym((P)"_x")); lit_19 = YPPlist(1,YPPsym((P)"x")); T29 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_4 = YPfab_met(FUNCODEREF(fun_4),T29,YPfalse,LITREF(lit_19),sloc(23),YPfalse); T28 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T28,YPfalse,LITREF(lit_18),sloc(23),YPfalse); T30 = fun_5; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSpackerYLsim_packerG),VARREF(YgooSpackerYpacker_reser),YPfalse,VARREF(YLfunG),T30); lit_20 = YPPlist(3,YPPsym((P)"init"),YPPsym((P)"add"),YPPsym((P)"res")); T31 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YgooSpackerYLsim_packerG),Ynil); fun_packer_6 = YPfab_met(FUNCODEREF(fun_packer_6),T31,LITREF(lit_1),LITREF(lit_20),sloc(25),YPfalse); T33 = VARREF_OR(YgooSpackerYpacker,YPfalse); T34 = fun_packer_6; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YgooSpackerYpacker,T32); lit_21 = YPPlist(2,YPPsym((P)"a"),YPPsym((P)"x")); T35 = YPfab_sig(YPPlist(2,VARREF(YgooSpackerYLsim_packerG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooSpackerYLsim_packerG),Ynil); fun_packer_add_7 = YPfab_met(FUNCODEREF(fun_packer_add_7),T35,LITREF(lit_5),LITREF(lit_21),sloc(28),YPfalse); T37 = VARREF_OR(YgooSpackerYpacker_add,YPfalse); T38 = fun_packer_add_7; T36 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T37,T38); VARSET(YgooSpackerYpacker_add,T36); lit_22 = YPPlist(1,YPPsym((P)"a")); T39 = YPfab_sig(YPPlist(1,VARREF(YgooSpackerYLsim_packerG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_packer_res_8 = YPfab_met(FUNCODEREF(fun_packer_res_8),T39,LITREF(lit_7),LITREF(lit_22),sloc(30),YPfalse); T41 = VARREF_OR(YgooSpackerYpacker_res,YPfalse); T42 = fun_packer_res_8; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YgooSpackerYpacker_res,T40); lit_23 = YPPlist(1,YPPsym((P)"t")); lit_24 = YPPlist(1,YPPsym((P)"x")); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T45,YPfalse,LITREF(lit_24),sloc(34),YPfalse); T44 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLseqG)); T43 = YPfab_sig(YPPlist(1,T44),YPfalse,YPint((P)1),VARREF(YgooSpackerYLpackerG),Ynil); fun_packer_fab_10 = YPfab_met(FUNCODEREF(fun_packer_fab_10),T43,LITREF(lit_3),LITREF(lit_23),sloc(33),YPfalse); T47 = VARREF_OR(YgooSpackerYpacker_fab,YPfalse); T48 = fun_packer_fab_10; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YgooSpackerYpacker_fab,T46); lit_25 = YPPlist(1,YPPsym((P)"t")); lit_26 = YPPlist(1,YPPsym((P)"x")); T51 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T51,YPfalse,LITREF(lit_26),sloc(37),YPfalse); T50 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLintG)); T49 = YPfab_sig(YPPlist(1,T50),YPfalse,YPint((P)1),VARREF(YgooSpackerYLpackerG),Ynil); fun_packer_fab_12 = YPfab_met(FUNCODEREF(fun_packer_fab_12),T49,LITREF(lit_3),LITREF(lit_25),sloc(36),YPfalse); T53 = VARREF_OR(YgooSpackerYpacker_fab,YPfalse); T54 = fun_packer_fab_12; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YgooSpackerYpacker_fab,T52); lit_27 = YPPlist(1,YPPsym((P)"exp")); lit_28 = YPPlist(1,YPPsym((P)"return")); lit_29 = YPPsym((P)"x-1376"); lit_30 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_31 = YPPsym((P)"packing-with"); lit_32 = YPsb((P)"Match Pattern Failure"); lit_33 = YPPlist(1,YPPsym((P)"return")); lit_34 = YPPsym((P)"x-1379"); lit_35 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_36 = YPPlist(1,YPPsym((P)"return")); lit_37 = YPPsym((P)"x-1382"); lit_38 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_39 = YPsb((P)"failed to match."); lit_40 = YPPsym((P)"let"); lit_41 = Ynil; lit_42 = YPPsym((P)"seq"); T61 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1376_13 = YPfab_met(FUNCODEREF(fun_x_1376_13),T61,LITREF(lit_29),LITREF(lit_30),YPfalse,YPfalse); T60 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1382_14 = YPfab_met(FUNCODEREF(fun_x_1382_14),T60,LITREF(lit_37),LITREF(lit_38),YPfalse,YPfalse); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_15 = YPfab_met(FUNCODEREF(fun_15),T59,YPfalse,LITREF(lit_36),YPfalse,YPfalse); T58 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1379_16 = YPfab_met(FUNCODEREF(fun_x_1379_16),T58,LITREF(lit_34),LITREF(lit_35),YPfalse,YPfalse); T57 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_17 = YPfab_met(FUNCODEREF(fun_17),T57,YPfalse,LITREF(lit_33),YPfalse,YPfalse); T56 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T56,YPfalse,LITREF(lit_28),YPfalse,YPfalse); T55 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_19 = YPfab_met(FUNCODEREF(fun_19),T55,YPfalse,LITREF(lit_27),YPfalse,YPfalse); T62 = fun_19; YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"packing-with"),T62); lit_43 = YPPlist(1,YPPsym((P)"exp")); lit_44 = YPPlist(1,YPPsym((P)"return")); lit_45 = YPPsym((P)"x-1395"); lit_46 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_47 = YPPsym((P)"packing-in"); lit_48 = YPPlist(1,YPPsym((P)"return")); lit_49 = YPPsym((P)"x-1398"); lit_50 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_51 = YPPlist(1,YPPsym((P)"return")); lit_52 = YPPsym((P)"x-1401"); lit_53 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_54 = YPPlist(1,YPPsym((P)"return")); lit_55 = YPPsym((P)"x-1404"); lit_56 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_57 = YPPsym((P)""); T71 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1395_20 = YPfab_met(FUNCODEREF(fun_x_1395_20),T71,LITREF(lit_45),LITREF(lit_46),YPfalse,YPfalse); T70 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1404_21 = YPfab_met(FUNCODEREF(fun_x_1404_21),T70,LITREF(lit_55),LITREF(lit_56),YPfalse,YPfalse); T69 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T69,YPfalse,LITREF(lit_54),YPfalse,YPfalse); T68 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1401_23 = YPfab_met(FUNCODEREF(fun_x_1401_23),T68,LITREF(lit_52),LITREF(lit_53),YPfalse,YPfalse); T67 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T67,YPfalse,LITREF(lit_51),YPfalse,YPfalse); T66 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1398_25 = YPfab_met(FUNCODEREF(fun_x_1398_25),T66,LITREF(lit_49),LITREF(lit_50),YPfalse,YPfalse); T65 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T65,YPfalse,LITREF(lit_48),YPfalse,YPfalse); T64 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_27 = YPfab_met(FUNCODEREF(fun_27),T64,YPfalse,LITREF(lit_44),YPfalse,YPfalse); T63 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_28 = YPfab_met(FUNCODEREF(fun_28),T63,YPfalse,LITREF(lit_43),YPfalse,YPfalse); T72 = fun_28; YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"packing-in"),T72); lit_58 = YPPlist(1,YPPsym((P)"exp")); lit_59 = YPPlist(1,YPPsym((P)"return")); lit_60 = YPPsym((P)"x-1408"); lit_61 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_62 = YPPsym((P)"packing"); lit_63 = YPPsym((P)"packer-"); lit_64 = YPPsym((P)"packed"); T79 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T78 = fun_x_1408_29 = YPfab_met(FUNCODEREF(fun_x_1408_29),T79,LITREF(lit_60),LITREF(lit_61),YPfalse,YPfalse); T77 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T76 = fun_30 = YPfab_met(FUNCODEREF(fun_30),T77,YPfalse,LITREF(lit_59),YPfalse,YPfalse); T75 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T74 = fun_31 = YPfab_met(FUNCODEREF(fun_31),T75,YPfalse,LITREF(lit_58),YPfalse,YPfalse); T81 = fun_31; T80 = YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"packing"),T81); T73 = T80; return T73; } P YgooSpackerY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; DEFCREGS(); lit_65 = YPPlist(1,YPPsym((P)"exp")); lit_66 = YPPlist(1,YPPsym((P)"return")); lit_67 = YPPsym((P)"x-1412"); lit_68 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_69 = YPPsym((P)"packing-as"); T2 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1412_32 = YPfab_met(FUNCODEREF(fun_x_1412_32),T2,LITREF(lit_67),LITREF(lit_68),YPfalse,YPfalse); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_33 = YPfab_met(FUNCODEREF(fun_33),T1,YPfalse,LITREF(lit_66),YPfalse,YPfalse); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T0,YPfalse,LITREF(lit_65),YPfalse,YPfalse); T3 = fun_34; YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"packing-as"),T3); lit_70 = YPPlist(1,YPPsym((P)"exp")); lit_71 = YPPlist(1,YPPsym((P)"return")); lit_72 = YPPsym((P)"x-1416"); lit_73 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_74 = YPPsym((P)"pack-in"); lit_75 = YPPsym((P)"opf"); lit_76 = YPPsym((P)"_"); T6 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1416_35 = YPfab_met(FUNCODEREF(fun_x_1416_35),T6,LITREF(lit_72),LITREF(lit_73),YPfalse,YPfalse); T5 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T5,YPfalse,LITREF(lit_71),YPfalse,YPfalse); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_37 = YPfab_met(FUNCODEREF(fun_37),T4,YPfalse,LITREF(lit_70),YPfalse,YPfalse); T7 = fun_37; YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"pack-in"),T7); lit_77 = YPPlist(1,YPPsym((P)"exp")); lit_78 = YPPlist(1,YPPsym((P)"return")); lit_79 = YPPsym((P)"x-1420"); lit_80 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_81 = YPPsym((P)"pack"); T10 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1420_38 = YPfab_met(FUNCODEREF(fun_x_1420_38),T10,LITREF(lit_79),LITREF(lit_80),YPfalse,YPfalse); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_39 = YPfab_met(FUNCODEREF(fun_39),T9,YPfalse,LITREF(lit_78),YPfalse,YPfalse); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_40 = YPfab_met(FUNCODEREF(fun_40),T8,YPfalse,LITREF(lit_77),YPfalse,YPfalse); T11 = fun_40; YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"pack"),T11); lit_82 = YPPlist(1,YPPsym((P)"exp")); lit_83 = YPPlist(1,YPPsym((P)"return")); lit_84 = YPPsym((P)"x-1424"); lit_85 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T18 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T17 = fun_x_1424_41 = YPfab_met(FUNCODEREF(fun_x_1424_41),T18,LITREF(lit_84),LITREF(lit_85),YPfalse,YPfalse); T16 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T15 = fun_42 = YPfab_met(FUNCODEREF(fun_42),T16,YPfalse,LITREF(lit_83),YPfalse,YPfalse); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T13 = fun_43 = YPfab_met(FUNCODEREF(fun_43),T14,YPfalse,LITREF(lit_82),YPfalse,YPfalse); T20 = fun_43; T19 = YPmacro(YPPsym((P)"goo/packer"),YPPsym((P)"packed"),T20); T12 = T19; return T12; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"packing-with", PVAR, NULL}, {"packer-value", CVAR, &YgooSpackerYpacker_value}, {"packer", CVAR, &YgooSpackerYpacker}, {"packer-reser", CVAR, &YgooSpackerYpacker_reser}, {"", CVAR, &YgooSpackerYLpackerG}, {"packer-adder", CVAR, &YgooSpackerYpacker_adder}, {"packing", PVAR, NULL}, {"packed", PVAR, NULL}, {"", CVAR, &YgooSpackerYLsim_packerG}, {"packer-add", CVAR, &YgooSpackerYpacker_add}, {"packer-res", CVAR, &YgooSpackerYpacker_res}, {"packer-value-setter", CVAR, &YgooSpackerYpacker_value_setter}, {"---main-1---", PVAR, NULL}, {"packer-fab", CVAR, &YgooSpackerYpacker_fab}, {"packing-as", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"pack-in", PVAR, NULL}, {"packing-in", PVAR, NULL}, {"pack", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"packing-with", NULL}, {"packing-as", NULL}, {"", NULL}, {"packing-in", NULL}, {"packer-res", NULL}, {"packed", NULL}, {"packing", NULL}, {"packer-add", NULL}, {"pack", NULL}, {"packer-fab", NULL}, {"packer", NULL}, {"pack-in", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSpacker; MODULE_INFO module_info_gooSpacker = { "goo/packer", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooSpacker (void); void load_module_gooSpacker (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsSseq(); (P)YgooSpackerY___main_0___(); (P)YgooSpackerY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/random.c0100644000175000017500000026510307756744553015053 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/random"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/random */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); DEF(YgooSrandomYrandom_unit,"goo/random","random-unit"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSsystemYos_val,"goo/system","os-val"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); DEF(YgooSrandomYfab_random,"goo/random","fab-random"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSsystemYexe_filename,"goo/system","exe-filename"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); DEF(YgooSrandomYrecent_setter,"goo/random","recent-setter"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSsystemYfile_copy,"goo/system","file-copy"); EXT(YgooSsystemYos_name,"goo/system","os-name"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); DEF(YgooSrandomYrandom,"goo/random","random"); DEF(YgooSrandomYDdefault_random,"goo/random","$default-random"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSsystemYobj_filename,"goo/system","obj-filename"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); DEF(YgooSrandomYLrandomG,"goo/random",""); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooSsystemYadd_build_path,"goo/system","add-build-path"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YgooSsystemYc_filename,"goo/system","c-filename"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); DEF(YgooSrandomYlcg_rand,"goo/random","lcg-rand"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooSsystemYtime,"goo/system","time"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); DEF(YgooSrandomYrandom_unit_using,"goo/random","random-unit-using"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YgooSrandomYrecent_index_setter,"goo/random","recent-index-setter"); EXT(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); DEF(YgooSrandomYDrecent_size,"goo/random","$recent-size"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSsystemYfile_type,"goo/system","file-type"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); EXT(YgooSsystemYLpathname_errorG,"goo/system",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); DEF(YgooSrandomYrecent,"goo/random","recent"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(YgooSsystemYcomponents_last,"goo/system","components-last"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSsystemYso_load,"goo/system","so-load"); EXT(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); DEF(YgooSrandomYfab_random_from,"goo/random","fab-random-from"); EXT(Ynil,"goo/boot","nil"); EXT(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); DEF(YgooSrandomYrandom_using,"goo/random","random-using"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); DEF(YgooSrandomYrandom_29,"goo/random","random-29"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSsystemYfile_mtime,"goo/system","file-mtime"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); DEF(YgooSrandomYdefault_random_seed,"goo/random","default-random-seed"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); DEF(YgooSrandomYrecent_index,"goo/random","recent-index"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_26); DEFLIT(lit_21); DEFLIT(lit_27); DEFLIT(lit_12); DEFLIT(lit_24); DEFLIT(lit_23); DEFLIT(lit_6); DEFLIT(lit_13); DEFLIT(lit_4); DEFLIT(lit_25); DEFLIT(lit_1); DEFLIT(lit_3); DEFLIT(lit_28); DEFLIT(lit_0); DEFLIT(lit_20); DEFLIT(lit_10); DEFLIT(lit_18); DEFLIT(lit_15); DEFLIT(lit_8); DEFLIT(lit_14); DEFLIT(lit_11); DEFLIT(lit_5); DEFLIT(lit_16); DEFLIT(lit_19); DEFLIT(lit_9); DEFLIT(lit_2); DEFLIT(lit_22); DEFLIT(lit_17); DEFLIT(lit_7); /* FUNCTIONS: */ FUNFOR(YgooSrandomYdefault_random_seed); LOCFOR(fun_recent_1); LOCFOR(fun_recent_setter_2); LOCFOR(fun_3); LOCFOR(fun_recent_index_4); LOCFOR(fun_recent_index_setter_5); LOCFOR(fun_6); FUNFOR(YgooSrandomYlcg_rand); LOCFOR(fun_fab_random_from_8); LOCFOR(fun_fab_random_9); LOCFOR(fun_tap_10); FUNFOR(YgooSrandomYrandom_29); LOCFOR(fun_random_12); LOCFOR(fun_random_using_13); LOCFOR(fun_random_unit_14); LOCFOR(fun_random_unit_using_15); extern P YgooSrandomY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSrandomYdefault_random_seed) { P T0; LINK_STACK(); T0 = CALL0(1,VARREF(YgooSsystemYtime)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_recent_1) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSrandomYrecent)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recent_setter_2) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSrandomYrecent)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3) { P Ux_; P T0,T1; LINK_STACK(); ARG(Ux_, 0); T1 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooSrandomYDrecent_size)); T0 = CALL2(1,VARREF(YgooScolsScolYfill),T1,YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recent_index_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSrandomYrecent_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recent_index_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSrandomYrecent_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_6) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } FUNCODEDEF(YgooSrandomYlcg_rand) { P prev_; P T0,T1,T2; LINK_STACK(); ARG(prev_, 0); T2 = CALL2(1,VARREF(YgooSmathYT),prev_,YPint((P)171)); T1 = CALL2(1,VARREF(YgooSmathYA),T2,YPint((P)11213)); T0 = CALL2(1,VARREF(YgooSmathYmod),T1,YPint((P)53125)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fab_random_from_8) { P seed_; P jF5370; P x_1933F5369; P v2F5368; P v1F5367; P prevF5366; P jF5365; P aF5364; P rF5363; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(seed_, 0); T22 = CALL1(1,VARREF(Ynew),VARREF(YgooSrandomYLrandomG)); rF5363 = T22; T21 = CALL1(1,VARREF(YgooSrandomYrecent),rF5363); aF5364 = T21; CALL3(1,VARREF(YgooScolsScolxYelt_setter),VARREF(YDmax_int),aF5364,YPint((P)0)); jF5365 = YPint((P)1); T11 = CALL1(1,VARREF(YgooSmathYabs),seed_); T10 = CALL2(1,VARREF(YgooSmathYmod),T11,YPint((P)32768)); prevF5366 = T10; LOOP_261: { P a261_0,a261_1; T1 = CALL2(1,VARREF(YgooSmagYL),jF5365,VARREF(YgooSrandomYDrecent_size)); if (T1 != YPfalse) { T9 = CALL1(1,VARREF(YgooSrandomYlcg_rand),prevF5366); v1F5367 = T9; T8 = CALL1(1,VARREF(YgooSrandomYlcg_rand),v1F5367); v2F5368 = T8; T3 = CALL2(1,VARREF(YgooSmathYmod),v1F5367,YPint((P)32768)); T5 = CALL2(1,VARREF(YgooSmathYmod),v2F5368,YPint((P)16384)); T4 = CALL2(1,VARREF(YgooSmathYT),T5,YPint((P)32768)); T2 = CALL2(1,VARREF(YgooSmathYA),T3,T4); CALL3(1,VARREF(YgooScolsScolxYelt_setter),T2,aF5364,jF5365); T7 = CALL2(1,VARREF(YgooSmathYA),jF5365,YPint((P)1)); a261_0 = T7; a261_1 = v2F5368; jF5365 = a261_0; prevF5366 = a261_1; goto LOOP_261; T0 = T6; } else { T0 = YPfalse; } } T20 = CALL2(1,VARREF(YgooSmathYT),YPint((P)4),VARREF(YgooSrandomYDrecent_size)); T19 = CALL3(1,VARREF(YgooScolsSrangeYrange),YPint((P)0),VARREF(YgooSmagYLE),T20); T18 = CALL1(1,VARREF(YgooScolsScolYenum),T19); x_1933F5369 = T18; LOOP_262: { P a262_0; T14 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1933F5369); T13 = CALL1(1,VARREF(Ynot),T14); if (T13 != YPfalse) { T17 = CALL1(1,VARREF(YgooScolsScolYnow),x_1933F5369); jF5370 = T17; CALL1(1,VARREF(YgooSrandomYrandom_29),rF5363); T16 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1933F5369); a262_0 = T16; x_1933F5369 = a262_0; goto LOOP_262; T12 = T15; } else { T12 = YPfalse; } } UNLINK_STACK(); RET(rF5363); } LOCCODEDEF(fun_fab_random_9) { P T0,T1; LINK_STACK(); T1 = CALL0(1,VARREF(YgooSrandomYdefault_random_seed)); T0 = CALL1(1,VARREF(YgooSrandomYfab_random_from),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_tap_10) { P bit_; P T0,T1,T2,T3; LINK_STACK(); ARG(bit_, 0); T3 = CALL2(1,VARREF(YgooSmathY_),VARREF(YgooSrandomYDrecent_size),bit_); T2 = CALL2(1,VARREF(YgooSmathYA),FREEREF(1),T3); T1 = CALL2(1,VARREF(YgooSmathYmod),T2,VARREF(YgooSrandomYDrecent_size)); T0 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(0),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSrandomYrandom_29) { P r_; P tapF5373; P aF5372; P riF5371; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(r_, 0); T12 = CALL1(1,VARREF(YgooSrandomYrecent_index),r_); T11 = CALL2(1,VARREF(YgooSmathYA),T12,YPint((P)1)); T10 = CALL2(1,VARREF(YgooSmathYmod),T11,VARREF(YgooSrandomYDrecent_size)); check_type(T10,VARREF(YLintG)); riF5371 = T10; T9 = CALL1(1,VARREF(YgooSrandomYrecent),r_); aF5372 = T9; CALL2(1,VARREF(YgooSrandomYrecent_index_setter),riF5371,r_); T8 = FUNSHELL(1,fun_tap_10,2); tapF5373 = T8; FUNINIT(tapF5373, 2,aF5372,riF5371); T3 = CALL1(1,tapF5373,YPint((P)54)); T4 = CALL1(1,tapF5373,YPint((P)8)); T2 = CALL2(1,VARREF(YgooSmathYC),T3,T4); T6 = CALL1(1,tapF5373,YPint((P)6)); T7 = CALL1(1,tapF5373,YPint((P)3)); T5 = CALL2(1,VARREF(YgooSmathYC),T6,T7); T1 = CALL2(1,VARREF(YgooSmathYC),T2,T5); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),T1,aF5372,riF5371); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_random_12) { P range_; P T0; LINK_STACK(); ARG(range_, 0); T0 = CALL2(1,VARREF(YgooSrandomYrandom_using),range_,VARREF(YgooSrandomYDdefault_random)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_random_using_13) { P range_,r_; P valueF5376; P limitF5375; P mF5374; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(range_, 0); ARG(r_, 1); T1 = CALL2(1,VARREF(YgooSlogYE),range_,YPint((P)0)); if (T1 != YPfalse) { T0 = YPint((P)0); } else { mF5374 = VARREF(YDmax_int); T10 = CALL2(1,VARREF(YgooSmathY_),mF5374,range_); T9 = CALL2(1,VARREF(YgooSmathYA),T10,YPint((P)1)); T8 = CALL2(1,VARREF(YgooSmathYmod),T9,range_); T7 = CALL2(1,VARREF(YgooSmathY_),mF5374,T8); limitF5375 = T7; LOOP_263: { T6 = CALL1(1,VARREF(YgooSrandomYrandom_29),r_); valueF5376 = T6; T4 = CALL2(1,VARREF(YgooSmagYLE),valueF5376,limitF5375); if (T4 != YPfalse) { T3 = valueF5376; } else { goto LOOP_263; T3 = T5; } } T2 = CALL2(1,VARREF(YgooSmathYmod),T3,range_); T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_random_unit_14) { P T0; LINK_STACK(); T0 = CALL1(1,VARREF(YgooSrandomYrandom_unit_using),VARREF(YgooSrandomYDdefault_random)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_random_unit_using_15) { P r_; P maxF5377; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(r_, 0); maxF5377 = YPint((P)1000000); T3 = CALL2(1,VARREF(YgooSmathYA),maxF5377,YPint((P)1)); T2 = CALL2(1,VARREF(YgooSrandomYrandom_using),T3,r_); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),T2); T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),maxF5377); T0 = CALL2(1,VARREF(YgooSmathYS),T1,T4); UNLINK_STACK(); RET(T0); } P YgooSrandomY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54; DEFCREGS(); lit_0 = YPPsym((P)"default-random-seed"); lit_1 = Ynil; T0 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLintG),Ynil); YgooSrandomYdefault_random_seed = YPfab_met(FUNCODEREF(YgooSrandomYdefault_random_seed),T0,LITREF(lit_0),LITREF(lit_1),sloc(9),YPfalse); T1 = YgooSrandomYdefault_random_seed; VARSET(YgooSrandomYdefault_random_seed,T1); VARSET(YgooSrandomYDrecent_size,YPint((P)54)); lit_2 = YPPsym((P)""); T3 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T2 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_2),T3); VARSET(YgooSrandomYLrandomG,T2); lit_3 = YPPsym((P)"recent"); lit_4 = YPPlist(1,YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(1,VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_recent_1 = YPfab_met(FUNCODEREF(fun_recent_1),T4,LITREF(lit_3),LITREF(lit_4),sloc(14),YPfalse); T6 = VARREF_OR(YgooSrandomYrecent,YPfalse); T7 = fun_recent_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooSrandomYrecent,T5); lit_5 = YPPsym((P)"recent-setter"); lit_6 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_recent_setter_2 = YPfab_met(FUNCODEREF(fun_recent_setter_2),T8,LITREF(lit_5),LITREF(lit_6),sloc(14),YPfalse); T10 = VARREF_OR(YgooSrandomYrecent_setter,YPfalse); T11 = fun_recent_setter_2; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooSrandomYrecent_setter,T9); lit_7 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T12,YPfalse,LITREF(lit_7),sloc(14),YPfalse); T13 = fun_3; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSrandomYLrandomG),VARREF(YgooSrandomYrecent),VARREF(YgooSrandomYrecent_setter),VARREF(YgooScolsSvecYLvecG),T13); lit_8 = YPPsym((P)"recent-index"); lit_9 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_recent_index_4 = YPfab_met(FUNCODEREF(fun_recent_index_4),T14,LITREF(lit_8),LITREF(lit_9),sloc(15),YPfalse); T16 = VARREF_OR(YgooSrandomYrecent_index,YPfalse); T17 = fun_recent_index_4; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSrandomYrecent_index,T15); lit_10 = YPPsym((P)"recent-index-setter"); lit_11 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_recent_index_setter_5 = YPfab_met(FUNCODEREF(fun_recent_index_setter_5),T18,LITREF(lit_10),LITREF(lit_11),sloc(15),YPfalse); T20 = VARREF_OR(YgooSrandomYrecent_index_setter,YPfalse); T21 = fun_recent_index_setter_5; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooSrandomYrecent_index_setter,T19); lit_12 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T22,YPfalse,LITREF(lit_12),sloc(15),YPfalse); T23 = fun_6; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSrandomYLrandomG),VARREF(YgooSrandomYrecent_index),VARREF(YgooSrandomYrecent_index_setter),VARREF(YLintG),T23); lit_13 = YPPsym((P)"lcg-rand"); lit_14 = YPPlist(1,YPPsym((P)"prev")); T24 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); YgooSrandomYlcg_rand = YPfab_met(FUNCODEREF(YgooSrandomYlcg_rand),T24,LITREF(lit_13),LITREF(lit_14),sloc(19),YPfalse); T25 = YgooSrandomYlcg_rand; VARSET(YgooSrandomYlcg_rand,T25); lit_15 = YPPsym((P)"fab-random-from"); lit_16 = YPPlist(1,YPPsym((P)"seed")); T26 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YgooSrandomYLrandomG),Ynil); fun_fab_random_from_8 = YPfab_met(FUNCODEREF(fun_fab_random_from_8),T26,LITREF(lit_15),LITREF(lit_16),sloc(22),YPfalse); T28 = VARREF_OR(YgooSrandomYfab_random_from,YPfalse); T29 = fun_fab_random_from_8; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSrandomYfab_random_from,T27); lit_17 = YPPsym((P)"fab-random"); T30 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YgooSrandomYLrandomG),Ynil); fun_fab_random_9 = YPfab_met(FUNCODEREF(fun_fab_random_9),T30,LITREF(lit_17),LITREF(lit_1),sloc(39),YPfalse); T32 = VARREF_OR(YgooSrandomYfab_random,YPfalse); T33 = fun_fab_random_9; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSrandomYfab_random,T31); lit_18 = YPPsym((P)"random-29"); lit_19 = YPPlist(1,YPPsym((P)"r")); lit_20 = YPPsym((P)"tap"); lit_21 = YPPlist(1,YPPsym((P)"bit")); T35 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_tap_10 = YPfab_met(FUNCODEREF(fun_tap_10),T35,LITREF(lit_20),LITREF(lit_21),sloc(46),YPfalse); T34 = YPfab_sig(YPPlist(1,VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); YgooSrandomYrandom_29 = YPfab_met(FUNCODEREF(YgooSrandomYrandom_29),T34,LITREF(lit_18),LITREF(lit_19),sloc(42),YPfalse); T36 = YgooSrandomYrandom_29; VARSET(YgooSrandomYrandom_29,T36); T37 = XCALL0(1,VARREF(YgooSrandomYfab_random)); VARSET(YgooSrandomYDdefault_random,T37); lit_22 = YPPsym((P)"random"); lit_23 = YPPlist(1,YPPsym((P)"range")); T38 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_random_12 = YPfab_met(FUNCODEREF(fun_random_12),T38,LITREF(lit_22),LITREF(lit_23),sloc(56),YPfalse); T40 = VARREF_OR(YgooSrandomYrandom,YPfalse); T41 = fun_random_12; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSrandomYrandom,T39); lit_24 = YPPsym((P)"random-using"); lit_25 = YPPlist(2,YPPsym((P)"range"),YPPsym((P)"r")); T42 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); fun_random_using_13 = YPfab_met(FUNCODEREF(fun_random_using_13),T42,LITREF(lit_24),LITREF(lit_25),sloc(59),YPfalse); T44 = VARREF_OR(YgooSrandomYrandom_using,YPfalse); T45 = fun_random_using_13; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSrandomYrandom_using,T43); lit_26 = YPPsym((P)"random-unit"); T46 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLfloG),Ynil); fun_random_unit_14 = YPfab_met(FUNCODEREF(fun_random_unit_14),T46,LITREF(lit_26),LITREF(lit_1),sloc(71),YPfalse); T48 = VARREF_OR(YgooSrandomYrandom_unit,YPfalse); T49 = fun_random_unit_14; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSrandomYrandom_unit,T47); lit_27 = YPPsym((P)"random-unit-using"); lit_28 = YPPlist(1,YPPsym((P)"r")); T50 = YPfab_sig(YPPlist(1,VARREF(YgooSrandomYLrandomG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_random_unit_using_15 = YPfab_met(FUNCODEREF(fun_random_unit_using_15),T50,LITREF(lit_27),LITREF(lit_28),sloc(74),YPfalse); T52 = VARREF_OR(YgooSrandomYrandom_unit_using,YPfalse); T53 = fun_random_unit_using_15; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSrandomYrandom_unit_using,T51); T54 = YPfalse; return T54; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSsystem; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooSsystem}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"label-components", &module_info_gooSsystem, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"os-val", &module_info_gooSsystem, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSsystem, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"exe-filename", &module_info_gooSsystem, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"pathname-to-components", &module_info_gooSsystem, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*goo-personal-root*", &module_info_gooSsystem, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"*obj-extension*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"find-goo-file-in-path", &module_info_gooSsystem, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"components-to-pathname", &module_info_gooSsystem, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"parent-directory", &module_info_gooSsystem, NULL}, {"components-parent-directory", &module_info_gooSsystem, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"gooc-filename", &module_info_gooSsystem, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"*path-separator*", &module_info_gooSsystem, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-src-path", &module_info_gooSsystem, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"*goo-build-root*", &module_info_gooSsystem, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"file-copy", &module_info_gooSsystem, NULL}, {"os-name", &module_info_gooSsystem, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"%load", &module_info_gooSsystem, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"obj-filename", &module_info_gooSsystem, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"find-goo-file-at", &module_info_gooSsystem, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"%compile", &module_info_gooSsystem, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"add-build-path", &module_info_gooSsystem, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"c-filename", &module_info_gooSsystem, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"*exe-extension*", &module_info_gooSsystem, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"time", &module_info_gooSsystem, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"*c-extension*", &module_info_gooSsystem, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"process-id", &module_info_gooSsystem, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"file-type", &module_info_gooSsystem, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"add-tmp-path", &module_info_gooSsystem, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"*goo-extension*", &module_info_gooSsystem, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"components-basename", &module_info_gooSsystem, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*goo-root*", &module_info_gooSsystem, NULL}, {"", &module_info_gooSsystem, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"file-exists?", &module_info_gooSsystem, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"probe-directory", &module_info_gooSsystem, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"add-goo-personal-root-path", &module_info_gooSsystem, NULL}, {"*module-search-path*", &module_info_gooSsystem, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"components-last", &module_info_gooSsystem, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"add-goo-root-path", &module_info_gooSsystem, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"create-directory", &module_info_gooSsystem, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"so-load", &module_info_gooSsystem, NULL}, {"os-val-setter", &module_info_gooSsystem, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"goo-filename", &module_info_gooSsystem, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"hierarchical-components", &module_info_gooSsystem, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"file-mtime", &module_info_gooSsystem, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"random-unit", CVAR, &YgooSrandomYrandom_unit}, {"fab-random", CVAR, &YgooSrandomYfab_random}, {"recent-setter", CVAR, &YgooSrandomYrecent_setter}, {"random", CVAR, &YgooSrandomYrandom}, {"$default-random", CVAR, &YgooSrandomYDdefault_random}, {"", CVAR, &YgooSrandomYLrandomG}, {"lcg-rand", CVAR, &YgooSrandomYlcg_rand}, {"random-unit-using", CVAR, &YgooSrandomYrandom_unit_using}, {"recent-index-setter", CVAR, &YgooSrandomYrecent_index_setter}, {"$recent-size", CVAR, &YgooSrandomYDrecent_size}, {"recent", CVAR, &YgooSrandomYrecent}, {"---main-0---", PVAR, NULL}, {"fab-random-from", CVAR, &YgooSrandomYfab_random_from}, {"random-using", CVAR, &YgooSrandomYrandom_using}, {"random-29", CVAR, &YgooSrandomYrandom_29}, {"default-random-seed", CVAR, &YgooSrandomYdefault_random_seed}, {"recent-index", CVAR, &YgooSrandomYrecent_index}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"random-unit", NULL}, {"fab-random", NULL}, {"random", NULL}, {"random-unit-using", NULL}, {"random-using", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSrandom; MODULE_INFO module_info_gooSrandom = { "goo/random", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooSsystem (void); /* EXPRESSION: */ extern void load_module_gooSrandom (void); void load_module_gooSrandom (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooSsystem(); (P)YgooSrandomY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/runtime.c0100644000175000017500000023033007537733157015243 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/runtime"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/runtime */ EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YLclassG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Ygen_refs,"goo/boot","gen-refs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Yfun_refs,"goo/boot","fun-refs"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(Ytype_error,"goo/boot","type-error"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YLgenG,"goo/boot",""); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooSmathYeof_object,"goo/math","eof-object"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yas_error,"goo/boot","as-error"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YLstrG,"goo/boot",""); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); DEF(YgooSruntimeYboot_symbols,"goo/runtime","boot-symbols"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YLtupG,"goo/boot",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YOfold,"goo/boot","@fold"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSmathYto_digit,"goo/math","to-digit"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YLmetG,"goo/boot",""); EXT(YgooSmathYroundS,"goo/math","round/"); DEF(YgooSruntimeYTgensym_counterT,"goo/runtime","*gensym-counter*"); EXT(YLflatG,"goo/boot",""); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSmathYas_log,"goo/math","as-log"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YgooSmathYto_str,"goo/math","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(YgooSmathYE,"goo/math","="); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); DEF(YgooSruntimeYbooted_fab_sym,"goo/runtime","booted-fab-sym"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YPtnul,"goo/boot","%tnul"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YOlst,"goo/boot","@lst"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YLlstG,"goo/boot",""); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSclassYobject_class,"goo/class","object-class"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YLfunG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YLseqXG,"goo/boot",""); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSmacrosYemptyQ,"goo/macros","empty?"); EXT(YLseqG,"goo/boot",""); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Ytail,"goo/boot","tail"); EXT(Ytup,"goo/boot","tup"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(Ynil,"goo/boot","nil"); EXT(Ynul,"goo/boot","nul"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSmathYto_upper,"goo/math","to-upper"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLanyG,"goo/boot",""); EXT(YLsymG,"goo/boot",""); EXT(YLcolXG,"goo/boot",""); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YLsigG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YOallQ,"goo/boot","@all?"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YLcolIG,"goo/boot",""); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YLcolG,"goo/boot",""); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YgooSmathYeof_objectQ,"goo/math","eof-object?"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooStypesYas,"goo/types","as"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYlowerQ,"goo/math","lower?"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSmathYchar_Gascii,"goo/math","char->ascii"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSmathYLbotG,"goo/math",""); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooSmacrosYmatch_empty_list,"goo/macros","match-empty-list"); EXT(YLlocG,"goo/boot",""); EXT(YgooSmathYto_lower,"goo/math","to-lower"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Ylst,"goo/boot","lst"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YisaQ,"goo/boot","isa?"); DEF(YgooSruntimeYapp_args,"goo/runtime","app-args"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YLfloG,"goo/boot",""); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOemptyQ,"goo/boot","@@empty?"); DEF(YgooSruntimeYapp_filename,"goo/runtime","app-filename"); EXT(YLfixnumG,"goo/boot",""); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYdigitQ,"goo/math","digit?"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YOdo,"goo/boot","@do"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSmathYNEE,"goo/math","~=="); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLpropG,"goo/boot",""); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YLintG,"goo/boot",""); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); DEF(YgooSruntimeYcurry,"goo/runtime","curry"); EXT(YLnumG,"goo/boot",""); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSmathYround,"goo/math","round"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YLproductG,"goo/boot",""); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); DEF(YgooSruntimeYloc_val,"goo/runtime","loc-val"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); DEF(YgooSruntimeYloc_val_setter,"goo/runtime","loc-val-setter"); EXT(Yhead,"goo/boot","head"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YtT,"goo/boot","t*"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YPsnul,"goo/boot","%snul"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYupperQ,"goo/math","upper?"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); DEF(YgooSruntimeYidentity,"goo/runtime","identity"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); DEF(YgooSruntimeYrcurry,"goo/runtime","rcurry"); EXT(YLchrG,"goo/boot",""); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YLsubclassG,"goo/boot",""); DEF(YgooSruntimeYalways,"goo/runtime","always"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooSmathYalphaQ,"goo/math","alpha?"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); DEF(YgooSruntimeYsymbols,"goo/runtime","symbols"); EXT(YLmagG,"goo/boot",""); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYNE,"goo/math","~="); EXT(YgooSmathYS,"goo/math","/"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YOmap,"goo/boot","@map"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSmathYfabs,"goo/math","fabs"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(Yfun_src_setter,"goo/boot","fun-src-setter"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_name_setter,"goo/boot","fun-name-setter"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(Ygen_src_setter,"goo/boot","gen-src-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYaddress_of,"goo/math","address-of"); DEF(YgooSruntimeYcompose,"goo/runtime","compose"); EXT(Yerror,"goo/boot","error"); EXT(Yfun_src,"goo/boot","fun-src"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfun_name,"goo/boot","fun-name"); EXT(YgooSclassYobject_parents,"goo/class","object-parents"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YOcat2,"goo/boot","@cat2"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYA,"goo/math","+"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(Ygen_src,"goo/boot","gen-src"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YOnew,"goo/boot","@new"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YsubtypeQ,"goo/boot","subtype?"); DEF(YgooSruntimeYzipped,"goo/runtime","zipped"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YLoptsG,"goo/boot",""); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(Yobject_props,"goo/boot","object-props"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(YOrev,"goo/boot","@rev"); EXT(YgooSmathYK,"goo/math","|"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(Ysig_names_setter,"goo/boot","sig-names-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(Ysig_names,"goo/boot","sig-names"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYT,"goo/math","*"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_29); DEFLIT(lit_17); DEFLIT(lit_53); DEFLIT(lit_37); DEFLIT(lit_25); DEFLIT(lit_21); DEFLIT(lit_41); DEFLIT(lit_0); DEFLIT(lit_36); DEFLIT(lit_18); DEFLIT(lit_19); DEFLIT(lit_50); DEFLIT(lit_32); DEFLIT(lit_24); DEFLIT(lit_26); DEFLIT(lit_51); DEFLIT(lit_9); DEFLIT(lit_15); DEFLIT(lit_38); DEFLIT(lit_47); DEFLIT(lit_6); DEFLIT(lit_31); DEFLIT(lit_20); DEFLIT(lit_16); DEFLIT(lit_49); DEFLIT(lit_42); DEFLIT(lit_3); DEFLIT(lit_12); DEFLIT(lit_2); DEFLIT(lit_55); DEFLIT(lit_1); DEFLIT(lit_43); DEFLIT(lit_7); DEFLIT(lit_34); DEFLIT(lit_13); DEFLIT(lit_22); DEFLIT(lit_40); DEFLIT(lit_11); DEFLIT(lit_10); DEFLIT(lit_14); DEFLIT(lit_23); DEFLIT(lit_8); DEFLIT(lit_30); DEFLIT(lit_45); DEFLIT(lit_44); DEFLIT(lit_39); DEFLIT(lit_35); DEFLIT(lit_4); DEFLIT(lit_54); DEFLIT(lit_52); DEFLIT(lit_28); DEFLIT(lit_46); DEFLIT(lit_33); DEFLIT(lit_48); DEFLIT(lit_5); DEFLIT(lit_27); /* FUNCTIONS: */ FUNFOR(YgooSmacrosYmatch_empty_list); FUNFOR(YgooSmacrosYmatch_unquote); FUNFOR(YgooSmacrosYmatch_atom); FUNFOR(YgooSmacrosYmatch_sublist); LOCFOR(fun_4); LOCFOR(fun_cat_sym_5); LOCFOR(fun_gensym_6); LOCFOR(fun_fab_setter_name_7); LOCFOR(fun_var_name_8); LOCFOR(fun_var_name_9); LOCFOR(fun_var_type_10); LOCFOR(fun_var_type_11); LOCFOR(fun_identity_12); LOCFOR(fun_13); LOCFOR(fun_compose_14); LOCFOR(fun_15); LOCFOR(fun_rcurry_16); LOCFOR(fun_17); LOCFOR(fun_curry_18); LOCFOR(fun_19); LOCFOR(fun_always_20); LOCFOR(fun_21); LOCFOR(fun_zipped_22); FUNFOR(YgooSruntimeYloc_val); FUNFOR(YgooSruntimeYloc_val_setter); FUNFOR(YgooSruntimeYapp_filename); FUNFOR(YgooSruntimeYapp_args); FUNFOR(YgooSruntimeYbooted_fab_sym); FUNFOR(YgooSruntimeYboot_symbols); extern P YgooSruntimeY___main_0___ (); /* FUNCTION CODES: */ FUNCODEDEF(YgooSmacrosYmatch_empty_list) { P x_,fail_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(fail_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYemptyQ),x_); if (T1 != YPfalse) { T0 = x_; } else { T2 = CALL2(1,fail_,LITREF(lit_2),x_); T0 = T2; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_unquote) { P x_,fail_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(fail_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYemptyQ),x_); if (T1 != YPfalse) { T2 = CALL1(1,fail_,LITREF(lit_5)); T0 = T2; } else { T3 = CALL1(1,VARREF(Yhead),x_); T0 = T3; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_atom) { P x_,pat_,fail_; P expF3537; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); ARG(pat_, 1); ARG(fail_, 2); T1 = CALL1(1,VARREF(YgooSmacrosYemptyQ),x_); if (T1 != YPfalse) { T2 = CALL2(1,fail_,LITREF(lit_8),pat_); T0 = T2; } else { T7 = CALL1(1,VARREF(Yhead),x_); expF3537 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYEE),expF3537,pat_); if (T4 != YPfalse) { T5 = CALL1(1,VARREF(Ytail),x_); T3 = T5; } else { T6 = CALL3(1,fail_,LITREF(lit_9),expF3537,pat_); T3 = T6; } T0 = T3; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSmacrosYmatch_sublist) { P x_,fail_; P xF3538; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(fail_, 1); T3 = CALL1(1,VARREF(Yhead),x_); xF3538 = T3; T1 = CALL2(1,VARREF(YisaQ),xF3538,VARREF(YLlstG)); if (T1 != YPfalse) { T0 = xF3538; } else { T2 = CALL2(1,fail_,LITREF(lit_12),xF3538); T0 = T2; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_4) { P r_,e_; P T0,T1; LINK_STACK(); ARG(r_, 0); ARG(e_, 1); T1 = CALL1(1,VARREF(YgooSmathYto_str),e_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),r_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_cat_sym_5) { P x_; P T0,T1,T2; LINK_STACK(); NARGS(x_, 0); T2 = fun_4; T1 = CALL3(1,VARREF(YgooScolsScolYfold),T2,LITREF(lit_16),x_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_gensym_6) { P T0,T1,T2; LINK_STACK(); T2 = CALL2(1,VARREF(YgooSmathYA),VARREF(YgooSruntimeYTgensym_counterT),YPint((P)1)); T1 = VARSET(YgooSruntimeYTgensym_counterT,T2); T0 = CALL2(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_19),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_fab_setter_name_7) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYcat_sym),x_,LITREF(lit_22)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_var_name_8) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } FUNCODEDEF(fun_var_name_9) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)0)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_var_type_10) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(LITREF(lit_28)); } FUNCODEDEF(fun_var_type_11) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)1)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_identity_12) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(x_); } FUNCODEDEF(fun_13) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,args_); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_compose_14) { P fx_,fy_; P T0; LINK_STACK(); ARG(fx_, 0); ARG(fy_, 1); T0 = FUNFAB(fun_13,2,fy_,fx_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_15) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL3(1,VARREF(YgooSmacrosYcat),Ynil,args_,FREEREF(1)); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_rcurry_16) { P f_,curried_; P savedcurriedF3539; P T0,T1; LINK_STACK(); ARG(f_, 0); NARGS(curried_, 1); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),curried_); savedcurriedF3539 = T1; T0 = FUNFAB(fun_15,2,f_,savedcurriedF3539); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_17) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL3(1,VARREF(YgooSmacrosYcat),Ynil,FREEREF(1),args_); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_curry_18) { P f_,curried_; P savedcurriedF3540; P T0,T1; LINK_STACK(); ARG(f_, 0); NARGS(curried_, 1); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),curried_); savedcurriedF3540 = T1; T0 = FUNFAB(fun_17,2,f_,savedcurriedF3540); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_19) { P args_; LINK_STACK(); NARGS(args_, 0); UNLINK_STACK(); QRET(FREEREF(0)); } FUNCODEDEF(fun_always_20) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = FUNFAB(fun_19,1,x_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(fun_21) { P t_; P T0; LINK_STACK(); ARG(t_, 0); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),FREEREF(0),YPfalse,t_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(fun_zipped_22) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = FUNFAB(fun_21,1,x_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSruntimeYloc_val) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPloc_val(x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSruntimeYloc_val_setter) { P z_,x_; P T0; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); T0 = (P)YPloc_val_setter(z_,x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSruntimeYapp_filename) { P T0; LINK_STACK(); T0 = (P)YPapp_filename(); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSruntimeYapp_args) { P T0; LINK_STACK(); T0 = (P)YPapp_args(); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSruntimeYbooted_fab_sym) { P name_; P tmpF3541; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); T3 = CALL3(1,VARREF(YgooScolsScolYelt_or),VARREF(YgooSruntimeYsymbols),name_,YPfalse); tmpF3541 = T3; if (tmpF3541 != YPfalse) { T0 = tmpF3541; } else { T2 = CALL3(1,VARREF(Ynew),VARREF(YLsymG),VARREF(Ysym_name),name_); T1 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),T2,VARREF(YgooSruntimeYsymbols),name_); T0 = T1; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSruntimeYboot_symbols) { P symF3543; P symsF3542; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); symsF3542 = VARREF(YPsymbols); LOOP_149: { P a149_0; T2 = CALL1(1,VARREF(YgooSmacrosYemptyQ),symsF3542); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),symsF3542); symF3543 = T6; T3 = CALL1(1,VARREF(Ysym_name),symF3543); CALL3(1,VARREF(YgooScolsScolxYelt_setter),symF3543,VARREF(YgooSruntimeYsymbols),T3); T5 = CALL1(1,VARREF(Ytail),symsF3542); a149_0 = T5; symsF3542 = a149_0; goto LOOP_149; T0 = T4; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } P YgooSruntimeY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; DEFCREGS(); lit_0 = YPPsym((P)"match-empty-list"); lit_1 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fail")); lit_2 = YPsb((P)"Match Empty Failure of %="); T0 = YPsig(LITREF(lit_1),YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_empty_list = YPmet(FUNCODEREF(YgooSmacrosYmatch_empty_list),LITREF(lit_0),T0,ENVNUL,PNUL,sloc(44)); T1 = YgooSmacrosYmatch_empty_list; VARSET(YgooSmacrosYmatch_empty_list,T1); lit_3 = YPPsym((P)"match-unquote"); lit_4 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fail")); lit_5 = YPsb((P)"Match Failure Empty List on Unquote"); T2 = YPsig(LITREF(lit_4),YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_unquote = YPmet(FUNCODEREF(YgooSmacrosYmatch_unquote),LITREF(lit_3),T2,ENVNUL,PNUL,sloc(49)); T3 = YgooSmacrosYmatch_unquote; VARSET(YgooSmacrosYmatch_unquote,T3); lit_6 = YPPsym((P)"match-atom"); lit_7 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"pat"),YPPsym((P)"fail")); lit_8 = YPsb((P)"Match Failure Empty List on %="); lit_9 = YPsb((P)"Match Failure of %= on %="); T4 = YPsig(LITREF(lit_7),YPPlist(3,VARREF(YLlstG),VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_atom = YPmet(FUNCODEREF(YgooSmacrosYmatch_atom),LITREF(lit_6),T4,ENVNUL,PNUL,sloc(54)); T5 = YgooSmacrosYmatch_atom; VARSET(YgooSmacrosYmatch_atom,T5); lit_10 = YPPsym((P)"match-sublist"); lit_11 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fail")); lit_12 = YPsb((P)"Match Failure on Sub List on %="); T6 = YPsig(LITREF(lit_11),YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSmacrosYmatch_sublist = YPmet(FUNCODEREF(YgooSmacrosYmatch_sublist),LITREF(lit_10),T6,ENVNUL,PNUL,sloc(62)); T7 = YgooSmacrosYmatch_sublist; VARSET(YgooSmacrosYmatch_sublist,T7); lit_13 = YPPsym((P)"cat-sym"); lit_14 = YPPlist(1,YPPsym((P)"x")); lit_15 = YPPlist(2,YPPsym((P)"r"),YPPsym((P)"e")); lit_16 = YPsb((P)""); T9 = YPsig(LITREF(lit_15),YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_4 = YPmet(FUNCODEREF(fun_4),YPfalse,T9,ENVNUL,PNUL,sloc(69)); T8 = YPsig(LITREF(lit_14),Ynil,YPtrue,YPint((P)0),VARREF(YLsymG),Ynil); fun_cat_sym_5 = YPmet(FUNCODEREF(fun_cat_sym_5),LITREF(lit_13),T8,ENVNUL,PNUL,sloc(68)); T11 = VARREF_OR(YgooSmacrosYcat_sym,YPfalse); T12 = fun_cat_sym_5; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YgooSmacrosYcat_sym,T10); VARSET(YgooSruntimeYTgensym_counterT,YPint((P)1000)); lit_17 = YPPsym((P)"gensym"); lit_18 = Ynil; lit_19 = YPsb((P)"x-"); T13 = YPsig(LITREF(lit_18),Ynil,YPfalse,YPint((P)0),VARREF(YLsymG),Ynil); fun_gensym_6 = YPmet(FUNCODEREF(fun_gensym_6),LITREF(lit_17),T13,ENVNUL,PNUL,sloc(73)); T15 = VARREF_OR(YgooSmacrosYgensym,YPfalse); T16 = fun_gensym_6; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YgooSmacrosYgensym,T14); lit_20 = YPPsym((P)"fab-setter-name"); lit_21 = YPPlist(1,YPPsym((P)"x")); lit_22 = YPsb((P)"-setter"); T17 = YPsig(LITREF(lit_21),YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); fun_fab_setter_name_7 = YPmet(FUNCODEREF(fun_fab_setter_name_7),LITREF(lit_20),T17,ENVNUL,PNUL,sloc(76)); T19 = VARREF_OR(YgooSmacrosYfab_setter_name,YPfalse); T20 = fun_fab_setter_name_7; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YgooSmacrosYfab_setter_name,T18); lit_23 = YPPsym((P)"var-name"); lit_24 = YPPlist(1,YPPsym((P)"x")); T21 = YPsig(LITREF(lit_24),YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_name_8 = YPmet(FUNCODEREF(fun_var_name_8),LITREF(lit_23),T21,ENVNUL,PNUL,sloc(79)); T23 = VARREF_OR(YgooSmacrosYvar_name,YPfalse); T24 = fun_var_name_8; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YgooSmacrosYvar_name,T22); lit_25 = YPPlist(1,YPPsym((P)"x")); T25 = YPsig(LITREF(lit_25),YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_name_9 = YPmet(FUNCODEREF(fun_var_name_9),LITREF(lit_23),T25,ENVNUL,PNUL,sloc(81)); T27 = VARREF_OR(YgooSmacrosYvar_name,YPfalse); T28 = fun_var_name_9; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooSmacrosYvar_name,T26); lit_26 = YPPsym((P)"var-type"); lit_27 = YPPlist(1,YPPsym((P)"x")); lit_28 = YPPsym((P)""); T29 = YPsig(LITREF(lit_27),YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_type_10 = YPmet(FUNCODEREF(fun_var_type_10),LITREF(lit_26),T29,ENVNUL,PNUL,sloc(83)); T31 = VARREF_OR(YgooSmacrosYvar_type,YPfalse); T32 = fun_var_type_10; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooSmacrosYvar_type,T30); lit_29 = YPPlist(1,YPPsym((P)"x")); T33 = YPsig(LITREF(lit_29),YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_var_type_11 = YPmet(FUNCODEREF(fun_var_type_11),LITREF(lit_26),T33,ENVNUL,PNUL,sloc(85)); T35 = VARREF_OR(YgooSmacrosYvar_type,YPfalse); T36 = fun_var_type_11; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooSmacrosYvar_type,T34); lit_30 = YPPsym((P)"identity"); lit_31 = YPPlist(1,YPPsym((P)"x")); T37 = YPsig(LITREF(lit_31),YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_identity_12 = YPmet(FUNCODEREF(fun_identity_12),LITREF(lit_30),T37,ENVNUL,PNUL,sloc(89)); T39 = VARREF_OR(YgooSruntimeYidentity,YPfalse); T40 = fun_identity_12; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YgooSruntimeYidentity,T38); lit_32 = YPPsym((P)"compose"); lit_33 = YPPlist(2,YPPsym((P)"fx"),YPPsym((P)"fy")); lit_34 = YPPlist(1,YPPsym((P)"args")); T42 = YPsig(LITREF(lit_34),Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_13 = YPmet(FUNCODEREF(fun_13),YPfalse,T42,ENVNUL,PNUL,sloc(92)); T41 = YPsig(LITREF(lit_33),YPPlist(2,VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLfunG),Ynil); fun_compose_14 = YPmet(FUNCODEREF(fun_compose_14),LITREF(lit_32),T41,ENVNUL,PNUL,sloc(91)); T44 = VARREF_OR(YgooSruntimeYcompose,YPfalse); T45 = fun_compose_14; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSruntimeYcompose,T43); lit_35 = YPPsym((P)"rcurry"); lit_36 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"curried")); lit_37 = YPPlist(1,YPPsym((P)"args")); T47 = YPsig(LITREF(lit_37),Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_15 = YPmet(FUNCODEREF(fun_15),YPfalse,T47,ENVNUL,PNUL,sloc(100)); T46 = YPsig(LITREF(lit_36),YPPlist(1,VARREF(YLfunG)),YPtrue,YPint((P)1),VARREF(YLfunG),Ynil); fun_rcurry_16 = YPmet(FUNCODEREF(fun_rcurry_16),LITREF(lit_35),T46,ENVNUL,PNUL,sloc(98)); T49 = VARREF_OR(YgooSruntimeYrcurry,YPfalse); T50 = fun_rcurry_16; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YgooSruntimeYrcurry,T48); lit_38 = YPPsym((P)"curry"); lit_39 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"curried")); lit_40 = YPPlist(1,YPPsym((P)"args")); T52 = YPsig(LITREF(lit_40),Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_17 = YPmet(FUNCODEREF(fun_17),YPfalse,T52,ENVNUL,PNUL,sloc(104)); T51 = YPsig(LITREF(lit_39),YPPlist(1,VARREF(YLfunG)),YPtrue,YPint((P)1),VARREF(YLfunG),Ynil); fun_curry_18 = YPmet(FUNCODEREF(fun_curry_18),LITREF(lit_38),T51,ENVNUL,PNUL,sloc(102)); T54 = VARREF_OR(YgooSruntimeYcurry,YPfalse); T55 = fun_curry_18; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooSruntimeYcurry,T53); lit_41 = YPPsym((P)"always"); lit_42 = YPPlist(1,YPPsym((P)"x")); lit_43 = YPPlist(1,YPPsym((P)"args")); T57 = YPsig(LITREF(lit_43),Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_19 = YPmet(FUNCODEREF(fun_19),YPfalse,T57,ENVNUL,PNUL,sloc(107)); T56 = YPsig(LITREF(lit_42),YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_always_20 = YPmet(FUNCODEREF(fun_always_20),LITREF(lit_41),T56,ENVNUL,PNUL,sloc(106)); T59 = VARREF_OR(YgooSruntimeYalways,YPfalse); T60 = fun_always_20; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YgooSruntimeYalways,T58); lit_44 = YPPsym((P)"zipped"); lit_45 = YPPlist(1,YPPsym((P)"x")); lit_46 = YPPlist(1,YPPsym((P)"t")); T62 = YPsig(LITREF(lit_46),YPPlist(1,VARREF(YLtupG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_21 = YPmet(FUNCODEREF(fun_21),YPfalse,T62,ENVNUL,PNUL,sloc(110)); T61 = YPsig(LITREF(lit_45),YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_zipped_22 = YPmet(FUNCODEREF(fun_zipped_22),LITREF(lit_44),T61,ENVNUL,PNUL,sloc(109)); T64 = VARREF_OR(YgooSruntimeYzipped,YPfalse); T65 = fun_zipped_22; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooSruntimeYzipped,T63); lit_47 = YPPsym((P)"loc-val"); lit_48 = YPPlist(1,YPPsym((P)"x")); T66 = YPsig(LITREF(lit_48),YPPlist(1,VARREF(YLlocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSruntimeYloc_val = YPmet(FUNCODEREF(YgooSruntimeYloc_val),LITREF(lit_47),T66,ENVNUL,PNUL,sloc(117)); T67 = YgooSruntimeYloc_val; VARSET(YgooSruntimeYloc_val,T67); lit_49 = YPPsym((P)"loc-val-setter"); lit_50 = YPPlist(2,YPPsym((P)"z"),YPPsym((P)"x")); T68 = YPsig(LITREF(lit_50),YPPlist(2,VARREF(YLanyG),VARREF(YLlocG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSruntimeYloc_val_setter = YPmet(FUNCODEREF(YgooSruntimeYloc_val_setter),LITREF(lit_49),T68,ENVNUL,PNUL,sloc(120)); T69 = YgooSruntimeYloc_val_setter; VARSET(YgooSruntimeYloc_val_setter,T69); lit_51 = YPPsym((P)"app-filename"); T70 = YPsig(LITREF(lit_18),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSruntimeYapp_filename = YPmet(FUNCODEREF(YgooSruntimeYapp_filename),LITREF(lit_51),T70,ENVNUL,PNUL,sloc(125)); T71 = YgooSruntimeYapp_filename; VARSET(YgooSruntimeYapp_filename,T71); lit_52 = YPPsym((P)"app-args"); T72 = YPsig(LITREF(lit_18),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSruntimeYapp_args = YPmet(FUNCODEREF(YgooSruntimeYapp_args),LITREF(lit_52),T72,ENVNUL,PNUL,sloc(127)); T73 = YgooSruntimeYapp_args; VARSET(YgooSruntimeYapp_args,T73); T74 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsStabYLstr_tabG),YPint((P)10000)); VARSET(YgooSruntimeYsymbols,T74); lit_53 = YPPsym((P)"booted-fab-sym"); lit_54 = YPPlist(1,YPPsym((P)"name")); T75 = YPsig(LITREF(lit_54),YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSruntimeYbooted_fab_sym = YPmet(FUNCODEREF(YgooSruntimeYbooted_fab_sym),LITREF(lit_53),T75,ENVNUL,PNUL,sloc(131)); T76 = YgooSruntimeYbooted_fab_sym; VARSET(YgooSruntimeYbooted_fab_sym,T76); lit_55 = YPPsym((P)"boot-symbols"); T77 = YPsig(LITREF(lit_18),Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSruntimeYboot_symbols = YPmet(FUNCODEREF(YgooSruntimeYboot_symbols),LITREF(lit_55),T77,ENVNUL,PNUL,sloc(135)); T78 = YgooSruntimeYboot_symbols; VARSET(YgooSruntimeYboot_symbols,T78); XCALL0(1,VARREF(YgooSruntimeYboot_symbols)); VARSET(Yfab_sym,VARREF(YgooSruntimeYbooted_fab_sym)); T79 = YPfalse; return T79; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSapp; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSopts; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsStup; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSmag; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooSapp}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSopts}, {&module_info_gooScolsSlst}, {&module_info_gooScolsStup}, {&module_info_gooScolsSvec}, {&module_info_gooScolsStab}, {NULL} }; static IMPORT_INFO import_infos[] = { {"add-prop", &module_info_gooSclass, NULL}, {"match", &module_info_gooSmacros, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"gen-refs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"fun-refs", &module_info_gooSboot, NULL}, {"%fsin", &module_info_gooSboot, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"%os-name", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"", &module_info_gooScolsStab, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%file-type", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"%close-out-port", &module_info_gooSboot, NULL}, {"%puts", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"eof-object", &module_info_gooSmath, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"t?", &module_info_gooStypes, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"quote", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"%facos", &module_info_gooSboot, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {">", &module_info_gooSmag, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%force-out", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"%f/", &module_info_gooSboot, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"to-digit", &module_info_gooSmath, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"1-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%get", &module_info_gooSboot, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSmath, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"to-str", &module_info_gooSmath, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"=", &module_info_gooSmath, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"%f+", &module_info_gooSboot, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"object-class", &module_info_gooSclass, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"logn", &module_info_gooSmath, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"@empty?", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"%os-val", &module_info_gooSboot, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"fold+", &module_info_gooScolsScol, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%os-val-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"%close-in-port", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"%open-in-file", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"len", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"%im", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"empty?", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"%fsinh", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"nul", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"to-upper", &module_info_gooSmath, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"%create-directory", &module_info_gooSboot, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"mod", &module_info_gooSmath, NULL}, {"%flo-bits", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"%time", &module_info_gooSboot, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"ct", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"as", &module_info_gooStypes, NULL}, {"%peek", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"&", &module_info_gooSmath, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSmath, NULL}, {"max", &module_info_gooSmag, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"dss", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSmath, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"sin", &module_info_gooSmath, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"match-empty-list", &module_info_gooSmacros, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"to-lower", &module_info_gooSmath, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"~", &module_info_gooSmath, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"-", &module_info_gooSmath, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%fi2f", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"%current-in-port", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"%sig-names", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"@@empty?", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"if", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSmath, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"@do", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"~==", &module_info_gooSmath, NULL}, {"%fatan2", &module_info_gooSboot, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%ftan", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"%fsqrt", &module_info_gooSboot, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"round", &module_info_gooSmath, NULL}, {"not", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"div", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%open-out-file", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"esc", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"upper?", &module_info_gooSmath, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"%flog", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"%current-out-port", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%ready?", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"df", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"%file-exists?", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSmath, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"export", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"pow", &module_info_gooSmath, NULL}, {"d.", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSmath, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"%fcosh", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"dg", &module_info_gooSboot, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"%fatan", &module_info_gooSboot, NULL}, {"%f=", &module_info_gooSboot, NULL}, {"%f-", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"$e", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"log", &module_info_gooSmath, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fabs", &module_info_gooSmath, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"%gen-refs", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"fun-src-setter", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"or", &module_info_gooSmacros, NULL}, {"fun-name-setter", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"mif", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%put", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%ft", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"gen-src-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"fun-name", &module_info_gooSboot, NULL}, {"object-parents", &module_info_gooSclass, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"+", &module_info_gooSmath, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"%f<", &module_info_gooSboot, NULL}, {"gen-src", &module_info_gooSboot, NULL}, {"%ftanh", &module_info_gooSboot, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%fcos", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"object-props", &module_info_gooSboot, NULL}, {"%fpow", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%gen-src", &module_info_gooSboot, NULL}, {"%file-mtime", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"sig-names-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"%fasin", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"sig-names", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"%f*", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"while", &module_info_gooSmacros, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"boot-symbols", CVAR, &YgooSruntimeYboot_symbols}, {"*gensym-counter*", CVAR, &YgooSruntimeYTgensym_counterT}, {"booted-fab-sym", CVAR, &YgooSruntimeYbooted_fab_sym}, {"---main-0---", PVAR, NULL}, {"app-args", CVAR, &YgooSruntimeYapp_args}, {"app-filename", CVAR, &YgooSruntimeYapp_filename}, {"curry", CVAR, &YgooSruntimeYcurry}, {"loc-val", CVAR, &YgooSruntimeYloc_val}, {"loc-val-setter", CVAR, &YgooSruntimeYloc_val_setter}, {"identity", CVAR, &YgooSruntimeYidentity}, {"rcurry", CVAR, &YgooSruntimeYrcurry}, {"always", CVAR, &YgooSruntimeYalways}, {"symbols", CVAR, &YgooSruntimeYsymbols}, {"compose", CVAR, &YgooSruntimeYcompose}, {"zipped", CVAR, &YgooSruntimeYzipped}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"match-sublist", NULL}, {"always", NULL}, {"napp", NULL}, {"*gensym-counter*", NULL}, {"match-atom", NULL}, {"curry", NULL}, {"var-type", NULL}, {"match-unquote", NULL}, {"match-empty-list", NULL}, {"app-args", NULL}, {"rcurry", NULL}, {"var-name", NULL}, {"app-filename", NULL}, {"loc-val-setter", NULL}, {"fab-setter-name", NULL}, {"loc-val", NULL}, {"gensym", NULL}, {"compose", NULL}, {"zipped", NULL}, {"cat-sym", NULL}, {"identity", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSruntime; MODULE_INFO module_info_gooSruntime = { "goo/runtime", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooSapp (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSopts (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsStup (void); extern void load_module_gooScolsSvec (void); extern void load_module_gooScolsStab (void); /* EXPRESSION: */ extern void load_module_gooSruntime (void); void load_module_gooSruntime (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooSapp(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSopts(); load_module_gooScolsSlst(); load_module_gooScolsStup(); load_module_gooScolsSvec(); load_module_gooScolsStab(); (P)YgooSruntimeY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/sym.c0100644000175000017500000016757507756744554014422 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/sym"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/sym */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); DEF(YgooSsymYboot_symbols,"goo/sym","boot-symbols"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YgooSsymYsymbols,"goo/sym","symbols"); DEF(YgooSsymYbooted_fab_sym,"goo/sym","booted-fab-sym"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_1); DEFLIT(lit_3); DEFLIT(lit_0); DEFLIT(lit_2); /* FUNCTIONS: */ FUNFOR(YgooSsymYbooted_fab_sym); FUNFOR(YgooSsymYboot_symbols); extern P YgooSsymY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSsymYbooted_fab_sym) { P name_; P tmpF3625; P T0,T1,T2,T3; LINK_STACK(); ARG(name_, 0); T3 = CALL3(1,VARREF(YgooScolsScolYelt_or),VARREF(YgooSsymYsymbols),name_,YPfalse); tmpF3625 = T3; if (tmpF3625 != YPfalse) { T0 = tmpF3625; } else { T2 = CALL3(1,VARREF(Ynew),VARREF(YLsymG),VARREF(Ysym_name),name_); T1 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),T2,VARREF(YgooSsymYsymbols),name_); T0 = T1; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSsymYboot_symbols) { P symF3627; P symsF3626; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); symsF3626 = VARREF(YPsymbols); LOOP_149: { P a149_0; T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),symsF3626); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),symsF3626); symF3627 = T6; T3 = CALL1(1,VARREF(Ysym_name),symF3627); CALL3(1,VARREF(YgooScolsScolxYelt_setter),symF3627,VARREF(YgooSsymYsymbols),T3); T5 = CALL1(1,VARREF(Ytail),symsF3626); a149_0 = T5; symsF3626 = a149_0; goto LOOP_149; T0 = T4; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } P YgooSsymY___main_0___() { P T0,T1,T2,T3,T4,T5; DEFCREGS(); T0 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsStabYLstr_tabG),YPint((P)10000)); VARSET(YgooSsymYsymbols,T0); lit_0 = YPPsym((P)"booted-fab-sym"); lit_1 = YPPlist(1,YPPsym((P)"name")); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSsymYbooted_fab_sym = YPfab_met(FUNCODEREF(YgooSsymYbooted_fab_sym),T1,LITREF(lit_0),LITREF(lit_1),sloc(22),YPfalse); T2 = YgooSsymYbooted_fab_sym; VARSET(YgooSsymYbooted_fab_sym,T2); lit_2 = YPPsym((P)"boot-symbols"); lit_3 = Ynil; T3 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSsymYboot_symbols = YPfab_met(FUNCODEREF(YgooSsymYboot_symbols),T3,LITREF(lit_2),LITREF(lit_3),sloc(26),YPfalse); T4 = YgooSsymYboot_symbols; VARSET(YgooSsymYboot_symbols,T4); XCALL0(1,VARREF(YgooSsymYboot_symbols)); VARSET(Yfab_sym,VARREF(YgooSsymYbooted_fab_sym)); T5 = YPfalse; return T5; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSapp; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSopts; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsStup; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooSapp}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSopts}, {&module_info_gooScolsSlst}, {&module_info_gooScolsStup}, {&module_info_gooScolsSvec}, {&module_info_gooScolsStab}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"boot-symbols", CVAR, &YgooSsymYboot_symbols}, {"symbols", CVAR, &YgooSsymYsymbols}, {"booted-fab-sym", CVAR, &YgooSsymYbooted_fab_sym}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"sym-name", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSsym; MODULE_INFO module_info_gooSsym = { "goo/sym", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooSapp (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSopts (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsStup (void); extern void load_module_gooScolsSvec (void); extern void load_module_gooScolsStab (void); /* EXPRESSION: */ extern void load_module_gooSsym (void); void load_module_gooSsym (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooSapp(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSopts(); load_module_gooScolsSlst(); load_module_gooScolsStup(); load_module_gooScolsSvec(); load_module_gooScolsStab(); (P)YgooSsymY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/system.c0100644000175000017500000036422307756744554015123 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/system"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/system */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); DEF(YgooSsystemYlabel_components,"goo/system","label-components"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); DEF(YgooSsystemYos_val,"goo/system","os-val"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); DEF(YgooSsystemYLdirectory_errorG,"goo/system",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); DEF(YgooSsystemYTc_extensionT,"goo/system","*c-extension*"); DEF(YgooSsystemYexe_filename,"goo/system","exe-filename"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); DEF(YgooSsystemYpathname_to_components,"goo/system","pathname-to-components"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); DEF(YgooSsystemYTgoo_personal_rootT,"goo/system","*goo-personal-root*"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); DEF(YgooSsystemYTobj_extensionT,"goo/system","*obj-extension*"); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); DEF(YgooSsystemYfind_goo_file_in_path,"goo/system","find-goo-file-in-path"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); DEF(YgooSsystemYcomponents_to_pathname,"goo/system","components-to-pathname"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); DEF(YgooSsystemYcomponents_parent_directory,"goo/system","components-parent-directory"); DEF(YgooSsystemYparent_directory,"goo/system","parent-directory"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); DEF(YgooSsystemYgooc_filename,"goo/system","gooc-filename"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); DEF(YgooSsystemYadd_src_path,"goo/system","add-src-path"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); DEF(YgooSsystemYgoo_filenameQ,"goo/system","goo-filename?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); DEF(YgooSsystemYTgoo_build_rootT,"goo/system","*goo-build-root*"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); DEF(YgooSsystemYfile_copy,"goo/system","file-copy"); DEF(YgooSsystemYos_name,"goo/system","os-name"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YgooSsystemYgooc_filenameQ,"goo/system","gooc-filename?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); DEF(YgooSsystemYobj_filename,"goo/system","obj-filename"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); DEF(YgooSsystemYpathname_error,"goo/system","pathname-error"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); DEF(YgooSsystemYfind_goo_file_at,"goo/system","find-goo-file-at"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); DEF(YgooSsystemYadd_build_path,"goo/system","add-build-path"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); DEF(YgooSsystemYc_filename,"goo/system","c-filename"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSioSportYport_filename,"goo/io/port","port-filename"); DEF(YgooSsystemYTgooc_extensionT,"goo/system","*gooc-extension*"); DEF(YgooSsystemYTexe_extensionT,"goo/system","*exe-extension*"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); DEF(YgooSsystemYtime,"goo/system","time"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSioSportYport_line_setter,"goo/io/port","port-line-setter"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); DEF(YgooSsystemYTpath_separatorT,"goo/system","*path-separator*"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YgooSsystemYprocess_id,"goo/system","process-id"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); DEF(YgooSsystemYfile_type,"goo/system","file-type"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); DEF(YgooSsystemYadd_tmp_path,"goo/system","add-tmp-path"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); DEF(YgooSsystemYTgoo_extensionT,"goo/system","*goo-extension*"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); DEF(YgooSsystemYcomponents_basename,"goo/system","components-basename"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); DEF(YgooSsystemYfab_path,"goo/system","fab-path"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); DEF(YgooSsystemYTgoo_rootT,"goo/system","*goo-root*"); DEF(YgooSsystemYLpathname_errorG,"goo/system",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); DEF(YgooSsystemYfile_existsQ,"goo/system","file-exists?"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); DEF(YgooSsystemYprobe_directory,"goo/system","probe-directory"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); DEF(YgooSsystemYTmodule_search_pathT,"goo/system","*module-search-path*"); DEF(YgooSsystemYadd_goo_personal_root_path,"goo/system","add-goo-personal-root-path"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); DEF(YgooSsystemYcomponents_last,"goo/system","components-last"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); DEF(YgooSsystemYadd_goo_root_path,"goo/system","add-goo-root-path"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSioSportYport_index_setter,"goo/io/port","port-index-setter"); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); DEF(YgooSsystemYcreate_directory,"goo/system","create-directory"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); DEF(YgooSsystemYso_load,"goo/system","so-load"); DEF(YgooSsystemYos_val_setter,"goo/system","os-val-setter"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); DEF(YgooSsystemYgoo_filename,"goo/system","goo-filename"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); DEF(YgooSsystemYbase_path,"goo/system","base-path"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); DEF(YgooSsystemYdirectory_error,"goo/system","directory-error"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); DEF(YgooSsystemYhierarchical_components,"goo/system","hierarchical-components"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); DEF(YgooSsystemYfile_mtime,"goo/system","file-mtime"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_36); DEFLIT(lit_99); DEFLIT(lit_43); DEFLIT(lit_34); DEFLIT(lit_27); DEFLIT(lit_26); DEFLIT(lit_118); DEFLIT(lit_90); DEFLIT(lit_56); DEFLIT(lit_89); DEFLIT(lit_108); DEFLIT(lit_25); DEFLIT(lit_86); DEFLIT(lit_42); DEFLIT(lit_1); DEFLIT(lit_77); DEFLIT(lit_33); DEFLIT(lit_98); DEFLIT(lit_37); DEFLIT(lit_82); DEFLIT(lit_47); DEFLIT(lit_66); DEFLIT(lit_76); DEFLIT(lit_50); DEFLIT(lit_101); DEFLIT(lit_103); DEFLIT(lit_4); DEFLIT(lit_48); DEFLIT(lit_18); DEFLIT(lit_31); DEFLIT(lit_80); DEFLIT(lit_95); DEFLIT(lit_60); DEFLIT(lit_113); DEFLIT(lit_112); DEFLIT(lit_97); DEFLIT(lit_6); DEFLIT(lit_106); DEFLIT(lit_7); DEFLIT(lit_93); DEFLIT(lit_88); DEFLIT(lit_49); DEFLIT(lit_16); DEFLIT(lit_2); DEFLIT(lit_3); DEFLIT(lit_102); DEFLIT(lit_104); DEFLIT(lit_58); DEFLIT(lit_41); DEFLIT(lit_51); DEFLIT(lit_79); DEFLIT(lit_68); DEFLIT(lit_24); DEFLIT(lit_17); DEFLIT(lit_119); DEFLIT(lit_120); DEFLIT(lit_53); DEFLIT(lit_78); DEFLIT(lit_13); DEFLIT(lit_109); DEFLIT(lit_12); DEFLIT(lit_52); DEFLIT(lit_72); DEFLIT(lit_23); DEFLIT(lit_71); DEFLIT(lit_116); DEFLIT(lit_62); DEFLIT(lit_114); DEFLIT(lit_117); DEFLIT(lit_40); DEFLIT(lit_35); DEFLIT(lit_11); DEFLIT(lit_74); DEFLIT(lit_61); DEFLIT(lit_22); DEFLIT(lit_107); DEFLIT(lit_15); DEFLIT(lit_0); DEFLIT(lit_63); DEFLIT(lit_105); DEFLIT(lit_44); DEFLIT(lit_10); DEFLIT(lit_21); DEFLIT(lit_84); DEFLIT(lit_59); DEFLIT(lit_65); DEFLIT(lit_69); DEFLIT(lit_96); DEFLIT(lit_30); DEFLIT(lit_75); DEFLIT(lit_39); DEFLIT(lit_28); DEFLIT(lit_45); DEFLIT(lit_70); DEFLIT(lit_29); DEFLIT(lit_91); DEFLIT(lit_73); DEFLIT(lit_57); DEFLIT(lit_92); DEFLIT(lit_9); DEFLIT(lit_54); DEFLIT(lit_87); DEFLIT(lit_115); DEFLIT(lit_94); DEFLIT(lit_5); DEFLIT(lit_8); DEFLIT(lit_67); DEFLIT(lit_111); DEFLIT(lit_14); DEFLIT(lit_19); DEFLIT(lit_20); DEFLIT(lit_64); DEFLIT(lit_38); DEFLIT(lit_100); DEFLIT(lit_32); DEFLIT(lit_55); DEFLIT(lit_85); DEFLIT(lit_81); DEFLIT(lit_110); DEFLIT(lit_46); DEFLIT(lit_83); /* FUNCTIONS: */ FUNFOR(YgooSsystemYtime); LOCFOR(fun_os_name_1); LOCFOR(fun_os_val_2); LOCFOR(fun_os_val_setter_3); LOCFOR(fun_process_id_4); LOCFOR(fun_base_path_5); LOCFOR(fun_fab_path_6); LOCFOR(fun_add_src_path_7); LOCFOR(fun_add_goo_root_path_8); LOCFOR(fun_add_goo_personal_root_path_9); LOCFOR(fun_add_tmp_path_10); LOCFOR(fun_add_build_path_11); FUNFOR(YgooSsystemYgoo_filenameQ); FUNFOR(YgooSsystemYgoo_filename); FUNFOR(YgooSsystemYgooc_filenameQ); FUNFOR(YgooSsystemYgooc_filename); FUNFOR(YgooSsystemYc_filename); FUNFOR(YgooSsystemYobj_filename); FUNFOR(YgooSsystemYexe_filename); LOCFOR(fun_file_mtime_19); FUNFOR(YgooSsystemYfile_existsQ); FUNFOR(YgooSsystemYfile_type); FUNFOR(YgooSsystemYcreate_directory); LOCFOR(fun_23); LOCFOR(fun_24); LOCFOR(fun_25); LOCFOR(fun_26); LOCFOR(fun_file_copy_27); FUNFOR(YgooSsystemYso_load); FUNFOR(YgooSsystemYpathname_error); LOCFOR(fun_30); FUNFOR(YgooSsystemYpathname_to_components); LOCFOR(fun_32); FUNFOR(YgooSsystemYcomponents_to_pathname); FUNFOR(YgooSsystemYlabel_components); FUNFOR(YgooSsystemYhierarchical_components); FUNFOR(YgooSsystemYcomponents_last); FUNFOR(YgooSsystemYcomponents_basename); FUNFOR(YgooSsystemYcomponents_parent_directory); FUNFOR(YgooSsystemYparent_directory); FUNFOR(YgooSsystemYdirectory_error); LOCFOR(fun_ensure_41); FUNFOR(YgooSsystemYprobe_directory); FUNFOR(YgooSsystemYfind_goo_file_at); LOCFOR(fun_44); FUNFOR(YgooSsystemYfind_goo_file_in_path); extern P YgooSsystemY___main_0___ (); extern P YgooSsystemY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooSsystemYtime) { P tF3877; P xF3876; P xF3875; P T0,T1,T2; LINK_STACK(); T2 = (P)YgooSsystemYPtime(); xF3875 = T2; xF3876 = xF3875; tF3877 = (P)1; T1 = (P)YPiLL(xF3876,(P)2); T0 = (P)YPiv(T1,tF3877); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_os_name_1) { P T0,T1; LINK_STACK(); T1 = (P)YgooSsystemYPos_name(); T0 = (P)YPsb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_os_val_2) { P s_; P T0,T1,T2; LINK_STACK(); ARG(s_, 0); T2 = (P)YPsu(s_); T1 = (P)YgooSsystemYPos_val(T2); T0 = (P)YPsb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_os_val_setter_3) { P v_,s_; P T0,T1; LINK_STACK(); ARG(v_, 0); ARG(s_, 1); T0 = (P)YPsu(v_); T1 = (P)YPsu(s_); (P)YgooSsystemYPos_val_setter(T0,T1); UNLINK_STACK(); RET(v_); } LOCCODEDEF(fun_process_id_4) { P tF3880; P xF3879; P xF3878; P T0,T1,T2; LINK_STACK(); T2 = (P)YgooSsystemYPpid(); xF3878 = T2; xF3879 = xF3878; tF3880 = (P)1; T1 = (P)YPiLL(xF3879,(P)2); T0 = (P)YPiv(T1,tF3880); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_base_path_5) { P filename_; P iF3881; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(filename_, 0); T11 = CALL1(1,VARREF(YgooStypesYlen),filename_); T10 = CALL2(1,VARREF(YgooSmathY_),T11,YPint((P)1)); iF3881 = T10; LOOP_170: { P a170_0; T1 = CALL2(1,VARREF(YgooSmagYL),iF3881,YPint((P)0)); if (T1 != YPfalse) { T0 = LITREF(lit_15); } else { T4 = CALL2(1,VARREF(YgooSmacrosYelt),filename_,iF3881); T5 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSsystemYTpath_separatorT),YPint((P)0)); T3 = CALL2(1,VARREF(YgooSlogYE),T4,T5); if (T3 != YPfalse) { T7 = CALL2(1,VARREF(YgooSmathYA),iF3881,YPint((P)1)); T6 = CALL3(1,VARREF(YgooScolsSseqYsub),filename_,YPint((P)0),T7); T2 = T6; } else { T9 = CALL2(1,VARREF(YgooSmathY_),iF3881,YPint((P)1)); a170_0 = T9; iF3881 = a170_0; goto LOOP_170; T2 = T8; } T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fab_path_6) { P dirs_; P T0; LINK_STACK(); NARGS(dirs_, 0); T0 = CALL2(1,VARREF(YgooScolsSseqYjoin),dirs_,VARREF(YgooSsystemYTpath_separatorT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_src_path_7) { P relpath_; P T0; LINK_STACK(); ARG(relpath_, 0); T0 = CALL3(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_build_rootT),LITREF(lit_29),relpath_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_goo_root_path_8) { P relpath_; P T0; LINK_STACK(); ARG(relpath_, 0); T0 = CALL2(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_rootT),relpath_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_goo_personal_root_path_9) { P relpath_; P T0; LINK_STACK(); ARG(relpath_, 0); T0 = CALL2(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_personal_rootT),relpath_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_tmp_path_10) { P relpath_; P T0; LINK_STACK(); ARG(relpath_, 0); T0 = CALL3(1,VARREF(YgooSsystemYfab_path),LITREF(lit_15),LITREF(lit_36),relpath_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_build_path_11) { P builddir_,relpath_; P T0; LINK_STACK(); ARG(builddir_, 0); ARG(relpath_, 1); T0 = CALL4(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_build_rootT),LITREF(lit_39),builddir_,relpath_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYgoo_filenameQ) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooScolsSseqYsuffixQ),name_,VARREF(YgooSsystemYTgoo_extensionT)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYgoo_filename) { P name_; P T0,T1,T2; LINK_STACK(); ARG(name_, 0); T1 = CALL1(1,VARREF(YgooSsystemYgoo_filenameQ),name_); if (T1 != YPfalse) { T0 = name_; } else { T2 = CALL2(1,VARREF(YgooSmacrosYcat),name_,VARREF(YgooSsystemYTgoo_extensionT)); T0 = T2; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYgooc_filenameQ) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooScolsSseqYsuffixQ),name_,VARREF(YgooSsystemYTgooc_extensionT)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYgooc_filename) { P name_; P T0,T1,T2; LINK_STACK(); ARG(name_, 0); T1 = CALL1(1,VARREF(YgooSsystemYgooc_filenameQ),name_); if (T1 != YPfalse) { T0 = name_; } else { T2 = CALL2(1,VARREF(YgooSmacrosYcat),name_,VARREF(YgooSsystemYTgooc_extensionT)); T0 = T2; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYc_filename) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYcat),name_,VARREF(YgooSsystemYTc_extensionT)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYobj_filename) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYcat),name_,VARREF(YgooSsystemYTobj_extensionT)); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYexe_filename) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYcat),name_,VARREF(YgooSsystemYTexe_extensionT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_file_mtime_19) { P filename_; P T0,T1,T2; LINK_STACK(); ARG(filename_, 0); T2 = (P)YPsu(filename_); T1 = (P)YgooSsystemYPfile_mtime(T2); T0 = (P)YPfb(T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYfile_existsQ) { P filename_; P T0,T1; LINK_STACK(); ARG(filename_, 0); T1 = (P)YPsu(filename_); T0 = (P)YgooSsystemYPfile_existsQ(T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYfile_type) { P filename_; P T0,T1; LINK_STACK(); ARG(filename_, 0); T1 = (P)YPsu(filename_); T0 = (P)YgooSsystemYPfile_type(T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYcreate_directory) { P filename_; P T0,T1; LINK_STACK(); ARG(filename_, 0); T1 = (P)YPsu(filename_); T0 = (P)YgooSsystemYPcreate_directory(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_23) { P cF3882; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_out_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); LOOP_171: { T7 = BOXGET(FREEREF(2)); T6 = CALL1(1,VARREF(YgooSioSportYget),T7); cF3882 = T6; T3 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3882); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T4 = BOXGET(FREEREF(0)); CALL2(1,VARREF(YgooSioSportYput),T4,cF3882); goto LOOP_171; T1 = T5; } else { T1 = YPfalse; } } UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_24) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_25) { P dst_portF3883; P T0,T1,T2,T3,T4; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLfile_in_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); dst_portF3883 = YPfalse; dst_portF3883 = BOXFAB(dst_portF3883); T3 = FUNFAB(fun_23,3,dst_portF3883,FREEREF(2),FREEREF(0)); T4 = FUNFAB(fun_24,1,dst_portF3883); T2 = with_cleanup(T3,T4); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_26) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_file_copy_27) { P src_,dst_; P src_portF3884; P T0,T1,T2,T3; LINK_STACK(); ARG(src_, 0); ARG(dst_, 1); src_portF3884 = YPfalse; src_portF3884 = BOXFAB(src_portF3884); T2 = FUNFAB(fun_25,3,src_portF3884,src_,dst_); T3 = FUNFAB(fun_26,1,src_portF3884); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } FUNCODEDEF(YgooSsystemYso_load) { P name_; P T0,T1; LINK_STACK(); ARG(name_, 0); T1 = (P)YPsu(name_); T0 = (P)YgooSsystemYPload(T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSsystemYpathname_error) { P msg_,args_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),args_); T1 = CALL5(1,VARREF(Ynew),VARREF(YgooSsystemYLpathname_errorG),VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_30) { P component_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(component_, 0); T1 = CALL2(1,VARREF(YgooSlogYE),component_,LITREF(lit_15)); if (T1 != YPfalse) { T0 = LITREF(lit_77); } else { T3 = CALL2(1,VARREF(YgooSlogYE),component_,LITREF(lit_78)); if (T3 != YPfalse) { T2 = LITREF(lit_79); } else { T5 = CALL2(1,VARREF(YgooSlogYE),component_,LITREF(lit_80)); if (T5 != YPfalse) { T4 = LITREF(lit_81); } else { if (YPtrue != YPfalse) { T6 = component_; } else { T6 = YPfalse; } T4 = T6; } T2 = T4; } T0 = T2; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSsystemYpathname_to_components) { P pathname_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(pathname_, 0); T2 = pathname_; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),T2); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSsystemYpathname_error),LITREF(lit_75)); } else { } T6 = pathname_; T5 = CALL1(1,VARREF(YgooSmacrosYlast),T6); T7 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSsystemYTpath_separatorT),YPint((P)0)); T4 = CALL2(1,VARREF(YgooSmacrosYEE),T5,T7); if (T4 != YPfalse) { T10 = pathname_; T13 = pathname_; T12 = CALL1(1,VARREF(YgooStypesYlen),T13); T11 = CALL2(1,VARREF(YgooSmathY_),T12,YPint((P)1)); T9 = CALL3(1,VARREF(YgooScolsSseqYsub),T10,YPint((P)0),T11); T8 = pathname_ = T9; } else { } T15 = fun_30; T17 = pathname_; T18 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSsystemYTpath_separatorT),YPint((P)0)); T16 = CALL2(1,VARREF(YgooScolsSseqYsplit),T17,T18); T14 = CALL2(1,VARREF(YgooSmacrosYmap),T15,T16); UNLINK_STACK(); RET(T14); } LOCCODEDEF(fun_32) { P component_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(component_, 0); T1 = CALL2(1,VARREF(YgooSmacrosYEE),component_,LITREF(lit_77)); if (T1 != YPfalse) { T0 = LITREF(lit_15); } else { T3 = CALL2(1,VARREF(YgooSmacrosYEE),component_,LITREF(lit_79)); if (T3 != YPfalse) { T2 = LITREF(lit_86); } else { T5 = CALL2(1,VARREF(YgooSmacrosYEE),component_,LITREF(lit_81)); if (T5 != YPfalse) { T4 = LITREF(lit_87); } else { if (YPtrue != YPfalse) { T6 = component_; } else { T6 = YPfalse; } T4 = T6; } T2 = T4; } T0 = T2; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSsystemYcomponents_to_pathname) { P components_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(components_, 0); T0 = CALL1(1,VARREF(YgooSmacrosYnulQ),components_); if (T0 != YPfalse) { T1 = CALL1(1,VARREF(YgooSsystemYpathname_error),LITREF(lit_84)); } else { } T4 = fun_32; T3 = CALL2(1,VARREF(YgooSmacrosYmap),T4,components_); T2 = CALL2(1,VARREF(YgooScolsSseqYjoin),T3,VARREF(YgooSsystemYTpath_separatorT)); UNLINK_STACK(); RET(T2); } FUNCODEDEF(YgooSsystemYlabel_components) { P components_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(components_, 0); T2 = CALL1(1,VARREF(Yhead),components_); T1 = CALL2(1,VARREF(YisaQ),T2,VARREF(YLlstG)); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(Yhead),components_); T3 = CALL1(1,VARREF(Ylst),T4); T0 = T3; } else { T0 = Ynil; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYhierarchical_components) { P components_; P resultF3885; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(components_, 0); T4 = CALL1(1,VARREF(Yhead),components_); T3 = CALL2(1,VARREF(YisaQ),T4,VARREF(YLlstG)); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(Ytail),components_); T2 = T5; } else { T2 = components_; } resultF3885 = T2; T0 = CALL1(1,VARREF(YgooSmacrosYnulQ),resultF3885); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSsystemYpathname_error),LITREF(lit_92),components_); } else { } UNLINK_STACK(); RET(resultF3885); } FUNCODEDEF(YgooSsystemYcomponents_last) { P components_; P lastF3886; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(components_, 0); T4 = CALL1(1,VARREF(YgooStypesYlen),components_); T3 = CALL2(1,VARREF(YgooSmathY_),T4,YPint((P)1)); T2 = CALL2(1,VARREF(YgooSmacrosYelt),components_,T3); lastF3886 = T2; T0 = CALL2(1,VARREF(YisaQ),lastF3886,VARREF(YLlstG)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSsystemYpathname_error),LITREF(lit_95),components_); } else { } UNLINK_STACK(); QRET(lastF3886); } FUNCODEDEF(YgooSsystemYcomponents_basename) { P components_; P lastF3890; P countF3889; P hierF3888; P labelF3887; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(components_, 0); T12 = CALL1(1,VARREF(YgooSsystemYlabel_components),components_); labelF3887 = T12; T11 = CALL1(1,VARREF(YgooSsystemYhierarchical_components),components_); hierF3888 = T11; T10 = CALL1(1,VARREF(YgooStypesYlen),hierF3888); countF3889 = T10; T9 = CALL1(1,VARREF(YgooSsystemYcomponents_last),hierF3888); lastF3890 = T9; T1 = CALL2(1,VARREF(YisaQ),lastF3890,VARREF(YLstrG)); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T2 = CALL2(1,VARREF(YgooSsystemYpathname_error),LITREF(lit_98),components_); } else { } T4 = CALL2(1,VARREF(YgooSmacrosYEE),countF3889,YPint((P)1)); if (T4 != YPfalse) { T5 = CALL2(1,VARREF(YgooSmacrosYcat),labelF3887,LITREF(lit_99)); T3 = T5; } else { T8 = CALL2(1,VARREF(YgooSmathY_),countF3889,YPint((P)1)); T7 = CALL3(1,VARREF(YgooScolsSseqYsub),hierF3888,YPint((P)0),T8); T6 = CALL2(1,VARREF(YgooSmacrosYcat),labelF3887,T7); T3 = T6; } UNLINK_STACK(); RET(T3); } FUNCODEDEF(YgooSsystemYcomponents_parent_directory) { P components_; P lastF3891; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(components_, 0); T8 = CALL1(1,VARREF(YgooSsystemYcomponents_last),components_); lastF3891 = T8; T1 = CALL2(1,VARREF(YisaQ),lastF3891,VARREF(YLstrG)); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSsystemYcomponents_basename),components_); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),lastF3891,LITREF(lit_77)); if (T4 != YPfalse) { T5 = CALL1(1,VARREF(YgooSsystemYpathname_error),LITREF(lit_102)); T3 = T5; } else { if (YPtrue != YPfalse) { T7 = CALL2(1,VARREF(YgooSmacrosYcat),components_,LITREF(lit_103)); T6 = T7; } else { T6 = YPfalse; } T3 = T6; } T0 = T3; } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYparent_directory) { P name_; P componentsF3892; P T0,T1,T2; LINK_STACK(); ARG(name_, 0); T2 = CALL1(1,VARREF(YgooSsystemYpathname_to_components),name_); componentsF3892 = T2; T1 = CALL1(1,VARREF(YgooSsystemYcomponents_parent_directory),componentsF3892); T0 = CALL1(1,VARREF(YgooSsystemYcomponents_to_pathname),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooSsystemYdirectory_error) { P msg_,name_; P T0,T1,T2; LINK_STACK(); ARG(msg_, 0); ARG(name_, 1); T2 = CALL1(1,VARREF(Ylst),name_); T1 = CALLN(1,VARREF(Ynew),7,VARREF(YgooSsystemYLdirectory_errorG),VARREF(YgooSconditionsYfile_opening_error_filename),name_,VARREF(YgooSconditionsYcondition_message),msg_,VARREF(YgooSconditionsYcondition_arguments),T2); T0 = CALL1(1,VARREF(YgooSconditionsYsig),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ensure_41) { P c_; P nF3893; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(c_, 0); T15 = CALL2(1,VARREF(YgooSmacrosYcat),FREEREF(0),c_); T14 = CALL1(1,VARREF(YgooSsystemYcomponents_to_pathname),T15); nF3893 = T14; T1 = CALL1(1,VARREF(YgooSsystemYfile_existsQ),nF3893); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooSsystemYfile_type),nF3893); T4 = CALL2(1,VARREF(YgooSmacrosYEE),T5,LITREF(lit_113)); T3 = CALL1(1,VARREF(Ynot),T4); if (T3 != YPfalse) { T6 = CALL2(1,VARREF(YgooSsystemYdirectory_error),LITREF(lit_114),nF3893); T2 = T6; } else { T2 = YPfalse; } T0 = T2; } else { T9 = CALL1(1,VARREF(YgooSsystemYcomponents_last),c_); T8 = CALL2(1,VARREF(YisaQ),T9,VARREF(YLstrG)); if (T8 != YPfalse) { T10 = CALL1(1,VARREF(YgooSsystemYcomponents_basename),c_); CALL1(0,FREEREF(1),T10); T11 = CALL1(1,VARREF(YgooSsystemYcreate_directory),nF3893); T7 = T11; } else { if (YPtrue != YPfalse) { T13 = CALL2(1,VARREF(YgooSsystemYdirectory_error),LITREF(lit_115),nF3893); T12 = T13; } else { T12 = YPfalse; } T7 = T12; } T0 = T7; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSsystemYprobe_directory) { P name_; P ensureF3897; P hierF3896; P labelF3895; P componentsF3894; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(name_, 0); T4 = CALL1(1,VARREF(YgooSsystemYpathname_to_components),name_); componentsF3894 = T4; T3 = CALL1(1,VARREF(YgooSsystemYlabel_components),componentsF3894); labelF3895 = T3; T2 = CALL1(1,VARREF(YgooSsystemYhierarchical_components),componentsF3894); hierF3896 = T2; T1 = FUNSHELL(1,fun_ensure_41,2); ensureF3897 = T1; FUNINIT(ensureF3897, 2,labelF3895,ensureF3897); T0 = CALL1(1,ensureF3897,hierF3896); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YgooSsystemYfind_goo_file_at) { P fname_,path_; P gooc_foundF3902; P goo_foundF3901; P gooc_fileF3900; P goo_fileF3899; P base_fileF3898; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(fname_, 0); ARG(path_, 1); T19 = CALL2(1,VARREF(YgooSsystemYfab_path),path_,fname_); base_fileF3898 = T19; T18 = CALL1(1,VARREF(YgooSsystemYgoo_filename),base_fileF3898); goo_fileF3899 = T18; T17 = CALL1(1,VARREF(YgooSsystemYgooc_filename),base_fileF3898); gooc_fileF3900 = T17; T16 = CALL1(1,VARREF(YgooSsystemYfile_existsQ),goo_fileF3899); goo_foundF3901 = T16; T15 = CALL1(1,VARREF(YgooSsystemYfile_existsQ),gooc_fileF3900); gooc_foundF3902 = T15; T2 = CALL1(1,VARREF(YgooSsystemYgoo_filenameQ),base_fileF3898); if (T2 != YPfalse) { T1 = goo_foundF3901; } else { T1 = YPfalse; } if (T1 != YPfalse) { T0 = goo_fileF3899; } else { T5 = CALL1(1,VARREF(YgooSsystemYgooc_filenameQ),base_fileF3898); if (T5 != YPfalse) { T4 = gooc_foundF3902; } else { T4 = YPfalse; } if (T4 != YPfalse) { T3 = gooc_fileF3900; } else { if (goo_foundF3901 != YPfalse) { T7 = gooc_foundF3902; } else { T7 = YPfalse; } if (T7 != YPfalse) { T10 = CALL1(1,VARREF(YgooSsystemYfile_mtime),goo_fileF3899); T11 = CALL1(1,VARREF(YgooSsystemYfile_mtime),gooc_fileF3900); T9 = CALL2(1,VARREF(YgooSmagYG),T10,T11); if (T9 != YPfalse) { T8 = goo_fileF3899; } else { T8 = gooc_fileF3900; } T6 = T8; } else { if (gooc_foundF3902 != YPfalse) { T12 = gooc_fileF3900; } else { if (goo_foundF3901 != YPfalse) { T13 = goo_fileF3899; } else { if (YPtrue != YPfalse) { T14 = YPfalse; } else { T14 = YPfalse; } T13 = T14; } T12 = T13; } T6 = T12; } T3 = T6; } T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_44) { P return_; P fileF3905; P pathF3904; P x_1474F3903; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(return_, 0); T8 = CALL1(1,VARREF(YgooScolsScolYenum),FREEREF(0)); x_1474F3903 = T8; LOOP_172: { P a172_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1474F3903); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnow),x_1474F3903); pathF3904 = T7; T6 = CALL2(1,VARREF(YgooSsystemYfind_goo_file_at),FREEREF(1),pathF3904); fileF3905 = T6; if (fileF3905 != YPfalse) { T3 = CALL1(0,return_,fileF3905); } else { } T5 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1474F3903); a172_0 = T5; x_1474F3903 = a172_0; goto LOOP_172; T0 = T4; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YgooSsystemYfind_goo_file_in_path) { P fname_,search_paths_; P T0,T1; LINK_STACK(); ARG(fname_, 0); ARG(search_paths_, 1); T1 = FUNFAB(fun_44,2,search_paths_,fname_); T0 = with_exit(T1); UNLINK_STACK(); RET(T0); } P YgooSsystemY___main_0___() { P env_rootF3907; P env_rootF3906; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91; DEFCREGS(); lit_0 = YPPsym((P)"time"); lit_1 = Ynil; T0 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooSsystemYtime = YPfab_met(FUNCODEREF(YgooSsystemYtime),T0,LITREF(lit_0),LITREF(lit_1),sloc(22),YPfalse); T1 = YgooSsystemYtime; VARSET(YgooSsystemYtime,T1); lit_2 = YPPsym((P)"os-name"); T2 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLstrG),Ynil); fun_os_name_1 = YPfab_met(FUNCODEREF(fun_os_name_1),T2,LITREF(lit_2),LITREF(lit_1),sloc(35),YPfalse); T4 = VARREF_OR(YgooSsystemYos_name,YPfalse); T5 = fun_os_name_1; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooSsystemYos_name,T3); lit_3 = YPPsym((P)"os-val"); lit_4 = YPPlist(1,YPPsym((P)"s")); T6 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_os_val_2 = YPfab_met(FUNCODEREF(fun_os_val_2),T6,LITREF(lit_3),LITREF(lit_4),sloc(40),YPfalse); T8 = VARREF_OR(YgooSsystemYos_val,YPfalse); T9 = fun_os_val_2; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSsystemYos_val,T7); lit_5 = YPPsym((P)"os-val-setter"); lit_6 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"s")); T10 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_os_val_setter_3 = YPfab_met(FUNCODEREF(fun_os_val_setter_3),T10,LITREF(lit_5),LITREF(lit_6),sloc(44),YPfalse); T12 = VARREF_OR(YgooSsystemYos_val_setter,YPfalse); T13 = fun_os_val_setter_3; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSsystemYos_val_setter,T11); lit_7 = YPPsym((P)"process-id"); T14 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_process_id_4 = YPfab_met(FUNCODEREF(fun_process_id_4),T14,LITREF(lit_7),LITREF(lit_1),sloc(59),YPfalse); T16 = VARREF_OR(YgooSsystemYprocess_id,YPfalse); T17 = fun_process_id_4; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSsystemYprocess_id,T15); lit_8 = YPsb((P)"linux"); lit_9 = YPsb((P)"/"); lit_10 = YPsb((P)"win32"); lit_11 = YPsb((P)"\\"); lit_12 = YPsb((P)"/"); T20 = XCALL0(1,VARREF(YgooSsystemYos_name)); T19 = XCALL2(1,VARREF(YgooSlogYE),T20,LITREF(lit_8)); if (T19 != YPfalse) { T18 = LITREF(lit_9); } else { T23 = XCALL0(1,VARREF(YgooSsystemYos_name)); T22 = XCALL2(1,VARREF(YgooSlogYE),T23,LITREF(lit_10)); if (T22 != YPfalse) { T21 = LITREF(lit_11); } else { if (YPtrue != YPfalse) { T24 = LITREF(lit_12); } else { T24 = YPfalse; } T21 = T24; } T18 = T21; } VARSET(YgooSsystemYTpath_separatorT,T18); lit_13 = YPPsym((P)"base-path"); lit_14 = YPPlist(1,YPPsym((P)"filename")); lit_15 = YPsb((P)""); T25 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_base_path_5 = YPfab_met(FUNCODEREF(fun_base_path_5),T25,LITREF(lit_13),LITREF(lit_14),sloc(77),YPfalse); T27 = VARREF_OR(YgooSsystemYbase_path,YPfalse); T28 = fun_base_path_5; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooSsystemYbase_path,T26); lit_16 = YPPsym((P)"fab-path"); lit_17 = YPPlist(1,YPPsym((P)"dirs")); T29 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLstrG),Ynil); fun_fab_path_6 = YPfab_met(FUNCODEREF(fun_fab_path_6),T29,LITREF(lit_16),LITREF(lit_17),sloc(86),YPfalse); T31 = VARREF_OR(YgooSsystemYfab_path,YPfalse); T32 = fun_fab_path_6; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooSsystemYfab_path,T30); lit_18 = YPsb((P)"GOO_ROOT"); T37 = XCALL1(1,VARREF(YgooSsystemYos_val),LITREF(lit_18)); env_rootF3906 = T37; T34 = XCALL1(1,VARREF(YgooSmacrosYnulQ),env_rootF3906); if (T34 != YPfalse) { T36 = (P)YgooSsystemYPdefault_goo_root(); T35 = (P)YPsb(T36); T33 = T35; } else { T33 = env_rootF3906; } VARSET(YgooSsystemYTgoo_rootT,T33); lit_19 = YPsb((P)"HOME"); lit_20 = YPsb((P)".goo"); T39 = XCALL1(1,VARREF(YgooSsystemYos_val),LITREF(lit_19)); T38 = XCALL2(1,VARREF(YgooSsystemYfab_path),T39,LITREF(lit_20)); VARSET(YgooSsystemYTgoo_personal_rootT,T38); lit_21 = YPsb((P)"mods"); lit_22 = YPsb((P)"local"); lit_23 = YPsb((P)"mods"); lit_24 = YPsb((P)"mods"); T41 = XCALL2(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_personal_rootT),LITREF(lit_21)); T42 = XCALL3(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_rootT),LITREF(lit_22),LITREF(lit_23)); T43 = XCALL2(1,VARREF(YgooSsystemYfab_path),VARREF(YgooSsystemYTgoo_rootT),LITREF(lit_24)); T40 = XCALL4(1,VARREF(Ylst),LITREF(lit_15),T41,T42,T43); VARSET(YgooSsystemYTmodule_search_pathT,T40); lit_25 = YPsb((P)"GOO_BUILD_ROOT"); lit_26 = YPsb((P)"."); T46 = XCALL1(1,VARREF(YgooSsystemYos_val),LITREF(lit_25)); env_rootF3907 = T46; T45 = XCALL1(1,VARREF(YgooSmacrosYnulQ),env_rootF3907); if (T45 != YPfalse) { T44 = LITREF(lit_26); } else { T44 = env_rootF3907; } VARSET(YgooSsystemYTgoo_build_rootT,T44); lit_27 = YPPsym((P)"add-src-path"); lit_28 = YPPlist(1,YPPsym((P)"relpath")); lit_29 = YPsb((P)"src"); T47 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_add_src_path_7 = YPfab_met(FUNCODEREF(fun_add_src_path_7),T47,LITREF(lit_27),LITREF(lit_28),sloc(111),YPfalse); T49 = VARREF_OR(YgooSsystemYadd_src_path,YPfalse); T50 = fun_add_src_path_7; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YgooSsystemYadd_src_path,T48); lit_30 = YPPsym((P)"add-goo-root-path"); lit_31 = YPPlist(1,YPPsym((P)"relpath")); T51 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_add_goo_root_path_8 = YPfab_met(FUNCODEREF(fun_add_goo_root_path_8),T51,LITREF(lit_30),LITREF(lit_31),sloc(114),YPfalse); T53 = VARREF_OR(YgooSsystemYadd_goo_root_path,YPfalse); T54 = fun_add_goo_root_path_8; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YgooSsystemYadd_goo_root_path,T52); lit_32 = YPPsym((P)"add-goo-personal-root-path"); lit_33 = YPPlist(1,YPPsym((P)"relpath")); T55 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_add_goo_personal_root_path_9 = YPfab_met(FUNCODEREF(fun_add_goo_personal_root_path_9),T55,LITREF(lit_32),LITREF(lit_33),sloc(117),YPfalse); T57 = VARREF_OR(YgooSsystemYadd_goo_personal_root_path,YPfalse); T58 = fun_add_goo_personal_root_path_9; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YgooSsystemYadd_goo_personal_root_path,T56); lit_34 = YPPsym((P)"add-tmp-path"); lit_35 = YPPlist(1,YPPsym((P)"relpath")); lit_36 = YPsb((P)"tmp"); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_add_tmp_path_10 = YPfab_met(FUNCODEREF(fun_add_tmp_path_10),T59,LITREF(lit_34),LITREF(lit_35),sloc(121),YPfalse); T61 = VARREF_OR(YgooSsystemYadd_tmp_path,YPfalse); T62 = fun_add_tmp_path_10; T60 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T61,T62); VARSET(YgooSsystemYadd_tmp_path,T60); lit_37 = YPPsym((P)"add-build-path"); lit_38 = YPPlist(2,YPPsym((P)"builddir"),YPPsym((P)"relpath")); lit_39 = YPsb((P)"c"); T63 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_add_build_path_11 = YPfab_met(FUNCODEREF(fun_add_build_path_11),T63,LITREF(lit_37),LITREF(lit_38),sloc(124),YPfalse); T65 = VARREF_OR(YgooSsystemYadd_build_path,YPfalse); T66 = fun_add_build_path_11; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YgooSsystemYadd_build_path,T64); lit_40 = YPsb((P)".goo"); VARSET(YgooSsystemYTgoo_extensionT,LITREF(lit_40)); lit_41 = YPsb((P)".gooc"); VARSET(YgooSsystemYTgooc_extensionT,LITREF(lit_41)); lit_42 = YPsb((P)".c"); VARSET(YgooSsystemYTc_extensionT,LITREF(lit_42)); lit_43 = YPsb((P)".o"); VARSET(YgooSsystemYTobj_extensionT,LITREF(lit_43)); VARSET(YgooSsystemYTexe_extensionT,LITREF(lit_15)); lit_44 = YPPsym((P)"goo-filename?"); lit_45 = YPPlist(1,YPPsym((P)"name")); T67 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YgooSsystemYgoo_filenameQ = YPfab_met(FUNCODEREF(YgooSsystemYgoo_filenameQ),T67,LITREF(lit_44),LITREF(lit_45),sloc(133),YPfalse); T68 = YgooSsystemYgoo_filenameQ; VARSET(YgooSsystemYgoo_filenameQ,T68); lit_46 = YPPsym((P)"goo-filename"); lit_47 = YPPlist(1,YPPsym((P)"name")); T69 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYgoo_filename = YPfab_met(FUNCODEREF(YgooSsystemYgoo_filename),T69,LITREF(lit_46),LITREF(lit_47),sloc(136),YPfalse); T70 = YgooSsystemYgoo_filename; VARSET(YgooSsystemYgoo_filename,T70); lit_48 = YPPsym((P)"gooc-filename?"); lit_49 = YPPlist(1,YPPsym((P)"name")); T71 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YgooSsystemYgooc_filenameQ = YPfab_met(FUNCODEREF(YgooSsystemYgooc_filenameQ),T71,LITREF(lit_48),LITREF(lit_49),sloc(139),YPfalse); T72 = YgooSsystemYgooc_filenameQ; VARSET(YgooSsystemYgooc_filenameQ,T72); lit_50 = YPPsym((P)"gooc-filename"); lit_51 = YPPlist(1,YPPsym((P)"name")); T73 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYgooc_filename = YPfab_met(FUNCODEREF(YgooSsystemYgooc_filename),T73,LITREF(lit_50),LITREF(lit_51),sloc(142),YPfalse); T74 = YgooSsystemYgooc_filename; VARSET(YgooSsystemYgooc_filename,T74); lit_52 = YPPsym((P)"c-filename"); lit_53 = YPPlist(1,YPPsym((P)"name")); T75 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYc_filename = YPfab_met(FUNCODEREF(YgooSsystemYc_filename),T75,LITREF(lit_52),LITREF(lit_53),sloc(145),YPfalse); T76 = YgooSsystemYc_filename; VARSET(YgooSsystemYc_filename,T76); lit_54 = YPPsym((P)"obj-filename"); lit_55 = YPPlist(1,YPPsym((P)"name")); T77 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYobj_filename = YPfab_met(FUNCODEREF(YgooSsystemYobj_filename),T77,LITREF(lit_54),LITREF(lit_55),sloc(148),YPfalse); T78 = YgooSsystemYobj_filename; VARSET(YgooSsystemYobj_filename,T78); lit_56 = YPPsym((P)"exe-filename"); lit_57 = YPPlist(1,YPPsym((P)"name")); T79 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYexe_filename = YPfab_met(FUNCODEREF(YgooSsystemYexe_filename),T79,LITREF(lit_56),LITREF(lit_57),sloc(151),YPfalse); T80 = YgooSsystemYexe_filename; VARSET(YgooSsystemYexe_filename,T80); lit_58 = YPPsym((P)"file-mtime"); lit_59 = YPPlist(1,YPPsym((P)"filename")); T81 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLfloG),Ynil); fun_file_mtime_19 = YPfab_met(FUNCODEREF(fun_file_mtime_19),T81,LITREF(lit_58),LITREF(lit_59),sloc(191),YPfalse); T83 = VARREF_OR(YgooSsystemYfile_mtime,YPfalse); T84 = fun_file_mtime_19; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YgooSsystemYfile_mtime,T82); lit_60 = YPPsym((P)"file-exists?"); lit_61 = YPPlist(1,YPPsym((P)"filename")); T85 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); YgooSsystemYfile_existsQ = YPfab_met(FUNCODEREF(YgooSsystemYfile_existsQ),T85,LITREF(lit_60),LITREF(lit_61),sloc(196),YPfalse); T86 = YgooSsystemYfile_existsQ; VARSET(YgooSsystemYfile_existsQ,T86); lit_62 = YPPsym((P)"file-type"); lit_63 = YPPlist(1,YPPsym((P)"filename")); T89 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLsymG),Ynil); T88 = YgooSsystemYfile_type = YPfab_met(FUNCODEREF(YgooSsystemYfile_type),T89,LITREF(lit_62),LITREF(lit_63),sloc(201),YPfalse); T91 = YgooSsystemYfile_type; T90 = VARSET(YgooSsystemYfile_type,T91); T87 = T90; return T87; } P YgooSsystemY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49; DEFCREGS(); lit_64 = YPPsym((P)"create-directory"); lit_65 = YPPlist(1,YPPsym((P)"filename")); T0 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSsystemYcreate_directory = YPfab_met(FUNCODEREF(YgooSsystemYcreate_directory),T0,LITREF(lit_64),LITREF(lit_65),sloc(208),YPfalse); T1 = YgooSsystemYcreate_directory; VARSET(YgooSsystemYcreate_directory,T1); lit_66 = YPPsym((P)"file-copy"); lit_67 = YPPlist(2,YPPsym((P)"src"),YPPsym((P)"dst")); T6 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_23 = YPfab_met(FUNCODEREF(fun_23),T6,YPfalse,LITREF(lit_1),sloc(213),YPfalse); T5 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T5,YPfalse,LITREF(lit_1),sloc(213),YPfalse); T4 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_25 = YPfab_met(FUNCODEREF(fun_25),T4,YPfalse,LITREF(lit_1),sloc(212),YPfalse); T3 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_26 = YPfab_met(FUNCODEREF(fun_26),T3,YPfalse,LITREF(lit_1),sloc(212),YPfalse); T2 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_file_copy_27 = YPfab_met(FUNCODEREF(fun_file_copy_27),T2,LITREF(lit_66),LITREF(lit_67),sloc(211),YPfalse); T8 = VARREF_OR(YgooSsystemYfile_copy,YPfalse); T9 = fun_file_copy_27; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSsystemYfile_copy,T7); lit_68 = YPPsym((P)"so-load"); lit_69 = YPPlist(1,YPPsym((P)"name")); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSsystemYso_load = YPfab_met(FUNCODEREF(YgooSsystemYso_load),T10,LITREF(lit_68),LITREF(lit_69),sloc(223),YPfalse); T11 = YgooSsystemYso_load; VARSET(YgooSsystemYso_load,T11); lit_70 = YPPsym((P)""); T13 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T12 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_70),T13); VARSET(YgooSsystemYLpathname_errorG,T12); lit_71 = YPPsym((P)"pathname-error"); lit_72 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); T14 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); YgooSsystemYpathname_error = YPfab_met(FUNCODEREF(YgooSsystemYpathname_error),T14,LITREF(lit_71),LITREF(lit_72),sloc(262),YPfalse); T15 = YgooSsystemYpathname_error; VARSET(YgooSsystemYpathname_error,T15); lit_73 = YPPsym((P)"pathname-to-components"); lit_74 = YPPlist(1,YPPsym((P)"pathname")); lit_75 = YPsb((P)"Can't convert nul an pathname to components."); lit_76 = YPPlist(1,YPPsym((P)"component")); lit_77 = YPPsym((P)"root"); lit_78 = YPsb((P)".."); lit_79 = YPPsym((P)"up"); lit_80 = YPsb((P)"."); lit_81 = YPPsym((P)"current"); T17 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T17,YPfalse,LITREF(lit_76),sloc(271),YPfalse); T16 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSsystemYpathname_to_components = YPfab_met(FUNCODEREF(YgooSsystemYpathname_to_components),T16,LITREF(lit_73),LITREF(lit_74),sloc(266),YPfalse); T18 = YgooSsystemYpathname_to_components; VARSET(YgooSsystemYpathname_to_components,T18); lit_82 = YPPsym((P)"components-to-pathname"); lit_83 = YPPlist(1,YPPsym((P)"components")); lit_84 = YPsb((P)"Can't convert nul components to a pathname."); lit_85 = YPPlist(1,YPPsym((P)"component")); lit_86 = YPsb((P)".."); lit_87 = YPsb((P)"."); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_32 = YPfab_met(FUNCODEREF(fun_32),T20,YPfalse,LITREF(lit_85),sloc(283),YPfalse); T19 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYcomponents_to_pathname = YPfab_met(FUNCODEREF(YgooSsystemYcomponents_to_pathname),T19,LITREF(lit_82),LITREF(lit_83),sloc(280),YPfalse); T21 = YgooSsystemYcomponents_to_pathname; VARSET(YgooSsystemYcomponents_to_pathname,T21); lit_88 = YPPsym((P)"label-components"); lit_89 = YPPlist(1,YPPsym((P)"components")); T22 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSsystemYlabel_components = YPfab_met(FUNCODEREF(YgooSsystemYlabel_components),T22,LITREF(lit_88),LITREF(lit_89),sloc(293),YPfalse); T23 = YgooSsystemYlabel_components; VARSET(YgooSsystemYlabel_components,T23); lit_90 = YPPsym((P)"hierarchical-components"); lit_91 = YPPlist(1,YPPsym((P)"components")); lit_92 = YPsb((P)"Hierarchical portion of %= must not be nul."); T24 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSsystemYhierarchical_components = YPfab_met(FUNCODEREF(YgooSsystemYhierarchical_components),T24,LITREF(lit_90),LITREF(lit_91),sloc(299),YPfalse); T25 = YgooSsystemYhierarchical_components; VARSET(YgooSsystemYhierarchical_components,T25); lit_93 = YPPsym((P)"components-last"); lit_94 = YPPlist(1,YPPsym((P)"components")); lit_95 = YPsb((P)"No filename in %=."); T26 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSsystemYcomponents_last = YPfab_met(FUNCODEREF(YgooSsystemYcomponents_last),T26,LITREF(lit_93),LITREF(lit_94),sloc(308),YPfalse); T27 = YgooSsystemYcomponents_last; VARSET(YgooSsystemYcomponents_last,T27); lit_96 = YPPsym((P)"components-basename"); lit_97 = YPPlist(1,YPPsym((P)"components")); lit_98 = YPsb((P)"Can't compute basename of %=."); lit_99 = YPPlist(1,YPPsym((P)"current")); T28 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSsystemYcomponents_basename = YPfab_met(FUNCODEREF(YgooSsystemYcomponents_basename),T28,LITREF(lit_96),LITREF(lit_97),sloc(319),YPfalse); T29 = YgooSsystemYcomponents_basename; VARSET(YgooSsystemYcomponents_basename,T29); lit_100 = YPPsym((P)"components-parent-directory"); lit_101 = YPPlist(1,YPPsym((P)"components")); lit_102 = YPsb((P)"Can't calculate parent of root directory."); lit_103 = YPPlist(1,YPPsym((P)"up")); T30 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); YgooSsystemYcomponents_parent_directory = YPfab_met(FUNCODEREF(YgooSsystemYcomponents_parent_directory),T30,LITREF(lit_100),LITREF(lit_101),sloc(331),YPfalse); T31 = YgooSsystemYcomponents_parent_directory; VARSET(YgooSsystemYcomponents_parent_directory,T31); lit_104 = YPPsym((P)"parent-directory"); lit_105 = YPPlist(1,YPPsym((P)"name")); T32 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); YgooSsystemYparent_directory = YPfab_met(FUNCODEREF(YgooSsystemYparent_directory),T32,LITREF(lit_104),LITREF(lit_105),sloc(358),YPfalse); T33 = YgooSsystemYparent_directory; VARSET(YgooSsystemYparent_directory,T33); lit_106 = YPPsym((P)""); T36 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLsimple_errorG),Ynil); T35 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSconditionsYLfile_opening_errorG),T36); T34 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_106),T35); VARSET(YgooSsystemYLdirectory_errorG,T34); lit_107 = YPPsym((P)"directory-error"); lit_108 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"name")); T37 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSsystemYdirectory_error = YPfab_met(FUNCODEREF(YgooSsystemYdirectory_error),T37,LITREF(lit_107),LITREF(lit_108),sloc(364),YPfalse); T38 = YgooSsystemYdirectory_error; VARSET(YgooSsystemYdirectory_error,T38); lit_109 = YPPsym((P)"probe-directory"); lit_110 = YPPlist(1,YPPsym((P)"name")); lit_111 = YPPsym((P)"ensure"); lit_112 = YPPlist(1,YPPsym((P)"c")); lit_113 = YPPsym((P)"directory"); lit_114 = YPsb((P)"%s is not a directory.\n"); lit_115 = YPsb((P)"Don't know how to create the directory %s.\n"); T40 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_ensure_41 = YPfab_met(FUNCODEREF(fun_ensure_41),T40,LITREF(lit_111),LITREF(lit_112),sloc(375),YPfalse); T39 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSsystemYprobe_directory = YPfab_met(FUNCODEREF(YgooSsystemYprobe_directory),T39,LITREF(lit_109),LITREF(lit_110),sloc(371),YPfalse); T41 = YgooSsystemYprobe_directory; VARSET(YgooSsystemYprobe_directory,T41); lit_116 = YPPsym((P)"find-goo-file-at"); lit_117 = YPPlist(2,YPPsym((P)"fname"),YPPsym((P)"path")); T43 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T42 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLstrG)),YPfalse,YPint((P)2),T43,Ynil); YgooSsystemYfind_goo_file_at = YPfab_met(FUNCODEREF(YgooSsystemYfind_goo_file_at),T42,LITREF(lit_116),LITREF(lit_117),sloc(393),YPfalse); T44 = YgooSsystemYfind_goo_file_at; VARSET(YgooSsystemYfind_goo_file_at,T44); lit_118 = YPPsym((P)"find-goo-file-in-path"); lit_119 = YPPlist(2,YPPsym((P)"fname"),YPPsym((P)"search-paths")); lit_120 = YPPlist(1,YPPsym((P)"return")); T47 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T47,YPfalse,LITREF(lit_120),sloc(412),YPfalse); T46 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLstrG)); T45 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLcolG)),YPfalse,YPint((P)2),T46,Ynil); YgooSsystemYfind_goo_file_in_path = YPfab_met(FUNCODEREF(YgooSsystemYfind_goo_file_in_path),T45,LITREF(lit_118),LITREF(lit_119),sloc(411),YPfalse); T48 = YgooSsystemYfind_goo_file_in_path; VARSET(YgooSsystemYfind_goo_file_in_path,T48); T49 = YPfalse; return T49; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooScolsSstr}, {&module_info_gooSboot}, {&module_info_gooSioSport}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"port-filename", &module_info_gooSioSport, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"port-line-setter", &module_info_gooSioSport, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"port-index-setter", &module_info_gooSioSport, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"port-handle", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"label-components", CVAR, &YgooSsystemYlabel_components}, {"os-val", CVAR, &YgooSsystemYos_val}, {"", CVAR, &YgooSsystemYLdirectory_errorG}, {"*c-extension*", CVAR, &YgooSsystemYTc_extensionT}, {"exe-filename", CVAR, &YgooSsystemYexe_filename}, {"%pid", PVAR, NULL}, {"pathname-to-components", CVAR, &YgooSsystemYpathname_to_components}, {"*goo-personal-root*", CVAR, &YgooSsystemYTgoo_personal_rootT}, {"*obj-extension*", CVAR, &YgooSsystemYTobj_extensionT}, {"%file-type", PVAR, NULL}, {"%create-directory", PVAR, NULL}, {"find-goo-file-in-path", CVAR, &YgooSsystemYfind_goo_file_in_path}, {"components-to-pathname", CVAR, &YgooSsystemYcomponents_to_pathname}, {"components-parent-directory", CVAR, &YgooSsystemYcomponents_parent_directory}, {"parent-directory", CVAR, &YgooSsystemYparent_directory}, {"gooc-filename", CVAR, &YgooSsystemYgooc_filename}, {"%file-exists?", PVAR, NULL}, {"add-src-path", CVAR, &YgooSsystemYadd_src_path}, {"goo-filename?", CVAR, &YgooSsystemYgoo_filenameQ}, {"*goo-build-root*", CVAR, &YgooSsystemYTgoo_build_rootT}, {"file-copy", CVAR, &YgooSsystemYfile_copy}, {"os-name", CVAR, &YgooSsystemYos_name}, {"gooc-filename?", CVAR, &YgooSsystemYgooc_filenameQ}, {"%load", PVAR, NULL}, {"obj-filename", CVAR, &YgooSsystemYobj_filename}, {"pathname-error", CVAR, &YgooSsystemYpathname_error}, {"%file-mtime", PVAR, NULL}, {"find-goo-file-at", CVAR, &YgooSsystemYfind_goo_file_at}, {"%compile", PVAR, NULL}, {"add-build-path", CVAR, &YgooSsystemYadd_build_path}, {"%os-val", PVAR, NULL}, {"c-filename", CVAR, &YgooSsystemYc_filename}, {"*gooc-extension*", CVAR, &YgooSsystemYTgooc_extensionT}, {"*exe-extension*", CVAR, &YgooSsystemYTexe_extensionT}, {"---main-1---", PVAR, NULL}, {"time", CVAR, &YgooSsystemYtime}, {"*path-separator*", CVAR, &YgooSsystemYTpath_separatorT}, {"process-id", CVAR, &YgooSsystemYprocess_id}, {"file-type", CVAR, &YgooSsystemYfile_type}, {"add-tmp-path", CVAR, &YgooSsystemYadd_tmp_path}, {"*goo-extension*", CVAR, &YgooSsystemYTgoo_extensionT}, {"components-basename", CVAR, &YgooSsystemYcomponents_basename}, {"fab-path", CVAR, &YgooSsystemYfab_path}, {"*goo-root*", CVAR, &YgooSsystemYTgoo_rootT}, {"", CVAR, &YgooSsystemYLpathname_errorG}, {"file-exists?", CVAR, &YgooSsystemYfile_existsQ}, {"probe-directory", CVAR, &YgooSsystemYprobe_directory}, {"%os-val-setter", PVAR, NULL}, {"*module-search-path*", CVAR, &YgooSsystemYTmodule_search_pathT}, {"add-goo-personal-root-path", CVAR, &YgooSsystemYadd_goo_personal_root_path}, {"components-last", CVAR, &YgooSsystemYcomponents_last}, {"%time", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"add-goo-root-path", CVAR, &YgooSsystemYadd_goo_root_path}, {"create-directory", CVAR, &YgooSsystemYcreate_directory}, {"so-load", CVAR, &YgooSsystemYso_load}, {"os-val-setter", CVAR, &YgooSsystemYos_val_setter}, {"%os-name", PVAR, NULL}, {"goo-filename", CVAR, &YgooSsystemYgoo_filename}, {"base-path", CVAR, &YgooSsystemYbase_path}, {"directory-error", CVAR, &YgooSsystemYdirectory_error}, {"hierarchical-components", CVAR, &YgooSsystemYhierarchical_components}, {"%default-goo-root", PVAR, NULL}, {"file-mtime", CVAR, &YgooSsystemYfile_mtime}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"label-components", NULL}, {"os-val", NULL}, {"", NULL}, {"*c-extension*", NULL}, {"exe-filename", NULL}, {"pathname-to-components", NULL}, {"add-goo-personal-root-path", NULL}, {"*goo-build-root*", NULL}, {"add-src-path", NULL}, {"file-copy", NULL}, {"os-name", NULL}, {"parent-directory", NULL}, {"%load", NULL}, {"obj-filename", NULL}, {"find-goo-file-at", NULL}, {"%compile", NULL}, {"add-build-path", NULL}, {"components-to-pathname", NULL}, {"create-directory", NULL}, {"c-filename", NULL}, {"components-parent-directory", NULL}, {"*exe-extension*", NULL}, {"time", NULL}, {"*obj-extension*", NULL}, {"*path-separator*", NULL}, {"process-id", NULL}, {"file-type", NULL}, {"add-tmp-path", NULL}, {"gooc-filename", NULL}, {"*goo-extension*", NULL}, {"components-basename", NULL}, {"*goo-personal-root*", NULL}, {"*goo-root*", NULL}, {"", NULL}, {"file-exists?", NULL}, {"probe-directory", NULL}, {"*module-search-path*", NULL}, {"components-last", NULL}, {"so-load", NULL}, {"os-val-setter", NULL}, {"find-goo-file-in-path", NULL}, {"goo-filename", NULL}, {"hierarchical-components", NULL}, {"add-goo-root-path", NULL}, {"file-mtime", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSsystem; MODULE_INFO module_info_gooSsystem = { "goo/system", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooScolsSstr (void); extern void load_module_gooSboot (void); extern void load_module_gooSioSport (void); /* EXPRESSION: */ extern void load_module_gooSsystem (void); void load_module_gooSsystem (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooScolsSstr(); load_module_gooSboot(); load_module_gooSioSport(); (P)YgooSsystemY___main_0___(); (P)YgooSsystemY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/types.c0100644000175000017500000026310407756744554014737 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/types"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/types */ EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); DEF(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); DEF(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); DEF(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); DEF(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); DEF(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); DEF(YgooStypesYtA,"goo/types","t+"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); DEF(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); DEF(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); DEF(YgooStypesYDbot,"goo/types","$bot"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_37); DEFLIT(lit_25); DEFLIT(lit_27); DEFLIT(lit_26); DEFLIT(lit_28); DEFLIT(lit_44); DEFLIT(lit_55); DEFLIT(lit_59); DEFLIT(lit_39); DEFLIT(lit_4); DEFLIT(lit_19); DEFLIT(lit_0); DEFLIT(lit_22); DEFLIT(lit_49); DEFLIT(lit_1); DEFLIT(lit_9); DEFLIT(lit_48); DEFLIT(lit_61); DEFLIT(lit_3); DEFLIT(lit_62); DEFLIT(lit_56); DEFLIT(lit_18); DEFLIT(lit_10); DEFLIT(lit_34); DEFLIT(lit_58); DEFLIT(lit_8); DEFLIT(lit_42); DEFLIT(lit_60); DEFLIT(lit_14); DEFLIT(lit_5); DEFLIT(lit_21); DEFLIT(lit_24); DEFLIT(lit_63); DEFLIT(lit_11); DEFLIT(lit_41); DEFLIT(lit_45); DEFLIT(lit_12); DEFLIT(lit_29); DEFLIT(lit_57); DEFLIT(lit_43); DEFLIT(lit_17); DEFLIT(lit_53); DEFLIT(lit_20); DEFLIT(lit_46); DEFLIT(lit_36); DEFLIT(lit_38); DEFLIT(lit_7); DEFLIT(lit_51); DEFLIT(lit_40); DEFLIT(lit_13); DEFLIT(lit_52); DEFLIT(lit_6); DEFLIT(lit_2); DEFLIT(lit_15); DEFLIT(lit_16); DEFLIT(lit_35); DEFLIT(lit_47); DEFLIT(lit_30); DEFLIT(lit_31); DEFLIT(lit_32); DEFLIT(lit_23); DEFLIT(lit_50); DEFLIT(lit_33); DEFLIT(lit_54); /* FUNCTIONS: */ FUNFOR(YgooStypesYtA); FUNFOR(YgooStypesYtE); FUNFOR(YgooStypesYtL); FUNFOR(YgooStypesYtQ); LOCFOR(fun_subtypeQ_4); LOCFOR(fun_subtypeQ_5); LOCFOR(fun_subtypeQ_6); LOCFOR(fun_subtypeQ_7); LOCFOR(fun_subtypeQ_8); LOCFOR(fun_9); LOCFOR(fun_subtypeQ_10); LOCFOR(fun_11); LOCFOR(fun_subtypeQ_12); LOCFOR(fun_13); LOCFOR(fun_subtypeQ_14); LOCFOR(fun_subtypeQ_15); LOCFOR(fun_subtypeQ_16); LOCFOR(fun_subtypeQ_17); LOCFOR(fun_subtypeQ_18); LOCFOR(fun_subtypeQ_19); LOCFOR(fun_subtypeQ_20); LOCFOR(fun_subtypeQ_21); LOCFOR(fun_subtypeQ_22); LOCFOR(fun_subtypeQ_23); LOCFOR(fun_subtypeQ_24); LOCFOR(fun_subtypeQ_25); LOCFOR(fun_subtypeQ_26); LOCFOR(fun_subtypeQ_27); LOCFOR(fun_isaQ_28); LOCFOR(fun_isaQ_29); LOCFOR(fun_isaQ_30); LOCFOR(fun_31); LOCFOR(fun_isaQ_32); LOCFOR(fun_isaQ_33); LOCFOR(fun_order_specs_34); LOCFOR(fun_order_specs_35); LOCFOR(fun_order_specs_36); LOCFOR(fun_order_specs_37); LOCFOR(fun_order_specs_38); LOCFOR(fun_order_specs_39); LOCFOR(fun_order_specs_40); LOCFOR(fun_may_isaQ_41); LOCFOR(fun_may_isaQ_42); LOCFOR(fun_may_isaQ_43); LOCFOR(fun_may_isaQ_44); LOCFOR(fun_45); LOCFOR(fun_may_isaQ_46); extern P YgooStypesY___main_0___ (); extern P YgooStypesY___main_1___ (); extern P YgooStypesY___main_2___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooStypesYtA) { P args_; P T0,T1; LINK_STACK(); NARGS(args_, 0); T1 = CALL1(1,VARREF(YOopts_as_lst),args_); T0 = CALL3(1,VARREF(Ynew),VARREF(YLunionG),VARREF(Yunion_elts),T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooStypesYtE) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YLsingletonG),VARREF(Ytype_object),x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooStypesYtL) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YLsubclassG),VARREF(Ytype_class),x_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooStypesYtQ) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooStypesYtE),YPfalse); T0 = CALL2(1,VARREF(YgooStypesYtA),x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_subtypeQ_4) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_subtypeQ_5) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_subtypeQ_6) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_subtypeQ_7) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_subtypeQ_8) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_9) { P t_; P T0; LINK_STACK(); ARG(t_, 0); T0 = CALL2(1,VARREF(YOsubtypeQ),t_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_subtypeQ_10) { P t1_,t2_; P xF2534; P T0,T1,T2; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); T1 = FUNFAB(fun_9,1,t2_); xF2534 = t1_; T2 = (P)YPprop_elt(xF2534,(P)0); T0 = CALL2(1,VARREF(YOallQ),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_11) { P t_; P T0; LINK_STACK(); ARG(t_, 0); T0 = CALL2(1,VARREF(YOsubtypeQ),FREEREF(0),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_subtypeQ_12) { P t1_,t2_; P xF2535; P T0,T1,T2; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); T1 = FUNFAB(fun_11,1,t1_); xF2535 = t2_; T2 = (P)YPprop_elt(xF2535,(P)0); T0 = CALL2(1,VARREF(YOanyQ),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_13) { P t_; P T0; LINK_STACK(); ARG(t_, 0); T0 = CALL2(1,VARREF(YOsubtypeQ),t_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_subtypeQ_14) { P t1_,t2_; P xF2536; P T0,T1,T2; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); T1 = FUNFAB(fun_13,1,t2_); xF2536 = t1_; T2 = (P)YPprop_elt(xF2536,(P)0); T0 = CALL2(1,VARREF(YOallQ),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_15) { P t1_,t2_; P xF2544; P xF2543; P xF2542; P xF2541; P xF2540; P xF2539; P c2F2538; P c1F2537; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); c1F2537 = t1_; c2F2538 = t2_; xF2539 = c1F2537; T3 = (P)YPprop_elt(xF2539,(P)11); xF2540 = c2F2538; T5 = (P)YPprop_elt(xF2540,(P)10); xF2541 = T5; xF2542 = xF2541; T4 = (P)YPiGG(xF2542,(P)2); T2 = (P)YPselt(T3,T4); xF2543 = YPint((P)1); xF2544 = xF2543; T6 = (P)YPiGG(xF2544,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_16) { P t1_,t2_; P xF2565; P xF2564; P xF2563; P xF2562; P xF2561; P xF2560; P c2F2559; P c1F2558; P tagF2557; P xF2556; P xF2555; P cF2554; P oF2553; P yF2552; P xF2551; P tagF2550; P xF2549; P xF2548; P tF2547; P oF2546; P xF2545; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF2545 = t1_; T23 = (P)YPprop_elt(xF2545,(P)0); oF2546 = T23; tF2547 = t2_; xF2548 = tF2547; xF2549 = xF2548; T8 = (P)YPiB(xF2549,(P)3); tagF2550 = T8; T5 = (P)YPiE(tagF2550,(P)0); T4 = (P)YPbb(T5); if (T5) { T6 = (P)YPobject_class(xF2548); T3 = T6; } else { T7 = (P)YPelt(VARREF(YDdirect_object_class),tagF2550); T3 = T7; } xF2551 = T3; yF2552 = VARREF(YLclassG); T2 = (P)YPeqQ(xF2551,yF2552); T1 = (P)YPbb(T2); if (T2) { oF2553 = oF2546; cF2554 = tF2547; xF2555 = oF2553; xF2556 = xF2555; T21 = (P)YPiB(xF2556,(P)3); tagF2557 = T21; T18 = (P)YPiE(tagF2557,(P)0); T17 = (P)YPbb(T18); if (T18) { T19 = (P)YPobject_class(xF2555); T16 = T19; } else { T20 = (P)YPelt(VARREF(YDdirect_object_class),tagF2557); T16 = T20; } c1F2558 = T16; c2F2559 = cF2554; xF2560 = c1F2558; T12 = (P)YPprop_elt(xF2560,(P)11); xF2561 = c2F2559; T14 = (P)YPprop_elt(xF2561,(P)10); xF2562 = T14; xF2563 = xF2562; T13 = (P)YPiGG(xF2563,(P)2); T11 = (P)YPselt(T12,T13); xF2564 = YPint((P)1); xF2565 = xF2564; T15 = (P)YPiGG(xF2565,(P)2); T10 = (P)YPiE(T11,T15); T9 = (P)YPbb(T10); T0 = T9; } else { T22 = CALL2(1,VARREF(YisaQ),oF2546,tF2547); T0 = T22; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_17) { P t1_,t2_; P xF2573; P xF2572; P xF2571; P xF2570; P xF2569; P xF2568; P c2F2567; P c1F2566; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); c1F2566 = VARREF(YLclassG); c2F2567 = t2_; xF2568 = c1F2566; T3 = (P)YPprop_elt(xF2568,(P)11); xF2569 = c2F2567; T5 = (P)YPprop_elt(xF2569,(P)10); xF2570 = T5; xF2571 = xF2570; T4 = (P)YPiGG(xF2571,(P)2); T2 = (P)YPselt(T3,T4); xF2572 = YPint((P)1); xF2573 = xF2572; T6 = (P)YPiGG(xF2573,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_18) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_subtypeQ_19) { P t1_,t2_; P xF2574; P T0,T1; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF2574 = t1_; T1 = (P)YPprop_elt(xF2574,(P)0); T0 = (P)YOsingleton_isaQ(T1,t2_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_20) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_subtypeQ_21) { P t1_,t2_; P yF2579; P xF2578; P xF2577; P yF2576; P xF2575; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF2575 = t1_; yF2576 = VARREF(YLclassG); T2 = (P)YPeqQ(xF2575,yF2576); T1 = (P)YPbb(T2); if (T2) { xF2577 = t2_; T5 = (P)YPprop_elt(xF2577,(P)0); xF2578 = T5; yF2579 = VARREF(YLclassG); T4 = (P)YPeqQ(xF2578,yF2579); T3 = (P)YPbb(T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_22) { P t1_,t2_; P xF2589; P xF2588; P xF2587; P xF2586; P xF2585; P xF2584; P c2F2583; P c1F2582; P xF2581; P xF2580; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF2580 = t1_; T7 = (P)YPprop_elt(xF2580,(P)0); c1F2582 = T7; xF2581 = t2_; T8 = (P)YPprop_elt(xF2581,(P)0); c2F2583 = T8; xF2584 = c1F2582; T3 = (P)YPprop_elt(xF2584,(P)11); xF2585 = c2F2583; T5 = (P)YPprop_elt(xF2585,(P)10); xF2586 = T5; xF2587 = xF2586; T4 = (P)YPiGG(xF2587,(P)2); T2 = (P)YPselt(T3,T4); xF2588 = YPint((P)1); xF2589 = xF2588; T6 = (P)YPiGG(xF2589,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_23) { P t1_,t2_; P xF2620; P xF2619; P xF2618; P xF2617; P xF2616; P xF2615; P c2F2614; P c1F2613; P xF2612; P xF2611; P xF2610; P xF2609; P xF2608; P xF2607; P xF2606; P xF2605; P c2F2604; P c1F2603; P tagF2602; P xF2601; P xF2600; P cF2599; P oF2598; P yF2597; P xF2596; P tagF2595; P xF2594; P xF2593; P tF2592; P oF2591; P xF2590; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF2590 = t1_; T24 = (P)YPprop_elt(xF2590,(P)0); oF2591 = T24; tF2592 = VARREF(YLclassG); xF2593 = tF2592; xF2594 = xF2593; T9 = (P)YPiB(xF2594,(P)3); tagF2595 = T9; T6 = (P)YPiE(tagF2595,(P)0); T5 = (P)YPbb(T6); if (T6) { T7 = (P)YPobject_class(xF2593); T4 = T7; } else { T8 = (P)YPelt(VARREF(YDdirect_object_class),tagF2595); T4 = T8; } xF2596 = T4; yF2597 = VARREF(YLclassG); T3 = (P)YPeqQ(xF2596,yF2597); T2 = (P)YPbb(T3); if (T3) { oF2598 = oF2591; cF2599 = tF2592; xF2600 = oF2598; xF2601 = xF2600; T22 = (P)YPiB(xF2601,(P)3); tagF2602 = T22; T19 = (P)YPiE(tagF2602,(P)0); T18 = (P)YPbb(T19); if (T19) { T20 = (P)YPobject_class(xF2600); T17 = T20; } else { T21 = (P)YPelt(VARREF(YDdirect_object_class),tagF2602); T17 = T21; } c1F2603 = T17; c2F2604 = cF2599; xF2605 = c1F2603; T13 = (P)YPprop_elt(xF2605,(P)11); xF2606 = c2F2604; T15 = (P)YPprop_elt(xF2606,(P)10); xF2607 = T15; xF2608 = xF2607; T14 = (P)YPiGG(xF2608,(P)2); T12 = (P)YPselt(T13,T14); xF2609 = YPint((P)1); xF2610 = xF2609; T16 = (P)YPiGG(xF2610,(P)2); T11 = (P)YPiE(T12,T16); T10 = (P)YPbb(T11); T1 = T10; } else { T23 = CALL2(1,VARREF(YisaQ),oF2591,tF2592); T1 = T23; } if (T1 != YPfalse) { xF2611 = t1_; T32 = (P)YPprop_elt(xF2611,(P)0); c1F2613 = T32; xF2612 = t2_; T33 = (P)YPprop_elt(xF2612,(P)0); c2F2614 = T33; xF2615 = c1F2613; T28 = (P)YPprop_elt(xF2615,(P)11); xF2616 = c2F2614; T30 = (P)YPprop_elt(xF2616,(P)10); xF2617 = T30; xF2618 = xF2617; T29 = (P)YPiGG(xF2618,(P)2); T27 = (P)YPselt(T28,T29); xF2619 = YPint((P)1); xF2620 = xF2619; T31 = (P)YPiGG(xF2620,(P)2); T26 = (P)YPiE(T27,T31); T25 = (P)YPbb(T26); T0 = T25; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_24) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_subtypeQ_25) { P t1_,t2_; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_subtypeQ_26) { P t1_,t2_; P yF2634; P xF2633; P tF2632; P xF2631; P xF2630; P xF2629; P tF2628; P xF2627; P xF2626; P xF2625; P teT2F2624; P xF2623; P teT1F2622; P xF2621; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); xF2621 = t1_; T11 = (P)YPprop_elt(xF2621,(P)0); teT1F2622 = T11; xF2623 = t2_; T10 = (P)YPprop_elt(xF2623,(P)0); teT2F2624 = T10; xF2625 = teT1F2622; T5 = (P)YPtlen(xF2625); xF2626 = T5; xF2627 = xF2626; tF2628 = (P)1; T4 = (P)YPiLL(xF2627,(P)2); T3 = (P)YPiv(T4,tF2628); xF2633 = T3; xF2629 = teT2F2624; T8 = (P)YPtlen(xF2629); xF2630 = T8; xF2631 = xF2630; tF2632 = (P)1; T7 = (P)YPiLL(xF2631,(P)2); T6 = (P)YPiv(T7,tF2632); yF2634 = T6; T2 = (P)YPeqQ(xF2633,yF2634); T1 = (P)YPbb(T2); if (T2) { T9 = CALL3(1,VARREF(YOtall2Q),VARREF(YsubtypeQ),teT1F2622,teT2F2624); T0 = T9; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subtypeQ_27) { P t1_,t2_; P T0; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); T0 = CALL2(1,VARREF(YsubtypeQ),VARREF(YLtupG),t2_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_isaQ_28) { P o_,t_; P xF2647; P xF2646; P xF2645; P xF2644; P xF2643; P xF2642; P c2F2641; P c1F2640; P tagF2639; P xF2638; P xF2637; P cF2636; P oF2635; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(o_, 0); ARG(t_, 1); oF2635 = o_; cF2636 = t_; xF2637 = oF2635; xF2638 = xF2637; T12 = (P)YPiB(xF2638,(P)3); tagF2639 = T12; T9 = (P)YPiE(tagF2639,(P)0); T8 = (P)YPbb(T9); if (T9) { T10 = (P)YPobject_class(xF2637); T7 = T10; } else { T11 = (P)YPelt(VARREF(YDdirect_object_class),tagF2639); T7 = T11; } c1F2640 = T7; c2F2641 = cF2636; xF2642 = c1F2640; T3 = (P)YPprop_elt(xF2642,(P)11); xF2643 = c2F2641; T5 = (P)YPprop_elt(xF2643,(P)10); xF2644 = T5; xF2645 = xF2644; T4 = (P)YPiGG(xF2645,(P)2); T2 = (P)YPselt(T3,T4); xF2646 = YPint((P)1); xF2647 = xF2646; T6 = (P)YPiGG(xF2647,(P)2); T1 = (P)YPiE(T2,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_isaQ_29) { P o_,t_; P T0; LINK_STACK(); ARG(o_, 0); ARG(t_, 1); T0 = (P)YOsingleton_isaQ(o_,t_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_isaQ_30) { P o_,t_; P xF2676; P xF2675; P xF2674; P xF2673; P xF2672; P xF2671; P c2F2670; P c1F2669; P xF2668; P xF2667; P xF2666; P xF2665; P xF2664; P xF2663; P xF2662; P c2F2661; P c1F2660; P tagF2659; P xF2658; P xF2657; P cF2656; P oF2655; P yF2654; P xF2653; P tagF2652; P xF2651; P xF2650; P tF2649; P oF2648; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; LINK_STACK(); ARG(o_, 0); ARG(t_, 1); oF2648 = o_; tF2649 = VARREF(YLclassG); xF2650 = tF2649; xF2651 = xF2650; T9 = (P)YPiB(xF2651,(P)3); tagF2652 = T9; T6 = (P)YPiE(tagF2652,(P)0); T5 = (P)YPbb(T6); if (T6) { T7 = (P)YPobject_class(xF2650); T4 = T7; } else { T8 = (P)YPelt(VARREF(YDdirect_object_class),tagF2652); T4 = T8; } xF2653 = T4; yF2654 = VARREF(YLclassG); T3 = (P)YPeqQ(xF2653,yF2654); T2 = (P)YPbb(T3); if (T3) { oF2655 = oF2648; cF2656 = tF2649; xF2657 = oF2655; xF2658 = xF2657; T22 = (P)YPiB(xF2658,(P)3); tagF2659 = T22; T19 = (P)YPiE(tagF2659,(P)0); T18 = (P)YPbb(T19); if (T19) { T20 = (P)YPobject_class(xF2657); T17 = T20; } else { T21 = (P)YPelt(VARREF(YDdirect_object_class),tagF2659); T17 = T21; } c1F2660 = T17; c2F2661 = cF2656; xF2662 = c1F2660; T13 = (P)YPprop_elt(xF2662,(P)11); xF2663 = c2F2661; T15 = (P)YPprop_elt(xF2663,(P)10); xF2664 = T15; xF2665 = xF2664; T14 = (P)YPiGG(xF2665,(P)2); T12 = (P)YPselt(T13,T14); xF2666 = YPint((P)1); xF2667 = xF2666; T16 = (P)YPiGG(xF2667,(P)2); T11 = (P)YPiE(T12,T16); T10 = (P)YPbb(T11); T1 = T10; } else { T23 = CALL2(1,VARREF(YisaQ),oF2648,tF2649); T1 = T23; } if (T1 != YPfalse) { c1F2669 = o_; xF2668 = t_; T31 = (P)YPprop_elt(xF2668,(P)0); c2F2670 = T31; xF2671 = c1F2669; T27 = (P)YPprop_elt(xF2671,(P)11); xF2672 = c2F2670; T29 = (P)YPprop_elt(xF2672,(P)10); xF2673 = T29; xF2674 = xF2673; T28 = (P)YPiGG(xF2674,(P)2); T26 = (P)YPselt(T27,T28); xF2675 = YPint((P)1); xF2676 = xF2675; T30 = (P)YPiGG(xF2676,(P)2); T25 = (P)YPiE(T26,T30); T24 = (P)YPbb(T25); T0 = T24; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_31) { P t_; P xF2696; P xF2695; P xF2694; P xF2693; P xF2692; P xF2691; P c2F2690; P c1F2689; P tagF2688; P xF2687; P xF2686; P cF2685; P oF2684; P yF2683; P xF2682; P tagF2681; P xF2680; P xF2679; P tF2678; P oF2677; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(t_, 0); oF2677 = FREEREF(0); tF2678 = t_; xF2679 = tF2678; xF2680 = xF2679; T8 = (P)YPiB(xF2680,(P)3); tagF2681 = T8; T5 = (P)YPiE(tagF2681,(P)0); T4 = (P)YPbb(T5); if (T5) { T6 = (P)YPobject_class(xF2679); T3 = T6; } else { T7 = (P)YPelt(VARREF(YDdirect_object_class),tagF2681); T3 = T7; } xF2682 = T3; yF2683 = VARREF(YLclassG); T2 = (P)YPeqQ(xF2682,yF2683); T1 = (P)YPbb(T2); if (T2) { oF2684 = oF2677; cF2685 = tF2678; xF2686 = oF2684; xF2687 = xF2686; T21 = (P)YPiB(xF2687,(P)3); tagF2688 = T21; T18 = (P)YPiE(tagF2688,(P)0); T17 = (P)YPbb(T18); if (T18) { T19 = (P)YPobject_class(xF2686); T16 = T19; } else { T20 = (P)YPelt(VARREF(YDdirect_object_class),tagF2688); T16 = T20; } c1F2689 = T16; c2F2690 = cF2685; xF2691 = c1F2689; T12 = (P)YPprop_elt(xF2691,(P)11); xF2692 = c2F2690; T14 = (P)YPprop_elt(xF2692,(P)10); xF2693 = T14; xF2694 = xF2693; T13 = (P)YPiGG(xF2694,(P)2); T11 = (P)YPselt(T12,T13); xF2695 = YPint((P)1); xF2696 = xF2695; T15 = (P)YPiGG(xF2696,(P)2); T10 = (P)YPiE(T11,T15); T9 = (P)YPbb(T10); T0 = T9; } else { T22 = CALL2(1,VARREF(YisaQ),oF2677,tF2678); T0 = T22; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_isaQ_32) { P o_,u_; P xF2697; P T0,T1,T2; LINK_STACK(); ARG(o_, 0); ARG(u_, 1); T1 = FUNFAB(fun_31,1,o_); xF2697 = u_; T2 = (P)YPprop_elt(xF2697,(P)0); T0 = CALL2(1,VARREF(YOanyQ),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_isaQ_33) { P o_,t_; P yF2709; P xF2708; P tF2707; P xF2706; P xF2705; P xF2704; P tF2703; P xF2702; P xF2701; P xF2700; P teTF2699; P xF2698; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(o_, 0); ARG(t_, 1); xF2698 = t_; T12 = (P)YPprop_elt(xF2698,(P)0); teTF2699 = T12; T1 = CALL2(1,VARREF(YisaQ),o_,VARREF(YLtupG)); if (T1 != YPfalse) { xF2700 = o_; T7 = (P)YPtlen(xF2700); xF2701 = T7; xF2702 = xF2701; tF2703 = (P)1; T6 = (P)YPiLL(xF2702,(P)2); T5 = (P)YPiv(T6,tF2703); xF2708 = T5; xF2704 = teTF2699; T10 = (P)YPtlen(xF2704); xF2705 = T10; xF2706 = xF2705; tF2707 = (P)1; T9 = (P)YPiLL(xF2706,(P)2); T8 = (P)YPiv(T9,tF2707); yF2709 = T8; T4 = (P)YPeqQ(xF2708,yF2709); T3 = (P)YPbb(T4); if (T4) { T11 = CALL3(1,VARREF(YOtall2Q),VARREF(YisaQ),o_,teTF2699); T2 = T11; } else { T2 = YPfalse; } T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_34) { P t1_,t2_,arg_; P T0; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T0 = CALL2(1,VARREF(YOtup),LITREF(lit_46),t1_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_35) { P t1_,t2_,arg_; P T0; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T0 = CALL2(1,VARREF(YOtup),LITREF(lit_48),t1_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_36) { P t1_,t2_,arg_; P yF2715; P xF2714; P c2F2713; P xF2712; P c1F2711; P xF2710; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); xF2710 = t1_; T10 = (P)YPprop_elt(xF2710,(P)0); c1F2711 = T10; xF2712 = t2_; T9 = (P)YPprop_elt(xF2712,(P)0); c2F2713 = T9; xF2714 = c1F2711; yF2715 = c2F2713; T2 = (P)YPeqQ(xF2714,yF2715); T1 = (P)YPbb(T2); if (T2) { T3 = CALL2(1,VARREF(YOtup),LITREF(lit_46),t1_); T0 = T3; } else { T5 = CALL3(1,VARREF(YgooSfunYOclassL),c1F2711,c2F2713,arg_); if (T5 != YPfalse) { T6 = CALL2(1,VARREF(YOtup),LITREF(lit_48),t1_); T4 = T6; } else { if (YPtrue != YPfalse) { T8 = CALL2(1,VARREF(YOtup),LITREF(lit_50),t2_); T7 = T8; } else { T7 = YPfalse; } T4 = T7; } T0 = T4; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_37) { P t1_,t2_,arg_; P yF2717; P xF2716; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T2 = CALL2(1,VARREF(YOsubtypeQ),VARREF(YLclassG),t2_); if (T2 != YPfalse) { xF2716 = t1_; yF2717 = VARREF(YLanyG); T5 = (P)YPeqQ(xF2716,yF2717); T4 = (P)YPbb(T5); if (T5) { T6 = CALL3(1,VARREF(Yorder_specs),VARREF(YLclassG),t2_,arg_); T3 = T6; } else { T3 = LITREF(lit_48); } T1 = T3; } else { T1 = LITREF(lit_52); } T0 = CALL2(1,VARREF(YOtup),T1,t1_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_38) { P t1_,t2_,arg_; P yF2719; P xF2718; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T2 = CALL2(1,VARREF(YOsubtypeQ),VARREF(YLclassG),t1_); if (T2 != YPfalse) { xF2718 = t2_; yF2719 = VARREF(YLanyG); T5 = (P)YPeqQ(xF2718,yF2719); T4 = (P)YPbb(T5); if (T5) { T6 = CALL3(1,VARREF(Yorder_specs),t1_,VARREF(YLclassG),arg_); T3 = T6; } else { T3 = LITREF(lit_50); } T1 = T3; } else { T1 = LITREF(lit_52); } T0 = CALL2(1,VARREF(YOtup),T1,t2_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_39) { P t1_,t2_,arg_; P T0; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T0 = CALL3(1,VARREF(YgooSfunYOorder_specs_class),t1_,t2_,arg_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_order_specs_40) { P t1_,t2_,arg_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(t1_, 0); ARG(t2_, 1); ARG(arg_, 2); T1 = CALL2(1,VARREF(YOsubtypeQ),t1_,t2_); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YOsubtypeQ),t2_,t1_); if (T4 != YPfalse) { T3 = LITREF(lit_46); } else { T3 = LITREF(lit_48); } T2 = CALL2(1,VARREF(YOtup),T3,t1_); T0 = T2; } else { T6 = CALL2(1,VARREF(YOsubtypeQ),t2_,t1_); if (T6 != YPfalse) { T7 = CALL2(1,VARREF(YOtup),LITREF(lit_50),t2_); T5 = T7; } else { T8 = CALL2(1,VARREF(YOtup),LITREF(lit_52),VARREF(YLanyG)); T5 = T8; } T0 = T5; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_may_isaQ_41) { P c_,t_; P xF2727; P xF2726; P xF2725; P xF2724; P xF2723; P xF2722; P c2F2721; P c1F2720; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(c_, 0); ARG(t_, 1); c1F2720 = c_; c2F2721 = t_; xF2722 = c1F2720; T4 = (P)YPprop_elt(xF2722,(P)11); xF2723 = c2F2721; T6 = (P)YPprop_elt(xF2723,(P)10); xF2724 = T6; xF2725 = xF2724; T5 = (P)YPiGG(xF2725,(P)2); T3 = (P)YPselt(T4,T5); xF2726 = YPint((P)1); xF2727 = xF2726; T7 = (P)YPiGG(xF2727,(P)2); T2 = (P)YPiE(T3,T7); T1 = (P)YPbb(T2); if (T2) { T8 = CALL2(1,VARREF(YOtup),YPtrue,YPtrue); T0 = T8; } else { T9 = CALL2(1,VARREF(YOtup),YPfalse,YPfalse); T0 = T9; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_may_isaQ_42) { P c_,t_; P tagF2731; P xF2730; P xF2729; P xF2728; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(c_, 0); ARG(t_, 1); xF2728 = t_; T8 = (P)YPprop_elt(xF2728,(P)0); xF2729 = T8; xF2730 = xF2729; T7 = (P)YPiB(xF2730,(P)3); tagF2731 = T7; T4 = (P)YPiE(tagF2731,(P)0); T3 = (P)YPbb(T4); if (T4) { T5 = (P)YPobject_class(xF2729); T2 = T5; } else { T6 = (P)YPelt(VARREF(YDdirect_object_class),tagF2731); T2 = T6; } T1 = CALL2(1,VARREF(YOmay_isaQ),T2,c_); T0 = CALL2(1,VARREF(YOtup),T1,YPfalse); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_may_isaQ_43) { P c_,t_; P yF2735; P xF2734; P xF2733; P classQF2732; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(c_, 0); ARG(t_, 1); T5 = CALL2(1,VARREF(YOsubtypeQ),c_,VARREF(YLclassG)); classQF2732 = T5; if (classQF2732 != YPfalse) { xF2733 = c_; T4 = (P)YPprop_elt(xF2733,(P)0); xF2734 = T4; yF2735 = VARREF(YLanyG); T3 = (P)YPeqQ(xF2734,yF2735); T2 = (P)YPbb(T3); T1 = T2; } else { T1 = YPfalse; } T0 = CALL2(1,VARREF(YOtup),classQF2732,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_may_isaQ_44) { P c_,t_; P xF2758; P xF2757; P tmpF2756; P tmpF2755; P elt_allQF2754; P xF2753; P xF2752; P iF2751; P xF2750; P elt_someQF2749; P xF2748; P xF2747; P iF2746; P xF2745; P elt_some_allQF2744; P xF2743; P xF2742; P xF2741; P xF2740; P eltsF2739; P allQF2738; P someQF2737; P xF2736; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(c_, 0); ARG(t_, 1); someQF2737 = YPfalse; allQF2738 = YPfalse; xF2736 = t_; T14 = (P)YPprop_elt(xF2736,(P)0); eltsF2739 = T14; LOOP_50: { P a50_0,a50_1,a50_2; xF2740 = eltsF2739; xF2741 = xF2740; T2 = (P)YPeqQ(xF2741,VARREF(Ynil)); T1 = (P)YPbb(T2); if (T2) { T3 = CALL2(1,VARREF(YOtup),someQF2737,allQF2738); T0 = T3; } else { xF2742 = eltsF2739; xF2743 = xF2742; T13 = (P)YPprop_elt(xF2743,(P)0); T12 = CALL2(1,VARREF(YOmay_isaQ),c_,T13); elt_some_allQF2744 = T12; xF2745 = elt_some_allQF2744; iF2746 = YPint((P)0); xF2747 = iF2746; xF2748 = xF2747; T11 = (P)YPiGG(xF2748,(P)2); T10 = (P)YPtelt(xF2745,T11); elt_someQF2749 = T10; xF2750 = elt_some_allQF2744; iF2751 = YPint((P)1); xF2752 = iF2751; xF2753 = xF2752; T9 = (P)YPiGG(xF2753,(P)2); T8 = (P)YPtelt(xF2750,T9); elt_allQF2754 = T8; tmpF2755 = elt_someQF2749; if (tmpF2755 != YPfalse) { T5 = tmpF2755; } else { T5 = someQF2737; } tmpF2756 = elt_allQF2754; if (tmpF2756 != YPfalse) { T6 = tmpF2756; } else { T6 = allQF2738; } xF2757 = eltsF2739; xF2758 = xF2757; T7 = (P)YPprop_elt(xF2758,(P)1); a50_0 = T5; a50_1 = T6; a50_2 = T7; someQF2737 = a50_0; allQF2738 = a50_1; eltsF2739 = a50_2; goto LOOP_50; T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_45) { P t_; P xF2762; P xF2761; P iF2760; P xF2759; P T0,T1,T2; LINK_STACK(); ARG(t_, 0); T2 = CALL2(1,VARREF(Ymay_isaQ),VARREF(YLanyG),t_); xF2759 = T2; iF2760 = YPint((P)1); xF2761 = iF2760; xF2762 = xF2761; T1 = (P)YPiGG(xF2762,(P)2); T0 = (P)YPtelt(xF2759,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_may_isaQ_46) { P c_,t_; P someQF2767; P xF2766; P tupQF2765; P yF2764; P xF2763; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(c_, 0); ARG(t_, 1); xF2763 = c_; yF2764 = VARREF(YLtupG); T6 = (P)YPeqQ(xF2763,yF2764); T5 = (P)YPbb(T6); tupQF2765 = T5; if (tupQF2765 != YPfalse) { T3 = fun_45; xF2766 = t_; T4 = (P)YPprop_elt(xF2766,(P)0); T2 = CALL2(1,VARREF(YOtanyQ),T3,T4); T1 = T2; } else { T1 = YPfalse; } someQF2767 = T1; T0 = CALL2(1,VARREF(Ytup),tupQF2765,someQF2767); UNLINK_STACK(); RET(T0); } P YgooStypesY___main_0___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } P YgooStypesY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLtypeG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooStypesYLbotG,T0); lit_1 = YPPsym((P)"t+"); lit_2 = YPPlist(1,YPPsym((P)"args")); T2 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); YgooStypesYtA = YPfab_met(FUNCODEREF(YgooStypesYtA),T2,LITREF(lit_1),LITREF(lit_2),sloc(54),YPfalse); T3 = YgooStypesYtA; VARSET(YgooStypesYtA,T3); lit_3 = YPPsym((P)"t="); lit_4 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooStypesYtE = YPfab_met(FUNCODEREF(YgooStypesYtE),T4,LITREF(lit_3),LITREF(lit_4),sloc(56),YPfalse); T5 = YgooStypesYtE; VARSET(YgooStypesYtE,T5); lit_5 = YPPsym((P)"t<"); lit_6 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooStypesYtL = YPfab_met(FUNCODEREF(YgooStypesYtL),T6,LITREF(lit_5),LITREF(lit_6),sloc(58),YPfalse); T7 = YgooStypesYtL; VARSET(YgooStypesYtL,T7); lit_7 = YPPsym((P)"t?"); lit_8 = YPPlist(1,YPPsym((P)"x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooStypesYtQ = YPfab_met(FUNCODEREF(YgooStypesYtQ),T8,LITREF(lit_7),LITREF(lit_8),sloc(60),YPfalse); T9 = YgooStypesYtQ; VARSET(YgooStypesYtQ,T9); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T10 = XCALL1(1,VARREF(Ynew),VARREF(YgooStypesYLbotG)); VARSET(YgooStypesYDbot,T10); lit_9 = YPPsym((P)"subtype?"); lit_10 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T12 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T11 = YPfab_gen(T12,LITREF(lit_9),LITREF(lit_10),YPfalse); VARSET(YsubtypeQ,T11); lit_11 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T13 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YgooStypesYLbotG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_4 = YPfab_met(FUNCODEREF(fun_subtypeQ_4),T13,LITREF(lit_9),LITREF(lit_11),sloc(71),YPfalse); T15 = VARREF_OR(YsubtypeQ,YPfalse); T16 = fun_subtypeQ_4; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YsubtypeQ,T14); lit_12 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T17 = YPfab_sig(YPPlist(2,VARREF(YLunionG),VARREF(YgooStypesYLbotG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_5 = YPfab_met(FUNCODEREF(fun_subtypeQ_5),T17,LITREF(lit_9),LITREF(lit_12),sloc(72),YPfalse); T19 = VARREF_OR(YsubtypeQ,YPfalse); T20 = fun_subtypeQ_5; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YsubtypeQ,T18); lit_13 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T21 = YPfab_sig(YPPlist(2,VARREF(YgooStypesYLbotG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_6 = YPfab_met(FUNCODEREF(fun_subtypeQ_6),T21,LITREF(lit_9),LITREF(lit_13),sloc(73),YPfalse); T23 = VARREF_OR(YsubtypeQ,YPfalse); T24 = fun_subtypeQ_6; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YsubtypeQ,T22); lit_14 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T25 = YPfab_sig(YPPlist(2,VARREF(YgooStypesYLbotG),VARREF(YLunionG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_7 = YPfab_met(FUNCODEREF(fun_subtypeQ_7),T25,LITREF(lit_9),LITREF(lit_14),sloc(74),YPfalse); T27 = VARREF_OR(YsubtypeQ,YPfalse); T28 = fun_subtypeQ_7; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YsubtypeQ,T26); lit_15 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T29 = YPfab_sig(YPPlist(2,VARREF(YgooStypesYLbotG),VARREF(YgooStypesYLbotG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_8 = YPfab_met(FUNCODEREF(fun_subtypeQ_8),T29,LITREF(lit_9),LITREF(lit_15),sloc(75),YPfalse); T31 = VARREF_OR(YsubtypeQ,YPfalse); T32 = fun_subtypeQ_8; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YsubtypeQ,T30); lit_16 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); lit_17 = YPPlist(1,YPPsym((P)"t")); T34 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T34,YPfalse,LITREF(lit_17),sloc(78),YPfalse); T33 = YPfab_sig(YPPlist(2,VARREF(YLunionG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_10 = YPfab_met(FUNCODEREF(fun_subtypeQ_10),T33,LITREF(lit_9),LITREF(lit_16),sloc(77),YPfalse); T36 = VARREF_OR(YsubtypeQ,YPfalse); T37 = fun_subtypeQ_10; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YsubtypeQ,T35); lit_18 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); lit_19 = YPPlist(1,YPPsym((P)"t")); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T39,YPfalse,LITREF(lit_19),sloc(80),YPfalse); T38 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLunionG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_12 = YPfab_met(FUNCODEREF(fun_subtypeQ_12),T38,LITREF(lit_9),LITREF(lit_18),sloc(79),YPfalse); T41 = VARREF_OR(YsubtypeQ,YPfalse); T42 = fun_subtypeQ_12; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YsubtypeQ,T40); lit_20 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); lit_21 = YPPlist(1,YPPsym((P)"t")); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_13 = YPfab_met(FUNCODEREF(fun_13),T44,YPfalse,LITREF(lit_21),sloc(83),YPfalse); T43 = YPfab_sig(YPPlist(2,VARREF(YLunionG),VARREF(YLunionG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_14 = YPfab_met(FUNCODEREF(fun_subtypeQ_14),T43,LITREF(lit_9),LITREF(lit_20),sloc(82),YPfalse); T46 = VARREF_OR(YsubtypeQ,YPfalse); T47 = fun_subtypeQ_14; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YsubtypeQ,T45); lit_22 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T48 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_15 = YPfab_met(FUNCODEREF(fun_subtypeQ_15),T48,LITREF(lit_9),LITREF(lit_22),sloc(85),YPfalse); T50 = VARREF_OR(YsubtypeQ,YPfalse); T51 = fun_subtypeQ_15; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YsubtypeQ,T49); lit_23 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T52 = YPfab_sig(YPPlist(2,VARREF(YLsingletonG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_16 = YPfab_met(FUNCODEREF(fun_subtypeQ_16),T52,LITREF(lit_9),LITREF(lit_23),sloc(87),YPfalse); T54 = VARREF_OR(YsubtypeQ,YPfalse); T55 = fun_subtypeQ_16; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YsubtypeQ,T53); lit_24 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T56 = YPfab_sig(YPPlist(2,VARREF(YLsubclassG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_17 = YPfab_met(FUNCODEREF(fun_subtypeQ_17),T56,LITREF(lit_9),LITREF(lit_24),sloc(89),YPfalse); T58 = VARREF_OR(YsubtypeQ,YPfalse); T59 = fun_subtypeQ_17; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YsubtypeQ,T57); lit_25 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T60 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLsingletonG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_18 = YPfab_met(FUNCODEREF(fun_subtypeQ_18),T60,LITREF(lit_9),LITREF(lit_25),sloc(92),YPfalse); T62 = VARREF_OR(YsubtypeQ,YPfalse); T63 = fun_subtypeQ_18; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YsubtypeQ,T61); lit_26 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T64 = YPfab_sig(YPPlist(2,VARREF(YLsingletonG),VARREF(YLsingletonG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_19 = YPfab_met(FUNCODEREF(fun_subtypeQ_19),T64,LITREF(lit_9),LITREF(lit_26),sloc(94),YPfalse); T66 = VARREF_OR(YsubtypeQ,YPfalse); T67 = fun_subtypeQ_19; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YsubtypeQ,T65); lit_27 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T68 = YPfab_sig(YPPlist(2,VARREF(YLsubclassG),VARREF(YLsingletonG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_20 = YPfab_met(FUNCODEREF(fun_subtypeQ_20),T68,LITREF(lit_9),LITREF(lit_27),sloc(96),YPfalse); T70 = VARREF_OR(YsubtypeQ,YPfalse); T71 = fun_subtypeQ_20; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YsubtypeQ,T69); lit_28 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T72 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLsubclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_21 = YPfab_met(FUNCODEREF(fun_subtypeQ_21),T72,LITREF(lit_9),LITREF(lit_28),sloc(99),YPfalse); T74 = VARREF_OR(YsubtypeQ,YPfalse); T75 = fun_subtypeQ_21; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YsubtypeQ,T73); lit_29 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T76 = YPfab_sig(YPPlist(2,VARREF(YLsubclassG),VARREF(YLsubclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_22 = YPfab_met(FUNCODEREF(fun_subtypeQ_22),T76,LITREF(lit_9),LITREF(lit_29),sloc(101),YPfalse); T78 = VARREF_OR(YsubtypeQ,YPfalse); T79 = fun_subtypeQ_22; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YsubtypeQ,T77); lit_30 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T80 = YPfab_sig(YPPlist(2,VARREF(YLsingletonG),VARREF(YLsubclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_23 = YPfab_met(FUNCODEREF(fun_subtypeQ_23),T80,LITREF(lit_9),LITREF(lit_30),sloc(103),YPfalse); T82 = VARREF_OR(YsubtypeQ,YPfalse); T83 = fun_subtypeQ_23; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YsubtypeQ,T81); lit_31 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T84 = YPfab_sig(YPPlist(2,VARREF(YLproductG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_24 = YPfab_met(FUNCODEREF(fun_subtypeQ_24),T84,LITREF(lit_9),LITREF(lit_31),sloc(106),YPfalse); T86 = VARREF_OR(YsubtypeQ,YPfalse); T87 = fun_subtypeQ_24; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YsubtypeQ,T85); lit_32 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T88 = YPfab_sig(YPPlist(2,VARREF(YLtypeG),VARREF(YLproductG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_25 = YPfab_met(FUNCODEREF(fun_subtypeQ_25),T88,LITREF(lit_9),LITREF(lit_32),sloc(108),YPfalse); T90 = VARREF_OR(YsubtypeQ,YPfalse); T91 = fun_subtypeQ_25; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YsubtypeQ,T89); lit_33 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T92 = YPfab_sig(YPPlist(2,VARREF(YLproductG),VARREF(YLproductG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_26 = YPfab_met(FUNCODEREF(fun_subtypeQ_26),T92,LITREF(lit_9),LITREF(lit_33),sloc(110),YPfalse); T94 = VARREF_OR(YsubtypeQ,YPfalse); T95 = fun_subtypeQ_26; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YsubtypeQ,T93); lit_34 = YPPlist(2,YPPsym((P)"t1"),YPPsym((P)"t2")); T96 = YPfab_sig(YPPlist(2,VARREF(YLproductG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_subtypeQ_27 = YPfab_met(FUNCODEREF(fun_subtypeQ_27),T96,LITREF(lit_9),LITREF(lit_34),sloc(115),YPfalse); T98 = VARREF_OR(YsubtypeQ,YPfalse); T99 = fun_subtypeQ_27; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YsubtypeQ,T97); lit_35 = YPPsym((P)"isa?"); lit_36 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"t")); T101 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLtypeG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T100 = YPfab_gen(T101,LITREF(lit_35),LITREF(lit_36),YPfalse); VARSET(YisaQ,T100); lit_37 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"t")); T102 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_isaQ_28 = YPfab_met(FUNCODEREF(fun_isaQ_28),T102,LITREF(lit_35),LITREF(lit_37),sloc(122),YPfalse); T104 = VARREF_OR(YisaQ,YPfalse); T105 = fun_isaQ_28; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YisaQ,T103); lit_38 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"t")); T106 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsingletonG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_isaQ_29 = YPfab_met(FUNCODEREF(fun_isaQ_29),T106,LITREF(lit_35),LITREF(lit_38),sloc(124),YPfalse); T108 = VARREF_OR(YisaQ,YPfalse); T109 = fun_isaQ_29; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YisaQ,T107); lit_39 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"t")); T110 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLsubclassG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_isaQ_30 = YPfab_met(FUNCODEREF(fun_isaQ_30),T110,LITREF(lit_35),LITREF(lit_39),sloc(126),YPfalse); T112 = VARREF_OR(YisaQ,YPfalse); T113 = fun_isaQ_30; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YisaQ,T111); lit_40 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"u")); lit_41 = YPPlist(1,YPPsym((P)"t")); T115 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_31 = YPfab_met(FUNCODEREF(fun_31),T115,YPfalse,LITREF(lit_41),sloc(130),YPfalse); T114 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLunionG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_isaQ_32 = YPfab_met(FUNCODEREF(fun_isaQ_32),T114,LITREF(lit_35),LITREF(lit_40),sloc(129),YPfalse); T117 = VARREF_OR(YisaQ,YPfalse); T118 = fun_isaQ_32; T116 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T117,T118); VARSET(YisaQ,T116); lit_42 = YPPlist(2,YPPsym((P)"o"),YPPsym((P)"t")); T119 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLproductG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_isaQ_33 = YPfab_met(FUNCODEREF(fun_isaQ_33),T119,LITREF(lit_35),LITREF(lit_42),sloc(131),YPfalse); T121 = VARREF_OR(YisaQ,YPfalse); T122 = fun_isaQ_33; T120 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T121,T122); VARSET(YisaQ,T120); lit_43 = YPPsym((P)"order-specs"); lit_44 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T125 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T124 = YPfab_sig(YPPlist(3,VARREF(YLtypeG),VARREF(YLtypeG),VARREF(YLanyG)),YPfalse,YPint((P)3),T125,Ynil); T123 = YPfab_gen(T124,LITREF(lit_43),LITREF(lit_44),YPfalse); VARSET(Yorder_specs,T123); lit_45 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); lit_46 = YPPsym((P)"="); T129 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T128 = YPfab_sig(YPPlist(3,VARREF(YLsingletonG),VARREF(YLsingletonG),VARREF(YLanyG)),YPfalse,YPint((P)3),T129,Ynil); T127 = fun_order_specs_34 = YPfab_met(FUNCODEREF(fun_order_specs_34),T128,LITREF(lit_43),LITREF(lit_45),sloc(141),YPfalse); T132 = VARREF_OR(Yorder_specs,YPfalse); T133 = fun_order_specs_34; T131 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T132,T133); T130 = VARSET(Yorder_specs,T131); T126 = T130; return T126; } P YgooStypesY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59; DEFCREGS(); lit_47 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); lit_48 = YPPsym((P)"<"); T1 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T0 = YPfab_sig(YPPlist(3,VARREF(YLsingletonG),VARREF(YLtypeG),VARREF(YLanyG)),YPfalse,YPint((P)3),T1,Ynil); fun_order_specs_35 = YPfab_met(FUNCODEREF(fun_order_specs_35),T0,LITREF(lit_43),LITREF(lit_47),sloc(145),YPfalse); T3 = VARREF_OR(Yorder_specs,YPfalse); T4 = fun_order_specs_35; T2 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T3,T4); VARSET(Yorder_specs,T2); lit_49 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); lit_50 = YPPsym((P)">"); T6 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T5 = YPfab_sig(YPPlist(3,VARREF(YLsubclassG),VARREF(YLsubclassG),VARREF(YLanyG)),YPfalse,YPint((P)3),T6,Ynil); fun_order_specs_36 = YPfab_met(FUNCODEREF(fun_order_specs_36),T5,LITREF(lit_43),LITREF(lit_49),sloc(149),YPfalse); T8 = VARREF_OR(Yorder_specs,YPfalse); T9 = fun_order_specs_36; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(Yorder_specs,T7); lit_51 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); lit_52 = YPPsym((P)"<>"); T11 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T10 = YPfab_sig(YPPlist(3,VARREF(YLsubclassG),VARREF(YLclassG),VARREF(YLanyG)),YPfalse,YPint((P)3),T11,Ynil); fun_order_specs_37 = YPfab_met(FUNCODEREF(fun_order_specs_37),T10,LITREF(lit_43),LITREF(lit_51),sloc(158),YPfalse); T13 = VARREF_OR(Yorder_specs,YPfalse); T14 = fun_order_specs_37; T12 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T13,T14); VARSET(Yorder_specs,T12); lit_53 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T16 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T15 = YPfab_sig(YPPlist(3,VARREF(YLclassG),VARREF(YLsubclassG),VARREF(YLanyG)),YPfalse,YPint((P)3),T16,Ynil); fun_order_specs_38 = YPfab_met(FUNCODEREF(fun_order_specs_38),T15,LITREF(lit_43),LITREF(lit_53),sloc(167),YPfalse); T18 = VARREF_OR(Yorder_specs,YPfalse); T19 = fun_order_specs_38; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(Yorder_specs,T17); lit_54 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T21 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T20 = YPfab_sig(YPPlist(3,VARREF(YLclassG),VARREF(YLclassG),VARREF(YLanyG)),YPfalse,YPint((P)3),T21,Ynil); fun_order_specs_39 = YPfab_met(FUNCODEREF(fun_order_specs_39),T20,LITREF(lit_43),LITREF(lit_54),sloc(176),YPfalse); T23 = VARREF_OR(Yorder_specs,YPfalse); T24 = fun_order_specs_39; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(Yorder_specs,T22); lit_55 = YPPlist(3,YPPsym((P)"t1"),YPPsym((P)"t2"),YPPsym((P)"arg")); T26 = XCALL2(1,VARREF(YtT),VARREF(YLsymG),VARREF(YLtypeG)); T25 = YPfab_sig(YPPlist(3,VARREF(YLtypeG),VARREF(YLtypeG),VARREF(YLanyG)),YPfalse,YPint((P)3),T26,Ynil); fun_order_specs_40 = YPfab_met(FUNCODEREF(fun_order_specs_40),T25,LITREF(lit_43),LITREF(lit_55),sloc(180),YPfalse); T28 = VARREF_OR(Yorder_specs,YPfalse); T29 = fun_order_specs_40; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(Yorder_specs,T27); lit_56 = YPPsym((P)"may-isa?"); lit_57 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); T32 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T31 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLtypeG)),YPfalse,YPint((P)2),T32,Ynil); T30 = YPfab_gen(T31,LITREF(lit_56),LITREF(lit_57),YPfalse); VARSET(Ymay_isaQ,T30); lit_58 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); T34 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T33 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLclassG)),YPfalse,YPint((P)2),T34,Ynil); fun_may_isaQ_41 = YPfab_met(FUNCODEREF(fun_may_isaQ_41),T33,LITREF(lit_56),LITREF(lit_58),sloc(191),YPfalse); T36 = VARREF_OR(Ymay_isaQ,YPfalse); T37 = fun_may_isaQ_41; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(Ymay_isaQ,T35); lit_59 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); T39 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T38 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLsingletonG)),YPfalse,YPint((P)2),T39,Ynil); fun_may_isaQ_42 = YPfab_met(FUNCODEREF(fun_may_isaQ_42),T38,LITREF(lit_56),LITREF(lit_59),sloc(193),YPfalse); T41 = VARREF_OR(Ymay_isaQ,YPfalse); T42 = fun_may_isaQ_42; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(Ymay_isaQ,T40); lit_60 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); T44 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T43 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLsubclassG)),YPfalse,YPint((P)2),T44,Ynil); fun_may_isaQ_43 = YPfab_met(FUNCODEREF(fun_may_isaQ_43),T43,LITREF(lit_56),LITREF(lit_60),sloc(195),YPfalse); T46 = VARREF_OR(Ymay_isaQ,YPfalse); T47 = fun_may_isaQ_43; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(Ymay_isaQ,T45); lit_61 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); T49 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T48 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLunionG)),YPfalse,YPint((P)2),T49,Ynil); fun_may_isaQ_44 = YPfab_met(FUNCODEREF(fun_may_isaQ_44),T48,LITREF(lit_56),LITREF(lit_61),sloc(198),YPfalse); T51 = VARREF_OR(Ymay_isaQ,YPfalse); T52 = fun_may_isaQ_44; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(Ymay_isaQ,T50); lit_62 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"t")); lit_63 = YPPlist(1,YPPsym((P)"t")); T55 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_45 = YPfab_met(FUNCODEREF(fun_45),T55,YPfalse,LITREF(lit_63),sloc(208),YPfalse); T54 = XCALL2(1,VARREF(YtT),VARREF(YLlogG),VARREF(YLlogG)); T53 = YPfab_sig(YPPlist(2,VARREF(YLclassG),VARREF(YLproductG)),YPfalse,YPint((P)2),T54,Ynil); fun_may_isaQ_46 = YPfab_met(FUNCODEREF(fun_may_isaQ_46),T53,LITREF(lit_56),LITREF(lit_62),sloc(206),YPfalse); T57 = VARREF_OR(Ymay_isaQ,YPfalse); T58 = fun_may_isaQ_46; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(Ymay_isaQ,T56); T59 = YPfalse; return T59; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YgooStypesYLbotG}, {"t?", CVAR, &YgooStypesYtQ}, {"---main-2---", PVAR, NULL}, {"any?", CVAR, &YgooStypesYanyQ}, {"t<", CVAR, &YgooStypesYtL}, {"all2?", CVAR, &YgooStypesYall2Q}, {"t=", CVAR, &YgooStypesYtE}, {"t+", CVAR, &YgooStypesYtA}, {"as", CVAR, &YgooStypesYas}, {"---main-1---", PVAR, NULL}, {"len", CVAR, &YgooStypesYlen}, {"---main-0---", PVAR, NULL}, {"$bot", CVAR, &YgooStypesYDbot}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"2nd", NULL}, {"subtype?", NULL}, {"", NULL}, {"all2?", NULL}, {"class-ancestors", NULL}, {"order-specs", NULL}, {"t?", NULL}, {"product-elts", NULL}, {"any?", NULL}, {"t<", NULL}, {"t*", NULL}, {"class-direct-props", NULL}, {"may-isa?", NULL}, {"t=", NULL}, {"union-elts", NULL}, {"class-children", NULL}, {"t+", NULL}, {"", NULL}, {"", NULL}, {"as", NULL}, {"type-class", NULL}, {"len", NULL}, {"", NULL}, {"class-parents", NULL}, {"", NULL}, {"class-props", NULL}, {"type-object", NULL}, {"class-name", NULL}, {"isa?", NULL}, {"", NULL}, {"$bot", NULL}, {"", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooStypes; MODULE_INFO module_info_gooStypes = { "goo/types", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); /* EXPRESSION: */ extern void load_module_gooStypes (void); void load_module_gooStypes (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); (P)YgooStypesY___main_0___(); (P)YgooStypesY___main_1___(); (P)YgooStypesY___main_2___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/user.c0100644000175000017500000013732707756744555014561 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/user"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/user */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YevalStopYsave_image,"eval/top","save-image"); EXT(YLsymG,"goo/boot",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(YevalStopYframe_var,"eval/top","frame-var"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YevalStopYbacktrace,"eval/top","backtrace"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YevalStopYtop,"eval/top","top"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YevalStopYD,"eval/top","$"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(YevalStopYload,"eval/top","load"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YevalStopYDDD,"eval/top","$$$"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(YevalStopYDD,"eval/top","$$"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooSxYto_c,"goo/x","to-c"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YevalStopYframe,"eval/top","frame"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YevalSsyntaxYeval,"eval/syntax","eval"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YevalStopYload_file,"eval/top","load-file"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YevalStopYdo_stack_frames,"eval/top","do-stack-frames"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(YevalStopYbt,"eval/top","bt"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ /* FUNCTIONS: */ extern P YgooSuserY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YgooSuserY___main_0___() { P T0; DEFCREGS(); T0 = YPfalse; return T0; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSeval; extern MODULE_INFO module_info_gooSx; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_evalStop; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_evalSsyntax; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSeval}, {&module_info_gooSx}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSioSport, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"save-image", &module_info_evalStop, NULL}, {"", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"frame-var", &module_info_evalStop, NULL}, {"", &module_info_gooSconditions, NULL}, {"backtrace", &module_info_evalStop, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"top", &module_info_evalStop, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"~=", &module_info_gooSlog, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"$", &module_info_evalStop, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"load", &module_info_evalStop, NULL}, {"t?", &module_info_gooStypes, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"-", &module_info_gooSmath, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"$$$", &module_info_evalStop, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"t=", &module_info_gooStypes, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"$$", &module_info_evalStop, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"to-c", &module_info_gooSx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"frame", &module_info_evalStop, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"eval", &module_info_evalSsyntax, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"load-file", &module_info_evalStop, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"gets", &module_info_gooSioSport, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSconditions, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"do-stack-frames", &module_info_evalStop, NULL}, {"max", &module_info_gooSmag, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"dg", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"bt", &module_info_evalStop, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"in", &module_info_gooSioSport, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"until", &module_info_gooSmacros, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"opf", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {NULL, NULL} }; extern MODULE_INFO module_info_gooSuser; MODULE_INFO module_info_gooSuser = { "goo/user", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSeval (void); extern void load_module_gooSx (void); /* EXPRESSION: */ extern void load_module_gooSuser (void); void load_module_gooSuser (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSeval(); load_module_gooSx(); (P)YgooSuserY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/x.c0100644000175000017500000011331607756744555014042 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/x"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/x */ EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YLflatG,"goo/boot",""); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YLseqXG,"goo/boot",""); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YOdo,"goo/boot","@do"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YLseqG,"goo/boot",""); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YLcolIG,"goo/boot",""); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YOpick,"goo/boot","@pick"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YOmap,"goo/boot","@map"); DEF(YgooSxYto_c,"goo/x","to-c"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(Yapp_args,"goo/boot","app-args"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YLlogG,"goo/boot",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_3); DEFLIT(lit_5); DEFLIT(lit_6); DEFLIT(lit_2); DEFLIT(lit_4); DEFLIT(lit_1); DEFLIT(lit_0); DEFLIT(lit_7); /* FUNCTIONS: */ LOCFOR(fun_to_c_0); LOCFOR(fun_to_c_1); LOCFOR(fun_to_c_2); LOCFOR(fun_to_c_3); LOCFOR(fun_to_c_4); LOCFOR(fun_to_c_5); extern P YgooSxY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_to_c_0) { P x_; P xF5379; P xF5378; P T0; LINK_STACK(); ARG(x_, 0); xF5378 = x_; xF5379 = xF5378; T0 = (P)YPiGG(xF5379,(P)2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_1) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPfu(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_2) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPsu(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_3) { P x_; P xF5381; P xF5380; P T0; LINK_STACK(); ARG(x_, 0); xF5380 = x_; xF5381 = xF5380; T0 = (P)YPiGG(xF5381,(P)2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_4) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = (P)YPbu(x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_c_5) { P x_; P xF5382; P T0; LINK_STACK(); ARG(x_, 0); xF5382 = x_; T0 = (P)YPuntag_into(xF5382); UNLINK_STACK(); QRET(T0); } P YgooSxY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; DEFCREGS(); lit_0 = YPPsym((P)"to-c"); lit_1 = YPPlist(1,YPPsym((P)"x")); T1 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSxYto_c,T0); lit_2 = YPPlist(1,YPPsym((P)"x")); T2 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_to_c_0 = YPfab_met(FUNCODEREF(fun_to_c_0),T2,LITREF(lit_0),LITREF(lit_2),sloc(5),YPfalse); T4 = VARREF_OR(YgooSxYto_c,YPfalse); T5 = fun_to_c_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooSxYto_c,T3); lit_3 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_to_c_1 = YPfab_met(FUNCODEREF(fun_to_c_1),T6,LITREF(lit_0),LITREF(lit_3),sloc(6),YPfalse); T8 = VARREF_OR(YgooSxYto_c,YPfalse); T9 = fun_to_c_1; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSxYto_c,T7); lit_4 = YPPlist(1,YPPsym((P)"x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_to_c_2 = YPfab_met(FUNCODEREF(fun_to_c_2),T10,LITREF(lit_0),LITREF(lit_4),sloc(7),YPfalse); T12 = VARREF_OR(YgooSxYto_c,YPfalse); T13 = fun_to_c_2; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSxYto_c,T11); lit_5 = YPPlist(1,YPPsym((P)"x")); T14 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_to_c_3 = YPfab_met(FUNCODEREF(fun_to_c_3),T14,LITREF(lit_0),LITREF(lit_5),sloc(8),YPfalse); T16 = VARREF_OR(YgooSxYto_c,YPfalse); T17 = fun_to_c_3; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSxYto_c,T15); lit_6 = YPPlist(1,YPPsym((P)"x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLlogG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_to_c_4 = YPfab_met(FUNCODEREF(fun_to_c_4),T18,LITREF(lit_0),LITREF(lit_6),sloc(9),YPfalse); T20 = VARREF_OR(YgooSxYto_c,YPfalse); T21 = fun_to_c_4; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooSxYto_c,T19); lit_7 = YPPlist(1,YPPsym((P)"x")); T22 = YPfab_sig(YPPlist(1,VARREF(YLlocG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_to_c_5 = YPfab_met(FUNCODEREF(fun_to_c_5),T22,LITREF(lit_0),LITREF(lit_7),sloc(10),YPfalse); T24 = VARREF_OR(YgooSxYto_c,YPfalse); T25 = fun_to_c_5; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSxYto_c,T23); T26 = YPfalse; return T26; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {NULL} }; static IMPORT_INFO import_infos[] = { {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"%slen", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"to-c", CVAR, &YgooSxYto_c}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"%bb", NULL}, {"c-expr", NULL}, {"%ib", NULL}, {"%lb", NULL}, {"%fb", NULL}, {"to-c", NULL}, {"%sb", NULL}, {"%cb", NULL}, {"c-ment", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSx; MODULE_INFO module_info_gooSx = { "goo/x", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); /* EXPRESSION: */ extern void load_module_gooSx (void); void load_module_gooSx (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); (P)YgooSxY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/0040755000175000017500000000000007756746021014353 5ustar vomjomvomjomgoo-0.155/c/g2c/goo/cols/CVS/0040755000175000017500000000000007756746021015006 5ustar vomjomvomjomgoo-0.155/c/g2c/goo/cols/CVS/Root0100644000175000017500000000003307756746020015644 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/goo/cols/CVS/Repository0100644000175000017500000000002307756746020017077 0ustar vomjomvomjomgoo/c/g2c/goo/cols goo-0.155/c/g2c/goo/cols/CVS/Entries0100644000175000017500000000132507756746021016340 0ustar vomjomvomjom/col.c/1.42/Wed Nov 19 19:50:05 2003/-kb/ /colx.c/1.34/Wed Nov 19 19:50:06 2003/-kb/ /cycle.c/1.39/Wed Nov 19 19:50:06 2003/-kb/ /flat.c/1.42/Wed Nov 19 19:50:06 2003/-kb/ /lst.c/1.41/Wed Nov 19 19:50:07 2003/-kb/ /map.c/1.41/Wed Nov 19 19:50:07 2003/-kb/ /opts.c/1.42/Wed Nov 19 19:50:07 2003/-kb/ /range.c/1.42/Wed Nov 19 19:50:08 2003/-kb/ /rep.c/1.32/Wed Nov 19 19:50:08 2003/-kb/ /seq.c/1.42/Wed Nov 19 19:50:09 2003/-kb/ /seqx.c/1.34/Wed Nov 19 19:50:09 2003/-kb/ /step.c/1.42/Wed Nov 19 19:50:10 2003/-kb/ /str.c/1.42/Wed Nov 19 19:50:10 2003/-kb/ /tab.c/1.42/Wed Nov 19 19:50:10 2003/-kb/ /tup.c/1.32/Wed Nov 19 19:50:11 2003/-kb/ /vec.c/1.42/Wed Nov 19 19:50:11 2003/-kb/ /zip.c/1.39/Wed Nov 19 19:50:12 2003/-kb/ D goo-0.155/c/g2c/goo/cols/col.c0100644000175000017500000030231607756744555015310 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/col"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/col */ DEF(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); DEF(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); DEF(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); DEF(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); DEF(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); DEF(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); DEF(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); DEF(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); DEF(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); DEF(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); DEF(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); DEF(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); DEF(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); DEF(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); DEF(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); DEF(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); DEF(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); DEF(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); DEF(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); DEF(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooStypesYtA,"goo/types","t+"); DEF(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); DEF(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); DEF(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); DEF(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); DEF(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); DEF(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); DEF(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); DEF(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooScolsScolYDelt_default,"goo/cols/col","$elt-default"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); DEF(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); DEF(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); DEF(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); DEF(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); DEF(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); DEF(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); DEF(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); DEF(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YgooScolsScolYLelt_defaultG,"goo/cols/col",""); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); DEF(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); DEF(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooSmathYcos,"goo/math","cos"); DEF(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); DEF(YgooScolsScolYDeq_nul,"goo/cols/col","$eq-nul"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); DEF(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_18); DEFLIT(lit_107); DEFLIT(lit_68); DEFLIT(lit_6); DEFLIT(lit_66); DEFLIT(lit_58); DEFLIT(lit_115); DEFLIT(lit_78); DEFLIT(lit_108); DEFLIT(lit_49); DEFLIT(lit_61); DEFLIT(lit_32); DEFLIT(lit_41); DEFLIT(lit_53); DEFLIT(lit_23); DEFLIT(lit_4); DEFLIT(lit_12); DEFLIT(lit_77); DEFLIT(lit_97); DEFLIT(lit_5); DEFLIT(lit_50); DEFLIT(lit_101); DEFLIT(lit_83); DEFLIT(lit_59); DEFLIT(lit_87); DEFLIT(lit_36); DEFLIT(lit_22); DEFLIT(lit_72); DEFLIT(lit_114); DEFLIT(lit_40); DEFLIT(lit_102); DEFLIT(lit_89); DEFLIT(lit_44); DEFLIT(lit_80); DEFLIT(lit_16); DEFLIT(lit_81); DEFLIT(lit_63); DEFLIT(lit_98); DEFLIT(lit_85); DEFLIT(lit_70); DEFLIT(lit_27); DEFLIT(lit_13); DEFLIT(lit_90); DEFLIT(lit_96); DEFLIT(lit_88); DEFLIT(lit_19); DEFLIT(lit_71); DEFLIT(lit_64); DEFLIT(lit_10); DEFLIT(lit_35); DEFLIT(lit_15); DEFLIT(lit_76); DEFLIT(lit_69); DEFLIT(lit_94); DEFLIT(lit_33); DEFLIT(lit_82); DEFLIT(lit_116); DEFLIT(lit_122); DEFLIT(lit_104); DEFLIT(lit_26); DEFLIT(lit_120); DEFLIT(lit_86); DEFLIT(lit_30); DEFLIT(lit_119); DEFLIT(lit_31); DEFLIT(lit_99); DEFLIT(lit_2); DEFLIT(lit_75); DEFLIT(lit_117); DEFLIT(lit_55); DEFLIT(lit_51); DEFLIT(lit_62); DEFLIT(lit_48); DEFLIT(lit_118); DEFLIT(lit_121); DEFLIT(lit_54); DEFLIT(lit_105); DEFLIT(lit_112); DEFLIT(lit_91); DEFLIT(lit_113); DEFLIT(lit_3); DEFLIT(lit_47); DEFLIT(lit_111); DEFLIT(lit_34); DEFLIT(lit_20); DEFLIT(lit_56); DEFLIT(lit_38); DEFLIT(lit_8); DEFLIT(lit_124); DEFLIT(lit_7); DEFLIT(lit_42); DEFLIT(lit_11); DEFLIT(lit_52); DEFLIT(lit_79); DEFLIT(lit_1); DEFLIT(lit_57); DEFLIT(lit_110); DEFLIT(lit_103); DEFLIT(lit_21); DEFLIT(lit_43); DEFLIT(lit_100); DEFLIT(lit_95); DEFLIT(lit_109); DEFLIT(lit_0); DEFLIT(lit_17); DEFLIT(lit_106); DEFLIT(lit_9); DEFLIT(lit_123); DEFLIT(lit_14); DEFLIT(lit_46); DEFLIT(lit_45); DEFLIT(lit_39); DEFLIT(lit_65); DEFLIT(lit_92); DEFLIT(lit_28); DEFLIT(lit_60); DEFLIT(lit_74); DEFLIT(lit_67); DEFLIT(lit_37); DEFLIT(lit_24); DEFLIT(lit_73); DEFLIT(lit_29); DEFLIT(lit_25); DEFLIT(lit_93); DEFLIT(lit_84); /* FUNCTIONS: */ LOCFOR(fun_enum_0); LOCFOR(fun_as_1); LOCFOR(fun_dup_2); LOCFOR(fun_dup_3); LOCFOR(fun_len_4); LOCFOR(fun_elt_type_5); LOCFOR(fun_key_type_6); LOCFOR(fun_key_test_7); LOCFOR(fun_nulQ_8); LOCFOR(fun_nul_9); LOCFOR(fun_elt_default_10); LOCFOR(fun_fab_into_11); LOCFOR(fun_fabs_12); LOCFOR(fun_fab_fillX_13); LOCFOR(fun_fill_14); LOCFOR(fun_anyQ_15); LOCFOR(fun_allQ_16); LOCFOR(fun_fold_17); LOCFOR(fun_foldA_18); LOCFOR(fun_find_or_19); LOCFOR(fun_find_20); LOCFOR(fun_zap_21); LOCFOR(fun_do_22); LOCFOR(fun_map_23); LOCFOR(fun_do_keyed_24); LOCFOR(fun_map_keyed_25); LOCFOR(fun_keys_26); LOCFOR(fun_items_27); LOCFOR(fun_28); LOCFOR(fun_memQ_29); LOCFOR(fun_col_res_type_30); LOCFOR(fun_col_res_31); LOCFOR(fun_E_32); LOCFOR(fun_elt_33); extern P YgooScolsScolY___main_0___ (); extern P YgooScolsScolY___main_1___ (); extern P YgooScolsScolY___main_2___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_enum_0) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_as_1) { P t_,x_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(t_, 0); ARG(x_, 1); T2 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T1 = CALL2(1,VARREF(YgooSmacrosYEE),T2,t_); if (T1 != YPfalse) { T0 = x_; } else { T5 = CALL1(1,VARREF(YgooStypesYlen),x_); T4 = CALL2(1,VARREF(YgooScolsScolYfab),t_,T5); T3 = CALL2(1,VARREF(YgooScolsScolYfab_into),T4,x_); T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_dup_2) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T2 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T3 = CALL1(1,VARREF(YgooStypesYlen),x_); T1 = CALL2(1,VARREF(YgooScolsScolYfab),T2,T3); T0 = CALL2(1,VARREF(YgooScolsScolYfab_into),T1,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_dup_3) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_len_4) { P x_; P iF2960; P eF2959; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); T5 = CALL1(1,VARREF(YgooScolsScolYenum),x_); eF2959 = T5; iF2960 = YPint((P)0); LOOP_53: { P a53_0,a53_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2959); if (T1 != YPfalse) { T0 = iF2960; } else { T3 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2959); T4 = CALL2(1,VARREF(YgooSmathYA),iF2960,YPint((P)1)); a53_0 = T3; a53_1 = T4; eF2959 = a53_0; iF2960 = a53_1; goto LOOP_53; T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_type_5) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLanyG)); } LOCCODEDEF(fun_key_type_6) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLanyG)); } LOCCODEDEF(fun_key_test_7) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YgooSmacrosYEE)); } LOCCODEDEF(fun_nulQ_8) { P c_; P T0,T1; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(YgooStypesYlen),c_); T0 = CALL2(1,VARREF(YgooSlogYE),T1,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nul_9) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL2(1,VARREF(YgooScolsScolYfab),c_,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_default_10) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_fab_into_11) { P dst_,src_; P ssF2961; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(dst_, 0); ARG(src_, 1); T6 = CALL1(1,VARREF(YgooScolsScolYenum),src_); ssF2961 = T6; LOOP_54: { P a54_0; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),ssF2961); if (T1 != YPfalse) { T0 = dst_; } else { T2 = CALL1(1,VARREF(YgooScolsScolYnow),ssF2961); T3 = CALL1(1,VARREF(YgooScolsScolYnow_key),ssF2961); CALL3(1,VARREF(YgooScolsScolYfab_elt_setter),T2,dst_,T3); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),ssF2961); a54_0 = T5; ssF2961 = a54_0; goto LOOP_54; T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fabs_12) { P c_,objects_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); NARGS(objects_, 1); T2 = CALL1(1,VARREF(YgooStypesYlen),objects_); T1 = CALL2(1,VARREF(YgooScolsScolYfab),c_,T2); T0 = CALL2(1,VARREF(YgooScolsScolYfab_into),T1,objects_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fab_fillX_13) { P dst_,src_; P dsF2962; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(dst_, 0); ARG(src_, 1); T5 = CALL1(1,VARREF(YgooScolsScolYenum),dst_); dsF2962 = T5; LOOP_55: { P a55_0; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),dsF2962); if (T1 != YPfalse) { T0 = dst_; } else { T2 = CALL1(1,VARREF(YgooScolsScolYnow_key),dsF2962); CALL3(1,VARREF(YgooScolsScolYfab_elt_setter),src_,dst_,T2); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),dsF2962); a55_0 = T4; dsF2962 = a55_0; goto LOOP_55; T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fill_14) { P dst_,val_; P T0,T1; LINK_STACK(); ARG(dst_, 0); ARG(val_, 1); T1 = CALL1(1,VARREF(YgooScolsScolYdup),dst_); T0 = CALL2(1,VARREF(YgooScolsScolYfab_fillX),T1,val_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_anyQ_15) { P test_,c_; P tmpF2964; P eF2963; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(test_, 0); ARG(c_, 1); T8 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2963 = T8; LOOP_56: { P a56_0; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2963); if (T1 != YPfalse) { T0 = YPfalse; } else { T7 = CALL1(1,VARREF(YgooScolsScolYnow),eF2963); T6 = CALL1(0,test_,T7); T5 = CALL1(1,VARREF(YgooSlogYas_log),T6); tmpF2964 = T5; if (tmpF2964 != YPfalse) { T2 = tmpF2964; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2963); a56_0 = T4; eF2963 = a56_0; goto LOOP_56; T2 = T3; } T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_allQ_16) { P test_,c_; P tmpF2966; P eF2965; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(test_, 0); ARG(c_, 1); T7 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2965 = T7; LOOP_57: { P a57_0; T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2965); tmpF2966 = T6; if (tmpF2966 != YPfalse) { T0 = tmpF2966; } else { T3 = CALL1(1,VARREF(YgooScolsScolYnow),eF2965); T2 = CALL1(0,test_,T3); if (T2 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2965); a57_0 = T5; eF2965 = a57_0; goto LOOP_57; T1 = T4; } else { T1 = YPfalse; } T0 = T1; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fold_17) { P combine_,init_,c_; P eF2968; P resF2967; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(combine_, 0); ARG(init_, 1); ARG(c_, 2); resF2967 = init_; T6 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2968 = T6; LOOP_58: { P a58_0,a58_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2968); if (T1 != YPfalse) { T0 = resF2967; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),eF2968); T3 = CALL2(0,combine_,resF2967,T4); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2968); a58_0 = T3; a58_1 = T5; resF2967 = a58_0; eF2968 = a58_1; goto LOOP_58; T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_foldA_18) { P combine_,c_; P eF2972; P resF2971; P initF2970; P eF2969; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(combine_, 0); ARG(c_, 1); T8 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2969 = T8; T7 = CALL1(1,VARREF(YgooScolsScolYnow),eF2969); initF2970 = T7; resF2971 = initF2970; T6 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2969); eF2972 = T6; LOOP_59: { P a59_0,a59_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2972); if (T1 != YPfalse) { T0 = resF2971; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),eF2972); T3 = CALL2(0,combine_,resF2971,T4); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2972); a59_0 = T3; a59_1 = T5; resF2971 = a59_0; eF2972 = a59_1; goto LOOP_59; T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_find_or_19) { P f_,c_,default_; P eF2973; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); ARG(default_, 2); T8 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2973 = T8; LOOP_60: { P a60_0; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2973); if (T1 != YPfalse) { T0 = default_; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),eF2973); T3 = CALL1(0,f_,T4); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF2973); T2 = T5; } else { T7 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2973); a60_0 = T7; eF2973 = a60_0; goto LOOP_60; T2 = T6; } T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_find_20) { P f_,c_; P valF2974; P T0,T1,T2,T3; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); T3 = CALL3(1,VARREF(YgooScolsScolYfind_or),f_,c_,VARREF(YgooScolsScolYDelt_default)); valF2974 = T3; T1 = CALL2(1,VARREF(YgooSmacrosYEE),valF2974,VARREF(YgooScolsScolYDelt_default)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Yrange_error),c_,f_); T0 = T2; } else { T0 = valF2974; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_zap_21) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T0 = CALL1(1,VARREF(YgooScolsScolYnul),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_do_22) { P f_,c_; P eF2975; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); T6 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2975 = T6; LOOP_61: { P a61_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2975); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooScolsScolYnow),eF2975); CALL1(0,f_,T3); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2975); a61_0 = T5; eF2975 = a61_0; goto LOOP_61; T0 = T4; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_map_23) { P f_,c_; P eF2977; P resF2976; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); T8 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)0)); resF2976 = T8; T9 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2977 = T9; LOOP_62: { P a62_0,a62_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2977); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),c_,resF2976); T0 = T2; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),eF2977); T3 = CALL1(1,f_,T4); T5 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF2977); CALL3(1,VARREF(YgooScolsScolYfab_elt_setter),T3,resF2976,T5); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2977); a62_0 = resF2976; a62_1 = T7; resF2976 = a62_0; eF2977 = a62_1; goto LOOP_62; T0 = T6; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_do_keyed_24) { P f_,c_; P eF2978; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); T7 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2978 = T7; LOOP_63: { P a63_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2978); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF2978); T4 = CALL1(1,VARREF(YgooScolsScolYnow),eF2978); CALL2(1,f_,T3,T4); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2978); a63_0 = T6; eF2978 = a63_0; goto LOOP_63; T0 = T5; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_map_keyed_25) { P f_,c_; P keyF2981; P eF2980; P resF2979; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); T8 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),YPint((P)0)); resF2979 = T8; T9 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2980 = T9; LOOP_64: { P a64_0,a64_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2980); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),c_,resF2979); T0 = T2; } else { T7 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF2980); keyF2981 = T7; T4 = CALL1(1,VARREF(YgooScolsScolYnow),eF2980); T3 = CALL2(0,f_,keyF2981,T4); CALL3(1,VARREF(YgooScolsScolYfab_elt_setter),T3,resF2979,keyF2981); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2980); a64_0 = resF2979; a64_1 = T6; resF2979 = a64_0; eF2980 = a64_1; goto LOOP_64; T0 = T5; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_keys_26) { P c_; P eF2983; P resF2982; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(c_, 0); resF2982 = Ynil; T7 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2983 = T7; LOOP_65: { P a65_0,a65_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2983); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),resF2982); T0 = T2; } else { T5 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF2983); T4 = CALL2(1,VARREF(YgooScolsScolYadd),resF2982,T5); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2983); a65_0 = T4; a65_1 = T6; resF2982 = a65_0; eF2983 = a65_1; goto LOOP_65; T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_items_27) { P c_; P eF2985; P resF2984; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(c_, 0); resF2984 = Ynil; T9 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF2985 = T9; LOOP_66: { P a66_0,a66_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF2985); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSmacrosYrevX),resF2984); T0 = T2; } else { T6 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF2985); T7 = CALL1(1,VARREF(YgooScolsScolYnow),eF2985); T5 = CALL2(1,VARREF(Ytup),T6,T7); T4 = CALL2(1,VARREF(YgooScolsScolYadd),resF2984,T5); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),eF2985); a66_0 = T4; a66_1 = T8; resF2984 = a66_0; eF2985 = a66_1; goto LOOP_66; T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_28) { P y_; P T0; LINK_STACK(); ARG(y_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYEE),y_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_memQ_29) { P c_,x_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T1 = FUNFAB(fun_28,1,x_); T0 = CALL2(1,VARREF(YgooStypesYanyQ),T1,c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_col_res_type_30) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL1(1,VARREF(YgooSclassYclass_of),c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_col_res_31) { P c_,x_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(YgooScolsScolYcol_res_type),c_); T0 = CALL2(1,VARREF(YgooStypesYas),T1,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_E_32) { P c1_,c2_; P e1F2986; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(c1_, 0); ARG(c2_, 1); T2 = CALL1(1,VARREF(YgooStypesYlen),c1_); T3 = CALL1(1,VARREF(YgooStypesYlen),c2_); T1 = CALL2(1,VARREF(YgooSlogYE),T2,T3); if (T1 != YPfalse) { T13 = CALL1(1,VARREF(YgooScolsScolYenum),c1_); e1F2986 = T13; LOOP_67: { P a67_0; T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),e1F2986); if (T5 != YPfalse) { T4 = YPtrue; } else { T8 = CALL1(1,VARREF(YgooScolsScolYnow),e1F2986); T10 = CALL1(1,VARREF(YgooScolsScolYnow_key),e1F2986); T9 = CALL3(1,VARREF(YgooScolsScolYelt_or),c2_,T10,VARREF(YgooScolsScolYDeq_nul)); T7 = CALL2(1,VARREF(YgooSlogYE),T8,T9); if (T7 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsScolYnxt),e1F2986); a67_0 = T12; e1F2986 = a67_0; goto LOOP_67; T6 = T11; } else { T6 = YPfalse; } T4 = T6; } } T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_33) { P c_,key_; P valF2987; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); ARG(key_, 1); T3 = CALL3(1,VARREF(YgooScolsScolYelt_or),c_,key_,VARREF(YgooScolsScolYDelt_default)); valF2987 = T3; T1 = CALL2(1,VARREF(YgooSmacrosYEE),valF2987,VARREF(YgooScolsScolYDelt_default)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Yrange_error),c_,key_); T0 = T2; } else { T0 = valF2987; } UNLINK_STACK(); QRET(T0); } P YgooScolsScolY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; DEFCREGS(); lit_0 = YPPsym((P)"len"); lit_1 = YPPlist(1,YPPsym((P)"x")); T1 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooStypesYlen,T0); lit_2 = YPPsym((P)"elt"); lit_3 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"k")); T3 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSmacrosYelt,T2); lit_4 = YPPsym((P)"elt-or"); lit_5 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"k"),YPPsym((P)"default")); T5 = YPfab_sig(YPPlist(3,VARREF(YLcolG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooScolsScolYelt_or,T4); lit_6 = YPPsym((P)"elt-type"); lit_7 = YPPlist(1,YPPsym((P)"x")); T7 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooScolsScolYelt_type,T6); lit_8 = YPPsym((P)"elt-default"); lit_9 = YPPlist(1,YPPsym((P)"x")); T9 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooScolsScolYelt_default,T8); lit_10 = YPPsym((P)"key-type"); lit_11 = YPPlist(1,YPPsym((P)"x")); T11 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooScolsScolYkey_type,T10); lit_12 = YPPsym((P)"key-test"); lit_13 = YPPlist(1,YPPsym((P)"x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); T12 = YPfab_gen(T13,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooScolsScolYkey_test,T12); lit_14 = YPPsym((P)"elts"); lit_15 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"keys")); T15 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_14),LITREF(lit_15),YPfalse); VARSET(YgooScolsScolYelts,T14); lit_16 = YPPsym((P)"nul?"); lit_17 = YPPlist(1,YPPsym((P)"x")); T17 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_16),LITREF(lit_17),YPfalse); VARSET(YgooSmacrosYnulQ,T16); lit_18 = YPPsym((P)"nul"); lit_19 = YPPlist(1,YPPsym((P)"x")); T20 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T19 = YPfab_sig(YPPlist(1,T20),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); T18 = YPfab_gen(T19,LITREF(lit_18),LITREF(lit_19),YPfalse); VARSET(YgooScolsScolYnul,T18); VARSET(YgooScolsScolYemptyQ,VARREF(YgooSmacrosYnulQ)); VARSET(YgooScolsScolYempty,VARREF(YgooScolsScolYnul)); lit_20 = YPPsym((P)"add"); lit_21 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T22 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T21 = YPfab_gen(T22,LITREF(lit_20),LITREF(lit_21),YPfalse); VARSET(YgooScolsScolYadd,T21); lit_22 = YPPsym((P)"dup"); lit_23 = YPPlist(1,YPPsym((P)"x")); T24 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); T23 = YPfab_gen(T24,LITREF(lit_22),LITREF(lit_23),YPfalse); VARSET(YgooScolsScolYdup,T23); lit_24 = YPPsym((P)"fab"); lit_25 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"s")); T27 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T26 = YPfab_sig(YPPlist(2,T27,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T25 = YPfab_gen(T26,LITREF(lit_24),LITREF(lit_25),YPfalse); VARSET(YgooScolsScolYfab,T25); lit_26 = YPPsym((P)"col"); lit_27 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"key-vals")); T30 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T29 = YPfab_sig(YPPlist(1,T30),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T28 = YPfab_gen(T29,LITREF(lit_26),LITREF(lit_27),YPfalse); VARSET(YgooScolsScolYcol,T28); lit_28 = YPPsym((P)"fabs"); lit_29 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"elts")); T33 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T32 = YPfab_sig(YPPlist(1,T33),YPtrue,YPint((P)1),VARREF(YLcolG),Ynil); T31 = YPfab_gen(T32,LITREF(lit_28),LITREF(lit_29),YPfalse); VARSET(YgooSchrYfabs,T31); lit_30 = YPPsym((P)"fill"); lit_31 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"val")); T35 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T34 = YPfab_gen(T35,LITREF(lit_30),LITREF(lit_31),YPfalse); VARSET(YgooScolsScolYfill,T34); lit_32 = YPPsym((P)"any?"); lit_33 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T39 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T38 = YPfab_gen(T39,LITREF(lit_32),LITREF(lit_33),YPfalse); T37 = VARSET(YgooStypesYanyQ,T38); T36 = T37; return T36; } P YgooScolsScolY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51; DEFCREGS(); lit_34 = YPPsym((P)"all?"); lit_35 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T1 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_34),LITREF(lit_35),YPfalse); VARSET(YgooScolsScolYallQ,T0); lit_36 = YPPsym((P)"fold"); lit_37 = YPPlist(3,YPPsym((P)"combine"),YPPsym((P)"init"),YPPsym((P)"x")); T3 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLanyG),VARREF(YLcolG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_36),LITREF(lit_37),YPfalse); VARSET(YgooScolsScolYfold,T2); lit_38 = YPPsym((P)"fold+"); lit_39 = YPPlist(2,YPPsym((P)"combine"),YPPsym((P)"x")); T5 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_38),LITREF(lit_39),YPfalse); VARSET(YgooScolsScolYfoldA,T4); lit_40 = YPPsym((P)"find-or"); lit_41 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"default")); T7 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_40),LITREF(lit_41),YPfalse); VARSET(YgooScolsScolYfind_or,T6); lit_42 = YPPsym((P)"find"); lit_43 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T9 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_42),LITREF(lit_43),YPfalse); VARSET(YgooScolsScolYfind,T8); lit_44 = YPPsym((P)"del"); lit_45 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"key")); T11 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_44),LITREF(lit_45),YPfalse); VARSET(YgooScolsScolYdel,T10); lit_46 = YPPsym((P)"zap"); lit_47 = YPPlist(1,YPPsym((P)"x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); T12 = YPfab_gen(T13,LITREF(lit_46),LITREF(lit_47),YPfalse); VARSET(YgooScolsScolYzap,T12); lit_48 = YPPsym((P)"do"); lit_49 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T15 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_48),LITREF(lit_49),YPfalse); VARSET(YgooSmacrosYdo,T14); lit_50 = YPPsym((P)"mem?"); lit_51 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T17 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_50),LITREF(lit_51),YPfalse); VARSET(YgooScolsScolYmemQ,T16); lit_52 = YPPsym((P)"keys"); lit_53 = YPPlist(1,YPPsym((P)"c")); T19 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); T18 = YPfab_gen(T19,LITREF(lit_52),LITREF(lit_53),YPfalse); VARSET(YgooScolsScolYkeys,T18); lit_54 = YPPsym((P)"items"); lit_55 = YPPlist(1,YPPsym((P)"c")); T21 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); T20 = YPfab_gen(T21,LITREF(lit_54),LITREF(lit_55),YPfalse); VARSET(YgooScolsScolYitems,T20); lit_56 = YPPsym((P)"col-res-type"); lit_57 = YPPlist(1,YPPsym((P)"c")); T23 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); T22 = YPfab_gen(T23,LITREF(lit_56),LITREF(lit_57),YPfalse); VARSET(YgooScolsScolYcol_res_type,T22); lit_58 = YPPsym((P)""); T25 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T24 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_58),T25); VARSET(YgooScolsScolYLenumG,T24); lit_59 = YPPsym((P)"enum"); lit_60 = YPPlist(1,YPPsym((P)"x")); T27 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLenumG),Ynil); T26 = YPfab_gen(T27,LITREF(lit_59),LITREF(lit_60),YPfalse); VARSET(YgooScolsScolYenum,T26); lit_61 = YPPsym((P)"fin?"); lit_62 = YPPlist(1,YPPsym((P)"e")); T29 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLenumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T28 = YPfab_gen(T29,LITREF(lit_61),LITREF(lit_62),YPfalse); VARSET(YgooScolsScolYfinQ,T28); lit_63 = YPPsym((P)"nxt"); lit_64 = YPPlist(1,YPPsym((P)"e")); T31 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLenumG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLenumG),Ynil); T30 = YPfab_gen(T31,LITREF(lit_63),LITREF(lit_64),YPfalse); VARSET(YgooScolsScolYnxt,T30); lit_65 = YPPsym((P)"now"); lit_66 = YPPlist(1,YPPsym((P)"e")); T33 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLenumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T32 = YPfab_gen(T33,LITREF(lit_65),LITREF(lit_66),YPfalse); VARSET(YgooScolsScolYnow,T32); lit_67 = YPPsym((P)"now-setter"); lit_68 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"e")); T35 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooScolsScolYLenumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T34 = YPfab_gen(T35,LITREF(lit_67),LITREF(lit_68),YPfalse); VARSET(YgooScolsScolYnow_setter,T34); lit_69 = YPPsym((P)"now-key"); lit_70 = YPPlist(1,YPPsym((P)"e")); T37 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLenumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T36 = YPfab_gen(T37,LITREF(lit_69),LITREF(lit_70),YPfalse); VARSET(YgooScolsScolYnow_key,T36); lit_71 = YPPsym((P)"do-keyed"); lit_72 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T39 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T38 = YPfab_gen(T39,LITREF(lit_71),LITREF(lit_72),YPfalse); VARSET(YgooScolsScolYdo_keyed,T38); lit_73 = YPPsym((P)"map-keyed"); lit_74 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T41 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T40 = YPfab_gen(T41,LITREF(lit_73),LITREF(lit_74),YPfalse); VARSET(YgooScolsScolYmap_keyed,T40); lit_75 = YPPsym((P)"map"); lit_76 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"x")); T43 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T42 = YPfab_gen(T43,LITREF(lit_75),LITREF(lit_76),YPfalse); VARSET(YgooSmacrosYmap,T42); lit_77 = YPPsym((P)"fab-into"); lit_78 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T45 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T44 = YPfab_gen(T45,LITREF(lit_77),LITREF(lit_78),YPfalse); VARSET(YgooScolsScolYfab_into,T44); lit_79 = YPPsym((P)"fab-fill!"); lit_80 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T47 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T46 = YPfab_gen(T47,LITREF(lit_79),LITREF(lit_80),YPfalse); VARSET(YgooScolsScolYfab_fillX,T46); lit_81 = YPPsym((P)"low-elt"); lit_82 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"k")); T51 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T50 = YPfab_gen(T51,LITREF(lit_81),LITREF(lit_82),YPfalse); T49 = VARSET(YgooScolsScolYlow_elt,T50); T48 = T49; return T48; } P YgooScolsScolY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135,T136,T137,T138,T139,T140,T141,T142,T143; DEFCREGS(); lit_83 = YPPsym((P)"fab-elt-setter"); lit_84 = YPPlist(3,YPPsym((P)"v"),YPPsym((P)"x"),YPPsym((P)"k")); T1 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_83),LITREF(lit_84),YPfalse); VARSET(YgooScolsScolYfab_elt_setter,T0); lit_85 = YPPsym((P)"col-res"); lit_86 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T3 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_85),LITREF(lit_86),YPfalse); VARSET(YgooScolsScolYcol_res,T2); lit_87 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLenumG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLenumG),Ynil); fun_enum_0 = YPfab_met(FUNCODEREF(fun_enum_0),T4,LITREF(lit_59),LITREF(lit_87),sloc(73),YPfalse); T6 = VARREF_OR(YgooScolsScolYenum,YPfalse); T7 = fun_enum_0; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsScolYenum,T5); lit_88 = YPPsym((P)"as"); lit_89 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"x")); T9 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T8 = YPfab_sig(YPPlist(2,T9,VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_as_1 = YPfab_met(FUNCODEREF(fun_as_1),T8,LITREF(lit_88),LITREF(lit_89),sloc(76),YPfalse); T11 = VARREF_OR(YgooStypesYas,YPfalse); T12 = fun_as_1; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YgooStypesYas,T10); lit_90 = YPPlist(1,YPPsym((P)"x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); fun_dup_2 = YPfab_met(FUNCODEREF(fun_dup_2),T13,LITREF(lit_22),LITREF(lit_90),sloc(81),YPfalse); T15 = VARREF_OR(YgooScolsScolYdup,YPfalse); T16 = fun_dup_2; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YgooScolsScolYdup,T14); lit_91 = YPPlist(1,YPPsym((P)"x")); T17 = YPfab_sig(YPPlist(1,VARREF(YLcolIG)),YPfalse,YPint((P)1),VARREF(YLcolIG),Ynil); fun_dup_3 = YPfab_met(FUNCODEREF(fun_dup_3),T17,LITREF(lit_22),LITREF(lit_91),sloc(85),YPfalse); T19 = VARREF_OR(YgooScolsScolYdup,YPfalse); T20 = fun_dup_3; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YgooScolsScolYdup,T18); lit_92 = YPPlist(1,YPPsym((P)"x")); T21 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_4 = YPfab_met(FUNCODEREF(fun_len_4),T21,LITREF(lit_0),LITREF(lit_92),sloc(90),YPfalse); T23 = VARREF_OR(YgooStypesYlen,YPfalse); T24 = fun_len_4; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YgooStypesYlen,T22); lit_93 = YPPlist(1,YPPsym((P)"x")); T25 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_elt_type_5 = YPfab_met(FUNCODEREF(fun_elt_type_5),T25,LITREF(lit_6),LITREF(lit_93),sloc(94),YPfalse); T27 = VARREF_OR(YgooScolsScolYelt_type,YPfalse); T28 = fun_elt_type_5; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooScolsScolYelt_type,T26); lit_94 = YPPlist(1,YPPsym((P)"x")); T29 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_key_type_6 = YPfab_met(FUNCODEREF(fun_key_type_6),T29,LITREF(lit_10),LITREF(lit_94),sloc(95),YPfalse); T31 = VARREF_OR(YgooScolsScolYkey_type,YPfalse); T32 = fun_key_type_6; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsScolYkey_type,T30); lit_95 = YPPlist(1,YPPsym((P)"x")); T33 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_key_test_7 = YPfab_met(FUNCODEREF(fun_key_test_7),T33,LITREF(lit_12),LITREF(lit_95),sloc(96),YPfalse); T35 = VARREF_OR(YgooScolsScolYkey_test,YPfalse); T36 = fun_key_test_7; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooScolsScolYkey_test,T34); lit_96 = YPPlist(1,YPPsym((P)"c")); T37 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_nulQ_8 = YPfab_met(FUNCODEREF(fun_nulQ_8),T37,LITREF(lit_16),LITREF(lit_96),sloc(102),YPfalse); T39 = VARREF_OR(YgooSmacrosYnulQ,YPfalse); T40 = fun_nulQ_8; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YgooSmacrosYnulQ,T38); lit_97 = YPPlist(1,YPPsym((P)"c")); T42 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T41 = YPfab_sig(YPPlist(1,T42),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); fun_nul_9 = YPfab_met(FUNCODEREF(fun_nul_9),T41,LITREF(lit_18),LITREF(lit_97),sloc(105),YPfalse); T44 = VARREF_OR(YgooScolsScolYnul,YPfalse); T45 = fun_nul_9; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooScolsScolYnul,T43); lit_98 = YPPlist(1,YPPsym((P)"x")); T46 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_elt_default_10 = YPfab_met(FUNCODEREF(fun_elt_default_10),T46,LITREF(lit_8),LITREF(lit_98),sloc(108),YPfalse); T48 = VARREF_OR(YgooScolsScolYelt_default,YPfalse); T49 = fun_elt_default_10; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooScolsScolYelt_default,T47); lit_99 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"src")); T50 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_fab_into_11 = YPfab_met(FUNCODEREF(fun_fab_into_11),T50,LITREF(lit_77),LITREF(lit_99),sloc(113),YPfalse); T52 = VARREF_OR(YgooScolsScolYfab_into,YPfalse); T53 = fun_fab_into_11; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooScolsScolYfab_into,T51); lit_100 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"objects")); T55 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T54 = YPfab_sig(YPPlist(1,T55),YPtrue,YPint((P)1),VARREF(YLcolG),Ynil); fun_fabs_12 = YPfab_met(FUNCODEREF(fun_fabs_12),T54,LITREF(lit_28),LITREF(lit_100),sloc(120),YPfalse); T57 = VARREF_OR(YgooSchrYfabs,YPfalse); T58 = fun_fabs_12; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YgooSchrYfabs,T56); lit_101 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"src")); T59 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_fab_fillX_13 = YPfab_met(FUNCODEREF(fun_fab_fillX_13),T59,LITREF(lit_79),LITREF(lit_101),sloc(123),YPfalse); T61 = VARREF_OR(YgooScolsScolYfab_fillX,YPfalse); T62 = fun_fab_fillX_13; T60 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T61,T62); VARSET(YgooScolsScolYfab_fillX,T60); lit_102 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"val")); T63 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_fill_14 = YPfab_met(FUNCODEREF(fun_fill_14),T63,LITREF(lit_30),LITREF(lit_102),sloc(130),YPfalse); T65 = VARREF_OR(YgooScolsScolYfill,YPfalse); T66 = fun_fill_14; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YgooScolsScolYfill,T64); lit_103 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"c")); T67 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_anyQ_15 = YPfab_met(FUNCODEREF(fun_anyQ_15),T67,LITREF(lit_32),LITREF(lit_103),sloc(133),YPfalse); T69 = VARREF_OR(YgooStypesYanyQ,YPfalse); T70 = fun_anyQ_15; T68 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T69,T70); VARSET(YgooStypesYanyQ,T68); lit_104 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"c")); T71 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_allQ_16 = YPfab_met(FUNCODEREF(fun_allQ_16),T71,LITREF(lit_34),LITREF(lit_104),sloc(139),YPfalse); T73 = VARREF_OR(YgooScolsScolYallQ,YPfalse); T74 = fun_allQ_16; T72 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T73,T74); VARSET(YgooScolsScolYallQ,T72); lit_105 = YPPlist(3,YPPsym((P)"combine"),YPPsym((P)"init"),YPPsym((P)"c")); T75 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLanyG),VARREF(YLcolG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_fold_17 = YPfab_met(FUNCODEREF(fun_fold_17),T75,LITREF(lit_36),LITREF(lit_105),sloc(144),YPfalse); T77 = VARREF_OR(YgooScolsScolYfold,YPfalse); T78 = fun_fold_17; T76 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T77,T78); VARSET(YgooScolsScolYfold,T76); lit_106 = YPPlist(2,YPPsym((P)"combine"),YPPsym((P)"c")); T79 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_foldA_18 = YPfab_met(FUNCODEREF(fun_foldA_18),T79,LITREF(lit_38),LITREF(lit_106),sloc(150),YPfalse); T81 = VARREF_OR(YgooScolsScolYfoldA,YPfalse); T82 = fun_foldA_18; T80 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T81,T82); VARSET(YgooScolsScolYfoldA,T80); lit_107 = YPPsym((P)""); T84 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T83 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_107),T84); VARSET(YgooScolsScolYLelt_defaultG,T83); T85 = XCALL1(1,VARREF(Ynew),VARREF(YgooScolsScolYLelt_defaultG)); VARSET(YgooScolsScolYDelt_default,T85); lit_108 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"c"),YPPsym((P)"default")); T86 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_find_or_19 = YPfab_met(FUNCODEREF(fun_find_or_19),T86,LITREF(lit_40),LITREF(lit_108),sloc(161),YPfalse); T88 = VARREF_OR(YgooScolsScolYfind_or,YPfalse); T89 = fun_find_or_19; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YgooScolsScolYfind_or,T87); lit_109 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T90 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_find_20 = YPfab_met(FUNCODEREF(fun_find_20),T90,LITREF(lit_42),LITREF(lit_109),sloc(167),YPfalse); T92 = VARREF_OR(YgooScolsScolYfind,YPfalse); T93 = fun_find_20; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YgooScolsScolYfind,T91); lit_110 = YPPlist(1,YPPsym((P)"x")); T94 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLcolG),Ynil); fun_zap_21 = YPfab_met(FUNCODEREF(fun_zap_21),T94,LITREF(lit_46),LITREF(lit_110),sloc(173),YPfalse); T96 = VARREF_OR(YgooScolsScolYzap,YPfalse); T97 = fun_zap_21; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YgooScolsScolYzap,T95); lit_111 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T98 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_22 = YPfab_met(FUNCODEREF(fun_do_22),T98,LITREF(lit_48),LITREF(lit_111),sloc(176),YPfalse); T100 = VARREF_OR(YgooSmacrosYdo,YPfalse); T101 = fun_do_22; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YgooSmacrosYdo,T99); lit_112 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T102 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_map_23 = YPfab_met(FUNCODEREF(fun_map_23),T102,LITREF(lit_75),LITREF(lit_112),sloc(181),YPfalse); T104 = VARREF_OR(YgooSmacrosYmap,YPfalse); T105 = fun_map_23; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YgooSmacrosYmap,T103); lit_113 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T106 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_keyed_24 = YPfab_met(FUNCODEREF(fun_do_keyed_24),T106,LITREF(lit_71),LITREF(lit_113),sloc(188),YPfalse); T108 = VARREF_OR(YgooScolsScolYdo_keyed,YPfalse); T109 = fun_do_keyed_24; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YgooScolsScolYdo_keyed,T107); lit_114 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T110 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_map_keyed_25 = YPfab_met(FUNCODEREF(fun_map_keyed_25),T110,LITREF(lit_73),LITREF(lit_114),sloc(193),YPfalse); T112 = VARREF_OR(YgooScolsScolYmap_keyed,YPfalse); T113 = fun_map_keyed_25; T111 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T112,T113); VARSET(YgooScolsScolYmap_keyed,T111); lit_115 = YPPlist(1,YPPsym((P)"c")); T114 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); fun_keys_26 = YPfab_met(FUNCODEREF(fun_keys_26),T114,LITREF(lit_52),LITREF(lit_115),sloc(201),YPfalse); T116 = VARREF_OR(YgooScolsScolYkeys,YPfalse); T117 = fun_keys_26; T115 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T116,T117); VARSET(YgooScolsScolYkeys,T115); lit_116 = YPPlist(1,YPPsym((P)"c")); T118 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); fun_items_27 = YPfab_met(FUNCODEREF(fun_items_27),T118,LITREF(lit_54),LITREF(lit_116),sloc(207),YPfalse); T120 = VARREF_OR(YgooScolsScolYitems,YPfalse); T121 = fun_items_27; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YgooScolsScolYitems,T119); lit_117 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); lit_118 = YPPlist(1,YPPsym((P)"y")); T123 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_28 = YPfab_met(FUNCODEREF(fun_28),T123,YPfalse,LITREF(lit_118),sloc(214),YPfalse); T122 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_memQ_29 = YPfab_met(FUNCODEREF(fun_memQ_29),T122,LITREF(lit_50),LITREF(lit_117),sloc(213),YPfalse); T125 = VARREF_OR(YgooScolsScolYmemQ,YPfalse); T126 = fun_memQ_29; T124 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T125,T126); VARSET(YgooScolsScolYmemQ,T124); lit_119 = YPPlist(1,YPPsym((P)"c")); T127 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_col_res_type_30 = YPfab_met(FUNCODEREF(fun_col_res_type_30),T127,LITREF(lit_56),LITREF(lit_119),sloc(216),YPfalse); T129 = VARREF_OR(YgooScolsScolYcol_res_type,YPfalse); T130 = fun_col_res_type_30; T128 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T129,T130); VARSET(YgooScolsScolYcol_res_type,T128); lit_120 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T131 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); fun_col_res_31 = YPfab_met(FUNCODEREF(fun_col_res_31),T131,LITREF(lit_85),LITREF(lit_120),sloc(221),YPfalse); T133 = VARREF_OR(YgooScolsScolYcol_res,YPfalse); T134 = fun_col_res_31; T132 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T133,T134); VARSET(YgooScolsScolYcol_res,T132); lit_121 = YPPlist(1,YPPsym((P)"eq-nul")); VARSET(YgooScolsScolYDeq_nul,LITREF(lit_121)); lit_122 = YPPsym((P)"="); lit_123 = YPPlist(2,YPPsym((P)"c1"),YPPsym((P)"c2")); T135 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_E_32 = YPfab_met(FUNCODEREF(fun_E_32),T135,LITREF(lit_122),LITREF(lit_123),sloc(226),YPfalse); T137 = VARREF_OR(YgooSlogYE,YPfalse); T138 = fun_E_32; T136 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T137,T138); VARSET(YgooSlogYE,T136); lit_124 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"key")); T139 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_elt_33 = YPfab_met_inlineable(FUNCODEREF(fun_elt_33),T139,LITREF(lit_2),LITREF(lit_124),sloc(234),YPfalse); T141 = VARREF_OR(YgooSmacrosYelt,YPfalse); T142 = fun_elt_33; T140 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T141,T142); VARSET(YgooSmacrosYelt,T140); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T143 = YPfalse; return T143; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmath; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmath}, {NULL} }; static IMPORT_INFO import_infos[] = { {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"for", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"fold+", CVAR, &YgooScolsScolYfoldA}, {"fab-elt-setter", CVAR, &YgooScolsScolYfab_elt_setter}, {"low-elt", CVAR, &YgooScolsScolYlow_elt}, {"fold", CVAR, &YgooScolsScolYfold}, {"keys", CVAR, &YgooScolsScolYkeys}, {"elts", CVAR, &YgooScolsScolYelts}, {"", CVAR, &YgooScolsScolYLenumG}, {"fab-fill!", CVAR, &YgooScolsScolYfab_fillX}, {"all?", CVAR, &YgooScolsScolYallQ}, {"key-test", CVAR, &YgooScolsScolYkey_test}, {"into", CVAR, &YgooScolsScolYinto}, {"col-res-type", CVAR, &YgooScolsScolYcol_res_type}, {"key-type", CVAR, &YgooScolsScolYkey_type}, {"---main-2---", PVAR, NULL}, {"fab-into", CVAR, &YgooScolsScolYfab_into}, {"items", CVAR, &YgooScolsScolYitems}, {"elt-default", CVAR, &YgooScolsScolYelt_default}, {"elt-type", CVAR, &YgooScolsScolYelt_type}, {"fill", CVAR, &YgooScolsScolYfill}, {"mem?", CVAR, &YgooScolsScolYmemQ}, {"", CVAR, &YgooScolsScolYLtabG}, {"---main-1---", PVAR, NULL}, {"map-keyed", CVAR, &YgooScolsScolYmap_keyed}, {"elt-or", CVAR, &YgooScolsScolYelt_or}, {"nxt", CVAR, &YgooScolsScolYnxt}, {"now-key", CVAR, &YgooScolsScolYnow_key}, {"do-keyed", CVAR, &YgooScolsScolYdo_keyed}, {"zap", CVAR, &YgooScolsScolYzap}, {"now", CVAR, &YgooScolsScolYnow}, {"col", CVAR, &YgooScolsScolYcol}, {"del", CVAR, &YgooScolsScolYdel}, {"$elt-default", CVAR, &YgooScolsScolYDelt_default}, {"now-setter", CVAR, &YgooScolsScolYnow_setter}, {"fin?", CVAR, &YgooScolsScolYfinQ}, {"empty?", CVAR, &YgooScolsScolYemptyQ}, {"fab", CVAR, &YgooScolsScolYfab}, {"enum", CVAR, &YgooScolsScolYenum}, {"empty", CVAR, &YgooScolsScolYempty}, {"find", CVAR, &YgooScolsScolYfind}, {"---main-0---", PVAR, NULL}, {"dup", CVAR, &YgooScolsScolYdup}, {"", CVAR, &YgooScolsScolYLelt_defaultG}, {"add", CVAR, &YgooScolsScolYadd}, {"col-res", CVAR, &YgooScolsScolYcol_res}, {"find-or", CVAR, &YgooScolsScolYfind_or}, {"$eq-nul", CVAR, &YgooScolsScolYDeq_nul}, {"nul", CVAR, &YgooScolsScolYnul}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"fold+", NULL}, {"fab-elt-setter", NULL}, {"nul?", NULL}, {"low-elt", NULL}, {"fold", NULL}, {"keys", NULL}, {"elts", NULL}, {"", NULL}, {"fab-fill!", NULL}, {"all?", NULL}, {"key-test", NULL}, {"col-res-type", NULL}, {"key-type", NULL}, {"fab-into", NULL}, {"items", NULL}, {"any?", NULL}, {"", NULL}, {"elt-default", NULL}, {"elt-type", NULL}, {"", NULL}, {"map", NULL}, {"fill", NULL}, {"mem?", NULL}, {"into", NULL}, {"map-keyed", NULL}, {"fabs", NULL}, {"elt-or", NULL}, {"do", NULL}, {"nxt", NULL}, {"now-key", NULL}, {"do-keyed", NULL}, {"zap", NULL}, {"now", NULL}, {"elt", NULL}, {"col", NULL}, {"len", NULL}, {"del", NULL}, {"now-setter", NULL}, {"fin?", NULL}, {"empty?", NULL}, {"fab", NULL}, {"enum", NULL}, {"empty", NULL}, {"find", NULL}, {"dup", NULL}, {"", NULL}, {"add", NULL}, {"col-res", NULL}, {"find-or", NULL}, {"nul", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsScol; MODULE_INFO module_info_gooScolsScol = { "goo/cols/col", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmath (void); /* EXPRESSION: */ extern void load_module_gooScolsScol (void); void load_module_gooScolsScol (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmath(); (P)YgooScolsScolY___main_0___(); (P)YgooScolsScolY___main_1___(); (P)YgooScolsScolY___main_2___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/colx.c0100644000175000017500000017014307756744556015502 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/colx"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/colx */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); DEF(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); DEF(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); DEF(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); DEF(YgooScolsScolxYDnot_found,"goo/cols/colx","$not-found"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); DEF(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); DEF(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); DEF(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); DEF(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); DEF(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(Yfun_code,"goo/boot","fun-code"); DEF(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_19); DEFLIT(lit_9); DEFLIT(lit_14); DEFLIT(lit_1); DEFLIT(lit_24); DEFLIT(lit_25); DEFLIT(lit_12); DEFLIT(lit_23); DEFLIT(lit_7); DEFLIT(lit_28); DEFLIT(lit_0); DEFLIT(lit_20); DEFLIT(lit_26); DEFLIT(lit_10); DEFLIT(lit_16); DEFLIT(lit_3); DEFLIT(lit_22); DEFLIT(lit_13); DEFLIT(lit_29); DEFLIT(lit_5); DEFLIT(lit_21); DEFLIT(lit_6); DEFLIT(lit_8); DEFLIT(lit_17); DEFLIT(lit_27); DEFLIT(lit_2); DEFLIT(lit_18); DEFLIT(lit_15); DEFLIT(lit_11); DEFLIT(lit_4); /* FUNCTIONS: */ LOCFOR(fun_fab_elt_setter_0); LOCFOR(fun_low_elt_setter_1); LOCFOR(fun_addX_2); LOCFOR(fun_eltX_3); LOCFOR(fun_delX_4); LOCFOR(fun_zapX_5); LOCFOR(fun_fillX_6); LOCFOR(fun_into_7); extern P YgooScolsScolxY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_fab_elt_setter_0) { P value_,c_,key_; P T0; LINK_STACK(); ARG(value_, 0); ARG(c_, 1); ARG(key_, 2); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),value_,c_,key_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_low_elt_setter_1) { P value_,c_,key_; P T0; LINK_STACK(); ARG(value_, 0); ARG(c_, 1); ARG(key_, 2); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),value_,c_,key_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_addX_2) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooScolsScolYadd),c_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_eltX_3) { P c_,k_,f_; P xF3130; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(c_, 0); ARG(k_, 1); ARG(f_, 2); T4 = CALL3(1,VARREF(YgooScolsScolYelt_or),c_,k_,VARREF(YgooScolsScolxYDnot_found)); xF3130 = T4; T1 = CALL2(1,VARREF(YgooSmacrosYEE),xF3130,VARREF(YgooScolsScolxYDnot_found)); if (T1 != YPfalse) { T3 = CALL0(1,f_); T2 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),T3,c_,k_); T0 = T2; } else { T0 = xF3130; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_delX_4) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooScolsScolYdel),c_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_zapX_5) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL1(1,VARREF(YgooScolsScolYzap),c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fillX_6) { P dst_,val_; P dsF3131; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(dst_, 0); ARG(val_, 1); T4 = CALL1(1,VARREF(YgooScolsScolYenum),dst_); dsF3131 = T4; LOOP_71: { P a71_0; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),dsF3131); if (T1 != YPfalse) { T0 = dst_; } else { CALL2(1,VARREF(YgooScolsScolYnow_setter),val_,dsF3131); T3 = CALL1(1,VARREF(YgooScolsScolYnxt),dsF3131); a71_0 = T3; dsF3131 = a71_0; goto LOOP_71; T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_into_7) { P dst_,src_; P ssF3132; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(dst_, 0); ARG(src_, 1); T6 = CALL1(1,VARREF(YgooScolsScolYenum),src_); ssF3132 = T6; LOOP_72: { P a72_0; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),ssF3132); if (T1 != YPfalse) { T0 = dst_; } else { T2 = CALL1(1,VARREF(YgooScolsScolYnow),ssF3132); T3 = CALL1(1,VARREF(YgooScolsScolYnow_key),ssF3132); CALL3(1,VARREF(YgooScolsScolxYelt_setter),T2,dst_,T3); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),ssF3132); a72_0 = T5; ssF3132 = a72_0; goto LOOP_72; T0 = T4; } } UNLINK_STACK(); RET(T0); } P YgooScolsScolxY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54; DEFCREGS(); lit_0 = YPPsym((P)"elt-setter"); lit_1 = YPPlist(3,YPPsym((P)"v"),YPPsym((P)"x"),YPPsym((P)"k")); T1 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooScolsScolxYelt_setter,T0); lit_2 = YPPsym((P)"into"); lit_3 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T3 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooScolsScolYinto,T2); lit_4 = YPPsym((P)"add!"); lit_5 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T5 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooScolsScolxYaddX,T4); lit_6 = YPPsym((P)"elt!"); lit_7 = YPPlist(3,YPPsym((P)"c"),YPPsym((P)"k"),YPPsym((P)"f")); T7 = YPfab_sig(YPPlist(3,VARREF(YLcolXG),VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooScolsScolxYeltX,T6); lit_8 = YPPsym((P)"del!"); lit_9 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T9 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooScolsScolxYdelX,T8); lit_10 = YPPsym((P)"zap!"); lit_11 = YPPlist(1,YPPsym((P)"c")); T11 = YPfab_sig(YPPlist(1,VARREF(YLcolXG)),YPfalse,YPint((P)1),VARREF(YLcolXG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooScolsScolxYzapX,T10); lit_12 = YPPsym((P)"len-setter"); lit_13 = YPPlist(2,YPPsym((P)"new-len"),YPPsym((P)"c")); T13 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLcolXG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T12 = YPfab_gen(T13,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooScolsScolxYlen_setter,T12); lit_14 = YPPsym((P)"len/fill-setter"); lit_15 = YPPlist(3,YPPsym((P)"new-len"),YPPsym((P)"c"),YPPsym((P)"default")); T15 = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_14),LITREF(lit_15),YPfalse); VARSET(YgooScolsScolxYlenSfill_setter,T14); lit_16 = YPPsym((P)"fill!"); lit_17 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T17 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_16),LITREF(lit_17),YPfalse); VARSET(YgooScolsScolxYfillX,T16); lit_18 = YPPsym((P)"low-elt-setter"); lit_19 = YPPlist(3,YPPsym((P)"v"),YPPsym((P)"x"),YPPsym((P)"k")); T19 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLcolG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T18 = YPfab_gen(T19,LITREF(lit_18),LITREF(lit_19),YPfalse); VARSET(YgooScolsScolxYlow_elt_setter,T18); lit_20 = YPPsym((P)"fab-elt-setter"); lit_21 = YPPlist(3,YPPsym((P)"value"),YPPsym((P)"c"),YPPsym((P)"key")); T20 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_fab_elt_setter_0 = YPfab_met_inlineable(FUNCODEREF(fun_fab_elt_setter_0),T20,LITREF(lit_20),LITREF(lit_21),sloc(23),YPfalse); T22 = VARREF_OR(YgooScolsScolYfab_elt_setter,YPfalse); T23 = fun_fab_elt_setter_0; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooScolsScolYfab_elt_setter,T21); lit_22 = YPPlist(3,YPPsym((P)"value"),YPPsym((P)"c"),YPPsym((P)"key")); T24 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_low_elt_setter_1 = YPfab_met_inlineable(FUNCODEREF(fun_low_elt_setter_1),T24,LITREF(lit_18),LITREF(lit_22),sloc(26),YPfalse); T26 = VARREF_OR(YgooScolsScolxYlow_elt_setter,YPfalse); T27 = fun_low_elt_setter_1; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooScolsScolxYlow_elt_setter,T25); lit_23 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T28 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); fun_addX_2 = YPfab_met(FUNCODEREF(fun_addX_2),T28,LITREF(lit_4),LITREF(lit_23),sloc(30),YPfalse); T30 = VARREF_OR(YgooScolsScolxYaddX,YPfalse); T31 = fun_addX_2; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooScolsScolxYaddX,T29); lit_24 = YPPlist(1,YPsb((P)"not found")); VARSET(YgooScolsScolxYDnot_found,LITREF(lit_24)); lit_25 = YPPlist(3,YPPsym((P)"c"),YPPsym((P)"k"),YPPsym((P)"f")); T32 = YPfab_sig(YPPlist(3,VARREF(YLcolXG),VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_eltX_3 = YPfab_met(FUNCODEREF(fun_eltX_3),T32,LITREF(lit_6),LITREF(lit_25),sloc(34),YPfalse); T34 = VARREF_OR(YgooScolsScolxYeltX,YPfalse); T35 = fun_eltX_3; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooScolsScolxYeltX,T33); lit_26 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T36 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); fun_delX_4 = YPfab_met(FUNCODEREF(fun_delX_4),T36,LITREF(lit_8),LITREF(lit_26),sloc(38),YPfalse); T38 = VARREF_OR(YgooScolsScolxYdelX,YPfalse); T39 = fun_delX_4; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsScolxYdelX,T37); lit_27 = YPPlist(1,YPPsym((P)"c")); T40 = YPfab_sig(YPPlist(1,VARREF(YLcolXG)),YPfalse,YPint((P)1),VARREF(YLcolXG),Ynil); fun_zapX_5 = YPfab_met(FUNCODEREF(fun_zapX_5),T40,LITREF(lit_10),LITREF(lit_27),sloc(40),YPfalse); T42 = VARREF_OR(YgooScolsScolxYzapX,YPfalse); T43 = fun_zapX_5; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsScolxYzapX,T41); lit_28 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"val")); T44 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); fun_fillX_6 = YPfab_met(FUNCODEREF(fun_fillX_6),T44,LITREF(lit_16),LITREF(lit_28),sloc(42),YPfalse); T46 = VARREF_OR(YgooScolsScolxYfillX,YPfalse); T47 = fun_fillX_6; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsScolxYfillX,T45); lit_29 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"src")); T50 = YPfab_sig(YPPlist(2,VARREF(YLcolXG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLcolXG),Ynil); T49 = fun_into_7 = YPfab_met(FUNCODEREF(fun_into_7),T50,LITREF(lit_2),LITREF(lit_29),sloc(49),YPfalse); T53 = VARREF_OR(YgooScolsScolYinto,YPfalse); T54 = fun_into_7; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); T51 = VARSET(YgooScolsScolYinto,T52); T48 = T51; return T48; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"zap!", CVAR, &YgooScolsScolxYzapX}, {"del!", CVAR, &YgooScolsScolxYdelX}, {"elt!", CVAR, &YgooScolsScolxYeltX}, {"$not-found", CVAR, &YgooScolsScolxYDnot_found}, {"add!", CVAR, &YgooScolsScolxYaddX}, {"elt-setter", CVAR, &YgooScolsScolxYelt_setter}, {"low-elt-setter", CVAR, &YgooScolsScolxYlow_elt_setter}, {"fill!", CVAR, &YgooScolsScolxYfillX}, {"---main-0---", PVAR, NULL}, {"len/fill-setter", CVAR, &YgooScolsScolxYlenSfill_setter}, {"len-setter", CVAR, &YgooScolsScolxYlen_setter}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"zap!", NULL}, {"del!", NULL}, {"elt!", NULL}, {"add!", NULL}, {"into", NULL}, {"elt-setter", NULL}, {"low-elt-setter", NULL}, {"fill!", NULL}, {"len/fill-setter", NULL}, {"len-setter", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsScolx; MODULE_INFO module_info_gooScolsScolx = { "goo/cols/colx", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); /* EXPRESSION: */ extern void load_module_gooScolsScolx (void); void load_module_gooScolsScolx (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSmath(); load_module_gooScolsScol(); (P)YgooScolsScolxY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/cycle.c0100644000175000017500000017344107756744556015640 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/cycle"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/cycle */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooScolsScycleYPkey,"goo/cols/cycle","%key"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); DEF(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); DEF(YgooScolsScycleYPkey_setter,"goo/cols/cycle","%key-setter"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); DEF(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooScolsScycleYPlen,"goo/cols/cycle","%len"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); DEF(YgooScolsScycleYcycle_elts,"goo/cols/cycle","cycle-elts"); DEF(YgooScolsScycleYLcycle_enumG,"goo/cols/cycle",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); DEF(YgooScolsScycleYPdat,"goo/cols/cycle","%dat"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_1); DEFLIT(lit_3); DEFLIT(lit_16); DEFLIT(lit_17); DEFLIT(lit_23); DEFLIT(lit_20); DEFLIT(lit_2); DEFLIT(lit_5); DEFLIT(lit_18); DEFLIT(lit_9); DEFLIT(lit_6); DEFLIT(lit_15); DEFLIT(lit_14); DEFLIT(lit_0); DEFLIT(lit_8); DEFLIT(lit_19); DEFLIT(lit_21); DEFLIT(lit_22); DEFLIT(lit_12); DEFLIT(lit_4); DEFLIT(lit_13); DEFLIT(lit_11); DEFLIT(lit_10); DEFLIT(lit_7); /* FUNCTIONS: */ LOCFOR(fun_cycle_elts_0); LOCFOR(fun_cycle_1); LOCFOR(fun_Pkey_2); LOCFOR(fun_Pkey_setter_3); LOCFOR(fun_4); LOCFOR(fun_Plen_5); LOCFOR(fun_Pdat_6); LOCFOR(fun_enum_7); LOCFOR(fun_finQ_8); LOCFOR(fun_nxt_9); LOCFOR(fun_now_10); extern P YgooScolsScycleY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_cycle_elts_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsScycleYcycle_elts)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_cycle_1) { P e_; P T0,T1; LINK_STACK(); NARGS(e_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),e_); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsScycleYLcycleG),VARREF(YgooScolsScycleYcycle_elts),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_Pkey_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsScycleYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_setter_3) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsScycleYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_4) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_Plen_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsScycleYPlen)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pdat_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsScycleYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_enum_7) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooStypesYlen),x_); T0 = CALL5(1,VARREF(Ynew),VARREF(YgooScolsScycleYLcycle_enumG),VARREF(YgooScolsScycleYPdat),x_,VARREF(YgooScolsScycleYPlen),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_8) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_nxt_9) { P e_; P x_1440F3691; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); x_1440F3691 = e_; T2 = CALL1(1,VARREF(YgooScolsScycleYPkey),e_); T1 = CALL2(1,VARREF(YgooSmathYA),T2,YPint((P)1)); T3 = CALL1(1,VARREF(YgooScolsScycleYPlen),e_); T0 = CALL2(1,VARREF(YgooSmathYmod),T1,T3); CALL2(1,VARREF(YgooScolsScycleYPkey_setter),T0,x_1440F3691); UNLINK_STACK(); RET(x_1440F3691); } LOCCODEDEF(fun_now_10) { P e_; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); T2 = CALL1(1,VARREF(YgooScolsScycleYPdat),e_); T1 = CALL1(1,VARREF(YgooScolsScycleYcycle_elts),T2); T3 = CALL1(1,VARREF(YgooScolsScycleYPkey),e_); T0 = CALL2(1,VARREF(YgooSmacrosYelt),T1,T3); UNLINK_STACK(); QRET(T0); } P YgooScolsScycleY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsScycleYLcycleG,T0); lit_1 = YPPsym((P)"cycle"); lit_2 = YPPlist(1,YPPsym((P)"e")); T3 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YgooScolsScycleYLcycleG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooScolsScycleYcycle,T2); lit_3 = YPPsym((P)"cycle-elts"); lit_4 = YPPlist(1,YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycleG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_cycle_elts_0 = YPfab_met(FUNCODEREF(fun_cycle_elts_0),T4,LITREF(lit_3),LITREF(lit_4),sloc(17),YPfalse); T6 = VARREF_OR(YgooScolsScycleYcycle_elts,YPfalse); T7 = fun_cycle_elts_0; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsScycleYcycle_elts,T5); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScycleYLcycleG),VARREF(YgooScolsScycleYcycle_elts),YPfalse,VARREF(YLtupG),VARREF(YPprop_unbound_error)); lit_5 = YPPlist(1,YPPsym((P)"e")); T8 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YgooScolsScycleYLcycleG),Ynil); fun_cycle_1 = YPfab_met(FUNCODEREF(fun_cycle_1),T8,LITREF(lit_1),LITREF(lit_5),sloc(19),YPfalse); T10 = VARREF_OR(YgooScolsScycleYcycle,YPfalse); T11 = fun_cycle_1; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsScycleYcycle,T9); lit_6 = YPPsym((P)""); T13 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T12 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_6),T13); VARSET(YgooScolsScycleYLcycle_enumG,T12); lit_7 = YPPsym((P)"%key"); lit_8 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pkey_2 = YPfab_met(FUNCODEREF(fun_Pkey_2),T14,LITREF(lit_7),LITREF(lit_8),sloc(23),YPfalse); T16 = VARREF_OR(YgooScolsScycleYPkey,YPfalse); T17 = fun_Pkey_2; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooScolsScycleYPkey,T15); lit_9 = YPPsym((P)"%key-setter"); lit_10 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pkey_setter_3 = YPfab_met(FUNCODEREF(fun_Pkey_setter_3),T18,LITREF(lit_9),LITREF(lit_10),sloc(23),YPfalse); T20 = VARREF_OR(YgooScolsScycleYPkey_setter,YPfalse); T21 = fun_Pkey_setter_3; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooScolsScycleYPkey_setter,T19); lit_11 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_4 = YPfab_met(FUNCODEREF(fun_4),T22,YPfalse,LITREF(lit_11),sloc(23),YPfalse); T23 = fun_4; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScycleYLcycle_enumG),VARREF(YgooScolsScycleYPkey),VARREF(YgooScolsScycleYPkey_setter),VARREF(YLintG),T23); lit_12 = YPPsym((P)"%len"); lit_13 = YPPlist(1,YPPsym((P)"_x")); T24 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Plen_5 = YPfab_met(FUNCODEREF(fun_Plen_5),T24,LITREF(lit_12),LITREF(lit_13),sloc(24),YPfalse); T26 = VARREF_OR(YgooScolsScycleYPlen,YPfalse); T27 = fun_Plen_5; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooScolsScycleYPlen,T25); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScycleYLcycle_enumG),VARREF(YgooScolsScycleYPlen),YPfalse,VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_14 = YPPsym((P)"%dat"); lit_15 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdat_6 = YPfab_met(FUNCODEREF(fun_Pdat_6),T28,LITREF(lit_14),LITREF(lit_15),sloc(25),YPfalse); T30 = VARREF_OR(YgooScolsScycleYPdat,YPfalse); T31 = fun_Pdat_6; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooScolsScycleYPdat,T29); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScycleYLcycle_enumG),VARREF(YgooScolsScycleYPdat),YPfalse,VARREF(YgooScolsScycleYLcycleG),VARREF(YPprop_unbound_error)); lit_16 = YPPsym((P)"enum"); lit_17 = YPPlist(1,YPPsym((P)"x")); T32 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycleG)),YPfalse,YPint((P)1),VARREF(YgooScolsScycleYLcycle_enumG),Ynil); fun_enum_7 = YPfab_met(FUNCODEREF(fun_enum_7),T32,LITREF(lit_16),LITREF(lit_17),sloc(26),YPfalse); T34 = VARREF_OR(YgooScolsScolYenum,YPfalse); T35 = fun_enum_7; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooScolsScolYenum,T33); lit_18 = YPPsym((P)"fin?"); lit_19 = YPPlist(1,YPPsym((P)"e")); T36 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_8 = YPfab_met(FUNCODEREF(fun_finQ_8),T36,LITREF(lit_18),LITREF(lit_19),sloc(28),YPfalse); T38 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T39 = fun_finQ_8; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsScolYfinQ,T37); lit_20 = YPPsym((P)"nxt"); lit_21 = YPPlist(1,YPPsym((P)"e")); T40 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsScycleYLcycle_enumG),Ynil); fun_nxt_9 = YPfab_met(FUNCODEREF(fun_nxt_9),T40,LITREF(lit_20),LITREF(lit_21),sloc(30),YPfalse); T42 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T43 = fun_nxt_9; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsScolYnxt,T41); lit_22 = YPPsym((P)"now"); lit_23 = YPPlist(1,YPPsym((P)"e")); T46 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScycleYLcycle_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T45 = fun_now_10 = YPfab_met(FUNCODEREF(fun_now_10),T46,LITREF(lit_22),LITREF(lit_23),sloc(33),YPfalse); T49 = VARREF_OR(YgooScolsScolYnow,YPfalse); T50 = fun_now_10; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); T47 = VARSET(YgooScolsScolYnow,T48); T44 = T47; return T44; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"%key", CVAR, &YgooScolsScycleYPkey}, {"", CVAR, &YgooScolsScycleYLcycleG}, {"%key-setter", CVAR, &YgooScolsScycleYPkey_setter}, {"cycle", CVAR, &YgooScolsScycleYcycle}, {"%len", CVAR, &YgooScolsScycleYPlen}, {"cycle-elts", CVAR, &YgooScolsScycleYcycle_elts}, {"", CVAR, &YgooScolsScycleYLcycle_enumG}, {"%dat", CVAR, &YgooScolsScycleYPdat}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"cycle", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsScycle; MODULE_INFO module_info_gooScolsScycle = { "goo/cols/cycle", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooScolsScycle (void); void load_module_gooScolsScycle (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsSseq(); (P)YgooScolsScycleY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/flat.c0100644000175000017500000017166207756744556015472 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/flat"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/flat */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooScolsSflatYPkey,"goo/cols/flat","%key"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); DEF(YgooScolsSflatYLflat_enumG,"goo/cols/flat",""); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); DEF(YgooScolsSflatYPkey_setter,"goo/cols/flat","%key-setter"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); DEF(YgooScolsSflatYPdat,"goo/cols/flat","%dat"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_4); DEFLIT(lit_8); DEFLIT(lit_7); DEFLIT(lit_12); DEFLIT(lit_10); DEFLIT(lit_0); DEFLIT(lit_1); DEFLIT(lit_5); DEFLIT(lit_15); DEFLIT(lit_19); DEFLIT(lit_9); DEFLIT(lit_11); DEFLIT(lit_14); DEFLIT(lit_13); DEFLIT(lit_17); DEFLIT(lit_16); DEFLIT(lit_6); DEFLIT(lit_2); DEFLIT(lit_3); DEFLIT(lit_18); /* FUNCTIONS: */ LOCFOR(fun_Pdat_0); LOCFOR(fun_Pkey_1); LOCFOR(fun_Pkey_setter_2); LOCFOR(fun_3); LOCFOR(fun_enum_4); LOCFOR(fun_finQ_5); LOCFOR(fun_nxt_6); LOCFOR(fun_now_7); LOCFOR(fun_now_setter_8); LOCFOR(fun_now_key_9); extern P YgooScolsSflatY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_Pdat_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSflatYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_1) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSflatYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_setter_2) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSflatYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_enum_4) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSflatYLflat_enumG),VARREF(YgooScolsSflatYPdat),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_5) { P e_; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSflatYPkey),e_); T3 = CALL1(1,VARREF(YgooScolsSflatYPdat),e_); T2 = CALL1(1,VARREF(YgooStypesYlen),T3); T0 = CALL2(1,VARREF(YgooSmacrosYEE),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nxt_6) { P e_; P x_1353F3214; P T0,T1; LINK_STACK(); ARG(e_, 0); x_1353F3214 = e_; T1 = CALL1(1,VARREF(YgooScolsSflatYPkey),e_); T0 = CALL2(1,VARREF(YgooSmathYA),T1,YPint((P)1)); CALL2(1,VARREF(YgooScolsSflatYPkey_setter),T0,x_1353F3214); UNLINK_STACK(); RET(x_1353F3214); } LOCCODEDEF(fun_now_7) { P e_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSflatYPdat),e_); T2 = CALL1(1,VARREF(YgooScolsSflatYPkey),e_); T0 = CALL2(1,VARREF(YgooScolsScolYlow_elt),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_setter_8) { P v_,e_; P T0,T1,T2; LINK_STACK(); ARG(v_, 0); ARG(e_, 1); T1 = CALL1(1,VARREF(YgooScolsSflatYPdat),e_); T2 = CALL1(1,VARREF(YgooScolsSflatYPkey),e_); T0 = CALL3(1,VARREF(YgooScolsScolxYlow_elt_setter),v_,T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_key_9) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL1(1,VARREF(YgooScolsSflatYPkey),e_); UNLINK_STACK(); RET(T0); } P YgooScolsSflatY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsSflatYLflat_enumG,T0); lit_1 = YPPsym((P)"%dat"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdat_0 = YPfab_met(FUNCODEREF(fun_Pdat_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(23),YPfalse); T4 = VARREF_OR(YgooScolsSflatYPdat,YPfalse); T5 = fun_Pdat_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooScolsSflatYPdat,T3); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSflatYLflat_enumG),VARREF(YgooScolsSflatYPdat),YPfalse,VARREF(YLflatG),VARREF(YPprop_unbound_error)); lit_3 = YPPsym((P)"%key"); lit_4 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pkey_1 = YPfab_met(FUNCODEREF(fun_Pkey_1),T6,LITREF(lit_3),LITREF(lit_4),sloc(24),YPfalse); T8 = VARREF_OR(YgooScolsSflatYPkey,YPfalse); T9 = fun_Pkey_1; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooScolsSflatYPkey,T7); lit_5 = YPPsym((P)"%key-setter"); lit_6 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pkey_setter_2 = YPfab_met(FUNCODEREF(fun_Pkey_setter_2),T10,LITREF(lit_5),LITREF(lit_6),sloc(24),YPfalse); T12 = VARREF_OR(YgooScolsSflatYPkey_setter,YPfalse); T13 = fun_Pkey_setter_2; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooScolsSflatYPkey_setter,T11); lit_7 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T14,YPfalse,LITREF(lit_7),sloc(24),YPfalse); T15 = fun_3; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSflatYLflat_enumG),VARREF(YgooScolsSflatYPkey),VARREF(YgooScolsSflatYPkey_setter),VARREF(YLintG),T15); lit_8 = YPPsym((P)"enum"); lit_9 = YPPlist(1,YPPsym((P)"x")); T16 = YPfab_sig(YPPlist(1,VARREF(YLflatG)),YPfalse,YPint((P)1),VARREF(YgooScolsSflatYLflat_enumG),Ynil); fun_enum_4 = YPfab_met(FUNCODEREF(fun_enum_4),T16,LITREF(lit_8),LITREF(lit_9),sloc(25),YPfalse); T18 = VARREF_OR(YgooScolsScolYenum,YPfalse); T19 = fun_enum_4; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsScolYenum,T17); lit_10 = YPPsym((P)"fin?"); lit_11 = YPPlist(1,YPPsym((P)"e")); T20 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_5 = YPfab_met(FUNCODEREF(fun_finQ_5),T20,LITREF(lit_10),LITREF(lit_11),sloc(27),YPfalse); T22 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T23 = fun_finQ_5; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooScolsScolYfinQ,T21); lit_12 = YPPsym((P)"nxt"); lit_13 = YPPlist(1,YPPsym((P)"e")); T24 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSflatYLflat_enumG),Ynil); fun_nxt_6 = YPfab_met(FUNCODEREF(fun_nxt_6),T24,LITREF(lit_12),LITREF(lit_13),sloc(29),YPfalse); T26 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T27 = fun_nxt_6; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooScolsScolYnxt,T25); lit_14 = YPPsym((P)"now"); lit_15 = YPPlist(1,YPPsym((P)"e")); T28 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_now_7 = YPfab_met(FUNCODEREF(fun_now_7),T28,LITREF(lit_14),LITREF(lit_15),sloc(32),YPfalse); T30 = VARREF_OR(YgooScolsScolYnow,YPfalse); T31 = fun_now_7; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooScolsScolYnow,T29); lit_16 = YPPsym((P)"now-setter"); lit_17 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"e")); T32 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_now_setter_8 = YPfab_met(FUNCODEREF(fun_now_setter_8),T32,LITREF(lit_16),LITREF(lit_17),sloc(34),YPfalse); T34 = VARREF_OR(YgooScolsScolYnow_setter,YPfalse); T35 = fun_now_setter_8; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooScolsScolYnow_setter,T33); lit_18 = YPPsym((P)"now-key"); lit_19 = YPPlist(1,YPPsym((P)"e")); T38 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSflatYLflat_enumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T37 = fun_now_key_9 = YPfab_met(FUNCODEREF(fun_now_key_9),T38,LITREF(lit_18),LITREF(lit_19),sloc(36),YPfalse); T41 = VARREF_OR(YgooScolsScolYnow_key,YPfalse); T42 = fun_now_key_9; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); T39 = VARSET(YgooScolsScolYnow_key,T40); T36 = T39; return T36; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"%key", CVAR, &YgooScolsSflatYPkey}, {"", CVAR, &YgooScolsSflatYLflat_enumG}, {"%key-setter", CVAR, &YgooScolsSflatYPkey_setter}, {"%dat", CVAR, &YgooScolsSflatYPdat}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSflat; MODULE_INFO module_info_gooScolsSflat = { "goo/cols/flat", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooScolsSflat (void); void load_module_gooScolsSflat (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); (P)YgooScolsSflatY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/lst.c0100644000175000017500000032531007756744557015336 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/lst"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/lst */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooScolsSlstYline_pah,"goo/cols/lst","line-pah"); DEF(YgooScolsSlstYPkey,"goo/cols/lst","%key"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); DEF(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); DEF(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); DEF(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); DEF(YgooScolsSlstYPkey_setter,"goo/cols/lst","%key-setter"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); DEF(YgooScolsSlstYLline_pahG,"goo/cols/lst",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); DEF(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YgooScolsSlstYLlst_enumG,"goo/cols/lst",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); DEF(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); DEF(YgooScolsSlstYDline_pah_nul,"goo/cols/lst","$line-pah-nul"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); DEF(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); DEF(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); DEF(YgooScolsSlstYPdat_setter,"goo/cols/lst","%dat-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); DEF(YgooScolsSlstYPdat,"goo/cols/lst","%dat"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); DEF(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); DEF(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); DEF(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_54); DEFLIT(lit_30); DEFLIT(lit_90); DEFLIT(lit_56); DEFLIT(lit_81); DEFLIT(lit_94); DEFLIT(lit_21); DEFLIT(lit_37); DEFLIT(lit_15); DEFLIT(lit_113); DEFLIT(lit_105); DEFLIT(lit_25); DEFLIT(lit_6); DEFLIT(lit_26); DEFLIT(lit_50); DEFLIT(lit_72); DEFLIT(lit_12); DEFLIT(lit_27); DEFLIT(lit_2); DEFLIT(lit_36); DEFLIT(lit_63); DEFLIT(lit_19); DEFLIT(lit_96); DEFLIT(lit_38); DEFLIT(lit_35); DEFLIT(lit_33); DEFLIT(lit_59); DEFLIT(lit_111); DEFLIT(lit_24); DEFLIT(lit_93); DEFLIT(lit_8); DEFLIT(lit_101); DEFLIT(lit_102); DEFLIT(lit_91); DEFLIT(lit_66); DEFLIT(lit_70); DEFLIT(lit_39); DEFLIT(lit_58); DEFLIT(lit_107); DEFLIT(lit_4); DEFLIT(lit_40); DEFLIT(lit_0); DEFLIT(lit_84); DEFLIT(lit_69); DEFLIT(lit_7); DEFLIT(lit_31); DEFLIT(lit_82); DEFLIT(lit_5); DEFLIT(lit_3); DEFLIT(lit_16); DEFLIT(lit_45); DEFLIT(lit_112); DEFLIT(lit_29); DEFLIT(lit_34); DEFLIT(lit_106); DEFLIT(lit_103); DEFLIT(lit_48); DEFLIT(lit_55); DEFLIT(lit_80); DEFLIT(lit_44); DEFLIT(lit_61); DEFLIT(lit_65); DEFLIT(lit_85); DEFLIT(lit_41); DEFLIT(lit_57); DEFLIT(lit_23); DEFLIT(lit_98); DEFLIT(lit_32); DEFLIT(lit_42); DEFLIT(lit_76); DEFLIT(lit_53); DEFLIT(lit_51); DEFLIT(lit_79); DEFLIT(lit_14); DEFLIT(lit_47); DEFLIT(lit_108); DEFLIT(lit_110); DEFLIT(lit_92); DEFLIT(lit_97); DEFLIT(lit_60); DEFLIT(lit_109); DEFLIT(lit_71); DEFLIT(lit_9); DEFLIT(lit_99); DEFLIT(lit_1); DEFLIT(lit_95); DEFLIT(lit_78); DEFLIT(lit_75); DEFLIT(lit_28); DEFLIT(lit_86); DEFLIT(lit_10); DEFLIT(lit_100); DEFLIT(lit_104); DEFLIT(lit_18); DEFLIT(lit_68); DEFLIT(lit_46); DEFLIT(lit_62); DEFLIT(lit_74); DEFLIT(lit_17); DEFLIT(lit_64); DEFLIT(lit_83); DEFLIT(lit_88); DEFLIT(lit_22); DEFLIT(lit_49); DEFLIT(lit_77); DEFLIT(lit_11); DEFLIT(lit_43); DEFLIT(lit_89); DEFLIT(lit_13); DEFLIT(lit_20); DEFLIT(lit_73); DEFLIT(lit_67); DEFLIT(lit_87); DEFLIT(lit_52); /* FUNCTIONS: */ LOCFOR(fun_len_0); LOCFOR(fun_elt_or_1); LOCFOR(fun_elt_setter_2); LOCFOR(fun_nulQ_3); LOCFOR(fun_nul_4); LOCFOR(fun_fab_5); LOCFOR(fun_fabs_6); LOCFOR(fun_lstT_7); LOCFOR(fun_Pdat_8); LOCFOR(fun_Pdat_setter_9); LOCFOR(fun_Pkey_10); LOCFOR(fun_Pkey_setter_11); LOCFOR(fun_12); LOCFOR(fun_enum_13); LOCFOR(fun_finQ_14); LOCFOR(fun_nxt_15); LOCFOR(fun_now_16); LOCFOR(fun_now_setter_17); LOCFOR(fun_now_key_18); LOCFOR(fun_add_19); LOCFOR(fun_last_20); LOCFOR(fun_revX_21); LOCFOR(fun_connect_22); LOCFOR(fun_catX_23); LOCFOR(fun_lst_24); LOCFOR(fun_pair_25); LOCFOR(fun_pushX_26); LOCFOR(fun_popX_27); LOCFOR(fun_sort_byX_28); LOCFOR(fun_to_str_29); LOCFOR(fun_assq_30); LOCFOR(fun_assqn_31); LOCFOR(fun_x_1360_32); LOCFOR(fun_33); LOCFOR(fun_34); LOCFOR(fun_line_of_35); LOCFOR(fun_line_of_36); LOCFOR(fun_37); FUNFOR(YgooScolsSlstYline_pah); LOCFOR(fun_nul_39); FUNFOR(YgooScolsSlstYline_pair); FUNFOR(YgooScolsSlstYline_list); LOCFOR(fun_copy_42); LOCFOR(fun_line_list_of_43); LOCFOR(fun_line_list_of_44); extern P YgooScolsSlstY___main_0___ (); extern P YgooScolsSlstY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_len_0) { P x_; P xF3228; P countF3227; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); check_type(YPint((P)0),VARREF(YLintG)); countF3227 = YPint((P)0); check_type(x_,VARREF(YLlstG)); xF3228 = x_; LOOP_99: { P a99_0,a99_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF3228); if (T1 != YPfalse) { T0 = countF3227; } else { T3 = CALL2(1,VARREF(YgooSmathYA),countF3227,YPint((P)1)); T4 = CALL1(1,VARREF(Ytail),xF3228); a99_0 = T3; a99_1 = T4; countF3227 = a99_0; xF3228 = a99_1; goto LOOP_99; T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_or_1) { P x_,key_,default_; P xF3230; P countF3229; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); ARG(key_, 1); ARG(default_, 2); check_type(YPint((P)0),VARREF(YLintG)); countF3229 = YPint((P)0); check_type(x_,VARREF(YLlstG)); xF3230 = x_; LOOP_100: { P a100_0,a100_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF3230); if (T1 != YPfalse) { T0 = default_; } else { T3 = CALL2(1,VARREF(YgooSmacrosYEE),countF3229,key_); if (T3 != YPfalse) { T4 = CALL1(1,VARREF(Yhead),xF3230); T2 = T4; } else { T6 = CALL2(1,VARREF(YgooSmathYA),countF3229,YPint((P)1)); T7 = CALL1(1,VARREF(Ytail),xF3230); a100_0 = T6; a100_1 = T7; countF3229 = a100_0; xF3230 = a100_1; goto LOOP_100; T2 = T5; } T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_elt_setter_2) { P z_,x_,key_; P xF3232; P countF3231; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); ARG(key_, 2); check_type(YPint((P)0),VARREF(YLintG)); countF3231 = YPint((P)0); check_type(x_,VARREF(YLlstG)); xF3232 = x_; LOOP_101: { P a101_0,a101_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF3232); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(Yrange_error),xF3232,key_); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),countF3231,key_); if (T4 != YPfalse) { T5 = CALL2(1,VARREF(Yhead_setter),z_,xF3232); T3 = T5; } else { T7 = CALL2(1,VARREF(YgooSmathYA),countF3231,YPint((P)1)); T8 = CALL1(1,VARREF(Ytail),xF3232); a101_0 = T7; a101_1 = T8; countF3231 = a101_0; xF3232 = a101_1; goto LOOP_101; T3 = T6; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nulQ_3) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T2 = CALL1(1,VARREF(YgooSclassYclass_of),c_); T1 = CALL1(1,VARREF(YgooScolsScolYnul),T2); T0 = CALL2(1,VARREF(YgooSmacrosYEE),c_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nul_4) { P c_; LINK_STACK(); ARG(c_, 0); UNLINK_STACK(); RET(Ynil); } LOCCODEDEF(fun_fab_5) { P t_,s_; P resF3234; P iF3233; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(t_, 0); ARG(s_, 1); check_type(s_,VARREF(YLintG)); iF3233 = s_; T5 = CALL1(1,VARREF(YgooScolsScolYnul),t_); check_type(T5,VARREF(YLlstG)); resF3234 = T5; LOOP_102: { P a102_0,a102_1; T1 = CALL2(1,VARREF(YgooSmagYG),iF3233,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmathY_),iF3233,YPint((P)1)); T4 = CALL3(1,VARREF(Ynew),t_,VARREF(Ytail),resF3234); a102_0 = T3; a102_1 = T4; iF3233 = a102_0; resF3234 = a102_1; goto LOOP_102; T0 = T2; } else { T0 = resF3234; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fabs_6) { P c_,objects_; P resultF3236; P indexF3235; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(c_, 0); NARGS(objects_, 1); T7 = CALL1(1,VARREF(YgooStypesYlen),objects_); T6 = CALL2(1,VARREF(YgooSmathY_),T7,YPint((P)1)); check_type(T6,VARREF(YLintG)); indexF3235 = T6; T8 = CALL1(1,VARREF(YgooScolsScolYnul),c_); check_type(T8,VARREF(YLlstG)); resultF3236 = T8; LOOP_103: { P a103_0,a103_1; T1 = CALL2(1,VARREF(YgooSmagYL),indexF3235,YPint((P)0)); if (T1 != YPfalse) { T0 = resultF3236; } else { T3 = CALL2(1,VARREF(YgooSmathY_),indexF3235,YPint((P)1)); T5 = CALL2(1,VARREF(YgooSmacrosYelt),objects_,indexF3235); T4 = CALL5(1,VARREF(Ynew),c_,VARREF(Yhead),T5,VARREF(Ytail),resultF3236); a103_0 = T3; a103_1 = T4; indexF3235 = a103_0; resultF3236 = a103_1; goto LOOP_103; T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_lstT_7) { P args_; P rF3239; P iF3238; P mF3237; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); NARGS(args_, 0); T9 = CALL1(1,VARREF(YgooStypesYlen),args_); T8 = CALL1(1,VARREF(YgooSmathY1_),T9); mF3237 = T8; T6 = CALL1(1,VARREF(YgooSmathY1_),mF3237); check_type(T6,VARREF(YLintG)); iF3238 = T6; T7 = CALL2(1,VARREF(YgooSmacrosYelt),args_,mF3237); check_type(T7,VARREF(YLlstG)); rF3239 = T7; LOOP_104: { P a104_0,a104_1; T1 = CALL2(1,VARREF(YgooSmagYL),iF3238,YPint((P)0)); if (T1 != YPfalse) { T0 = rF3239; } else { T3 = CALL1(1,VARREF(YgooSmathY1_),iF3238); T5 = CALL2(1,VARREF(YgooSmacrosYelt),args_,iF3238); T4 = CALL5(1,VARREF(Ynew),VARREF(YLlstG),VARREF(Yhead),T5,VARREF(Ytail),rF3239); a104_0 = T3; a104_1 = T4; iF3238 = a104_0; rF3239 = a104_1; goto LOOP_104; T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_Pdat_8) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSlstYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pdat_setter_9) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSlstYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_10) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSlstYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_setter_11) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSlstYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_12) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_enum_13) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSlstYLlst_enumG),VARREF(YgooScolsSlstYPdat),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_14) { P e_; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSlstYPdat),e_); T0 = CALL1(1,VARREF(YgooSmacrosYnulQ),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nxt_15) { P e_; P x_1354F3240; P T0,T1,T2,T3; LINK_STACK(); ARG(e_, 0); x_1354F3240 = e_; T1 = CALL1(1,VARREF(YgooScolsSlstYPkey),e_); T0 = CALL2(1,VARREF(YgooSmathYA),T1,YPint((P)1)); CALL2(1,VARREF(YgooScolsSlstYPkey_setter),T0,x_1354F3240); T3 = CALL1(1,VARREF(YgooScolsSlstYPdat),e_); T2 = CALL1(1,VARREF(Ytail),T3); CALL2(1,VARREF(YgooScolsSlstYPdat_setter),T2,x_1354F3240); UNLINK_STACK(); RET(x_1354F3240); } LOCCODEDEF(fun_now_16) { P e_; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSlstYPdat),e_); T0 = CALL1(1,VARREF(Yhead),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_setter_17) { P v_,e_; P T0,T1; LINK_STACK(); ARG(v_, 0); ARG(e_, 1); T1 = CALL1(1,VARREF(YgooScolsSlstYPdat),e_); T0 = CALL2(1,VARREF(Yhead_setter),v_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_key_18) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL1(1,VARREF(YgooScolsSlstYPkey),e_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_19) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooSmacrosYpair),x_,c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_last_20) { P x_; P pxF3242; P xF3241; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); xF3241 = x_; pxF3242 = x_; LOOP_105: { P a105_0,a105_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),xF3241); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(Yhead),pxF3242); T0 = T2; } else { T4 = CALL1(1,VARREF(Ytail),xF3241); a105_0 = T4; a105_1 = xF3241; xF3241 = a105_0; pxF3242 = a105_1; goto LOOP_105; T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_revX_21) { P c_; P tF3245; P rF3244; P lF3243; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(c_, 0); lF3243 = c_; T5 = CALL1(1,VARREF(YgooSclassYclass_of),c_); T4 = CALL1(1,VARREF(YgooScolsScolYnul),T5); rF3244 = T4; LOOP_106: { P a106_0,a106_1; T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),lF3243); if (T1 != YPfalse) { T0 = rF3244; } else { T3 = CALL1(1,VARREF(Ytail),lF3243); tF3245 = T3; CALL2(1,VARREF(Ytail_setter),rF3244,lF3243); a106_0 = tF3245; a106_1 = lF3243; lF3243 = a106_0; rF3244 = a106_1; goto LOOP_106; T0 = T2; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_connect_22) { P x_,y_; P pF3246; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),y_); if (T1 != YPfalse) { T0 = x_; } else { CALL2(1,VARREF(Ytail_setter),y_,x_); check_type(y_,VARREF(YLlstG)); pF3246 = y_; LOOP_107: { P a107_0; T4 = CALL1(1,VARREF(Ytail),pF3246); T3 = CALL1(1,VARREF(YgooSmacrosYnulQ),T4); if (T3 != YPfalse) { T2 = pF3246; } else { T6 = CALL1(1,VARREF(Ytail),pF3246); a107_0 = T6; pF3246 = a107_0; goto LOOP_107; T2 = T5; } } T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_catX_23) { P x_,more_; P xF3251; P x_1355F3250; P curF3249; P resultF3248; P connectF3247; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(x_, 0); NARGS(more_, 1); T16 = fun_connect_22; connectF3247 = T16; T15 = CALL1(1,VARREF(Ylst),YPfalse); resultF3248 = T15; curF3249 = resultF3248; T2 = curF3249; T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),x_); T1 = CALL2(1,connectF3247,T2,T3); curF3249 = T1; T13 = CALL1(1,VARREF(YgooScolsScolYenum),more_); x_1355F3250 = T13; LOOP_108: { P a108_0; T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1355F3250); T5 = CALL1(1,VARREF(Ynot),T6); if (T5 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsScolYnow),x_1355F3250); xF3251 = T12; T8 = curF3249; T9 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLlstG),xF3251); T7 = CALL2(1,connectF3247,T8,T9); curF3249 = T7; T11 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1355F3250); a108_0 = T11; x_1355F3250 = a108_0; goto LOOP_108; T4 = T10; } else { T4 = YPfalse; } } T14 = CALL1(1,VARREF(Ytail),resultF3248); UNLINK_STACK(); RET(T14); } LOCCODEDEF(fun_lst_24) { P objects_; P T0; LINK_STACK(); NARGS(objects_, 0); T0 = CALL4(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSchrYfabs),YPfalse,VARREF(YLlstG),objects_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pair_25) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YLlstG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pushX_26) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooSmacrosYpair),x_,c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_popX_27) { P c_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); T1 = CALL1(1,VARREF(Ytail),c_); T2 = CALL1(1,VARREF(Yhead),c_); T0 = CALL2(1,VARREF(Ytup),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sort_byX_28) { P items_,test_; P tmpF3256; P nextF3255; P prevF3254; P tmpF3253; P tmpF3252; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(items_, 0); ARG(test_, 1); tmpF3252 = YPfalse; LOOP_109: { P a109_0; T2 = CALL1(1,VARREF(Yhead),items_); T1 = CALL2(1,VARREF(YgooSmacrosYEE),tmpF3252,T2); if (T1 != YPfalse) { T0 = items_; } else { T16 = CALL1(1,VARREF(Yhead),items_); tmpF3253 = T16; prevF3254 = items_; T17 = CALL1(1,VARREF(Ytail),items_); nextF3255 = T17; LOOP_110: { P a110_0,a110_1,a110_2; T4 = CALL1(1,VARREF(YgooSmacrosYnulQ),nextF3255); if (T4 != YPfalse) { a109_0 = tmpF3253; tmpF3252 = a109_0; goto LOOP_109; T3 = T5; } else { T9 = CALL1(1,VARREF(Yhead),nextF3255); T10 = CALL1(1,VARREF(Yhead),prevF3254); T8 = CALL2(1,test_,T9,T10); if (T8 != YPfalse) { T13 = CALL1(1,VARREF(Yhead),prevF3254); tmpF3256 = T13; T11 = CALL1(1,VARREF(Yhead),nextF3255); CALL2(1,VARREF(Yhead_setter),T11,prevF3254); T12 = CALL2(1,VARREF(Yhead_setter),tmpF3256,nextF3255); T7 = T12; } else { T7 = tmpF3253; } T14 = CALL1(1,VARREF(Ytail),prevF3254); T15 = CALL1(1,VARREF(Ytail),nextF3255); a110_0 = T7; a110_1 = T14; a110_2 = T15; tmpF3253 = a110_0; prevF3254 = a110_1; nextF3255 = a110_2; goto LOOP_110; T3 = T6; } } T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_29) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooScolsSseqYvals_to_str),x_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_67),T1,LITREF(lit_68)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_assq_30) { P x_,l_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); ARG(l_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),l_); if (T1 != YPfalse) { T0 = YPfalse; } else { T5 = CALL1(1,VARREF(Yhead),l_); T4 = CALL1(1,VARREF(Yhead),T5); T3 = CALL2(1,VARREF(YgooSmacrosYEE),x_,T4); if (T3 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),l_); T2 = T6; } else { T8 = CALL1(1,VARREF(Ytail),l_); T7 = CALL2(1,VARREF(YgooScolsSlstYassq),x_,T8); T2 = T7; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_assqn_31) { P x_,l_,pos_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); ARG(l_, 1); ARG(pos_, 2); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),l_); if (T1 != YPfalse) { T0 = YPfalse; } else { T5 = CALL1(1,VARREF(Yhead),l_); T4 = CALL2(1,VARREF(YgooSmacrosYelt),T5,pos_); T3 = CALL2(1,VARREF(YgooSmacrosYEE),x_,T4); if (T3 != YPfalse) { T6 = CALL1(1,VARREF(Yhead),l_); T2 = T6; } else { T8 = CALL1(1,VARREF(Ytail),l_); T7 = CALL3(1,VARREF(YgooScolsSlstYassqn),x_,T8,pos_); T2 = T7; } T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1360_32) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_75),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_33) { P return_; P DnulF3269; P classF3268; P x_1359F3267; P x_1359F3266; P x_1359F3265; P x_1359F3264; P x_1359F3263; P x_1359F3262; P x_1359F3261; P supersF3260; P nameF3259; P x_1359F3258; P x_1360F3257; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69; LINK_STACK(); ARG(return_, 0); T69 = FUNSHELL(0,fun_x_1360_32,2); x_1360F3257 = T69; FUNINIT(x_1360F3257, 2,FREEREF(0),return_); x_1359F3258 = FREEREF(0); nameF3259 = YPfalse; supersF3260 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1359F3258,VARREF(YLlstG)); if (T2 != YPfalse) { T12 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1359F3258,LITREF(lit_75),x_1360F3257); x_1359F3261 = T12; T10 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1359F3261,x_1360F3257); nameF3259 = T10; T11 = CALL1(1,VARREF(Ytail),x_1359F3261); x_1359F3262 = T11; T8 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1359F3262,x_1360F3257); x_1359F3263 = T8; supersF3260 = x_1359F3263; x_1359F3264 = Ynil; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1359F3264,x_1360F3257); x_1359F3265 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1359F3265,x_1360F3257); T7 = CALL1(1,VARREF(Ytail),x_1359F3264); x_1359F3266 = T7; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1359F3266,x_1360F3257); T9 = CALL1(1,VARREF(Ytail),x_1359F3262); x_1359F3267 = T9; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1359F3267,x_1360F3257); } else { T13 = CALL2(1,x_1360F3257,LITREF(lit_76),x_1359F3258); } T68 = nameF3259; T67 = CALL3(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_77),T68,LITREF(lit_78)); classF3268 = T67; T66 = nameF3259; T65 = CALL3(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_79),T66,LITREF(lit_80)); DnulF3269 = T65; T15 = CALL1(1,VARREF(Ylst),LITREF(lit_81)); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_82)); T19 = CALL1(1,VARREF(Ylst),classF3268); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_83)); T23 = supersF3260; T21 = CALL3(1,VARREF(YgooSmacrosYcat),T22,T23,LITREF(lit_84)); T20 = CALL1(1,VARREF(Ylst),T21); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T20,LITREF(lit_84)); T16 = CALL1(1,VARREF(Ylst),T17); T26 = CALL1(1,VARREF(Ylst),LITREF(lit_85)); T27 = CALL1(1,VARREF(Ylst),DnulF3269); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T31 = CALL1(1,VARREF(Ylst),classF3268); T29 = CALL3(1,VARREF(YgooSmacrosYcat),T30,T31,LITREF(lit_84)); T28 = CALL1(1,VARREF(Ylst),T29); T25 = CALL4(1,VARREF(YgooSmacrosYcat),T26,T27,T28,LITREF(lit_84)); T24 = CALL1(1,VARREF(Ylst),T25); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_87)); T36 = nameF3259; T35 = CALL1(1,VARREF(Ylst),T36); T39 = CALL1(1,VARREF(Ylst),LITREF(lit_88)); T40 = CALL1(1,VARREF(Ylst),LITREF(lit_89)); T38 = CALL3(1,VARREF(YgooSmacrosYcat),T39,T40,LITREF(lit_84)); T37 = CALL1(1,VARREF(Ylst),T38); T43 = CALL1(1,VARREF(Ylst),LITREF(lit_86)); T44 = CALL1(1,VARREF(Ylst),classF3268); T45 = CALL1(1,VARREF(Ylst),LITREF(lit_90)); T46 = CALL1(1,VARREF(Ylst),LITREF(lit_88)); T47 = CALL1(1,VARREF(Ylst),LITREF(lit_91)); T48 = CALL1(1,VARREF(Ylst),LITREF(lit_89)); T42 = CALLN(1,VARREF(YgooSmacrosYcat),7,T43,T44,T45,T46,T47,T48,LITREF(lit_84)); T41 = CALL1(1,VARREF(Ylst),T42); T33 = CALL5(1,VARREF(YgooSmacrosYcat),T34,T35,T37,T41,LITREF(lit_84)); T32 = CALL1(1,VARREF(Ylst),T33); T51 = CALL1(1,VARREF(Ylst),LITREF(lit_92)); T52 = CALL1(1,VARREF(Ylst),LITREF(lit_18)); T57 = CALL1(1,VARREF(Ylst),LITREF(lit_93)); T60 = CALL1(1,VARREF(Ylst),LITREF(lit_94)); T61 = CALL1(1,VARREF(Ylst),classF3268); T59 = CALL3(1,VARREF(YgooSmacrosYcat),T60,T61,LITREF(lit_84)); T58 = CALL1(1,VARREF(Ylst),T59); T56 = CALL3(1,VARREF(YgooSmacrosYcat),T57,T58,LITREF(lit_84)); T55 = CALL1(1,VARREF(Ylst),T56); T62 = CALL1(1,VARREF(Ylst),LITREF(lit_95)); T63 = CALL1(1,VARREF(Ylst),classF3268); T54 = CALL4(1,VARREF(YgooSmacrosYcat),T55,T62,T63,LITREF(lit_84)); T53 = CALL1(1,VARREF(Ylst),T54); T64 = CALL1(1,VARREF(Ylst),DnulF3269); T50 = CALL5(1,VARREF(YgooSmacrosYcat),T51,T52,T53,T64,LITREF(lit_84)); T49 = CALL1(1,VARREF(Ylst),T50); T14 = CALLN(1,VARREF(YgooSmacrosYcat),6,T15,T16,T24,T32,T49,LITREF(lit_84)); UNLINK_STACK(); QRET(T14); } LOCCODEDEF(fun_34) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_33,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_line_of_35) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_line_of_36) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSlstYline_of)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_37) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } FUNCODEDEF(YgooScolsSlstYline_pah) { P h_,t_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YgooScolsSlstYLline_pahG),VARREF(Yhead),h_,VARREF(Ytail),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_39) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(VARREF(YgooScolsSlstYDline_pah_nul)); } FUNCODEDEF(YgooScolsSlstYline_pair) { P h_,t_,l_; P T0; LINK_STACK(); ARG(h_, 0); ARG(t_, 1); ARG(l_, 2); T0 = CALLN(1,VARREF(Ynew),7,VARREF(YgooScolsSlstYLline_listG),VARREF(Yhead),h_,VARREF(Ytail),t_,VARREF(YgooScolsSlstYline_of),l_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooScolsSlstYline_list) { P l_,elts_; P iF3271; P rF3270; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(l_, 0); NARGS(elts_, 1); T6 = CALL1(1,VARREF(YgooScolsScolYnul),VARREF(YgooScolsSlstYLline_listG)); rF3270 = T6; T8 = CALL1(1,VARREF(YgooStypesYlen),elts_); T7 = CALL2(1,VARREF(YgooSmathY_),T8,YPint((P)1)); iF3271 = T7; LOOP_111: { P a111_0,a111_1; T1 = CALL2(1,VARREF(YgooSmagYL),iF3271,YPint((P)0)); if (T1 != YPfalse) { T0 = rF3270; } else { T4 = CALL2(1,VARREF(YgooSmacrosYelt),elts_,iF3271); T3 = CALL3(1,VARREF(YgooScolsSlstYline_pair),T4,rF3270,l_); T5 = CALL2(1,VARREF(YgooSmathY_),iF3271,YPint((P)1)); a111_0 = T3; a111_1 = T5; rF3270 = a111_0; iF3271 = a111_1; goto LOOP_111; T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_copy_42) { P l_,src_; P tmpF3275; P tmpF3274; P tF3273; P hF3272; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(l_, 0); ARG(src_, 1); T2 = CALL2(1,VARREF(YisaQ),src_,VARREF(YLlstG)); if (T2 != YPfalse) { T4 = CALL1(1,VARREF(YgooSmacrosYnulQ),src_); T3 = CALL1(1,VARREF(Ynot),T4); T1 = T3; } else { T1 = YPfalse; } if (T1 != YPfalse) { T13 = CALL1(1,VARREF(Yhead),src_); hF3272 = T13; T12 = CALL1(1,VARREF(Ytail),src_); tF3273 = T12; T8 = CALL1(1,VARREF(YgooScolsSlstYline_of),hF3272); tmpF3274 = T8; if (tmpF3274 != YPfalse) { T7 = tmpF3274; } else { T7 = l_; } T6 = CALL2(0,FREEREF(0),T7,hF3272); T11 = CALL1(1,VARREF(YgooScolsSlstYline_of),tF3273); tmpF3275 = T11; if (tmpF3275 != YPfalse) { T10 = tmpF3275; } else { T10 = l_; } T9 = CALL2(0,FREEREF(0),T10,tF3273); T5 = CALL3(1,VARREF(YgooScolsSlstYline_pair),T6,T9,l_); T0 = T5; } else { T0 = src_; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_line_list_of_43) { P ctx_,src_; P copyF3276; P T0,T1,T2; LINK_STACK(); ARG(ctx_, 0); ARG(src_, 1); T2 = FUNSHELL(1,fun_copy_42,1); copyF3276 = T2; FUNINIT(copyF3276, 1,copyF3276); T1 = CALL1(1,VARREF(YgooScolsSlstYline_of),ctx_); T0 = CALL2(1,copyF3276,T1,src_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_line_list_of_44) { P ctx_,src_; LINK_STACK(); ARG(ctx_, 0); ARG(src_, 1); UNLINK_STACK(); QRET(src_); } P YgooScolsSlstY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; DEFCREGS(); VARSET(YgooScolsSlstYLlistG,VARREF(YLlstG)); lit_0 = YPPsym((P)"lst"); lit_1 = YPPlist(1,YPPsym((P)"elts")); T1 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLlstG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(Ylst,T0); lit_2 = YPPsym((P)"lst*"); lit_3 = YPPlist(1,YPPsym((P)"elts")); T3 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLlstG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooScolsSlstYlstT,T2); VARSET(YgooScolsSlstYlist,VARREF(Ylst)); lit_4 = YPPsym((P)"pair"); lit_5 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T5 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSmacrosYpair,T4); lit_6 = YPPsym((P)"assqn"); lit_7 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"l"),YPPsym((P)"pos")); T7 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLlstG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooScolsSlstYassqn,T6); lit_8 = YPPsym((P)"assq"); lit_9 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"l")); T9 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooScolsSlstYassq,T8); lit_10 = YPPsym((P)"len"); lit_11 = YPPlist(1,YPPsym((P)"x")); T10 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_0 = YPfab_met(FUNCODEREF(fun_len_0),T10,LITREF(lit_10),LITREF(lit_11),sloc(44),YPfalse); T12 = VARREF_OR(YgooStypesYlen,YPfalse); T13 = fun_len_0; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooStypesYlen,T11); lit_12 = YPPsym((P)"elt-or"); lit_13 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"key"),YPPsym((P)"default")); T14 = YPfab_sig(YPPlist(3,VARREF(YLlstG),VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_1 = YPfab_met(FUNCODEREF(fun_elt_or_1),T14,LITREF(lit_12),LITREF(lit_13),sloc(48),YPfalse); T16 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T17 = fun_elt_or_1; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooScolsScolYelt_or,T15); lit_14 = YPPsym((P)"elt-setter"); lit_15 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"x"),YPPsym((P)"key")); T18 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLlstG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_setter_2 = YPfab_met(FUNCODEREF(fun_elt_setter_2),T18,LITREF(lit_14),LITREF(lit_15),sloc(56),YPfalse); T20 = VARREF_OR(YgooScolsScolxYelt_setter,YPfalse); T21 = fun_elt_setter_2; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooScolsScolxYelt_setter,T19); lit_16 = YPPsym((P)"nul?"); lit_17 = YPPlist(1,YPPsym((P)"c")); T22 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_nulQ_3 = YPfab_met_inlineable(FUNCODEREF(fun_nulQ_3),T22,LITREF(lit_16),LITREF(lit_17),sloc(64),YPfalse); T24 = VARREF_OR(YgooSmacrosYnulQ,YPfalse); T25 = fun_nulQ_3; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSmacrosYnulQ,T23); lit_18 = YPPsym((P)"nul"); lit_19 = YPPlist(1,YPPsym((P)"c")); T27 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLlstG)); T26 = YPfab_sig(YPPlist(1,T27),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_nul_4 = YPfab_met_inlineable(FUNCODEREF(fun_nul_4),T26,LITREF(lit_18),LITREF(lit_19),sloc(66),YPfalse); T29 = VARREF_OR(YgooScolsScolYnul,YPfalse); T30 = fun_nul_4; T28 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T29,T30); VARSET(YgooScolsScolYnul,T28); lit_20 = YPPsym((P)"fab"); lit_21 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"s")); T32 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLlstG)); T31 = YPfab_sig(YPPlist(2,T32,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_fab_5 = YPfab_met(FUNCODEREF(fun_fab_5),T31,LITREF(lit_20),LITREF(lit_21),sloc(68),YPfalse); T34 = VARREF_OR(YgooScolsScolYfab,YPfalse); T35 = fun_fab_5; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooScolsScolYfab,T33); lit_22 = YPPsym((P)"fabs"); lit_23 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"objects")); T37 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLlstG)); T36 = YPfab_sig(YPPlist(1,T37),YPtrue,YPint((P)1),VARREF(YLlstG),Ynil); fun_fabs_6 = YPfab_met(FUNCODEREF(fun_fabs_6),T36,LITREF(lit_22),LITREF(lit_23),sloc(74),YPfalse); T39 = VARREF_OR(YgooSchrYfabs,YPfalse); T40 = fun_fabs_6; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YgooSchrYfabs,T38); lit_24 = YPPlist(1,YPPsym((P)"args")); T43 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLlstG),Ynil); T42 = fun_lstT_7 = YPfab_met(FUNCODEREF(fun_lstT_7),T43,LITREF(lit_2),LITREF(lit_24),sloc(81),YPfalse); T46 = VARREF_OR(YgooScolsSlstYlstT,YPfalse); T47 = fun_lstT_7; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); T44 = VARSET(YgooScolsSlstYlstT,T45); T41 = T44; return T41; } P YgooScolsSlstY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129,T130,T131,T132,T133,T134,T135; DEFCREGS(); lit_25 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_25),T1); VARSET(YgooScolsSlstYLlst_enumG,T0); lit_26 = YPPsym((P)"%dat"); lit_27 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdat_8 = YPfab_met(FUNCODEREF(fun_Pdat_8),T2,LITREF(lit_26),LITREF(lit_27),sloc(90),YPfalse); T4 = VARREF_OR(YgooScolsSlstYPdat,YPfalse); T5 = fun_Pdat_8; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YgooScolsSlstYPdat,T3); lit_28 = YPPsym((P)"%dat-setter"); lit_29 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pdat_setter_9 = YPfab_met(FUNCODEREF(fun_Pdat_setter_9),T6,LITREF(lit_28),LITREF(lit_29),sloc(90),YPfalse); T8 = VARREF_OR(YgooScolsSlstYPdat_setter,YPfalse); T9 = fun_Pdat_setter_9; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooScolsSlstYPdat_setter,T7); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSlstYLlst_enumG),VARREF(YgooScolsSlstYPdat),VARREF(YgooScolsSlstYPdat_setter),VARREF(YLlstG),VARREF(YPprop_unbound_error)); lit_30 = YPPsym((P)"%key"); lit_31 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pkey_10 = YPfab_met(FUNCODEREF(fun_Pkey_10),T10,LITREF(lit_30),LITREF(lit_31),sloc(91),YPfalse); T12 = VARREF_OR(YgooScolsSlstYPkey,YPfalse); T13 = fun_Pkey_10; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooScolsSlstYPkey,T11); lit_32 = YPPsym((P)"%key-setter"); lit_33 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pkey_setter_11 = YPfab_met(FUNCODEREF(fun_Pkey_setter_11),T14,LITREF(lit_32),LITREF(lit_33),sloc(91),YPfalse); T16 = VARREF_OR(YgooScolsSlstYPkey_setter,YPfalse); T17 = fun_Pkey_setter_11; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooScolsSlstYPkey_setter,T15); lit_34 = YPPlist(1,YPPsym((P)"_x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T18,YPfalse,LITREF(lit_34),sloc(91),YPfalse); T19 = fun_12; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSlstYLlst_enumG),VARREF(YgooScolsSlstYPkey),VARREF(YgooScolsSlstYPkey_setter),VARREF(YLintG),T19); lit_35 = YPPsym((P)"enum"); lit_36 = YPPlist(1,YPPsym((P)"x")); T20 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YgooScolsSlstYLlst_enumG),Ynil); fun_enum_13 = YPfab_met(FUNCODEREF(fun_enum_13),T20,LITREF(lit_35),LITREF(lit_36),sloc(92),YPfalse); T22 = VARREF_OR(YgooScolsScolYenum,YPfalse); T23 = fun_enum_13; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooScolsScolYenum,T21); lit_37 = YPPsym((P)"fin?"); lit_38 = YPPlist(1,YPPsym((P)"e")); T24 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_14 = YPfab_met(FUNCODEREF(fun_finQ_14),T24,LITREF(lit_37),LITREF(lit_38),sloc(94),YPfalse); T26 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T27 = fun_finQ_14; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooScolsScolYfinQ,T25); lit_39 = YPPsym((P)"nxt"); lit_40 = YPPlist(1,YPPsym((P)"e")); T28 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSlstYLlst_enumG),Ynil); fun_nxt_15 = YPfab_met(FUNCODEREF(fun_nxt_15),T28,LITREF(lit_39),LITREF(lit_40),sloc(96),YPfalse); T30 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T31 = fun_nxt_15; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooScolsScolYnxt,T29); lit_41 = YPPsym((P)"now"); lit_42 = YPPlist(1,YPPsym((P)"e")); T32 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_now_16 = YPfab_met(FUNCODEREF(fun_now_16),T32,LITREF(lit_41),LITREF(lit_42),sloc(98),YPfalse); T34 = VARREF_OR(YgooScolsScolYnow,YPfalse); T35 = fun_now_16; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooScolsScolYnow,T33); lit_43 = YPPsym((P)"now-setter"); lit_44 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"e")); T36 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_now_setter_17 = YPfab_met(FUNCODEREF(fun_now_setter_17),T36,LITREF(lit_43),LITREF(lit_44),sloc(100),YPfalse); T38 = VARREF_OR(YgooScolsScolYnow_setter,YPfalse); T39 = fun_now_setter_17; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsScolYnow_setter,T37); lit_45 = YPPsym((P)"now-key"); lit_46 = YPPlist(1,YPPsym((P)"e")); T40 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlst_enumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_now_key_18 = YPfab_met(FUNCODEREF(fun_now_key_18),T40,LITREF(lit_45),LITREF(lit_46),sloc(102),YPfalse); T42 = VARREF_OR(YgooScolsScolYnow_key,YPfalse); T43 = fun_now_key_18; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsScolYnow_key,T41); lit_47 = YPPsym((P)"add"); lit_48 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T44 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_add_19 = YPfab_met(FUNCODEREF(fun_add_19),T44,LITREF(lit_47),LITREF(lit_48),sloc(106),YPfalse); T46 = VARREF_OR(YgooScolsScolYadd,YPfalse); T47 = fun_add_19; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsScolYadd,T45); lit_49 = YPPsym((P)"last"); lit_50 = YPPlist(1,YPPsym((P)"x")); T48 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_last_20 = YPfab_met(FUNCODEREF(fun_last_20),T48,LITREF(lit_49),LITREF(lit_50),sloc(109),YPfalse); T50 = VARREF_OR(YgooSmacrosYlast,YPfalse); T51 = fun_last_20; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooSmacrosYlast,T49); lit_51 = YPPsym((P)"rev!"); lit_52 = YPPlist(1,YPPsym((P)"c")); T52 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_revX_21 = YPfab_met(FUNCODEREF(fun_revX_21),T52,LITREF(lit_51),LITREF(lit_52),sloc(113),YPfalse); T54 = VARREF_OR(YgooSmacrosYrevX,YPfalse); T55 = fun_revX_21; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooSmacrosYrevX,T53); lit_53 = YPPsym((P)"cat!"); lit_54 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"more")); lit_55 = YPPsym((P)"connect"); lit_56 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T57 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_connect_22 = YPfab_met(FUNCODEREF(fun_connect_22),T57,LITREF(lit_55),LITREF(lit_56),sloc(122),YPfalse); T56 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPtrue,YPint((P)1),VARREF(YLlstG),Ynil); fun_catX_23 = YPfab_met(FUNCODEREF(fun_catX_23),T56,LITREF(lit_53),LITREF(lit_54),sloc(121),YPfalse); T59 = VARREF_OR(YgooScolsSseqxYcatX,YPfalse); T60 = fun_catX_23; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YgooScolsSseqxYcatX,T58); lit_57 = YPPlist(1,YPPsym((P)"objects")); T61 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLlstG),Ynil); fun_lst_24 = YPfab_met(FUNCODEREF(fun_lst_24),T61,LITREF(lit_0),LITREF(lit_57),sloc(139),YPfalse); T63 = VARREF_OR(Ylst,YPfalse); T64 = fun_lst_24; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(Ylst,T62); lit_58 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T65 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_pair_25 = YPfab_met(FUNCODEREF(fun_pair_25),T65,LITREF(lit_4),LITREF(lit_58),sloc(142),YPfalse); T67 = VARREF_OR(YgooSmacrosYpair,YPfalse); T68 = fun_pair_25; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YgooSmacrosYpair,T66); lit_59 = YPPsym((P)"push!"); lit_60 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T69 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_pushX_26 = YPfab_met(FUNCODEREF(fun_pushX_26),T69,LITREF(lit_59),LITREF(lit_60),sloc(145),YPfalse); T71 = VARREF_OR(YgooScolsSseqxYpushX,YPfalse); T72 = fun_pushX_26; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YgooScolsSseqxYpushX,T70); lit_61 = YPPsym((P)"pop!"); lit_62 = YPPlist(1,YPPsym((P)"c")); T74 = XCALL2(1,VARREF(YtT),VARREF(YLlstG),VARREF(YLanyG)); T73 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),T74,Ynil); fun_popX_27 = YPfab_met(FUNCODEREF(fun_popX_27),T73,LITREF(lit_61),LITREF(lit_62),sloc(148),YPfalse); T76 = VARREF_OR(YgooScolsSseqxYpopX,YPfalse); T77 = fun_popX_27; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooScolsSseqxYpopX,T75); lit_63 = YPPsym((P)"sort-by!"); lit_64 = YPPlist(2,YPPsym((P)"items"),YPPsym((P)"test")); T78 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_sort_byX_28 = YPfab_met(FUNCODEREF(fun_sort_byX_28),T78,LITREF(lit_63),LITREF(lit_64),sloc(152),YPfalse); T80 = VARREF_OR(YgooScolsSseqYsort_byX,YPfalse); T81 = fun_sort_byX_28; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YgooScolsSseqYsort_byX,T79); lit_65 = YPPsym((P)"to-str"); lit_66 = YPPlist(1,YPPsym((P)"x")); lit_67 = YPsb((P)"("); lit_68 = YPsb((P)")"); T82 = YPfab_sig(YPPlist(1,VARREF(YLlstG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_29 = YPfab_met(FUNCODEREF(fun_to_str_29),T82,LITREF(lit_65),LITREF(lit_66),sloc(167),YPfalse); T84 = VARREF_OR(YgooSanyYto_str,YPfalse); T85 = fun_to_str_29; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YgooSanyYto_str,T83); lit_69 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"l")); T86 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_assq_30 = YPfab_met(FUNCODEREF(fun_assq_30),T86,LITREF(lit_8),LITREF(lit_69),sloc(174),YPfalse); T88 = VARREF_OR(YgooScolsSlstYassq,YPfalse); T89 = fun_assq_30; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YgooScolsSlstYassq,T87); lit_70 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"l"),YPPsym((P)"pos")); T90 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLlstG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_assqn_31 = YPfab_met(FUNCODEREF(fun_assqn_31),T90,LITREF(lit_6),LITREF(lit_70),sloc(181),YPfalse); T92 = VARREF_OR(YgooScolsSlstYassqn,YPfalse); T93 = fun_assqn_31; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YgooScolsSlstYassqn,T91); lit_71 = YPPlist(1,YPPsym((P)"exp")); lit_72 = YPPlist(1,YPPsym((P)"return")); lit_73 = YPPsym((P)"x-1360"); lit_74 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_75 = YPPsym((P)"def-list"); lit_76 = YPsb((P)"Match Pattern Failure"); lit_77 = YPsb((P)"<"); lit_78 = YPsb((P)">"); lit_79 = YPsb((P)"$"); lit_80 = YPsb((P)"-nul"); lit_81 = YPPsym((P)"seq"); lit_82 = YPPsym((P)"dc"); lit_83 = YPPsym((P)""); lit_84 = Ynil; lit_85 = YPPsym((P)"dv"); lit_86 = YPPsym((P)"new"); lit_87 = YPPsym((P)"df"); lit_88 = YPPsym((P)"h"); lit_89 = YPPsym((P)"t"); lit_90 = YPPsym((P)"head"); lit_91 = YPPsym((P)"tail"); lit_92 = YPPsym((P)"dm"); lit_93 = YPPsym((P)"e"); lit_94 = YPPsym((P)"t="); lit_95 = YPPsym((P)"=>"); T96 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1360_32 = YPfab_met(FUNCODEREF(fun_x_1360_32),T96,LITREF(lit_73),LITREF(lit_74),YPfalse,YPfalse); T95 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_33 = YPfab_met(FUNCODEREF(fun_33),T95,YPfalse,LITREF(lit_72),YPfalse,YPfalse); T94 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T94,YPfalse,LITREF(lit_71),YPfalse,YPfalse); T97 = fun_34; YPmacro(YPPsym((P)"goo/cols/lst"),YPPsym((P)"def-list"),T97); lit_96 = YPPsym((P)"line-of"); lit_97 = YPPlist(1,YPPsym((P)"x")); T98 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_line_of_35 = YPfab_met(FUNCODEREF(fun_line_of_35),T98,LITREF(lit_96),LITREF(lit_97),sloc(197),YPfalse); T100 = VARREF_OR(YgooScolsSlstYline_of,YPfalse); T101 = fun_line_of_35; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YgooScolsSlstYline_of,T99); lit_98 = YPPsym((P)""); T103 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLmagG),Ynil); T102 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_98),T103); VARSET(YgooScolsSlstYLlineG,T102); lit_99 = YPPlist(1,YPPsym((P)"_x")); T104 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSlstYLlineG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_line_of_36 = YPfab_met(FUNCODEREF(fun_line_of_36),T104,LITREF(lit_96),LITREF(lit_99),sloc(200),YPfalse); T106 = VARREF_OR(YgooScolsSlstYline_of,YPfalse); T107 = fun_line_of_36; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YgooScolsSlstYline_of,T105); lit_100 = YPPlist(1,YPPsym((P)"_x")); T108 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_37 = YPfab_met(FUNCODEREF(fun_37),T108,YPfalse,LITREF(lit_100),sloc(200),YPfalse); T109 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T110 = fun_37; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSlstYLlineG),VARREF(YgooScolsSlstYline_of),YPfalse,T109,T110); lit_101 = YPPsym((P)""); T113 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsSlstYLlineG),Ynil); T112 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLlstG),T113); T111 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_101),T112); VARSET(YgooScolsSlstYLline_pahG,T111); T114 = XCALL1(1,VARREF(Ynew),VARREF(YgooScolsSlstYLline_pahG)); VARSET(YgooScolsSlstYDline_pah_nul,T114); lit_102 = YPPsym((P)"line-pah"); lit_103 = YPPlist(2,YPPsym((P)"h"),YPPsym((P)"t")); T115 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooScolsSlstYline_pah = YPfab_met(FUNCODEREF(YgooScolsSlstYline_pah),T115,LITREF(lit_102),LITREF(lit_103),sloc(202),YPfalse); T116 = YgooScolsSlstYline_pah; VARSET(YgooScolsSlstYline_pah,T116); lit_104 = YPPlist(1,YPPsym((P)"e")); T118 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooScolsSlstYLline_pahG)); T117 = YPfab_sig(YPPlist(1,T118),YPfalse,YPint((P)1),VARREF(YgooScolsSlstYLline_pahG),Ynil); fun_nul_39 = YPfab_met(FUNCODEREF(fun_nul_39),T117,LITREF(lit_18),LITREF(lit_104),sloc(202),YPfalse); T120 = VARREF_OR(YgooScolsScolYnul,YPfalse); T121 = fun_nul_39; T119 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T120,T121); VARSET(YgooScolsScolYnul,T119); VARSET(YgooScolsSlstYLline_listG,VARREF(YgooScolsSlstYLline_pahG)); lit_105 = YPPsym((P)"line-pair"); lit_106 = YPPlist(3,YPPsym((P)"h"),YPPsym((P)"t"),YPPsym((P)"l")); T122 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooScolsSlstYline_pair = YPfab_met(FUNCODEREF(YgooScolsSlstYline_pair),T122,LITREF(lit_105),LITREF(lit_106),sloc(206),YPfalse); T123 = YgooScolsSlstYline_pair; VARSET(YgooScolsSlstYline_pair,T123); lit_107 = YPPsym((P)"line-list"); lit_108 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"elts")); T124 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); YgooScolsSlstYline_list = YPfab_met(FUNCODEREF(YgooScolsSlstYline_list),T124,LITREF(lit_107),LITREF(lit_108),sloc(208),YPfalse); T125 = YgooScolsSlstYline_list; VARSET(YgooScolsSlstYline_list,T125); lit_109 = YPPsym((P)"line-list-of"); lit_110 = YPPlist(2,YPPsym((P)"ctx"),YPPsym((P)"src")); lit_111 = YPPsym((P)"copy"); lit_112 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"src")); T127 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_copy_42 = YPfab_met(FUNCODEREF(fun_copy_42),T127,LITREF(lit_111),LITREF(lit_112),sloc(215),YPfalse); T126 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLlstG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_line_list_of_43 = YPfab_met(FUNCODEREF(fun_line_list_of_43),T126,LITREF(lit_109),LITREF(lit_110),sloc(214),YPfalse); T129 = VARREF_OR(YgooScolsSlstYline_list_of,YPfalse); T130 = fun_line_list_of_43; T128 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T129,T130); VARSET(YgooScolsSlstYline_list_of,T128); lit_113 = YPPlist(2,YPPsym((P)"ctx"),YPPsym((P)"src")); T131 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_line_list_of_44 = YPfab_met(FUNCODEREF(fun_line_list_of_44),T131,LITREF(lit_109),LITREF(lit_113),sloc(221),YPfalse); T133 = VARREF_OR(YgooScolsSlstYline_list_of,YPfalse); T134 = fun_line_list_of_44; T132 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T133,T134); VARSET(YgooScolsSlstYline_list_of,T132); T135 = YPfalse; return T135; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"line-pah", CVAR, &YgooScolsSlstYline_pah}, {"%key", CVAR, &YgooScolsSlstYPkey}, {"line-list-of", CVAR, &YgooScolsSlstYline_list_of}, {"lst*", CVAR, &YgooScolsSlstYlstT}, {"", CVAR, &YgooScolsSlstYLlistG}, {"%key-setter", CVAR, &YgooScolsSlstYPkey_setter}, {"", CVAR, &YgooScolsSlstYLline_pahG}, {"", CVAR, &YgooScolsSlstYLlineG}, {"", CVAR, &YgooScolsSlstYLline_listG}, {"", CVAR, &YgooScolsSlstYLlst_enumG}, {"---main-1---", PVAR, NULL}, {"line-of", CVAR, &YgooScolsSlstYline_of}, {"$line-pah-nul", CVAR, &YgooScolsSlstYDline_pah_nul}, {"def-list", PVAR, NULL}, {"line-list", CVAR, &YgooScolsSlstYline_list}, {"assq", CVAR, &YgooScolsSlstYassq}, {"%dat-setter", CVAR, &YgooScolsSlstYPdat_setter}, {"%dat", CVAR, &YgooScolsSlstYPdat}, {"list", CVAR, &YgooScolsSlstYlist}, {"---main-0---", PVAR, NULL}, {"line-pair", CVAR, &YgooScolsSlstYline_pair}, {"assqn", CVAR, &YgooScolsSlstYassqn}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"head-setter", NULL}, {"pair", NULL}, {"head", NULL}, {"lst*", NULL}, {"", NULL}, {"lst", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"line-of", NULL}, {"line-list-of", NULL}, {"def-list", NULL}, {"line-list", NULL}, {"tail-setter", NULL}, {"assq", NULL}, {"tail", NULL}, {"list", NULL}, {"line-pair", NULL}, {"assqn", NULL}, {"nil", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSlst; MODULE_INFO module_info_gooScolsSlst = { "goo/cols/lst", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); /* EXPRESSION: */ extern void load_module_gooScolsSlst (void); void load_module_gooScolsSlst (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); (P)YgooScolsSlstY___main_0___(); (P)YgooScolsSlstY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/map.c0100644000175000017500000015513707756744557015321 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/map"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/map */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); DEF(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_0); /* FUNCTIONS: */ extern P YgooScolsSmapY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ P YgooScolsSmapY___main_0___() { P T0,T1,T2; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLcolG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsSmapYLmapG,T0); T2 = YPfalse; return T2; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSlst}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"---main-0---", PVAR, NULL}, {"", CVAR, &YgooScolsSmapYLmapG}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSmap; MODULE_INFO module_info_gooScolsSmap = { "goo/cols/map", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSlst (void); /* EXPRESSION: */ extern void load_module_gooScolsSmap (void); void load_module_gooScolsSmap (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSlst(); (P)YgooScolsSmapY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/opts.c0100644000175000017500000016027707756744557015532 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/opts"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/opts */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooScolsSoptsYto_str,"goo/cols/opts","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_1); DEFLIT(lit_2); DEFLIT(lit_11); DEFLIT(lit_8); DEFLIT(lit_0); DEFLIT(lit_4); DEFLIT(lit_6); DEFLIT(lit_10); DEFLIT(lit_5); DEFLIT(lit_9); DEFLIT(lit_7); DEFLIT(lit_3); /* FUNCTIONS: */ LOCFOR(fun_col_res_type_0); LOCFOR(fun_len_1); LOCFOR(fun_elt_or_2); LOCFOR(fun_to_str_3); LOCFOR(fun_low_elt_4); extern P YgooScolsSoptsY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_col_res_type_0) { P c_; LINK_STACK(); ARG(c_, 0); UNLINK_STACK(); RET(VARREF(YLlstG)); } LOCCODEDEF(fun_len_1) { P x_; P xF3216; P xF3215; P T0; LINK_STACK(); ARG(x_, 0); xF3215 = x_; xF3216 = xF3215; T0 = (P)YPprop_elt(xF3216,(P)1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_or_2) { P x_,i_,default_; P xF3221; P xF3220; P xF3219; P iF3218; P xF3217; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); ARG(default_, 2); CALL2(1,VARREF(YgooScolsSseqYrange_check),x_,i_); xF3217 = x_; iF3218 = i_; xF3219 = xF3217; T1 = (P)YPprop_elt(xF3219,(P)0); xF3220 = iF3218; xF3221 = xF3220; T3 = (P)YPiGG(xF3221,(P)2); T2 = (P)YPi_((P)0,T3); T0 = (P)YPloc_off(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_str_3) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooScolsSseqYvals_to_str),x_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_8),T1,LITREF(lit_9)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_low_elt_4) { P x_,i_; P xF3226; P xF3225; P xF3224; P iF3223; P xF3222; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); xF3222 = x_; iF3223 = i_; xF3224 = xF3222; T1 = (P)YPprop_elt(xF3224,(P)0); xF3225 = iF3223; xF3226 = xF3225; T3 = (P)YPiGG(xF3226,(P)2); T2 = (P)YPi_((P)0,T3); T0 = (P)YPloc_off(T1,T2); UNLINK_STACK(); QRET(T0); } P YgooScolsSoptsY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; DEFCREGS(); lit_0 = YPPsym((P)"col-res-type"); lit_1 = YPPlist(1,YPPsym((P)"c")); T0 = YPfab_sig(YPPlist(1,VARREF(YLoptsG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_col_res_type_0 = YPfab_met(FUNCODEREF(fun_col_res_type_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(23),YPfalse); T2 = VARREF_OR(YgooScolsScolYcol_res_type,YPfalse); T3 = fun_col_res_type_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooScolsScolYcol_res_type,T1); lit_2 = YPPsym((P)"len"); lit_3 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLoptsG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_1 = YPfab_met_inlineable(FUNCODEREF(fun_len_1),T4,LITREF(lit_2),LITREF(lit_3),sloc(26),YPfalse); T6 = VARREF_OR(YgooStypesYlen,YPfalse); T7 = fun_len_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooStypesYlen,T5); lit_4 = YPPsym((P)"elt-or"); lit_5 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"i"),YPPsym((P)"default")); T8 = YPfab_sig(YPPlist(3,VARREF(YLoptsG),VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_2 = YPfab_met(FUNCODEREF(fun_elt_or_2),T8,LITREF(lit_4),LITREF(lit_5),sloc(29),YPfalse); T10 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T11 = fun_elt_or_2; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsScolYelt_or,T9); lit_6 = YPPsym((P)"to-str"); lit_7 = YPPlist(1,YPPsym((P)"x")); lit_8 = YPsb((P)"$$opts("); lit_9 = YPsb((P)")"); T12 = YPfab_sig(YPPlist(1,VARREF(YLoptsG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_3 = YPfab_met(FUNCODEREF(fun_to_str_3),T12,LITREF(lit_6),LITREF(lit_7),sloc(33),YPfalse); T14 = VARREF_OR(YgooScolsSoptsYto_str,YPfalse); T15 = fun_to_str_3; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsSoptsYto_str,T13); lit_10 = YPPsym((P)"low-elt"); lit_11 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T18 = YPfab_sig(YPPlist(2,VARREF(YLoptsG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T17 = fun_low_elt_4 = YPfab_met_inlineable(FUNCODEREF(fun_low_elt_4),T18,LITREF(lit_10),LITREF(lit_11),sloc(38),YPfalse); T21 = VARREF_OR(YgooScolsScolYlow_elt,YPfalse); T22 = fun_low_elt_4; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); T19 = VARSET(YgooScolsScolYlow_elt,T20); T16 = T19; return T16; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSflat; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSflat}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"to-str", CVAR, &YgooScolsSoptsYto_str}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSopts; MODULE_INFO module_info_gooScolsSopts = { "goo/cols/opts", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSflat (void); /* EXPRESSION: */ extern void load_module_gooScolsSopts (void); void load_module_gooScolsSopts (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooScolsScol(); load_module_gooScolsSseq(); load_module_gooScolsSflat(); (P)YgooScolsSoptsY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/range.c0100644000175000017500000023040707756744560015624 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/range"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/range */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooScolsSrangeYPkey,"goo/cols/range","%key"); DEF(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); DEF(YgooScolsSrangeYPkey_setter,"goo/cols/range","%key-setter"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); DEF(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); DEF(YgooScolsSrangeYrange_lim,"goo/cols/range","range-lim"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); DEF(YgooScolsSrangeYPval_setter,"goo/cols/range","%val-setter"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); DEF(YgooScolsSrangeYrange_inQ,"goo/cols/range","range-in?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); DEF(YgooScolsSrangeYrange_nxt,"goo/cols/range","range-nxt"); DEF(YgooScolsSrangeYrange_from,"goo/cols/range","range-from"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooScolsSrangeYLrange_enumG,"goo/cols/range",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); DEF(YgooScolsSrangeYPdat,"goo/cols/range","%dat"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); DEF(YgooScolsSrangeYPval,"goo/cols/range","%val"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooSfunctionalYzipped,"goo/functional","zipped"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); DEF(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_46); DEFLIT(lit_18); DEFLIT(lit_24); DEFLIT(lit_0); DEFLIT(lit_38); DEFLIT(lit_40); DEFLIT(lit_16); DEFLIT(lit_22); DEFLIT(lit_36); DEFLIT(lit_35); DEFLIT(lit_10); DEFLIT(lit_42); DEFLIT(lit_23); DEFLIT(lit_32); DEFLIT(lit_37); DEFLIT(lit_15); DEFLIT(lit_20); DEFLIT(lit_31); DEFLIT(lit_12); DEFLIT(lit_14); DEFLIT(lit_4); DEFLIT(lit_33); DEFLIT(lit_49); DEFLIT(lit_44); DEFLIT(lit_11); DEFLIT(lit_17); DEFLIT(lit_21); DEFLIT(lit_19); DEFLIT(lit_29); DEFLIT(lit_45); DEFLIT(lit_5); DEFLIT(lit_39); DEFLIT(lit_26); DEFLIT(lit_25); DEFLIT(lit_48); DEFLIT(lit_30); DEFLIT(lit_13); DEFLIT(lit_41); DEFLIT(lit_47); DEFLIT(lit_8); DEFLIT(lit_1); DEFLIT(lit_2); DEFLIT(lit_27); DEFLIT(lit_34); DEFLIT(lit_28); DEFLIT(lit_6); DEFLIT(lit_3); DEFLIT(lit_43); DEFLIT(lit_9); DEFLIT(lit_7); /* FUNCTIONS: */ LOCFOR(fun_range_from_0); LOCFOR(fun_1); LOCFOR(fun_range_inQ_2); LOCFOR(fun_3); LOCFOR(fun_range_lim_4); LOCFOR(fun_5); LOCFOR(fun_range_nxt_6); LOCFOR(fun_7); LOCFOR(fun_fab_8); LOCFOR(fun_range_9); LOCFOR(fun_range_by_10); LOCFOR(fun_from_11); LOCFOR(fun_below_12); LOCFOR(fun_col_res_type_13); LOCFOR(fun_Pdat_14); LOCFOR(fun_Pval_15); LOCFOR(fun_Pval_setter_16); LOCFOR(fun_Pkey_17); LOCFOR(fun_Pkey_setter_18); LOCFOR(fun_enum_19); LOCFOR(fun_finQ_20); LOCFOR(fun_nxt_21); LOCFOR(fun_now_22); LOCFOR(fun_now_key_23); extern P YgooScolsSrangeY___main_0___ (); extern P YgooScolsSrangeY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_range_from_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYrange_from)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_range_inQ_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYrange_inQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(VARREF(YgooSmagYL)); } LOCCODEDEF(fun_range_lim_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYrange_lim)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_range_nxt_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYrange_nxt)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_7) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(VARREF(YgooSmathY1A)); } LOCCODEDEF(fun_fab_8) { P c_,s_; P T0; LINK_STACK(); ARG(c_, 0); ARG(s_, 1); T0 = CALL4(1,VARREF(YgooScolsSrangeYrange),YPint((P)0),VARREF(YgooSmagYL),s_,VARREF(YgooSmathY1A)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_range_9) { P from_,inQ_,lim_; P T0; LINK_STACK(); ARG(from_, 0); ARG(inQ_, 1); ARG(lim_, 2); T0 = CALLN(1,VARREF(Ynew),7,VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_from),from_,VARREF(YgooScolsSrangeYrange_inQ),inQ_,VARREF(YgooScolsSrangeYrange_lim),lim_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_range_by_10) { P from_,inQ_,lim_,nxt_; P T0; LINK_STACK(); ARG(from_, 0); ARG(inQ_, 1); ARG(lim_, 2); ARG(nxt_, 3); T0 = CALLN(1,VARREF(Ynew),9,VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_from),from_,VARREF(YgooScolsSrangeYrange_inQ),inQ_,VARREF(YgooScolsSrangeYrange_lim),lim_,VARREF(YgooScolsSrangeYrange_nxt),nxt_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_from_11) { P from_; P T0,T1; LINK_STACK(); ARG(from_, 0); T1 = CALL1(1,VARREF(YgooSfunctionalYalways),YPtrue); T0 = CALL5(1,VARREF(Ynew),VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_from),from_,VARREF(YgooScolsSrangeYrange_inQ),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_below_12) { P lim_; P T0; LINK_STACK(); ARG(lim_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_lim),lim_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_col_res_type_13) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLlstG)); } LOCCODEDEF(fun_Pdat_14) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pval_15) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYPval)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pval_setter_16) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSrangeYPval)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_17) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSrangeYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pkey_setter_18) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSrangeYPkey)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_enum_19) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooScolsSrangeYrange_from),x_); T0 = CALLN(1,VARREF(Ynew),7,VARREF(YgooScolsSrangeYLrange_enumG),VARREF(YgooScolsSrangeYPdat),x_,VARREF(YgooScolsSrangeYPval),T1,VARREF(YgooScolsSrangeYPkey),YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_20) { P e_; P cF3682; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(e_, 0); T5 = CALL1(1,VARREF(YgooScolsSrangeYPdat),e_); cF3682 = T5; T4 = CALL1(1,VARREF(YgooScolsSrangeYrange_inQ),cF3682); T2 = CALL1(1,VARREF(YgooScolsSrangeYPval),e_); T3 = CALL1(1,VARREF(YgooScolsSrangeYrange_lim),cF3682); T1 = CALL2(1,T4,T2,T3); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nxt_21) { P e_; P x_1434F3683; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(e_, 0); x_1434F3683 = e_; T3 = CALL1(1,VARREF(YgooScolsSrangeYPdat),e_); T2 = CALL1(1,VARREF(YgooScolsSrangeYrange_nxt),T3); T1 = CALL1(1,VARREF(YgooScolsSrangeYPval),e_); T0 = CALL1(1,T2,T1); CALL2(1,VARREF(YgooScolsSrangeYPval_setter),T0,x_1434F3683); T5 = CALL1(1,VARREF(YgooScolsSrangeYPkey),e_); T4 = CALL2(1,VARREF(YgooSmathYA),T5,YPint((P)1)); CALL2(1,VARREF(YgooScolsSrangeYPkey_setter),T4,x_1434F3683); UNLINK_STACK(); RET(x_1434F3683); } LOCCODEDEF(fun_now_22) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL1(1,VARREF(YgooScolsSrangeYPval),e_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_now_key_23) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL1(1,VARREF(YgooScolsSrangeYPkey),e_); UNLINK_STACK(); RET(T0); } P YgooScolsSrangeY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsSrangeYLrangeG,T0); lit_1 = YPPsym((P)"range"); lit_2 = YPPlist(3,YPPsym((P)"from"),YPPsym((P)"done?"),YPPsym((P)"lim")); T3 = YPfab_sig(YPPlist(3,VARREF(YLnumG),VARREF(YLfunG),VARREF(YLnumG)),YPfalse,YPint((P)3),VARREF(YgooScolsSrangeYLrangeG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooScolsSrangeYrange,T2); lit_3 = YPPsym((P)"range-by"); lit_4 = YPPlist(4,YPPsym((P)"from"),YPPsym((P)"done?"),YPPsym((P)"lim"),YPPsym((P)"nxt")); T5 = YPfab_sig(YPPlist(4,VARREF(YLnumG),VARREF(YLfunG),VARREF(YLnumG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YgooScolsSrangeYLrangeG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_3),LITREF(lit_4),YPfalse); VARSET(YgooScolsSrangeYrange_by,T4); lit_5 = YPPsym((P)"from"); lit_6 = YPPlist(1,YPPsym((P)"from")); T7 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSrangeYLrangeG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_5),LITREF(lit_6),YPfalse); VARSET(YgooScolsSrangeYfrom,T6); lit_7 = YPPsym((P)"below"); lit_8 = YPPlist(1,YPPsym((P)"from")); T9 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSrangeYLrangeG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_7),LITREF(lit_8),YPfalse); VARSET(YgooScolsSseqYbelow,T8); lit_9 = YPPsym((P)"range-from"); lit_10 = YPPlist(1,YPPsym((P)"_x")); T10 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrangeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_range_from_0 = YPfab_met(FUNCODEREF(fun_range_from_0),T10,LITREF(lit_9),LITREF(lit_10),sloc(30),YPfalse); T12 = VARREF_OR(YgooScolsSrangeYrange_from,YPfalse); T13 = fun_range_from_0; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooScolsSrangeYrange_from,T11); lit_11 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T14,YPfalse,LITREF(lit_11),sloc(30),YPfalse); T15 = fun_1; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_from),YPfalse,VARREF(YLnumG),T15); lit_12 = YPPsym((P)"range-in?"); lit_13 = YPPlist(1,YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrangeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_range_inQ_2 = YPfab_met(FUNCODEREF(fun_range_inQ_2),T16,LITREF(lit_12),LITREF(lit_13),sloc(31),YPfalse); T18 = VARREF_OR(YgooScolsSrangeYrange_inQ,YPfalse); T19 = fun_range_inQ_2; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsSrangeYrange_inQ,T17); lit_14 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T20,YPfalse,LITREF(lit_14),sloc(31),YPfalse); T21 = fun_3; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_inQ),YPfalse,VARREF(YLfunG),T21); lit_15 = YPPsym((P)"range-lim"); lit_16 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrangeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_range_lim_4 = YPfab_met(FUNCODEREF(fun_range_lim_4),T22,LITREF(lit_15),LITREF(lit_16),sloc(32),YPfalse); T24 = VARREF_OR(YgooScolsSrangeYrange_lim,YPfalse); T25 = fun_range_lim_4; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooScolsSrangeYrange_lim,T23); lit_17 = YPPlist(1,YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T26,YPfalse,LITREF(lit_17),sloc(32),YPfalse); T27 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLnumG)); T28 = fun_5; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_lim),YPfalse,T27,T28); lit_18 = YPPsym((P)"range-nxt"); lit_19 = YPPlist(1,YPPsym((P)"_x")); T29 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrangeG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_range_nxt_6 = YPfab_met(FUNCODEREF(fun_range_nxt_6),T29,LITREF(lit_18),LITREF(lit_19),sloc(33),YPfalse); T31 = VARREF_OR(YgooScolsSrangeYrange_nxt,YPfalse); T32 = fun_range_nxt_6; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsSrangeYrange_nxt,T30); lit_20 = YPPlist(1,YPPsym((P)"_x")); T33 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_7 = YPfab_met(FUNCODEREF(fun_7),T33,YPfalse,LITREF(lit_20),sloc(33),YPfalse); T34 = fun_7; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrangeG),VARREF(YgooScolsSrangeYrange_nxt),YPfalse,VARREF(YLfunG),T34); lit_21 = YPPsym((P)"fab"); lit_22 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"s")); T36 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooScolsSrangeYLrangeG)); T35 = YPfab_sig(YPPlist(2,T36,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YgooScolsSrangeYLrangeG),Ynil); fun_fab_8 = YPfab_met(FUNCODEREF(fun_fab_8),T35,LITREF(lit_21),LITREF(lit_22),sloc(35),YPfalse); T38 = VARREF_OR(YgooScolsScolYfab,YPfalse); T39 = fun_fab_8; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsScolYfab,T37); lit_23 = YPPlist(3,YPPsym((P)"from"),YPPsym((P)"in?"),YPPsym((P)"lim")); T40 = YPfab_sig(YPPlist(3,VARREF(YLnumG),VARREF(YLfunG),VARREF(YLnumG)),YPfalse,YPint((P)3),VARREF(YgooScolsSrangeYLrangeG),Ynil); fun_range_9 = YPfab_met(FUNCODEREF(fun_range_9),T40,LITREF(lit_1),LITREF(lit_23),sloc(38),YPfalse); T42 = VARREF_OR(YgooScolsSrangeYrange,YPfalse); T43 = fun_range_9; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsSrangeYrange,T41); lit_24 = YPPlist(4,YPPsym((P)"from"),YPPsym((P)"in?"),YPPsym((P)"lim"),YPPsym((P)"nxt")); T44 = YPfab_sig(YPPlist(4,VARREF(YLnumG),VARREF(YLfunG),VARREF(YLnumG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YgooScolsSrangeYLrangeG),Ynil); fun_range_by_10 = YPfab_met(FUNCODEREF(fun_range_by_10),T44,LITREF(lit_3),LITREF(lit_24),sloc(41),YPfalse); T46 = VARREF_OR(YgooScolsSrangeYrange_by,YPfalse); T47 = fun_range_by_10; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsSrangeYrange_by,T45); lit_25 = YPPlist(1,YPPsym((P)"from")); T48 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSrangeYLrangeG),Ynil); fun_from_11 = YPfab_met(FUNCODEREF(fun_from_11),T48,LITREF(lit_5),LITREF(lit_25),sloc(44),YPfalse); T50 = VARREF_OR(YgooScolsSrangeYfrom,YPfalse); T51 = fun_from_11; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooScolsSrangeYfrom,T49); lit_26 = YPPlist(1,YPPsym((P)"lim")); T52 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSrangeYLrangeG),Ynil); fun_below_12 = YPfab_met(FUNCODEREF(fun_below_12),T52,LITREF(lit_7),LITREF(lit_26),sloc(47),YPfalse); T54 = VARREF_OR(YgooScolsSseqYbelow,YPfalse); T55 = fun_below_12; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooScolsSseqYbelow,T53); lit_27 = YPPsym((P)"col-res-type"); lit_28 = YPPlist(1,YPPsym((P)"x")); T56 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrangeG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_col_res_type_13 = YPfab_met(FUNCODEREF(fun_col_res_type_13),T56,LITREF(lit_27),LITREF(lit_28),sloc(50),YPfalse); T58 = VARREF_OR(YgooScolsScolYcol_res_type,YPfalse); T59 = fun_col_res_type_13; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YgooScolsScolYcol_res_type,T57); lit_29 = YPPsym((P)""); T61 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T60 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_29),T61); VARSET(YgooScolsSrangeYLrange_enumG,T60); lit_30 = YPPsym((P)"%dat"); lit_31 = YPPlist(1,YPPsym((P)"_x")); T62 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdat_14 = YPfab_met(FUNCODEREF(fun_Pdat_14),T62,LITREF(lit_30),LITREF(lit_31),sloc(54),YPfalse); T64 = VARREF_OR(YgooScolsSrangeYPdat,YPfalse); T65 = fun_Pdat_14; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooScolsSrangeYPdat,T63); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrange_enumG),VARREF(YgooScolsSrangeYPdat),YPfalse,VARREF(YgooScolsSrangeYLrangeG),VARREF(YPprop_unbound_error)); lit_32 = YPPsym((P)"%val"); lit_33 = YPPlist(1,YPPsym((P)"_x")); T66 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pval_15 = YPfab_met(FUNCODEREF(fun_Pval_15),T66,LITREF(lit_32),LITREF(lit_33),sloc(55),YPfalse); T68 = VARREF_OR(YgooScolsSrangeYPval,YPfalse); T69 = fun_Pval_15; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooScolsSrangeYPval,T67); lit_34 = YPPsym((P)"%val-setter"); lit_35 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T70 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pval_setter_16 = YPfab_met(FUNCODEREF(fun_Pval_setter_16),T70,LITREF(lit_34),LITREF(lit_35),sloc(55),YPfalse); T72 = VARREF_OR(YgooScolsSrangeYPval_setter,YPfalse); T73 = fun_Pval_setter_16; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooScolsSrangeYPval_setter,T71); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrange_enumG),VARREF(YgooScolsSrangeYPval),VARREF(YgooScolsSrangeYPval_setter),VARREF(YLnumG),VARREF(YPprop_unbound_error)); lit_36 = YPPsym((P)"%key"); lit_37 = YPPlist(1,YPPsym((P)"_x")); T74 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pkey_17 = YPfab_met(FUNCODEREF(fun_Pkey_17),T74,LITREF(lit_36),LITREF(lit_37),sloc(56),YPfalse); T76 = VARREF_OR(YgooScolsSrangeYPkey,YPfalse); T77 = fun_Pkey_17; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooScolsSrangeYPkey,T75); lit_38 = YPPsym((P)"%key-setter"); lit_39 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T80 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T79 = fun_Pkey_setter_18 = YPfab_met(FUNCODEREF(fun_Pkey_setter_18),T80,LITREF(lit_38),LITREF(lit_39),sloc(56),YPfalse); T83 = VARREF_OR(YgooScolsSrangeYPkey_setter,YPfalse); T84 = fun_Pkey_setter_18; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); T81 = VARSET(YgooScolsSrangeYPkey_setter,T82); T78 = T81; return T78; } P YgooScolsSrangeY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; DEFCREGS(); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSrangeYLrange_enumG),VARREF(YgooScolsSrangeYPkey),VARREF(YgooScolsSrangeYPkey_setter),VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_40 = YPPsym((P)"enum"); lit_41 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrangeG)),YPfalse,YPint((P)1),VARREF(YgooScolsSrangeYLrange_enumG),Ynil); fun_enum_19 = YPfab_met(FUNCODEREF(fun_enum_19),T0,LITREF(lit_40),LITREF(lit_41),sloc(58),YPfalse); T2 = VARREF_OR(YgooScolsScolYenum,YPfalse); T3 = fun_enum_19; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooScolsScolYenum,T1); lit_42 = YPPsym((P)"fin?"); lit_43 = YPPlist(1,YPPsym((P)"e")); T4 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_20 = YPfab_met(FUNCODEREF(fun_finQ_20),T4,LITREF(lit_42),LITREF(lit_43),sloc(61),YPfalse); T6 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T7 = fun_finQ_20; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsScolYfinQ,T5); lit_44 = YPPsym((P)"nxt"); lit_45 = YPPlist(1,YPPsym((P)"e")); T8 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSrangeYLrange_enumG),Ynil); fun_nxt_21 = YPfab_met(FUNCODEREF(fun_nxt_21),T8,LITREF(lit_44),LITREF(lit_45),sloc(65),YPfalse); T10 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T11 = fun_nxt_21; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsScolYnxt,T9); lit_46 = YPPsym((P)"now"); lit_47 = YPPlist(1,YPPsym((P)"e")); T12 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YLnumG),Ynil); fun_now_22 = YPfab_met(FUNCODEREF(fun_now_22),T12,LITREF(lit_46),LITREF(lit_47),sloc(68),YPfalse); T14 = VARREF_OR(YgooScolsScolYnow,YPfalse); T15 = fun_now_22; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsScolYnow,T13); lit_48 = YPPsym((P)"now-key"); lit_49 = YPPlist(1,YPPsym((P)"e")); T18 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSrangeYLrange_enumG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T17 = fun_now_key_23 = YPfab_met(FUNCODEREF(fun_now_key_23),T18,LITREF(lit_48),LITREF(lit_49),sloc(71),YPfalse); T21 = VARREF_OR(YgooScolsScolYnow_key,YPfalse); T22 = fun_now_key_23; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); T19 = VARSET(YgooScolsScolYnow_key,T20); T16 = T19; return T16; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSfunctional}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"zipped", &module_info_gooSfunctional, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"%key", CVAR, &YgooScolsSrangeYPkey}, {"", CVAR, &YgooScolsSrangeYLrangeG}, {"%key-setter", CVAR, &YgooScolsSrangeYPkey_setter}, {"range", CVAR, &YgooScolsSrangeYrange}, {"range-lim", CVAR, &YgooScolsSrangeYrange_lim}, {"---main-1---", PVAR, NULL}, {"%val-setter", CVAR, &YgooScolsSrangeYPval_setter}, {"range-in?", CVAR, &YgooScolsSrangeYrange_inQ}, {"range-nxt", CVAR, &YgooScolsSrangeYrange_nxt}, {"range-from", CVAR, &YgooScolsSrangeYrange_from}, {"", CVAR, &YgooScolsSrangeYLrange_enumG}, {"%dat", CVAR, &YgooScolsSrangeYPdat}, {"%val", CVAR, &YgooScolsSrangeYPval}, {"---main-0---", PVAR, NULL}, {"from", CVAR, &YgooScolsSrangeYfrom}, {"range-by", CVAR, &YgooScolsSrangeYrange_by}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"range", NULL}, {"from", NULL}, {"below", NULL}, {"range-by", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSrange; MODULE_INFO module_info_gooScolsSrange = { "goo/cols/range", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSfunctional (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooScolsSrange (void); void load_module_gooScolsSrange (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSfunctional(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsSseq(); (P)YgooScolsSrangeY___main_0___(); (P)YgooScolsSrangeY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/rep.c0100644000175000017500000017475107756744560015327 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/rep"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/rep */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); DEF(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); DEF(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); DEF(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); DEF(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); DEF(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); DEF(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); DEF(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_8); DEFLIT(lit_15); DEFLIT(lit_1); DEFLIT(lit_11); DEFLIT(lit_3); DEFLIT(lit_7); DEFLIT(lit_5); DEFLIT(lit_0); DEFLIT(lit_10); DEFLIT(lit_12); DEFLIT(lit_14); DEFLIT(lit_9); DEFLIT(lit_13); DEFLIT(lit_6); DEFLIT(lit_2); DEFLIT(lit_4); /* FUNCTIONS: */ FUNFOR(YgooScolsSrepYrep_nul); FUNFOR(YgooScolsSrepYrep_len); FUNFOR(YgooScolsSrepYrep_fillX); LOCFOR(fun_rep_intoX_3); LOCFOR(fun_rep_intoX_4); FUNFOR(YgooScolsSrepYrep_fab); FUNFOR(YgooScolsSrepYrep_elt); FUNFOR(YgooScolsSrepYrep_elt_setter); extern P YgooScolsSrepY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooScolsSrepYrep_nul) { LINK_STACK(); UNLINK_STACK(); QRET(VARREF(YPrnul)); } FUNCODEDEF(YgooScolsSrepYrep_len) { P x_; P tF3290; P xF3289; P xF3288; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPrlen(x_); xF3288 = T2; xF3289 = xF3288; tF3290 = (P)1; T1 = (P)YPiLL(xF3289,(P)2); T0 = (P)YPiv(T1,tF3290); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooScolsSrepYrep_fillX) { P x_,val_; P iF3292; P sF3291; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(val_, 1); T4 = CALL1(1,VARREF(YgooScolsSrepYrep_len),x_); sF3291 = T4; iF3292 = YPint((P)0); LOOP_112: { P a112_0; T1 = CALL2(1,VARREF(YgooSmagYL),iF3292,sF3291); if (T1 != YPfalse) { CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),val_,x_,iF3292); T3 = CALL2(1,VARREF(YgooSmathYA),iF3292,YPint((P)1)); a112_0 = T3; iF3292 = a112_0; goto LOOP_112; T0 = T2; } else { T0 = YPfalse; } } UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_rep_intoX_3) { P d_,s_; P iF3294; P lF3293; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(d_, 0); ARG(s_, 1); T6 = CALL1(1,VARREF(YgooScolsSrepYrep_len),d_); T7 = CALL1(1,VARREF(YgooScolsSrepYrep_len),s_); T5 = CALL2(1,VARREF(YgooSmagYmin),T6,T7); lF3293 = T5; iF3294 = YPint((P)0); LOOP_113: { P a113_0; T1 = CALL2(1,VARREF(YgooSmagYL),iF3294,lF3293); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),s_,iF3294); CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),T2,d_,iF3294); T4 = CALL2(1,VARREF(YgooSmathYA),iF3294,YPint((P)1)); a113_0 = T4; iF3294 = a113_0; goto LOOP_113; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); RET(d_); } LOCCODEDEF(fun_rep_intoX_4) { P d_,s_; P eF3297; P iF3296; P lF3295; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(d_, 0); ARG(s_, 1); T8 = CALL1(1,VARREF(YgooScolsSrepYrep_len),d_); T9 = CALL1(1,VARREF(YgooStypesYlen),s_); T7 = CALL2(1,VARREF(YgooSmagYmin),T8,T9); lF3295 = T7; iF3296 = YPint((P)0); T6 = CALL1(1,VARREF(YgooScolsScolYenum),s_); eF3297 = T6; LOOP_114: { P a114_0,a114_1; T1 = CALL2(1,VARREF(YgooSmagYL),iF3296,lF3295); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooScolsScolYnow),eF3297); CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),T2,d_,iF3296); T4 = CALL2(1,VARREF(YgooSmathYA),iF3296,YPint((P)1)); T5 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3297); a114_0 = T4; a114_1 = T5; iF3296 = a114_0; eF3297 = a114_1; goto LOOP_114; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); RET(d_); } FUNCODEDEF(YgooScolsSrepYrep_fab) { P s_,fill_; P xF3299; P xF3298; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(fill_, 1); xF3298 = s_; xF3299 = xF3298; T1 = (P)YPiGG(xF3299,(P)2); T0 = (P)YPrep(T1,fill_); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooScolsSrepYrep_elt) { P x_,i_; P xF3301; P xF3300; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); xF3300 = i_; xF3301 = xF3300; T1 = (P)YPiGG(xF3301,(P)2); T0 = (P)YPrelt(x_,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooScolsSrepYrep_elt_setter) { P z_,x_,i_; P xF3303; P xF3302; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); ARG(i_, 2); xF3302 = i_; xF3303 = xF3302; T1 = (P)YPiGG(xF3303,(P)2); T0 = (P)YPrelt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } P YgooScolsSrepY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; DEFCREGS(); lit_0 = YPPsym((P)"rep-into!"); lit_1 = YPPlist(2,YPPsym((P)"d"),YPPsym((P)"s")); T1 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLrepG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooScolsSrepYrep_intoX,T0); lit_2 = YPPsym((P)"rep-nul"); lit_3 = Ynil; T2 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YgooScolsSrepYrep_nul = YPfab_met_inlineable(FUNCODEREF(YgooScolsSrepYrep_nul),T2,LITREF(lit_2),LITREF(lit_3),sloc(32),YPfalse); T3 = YgooScolsSrepYrep_nul; VARSET(YgooScolsSrepYrep_nul,T3); lit_4 = YPPsym((P)"rep-len"); lit_5 = YPPlist(1,YPPsym((P)"x")); T4 = YPfab_sig(YPPlist(1,VARREF(YLrepG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); YgooScolsSrepYrep_len = YPfab_met_inlineable(FUNCODEREF(YgooScolsSrepYrep_len),T4,LITREF(lit_4),LITREF(lit_5),sloc(34),YPfalse); T5 = YgooScolsSrepYrep_len; VARSET(YgooScolsSrepYrep_len,T5); lit_6 = YPPsym((P)"rep-fill!"); lit_7 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"val")); T6 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLrepG),Ynil); YgooScolsSrepYrep_fillX = YPfab_met(FUNCODEREF(YgooScolsSrepYrep_fillX),T6,LITREF(lit_6),LITREF(lit_7),sloc(37),YPfalse); T7 = YgooScolsSrepYrep_fillX; VARSET(YgooScolsSrepYrep_fillX,T7); lit_8 = YPPlist(2,YPPsym((P)"d"),YPPsym((P)"s")); T8 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YLrepG)),YPfalse,YPint((P)2),VARREF(YLrepG),Ynil); fun_rep_intoX_3 = YPfab_met(FUNCODEREF(fun_rep_intoX_3),T8,LITREF(lit_0),LITREF(lit_8),sloc(45),YPfalse); T10 = VARREF_OR(YgooScolsSrepYrep_intoX,YPfalse); T11 = fun_rep_intoX_3; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsSrepYrep_intoX,T9); lit_9 = YPPlist(2,YPPsym((P)"d"),YPPsym((P)"s")); T12 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YLcolG)),YPfalse,YPint((P)2),VARREF(YLrepG),Ynil); fun_rep_intoX_4 = YPfab_met(FUNCODEREF(fun_rep_intoX_4),T12,LITREF(lit_0),LITREF(lit_9),sloc(53),YPfalse); T14 = VARREF_OR(YgooScolsSrepYrep_intoX,YPfalse); T15 = fun_rep_intoX_4; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsSrepYrep_intoX,T13); lit_10 = YPPsym((P)"rep-fab"); lit_11 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"fill")); T16 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLrepG),Ynil); YgooScolsSrepYrep_fab = YPfab_met_inlineable(FUNCODEREF(YgooScolsSrepYrep_fab),T16,LITREF(lit_10),LITREF(lit_11),sloc(61),YPfalse); T17 = YgooScolsSrepYrep_fab; VARSET(YgooScolsSrepYrep_fab,T17); lit_12 = YPPsym((P)"rep-elt"); lit_13 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T18 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooScolsSrepYrep_elt = YPfab_met_inlineable(FUNCODEREF(YgooScolsSrepYrep_elt),T18,LITREF(lit_12),LITREF(lit_13),sloc(64),YPfalse); T19 = YgooScolsSrepYrep_elt; VARSET(YgooScolsSrepYrep_elt,T19); lit_14 = YPPsym((P)"rep-elt-setter"); lit_15 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"x"),YPPsym((P)"i")); T22 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLrepG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T21 = YgooScolsSrepYrep_elt_setter = YPfab_met_inlineable(FUNCODEREF(YgooScolsSrepYrep_elt_setter),T22,LITREF(lit_14),LITREF(lit_15),sloc(67),YPfalse); T24 = YgooScolsSrepYrep_elt_setter; T23 = VARSET(YgooScolsSrepYrep_elt_setter,T24); T20 = T23; return T20; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSflat; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSflat}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"rep-elt", CVAR, &YgooScolsSrepYrep_elt}, {"rep-fill!", CVAR, &YgooScolsSrepYrep_fillX}, {"rep-len", CVAR, &YgooScolsSrepYrep_len}, {"rep-nul", CVAR, &YgooScolsSrepYrep_nul}, {"rep-elt-setter", CVAR, &YgooScolsSrepYrep_elt_setter}, {"rep-into!", CVAR, &YgooScolsSrepYrep_intoX}, {"---main-0---", PVAR, NULL}, {"rep-fab", CVAR, &YgooScolsSrepYrep_fab}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"rep-fill!", NULL}, {"rep-len", NULL}, {"rep-nul", NULL}, {"rep-elt-setter", NULL}, {"rep-into!", NULL}, {"rep-elt", NULL}, {"rep-fab", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSrep; MODULE_INFO module_info_gooScolsSrep = { "goo/cols/rep", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSflat (void); /* EXPRESSION: */ extern void load_module_gooScolsSrep (void); void load_module_gooScolsSrep (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsSseq(); load_module_gooScolsSflat(); (P)YgooScolsSrepY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/seq.c0100644000175000017500000035512307756744561015324 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/seq"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/seq */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); DEF(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); DEF(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); DEF(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); DEF(YgooScolsSseqYadd_new,"goo/cols/seq","add-new"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); DEF(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); DEF(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); DEF(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); DEF(YgooScolsSseqYOtQ,"goo/cols/seq","@t?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); DEF(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); DEF(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); DEF(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); DEF(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); DEF(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DEF(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); DEF(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); DEF(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); DEF(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); DEF(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); DEF(YgooScolsSseqYfinds,"goo/cols/seq","finds"); DEF(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); DEF(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); DEF(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); DEF(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); DEF(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); DEF(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); DEF(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); DEF(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); DEF(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); DEF(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); DEF(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); DEF(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_102); DEFLIT(lit_65); DEFLIT(lit_30); DEFLIT(lit_93); DEFLIT(lit_26); DEFLIT(lit_63); DEFLIT(lit_55); DEFLIT(lit_60); DEFLIT(lit_85); DEFLIT(lit_83); DEFLIT(lit_3); DEFLIT(lit_12); DEFLIT(lit_128); DEFLIT(lit_70); DEFLIT(lit_11); DEFLIT(lit_50); DEFLIT(lit_81); DEFLIT(lit_34); DEFLIT(lit_129); DEFLIT(lit_35); DEFLIT(lit_123); DEFLIT(lit_49); DEFLIT(lit_54); DEFLIT(lit_82); DEFLIT(lit_42); DEFLIT(lit_13); DEFLIT(lit_32); DEFLIT(lit_75); DEFLIT(lit_44); DEFLIT(lit_119); DEFLIT(lit_89); DEFLIT(lit_130); DEFLIT(lit_6); DEFLIT(lit_40); DEFLIT(lit_98); DEFLIT(lit_24); DEFLIT(lit_99); DEFLIT(lit_121); DEFLIT(lit_84); DEFLIT(lit_110); DEFLIT(lit_0); DEFLIT(lit_88); DEFLIT(lit_64); DEFLIT(lit_72); DEFLIT(lit_101); DEFLIT(lit_96); DEFLIT(lit_69); DEFLIT(lit_92); DEFLIT(lit_27); DEFLIT(lit_39); DEFLIT(lit_91); DEFLIT(lit_47); DEFLIT(lit_20); DEFLIT(lit_67); DEFLIT(lit_111); DEFLIT(lit_115); DEFLIT(lit_14); DEFLIT(lit_23); DEFLIT(lit_126); DEFLIT(lit_66); DEFLIT(lit_9); DEFLIT(lit_105); DEFLIT(lit_53); DEFLIT(lit_127); DEFLIT(lit_28); DEFLIT(lit_48); DEFLIT(lit_108); DEFLIT(lit_122); DEFLIT(lit_4); DEFLIT(lit_124); DEFLIT(lit_97); DEFLIT(lit_120); DEFLIT(lit_125); DEFLIT(lit_38); DEFLIT(lit_62); DEFLIT(lit_19); DEFLIT(lit_71); DEFLIT(lit_90); DEFLIT(lit_51); DEFLIT(lit_100); DEFLIT(lit_112); DEFLIT(lit_36); DEFLIT(lit_79); DEFLIT(lit_94); DEFLIT(lit_16); DEFLIT(lit_95); DEFLIT(lit_29); DEFLIT(lit_41); DEFLIT(lit_118); DEFLIT(lit_46); DEFLIT(lit_1); DEFLIT(lit_106); DEFLIT(lit_52); DEFLIT(lit_113); DEFLIT(lit_104); DEFLIT(lit_56); DEFLIT(lit_21); DEFLIT(lit_76); DEFLIT(lit_107); DEFLIT(lit_78); DEFLIT(lit_37); DEFLIT(lit_68); DEFLIT(lit_87); DEFLIT(lit_117); DEFLIT(lit_2); DEFLIT(lit_43); DEFLIT(lit_22); DEFLIT(lit_15); DEFLIT(lit_33); DEFLIT(lit_58); DEFLIT(lit_25); DEFLIT(lit_86); DEFLIT(lit_5); DEFLIT(lit_45); DEFLIT(lit_116); DEFLIT(lit_77); DEFLIT(lit_59); DEFLIT(lit_17); DEFLIT(lit_18); DEFLIT(lit_61); DEFLIT(lit_80); DEFLIT(lit_8); DEFLIT(lit_114); DEFLIT(lit_10); DEFLIT(lit_109); DEFLIT(lit_73); DEFLIT(lit_74); DEFLIT(lit_7); DEFLIT(lit_103); DEFLIT(lit_31); DEFLIT(lit_57); /* FUNCTIONS: */ FUNFOR(YgooScolsSseqYOtQ); LOCFOR(fun_key_type_1); LOCFOR(fun_1st_2); LOCFOR(fun_2nd_3); LOCFOR(fun_3rd_4); LOCFOR(fun_map_5); LOCFOR(fun_map_keyed_6); LOCFOR(fun_do2_7); LOCFOR(fun_do3_8); LOCFOR(fun_map2_9); LOCFOR(fun_any2Q_10); LOCFOR(fun_all2Q_11); LOCFOR(fun_E_12); LOCFOR(fun_last_13); LOCFOR(fun_14); LOCFOR(fun_pos_15); LOCFOR(fun_finds_16); LOCFOR(fun_rev_17); LOCFOR(fun_cat_18); LOCFOR(fun_cat2_19); LOCFOR(fun_sub_20); LOCFOR(fun_subT_21); LOCFOR(fun_push_22); LOCFOR(fun_pop_23); LOCFOR(fun_pick_24); LOCFOR(fun_25); LOCFOR(fun_reject_26); LOCFOR(fun_del_27); LOCFOR(fun_28); LOCFOR(fun_del_vals_29); LOCFOR(fun_30); LOCFOR(fun_del_dups_31); LOCFOR(fun_ins_32); LOCFOR(fun_elts_33); LOCFOR(fun_sort_34); LOCFOR(fun_sort_by_35); LOCFOR(fun_keys_36); FUNFOR(YgooScolsSseqYrange_check); FUNFOR(YgooScolsSseqYrange_checkQ); LOCFOR(fun_add_39); LOCFOR(fun_add_new_40); LOCFOR(fun_41); LOCFOR(fun_vals_to_str_42); LOCFOR(fun_do_key_vals_43); LOCFOR(fun_44); LOCFOR(fun_col_45); LOCFOR(fun_suffixQ_46); LOCFOR(fun_prefixQ_47); LOCFOR(fun_repeat_48); LOCFOR(fun_split_49); LOCFOR(fun_50); LOCFOR(fun_join_51); extern P YgooScolsSseqY___main_0___ (); extern P YgooScolsSseqY___main_1___ (); extern P YgooScolsSseqY___main_2___ (); /* C-FORMS: */ /* FUNCTION CODES: */ FUNCODEDEF(YgooScolsSseqYOtQ) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = CALL3(1,VARREF(Ynew),VARREF(YLsingletonG),VARREF(Ytype_object),YPfalse); T1 = CALL2(1,VARREF(YOlst),x_,T2); T0 = CALL3(1,VARREF(Ynew),VARREF(YLunionG),VARREF(Yunion_elts),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_key_type_1) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLintG)); } LOCCODEDEF(fun_1st_2) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_2nd_3) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3rd_4) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)2)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_map_5) { P f_,c_; P eF3134; P resF3133; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); resF3133 = Ynil; T9 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF3134 = T9; LOOP_73: { P a73_0,a73_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3134); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),resF3133); T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),c_,T3); T0 = T2; } else { T7 = CALL1(1,VARREF(YgooScolsScolYnow),eF3134); T6 = CALL1(1,f_,T7); T5 = CALL2(1,VARREF(YgooScolsScolYadd),resF3133,T6); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3134); a73_0 = T5; a73_1 = T8; resF3133 = a73_0; eF3134 = a73_1; goto LOOP_73; T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_map_keyed_6) { P f_,c_; P eF3136; P resF3135; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(f_, 0); ARG(c_, 1); resF3135 = Ynil; T10 = CALL1(1,VARREF(YgooScolsScolYenum),c_); eF3136 = T10; LOOP_74: { P a74_0,a74_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3136); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),resF3135); T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),c_,T3); T0 = T2; } else { T7 = CALL1(1,VARREF(YgooScolsScolYnow_key),eF3136); T8 = CALL1(1,VARREF(YgooScolsScolYnow),eF3136); T6 = CALL2(0,f_,T7,T8); T5 = CALL2(1,VARREF(YgooScolsScolYadd),resF3135,T6); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3136); a74_0 = T5; a74_1 = T9; resF3135 = a74_0; eF3136 = a74_1; goto LOOP_74; T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_do2_7) { P f_,x_,y_; P tmpF3139; P eyF3138; P exF3137; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); ARG(y_, 2); T10 = CALL1(1,VARREF(YgooScolsScolYenum),x_); exF3137 = T10; T11 = CALL1(1,VARREF(YgooScolsScolYenum),y_); eyF3138 = T11; LOOP_75: { P a75_0,a75_1; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),exF3137); tmpF3139 = T4; if (tmpF3139 != YPfalse) { T2 = tmpF3139; } else { T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),eyF3138); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),exF3137); T6 = CALL1(1,VARREF(YgooScolsScolYnow),eyF3138); CALL2(0,f_,T5,T6); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),exF3137); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),eyF3138); a75_0 = T8; a75_1 = T9; exF3137 = a75_0; eyF3138 = a75_1; goto LOOP_75; T0 = T7; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do3_8) { P f_,x_,y_,z_; P tmpF3144; P tmpF3143; P ezF3142; P eyF3141; P exF3140; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); ARG(y_, 2); ARG(z_, 3); T14 = CALL1(1,VARREF(YgooScolsScolYenum),x_); exF3140 = T14; T15 = CALL1(1,VARREF(YgooScolsScolYenum),y_); eyF3141 = T15; T16 = CALL1(1,VARREF(YgooScolsScolYenum),z_); ezF3142 = T16; LOOP_76: { P a76_0,a76_1,a76_2; T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),exF3140); tmpF3143 = T6; if (tmpF3143 != YPfalse) { T2 = tmpF3143; } else { T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),eyF3141); tmpF3144 = T5; if (tmpF3144 != YPfalse) { T3 = tmpF3144; } else { T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),ezF3142); T3 = T4; } T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnow),exF3140); T8 = CALL1(1,VARREF(YgooScolsScolYnow),eyF3141); T9 = CALL1(1,VARREF(YgooScolsScolYnow),ezF3142); CALL3(0,f_,T7,T8,T9); T11 = CALL1(1,VARREF(YgooScolsScolYnxt),exF3140); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),eyF3141); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),ezF3142); a76_0 = T11; a76_1 = T12; a76_2 = T13; exF3140 = a76_0; eyF3141 = a76_1; ezF3142 = a76_2; goto LOOP_76; T0 = T10; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_map2_9) { P f_,x_,y_; P tmpF3148; P eyF3147; P exF3146; P resF3145; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(f_, 0); ARG(x_, 1); ARG(y_, 2); resF3145 = Ynil; T13 = CALL1(1,VARREF(YgooScolsScolYenum),x_); exF3146 = T13; T14 = CALL1(1,VARREF(YgooScolsScolYenum),y_); eyF3147 = T14; LOOP_77: { P a77_0,a77_1,a77_2; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),exF3146); tmpF3148 = T3; if (tmpF3148 != YPfalse) { T1 = tmpF3148; } else { T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),eyF3147); T1 = T2; } if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmacrosYrevX),resF3145); T4 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T5); T0 = T4; } else { T9 = CALL1(1,VARREF(YgooScolsScolYnow),exF3146); T10 = CALL1(1,VARREF(YgooScolsScolYnow),eyF3147); T8 = CALL2(1,f_,T9,T10); T7 = CALL2(1,VARREF(YgooScolsScolYadd),resF3145,T8); T11 = CALL1(1,VARREF(YgooScolsScolYnxt),exF3146); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),eyF3147); a77_0 = T7; a77_1 = T11; a77_2 = T12; resF3145 = a77_0; exF3146 = a77_1; eyF3147 = a77_2; goto LOOP_77; T0 = T6; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_any2Q_10) { P test_,x_,y_; P tmpF3152; P tmpF3151; P eyF3150; P exF3149; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(test_, 0); ARG(x_, 1); ARG(y_, 2); T12 = CALL1(1,VARREF(YgooScolsScolYenum),x_); exF3149 = T12; T13 = CALL1(1,VARREF(YgooScolsScolYenum),y_); eyF3150 = T13; LOOP_78: { P a78_0,a78_1; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),exF3149); tmpF3151 = T3; if (tmpF3151 != YPfalse) { T1 = tmpF3151; } else { T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),eyF3150); T1 = T2; } if (T1 != YPfalse) { T0 = YPfalse; } else { T10 = CALL1(1,VARREF(YgooScolsScolYnow),exF3149); T11 = CALL1(1,VARREF(YgooScolsScolYnow),eyF3150); T9 = CALL2(0,test_,T10,T11); T8 = CALL1(1,VARREF(YgooSlogYas_log),T9); tmpF3152 = T8; if (tmpF3152 != YPfalse) { T4 = tmpF3152; } else { T6 = CALL1(1,VARREF(YgooScolsScolYnxt),exF3149); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),eyF3150); a78_0 = T6; a78_1 = T7; exF3149 = a78_0; eyF3150 = a78_1; goto LOOP_78; T4 = T5; } T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_all2Q_11) { P test_,x_,y_; P tmpF3156; P tmpF3155; P eyF3154; P exF3153; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(test_, 0); ARG(x_, 1); ARG(y_, 2); T11 = CALL1(1,VARREF(YgooScolsScolYenum),x_); exF3153 = T11; T12 = CALL1(1,VARREF(YgooScolsScolYenum),y_); eyF3154 = T12; LOOP_79: { P a79_0,a79_1; T10 = CALL1(1,VARREF(YgooScolsScolYfinQ),exF3153); tmpF3155 = T10; if (tmpF3155 != YPfalse) { T0 = tmpF3155; } else { T9 = CALL1(1,VARREF(YgooScolsScolYfinQ),eyF3154); tmpF3156 = T9; if (tmpF3156 != YPfalse) { T1 = tmpF3156; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),exF3153); T5 = CALL1(1,VARREF(YgooScolsScolYnow),eyF3154); T3 = CALL2(0,test_,T4,T5); if (T3 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnxt),exF3153); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),eyF3154); a79_0 = T7; a79_1 = T8; exF3153 = a79_0; eyF3154 = a79_1; goto LOOP_79; T2 = T6; } else { T2 = YPfalse; } T1 = T2; } T0 = T1; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_E_12) { P c1_,c2_; P e2F3158; P e1F3157; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(c1_, 0); ARG(c2_, 1); T10 = CALL1(1,VARREF(YgooScolsScolYenum),c1_); e1F3157 = T10; T11 = CALL1(1,VARREF(YgooScolsScolYenum),c2_); e2F3158 = T11; LOOP_80: { P a80_0,a80_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),e1F3157); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),e2F3158); T0 = T2; } else { T5 = CALL1(1,VARREF(YgooScolsScolYnow),e1F3157); T6 = CALL1(1,VARREF(YgooScolsScolYnow),e2F3158); T4 = CALL2(1,VARREF(YgooSlogYE),T5,T6); if (T4 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnxt),e1F3157); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),e2F3158); a80_0 = T8; a80_1 = T9; e1F3157 = a80_0; e2F3158 = a80_1; goto LOOP_80; T3 = T7; } else { T3 = YPfalse; } T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_last_13) { P x_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = CALL1(1,VARREF(YgooStypesYlen),x_); T1 = CALL2(1,VARREF(YgooSmathY_),T2,YPint((P)1)); T0 = CALL2(1,VARREF(YgooSmacrosYelt),x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_14) { P a_; P T0; LINK_STACK(); ARG(a_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYEE),FREEREF(0),a_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_pos_15) { P x_,v_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(v_, 1); T1 = FUNFAB(fun_14,1,v_); T0 = CALL3(1,VARREF(YgooScolsScolYfind_or),T1,x_,YPfalse); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finds_16) { P x_,y_; P yiF3161; P xiF3160; P xsiF3159; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); xsiF3159 = YPint((P)0); LOOP_81: { P a81_0; T4 = CALL1(1,VARREF(YgooStypesYlen),x_); T5 = CALL1(1,VARREF(YgooStypesYlen),y_); T3 = CALL2(1,VARREF(YgooSmathY_),T4,T5); T2 = CALL2(1,VARREF(YgooSmathYA),T3,YPint((P)1)); T1 = CALL2(1,VARREF(YgooSmagYL),xsiF3159,T2); if (T1 != YPfalse) { xiF3160 = xsiF3159; yiF3161 = YPint((P)0); LOOP_82: { P a82_0,a82_1; T9 = CALL1(1,VARREF(YgooStypesYlen),x_); T8 = CALL2(1,VARREF(YgooSmagYL),xiF3160,T9); if (T8 != YPfalse) { T11 = CALL1(1,VARREF(YgooStypesYlen),y_); T10 = CALL2(1,VARREF(YgooSmagYL),yiF3161,T11); T7 = T10; } else { T7 = YPfalse; } if (T7 != YPfalse) { T14 = CALL2(1,VARREF(YgooSmacrosYelt),x_,xiF3160); T15 = CALL2(1,VARREF(YgooSmacrosYelt),y_,yiF3161); T13 = CALL2(1,VARREF(YgooSmacrosYEE),T14,T15); if (T13 != YPfalse) { T17 = CALL2(1,VARREF(YgooSmathYA),xiF3160,YPint((P)1)); T18 = CALL2(1,VARREF(YgooSmathYA),yiF3161,YPint((P)1)); a82_0 = T17; a82_1 = T18; xiF3160 = a82_0; yiF3161 = a82_1; goto LOOP_82; T12 = T16; } else { T20 = CALL2(1,VARREF(YgooSmathYA),xsiF3159,YPint((P)1)); a81_0 = T20; xsiF3159 = a81_0; goto LOOP_81; T12 = T19; } T6 = T12; } else { T6 = xsiF3159; } } T0 = T6; } else { T0 = YPfalse; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_rev_17) { P x_; P eF3163; P seqF3162; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(x_, 0); seqF3162 = Ynil; T7 = CALL1(1,VARREF(YgooScolsScolYenum),x_); eF3163 = T7; LOOP_83: { P a83_0,a83_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3163); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,seqF3162); T0 = T2; } else { T5 = CALL1(1,VARREF(YgooScolsScolYnow),eF3163); T4 = CALL2(1,VARREF(YgooScolsScolYadd),seqF3162,T5); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3163); a83_0 = T4; a83_1 = T6; seqF3162 = a83_0; eF3163 = a83_1; goto LOOP_83; T0 = T3; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_cat_18) { P x_,ss_; P T0; LINK_STACK(); ARG(x_, 0); NARGS(ss_, 1); T0 = CALL3(1,VARREF(YgooScolsScolYfold),VARREF(YgooScolsSseqYcat2),x_,ss_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_cat2_19) { P x_,y_; P eyF3167; P seqF3166; P exF3165; P seqF3164; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); seqF3164 = Ynil; T15 = CALL1(1,VARREF(YgooScolsScolYenum),x_); exF3165 = T15; LOOP_84: { P a84_0,a84_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),exF3165); if (T1 != YPfalse) { seqF3166 = seqF3164; T10 = CALL1(1,VARREF(YgooScolsScolYenum),y_); eyF3167 = T10; LOOP_85: { P a85_0,a85_1; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),eyF3167); if (T3 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmacrosYrevX),seqF3166); T4 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T5); T2 = T4; } else { T8 = CALL1(1,VARREF(YgooScolsScolYnow),eyF3167); T7 = CALL2(1,VARREF(YgooScolsScolYadd),seqF3166,T8); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),eyF3167); a85_0 = T7; a85_1 = T9; seqF3166 = a85_0; eyF3167 = a85_1; goto LOOP_85; T2 = T6; } } T0 = T2; } else { T13 = CALL1(1,VARREF(YgooScolsScolYnow),exF3165); T12 = CALL2(1,VARREF(YgooScolsScolYadd),seqF3164,T13); T14 = CALL1(1,VARREF(YgooScolsScolYnxt),exF3165); a84_0 = T12; a84_1 = T14; seqF3164 = a84_0; exF3165 = a84_1; goto LOOP_84; T0 = T11; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sub_20) { P x_,from_,below_; P eF3170; P iF3169; P seqF3168; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(x_, 0); ARG(from_, 1); ARG(below_, 2); seqF3168 = Ynil; check_type(YPint((P)0),VARREF(YLintG)); iF3169 = YPint((P)0); T13 = CALL1(1,VARREF(YgooScolsScolYenum),x_); eF3170 = T13; LOOP_86: { P a86_0,a86_1,a86_2; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3170); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),seqF3168); T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T3); T0 = T2; } else { T7 = CALL2(1,VARREF(YgooSmagYGE),iF3169,from_); if (T7 != YPfalse) { T8 = CALL2(1,VARREF(YgooSmagYL),iF3169,below_); T6 = T8; } else { T6 = YPfalse; } if (T6 != YPfalse) { T10 = CALL1(1,VARREF(YgooScolsScolYnow),eF3170); T9 = CALL2(1,VARREF(YgooScolsScolYadd),seqF3168,T10); T5 = T9; } else { T5 = seqF3168; } T11 = CALL2(1,VARREF(YgooSmathYA),iF3169,YPint((P)1)); T12 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3170); a86_0 = T5; a86_1 = T11; a86_2 = T12; seqF3168 = a86_0; iF3169 = a86_1; eF3170 = a86_2; goto LOOP_86; T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subT_21) { P x_,from_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(from_, 1); T1 = CALL1(1,VARREF(YgooStypesYlen),x_); T0 = CALL3(1,VARREF(YgooScolsSseqYsub),x_,from_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_push_22) { P l_,x_; P T0; LINK_STACK(); ARG(l_, 0); ARG(x_, 1); T0 = CALL3(1,VARREF(YgooScolsSseqYins),l_,x_,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pop_23) { P l_; P T0,T1,T2,T3; LINK_STACK(); ARG(l_, 0); T2 = CALL1(1,VARREF(YgooStypesYlen),l_); T1 = CALL3(1,VARREF(YgooScolsSseqYsub),l_,YPint((P)1),T2); T3 = CALL2(1,VARREF(YgooSmacrosYelt),l_,YPint((P)0)); T0 = CALL2(1,VARREF(Ytup),T1,T3); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pick_24) { P test_,x_; P vF3173; P eF3172; P seqF3171; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(test_, 0); ARG(x_, 1); seqF3171 = Ynil; T10 = CALL1(1,VARREF(YgooScolsScolYenum),x_); eF3172 = T10; LOOP_87: { P a87_0,a87_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3172); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),seqF3171); T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T3); T0 = T2; } else { T9 = CALL1(1,VARREF(YgooScolsScolYnow),eF3172); vF3173 = T9; T6 = CALL1(1,test_,vF3173); if (T6 != YPfalse) { T7 = CALL2(1,VARREF(YgooScolsScolYadd),seqF3171,vF3173); T5 = T7; } else { T5 = seqF3171; } T8 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3172); a87_0 = T5; a87_1 = T8; seqF3171 = a87_0; eF3172 = a87_1; goto LOOP_87; T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_25) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(0,FREEREF(0),x_); T0 = CALL1(1,VARREF(Ynot),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reject_26) { P test_,x_; P T0,T1; LINK_STACK(); ARG(test_, 0); ARG(x_, 1); T1 = FUNFAB(fun_25,1,test_); T0 = CALL2(1,VARREF(YgooScolsSseqYpick),T1,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_del_27) { P x_,key_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(key_, 1); T1 = CALL3(1,VARREF(YgooScolsSseqYsub),x_,YPint((P)0),key_); T3 = CALL2(1,VARREF(YgooSmathYA),key_,YPint((P)1)); T4 = CALL1(1,VARREF(YgooStypesYlen),x_); T2 = CALL3(1,VARREF(YgooScolsSseqYsub),x_,T3,T4); T0 = CALL2(1,VARREF(YgooSmacrosYcat),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_28) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL2(1,VARREF(YgooSmacrosYEE),e_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_del_vals_29) { P s_,x_; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(x_, 1); T1 = FUNFAB(fun_28,1,x_); T0 = CALL2(1,VARREF(YgooScolsSseqYreject),T1,s_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_30) { P s_,e_; P T0,T1,T2; LINK_STACK(); ARG(s_, 0); ARG(e_, 1); T1 = CALL2(1,VARREF(YgooScolsScolYmemQ),s_,e_); if (T1 != YPfalse) { T0 = s_; } else { T2 = CALL2(1,VARREF(YgooSmacrosYpair),e_,s_); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_del_dups_31) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = fun_30; T2 = CALL3(1,VARREF(YgooScolsScolYfold),T3,Ynil,x_); T1 = CALL1(1,VARREF(YgooSmacrosYrevX),T2); T0 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_ins_32) { P x_,v_,before_; P eF3176; P iF3175; P rF3174; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(x_, 0); ARG(v_, 1); ARG(before_, 2); rF3174 = Ynil; iF3175 = YPint((P)0); T14 = CALL1(1,VARREF(YgooScolsScolYenum),x_); eF3176 = T14; LOOP_88: { P a88_0,a88_1,a88_2; T1 = CALL2(1,VARREF(YgooSlogYE),iF3175,before_); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmacrosYpair),v_,rF3174); T4 = CALL2(1,VARREF(YgooSmathYA),iF3175,YPint((P)1)); a88_0 = T3; a88_1 = T4; a88_2 = eF3176; rF3174 = a88_0; iF3175 = a88_1; eF3176 = a88_2; goto LOOP_88; T0 = T2; } else { T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3176); if (T6 != YPfalse) { T8 = CALL1(1,VARREF(YgooSmacrosYrevX),rF3174); T7 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T8); T5 = T7; } else { T11 = CALL1(1,VARREF(YgooScolsScolYnow),eF3176); T10 = CALL2(1,VARREF(YgooSmacrosYpair),T11,rF3174); T12 = CALL2(1,VARREF(YgooSmathYA),iF3175,YPint((P)1)); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3176); a88_0 = T10; a88_1 = T12; a88_2 = T13; rF3174 = a88_0; iF3175 = a88_1; eF3176 = a88_2; goto LOOP_88; T5 = T9; } T0 = T5; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elts_33) { P x_,keys_; P keyF3181; P keysF3180; P iF3179; P eF3178; P rF3177; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; LINK_STACK(); ARG(x_, 0); ARG(keys_, 1); rF3177 = Ynil; T24 = CALL1(1,VARREF(YgooScolsScolYenum),x_); eF3178 = T24; iF3179 = YPint((P)0); T26 = CALL1(1,VARREF(YgooScolsSseqYsort),keys_); T25 = CALL1(1,VARREF(YgooScolsScolYenum),T26); keysF3180 = T25; LOOP_89: { P a89_0,a89_1,a89_2,a89_3; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),keysF3180); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSmacrosYrevX),rF3177); T2 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,T3); T0 = T2; } else { T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3178); if (T5 != YPfalse) { T6 = CALL2(1,VARREF(Yrange_error),x_,iF3179); T4 = T6; } else { if (YPtrue != YPfalse) { T23 = CALL1(1,VARREF(YgooScolsScolYnow),keysF3180); keyF3181 = T23; T9 = CALL2(1,VARREF(YgooSlogYE),iF3179,keyF3181); if (T9 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsScolYnow),eF3178); T11 = CALL2(1,VARREF(YgooSmacrosYpair),T12,rF3177); T13 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3178); T14 = CALL2(1,VARREF(YgooSmathYA),iF3179,YPint((P)1)); T15 = CALL1(1,VARREF(YgooScolsScolYnxt),keysF3180); a89_0 = T11; a89_1 = T13; a89_2 = T14; a89_3 = T15; rF3177 = a89_0; eF3178 = a89_1; iF3179 = a89_2; keysF3180 = a89_3; goto LOOP_89; T8 = T10; } else { T17 = CALL2(1,VARREF(YisaQ),keyF3181,VARREF(YLintG)); if (T17 != YPfalse) { T19 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3178); T20 = CALL2(1,VARREF(YgooSmathYA),iF3179,YPint((P)1)); a89_0 = rF3177; a89_1 = T19; a89_2 = T20; a89_3 = keysF3180; rF3177 = a89_0; eF3178 = a89_1; iF3179 = a89_2; keysF3180 = a89_3; goto LOOP_89; T16 = T18; } else { if (YPtrue != YPfalse) { T22 = CALL2(1,VARREF(Yrange_error),x_,keyF3181); T21 = T22; } else { T21 = YPfalse; } T16 = T21; } T8 = T16; } T7 = T8; } else { T7 = YPfalse; } T4 = T7; } T0 = T4; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sort_34) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooScolsSseqYsort_by),x_,VARREF(YgooSmagYL)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sort_by_35) { P a_,test_; P T0,T1; LINK_STACK(); ARG(a_, 0); ARG(test_, 1); T1 = CALL1(1,VARREF(YgooScolsScolYdup),a_); T0 = CALL2(1,VARREF(YgooScolsSseqYsort_byX),T1,test_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_keys_36) { P d_; P T0,T1; LINK_STACK(); ARG(d_, 0); T1 = CALL1(1,VARREF(YgooStypesYlen),d_); T0 = CALL1(1,VARREF(YgooScolsSseqYbelow),T1); UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooScolsSseqYrange_check) { P x_,i_; P tmpF3182; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); T4 = CALL2(1,VARREF(YgooSmagYL),i_,YPint((P)0)); tmpF3182 = T4; if (tmpF3182 != YPfalse) { T1 = tmpF3182; } else { T3 = CALL1(1,VARREF(YgooStypesYlen),x_); T2 = CALL2(1,VARREF(YgooSmagYGE),i_,T3); T1 = T2; } if (T1 != YPfalse) { T5 = CALL2(1,VARREF(Yrange_error),x_,i_); T0 = T5; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooScolsSseqYrange_checkQ) { P x_,i_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); T1 = CALL2(1,VARREF(YgooSmagYGE),i_,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooStypesYlen),x_); T2 = CALL2(1,VARREF(YgooSmagYL),i_,T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_add_39) { P x_,e_; P T0; LINK_STACK(); ARG(x_, 0); ARG(e_, 1); T0 = CALL3(1,VARREF(YgooScolsSseqYins),x_,e_,YPint((P)0)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_add_new_40) { P c_,x_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T1 = CALL2(1,VARREF(YgooScolsScolYmemQ),c_,x_); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYadd),c_,x_); } else { } UNLINK_STACK(); RET(c_); } LOCCODEDEF(fun_41) { P s_,e_; P T0,T1,T2,T3; LINK_STACK(); ARG(s_, 0); ARG(e_, 1); T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),s_); if (T2 != YPfalse) { T1 = LITREF(lit_119); } else { T1 = LITREF(lit_120); } T3 = CALL1(1,VARREF(YgooSanyYto_str),e_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),s_,T1,T3); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_vals_to_str_42) { P s_; P T0,T1; LINK_STACK(); ARG(s_, 0); T1 = fun_41; T0 = CALL3(1,VARREF(YgooScolsScolYfold),T1,LITREF(lit_119),s_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_do_key_vals_43) { P fn_,key_vals_; P valF3186; P nxtsF3185; P keyF3184; P eF3183; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(fn_, 0); ARG(key_vals_, 1); T11 = CALL1(1,VARREF(YgooScolsScolYenum),key_vals_); eF3183 = T11; LOOP_90: { P a90_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3183); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YgooScolsScolYnow),eF3183); keyF3184 = T10; T9 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3183); nxtsF3185 = T9; T7 = CALL1(1,VARREF(YgooScolsScolYfinQ),eF3183); T6 = CALL1(1,VARREF(Ynot),T7); if (T6 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),eF3183); T5 = T8; } else { T5 = YPfalse; } valF3186 = T5; CALL2(1,fn_,keyF3184,valF3186); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),eF3183); a90_0 = T4; eF3183 = a90_0; goto LOOP_90; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_44) { P key_,val_; P T0; LINK_STACK(); ARG(key_, 0); ARG(val_, 1); T0 = CALL3(1,VARREF(YgooScolsScolYfab_elt_setter),val_,FREEREF(0),key_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_col_45) { P t_,key_vals_; P xF3187; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(t_, 0); NARGS(key_vals_, 1); T4 = CALL1(1,VARREF(YgooStypesYlen),key_vals_); T3 = CALL2(1,VARREF(YgooSmathYtruncS),T4,YPint((P)2)); T2 = CALL1(1,VARREF(YgooSmacrosY1st),T3); T1 = CALL2(1,VARREF(YgooScolsScolYfab),t_,T2); xF3187 = T1; T0 = FUNFAB(fun_44,1,xF3187); CALL2(1,VARREF(YgooScolsSseqYdo_key_vals),T0,key_vals_); UNLINK_STACK(); QRET(xF3187); } LOCCODEDEF(fun_suffixQ_46) { P s_,end_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(s_, 0); ARG(end_, 1); T3 = CALL1(1,VARREF(YgooStypesYlen),s_); T4 = CALL1(1,VARREF(YgooStypesYlen),end_); T2 = CALL2(1,VARREF(YgooSmathY_),T3,T4); T5 = CALL1(1,VARREF(YgooStypesYlen),s_); T1 = CALL3(1,VARREF(YgooScolsSseqYsub),s_,T2,T5); T0 = CALL2(1,VARREF(YgooSlogYE),T1,end_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_prefixQ_47) { P s_,begin_; P T0,T1,T2; LINK_STACK(); ARG(s_, 0); ARG(begin_, 1); T2 = CALL1(1,VARREF(YgooStypesYlen),begin_); T1 = CALL3(1,VARREF(YgooScolsSseqYsub),s_,YPint((P)0),T2); T0 = CALL2(1,VARREF(YgooSlogYE),T1,begin_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_repeat_48) { P s_,n_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(s_, 0); ARG(n_, 1); T1 = CALL2(1,VARREF(YgooSmagYLE),n_,YPint((P)0)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSclassYclass_of),s_); T2 = CALL1(1,VARREF(YgooScolsScolYnul),T3); T0 = T2; } else { T6 = CALL2(1,VARREF(YgooSmathY_),n_,YPint((P)1)); T5 = CALL2(1,VARREF(YgooScolsSseqYrepeat),s_,T6); T4 = CALL2(1,VARREF(YgooScolsSseqYcat2),s_,T5); T0 = T4; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_split_49) { P s_,sep_; P matchF3188; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(s_, 0); ARG(sep_, 1); T9 = CALL2(1,VARREF(YgooScolsSseqYpos),s_,sep_); matchF3188 = T9; T1 = CALL2(1,VARREF(YgooSmacrosYEE),matchF3188,YPfalse); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(Ylst),s_); T0 = T2; } else { T4 = CALL3(1,VARREF(YgooScolsSseqYsub),s_,YPint((P)0),matchF3188); T7 = CALL2(1,VARREF(YgooSmathYA),matchF3188,YPint((P)1)); T8 = CALL1(1,VARREF(YgooStypesYlen),s_); T6 = CALL3(1,VARREF(YgooScolsSseqYsub),s_,T7,T8); T5 = CALL2(1,VARREF(YgooScolsSseqYsplit),T6,sep_); T3 = CALL2(1,VARREF(YgooSmacrosYpair),T4,T5); T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_50) { P x_,y_; P T0; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T0 = CALL3(1,VARREF(YgooSmacrosYcat),x_,FREEREF(0),y_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_join_51) { P ss_,sep_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(ss_, 0); ARG(sep_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),ss_); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSclassYclass_of),sep_); T2 = CALL1(1,VARREF(YgooScolsScolYnul),T3); T0 = T2; } else { T5 = FUNFAB(fun_50,1,sep_); T6 = CALL2(1,VARREF(YgooSmacrosYelt),ss_,YPint((P)0)); T8 = CALL1(1,VARREF(YgooStypesYlen),ss_); T7 = CALL3(1,VARREF(YgooScolsSseqYsub),ss_,YPint((P)1),T8); T4 = CALL3(1,VARREF(YgooScolsScolYfold),T5,T6,T7); T0 = T4; } UNLINK_STACK(); RET(T0); } P YgooScolsSseqY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39; DEFCREGS(); lit_0 = YPPsym((P)"@t?"); lit_1 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLtypeG)),YPfalse,YPint((P)1),VARREF(YLunionG),Ynil); YgooScolsSseqYOtQ = YPfab_met(FUNCODEREF(YgooScolsSseqYOtQ),T0,LITREF(lit_0),LITREF(lit_1),sloc(15),YPfalse); T1 = YgooScolsSseqYOtQ; VARSET(YgooScolsSseqYOtQ,T1); lit_2 = YPPsym((P)"1st"); lit_3 = YPPlist(1,YPPsym((P)"x")); T3 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSmacrosY1st,T2); lit_4 = YPPsym((P)"2nd"); lit_5 = YPPlist(1,YPPsym((P)"x")); T5 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooSmacrosY2nd,T4); lit_6 = YPPsym((P)"3rd"); lit_7 = YPPlist(1,YPPsym((P)"x")); T7 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooScolsSseqY3rd,T6); lit_8 = YPPsym((P)"last"); lit_9 = YPPlist(1,YPPsym((P)"x")); T9 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooSmacrosYlast,T8); lit_10 = YPPsym((P)"pos"); lit_11 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"v")); T12 = XCALL1(1,VARREF(YgooScolsSseqYOtQ),VARREF(YLintG)); T11 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),T12,Ynil); T10 = YPfab_gen(T11,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooScolsSseqYpos,T10); lit_12 = YPPsym((P)"finds"); lit_13 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T15 = XCALL1(1,VARREF(YgooScolsSseqYOtQ),VARREF(YLintG)); T14 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),T15,Ynil); T13 = YPfab_gen(T14,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooScolsSseqYfinds,T13); lit_14 = YPPsym((P)"do2"); lit_15 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y")); T17 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_14),LITREF(lit_15),YPfalse); VARSET(YgooScolsSseqYdo2,T16); lit_16 = YPPsym((P)"do3"); lit_17 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y"),YPPsym((P)"z")); T19 = YPfab_sig(YPPlist(4,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); T18 = YPfab_gen(T19,LITREF(lit_16),LITREF(lit_17),YPfalse); VARSET(YgooScolsSseqYdo3,T18); lit_18 = YPPsym((P)"map2"); lit_19 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y")); T21 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLseqG),Ynil); T20 = YPfab_gen(T21,LITREF(lit_18),LITREF(lit_19),YPfalse); VARSET(YgooSmacrosYmap2,T20); lit_20 = YPPsym((P)"any2?"); lit_21 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"x"),YPPsym((P)"y")); T23 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); T22 = YPfab_gen(T23,LITREF(lit_20),LITREF(lit_21),YPfalse); VARSET(YgooScolsSseqYany2Q,T22); lit_22 = YPPsym((P)"all2?"); lit_23 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"x"),YPPsym((P)"y")); T25 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); T24 = YPfab_gen(T25,LITREF(lit_22),LITREF(lit_23),YPfalse); VARSET(YgooStypesYall2Q,T24); lit_24 = YPPsym((P)"rev"); lit_25 = YPPlist(1,YPPsym((P)"x")); T27 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); T26 = YPfab_gen(T27,LITREF(lit_24),LITREF(lit_25),YPfalse); VARSET(YgooScolsSseqYrev,T26); lit_26 = YPPsym((P)"cat"); lit_27 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"more")); T29 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPtrue,YPint((P)1),VARREF(YLseqG),Ynil); T28 = YPfab_gen(T29,LITREF(lit_26),LITREF(lit_27),YPfalse); VARSET(YgooSmacrosYcat,T28); lit_28 = YPPsym((P)"cat2"); lit_29 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T31 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T30 = YPfab_gen(T31,LITREF(lit_28),LITREF(lit_29),YPfalse); VARSET(YgooScolsSseqYcat2,T30); lit_30 = YPPsym((P)"push"); lit_31 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"x")); T33 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T32 = YPfab_gen(T33,LITREF(lit_30),LITREF(lit_31),YPfalse); VARSET(YgooScolsSseqYpush,T32); lit_32 = YPPsym((P)"pop"); lit_33 = YPPlist(1,YPPsym((P)"l")); T36 = XCALL2(1,VARREF(YtT),VARREF(YLseqG),VARREF(YLanyG)); T35 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),T36,Ynil); T34 = YPfab_gen(T35,LITREF(lit_32),LITREF(lit_33),YPfalse); VARSET(YgooScolsSseqYpop,T34); lit_34 = YPPsym((P)"sub"); lit_35 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"from"),YPPsym((P)"below")); T38 = YPfab_sig(YPPlist(3,VARREF(YLseqG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqG),Ynil); T37 = YPfab_gen(T38,LITREF(lit_34),LITREF(lit_35),YPfalse); VARSET(YgooScolsSseqYsub,T37); T39 = YPfalse; return T39; } P YgooScolsSseqY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99; DEFCREGS(); lit_36 = YPPsym((P)"sub*"); lit_37 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"from")); T1 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_36),LITREF(lit_37),YPfalse); VARSET(YgooScolsSseqYsubT,T0); lit_38 = YPPsym((P)"ins"); lit_39 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"e"),YPPsym((P)"before")); T3 = YPfab_sig(YPPlist(3,VARREF(YLseqG),VARREF(YLanyG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_38),LITREF(lit_39),YPfalse); VARSET(YgooScolsSseqYins,T2); lit_40 = YPPsym((P)"pick"); lit_41 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"x")); T5 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_40),LITREF(lit_41),YPfalse); VARSET(YgooScolsSseqYpick,T4); lit_42 = YPPsym((P)"reject"); lit_43 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"x")); T7 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_42),LITREF(lit_43),YPfalse); VARSET(YgooScolsSseqYreject,T6); lit_44 = YPPsym((P)"del-vals"); lit_45 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"v")); T9 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_44),LITREF(lit_45),YPfalse); VARSET(YgooScolsSseqYdel_vals,T8); lit_46 = YPPsym((P)"del-dups"); lit_47 = YPPlist(1,YPPsym((P)"x")); T11 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_46),LITREF(lit_47),YPfalse); VARSET(YgooScolsSseqYdel_dups,T10); lit_48 = YPPsym((P)"sort"); lit_49 = YPPlist(1,YPPsym((P)"x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); T12 = YPfab_gen(T13,LITREF(lit_48),LITREF(lit_49),YPfalse); VARSET(YgooScolsSseqYsort,T12); lit_50 = YPPsym((P)"sort-by"); lit_51 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"test")); T15 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T14 = YPfab_gen(T15,LITREF(lit_50),LITREF(lit_51),YPfalse); VARSET(YgooScolsSseqYsort_by,T14); lit_52 = YPPsym((P)"suffix?"); lit_53 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"suffix")); T17 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T16 = YPfab_gen(T17,LITREF(lit_52),LITREF(lit_53),YPfalse); VARSET(YgooScolsSseqYsuffixQ,T16); lit_54 = YPPsym((P)"prefix?"); lit_55 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"prefix")); T19 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); T18 = YPfab_gen(T19,LITREF(lit_54),LITREF(lit_55),YPfalse); VARSET(YgooScolsSseqYprefixQ,T18); lit_56 = YPPsym((P)"repeat"); lit_57 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"n")); T21 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T20 = YPfab_gen(T21,LITREF(lit_56),LITREF(lit_57),YPfalse); VARSET(YgooScolsSseqYrepeat,T20); lit_58 = YPPsym((P)"split"); lit_59 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"sep")); T23 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T22 = YPfab_gen(T23,LITREF(lit_58),LITREF(lit_59),YPfalse); VARSET(YgooScolsSseqYsplit,T22); lit_60 = YPPsym((P)"join"); lit_61 = YPPlist(2,YPPsym((P)"ss"),YPPsym((P)"sep")); T25 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); T24 = YPfab_gen(T25,LITREF(lit_60),LITREF(lit_61),YPfalse); VARSET(YgooScolsSseqYjoin,T24); lit_62 = YPPsym((P)"vals-to-str"); lit_63 = YPPlist(1,YPPsym((P)"s")); T27 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T26 = YPfab_gen(T27,LITREF(lit_62),LITREF(lit_63),YPfalse); VARSET(YgooScolsSseqYvals_to_str,T26); lit_64 = YPPsym((P)"do-key-vals"); lit_65 = YPPlist(2,YPPsym((P)"fn"),YPPsym((P)"key-vals")); T29 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T28 = YPfab_gen(T29,LITREF(lit_64),LITREF(lit_65),YPfalse); VARSET(YgooScolsSseqYdo_key_vals,T28); lit_66 = YPPsym((P)"key-type"); lit_67 = YPPlist(1,YPPsym((P)"x")); T30 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_key_type_1 = YPfab_met(FUNCODEREF(fun_key_type_1),T30,LITREF(lit_66),LITREF(lit_67),sloc(111),YPfalse); T32 = VARREF_OR(YgooScolsScolYkey_type,YPfalse); T33 = fun_key_type_1; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooScolsScolYkey_type,T31); lit_68 = YPPlist(1,YPPsym((P)"x")); T34 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1st_2 = YPfab_met(FUNCODEREF(fun_1st_2),T34,LITREF(lit_2),LITREF(lit_68),sloc(115),YPfalse); T36 = VARREF_OR(YgooSmacrosY1st,YPfalse); T37 = fun_1st_2; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooSmacrosY1st,T35); lit_69 = YPPlist(1,YPPsym((P)"x")); T38 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2nd_3 = YPfab_met(FUNCODEREF(fun_2nd_3),T38,LITREF(lit_4),LITREF(lit_69),sloc(117),YPfalse); T40 = VARREF_OR(YgooSmacrosY2nd,YPfalse); T41 = fun_2nd_3; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSmacrosY2nd,T39); lit_70 = YPPlist(1,YPPsym((P)"x")); T42 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3rd_4 = YPfab_met(FUNCODEREF(fun_3rd_4),T42,LITREF(lit_6),LITREF(lit_70),sloc(119),YPfalse); T44 = VARREF_OR(YgooScolsSseqY3rd,YPfalse); T45 = fun_3rd_4; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooScolsSseqY3rd,T43); lit_71 = YPPsym((P)"map"); lit_72 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T46 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_map_5 = YPfab_met(FUNCODEREF(fun_map_5),T46,LITREF(lit_71),LITREF(lit_72),sloc(121),YPfalse); T48 = VARREF_OR(YgooSmacrosYmap,YPfalse); T49 = fun_map_5; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSmacrosYmap,T47); lit_73 = YPPsym((P)"map-keyed"); lit_74 = YPPlist(2,YPPsym((P)"f"),YPPsym((P)"c")); T50 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_map_keyed_6 = YPfab_met(FUNCODEREF(fun_map_keyed_6),T50,LITREF(lit_73),LITREF(lit_74),sloc(127),YPfalse); T52 = VARREF_OR(YgooScolsScolYmap_keyed,YPfalse); T53 = fun_map_keyed_6; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooScolsScolYmap_keyed,T51); lit_75 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y")); T54 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_do2_7 = YPfab_met(FUNCODEREF(fun_do2_7),T54,LITREF(lit_14),LITREF(lit_75),sloc(133),YPfalse); T56 = VARREF_OR(YgooScolsSseqYdo2,YPfalse); T57 = fun_do2_7; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooScolsSseqYdo2,T55); lit_76 = YPPlist(4,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y"),YPPsym((P)"z")); T58 = YPfab_sig(YPPlist(4,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_do3_8 = YPfab_met(FUNCODEREF(fun_do3_8),T58,LITREF(lit_16),LITREF(lit_76),sloc(139),YPfalse); T60 = VARREF_OR(YgooScolsSseqYdo3,YPfalse); T61 = fun_do3_8; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooScolsSseqYdo3,T59); lit_77 = YPPlist(3,YPPsym((P)"f"),YPPsym((P)"x"),YPPsym((P)"y")); T62 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLseqG),Ynil); fun_map2_9 = YPfab_met(FUNCODEREF(fun_map2_9),T62,LITREF(lit_18),LITREF(lit_77),sloc(145),YPfalse); T64 = VARREF_OR(YgooSmacrosYmap2,YPfalse); T65 = fun_map2_9; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooSmacrosYmap2,T63); lit_78 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"x"),YPPsym((P)"y")); T66 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); fun_any2Q_10 = YPfab_met(FUNCODEREF(fun_any2Q_10),T66,LITREF(lit_20),LITREF(lit_78),sloc(152),YPfalse); T68 = VARREF_OR(YgooScolsSseqYany2Q,YPfalse); T69 = fun_any2Q_10; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooScolsSseqYany2Q,T67); lit_79 = YPPlist(3,YPPsym((P)"test"),YPPsym((P)"x"),YPPsym((P)"y")); T70 = YPfab_sig(YPPlist(3,VARREF(YLfunG),VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); fun_all2Q_11 = YPfab_met(FUNCODEREF(fun_all2Q_11),T70,LITREF(lit_22),LITREF(lit_79),sloc(159),YPfalse); T72 = VARREF_OR(YgooStypesYall2Q,YPfalse); T73 = fun_all2Q_11; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooStypesYall2Q,T71); lit_80 = YPPsym((P)"="); lit_81 = YPPlist(2,YPPsym((P)"c1"),YPPsym((P)"c2")); T74 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_E_12 = YPfab_met(FUNCODEREF(fun_E_12),T74,LITREF(lit_80),LITREF(lit_81),sloc(165),YPfalse); T76 = VARREF_OR(YgooSlogYE,YPfalse); T77 = fun_E_12; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooSlogYE,T75); lit_82 = YPPlist(1,YPPsym((P)"x")); T78 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_last_13 = YPfab_met(FUNCODEREF(fun_last_13),T78,LITREF(lit_8),LITREF(lit_82),sloc(173),YPfalse); T80 = VARREF_OR(YgooSmacrosYlast,YPfalse); T81 = fun_last_13; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YgooSmacrosYlast,T79); lit_83 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"v")); lit_84 = YPPlist(1,YPPsym((P)"a")); T84 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T84,YPfalse,LITREF(lit_84),sloc(176),YPfalse); T83 = XCALL1(1,VARREF(YgooScolsSseqYOtQ),VARREF(YLintG)); T82 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),T83,Ynil); fun_pos_15 = YPfab_met(FUNCODEREF(fun_pos_15),T82,LITREF(lit_10),LITREF(lit_83),sloc(175),YPfalse); T86 = VARREF_OR(YgooScolsSseqYpos,YPfalse); T87 = fun_pos_15; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YgooScolsSseqYpos,T85); lit_85 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T89 = XCALL1(1,VARREF(YgooScolsSseqYOtQ),VARREF(YLintG)); T88 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),T89,Ynil); fun_finds_16 = YPfab_met(FUNCODEREF(fun_finds_16),T88,LITREF(lit_12),LITREF(lit_85),sloc(178),YPfalse); T91 = VARREF_OR(YgooScolsSseqYfinds,YPfalse); T92 = fun_finds_16; T90 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T91,T92); VARSET(YgooScolsSseqYfinds,T90); lit_86 = YPPlist(1,YPPsym((P)"x")); T95 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); T94 = fun_rev_17 = YPfab_met(FUNCODEREF(fun_rev_17),T95,LITREF(lit_24),LITREF(lit_86),sloc(189),YPfalse); T98 = VARREF_OR(YgooScolsSseqYrev,YPfalse); T99 = fun_rev_17; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); T96 = VARSET(YgooScolsSseqYrev,T97); T93 = T96; return T93; } P YgooScolsSseqY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116; DEFCREGS(); lit_87 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"ss")); T0 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPtrue,YPint((P)1),VARREF(YLseqG),Ynil); fun_cat_18 = YPfab_met(FUNCODEREF(fun_cat_18),T0,LITREF(lit_26),LITREF(lit_87),sloc(197),YPfalse); T2 = VARREF_OR(YgooSmacrosYcat,YPfalse); T3 = fun_cat_18; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSmacrosYcat,T1); lit_88 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T4 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_cat2_19 = YPfab_met(FUNCODEREF(fun_cat2_19),T4,LITREF(lit_28),LITREF(lit_88),sloc(200),YPfalse); T6 = VARREF_OR(YgooScolsSseqYcat2,YPfalse); T7 = fun_cat2_19; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsSseqYcat2,T5); lit_89 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"from"),YPPsym((P)"below")); T8 = YPfab_sig(YPPlist(3,VARREF(YLseqG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqG),Ynil); fun_sub_20 = YPfab_met(FUNCODEREF(fun_sub_20),T8,LITREF(lit_34),LITREF(lit_89),sloc(209),YPfalse); T10 = VARREF_OR(YgooScolsSseqYsub,YPfalse); T11 = fun_sub_20; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsSseqYsub,T9); lit_90 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"from")); T12 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_subT_21 = YPfab_met(FUNCODEREF(fun_subT_21),T12,LITREF(lit_36),LITREF(lit_90),sloc(216),YPfalse); T14 = VARREF_OR(YgooScolsSseqYsubT,YPfalse); T15 = fun_subT_21; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsSseqYsubT,T13); lit_91 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_push_22 = YPfab_met(FUNCODEREF(fun_push_22),T16,LITREF(lit_30),LITREF(lit_91),sloc(219),YPfalse); T18 = VARREF_OR(YgooScolsSseqYpush,YPfalse); T19 = fun_push_22; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsSseqYpush,T17); lit_92 = YPPlist(1,YPPsym((P)"l")); T21 = XCALL2(1,VARREF(YtT),VARREF(YLseqG),VARREF(YLanyG)); T20 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),T21,Ynil); fun_pop_23 = YPfab_met(FUNCODEREF(fun_pop_23),T20,LITREF(lit_32),LITREF(lit_92),sloc(222),YPfalse); T23 = VARREF_OR(YgooScolsSseqYpop,YPfalse); T24 = fun_pop_23; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YgooScolsSseqYpop,T22); lit_93 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"x")); T25 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_pick_24 = YPfab_met(FUNCODEREF(fun_pick_24),T25,LITREF(lit_40),LITREF(lit_93),sloc(225),YPfalse); T27 = VARREF_OR(YgooScolsSseqYpick,YPfalse); T28 = fun_pick_24; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooScolsSseqYpick,T26); lit_94 = YPPlist(2,YPPsym((P)"test"),YPPsym((P)"x")); lit_95 = YPPlist(1,YPPsym((P)"x")); T30 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_25 = YPfab_met(FUNCODEREF(fun_25),T30,YPfalse,LITREF(lit_95),sloc(233),YPfalse); T29 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_reject_26 = YPfab_met(FUNCODEREF(fun_reject_26),T29,LITREF(lit_42),LITREF(lit_94),sloc(232),YPfalse); T32 = VARREF_OR(YgooScolsSseqYreject,YPfalse); T33 = fun_reject_26; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooScolsSseqYreject,T31); lit_96 = YPPsym((P)"del"); lit_97 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"key")); T34 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_del_27 = YPfab_met(FUNCODEREF(fun_del_27),T34,LITREF(lit_96),LITREF(lit_97),sloc(235),YPfalse); T36 = VARREF_OR(YgooScolsScolYdel,YPfalse); T37 = fun_del_27; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooScolsScolYdel,T35); lit_98 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"x")); lit_99 = YPPlist(1,YPPsym((P)"e")); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_28 = YPfab_met(FUNCODEREF(fun_28),T39,YPfalse,LITREF(lit_99),sloc(239),YPfalse); T38 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_del_vals_29 = YPfab_met(FUNCODEREF(fun_del_vals_29),T38,LITREF(lit_44),LITREF(lit_98),sloc(238),YPfalse); T41 = VARREF_OR(YgooScolsSseqYdel_vals,YPfalse); T42 = fun_del_vals_29; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YgooScolsSseqYdel_vals,T40); lit_100 = YPPlist(1,YPPsym((P)"x")); lit_101 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"e")); T44 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T44,YPfalse,LITREF(lit_101),sloc(242),YPfalse); T43 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); fun_del_dups_31 = YPfab_met(FUNCODEREF(fun_del_dups_31),T43,LITREF(lit_46),LITREF(lit_100),sloc(241),YPfalse); T46 = VARREF_OR(YgooScolsSseqYdel_dups,YPfalse); T47 = fun_del_dups_31; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsSseqYdel_dups,T45); lit_102 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"v"),YPPsym((P)"before")); T48 = YPfab_sig(YPPlist(3,VARREF(YLseqG),VARREF(YLanyG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqG),Ynil); fun_ins_32 = YPfab_met(FUNCODEREF(fun_ins_32),T48,LITREF(lit_38),LITREF(lit_102),sloc(244),YPfalse); T50 = VARREF_OR(YgooScolsSseqYins,YPfalse); T51 = fun_ins_32; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooScolsSseqYins,T49); lit_103 = YPPsym((P)"elts"); lit_104 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"keys")); T52 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_elts_33 = YPfab_met(FUNCODEREF(fun_elts_33),T52,LITREF(lit_103),LITREF(lit_104),sloc(253),YPfalse); T54 = VARREF_OR(YgooScolsScolYelts,YPfalse); T55 = fun_elts_33; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooScolsScolYelts,T53); lit_105 = YPPlist(1,YPPsym((P)"x")); T56 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); fun_sort_34 = YPfab_met(FUNCODEREF(fun_sort_34),T56,LITREF(lit_48),LITREF(lit_105),sloc(268),YPfalse); T58 = VARREF_OR(YgooScolsSseqYsort,YPfalse); T59 = fun_sort_34; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YgooScolsSseqYsort,T57); lit_106 = YPPlist(2,YPPsym((P)"a"),YPPsym((P)"test")); T60 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); fun_sort_by_35 = YPfab_met(FUNCODEREF(fun_sort_by_35),T60,LITREF(lit_50),LITREF(lit_106),sloc(271),YPfalse); T62 = VARREF_OR(YgooScolsSseqYsort_by,YPfalse); T63 = fun_sort_by_35; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooScolsSseqYsort_by,T61); lit_107 = YPPsym((P)"keys"); lit_108 = YPPlist(1,YPPsym((P)"d")); T64 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLseqG),Ynil); fun_keys_36 = YPfab_met(FUNCODEREF(fun_keys_36),T64,LITREF(lit_107),LITREF(lit_108),sloc(276),YPfalse); T66 = VARREF_OR(YgooScolsScolYkeys,YPfalse); T67 = fun_keys_36; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooScolsScolYkeys,T65); lit_109 = YPPsym((P)"range-check"); lit_110 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T68 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooScolsSseqYrange_check = YPfab_met_inlineable(FUNCODEREF(YgooScolsSseqYrange_check),T68,LITREF(lit_109),LITREF(lit_110),sloc(279),YPfalse); T69 = YgooScolsSseqYrange_check; VARSET(YgooScolsSseqYrange_check,T69); lit_111 = YPPsym((P)"range-check?"); lit_112 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T70 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooScolsSseqYrange_checkQ = YPfab_met_inlineable(FUNCODEREF(YgooScolsSseqYrange_checkQ),T70,LITREF(lit_111),LITREF(lit_112),sloc(283),YPfalse); T71 = YgooScolsSseqYrange_checkQ; VARSET(YgooScolsSseqYrange_checkQ,T71); lit_113 = YPPsym((P)"add"); lit_114 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"e")); T72 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_add_39 = YPfab_met(FUNCODEREF(fun_add_39),T72,LITREF(lit_113),LITREF(lit_114),sloc(286),YPfalse); T74 = VARREF_OR(YgooScolsScolYadd,YPfalse); T75 = fun_add_39; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooScolsScolYadd,T73); lit_115 = YPPsym((P)"add-new"); lit_116 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T76 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_add_new_40 = YPfab_met(FUNCODEREF(fun_add_new_40),T76,LITREF(lit_115),LITREF(lit_116),sloc(289),YPfalse); T78 = VARREF_OR(YgooScolsSseqYadd_new,YPfalse); T79 = fun_add_new_40; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YgooScolsSseqYadd_new,T77); lit_117 = YPPlist(1,YPPsym((P)"s")); lit_118 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"e")); lit_119 = YPsb((P)""); lit_120 = YPsb((P)" "); T81 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_41 = YPfab_met(FUNCODEREF(fun_41),T81,YPfalse,LITREF(lit_118),sloc(294),YPfalse); T80 = YPfab_sig(YPPlist(1,VARREF(YLseqG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_vals_to_str_42 = YPfab_met(FUNCODEREF(fun_vals_to_str_42),T80,LITREF(lit_62),LITREF(lit_117),sloc(293),YPfalse); T83 = VARREF_OR(YgooScolsSseqYvals_to_str,YPfalse); T84 = fun_vals_to_str_42; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YgooScolsSseqYvals_to_str,T82); lit_121 = YPPlist(2,YPPsym((P)"fn"),YPPsym((P)"key-vals")); T85 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_key_vals_43 = YPfab_met(FUNCODEREF(fun_do_key_vals_43),T85,LITREF(lit_64),LITREF(lit_121),sloc(296),YPfalse); T87 = VARREF_OR(YgooScolsSseqYdo_key_vals,YPfalse); T88 = fun_do_key_vals_43; T86 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T87,T88); VARSET(YgooScolsSseqYdo_key_vals,T86); lit_122 = YPPsym((P)"col"); lit_123 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"key-vals")); lit_124 = YPPlist(2,YPPsym((P)"key"),YPPsym((P)"val")); T91 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_44 = YPfab_met(FUNCODEREF(fun_44),T91,YPfalse,LITREF(lit_124),sloc(306),YPfalse); T90 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YLcolG)); T89 = YPfab_sig(YPPlist(1,T90),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_col_45 = YPfab_met(FUNCODEREF(fun_col_45),T89,LITREF(lit_122),LITREF(lit_123),sloc(304),YPfalse); T93 = VARREF_OR(YgooScolsScolYcol,YPfalse); T94 = fun_col_45; T92 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T93,T94); VARSET(YgooScolsScolYcol,T92); lit_125 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"end")); T95 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_suffixQ_46 = YPfab_met(FUNCODEREF(fun_suffixQ_46),T95,LITREF(lit_52),LITREF(lit_125),sloc(309),YPfalse); T97 = VARREF_OR(YgooScolsSseqYsuffixQ,YPfalse); T98 = fun_suffixQ_46; T96 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T97,T98); VARSET(YgooScolsSseqYsuffixQ,T96); lit_126 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"begin")); T99 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_prefixQ_47 = YPfab_met(FUNCODEREF(fun_prefixQ_47),T99,LITREF(lit_54),LITREF(lit_126),sloc(312),YPfalse); T101 = VARREF_OR(YgooScolsSseqYprefixQ,YPfalse); T102 = fun_prefixQ_47; T100 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T101,T102); VARSET(YgooScolsSseqYprefixQ,T100); lit_127 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"n")); T103 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_repeat_48 = YPfab_met(FUNCODEREF(fun_repeat_48),T103,LITREF(lit_56),LITREF(lit_127),sloc(316),YPfalse); T105 = VARREF_OR(YgooScolsSseqYrepeat,YPfalse); T106 = fun_repeat_48; T104 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T105,T106); VARSET(YgooScolsSseqYrepeat,T104); lit_128 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"sep")); T107 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlstG),Ynil); fun_split_49 = YPfab_met(FUNCODEREF(fun_split_49),T107,LITREF(lit_58),LITREF(lit_128),sloc(323),YPfalse); T109 = VARREF_OR(YgooScolsSseqYsplit,YPfalse); T110 = fun_split_49; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); VARSET(YgooScolsSseqYsplit,T108); lit_129 = YPPlist(2,YPPsym((P)"ss"),YPPsym((P)"sep")); lit_130 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T112 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_50 = YPfab_met(FUNCODEREF(fun_50),T112,YPfalse,LITREF(lit_130),sloc(334),YPfalse); T111 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqG),Ynil); fun_join_51 = YPfab_met(FUNCODEREF(fun_join_51),T111,LITREF(lit_60),LITREF(lit_129),sloc(331),YPfalse); T114 = VARREF_OR(YgooScolsSseqYjoin,YPfalse); T115 = fun_join_51; T113 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T114,T115); VARSET(YgooScolsSseqYjoin,T113); if (YPfalse != YPfalse) { } else { } if (YPfalse != YPfalse) { } else { } T116 = YPfalse; return T116; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"below", CVAR, &YgooScolsSseqYbelow}, {"pick", CVAR, &YgooScolsSseqYpick}, {"sort-by!", CVAR, &YgooScolsSseqYsort_byX}, {"add-new", CVAR, &YgooScolsSseqYadd_new}, {"range-check", CVAR, &YgooScolsSseqYrange_check}, {"del-dups", CVAR, &YgooScolsSseqYdel_dups}, {"any2?", CVAR, &YgooScolsSseqYany2Q}, {"@t?", CVAR, &YgooScolsSseqYOtQ}, {"pos", CVAR, &YgooScolsSseqYpos}, {"split", CVAR, &YgooScolsSseqYsplit}, {"---main-2---", PVAR, NULL}, {"do3", CVAR, &YgooScolsSseqYdo3}, {"repeat", CVAR, &YgooScolsSseqYrepeat}, {"prefix?", CVAR, &YgooScolsSseqYprefixQ}, {"---main-1---", PVAR, NULL}, {"ins", CVAR, &YgooScolsSseqYins}, {"do2", CVAR, &YgooScolsSseqYdo2}, {"sub*", CVAR, &YgooScolsSseqYsubT}, {"del-vals", CVAR, &YgooScolsSseqYdel_vals}, {"push", CVAR, &YgooScolsSseqYpush}, {"range-check?", CVAR, &YgooScolsSseqYrange_checkQ}, {"finds", CVAR, &YgooScolsSseqYfinds}, {"suffix?", CVAR, &YgooScolsSseqYsuffixQ}, {"do-key-vals", CVAR, &YgooScolsSseqYdo_key_vals}, {"cat2", CVAR, &YgooScolsSseqYcat2}, {"vals-to-str", CVAR, &YgooScolsSseqYvals_to_str}, {"---main-0---", PVAR, NULL}, {"reject", CVAR, &YgooScolsSseqYreject}, {"join", CVAR, &YgooScolsSseqYjoin}, {"sort-by", CVAR, &YgooScolsSseqYsort_by}, {"rev", CVAR, &YgooScolsSseqYrev}, {"pop", CVAR, &YgooScolsSseqYpop}, {"sub", CVAR, &YgooScolsSseqYsub}, {"3rd", CVAR, &YgooScolsSseqY3rd}, {"sort", CVAR, &YgooScolsSseqYsort}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"2nd", NULL}, {"all2?", NULL}, {"pick", NULL}, {"sort-by!", NULL}, {"1st", NULL}, {"range-check", NULL}, {"del-dups", NULL}, {"any2?", NULL}, {"pop", NULL}, {"split", NULL}, {"pos", NULL}, {"", NULL}, {"map2", NULL}, {"", NULL}, {"ins", NULL}, {"do3", NULL}, {"repeat", NULL}, {"prefix?", NULL}, {"do2", NULL}, {"sub*", NULL}, {"del-vals", NULL}, {"push", NULL}, {"range-check?", NULL}, {"finds", NULL}, {"suffix?", NULL}, {"do-key-vals", NULL}, {"cat2", NULL}, {"vals-to-str", NULL}, {"reject", NULL}, {"join", NULL}, {"cat", NULL}, {"below", NULL}, {"last", NULL}, {"sort-by", NULL}, {"rev", NULL}, {"sub", NULL}, {"3rd", NULL}, {"sort", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSseq; MODULE_INFO module_info_gooScolsSseq = { "goo/cols/seq", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); /* EXPRESSION: */ extern void load_module_gooScolsSseq (void); void load_module_gooScolsSseq (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooScolsScol(); (P)YgooScolsSseqY___main_0___(); (P)YgooScolsSseqY___main_1___(); (P)YgooScolsSseqY___main_2___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/seqx.c0100644000175000017500000022660407756744561015515 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/seqx"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/seqx */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); DEF(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); DEF(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); DEF(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); DEF(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); DEF(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); DEF(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); DEF(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); DEF(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); DEF(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); DEF(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_4); DEFLIT(lit_32); DEFLIT(lit_5); DEFLIT(lit_8); DEFLIT(lit_21); DEFLIT(lit_20); DEFLIT(lit_29); DEFLIT(lit_34); DEFLIT(lit_31); DEFLIT(lit_6); DEFLIT(lit_0); DEFLIT(lit_10); DEFLIT(lit_19); DEFLIT(lit_22); DEFLIT(lit_33); DEFLIT(lit_30); DEFLIT(lit_12); DEFLIT(lit_3); DEFLIT(lit_9); DEFLIT(lit_27); DEFLIT(lit_36); DEFLIT(lit_17); DEFLIT(lit_26); DEFLIT(lit_28); DEFLIT(lit_7); DEFLIT(lit_24); DEFLIT(lit_25); DEFLIT(lit_2); DEFLIT(lit_16); DEFLIT(lit_14); DEFLIT(lit_35); DEFLIT(lit_13); DEFLIT(lit_11); DEFLIT(lit_18); DEFLIT(lit_15); DEFLIT(lit_23); DEFLIT(lit_1); /* FUNCTIONS: */ LOCFOR(fun_revX_0); LOCFOR(fun_catX_1); LOCFOR(fun_pushX_2); LOCFOR(fun_popX_3); LOCFOR(fun_insX_4); LOCFOR(fun_del_valsX_5); LOCFOR(fun_del_dupsX_6); LOCFOR(fun_into_7); LOCFOR(fun_sub_setter_8); LOCFOR(fun_subT_setter_9); LOCFOR(fun_sortX_10); LOCFOR(fun_alter_11); extern P YgooScolsSseqxY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_revX_0) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqYrev),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_catX_1) { P x_,more_; P T0; LINK_STACK(); ARG(x_, 0); NARGS(more_, 1); T0 = CALL3(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSmacrosYcat),YPfalse,more_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pushX_2) { P l_,x_; P T0; LINK_STACK(); ARG(l_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooScolsSseqYpush),l_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_popX_3) { P l_; P T0; LINK_STACK(); ARG(l_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqYpop),l_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_insX_4) { P x_,v_,before_; P T0; LINK_STACK(); ARG(x_, 0); ARG(v_, 1); ARG(before_, 2); T0 = CALL3(1,VARREF(YgooScolsSseqYins),x_,v_,before_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_del_valsX_5) { P x_,v_; P T0; LINK_STACK(); ARG(x_, 0); ARG(v_, 1); T0 = CALL2(1,VARREF(YgooScolsSseqYdel_vals),x_,v_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_del_dupsX_6) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooScolsSseqYdel_dups),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_into_7) { P dst_,src_; P tmpF3191; P esF3190; P edF3189; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(dst_, 0); ARG(src_, 1); T8 = CALL1(1,VARREF(YgooScolsScolYenum),dst_); edF3189 = T8; T9 = CALL1(1,VARREF(YgooScolsScolYenum),src_); esF3190 = T9; LOOP_91: { P a91_0,a91_1; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),esF3190); tmpF3191 = T3; if (tmpF3191 != YPfalse) { T1 = tmpF3191; } else { T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),edF3189); T1 = T2; } if (T1 != YPfalse) { T0 = dst_; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),esF3190); CALL2(1,VARREF(YgooScolsScolYnow_setter),T4,edF3189); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),edF3189); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),esF3190); a91_0 = T6; a91_1 = T7; edF3189 = a91_0; esF3190 = a91_1; goto LOOP_91; T0 = T5; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sub_setter_8) { P src_,dst_,from_,below_; P iF3210; P dF3209; P ndF3208; P iF3207; P dF3206; P sF3205; P ndF3204; P iF3203; P dF3202; P ndF3201; P ndstF3200; P new_lenF3199; P sF3198; P dF3197; P iF3196; P dF3195; P del_lenF3194; P src_lenF3193; P dst_lenF3192; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49; LINK_STACK(); ARG(src_, 0); ARG(dst_, 1); ARG(from_, 2); ARG(below_, 3); T49 = CALL1(1,VARREF(YgooStypesYlen),dst_); check_type(T49,VARREF(YLintG)); dst_lenF3192 = T49; T48 = CALL1(1,VARREF(YgooStypesYlen),src_); check_type(T48,VARREF(YLintG)); src_lenF3193 = T48; T47 = CALL2(1,VARREF(YgooSmathY_),below_,from_); check_type(T47,VARREF(YLintG)); del_lenF3194 = T47; T1 = CALL2(1,VARREF(YgooSlogYE),del_lenF3194,src_lenF3193); if (T1 != YPfalse) { T14 = CALL1(1,VARREF(YgooScolsScolYenum),dst_); dF3195 = T14; iF3196 = YPint((P)0); LOOP_92: { P a92_0,a92_1; T3 = CALL2(1,VARREF(YgooSlogYE),iF3196,from_); if (T3 != YPfalse) { dF3197 = dF3195; T10 = CALL1(1,VARREF(YgooScolsScolYenum),src_); sF3198 = T10; LOOP_93: { P a93_0,a93_1; T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),sF3198); if (T5 != YPfalse) { T4 = dst_; } else { T6 = CALL1(1,VARREF(YgooScolsScolYnow),sF3198); CALL2(1,VARREF(YgooScolsScolYnow_setter),T6,dF3197); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),dF3197); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),sF3198); a93_0 = T8; a93_1 = T9; dF3197 = a93_0; sF3198 = a93_1; goto LOOP_93; T4 = T7; } } T2 = T4; } else { T12 = CALL1(1,VARREF(YgooScolsScolYnxt),dF3195); T13 = CALL2(1,VARREF(YgooSmathYA),iF3196,YPint((P)1)); a92_0 = T12; a92_1 = T13; dF3195 = a92_0; iF3196 = a92_1; goto LOOP_92; T2 = T11; } } T0 = T2; } else { T46 = CALL2(1,VARREF(YgooSmathY_),dst_lenF3192,del_lenF3194); T45 = CALL2(1,VARREF(YgooSmathYA),T46,src_lenF3193); new_lenF3199 = T45; T44 = CALL1(1,VARREF(YgooSclassYclass_of),dst_); T43 = CALL2(1,VARREF(YgooScolsScolYfab),T44,new_lenF3199); ndstF3200 = T43; T41 = CALL1(1,VARREF(YgooScolsScolYenum),ndstF3200); ndF3201 = T41; T42 = CALL1(1,VARREF(YgooScolsScolYenum),dst_); dF3202 = T42; iF3203 = YPint((P)0); LOOP_94: { P a94_0,a94_1,a94_2; T16 = CALL2(1,VARREF(YgooSlogYE),iF3203,from_); if (T16 != YPfalse) { ndF3204 = ndF3201; T35 = CALL1(1,VARREF(YgooScolsScolYenum),src_); sF3205 = T35; LOOP_95: { P a95_0,a95_1; T18 = CALL1(1,VARREF(YgooScolsScolYfinQ),sF3205); if (T18 != YPfalse) { dF3206 = dF3202; iF3207 = from_; LOOP_96: { P a96_0,a96_1; T20 = CALL2(1,VARREF(YgooSlogYE),iF3207,below_); if (T20 != YPfalse) { ndF3208 = ndF3204; dF3209 = dF3206; iF3210 = below_; LOOP_97: { P a97_0,a97_1,a97_2; T22 = CALL2(1,VARREF(YgooSlogYE),iF3210,dst_lenF3192); if (T22 != YPfalse) { T21 = ndstF3200; } else { T23 = CALL1(1,VARREF(YgooScolsScolYnow),dF3209); CALL2(1,VARREF(YgooScolsScolYnow_setter),T23,ndF3208); T25 = CALL1(1,VARREF(YgooScolsScolYnxt),ndF3208); T26 = CALL1(1,VARREF(YgooScolsScolYnxt),dF3209); T27 = CALL2(1,VARREF(YgooSmathYA),iF3210,YPint((P)1)); a97_0 = T25; a97_1 = T26; a97_2 = T27; ndF3208 = a97_0; dF3209 = a97_1; iF3210 = a97_2; goto LOOP_97; T21 = T24; } } T19 = T21; } else { T29 = CALL1(1,VARREF(YgooScolsScolYnxt),dF3206); T30 = CALL2(1,VARREF(YgooSmathYA),iF3207,YPint((P)1)); a96_0 = T29; a96_1 = T30; dF3206 = a96_0; iF3207 = a96_1; goto LOOP_96; T19 = T28; } } T17 = T19; } else { T31 = CALL1(1,VARREF(YgooScolsScolYnow),sF3205); CALL2(1,VARREF(YgooScolsScolYnow_setter),T31,ndF3204); T33 = CALL1(1,VARREF(YgooScolsScolYnxt),ndF3204); T34 = CALL1(1,VARREF(YgooScolsScolYnxt),sF3205); a95_0 = T33; a95_1 = T34; ndF3204 = a95_0; sF3205 = a95_1; goto LOOP_95; T17 = T32; } } T15 = T17; } else { T36 = CALL1(1,VARREF(YgooScolsScolYnow),dF3202); CALL2(1,VARREF(YgooScolsScolYnow_setter),T36,ndF3201); T38 = CALL1(1,VARREF(YgooScolsScolYnxt),ndF3201); T39 = CALL1(1,VARREF(YgooScolsScolYnxt),dF3202); T40 = CALL2(1,VARREF(YgooSmathYA),iF3203,YPint((P)1)); a94_0 = T38; a94_1 = T39; a94_2 = T40; ndF3201 = a94_0; dF3202 = a94_1; iF3203 = a94_2; goto LOOP_94; T15 = T37; } } T0 = T15; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_subT_setter_9) { P src_,dst_,from_; P T0,T1; LINK_STACK(); ARG(src_, 0); ARG(dst_, 1); ARG(from_, 2); T1 = CALL1(1,VARREF(YgooStypesYlen),dst_); T0 = CALL4(1,VARREF(YgooScolsSseqxYsub_setter),src_,dst_,from_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sortX_10) { P items_; P T0; LINK_STACK(); ARG(items_, 0); T0 = CALL2(1,VARREF(YgooScolsSseqYsort_byX),items_,VARREF(YgooSmagYL)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_alter_11) { P dst_,src_,from_,below_; P tmpF3213; P sF3212; P dF3211; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(dst_, 0); ARG(src_, 1); ARG(from_, 2); ARG(below_, 3); T8 = CALL1(1,VARREF(YgooScolsScolYenum),dst_); dF3211 = T8; T9 = CALL1(1,VARREF(YgooScolsScolYenum),src_); sF3212 = T9; LOOP_98: { P a98_0,a98_1; T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),dF3211); tmpF3213 = T3; if (tmpF3213 != YPfalse) { T1 = tmpF3213; } else { T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),sF3212); T1 = T2; } if (T1 != YPfalse) { T0 = dst_; } else { T4 = CALL1(1,VARREF(YgooScolsScolYnow),sF3212); CALL2(1,VARREF(YgooScolsScolYnow_setter),T4,dF3211); T6 = CALL1(1,VARREF(YgooScolsScolYnxt),dF3211); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),sF3212); a98_0 = T6; a98_1 = T7; dF3211 = a98_0; sF3212 = a98_1; goto LOOP_98; T0 = T5; } } UNLINK_STACK(); RET(T0); } P YgooScolsSseqxY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76; DEFCREGS(); lit_0 = YPPsym((P)"rev!"); lit_1 = YPPlist(1,YPPsym((P)"x")); T1 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),VARREF(YLseqXG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooSmacrosYrevX,T0); lit_2 = YPPsym((P)"cat!"); lit_3 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"more")); T3 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPtrue,YPint((P)1),VARREF(YLseqXG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooScolsSseqxYcatX,T2); lit_4 = YPPsym((P)"push!"); lit_5 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"x")); T5 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooScolsSseqxYpushX,T4); lit_6 = YPPsym((P)"pop!"); lit_7 = YPPlist(1,YPPsym((P)"l")); T8 = XCALL2(1,VARREF(YtT),VARREF(YLseqXG),VARREF(YLanyG)); T7 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),T8,Ynil); T6 = YPfab_gen(T7,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooScolsSseqxYpopX,T6); lit_8 = YPPsym((P)"sub-setter"); lit_9 = YPPlist(4,YPPsym((P)"dst"),YPPsym((P)"src"),YPPsym((P)"from"),YPPsym((P)"below")); T10 = YPfab_sig(YPPlist(4,VARREF(YLseqXG),VARREF(YLseqG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); T9 = YPfab_gen(T10,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooScolsSseqxYsub_setter,T9); lit_10 = YPPsym((P)"sub*-setter"); lit_11 = YPPlist(3,YPPsym((P)"dst"),YPPsym((P)"src"),YPPsym((P)"from")); T12 = YPfab_sig(YPPlist(3,VARREF(YLseqXG),VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T11 = YPfab_gen(T12,LITREF(lit_10),LITREF(lit_11),YPfalse); VARSET(YgooScolsSseqxYsubT_setter,T11); lit_12 = YPPsym((P)"ins!"); lit_13 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"e"),YPPsym((P)"before")); T14 = YPfab_sig(YPPlist(3,VARREF(YLseqXG),VARREF(YLanyG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqXG),Ynil); T13 = YPfab_gen(T14,LITREF(lit_12),LITREF(lit_13),YPfalse); VARSET(YgooScolsSseqxYinsX,T13); lit_14 = YPPsym((P)"del-vals!"); lit_15 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"v")); T16 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); T15 = YPfab_gen(T16,LITREF(lit_14),LITREF(lit_15),YPfalse); VARSET(YgooScolsSseqxYdel_valsX,T15); lit_16 = YPPsym((P)"del-dups!"); lit_17 = YPPlist(1,YPPsym((P)"x")); T18 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),VARREF(YLseqXG),Ynil); T17 = YPfab_gen(T18,LITREF(lit_16),LITREF(lit_17),YPfalse); VARSET(YgooScolsSseqxYdel_dupsX,T17); lit_18 = YPPsym((P)"sort!"); lit_19 = YPPlist(1,YPPsym((P)"x")); T20 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),VARREF(YLseqXG),Ynil); T19 = YPfab_gen(T20,LITREF(lit_18),LITREF(lit_19),YPfalse); VARSET(YgooScolsSseqxYsortX,T19); lit_20 = YPPsym((P)"sort-by!"); lit_21 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"test")); T22 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); T21 = YPfab_gen(T22,LITREF(lit_20),LITREF(lit_21),YPfalse); VARSET(YgooScolsSseqYsort_byX,T21); lit_22 = YPPsym((P)"alter"); lit_23 = YPPlist(4,YPPsym((P)"dst"),YPPsym((P)"src"),YPPsym((P)"from"),YPPsym((P)"below")); T24 = YPfab_sig(YPPlist(4,VARREF(YLseqXG),VARREF(YLseqG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)4),VARREF(YLseqXG),Ynil); T23 = YPfab_gen(T24,LITREF(lit_22),LITREF(lit_23),YPfalse); VARSET(YgooScolsSseqxYalter,T23); lit_24 = YPPlist(1,YPPsym((P)"x")); T25 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),VARREF(YLseqXG),Ynil); fun_revX_0 = YPfab_met(FUNCODEREF(fun_revX_0),T25,LITREF(lit_0),LITREF(lit_24),sloc(49),YPfalse); T27 = VARREF_OR(YgooSmacrosYrevX,YPfalse); T28 = fun_revX_0; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooSmacrosYrevX,T26); lit_25 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"more")); T29 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPtrue,YPint((P)1),VARREF(YLseqXG),Ynil); fun_catX_1 = YPfab_met(FUNCODEREF(fun_catX_1),T29,LITREF(lit_2),LITREF(lit_25),sloc(50),YPfalse); T31 = VARREF_OR(YgooScolsSseqxYcatX,YPfalse); T32 = fun_catX_1; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsSseqxYcatX,T30); lit_26 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"x")); T33 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); fun_pushX_2 = YPfab_met(FUNCODEREF(fun_pushX_2),T33,LITREF(lit_4),LITREF(lit_26),sloc(51),YPfalse); T35 = VARREF_OR(YgooScolsSseqxYpushX,YPfalse); T36 = fun_pushX_2; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooScolsSseqxYpushX,T34); lit_27 = YPPlist(1,YPPsym((P)"l")); T38 = XCALL2(1,VARREF(YtT),VARREF(YLseqXG),VARREF(YLanyG)); T37 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),T38,Ynil); fun_popX_3 = YPfab_met(FUNCODEREF(fun_popX_3),T37,LITREF(lit_6),LITREF(lit_27),sloc(52),YPfalse); T40 = VARREF_OR(YgooScolsSseqxYpopX,YPfalse); T41 = fun_popX_3; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooScolsSseqxYpopX,T39); lit_28 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"v"),YPPsym((P)"before")); T42 = YPfab_sig(YPPlist(3,VARREF(YLseqXG),VARREF(YLanyG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqXG),Ynil); fun_insX_4 = YPfab_met(FUNCODEREF(fun_insX_4),T42,LITREF(lit_12),LITREF(lit_28),sloc(53),YPfalse); T44 = VARREF_OR(YgooScolsSseqxYinsX,YPfalse); T45 = fun_insX_4; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooScolsSseqxYinsX,T43); lit_29 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"v")); T46 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); fun_del_valsX_5 = YPfab_met(FUNCODEREF(fun_del_valsX_5),T46,LITREF(lit_14),LITREF(lit_29),sloc(54),YPfalse); T48 = VARREF_OR(YgooScolsSseqxYdel_valsX,YPfalse); T49 = fun_del_valsX_5; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooScolsSseqxYdel_valsX,T47); lit_30 = YPPlist(1,YPPsym((P)"x")); T50 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),VARREF(YLseqXG),Ynil); fun_del_dupsX_6 = YPfab_met(FUNCODEREF(fun_del_dupsX_6),T50,LITREF(lit_16),LITREF(lit_30),sloc(55),YPfalse); T52 = VARREF_OR(YgooScolsSseqxYdel_dupsX,YPfalse); T53 = fun_del_dupsX_6; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooScolsSseqxYdel_dupsX,T51); lit_31 = YPPsym((P)"into"); lit_32 = YPPlist(2,YPPsym((P)"dst"),YPPsym((P)"src")); T54 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); fun_into_7 = YPfab_met(FUNCODEREF(fun_into_7),T54,LITREF(lit_31),LITREF(lit_32),sloc(57),YPfalse); T56 = VARREF_OR(YgooScolsScolYinto,YPfalse); T57 = fun_into_7; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooScolsScolYinto,T55); lit_33 = YPPlist(4,YPPsym((P)"src"),YPPsym((P)"dst"),YPPsym((P)"from"),YPPsym((P)"below")); T58 = YPfab_sig(YPPlist(4,VARREF(YLseqXG),VARREF(YLseqG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)4),VARREF(YLseqXG),Ynil); fun_sub_setter_8 = YPfab_met(FUNCODEREF(fun_sub_setter_8),T58,LITREF(lit_8),LITREF(lit_33),sloc(64),YPfalse); T60 = VARREF_OR(YgooScolsSseqxYsub_setter,YPfalse); T61 = fun_sub_setter_8; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooScolsSseqxYsub_setter,T59); lit_34 = YPPlist(3,YPPsym((P)"src"),YPPsym((P)"dst"),YPPsym((P)"from")); T62 = YPfab_sig(YPPlist(3,VARREF(YLseqXG),VARREF(YLseqG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLseqXG),Ynil); fun_subT_setter_9 = YPfab_met(FUNCODEREF(fun_subT_setter_9),T62,LITREF(lit_10),LITREF(lit_34),sloc(96),YPfalse); T64 = VARREF_OR(YgooScolsSseqxYsubT_setter,YPfalse); T65 = fun_subT_setter_9; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooScolsSseqxYsubT_setter,T63); lit_35 = YPPlist(1,YPPsym((P)"items")); T66 = YPfab_sig(YPPlist(1,VARREF(YLseqXG)),YPfalse,YPint((P)1),VARREF(YLseqXG),Ynil); fun_sortX_10 = YPfab_met(FUNCODEREF(fun_sortX_10),T66,LITREF(lit_18),LITREF(lit_35),sloc(99),YPfalse); T68 = VARREF_OR(YgooScolsSseqxYsortX,YPfalse); T69 = fun_sortX_10; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooScolsSseqxYsortX,T67); lit_36 = YPPlist(4,YPPsym((P)"dst"),YPPsym((P)"src"),YPPsym((P)"from"),YPPsym((P)"below")); T72 = YPfab_sig(YPPlist(4,VARREF(YLseqXG),VARREF(YLseqG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)4),VARREF(YLseqXG),Ynil); T71 = fun_alter_11 = YPfab_met(FUNCODEREF(fun_alter_11),T72,LITREF(lit_22),LITREF(lit_36),sloc(107),YPfalse); T75 = VARREF_OR(YgooScolsSseqxYalter,YPfalse); T76 = fun_alter_11; T74 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T75,T76); T73 = VARSET(YgooScolsSseqxYalter,T74); T70 = T73; return T70; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"push!", CVAR, &YgooScolsSseqxYpushX}, {"sub-setter", CVAR, &YgooScolsSseqxYsub_setter}, {"pop!", CVAR, &YgooScolsSseqxYpopX}, {"cat!", CVAR, &YgooScolsSseqxYcatX}, {"alter", CVAR, &YgooScolsSseqxYalter}, {"ins!", CVAR, &YgooScolsSseqxYinsX}, {"del-vals!", CVAR, &YgooScolsSseqxYdel_valsX}, {"sub*-setter", CVAR, &YgooScolsSseqxYsubT_setter}, {"sort!", CVAR, &YgooScolsSseqxYsortX}, {"---main-0---", PVAR, NULL}, {"del-dups!", CVAR, &YgooScolsSseqxYdel_dupsX}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"del-vals!", NULL}, {"sort-by!", NULL}, {"push!", NULL}, {"sub-setter", NULL}, {"rev!", NULL}, {"pop!", NULL}, {"cat!", NULL}, {"alter", NULL}, {"ins!", NULL}, {"sort!", NULL}, {"sub*-setter", NULL}, {"del-dups!", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSseqx; MODULE_INFO module_info_gooScolsSseqx = { "goo/cols/seqx", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooScolsSseqx (void); void load_module_gooScolsSseqx (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); (P)YgooScolsSseqxY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/step.c0100644000175000017500000020477607756744562015517 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/step"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/step */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); DEF(YgooScolsSstepYLstep_enumG,"goo/cols/step",""); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); DEF(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); DEF(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); DEF(YgooScolsSstepYstep_first,"goo/cols/step","step-first"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); DEF(YgooScolsSstepYPfirstQ,"goo/cols/step","%first?"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); DEF(YgooScolsSstepYeach_fun,"goo/cols/step","each-fun"); DEF(YgooScolsSstepYLeach_enumG,"goo/cols/step",""); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); DEF(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); DEF(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); DEF(YgooScolsSstepYPdat,"goo/cols/step","%dat"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); DEF(YgooScolsSstepYstep_then,"goo/cols/step","step-then"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); DEF(YgooScolsSstepYPfirstQ_setter,"goo/cols/step","%first?-setter"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_28); DEFLIT(lit_4); DEFLIT(lit_20); DEFLIT(lit_33); DEFLIT(lit_15); DEFLIT(lit_31); DEFLIT(lit_8); DEFLIT(lit_23); DEFLIT(lit_25); DEFLIT(lit_30); DEFLIT(lit_26); DEFLIT(lit_18); DEFLIT(lit_11); DEFLIT(lit_27); DEFLIT(lit_21); DEFLIT(lit_5); DEFLIT(lit_22); DEFLIT(lit_16); DEFLIT(lit_12); DEFLIT(lit_14); DEFLIT(lit_3); DEFLIT(lit_0); DEFLIT(lit_19); DEFLIT(lit_2); DEFLIT(lit_13); DEFLIT(lit_6); DEFLIT(lit_29); DEFLIT(lit_10); DEFLIT(lit_34); DEFLIT(lit_7); DEFLIT(lit_1); DEFLIT(lit_9); DEFLIT(lit_24); DEFLIT(lit_32); DEFLIT(lit_17); /* FUNCTIONS: */ LOCFOR(fun_step_first_0); LOCFOR(fun_step_then_1); LOCFOR(fun_first_then_2); LOCFOR(fun_Pdat_3); LOCFOR(fun_PfirstQ_4); LOCFOR(fun_PfirstQ_setter_5); LOCFOR(fun_6); LOCFOR(fun_enum_7); LOCFOR(fun_finQ_8); LOCFOR(fun_nxt_9); LOCFOR(fun_now_10); LOCFOR(fun_each_fun_11); LOCFOR(fun_Pdat_12); LOCFOR(fun_enum_13); LOCFOR(fun_finQ_14); LOCFOR(fun_nxt_15); LOCFOR(fun_now_16); extern P YgooScolsSstepY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_step_first_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSstepYstep_first)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_step_then_1) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSstepYstep_then)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_first_then_2) { P first_,then_; P T0; LINK_STACK(); ARG(first_, 0); ARG(then_, 1); T0 = CALL5(1,VARREF(Ynew),VARREF(YgooScolsSstepYLstepG),VARREF(YgooScolsSstepYstep_first),first_,VARREF(YgooScolsSstepYstep_then),then_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_Pdat_3) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSstepYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_PfirstQ_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSstepYPfirstQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_PfirstQ_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSstepYPfirstQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_6) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_enum_7) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSstepYLstep_enumG),VARREF(YgooScolsSstepYPdat),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_8) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_nxt_9) { P e_; P x_1435F3684; LINK_STACK(); ARG(e_, 0); x_1435F3684 = e_; CALL2(1,VARREF(YgooScolsSstepYPfirstQ_setter),YPfalse,x_1435F3684); UNLINK_STACK(); RET(x_1435F3684); } LOCCODEDEF(fun_now_10) { P e_; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSstepYPfirstQ),e_); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(YgooScolsSstepYPdat),e_); T3 = CALL1(1,VARREF(YgooScolsSstepYstep_first),T4); T2 = CALL0(1,T3); T0 = T2; } else { T7 = CALL1(1,VARREF(YgooScolsSstepYPdat),e_); T6 = CALL1(1,VARREF(YgooScolsSstepYstep_then),T7); T5 = CALL0(1,T6); T0 = T5; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_each_fun_11) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSstepYeach_fun)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pdat_12) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSstepYPdat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_enum_13) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSstepYLeach_enumG),VARREF(YgooScolsSstepYPdat),x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_14) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(YPfalse); } LOCCODEDEF(fun_nxt_15) { P e_; LINK_STACK(); ARG(e_, 0); UNLINK_STACK(); RET(e_); } LOCCODEDEF(fun_now_16) { P e_; P T0,T1,T2; LINK_STACK(); ARG(e_, 0); T2 = CALL1(1,VARREF(YgooScolsSstepYPdat),e_); T1 = CALL1(1,VARREF(YgooScolsSstepYeach_fun),T2); T0 = CALL0(1,T1); UNLINK_STACK(); QRET(T0); } P YgooScolsSstepY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsSstepYLstepG,T0); lit_1 = YPPsym((P)"first-then"); lit_2 = YPPlist(2,YPPsym((P)"first"),YPPsym((P)"then")); T3 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooScolsSstepYfirst_then,T2); lit_3 = YPPsym((P)""); T5 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqG),Ynil); T4 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_3),T5); VARSET(YgooScolsSstepYLeachG,T4); lit_4 = YPPsym((P)"each"); lit_5 = YPPlist(1,YPPsym((P)"f")); T7 = YPfab_sig(YPPlist(1,VARREF(YLfunG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooScolsSstepYeach,T6); lit_6 = YPPsym((P)"step-first"); lit_7 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstepG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_step_first_0 = YPfab_met(FUNCODEREF(fun_step_first_0),T8,LITREF(lit_6),LITREF(lit_7),sloc(23),YPfalse); T10 = VARREF_OR(YgooScolsSstepYstep_first,YPfalse); T11 = fun_step_first_0; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsSstepYstep_first,T9); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSstepYLstepG),VARREF(YgooScolsSstepYstep_first),YPfalse,VARREF(YLfunG),VARREF(YPprop_unbound_error)); lit_8 = YPPsym((P)"step-then"); lit_9 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstepG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_step_then_1 = YPfab_met(FUNCODEREF(fun_step_then_1),T12,LITREF(lit_8),LITREF(lit_9),sloc(24),YPfalse); T14 = VARREF_OR(YgooScolsSstepYstep_then,YPfalse); T15 = fun_step_then_1; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsSstepYstep_then,T13); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSstepYLstepG),VARREF(YgooScolsSstepYstep_then),YPfalse,VARREF(YLfunG),VARREF(YPprop_unbound_error)); lit_10 = YPPlist(2,YPPsym((P)"first"),YPPsym((P)"then")); T16 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YgooScolsSstepYLstepG),Ynil); fun_first_then_2 = YPfab_met(FUNCODEREF(fun_first_then_2),T16,LITREF(lit_1),LITREF(lit_10),sloc(27),YPfalse); T18 = VARREF_OR(YgooScolsSstepYfirst_then,YPfalse); T19 = fun_first_then_2; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsSstepYfirst_then,T17); lit_11 = YPPsym((P)""); T21 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T20 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_11),T21); VARSET(YgooScolsSstepYLstep_enumG,T20); lit_12 = YPPsym((P)"%dat"); lit_13 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstep_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdat_3 = YPfab_met(FUNCODEREF(fun_Pdat_3),T22,LITREF(lit_12),LITREF(lit_13),sloc(31),YPfalse); T24 = VARREF_OR(YgooScolsSstepYPdat,YPfalse); T25 = fun_Pdat_3; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooScolsSstepYPdat,T23); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSstepYLstep_enumG),VARREF(YgooScolsSstepYPdat),YPfalse,VARREF(YgooScolsSstepYLstepG),VARREF(YPprop_unbound_error)); lit_14 = YPPsym((P)"%first?"); lit_15 = YPPlist(1,YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstep_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_PfirstQ_4 = YPfab_met(FUNCODEREF(fun_PfirstQ_4),T26,LITREF(lit_14),LITREF(lit_15),sloc(32),YPfalse); T28 = VARREF_OR(YgooScolsSstepYPfirstQ,YPfalse); T29 = fun_PfirstQ_4; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooScolsSstepYPfirstQ,T27); lit_16 = YPPsym((P)"%first?-setter"); lit_17 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T30 = YPfab_sig(YPPlist(2,VARREF(YLlogG),VARREF(YgooScolsSstepYLstep_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_PfirstQ_setter_5 = YPfab_met(FUNCODEREF(fun_PfirstQ_setter_5),T30,LITREF(lit_16),LITREF(lit_17),sloc(32),YPfalse); T32 = VARREF_OR(YgooScolsSstepYPfirstQ_setter,YPfalse); T33 = fun_PfirstQ_setter_5; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooScolsSstepYPfirstQ_setter,T31); lit_18 = YPPlist(1,YPPsym((P)"_x")); T34 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T34,YPfalse,LITREF(lit_18),sloc(32),YPfalse); T35 = fun_6; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSstepYLstep_enumG),VARREF(YgooScolsSstepYPfirstQ),VARREF(YgooScolsSstepYPfirstQ_setter),VARREF(YLlogG),T35); lit_19 = YPPsym((P)"enum"); lit_20 = YPPlist(1,YPPsym((P)"x")); T36 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstepG)),YPfalse,YPint((P)1),VARREF(YgooScolsSstepYLstep_enumG),Ynil); fun_enum_7 = YPfab_met(FUNCODEREF(fun_enum_7),T36,LITREF(lit_19),LITREF(lit_20),sloc(33),YPfalse); T38 = VARREF_OR(YgooScolsScolYenum,YPfalse); T39 = fun_enum_7; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsScolYenum,T37); lit_21 = YPPsym((P)"fin?"); lit_22 = YPPlist(1,YPPsym((P)"e")); T40 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstep_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_8 = YPfab_met(FUNCODEREF(fun_finQ_8),T40,LITREF(lit_21),LITREF(lit_22),sloc(35),YPfalse); T42 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T43 = fun_finQ_8; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsScolYfinQ,T41); lit_23 = YPPsym((P)"nxt"); lit_24 = YPPlist(1,YPPsym((P)"e")); T44 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstep_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSstepYLstep_enumG),Ynil); fun_nxt_9 = YPfab_met(FUNCODEREF(fun_nxt_9),T44,LITREF(lit_23),LITREF(lit_24),sloc(36),YPfalse); T46 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T47 = fun_nxt_9; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsScolYnxt,T45); lit_25 = YPPsym((P)"now"); lit_26 = YPPlist(1,YPPsym((P)"e")); T48 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLstep_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_now_10 = YPfab_met(FUNCODEREF(fun_now_10),T48,LITREF(lit_25),LITREF(lit_26),sloc(39),YPfalse); T50 = VARREF_OR(YgooScolsScolYnow,YPfalse); T51 = fun_now_10; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooScolsScolYnow,T49); lit_27 = YPPsym((P)"each-fun"); lit_28 = YPPlist(1,YPPsym((P)"_x")); T52 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLeachG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_each_fun_11 = YPfab_met(FUNCODEREF(fun_each_fun_11),T52,LITREF(lit_27),LITREF(lit_28),sloc(44),YPfalse); T54 = VARREF_OR(YgooScolsSstepYeach_fun,YPfalse); T55 = fun_each_fun_11; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooScolsSstepYeach_fun,T53); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSstepYLeachG),VARREF(YgooScolsSstepYeach_fun),YPfalse,VARREF(YLfunG),VARREF(YPprop_unbound_error)); lit_29 = YPPsym((P)""); T57 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T56 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_29),T57); VARSET(YgooScolsSstepYLeach_enumG,T56); lit_30 = YPPlist(1,YPPsym((P)"_x")); T58 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLeach_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdat_12 = YPfab_met(FUNCODEREF(fun_Pdat_12),T58,LITREF(lit_12),LITREF(lit_30),sloc(47),YPfalse); T60 = VARREF_OR(YgooScolsSstepYPdat,YPfalse); T61 = fun_Pdat_12; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooScolsSstepYPdat,T59); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSstepYLeach_enumG),VARREF(YgooScolsSstepYPdat),YPfalse,VARREF(YgooScolsSstepYLeachG),VARREF(YPprop_unbound_error)); lit_31 = YPPlist(1,YPPsym((P)"x")); T62 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLeachG)),YPfalse,YPint((P)1),VARREF(YgooScolsSstepYLeach_enumG),Ynil); fun_enum_13 = YPfab_met(FUNCODEREF(fun_enum_13),T62,LITREF(lit_19),LITREF(lit_31),sloc(48),YPfalse); T64 = VARREF_OR(YgooScolsScolYenum,YPfalse); T65 = fun_enum_13; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooScolsScolYenum,T63); lit_32 = YPPlist(1,YPPsym((P)"e")); T66 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLeach_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_14 = YPfab_met(FUNCODEREF(fun_finQ_14),T66,LITREF(lit_21),LITREF(lit_32),sloc(50),YPfalse); T68 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T69 = fun_finQ_14; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooScolsScolYfinQ,T67); lit_33 = YPPlist(1,YPPsym((P)"e")); T70 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLeach_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSstepYLeach_enumG),Ynil); fun_nxt_15 = YPfab_met(FUNCODEREF(fun_nxt_15),T70,LITREF(lit_23),LITREF(lit_33),sloc(51),YPfalse); T72 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T73 = fun_nxt_15; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooScolsScolYnxt,T71); lit_34 = YPPlist(1,YPPsym((P)"e")); T76 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSstepYLeach_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T75 = fun_now_16 = YPfab_met(FUNCODEREF(fun_now_16),T76,LITREF(lit_25),LITREF(lit_34),sloc(52),YPfalse); T79 = VARREF_OR(YgooScolsScolYnow,YPfalse); T80 = fun_now_16; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); T77 = VARSET(YgooScolsScolYnow,T78); T74 = T77; return T74; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YgooScolsSstepYLstep_enumG}, {"first-then", CVAR, &YgooScolsSstepYfirst_then}, {"", CVAR, &YgooScolsSstepYLstepG}, {"step-first", CVAR, &YgooScolsSstepYstep_first}, {"%first?", CVAR, &YgooScolsSstepYPfirstQ}, {"each-fun", CVAR, &YgooScolsSstepYeach_fun}, {"", CVAR, &YgooScolsSstepYLeach_enumG}, {"", CVAR, &YgooScolsSstepYLeachG}, {"each", CVAR, &YgooScolsSstepYeach}, {"%dat", CVAR, &YgooScolsSstepYPdat}, {"---main-0---", PVAR, NULL}, {"step-then", CVAR, &YgooScolsSstepYstep_then}, {"%first?-setter", CVAR, &YgooScolsSstepYPfirstQ_setter}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"", NULL}, {"each", NULL}, {"first-then", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSstep; MODULE_INFO module_info_gooScolsSstep = { "goo/cols/step", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooScolsSstep (void); void load_module_gooScolsSstep (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsSseq(); (P)YgooScolsSstepY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/str.c0100644000175000017500000031503307756744562015341 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/str"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/str */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); DEF(YgooScolsSstrYdigit_baseQ,"goo/cols/str","digit-base?"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); DEF(YgooScolsSstrYascii_Gchar,"goo/cols/str","ascii->char"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); DEF(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); DEF(YgooScolsSstrYascii_digits,"goo/cols/str","ascii-digits"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); DEF(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YgooSmathY1A,"goo/math","1+"); DEF(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); DEF(YgooScolsSstrYascii_chars,"goo/cols/str","ascii-chars"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); DEF(YgooScolsSstrYnative_chars,"goo/cols/str","native-chars"); EXT(YLlocG,"goo/boot",""); DEF(YgooScolsSstrYepsilon,"goo/cols/str","epsilon"); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DYNDEF(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); DEF(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); DEF(YgooScolsSstrYto_digit_base,"goo/cols/str","to-digit-base"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); DEF(YgooScolsSstrYinteger_Gchar,"goo/cols/str","integer->char"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); DEF(YgooScolsSstrYDdigit_to_char,"goo/cols/str","$digit-to-char"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); DEF(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); DEF(YgooScolsSstrYchar_Ginteger,"goo/cols/str","char->integer"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_8); DEFLIT(lit_48); DEFLIT(lit_78); DEFLIT(lit_24); DEFLIT(lit_75); DEFLIT(lit_77); DEFLIT(lit_3); DEFLIT(lit_68); DEFLIT(lit_29); DEFLIT(lit_36); DEFLIT(lit_7); DEFLIT(lit_79); DEFLIT(lit_42); DEFLIT(lit_14); DEFLIT(lit_31); DEFLIT(lit_57); DEFLIT(lit_37); DEFLIT(lit_65); DEFLIT(lit_73); DEFLIT(lit_27); DEFLIT(lit_15); DEFLIT(lit_52); DEFLIT(lit_45); DEFLIT(lit_12); DEFLIT(lit_19); DEFLIT(lit_55); DEFLIT(lit_46); DEFLIT(lit_2); DEFLIT(lit_5); DEFLIT(lit_56); DEFLIT(lit_67); DEFLIT(lit_26); DEFLIT(lit_38); DEFLIT(lit_63); DEFLIT(lit_66); DEFLIT(lit_33); DEFLIT(lit_30); DEFLIT(lit_44); DEFLIT(lit_53); DEFLIT(lit_9); DEFLIT(lit_20); DEFLIT(lit_4); DEFLIT(lit_54); DEFLIT(lit_69); DEFLIT(lit_62); DEFLIT(lit_16); DEFLIT(lit_22); DEFLIT(lit_76); DEFLIT(lit_72); DEFLIT(lit_61); DEFLIT(lit_51); DEFLIT(lit_21); DEFLIT(lit_80); DEFLIT(lit_58); DEFLIT(lit_18); DEFLIT(lit_41); DEFLIT(lit_32); DEFLIT(lit_23); DEFLIT(lit_11); DEFLIT(lit_60); DEFLIT(lit_25); DEFLIT(lit_17); DEFLIT(lit_74); DEFLIT(lit_81); DEFLIT(lit_0); DEFLIT(lit_1); DEFLIT(lit_50); DEFLIT(lit_70); DEFLIT(lit_13); DEFLIT(lit_40); DEFLIT(lit_39); DEFLIT(lit_34); DEFLIT(lit_10); DEFLIT(lit_71); DEFLIT(lit_6); DEFLIT(lit_43); DEFLIT(lit_49); DEFLIT(lit_64); DEFLIT(lit_35); DEFLIT(lit_47); DEFLIT(lit_28); DEFLIT(lit_59); /* FUNCTIONS: */ LOCFOR(fun_nul_0); LOCFOR(fun_elt_default_1); LOCFOR(fun_elt_type_2); LOCFOR(fun_fab_3); LOCFOR(fun_str_4); LOCFOR(fun_len_5); LOCFOR(fun_low_elt_6); LOCFOR(fun_fab_elt_setter_7); LOCFOR(fun_elt_or_8); LOCFOR(fun_to_str_9); LOCFOR(fun_add_10); LOCFOR(fun_11); LOCFOR(fun_ascii_Gchar_12); LOCFOR(fun_char_Ginteger_13); LOCFOR(fun_integer_Gchar_14); LOCFOR(fun_char_Gascii_15); LOCFOR(fun_to_digit_base_16); LOCFOR(fun_digit_baseQ_17); LOCFOR(fun_match_18); LOCFOR(fun_failXX_19); LOCFOR(fun_20); LOCFOR(fun_match_digitX_21); LOCFOR(fun_looking_at_alphaQ_22); LOCFOR(fun_str_to_num_23); LOCFOR(fun_num_to_str_base_24); LOCFOR(fun_num_to_str_25); LOCFOR(fun_num_to_str_base_26); LOCFOR(fun_num_to_str_27); LOCFOR(fun_as_28); LOCFOR(fun_as_29); LOCFOR(fun_L_30); LOCFOR(fun_to_str_31); extern P YgooScolsSstrY___main_0___ (); extern P YgooScolsSstrY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_nul_0) { P c_; LINK_STACK(); ARG(c_, 0); UNLINK_STACK(); RET(VARREF(YPsnul)); } LOCCODEDEF(fun_elt_default_1) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); QRET(YPchr((P)32)); } LOCCODEDEF(fun_elt_type_2) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLchrG)); } LOCCODEDEF(fun_fab_3) { P x_,s_; P xF3422; P xF3421; P xF3420; P xF3419; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); xF3419 = s_; xF3420 = xF3419; T1 = (P)YPiGG(xF3420,(P)2); xF3421 = YPchr((P)32); xF3422 = xF3421; T2 = (P)YPiGG(xF3422,(P)2); T0 = (P)YPstr(T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_str_4) { P objects_; P T0; LINK_STACK(); NARGS(objects_, 0); T0 = CALL2(1,VARREF(YgooSchrYfabs),VARREF(YLstrG),objects_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_len_5) { P x_; P tF3425; P xF3424; P xF3423; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPslen(x_); xF3423 = T2; xF3424 = xF3423; tF3425 = (P)1; T1 = (P)YPiLL(xF3424,(P)2); T0 = (P)YPiv(T1,tF3425); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_low_elt_6) { P x_,i_; P tF3430; P xF3429; P xF3428; P xF3427; P xF3426; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); xF3426 = i_; xF3427 = xF3426; T3 = (P)YPiGG(xF3427,(P)2); T2 = (P)YPselt(x_,T3); xF3428 = T2; xF3429 = xF3428; tF3430 = (P)2; T1 = (P)YPiLL(xF3429,(P)2); T0 = (P)YPiv(T1,tF3430); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fab_elt_setter_7) { P z_,x_,i_; P xF3434; P xF3433; P xF3432; P xF3431; P T0,T1,T2; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); ARG(i_, 2); xF3431 = z_; xF3432 = xF3431; T1 = (P)YPiGG(xF3432,(P)2); xF3433 = i_; xF3434 = xF3433; T2 = (P)YPiGG(xF3434,(P)2); T0 = (P)YPselt_setter(T1,x_,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_elt_or_8) { P x_,i_,default_; P tF3439; P xF3438; P xF3437; P xF3436; P xF3435; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); ARG(default_, 2); T1 = CALL2(1,VARREF(YgooScolsSseqYrange_checkQ),x_,i_); if (T1 != YPfalse) { xF3435 = i_; xF3436 = xF3435; T5 = (P)YPiGG(xF3436,(P)2); T4 = (P)YPselt(x_,T5); xF3437 = T4; xF3438 = xF3437; tF3439 = (P)2; T3 = (P)YPiLL(xF3438,(P)2); T2 = (P)YPiv(T3,tF3439); T0 = T2; } else { T0 = default_; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_to_str_9) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_add_10) { P s_,c_; P T0,T1; LINK_STACK(); ARG(s_, 0); ARG(c_, 1); T1 = CALL1(1,VARREF(YgooSanyYto_str),c_); T0 = CALL2(1,VARREF(YgooSmacrosYcat),T1,s_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_11) { P i_,s_; P jF3441; P iF3440; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(i_, 0); ARG(s_, 1); iF3440 = i_; jF3441 = YPint((P)0); LOOP_121: { P a121_0,a121_1; T3 = CALL1(1,VARREF(YgooStypesYlen),s_); T2 = CALL2(1,VARREF(YgooSlogYE),jF3441,T3); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooSmacrosYelt),s_,jF3441); CALL3(1,VARREF(YgooScolsScolxYelt_setter),T4,FREEREF(0),iF3440); T6 = CALL2(1,VARREF(YgooSmathYA),iF3440,YPint((P)1)); T7 = CALL2(1,VARREF(YgooSmathYA),jF3441,YPint((P)1)); a121_0 = T6; a121_1 = T7; iF3440 = a121_0; jF3441 = a121_1; goto LOOP_121; T0 = T5; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_ascii_Gchar_12) { P n_; P tmpF3442; P T0,T1,T2; LINK_STACK(); ARG(n_, 0); T2 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooScolsSstrYascii_chars),n_); tmpF3442 = T2; if (tmpF3442 != YPfalse) { T0 = tmpF3442; } else { T1 = CALL2(1,VARREF(Yerror),LITREF(lit_41),n_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_char_Ginteger_13) { P char_; P T0; LINK_STACK(); ARG(char_, 0); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),char_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_integer_Gchar_14) { P n_; P T0; LINK_STACK(); ARG(n_, 0); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLchrG),n_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_char_Gascii_15) { P char_; P tmpF3443; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(char_, 0); T4 = CALL1(1,VARREF(Ytail),VARREF(YgooScolsSstrYnative_chars)); T3 = CALL1(1,VARREF(Yhead),T4); T6 = CALL1(1,VARREF(YgooScolsSstrYchar_Ginteger),char_); T7 = CALL1(1,VARREF(Yhead),VARREF(YgooScolsSstrYnative_chars)); T5 = CALL2(1,VARREF(YgooSmathY_),T6,T7); T2 = CALL2(1,VARREF(YgooSmacrosYelt),T3,T5); tmpF3443 = T2; if (tmpF3443 != YPfalse) { T0 = tmpF3443; } else { T1 = CALL2(1,VARREF(Yerror),LITREF(lit_47),char_); T0 = T1; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_digit_base_16) { P digit_; P T0,T1; LINK_STACK(); ARG(digit_, 0); T1 = CALL1(1,VARREF(YgooSchrYchar_Gascii),digit_); T0 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooScolsSstrYascii_digits),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_digit_baseQ_17) { P x_,radix_; P digF3444; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(radix_, 1); T3 = CALL1(1,VARREF(YgooScolsSstrYto_digit_base),x_); digF3444 = T3; if (digF3444 != YPfalse) { T2 = CALL2(1,VARREF(YgooSmagYL),digF3444,radix_); if (T2 != YPfalse) { T1 = digF3444; } else { T1 = YPfalse; } T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_match_18) { P char_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(char_, 0); T3 = BOXGET(FREEREF(0)); T2 = CALL2(1,VARREF(YgooSmagYL),T3,FREEREF(1)); if (T2 != YPfalse) { T6 = BOXGET(FREEREF(0)); T5 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(2),T6); T4 = CALL2(1,VARREF(YgooSlogYE),T5,char_); T1 = T4; } else { T1 = YPfalse; } if (T1 != YPfalse) { T8 = BOXGET(FREEREF(0)); T7 = CALL2(1,VARREF(YgooSmathYA),T8,YPint((P)1)); BOXPUT(T7,FREEREF(0)); T0 = YPtrue; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_failXX_19) { P T0; LINK_STACK(); T0 = CALL1(1,FREEREF(0),YPfalse); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_20) { P return_; P charF3446; P failXXF3445; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32; LINK_STACK(); ARG(return_, 0); T32 = FUNSHELL(1,fun_failXX_19,1); failXXF3445 = T32; FUNINIT(failXXF3445, 1,return_); T1 = BOXGET(FREEREF(0)); T0 = CALL2(1,VARREF(YgooSmagYGE),T1,FREEREF(1)); if (T0 != YPfalse) { T2 = CALL0(1,failXXF3445); } else { } T31 = BOXGET(FREEREF(0)); T30 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(2),T31); charF3446 = T30; T5 = charF3446; T4 = CALL2(1,VARREF(YgooSlogYE),T5,YPchr((P)46)); if (T4 != YPfalse) { T7 = BOXGET(FREEREF(3)); if (T7 != YPfalse) { T8 = CALL2(1,VARREF(Yerror),LITREF(lit_61),FREEREF(2)); T6 = T8; } else { BOXPUT(YPtrue,FREEREF(3)); T10 = BOXGET(FREEREF(0)); T9 = CALL2(1,VARREF(YgooSmathYA),T10,YPint((P)1)); BOXPUT(T9,FREEREF(0)); T12 = BOXGET(FREEREF(0)); T11 = CALL2(1,VARREF(YgooSmagYGE),T12,FREEREF(1)); if (T11 != YPfalse) { T13 = CALL0(1,failXXF3445); } else { } T16 = BOXGET(FREEREF(0)); T15 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(2),T16); T14 = charF3446 = T15; T6 = T14; } } else { } T18 = charF3446; T19 = BOXGET(FREEREF(5)); T17 = CALL2(1,VARREF(YgooScolsSstrYdigit_baseQ),T18,T19); BOXPUT(T17,FREEREF(4)); T21 = BOXGET(FREEREF(4)); T20 = CALL1(1,VARREF(Ynot),T21); if (T20 != YPfalse) { T22 = CALL0(1,failXXF3445); } else { } T24 = BOXGET(FREEREF(0)); T23 = CALL2(1,VARREF(YgooSmathYA),T24,YPint((P)1)); BOXPUT(T23,FREEREF(0)); T25 = BOXGET(FREEREF(3)); if (T25 != YPfalse) { T28 = BOXGET(FREEREF(6)); T29 = BOXGET(FREEREF(5)); T27 = CALL2(1,VARREF(YgooSmathYT),T28,T29); T26 = BOXPUT(T27,FREEREF(6)); } else { } UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_match_digitX_21) { P U_; P T0,T1; LINK_STACK(); ARG(U_, 0); T1 = FUNFAB(fun_20,7,FREEREF(0),FREEREF(1),FREEREF(2),FREEREF(3),FREEREF(4),FREEREF(5),FREEREF(6)); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_looking_at_alphaQ_22) { P T0,T1,T2,T3,T4,T5; LINK_STACK(); T2 = BOXGET(FREEREF(0)); T1 = CALL2(1,VARREF(YgooSmagYL),T2,FREEREF(1)); if (T1 != YPfalse) { T5 = BOXGET(FREEREF(0)); T4 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(2),T5); T3 = CALL1(1,VARREF(YgooSchrYalphaQ),T4); T0 = T3; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_str_to_num_23) { P string_; P fF3463; P tmpF3462; P tmpF3461; P tmpF3460; P tmpF3459; P tmpF3458; P looking_at_alphaQF3457; P match_digitXF3456; P matchF3455; P radixF3454; P seen_decimal_pointQF3453; P lengthF3452; P scaleF3451; P iF3450; P nF3449; P dF3448; P sF3447; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72; LINK_STACK(); ARG(string_, 0); sF3447 = YPint((P)1); dF3448 = YPint((P)0); dF3448 = BOXFAB(dF3448); nF3449 = YPint((P)0); iF3450 = YPint((P)0); iF3450 = BOXFAB(iF3450); scaleF3451 = YPint((P)1); scaleF3451 = BOXFAB(scaleF3451); T72 = CALL1(1,VARREF(YgooStypesYlen),string_); lengthF3452 = T72; seen_decimal_pointQF3453 = YPfalse; seen_decimal_pointQF3453 = BOXFAB(seen_decimal_pointQF3453); radixF3454 = YPint((P)10); radixF3454 = BOXFAB(radixF3454); T69 = FUNSHELL(1,fun_match_18,3); matchF3455 = T69; T70 = FUNSHELL(1,fun_match_digitX_21,7); match_digitXF3456 = T70; T71 = FUNSHELL(1,fun_looking_at_alphaQ_22,3); looking_at_alphaQF3457 = T71; FUNINIT(matchF3455, 3,iF3450,lengthF3452,string_); FUNINIT(match_digitXF3456, 7,iF3450,lengthF3452,string_,seen_decimal_pointQF3453,dF3448,radixF3454,scaleF3451); FUNINIT(looking_at_alphaQF3457, 3,iF3450,lengthF3452,string_); T30 = CALL1(1,matchF3455,YPchr((P)43)); tmpF3458 = T30; if (tmpF3458 != YPfalse) { T8 = tmpF3458; } else { T28 = CALL1(1,matchF3455,YPchr((P)45)); if (T28 != YPfalse) { T29 = sF3447 = YPint((P)-1); T27 = T29; } else { T27 = YPfalse; } tmpF3459 = T27; if (tmpF3459 != YPfalse) { T9 = tmpF3459; } else { T11 = CALL1(1,matchF3455,YPchr((P)35)); if (T11 != YPfalse) { T25 = CALL1(1,matchF3455,YPchr((P)98)); if (T25 != YPfalse) { T26 = BOXPUT(YPint((P)2),radixF3454); T24 = T26; } else { T24 = YPfalse; } tmpF3460 = T24; if (tmpF3460 != YPfalse) { T12 = tmpF3460; } else { T22 = CALL1(1,matchF3455,YPchr((P)111)); if (T22 != YPfalse) { T23 = BOXPUT(YPint((P)8),radixF3454); T21 = T23; } else { T21 = YPfalse; } tmpF3461 = T21; if (tmpF3461 != YPfalse) { T13 = tmpF3461; } else { T19 = CALL1(1,matchF3455,YPchr((P)100)); if (T19 != YPfalse) { T20 = BOXPUT(YPint((P)10),radixF3454); T18 = T20; } else { T18 = YPfalse; } tmpF3462 = T18; if (tmpF3462 != YPfalse) { T14 = tmpF3462; } else { T16 = CALL1(1,matchF3455,YPchr((P)120)); if (T16 != YPfalse) { T17 = BOXPUT(YPint((P)16),radixF3454); T15 = T17; } else { T15 = YPfalse; } T14 = T15; } T13 = T14; } T12 = T13; } T10 = T12; } else { T10 = YPtrue; } T9 = T10; } T8 = T9; } if (T8 != YPfalse) { T34 = BOXGET(dF3448); T33 = CALL1(1,match_digitXF3456,T34); if (T33 != YPfalse) { T36 = BOXGET(dF3448); T35 = nF3449 = T36; T32 = T35; } else { T32 = YPfalse; } if (T32 != YPfalse) { LOOP_122: { T41 = BOXGET(dF3448); T40 = CALL1(1,match_digitXF3456,T41); if (T40 != YPfalse) { T45 = nF3449; T46 = BOXGET(radixF3454); T44 = CALL2(1,VARREF(YgooSmathYT),T45,T46); T47 = BOXGET(dF3448); T43 = CALL2(1,VARREF(YgooSmathYA),T44,T47); T42 = nF3449 = T43; T39 = T42; } else { T39 = YPfalse; } if (T39 != YPfalse) { goto LOOP_122; T38 = T48; } else { T38 = YPtrue; } } if (T38 != YPfalse) { T51 = BOXGET(iF3450); T50 = CALL2(1,VARREF(YgooSlogYE),T51,lengthF3452); if (T50 != YPfalse) { T57 = BOXGET(scaleF3451); T56 = CALL2(1,VARREF(YgooSmacrosYEE),YPint((P)1),T57); if (T56 != YPfalse) { T59 = sF3447; T60 = nF3449; T58 = CALL2(1,VARREF(YgooSmathYT),T59,T60); T55 = T58; } else { T63 = sF3447; T62 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),T63); T66 = nF3449; T65 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),T66); T68 = BOXGET(scaleF3451); T67 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLfloG),T68); T64 = CALL2(1,VARREF(YgooSmathYS),T65,T67); T61 = CALL2(1,VARREF(YgooSmathYT),T62,T64); T55 = T61; } fF3463 = T55; T53 = BOXGET(seen_decimal_pointQF3453); if (T53 != YPfalse) { T52 = fF3463; } else { T54 = CALL1(1,VARREF(YgooSmathYtrunc),fF3463); T52 = T54; } T49 = T52; } else { T49 = YPfalse; } T37 = T49; } else { T37 = YPfalse; } T31 = T37; } else { T31 = YPfalse; } T7 = T31; } else { T7 = YPfalse; } UNLINK_STACK(); RET(T7); } LOCCODEDEF(fun_num_to_str_base_24) { P num_,radix_; P digit_listF3468; P digitF3467; P numF3466; P digit_listF3465; P sF3464; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(num_, 0); ARG(radix_, 1); T16 = CALL2(1,VARREF(YgooSmagYL),num_,YPint((P)0)); if (T16 != YPfalse) { T15 = YPint((P)-1); } else { T15 = YPint((P)1); } sF3464 = T15; digit_listF3465 = Ynil; T14 = CALL2(1,VARREF(YgooSmathYT),num_,sF3464); numF3466 = T14; LOOP_123: { P a123_0,a123_1; T7 = CALL2(1,VARREF(YgooSlogYE),numF3466,YPint((P)0)); if (T7 != YPfalse) { T6 = digit_listF3465; } else { T13 = CALL2(1,VARREF(YgooSmathYrem),numF3466,radix_); T12 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooScolsSstrYDdigit_to_char),T13); digitF3467 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYpair),digitF3467,digit_listF3465); T11 = CALL2(1,VARREF(YgooSmathYtruncS),numF3466,radix_); T10 = CALL1(1,VARREF(YgooSmacrosY1st),T11); a123_0 = T9; a123_1 = T10; digit_listF3465 = a123_0; numF3466 = a123_1; goto LOOP_123; T6 = T8; } } digit_listF3468 = T6; T2 = CALL2(1,VARREF(YgooSmagYL),sF3464,YPint((P)0)); if (T2 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmacrosYpair),YPchr((P)45),digit_listF3468); T1 = T3; } else { T5 = CALL2(1,VARREF(YgooSlogYE),num_,YPint((P)0)); if (T5 != YPfalse) { T4 = LITREF(lit_66); } else { T4 = digit_listF3468; } T1 = T4; } T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_num_to_str_25) { P num_; P T0; LINK_STACK(); ARG(num_, 0); T0 = CALL2(1,VARREF(YgooScolsSstrYnum_to_str_base),num_,DYNREF(YgooScolsSstrYTprint_baseT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_num_to_str_base_26) { P num_,radix_; P lengthF3476; P eF3475; P iF3474; P eF3473; P pF3472; P stringF3471; P pF3470; P sF3469; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40; LINK_STACK(); ARG(num_, 0); ARG(radix_, 1); T40 = CALL2(1,VARREF(YgooSmagYL),num_,YPint((P)0)); if (T40 != YPfalse) { T39 = YPint((P)-1); } else { T39 = YPint((P)1); } sF3469 = T39; T38 = CALL2(1,VARREF(YgooSmathYT),num_,sF3469); pF3470 = T38; stringF3471 = LITREF(lit_69); pF3472 = pF3470; eF3473 = YPint((P)0); LOOP_124: { P a124_0,a124_1; T37 = CALL1(1,VARREF(YgooSmathYtrunc),pF3472); iF3474 = T37; T32 = CALL2(1,VARREF(YgooSmathY_),pF3472,iF3474); T31 = CALL2(1,VARREF(YgooSmagYL),T32,VARREF(YgooScolsSstrYepsilon)); if (T31 != YPfalse) { T33 = CALL2(1,VARREF(YgooScolsSstrYnum_to_str_base),iF3474,radix_); stringF3471 = T33; T30 = eF3473; } else { T35 = CALL2(1,VARREF(YgooSmathYT),pF3472,radix_); T36 = CALL2(1,VARREF(YgooSmathYA),eF3473,YPint((P)1)); a124_0 = T35; a124_1 = T36; pF3472 = a124_0; eF3473 = a124_1; goto LOOP_124; T30 = T34; } } eF3475 = T30; T29 = stringF3471; T28 = CALL1(1,VARREF(YgooStypesYlen),T29); lengthF3476 = T28; T2 = CALL2(1,VARREF(YgooSlogYE),eF3475,YPint((P)0)); if (T2 != YPfalse) { T4 = stringF3471; T3 = CALL2(1,VARREF(YgooSmacrosYcat),T4,LITREF(lit_70)); T1 = T3; } else { T6 = CALL2(1,VARREF(YgooSlogYE),eF3475,lengthF3476); if (T6 != YPfalse) { T8 = stringF3471; T7 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_71),T8); T5 = T7; } else { T10 = CALL2(1,VARREF(YgooSmagYL),eF3475,lengthF3476); if (T10 != YPfalse) { T13 = stringF3471; T14 = CALL2(1,VARREF(YgooSmathY_),lengthF3476,eF3475); T12 = CALL3(1,VARREF(YgooScolsSseqYsub),T13,YPint((P)0),T14); T16 = stringF3471; T17 = CALL2(1,VARREF(YgooSmathY_),lengthF3476,eF3475); T15 = CALL3(1,VARREF(YgooScolsSseqYsub),T16,T17,lengthF3476); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_72),T15); T9 = T11; } else { T21 = CALL2(1,VARREF(YgooSmathY_),eF3475,lengthF3476); T20 = CALL2(1,VARREF(YgooSmathYA),T21,YPint((P)2)); T19 = CALL3(1,VARREF(YgooScolsSseqYsub),LITREF(lit_73),YPint((P)0),T20); T22 = stringF3471; T18 = CALL2(1,VARREF(YgooSmacrosYcat),T19,T22); T9 = T18; } T5 = T9; } T1 = T5; } stringF3471 = T1; T24 = CALL2(1,VARREF(YgooSmagYL),sF3469,YPint((P)0)); if (T24 != YPfalse) { T26 = stringF3471; T25 = CALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_74),T26); T23 = T25; } else { T27 = stringF3471; T23 = T27; } UNLINK_STACK(); RET(T23); } LOCCODEDEF(fun_num_to_str_27) { P num_; P T0; LINK_STACK(); ARG(num_, 0); T0 = CALL2(1,VARREF(YgooScolsSstrYnum_to_str_base),num_,DYNREF(YgooScolsSstrYTprint_baseT)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_as_28) { P U_,s_; P T0; LINK_STACK(); ARG(U_, 0); ARG(s_, 1); T0 = CALL1(1,VARREF(Ysym_name),s_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_as_29) { P U_,s_; P T0; LINK_STACK(); ARG(U_, 0); ARG(s_, 1); T0 = CALL1(1,VARREF(Yfab_sym),s_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_L_30) { P x_,y_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); T1 = CALL1(1,VARREF(Ysym_name),x_); T2 = CALL1(1,VARREF(Ysym_name),y_); T0 = CALL2(1,VARREF(YgooSmagYL),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_31) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(Ysym_name),x_); UNLINK_STACK(); RET(T0); } P YgooScolsSstrY___main_0___() { P nF3487; P cF3486; P cF3485; P iF3484; P vF3483; P greatestF3482; P leastF3481; P iF3480; P end259F3479; P initF3478; P ascii_charsF3477; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105; DEFCREGS(); lit_0 = YPPsym((P)"str"); lit_1 = YPPlist(1,YPPsym((P)"objects")); T1 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_0),LITREF(lit_1),YPfalse); VARSET(YgooScolsSstrYstr,T0); lit_2 = YPPsym((P)"char->ascii"); lit_3 = YPPlist(1,YPPsym((P)"char")); T3 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_2),LITREF(lit_3),YPfalse); VARSET(YgooSchrYchar_Gascii,T2); VARSET(YgooScolsSstrYascii_whitespaces,YPfalse); VARSET(YgooScolsSstrYascii_limit,YPfalse); lit_4 = YPPsym((P)"str-to-num"); lit_5 = YPPlist(1,YPPsym((P)"string")); T6 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLnumG)); T5 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),T6,Ynil); T4 = YPfab_gen(T5,LITREF(lit_4),LITREF(lit_5),YPfalse); VARSET(YgooScolsSstrYstr_to_num,T4); lit_6 = YPPsym((P)"num-to-str-base"); lit_7 = YPPlist(2,YPPsym((P)"num"),YPPsym((P)"radix")); T8 = YPfab_sig(YPPlist(2,VARREF(YLnumG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); T7 = YPfab_gen(T8,LITREF(lit_6),LITREF(lit_7),YPfalse); VARSET(YgooScolsSstrYnum_to_str_base,T7); lit_8 = YPPsym((P)"num-to-str"); lit_9 = YPPlist(1,YPPsym((P)"num")); T10 = YPfab_sig(YPPlist(1,VARREF(YLnumG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T9 = YPfab_gen(T10,LITREF(lit_8),LITREF(lit_9),YPfalse); VARSET(YgooSmathYnum_to_str,T9); DYNSET(YgooScolsSstrYTprint_baseT,YPint((P)10)); lit_10 = YPPsym((P)"nul"); lit_11 = YPPlist(1,YPPsym((P)"c")); T12 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLstrG)); T11 = YPfab_sig(YPPlist(1,T12),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_nul_0 = YPfab_met(FUNCODEREF(fun_nul_0),T11,LITREF(lit_10),LITREF(lit_11),sloc(31),YPfalse); T14 = VARREF_OR(YgooScolsScolYnul,YPfalse); T15 = fun_nul_0; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsScolYnul,T13); lit_12 = YPPsym((P)"elt-default"); lit_13 = YPPlist(1,YPPsym((P)"x")); T16 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_elt_default_1 = YPfab_met(FUNCODEREF(fun_elt_default_1),T16,LITREF(lit_12),LITREF(lit_13),sloc(34),YPfalse); T18 = VARREF_OR(YgooScolsScolYelt_default,YPfalse); T19 = fun_elt_default_1; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsScolYelt_default,T17); lit_14 = YPPsym((P)"elt-type"); lit_15 = YPPlist(1,YPPsym((P)"x")); T20 = YPfab_sig(YPPlist(1,VARREF(YLcolG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_elt_type_2 = YPfab_met(FUNCODEREF(fun_elt_type_2),T20,LITREF(lit_14),LITREF(lit_15),sloc(37),YPfalse); T22 = VARREF_OR(YgooScolsScolYelt_type,YPfalse); T23 = fun_elt_type_2; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooScolsScolYelt_type,T21); lit_16 = YPPsym((P)"fab"); lit_17 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T25 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLstrG)); T24 = YPfab_sig(YPPlist(2,T25,VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_fab_3 = YPfab_met(FUNCODEREF(fun_fab_3),T24,LITREF(lit_16),LITREF(lit_17),sloc(39),YPfalse); T27 = VARREF_OR(YgooScolsScolYfab,YPfalse); T28 = fun_fab_3; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooScolsScolYfab,T26); lit_18 = YPPlist(1,YPPsym((P)"objects")); T29 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_str_4 = YPfab_met(FUNCODEREF(fun_str_4),T29,LITREF(lit_0),LITREF(lit_18),sloc(42),YPfalse); T31 = VARREF_OR(YgooScolsSstrYstr,YPfalse); T32 = fun_str_4; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsSstrYstr,T30); lit_19 = YPPsym((P)"len"); lit_20 = YPPlist(1,YPPsym((P)"x")); T33 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLfixnumG),Ynil); fun_len_5 = YPfab_met_inlineable(FUNCODEREF(fun_len_5),T33,LITREF(lit_19),LITREF(lit_20),sloc(45),YPfalse); T35 = VARREF_OR(YgooStypesYlen,YPfalse); T36 = fun_len_5; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooStypesYlen,T34); lit_21 = YPPsym((P)"low-elt"); lit_22 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T37 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLfixnumG)),YPfalse,YPint((P)2),VARREF(YLchrG),Ynil); fun_low_elt_6 = YPfab_met_inlineable(FUNCODEREF(fun_low_elt_6),T37,LITREF(lit_21),LITREF(lit_22),sloc(48),YPfalse); T39 = VARREF_OR(YgooScolsScolYlow_elt,YPfalse); T40 = fun_low_elt_6; T38 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T39,T40); VARSET(YgooScolsScolYlow_elt,T38); lit_23 = YPPsym((P)"fab-elt-setter"); lit_24 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"x"),YPPsym((P)"i")); T41 = YPfab_sig(YPPlist(3,VARREF(YLchrG),VARREF(YLstrG),VARREF(YLfixnumG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_fab_elt_setter_7 = YPfab_met_inlineable(FUNCODEREF(fun_fab_elt_setter_7),T41,LITREF(lit_23),LITREF(lit_24),sloc(51),YPfalse); T43 = VARREF_OR(YgooScolsScolYfab_elt_setter,YPfalse); T44 = fun_fab_elt_setter_7; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YgooScolsScolYfab_elt_setter,T42); lit_25 = YPPsym((P)"elt-or"); lit_26 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"i"),YPPsym((P)"default")); T45 = YPfab_sig(YPPlist(3,VARREF(YLstrG),VARREF(YLfixnumG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_8 = YPfab_met(FUNCODEREF(fun_elt_or_8),T45,LITREF(lit_25),LITREF(lit_26),sloc(54),YPfalse); T47 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T48 = fun_elt_or_8; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YgooScolsScolYelt_or,T46); lit_27 = YPPsym((P)"to-str"); lit_28 = YPPlist(1,YPPsym((P)"x")); T49 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_9 = YPfab_met(FUNCODEREF(fun_to_str_9),T49,LITREF(lit_27),LITREF(lit_28),sloc(63),YPfalse); T51 = VARREF_OR(YgooSanyYto_str,YPfalse); T52 = fun_to_str_9; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YgooSanyYto_str,T50); lit_29 = YPPsym((P)"add"); lit_30 = YPPlist(2,YPPsym((P)"s"),YPPsym((P)"c")); T53 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_add_10 = YPfab_met(FUNCODEREF(fun_add_10),T53,LITREF(lit_29),LITREF(lit_30),sloc(66),YPfalse); T55 = VARREF_OR(YgooScolsScolYadd,YPfalse); T56 = fun_add_10; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YgooScolsScolYadd,T54); VARSET(YgooScolsSstrYascii_limit,YPint((P)128)); lit_31 = YPPlist(2,YPPsym((P)"i"),YPPsym((P)"s")); lit_32 = YPsb((P)"\t"); lit_33 = YPsb((P)"\n"); lit_34 = YPsb((P)"\f"); lit_35 = YPsb((P)"\r"); lit_36 = YPsb((P)" !\"#$%&'()*+,-./0123456789:;<=>?"); lit_37 = YPsb((P)"@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_"); lit_38 = YPsb((P)"`abcdefghijklmnopqrstuvwxyz{|}~"); T57 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T57,YPfalse,LITREF(lit_31),sloc(77),YPfalse); T60 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSstrYascii_limit)); T59 = XCALL2(1,VARREF(YgooScolsScolxYfillX),T60,YPfalse); ascii_charsF3477 = T59; T58 = FUNFAB(fun_11,1,ascii_charsF3477); initF3478 = T58; XCALL2(1,initF3478,YPint((P)9),LITREF(lit_32)); XCALL2(1,initF3478,YPint((P)10),LITREF(lit_33)); XCALL2(1,initF3478,YPint((P)12),LITREF(lit_34)); XCALL2(1,initF3478,YPint((P)13),LITREF(lit_35)); XCALL2(1,initF3478,YPint((P)32),LITREF(lit_36)); XCALL2(1,initF3478,YPint((P)64),LITREF(lit_37)); XCALL2(1,initF3478,YPint((P)96),LITREF(lit_38)); VARSET(YgooScolsSstrYascii_chars,ascii_charsF3477); lit_39 = YPPsym((P)"ascii->char"); lit_40 = YPPlist(1,YPPsym((P)"n")); lit_41 = YPsb((P)"not a standard character's ASCII code: %="); T61 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_ascii_Gchar_12 = YPfab_met(FUNCODEREF(fun_ascii_Gchar_12),T61,LITREF(lit_39),LITREF(lit_40),sloc(91),YPfalse); T63 = VARREF_OR(YgooScolsSstrYascii_Gchar,YPfalse); T64 = fun_ascii_Gchar_12; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YgooScolsSstrYascii_Gchar,T62); lit_42 = YPPsym((P)"char->integer"); lit_43 = YPPlist(1,YPPsym((P)"char")); T65 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_char_Ginteger_13 = YPfab_met(FUNCODEREF(fun_char_Ginteger_13),T65,LITREF(lit_42),LITREF(lit_43),sloc(95),YPfalse); T67 = VARREF_OR(YgooScolsSstrYchar_Ginteger,YPfalse); T68 = fun_char_Ginteger_13; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YgooScolsSstrYchar_Ginteger,T66); lit_44 = YPPsym((P)"integer->char"); lit_45 = YPPlist(1,YPPsym((P)"n")); T69 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_integer_Gchar_14 = YPfab_met(FUNCODEREF(fun_integer_Gchar_14),T69,LITREF(lit_44),LITREF(lit_45),sloc(98),YPfalse); T71 = VARREF_OR(YgooScolsSstrYinteger_Gchar,YPfalse); T72 = fun_integer_Gchar_14; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YgooScolsSstrYinteger_Gchar,T70); T99 = XCALL1(1,VARREF(YgooStypesYlen),VARREF(YgooScolsSstrYascii_chars)); end259F3479 = T99; iF3480 = YPint((P)0); leastF3481 = YPfalse; greatestF3482 = YPfalse; LOOP_125: { P a125_0,a125_1,a125_2; T74 = XCALL2(1,VARREF(YgooSlogYE),iF3480,end259F3479); if (T74 != YPfalse) { T87 = XCALL2(1,VARREF(YgooSmathY_),greatestF3482,leastF3481); T86 = XCALL2(1,VARREF(YgooSmathYA),T87,YPint((P)1)); T85 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),T86); T84 = XCALL2(1,VARREF(YgooScolsScolxYfillX),T85,YPfalse); vF3483 = T84; iF3484 = YPint((P)0); LOOP_126: { P a126_0; T76 = XCALL2(1,VARREF(YgooSlogYE),iF3484,end259F3479); if (T76 != YPfalse) { T77 = XCALL2(1,VARREF(Ylst),leastF3481,vF3483); T75 = T77; } else { T83 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooScolsSstrYascii_chars),iF3484); cF3485 = T83; if (cF3485 != YPfalse) { T80 = XCALL1(1,VARREF(YgooScolsSstrYchar_Ginteger),cF3485); T79 = XCALL2(1,VARREF(YgooSmathY_),T80,leastF3481); T78 = XCALL3(1,VARREF(YgooScolsScolxYelt_setter),iF3484,vF3483,T79); } else { } T82 = XCALL2(1,VARREF(YgooSmathYA),iF3484,YPint((P)1)); a126_0 = T82; iF3484 = a126_0; goto LOOP_126; T75 = T81; } } T73 = T75; } else { T98 = XCALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooScolsSstrYascii_chars),iF3480); cF3486 = T98; if (cF3486 != YPfalse) { T95 = XCALL1(1,VARREF(YgooScolsSstrYchar_Ginteger),cF3486); nF3487 = T95; T90 = XCALL2(1,VARREF(YgooSmathYA),iF3480,YPint((P)1)); if (leastF3481 != YPfalse) { T92 = XCALL2(1,VARREF(YgooSmagYmin),leastF3481,nF3487); T91 = T92; } else { T91 = nF3487; } if (greatestF3482 != YPfalse) { T94 = XCALL2(1,VARREF(YgooSmagYmax),greatestF3482,nF3487); T93 = T94; } else { T93 = nF3487; } a125_0 = T90; a125_1 = T91; a125_2 = T93; iF3480 = a125_0; leastF3481 = a125_1; greatestF3482 = a125_2; goto LOOP_125; T88 = T89; } else { T97 = XCALL2(1,VARREF(YgooSmathYA),iF3480,YPint((P)1)); a125_0 = T97; a125_1 = leastF3481; a125_2 = greatestF3482; iF3480 = a125_0; leastF3481 = a125_1; greatestF3482 = a125_2; goto LOOP_125; T88 = T96; } T73 = T88; } } VARSET(YgooScolsSstrYnative_chars,T73); lit_46 = YPPlist(1,YPPsym((P)"char")); lit_47 = YPsb((P)"not a standard character: %="); T100 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_char_Gascii_15 = YPfab_met(FUNCODEREF(fun_char_Gascii_15),T100,LITREF(lit_2),LITREF(lit_46),sloc(119),YPfalse); T102 = VARREF_OR(YgooSchrYchar_Gascii,YPfalse); T103 = fun_char_Gascii_15; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooSchrYchar_Gascii,T101); lit_48 = YPPlist(5,YPint((P)32),YPint((P)10),YPint((P)9),YPint((P)12),YPint((P)13)); T105 = VARSET(YgooScolsSstrYascii_whitespaces,LITREF(lit_48)); T104 = T105; return T104; } P YgooScolsSstrY___main_1___() { P xF3494; P iF3493; P xF3492; P iF3491; P xF3490; P iF3489; P charsF3488; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; DEFCREGS(); T22 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSstrYascii_limit)); T21 = XCALL2(1,VARREF(YgooScolsScolxYfillX),T22,YPfalse); charsF3488 = T21; T6 = XCALL1(1,VARREF(YgooSchrYchar_Gascii),YPchr((P)48)); iF3489 = T6; xF3490 = YPint((P)0); LOOP_127: { P a127_0,a127_1; T2 = XCALL2(1,VARREF(YgooSmagYG),xF3490,YPint((P)9)); T1 = XCALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { XCALL3(1,VARREF(YgooScolsScolxYelt_setter),xF3490,charsF3488,iF3489); T4 = XCALL2(1,VARREF(YgooSmathYA),iF3489,YPint((P)1)); T5 = XCALL2(1,VARREF(YgooSmathYA),xF3490,YPint((P)1)); a127_0 = T4; a127_1 = T5; iF3489 = a127_0; xF3490 = a127_1; goto LOOP_127; T0 = T3; } else { T0 = YPfalse; } } T13 = XCALL1(1,VARREF(YgooSchrYchar_Gascii),YPchr((P)97)); iF3491 = T13; xF3492 = YPint((P)10); LOOP_128: { P a128_0,a128_1; T9 = XCALL2(1,VARREF(YgooSmagYG),xF3492,YPint((P)15)); T8 = XCALL1(1,VARREF(Ynot),T9); if (T8 != YPfalse) { XCALL3(1,VARREF(YgooScolsScolxYelt_setter),xF3492,charsF3488,iF3491); T11 = XCALL2(1,VARREF(YgooSmathYA),iF3491,YPint((P)1)); T12 = XCALL2(1,VARREF(YgooSmathYA),xF3492,YPint((P)1)); a128_0 = T11; a128_1 = T12; iF3491 = a128_0; xF3492 = a128_1; goto LOOP_128; T7 = T10; } else { T7 = YPfalse; } } T20 = XCALL1(1,VARREF(YgooSchrYchar_Gascii),YPchr((P)65)); iF3493 = T20; xF3494 = YPint((P)10); LOOP_129: { P a129_0,a129_1; T16 = XCALL2(1,VARREF(YgooSmagYG),xF3494,YPint((P)15)); T15 = XCALL1(1,VARREF(Ynot),T16); if (T15 != YPfalse) { XCALL3(1,VARREF(YgooScolsScolxYelt_setter),xF3494,charsF3488,iF3493); T18 = XCALL2(1,VARREF(YgooSmathYA),iF3493,YPint((P)1)); T19 = XCALL2(1,VARREF(YgooSmathYA),xF3494,YPint((P)1)); a129_0 = T18; a129_1 = T19; iF3493 = a129_0; xF3494 = a129_1; goto LOOP_129; T14 = T17; } else { T14 = YPfalse; } } VARSET(YgooScolsSstrYascii_digits,charsF3488); lit_49 = YPPsym((P)"to-digit-base"); lit_50 = YPPlist(1,YPPsym((P)"digit")); T24 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T23 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),T24,Ynil); fun_to_digit_base_16 = YPfab_met(FUNCODEREF(fun_to_digit_base_16),T23,LITREF(lit_49),LITREF(lit_50),sloc(136),YPfalse); T26 = VARREF_OR(YgooScolsSstrYto_digit_base,YPfalse); T27 = fun_to_digit_base_16; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooScolsSstrYto_digit_base,T25); lit_51 = YPPsym((P)"digit-base?"); lit_52 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"radix")); T29 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLintG)); T28 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YLintG)),YPfalse,YPint((P)2),T29,Ynil); fun_digit_baseQ_17 = YPfab_met(FUNCODEREF(fun_digit_baseQ_17),T28,LITREF(lit_51),LITREF(lit_52),sloc(139),YPfalse); T31 = VARREF_OR(YgooScolsSstrYdigit_baseQ,YPfalse); T32 = fun_digit_baseQ_17; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsSstrYdigit_baseQ,T30); lit_53 = YPPlist(1,YPPsym((P)"string")); lit_54 = YPPsym((P)"match"); lit_55 = YPPlist(1,YPPsym((P)"char")); lit_56 = YPPsym((P)"match-digit!"); lit_57 = YPPlist(1,YPPsym((P)"_")); lit_58 = YPPlist(1,YPPsym((P)"return")); lit_59 = YPPsym((P)"fail!!"); lit_60 = Ynil; lit_61 = YPsb((P)"str-to-num: Two decimal points: %="); lit_62 = YPPsym((P)"looking-at-alpha?"); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_match_18 = YPfab_met(FUNCODEREF(fun_match_18),T39,LITREF(lit_54),LITREF(lit_55),sloc(152),YPfalse); T38 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_failXX_19 = YPfab_met(FUNCODEREF(fun_failXX_19),T38,LITREF(lit_59),LITREF(lit_60),sloc(158),YPfalse); T37 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_20 = YPfab_met(FUNCODEREF(fun_20),T37,YPfalse,LITREF(lit_58),sloc(157),YPfalse); T36 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_match_digitX_21 = YPfab_met(FUNCODEREF(fun_match_digitX_21),T36,LITREF(lit_56),LITREF(lit_57),sloc(156),YPfalse); T35 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_looking_at_alphaQ_22 = YPfab_met(FUNCODEREF(fun_looking_at_alphaQ_22),T35,LITREF(lit_62),LITREF(lit_60),sloc(176),YPfalse); T34 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLnumG)); T33 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),T34,Ynil); fun_str_to_num_23 = YPfab_met(FUNCODEREF(fun_str_to_num_23),T33,LITREF(lit_4),LITREF(lit_53),sloc(143),YPfalse); T41 = VARREF_OR(YgooScolsSstrYstr_to_num,YPfalse); T42 = fun_str_to_num_23; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YgooScolsSstrYstr_to_num,T40); lit_63 = YPsb((P)"0123456789abcdefghijklmnopqrstuvwxyz"); VARSET(YgooScolsSstrYDdigit_to_char,LITREF(lit_63)); DYNDEFSET(YgooScolsSstrYTprint_baseT,YPint((P)10)); lit_64 = YPflo(FLOINT(0.0000009999999)); VARSET(YgooScolsSstrYepsilon,LITREF(lit_64)); lit_65 = YPPlist(2,YPPsym((P)"num"),YPPsym((P)"radix")); lit_66 = YPsb((P)"0"); T43 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_num_to_str_base_24 = YPfab_met(FUNCODEREF(fun_num_to_str_base_24),T43,LITREF(lit_6),LITREF(lit_65),sloc(203),YPfalse); T45 = VARREF_OR(YgooScolsSstrYnum_to_str_base,YPfalse); T46 = fun_num_to_str_base_24; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooScolsSstrYnum_to_str_base,T44); lit_67 = YPPlist(1,YPPsym((P)"num")); T47 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_num_to_str_25 = YPfab_met(FUNCODEREF(fun_num_to_str_25),T47,LITREF(lit_8),LITREF(lit_67),sloc(217),YPfalse); T49 = VARREF_OR(YgooSmathYnum_to_str,YPfalse); T50 = fun_num_to_str_25; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YgooSmathYnum_to_str,T48); lit_68 = YPPlist(2,YPPsym((P)"num"),YPPsym((P)"radix")); lit_69 = YPsb((P)""); lit_70 = YPsb((P)".0"); lit_71 = YPsb((P)"0."); lit_72 = YPsb((P)"."); lit_73 = YPsb((P)"0.0000000000000"); lit_74 = YPsb((P)"-"); T51 = YPfab_sig(YPPlist(2,VARREF(YLfloG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_num_to_str_base_26 = YPfab_met(FUNCODEREF(fun_num_to_str_base_26),T51,LITREF(lit_6),LITREF(lit_68),sloc(220),YPfalse); T53 = VARREF_OR(YgooScolsSstrYnum_to_str_base,YPfalse); T54 = fun_num_to_str_base_26; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YgooScolsSstrYnum_to_str_base,T52); lit_75 = YPPlist(1,YPPsym((P)"num")); T55 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_num_to_str_27 = YPfab_met(FUNCODEREF(fun_num_to_str_27),T55,LITREF(lit_8),LITREF(lit_75),sloc(242),YPfalse); T57 = VARREF_OR(YgooSmathYnum_to_str,YPfalse); T58 = fun_num_to_str_27; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YgooSmathYnum_to_str,T56); lit_76 = YPPsym((P)"as"); lit_77 = YPPlist(2,YPPsym((P)"_"),YPPsym((P)"s")); T60 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLstrG)); T59 = YPfab_sig(YPPlist(2,T60,VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_as_28 = YPfab_met_inlineable(FUNCODEREF(fun_as_28),T59,LITREF(lit_76),LITREF(lit_77),sloc(247),YPfalse); T62 = VARREF_OR(YgooStypesYas,YPfalse); T63 = fun_as_28; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooStypesYas,T61); lit_78 = YPPlist(2,YPPsym((P)"_"),YPPsym((P)"s")); T65 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLsymG)); T64 = YPfab_sig(YPPlist(2,T65,VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLsymG),Ynil); fun_as_29 = YPfab_met_inlineable(FUNCODEREF(fun_as_29),T64,LITREF(lit_76),LITREF(lit_78),sloc(250),YPfalse); T67 = VARREF_OR(YgooStypesYas,YPfalse); T68 = fun_as_29; T66 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T67,T68); VARSET(YgooStypesYas,T66); lit_79 = YPPsym((P)"<"); lit_80 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T69 = YPfab_sig(YPPlist(2,VARREF(YLsymG),VARREF(YLsymG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_L_30 = YPfab_met_inlineable(FUNCODEREF(fun_L_30),T69,LITREF(lit_79),LITREF(lit_80),sloc(258),YPfalse); T71 = VARREF_OR(YgooSmagYL,YPfalse); T72 = fun_L_30; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YgooSmagYL,T70); lit_81 = YPPlist(1,YPPsym((P)"x")); T75 = YPfab_sig(YPPlist(1,VARREF(YLsymG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T74 = fun_to_str_31 = YPfab_met(FUNCODEREF(fun_to_str_31),T75,LITREF(lit_27),LITREF(lit_81),sloc(261),YPfalse); T78 = VARREF_OR(YgooSanyYto_str,YPfalse); T79 = fun_to_str_31; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); T76 = VARSET(YgooSanyYto_str,T77); T73 = T76; return T73; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSvec; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSlst}, {&module_info_gooScolsSvec}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"digit-base?", CVAR, &YgooScolsSstrYdigit_baseQ}, {"ascii->char", CVAR, &YgooScolsSstrYascii_Gchar}, {"num-to-str-base", CVAR, &YgooScolsSstrYnum_to_str_base}, {"ascii-digits", CVAR, &YgooScolsSstrYascii_digits}, {"ascii-limit", CVAR, &YgooScolsSstrYascii_limit}, {"str-to-num", CVAR, &YgooScolsSstrYstr_to_num}, {"ascii-chars", CVAR, &YgooScolsSstrYascii_chars}, {"native-chars", CVAR, &YgooScolsSstrYnative_chars}, {"epsilon", CVAR, &YgooScolsSstrYepsilon}, {"---main-1---", PVAR, NULL}, {"*print-base*", DVAR, &YgooScolsSstrYTprint_baseT}, {"str", CVAR, &YgooScolsSstrYstr}, {"to-digit-base", CVAR, &YgooScolsSstrYto_digit_base}, {"integer->char", CVAR, &YgooScolsSstrYinteger_Gchar}, {"---main-0---", PVAR, NULL}, {"$digit-to-char", CVAR, &YgooScolsSstrYDdigit_to_char}, {"ascii-whitespaces", CVAR, &YgooScolsSstrYascii_whitespaces}, {"char->integer", CVAR, &YgooScolsSstrYchar_Ginteger}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"num-to-str", NULL}, {"num-to-str-base", NULL}, {"str-to-num", NULL}, {"char->ascii", NULL}, {"*print-base*", NULL}, {"str", NULL}, {"ascii-limit", NULL}, {"ascii-whitespaces", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSstr; MODULE_INFO module_info_gooScolsSstr = { "goo/cols/str", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsSvec (void); /* EXPRESSION: */ extern void load_module_gooScolsSstr (void); void load_module_gooScolsSstr (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSlst(); load_module_gooScolsSvec(); (P)YgooScolsSstrY___main_0___(); (P)YgooScolsSstrY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/tab.c0100644000175000017500000050615107756744562015302 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/tab"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/tab */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); DEF(YgooScolsStabYOfinQ,"goo/cols/tab","@fin?"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); DEF(YgooScolsStabYTdebug_tablesQT,"goo/cols/tab","*debug-tables?*"); EXT(YgooStypesYLbotG,"goo/types",""); DEF(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); DEF(YgooScolsStabYLtab_vecG,"goo/cols/tab",""); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); DEF(YgooScolsStabYOvec,"goo/cols/tab","@vec"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); DEF(YgooScolsStabYPvacated,"goo/cols/tab","%vacated"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); DEF(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); DEF(YgooScolsStabYrehash_table,"goo/cols/tab","rehash-table"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); DEF(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); DEF(YgooScolsStabYPvector_setter,"goo/cols/tab","%vector-setter"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); DEF(YgooScolsStabYPn_buckets,"goo/cols/tab","%n-buckets"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); DEF(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); DEF(YgooScolsStabYDnul_cell_marker,"goo/cols/tab","$nul-cell-marker"); DEF(YgooScolsStabYrot,"goo/cols/tab","rot"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); DEF(YgooScolsStabYTtwin_primesT,"goo/cols/tab","*twin-primes*"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); DEF(YgooScolsStabYObuc,"goo/cols/tab","@buc"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YgooScolsStabYgrow_table,"goo/cols/tab","grow-table"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); DEF(YgooScolsStabYDfin_enum,"goo/cols/tab","$fin-enum"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); DEF(YgooScolsStabYObuc_setter,"goo/cols/tab","@buc-setter"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); DEF(YgooScolsStabYPvector,"goo/cols/tab","%vector"); DEF(YgooScolsStabYDvacated_cell_marker,"goo/cols/tab","$vacated-cell-marker"); DEF(YgooScolsStabYPprimary_modulus,"goo/cols/tab","%primary-modulus"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); DEF(YgooScolsStabYOidx_setter,"goo/cols/tab","@idx-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); DEF(YgooScolsStabYtab_keys,"goo/cols/tab","tab-keys"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); DEF(YgooScolsStabYclrX,"goo/cols/tab","clr!"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); DEF(YgooScolsStabYfab_tab_vec,"goo/cols/tab","fab-tab-vec"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); DEF(YgooScolsStabYPsecondary_modulus,"goo/cols/tab","%secondary-modulus"); DEF(YgooScolsStabYPbucket_depth,"goo/cols/tab","%bucket-depth"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YgooScolsStabYPvacated_setter,"goo/cols/tab","%vacated-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); DEF(YgooScolsStabYLtab_enumG,"goo/cols/tab",""); DEF(YgooScolsStabYPcount_setter,"goo/cols/tab","%count-setter"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); DEF(YgooScolsStabYPdata_setter,"goo/cols/tab","%data-setter"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); DEF(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); DEF(YgooScolsStabYcopy_to_new_vector,"goo/cols/tab","copy-to-new-vector"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); DEF(YgooScolsStabYPcount,"goo/cols/tab","%count"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); DEF(YgooScolsStabYOidx,"goo/cols/tab","@idx"); EXT(YLboxG,"goo/boot",""); DEF(YgooScolsStabYPdata,"goo/cols/tab","%data"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); DEF(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); DEF(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); DEF(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); DEF(YgooScolsStabYOvec_setter,"goo/cols/tab","@vec-setter"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); DEF(YgooScolsStabYchoose_table_geometry,"goo/cols/tab","choose-table-geometry"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); DEF(YgooScolsStabYOfillX,"goo/cols/tab","@fill!"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_27); DEFLIT(lit_147); DEFLIT(lit_130); DEFLIT(lit_89); DEFLIT(lit_1); DEFLIT(lit_142); DEFLIT(lit_133); DEFLIT(lit_74); DEFLIT(lit_36); DEFLIT(lit_127); DEFLIT(lit_120); DEFLIT(lit_3); DEFLIT(lit_35); DEFLIT(lit_52); DEFLIT(lit_19); DEFLIT(lit_72); DEFLIT(lit_43); DEFLIT(lit_65); DEFLIT(lit_60); DEFLIT(lit_122); DEFLIT(lit_53); DEFLIT(lit_113); DEFLIT(lit_124); DEFLIT(lit_144); DEFLIT(lit_54); DEFLIT(lit_12); DEFLIT(lit_117); DEFLIT(lit_93); DEFLIT(lit_79); DEFLIT(lit_70); DEFLIT(lit_109); DEFLIT(lit_118); DEFLIT(lit_115); DEFLIT(lit_76); DEFLIT(lit_16); DEFLIT(lit_28); DEFLIT(lit_22); DEFLIT(lit_64); DEFLIT(lit_125); DEFLIT(lit_39); DEFLIT(lit_98); DEFLIT(lit_66); DEFLIT(lit_123); DEFLIT(lit_92); DEFLIT(lit_97); DEFLIT(lit_146); DEFLIT(lit_32); DEFLIT(lit_9); DEFLIT(lit_31); DEFLIT(lit_4); DEFLIT(lit_121); DEFLIT(lit_137); DEFLIT(lit_110); DEFLIT(lit_85); DEFLIT(lit_5); DEFLIT(lit_41); DEFLIT(lit_25); DEFLIT(lit_131); DEFLIT(lit_57); DEFLIT(lit_75); DEFLIT(lit_59); DEFLIT(lit_13); DEFLIT(lit_101); DEFLIT(lit_51); DEFLIT(lit_77); DEFLIT(lit_96); DEFLIT(lit_30); DEFLIT(lit_40); DEFLIT(lit_2); DEFLIT(lit_88); DEFLIT(lit_11); DEFLIT(lit_107); DEFLIT(lit_143); DEFLIT(lit_128); DEFLIT(lit_0); DEFLIT(lit_56); DEFLIT(lit_26); DEFLIT(lit_24); DEFLIT(lit_38); DEFLIT(lit_46); DEFLIT(lit_33); DEFLIT(lit_7); DEFLIT(lit_126); DEFLIT(lit_34); DEFLIT(lit_106); DEFLIT(lit_116); DEFLIT(lit_141); DEFLIT(lit_103); DEFLIT(lit_73); DEFLIT(lit_29); DEFLIT(lit_112); DEFLIT(lit_114); DEFLIT(lit_61); DEFLIT(lit_84); DEFLIT(lit_119); DEFLIT(lit_15); DEFLIT(lit_102); DEFLIT(lit_10); DEFLIT(lit_83); DEFLIT(lit_67); DEFLIT(lit_63); DEFLIT(lit_99); DEFLIT(lit_78); DEFLIT(lit_20); DEFLIT(lit_37); DEFLIT(lit_104); DEFLIT(lit_48); DEFLIT(lit_90); DEFLIT(lit_94); DEFLIT(lit_82); DEFLIT(lit_49); DEFLIT(lit_91); DEFLIT(lit_62); DEFLIT(lit_81); DEFLIT(lit_44); DEFLIT(lit_139); DEFLIT(lit_6); DEFLIT(lit_18); DEFLIT(lit_138); DEFLIT(lit_140); DEFLIT(lit_47); DEFLIT(lit_42); DEFLIT(lit_45); DEFLIT(lit_68); DEFLIT(lit_86); DEFLIT(lit_108); DEFLIT(lit_69); DEFLIT(lit_17); DEFLIT(lit_95); DEFLIT(lit_129); DEFLIT(lit_132); DEFLIT(lit_100); DEFLIT(lit_21); DEFLIT(lit_58); DEFLIT(lit_134); DEFLIT(lit_71); DEFLIT(lit_23); DEFLIT(lit_55); DEFLIT(lit_8); DEFLIT(lit_80); DEFLIT(lit_87); DEFLIT(lit_105); DEFLIT(lit_50); DEFLIT(lit_14); DEFLIT(lit_111); DEFLIT(lit_135); DEFLIT(lit_145); DEFLIT(lit_136); /* FUNCTIONS: */ LOCFOR(fun_tab_growth_factor_0); LOCFOR(fun_1); LOCFOR(fun_tab_growth_threshold_2); LOCFOR(fun_3); LOCFOR(fun_tab_shrink_threshold_4); LOCFOR(fun_5); LOCFOR(fun_Pvacated_6); LOCFOR(fun_Pvacated_setter_7); LOCFOR(fun_8); LOCFOR(fun_Pprimary_modulus_9); LOCFOR(fun_Psecondary_modulus_10); LOCFOR(fun_Pn_buckets_11); LOCFOR(fun_Pbucket_depth_12); LOCFOR(fun_Pdata_13); LOCFOR(fun_Pdata_setter_14); LOCFOR(fun_Pcount_15); LOCFOR(fun_Pcount_setter_16); LOCFOR(fun_17); LOCFOR(fun_Pvector_18); LOCFOR(fun_Pvector_setter_19); FUNFOR(YgooScolsStabYfab_tab_vec); FUNFOR(YgooScolsStabYOfillX); extern P YgooScolsStabYOvelt (P,P); extern P YgooScolsStabYOvelt_setter (P,P,P); LOCFOR(fun_clrX_24); LOCFOR(fun_key_test_25); LOCFOR(fun_tab_hash_26); LOCFOR(fun_fab_27); LOCFOR(fun_elt_or_28); LOCFOR(fun_elt_setter_29); LOCFOR(fun_del_30); LOCFOR(fun_delX_31); LOCFOR(fun_do_keyed_32); LOCFOR(fun_do_33); LOCFOR(fun_zapX_34); LOCFOR(fun_len_35); LOCFOR(fun_Ovec_36); LOCFOR(fun_Ovec_setter_37); LOCFOR(fun_Obuc_38); LOCFOR(fun_Obuc_setter_39); LOCFOR(fun_Oidx_40); LOCFOR(fun_Oidx_setter_41); LOCFOR(fun_OfinQ_42); LOCFOR(fun_43); LOCFOR(fun_enum_44); LOCFOR(fun_nxt_45); LOCFOR(fun_finQ_46); LOCFOR(fun_now_key_47); LOCFOR(fun_now_48); LOCFOR(fun_now_setter_49); LOCFOR(fun_50); LOCFOR(fun_tab_keys_51); LOCFOR(fun_grow_table_52); LOCFOR(fun_rehash_table_53); LOCFOR(fun_54); LOCFOR(fun_55); FUNFOR(YgooScolsStabYchoose_table_geometry); LOCFOR(fun_57); LOCFOR(fun_copy_to_new_vector_58); LOCFOR(fun_id_hash_59); LOCFOR(fun_id_hash_60); FUNFOR(YgooScolsStabYrot); LOCFOR(fun_id_hash_62); LOCFOR(fun_id_hash_63); LOCFOR(fun_id_hash_64); LOCFOR(fun_id_hash_65); LOCFOR(fun_key_type_66); LOCFOR(fun_elt_type_67); FUNFOR(YgooScolsStabYcase_insensitive_string_hash); FUNFOR(YgooScolsStabYcase_insensitive_string_equal); LOCFOR(fun_key_test_70); LOCFOR(fun_tab_hash_71); LOCFOR(fun_addX_72); LOCFOR(fun_memQ_73); LOCFOR(fun_74); LOCFOR(fun_elts_75); extern P YgooScolsStabY___main_0___ (); extern P YgooScolsStabY___main_1___ (); extern P YgooScolsStabY___main_2___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_tab_growth_factor_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYtab_growth_factor)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_5)); } LOCCODEDEF(fun_tab_growth_threshold_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYtab_growth_threshold)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_9)); } LOCCODEDEF(fun_tab_shrink_threshold_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYtab_shrink_threshold)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_13)); } LOCCODEDEF(fun_Pvacated_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPvacated)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pvacated_setter_7) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYPvacated)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_8) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_Pprimary_modulus_9) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPprimary_modulus)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Psecondary_modulus_10) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPsecondary_modulus)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pn_buckets_11) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPn_buckets)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pbucket_depth_12) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPbucket_depth)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pdata_13) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPdata)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pdata_setter_14) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYPdata)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pcount_15) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPcount)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pcount_setter_16) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYPcount)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_17) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_Pvector_18) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYPvector)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Pvector_setter_19) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYPvector)); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooScolsStabYfab_tab_vec) { P size_,fill_value_,n_buckets_,bucket_depth_,primary_modulus_,secondary_modulus_; P vF3495; P T0,T1; LINK_STACK(); ARG(size_, 0); ARG(fill_value_, 1); ARG(n_buckets_, 2); ARG(bucket_depth_, 3); ARG(primary_modulus_, 4); ARG(secondary_modulus_, 5); T1 = CALLN(1,VARREF(Ynew),9,VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPn_buckets),n_buckets_,VARREF(YgooScolsStabYPbucket_depth),bucket_depth_,VARREF(YgooScolsStabYPprimary_modulus),primary_modulus_,VARREF(YgooScolsStabYPsecondary_modulus),secondary_modulus_); vF3495 = T1; T0 = CALL2(1,VARREF(YgooScolsSrepYrep_fab),size_,fill_value_); CALL2(1,VARREF(YgooScolsStabYPdata_setter),T0,vF3495); UNLINK_STACK(); RET(vF3495); } FUNCODEDEF(YgooScolsStabYOfillX) { P x_,fill_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(fill_, 1); T1 = CALL1(1,VARREF(YgooScolsStabYPdata),x_); T0 = CALL2(1,VARREF(YgooScolsSrepYrep_fillX),T1,fill_); UNLINK_STACK(); QRET(T0); } P YgooScolsStabYOvelt(P vector_,P index_) { P xF3497; P xF3496; P T0,T1,T2; DEFCREGS(); T1 = XCALL1(1,VARREF(YgooScolsStabYPdata),vector_); xF3496 = index_; xF3497 = xF3496; T2 = (P)YPiGG(xF3497,(P)2); T0 = (P)YPrelt(T1,T2); return T0; } P YgooScolsStabYOvelt_setter(P new_value_,P vector_,P index_) { P xF3499; P xF3498; P T0,T1,T2; DEFCREGS(); T1 = XCALL1(1,VARREF(YgooScolsStabYPdata),vector_); xF3498 = index_; xF3499 = xF3498; T2 = (P)YPiGG(xF3499,(P)2); T0 = (P)YPrelt_setter(new_value_,T1,T2); return T0; } LOCCODEDEF(fun_clrX_24) { P vector_,fill_value_; P T0; LINK_STACK(); ARG(vector_, 0); ARG(fill_value_, 1); CALL2(1,VARREF(YgooScolsStabYOfillX),vector_,fill_value_); T0 = CALL2(1,VARREF(YgooScolsStabYPvacated_setter),YPint((P)0),vector_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_key_test_25) { P U_; LINK_STACK(); ARG(U_, 0); UNLINK_STACK(); RET(VARREF(YgooSmacrosYEE)); } LOCCODEDEF(fun_tab_hash_26) { P U_; LINK_STACK(); ARG(U_, 0); UNLINK_STACK(); RET(VARREF(YgooScolsStabYid_hash)); } LOCCODEDEF(fun_fab_27) { P type_,size_; P tableF3503; P bucket_depthF3502; P n_bucketsF3501; P tup28F3500; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(type_, 0); ARG(size_, 1); T7 = CALL1(1,VARREF(YgooScolsStabYchoose_table_geometry),size_); tup28F3500 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYelt),tup28F3500,YPint((P)0)); n_bucketsF3501 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYelt),tup28F3500,YPint((P)1)); bucket_depthF3502 = T5; T4 = CALL1(1,VARREF(Ynew),type_); tableF3503 = T4; T2 = CALL2(1,VARREF(YgooSmathYT),bucket_depthF3502,YPint((P)2)); T1 = CALL2(1,VARREF(YgooSmathYT),n_bucketsF3501,T2); T3 = CALL2(1,VARREF(YgooSmathY_),n_bucketsF3501,YPint((P)2)); T0 = CALLN(1,VARREF(YgooScolsStabYfab_tab_vec),6,T1,VARREF(YgooScolsStabYDnul_cell_marker),n_bucketsF3501,bucket_depthF3502,n_bucketsF3501,T3); CALL2(1,VARREF(YgooScolsStabYPvector_setter),T0,tableF3503); UNLINK_STACK(); RET(tableF3503); } LOCCODEDEF(fun_elt_or_28) { P table_,key_,default_; P this_keyF3516; P raw_indexF3515; P iF3514; P indexF3513; P probesF3512; P bucket_indexF3511; P bucket_offsetF3510; P bucket_indexF3509; P hashF3508; P bucket_depthF3507; P n_bucketsF3506; P vectorF3505; P test_functionF3504; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; LINK_STACK(); ARG(table_, 0); ARG(key_, 1); ARG(default_, 2); T31 = CALL1(1,VARREF(YgooScolsScolYkey_test),table_); test_functionF3504 = T31; T30 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3505 = T30; T29 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3505); n_bucketsF3506 = T29; T28 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3505); bucket_depthF3507 = T28; T27 = CALL1(1,VARREF(YgooScolsStabYtab_hash),table_); T26 = CALL1(1,T27,key_); check_type(T26,VARREF(YLintG)); hashF3508 = T26; T25 = CALL1(1,VARREF(YgooScolsStabYPprimary_modulus),vectorF3505); T24 = CALL2(1,VARREF(YgooSmathYmod),hashF3508,T25); bucket_indexF3509 = T24; T23 = CALL1(1,VARREF(YgooScolsStabYPsecondary_modulus),vectorF3505); T22 = CALL2(1,VARREF(YgooSmathYmod),hashF3508,T23); T21 = CALL2(1,VARREF(YgooSmathYA),T22,YPint((P)1)); bucket_offsetF3510 = T21; bucket_indexF3511 = bucket_indexF3509; probesF3512 = YPint((P)0); LOOP_130: { P a130_0,a130_1; T1 = CALL2(1,VARREF(YgooSmagYL),probesF3512,n_bucketsF3506); if (T1 != YPfalse) { T19 = CALL2(1,VARREF(YgooSmathYT),bucket_depthF3507,YPint((P)2)); T18 = CALL2(1,VARREF(YgooSmathYT),bucket_indexF3511,T19); indexF3513 = T18; iF3514 = YPint((P)0); raw_indexF3515 = indexF3513; LOOP_131: { P a131_0,a131_1; T3 = CALL2(1,VARREF(YgooSmagYL),iF3514,bucket_depthF3507); if (T3 != YPfalse) { T14 = (P)YgooScolsStabYOvelt(vectorF3505,raw_indexF3515); this_keyF3516 = T14; T5 = CALL2(1,VARREF(YgooSmacrosYEE),this_keyF3516,VARREF(YgooScolsStabYDnul_cell_marker)); if (T5 != YPfalse) { T4 = default_; } else { T7 = CALL2(0,test_functionF3504,key_,this_keyF3516); if (T7 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmathYA),raw_indexF3515,bucket_depthF3507); T8 = (P)YgooScolsStabYOvelt(vectorF3505,T9); T6 = T8; } else { if (YPtrue != YPfalse) { T12 = CALL2(1,VARREF(YgooSmathYA),iF3514,YPint((P)1)); T13 = CALL2(1,VARREF(YgooSmathYA),raw_indexF3515,YPint((P)1)); a131_0 = T12; a131_1 = T13; iF3514 = a131_0; raw_indexF3515 = a131_1; goto LOOP_131; T10 = T11; } else { T10 = YPfalse; } T6 = T10; } T4 = T6; } T2 = T4; } else { T16 = CALL3(1,VARREF(YgooSmathYmod_),bucket_indexF3511,bucket_offsetF3510,n_bucketsF3506); T17 = CALL2(1,VARREF(YgooSmathYA),probesF3512,YPint((P)1)); a130_0 = T16; a130_1 = T17; bucket_indexF3511 = a130_0; probesF3512 = a130_1; goto LOOP_130; T2 = T15; } } T0 = T2; } else { T20 = CALL1(1,VARREF(Yinternal_error),LITREF(lit_62)); T0 = T20; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_elt_setter_29) { P value_,table_,key_; P tmpF3532; P indexF3531; P this_keyF3530; P raw_indexF3529; P iF3528; P vacancy_indexF3527; P indexF3526; P probesF3525; P bucket_indexF3524; P bucket_offsetF3523; P bucket_indexF3522; P hashF3521; P n_bucketsF3520; P bucket_depthF3519; P test_functionF3518; P vectorF3517; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81; LINK_STACK(); ARG(value_, 0); ARG(table_, 1); ARG(key_, 2); T81 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3517 = T81; T2 = CALL1(1,VARREF(YgooScolsStabYPcount),table_); T6 = vectorF3517; T5 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),T6); T8 = vectorF3517; T7 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),T8); T4 = CALL2(1,VARREF(YgooSmathYT),T5,T7); T9 = CALL1(1,VARREF(YgooScolsStabYtab_growth_threshold),table_); T3 = CALL2(1,VARREF(YgooSmathYT),T4,T9); T1 = CALL2(1,VARREF(YgooSmagYGE),T2,T3); if (T1 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsStabYgrow_table),table_); T11 = CALL1(1,VARREF(YgooScolsStabYPvector),T12); T10 = vectorF3517 = T11; } else { T16 = CALL1(1,VARREF(YgooScolsStabYPcount),table_); T18 = vectorF3517; T17 = CALL1(1,VARREF(YgooScolsStabYPvacated),T18); T15 = CALL2(1,VARREF(YgooSmathYA),T16,T17); T22 = vectorF3517; T21 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),T22); T24 = vectorF3517; T23 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),T24); T20 = CALL2(1,VARREF(YgooSmathYT),T21,T23); T25 = CALL1(1,VARREF(YgooScolsStabYtab_growth_threshold),table_); T19 = CALL2(1,VARREF(YgooSmathYT),T20,T25); T14 = CALL2(1,VARREF(YgooSmagYG),T15,T19); if (T14 != YPfalse) { T28 = CALL1(1,VARREF(YgooScolsStabYrehash_table),table_); T27 = CALL1(1,VARREF(YgooScolsStabYPvector),T28); T26 = vectorF3517 = T27; T13 = T26; } else { T13 = YPfalse; } } T80 = CALL1(1,VARREF(YgooScolsScolYkey_test),table_); test_functionF3518 = T80; T79 = vectorF3517; T78 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),T79); bucket_depthF3519 = T78; T77 = vectorF3517; T76 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),T77); n_bucketsF3520 = T76; T75 = CALL1(1,VARREF(YgooScolsStabYtab_hash),table_); T74 = CALL1(1,T75,key_); check_type(T74,VARREF(YLintG)); hashF3521 = T74; T73 = vectorF3517; T72 = CALL1(1,VARREF(YgooScolsStabYPprimary_modulus),T73); T71 = CALL2(1,VARREF(YgooSmathYmod),hashF3521,T72); bucket_indexF3522 = T71; T70 = vectorF3517; T69 = CALL1(1,VARREF(YgooScolsStabYPsecondary_modulus),T70); T68 = CALL2(1,VARREF(YgooSmathYmod),hashF3521,T69); T67 = CALL2(1,VARREF(YgooSmathYA),T68,YPint((P)1)); bucket_offsetF3523 = T67; bucket_indexF3524 = bucket_indexF3522; check_type(YPint((P)0),VARREF(YLintG)); probesF3525 = YPint((P)0); LOOP_132: { P a132_0,a132_1; T30 = CALL2(1,VARREF(YgooSmagYL),probesF3525,n_bucketsF3520); if (T30 != YPfalse) { T65 = CALL2(1,VARREF(YgooSmathYT),bucket_depthF3519,YPint((P)2)); T64 = CALL2(1,VARREF(YgooSmathYT),bucket_indexF3524,T65); indexF3526 = T64; vacancy_indexF3527 = YPfalse; check_type(YPint((P)0),VARREF(YLintG)); iF3528 = YPint((P)0); check_type(indexF3526,VARREF(YLintG)); raw_indexF3529 = indexF3526; LOOP_133: { P a133_0,a133_1,a133_2; T32 = CALL2(1,VARREF(YgooSmagYL),iF3528,bucket_depthF3519); if (T32 != YPfalse) { T60 = vectorF3517; T59 = (P)YgooScolsStabYOvelt(T60,raw_indexF3529); this_keyF3530 = T59; T34 = CALL2(1,VARREF(YgooSmacrosYEE),this_keyF3530,VARREF(YgooScolsStabYDnul_cell_marker)); if (T34 != YPfalse) { if (vacancy_indexF3527 != YPfalse) { T43 = vectorF3517; T42 = CALL1(1,VARREF(YgooScolsStabYPvacated),T43); T41 = CALL2(1,VARREF(YgooSmathY_),T42,YPint((P)1)); T44 = vectorF3517; CALL2(1,VARREF(YgooScolsStabYPvacated_setter),T41,T44); T40 = vacancy_indexF3527; } else { T40 = raw_indexF3529; } indexF3531 = T40; T35 = vectorF3517; (P)YgooScolsStabYOvelt_setter(key_,T35,indexF3531); T36 = vectorF3517; T37 = CALL2(1,VARREF(YgooSmathYA),indexF3531,bucket_depthF3519); (P)YgooScolsStabYOvelt_setter(value_,T36,T37); T39 = CALL1(1,VARREF(YgooScolsStabYPcount),table_); T38 = CALL2(1,VARREF(YgooSmathYA),T39,YPint((P)1)); CALL2(1,VARREF(YgooScolsStabYPcount_setter),T38,table_); T33 = value_; } else { T46 = CALL2(1,VARREF(YgooSmacrosYEE),this_keyF3530,VARREF(YgooScolsStabYDvacated_cell_marker)); if (T46 != YPfalse) { tmpF3532 = vacancy_indexF3527; if (tmpF3532 != YPfalse) { T48 = tmpF3532; } else { T48 = raw_indexF3529; } T49 = CALL2(1,VARREF(YgooSmathYA),iF3528,YPint((P)1)); T50 = CALL2(1,VARREF(YgooSmathYA),raw_indexF3529,YPint((P)1)); a133_0 = T48; a133_1 = T49; a133_2 = T50; vacancy_indexF3527 = a133_0; iF3528 = a133_1; raw_indexF3529 = a133_2; goto LOOP_133; T45 = T47; } else { T52 = CALL2(1,test_functionF3518,key_,this_keyF3530); if (T52 != YPfalse) { T53 = vectorF3517; T54 = CALL2(1,VARREF(YgooSmathYA),raw_indexF3529,bucket_depthF3519); (P)YgooScolsStabYOvelt_setter(value_,T53,T54); T51 = value_; } else { if (YPtrue != YPfalse) { T57 = CALL2(1,VARREF(YgooSmathYA),iF3528,YPint((P)1)); T58 = CALL2(1,VARREF(YgooSmathYA),raw_indexF3529,YPint((P)1)); a133_0 = vacancy_indexF3527; a133_1 = T57; a133_2 = T58; vacancy_indexF3527 = a133_0; iF3528 = a133_1; raw_indexF3529 = a133_2; goto LOOP_133; T55 = T56; } else { T55 = YPfalse; } T51 = T55; } T45 = T51; } T33 = T45; } T31 = T33; } else { T62 = CALL3(1,VARREF(YgooSmathYmod_),bucket_indexF3524,bucket_offsetF3523,n_bucketsF3520); T63 = CALL2(1,VARREF(YgooSmathYA),probesF3525,YPint((P)1)); a132_0 = T62; a132_1 = T63; bucket_indexF3524 = a132_0; probesF3525 = a132_1; goto LOOP_132; T31 = T61; } } T29 = T31; } else { T66 = CALL1(1,VARREF(Yinternal_error),LITREF(lit_65)); T29 = T66; } } UNLINK_STACK(); QRET(T29); } LOCCODEDEF(fun_del_30) { P x_,key_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(key_, 1); T1 = CALL1(1,VARREF(YgooScolsScolYdup),x_); T0 = CALL2(1,VARREF(YgooScolsScolxYdelX),T1,key_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_delX_31) { P table_,key_; P this_keyF3545; P raw_indexF3544; P iF3543; P indexF3542; P probesF3541; P bucket_indexF3540; P bucket_offsetF3539; P bucket_indexF3538; P hashF3537; P bucket_depthF3536; P n_bucketsF3535; P vectorF3534; P test_functionF3533; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35; LINK_STACK(); ARG(table_, 0); ARG(key_, 1); T35 = CALL1(1,VARREF(YgooScolsScolYkey_test),table_); test_functionF3533 = T35; T34 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3534 = T34; T33 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3534); n_bucketsF3535 = T33; T32 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3534); bucket_depthF3536 = T32; T31 = CALL1(1,VARREF(YgooScolsStabYtab_hash),table_); T30 = CALL1(1,T31,key_); check_type(T30,VARREF(YLintG)); hashF3537 = T30; T29 = CALL1(1,VARREF(YgooScolsStabYPprimary_modulus),vectorF3534); T28 = CALL2(1,VARREF(YgooSmathYmod),hashF3537,T29); bucket_indexF3538 = T28; T27 = CALL1(1,VARREF(YgooScolsStabYPsecondary_modulus),vectorF3534); T26 = CALL2(1,VARREF(YgooSmathYmod),hashF3537,T27); T25 = CALL2(1,VARREF(YgooSmathYA),T26,YPint((P)1)); bucket_offsetF3539 = T25; bucket_indexF3540 = bucket_indexF3538; check_type(YPint((P)0),VARREF(YLintG)); probesF3541 = YPint((P)0); LOOP_134: { P a134_0,a134_1; T1 = CALL2(1,VARREF(YgooSmagYL),probesF3541,n_bucketsF3535); if (T1 != YPfalse) { T23 = CALL2(1,VARREF(YgooSmathYT),bucket_depthF3536,YPint((P)2)); T22 = CALL2(1,VARREF(YgooSmathYT),bucket_indexF3540,T23); check_type(T22,VARREF(YLintG)); indexF3542 = T22; check_type(YPint((P)0),VARREF(YLintG)); iF3543 = YPint((P)0); check_type(indexF3542,VARREF(YLintG)); raw_indexF3544 = indexF3542; LOOP_135: { P a135_0,a135_1; T3 = CALL2(1,VARREF(YgooSmagYL),iF3543,bucket_depthF3536); if (T3 != YPfalse) { T18 = (P)YgooScolsStabYOvelt(vectorF3534,raw_indexF3544); this_keyF3545 = T18; T5 = CALL2(1,VARREF(YgooSmacrosYEE),this_keyF3545,VARREF(YgooScolsStabYDnul_cell_marker)); if (T5 != YPfalse) { T4 = YPfalse; } else { T8 = CALL2(1,VARREF(YgooSlogYNEE),this_keyF3545,VARREF(YgooScolsStabYDvacated_cell_marker)); if (T8 != YPfalse) { T9 = CALL2(1,test_functionF3533,key_,this_keyF3545); T7 = T9; } else { T7 = YPfalse; } if (T7 != YPfalse) { (P)YgooScolsStabYOvelt_setter(VARREF(YgooScolsStabYDvacated_cell_marker),vectorF3534,raw_indexF3544); T11 = CALL1(1,VARREF(YgooScolsStabYPcount),table_); T10 = CALL2(1,VARREF(YgooSmathY_),T11,YPint((P)1)); CALL2(1,VARREF(YgooScolsStabYPcount_setter),T10,table_); T13 = CALL1(1,VARREF(YgooScolsStabYPvacated),vectorF3534); T12 = CALL2(1,VARREF(YgooSmathYA),T13,YPint((P)1)); CALL2(1,VARREF(YgooScolsStabYPvacated_setter),T12,vectorF3534); T6 = YPtrue; } else { if (YPtrue != YPfalse) { T16 = CALL2(1,VARREF(YgooSmathYA),iF3543,YPint((P)1)); T17 = CALL2(1,VARREF(YgooSmathYA),raw_indexF3544,YPint((P)1)); a135_0 = T16; a135_1 = T17; iF3543 = a135_0; raw_indexF3544 = a135_1; goto LOOP_135; T14 = T15; } else { T14 = YPfalse; } T6 = T14; } T4 = T6; } T2 = T4; } else { T20 = CALL3(1,VARREF(YgooSmathYmod_),bucket_indexF3540,bucket_offsetF3539,n_bucketsF3535); T21 = CALL2(1,VARREF(YgooSmathYA),probesF3541,YPint((P)1)); a134_0 = T20; a134_1 = T21; bucket_indexF3540 = a134_0; probesF3541 = a134_1; goto LOOP_134; T2 = T19; } } T0 = T2; } else { T24 = CALL1(1,VARREF(Yinternal_error),LITREF(lit_70)); T0 = T24; } } UNLINK_STACK(); RET(table_); } LOCCODEDEF(fun_do_keyed_32) { P function_,table_; P indexF3553; P tmpF3552; P keyF3551; P iF3550; P bF3549; P depthF3548; P n_bucketsF3547; P vectorF3546; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(function_, 0); ARG(table_, 1); T24 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3546 = T24; T23 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3546); n_bucketsF3547 = T23; T22 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3546); depthF3548 = T22; check_type(YPint((P)0),VARREF(YLintG)); bF3549 = YPint((P)0); LOOP_136: { P a136_0; T1 = CALL2(1,VARREF(YgooSmagYL),bF3549,n_bucketsF3547); if (T1 != YPfalse) { check_type(YPint((P)0),VARREF(YLintG)); iF3550 = YPint((P)0); LOOP_137: { P a137_0; T3 = CALL2(1,VARREF(YgooSmagYL),iF3550,depthF3548); if (T3 != YPfalse) { T19 = CALL2(1,VARREF(YgooSmathYT),depthF3548,YPint((P)2)); T18 = CALL2(1,VARREF(YgooSmathYT),bF3549,T19); T17 = CALL2(1,VARREF(YgooSmathYA),iF3550,T18); T16 = (P)YgooScolsStabYOvelt(vectorF3546,T17); keyF3551 = T16; T7 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3551,VARREF(YgooScolsStabYDnul_cell_marker)); tmpF3552 = T7; if (tmpF3552 != YPfalse) { T5 = tmpF3552; } else { T6 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3551,VARREF(YgooScolsStabYDvacated_cell_marker)); T5 = T6; } T4 = CALL1(1,VARREF(Ynot),T5); if (T4 != YPfalse) { T13 = CALL2(1,VARREF(YgooSmathYT),depthF3548,YPint((P)2)); T12 = CALL2(1,VARREF(YgooSmathYT),bF3549,T13); T11 = CALL2(1,VARREF(YgooSmathYA),T12,depthF3548); T10 = CALL2(1,VARREF(YgooSmathYA),iF3550,T11); indexF3553 = T10; T9 = (P)YgooScolsStabYOvelt(vectorF3546,indexF3553); T8 = CALL2(1,function_,keyF3551,T9); } else { } T15 = CALL2(1,VARREF(YgooSmathYA),iF3550,YPint((P)1)); a137_0 = T15; iF3550 = a137_0; goto LOOP_137; T2 = T14; } else { T2 = YPfalse; } } T21 = CALL2(1,VARREF(YgooSmathYA),bF3549,YPint((P)1)); a136_0 = T21; bF3549 = a136_0; goto LOOP_136; T0 = T20; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_33) { P function_,table_; P indexF3561; P tmpF3560; P keyF3559; P iF3558; P bF3557; P depthF3556; P n_bucketsF3555; P vectorF3554; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(function_, 0); ARG(table_, 1); T24 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3554 = T24; T23 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3554); n_bucketsF3555 = T23; T22 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3554); depthF3556 = T22; check_type(YPint((P)0),VARREF(YLintG)); bF3557 = YPint((P)0); LOOP_138: { P a138_0; T1 = CALL2(1,VARREF(YgooSmagYL),bF3557,n_bucketsF3555); if (T1 != YPfalse) { check_type(YPint((P)0),VARREF(YLintG)); iF3558 = YPint((P)0); LOOP_139: { P a139_0; T3 = CALL2(1,VARREF(YgooSmagYL),iF3558,depthF3556); if (T3 != YPfalse) { T19 = CALL2(1,VARREF(YgooSmathYT),depthF3556,YPint((P)2)); T18 = CALL2(1,VARREF(YgooSmathYT),bF3557,T19); T17 = CALL2(1,VARREF(YgooSmathYA),iF3558,T18); T16 = (P)YgooScolsStabYOvelt(vectorF3554,T17); keyF3559 = T16; T7 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3559,VARREF(YgooScolsStabYDnul_cell_marker)); tmpF3560 = T7; if (tmpF3560 != YPfalse) { T5 = tmpF3560; } else { T6 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3559,VARREF(YgooScolsStabYDvacated_cell_marker)); T5 = T6; } T4 = CALL1(1,VARREF(Ynot),T5); if (T4 != YPfalse) { T13 = CALL2(1,VARREF(YgooSmathYT),depthF3556,YPint((P)2)); T12 = CALL2(1,VARREF(YgooSmathYT),bF3557,T13); T11 = CALL2(1,VARREF(YgooSmathYA),T12,depthF3556); T10 = CALL2(1,VARREF(YgooSmathYA),iF3558,T11); indexF3561 = T10; T9 = (P)YgooScolsStabYOvelt(vectorF3554,indexF3561); T8 = CALL1(1,function_,T9); } else { } T15 = CALL2(1,VARREF(YgooSmathYA),iF3558,YPint((P)1)); a139_0 = T15; iF3558 = a139_0; goto LOOP_139; T2 = T14; } else { T2 = YPfalse; } } T21 = CALL2(1,VARREF(YgooSmathYA),bF3557,YPint((P)1)); a138_0 = T21; bF3557 = a138_0; goto LOOP_138; T0 = T20; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_zapX_34) { P table_; P T0; LINK_STACK(); ARG(table_, 0); T0 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); CALL2(1,VARREF(YgooScolsStabYclrX),T0,VARREF(YgooScolsStabYDnul_cell_marker)); CALL2(1,VARREF(YgooScolsStabYPcount_setter),YPint((P)0),table_); UNLINK_STACK(); RET(table_); } LOCCODEDEF(fun_len_35) { P table_; P T0; LINK_STACK(); ARG(table_, 0); T0 = CALL1(1,VARREF(YgooScolsStabYPcount),table_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_Ovec_36) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYOvec)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Ovec_setter_37) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYOvec)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Obuc_38) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYObuc)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Obuc_setter_39) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYObuc)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Oidx_40) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYOidx)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Oidx_setter_41) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsStabYOidx)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_OfinQ_42) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsStabYOfinQ)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_43) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_enum_44) { P table_; P tmpF3568; P keyF3567; P iF3566; P bF3565; P depthF3564; P n_bucketsF3563; P vectorF3562; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(table_, 0); T2 = CALL1(1,VARREF(YgooStypesYlen),table_); T1 = CALL2(1,VARREF(YgooSlogYE),T2,YPint((P)0)); if (T1 != YPfalse) { T0 = VARREF(YgooScolsStabYDfin_enum); } else { T22 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3562 = T22; T21 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3562); n_bucketsF3563 = T21; T20 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3562); depthF3564 = T20; check_type(YPint((P)0),VARREF(YLintG)); bF3565 = YPint((P)0); LOOP_140: { P a140_0; T4 = CALL2(1,VARREF(YgooSmagYL),bF3565,n_bucketsF3563); if (T4 != YPfalse) { check_type(YPint((P)0),VARREF(YLintG)); iF3566 = YPint((P)0); LOOP_141: { P a141_0; T6 = CALL2(1,VARREF(YgooSmagYL),iF3566,depthF3564); if (T6 != YPfalse) { T17 = CALL2(1,VARREF(YgooSmathYT),depthF3564,YPint((P)2)); T16 = CALL2(1,VARREF(YgooSmathYT),bF3565,T17); T15 = CALL2(1,VARREF(YgooSmathYA),iF3566,T16); T14 = (P)YgooScolsStabYOvelt(vectorF3562,T15); keyF3567 = T14; T10 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3567,VARREF(YgooScolsStabYDnul_cell_marker)); tmpF3568 = T10; if (tmpF3568 != YPfalse) { T8 = tmpF3568; } else { T9 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3567,VARREF(YgooScolsStabYDvacated_cell_marker)); T8 = T9; } if (T8 != YPfalse) { T12 = CALL2(1,VARREF(YgooSmathYA),iF3566,YPint((P)1)); a141_0 = T12; iF3566 = a141_0; goto LOOP_141; T7 = T11; } else { T13 = CALLN(1,VARREF(Ynew),7,VARREF(YgooScolsStabYLtab_enumG),VARREF(YgooScolsStabYOvec),vectorF3562,VARREF(YgooScolsStabYObuc),bF3565,VARREF(YgooScolsStabYOidx),iF3566); T7 = T13; } T5 = T7; } else { T19 = CALL2(1,VARREF(YgooSmathYA),bF3565,YPint((P)1)); a140_0 = T19; bF3565 = a140_0; goto LOOP_140; T5 = T18; } } T3 = T5; } else { T3 = VARREF(YgooScolsStabYDfin_enum); } } T0 = T3; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nxt_45) { P e_; P x_1425F3579; P tmpF3578; P keyF3577; P iF3576; P firstQF3575; P bF3574; P indexF3573; P bucketF3572; P depthF3571; P n_bucketsF3570; P vectorF3569; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22; LINK_STACK(); ARG(e_, 0); T22 = CALL1(1,VARREF(YgooScolsStabYOvec),e_); vectorF3569 = T22; T21 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3569); n_bucketsF3570 = T21; T20 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3569); depthF3571 = T20; T19 = CALL1(1,VARREF(YgooScolsStabYObuc),e_); bucketF3572 = T19; T18 = CALL1(1,VARREF(YgooScolsStabYOidx),e_); indexF3573 = T18; check_type(bucketF3572,VARREF(YLintG)); bF3574 = bucketF3572; firstQF3575 = YPtrue; LOOP_142: { P a142_0,a142_1; T1 = CALL2(1,VARREF(YgooSmagYL),bF3574,n_bucketsF3570); if (T1 != YPfalse) { if (firstQF3575 != YPfalse) { T17 = CALL2(1,VARREF(YgooSmathYA),indexF3573,YPint((P)1)); T16 = T17; } else { T16 = YPint((P)0); } check_type(T16,VARREF(YLintG)); iF3576 = T16; LOOP_143: { P a143_0; T3 = CALL2(1,VARREF(YgooSmagYL),iF3576,depthF3571); if (T3 != YPfalse) { T13 = CALL2(1,VARREF(YgooSmathYT),depthF3571,YPint((P)2)); T12 = CALL2(1,VARREF(YgooSmathYT),bF3574,T13); T11 = CALL2(1,VARREF(YgooSmathYA),iF3576,T12); T10 = (P)YgooScolsStabYOvelt(vectorF3569,T11); keyF3577 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3577,VARREF(YgooScolsStabYDnul_cell_marker)); tmpF3578 = T7; if (tmpF3578 != YPfalse) { T5 = tmpF3578; } else { T6 = CALL2(1,VARREF(YgooSmacrosYEE),keyF3577,VARREF(YgooScolsStabYDvacated_cell_marker)); T5 = T6; } if (T5 != YPfalse) { T9 = CALL2(1,VARREF(YgooSmathYA),iF3576,YPint((P)1)); a143_0 = T9; iF3576 = a143_0; goto LOOP_143; T4 = T8; } else { x_1425F3579 = e_; CALL2(1,VARREF(YgooScolsStabYOvec_setter),vectorF3569,x_1425F3579); CALL2(1,VARREF(YgooScolsStabYObuc_setter),bF3574,x_1425F3579); CALL2(1,VARREF(YgooScolsStabYOidx_setter),iF3576,x_1425F3579); T4 = x_1425F3579; } T2 = T4; } else { T15 = CALL2(1,VARREF(YgooSmathYA),bF3574,YPint((P)1)); a142_0 = T15; a142_1 = YPfalse; bF3574 = a142_0; firstQF3575 = a142_1; goto LOOP_142; T2 = T14; } } T0 = T2; } else { T0 = VARREF(YgooScolsStabYDfin_enum); } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_46) { P e_; P T0; LINK_STACK(); ARG(e_, 0); T0 = CALL1(1,VARREF(YgooScolsStabYOfinQ),e_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_now_key_47) { P e_; P depthF3581; P vectorF3580; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(e_, 0); T7 = CALL1(1,VARREF(YgooScolsStabYOvec),e_); vectorF3580 = T7; T6 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3580); depthF3581 = T6; T2 = CALL1(1,VARREF(YgooScolsStabYOidx),e_); T4 = CALL1(1,VARREF(YgooScolsStabYObuc),e_); T5 = CALL2(1,VARREF(YgooSmathYT),depthF3581,YPint((P)2)); T3 = CALL2(1,VARREF(YgooSmathYT),T4,T5); T1 = CALL2(1,VARREF(YgooSmathYA),T2,T3); T0 = (P)YgooScolsStabYOvelt(vectorF3580,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_48) { P e_; P depthF3583; P vectorF3582; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(e_, 0); T8 = CALL1(1,VARREF(YgooScolsStabYOvec),e_); vectorF3582 = T8; T7 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3582); depthF3583 = T7; T2 = CALL1(1,VARREF(YgooScolsStabYOidx),e_); T5 = CALL1(1,VARREF(YgooScolsStabYObuc),e_); T6 = CALL2(1,VARREF(YgooSmathYT),depthF3583,YPint((P)2)); T4 = CALL2(1,VARREF(YgooSmathYT),T5,T6); T3 = CALL2(1,VARREF(YgooSmathYA),depthF3583,T4); T1 = CALL2(1,VARREF(YgooSmathYA),T2,T3); T0 = (P)YgooScolsStabYOvelt(vectorF3582,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_setter_49) { P value_,e_; P depthF3586; P indexF3585; P vectorF3584; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(value_, 0); ARG(e_, 1); T8 = CALL1(1,VARREF(YgooScolsStabYOvec),e_); vectorF3584 = T8; T7 = CALL1(1,VARREF(YgooScolsStabYOidx),e_); indexF3585 = T7; T6 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3584); depthF3586 = T6; T4 = CALL1(1,VARREF(YgooScolsStabYObuc),e_); T5 = CALL2(1,VARREF(YgooSmathYT),depthF3586,YPint((P)2)); T3 = CALL2(1,VARREF(YgooSmathYT),T4,T5); T2 = CALL2(1,VARREF(YgooSmathYA),depthF3586,T3); T1 = CALL2(1,VARREF(YgooSmathYA),indexF3585,T2); T0 = (P)YgooScolsStabYOvelt_setter(value_,vectorF3584,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_50) { P k_,v_; P UF3587; P T0,T1,T2; LINK_STACK(); ARG(k_, 0); ARG(v_, 1); T2 = BOXGET(FREEREF(0)); UF3587 = T2; T1 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3587,k_); T0 = BOXPUT(T1,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_tab_keys_51) { P table_; P packer_F3588; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(table_, 0); T4 = CALL1(1,VARREF(YgooSpackerYpacker_fab),VARREF(YLlstG)); packer_F3588 = T4; packer_F3588 = BOXFAB(packer_F3588); T1 = FUNFAB(fun_50,1,packer_F3588); CALL2(1,VARREF(YgooScolsScolYdo_keyed),T1,table_); T3 = BOXGET(packer_F3588); T2 = CALL1(1,VARREF(YgooSpackerYpacker_res),T3); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_grow_table_52) { P table_; P new_vectorF3593; P new_bucket_depthF3592; P new_n_bucketsF3591; P tup29F3590; P vectorF3589; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(table_, 0); T13 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3589 = T13; T10 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3589); T11 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3589); T9 = CALL2(1,VARREF(YgooSmathYT),T10,T11); T12 = CALL1(1,VARREF(YgooScolsStabYtab_growth_factor),table_); T8 = CALL2(1,VARREF(YgooSmathYT),T9,T12); T7 = CALL1(1,VARREF(YgooSmathYfloor),T8); T6 = CALL1(1,VARREF(YgooScolsStabYchoose_table_geometry),T7); tup29F3590 = T6; T5 = CALL2(1,VARREF(YgooSmacrosYelt),tup29F3590,YPint((P)0)); new_n_bucketsF3591 = T5; T4 = CALL2(1,VARREF(YgooSmacrosYelt),tup29F3590,YPint((P)1)); new_bucket_depthF3592 = T4; T2 = CALL2(1,VARREF(YgooSmathYT),new_bucket_depthF3592,YPint((P)2)); T1 = CALL2(1,VARREF(YgooSmathYT),new_n_bucketsF3591,T2); T3 = CALL2(1,VARREF(YgooSmathY_),new_n_bucketsF3591,YPint((P)2)); T0 = CALLN(1,VARREF(YgooScolsStabYfab_tab_vec),6,T1,VARREF(YgooScolsStabYDnul_cell_marker),new_n_bucketsF3591,new_bucket_depthF3592,new_n_bucketsF3591,T3); new_vectorF3593 = T0; CALL2(1,VARREF(YgooScolsStabYcopy_to_new_vector),table_,new_vectorF3593); CALL2(1,VARREF(YgooScolsStabYPvector_setter),new_vectorF3593,table_); UNLINK_STACK(); RET(table_); } LOCCODEDEF(fun_rehash_table_53) { P table_; P new_vectorF3595; P vectorF3594; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(table_, 0); T9 = CALL1(1,VARREF(YgooScolsStabYPvector),table_); vectorF3594 = T9; T2 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3594); T4 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3594); T3 = CALL2(1,VARREF(YgooSmathYT),T4,YPint((P)2)); T1 = CALL2(1,VARREF(YgooSmathYT),T2,T3); T5 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),vectorF3594); T6 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),vectorF3594); T7 = CALL1(1,VARREF(YgooScolsStabYPprimary_modulus),vectorF3594); T8 = CALL1(1,VARREF(YgooScolsStabYPsecondary_modulus),vectorF3594); T0 = CALLN(1,VARREF(YgooScolsStabYfab_tab_vec),6,T1,VARREF(YgooScolsStabYDnul_cell_marker),T5,T6,T7,T8); new_vectorF3595 = T0; CALL2(1,VARREF(YgooScolsStabYcopy_to_new_vector),table_,new_vectorF3595); CALL2(1,VARREF(YgooScolsStabYPvector_setter),new_vectorF3595,table_); UNLINK_STACK(); RET(table_); } LOCCODEDEF(fun_54) { P p_; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(p_, 0); T3 = CALL2(1,VARREF(YgooSmathYceilS),FREEREF(0),FREEREF(1)); T2 = CALL1(1,VARREF(YgooSmacrosY1st),T3); T1 = CALL2(1,VARREF(YgooSmagYG),p_,T2); if (T1 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmathYA),p_,YPint((P)2)); T5 = CALL2(1,VARREF(Ytup),T6,FREEREF(1)); T4 = CALL1(1,FREEREF(2),T5); T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_55) { P return_; P depthF3596; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(return_, 0); T3 = CALL2(1,VARREF(YgooSmagYL),FREEREF(0),YPint((P)2000)); if (T3 != YPfalse) { T2 = YPint((P)1); } else { T5 = CALL2(1,VARREF(YgooSmagYL),FREEREF(0),YPint((P)5000)); if (T5 != YPfalse) { T4 = YPint((P)2); } else { T7 = CALL2(1,VARREF(YgooSmagYL),FREEREF(0),YPint((P)15000)); if (T7 != YPfalse) { T6 = YPint((P)4); } else { T9 = CALL2(1,VARREF(YgooSmagYL),FREEREF(0),YPint((P)50000)); if (T9 != YPfalse) { T8 = YPint((P)8); } else { T11 = CALL2(1,VARREF(YgooSmagYL),FREEREF(0),YPint((P)250000)); if (T11 != YPfalse) { T10 = YPint((P)16); } else { if (YPtrue != YPfalse) { T12 = YPint((P)32); } else { T12 = YPfalse; } T10 = T12; } T8 = T10; } T6 = T8; } T4 = T6; } T2 = T4; } depthF3596 = T2; T0 = FUNFAB(fun_54,3,FREEREF(0),depthF3596,return_); CALL2(1,VARREF(YgooSmacrosYdo),T0,VARREF(YgooScolsStabYTtwin_primesT)); T1 = CALL1(1,VARREF(Yinternal_error),LITREF(lit_118)); UNLINK_STACK(); QRET(T1); } FUNCODEDEF(YgooScolsStabYchoose_table_geometry) { P capacity_; P T0,T1; LINK_STACK(); ARG(capacity_, 0); T1 = FUNFAB(fun_55,1,capacity_); T0 = with_exit(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_57) { P k_,v_; P this_keyF3610; P indexF3609; P iF3608; P bucket_startF3607; P probesF3606; P new_bucket_indexF3605; P new_bucket_offsetF3604; P new_bucket_indexF3603; P hashF3602; P new_secondary_modulusF3601; P new_primary_modulusF3600; P new_bucket_depthF3599; P new_n_bucketsF3598; P test_functionF3597; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27; LINK_STACK(); ARG(k_, 0); ARG(v_, 1); T27 = CALL1(1,VARREF(YgooScolsScolYkey_test),FREEREF(0)); test_functionF3597 = T27; T26 = CALL1(1,VARREF(YgooScolsStabYPn_buckets),FREEREF(1)); new_n_bucketsF3598 = T26; T25 = CALL1(1,VARREF(YgooScolsStabYPbucket_depth),FREEREF(1)); new_bucket_depthF3599 = T25; T24 = CALL1(1,VARREF(YgooScolsStabYPprimary_modulus),FREEREF(1)); new_primary_modulusF3600 = T24; T23 = CALL1(1,VARREF(YgooScolsStabYPsecondary_modulus),FREEREF(1)); new_secondary_modulusF3601 = T23; T22 = CALL1(1,VARREF(YgooScolsStabYtab_hash),FREEREF(0)); T21 = CALL1(1,T22,k_); check_type(T21,VARREF(YLintG)); hashF3602 = T21; T20 = CALL2(1,VARREF(YgooSmathYmod),hashF3602,new_primary_modulusF3600); new_bucket_indexF3603 = T20; T19 = CALL2(1,VARREF(YgooSmathYmod),hashF3602,new_secondary_modulusF3601); T18 = CALL2(1,VARREF(YgooSmathYA),T19,YPint((P)1)); new_bucket_offsetF3604 = T18; new_bucket_indexF3605 = new_bucket_indexF3603; check_type(YPint((P)0),VARREF(YLintG)); probesF3606 = YPint((P)0); LOOP_144: { P a144_0,a144_1; T1 = CALL2(1,VARREF(YgooSmagYL),probesF3606,new_n_bucketsF3598); if (T1 != YPfalse) { T16 = CALL2(1,VARREF(YgooSmathYT),new_bucket_depthF3599,YPint((P)2)); T15 = CALL2(1,VARREF(YgooSmathYT),new_bucket_indexF3605,T16); bucket_startF3607 = T15; check_type(YPint((P)0),VARREF(YLintG)); iF3608 = YPint((P)0); check_type(bucket_startF3607,VARREF(YLintG)); indexF3609 = bucket_startF3607; LOOP_145: { P a145_0,a145_1; T3 = CALL2(1,VARREF(YgooSmagYL),iF3608,new_bucket_depthF3599); if (T3 != YPfalse) { T11 = (P)YgooScolsStabYOvelt(FREEREF(1),indexF3609); this_keyF3610 = T11; T5 = CALL2(1,VARREF(YgooSmacrosYEE),this_keyF3610,VARREF(YgooScolsStabYDnul_cell_marker)); if (T5 != YPfalse) { (P)YgooScolsStabYOvelt_setter(k_,FREEREF(1),indexF3609); T7 = CALL2(1,VARREF(YgooSmathYA),indexF3609,new_bucket_depthF3599); T6 = (P)YgooScolsStabYOvelt_setter(v_,FREEREF(1),T7); T4 = T6; } else { T9 = CALL2(1,VARREF(YgooSmathYA),iF3608,YPint((P)1)); T10 = CALL2(1,VARREF(YgooSmathYA),indexF3609,YPint((P)1)); a145_0 = T9; a145_1 = T10; iF3608 = a145_0; indexF3609 = a145_1; goto LOOP_145; T4 = T8; } T2 = T4; } else { T13 = CALL3(1,VARREF(YgooSmathYmod_),new_bucket_indexF3605,new_bucket_offsetF3604,new_n_bucketsF3598); T14 = CALL2(1,VARREF(YgooSmathYA),probesF3606,YPint((P)1)); a144_0 = T13; a144_1 = T14; new_bucket_indexF3605 = a144_0; probesF3606 = a144_1; goto LOOP_144; T2 = T12; } } T0 = T2; } else { T17 = CALL1(1,VARREF(Yinternal_error),LITREF(lit_122)); T0 = T17; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_copy_to_new_vector_58) { P table_,new_vector_; P T0,T1; LINK_STACK(); ARG(table_, 0); ARG(new_vector_, 1); T1 = FUNFAB(fun_57,2,table_,new_vector_); T0 = CALL2(1,VARREF(YgooScolsScolYdo_keyed),T1,table_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_id_hash_59) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL1(1,VARREF(YgooSanyYaddress_of),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_id_hash_60) { P x_; P T0; LINK_STACK(); ARG(x_, 0); if (x_ != YPfalse) { T0 = YPint((P)131); } else { T0 = YPint((P)149); } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooScolsStabYrot) { P x_,a_; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); ARG(a_, 1); T1 = CALL2(1,VARREF(YgooSmathYGG),x_,a_); T2 = CALL2(1,VARREF(YgooSmathYLL),x_,a_); T0 = CALL2(1,VARREF(YgooSmathYK),T1,T2); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_id_hash_62) { P x_; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); T3 = CALL2(1,VARREF(YgooScolsStabYrot),x_,YPint((P)15)); T2 = CALL2(1,VARREF(YgooSmathY_),T3,x_); T1 = CALL2(1,VARREF(YgooSmathYA),T2,YPint((P)31)); T0 = CALL1(1,VARREF(YgooSmathYabs),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_id_hash_63) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),x_); T0 = CALL1(1,VARREF(YgooScolsStabYid_hash),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_id_hash_64) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooSmathYflo_bits),x_); T0 = CALL2(1,VARREF(YgooSmathYA),T1,YPint((P)89)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_id_hash_65) { P x_; P cur_elemF3613; P cur_hashF3612; P t_enumF3611; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(x_, 0); T8 = CALL1(1,VARREF(YgooScolsScolYenum),x_); t_enumF3611 = T8; cur_hashF3612 = YPint((P)0); LOOP_146: { P a146_0,a146_1; T1 = CALL1(1,VARREF(YgooScolsScolYfinQ),t_enumF3611); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T7 = CALL1(1,VARREF(YgooScolsScolYnow),t_enumF3611); cur_elemF3613 = T7; T3 = CALL1(1,VARREF(YgooScolsScolYnxt),t_enumF3611); T5 = CALL2(1,VARREF(YgooSmathYT),cur_hashF3612,YPint((P)31)); T6 = CALL1(1,VARREF(YgooScolsStabYid_hash),cur_elemF3613); T4 = CALL2(1,VARREF(YgooSmathYA),T5,T6); a146_0 = T3; a146_1 = T4; t_enumF3611 = a146_0; cur_hashF3612 = a146_1; goto LOOP_146; } else { } } UNLINK_STACK(); QRET(cur_hashF3612); } LOCCODEDEF(fun_key_type_66) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLstrG)); } LOCCODEDEF(fun_elt_type_67) { P x_; LINK_STACK(); ARG(x_, 0); UNLINK_STACK(); RET(VARREF(YLsymG)); } FUNCODEDEF(YgooScolsStabYcase_insensitive_string_hash) { P x_; P hashF3616; P iF3615; P eF3614; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(x_, 0); T10 = CALL1(1,VARREF(YgooStypesYlen),x_); eF3614 = T10; check_type(YPint((P)0),VARREF(YLintG)); iF3615 = YPint((P)0); check_type(YPint((P)0),VARREF(YLintG)); hashF3616 = YPint((P)0); LOOP_147: { P a147_0,a147_1; T1 = CALL2(1,VARREF(YgooSmagYL),iF3615,eF3614); if (T1 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmathYA),iF3615,YPint((P)1)); T6 = CALL2(1,VARREF(YgooSmathYLL),hashF3616,YPint((P)6)); T9 = CALL2(1,VARREF(YgooScolsScolYlow_elt),x_,iF3615); T8 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),T9); T7 = CALL2(1,VARREF(YgooSmathYB),T8,YPint((P)159)); T5 = CALL2(1,VARREF(YgooSmathYA),T6,T7); T4 = CALL2(1,VARREF(YgooSmathYmod),T5,YPint((P)970747)); a147_0 = T3; a147_1 = T4; iF3615 = a147_0; hashF3616 = a147_1; goto LOOP_147; T0 = T2; } else { T0 = hashF3616; } } UNLINK_STACK(); RET(T0); } FUNCODEDEF(YgooScolsStabYcase_insensitive_string_equal) { P x_,y_; P tmpF3623; P cyF3622; P cxF3621; P tmpF3620; P iF3619; P eyF3618; P syF3617; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(x_, 0); ARG(y_, 1); syF3617 = YPint((P)0); T17 = CALL1(1,VARREF(YgooStypesYlen),y_); eyF3618 = T17; T2 = CALL1(1,VARREF(YgooStypesYlen),x_); T3 = CALL2(1,VARREF(YgooSmathY_),eyF3618,syF3617); T1 = CALL2(1,VARREF(YgooSmacrosYEE),T2,T3); if (T1 != YPfalse) { check_type(syF3617,VARREF(YLintG)); iF3619 = syF3617; LOOP_148: { P a148_0; T16 = CALL2(1,VARREF(YgooSmacrosYEE),iF3619,eyF3618); tmpF3620 = T16; if (tmpF3620 != YPfalse) { T4 = tmpF3620; } else { T15 = CALL2(1,VARREF(YgooSmathY_),iF3619,syF3617); T14 = CALL2(1,VARREF(YgooScolsScolYlow_elt),x_,T15); check_type(T14,VARREF(YLchrG)); cxF3621 = T14; T13 = CALL2(1,VARREF(YgooScolsScolYlow_elt),y_,iF3619); check_type(T13,VARREF(YLchrG)); cyF3622 = T13; T10 = CALL2(1,VARREF(YgooSmacrosYEE),cxF3621,cyF3622); tmpF3623 = T10; if (tmpF3623 != YPfalse) { T6 = tmpF3623; } else { T8 = CALL1(1,VARREF(YgooSchrYto_lower),cxF3621); T9 = CALL1(1,VARREF(YgooSchrYto_lower),cyF3622); T7 = CALL2(1,VARREF(YgooSmacrosYEE),T8,T9); T6 = T7; } if (T6 != YPfalse) { T12 = CALL2(1,VARREF(YgooSmathYA),iF3619,YPint((P)1)); a148_0 = T12; iF3619 = a148_0; goto LOOP_148; T5 = T11; } else { T5 = YPfalse; } T4 = T5; } } T0 = T4; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_key_test_70) { P U_; LINK_STACK(); ARG(U_, 0); UNLINK_STACK(); RET(VARREF(YgooScolsStabYcase_insensitive_string_equal)); } LOCCODEDEF(fun_tab_hash_71) { P U_; LINK_STACK(); ARG(U_, 0); UNLINK_STACK(); RET(VARREF(YgooScolsStabYcase_insensitive_string_hash)); } LOCCODEDEF(fun_addX_72) { P c_,x_; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); CALL3(1,VARREF(YgooScolsScolxYelt_setter),YPtrue,c_,x_); UNLINK_STACK(); RET(c_); } LOCCODEDEF(fun_memQ_73) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL3(1,VARREF(YgooScolsScolYelt_or),c_,x_,YPfalse); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_74) { P k_; P T0,T1; LINK_STACK(); ARG(k_, 0); T1 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(0),k_); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),T1,FREEREF(1),k_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_elts_75) { P x_,keys_; P resF3624; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(keys_, 1); T3 = CALL1(1,VARREF(YgooStypesYlen),keys_); T2 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsScolYLtabG),T3); resF3624 = T2; T0 = FUNFAB(fun_74,2,x_,resF3624); CALL2(1,VARREF(YgooSmacrosYdo),T0,keys_); T1 = CALL2(1,VARREF(YgooScolsScolYcol_res),x_,resF3624); UNLINK_STACK(); RET(T1); } P YgooScolsStabY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48; DEFCREGS(); lit_0 = YPPsym((P)""); T2 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLcolXG),Ynil); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsSmapYLmapG),T2); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsScolYLtabG,T0); lit_1 = YPPsym((P)""); T4 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLtabG),Ynil); T3 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_1),T4); VARSET(YgooScolsStabYLsetG,T3); lit_2 = YPPsym((P)"tab-growth-factor"); lit_3 = YPPlist(1,YPPsym((P)"_x")); T5 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_tab_growth_factor_0 = YPfab_met(FUNCODEREF(fun_tab_growth_factor_0),T5,LITREF(lit_2),LITREF(lit_3),sloc(33),YPfalse); T7 = VARREF_OR(YgooScolsStabYtab_growth_factor,YPfalse); T8 = fun_tab_growth_factor_0; T6 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T7,T8); VARSET(YgooScolsStabYtab_growth_factor,T6); lit_4 = YPPlist(1,YPPsym((P)"_x")); lit_5 = YPflo(FLOINT(2.0)); T9 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T9,YPfalse,LITREF(lit_4),sloc(33),YPfalse); T10 = fun_1; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScolYLtabG),VARREF(YgooScolsStabYtab_growth_factor),YPfalse,VARREF(YLfloG),T10); lit_6 = YPPsym((P)"tab-growth-threshold"); lit_7 = YPPlist(1,YPPsym((P)"_x")); T11 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_tab_growth_threshold_2 = YPfab_met(FUNCODEREF(fun_tab_growth_threshold_2),T11,LITREF(lit_6),LITREF(lit_7),sloc(33),YPfalse); T13 = VARREF_OR(YgooScolsStabYtab_growth_threshold,YPfalse); T14 = fun_tab_growth_threshold_2; T12 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T13,T14); VARSET(YgooScolsStabYtab_growth_threshold,T12); lit_8 = YPPlist(1,YPPsym((P)"_x")); lit_9 = YPflo(FLOINT(0.8)); T15 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T15,YPfalse,LITREF(lit_8),sloc(33),YPfalse); T16 = fun_3; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScolYLtabG),VARREF(YgooScolsStabYtab_growth_threshold),YPfalse,VARREF(YLfloG),T16); lit_10 = YPPsym((P)"tab-shrink-threshold"); lit_11 = YPPlist(1,YPPsym((P)"_x")); T17 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_tab_shrink_threshold_4 = YPfab_met(FUNCODEREF(fun_tab_shrink_threshold_4),T17,LITREF(lit_10),LITREF(lit_11),sloc(33),YPfalse); T19 = VARREF_OR(YgooScolsStabYtab_shrink_threshold,YPfalse); T20 = fun_tab_shrink_threshold_4; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YgooScolsStabYtab_shrink_threshold,T18); lit_12 = YPPlist(1,YPPsym((P)"_x")); lit_13 = YPflo(FLOINT(0.5)); T21 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T21,YPfalse,LITREF(lit_12),sloc(33),YPfalse); T22 = fun_5; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScolYLtabG),VARREF(YgooScolsStabYtab_shrink_threshold),YPfalse,VARREF(YLfloG),T22); lit_14 = YPPsym((P)""); T24 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqXG),Ynil); T23 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_14),T24); VARSET(YgooScolsStabYLtab_vecG,T23); lit_15 = YPPsym((P)"%vacated"); lit_16 = YPPlist(1,YPPsym((P)"_x")); T25 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pvacated_6 = YPfab_met(FUNCODEREF(fun_Pvacated_6),T25,LITREF(lit_15),LITREF(lit_16),sloc(44),YPfalse); T27 = VARREF_OR(YgooScolsStabYPvacated,YPfalse); T28 = fun_Pvacated_6; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooScolsStabYPvacated,T26); lit_17 = YPPsym((P)"%vacated-setter"); lit_18 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T29 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pvacated_setter_7 = YPfab_met(FUNCODEREF(fun_Pvacated_setter_7),T29,LITREF(lit_17),LITREF(lit_18),sloc(44),YPfalse); T31 = VARREF_OR(YgooScolsStabYPvacated_setter,YPfalse); T32 = fun_Pvacated_setter_7; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsStabYPvacated_setter,T30); lit_19 = YPPlist(1,YPPsym((P)"_x")); T33 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_8 = YPfab_met(FUNCODEREF(fun_8),T33,YPfalse,LITREF(lit_19),sloc(44),YPfalse); T34 = fun_8; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPvacated),VARREF(YgooScolsStabYPvacated_setter),VARREF(YLintG),T34); lit_20 = YPPsym((P)"%primary-modulus"); lit_21 = YPPlist(1,YPPsym((P)"_x")); T35 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pprimary_modulus_9 = YPfab_met(FUNCODEREF(fun_Pprimary_modulus_9),T35,LITREF(lit_20),LITREF(lit_21),sloc(46),YPfalse); T37 = VARREF_OR(YgooScolsStabYPprimary_modulus,YPfalse); T38 = fun_Pprimary_modulus_9; T36 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T37,T38); VARSET(YgooScolsStabYPprimary_modulus,T36); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPprimary_modulus),YPfalse,VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_22 = YPPsym((P)"%secondary-modulus"); lit_23 = YPPlist(1,YPPsym((P)"_x")); T39 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Psecondary_modulus_10 = YPfab_met(FUNCODEREF(fun_Psecondary_modulus_10),T39,LITREF(lit_22),LITREF(lit_23),sloc(47),YPfalse); T41 = VARREF_OR(YgooScolsStabYPsecondary_modulus,YPfalse); T42 = fun_Psecondary_modulus_10; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YgooScolsStabYPsecondary_modulus,T40); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPsecondary_modulus),YPfalse,VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_24 = YPPsym((P)"%n-buckets"); lit_25 = YPPlist(1,YPPsym((P)"_x")); T43 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pn_buckets_11 = YPfab_met(FUNCODEREF(fun_Pn_buckets_11),T43,LITREF(lit_24),LITREF(lit_25),sloc(49),YPfalse); T45 = VARREF_OR(YgooScolsStabYPn_buckets,YPfalse); T46 = fun_Pn_buckets_11; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooScolsStabYPn_buckets,T44); T48 = XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPn_buckets),YPfalse,VARREF(YLintG),VARREF(YPprop_unbound_error)); T47 = T48; return T47; } P YgooScolsStabY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114; DEFCREGS(); lit_26 = YPPsym((P)"%bucket-depth"); lit_27 = YPPlist(1,YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pbucket_depth_12 = YPfab_met(FUNCODEREF(fun_Pbucket_depth_12),T0,LITREF(lit_26),LITREF(lit_27),sloc(50),YPfalse); T2 = VARREF_OR(YgooScolsStabYPbucket_depth,YPfalse); T3 = fun_Pbucket_depth_12; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooScolsStabYPbucket_depth,T1); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPbucket_depth),YPfalse,VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_28 = YPPsym((P)"%data"); lit_29 = YPPlist(1,YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pdata_13 = YPfab_met(FUNCODEREF(fun_Pdata_13),T4,LITREF(lit_28),LITREF(lit_29),sloc(52),YPfalse); T6 = VARREF_OR(YgooScolsStabYPdata,YPfalse); T7 = fun_Pdata_13; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsStabYPdata,T5); lit_30 = YPPsym((P)"%data-setter"); lit_31 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YgooScolsStabYLtab_vecG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pdata_setter_14 = YPfab_met(FUNCODEREF(fun_Pdata_setter_14),T8,LITREF(lit_30),LITREF(lit_31),sloc(52),YPfalse); T10 = VARREF_OR(YgooScolsStabYPdata_setter,YPfalse); T11 = fun_Pdata_setter_14; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooScolsStabYPdata_setter,T9); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYPdata),VARREF(YgooScolsStabYPdata_setter),VARREF(YLrepG),VARREF(YPprop_unbound_error)); lit_32 = YPPsym((P)"%count"); lit_33 = YPPlist(1,YPPsym((P)"_x")); T12 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pcount_15 = YPfab_met(FUNCODEREF(fun_Pcount_15),T12,LITREF(lit_32),LITREF(lit_33),sloc(56),YPfalse); T14 = VARREF_OR(YgooScolsStabYPcount,YPfalse); T15 = fun_Pcount_15; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsStabYPcount,T13); lit_34 = YPPsym((P)"%count-setter"); lit_35 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pcount_setter_16 = YPfab_met(FUNCODEREF(fun_Pcount_setter_16),T16,LITREF(lit_34),LITREF(lit_35),sloc(56),YPfalse); T18 = VARREF_OR(YgooScolsStabYPcount_setter,YPfalse); T19 = fun_Pcount_setter_16; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsStabYPcount_setter,T17); lit_36 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_17 = YPfab_met(FUNCODEREF(fun_17),T20,YPfalse,LITREF(lit_36),sloc(56),YPfalse); T21 = fun_17; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScolYLtabG),VARREF(YgooScolsStabYPcount),VARREF(YgooScolsStabYPcount_setter),VARREF(YLintG),T21); lit_37 = YPPsym((P)"%vector"); lit_38 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Pvector_18 = YPfab_met(FUNCODEREF(fun_Pvector_18),T22,LITREF(lit_37),LITREF(lit_38),sloc(57),YPfalse); T24 = VARREF_OR(YgooScolsStabYPvector,YPfalse); T25 = fun_Pvector_18; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooScolsStabYPvector,T23); lit_39 = YPPsym((P)"%vector-setter"); lit_40 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(2,VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Pvector_setter_19 = YPfab_met(FUNCODEREF(fun_Pvector_setter_19),T26,LITREF(lit_39),LITREF(lit_40),sloc(57),YPfalse); T28 = VARREF_OR(YgooScolsStabYPvector_setter,YPfalse); T29 = fun_Pvector_setter_19; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooScolsStabYPvector_setter,T27); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsScolYLtabG),VARREF(YgooScolsStabYPvector),VARREF(YgooScolsStabYPvector_setter),VARREF(YgooScolsStabYLtab_vecG),VARREF(YPprop_unbound_error)); lit_41 = YPPsym((P)"tab-hash"); lit_42 = YPPlist(1,YPPsym((P)"x")); T31 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); T30 = YPfab_gen(T31,LITREF(lit_41),LITREF(lit_42),YPfalse); VARSET(YgooScolsStabYtab_hash,T30); lit_43 = YPPsym((P)"id-hash"); lit_44 = YPPlist(1,YPPsym((P)"x")); T33 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T32 = YPfab_gen(T33,LITREF(lit_43),LITREF(lit_44),YPfalse); VARSET(YgooScolsStabYid_hash,T32); lit_45 = YPPsym((P)""); T35 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLtabG),Ynil); T34 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_45),T35); VARSET(YgooScolsStabYLstr_tabG,T34); lit_46 = YPPlist(275,YPint((P)3),YPint((P)5),YPint((P)11),YPint((P)17),YPint((P)29),YPint((P)41),YPint((P)47),YPint((P)59),YPint((P)71),YPint((P)101),YPint((P)107),YPint((P)137),YPint((P)149),YPint((P)167),YPint((P)179),YPint((P)191),YPint((P)197),YPint((P)227),YPint((P)239),YPint((P)269),YPint((P)281),YPint((P)311),YPint((P)347),YPint((P)419),YPint((P)431),YPint((P)461),YPint((P)521),YPint((P)569),YPint((P)599),YPint((P)617),YPint((P)641),YPint((P)659),YPint((P)809),YPint((P)839),YPint((P)881),YPint((P)1019),YPint((P)1049),YPint((P)1091),YPint((P)1151),YPint((P)1229),YPint((P)1277),YPint((P)1319),YPint((P)1367),YPint((P)1427),YPint((P)1481),YPint((P)1607),YPint((P)1667),YPint((P)1721),YPint((P)1787),YPint((P)1871),YPint((P)1931),YPint((P)1997),YPint((P)2081),YPint((P)2141),YPint((P)2207),YPint((P)2267),YPint((P)2339),YPint((P)2549),YPint((P)2657),YPint((P)2729),YPint((P)2801),YPint((P)2969),YPint((P)3119),YPint((P)3251),YPint((P)3359),YPint((P)3461),YPint((P)3557),YPint((P)3671),YPint((P)3767),YPint((P)3917),YPint((P)4019),YPint((P)4127),YPint((P)4241),YPint((P)4421),YPint((P)4547),YPint((P)4721),YPint((P)4931),YPint((P)5099),YPint((P)5231),YPint((P)5417),YPint((P)5639),YPint((P)5849),YPint((P)6089),YPint((P)6269),YPint((P)6449),YPint((P)6659),YPint((P)6827),YPint((P)7127),YPint((P)7307),YPint((P)7547),YPint((P)7757),YPint((P)8009),YPint((P)8219),YPint((P)8429),YPint((P)8819),YPint((P)9041),YPint((P)9281),YPint((P)9629),YPint((P)9929),YPint((P)10271),YPint((P)10529),YPint((P)10859),YPint((P)11159),YPint((P)11447),YPint((P)11777),YPint((P)12107),YPint((P)12539),YPint((P)12917),YPint((P)13337),YPint((P)13679),YPint((P)14081),YPint((P)14447),YPint((P)14867),YPint((P)15269),YPint((P)15731),YPint((P)16139),YPint((P)16631),YPint((P)17189),YPint((P)17657),YPint((P)18119),YPint((P)18911),YPint((P)19421),YPint((P)19961),YPint((P)20477),YPint((P)21011),YPint((P)21557),YPint((P)22109),YPint((P)22697),YPint((P)23291),YPint((P)23909),YPint((P)24917),YPint((P)25577),YPint((P)26249),YPint((P)26951),YPint((P)27689),YPint((P)28409),YPint((P)29129),YPint((P)29879),YPint((P)30839),YPint((P)31721),YPint((P)32531),YPint((P)33347),YPint((P)34211),YPint((P)35081),YPint((P)36011),YPint((P)36929),YPint((P)37991),YPint((P)39041),YPint((P)40037),YPint((P)41141),YPint((P)42179),YPint((P)43319),YPint((P)44531),YPint((P)45821),YPint((P)47057),YPint((P)48311),YPint((P)49529),YPint((P)50891),YPint((P)52181),YPint((P)53549),YPint((P)54917),YPint((P)56477),YPint((P)57899),YPint((P)59357),YPint((P)60887),YPint((P)62927),YPint((P)64577),YPint((P)66359),YPint((P)68111),YPint((P)69827),YPint((P)71711),YPint((P)73607),YPint((P)75539),YPint((P)77477),YPint((P)79559),YPint((P)81551),YPint((P)83639),YPint((P)85817),YPint((P)88001),YPint((P)90371),YPint((P)92639),YPint((P)95087),YPint((P)97499),YPint((P)99989),YPint((P)102497),YPint((P)105227),YPint((P)108011),YPint((P)110729),YPint((P)113537),YPint((P)116531),YPint((P)119549),YPint((P)122597),YPint((P)125789),YPint((P)128939),YPint((P)132329),YPint((P)135647),YPint((P)139121),YPint((P)142607),YPint((P)146297),YPint((P)149969),YPint((P)153887),YPint((P)157769),YPint((P)161729),YPint((P)166301),YPint((P)170537),YPint((P)174929),YPint((P)179381),YPint((P)183917),YPint((P)188831),YPint((P)193601),YPint((P)198461),YPint((P)203429),YPint((P)208589),YPint((P)213947),YPint((P)219311),YPint((P)224909),YPint((P)230561),YPint((P)236477),YPint((P)242447),YPint((P)248639),YPint((P)254927),YPint((P)261431),YPint((P)268517),YPint((P)275321),YPint((P)282239),YPint((P)289841),YPint((P)297467),YPint((P)304979),YPint((P)312617),YPint((P)320561),YPint((P)328589),YPint((P)336827),YPint((P)345461),YPint((P)354251),YPint((P)363149),YPint((P)372269),YPint((P)381629),YPint((P)391217),YPint((P)401309),YPint((P)411527),YPint((P)422087),YPint((P)432659),YPint((P)443561),YPint((P)454709),YPint((P)466181),YPint((P)478067),YPint((P)490031),YPint((P)502499),YPint((P)515087),YPint((P)527981),YPint((P)541361),YPint((P)555041),YPint((P)569081),YPint((P)583337),YPint((P)598049),YPint((P)613007),YPint((P)628679),YPint((P)644489),YPint((P)660617),YPint((P)677231),YPint((P)694259),YPint((P)711707),YPint((P)729557),YPint((P)747827),YPint((P)766541),YPint((P)785777),YPint((P)805499),YPint((P)825827),YPint((P)846749),YPint((P)868121),YPint((P)889871),YPint((P)912449),YPint((P)935591),YPint((P)959207),YPint((P)983327)); T36 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),LITREF(lit_46)); VARSET(YgooScolsStabYTtwin_primesT,T36); lit_47 = YPPsym((P)"fab-tab-vec"); lit_48 = YPPlist(6,YPPsym((P)"size"),YPPsym((P)"fill-value"),YPPsym((P)"n-buckets"),YPPsym((P)"bucket-depth"),YPPsym((P)"primary-modulus"),YPPsym((P)"secondary-modulus")); T37 = YPfab_sig(YPPlist(6,VARREF(YLintG),VARREF(YLanyG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)6),VARREF(YgooScolsStabYLtab_vecG),Ynil); YgooScolsStabYfab_tab_vec = YPfab_met(FUNCODEREF(YgooScolsStabYfab_tab_vec),T37,LITREF(lit_47),LITREF(lit_48),sloc(104),YPfalse); T38 = YgooScolsStabYfab_tab_vec; VARSET(YgooScolsStabYfab_tab_vec,T38); lit_49 = YPPsym((P)"@fill!"); lit_50 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"fill")); T39 = YPfab_sig(YPPlist(2,VARREF(YgooScolsStabYLtab_vecG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooScolsStabYOfillX = YPfab_met(FUNCODEREF(YgooScolsStabYOfillX),T39,LITREF(lit_49),LITREF(lit_50),sloc(117),YPfalse); T40 = YgooScolsStabYOfillX; VARSET(YgooScolsStabYOfillX,T40); lit_51 = YPPsym((P)"clr!"); lit_52 = YPPlist(2,YPPsym((P)"vector"),YPPsym((P)"fill-value")); T41 = YPfab_sig(YPPlist(2,VARREF(YgooScolsStabYLtab_vecG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_clrX_24 = YPfab_met(FUNCODEREF(fun_clrX_24),T41,LITREF(lit_51),LITREF(lit_52),sloc(130),YPfalse); T43 = VARREF_OR(YgooScolsStabYclrX,YPfalse); T44 = fun_clrX_24; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YgooScolsStabYclrX,T42); VARSET(YgooScolsStabYTdebug_tablesQT,YPfalse); lit_53 = YPPsym((P)"key-test"); lit_54 = YPPlist(1,YPPsym((P)"_")); T45 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_key_test_25 = YPfab_met(FUNCODEREF(fun_key_test_25),T45,LITREF(lit_53),LITREF(lit_54),sloc(140),YPfalse); T47 = VARREF_OR(YgooScolsScolYkey_test,YPfalse); T48 = fun_key_test_25; T46 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T47,T48); VARSET(YgooScolsScolYkey_test,T46); lit_55 = YPPlist(1,YPPsym((P)"_")); T49 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_tab_hash_26 = YPfab_met(FUNCODEREF(fun_tab_hash_26),T49,LITREF(lit_41),LITREF(lit_55),sloc(141),YPfalse); T51 = VARREF_OR(YgooScolsStabYtab_hash,YPfalse); T52 = fun_tab_hash_26; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YgooScolsStabYtab_hash,T50); lit_56 = YPPlist(1,YPsb((P)"nul cell")); VARSET(YgooScolsStabYDnul_cell_marker,LITREF(lit_56)); lit_57 = YPPlist(1,YPsb((P)"vacated cell")); VARSET(YgooScolsStabYDvacated_cell_marker,LITREF(lit_57)); lit_58 = YPPsym((P)"fab"); lit_59 = YPPlist(2,YPPsym((P)"type"),YPPsym((P)"size")); T54 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooScolsScolYLtabG)); T53 = YPfab_sig(YPPlist(2,T54,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YgooScolsScolYLtabG),Ynil); fun_fab_27 = YPfab_met(FUNCODEREF(fun_fab_27),T53,LITREF(lit_58),LITREF(lit_59),sloc(146),YPfalse); T56 = VARREF_OR(YgooScolsScolYfab,YPfalse); T57 = fun_fab_27; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooScolsScolYfab,T55); lit_60 = YPPsym((P)"elt-or"); lit_61 = YPPlist(3,YPPsym((P)"table"),YPPsym((P)"key"),YPPsym((P)"default")); lit_62 = YPsb((P)"The table is totally full this shouldn't happen"); T58 = YPfab_sig(YPPlist(3,VARREF(YgooScolsScolYLtabG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_28 = YPfab_met(FUNCODEREF(fun_elt_or_28),T58,LITREF(lit_60),LITREF(lit_61),sloc(166),YPfalse); T60 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T61 = fun_elt_or_28; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooScolsScolYelt_or,T59); lit_63 = YPPsym((P)"elt-setter"); lit_64 = YPPlist(3,YPPsym((P)"value"),YPPsym((P)"table"),YPPsym((P)"key")); lit_65 = YPsb((P)"The table is totally full this shouldn't happen"); T62 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_setter_29 = YPfab_met(FUNCODEREF(fun_elt_setter_29),T62,LITREF(lit_63),LITREF(lit_64),sloc(195),YPfalse); T64 = VARREF_OR(YgooScolsScolxYelt_setter,YPfalse); T65 = fun_elt_setter_29; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooScolsScolxYelt_setter,T63); lit_66 = YPPsym((P)"del"); lit_67 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"key")); T66 = YPfab_sig(YPPlist(2,VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooScolsScolYLtabG),Ynil); fun_del_30 = YPfab_met(FUNCODEREF(fun_del_30),T66,LITREF(lit_66),LITREF(lit_67),sloc(254),YPfalse); T68 = VARREF_OR(YgooScolsScolYdel,YPfalse); T69 = fun_del_30; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooScolsScolYdel,T67); lit_68 = YPPsym((P)"del!"); lit_69 = YPPlist(2,YPPsym((P)"table"),YPPsym((P)"key")); lit_70 = YPsb((P)"The table is totally full this shouldn't happen"); T70 = YPfab_sig(YPPlist(2,VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooScolsScolYLtabG),Ynil); fun_delX_31 = YPfab_met(FUNCODEREF(fun_delX_31),T70,LITREF(lit_68),LITREF(lit_69),sloc(257),YPfalse); T72 = VARREF_OR(YgooScolsScolxYdelX,YPfalse); T73 = fun_delX_31; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooScolsScolxYdelX,T71); lit_71 = YPPsym((P)"do-keyed"); lit_72 = YPPlist(2,YPPsym((P)"function"),YPPsym((P)"table")); T74 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_keyed_32 = YPfab_met(FUNCODEREF(fun_do_keyed_32),T74,LITREF(lit_71),LITREF(lit_72),sloc(293),YPfalse); T76 = VARREF_OR(YgooScolsScolYdo_keyed,YPfalse); T77 = fun_do_keyed_32; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooScolsScolYdo_keyed,T75); lit_73 = YPPsym((P)"do"); lit_74 = YPPlist(2,YPPsym((P)"function"),YPPsym((P)"table")); T78 = YPfab_sig(YPPlist(2,VARREF(YLfunG),VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_do_33 = YPfab_met(FUNCODEREF(fun_do_33),T78,LITREF(lit_73),LITREF(lit_74),sloc(310),YPfalse); T80 = VARREF_OR(YgooSmacrosYdo,YPfalse); T81 = fun_do_33; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YgooSmacrosYdo,T79); lit_75 = YPPsym((P)"zap!"); lit_76 = YPPlist(1,YPPsym((P)"table")); T82 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLtabG),Ynil); fun_zapX_34 = YPfab_met(FUNCODEREF(fun_zapX_34),T82,LITREF(lit_75),LITREF(lit_76),sloc(326),YPfalse); T84 = VARREF_OR(YgooScolsScolxYzapX,YPfalse); T85 = fun_zapX_34; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YgooScolsScolxYzapX,T83); lit_77 = YPPsym((P)"len"); lit_78 = YPPlist(1,YPPsym((P)"table")); T86 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_35 = YPfab_met(FUNCODEREF(fun_len_35),T86,LITREF(lit_77),LITREF(lit_78),sloc(331),YPfalse); T88 = VARREF_OR(YgooStypesYlen,YPfalse); T89 = fun_len_35; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YgooStypesYlen,T87); lit_79 = YPPsym((P)""); T91 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T90 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_79),T91); VARSET(YgooScolsStabYLtab_enumG,T90); lit_80 = YPPsym((P)"@vec"); lit_81 = YPPlist(1,YPPsym((P)"_x")); T92 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Ovec_36 = YPfab_met(FUNCODEREF(fun_Ovec_36),T92,LITREF(lit_80),LITREF(lit_81),sloc(335),YPfalse); T94 = VARREF_OR(YgooScolsStabYOvec,YPfalse); T95 = fun_Ovec_36; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YgooScolsStabYOvec,T93); lit_82 = YPPsym((P)"@vec-setter"); lit_83 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T96 = YPfab_sig(YPPlist(2,VARREF(YgooScolsStabYLtab_vecG),VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Ovec_setter_37 = YPfab_met(FUNCODEREF(fun_Ovec_setter_37),T96,LITREF(lit_82),LITREF(lit_83),sloc(335),YPfalse); T98 = VARREF_OR(YgooScolsStabYOvec_setter,YPfalse); T99 = fun_Ovec_setter_37; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YgooScolsStabYOvec_setter,T97); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_enumG),VARREF(YgooScolsStabYOvec),VARREF(YgooScolsStabYOvec_setter),VARREF(YgooScolsStabYLtab_vecG),VARREF(YPprop_unbound_error)); lit_84 = YPPsym((P)"@buc"); lit_85 = YPPlist(1,YPPsym((P)"_x")); T100 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Obuc_38 = YPfab_met(FUNCODEREF(fun_Obuc_38),T100,LITREF(lit_84),LITREF(lit_85),sloc(336),YPfalse); T102 = VARREF_OR(YgooScolsStabYObuc,YPfalse); T103 = fun_Obuc_38; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooScolsStabYObuc,T101); lit_86 = YPPsym((P)"@buc-setter"); lit_87 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T104 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Obuc_setter_39 = YPfab_met(FUNCODEREF(fun_Obuc_setter_39),T104,LITREF(lit_86),LITREF(lit_87),sloc(336),YPfalse); T106 = VARREF_OR(YgooScolsStabYObuc_setter,YPfalse); T107 = fun_Obuc_setter_39; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YgooScolsStabYObuc_setter,T105); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_enumG),VARREF(YgooScolsStabYObuc),VARREF(YgooScolsStabYObuc_setter),VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_88 = YPPsym((P)"@idx"); lit_89 = YPPlist(1,YPPsym((P)"_x")); T110 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T109 = fun_Oidx_40 = YPfab_met(FUNCODEREF(fun_Oidx_40),T110,LITREF(lit_88),LITREF(lit_89),sloc(337),YPfalse); T113 = VARREF_OR(YgooScolsStabYOidx,YPfalse); T114 = fun_Oidx_40; T112 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T113,T114); T111 = VARSET(YgooScolsStabYOidx,T112); T108 = T111; return T108; } P YgooScolsStabY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120; DEFCREGS(); lit_90 = YPPsym((P)"@idx-setter"); lit_91 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T0 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Oidx_setter_41 = YPfab_met(FUNCODEREF(fun_Oidx_setter_41),T0,LITREF(lit_90),LITREF(lit_91),sloc(337),YPfalse); T2 = VARREF_OR(YgooScolsStabYOidx_setter,YPfalse); T3 = fun_Oidx_setter_41; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooScolsStabYOidx_setter,T1); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_enumG),VARREF(YgooScolsStabYOidx),VARREF(YgooScolsStabYOidx_setter),VARREF(YLintG),VARREF(YPprop_unbound_error)); lit_92 = YPPsym((P)"@fin?"); lit_93 = YPPlist(1,YPPsym((P)"_x")); T4 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_OfinQ_42 = YPfab_met(FUNCODEREF(fun_OfinQ_42),T4,LITREF(lit_92),LITREF(lit_93),sloc(338),YPfalse); T6 = VARREF_OR(YgooScolsStabYOfinQ,YPfalse); T7 = fun_OfinQ_42; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsStabYOfinQ,T5); lit_94 = YPPlist(1,YPPsym((P)"_x")); T8 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_43 = YPfab_met(FUNCODEREF(fun_43),T8,YPfalse,LITREF(lit_94),sloc(338),YPfalse); T9 = fun_43; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsStabYLtab_enumG),VARREF(YgooScolsStabYOfinQ),YPfalse,VARREF(YLlogG),T9); T10 = XCALL3(1,VARREF(Ynew),VARREF(YgooScolsStabYLtab_enumG),VARREF(YgooScolsStabYOfinQ),YPtrue); VARSET(YgooScolsStabYDfin_enum,T10); lit_95 = YPPsym((P)"enum"); lit_96 = YPPlist(1,YPPsym((P)"table")); T11 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YgooScolsStabYLtab_enumG),Ynil); fun_enum_44 = YPfab_met(FUNCODEREF(fun_enum_44),T11,LITREF(lit_95),LITREF(lit_96),sloc(341),YPfalse); T13 = VARREF_OR(YgooScolsScolYenum,YPfalse); T14 = fun_enum_44; T12 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T13,T14); VARSET(YgooScolsScolYenum,T12); lit_97 = YPPsym((P)"nxt"); lit_98 = YPPlist(1,YPPsym((P)"e")); T15 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsStabYLtab_enumG),Ynil); fun_nxt_45 = YPfab_met(FUNCODEREF(fun_nxt_45),T15,LITREF(lit_97),LITREF(lit_98),sloc(359),YPfalse); T17 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T18 = fun_nxt_45; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YgooScolsScolYnxt,T16); lit_99 = YPPsym((P)"fin?"); lit_100 = YPPlist(1,YPPsym((P)"e")); T19 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_46 = YPfab_met(FUNCODEREF(fun_finQ_46),T19,LITREF(lit_99),LITREF(lit_100),sloc(377),YPfalse); T21 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T22 = fun_finQ_46; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YgooScolsScolYfinQ,T20); lit_101 = YPPsym((P)"now-key"); lit_102 = YPPlist(1,YPPsym((P)"e")); T23 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_now_key_47 = YPfab_met(FUNCODEREF(fun_now_key_47),T23,LITREF(lit_101),LITREF(lit_102),sloc(380),YPfalse); T25 = VARREF_OR(YgooScolsScolYnow_key,YPfalse); T26 = fun_now_key_47; T24 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T25,T26); VARSET(YgooScolsScolYnow_key,T24); lit_103 = YPPsym((P)"now"); lit_104 = YPPlist(1,YPPsym((P)"e")); T27 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_now_48 = YPfab_met(FUNCODEREF(fun_now_48),T27,LITREF(lit_103),LITREF(lit_104),sloc(385),YPfalse); T29 = VARREF_OR(YgooScolsScolYnow,YPfalse); T30 = fun_now_48; T28 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T29,T30); VARSET(YgooScolsScolYnow,T28); lit_105 = YPPsym((P)"now-setter"); lit_106 = YPPlist(2,YPPsym((P)"value"),YPPsym((P)"e")); T31 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooScolsStabYLtab_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_now_setter_49 = YPfab_met(FUNCODEREF(fun_now_setter_49),T31,LITREF(lit_105),LITREF(lit_106),sloc(390),YPfalse); T33 = VARREF_OR(YgooScolsScolYnow_setter,YPfalse); T34 = fun_now_setter_49; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YgooScolsScolYnow_setter,T32); lit_107 = YPPsym((P)"tab-keys"); lit_108 = YPPlist(1,YPPsym((P)"table")); lit_109 = YPPlist(2,YPPsym((P)"k"),YPPsym((P)"v")); T36 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_50 = YPfab_met(FUNCODEREF(fun_50),T36,YPfalse,LITREF(lit_109),sloc(399),YPfalse); T35 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YLlstG),Ynil); fun_tab_keys_51 = YPfab_met(FUNCODEREF(fun_tab_keys_51),T35,LITREF(lit_107),LITREF(lit_108),sloc(398),YPfalse); T38 = VARREF_OR(YgooScolsStabYtab_keys,YPfalse); T39 = fun_tab_keys_51; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsStabYtab_keys,T37); lit_110 = YPPsym((P)"grow-table"); lit_111 = YPPlist(1,YPPsym((P)"table")); T40 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLtabG),Ynil); fun_grow_table_52 = YPfab_met(FUNCODEREF(fun_grow_table_52),T40,LITREF(lit_110),LITREF(lit_111),sloc(401),YPfalse); T42 = VARREF_OR(YgooScolsStabYgrow_table,YPfalse); T43 = fun_grow_table_52; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsStabYgrow_table,T41); lit_112 = YPPsym((P)"rehash-table"); lit_113 = YPPlist(1,YPPsym((P)"table")); T44 = YPfab_sig(YPPlist(1,VARREF(YgooScolsScolYLtabG)),YPfalse,YPint((P)1),VARREF(YgooScolsScolYLtabG),Ynil); fun_rehash_table_53 = YPfab_met(FUNCODEREF(fun_rehash_table_53),T44,LITREF(lit_112),LITREF(lit_113),sloc(422),YPfalse); T46 = VARREF_OR(YgooScolsStabYrehash_table,YPfalse); T47 = fun_rehash_table_53; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsStabYrehash_table,T45); lit_114 = YPPsym((P)"choose-table-geometry"); lit_115 = YPPlist(1,YPPsym((P)"capacity")); lit_116 = YPPlist(1,YPPsym((P)"return")); lit_117 = YPPlist(1,YPPsym((P)"p")); lit_118 = YPsb((P)"Not enough primes to compute new table size"); T51 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_54 = YPfab_met(FUNCODEREF(fun_54),T51,YPfalse,LITREF(lit_117),sloc(447),YPfalse); T50 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_55 = YPfab_met(FUNCODEREF(fun_55),T50,YPfalse,LITREF(lit_116),sloc(438),YPfalse); T49 = XCALL2(1,VARREF(YtT),VARREF(YLintG),VARREF(YLintG)); T48 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),T49,Ynil); YgooScolsStabYchoose_table_geometry = YPfab_met(FUNCODEREF(YgooScolsStabYchoose_table_geometry),T48,LITREF(lit_114),LITREF(lit_115),sloc(435),YPfalse); T52 = YgooScolsStabYchoose_table_geometry; VARSET(YgooScolsStabYchoose_table_geometry,T52); lit_119 = YPPsym((P)"copy-to-new-vector"); lit_120 = YPPlist(2,YPPsym((P)"table"),YPPsym((P)"new-vector")); lit_121 = YPPlist(2,YPPsym((P)"k"),YPPsym((P)"v")); lit_122 = YPsb((P)"The table is totally full this shouldn't happen"); T54 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_57 = YPfab_met(FUNCODEREF(fun_57),T54,YPfalse,LITREF(lit_121),sloc(455),YPfalse); T53 = YPfab_sig(YPPlist(2,VARREF(YgooScolsScolYLtabG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_copy_to_new_vector_58 = YPfab_met(FUNCODEREF(fun_copy_to_new_vector_58),T53,LITREF(lit_119),LITREF(lit_120),sloc(453),YPfalse); T56 = VARREF_OR(YgooScolsStabYcopy_to_new_vector,YPfalse); T57 = fun_copy_to_new_vector_58; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooScolsStabYcopy_to_new_vector,T55); lit_123 = YPPlist(1,YPPsym((P)"x")); T58 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_id_hash_59 = YPfab_met(FUNCODEREF(fun_id_hash_59),T58,LITREF(lit_43),LITREF(lit_123),sloc(492),YPfalse); T60 = VARREF_OR(YgooScolsStabYid_hash,YPfalse); T61 = fun_id_hash_59; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooScolsStabYid_hash,T59); lit_124 = YPPlist(1,YPPsym((P)"x")); T62 = YPfab_sig(YPPlist(1,VARREF(YLlogG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_id_hash_60 = YPfab_met(FUNCODEREF(fun_id_hash_60),T62,LITREF(lit_43),LITREF(lit_124),sloc(494),YPfalse); T64 = VARREF_OR(YgooScolsStabYid_hash,YPfalse); T65 = fun_id_hash_60; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooScolsStabYid_hash,T63); lit_125 = YPPsym((P)"rot"); lit_126 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"a")); T66 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLintG),Ynil); YgooScolsStabYrot = YPfab_met(FUNCODEREF(YgooScolsStabYrot),T66,LITREF(lit_125),LITREF(lit_126),sloc(497),YPfalse); T67 = YgooScolsStabYrot; VARSET(YgooScolsStabYrot,T67); lit_127 = YPPlist(1,YPPsym((P)"x")); T68 = YPfab_sig(YPPlist(1,VARREF(YLintG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_id_hash_62 = YPfab_met(FUNCODEREF(fun_id_hash_62),T68,LITREF(lit_43),LITREF(lit_127),sloc(500),YPfalse); T70 = VARREF_OR(YgooScolsStabYid_hash,YPfalse); T71 = fun_id_hash_62; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YgooScolsStabYid_hash,T69); lit_128 = YPPlist(1,YPPsym((P)"x")); T72 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_id_hash_63 = YPfab_met(FUNCODEREF(fun_id_hash_63),T72,LITREF(lit_43),LITREF(lit_128),sloc(504),YPfalse); T74 = VARREF_OR(YgooScolsStabYid_hash,YPfalse); T75 = fun_id_hash_63; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooScolsStabYid_hash,T73); lit_129 = YPPlist(1,YPPsym((P)"x")); T76 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_id_hash_64 = YPfab_met(FUNCODEREF(fun_id_hash_64),T76,LITREF(lit_43),LITREF(lit_129),sloc(507),YPfalse); T78 = VARREF_OR(YgooScolsStabYid_hash,YPfalse); T79 = fun_id_hash_64; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YgooScolsStabYid_hash,T77); lit_130 = YPPlist(1,YPPsym((P)"x")); T80 = YPfab_sig(YPPlist(1,VARREF(YLtupG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_id_hash_65 = YPfab_met(FUNCODEREF(fun_id_hash_65),T80,LITREF(lit_43),LITREF(lit_130),sloc(510),YPfalse); T82 = VARREF_OR(YgooScolsStabYid_hash,YPfalse); T83 = fun_id_hash_65; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YgooScolsStabYid_hash,T81); lit_131 = YPPsym((P)"key-type"); lit_132 = YPPlist(1,YPPsym((P)"x")); T84 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLstr_tabG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_key_type_66 = YPfab_met(FUNCODEREF(fun_key_type_66),T84,LITREF(lit_131),LITREF(lit_132),sloc(520),YPfalse); T86 = VARREF_OR(YgooScolsScolYkey_type,YPfalse); T87 = fun_key_type_66; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YgooScolsScolYkey_type,T85); lit_133 = YPPsym((P)"elt-type"); lit_134 = YPPlist(1,YPPsym((P)"x")); T88 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLstr_tabG)),YPfalse,YPint((P)1),VARREF(YLtypeG),Ynil); fun_elt_type_67 = YPfab_met(FUNCODEREF(fun_elt_type_67),T88,LITREF(lit_133),LITREF(lit_134),sloc(521),YPfalse); T90 = VARREF_OR(YgooScolsScolYelt_type,YPfalse); T91 = fun_elt_type_67; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooScolsScolYelt_type,T89); lit_135 = YPPsym((P)"case-insensitive-string-hash"); lit_136 = YPPlist(1,YPPsym((P)"x")); T92 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); YgooScolsStabYcase_insensitive_string_hash = YPfab_met(FUNCODEREF(YgooScolsStabYcase_insensitive_string_hash),T92,LITREF(lit_135),LITREF(lit_136),sloc(523),YPfalse); T93 = YgooScolsStabYcase_insensitive_string_hash; VARSET(YgooScolsStabYcase_insensitive_string_hash,T93); lit_137 = YPPsym((P)"case-insensitive-string-equal"); lit_138 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"y")); T94 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); YgooScolsStabYcase_insensitive_string_equal = YPfab_met(FUNCODEREF(YgooScolsStabYcase_insensitive_string_equal),T94,LITREF(lit_137),LITREF(lit_138),sloc(531),YPfalse); T95 = YgooScolsStabYcase_insensitive_string_equal; VARSET(YgooScolsStabYcase_insensitive_string_equal,T95); lit_139 = YPPlist(1,YPPsym((P)"_")); T96 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLstr_tabG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_key_test_70 = YPfab_met(FUNCODEREF(fun_key_test_70),T96,LITREF(lit_53),LITREF(lit_139),sloc(541),YPfalse); T98 = VARREF_OR(YgooScolsScolYkey_test,YPfalse); T99 = fun_key_test_70; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YgooScolsScolYkey_test,T97); lit_140 = YPPlist(1,YPPsym((P)"_")); T100 = YPfab_sig(YPPlist(1,VARREF(YgooScolsStabYLstr_tabG)),YPfalse,YPint((P)1),VARREF(YLfunG),Ynil); fun_tab_hash_71 = YPfab_met(FUNCODEREF(fun_tab_hash_71),T100,LITREF(lit_41),LITREF(lit_140),sloc(542),YPfalse); T102 = VARREF_OR(YgooScolsStabYtab_hash,YPfalse); T103 = fun_tab_hash_71; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooScolsStabYtab_hash,T101); lit_141 = YPPsym((P)"add!"); lit_142 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T104 = YPfab_sig(YPPlist(2,VARREF(YgooScolsStabYLsetG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooScolsStabYLsetG),Ynil); fun_addX_72 = YPfab_met(FUNCODEREF(fun_addX_72),T104,LITREF(lit_141),LITREF(lit_142),sloc(548),YPfalse); T106 = VARREF_OR(YgooScolsScolxYaddX,YPfalse); T107 = fun_addX_72; T105 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T106,T107); VARSET(YgooScolsScolxYaddX,T105); lit_143 = YPPsym((P)"mem?"); lit_144 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T108 = YPfab_sig(YPPlist(2,VARREF(YgooScolsStabYLsetG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_memQ_73 = YPfab_met(FUNCODEREF(fun_memQ_73),T108,LITREF(lit_143),LITREF(lit_144),sloc(552),YPfalse); T110 = VARREF_OR(YgooScolsScolYmemQ,YPfalse); T111 = fun_memQ_73; T109 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T110,T111); VARSET(YgooScolsScolYmemQ,T109); lit_145 = YPPsym((P)"elts"); lit_146 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"keys")); lit_147 = YPPlist(1,YPPsym((P)"k")); T116 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T115 = fun_74 = YPfab_met(FUNCODEREF(fun_74),T116,YPfalse,LITREF(lit_147),sloc(557),YPfalse); T114 = YPfab_sig(YPPlist(2,VARREF(YLcolG),VARREF(YLseqG)),YPfalse,YPint((P)2),VARREF(YLcolG),Ynil); T113 = fun_elts_75 = YPfab_met(FUNCODEREF(fun_elts_75),T114,LITREF(lit_145),LITREF(lit_146),sloc(555),YPfalse); T119 = VARREF_OR(YgooScolsScolYelts,YPfalse); T120 = fun_elts_75; T118 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T119,T120); T117 = VARSET(YgooScolsScolYelts,T118); T112 = T117; return T112; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSflat; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsStup; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSstr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooSpacker}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSmap}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSflat}, {&module_info_gooScolsSrep}, {&module_info_gooScolsStup}, {&module_info_gooScolsSlst}, {&module_info_gooScolsSstr}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"@fin?", CVAR, &YgooScolsStabYOfinQ}, {"*debug-tables?*", CVAR, &YgooScolsStabYTdebug_tablesQT}, {"tab-growth-threshold", CVAR, &YgooScolsStabYtab_growth_threshold}, {"", CVAR, &YgooScolsStabYLtab_vecG}, {"@vec", CVAR, &YgooScolsStabYOvec}, {"%vacated", CVAR, &YgooScolsStabYPvacated}, {"tab-shrink-threshold", CVAR, &YgooScolsStabYtab_shrink_threshold}, {"rehash-table", CVAR, &YgooScolsStabYrehash_table}, {"case-insensitive-string-equal", CVAR, &YgooScolsStabYcase_insensitive_string_equal}, {"%vector-setter", CVAR, &YgooScolsStabYPvector_setter}, {"%n-buckets", CVAR, &YgooScolsStabYPn_buckets}, {"case-insensitive-string-hash", CVAR, &YgooScolsStabYcase_insensitive_string_hash}, {"$nul-cell-marker", CVAR, &YgooScolsStabYDnul_cell_marker}, {"rot", CVAR, &YgooScolsStabYrot}, {"*twin-primes*", CVAR, &YgooScolsStabYTtwin_primesT}, {"@buc", CVAR, &YgooScolsStabYObuc}, {"grow-table", CVAR, &YgooScolsStabYgrow_table}, {"$fin-enum", CVAR, &YgooScolsStabYDfin_enum}, {"---main-2---", PVAR, NULL}, {"@buc-setter", CVAR, &YgooScolsStabYObuc_setter}, {"%vector", CVAR, &YgooScolsStabYPvector}, {"$vacated-cell-marker", CVAR, &YgooScolsStabYDvacated_cell_marker}, {"%primary-modulus", CVAR, &YgooScolsStabYPprimary_modulus}, {"@idx-setter", CVAR, &YgooScolsStabYOidx_setter}, {"tab-keys", CVAR, &YgooScolsStabYtab_keys}, {"clr!", CVAR, &YgooScolsStabYclrX}, {"fab-tab-vec", CVAR, &YgooScolsStabYfab_tab_vec}, {"%secondary-modulus", CVAR, &YgooScolsStabYPsecondary_modulus}, {"%bucket-depth", CVAR, &YgooScolsStabYPbucket_depth}, {"%vacated-setter", CVAR, &YgooScolsStabYPvacated_setter}, {"---main-1---", PVAR, NULL}, {"@velt-setter", PVAR, NULL}, {"", CVAR, &YgooScolsStabYLtab_enumG}, {"%count-setter", CVAR, &YgooScolsStabYPcount_setter}, {"%data-setter", CVAR, &YgooScolsStabYPdata_setter}, {"@velt", PVAR, NULL}, {"", CVAR, &YgooScolsStabYLstr_tabG}, {"copy-to-new-vector", CVAR, &YgooScolsStabYcopy_to_new_vector}, {"%count", CVAR, &YgooScolsStabYPcount}, {"@idx", CVAR, &YgooScolsStabYOidx}, {"%data", CVAR, &YgooScolsStabYPdata}, {"id-hash", CVAR, &YgooScolsStabYid_hash}, {"---main-0---", PVAR, NULL}, {"", CVAR, &YgooScolsStabYLsetG}, {"tab-hash", CVAR, &YgooScolsStabYtab_hash}, {"tab-growth-factor", CVAR, &YgooScolsStabYtab_growth_factor}, {"@vec-setter", CVAR, &YgooScolsStabYOvec_setter}, {"choose-table-geometry", CVAR, &YgooScolsStabYchoose_table_geometry}, {"@fill!", CVAR, &YgooScolsStabYOfillX}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"tab-growth-threshold", NULL}, {"tab-shrink-threshold", NULL}, {"case-insensitive-string-equal", NULL}, {"case-insensitive-string-hash", NULL}, {"", NULL}, {"id-hash", NULL}, {"", NULL}, {"", NULL}, {"tab-hash", NULL}, {"tab-growth-factor", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsStab; MODULE_INFO module_info_gooScolsStab = { "goo/cols/tab", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooSpacker (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSmap (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSflat (void); extern void load_module_gooScolsSrep (void); extern void load_module_gooScolsStup (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsSstr (void); /* EXPRESSION: */ extern void load_module_gooScolsStab (void); void load_module_gooScolsStab (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooSpacker(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSmap(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSflat(); load_module_gooScolsSrep(); load_module_gooScolsStup(); load_module_gooScolsSlst(); load_module_gooScolsSstr(); (P)YgooScolsStabY___main_0___(); (P)YgooScolsStabY___main_1___(); (P)YgooScolsStabY___main_2___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/tup.c0100644000175000017500000015160007756744563015340 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/tup"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/tup */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YLcolG,"goo/boot",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); DEF(YgooScolsStupYto_str,"goo/cols/tup","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_5); DEFLIT(lit_0); DEFLIT(lit_9); DEFLIT(lit_15); DEFLIT(lit_13); DEFLIT(lit_4); DEFLIT(lit_10); DEFLIT(lit_12); DEFLIT(lit_1); DEFLIT(lit_2); DEFLIT(lit_8); DEFLIT(lit_14); DEFLIT(lit_3); DEFLIT(lit_7); DEFLIT(lit_11); DEFLIT(lit_6); /* FUNCTIONS: */ LOCFOR(fun_len_0); LOCFOR(fun_elt_or_1); LOCFOR(fun_nul_2); LOCFOR(fun_fab_3); LOCFOR(fun_to_str_4); LOCFOR(fun_low_elt_5); LOCFOR(fun_fab_elt_setter_6); extern P YgooScolsStupY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_len_0) { P x_; P tF3279; P xF3278; P xF3277; P T0,T1,T2; LINK_STACK(); ARG(x_, 0); T2 = (P)YPtlen(x_); xF3277 = T2; xF3278 = xF3277; tF3279 = (P)1; T1 = (P)YPiLL(xF3278,(P)2); T0 = (P)YPiv(T1,tF3279); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_or_1) { P x_,i_,default_; P xF3281; P xF3280; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); ARG(default_, 2); T1 = CALL2(1,VARREF(YgooScolsSseqYrange_checkQ),x_,i_); if (T1 != YPfalse) { xF3280 = i_; xF3281 = xF3280; T3 = (P)YPiGG(xF3281,(P)2); T2 = (P)YPtelt(x_,T3); T0 = T2; } else { T0 = default_; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_nul_2) { P c_; LINK_STACK(); ARG(c_, 0); UNLINK_STACK(); RET(VARREF(YPtnul)); } LOCCODEDEF(fun_fab_3) { P x_,s_; P xF3283; P xF3282; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(s_, 1); xF3282 = s_; xF3283 = xF3282; T1 = (P)YPiGG(xF3283,(P)2); T0 = (P)YPtup(T1,YPfalse); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_to_str_4) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooScolsSseqYvals_to_str),x_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_10),T1,LITREF(lit_11)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_low_elt_5) { P x_,i_; P xF3285; P xF3284; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); xF3284 = i_; xF3285 = xF3284; T1 = (P)YPiGG(xF3285,(P)2); T0 = (P)YPtelt(x_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_fab_elt_setter_6) { P z_,x_,i_; P xF3287; P xF3286; P T0,T1; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); ARG(i_, 2); xF3286 = i_; xF3287 = xF3286; T1 = (P)YPiGG(xF3287,(P)2); T0 = (P)YPtelt_setter(z_,x_,T1); UNLINK_STACK(); QRET(T0); } P YgooScolsStupY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32; DEFCREGS(); lit_0 = YPPsym((P)"len"); lit_1 = YPPlist(1,YPPsym((P)"x")); T0 = YPfab_sig(YPPlist(1,VARREF(YLtupG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_0 = YPfab_met_inlineable(FUNCODEREF(fun_len_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(24),YPfalse); T2 = VARREF_OR(YgooStypesYlen,YPfalse); T3 = fun_len_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooStypesYlen,T1); lit_2 = YPPsym((P)"elt-or"); lit_3 = YPPlist(3,YPPsym((P)"x"),YPPsym((P)"i"),YPPsym((P)"default")); T4 = YPfab_sig(YPPlist(3,VARREF(YLtupG),VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_1 = YPfab_met(FUNCODEREF(fun_elt_or_1),T4,LITREF(lit_2),LITREF(lit_3),sloc(27),YPfalse); T6 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T7 = fun_elt_or_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooScolsScolYelt_or,T5); lit_4 = YPPsym((P)"nul"); lit_5 = YPPlist(1,YPPsym((P)"c")); T9 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLtupG)); T8 = YPfab_sig(YPPlist(1,T9),YPfalse,YPint((P)1),VARREF(YLtupG),Ynil); fun_nul_2 = YPfab_met(FUNCODEREF(fun_nul_2),T8,LITREF(lit_4),LITREF(lit_5),sloc(36),YPfalse); T11 = VARREF_OR(YgooScolsScolYnul,YPfalse); T12 = fun_nul_2; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YgooScolsScolYnul,T10); lit_6 = YPPsym((P)"fab"); lit_7 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"s")); T14 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YLtupG)); T13 = YPfab_sig(YPPlist(2,T14,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLtupG),Ynil); fun_fab_3 = YPfab_met_inlineable(FUNCODEREF(fun_fab_3),T13,LITREF(lit_6),LITREF(lit_7),sloc(39),YPfalse); T16 = VARREF_OR(YgooScolsScolYfab,YPfalse); T17 = fun_fab_3; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooScolsScolYfab,T15); lit_8 = YPPsym((P)"to-str"); lit_9 = YPPlist(1,YPPsym((P)"x")); lit_10 = YPsb((P)"#("); lit_11 = YPsb((P)")"); T18 = YPfab_sig(YPPlist(1,VARREF(YLtupG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_4 = YPfab_met(FUNCODEREF(fun_to_str_4),T18,LITREF(lit_8),LITREF(lit_9),sloc(45),YPfalse); T20 = VARREF_OR(YgooScolsStupYto_str,YPfalse); T21 = fun_to_str_4; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooScolsStupYto_str,T19); lit_12 = YPPsym((P)"low-elt"); lit_13 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T22 = YPfab_sig(YPPlist(2,VARREF(YLtupG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_low_elt_5 = YPfab_met_inlineable(FUNCODEREF(fun_low_elt_5),T22,LITREF(lit_12),LITREF(lit_13),sloc(49),YPfalse); T24 = VARREF_OR(YgooScolsScolYlow_elt,YPfalse); T25 = fun_low_elt_5; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooScolsScolYlow_elt,T23); lit_14 = YPPsym((P)"fab-elt-setter"); lit_15 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"x"),YPPsym((P)"i")); T28 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLtupG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); T27 = fun_fab_elt_setter_6 = YPfab_met_inlineable(FUNCODEREF(fun_fab_elt_setter_6),T28,LITREF(lit_14),LITREF(lit_15),sloc(52),YPfalse); T31 = VARREF_OR(YgooScolsScolYfab_elt_setter,YPfalse); T32 = fun_fab_elt_setter_6; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); T29 = VARSET(YgooScolsScolYfab_elt_setter,T30); T26 = T29; return T26; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSflat; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSflat}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"to-str", CVAR, &YgooScolsStupYto_str}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"tup", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsStup; MODULE_INFO module_info_gooScolsStup = { "goo/cols/tup", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSflat (void); /* EXPRESSION: */ extern void load_module_gooScolsStup (void); void load_module_gooScolsStup (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooScolsScol(); load_module_gooScolsSseq(); load_module_gooScolsSflat(); (P)YgooScolsStupY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/vec.c0100644000175000017500000025370007756744563015311 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/vec"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/vec */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); DEF(YgooScolsSvecYquicksortX,"goo/cols/vec","quicksort!"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); DEF(YgooScolsSvecYvec_dat,"goo/cols/vec","vec-dat"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); DEF(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); DEF(YgooScolsSvecYvec_dat_setter,"goo/cols/vec","vec-dat-setter"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); DEF(YgooScolsSvecYpartitionX,"goo/cols/vec","partition!"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); DEF(YgooScolsSvecYvec_len_setter,"goo/cols/vec","vec-len-setter"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); DEF(YgooScolsSvecYvec_len,"goo/cols/vec","vec-len"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); DEF(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_38); DEFLIT(lit_26); DEFLIT(lit_3); DEFLIT(lit_18); DEFLIT(lit_10); DEFLIT(lit_8); DEFLIT(lit_51); DEFLIT(lit_42); DEFLIT(lit_16); DEFLIT(lit_37); DEFLIT(lit_48); DEFLIT(lit_31); DEFLIT(lit_32); DEFLIT(lit_14); DEFLIT(lit_30); DEFLIT(lit_13); DEFLIT(lit_5); DEFLIT(lit_7); DEFLIT(lit_20); DEFLIT(lit_0); DEFLIT(lit_50); DEFLIT(lit_46); DEFLIT(lit_11); DEFLIT(lit_44); DEFLIT(lit_52); DEFLIT(lit_1); DEFLIT(lit_4); DEFLIT(lit_47); DEFLIT(lit_19); DEFLIT(lit_43); DEFLIT(lit_15); DEFLIT(lit_21); DEFLIT(lit_39); DEFLIT(lit_23); DEFLIT(lit_17); DEFLIT(lit_53); DEFLIT(lit_40); DEFLIT(lit_25); DEFLIT(lit_28); DEFLIT(lit_29); DEFLIT(lit_9); DEFLIT(lit_2); DEFLIT(lit_34); DEFLIT(lit_36); DEFLIT(lit_41); DEFLIT(lit_49); DEFLIT(lit_45); DEFLIT(lit_22); DEFLIT(lit_12); DEFLIT(lit_24); DEFLIT(lit_33); DEFLIT(lit_6); DEFLIT(lit_27); DEFLIT(lit_35); /* FUNCTIONS: */ LOCFOR(fun_vec_len_0); LOCFOR(fun_vec_len_setter_1); LOCFOR(fun_2); LOCFOR(fun_vec_dat_3); LOCFOR(fun_vec_dat_setter_4); LOCFOR(fun_5); LOCFOR(fun_len_6); LOCFOR(fun_elt_or_7); LOCFOR(fun_elt_setter_8); LOCFOR(fun_nul_9); LOCFOR(fun_fab_10); LOCFOR(fun_catX_11); LOCFOR(fun_vec_12); LOCFOR(fun_pushX_13); LOCFOR(fun_popX_14); LOCFOR(fun_to_str_15); LOCFOR(fun_addX_16); LOCFOR(fun_lenSfill_setter_17); LOCFOR(fun_len_setter_18); LOCFOR(fun_zapX_19); LOCFOR(fun_low_elt_20); LOCFOR(fun_low_elt_setter_21); LOCFOR(fun_sort_by_22); LOCFOR(fun_sort_byX_23); LOCFOR(fun_quicksortX_24); LOCFOR(fun_partitionX_25); extern P YgooScolsSvecY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_vec_len_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSvecYvec_len)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_vec_len_setter_1) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSvecYvec_len)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_2) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_vec_dat_3) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSvecYvec_dat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_vec_dat_setter_4) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSvecYvec_dat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL0(1,VARREF(YgooScolsSrepYrep_nul)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_len_6) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL1(1,VARREF(YgooScolsSvecYvec_len),c_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_elt_or_7) { P c_,i_,default_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); ARG(i_, 1); ARG(default_, 2); T1 = CALL2(1,VARREF(YgooScolsSseqYrange_checkQ),c_,i_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooScolsScolYlow_elt),c_,i_); T0 = T2; } else { T0 = default_; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_elt_setter_8) { P z_,c_,i_; P T0,T1,T2; LINK_STACK(); ARG(z_, 0); ARG(c_, 1); ARG(i_, 2); T0 = CALL2(1,VARREF(YgooSmagYL),i_,YPint((P)0)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(Yrange_error),c_,i_); } else { } T2 = CALL3(1,VARREF(YgooScolsScolxYlow_elt_setter),z_,c_,i_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_nul_9) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL1(1,VARREF(Ynew),VARREF(YgooScolsSvecYLvecG)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_fab_10) { P c_,s_; P datF3304; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); ARG(s_, 1); T2 = CALL1(1,VARREF(YgooSmathYpower_of_two_ceil),s_); T1 = CALL2(1,VARREF(YgooScolsSrepYrep_fab),T2,YPfalse); datF3304 = T1; T0 = CALL5(1,VARREF(Ynew),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSvecYvec_len),s_,VARREF(YgooScolsSvecYvec_dat),datF3304); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_catX_11) { P x_,more_; P eF3308; P x_1363F3307; P sF3306; P x_1361F3305; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(x_, 0); NARGS(more_, 1); T13 = CALL1(1,VARREF(YgooScolsScolYenum),more_); x_1361F3305 = T13; LOOP_115: { P a115_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1361F3305); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsScolYnow),x_1361F3305); sF3306 = T12; T9 = CALL1(1,VARREF(YgooScolsScolYenum),sF3306); x_1363F3307 = T9; LOOP_116: { P a116_0; T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1363F3307); T4 = CALL1(1,VARREF(Ynot),T5); if (T4 != YPfalse) { T8 = CALL1(1,VARREF(YgooScolsScolYnow),x_1363F3307); eF3308 = T8; CALL2(1,VARREF(YgooScolsScolxYaddX),x_,eF3308); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1363F3307); a116_0 = T7; x_1363F3307 = a116_0; goto LOOP_116; T3 = T6; } else { T3 = YPfalse; } } T11 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1361F3305); a115_0 = T11; x_1361F3305 = a115_0; goto LOOP_115; T0 = T10; } else { T0 = YPfalse; } } UNLINK_STACK(); RET(x_); } LOCCODEDEF(fun_vec_12) { P elts_; P T0; LINK_STACK(); NARGS(elts_, 0); T0 = CALL4(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSchrYfabs),YPfalse,VARREF(YgooScolsSvecYLvecG),elts_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_pushX_13) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooScolsScolxYaddX),c_,x_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_popX_14) { P c_; P xF3310; P new_lenF3309; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(c_, 0); T5 = CALL1(1,VARREF(YgooStypesYlen),c_); T4 = CALL2(1,VARREF(YgooSmathY_),T5,YPint((P)1)); new_lenF3309 = T4; T0 = CALL2(1,VARREF(YgooSmagYL),new_lenF3309,YPint((P)0)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(Yrange_error),c_,new_lenF3309); } else { } T3 = CALL2(1,VARREF(YgooScolsScolYlow_elt),c_,new_lenF3309); xF3310 = T3; CALL2(1,VARREF(YgooScolsScolxYlen_setter),new_lenF3309,c_); T2 = CALL2(1,VARREF(Ytup),c_,xF3310); UNLINK_STACK(); RET(T2); } LOCCODEDEF(fun_to_str_15) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL1(1,VARREF(YgooScolsSseqYvals_to_str),x_); T0 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_32),T1,LITREF(lit_33)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_addX_16) { P c_,x_; P T0; LINK_STACK(); ARG(c_, 0); ARG(x_, 1); T0 = CALL1(1,VARREF(YgooStypesYlen),c_); CALL3(1,VARREF(YgooScolsScolxYlow_elt_setter),x_,c_,T0); UNLINK_STACK(); RET(c_); } LOCCODEDEF(fun_lenSfill_setter_17) { P new_len_,c_,default_; P iF3314; P old_lenF3313; P new_dataF3312; P datF3311; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(new_len_, 0); ARG(c_, 1); ARG(default_, 2); T19 = CALL1(1,VARREF(YgooScolsSvecYvec_dat),c_); datF3311 = T19; T2 = CALL1(1,VARREF(YgooScolsSrepYrep_len),datF3311); T1 = CALL2(1,VARREF(YgooSmagYG),new_len_,T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmathYpower_of_two_ceil),new_len_); T4 = CALL2(1,VARREF(YgooScolsSrepYrep_fab),T5,default_); new_dataF3312 = T4; CALL2(1,VARREF(YgooScolsSrepYrep_intoX),new_dataF3312,datF3311); CALL2(1,VARREF(YgooScolsSvecYvec_len_setter),new_len_,c_); T3 = CALL2(1,VARREF(YgooScolsSvecYvec_dat_setter),new_dataF3312,c_); T0 = T3; } else { T8 = CALL1(1,VARREF(YgooStypesYlen),c_); T7 = CALL2(1,VARREF(YgooSmagYL),new_len_,T8); if (T7 != YPfalse) { T17 = CALL1(1,VARREF(YgooStypesYlen),c_); old_lenF3313 = T17; T9 = CALL2(1,VARREF(YgooSmagYL),new_len_,YPint((P)0)); if (T9 != YPfalse) { T10 = CALL2(1,VARREF(Yrange_error),c_,new_len_); } else { } CALL2(1,VARREF(YgooScolsSvecYvec_len_setter),new_len_,c_); check_type(new_len_,VARREF(YLintG)); iF3314 = new_len_; LOOP_117: { P a117_0; T12 = CALL2(1,VARREF(YgooSmagYL),iF3314,old_lenF3313); if (T12 != YPfalse) { T14 = CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),default_,datF3311,iF3314); if (T14 != YPfalse) { T16 = CALL2(1,VARREF(YgooSmathYA),iF3314,YPint((P)1)); a117_0 = T16; iF3314 = a117_0; goto LOOP_117; T13 = T15; } else { T13 = YPfalse; } T11 = T13; } else { T11 = YPfalse; } } T6 = T11; } else { T18 = CALL2(1,VARREF(YgooScolsSvecYvec_len_setter),new_len_,c_); T6 = T18; } T0 = T6; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_len_setter_18) { P new_len_,c_; P T0,T1; LINK_STACK(); ARG(new_len_, 0); ARG(c_, 1); T1 = CALL1(1,VARREF(YgooScolsScolYelt_default),c_); T0 = CALL3(1,VARREF(YgooScolsScolxYlenSfill_setter),new_len_,c_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_zapX_19) { P c_; LINK_STACK(); ARG(c_, 0); CALL2(1,VARREF(YgooScolsScolxYlen_setter),YPint((P)0),c_); UNLINK_STACK(); RET(c_); } LOCCODEDEF(fun_low_elt_20) { P x_,i_; P T0,T1; LINK_STACK(); ARG(x_, 0); ARG(i_, 1); T1 = CALL1(1,VARREF(YgooScolsSvecYvec_dat),x_); T0 = CALL2(1,VARREF(YgooScolsSrepYrep_elt),T1,i_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_low_elt_setter_21) { P z_,x_,i_; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(z_, 0); ARG(x_, 1); ARG(i_, 2); T1 = CALL1(1,VARREF(YgooStypesYlen),x_); T0 = CALL2(1,VARREF(YgooSmagYGE),i_,T1); if (T0 != YPfalse) { T3 = CALL2(1,VARREF(YgooSmathYA),i_,YPint((P)1)); T2 = CALL2(1,VARREF(YgooScolsScolxYlen_setter),T3,x_); } else { } T5 = CALL1(1,VARREF(YgooScolsSvecYvec_dat),x_); T4 = CALL3(1,VARREF(YgooScolsSrepYrep_elt_setter),z_,T5,i_); UNLINK_STACK(); QRET(T4); } LOCCODEDEF(fun_sort_by_22) { P a_,test_; P T0,T1,T2; LINK_STACK(); ARG(a_, 0); ARG(test_, 1); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YgooScolsSvecYLvecG),a_); T1 = CALL2(1,VARREF(YgooScolsSseqYsort_byX),T2,test_); T0 = CALL2(1,VARREF(YgooScolsScolYcol_res),a_,T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sort_byX_23) { P a_,test_; P sortedF3315; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(a_, 0); ARG(test_, 1); T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YgooScolsSvecYLvecG),a_); T6 = CALL1(1,VARREF(YgooStypesYlen),a_); T5 = CALL1(1,VARREF(YgooSmathY1_),T6); T3 = CALL4(1,VARREF(YgooScolsSvecYquicksortX),T4,YPint((P)0),T5,test_); sortedF3315 = T3; T1 = CALL2(1,VARREF(YgooSmacrosYEE),a_,sortedF3315); if (T1 != YPfalse) { T0 = sortedF3315; } else { T2 = CALL2(1,VARREF(YgooScolsScolYinto),a_,sortedF3315); T0 = T2; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_quicksortX_24) { P a_,p_,r_,test_; P qF3316; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(a_, 0); ARG(p_, 1); ARG(r_, 2); ARG(test_, 3); T1 = CALL2(1,VARREF(YgooSmagYL),p_,r_); if (T1 != YPfalse) { T4 = CALL4(1,VARREF(YgooScolsSvecYpartitionX),a_,p_,r_,test_); qF3316 = T4; CALL4(1,VARREF(YgooScolsSvecYquicksortX),a_,p_,qF3316,test_); T3 = CALL1(1,VARREF(YgooSmathY1A),qF3316); T2 = CALL4(1,VARREF(YgooScolsSvecYquicksortX),a_,T3,r_,test_); T0 = T2; } else { T0 = a_; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_partitionX_25) { P a_,p_,r_,test_; P x_1365F3321; P tmpF3320; P jF3319; P iF3318; P xF3317; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38; LINK_STACK(); ARG(a_, 0); ARG(p_, 1); ARG(r_, 2); ARG(test_, 3); T38 = CALL2(1,VARREF(YgooSmacrosYelt),a_,p_); xF3317 = T38; T37 = CALL1(1,VARREF(YgooSmathY1_),p_); iF3318 = T37; T36 = CALL1(1,VARREF(YgooSmathY1A),r_); jF3319 = T36; LOOP_118: { LOOP_119: { T3 = jF3319; T2 = CALL2(1,VARREF(YgooSmathY_),T3,YPint((P)1)); jF3319 = T2; T12 = jF3319; T11 = CALL2(1,VARREF(YgooSmacrosYelt),a_,T12); T10 = CALL2(1,test_,T11,xF3317); tmpF3320 = T10; if (tmpF3320 != YPfalse) { T6 = tmpF3320; } else { T9 = jF3319; T8 = CALL2(1,VARREF(YgooSmacrosYelt),a_,T9); T7 = CALL2(1,VARREF(YgooSlogYE),T8,xF3317); T6 = T7; } T5 = CALL1(1,VARREF(Ynot),T6); if (T5 != YPfalse) { goto LOOP_119; T4 = T13; } else { T4 = YPfalse; } } LOOP_120: { T15 = iF3318; T14 = CALL2(1,VARREF(YgooSmathYA),T15,YPint((P)1)); iF3318 = T14; T21 = iF3318; T20 = CALL2(1,VARREF(YgooSmacrosYelt),a_,T21); T19 = CALL2(1,test_,T20,xF3317); T18 = CALL1(1,VARREF(Ynot),T19); T17 = CALL1(1,VARREF(Ynot),T18); if (T17 != YPfalse) { goto LOOP_120; T16 = T22; } else { T16 = YPfalse; } } T25 = iF3318; T26 = jF3319; T24 = CALL2(1,VARREF(YgooSmagYL),T25,T26); if (T24 != YPfalse) { T33 = iF3318; T32 = CALL2(1,VARREF(YgooSmacrosYelt),a_,T33); x_1365F3321 = T32; T28 = jF3319; T27 = CALL2(1,VARREF(YgooSmacrosYelt),a_,T28); T29 = iF3318; CALL3(1,VARREF(YgooScolsScolxYelt_setter),T27,a_,T29); T31 = jF3319; T30 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),x_1365F3321,a_,T31); goto LOOP_118; T23 = T34; } else { T35 = jF3319; T23 = T35; } } UNLINK_STACK(); RET(T23); } P YgooScolsSvecY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110; DEFCREGS(); lit_0 = YPPsym((P)""); T2 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqXG),Ynil); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLflatG),T2); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsSvecYLvecG,T0); lit_1 = YPPsym((P)"vec"); lit_2 = YPPlist(1,YPPsym((P)"elts")); T4 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YgooScolsSvecYLvecG),Ynil); T3 = YPfab_gen(T4,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooScolsSvecYvec,T3); lit_3 = YPPsym((P)"vec-len"); lit_4 = YPPlist(1,YPPsym((P)"_x")); T5 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_vec_len_0 = YPfab_met(FUNCODEREF(fun_vec_len_0),T5,LITREF(lit_3),LITREF(lit_4),sloc(31),YPfalse); T7 = VARREF_OR(YgooScolsSvecYvec_len,YPfalse); T8 = fun_vec_len_0; T6 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T7,T8); VARSET(YgooScolsSvecYvec_len,T6); lit_5 = YPPsym((P)"vec-len-setter"); lit_6 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T9 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_vec_len_setter_1 = YPfab_met(FUNCODEREF(fun_vec_len_setter_1),T9,LITREF(lit_5),LITREF(lit_6),sloc(31),YPfalse); T11 = VARREF_OR(YgooScolsSvecYvec_len_setter,YPfalse); T12 = fun_vec_len_setter_1; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YgooScolsSvecYvec_len_setter,T10); lit_7 = YPPlist(1,YPPsym((P)"_x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T13,YPfalse,LITREF(lit_7),sloc(31),YPfalse); T14 = fun_2; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSvecYvec_len),VARREF(YgooScolsSvecYvec_len_setter),VARREF(YLintG),T14); lit_8 = YPPsym((P)"vec-dat"); lit_9 = YPPlist(1,YPPsym((P)"_x")); T15 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_vec_dat_3 = YPfab_met(FUNCODEREF(fun_vec_dat_3),T15,LITREF(lit_8),LITREF(lit_9),sloc(32),YPfalse); T17 = VARREF_OR(YgooScolsSvecYvec_dat,YPfalse); T18 = fun_vec_dat_3; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YgooScolsSvecYvec_dat,T16); lit_10 = YPPsym((P)"vec-dat-setter"); lit_11 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T19 = YPfab_sig(YPPlist(2,VARREF(YLrepG),VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_vec_dat_setter_4 = YPfab_met(FUNCODEREF(fun_vec_dat_setter_4),T19,LITREF(lit_10),LITREF(lit_11),sloc(32),YPfalse); T21 = VARREF_OR(YgooScolsSvecYvec_dat_setter,YPfalse); T22 = fun_vec_dat_setter_4; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YgooScolsSvecYvec_dat_setter,T20); lit_12 = YPPlist(1,YPPsym((P)"_x")); T23 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T23,YPfalse,LITREF(lit_12),sloc(32),YPfalse); T24 = fun_5; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSvecYvec_dat),VARREF(YgooScolsSvecYvec_dat_setter),VARREF(YLrepG),T24); lit_13 = YPPsym((P)"len"); lit_14 = YPPlist(1,YPPsym((P)"c")); T25 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YLintG),Ynil); fun_len_6 = YPfab_met(FUNCODEREF(fun_len_6),T25,LITREF(lit_13),LITREF(lit_14),sloc(36),YPfalse); T27 = VARREF_OR(YgooStypesYlen,YPfalse); T28 = fun_len_6; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooStypesYlen,T26); lit_15 = YPPsym((P)"elt-or"); lit_16 = YPPlist(3,YPPsym((P)"c"),YPPsym((P)"i"),YPPsym((P)"default")); T29 = YPfab_sig(YPPlist(3,VARREF(YgooScolsSvecYLvecG),VARREF(YLintG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_or_7 = YPfab_met(FUNCODEREF(fun_elt_or_7),T29,LITREF(lit_15),LITREF(lit_16),sloc(39),YPfalse); T31 = VARREF_OR(YgooScolsScolYelt_or,YPfalse); T32 = fun_elt_or_7; T30 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T31,T32); VARSET(YgooScolsScolYelt_or,T30); lit_17 = YPPsym((P)"elt-setter"); lit_18 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"c"),YPPsym((P)"i")); T33 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YgooScolsSvecYLvecG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_elt_setter_8 = YPfab_met(FUNCODEREF(fun_elt_setter_8),T33,LITREF(lit_17),LITREF(lit_18),sloc(44),YPfalse); T35 = VARREF_OR(YgooScolsScolxYelt_setter,YPfalse); T36 = fun_elt_setter_8; T34 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T35,T36); VARSET(YgooScolsScolxYelt_setter,T34); lit_19 = YPPsym((P)"nul"); lit_20 = YPPlist(1,YPPsym((P)"c")); T38 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooScolsSvecYLvecG)); T37 = YPfab_sig(YPPlist(1,T38),YPfalse,YPint((P)1),VARREF(YgooScolsSvecYLvecG),Ynil); fun_nul_9 = YPfab_met(FUNCODEREF(fun_nul_9),T37,LITREF(lit_19),LITREF(lit_20),sloc(48),YPfalse); T40 = VARREF_OR(YgooScolsScolYnul,YPfalse); T41 = fun_nul_9; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooScolsScolYnul,T39); lit_21 = YPPsym((P)"fab"); lit_22 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"s")); T43 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooScolsSvecYLvecG)); T42 = YPfab_sig(YPPlist(2,T43,VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YgooScolsSvecYLvecG),Ynil); fun_fab_10 = YPfab_met(FUNCODEREF(fun_fab_10),T42,LITREF(lit_21),LITREF(lit_22),sloc(50),YPfalse); T45 = VARREF_OR(YgooScolsScolYfab,YPfalse); T46 = fun_fab_10; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooScolsScolYfab,T44); lit_23 = YPPsym((P)"cat!"); lit_24 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"more")); T47 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPtrue,YPint((P)1),VARREF(YgooScolsSvecYLvecG),Ynil); fun_catX_11 = YPfab_met(FUNCODEREF(fun_catX_11),T47,LITREF(lit_23),LITREF(lit_24),sloc(57),YPfalse); T49 = VARREF_OR(YgooScolsSseqxYcatX,YPfalse); T50 = fun_catX_11; T48 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T49,T50); VARSET(YgooScolsSseqxYcatX,T48); lit_25 = YPPlist(1,YPPsym((P)"elts")); T51 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YgooScolsSvecYLvecG),Ynil); fun_vec_12 = YPfab_met(FUNCODEREF(fun_vec_12),T51,LITREF(lit_1),LITREF(lit_25),sloc(63),YPfalse); T53 = VARREF_OR(YgooScolsSvecYvec,YPfalse); T54 = fun_vec_12; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YgooScolsSvecYvec,T52); lit_26 = YPPsym((P)"push!"); lit_27 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T55 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooScolsSvecYLvecG),Ynil); fun_pushX_13 = YPfab_met(FUNCODEREF(fun_pushX_13),T55,LITREF(lit_26),LITREF(lit_27),sloc(66),YPfalse); T57 = VARREF_OR(YgooScolsSseqxYpushX,YPfalse); T58 = fun_pushX_13; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YgooScolsSseqxYpushX,T56); lit_28 = YPPsym((P)"pop!"); lit_29 = YPPlist(1,YPPsym((P)"c")); T60 = XCALL2(1,VARREF(YtT),VARREF(YgooScolsSvecYLvecG),VARREF(YLanyG)); T59 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),T60,Ynil); fun_popX_14 = YPfab_met(FUNCODEREF(fun_popX_14),T59,LITREF(lit_28),LITREF(lit_29),sloc(69),YPfalse); T62 = VARREF_OR(YgooScolsSseqxYpopX,YPfalse); T63 = fun_popX_14; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooScolsSseqxYpopX,T61); lit_30 = YPPsym((P)"to-str"); lit_31 = YPPlist(1,YPPsym((P)"x")); lit_32 = YPsb((P)"#["); lit_33 = YPsb((P)"]"); T64 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_to_str_15 = YPfab_met(FUNCODEREF(fun_to_str_15),T64,LITREF(lit_30),LITREF(lit_31),sloc(77),YPfalse); T66 = VARREF_OR(YgooSanyYto_str,YPfalse); T67 = fun_to_str_15; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooSanyYto_str,T65); lit_34 = YPPsym((P)"add!"); lit_35 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"x")); T68 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YgooScolsSvecYLvecG),Ynil); fun_addX_16 = YPfab_met(FUNCODEREF(fun_addX_16),T68,LITREF(lit_34),LITREF(lit_35),sloc(80),YPfalse); T70 = VARREF_OR(YgooScolsScolxYaddX,YPfalse); T71 = fun_addX_16; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YgooScolsScolxYaddX,T69); lit_36 = YPPsym((P)"len/fill-setter"); lit_37 = YPPlist(3,YPPsym((P)"new-len"),YPPsym((P)"c"),YPPsym((P)"default")); T72 = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YgooScolsSvecYLvecG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_lenSfill_setter_17 = YPfab_met(FUNCODEREF(fun_lenSfill_setter_17),T72,LITREF(lit_36),LITREF(lit_37),sloc(84),YPfalse); T74 = VARREF_OR(YgooScolsScolxYlenSfill_setter,YPfalse); T75 = fun_lenSfill_setter_17; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooScolsScolxYlenSfill_setter,T73); lit_38 = YPPsym((P)"len-setter"); lit_39 = YPPlist(2,YPPsym((P)"new-len"),YPPsym((P)"c")); T76 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_len_setter_18 = YPfab_met(FUNCODEREF(fun_len_setter_18),T76,LITREF(lit_38),LITREF(lit_39),sloc(101),YPfalse); T78 = VARREF_OR(YgooScolsScolxYlen_setter,YPfalse); T79 = fun_len_setter_18; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YgooScolsScolxYlen_setter,T77); lit_40 = YPPsym((P)"zap!"); lit_41 = YPPlist(1,YPPsym((P)"c")); T80 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSvecYLvecG)),YPfalse,YPint((P)1),VARREF(YgooScolsSvecYLvecG),Ynil); fun_zapX_19 = YPfab_met(FUNCODEREF(fun_zapX_19),T80,LITREF(lit_40),LITREF(lit_41),sloc(104),YPfalse); T82 = VARREF_OR(YgooScolsScolxYzapX,YPfalse); T83 = fun_zapX_19; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YgooScolsScolxYzapX,T81); lit_42 = YPPsym((P)"low-elt"); lit_43 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"i")); T84 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSvecYLvecG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_low_elt_20 = YPfab_met(FUNCODEREF(fun_low_elt_20),T84,LITREF(lit_42),LITREF(lit_43),sloc(106),YPfalse); T86 = VARREF_OR(YgooScolsScolYlow_elt,YPfalse); T87 = fun_low_elt_20; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YgooScolsScolYlow_elt,T85); lit_44 = YPPsym((P)"low-elt-setter"); lit_45 = YPPlist(3,YPPsym((P)"z"),YPPsym((P)"x"),YPPsym((P)"i")); T88 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YgooScolsSvecYLvecG),VARREF(YLintG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_low_elt_setter_21 = YPfab_met(FUNCODEREF(fun_low_elt_setter_21),T88,LITREF(lit_44),LITREF(lit_45),sloc(109),YPfalse); T90 = VARREF_OR(YgooScolsScolxYlow_elt_setter,YPfalse); T91 = fun_low_elt_setter_21; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooScolsScolxYlow_elt_setter,T89); lit_46 = YPPsym((P)"sort-by"); lit_47 = YPPlist(2,YPPsym((P)"a"),YPPsym((P)"test")); T92 = YPfab_sig(YPPlist(2,VARREF(YLseqIG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLseqIG),Ynil); fun_sort_by_22 = YPfab_met(FUNCODEREF(fun_sort_by_22),T92,LITREF(lit_46),LITREF(lit_47),sloc(114),YPfalse); T94 = VARREF_OR(YgooScolsSseqYsort_by,YPfalse); T95 = fun_sort_by_22; T93 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T94,T95); VARSET(YgooScolsSseqYsort_by,T93); lit_48 = YPPsym((P)"sort-by!"); lit_49 = YPPlist(2,YPPsym((P)"a"),YPPsym((P)"test")); T96 = YPfab_sig(YPPlist(2,VARREF(YLseqXG),VARREF(YLfunG)),YPfalse,YPint((P)2),VARREF(YLseqXG),Ynil); fun_sort_byX_23 = YPfab_met(FUNCODEREF(fun_sort_byX_23),T96,LITREF(lit_48),LITREF(lit_49),sloc(117),YPfalse); T98 = VARREF_OR(YgooScolsSseqYsort_byX,YPfalse); T99 = fun_sort_byX_23; T97 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T98,T99); VARSET(YgooScolsSseqYsort_byX,T97); lit_50 = YPPsym((P)"quicksort!"); lit_51 = YPPlist(4,YPPsym((P)"a"),YPPsym((P)"p"),YPPsym((P)"r"),YPPsym((P)"test")); T100 = YPfab_sig(YPPlist(4,VARREF(YgooScolsSvecYLvecG),VARREF(YLintG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YgooScolsSvecYLvecG),Ynil); fun_quicksortX_24 = YPfab_met(FUNCODEREF(fun_quicksortX_24),T100,LITREF(lit_50),LITREF(lit_51),sloc(123),YPfalse); T102 = VARREF_OR(YgooScolsSvecYquicksortX,YPfalse); T103 = fun_quicksortX_24; T101 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T102,T103); VARSET(YgooScolsSvecYquicksortX,T101); lit_52 = YPPsym((P)"partition!"); lit_53 = YPPlist(4,YPPsym((P)"a"),YPPsym((P)"p"),YPPsym((P)"r"),YPPsym((P)"test")); T106 = YPfab_sig(YPPlist(4,VARREF(YgooScolsSvecYLvecG),VARREF(YLintG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLintG),Ynil); T105 = fun_partitionX_25 = YPfab_met(FUNCODEREF(fun_partitionX_25),T106,LITREF(lit_52),LITREF(lit_53),sloc(130),YPfalse); T109 = VARREF_OR(YgooScolsSvecYpartitionX,YPfalse); T110 = fun_partitionX_25; T108 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T109,T110); T107 = VARSET(YgooScolsSvecYpartitionX,T108); T104 = T107; return T104; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSflat; extern MODULE_INFO module_info_gooScolsSrep; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSlst}, {&module_info_gooScolsSflat}, {&module_info_gooScolsSrep}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"quicksort!", CVAR, &YgooScolsSvecYquicksortX}, {"vec-dat", CVAR, &YgooScolsSvecYvec_dat}, {"", CVAR, &YgooScolsSvecYLvecG}, {"vec-dat-setter", CVAR, &YgooScolsSvecYvec_dat_setter}, {"partition!", CVAR, &YgooScolsSvecYpartitionX}, {"---main-0---", PVAR, NULL}, {"vec-len-setter", CVAR, &YgooScolsSvecYvec_len_setter}, {"vec-len", CVAR, &YgooScolsSvecYvec_len}, {"vec", CVAR, &YgooScolsSvecYvec}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"vec", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSvec; MODULE_INFO module_info_gooScolsSvec = { "goo/cols/vec", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSlst (void); extern void load_module_gooScolsSflat (void); extern void load_module_gooScolsSrep (void); /* EXPRESSION: */ extern void load_module_gooScolsSvec (void); void load_module_gooScolsSvec (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSlst(); load_module_gooScolsSflat(); load_module_gooScolsSrep(); (P)YgooScolsSvecY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/cols/zip.c0100644000175000017500000020127307756744564015335 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/cols/zip"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/cols/zip */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); DEF(YgooScolsSzipYPenums,"goo/cols/zip","%enums"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); DEF(YgooScolsSzipYzip_states,"goo/cols/zip","zip-states"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(Ytail,"goo/boot","tail"); DEF(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); DEF(YgooScolsSzipYLzip_enumG,"goo/cols/zip",""); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooScolsSzipYzip_dat,"goo/cols/zip","zip-dat"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); DEF(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); DEF(YgooScolsSzipYPenums_setter,"goo/cols/zip","%enums-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); DEF(YgooScolsSzipYLzip_stateG,"goo/cols/zip",""); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); DEF(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_8); DEFLIT(lit_28); DEFLIT(lit_5); DEFLIT(lit_20); DEFLIT(lit_0); DEFLIT(lit_26); DEFLIT(lit_17); DEFLIT(lit_15); DEFLIT(lit_23); DEFLIT(lit_9); DEFLIT(lit_12); DEFLIT(lit_7); DEFLIT(lit_11); DEFLIT(lit_1); DEFLIT(lit_3); DEFLIT(lit_21); DEFLIT(lit_13); DEFLIT(lit_16); DEFLIT(lit_30); DEFLIT(lit_18); DEFLIT(lit_19); DEFLIT(lit_10); DEFLIT(lit_22); DEFLIT(lit_25); DEFLIT(lit_6); DEFLIT(lit_24); DEFLIT(lit_27); DEFLIT(lit_14); DEFLIT(lit_4); DEFLIT(lit_29); DEFLIT(lit_2); /* FUNCTIONS: */ LOCFOR(fun_zip_dat_0); LOCFOR(fun_1); LOCFOR(fun_zip_2); LOCFOR(fun_unzip_3); LOCFOR(fun_zip_states_4); LOCFOR(fun_Penums_5); LOCFOR(fun_Penums_setter_6); LOCFOR(fun_enum_7); LOCFOR(fun_finQ_8); LOCFOR(fun_nxt_9); LOCFOR(fun_now_10); LOCFOR(fun_now_setter_11); LOCFOR(fun_now_key_12); extern P YgooScolsSzipY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_zip_dat_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSzipYzip_dat)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_8)); } LOCCODEDEF(fun_zip_2) { P e_; P T0,T1; LINK_STACK(); NARGS(e_, 0); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),e_); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSzipYLzipG),VARREF(YgooScolsSzipYzip_dat),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_unzip_3) { P z_; P T0; LINK_STACK(); ARG(z_, 0); T0 = CALL1(1,VARREF(YgooScolsSzipYzip_dat),z_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_zip_states_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSzipYzip_states)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Penums_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooScolsSzipYPenums)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_Penums_setter_6) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooScolsSzipYPenums)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_enum_7) { P x_; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooScolsScolYenum),x_); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooScolsSzipYLzip_enumG),VARREF(YgooScolsSzipYPenums),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_finQ_8) { P e_; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSzipYPenums),e_); T0 = CALL2(1,VARREF(YgooStypesYanyQ),VARREF(YgooSmacrosYnulQ),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_nxt_9) { P e_; P x_1436F3685; P T0,T1; LINK_STACK(); ARG(e_, 0); x_1436F3685 = e_; T1 = CALL1(1,VARREF(YgooScolsSzipYPenums),e_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooScolsScolYnxt),T1); CALL2(1,VARREF(YgooScolsSzipYPenums_setter),T0,x_1436F3685); UNLINK_STACK(); RET(x_1436F3685); } LOCCODEDEF(fun_now_10) { P e_; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSzipYPenums),e_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooScolsScolYnow),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_setter_11) { P v_,e_; P veF3690; P eeF3689; P tmpF3688; P x_1437F3687; P x_1438F3686; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(v_, 0); ARG(e_, 1); T12 = CALL1(1,VARREF(YgooScolsSzipYPenums),e_); T11 = CALL1(1,VARREF(YgooScolsScolYenum),T12); x_1438F3686 = T11; T13 = CALL1(1,VARREF(YgooScolsScolYenum),v_); x_1437F3687 = T13; LOOP_153: { P a153_0,a153_1; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1438F3686); tmpF3688 = T4; if (tmpF3688 != YPfalse) { T2 = tmpF3688; } else { T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1437F3687); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T10 = CALL1(1,VARREF(YgooScolsScolYnow),x_1438F3686); eeF3689 = T10; T9 = CALL1(1,VARREF(YgooScolsScolYnow),x_1437F3687); veF3690 = T9; T5 = CALL1(1,VARREF(YgooScolsScolYnow),veF3690); CALL2(1,VARREF(YgooScolsScolYnow_setter),T5,eeF3689); T7 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1438F3686); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1437F3687); a153_0 = T7; a153_1 = T8; x_1438F3686 = a153_0; x_1437F3687 = a153_1; goto LOOP_153; T0 = T6; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_now_key_12) { P e_; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YgooScolsSzipYPenums),e_); T0 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(YgooScolsScolYnow_key),T1); UNLINK_STACK(); RET(T0); } P YgooScolsSzipY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLseqG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooScolsSzipYLzipG,T0); lit_1 = YPPsym((P)"zip"); lit_2 = YPPlist(1,YPPsym((P)"e")); T3 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YgooScolsSzipYLzipG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooScolsSzipYzip,T2); lit_3 = YPPsym((P)"unzip"); lit_4 = YPPlist(1,YPPsym((P)"z")); T5 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzipG)),YPfalse,YPint((P)1),VARREF(YLtupG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_3),LITREF(lit_4),YPfalse); VARSET(YgooScolsSzipYunzip,T4); lit_5 = YPPsym((P)"zip-dat"); lit_6 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzipG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_zip_dat_0 = YPfab_met(FUNCODEREF(fun_zip_dat_0),T6,LITREF(lit_5),LITREF(lit_6),sloc(17),YPfalse); T8 = VARREF_OR(YgooScolsSzipYzip_dat,YPfalse); T9 = fun_zip_dat_0; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooScolsSzipYzip_dat,T7); lit_7 = YPPlist(1,YPPsym((P)"_x")); lit_8 = XCALLN(1, Ytup, 0); T10 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T10,YPfalse,LITREF(lit_7),sloc(17),YPfalse); T11 = fun_1; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSzipYLzipG),VARREF(YgooScolsSzipYzip_dat),YPfalse,VARREF(YLtupG),T11); lit_9 = YPPlist(1,YPPsym((P)"e")); T12 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YgooScolsSzipYLzipG),Ynil); fun_zip_2 = YPfab_met(FUNCODEREF(fun_zip_2),T12,LITREF(lit_1),LITREF(lit_9),sloc(19),YPfalse); T14 = VARREF_OR(YgooScolsSzipYzip,YPfalse); T15 = fun_zip_2; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooScolsSzipYzip,T13); lit_10 = YPPlist(1,YPPsym((P)"z")); T16 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzipG)),YPfalse,YPint((P)1),VARREF(YLtupG),Ynil); fun_unzip_3 = YPfab_met(FUNCODEREF(fun_unzip_3),T16,LITREF(lit_3),LITREF(lit_10),sloc(22),YPfalse); T18 = VARREF_OR(YgooScolsSzipYunzip,YPfalse); T19 = fun_unzip_3; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooScolsSzipYunzip,T17); lit_11 = YPPsym((P)""); T21 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T20 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_11),T21); VARSET(YgooScolsSzipYLzip_stateG,T20); lit_12 = YPPsym((P)"zip-states"); lit_13 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzip_stateG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_zip_states_4 = YPfab_met(FUNCODEREF(fun_zip_states_4),T22,LITREF(lit_12),LITREF(lit_13),sloc(27),YPfalse); T24 = VARREF_OR(YgooScolsSzipYzip_states,YPfalse); T25 = fun_zip_states_4; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooScolsSzipYzip_states,T23); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSzipYLzip_stateG),VARREF(YgooScolsSzipYzip_states),YPfalse,VARREF(YLtupG),VARREF(YPprop_unbound_error)); lit_14 = YPPsym((P)""); T27 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooScolsScolYLenumG),Ynil); T26 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_14),T27); VARSET(YgooScolsSzipYLzip_enumG,T26); lit_15 = YPPsym((P)"%enums"); lit_16 = YPPlist(1,YPPsym((P)"_x")); T28 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_Penums_5 = YPfab_met(FUNCODEREF(fun_Penums_5),T28,LITREF(lit_15),LITREF(lit_16),sloc(31),YPfalse); T30 = VARREF_OR(YgooScolsSzipYPenums,YPfalse); T31 = fun_Penums_5; T29 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T30,T31); VARSET(YgooScolsSzipYPenums,T29); lit_17 = YPPsym((P)"%enums-setter"); lit_18 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T32 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSzipYLzipG),VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_Penums_setter_6 = YPfab_met(FUNCODEREF(fun_Penums_setter_6),T32,LITREF(lit_17),LITREF(lit_18),sloc(31),YPfalse); T34 = VARREF_OR(YgooScolsSzipYPenums_setter,YPfalse); T35 = fun_Penums_setter_6; T33 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T34,T35); VARSET(YgooScolsSzipYPenums_setter,T33); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooScolsSzipYLzip_enumG),VARREF(YgooScolsSzipYPenums),VARREF(YgooScolsSzipYPenums_setter),VARREF(YgooScolsSzipYLzipG),VARREF(YPprop_unbound_error)); lit_19 = YPPsym((P)"enum"); lit_20 = YPPlist(1,YPPsym((P)"x")); T36 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzipG)),YPfalse,YPint((P)1),VARREF(YgooScolsSzipYLzip_enumG),Ynil); fun_enum_7 = YPfab_met(FUNCODEREF(fun_enum_7),T36,LITREF(lit_19),LITREF(lit_20),sloc(33),YPfalse); T38 = VARREF_OR(YgooScolsScolYenum,YPfalse); T39 = fun_enum_7; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooScolsScolYenum,T37); lit_21 = YPPsym((P)"fin?"); lit_22 = YPPlist(1,YPPsym((P)"e")); T40 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_finQ_8 = YPfab_met(FUNCODEREF(fun_finQ_8),T40,LITREF(lit_21),LITREF(lit_22),sloc(36),YPfalse); T42 = VARREF_OR(YgooScolsScolYfinQ,YPfalse); T43 = fun_finQ_8; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooScolsScolYfinQ,T41); lit_23 = YPPsym((P)"nxt"); lit_24 = YPPlist(1,YPPsym((P)"e")); T44 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSzipYLzip_enumG),Ynil); fun_nxt_9 = YPfab_met(FUNCODEREF(fun_nxt_9),T44,LITREF(lit_23),LITREF(lit_24),sloc(39),YPfalse); T46 = VARREF_OR(YgooScolsScolYnxt,YPfalse); T47 = fun_nxt_9; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooScolsScolYnxt,T45); lit_25 = YPPsym((P)"now"); lit_26 = YPPlist(1,YPPsym((P)"e")); T48 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_now_10 = YPfab_met(FUNCODEREF(fun_now_10),T48,LITREF(lit_25),LITREF(lit_26),sloc(42),YPfalse); T50 = VARREF_OR(YgooScolsScolYnow,YPfalse); T51 = fun_now_10; T49 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T50,T51); VARSET(YgooScolsScolYnow,T49); lit_27 = YPPsym((P)"now-setter"); lit_28 = YPPlist(2,YPPsym((P)"v"),YPPsym((P)"e")); T52 = YPfab_sig(YPPlist(2,VARREF(YgooScolsSzipYLzipG),VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_now_setter_11 = YPfab_met(FUNCODEREF(fun_now_setter_11),T52,LITREF(lit_27),LITREF(lit_28),sloc(45),YPfalse); T54 = VARREF_OR(YgooScolsScolYnow_setter,YPfalse); T55 = fun_now_setter_11; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YgooScolsScolYnow_setter,T53); lit_29 = YPPsym((P)"now-key"); lit_30 = YPPlist(1,YPPsym((P)"e")); T58 = YPfab_sig(YPPlist(1,VARREF(YgooScolsSzipYLzip_enumG)),YPfalse,YPint((P)1),VARREF(YgooScolsSzipYLzipG),Ynil); T57 = fun_now_key_12 = YPfab_met(FUNCODEREF(fun_now_key_12),T58,LITREF(lit_29),LITREF(lit_30),sloc(48),YPfalse); T61 = VARREF_OR(YgooScolsScolYnow_key,YPfalse); T62 = fun_now_key_12; T60 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T61,T62); T59 = VARSET(YgooScolsScolYnow_key,T60); T56 = T59; return T56; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSchr; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooStypes}, {&module_info_gooSmath}, {&module_info_gooScolsScol}, {&module_info_gooScolsSseq}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"%enums", CVAR, &YgooScolsSzipYPenums}, {"zip-states", CVAR, &YgooScolsSzipYzip_states}, {"", CVAR, &YgooScolsSzipYLzipG}, {"", CVAR, &YgooScolsSzipYLzip_enumG}, {"zip-dat", CVAR, &YgooScolsSzipYzip_dat}, {"unzip", CVAR, &YgooScolsSzipYunzip}, {"%enums-setter", CVAR, &YgooScolsSzipYPenums_setter}, {"", CVAR, &YgooScolsSzipYLzip_stateG}, {"zip", CVAR, &YgooScolsSzipYzip}, {"---main-0---", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"unzip", NULL}, {"zip", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooScolsSzip; MODULE_INFO module_info_gooScolsSzip = { "goo/cols/zip", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooStypes (void); extern void load_module_gooSmath (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsSseq (void); /* EXPRESSION: */ extern void load_module_gooScolsSzip (void); void load_module_gooScolsSzip (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooStypes(); load_module_gooSmath(); load_module_gooScolsScol(); load_module_gooScolsSseq(); (P)YgooScolsSzipY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/io/0040755000175000017500000000000007756746021014022 5ustar vomjomvomjomgoo-0.155/c/g2c/goo/io/CVS/0040755000175000017500000000000007756746021014455 5ustar vomjomvomjomgoo-0.155/c/g2c/goo/io/CVS/Root0100644000175000017500000000003307756746021015314 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/goo/io/CVS/Repository0100644000175000017500000000002107756746021016545 0ustar vomjomvomjomgoo/c/g2c/goo/io goo-0.155/c/g2c/goo/io/CVS/Entries0100644000175000017500000000025707756746021016012 0ustar vomjomvomjom/%port.c/1.3/Tue Jan 14 22:25:45 2003/-kb/ /port.c/1.39/Wed Nov 19 19:50:12 2003/-kb/ /read.c/1.52/Wed Nov 19 19:50:13 2003/-kb/ /write.c/1.52/Wed Nov 19 19:50:13 2003/-kb/ D goo-0.155/c/g2c/goo/io/%port.c0100644000175000017500000000404507611107151015200 0ustar vomjomvomjom/* Copyright 2002, Jonathan Bachrach. See file TERMS. */ #include extern P Yfile_opening_error; P YgooSioSportYPopen_in_file (P name) { FILE* fd = fopen((PSTR)name, "r"); if (fd == NULL) XXCALL1(1, Yfile_opening_error, YPsb((PSTR)name)); return (P)YPlb(fd); } P YgooSioSportYPopen_out_file (P name) { FILE* fd = fopen((PSTR)name, "w"); if (fd == NULL) XXCALL1(1, Yfile_opening_error, YPsb((PSTR)name)); return (P)YPlb(fd); } P YgooSioSportYPclose_in_port (P s) { fclose((FILE*)YPlu(s)); return YPfalse; } P YgooSioSportYPclose_out_port (P s) { fclose((FILE*)YPlu(s)); return YPfalse; } P YgooSioSportYPnewline (P s) { fputc('\n', (FILE*)YPlu(s)); #ifdef WIN32 if ((FILE*)YPlu(s) == stdout) fflush(stdout); #endif return YPfalse; } P YgooSioSportYPforce_out (P s) { fflush((FILE*)YPlu(s)); return YPfalse; } P YgooSioSportYPput (P s, P x) { fputc((PCHR)(PINT)x, (FILE*)YPlu(s)); #ifdef WIN32 if ((FILE*)YPlu(s) == stdout && (((PCHR)(PINT)x) == '\n')) fflush(stdout); #endif return YPfalse; } P YgooSioSportYPputs (P s, P x) { if(x==NULL) fputs("NULL", (FILE*)YPlu(s)); else fputs((PSTR)x, (FILE*)YPlu(s)); #ifdef WIN32 if ((FILE*)YPlu(s) == stdout) fflush(stdout); #endif return YPfalse; } P YgooSioSportYPget (P s) { return (P)(PINT)fgetc((FILE*)YPlu(s)); } P YgooSioSportYPpeek (P s) { PINT c = fgetc((FILE*)YPlu(s)); ungetc(c, (FILE*)YPlu(s)); return (P)c; } P YgooSioSportYPreadyQ (P s) { int res; #ifdef WIN32 fd_set rfds; FD_ZERO(&rfds); FD_SET(fileno((FILE*)YPlu(s)), &rfds); res = select(1, &rfds, NULL, NULL, NULL); #else res = 1; #endif return((P)(PINT)res); } #define MAXSTRSIZ 1000 char strbuf[MAXSTRSIZ]; PSTR YgooSioSportYPgets (FILE* s) { char *str; fgets(strbuf, MAXSTRSIZ, (FILE*)YPlu(s)); str = (char*)allocate_atomic(strlen(strbuf) + 1); strcpy(str, strbuf); return str; } PPORT YgooSioSportYPcurrent_in_port (void) { return (PPORT)YPlb(stdin); } PPORT YgooSioSportYPcurrent_out_port (void) { return (PPORT)YPlb(stdout); } goo-0.155/c/g2c/goo/io/port.c0100644000175000017500000031236407756744564015172 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/io/port"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/io/port */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); DEF(YgooSioSportYLfile_out_portG,"goo/io/port",""); DEF(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); DEF(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); DEF(YgooSioSportYport_guts_setter,"goo/io/port","port-guts-setter"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); DEF(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); DEF(YgooSioSportYLportG,"goo/io/port",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); DEF(YgooSioSportYputs,"goo/io/port","puts"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); DEF(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); DEF(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); DEF(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); DEF(YgooSioSportYput,"goo/io/port","put"); DEF(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); DEF(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(Yclass_children,"goo/boot","class-children"); DEF(YgooSioSportYport_filename,"goo/io/port","port-filename"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); DEF(YgooSioSportYport_line_setter,"goo/io/port","port-line-setter"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYroundS,"goo/math","round/"); DEF(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); DEF(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); DEF(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); DEF(YgooSioSportYout,"goo/io/port","out"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); DEF(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); DEF(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); DEF(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); DEF(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); DEF(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYK,"goo/math","|"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); DEF(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); DEF(YgooSioSportYport_guts,"goo/io/port","port-guts"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); DEF(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); DEF(YgooSioSportYport_index_setter,"goo/io/port","port-index-setter"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(Ynil,"goo/boot","nil"); DEF(YgooSioSportYget,"goo/io/port","get"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooSmathYsin,"goo/math","sin"); DEF(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_16); DEFLIT(lit_1); DEFLIT(lit_54); DEFLIT(lit_67); DEFLIT(lit_48); DEFLIT(lit_70); DEFLIT(lit_14); DEFLIT(lit_89); DEFLIT(lit_61); DEFLIT(lit_28); DEFLIT(lit_13); DEFLIT(lit_17); DEFLIT(lit_69); DEFLIT(lit_8); DEFLIT(lit_74); DEFLIT(lit_75); DEFLIT(lit_51); DEFLIT(lit_26); DEFLIT(lit_29); DEFLIT(lit_50); DEFLIT(lit_37); DEFLIT(lit_85); DEFLIT(lit_87); DEFLIT(lit_80); DEFLIT(lit_43); DEFLIT(lit_39); DEFLIT(lit_81); DEFLIT(lit_22); DEFLIT(lit_77); DEFLIT(lit_21); DEFLIT(lit_44); DEFLIT(lit_63); DEFLIT(lit_55); DEFLIT(lit_12); DEFLIT(lit_90); DEFLIT(lit_5); DEFLIT(lit_58); DEFLIT(lit_18); DEFLIT(lit_53); DEFLIT(lit_46); DEFLIT(lit_52); DEFLIT(lit_42); DEFLIT(lit_71); DEFLIT(lit_64); DEFLIT(lit_19); DEFLIT(lit_11); DEFLIT(lit_2); DEFLIT(lit_86); DEFLIT(lit_88); DEFLIT(lit_57); DEFLIT(lit_79); DEFLIT(lit_35); DEFLIT(lit_91); DEFLIT(lit_83); DEFLIT(lit_40); DEFLIT(lit_10); DEFLIT(lit_24); DEFLIT(lit_32); DEFLIT(lit_60); DEFLIT(lit_41); DEFLIT(lit_84); DEFLIT(lit_68); DEFLIT(lit_66); DEFLIT(lit_9); DEFLIT(lit_45); DEFLIT(lit_4); DEFLIT(lit_65); DEFLIT(lit_59); DEFLIT(lit_27); DEFLIT(lit_15); DEFLIT(lit_6); DEFLIT(lit_36); DEFLIT(lit_56); DEFLIT(lit_34); DEFLIT(lit_72); DEFLIT(lit_49); DEFLIT(lit_38); DEFLIT(lit_73); DEFLIT(lit_31); DEFLIT(lit_33); DEFLIT(lit_62); DEFLIT(lit_78); DEFLIT(lit_20); DEFLIT(lit_25); DEFLIT(lit_0); DEFLIT(lit_7); DEFLIT(lit_47); DEFLIT(lit_76); DEFLIT(lit_23); DEFLIT(lit_3); DEFLIT(lit_82); DEFLIT(lit_30); /* FUNCTIONS: */ LOCFOR(fun_port_line_0); LOCFOR(fun_port_line_setter_1); LOCFOR(fun_2); LOCFOR(fun_port_filename_3); LOCFOR(fun_4); LOCFOR(fun_port_handle_5); LOCFOR(fun_close_6); LOCFOR(fun_port_guts_7); LOCFOR(fun_port_guts_setter_8); LOCFOR(fun_9); LOCFOR(fun_port_index_10); LOCFOR(fun_port_index_setter_11); LOCFOR(fun_12); LOCFOR(fun_gets_13); LOCFOR(fun_open_14); LOCFOR(fun_open_15); LOCFOR(fun_close_16); LOCFOR(fun_close_17); LOCFOR(fun_x_1429_18); LOCFOR(fun_19); LOCFOR(fun_20); LOCFOR(fun_get_21); LOCFOR(fun_peek_22); LOCFOR(fun_readyQ_23); LOCFOR(fun_newline_24); LOCFOR(fun_force_out_25); LOCFOR(fun_put_26); LOCFOR(fun_puts_27); LOCFOR(fun_port_contents_28); LOCFOR(fun_open_29); LOCFOR(fun_open_30); LOCFOR(fun_peek_31); LOCFOR(fun_get_32); LOCFOR(fun_readyQ_33); LOCFOR(fun_put_34); LOCFOR(fun_puts_35); LOCFOR(fun_x_1433_36); LOCFOR(fun_37); LOCFOR(fun_38); extern P YgooSioSportY___main_0___ (); extern P YgooSioSportY___main_1___ (); extern P YgooSioSportY___main_2___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_port_line_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSioSportYport_line)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_port_line_setter_1) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSioSportYport_line)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_2) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)1)); } LOCCODEDEF(fun_port_filename_3) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSioSportYport_filename)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_4) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_32)); } LOCCODEDEF(fun_port_handle_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSioSportYport_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_close_6) { P port_; LINK_STACK(); ARG(port_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_port_guts_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSioSportYport_guts)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_port_guts_setter_8) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSioSportYport_guts)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(LITREF(lit_32)); } LOCCODEDEF(fun_port_index_10) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSioSportYport_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_port_index_setter_11) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YgooSioSportYport_index)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_12) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_gets_13) { P port_; P tmpF3630; P cF3629; P resF3628; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9; LINK_STACK(); ARG(port_, 0); resF3628 = Ynil; T9 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3629 = T9; LOOP_150: { P a150_0,a150_1; T3 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3629); tmpF3630 = T3; if (tmpF3630 != YPfalse) { T1 = tmpF3630; } else { T2 = CALL2(1,VARREF(YgooSmacrosYEE),cF3629,YPchr((P)10)); T1 = T2; } if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmacrosYrevX),resF3628); T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T5); T0 = T4; } else { T7 = CALL2(1,VARREF(YgooSmacrosYpair),cF3629,resF3628); T8 = CALL1(1,VARREF(YgooSioSportYget),port_); a150_0 = T7; a150_1 = T8; resF3628 = a150_0; cF3629 = a150_1; goto LOOP_150; T0 = T6; } } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_open_14) { P t_,filename_; P T0,T1,T2; LINK_STACK(); ARG(t_, 0); ARG(filename_, 1); T2 = (P)YPsu(filename_); T1 = (P)YgooSioSportYPopen_in_file(T2); T0 = CALL5(1,VARREF(Ynew),VARREF(YgooSioSportYLfile_in_portG),VARREF(YgooSioSportYport_filename),filename_,VARREF(YgooSioSportYport_handle),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_open_15) { P t_,filename_; P T0,T1,T2; LINK_STACK(); ARG(t_, 0); ARG(filename_, 1); T2 = (P)YPsu(filename_); T1 = (P)YgooSioSportYPopen_out_file(T2); T0 = CALL5(1,VARREF(Ynew),VARREF(YgooSioSportYLfile_out_portG),VARREF(YgooSioSportYport_filename),filename_,VARREF(YgooSioSportYport_handle),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_close_16) { P port_; P T0,T1; LINK_STACK(); ARG(port_, 0); T1 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T0 = (P)YgooSioSportYPclose_in_port(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_close_17) { P port_; P T0,T1; LINK_STACK(); ARG(port_, 0); T1 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T0 = (P)YgooSioSportYPclose_out_port(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1429_18) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_62),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_19) { P return_; P x_1428F3643; P x_1428F3642; P x_1428F3641; P x_1428F3640; P x_1428F3639; P x_1428F3638; P x_1428F3637; P x_1428F3636; P bodyF3635; P portF3634; P nameF3633; P x_1428F3632; P x_1429F3631; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50; LINK_STACK(); ARG(return_, 0); T50 = FUNSHELL(0,fun_x_1429_18,2); x_1429F3631 = T50; FUNINIT(x_1429F3631, 2,FREEREF(0),return_); x_1428F3632 = FREEREF(0); nameF3633 = YPfalse; portF3634 = YPfalse; bodyF3635 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1428F3632,VARREF(YLlstG)); if (T3 != YPfalse) { T15 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1428F3632,LITREF(lit_62),x_1429F3631); x_1428F3636 = T15; T13 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1428F3636,x_1429F3631); x_1428F3637 = T13; T11 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1428F3637,x_1429F3631); nameF3633 = T11; T12 = CALL1(1,VARREF(Ytail),x_1428F3637); x_1428F3638 = T12; T9 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1428F3638,x_1429F3631); portF3634 = T9; T10 = CALL1(1,VARREF(Ytail),x_1428F3638); x_1428F3639 = T10; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_sublist),x_1428F3639,x_1429F3631); x_1428F3640 = T7; T6 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1428F3640,x_1429F3631); T8 = CALL1(1,VARREF(Ytail),x_1428F3639); x_1428F3641 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1428F3641,x_1429F3631); T14 = CALL1(1,VARREF(Ytail),x_1428F3636); x_1428F3642 = T14; bodyF3635 = x_1428F3642; x_1428F3643 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1428F3643,x_1429F3631); } else { T16 = CALL2(1,x_1429F3631,LITREF(lit_63),x_1428F3632); } T18 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T24 = nameF3633; T23 = CALL1(1,VARREF(Ylst),T24); T25 = CALL1(1,VARREF(Ylst),YPfalse); T22 = CALL3(1,VARREF(YgooSmacrosYcat),T23,T25,LITREF(lit_65)); T21 = CALL1(1,VARREF(Ylst),T22); T20 = CALL2(1,VARREF(YgooSmacrosYcat),T21,LITREF(lit_65)); T19 = CALL1(1,VARREF(Ylst),T20); T28 = CALL1(1,VARREF(Ylst),LITREF(lit_66)); T31 = CALL1(1,VARREF(Ylst),LITREF(lit_67)); T34 = CALL1(1,VARREF(Ylst),LITREF(lit_68)); T36 = nameF3633; T35 = CALL1(1,VARREF(Ylst),T36); T38 = portF3634; T37 = CALL1(1,VARREF(Ylst),T38); T33 = CALL4(1,VARREF(YgooSmacrosYcat),T34,T35,T37,LITREF(lit_65)); T32 = CALL1(1,VARREF(Ylst),T33); T39 = bodyF3635; T30 = CALL4(1,VARREF(YgooSmacrosYcat),T31,T32,T39,LITREF(lit_65)); T29 = CALL1(1,VARREF(Ylst),T30); T42 = CALL1(1,VARREF(Ylst),LITREF(lit_69)); T44 = nameF3633; T43 = CALL1(1,VARREF(Ylst),T44); T47 = CALL1(1,VARREF(Ylst),LITREF(lit_3)); T49 = nameF3633; T48 = CALL1(1,VARREF(Ylst),T49); T46 = CALL3(1,VARREF(YgooSmacrosYcat),T47,T48,LITREF(lit_65)); T45 = CALL1(1,VARREF(Ylst),T46); T41 = CALL4(1,VARREF(YgooSmacrosYcat),T42,T43,T45,LITREF(lit_65)); T40 = CALL1(1,VARREF(Ylst),T41); T27 = CALL4(1,VARREF(YgooSmacrosYcat),T28,T29,T40,LITREF(lit_65)); T26 = CALL1(1,VARREF(Ylst),T27); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T26,LITREF(lit_65)); UNLINK_STACK(); QRET(T17); } LOCCODEDEF(fun_20) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_19,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_get_21) { P port_; P cF3647; P tF3646; P xF3645; P xF3644; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(port_, 0); T7 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T6 = (P)YgooSioSportYPget(T7); xF3644 = T6; xF3645 = xF3644; tF3646 = (P)2; T5 = (P)YPiLL(xF3645,(P)2); T4 = (P)YPiv(T5,tF3646); cF3647 = T4; T0 = CALL2(1,VARREF(YgooSmacrosYEE),cF3647,YPchr((P)10)); if (T0 != YPfalse) { T3 = CALL1(1,VARREF(YgooSioSportYport_line),port_); T2 = CALL2(1,VARREF(YgooSmathYA),T3,YPint((P)1)); T1 = CALL2(1,VARREF(YgooSioSportYport_line_setter),T2,port_); } else { } UNLINK_STACK(); RET(cF3647); } LOCCODEDEF(fun_peek_22) { P port_; P tF3650; P xF3649; P xF3648; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); T3 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T2 = (P)YgooSioSportYPpeek(T3); xF3648 = T2; xF3649 = xF3648; tF3650 = (P)2; T1 = (P)YPiLL(xF3649,(P)2); T0 = (P)YPiv(T1,tF3650); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_readyQ_23) { P port_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); T2 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T1 = (P)YgooSioSportYPreadyQ(T2); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_newline_24) { P port_; P T0; LINK_STACK(); ARG(port_, 0); T0 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)10)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_force_out_25) { P port_; P T0,T1; LINK_STACK(); ARG(port_, 0); T1 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T0 = (P)YgooSioSportYPforce_out(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_put_26) { P port_,c_; P xF3652; P xF3651; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(c_, 1); T1 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); xF3651 = c_; xF3652 = xF3651; T2 = (P)YPiGG(xF3652,(P)2); T0 = (P)YgooSioSportYPput(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_puts_27) { P port_,s_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(s_, 1); T1 = CALL1(1,VARREF(YgooSioSportYport_handle),port_); T2 = (P)YPsu(s_); T0 = (P)YgooSioSportYPputs(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_port_contents_28) { P port_; P T0,T1; LINK_STACK(); ARG(port_, 0); T1 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_open_29) { P t_,dat_; P T0; LINK_STACK(); ARG(t_, 0); ARG(dat_, 1); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooSioSportYLstr_in_portG),VARREF(YgooSioSportYport_guts),dat_); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_open_30) { P t_,dat_; P T0,T1; LINK_STACK(); ARG(t_, 0); ARG(dat_, 1); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YgooScolsSvecYLvecG),dat_); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooSioSportYLstr_out_portG),VARREF(YgooSioSportYport_guts),T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_peek_31) { P port_; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(port_, 0); T2 = CALL1(1,VARREF(YgooSioSportYport_index),port_); T4 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T3 = CALL1(1,VARREF(YgooStypesYlen),T4); T1 = CALL2(1,VARREF(YgooSmagYGE),T2,T3); if (T1 != YPfalse) { T5 = CALL0(1,VARREF(YgooSchrYeof_object)); T0 = T5; } else { T7 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T8 = CALL1(1,VARREF(YgooSioSportYport_index),port_); T6 = CALL2(1,VARREF(YgooSmacrosYelt),T7,T8); T0 = T6; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_get_32) { P port_; P resF3653; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(port_, 0); T2 = CALL1(1,VARREF(YgooSioSportYport_index),port_); T4 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T3 = CALL1(1,VARREF(YgooStypesYlen),T4); T1 = CALL2(1,VARREF(YgooSmagYGE),T2,T3); if (T1 != YPfalse) { T5 = CALL0(1,VARREF(YgooSchrYeof_object)); T0 = T5; } else { T9 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T10 = CALL1(1,VARREF(YgooSioSportYport_index),port_); T8 = CALL2(1,VARREF(YgooSmacrosYelt),T9,T10); resF3653 = T8; T7 = CALL1(1,VARREF(YgooSioSportYport_index),port_); T6 = CALL2(1,VARREF(YgooSmathYA),T7,YPint((P)1)); CALL2(1,VARREF(YgooSioSportYport_index_setter),T6,port_); T0 = resF3653; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_readyQ_33) { P port_; LINK_STACK(); ARG(port_, 0); UNLINK_STACK(); RET(YPtrue); } LOCCODEDEF(fun_put_34) { P port_,c_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(c_, 1); T2 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T1 = CALL2(1,VARREF(YgooScolsScolxYaddX),T2,c_); T0 = CALL2(1,VARREF(YgooSioSportYport_guts_setter),T1,port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_puts_35) { P port_,s_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(s_, 1); T2 = CALL1(1,VARREF(YgooSioSportYport_guts),port_); T1 = CALL2(1,VARREF(YgooScolsSseqxYcatX),T2,s_); T0 = CALL2(1,VARREF(YgooSioSportYport_guts_setter),T1,port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_x_1433_36) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_91),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_37) { P return_; P x_1432F3660; P x_1432F3659; P x_1432F3658; P bodyF3657; P nameF3656; P x_1432F3655; P x_1433F3654; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27; LINK_STACK(); ARG(return_, 0); T27 = FUNSHELL(0,fun_x_1433_36,2); x_1433F3654 = T27; FUNINIT(x_1433F3654, 2,FREEREF(0),return_); x_1432F3655 = FREEREF(0); nameF3656 = YPfalse; bodyF3657 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1432F3655,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1432F3655,LITREF(lit_91),x_1433F3654); x_1432F3658 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1432F3658,x_1433F3654); nameF3656 = T4; T5 = CALL1(1,VARREF(Ytail),x_1432F3658); x_1432F3659 = T5; bodyF3657 = x_1432F3659; x_1432F3660 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1432F3660,x_1433F3654); } else { T7 = CALL2(1,x_1433F3654,LITREF(lit_63),x_1432F3655); } T9 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T15 = nameF3656; T14 = CALL1(1,VARREF(Ylst),T15); T18 = CALL1(1,VARREF(Ylst),LITREF(lit_1)); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_52)); T20 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T17 = CALL4(1,VARREF(YgooSmacrosYcat),T18,T19,T20,LITREF(lit_65)); T16 = CALL1(1,VARREF(Ylst),T17); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T16,LITREF(lit_65)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_65)); T10 = CALL1(1,VARREF(Ylst),T11); T21 = bodyF3657; T24 = CALL1(1,VARREF(Ylst),LITREF(lit_44)); T26 = nameF3656; T25 = CALL1(1,VARREF(Ylst),T26); T23 = CALL3(1,VARREF(YgooSmacrosYcat),T24,T25,LITREF(lit_65)); T22 = CALL1(1,VARREF(Ylst),T23); T8 = CALL5(1,VARREF(YgooSmacrosYcat),T9,T10,T21,T22,LITREF(lit_65)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_38) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_37,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } P YgooSioSportY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YgooSioSportYLportG,T0); lit_1 = YPPsym((P)"open"); lit_2 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"name")); T4 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YgooSioSportYLportG)); T3 = YPfab_sig(YPPlist(2,T4,VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YgooSioSportYLportG),Ynil); T2 = YPfab_gen(T3,LITREF(lit_1),LITREF(lit_2),YPfalse); VARSET(YgooSioSportYopen,T2); lit_3 = YPPsym((P)"close"); lit_4 = YPPlist(1,YPPsym((P)"x")); T6 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T5 = YPfab_gen(T6,LITREF(lit_3),LITREF(lit_4),YPfalse); VARSET(YgooSioSportYclose,T5); lit_5 = YPPsym((P)""); T8 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLportG),Ynil); T7 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_5),T8); VARSET(YgooSioSportYLin_portG,T7); lit_6 = YPPsym((P)"port-line"); lit_7 = YPPlist(1,YPPsym((P)"_x")); T9 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_port_line_0 = YPfab_met(FUNCODEREF(fun_port_line_0),T9,LITREF(lit_6),LITREF(lit_7),sloc(35),YPfalse); T11 = VARREF_OR(YgooSioSportYport_line,YPfalse); T12 = fun_port_line_0; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YgooSioSportYport_line,T10); lit_8 = YPPsym((P)"port-line-setter"); lit_9 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T13 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_port_line_setter_1 = YPfab_met(FUNCODEREF(fun_port_line_setter_1),T13,LITREF(lit_8),LITREF(lit_9),sloc(35),YPfalse); T15 = VARREF_OR(YgooSioSportYport_line_setter,YPfalse); T16 = fun_port_line_setter_1; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YgooSioSportYport_line_setter,T14); lit_10 = YPPlist(1,YPPsym((P)"_x")); T17 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T17,YPfalse,LITREF(lit_10),sloc(35),YPfalse); T18 = fun_2; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSioSportYLin_portG),VARREF(YgooSioSportYport_line),VARREF(YgooSioSportYport_line_setter),VARREF(YLintG),T18); lit_11 = YPPsym((P)"get"); lit_12 = YPPlist(1,YPPsym((P)"port")); T20 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); T19 = YPfab_gen(T20,LITREF(lit_11),LITREF(lit_12),YPfalse); VARSET(YgooSioSportYget,T19); lit_13 = YPPsym((P)"gets"); lit_14 = YPPlist(1,YPPsym((P)"port")); T22 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T21 = YPfab_gen(T22,LITREF(lit_13),LITREF(lit_14),YPfalse); VARSET(YgooSioSportYgets,T21); lit_15 = YPPsym((P)"peek"); lit_16 = YPPlist(1,YPPsym((P)"port")); T26 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); T25 = YPfab_gen(T26,LITREF(lit_15),LITREF(lit_16),YPfalse); T24 = VARSET(YgooSioSportYpeek,T25); T23 = T24; return T23; } P YgooSioSportY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64; DEFCREGS(); lit_17 = YPPsym((P)"ready?"); lit_18 = YPPlist(1,YPPsym((P)"port")); T1 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); T0 = YPfab_gen(T1,LITREF(lit_17),LITREF(lit_18),YPfalse); VARSET(YgooSioSportYreadyQ,T0); lit_19 = YPPsym((P)""); T3 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLportG),Ynil); T2 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_19),T3); VARSET(YgooSioSportYLout_portG,T2); lit_20 = YPPsym((P)"newline"); lit_21 = YPPlist(1,YPPsym((P)"port")); T5 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLout_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T4 = YPfab_gen(T5,LITREF(lit_20),LITREF(lit_21),YPfalse); VARSET(YgooSioSportYnewline,T4); lit_22 = YPPsym((P)"force-out"); lit_23 = YPPlist(1,YPPsym((P)"port")); T7 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLout_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T6 = YPfab_gen(T7,LITREF(lit_22),LITREF(lit_23),YPfalse); VARSET(YgooSioSportYforce_out,T6); lit_24 = YPPsym((P)"put"); lit_25 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"c")); T9 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T8 = YPfab_gen(T9,LITREF(lit_24),LITREF(lit_25),YPfalse); VARSET(YgooSioSportYput,T8); lit_26 = YPPsym((P)"puts"); lit_27 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"s")); T11 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T10 = YPfab_gen(T11,LITREF(lit_26),LITREF(lit_27),YPfalse); VARSET(YgooSioSportYputs,T10); lit_28 = YPPsym((P)""); T13 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLportG),Ynil); T12 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_28),T13); VARSET(YgooSioSportYLfile_portG,T12); lit_29 = YPPsym((P)"port-filename"); lit_30 = YPPlist(1,YPPsym((P)"_x")); T14 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_port_filename_3 = YPfab_met(FUNCODEREF(fun_port_filename_3),T14,LITREF(lit_29),LITREF(lit_30),sloc(35),YPfalse); T16 = VARREF_OR(YgooSioSportYport_filename,YPfalse); T17 = fun_port_filename_3; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSioSportYport_filename,T15); lit_31 = YPPlist(1,YPPsym((P)"_x")); lit_32 = YPsb((P)""); T18 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_4 = YPfab_met(FUNCODEREF(fun_4),T18,YPfalse,LITREF(lit_31),sloc(35),YPfalse); T19 = fun_4; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSioSportYLfile_portG),VARREF(YgooSioSportYport_filename),YPfalse,VARREF(YLstrG),T19); lit_33 = YPPsym((P)"port-handle"); lit_34 = YPPlist(1,YPPsym((P)"_x")); T20 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_port_handle_5 = YPfab_met(FUNCODEREF(fun_port_handle_5),T20,LITREF(lit_33),LITREF(lit_34),sloc(35),YPfalse); T22 = VARREF_OR(YgooSioSportYport_handle,YPfalse); T23 = fun_port_handle_5; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSioSportYport_handle,T21); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSioSportYLfile_portG),VARREF(YgooSioSportYport_handle),YPfalse,VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_35 = YPPlist(1,YPPsym((P)"port")); T24 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_close_6 = YPfab_met(FUNCODEREF(fun_close_6),T24,LITREF(lit_3),LITREF(lit_35),sloc(60),YPfalse); T26 = VARREF_OR(YgooSioSportYclose,YPfalse); T27 = fun_close_6; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooSioSportYclose,T25); lit_36 = YPPsym((P)""); T30 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLin_portG),Ynil); T29 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLfile_portG),T30); T28 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_36),T29); VARSET(YgooSioSportYLfile_in_portG,T28); lit_37 = YPPsym((P)""); T33 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLout_portG),Ynil); T32 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLfile_portG),T33); T31 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_37),T32); VARSET(YgooSioSportYLfile_out_portG,T31); VARSET(YgooSioSportYin,YPfalse); VARSET(YgooSioSportYout,YPfalse); lit_38 = YPPsym((P)""); T35 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLportG),Ynil); T34 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_38),T35); VARSET(YgooSioSportYLstr_portG,T34); lit_39 = YPPsym((P)"port-guts"); lit_40 = YPPlist(1,YPPsym((P)"_x")); T36 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_port_guts_7 = YPfab_met(FUNCODEREF(fun_port_guts_7),T36,LITREF(lit_39),LITREF(lit_40),sloc(71),YPfalse); T38 = VARREF_OR(YgooSioSportYport_guts,YPfalse); T39 = fun_port_guts_7; T37 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T38,T39); VARSET(YgooSioSportYport_guts,T37); lit_41 = YPPsym((P)"port-guts-setter"); lit_42 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T40 = YPfab_sig(YPPlist(2,VARREF(YLseqG),VARREF(YgooSioSportYLstr_portG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_port_guts_setter_8 = YPfab_met(FUNCODEREF(fun_port_guts_setter_8),T40,LITREF(lit_41),LITREF(lit_42),sloc(71),YPfalse); T42 = VARREF_OR(YgooSioSportYport_guts_setter,YPfalse); T43 = fun_port_guts_setter_8; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(YgooSioSportYport_guts_setter,T41); lit_43 = YPPlist(1,YPPsym((P)"_x")); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T44,YPfalse,LITREF(lit_43),sloc(71),YPfalse); T45 = fun_9; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSioSportYLstr_portG),VARREF(YgooSioSportYport_guts),VARREF(YgooSioSportYport_guts_setter),VARREF(YLseqG),T45); lit_44 = YPPsym((P)"port-contents"); lit_45 = YPPlist(1,YPPsym((P)"port")); T47 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_portG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); T46 = YPfab_gen(T47,LITREF(lit_44),LITREF(lit_45),YPfalse); VARSET(YgooSioSportYport_contents,T46); lit_46 = YPPsym((P)""); T50 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLin_portG),Ynil); T49 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLstr_portG),T50); T48 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_46),T49); VARSET(YgooSioSportYLstr_in_portG,T48); lit_47 = YPPsym((P)"port-index"); lit_48 = YPPlist(1,YPPsym((P)"_x")); T51 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_in_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_port_index_10 = YPfab_met(FUNCODEREF(fun_port_index_10),T51,LITREF(lit_47),LITREF(lit_48),sloc(73),YPfalse); T53 = VARREF_OR(YgooSioSportYport_index,YPfalse); T54 = fun_port_index_10; T52 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T53,T54); VARSET(YgooSioSportYport_index,T52); lit_49 = YPPsym((P)"port-index-setter"); lit_50 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T55 = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YgooSioSportYLstr_in_portG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_port_index_setter_11 = YPfab_met(FUNCODEREF(fun_port_index_setter_11),T55,LITREF(lit_49),LITREF(lit_50),sloc(73),YPfalse); T57 = VARREF_OR(YgooSioSportYport_index_setter,YPfalse); T58 = fun_port_index_setter_11; T56 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T57,T58); VARSET(YgooSioSportYport_index_setter,T56); lit_51 = YPPlist(1,YPPsym((P)"_x")); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T59,YPfalse,LITREF(lit_51),sloc(73),YPfalse); T60 = fun_12; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSioSportYLstr_in_portG),VARREF(YgooSioSportYport_index),VARREF(YgooSioSportYport_index_setter),VARREF(YLintG),T60); lit_52 = YPPsym((P)""); T63 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLout_portG),Ynil); T62 = XCALL2(1,VARREF(Yfab_pair),VARREF(YgooSioSportYLstr_portG),T63); T61 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_52),T62); VARSET(YgooSioSportYLstr_out_portG,T61); T64 = YPfalse; return T64; } P YgooSioSportY___main_2___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100; DEFCREGS(); lit_53 = YPPlist(1,YPPsym((P)"port")); T0 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_gets_13 = YPfab_met(FUNCODEREF(fun_gets_13),T0,LITREF(lit_13),LITREF(lit_53),sloc(80),YPfalse); T2 = VARREF_OR(YgooSioSportYgets,YPfalse); T3 = fun_gets_13; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSioSportYgets,T1); lit_54 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"filename")); T5 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooSioSportYLfile_in_portG)); T4 = YPfab_sig(YPPlist(2,T5,VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YgooSioSportYLfile_in_portG),Ynil); fun_open_14 = YPfab_met(FUNCODEREF(fun_open_14),T4,LITREF(lit_1),LITREF(lit_54),sloc(86),YPfalse); T7 = VARREF_OR(YgooSioSportYopen,YPfalse); T8 = fun_open_14; T6 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T7,T8); VARSET(YgooSioSportYopen,T6); lit_55 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"filename")); T10 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooSioSportYLfile_out_portG)); T9 = YPfab_sig(YPPlist(2,T10,VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YgooSioSportYLfile_out_portG),Ynil); fun_open_15 = YPfab_met(FUNCODEREF(fun_open_15),T9,LITREF(lit_1),LITREF(lit_55),sloc(91),YPfalse); T12 = VARREF_OR(YgooSioSportYopen,YPfalse); T13 = fun_open_15; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSioSportYopen,T11); lit_56 = YPPlist(1,YPPsym((P)"port")); T14 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_in_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_close_16 = YPfab_met(FUNCODEREF(fun_close_16),T14,LITREF(lit_3),LITREF(lit_56),sloc(96),YPfalse); T16 = VARREF_OR(YgooSioSportYclose,YPfalse); T17 = fun_close_16; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSioSportYclose,T15); lit_57 = YPPlist(1,YPPsym((P)"port")); T18 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_out_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_close_17 = YPfab_met(FUNCODEREF(fun_close_17),T18,LITREF(lit_3),LITREF(lit_57),sloc(99),YPfalse); T20 = VARREF_OR(YgooSioSportYclose,YPfalse); T21 = fun_close_17; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooSioSportYclose,T19); lit_58 = YPPlist(1,YPPsym((P)"exp")); lit_59 = YPPlist(1,YPPsym((P)"return")); lit_60 = YPPsym((P)"x-1429"); lit_61 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_62 = YPPsym((P)"with-port"); lit_63 = YPsb((P)"Match Pattern Failure"); lit_64 = YPPsym((P)"let"); lit_65 = Ynil; lit_66 = YPPsym((P)"fin"); lit_67 = YPPsym((P)"seq"); lit_68 = YPPsym((P)"set"); lit_69 = YPPsym((P)"and"); T24 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1429_18 = YPfab_met(FUNCODEREF(fun_x_1429_18),T24,LITREF(lit_60),LITREF(lit_61),YPfalse,YPfalse); T23 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_19 = YPfab_met(FUNCODEREF(fun_19),T23,YPfalse,LITREF(lit_59),YPfalse,YPfalse); T22 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_20 = YPfab_met(FUNCODEREF(fun_20),T22,YPfalse,LITREF(lit_58),YPfalse,YPfalse); T25 = fun_20; YPmacro(YPPsym((P)"goo/io/port"),YPPsym((P)"with-port"),T25); lit_70 = YPsb((P)"in"); T27 = (P)YgooSioSportYPcurrent_in_port(); T26 = XCALL5(1,VARREF(Ynew),VARREF(YgooSioSportYLfile_in_portG),VARREF(YgooSioSportYport_filename),LITREF(lit_70),VARREF(YgooSioSportYport_handle),T27); VARSET(YgooSioSportYin,T26); lit_71 = YPsb((P)"out"); T29 = (P)YgooSioSportYPcurrent_out_port(); T28 = XCALL5(1,VARREF(Ynew),VARREF(YgooSioSportYLfile_out_portG),VARREF(YgooSioSportYport_filename),LITREF(lit_71),VARREF(YgooSioSportYport_handle),T29); VARSET(YgooSioSportYout,T28); lit_72 = YPPlist(1,YPPsym((P)"port")); T30 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_in_portG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_get_21 = YPfab_met(FUNCODEREF(fun_get_21),T30,LITREF(lit_11),LITREF(lit_72),sloc(115),YPfalse); T32 = VARREF_OR(YgooSioSportYget,YPfalse); T33 = fun_get_21; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSioSportYget,T31); lit_73 = YPPlist(1,YPPsym((P)"port")); T34 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_in_portG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_peek_22 = YPfab_met(FUNCODEREF(fun_peek_22),T34,LITREF(lit_15),LITREF(lit_73),sloc(120),YPfalse); T36 = VARREF_OR(YgooSioSportYpeek,YPfalse); T37 = fun_peek_22; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooSioSportYpeek,T35); lit_74 = YPPlist(1,YPPsym((P)"port")); T38 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_in_portG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_readyQ_23 = YPfab_met(FUNCODEREF(fun_readyQ_23),T38,LITREF(lit_17),LITREF(lit_74),sloc(123),YPfalse); T40 = VARREF_OR(YgooSioSportYreadyQ,YPfalse); T41 = fun_readyQ_23; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSioSportYreadyQ,T39); lit_75 = YPPlist(1,YPPsym((P)"port")); T42 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLout_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_newline_24 = YPfab_met(FUNCODEREF(fun_newline_24),T42,LITREF(lit_20),LITREF(lit_75),sloc(126),YPfalse); T44 = VARREF_OR(YgooSioSportYnewline,YPfalse); T45 = fun_newline_24; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSioSportYnewline,T43); lit_76 = YPPlist(1,YPPsym((P)"port")); T46 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLfile_out_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_force_out_25 = YPfab_met(FUNCODEREF(fun_force_out_25),T46,LITREF(lit_22),LITREF(lit_76),sloc(129),YPfalse); T48 = VARREF_OR(YgooSioSportYforce_out,YPfalse); T49 = fun_force_out_25; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSioSportYforce_out,T47); lit_77 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"c")); T50 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLfile_out_portG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_put_26 = YPfab_met(FUNCODEREF(fun_put_26),T50,LITREF(lit_24),LITREF(lit_77),sloc(132),YPfalse); T52 = VARREF_OR(YgooSioSportYput,YPfalse); T53 = fun_put_26; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSioSportYput,T51); lit_78 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"s")); T54 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLfile_out_portG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_puts_27 = YPfab_met(FUNCODEREF(fun_puts_27),T54,LITREF(lit_26),LITREF(lit_78),sloc(135),YPfalse); T56 = VARREF_OR(YgooSioSportYputs,YPfalse); T57 = fun_puts_27; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSioSportYputs,T55); lit_79 = YPPlist(1,YPPsym((P)"port")); T58 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_portG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_port_contents_28 = YPfab_met(FUNCODEREF(fun_port_contents_28),T58,LITREF(lit_44),LITREF(lit_79),sloc(140),YPfalse); T60 = VARREF_OR(YgooSioSportYport_contents,YPfalse); T61 = fun_port_contents_28; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooSioSportYport_contents,T59); lit_80 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"dat")); T63 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooSioSportYLstr_in_portG)); T62 = YPfab_sig(YPPlist(2,T63,VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YgooSioSportYLstr_in_portG),Ynil); fun_open_29 = YPfab_met(FUNCODEREF(fun_open_29),T62,LITREF(lit_1),LITREF(lit_80),sloc(143),YPfalse); T65 = VARREF_OR(YgooSioSportYopen,YPfalse); T66 = fun_open_29; T64 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T65,T66); VARSET(YgooSioSportYopen,T64); lit_81 = YPPlist(2,YPPsym((P)"t"),YPPsym((P)"dat")); T68 = XCALL1(1,VARREF(YgooStypesYtE),VARREF(YgooSioSportYLstr_out_portG)); T67 = YPfab_sig(YPPlist(2,T68,VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YgooSioSportYLstr_out_portG),Ynil); fun_open_30 = YPfab_met(FUNCODEREF(fun_open_30),T67,LITREF(lit_1),LITREF(lit_81),sloc(148),YPfalse); T70 = VARREF_OR(YgooSioSportYopen,YPfalse); T71 = fun_open_30; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YgooSioSportYopen,T69); lit_82 = YPPlist(1,YPPsym((P)"port")); T72 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_in_portG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_peek_31 = YPfab_met(FUNCODEREF(fun_peek_31),T72,LITREF(lit_15),LITREF(lit_82),sloc(153),YPfalse); T74 = VARREF_OR(YgooSioSportYpeek,YPfalse); T75 = fun_peek_31; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooSioSportYpeek,T73); lit_83 = YPPlist(1,YPPsym((P)"port")); T76 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_in_portG)),YPfalse,YPint((P)1),VARREF(YLchrG),Ynil); fun_get_32 = YPfab_met(FUNCODEREF(fun_get_32),T76,LITREF(lit_11),LITREF(lit_83),sloc(158),YPfalse); T78 = VARREF_OR(YgooSioSportYget,YPfalse); T79 = fun_get_32; T77 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T78,T79); VARSET(YgooSioSportYget,T77); lit_84 = YPPlist(1,YPPsym((P)"port")); T80 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLstr_in_portG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_readyQ_33 = YPfab_met(FUNCODEREF(fun_readyQ_33),T80,LITREF(lit_17),LITREF(lit_84),sloc(165),YPfalse); T82 = VARREF_OR(YgooSioSportYreadyQ,YPfalse); T83 = fun_readyQ_33; T81 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T82,T83); VARSET(YgooSioSportYreadyQ,T81); lit_85 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"c")); T84 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLstr_out_portG),VARREF(YLchrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_put_34 = YPfab_met(FUNCODEREF(fun_put_34),T84,LITREF(lit_24),LITREF(lit_85),sloc(168),YPfalse); T86 = VARREF_OR(YgooSioSportYput,YPfalse); T87 = fun_put_34; T85 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T86,T87); VARSET(YgooSioSportYput,T85); lit_86 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"s")); T88 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLstr_out_portG),VARREF(YLstrG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_puts_35 = YPfab_met(FUNCODEREF(fun_puts_35),T88,LITREF(lit_26),LITREF(lit_86),sloc(171),YPfalse); T90 = VARREF_OR(YgooSioSportYputs,YPfalse); T91 = fun_puts_35; T89 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T90,T91); VARSET(YgooSioSportYputs,T89); lit_87 = YPPlist(1,YPPsym((P)"exp")); lit_88 = YPPlist(1,YPPsym((P)"return")); lit_89 = YPPsym((P)"x-1433"); lit_90 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_91 = YPPsym((P)"port-to-str"); T98 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); T97 = fun_x_1433_36 = YPfab_met(FUNCODEREF(fun_x_1433_36),T98,LITREF(lit_89),LITREF(lit_90),YPfalse,YPfalse); T96 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T95 = fun_37 = YPfab_met(FUNCODEREF(fun_37),T96,YPfalse,LITREF(lit_88),YPfalse,YPfalse); T94 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); T93 = fun_38 = YPfab_met(FUNCODEREF(fun_38),T94,YPfalse,LITREF(lit_87),YPfalse,YPfalse); T100 = fun_38; T99 = YPmacro(YPPsym((P)"goo/io/port"),YPPsym((P)"port-to-str"),T100); T92 = T99; return T92; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSvec; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooStypes}, {&module_info_gooScolsScol}, {&module_info_gooScolsScolx}, {&module_info_gooScolsSseq}, {&module_info_gooScolsSseqx}, {&module_info_gooScolsSvec}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"%break", &module_info_gooSboot, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"seq", &module_info_gooSboot, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"|", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"sin", &module_info_gooSmath, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"", CVAR, &YgooSioSportYLfile_out_portG}, {"", CVAR, &YgooSioSportYLstr_out_portG}, {"", CVAR, &YgooSioSportYLfile_portG}, {"port-guts-setter", CVAR, &YgooSioSportYport_guts_setter}, {"port-index", CVAR, &YgooSioSportYport_index}, {"%newline", PVAR, NULL}, {"%put", PVAR, NULL}, {"%puts", PVAR, NULL}, {"", CVAR, &YgooSioSportYLportG}, {"%force-out", PVAR, NULL}, {"puts", CVAR, &YgooSioSportYputs}, {"", CVAR, &YgooSioSportYLout_portG}, {"%peek", PVAR, NULL}, {"%get", PVAR, NULL}, {"---main-2---", PVAR, NULL}, {"", CVAR, &YgooSioSportYLstr_in_portG}, {"", CVAR, &YgooSioSportYLfile_in_portG}, {"%ready", PVAR, NULL}, {"put", CVAR, &YgooSioSportYput}, {"ready?", CVAR, &YgooSioSportYreadyQ}, {"port-to-str", PVAR, NULL}, {"", CVAR, &YgooSioSportYLin_portG}, {"port-filename", CVAR, &YgooSioSportYport_filename}, {"---main-1---", PVAR, NULL}, {"port-line-setter", CVAR, &YgooSioSportYport_line_setter}, {"force-out", CVAR, &YgooSioSportYforce_out}, {"peek", CVAR, &YgooSioSportYpeek}, {"%close-out-port", PVAR, NULL}, {"close", CVAR, &YgooSioSportYclose}, {"out", CVAR, &YgooSioSportYout}, {"%open-in-file", PVAR, NULL}, {"newline", CVAR, &YgooSioSportYnewline}, {"gets", CVAR, &YgooSioSportYgets}, {"open", CVAR, &YgooSioSportYopen}, {"---main-0---", PVAR, NULL}, {"", CVAR, &YgooSioSportYLstr_portG}, {"%open-out-file", PVAR, NULL}, {"port-line", CVAR, &YgooSioSportYport_line}, {"in", CVAR, &YgooSioSportYin}, {"%current-out-port", PVAR, NULL}, {"%current-in-port", PVAR, NULL}, {"port-guts", CVAR, &YgooSioSportYport_guts}, {"port-contents", CVAR, &YgooSioSportYport_contents}, {"port-index-setter", CVAR, &YgooSioSportYport_index_setter}, {"get", CVAR, &YgooSioSportYget}, {"port-handle", CVAR, &YgooSioSportYport_handle}, {"%ready?", PVAR, NULL}, {"%close-in-port", PVAR, NULL}, {"with-port", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"", NULL}, {"", NULL}, {"", NULL}, {"port-index", NULL}, {"", NULL}, {"puts", NULL}, {"", NULL}, {"", NULL}, {"", NULL}, {"port-to-str", NULL}, {"put", NULL}, {"ready?", NULL}, {"port-contents", NULL}, {"", NULL}, {"port-filename", NULL}, {"port-line-setter", NULL}, {"force-out", NULL}, {"peek", NULL}, {"close", NULL}, {"out", NULL}, {"newline", NULL}, {"gets", NULL}, {"open", NULL}, {"", NULL}, {"port-index-setter", NULL}, {"port-line", NULL}, {"in", NULL}, {"get", NULL}, {"port-handle", NULL}, {"with-port", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSioSport; MODULE_INFO module_info_gooSioSport = { "goo/io/port", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooStypes (void); extern void load_module_gooScolsScol (void); extern void load_module_gooScolsScolx (void); extern void load_module_gooScolsSseq (void); extern void load_module_gooScolsSseqx (void); extern void load_module_gooScolsSvec (void); /* EXPRESSION: */ extern void load_module_gooSioSport (void); void load_module_gooSioSport (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooStypes(); load_module_gooScolsScol(); load_module_gooScolsScolx(); load_module_gooScolsSseq(); load_module_gooScolsSseqx(); load_module_gooScolsSvec(); (P)YgooSioSportY___main_0___(); (P)YgooSioSportY___main_1___(); (P)YgooSioSportY___main_2___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/io/read.c0100644000175000017500000046072207756744565015124 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/io/read"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/io/read */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSconditionsYbuild_condition_for_handler_interactively,"goo/conditions","build-condition-for-handler-interactively"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); DEF(YgooSioSreadYsub_read,"goo/io/read","sub-read"); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); DEF(YgooSioSreadYset_standard_read_macroX,"goo/io/read","set-standard-read-macro!"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); DEF(YgooSioSreadYDchar_long_names,"goo/io/read","$char-long-names"); EXT(YgooSconditionsYdefault_handler_description,"goo/conditions","default-handler-description"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); DEF(YgooSioSreadYset_standard_syntaxX,"goo/io/read","set-standard-syntax!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); DEF(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DEF(YgooSioSreadYread_delimited_list,"goo/io/read","read-delimited-list"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); DEF(YgooSioSreadYtoken_message,"goo/io/read","token-message"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YgooSioSreadYDvert_sym,"goo/io/read","$vert-sym"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); DEF(YgooSioSreadYreading_error,"goo/io/read","reading-error"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); DEF(YgooSioSreadYbs_sym,"goo/io/read","bs-sym"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); DEF(YgooSioSreadYsub_read_curlies,"goo/io/read","sub-read-curlies"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); DEF(YgooSioSreadYTsharp_macrosT,"goo/io/read","*sharp-macros*"); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); DEF(YgooSioSreadYDstrange_symbol_names,"goo/io/read","$strange-symbol-names"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYchoose_handler,"goo/conditions","choose-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); DEF(YgooSioSreadYflush_whitespace,"goo/io/read","flush-whitespace"); DEF(YgooSioSreadYparse_token,"goo/io/read","parse-token"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YgooStypesYall2Q,"goo/types","all2?"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); DEF(YgooSioSreadYpreferred_case,"goo/io/read","preferred-case"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); DEF(YgooSioSreadYreverse_list_Gstring,"goo/io/read","reverse-list->string"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); DEF(YgooSioSreadYgobble_nested_comment,"goo/io/read","gobble-nested-comment"); DEF(YgooSioSreadYread_long_string_literal,"goo/io/read","read-long-string-literal"); DEF(YgooSioSreadYread_c_inline_literal,"goo/io/read","read-c-inline-literal"); DEF(YgooSioSreadYread_c_expression_literal,"goo/io/read","read-c-expression-literal"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); DEF(YgooSioSreadYread_string_literal,"goo/io/read","read-string-literal"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); DEF(YgooSioSreadYsub_read_list_eof_error,"goo/io/read","sub-read-list-eof-error"); DEF(YgooSioSreadYsub_read_list,"goo/io/read","sub-read-list"); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YgooSmathYK,"goo/math","|"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); DEF(YgooSioSreadYreader_tokenQ,"goo/io/read","reader-token?"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); DYNEXT(YgooSconditionsYTcurrent_handlersT,"goo/conditions","*current-handlers*"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); DEF(YgooSioSreadYLreader_tokenG,"goo/io/read",""); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSioSportYport_filename,"goo/io/port","port-filename"); DEF(YgooSioSreadYsub_read_vertical,"goo/io/read","sub-read-vertical"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YLbignumG,"goo/boot",""); EXT(YgooSioSportYport_line_setter,"goo/io/port","port-line-setter"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); DEF(YgooSioSreadYTread_dispatch_vectorT,"goo/io/read","*read-dispatch-vector*"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSconditionsYdescribe_handler,"goo/conditions","describe-handler"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); DEF(YgooSioSreadYDclose_bracket,"goo/io/read","$close-bracket"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); DEF(YgooSioSreadYDstring_escape_chars,"goo/io/read","$string-escape-chars"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); DEF(YgooSioSreadYgobble_line,"goo/io/read","gobble-line"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooSconditionsYinvoke_handler_interactively,"goo/conditions","invoke-handler-interactively"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); DEF(YgooSioSreadYparse_c_inline,"goo/io/read","parse-c-inline"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); DEF(YgooSioSreadYDclose_paren,"goo/io/read","$close-paren"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yprop_type,"goo/boot","prop-type"); DEF(YgooSioSreadYsub_read_token,"goo/io/read","sub-read-token"); DEF(YgooSioSreadYDvert_proxy,"goo/io/read","$vert-proxy"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); DEF(YgooSioSreadYsub_read_brackets,"goo/io/read","sub-read-brackets"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); DEF(YgooSioSreadYTread_terminatingQ_vectorT,"goo/io/read","*read-terminating?-vector*"); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); DEF(YgooSioSreadYget_standard_read_macro,"goo/io/read","get-standard-read-macro"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooSconditionsYbuild_condition_interactively,"goo/conditions","build-condition-interactively"); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); DEF(YgooSioSreadYwarn,"goo/io/read","warn"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); DEF(YgooSioSreadYmake_reader_token,"goo/io/read","make-reader-token"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YgooSconditionsYlist_handlers,"goo/conditions","list-handlers"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); DEF(YgooSioSreadYDclose_curly,"goo/io/read","$close-curly"); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); DEF(YgooSioSreadYsub_read_backslash,"goo/io/read","sub-read-backslash"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); DEF(YgooSioSreadYsub_read_carefully,"goo/io/read","sub-read-carefully"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYfloorS,"goo/math","floor/"); DEF(YgooSioSreadYread_c_statement_literal,"goo/io/read","read-c-statement-literal"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); DEF(YgooSioSreadYsub_read_constituent,"goo/io/read","sub-read-constituent"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSioSportYport_index_setter,"goo/io/port","port-index-setter"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); DEF(YgooSioSreadYdefine_sharp_macro,"goo/io/read","define-sharp-macro"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); DEF(YgooSioSreadYsub_read_seq,"goo/io/read","sub-read-seq"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_51); DEFLIT(lit_98); DEFLIT(lit_24); DEFLIT(lit_32); DEFLIT(lit_104); DEFLIT(lit_106); DEFLIT(lit_70); DEFLIT(lit_127); DEFLIT(lit_120); DEFLIT(lit_112); DEFLIT(lit_80); DEFLIT(lit_50); DEFLIT(lit_90); DEFLIT(lit_92); DEFLIT(lit_21); DEFLIT(lit_41); DEFLIT(lit_17); DEFLIT(lit_23); DEFLIT(lit_54); DEFLIT(lit_139); DEFLIT(lit_47); DEFLIT(lit_20); DEFLIT(lit_117); DEFLIT(lit_46); DEFLIT(lit_65); DEFLIT(lit_71); DEFLIT(lit_26); DEFLIT(lit_128); DEFLIT(lit_18); DEFLIT(lit_87); DEFLIT(lit_110); DEFLIT(lit_5); DEFLIT(lit_103); DEFLIT(lit_88); DEFLIT(lit_27); DEFLIT(lit_36); DEFLIT(lit_14); DEFLIT(lit_76); DEFLIT(lit_116); DEFLIT(lit_42); DEFLIT(lit_1); DEFLIT(lit_49); DEFLIT(lit_16); DEFLIT(lit_130); DEFLIT(lit_62); DEFLIT(lit_134); DEFLIT(lit_143); DEFLIT(lit_119); DEFLIT(lit_100); DEFLIT(lit_66); DEFLIT(lit_83); DEFLIT(lit_34); DEFLIT(lit_77); DEFLIT(lit_81); DEFLIT(lit_0); DEFLIT(lit_53); DEFLIT(lit_82); DEFLIT(lit_74); DEFLIT(lit_69); DEFLIT(lit_68); DEFLIT(lit_133); DEFLIT(lit_135); DEFLIT(lit_28); DEFLIT(lit_99); DEFLIT(lit_101); DEFLIT(lit_85); DEFLIT(lit_86); DEFLIT(lit_22); DEFLIT(lit_142); DEFLIT(lit_52); DEFLIT(lit_44); DEFLIT(lit_45); DEFLIT(lit_6); DEFLIT(lit_72); DEFLIT(lit_132); DEFLIT(lit_10); DEFLIT(lit_56); DEFLIT(lit_115); DEFLIT(lit_113); DEFLIT(lit_126); DEFLIT(lit_30); DEFLIT(lit_4); DEFLIT(lit_109); DEFLIT(lit_12); DEFLIT(lit_39); DEFLIT(lit_60); DEFLIT(lit_40); DEFLIT(lit_105); DEFLIT(lit_102); DEFLIT(lit_94); DEFLIT(lit_64); DEFLIT(lit_19); DEFLIT(lit_122); DEFLIT(lit_63); DEFLIT(lit_131); DEFLIT(lit_84); DEFLIT(lit_67); DEFLIT(lit_13); DEFLIT(lit_79); DEFLIT(lit_97); DEFLIT(lit_125); DEFLIT(lit_121); DEFLIT(lit_89); DEFLIT(lit_38); DEFLIT(lit_31); DEFLIT(lit_43); DEFLIT(lit_114); DEFLIT(lit_8); DEFLIT(lit_48); DEFLIT(lit_93); DEFLIT(lit_61); DEFLIT(lit_111); DEFLIT(lit_78); DEFLIT(lit_75); DEFLIT(lit_15); DEFLIT(lit_55); DEFLIT(lit_107); DEFLIT(lit_141); DEFLIT(lit_57); DEFLIT(lit_33); DEFLIT(lit_2); DEFLIT(lit_35); DEFLIT(lit_9); DEFLIT(lit_118); DEFLIT(lit_137); DEFLIT(lit_37); DEFLIT(lit_96); DEFLIT(lit_3); DEFLIT(lit_108); DEFLIT(lit_138); DEFLIT(lit_136); DEFLIT(lit_58); DEFLIT(lit_59); DEFLIT(lit_95); DEFLIT(lit_73); DEFLIT(lit_129); DEFLIT(lit_7); DEFLIT(lit_25); DEFLIT(lit_124); DEFLIT(lit_91); DEFLIT(lit_11); DEFLIT(lit_140); DEFLIT(lit_123); DEFLIT(lit_29); /* FUNCTIONS: */ LOCFOR(fun_read_0); LOCFOR(fun_1); LOCFOR(fun_2); LOCFOR(fun_read_from_string_3); LOCFOR(fun_sub_read_carefully_4); LOCFOR(fun_token_message_5); LOCFOR(fun_make_reader_token_6); LOCFOR(fun_reader_tokenQ_7); LOCFOR(fun_sub_read_8); LOCFOR(fun_9); LOCFOR(fun_set_standard_syntaxX_10); LOCFOR(fun_11); LOCFOR(fun_12); FUNFOR(YgooSioSreadYflush_whitespace); FUNFOR(YgooSioSreadYread_delimited_list); FUNFOR(YgooSioSreadYsub_read_constituent); LOCFOR(fun_16); LOCFOR(fun_set_standard_read_macroX_17); LOCFOR(fun_get_standard_read_macro_18); LOCFOR(fun_sub_read_vertical_19); LOCFOR(fun_sub_read_backslash_20); FUNFOR(YgooSioSreadYsub_read_list_eof_error); LOCFOR(fun_read_next_22); LOCFOR(fun_sub_read_list_23); LOCFOR(fun_sub_read_seq_24); LOCFOR(fun_sub_read_brackets_25); LOCFOR(fun_sub_read_curlies_26); LOCFOR(fun_27); LOCFOR(fun_28); LOCFOR(fun_29); LOCFOR(fun_30); LOCFOR(fun_31); LOCFOR(fun_32); FUNFOR(YgooSioSreadYread_string_literal); LOCFOR(fun_34); LOCFOR(fun_gobble_line_35); LOCFOR(fun_define_sharp_macro_36); LOCFOR(fun_37); LOCFOR(fun_38); LOCFOR(fun_39); LOCFOR(fun_40); FUNFOR(YgooSioSreadYgobble_nested_comment); LOCFOR(fun_42); FUNFOR(YgooSioSreadYread_long_string_literal); LOCFOR(fun_parse_c_inline_44); FUNFOR(YgooSioSreadYread_c_inline_literal); FUNFOR(YgooSioSreadYread_c_statement_literal); FUNFOR(YgooSioSreadYread_c_expression_literal); LOCFOR(fun_48); LOCFOR(fun_49); LOCFOR(fun_50); LOCFOR(fun_51); LOCFOR(fun_52); LOCFOR(fun_sub_read_token_53); LOCFOR(fun_54); LOCFOR(fun_parse_token_55); LOCFOR(fun_reading_error_56); LOCFOR(fun_warn_57); LOCFOR(fun_reverse_list_Gstring_58); extern P YgooSioSreadY___main_0___ (); extern P YgooSioSreadY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_read_0) { P port_; P formF3692; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(port_, 0); LOOP_154: { T7 = CALL1(1,VARREF(YgooSioSreadYsub_read),port_); formF3692 = T7; T2 = CALL1(1,VARREF(YgooSioSreadYreader_tokenQ),formF3692); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T0 = formF3692; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),formF3692,VARREF(YgooSioSreadYDclose_paren)); if (T4 != YPfalse) { T5 = CALL1(1,VARREF(YgooSioSreadYwarn),LITREF(lit_2)); T3 = T5; } else { goto LOOP_154; T3 = T6; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P T0,T1,T2; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLstr_in_portG),FREEREF(1)); BOXPUT(T0,FREEREF(0)); T2 = BOXGET(FREEREF(0)); T1 = CALL1(1,VARREF(YgooSconditionsYread),T2); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_2) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_read_from_string_3) { P x_; P portF3693; P T0,T1,T2,T3; LINK_STACK(); ARG(x_, 0); portF3693 = YPfalse; portF3693 = BOXFAB(portF3693); T2 = FUNFAB(fun_1,2,portF3693,x_); T3 = FUNFAB(fun_2,1,portF3693); T1 = with_cleanup(T2,T3); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_sub_read_carefully_4) { P port_; P formF3694; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(port_, 0); T7 = CALL1(1,VARREF(YgooSioSreadYsub_read),port_); formF3694 = T7; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),formF3694); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_8)); T0 = T2; } else { T4 = CALL1(1,VARREF(YgooSioSreadYreader_tokenQ),formF3694); if (T4 != YPfalse) { T6 = CALL1(1,VARREF(Ytail),formF3694); T5 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,T6); T3 = T5; } else { T3 = formF3694; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_token_message_5) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YgooSioSreadYtoken_message)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_make_reader_token_6) { P message_; P T0; LINK_STACK(); ARG(message_, 0); T0 = CALL3(1,VARREF(Ynew),VARREF(YgooSioSreadYLreader_tokenG),VARREF(YgooSioSreadYtoken_message),message_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reader_tokenQ_7) { P form_; P T0; LINK_STACK(); ARG(form_, 0); T0 = CALL2(1,VARREF(YisaQ),form_,VARREF(YgooSioSreadYLreader_tokenG)); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_sub_read_8) { P port_; P cF3695; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(port_, 0); T5 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3695 = T5; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3695); if (T1 != YPfalse) { T0 = cF3695; } else { T4 = CALL1(1,VARREF(YgooSchrYchar_Gascii),cF3695); T3 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSioSreadYTread_dispatch_vectorT),T4); T2 = CALL2(1,T3,cF3695,port_); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_9) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T0 = CALL3(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_22),c_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_set_standard_syntaxX_10) { P char_,terminatingQ_,reader_; P T0,T1,T2; LINK_STACK(); ARG(char_, 0); ARG(terminatingQ_, 1); ARG(reader_, 2); T0 = CALL1(1,VARREF(YgooSchrYchar_Gascii),char_); CALL3(1,VARREF(YgooScolsScolxYelt_setter),reader_,VARREF(YgooSioSreadYTread_dispatch_vectorT),T0); T2 = CALL1(1,VARREF(YgooSchrYchar_Gascii),char_); T1 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),terminatingQ_,VARREF(YgooSioSreadYTread_terminatingQ_vectorT),T2); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_11) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T0 = CALL1(1,VARREF(YgooSioSreadYsub_read),port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_12) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL3(1,VARREF(YgooScolsScolxYelt_setter),FREEREF(0),VARREF(YgooSioSreadYTread_dispatch_vectorT),c_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYflush_whitespace) { P port_; P cF3696; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(port_, 0); T4 = CALL1(1,VARREF(YgooSioSportYpeek),port_); cF3696 = T4; T2 = CALL1(1,VARREF(YgooSchrYchar_Gascii),cF3696); T1 = CALL2(1,VARREF(YgooScolsScolYmemQ),VARREF(YgooScolsSstrYascii_whitespaces),T2); if (T1 != YPfalse) { CALL1(1,VARREF(YgooSioSportYget),port_); T3 = CALL1(1,VARREF(YgooSioSreadYflush_whitespace),port_); T0 = T3; } else { T0 = cF3696; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYread_delimited_list) { P endchar_,port_; P UF3699; P cF3698; P retlistF3697; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(endchar_, 0); ARG(port_, 1); retlistF3697 = VARREF(Ynil); T11 = CALL1(1,VARREF(YgooSioSreadYflush_whitespace),port_); cF3698 = T11; LOOP_155: { P a155_0; T2 = CALL2(1,VARREF(YgooSmacrosYEE),cF3698,endchar_); if (T2 != YPfalse) { CALL1(1,VARREF(YgooSioSportYget),port_); T4 = retlistF3697; T3 = CALL1(1,VARREF(YgooScolsSseqYrev),T4); T1 = T3; } else { T8 = retlistF3697; UF3699 = T8; T7 = CALL1(1,VARREF(YgooSconditionsYread),port_); T6 = CALL2(1,VARREF(YgooSmacrosYpair),T7,UF3699); T5 = retlistF3697 = T6; T10 = CALL1(1,VARREF(YgooSioSreadYflush_whitespace),port_); a155_0 = T10; cF3698 = a155_0; goto LOOP_155; T1 = T9; } } UNLINK_STACK(); QRET(T1); } FUNCODEDEF(YgooSioSreadYsub_read_constituent) { P c_,port_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T1 = CALL2(1,VARREF(YgooSioSreadYsub_read_token),c_,port_); T0 = CALL2(1,VARREF(YgooSioSreadYparse_token),T1,port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_16) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL3(1,VARREF(YgooSioSreadYset_standard_syntaxX),c_,YPfalse,VARREF(YgooSioSreadYsub_read_constituent)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_set_standard_read_macroX_17) { P char_,terminatingQ_,proc_; P T0; LINK_STACK(); ARG(char_, 0); ARG(terminatingQ_, 1); ARG(proc_, 2); T0 = CALL3(1,VARREF(YgooSioSreadYset_standard_syntaxX),char_,terminatingQ_,proc_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_get_standard_read_macro_18) { P char_; P T0,T1; LINK_STACK(); ARG(char_, 0); T1 = CALL1(1,VARREF(YgooSchrYchar_Gascii),char_); T0 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSioSreadYTread_dispatch_vectorT),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_vertical_19) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T0 = CALL2(1,VARREF(YgooSioSreadYparse_token),LITREF(lit_42),port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_backslash_20) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T0 = CALL2(1,VARREF(YgooSioSreadYparse_token),LITREF(lit_45),port_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYsub_read_list_eof_error) { P port_; P T0; LINK_STACK(); ARG(port_, 0); T0 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_50)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_read_next_22) { P c_,prev_,line_,form_; P nextF3701; P prevF3700; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(c_, 0); ARG(prev_, 1); ARG(line_, 2); ARG(form_, 3); T19 = CALL2(1,VARREF(YgooSmacrosYEE),prev_,VARREF(YgooSioSreadYDvert_proxy)); if (T19 != YPfalse) { T18 = VARREF(YgooSioSreadYDvert_sym); } else { T18 = prev_; } prevF3700 = T18; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),form_); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSioSreadYsub_read_list_eof_error),FREEREF(0)); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),form_,VARREF(YgooSioSreadYDclose_paren)); if (T4 != YPfalse) { T5 = CALL2(1,VARREF(YgooScolsSlstYline_list),line_,prevF3700); T3 = T5; } else { T7 = CALL2(1,VARREF(YgooSmacrosYEE),form_,VARREF(YgooSioSreadYDvert_sym)); if (T7 != YPfalse) { T12 = CALL1(1,VARREF(YgooSioSreadYsub_read_carefully),FREEREF(0)); nextF3701 = T12; T10 = CALL2(1,VARREF(YgooScolsSlstYline_list),line_,nextF3701); T9 = CALL3(1,VARREF(YgooScolsSlstYline_pair),prevF3700,T10,line_); T11 = CALL2(1,VARREF(YgooSioSreadYsub_read_list),c_,FREEREF(0)); T8 = CALL3(1,VARREF(YgooScolsSlstYline_pair),T9,T11,line_); T6 = T8; } else { if (YPtrue != YPfalse) { T16 = CALL1(1,VARREF(YgooSioSportYport_line),FREEREF(0)); T17 = CALL1(1,VARREF(YgooSioSreadYsub_read),FREEREF(0)); T15 = CALL4(1,FREEREF(1),c_,form_,T16,T17); T14 = CALL3(1,VARREF(YgooScolsSlstYline_pair),prevF3700,T15,line_); T13 = T14; } else { T13 = YPfalse; } T6 = T13; } T3 = T6; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_list_23) { P c_,p_; P read_nextF3704; P formF3703; P lineF3702; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(c_, 0); ARG(p_, 1); T10 = CALL1(1,VARREF(YgooSioSportYport_line),p_); lineF3702 = T10; T9 = CALL1(1,VARREF(YgooSioSreadYsub_read),p_); formF3703 = T9; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),formF3703); if (T1 != YPfalse) { T2 = CALL1(1,VARREF(YgooSioSreadYsub_read_list_eof_error),p_); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),formF3703,VARREF(YgooSioSreadYDclose_paren)); if (T4 != YPfalse) { T3 = Ynil; } else { if (YPtrue != YPfalse) { T8 = FUNSHELL(1,fun_read_next_22,2); read_nextF3704 = T8; FUNINIT(read_nextF3704, 2,p_,read_nextF3704); T7 = CALL1(1,VARREF(YgooSioSreadYsub_read),p_); T6 = CALL4(1,read_nextF3704,c_,formF3703,lineF3702,T7); T5 = T6; } else { T5 = YPfalse; } T3 = T5; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_seq_24) { P c_,e_,port_; P formF3705; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(c_, 0); ARG(e_, 1); ARG(port_, 2); T7 = CALL1(1,VARREF(YgooSioSreadYsub_read),port_); formF3705 = T7; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),formF3705); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_57)); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmacrosYEE),formF3705,e_); if (T4 != YPfalse) { T3 = Ynil; } else { T6 = CALL3(1,VARREF(YgooSioSreadYsub_read_seq),c_,e_,port_); T5 = CALL2(1,VARREF(YgooSmacrosYpair),formF3705,T6); T3 = T5; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_brackets_25) { P c_,port_; P x_1442F3708; P x_1441F3707; P formF3706; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T29 = CALL3(1,VARREF(YgooSioSreadYsub_read_seq),c_,VARREF(YgooSioSreadYDclose_bracket),port_); formF3706 = T29; T28 = CALL1(1,VARREF(YgooStypesYlen),formF3706); x_1441F3707 = T28; x_1442F3708 = VARREF(YgooSmacrosYEE); T1 = CALL2(1,x_1442F3708,x_1441F3707,YPint((P)2)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(Ylst),LITREF(lit_60)); T5 = CALL1(1,VARREF(YgooSmacrosY1st),formF3706); T4 = CALL1(1,VARREF(Ylst),T5); T7 = CALL1(1,VARREF(YgooSmacrosY2nd),formF3706); T6 = CALL1(1,VARREF(Ylst),T7); T2 = CALL4(1,VARREF(YgooSmacrosYcat),T3,T4,T6,LITREF(lit_61)); T0 = T2; } else { T9 = CALL2(1,x_1442F3708,x_1441F3707,YPint((P)3)); if (T9 != YPfalse) { T12 = CALL1(1,VARREF(YgooScolsSseqY3rd),formF3706); T11 = CALL2(1,VARREF(YgooSmacrosYEE),T12,LITREF(lit_62)); if (T11 != YPfalse) { T14 = CALL1(1,VARREF(Ylst),LITREF(lit_63)); T16 = CALL1(1,VARREF(YgooSmacrosY1st),formF3706); T15 = CALL1(1,VARREF(Ylst),T16); T18 = CALL1(1,VARREF(YgooSmacrosY2nd),formF3706); T17 = CALL1(1,VARREF(Ylst),T18); T13 = CALL4(1,VARREF(YgooSmacrosYcat),T14,T15,T17,LITREF(lit_61)); T10 = T13; } else { T20 = CALL1(1,VARREF(Ylst),LITREF(lit_64)); T22 = CALL1(1,VARREF(YgooSmacrosY1st),formF3706); T21 = CALL1(1,VARREF(Ylst),T22); T24 = CALL1(1,VARREF(YgooSmacrosY2nd),formF3706); T23 = CALL1(1,VARREF(Ylst),T24); T26 = CALL1(1,VARREF(YgooScolsSseqY3rd),formF3706); T25 = CALL1(1,VARREF(Ylst),T26); T19 = CALL5(1,VARREF(YgooSmacrosYcat),T20,T21,T23,T25,LITREF(lit_61)); T10 = T19; } T8 = T10; } else { T27 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_65)); T8 = T27; } T0 = T8; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_curlies_26) { P c_,port_; P slash_indexF3710; P formsF3709; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T10 = CALL3(1,VARREF(YgooSioSreadYsub_read_seq),c_,VARREF(YgooSioSreadYDclose_curly),port_); formsF3709 = T10; T9 = CALL2(1,VARREF(YgooScolsSseqYpos),formsF3709,VARREF(YgooSioSreadYbs_sym)); slash_indexF3710 = T9; if (slash_indexF3710 != YPfalse) { T2 = CALL1(1,VARREF(Ylst),LITREF(lit_69)); T4 = CALL3(1,VARREF(YgooScolsSseqYsub),formsF3709,YPint((P)0),slash_indexF3710); T3 = CALL1(1,VARREF(Ylst),T4); T6 = CALL2(1,VARREF(YgooSmathYA),slash_indexF3710,YPint((P)1)); T5 = CALL2(1,VARREF(YgooScolsSseqYsubT),formsF3709,T6); T1 = CALL4(1,VARREF(YgooSmacrosYcat),T2,T3,T5,LITREF(lit_61)); T0 = T1; } else { T8 = CALL1(1,VARREF(Ylst),LITREF(lit_70)); T7 = CALL3(1,VARREF(YgooSmacrosYcat),T8,formsF3709,LITREF(lit_61)); T0 = T7; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_27) { P c_,port_; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); UNLINK_STACK(); QRET(VARREF(YgooSioSreadYDclose_paren)); } LOCCODEDEF(fun_28) { P c_,port_; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); UNLINK_STACK(); QRET(VARREF(YgooSioSreadYDclose_curly)); } LOCCODEDEF(fun_29) { P c_,port_; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); UNLINK_STACK(); QRET(VARREF(YgooSioSreadYDclose_bracket)); } LOCCODEDEF(fun_30) { P c_,port_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T1 = CALL1(1,VARREF(YgooSioSreadYsub_read_carefully),port_); T0 = CALL2(1,VARREF(Ylst),LITREF(lit_75),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_31) { P c_,port_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T1 = CALL1(1,VARREF(YgooSioSreadYsub_read_carefully),port_); T0 = CALL2(1,VARREF(Ylst),LITREF(lit_77),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_32) { P c_,port_; P keywordF3712; P nextF3711; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T7 = CALL1(1,VARREF(YgooSioSportYpeek),port_); nextF3711 = T7; T3 = CALL1(1,VARREF(YgooSchrYeof_objectQ),nextF3711); if (T3 != YPfalse) { T4 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_79)); T2 = T4; } else { T6 = CALL2(1,VARREF(YgooSlogYE),nextF3711,YPchr((P)64)); if (T6 != YPfalse) { CALL1(1,VARREF(YgooSioSportYget),port_); T5 = LITREF(lit_80); } else { T5 = LITREF(lit_81); } T2 = T5; } keywordF3712 = T2; T1 = CALL1(1,VARREF(YgooSioSreadYsub_read_carefully),port_); T0 = CALL2(1,VARREF(Ylst),keywordF3712,T1); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYread_string_literal) { P c_,port_; P ecF3718; P tmpF3717; P cF3716; P cF3715; P iF3714; P lF3713; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); lF3713 = Ynil; iF3714 = YPint((P)0); LOOP_156: { P a156_0,a156_1; T29 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3715 = T29; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3715); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_84)); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSlogYE),cF3715,YPchr((P)92)); if (T4 != YPfalse) { T22 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3716 = T22; T6 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3716); if (T6 != YPfalse) { T7 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_85)); T5 = T7; } else { T11 = CALL2(1,VARREF(YgooSlogYE),cF3716,YPchr((P)92)); tmpF3717 = T11; if (tmpF3717 != YPfalse) { T9 = tmpF3717; } else { T10 = CALL2(1,VARREF(YgooSlogYE),cF3716,YPchr((P)34)); T9 = T10; } if (T9 != YPfalse) { T13 = CALL2(1,VARREF(YgooSmacrosYpair),cF3716,lF3713); T14 = CALL2(1,VARREF(YgooSmathYA),iF3714,YPint((P)1)); a156_0 = T13; a156_1 = T14; lF3713 = a156_0; iF3714 = a156_1; goto LOOP_156; T8 = T12; } else { T21 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),cF3716); T20 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSioSreadYDstring_escape_chars),T21); ecF3718 = T20; if (ecF3718 != YPfalse) { T17 = CALL2(1,VARREF(YgooSmacrosYpair),ecF3718,lF3713); T18 = CALL2(1,VARREF(YgooSmathYA),iF3714,YPint((P)1)); a156_0 = T17; a156_1 = T18; lF3713 = a156_0; iF3714 = a156_1; goto LOOP_156; T15 = T16; } else { T19 = CALL3(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_86),cF3716); T15 = T19; } T8 = T15; } T5 = T8; } T3 = T5; } else { T24 = CALL2(1,VARREF(YgooSlogYE),cF3715,YPchr((P)34)); if (T24 != YPfalse) { T25 = CALL2(1,VARREF(YgooSioSreadYreverse_list_Gstring),lF3713,iF3714); T23 = T25; } else { T27 = CALL2(1,VARREF(YgooSmacrosYpair),cF3715,lF3713); T28 = CALL2(1,VARREF(YgooSmathYA),iF3714,YPint((P)1)); a156_0 = T27; a156_1 = T28; lF3713 = a156_0; iF3714 = a156_1; goto LOOP_156; T23 = T26; } T3 = T23; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_34) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSreadYgobble_line),port_); T0 = CALL1(1,VARREF(YgooSioSreadYsub_read),port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_gobble_line_35) { P port_; P cF3719; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(port_, 0); LOOP_157: { T5 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3719 = T5; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3719); if (T1 != YPfalse) { T0 = cF3719; } else { T3 = CALL2(1,VARREF(YgooSlogYE),cF3719,YPchr((P)10)); if (T3 != YPfalse) { T2 = YPfalse; } else { goto LOOP_157; T2 = T4; } T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_define_sharp_macro_36) { P c_,proc_; P T0,T1,T2; LINK_STACK(); ARG(c_, 0); ARG(proc_, 1); T2 = CALL2(1,VARREF(Ylst),c_,proc_); T1 = CALL2(1,VARREF(YgooSmacrosYpair),T2,VARREF(YgooSioSreadYTsharp_macrosT)); T0 = VARSET(YgooSioSreadYTsharp_macrosT,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_37) { P c_,port_; P probeF3722; P cF3721; P cF3720; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T10 = CALL1(1,VARREF(YgooSioSportYpeek),port_); cF3720 = T10; T7 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3720); if (T7 != YPfalse) { T8 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_93)); T6 = T8; } else { T9 = CALL1(1,VARREF(YgooSchrYto_lower),cF3720); T6 = T9; } cF3721 = T6; T5 = CALL2(1,VARREF(YgooScolsSlstYassq),cF3721,VARREF(YgooSioSreadYTsharp_macrosT)); probeF3722 = T5; if (probeF3722 != YPfalse) { T3 = CALL1(1,VARREF(Ytail),probeF3722); T2 = CALL1(1,VARREF(Yhead),T3); T1 = CALL2(1,T2,cF3721,port_); T0 = T1; } else { T4 = CALL3(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_94),cF3721); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_38) { P c_,port_; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_39) { P c_,port_; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_40) { P c_,port_; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); UNLINK_STACK(); QRET(VARREF(YgooSioSreadYDvert_proxy)); } FUNCODEDEF(YgooSioSreadYgobble_nested_comment) { P port_; P x_1444F3726; P x_1443F3725; P cF3724; P found_slashQF3723; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(port_, 0); found_slashQF3723 = YPfalse; LOOP_158: { P a158_0; T10 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3724 = T10; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3724); if (T1 != YPfalse) { T0 = cF3724; } else { x_1443F3725 = cF3724; x_1444F3726 = VARREF(YgooSmacrosYEE); T3 = CALL2(1,x_1444F3726,x_1443F3725,YPchr((P)47)); if (T3 != YPfalse) { a158_0 = YPtrue; found_slashQF3723 = a158_0; goto LOOP_158; T2 = T4; } else { T6 = CALL2(1,x_1444F3726,x_1443F3725,YPchr((P)35)); if (T6 != YPfalse) { if (found_slashQF3723 != YPfalse) { T7 = YPfalse; } else { a158_0 = YPfalse; found_slashQF3723 = a158_0; goto LOOP_158; T7 = T8; } T5 = T7; } else { a158_0 = YPfalse; found_slashQF3723 = a158_0; goto LOOP_158; T5 = T9; } T2 = T5; } T0 = T2; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_42) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSreadYgobble_nested_comment),port_); T0 = CALL1(1,VARREF(YgooSioSreadYsub_read),port_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYread_long_string_literal) { P c_,port_; P x_1446F3732; P x_1445F3731; P cF3730; P qQF3729; P iF3728; P lF3727; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); lF3727 = Ynil; iF3728 = YPint((P)0); qQF3729 = YPfalse; LOOP_159: { P a159_0,a159_1,a159_2; T20 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3730 = T20; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3730); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_103)); T0 = T2; } else { x_1445F3731 = cF3730; x_1446F3732 = VARREF(YgooSmacrosYEE); T4 = CALL2(1,x_1446F3732,x_1445F3731,YPchr((P)34)); if (T4 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYpair),cF3730,lF3727); T7 = CALL2(1,VARREF(YgooSmathYA),iF3728,YPint((P)1)); a159_0 = T6; a159_1 = T7; a159_2 = YPtrue; lF3727 = a159_0; iF3728 = a159_1; qQF3729 = a159_2; goto LOOP_159; T3 = T5; } else { T9 = CALL2(1,x_1446F3732,x_1445F3731,YPchr((P)35)); if (T9 != YPfalse) { if (qQF3729 != YPfalse) { T12 = CALL1(1,VARREF(Ytail),lF3727); T13 = CALL2(1,VARREF(YgooSmathY_),iF3728,YPint((P)1)); T11 = CALL2(1,VARREF(YgooSioSreadYreverse_list_Gstring),T12,T13); T10 = T11; } else { T15 = CALL2(1,VARREF(YgooSmacrosYpair),cF3730,lF3727); T16 = CALL2(1,VARREF(YgooSmathYA),iF3728,YPint((P)1)); a159_0 = T15; a159_1 = T16; a159_2 = YPfalse; lF3727 = a159_0; iF3728 = a159_1; qQF3729 = a159_2; goto LOOP_159; T10 = T14; } T8 = T10; } else { T18 = CALL2(1,VARREF(YgooSmacrosYpair),cF3730,lF3727); T19 = CALL2(1,VARREF(YgooSmathYA),iF3728,YPint((P)1)); a159_0 = T18; a159_1 = T19; a159_2 = YPfalse; lF3727 = a159_0; iF3728 = a159_1; qQF3729 = a159_2; goto LOOP_159; T8 = T17; } T3 = T8; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_parse_c_inline_44) { P s_; P valF3741; P tmpF3740; P x_1448F3739; P x_1447F3738; P cF3737; P resF3736; P strF3735; P bufF3734; P portF3733; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26; LINK_STACK(); ARG(s_, 0); T26 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLstr_in_portG),s_); portF3733 = T26; T25 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); bufF3734 = T25; strF3735 = Ynil; resF3736 = Ynil; LOOP_160: { P a160_0,a160_1; T24 = CALL1(1,VARREF(YgooSioSportYget),portF3733); cF3737 = T24; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3737); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooSmacrosYrevX),strF3735); T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T5); T3 = CALL2(1,VARREF(YgooScolsScolYadd),resF3736,T4); T2 = CALL1(1,VARREF(YgooSmacrosYrevX),T3); T0 = T2; } else { x_1447F3738 = cF3737; x_1448F3739 = VARREF(YgooSmacrosYEE); T9 = CALL2(0,x_1448F3739,x_1447F3738,YPchr((P)36)); tmpF3740 = T9; if (tmpF3740 != YPfalse) { T7 = tmpF3740; } else { T8 = CALL2(0,x_1448F3739,x_1447F3738,YPchr((P)64)); T7 = T8; } if (T7 != YPfalse) { T16 = CALL2(1,VARREF(YgooSlogYE),cF3737,YPchr((P)36)); if (T16 != YPfalse) { T17 = CALL1(1,VARREF(YgooSconditionsYread),portF3733); T15 = T17; } else { T19 = CALL1(1,VARREF(Ylst),LITREF(lit_106)); T21 = CALL1(1,VARREF(YgooSconditionsYread),portF3733); T20 = CALL1(1,VARREF(Ylst),T21); T18 = CALL3(1,VARREF(YgooSmacrosYcat),T19,T20,LITREF(lit_61)); T15 = T18; } valF3741 = T15; T14 = CALL1(1,VARREF(YgooSmacrosYrevX),strF3735); T13 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T14); T12 = CALL2(1,VARREF(YgooScolsScolYadd),resF3736,T13); T11 = CALL2(1,VARREF(YgooScolsScolYadd),T12,valF3741); a160_0 = Ynil; a160_1 = T11; strF3735 = a160_0; resF3736 = a160_1; goto LOOP_160; T6 = T10; } else { T23 = CALL2(1,VARREF(YgooScolsScolYadd),strF3735,cF3737); a160_0 = T23; a160_1 = resF3736; strF3735 = a160_0; resF3736 = a160_1; goto LOOP_160; T6 = T22; } T0 = T6; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYread_c_inline_literal) { P start_,end_,form_,port_; P x_1450F3747; P x_1449F3746; P cF3745; P dF3744; P iF3743; P lF3742; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(start_, 0); ARG(end_, 1); ARG(form_, 2); ARG(port_, 3); CALL1(1,VARREF(YgooSioSportYget),port_); lF3742 = Ynil; iF3743 = YPint((P)0); dF3744 = YPint((P)1); LOOP_161: { P a161_0,a161_1,a161_2; T24 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3745 = T24; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3745); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_109)); T0 = T2; } else { x_1449F3746 = cF3745; x_1450F3747 = VARREF(YgooSmacrosYEE); T4 = CALL2(1,x_1450F3747,x_1449F3746,start_); if (T4 != YPfalse) { T6 = CALL2(1,VARREF(YgooSmacrosYpair),cF3745,lF3742); T7 = CALL2(1,VARREF(YgooSmathYA),iF3743,YPint((P)1)); T8 = CALL2(1,VARREF(YgooSmathYA),dF3744,YPint((P)1)); a161_0 = T6; a161_1 = T7; a161_2 = T8; lF3742 = a161_0; iF3743 = a161_1; dF3744 = a161_2; goto LOOP_161; T3 = T5; } else { T10 = CALL2(1,x_1450F3747,x_1449F3746,end_); if (T10 != YPfalse) { T12 = CALL2(1,VARREF(YgooSlogYE),dF3744,YPint((P)1)); if (T12 != YPfalse) { T14 = CALL1(1,VARREF(Ylst),form_); T16 = CALL2(1,VARREF(YgooSioSreadYreverse_list_Gstring),lF3742,iF3743); T15 = CALL1(1,VARREF(YgooSioSreadYparse_c_inline),T16); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_61)); T11 = T13; } else { T18 = CALL2(1,VARREF(YgooSmacrosYpair),cF3745,lF3742); T19 = CALL2(1,VARREF(YgooSmathYA),iF3743,YPint((P)1)); T20 = CALL2(1,VARREF(YgooSmathY_),dF3744,YPint((P)1)); a161_0 = T18; a161_1 = T19; a161_2 = T20; lF3742 = a161_0; iF3743 = a161_1; dF3744 = a161_2; goto LOOP_161; T11 = T17; } T9 = T11; } else { T22 = CALL2(1,VARREF(YgooSmacrosYpair),cF3745,lF3742); T23 = CALL2(1,VARREF(YgooSmathYA),iF3743,YPint((P)1)); a161_0 = T22; a161_1 = T23; a161_2 = dF3744; lF3742 = a161_0; iF3743 = a161_1; dF3744 = a161_2; goto LOOP_161; T9 = T21; } T3 = T9; } T0 = T3; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYread_c_statement_literal) { P c_,port_; P T0; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T0 = CALL4(1,VARREF(YgooSioSreadYread_c_inline_literal),YPchr((P)123),YPchr((P)125),LITREF(lit_112),port_); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSreadYread_c_expression_literal) { P ce_,port_; P inlineF3749; P cF3748; P T0,T1,T2,T3,T4,T5,T6,T7,T8; LINK_STACK(); ARG(ce_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); T8 = CALL1(1,VARREF(YgooSioSportYget),port_); cF3748 = T8; T7 = CALL4(1,VARREF(YgooSioSreadYread_c_inline_literal),YPchr((P)123),YPchr((P)125),LITREF(lit_115),port_); inlineF3749 = T7; T1 = CALL2(1,VARREF(YgooSlogYE),cF3748,YPchr((P)103)); if (T1 != YPfalse) { T0 = inlineF3749; } else { T5 = CALL2(1,VARREF(YgooSchrYfabs),VARREF(YLstrG),cF3748); T4 = CALL3(1,VARREF(YgooSmacrosYcat_sym),LITREF(lit_116),T5,LITREF(lit_117)); T3 = CALL1(1,VARREF(Ylst),T4); T6 = CALL1(1,VARREF(Ylst),inlineF3749); T2 = CALL3(1,VARREF(YgooSmacrosYcat),T3,T6,LITREF(lit_61)); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_48) { P c_,port_; P tempF3752; P nameF3751; P cF3750; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); T16 = CALL1(1,VARREF(YgooSioSportYpeek),port_); cF3750 = T16; T1 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3750); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_120)); T0 = T2; } else { T4 = CALL1(1,VARREF(YgooSchrYalphaQ),cF3750); if (T4 != YPfalse) { T14 = CALL1(1,VARREF(YgooSioSreadYsub_read_carefully),port_); nameF3751 = T14; T8 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),nameF3751); T7 = CALL1(1,VARREF(YgooStypesYlen),T8); T6 = CALL2(1,VARREF(YgooSlogYE),T7,YPint((P)1)); if (T6 != YPfalse) { T5 = cF3750; } else { T13 = CALL2(1,VARREF(YgooScolsSlstYassq),nameF3751,VARREF(YgooSioSreadYDchar_long_names)); tempF3752 = T13; if (tempF3752 != YPfalse) { T11 = CALL1(1,VARREF(Ytail),tempF3752); T10 = CALL1(1,VARREF(Yhead),T11); T9 = T10; } else { T12 = CALL3(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_121),nameF3751); T9 = T12; } T5 = T9; } T3 = T5; } else { T15 = CALL1(1,VARREF(YgooSioSportYget),port_); T3 = T15; } T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_49) { P c_,port_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); T1 = CALL2(1,VARREF(YgooSioSreadYsub_read_list),c_,port_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_50) { P c_,port_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); CALL1(1,VARREF(YgooSioSportYget),port_); T1 = CALL3(1,VARREF(YgooSioSreadYsub_read_seq),c_,VARREF(YgooSioSreadYDclose_bracket),port_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YgooScolsSvecYLvecG),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_51) { P c_,port_; P tmpF3754; P stringF3753; P T0,T1,T2,T3; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T3 = CALL2(1,VARREF(YgooSioSreadYsub_read_token),YPchr((P)35),port_); stringF3753 = T3; T2 = CALL1(1,VARREF(YgooScolsSstrYstr_to_num),stringF3753); tmpF3754 = T2; if (tmpF3754 != YPfalse) { T0 = tmpF3754; } else { T1 = CALL3(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_125),stringF3753); T0 = T1; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_52) { P c_; P T0; LINK_STACK(); ARG(c_, 0); T0 = CALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),c_,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sub_read_token_53) { P c_,port_; P tmpF3758; P cF3757; P nF3756; P lF3755; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13; LINK_STACK(); ARG(c_, 0); ARG(port_, 1); T13 = CALL1(1,VARREF(YgooSioSreadYpreferred_case),c_); T12 = CALL1(1,VARREF(Ylst),T13); lF3755 = T12; nF3756 = YPint((P)1); LOOP_162: { P a162_0,a162_1; T11 = CALL1(1,VARREF(YgooSioSportYpeek),port_); cF3757 = T11; T4 = CALL1(1,VARREF(YgooSchrYeof_objectQ),cF3757); tmpF3758 = T4; if (tmpF3758 != YPfalse) { T1 = tmpF3758; } else { T3 = CALL1(1,VARREF(YgooSchrYchar_Gascii),cF3757); T2 = CALL2(1,VARREF(YgooSmacrosYelt),VARREF(YgooSioSreadYTread_terminatingQ_vectorT),T3); T1 = T2; } if (T1 != YPfalse) { T5 = CALL2(1,VARREF(YgooSioSreadYreverse_list_Gstring),lF3755,nF3756); T0 = T5; } else { T9 = CALL1(1,VARREF(YgooSioSportYget),port_); T8 = CALL1(1,VARREF(YgooSioSreadYpreferred_case),T9); T7 = CALL2(1,VARREF(YgooSmacrosYpair),T8,lF3755); T10 = CALL2(1,VARREF(YgooSmathYA),nF3756,YPint((P)1)); a162_0 = T7; a162_1 = T10; lF3755 = a162_0; nF3756 = a162_1; goto LOOP_162; T0 = T6; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_54) { P x_; P T0; LINK_STACK(); ARG(x_, 0); T0 = CALL2(1,VARREF(YgooSlogYE),FREEREF(0),x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_parse_token_55) { P string_,port_; P maybe_numberF3763; P tmpF3762; P tmpF3761; P tmpF3760; P cF3759; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19; LINK_STACK(); ARG(string_, 0); ARG(port_, 1); T8 = CALL2(1,VARREF(YgooSmacrosYelt),string_,YPint((P)0)); cF3759 = T8; T7 = CALL1(1,VARREF(YgooSchrYdigitQ),cF3759); tmpF3760 = T7; if (tmpF3760 != YPfalse) { T1 = tmpF3760; } else { T6 = CALL2(1,VARREF(YgooSlogYE),cF3759,YPchr((P)43)); tmpF3761 = T6; if (tmpF3761 != YPfalse) { T2 = tmpF3761; } else { T5 = CALL2(1,VARREF(YgooSlogYE),cF3759,YPchr((P)45)); tmpF3762 = T5; if (tmpF3762 != YPfalse) { T3 = tmpF3762; } else { T4 = CALL2(1,VARREF(YgooSlogYE),cF3759,YPchr((P)46)); T3 = T4; } T2 = T3; } T1 = T2; } if (T1 != YPfalse) { T18 = CALL1(1,VARREF(YgooScolsSstrYstr_to_num),string_); maybe_numberF3763 = T18; if (maybe_numberF3763 != YPfalse) { T9 = maybe_numberF3763; } else { T12 = FUNFAB(fun_54,1,string_); T11 = CALL2(1,VARREF(YgooStypesYanyQ),T12,VARREF(YgooSioSreadYDstrange_symbol_names)); if (T11 != YPfalse) { T13 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),string_); T10 = T13; } else { T15 = CALL2(1,VARREF(YgooSlogYE),string_,LITREF(lit_133)); if (T15 != YPfalse) { T16 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),string_); T14 = T16; } else { T17 = CALL3(1,VARREF(YgooSioSreadYreading_error),port_,LITREF(lit_134),string_); T14 = T17; } T10 = T14; } T9 = T10; } T0 = T9; } else { T19 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),string_); T0 = T19; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_reading_error_56) { P port_,message_,irritants_; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); ARG(message_, 1); NARGS(irritants_, 2); T1 = CALL2(1,VARREF(YgooSmacrosYcat),message_,LITREF(lit_139)); T3 = CALL1(1,VARREF(Ylst),port_); T2 = CALL2(1,VARREF(YgooSmacrosYcat),irritants_,T3); T0 = CALL2(1,VARREF(Yerror),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_warn_57) { P string_,irritants_and_port_; LINK_STACK(); ARG(string_, 0); NARGS(irritants_and_port_, 1); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_reverse_list_Gstring_58) { P l_,n_; P T0,T1; LINK_STACK(); ARG(l_, 0); ARG(n_, 1); T1 = CALL1(1,VARREF(YgooSmacrosYrevX),l_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T1); UNLINK_STACK(); RET(T0); } P YgooSioSreadY___main_0___() { P str10496F3765; P sub_read_whitespaceF3764; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102; DEFCREGS(); lit_0 = YPPsym((P)"read"); lit_1 = YPPlist(1,YPPsym((P)"port")); lit_2 = YPsb((P)"discarding extraneous right parenthesis"); T0 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLin_portG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_read_0 = YPfab_met(FUNCODEREF(fun_read_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(20),YPfalse); T2 = VARREF_OR(YgooSconditionsYread,YPfalse); T3 = fun_read_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSconditionsYread,T1); lit_3 = YPPsym((P)"read-from-string"); lit_4 = YPPlist(1,YPPsym((P)"x")); lit_5 = Ynil; T6 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T6,YPfalse,LITREF(lit_5),sloc(33),YPfalse); T5 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_2 = YPfab_met(FUNCODEREF(fun_2),T5,YPfalse,LITREF(lit_5),sloc(33),YPfalse); T4 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_read_from_string_3 = YPfab_met(FUNCODEREF(fun_read_from_string_3),T4,LITREF(lit_3),LITREF(lit_4),sloc(32),YPfalse); T8 = VARREF_OR(YgooSioSreadYread_from_string,YPfalse); T9 = fun_read_from_string_3; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSioSreadYread_from_string,T7); lit_6 = YPPsym((P)"sub-read-carefully"); lit_7 = YPPlist(1,YPPsym((P)"port")); lit_8 = YPsb((P)"unexpected end of file"); T10 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sub_read_carefully_4 = YPfab_met(FUNCODEREF(fun_sub_read_carefully_4),T10,LITREF(lit_6),LITREF(lit_7),sloc(35),YPfalse); T12 = VARREF_OR(YgooSioSreadYsub_read_carefully,YPfalse); T13 = fun_sub_read_carefully_4; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSioSreadYsub_read_carefully,T11); lit_9 = YPPsym((P)""); T15 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T14 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_9),T15); VARSET(YgooSioSreadYLreader_tokenG,T14); lit_10 = YPPsym((P)"token-message"); lit_11 = YPPlist(1,YPPsym((P)"_x")); T16 = YPfab_sig(YPPlist(1,VARREF(YgooSioSreadYLreader_tokenG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_token_message_5 = YPfab_met(FUNCODEREF(fun_token_message_5),T16,LITREF(lit_10),LITREF(lit_11),sloc(45),YPfalse); T18 = VARREF_OR(YgooSioSreadYtoken_message,YPfalse); T19 = fun_token_message_5; T17 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T18,T19); VARSET(YgooSioSreadYtoken_message,T17); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YgooSioSreadYLreader_tokenG),VARREF(YgooSioSreadYtoken_message),YPfalse,VARREF(YLstrG),VARREF(YPprop_unbound_error)); lit_12 = YPPsym((P)"make-reader-token"); lit_13 = YPPlist(1,YPPsym((P)"message")); T20 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_make_reader_token_6 = YPfab_met(FUNCODEREF(fun_make_reader_token_6),T20,LITREF(lit_12),LITREF(lit_13),sloc(47),YPfalse); T22 = VARREF_OR(YgooSioSreadYmake_reader_token,YPfalse); T23 = fun_make_reader_token_6; T21 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T22,T23); VARSET(YgooSioSreadYmake_reader_token,T21); lit_14 = YPPsym((P)"reader-token?"); lit_15 = YPPlist(1,YPPsym((P)"form")); T24 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_reader_tokenQ_7 = YPfab_met(FUNCODEREF(fun_reader_tokenQ_7),T24,LITREF(lit_14),LITREF(lit_15),sloc(50),YPfalse); T26 = VARREF_OR(YgooSioSreadYreader_tokenQ,YPfalse); T27 = fun_reader_tokenQ_7; T25 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T26,T27); VARSET(YgooSioSreadYreader_tokenQ,T25); lit_16 = YPsb((P)"unexpected right parenthesis"); T28 = XCALL1(1,VARREF(YgooSioSreadYmake_reader_token),LITREF(lit_16)); VARSET(YgooSioSreadYDclose_paren,T28); lit_17 = YPsb((P)"unexpected right bracket"); T29 = XCALL1(1,VARREF(YgooSioSreadYmake_reader_token),LITREF(lit_17)); VARSET(YgooSioSreadYDclose_bracket,T29); lit_18 = YPsb((P)"unexpected right curly"); T30 = XCALL1(1,VARREF(YgooSioSreadYmake_reader_token),LITREF(lit_18)); VARSET(YgooSioSreadYDclose_curly,T30); lit_19 = YPPsym((P)"sub-read"); lit_20 = YPPlist(1,YPPsym((P)"port")); T31 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sub_read_8 = YPfab_met(FUNCODEREF(fun_sub_read_8),T31,LITREF(lit_19),LITREF(lit_20),sloc(59),YPfalse); T33 = VARREF_OR(YgooSioSreadYsub_read,YPfalse); T34 = fun_sub_read_8; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YgooSioSreadYsub_read,T32); lit_21 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_22 = YPsb((P)"illegal character read"); T35 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_9 = YPfab_met(FUNCODEREF(fun_9),T35,YPfalse,LITREF(lit_21),sloc(70),YPfalse); T37 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSstrYascii_limit)); T38 = fun_9; T36 = XCALL2(1,VARREF(YgooScolsScolxYfillX),T37,T38); VARSET(YgooSioSreadYTread_dispatch_vectorT,T36); T40 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSstrYascii_limit)); T39 = XCALL2(1,VARREF(YgooScolsScolxYfillX),T40,YPtrue); VARSET(YgooSioSreadYTread_terminatingQ_vectorT,T39); lit_23 = YPPsym((P)"set-standard-syntax!"); lit_24 = YPPlist(3,YPPsym((P)"char"),YPPsym((P)"terminating?"),YPPsym((P)"reader")); T41 = YPfab_sig(YPPlist(3,VARREF(YLchrG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_set_standard_syntaxX_10 = YPfab_met(FUNCODEREF(fun_set_standard_syntaxX_10),T41,LITREF(lit_23),LITREF(lit_24),sloc(74),YPfalse); T43 = VARREF_OR(YgooSioSreadYset_standard_syntaxX,YPfalse); T44 = fun_set_standard_syntaxX_10; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(YgooSioSreadYset_standard_syntaxX,T42); lit_25 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_26 = YPPlist(1,YPPsym((P)"c")); T46 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T46,YPfalse,LITREF(lit_25),sloc(78),YPfalse); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T45,YPfalse,LITREF(lit_26),sloc(79),YPfalse); T49 = fun_11; sub_read_whitespaceF3764 = T49; T48 = FUNFAB(fun_12,1,sub_read_whitespaceF3764); T47 = XCALL2(1,VARREF(YgooSmacrosYdo),T48,VARREF(YgooScolsSstrYascii_whitespaces)); lit_27 = YPPsym((P)"flush-whitespace"); lit_28 = YPPlist(1,YPPsym((P)"port")); T50 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSioSreadYflush_whitespace = YPfab_met(FUNCODEREF(YgooSioSreadYflush_whitespace),T50,LITREF(lit_27),LITREF(lit_28),sloc(82),YPfalse); T51 = YgooSioSreadYflush_whitespace; VARSET(YgooSioSreadYflush_whitespace,T51); lit_29 = YPPsym((P)"read-delimited-list"); lit_30 = YPPlist(2,YPPsym((P)"endchar"),YPPsym((P)"port")); T52 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSioSreadYread_delimited_list = YPfab_met(FUNCODEREF(YgooSioSreadYread_delimited_list),T52,LITREF(lit_29),LITREF(lit_30),sloc(90),YPfalse); T53 = YgooSioSreadYread_delimited_list; VARSET(YgooSioSreadYread_delimited_list,T53); lit_31 = YPPsym((P)"sub-read-constituent"); lit_32 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T54 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSioSreadYsub_read_constituent = YPfab_met(FUNCODEREF(YgooSioSreadYsub_read_constituent),T54,LITREF(lit_31),LITREF(lit_32),sloc(98),YPfalse); T55 = YgooSioSreadYsub_read_constituent; VARSET(YgooSioSreadYsub_read_constituent,T55); lit_33 = YPsb((P)"!$%&*+-./0123456789:<=>?@^_~ABCDEFGHIJKLM"); lit_34 = YPsb((P)"NOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"); lit_35 = YPPlist(1,YPPsym((P)"c")); T56 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_16 = YPfab_met(FUNCODEREF(fun_16),T56,YPfalse,LITREF(lit_35),sloc(105),YPfalse); T59 = XCALL2(1,VARREF(YgooSmacrosYcat),LITREF(lit_33),LITREF(lit_34)); str10496F3765 = T59; T58 = fun_16; T57 = XCALL2(1,VARREF(YgooSmacrosYdo),T58,str10496F3765); lit_36 = YPPsym((P)"set-standard-read-macro!"); lit_37 = YPPlist(3,YPPsym((P)"char"),YPPsym((P)"terminating?"),YPPsym((P)"proc")); T60 = YPfab_sig(YPPlist(3,VARREF(YLchrG),VARREF(YLanyG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_set_standard_read_macroX_17 = YPfab_met(FUNCODEREF(fun_set_standard_read_macroX_17),T60,LITREF(lit_36),LITREF(lit_37),sloc(110),YPfalse); T62 = VARREF_OR(YgooSioSreadYset_standard_read_macroX,YPfalse); T63 = fun_set_standard_read_macroX_17; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YgooSioSreadYset_standard_read_macroX,T61); lit_38 = YPPsym((P)"get-standard-read-macro"); lit_39 = YPPlist(1,YPPsym((P)"char")); T64 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_get_standard_read_macro_18 = YPfab_met(FUNCODEREF(fun_get_standard_read_macro_18),T64,LITREF(lit_38),LITREF(lit_39),sloc(113),YPfalse); T66 = VARREF_OR(YgooSioSreadYget_standard_read_macro,YPfalse); T67 = fun_get_standard_read_macro_18; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooSioSreadYget_standard_read_macro,T65); lit_40 = YPPsym((P)"sub-read-vertical"); lit_41 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_42 = YPsb((P)"|"); T68 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sub_read_vertical_19 = YPfab_met(FUNCODEREF(fun_sub_read_vertical_19),T68,LITREF(lit_40),LITREF(lit_41),sloc(116),YPfalse); T70 = VARREF_OR(YgooSioSreadYsub_read_vertical,YPfalse); T71 = fun_sub_read_vertical_19; T69 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T70,T71); VARSET(YgooSioSreadYsub_read_vertical,T69); XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)124),YPtrue,VARREF(YgooSioSreadYsub_read_vertical)); lit_43 = YPPsym((P)"sub-read-backslash"); lit_44 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_45 = YPsb((P)"\\"); T72 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sub_read_backslash_20 = YPfab_met(FUNCODEREF(fun_sub_read_backslash_20),T72,LITREF(lit_43),LITREF(lit_44),sloc(121),YPfalse); T74 = VARREF_OR(YgooSioSreadYsub_read_backslash,YPfalse); T75 = fun_sub_read_backslash_20; T73 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T74,T75); VARSET(YgooSioSreadYsub_read_backslash,T73); XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)92),YPtrue,VARREF(YgooSioSreadYsub_read_backslash)); lit_46 = YPsb((P)"|"); T76 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),LITREF(lit_46)); VARSET(YgooSioSreadYDvert_sym,T76); lit_47 = YPsb((P)"vert-proxy"); T77 = XCALL1(1,VARREF(Ylst),LITREF(lit_47)); VARSET(YgooSioSreadYDvert_proxy,T77); lit_48 = YPPsym((P)"sub-read-list-eof-error"); lit_49 = YPPlist(1,YPPsym((P)"port")); lit_50 = YPsb((P)"end of file inside list -- unbalanced parentheses"); T78 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSioSreadYsub_read_list_eof_error = YPfab_met(FUNCODEREF(YgooSioSreadYsub_read_list_eof_error),T78,LITREF(lit_48),LITREF(lit_49),sloc(129),YPfalse); T79 = YgooSioSreadYsub_read_list_eof_error; VARSET(YgooSioSreadYsub_read_list_eof_error,T79); lit_51 = YPPsym((P)"sub-read-list"); lit_52 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"p")); lit_53 = YPPsym((P)"read-next"); lit_54 = YPPlist(4,YPPsym((P)"c"),YPPsym((P)"prev"),YPPsym((P)"line"),YPPsym((P)"form")); T81 = YPfab_sig(YPPlist(4,VARREF(YLchrG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_read_next_22 = YPfab_met(FUNCODEREF(fun_read_next_22),T81,LITREF(lit_53),LITREF(lit_54),sloc(139),YPfalse); T80 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sub_read_list_23 = YPfab_met(FUNCODEREF(fun_sub_read_list_23),T80,LITREF(lit_51),LITREF(lit_52),sloc(132),YPfalse); T83 = VARREF_OR(YgooSioSreadYsub_read_list,YPfalse); T84 = fun_sub_read_list_23; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YgooSioSreadYsub_read_list,T82); lit_55 = YPPsym((P)"sub-read-seq"); lit_56 = YPPlist(3,YPPsym((P)"c"),YPPsym((P)"e"),YPPsym((P)"port")); lit_57 = YPsb((P)"end of file inside list -- unbalanced parentheses"); T85 = YPfab_sig(YPPlist(3,VARREF(YLchrG),VARREF(YLanyG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_sub_read_seq_24 = YPfab_met(FUNCODEREF(fun_sub_read_seq_24),T85,LITREF(lit_55),LITREF(lit_56),sloc(156),YPfalse); T87 = VARREF_OR(YgooSioSreadYsub_read_seq,YPfalse); T88 = fun_sub_read_seq_24; T86 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T87,T88); VARSET(YgooSioSreadYsub_read_seq,T86); lit_58 = YPPsym((P)"sub-read-brackets"); lit_59 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_60 = YPPsym((P)"elt"); lit_61 = Ynil; lit_62 = YPPsym((P)"*"); lit_63 = YPPsym((P)"sub*"); lit_64 = YPPsym((P)"sub"); lit_65 = YPsb((P)"invalid [ ... ] form"); T89 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sub_read_brackets_25 = YPfab_met(FUNCODEREF(fun_sub_read_brackets_25),T89,LITREF(lit_58),LITREF(lit_59),sloc(165),YPfalse); T91 = VARREF_OR(YgooSioSreadYsub_read_brackets,YPfalse); T92 = fun_sub_read_brackets_25; T90 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T91,T92); VARSET(YgooSioSreadYsub_read_brackets,T90); lit_66 = YPsb((P)"\\"); T93 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLsymG),LITREF(lit_66)); VARSET(YgooSioSreadYbs_sym,T93); lit_67 = YPPsym((P)"sub-read-curlies"); lit_68 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_69 = YPPsym((P)"fun"); lit_70 = YPPsym((P)"seq"); T94 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sub_read_curlies_26 = YPfab_met(FUNCODEREF(fun_sub_read_curlies_26),T94,LITREF(lit_67),LITREF(lit_68),sloc(176),YPfalse); T96 = VARREF_OR(YgooSioSreadYsub_read_curlies,YPfalse); T97 = fun_sub_read_curlies_26; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YgooSioSreadYsub_read_curlies,T95); XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)40),YPtrue,VARREF(YgooSioSreadYsub_read_list)); lit_71 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T100 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); T99 = fun_27 = YPfab_met(FUNCODEREF(fun_27),T100,YPfalse,LITREF(lit_71),sloc(185),YPfalse); T102 = fun_27; T101 = XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)41),YPtrue,T102); T98 = T101; return T98; } P YgooSioSreadY___main_1___() { P number_sharp_macroF3767; P vecF3766; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89; DEFCREGS(); XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)123),YPtrue,VARREF(YgooSioSreadYsub_read_curlies)); lit_72 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T0 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_28 = YPfab_met(FUNCODEREF(fun_28),T0,YPfalse,LITREF(lit_72),sloc(189),YPfalse); T1 = fun_28; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)125),YPtrue,T1); XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)91),YPtrue,VARREF(YgooSioSreadYsub_read_brackets)); lit_73 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T2 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_29 = YPfab_met(FUNCODEREF(fun_29),T2,YPfalse,LITREF(lit_73),sloc(193),YPfalse); T3 = fun_29; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)93),YPtrue,T3); lit_74 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_75 = YPPsym((P)"quote"); T4 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_30 = YPfab_met(FUNCODEREF(fun_30),T4,YPfalse,LITREF(lit_74),sloc(196),YPfalse); T5 = fun_30; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)39),YPtrue,T5); lit_76 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_77 = YPPsym((P)"quasiquote"); T6 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_31 = YPfab_met(FUNCODEREF(fun_31),T6,YPfalse,LITREF(lit_76),sloc(199),YPfalse); T7 = fun_31; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)96),YPtrue,T7); lit_78 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_79 = YPsb((P)"end of file after ,"); lit_80 = YPPsym((P)"unquote-splicing"); lit_81 = YPPsym((P)"unquote"); T8 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_32 = YPfab_met(FUNCODEREF(fun_32),T8,YPfalse,LITREF(lit_78),sloc(203),YPfalse); T9 = fun_32; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)44),YPtrue,T9); T16 = XCALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),VARREF(YgooScolsSstrYascii_limit)); T15 = XCALL2(1,VARREF(YgooScolsScolxYfillX),T16,YPfalse); vecF3766 = T15; T10 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)116)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)9),vecF3766,T10); T11 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)102)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)12),vecF3766,T11); T12 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)114)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)13),vecF3766,T12); T13 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLintG),YPchr((P)110)); XCALL3(1,VARREF(YgooScolsScolxYelt_setter),YPchr((P)10),vecF3766,T13); T14 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLtupG),vecF3766); VARSET(YgooSioSreadYDstring_escape_chars,T14); lit_82 = YPPsym((P)"read-string-literal"); lit_83 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_84 = YPsb((P)"end of file within a string"); lit_85 = YPsb((P)"end of file within a string"); lit_86 = YPsb((P)"invalid escaped character in string"); T17 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSioSreadYread_string_literal = YPfab_met(FUNCODEREF(YgooSioSreadYread_string_literal),T17,LITREF(lit_82),LITREF(lit_83),sloc(221),YPfalse); T18 = YgooSioSreadYread_string_literal; VARSET(YgooSioSreadYread_string_literal,T18); XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)34),YPtrue,VARREF(YgooSioSreadYread_string_literal)); lit_87 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T19 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_34 = YPfab_met(FUNCODEREF(fun_34),T19,YPfalse,LITREF(lit_87),sloc(247),YPfalse); T20 = fun_34; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)59),YPtrue,T20); lit_88 = YPPsym((P)"gobble-line"); lit_89 = YPPlist(1,YPPsym((P)"port")); T21 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_gobble_line_35 = YPfab_met(FUNCODEREF(fun_gobble_line_35),T21,LITREF(lit_88),LITREF(lit_89),sloc(249),YPfalse); T23 = VARREF_OR(YgooSioSreadYgobble_line,YPfalse); T24 = fun_gobble_line_35; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YgooSioSreadYgobble_line,T22); VARSET(YgooSioSreadYTsharp_macrosT,Ynil); lit_90 = YPPsym((P)"define-sharp-macro"); lit_91 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"proc")); T25 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_define_sharp_macro_36 = YPfab_met(FUNCODEREF(fun_define_sharp_macro_36),T25,LITREF(lit_90),LITREF(lit_91),sloc(256),YPfalse); T27 = VARREF_OR(YgooSioSreadYdefine_sharp_macro,YPfalse); T28 = fun_define_sharp_macro_36; T26 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T27,T28); VARSET(YgooSioSreadYdefine_sharp_macro,T26); lit_92 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_93 = YPsb((P)"end of file after #"); lit_94 = YPsb((P)"unknown # syntax"); T29 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_37 = YPfab_met(FUNCODEREF(fun_37),T29,YPfalse,LITREF(lit_92),sloc(261),YPfalse); T30 = fun_37; XCALL3(1,VARREF(YgooSioSreadYset_standard_read_macroX),YPchr((P)35),YPfalse,T30); lit_95 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T31 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_38 = YPfab_met(FUNCODEREF(fun_38),T31,YPfalse,LITREF(lit_95),sloc(271),YPfalse); T32 = fun_38; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)102),T32); lit_96 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T33 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_39 = YPfab_met(FUNCODEREF(fun_39),T33,YPfalse,LITREF(lit_96),sloc(273),YPfalse); T34 = fun_39; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)116),T34); lit_97 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T35 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_40 = YPfab_met(FUNCODEREF(fun_40),T35,YPfalse,LITREF(lit_97),sloc(275),YPfalse); T36 = fun_40; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)124),T36); lit_98 = YPPsym((P)"gobble-nested-comment"); lit_99 = YPPlist(1,YPPsym((P)"port")); T37 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); YgooSioSreadYgobble_nested_comment = YPfab_met(FUNCODEREF(YgooSioSreadYgobble_nested_comment),T37,LITREF(lit_98),LITREF(lit_99),sloc(277),YPfalse); T38 = YgooSioSreadYgobble_nested_comment; VARSET(YgooSioSreadYgobble_nested_comment,T38); lit_100 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T39 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_42 = YPfab_met(FUNCODEREF(fun_42),T39,YPfalse,LITREF(lit_100),sloc(288),YPfalse); T40 = fun_42; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)47),T40); lit_101 = YPPsym((P)"read-long-string-literal"); lit_102 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_103 = YPsb((P)"end of file within a long string"); T41 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSioSreadYread_long_string_literal = YPfab_met(FUNCODEREF(YgooSioSreadYread_long_string_literal),T41,LITREF(lit_101),LITREF(lit_102),sloc(290),YPfalse); T42 = YgooSioSreadYread_long_string_literal; VARSET(YgooSioSreadYread_long_string_literal,T42); XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)34),VARREF(YgooSioSreadYread_long_string_literal)); lit_104 = YPPsym((P)"parse-c-inline"); lit_105 = YPPlist(1,YPPsym((P)"s")); lit_106 = YPPsym((P)"to-c"); T43 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_parse_c_inline_44 = YPfab_met(FUNCODEREF(fun_parse_c_inline_44),T43,LITREF(lit_104),LITREF(lit_105),sloc(304),YPfalse); T45 = VARREF_OR(YgooSioSreadYparse_c_inline,YPfalse); T46 = fun_parse_c_inline_44; T44 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T45,T46); VARSET(YgooSioSreadYparse_c_inline,T44); lit_107 = YPPsym((P)"read-c-inline-literal"); lit_108 = YPPlist(4,YPPsym((P)"start"),YPPsym((P)"end"),YPPsym((P)"form"),YPPsym((P)"port")); lit_109 = YPsb((P)"end of file within c-inline"); T47 = YPfab_sig(YPPlist(4,VARREF(YLanyG),VARREF(YLanyG),VARREF(YLanyG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); YgooSioSreadYread_c_inline_literal = YPfab_met(FUNCODEREF(YgooSioSreadYread_c_inline_literal),T47,LITREF(lit_107),LITREF(lit_108),sloc(318),YPfalse); T48 = YgooSioSreadYread_c_inline_literal; VARSET(YgooSioSreadYread_c_inline_literal,T48); lit_110 = YPPsym((P)"read-c-statement-literal"); lit_111 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_112 = YPPsym((P)"c-ment"); T49 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSioSreadYread_c_statement_literal = YPfab_met(FUNCODEREF(YgooSioSreadYread_c_statement_literal),T49,LITREF(lit_110),LITREF(lit_111),sloc(331),YPfalse); T50 = YgooSioSreadYread_c_statement_literal; VARSET(YgooSioSreadYread_c_statement_literal,T50); XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)123),VARREF(YgooSioSreadYread_c_statement_literal)); lit_113 = YPPsym((P)"read-c-expression-literal"); lit_114 = YPPlist(2,YPPsym((P)"ce"),YPPsym((P)"port")); lit_115 = YPPsym((P)"c-expr"); lit_116 = YPPsym((P)"%"); lit_117 = YPPsym((P)"b"); T51 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); YgooSioSreadYread_c_expression_literal = YPfab_met(FUNCODEREF(YgooSioSreadYread_c_expression_literal),T51,LITREF(lit_113),LITREF(lit_114),sloc(336),YPfalse); T52 = YgooSioSreadYread_c_expression_literal; VARSET(YgooSioSreadYread_c_expression_literal,T52); XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)101),VARREF(YgooSioSreadYread_c_expression_literal)); lit_118 = YPPlist(5,YPPlist(2,YPPsym((P)"tab"),YPchr((P)9)),YPPlist(2,YPPsym((P)"page"),YPchr((P)12)),YPPlist(2,YPPsym((P)"return"),YPchr((P)13)),YPPlist(2,YPPsym((P)"newline"),YPchr((P)10)),YPPlist(2,YPPsym((P)"space"),YPchr((P)32))); VARSET(YgooSioSreadYDchar_long_names,LITREF(lit_118)); lit_119 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_120 = YPsb((P)"end of file after #\\"); lit_121 = YPsb((P)"unknown #\\ name"); T53 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_48 = YPfab_met(FUNCODEREF(fun_48),T53,YPfalse,LITREF(lit_119),sloc(355),YPfalse); T54 = fun_48; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)92),T54); lit_122 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T55 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_49 = YPfab_met(FUNCODEREF(fun_49),T55,YPfalse,LITREF(lit_122),sloc(372),YPfalse); T56 = fun_49; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)40),T56); lit_123 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T57 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_50 = YPfab_met(FUNCODEREF(fun_50),T57,YPfalse,LITREF(lit_123),sloc(378),YPfalse); T58 = fun_50; XCALL2(1,VARREF(YgooSioSreadYdefine_sharp_macro),YPchr((P)91),T58); lit_124 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); lit_125 = YPsb((P)"unsupported number syntax"); lit_126 = YPPlist(1,YPPsym((P)"c")); lit_127 = YPPlist(4,YPchr((P)98),YPchr((P)111),YPchr((P)100),YPchr((P)120)); T60 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_51 = YPfab_met(FUNCODEREF(fun_51),T60,YPfalse,LITREF(lit_124),sloc(383),YPfalse); T59 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_52 = YPfab_met(FUNCODEREF(fun_52),T59,YPfalse,LITREF(lit_126),sloc(387),YPfalse); T63 = fun_51; number_sharp_macroF3767 = T63; T62 = FUNFAB(fun_52,1,number_sharp_macroF3767); T61 = XCALL2(1,VARREF(YgooSmacrosYdo),T62,LITREF(lit_127)); lit_128 = YPPsym((P)"sub-read-token"); lit_129 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"port")); T64 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_sub_read_token_53 = YPfab_met(FUNCODEREF(fun_sub_read_token_53),T64,LITREF(lit_128),LITREF(lit_129),sloc(392),YPfalse); T66 = VARREF_OR(YgooSioSreadYsub_read_token,YPfalse); T67 = fun_sub_read_token_53; T65 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T66,T67); VARSET(YgooSioSreadYsub_read_token,T65); lit_130 = YPPsym((P)"parse-token"); lit_131 = YPPlist(2,YPPsym((P)"string"),YPPsym((P)"port")); lit_132 = YPPlist(1,YPPsym((P)"x")); lit_133 = YPsb((P)"."); lit_134 = YPsb((P)"unsupported number syntax"); T69 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_54 = YPfab_met(FUNCODEREF(fun_54),T69,YPfalse,LITREF(lit_132),sloc(413),YPfalse); T68 = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YgooSioSportYLportG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_parse_token_55 = YPfab_met(FUNCODEREF(fun_parse_token_55),T68,LITREF(lit_130),LITREF(lit_131),sloc(403),YPfalse); T71 = VARREF_OR(YgooSioSreadYparse_token,YPfalse); T72 = fun_parse_token_55; T70 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T71,T72); VARSET(YgooSioSreadYparse_token,T70); lit_135 = YPPlist(9,YPsb((P)"+"),YPsb((P)"-"),YPsb((P)"..."),YPsb((P)"1st"),YPsb((P)"2nd"),YPsb((P)"3rd"),YPsb((P)"1+"),YPsb((P)"1-"),YPsb((P)"->")); VARSET(YgooSioSreadYDstrange_symbol_names,LITREF(lit_135)); lit_136 = YPPsym((P)"t"); T76 = XCALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),LITREF(lit_136)); T75 = XCALL2(1,VARREF(YgooSmacrosYelt),T76,YPint((P)0)); T74 = XCALL2(1,VARREF(YgooSlogYE),T75,YPchr((P)84)); if (T74 != YPfalse) { T73 = VARREF(YgooSchrYto_upper); } else { T73 = VARREF(YgooSchrYto_lower); } VARSET(YgooSioSreadYpreferred_case,T73); lit_137 = YPPsym((P)"reading-error"); lit_138 = YPPlist(3,YPPsym((P)"port"),YPPsym((P)"message"),YPPsym((P)"irritants")); lit_139 = YPsb((P)": %="); T77 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLportG),VARREF(YLstrG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); fun_reading_error_56 = YPfab_met(FUNCODEREF(fun_reading_error_56),T77,LITREF(lit_137),LITREF(lit_138),sloc(440),YPfalse); T79 = VARREF_OR(YgooSioSreadYreading_error,YPfalse); T80 = fun_reading_error_56; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YgooSioSreadYreading_error,T78); lit_140 = YPPsym((P)"warn"); lit_141 = YPPlist(2,YPPsym((P)"string"),YPPsym((P)"irritants-and-port")); T81 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_warn_57 = YPfab_met(FUNCODEREF(fun_warn_57),T81,LITREF(lit_140),LITREF(lit_141),sloc(444),YPfalse); T83 = VARREF_OR(YgooSioSreadYwarn,YPfalse); T84 = fun_warn_57; T82 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T83,T84); VARSET(YgooSioSreadYwarn,T82); lit_142 = YPPsym((P)"reverse-list->string"); lit_143 = YPPlist(2,YPPsym((P)"l"),YPPsym((P)"n")); T85 = YPfab_sig(YPPlist(2,VARREF(YLlstG),VARREF(YLintG)),YPfalse,YPint((P)2),VARREF(YLstrG),Ynil); fun_reverse_list_Gstring_58 = YPfab_met(FUNCODEREF(fun_reverse_list_Gstring_58),T85,LITREF(lit_142),LITREF(lit_143),sloc(452),YPfalse); T87 = VARREF_OR(YgooSioSreadYreverse_list_Gstring,YPfalse); T88 = fun_reverse_list_Gstring_58; T86 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T87,T88); VARSET(YgooSioSreadYreverse_list_Gstring,T86); T89 = YPfalse; return T89; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooScols; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsSmap; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSconditions}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmath}, {&module_info_gooSioSport}, {&module_info_gooScols}, {&module_info_gooScolsSlst}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"build-condition-for-handler-interactively", &module_info_gooSconditions, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"default-handler-description", &module_info_gooSconditions, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"neg", &module_info_gooSmath, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"choose-handler", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"put", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"seq", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"", &module_info_gooSioSport, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"*current-handlers*", &module_info_gooSconditions, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"port-filename", &module_info_gooSioSport, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSboot, NULL}, {"port-line-setter", &module_info_gooSioSport, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"in", &module_info_gooSioSport, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"acos", &module_info_gooSmath, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"describe-handler", &module_info_gooSconditions, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"invoke-handler-interactively", &module_info_gooSconditions, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"build-condition-interactively", &module_info_gooSconditions, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"list-handlers", &module_info_gooSconditions, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"logn", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"&", &module_info_gooSmath, NULL}, {"^", &module_info_gooSmath, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"port-index-setter", &module_info_gooSioSport, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"get", &module_info_gooSioSport, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"port-handle", &module_info_gooSioSport, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"sub-read", CVAR, &YgooSioSreadYsub_read}, {"set-standard-read-macro!", CVAR, &YgooSioSreadYset_standard_read_macroX}, {"$char-long-names", CVAR, &YgooSioSreadYDchar_long_names}, {"set-standard-syntax!", CVAR, &YgooSioSreadYset_standard_syntaxX}, {"read-from-string", CVAR, &YgooSioSreadYread_from_string}, {"read-delimited-list", CVAR, &YgooSioSreadYread_delimited_list}, {"token-message", CVAR, &YgooSioSreadYtoken_message}, {"$vert-sym", CVAR, &YgooSioSreadYDvert_sym}, {"reading-error", CVAR, &YgooSioSreadYreading_error}, {"bs-sym", CVAR, &YgooSioSreadYbs_sym}, {"sub-read-curlies", CVAR, &YgooSioSreadYsub_read_curlies}, {"*sharp-macros*", CVAR, &YgooSioSreadYTsharp_macrosT}, {"$strange-symbol-names", CVAR, &YgooSioSreadYDstrange_symbol_names}, {"flush-whitespace", CVAR, &YgooSioSreadYflush_whitespace}, {"parse-token", CVAR, &YgooSioSreadYparse_token}, {"preferred-case", CVAR, &YgooSioSreadYpreferred_case}, {"reverse-list->string", CVAR, &YgooSioSreadYreverse_list_Gstring}, {"gobble-nested-comment", CVAR, &YgooSioSreadYgobble_nested_comment}, {"read-long-string-literal", CVAR, &YgooSioSreadYread_long_string_literal}, {"read-c-inline-literal", CVAR, &YgooSioSreadYread_c_inline_literal}, {"read-c-expression-literal", CVAR, &YgooSioSreadYread_c_expression_literal}, {"read-string-literal", CVAR, &YgooSioSreadYread_string_literal}, {"sub-read-list-eof-error", CVAR, &YgooSioSreadYsub_read_list_eof_error}, {"sub-read-list", CVAR, &YgooSioSreadYsub_read_list}, {"reader-token?", CVAR, &YgooSioSreadYreader_tokenQ}, {"", CVAR, &YgooSioSreadYLreader_tokenG}, {"sub-read-vertical", CVAR, &YgooSioSreadYsub_read_vertical}, {"---main-1---", PVAR, NULL}, {"*read-dispatch-vector*", CVAR, &YgooSioSreadYTread_dispatch_vectorT}, {"$close-bracket", CVAR, &YgooSioSreadYDclose_bracket}, {"$string-escape-chars", CVAR, &YgooSioSreadYDstring_escape_chars}, {"gobble-line", CVAR, &YgooSioSreadYgobble_line}, {"parse-c-inline", CVAR, &YgooSioSreadYparse_c_inline}, {"$close-paren", CVAR, &YgooSioSreadYDclose_paren}, {"sub-read-token", CVAR, &YgooSioSreadYsub_read_token}, {"$vert-proxy", CVAR, &YgooSioSreadYDvert_proxy}, {"sub-read-brackets", CVAR, &YgooSioSreadYsub_read_brackets}, {"*read-terminating?-vector*", CVAR, &YgooSioSreadYTread_terminatingQ_vectorT}, {"get-standard-read-macro", CVAR, &YgooSioSreadYget_standard_read_macro}, {"warn", CVAR, &YgooSioSreadYwarn}, {"make-reader-token", CVAR, &YgooSioSreadYmake_reader_token}, {"---main-0---", PVAR, NULL}, {"$close-curly", CVAR, &YgooSioSreadYDclose_curly}, {"sub-read-backslash", CVAR, &YgooSioSreadYsub_read_backslash}, {"sub-read-carefully", CVAR, &YgooSioSreadYsub_read_carefully}, {"read-c-statement-literal", CVAR, &YgooSioSreadYread_c_statement_literal}, {"sub-read-constituent", CVAR, &YgooSioSreadYsub_read_constituent}, {"define-sharp-macro", CVAR, &YgooSioSreadYdefine_sharp_macro}, {"sub-read-seq", CVAR, &YgooSioSreadYsub_read_seq}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"set-standard-read-macro!", NULL}, {"$char-long-names", NULL}, {"read-from-string", NULL}, {"read-delimited-list", NULL}, {"read", NULL}, {"get-standard-read-macro", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSioSread; MODULE_INFO module_info_gooSioSread = { "goo/io/read", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSconditions (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmath (void); extern void load_module_gooSioSport (void); extern void load_module_gooScols (void); extern void load_module_gooScolsSlst (void); /* EXPRESSION: */ extern void load_module_gooSioSread (void); void load_module_gooSioSread (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSconditions(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmath(); load_module_gooSioSport(); load_module_gooScols(); load_module_gooScolsSlst(); (P)YgooSioSreadY___main_0___(); (P)YgooSioSreadY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/goo/io/write.c0100644000175000017500000053057107756744565015343 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"goo/io/write"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: goo/io/write */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); DEF(YgooSioSwriteYwrite_flat,"goo/io/write","write-flat"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooStypesYLbotG,"goo/types",""); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YgooScolsScolYfab_elt_setter,"goo/cols/col","fab-elt-setter"); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YLmetG,"goo/boot",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YOelt,"goo/boot","@elt"); EXT(YLsymG,"goo/boot",""); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathY_,"goo/math","-"); EXT(YgooSfunYOfun_mets,"goo/fun","@fun-mets"); EXT(YgooSlogYas_log,"goo/log","as-log"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSconditionsYbuild_condition_for_handler_interactively,"goo/conditions","build-condition-for-handler-interactively"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YgooSioSreadYset_standard_read_macroX,"goo/io/read","set-standard-read-macro!"); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrepYrep_elt,"goo/cols/rep","rep-elt"); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); DEF(YgooSioSwriteYwrite_value_type,"goo/io/write","write-value-type"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsSlstYline_list_of,"goo/cols/lst","line-list-of"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSfunYOclassL,"goo/fun","@class<"); EXT(YgooSioSreadYDchar_long_names,"goo/io/read","$char-long-names"); EXT(YgooSconditionsYdefault_handler_description,"goo/conditions","default-handler-description"); EXT(YgooSfunYfun_src_loc,"goo/fun","fun-src-loc"); EXT(YgooScolsSseqYrange_check,"goo/cols/seq","range-check"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsSlstYlstT,"goo/cols/lst","lst*"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YgooSchrYeof_object,"goo/chr","eof-object"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooSmacrosYlift_place_subforms,"goo/macros","lift-place-subforms"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ylst,"goo/boot","lst"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); EXT(YgooSioSreadYread_delimited_list,"goo/io/read","read-delimited-list"); DYNDEF(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(YLlstG,"goo/boot",""); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YgooSioSwriteYquotationQ,"goo/io/write","quotation?"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); DEF(YgooSioSwriteYas_binding_name,"goo/io/write","as-binding-name"); EXT(YPfalse,"goo/boot","%false"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooScolsScolYfab_fillX,"goo/cols/col","fab-fill!"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSlogYNE,"goo/log","~="); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YOdo,"goo/boot","@do"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(YLseqIG,"goo/boot",""); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); DEF(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); DEF(YgooSioSwriteYwrite_boolean,"goo/io/write","write-boolean"); DEF(YgooSioSwriteYrecurring_write_type,"goo/io/write","recurring-write-type"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YgooSfunYincongruent_method_error,"goo/fun","incongruent-method-error"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(YgooSfunYfun_src,"goo/fun","fun-src"); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsScolYfab_into,"goo/cols/col","fab-into"); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); DEF(YgooSioSwriteYwrite_fun_guts,"goo/io/write","write-fun-guts"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); DEF(YgooSioSwriteYwrite_list,"goo/io/write","write-list"); EXT(YgooSmathYexp,"goo/math","exp"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYchoose_handler,"goo/conditions","choose-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(Ytail,"goo/boot","tail"); DEF(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); DEF(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YLsigG,"goo/boot",""); EXT(YOallQ,"goo/boot","@all?"); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); DEF(YgooSioSwriteYdo_emit,"goo/io/write","do-emit"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DEF(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSlate_macrosYTgensym_counterT,"goo/late-macros","*gensym-counter*"); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooScolsSlstYLlineG,"goo/cols/lst",""); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(YgooScolsSlstYLline_listG,"goo/cols/lst",""); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); DEF(YgooSioSwriteYcharacter_name,"goo/io/write","character-name"); DEF(YgooSioSwriteYwrite_map,"goo/io/write","write-map"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSmathYcontagious_call,"goo/math","contagious-call"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YLrepG,"goo/boot",""); EXT(YgooSmathYpower_of_two_ceil,"goo/math","power-of-two-ceil"); EXT(YgooScolsSstrYascii_limit,"goo/cols/str","ascii-limit"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YgooSmathYK,"goo/math","|"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YOmap,"goo/boot","@map"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); DYNEXT(YgooSconditionsYTcurrent_handlersT,"goo/conditions","*current-handlers*"); EXT(YgooScolsSrepYrep_fillX,"goo/cols/rep","rep-fill!"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSioSportYport_filename,"goo/io/port","port-filename"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooScolsSlstYline_of,"goo/cols/lst","line-of"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSioSportYport_line_setter,"goo/io/port","port-line-setter"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooSmathYcontagious_type,"goo/math","contagious-type"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSchrYchar_Gascii,"goo/chr","char->ascii"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNDEF(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLfixnumG,"goo/boot",""); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); DEF(YgooSioSwriteYwrite_char_literal,"goo/io/write","write-char-literal"); EXT(Yopts_location,"goo/boot","opts-location"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSfunYfab_gen,"goo/fun","fab-gen"); DEF(YgooSioSwriteYrecurring_write,"goo/io/write","recurring-write"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSconditionsYdescribe_handler,"goo/conditions","describe-handler"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YgooScolsSrepYrep_len,"goo/cols/rep","rep-len"); EXT(YLintG,"goo/boot",""); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooScolsSseqxYalter,"goo/cols/seqx","alter"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(Ynot,"goo/boot","not"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSconditionsYinvoke_handler_interactively,"goo/conditions","invoke-handler-interactively"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooScolsSseqxYinsX,"goo/cols/seqx","ins!"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooScolsSrepYrep_nul,"goo/cols/rep","rep-nul"); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooScolsSlstYline_list,"goo/cols/lst","line-list"); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(YgooSfunYfun_inlineableQ_setter,"goo/fun","fun-inlineable?-setter"); EXT(YLsrc_locG,"goo/boot",""); DEF(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYrange_checkQ,"goo/cols/seq","range-check?"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooScolsSlstYassq,"goo/cols/lst","assq"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooScolsSrepYrep_elt_setter,"goo/cols/rep","rep-elt-setter"); EXT(YgooSmathYA,"goo/math","+"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooScolsSseqYdo_key_vals,"goo/cols/seq","do-key-vals"); EXT(YLmagG,"goo/boot",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(YgooSioSreadYget_standard_read_macro,"goo/io/read","get-standard-read-macro"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYbuild_condition_interactively,"goo/conditions","build-condition-interactively"); EXT(YgooSfunYfun_inlineableQ,"goo/fun","fun-inlineable?"); EXT(YOnew,"goo/boot","@new"); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooScolsSrepYrep_intoX,"goo/cols/rep","rep-into!"); EXT(YgooSmathYpow,"goo/math","pow"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YLboxG,"goo/boot",""); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); DEF(YgooSioSwriteYwrite_params,"goo/io/write","write-params"); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooScolsSseqYvals_to_str,"goo/cols/seq","vals-to-str"); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); DEF(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooSmagYL,"goo/mag","<"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YgooSconditionsYlist_handlers,"goo/conditions","list-handlers"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSlstYline_pair,"goo/cols/lst","line-pair"); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSfunYfun_spec,"goo/fun","fun-spec"); EXT(YgooSfunYfun_count_setter,"goo/fun","fun-count-setter"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); DEF(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); DEF(YgooSioSwriteYwrite_type,"goo/io/write","write-type"); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); DEF(YgooSioSwriteYwrite_number,"goo/io/write","write-number"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(YgooSmathYround_to,"goo/math","round-to"); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(YgooSmathYB,"goo/math","&"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSclassYTreport_prop_unbound_errorsQT,"goo/class","*report-prop-unbound-errors?*"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(YgooScolsSlstYassqn,"goo/cols/lst","assqn"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YOlst,"goo/boot","@lst"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSstrYascii_whitespaces,"goo/cols/str","ascii-whitespaces"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSioSportYport_index_setter,"goo/io/port","port-index-setter"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSfunYfun_count,"goo/fun","fun-count"); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(YgooSfunYOorder_specs_class,"goo/fun","@order-specs-class"); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YgooScolsSrepYrep_fab,"goo/cols/rep","rep-fab"); EXT(YLclassG,"goo/boot",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooStypesYDbot,"goo/types","$bot"); EXT(YgooSmathYmod_,"goo/math","mod-"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); DEF(YgooSioSwriteYwrite_string_literal,"goo/io/write","write-string-literal"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_23); DEFLIT(lit_36); DEFLIT(lit_34); DEFLIT(lit_20); DEFLIT(lit_14); DEFLIT(lit_106); DEFLIT(lit_105); DEFLIT(lit_12); DEFLIT(lit_91); DEFLIT(lit_151); DEFLIT(lit_67); DEFLIT(lit_24); DEFLIT(lit_17); DEFLIT(lit_45); DEFLIT(lit_102); DEFLIT(lit_125); DEFLIT(lit_100); DEFLIT(lit_39); DEFLIT(lit_73); DEFLIT(lit_79); DEFLIT(lit_133); DEFLIT(lit_112); DEFLIT(lit_169); DEFLIT(lit_93); DEFLIT(lit_140); DEFLIT(lit_10); DEFLIT(lit_49); DEFLIT(lit_15); DEFLIT(lit_142); DEFLIT(lit_22); DEFLIT(lit_33); DEFLIT(lit_97); DEFLIT(lit_0); DEFLIT(lit_99); DEFLIT(lit_168); DEFLIT(lit_38); DEFLIT(lit_124); DEFLIT(lit_61); DEFLIT(lit_55); DEFLIT(lit_156); DEFLIT(lit_114); DEFLIT(lit_146); DEFLIT(lit_149); DEFLIT(lit_56); DEFLIT(lit_64); DEFLIT(lit_88); DEFLIT(lit_44); DEFLIT(lit_115); DEFLIT(lit_65); DEFLIT(lit_4); DEFLIT(lit_160); DEFLIT(lit_77); DEFLIT(lit_148); DEFLIT(lit_54); DEFLIT(lit_9); DEFLIT(lit_59); DEFLIT(lit_143); DEFLIT(lit_18); DEFLIT(lit_137); DEFLIT(lit_163); DEFLIT(lit_84); DEFLIT(lit_162); DEFLIT(lit_119); DEFLIT(lit_8); DEFLIT(lit_98); DEFLIT(lit_96); DEFLIT(lit_123); DEFLIT(lit_76); DEFLIT(lit_110); DEFLIT(lit_81); DEFLIT(lit_126); DEFLIT(lit_139); DEFLIT(lit_50); DEFLIT(lit_127); DEFLIT(lit_27); DEFLIT(lit_147); DEFLIT(lit_3); DEFLIT(lit_101); DEFLIT(lit_150); DEFLIT(lit_78); DEFLIT(lit_46); DEFLIT(lit_86); DEFLIT(lit_74); DEFLIT(lit_40); DEFLIT(lit_144); DEFLIT(lit_37); DEFLIT(lit_122); DEFLIT(lit_109); DEFLIT(lit_26); DEFLIT(lit_68); DEFLIT(lit_82); DEFLIT(lit_83); DEFLIT(lit_29); DEFLIT(lit_164); DEFLIT(lit_52); DEFLIT(lit_104); DEFLIT(lit_32); DEFLIT(lit_58); DEFLIT(lit_53); DEFLIT(lit_161); DEFLIT(lit_117); DEFLIT(lit_107); DEFLIT(lit_166); DEFLIT(lit_90); DEFLIT(lit_116); DEFLIT(lit_43); DEFLIT(lit_62); DEFLIT(lit_75); DEFLIT(lit_7); DEFLIT(lit_145); DEFLIT(lit_13); DEFLIT(lit_41); DEFLIT(lit_135); DEFLIT(lit_87); DEFLIT(lit_111); DEFLIT(lit_28); DEFLIT(lit_30); DEFLIT(lit_51); DEFLIT(lit_138); DEFLIT(lit_31); DEFLIT(lit_154); DEFLIT(lit_42); DEFLIT(lit_108); DEFLIT(lit_121); DEFLIT(lit_71); DEFLIT(lit_132); DEFLIT(lit_69); DEFLIT(lit_128); DEFLIT(lit_153); DEFLIT(lit_103); DEFLIT(lit_66); DEFLIT(lit_60); DEFLIT(lit_118); DEFLIT(lit_6); DEFLIT(lit_19); DEFLIT(lit_25); DEFLIT(lit_131); DEFLIT(lit_113); DEFLIT(lit_95); DEFLIT(lit_155); DEFLIT(lit_136); DEFLIT(lit_167); DEFLIT(lit_47); DEFLIT(lit_1); DEFLIT(lit_5); DEFLIT(lit_141); DEFLIT(lit_63); DEFLIT(lit_159); DEFLIT(lit_80); DEFLIT(lit_11); DEFLIT(lit_2); DEFLIT(lit_92); DEFLIT(lit_152); DEFLIT(lit_89); DEFLIT(lit_134); DEFLIT(lit_35); DEFLIT(lit_21); DEFLIT(lit_16); DEFLIT(lit_129); DEFLIT(lit_158); DEFLIT(lit_85); DEFLIT(lit_130); DEFLIT(lit_70); DEFLIT(lit_57); DEFLIT(lit_94); DEFLIT(lit_120); DEFLIT(lit_72); DEFLIT(lit_165); DEFLIT(lit_157); DEFLIT(lit_48); /* FUNCTIONS: */ LOCFOR(fun_as_binding_name_0); LOCFOR(fun_do_emit_1); LOCFOR(fun_do_emit_2); LOCFOR(fun_do_emit_3); LOCFOR(fun_recur_4); LOCFOR(fun_emit_5); LOCFOR(fun_write_to_string_6); LOCFOR(fun_recur_7); LOCFOR(fun_write_8); LOCFOR(fun_writeln_9); LOCFOR(fun_recurring_write_10); LOCFOR(fun_recurring_write_11); LOCFOR(fun_recurring_write_12); LOCFOR(fun_recurring_write_13); LOCFOR(fun_recurring_write_14); LOCFOR(fun_recurring_write_15); LOCFOR(fun_recurring_write_16); LOCFOR(fun_recurring_write_17); LOCFOR(fun_recurring_write_18); LOCFOR(fun_recurring_write_19); LOCFOR(fun_recurring_write_20); LOCFOR(fun_write_boolean_21); LOCFOR(fun_write_number_22); LOCFOR(fun_write_char_literal_23); LOCFOR(fun_character_name_24); LOCFOR(fun_write_string_literal_25); LOCFOR(fun_write_list_26); LOCFOR(fun_quotationQ_27); LOCFOR(fun_write_flat_28); LOCFOR(fun_29); LOCFOR(fun_write_map_30); LOCFOR(fun_recurring_write_31); LOCFOR(fun_recurring_write_32); LOCFOR(fun_recurring_write_33); LOCFOR(fun_recurring_write_34); LOCFOR(fun_35); LOCFOR(fun_36); LOCFOR(fun_write_params_37); LOCFOR(fun_write_fun_guts_38); LOCFOR(fun_recurring_write_39); LOCFOR(fun_recurring_write_40); LOCFOR(fun_recurring_write_41); LOCFOR(fun_recurring_write_42); LOCFOR(fun_recurring_write_43); LOCFOR(fun_recurring_write_44); LOCFOR(fun_45); LOCFOR(fun_recurring_write_46); LOCFOR(fun_47); LOCFOR(fun_recurring_write_48); LOCFOR(fun_49); LOCFOR(fun_write_value_type_50); LOCFOR(fun_write_value_type_51); LOCFOR(fun_recurring_write_type_52); LOCFOR(fun_recurring_write_type_53); LOCFOR(fun_recur_54); LOCFOR(fun_write_type_55); LOCFOR(fun_recurring_write_56); LOCFOR(fun_57); LOCFOR(fun_58); LOCFOR(fun_59); LOCFOR(fun_recurring_write_60); LOCFOR(fun_recurring_write_61); LOCFOR(fun_arg_62); LOCFOR(fun_63); LOCFOR(fun_msg_64); LOCFOR(fun_post_65); LOCFOR(fun_maybe_pack_chars_66); LOCFOR(fun_arg_67); LOCFOR(fun_68); FUNFOR(YgooSioSwriteYpe_msg); LOCFOR(fun_x_1473_70); LOCFOR(fun_71); LOCFOR(fun_72); LOCFOR(fun_73); LOCFOR(fun_74); FUNFOR(YgooSconditionsYmsg_to_str); FUNFOR(YgooSioSwriteYsay); extern P YgooSioSwriteY___main_0___ (); extern P YgooSioSwriteY___main_1___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_as_binding_name_0) { P name_; P T0; LINK_STACK(); ARG(name_, 0); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),name_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_emit_1) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_emit_2) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSportYput),port_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_do_emit_3) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL4(1,VARREF(YgooSioSwriteYrecurring_write),port_,x_,d_,recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recur_4) { P x_,d_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(d_, 1); T1 = CALL2(1,VARREF(YgooSmagYGE),d_,DYNREF(YgooSioSwriteYTmax_print_depthT)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(0),LITREF(lit_10)); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T3 = CALL4(1,VARREF(YgooSioSwriteYdo_emit),FREEREF(0),x_,T4,FREEREF(1)); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_emit_5) { P port_,x_; P recurF3787; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); T1 = FUNSHELL(0,fun_recur_4,2); recurF3787 = T1; FUNINIT(recurF3787, 2,port_,recurF3787); T0 = CALL2(1,recurF3787,x_,YPint((P)-1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_to_string_6) { P x_; P portF3788; P T0,T1; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLstr_out_portG),LITREF(lit_13)); portF3788 = T1; CALL2(1,VARREF(YgooSioSwriteYwrite),portF3788,x_); T0 = CALL1(1,VARREF(YgooSioSportYport_contents),portF3788); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_recur_7) { P x_,d_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(x_, 0); ARG(d_, 1); T1 = CALL2(1,VARREF(YgooSmagYGE),d_,DYNREF(YgooSioSwriteYTmax_print_depthT)); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(0),LITREF(lit_17)); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSmathYA),d_,YPint((P)1)); T3 = CALL4(1,VARREF(YgooSioSwriteYrecurring_write),FREEREF(0),x_,T4,FREEREF(1)); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_8) { P port_,x_; P recurF3789; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); T1 = FUNSHELL(0,fun_recur_7,2); recurF3789 = T1; FUNINIT(recurF3789, 2,port_,recurF3789); T0 = CALL2(1,recurF3789,x_,YPint((P)-1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_writeln_9) { P port_,x_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); CALL2(1,VARREF(YgooSioSwriteYwrite),port_,x_); T0 = CALL1(1,VARREF(YgooSioSportYnewline),port_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_10) { P port_,x_,d_,recur_; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL1(1,VARREF(YgooSmacrosYnulQ),x_); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_22)); T0 = T2; } else { T3 = CALL4(1,VARREF(YgooSioSwriteYwrite_list),port_,x_,d_,recur_); T0 = T3; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_11) { P port_,x_,d_,recur_; P prefixF3790; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T4 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T3 = CALL1(1,VARREF(Yclass_name),T4); T2 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T3); T1 = CALL3(1,VARREF(YgooSmacrosYcat),LITREF(lit_24),T2,LITREF(lit_25)); prefixF3790 = T1; T0 = CALLN(1,VARREF(YgooSioSwriteYwrite_flat),6,port_,prefixF3790,x_,LITREF(lit_26),d_,recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_12) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALLN(1,VARREF(YgooSioSwriteYwrite_flat),6,port_,LITREF(lit_28),x_,LITREF(lit_29),d_,recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_13) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALLN(1,VARREF(YgooSioSwriteYwrite_flat),6,port_,LITREF(lit_31),x_,LITREF(lit_32),d_,recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_14) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL4(1,VARREF(YgooSioSwriteYwrite_map),port_,x_,d_,recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_15) { P port_,x_,d_,recur_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); if (x_ != YPfalse) { T1 = CALL2(1,VARREF(YgooSioSwriteYwrite_boolean),port_,LITREF(lit_35)); T0 = T1; } else { T2 = CALL2(1,VARREF(YgooSioSwriteYwrite_boolean),port_,LITREF(lit_36)); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_16) { P port_,x_,d_,recur_; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),x_); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_17) { P port_,x_,d_,recur_; P tF3794; P xF3793; P xF3792; P xF3791; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_39)); xF3791 = x_; T4 = (P)YPuntag_into(xF3791); xF3792 = T4; xF3793 = xF3792; tF3794 = (P)1; T3 = (P)YPiLL(xF3793,(P)2); T2 = (P)YPiv(T3,tF3794); T1 = CALL2(1,VARREF(YgooScolsSstrYnum_to_str_base),T2,YPint((P)16)); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_18) { P port_,x_,d_,recur_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL2(1,VARREF(YgooSmacrosYEE),x_,VARREF(YLnumG)); if (T1 != YPfalse) { T3 = CALL1(1,VARREF(YgooSioSwriteYas_binding_name),LITREF(lit_41)); T2 = CALL2(1,VARREF(YgooSioSportYputs),port_,T3); T0 = T2; } else { T4 = CALL2(1,VARREF(YgooSioSwriteYwrite_number),port_,x_); T0 = T4; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_19) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite_string_literal),port_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_20) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite_char_literal),port_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_boolean_21) { P port_,mumble_; P T0; LINK_STACK(); ARG(port_, 0); ARG(mumble_, 1); CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)35)); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite),port_,mumble_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_number_22) { P port_,x_; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); T1 = CALL1(1,VARREF(YgooSmathYnum_to_str),x_); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_char_literal_23) { P port_,x_; P probeF3795; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); T3 = CALL1(1,VARREF(YgooSioSwriteYcharacter_name),x_); probeF3795 = T3; CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_50)); if (probeF3795 != YPfalse) { T1 = CALL2(1,VARREF(YgooSioSwriteYwrite),port_,probeF3795); T0 = T1; } else { T2 = CALL2(1,VARREF(YgooSioSportYput),port_,x_); T0 = T2; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_character_name_24) { P char_; P assocF3796; P T0,T1,T2; LINK_STACK(); ARG(char_, 0); T2 = CALL3(1,VARREF(YgooScolsSlstYassqn),char_,VARREF(YgooSioSreadYDchar_long_names),YPint((P)1)); assocF3796 = T2; if (assocF3796 != YPfalse) { T1 = CALL1(1,VARREF(YgooSmacrosY1st),assocF3796); T0 = T1; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_string_literal_25) { P port_,x_; P tmpF3800; P cF3799; P iF3798; P lenF3797; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)34)); T10 = CALL1(1,VARREF(YgooStypesYlen),x_); lenF3797 = T10; iF3798 = YPint((P)0); LOOP_163: { P a163_0; T1 = CALL2(1,VARREF(YgooSlogYE),iF3798,lenF3797); if (T1 != YPfalse) { T2 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)34)); T0 = T2; } else { T9 = CALL2(1,VARREF(YgooSmacrosYelt),x_,iF3798); cF3799 = T9; T5 = CALL2(1,VARREF(YgooSlogYE),cF3799,YPchr((P)92)); tmpF3800 = T5; if (tmpF3800 != YPfalse) { T3 = tmpF3800; } else { T4 = CALL2(1,VARREF(YgooSlogYE),cF3799,YPchr((P)34)); T3 = T4; } if (T3 != YPfalse) { T6 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)92)); } else { } CALL2(1,VARREF(YgooSioSportYput),port_,cF3799); T8 = CALL2(1,VARREF(YgooSmathYA),iF3798,YPint((P)1)); a163_0 = T8; iF3798 = a163_0; goto LOOP_163; T0 = T7; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_list_26) { P port_,x_,d_,recur_; P nF3802; P lF3801; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL1(1,VARREF(YgooSioSwriteYquotationQ),x_); if (T1 != YPfalse) { CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)39)); T4 = CALL1(1,VARREF(Ytail),x_); T3 = CALL1(1,VARREF(Yhead),T4); T2 = CALL2(1,recur_,T3,d_); T0 = T2; } else { CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)40)); T5 = CALL1(1,VARREF(Yhead),x_); CALL2(1,recur_,T5,d_); T16 = CALL1(1,VARREF(Ytail),x_); lF3801 = T16; nF3802 = YPint((P)1); LOOP_164: { P a164_0,a164_1; T8 = CALL1(1,VARREF(YgooSmacrosYnulQ),lF3801); T7 = CALL1(1,VARREF(Ynot),T8); if (T7 != YPfalse) { T10 = CALL2(1,VARREF(YgooSmagYGE),nF3802,DYNREF(YgooSioSwriteYTmax_print_lengthT)); if (T10 != YPfalse) { T11 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_57)); T9 = T11; } else { CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)32)); T12 = CALL1(1,VARREF(Yhead),lF3801); CALL2(0,recur_,T12,d_); T14 = CALL1(1,VARREF(Ytail),lF3801); T15 = CALL2(1,VARREF(YgooSmathYA),nF3802,YPint((P)1)); a164_0 = T14; a164_1 = T15; lF3801 = a164_0; nF3802 = a164_1; goto LOOP_164; T9 = T13; } T6 = T9; } else { T6 = YPfalse; } } T17 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)41)); T0 = T17; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_quotationQ_27) { P x_; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(x_, 0); T1 = CALL2(1,VARREF(YisaQ),x_,VARREF(YLlstG)); if (T1 != YPfalse) { T4 = CALL1(1,VARREF(Yhead),x_); T3 = CALL2(1,VARREF(YgooSmacrosYEE),T4,LITREF(lit_60)); if (T3 != YPfalse) { T7 = CALL1(1,VARREF(Ytail),x_); T6 = CALL2(1,VARREF(YisaQ),T7,VARREF(YLlstG)); if (T6 != YPfalse) { T10 = CALL1(1,VARREF(Ytail),x_); T9 = CALL1(1,VARREF(Ytail),T10); T8 = CALL1(1,VARREF(YgooSmacrosYnulQ),T9); T5 = T8; } else { T5 = YPfalse; } T2 = T5; } else { T2 = YPfalse; } T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_write_flat_28) { P port_,prefix_,x_,suffix_,d_,recur_; P iF3804; P zF3803; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12; LINK_STACK(); ARG(port_, 0); ARG(prefix_, 1); ARG(x_, 2); ARG(suffix_, 3); ARG(d_, 4); ARG(recur_, 5); CALL2(1,VARREF(YgooSioSportYputs),port_,prefix_); T12 = CALL1(1,VARREF(YgooStypesYlen),x_); zF3803 = T12; T0 = CALL2(1,VARREF(YgooSmagYG),zF3803,YPint((P)0)); if (T0 != YPfalse) { T1 = CALL2(1,VARREF(YgooSmacrosYelt),x_,YPint((P)0)); CALL2(1,recur_,T1,d_); iF3804 = YPint((P)1); LOOP_165: { P a165_0; T3 = CALL2(1,VARREF(YgooSmagYGE),iF3804,DYNREF(YgooSioSwriteYTmax_print_lengthT)); if (T3 != YPfalse) { T4 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_63)); T2 = T4; } else { T7 = CALL2(1,VARREF(YgooSmagYGE),iF3804,zF3803); T6 = CALL1(1,VARREF(Ynot),T7); if (T6 != YPfalse) { CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)32)); T8 = CALL2(1,VARREF(YgooSmacrosYelt),x_,iF3804); CALL2(1,recur_,T8,d_); T10 = CALL2(1,VARREF(YgooSmathYA),iF3804,YPint((P)1)); a165_0 = T10; iF3804 = a165_0; goto LOOP_165; T5 = T9; } else { T5 = YPfalse; } T2 = T5; } } } else { } T11 = CALL2(1,VARREF(YgooSioSportYputs),port_,suffix_); UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_29) { P blow_; P valF3811; P keyF3810; P tup30F3809; P iF3808; P tmpF3807; P x_1455F3806; P x_1456F3805; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); ARG(blow_, 0); T17 = CALL1(1,VARREF(YgooScolsSrangeYfrom),YPint((P)0)); T16 = CALL1(1,VARREF(YgooScolsScolYenum),T17); x_1456F3805 = T16; T18 = CALL1(1,VARREF(YgooScolsScolYenum),FREEREF(0)); x_1455F3806 = T18; LOOP_166: { P a166_0,a166_1; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1456F3805); tmpF3807 = T4; if (tmpF3807 != YPfalse) { T2 = tmpF3807; } else { T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1455F3806); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T15 = CALL1(1,VARREF(YgooScolsScolYnow),x_1456F3805); iF3808 = T15; T13 = CALL1(1,VARREF(YgooScolsScolYnow_key),x_1455F3806); T14 = CALL1(1,VARREF(YgooScolsScolYnow),x_1455F3806); T12 = CALL2(1,VARREF(Ytup),T13,T14); tup30F3809 = T12; T11 = CALL2(1,VARREF(YgooSmacrosYelt),tup30F3809,YPint((P)0)); keyF3810 = T11; T10 = CALL2(1,VARREF(YgooSmacrosYelt),tup30F3809,YPint((P)1)); valF3811 = T10; T5 = CALL2(1,VARREF(YgooSmagYGE),iF3808,DYNREF(YgooSioSwriteYTmax_print_lengthT)); if (T5 != YPfalse) { CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),LITREF(lit_68)); T6 = CALL1(0,blow_,YPfalse); } else { } CALL2(1,VARREF(YgooSioSportYput),FREEREF(1),YPchr((P)32)); CALL2(0,FREEREF(3),keyF3810,FREEREF(2)); CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),LITREF(lit_69)); CALL2(0,FREEREF(3),valF3811,FREEREF(2)); T8 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1456F3805); T9 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1455F3806); a166_0 = T8; a166_1 = T9; x_1456F3805 = a166_0; x_1455F3806 = a166_1; goto LOOP_166; T0 = T7; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_map_30) { P port_,x_,d_,recur_; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_66)); T1 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T0 = CALL1(1,VARREF(Yclass_name),T1); CALL2(1,VARREF(YgooSioSwriteYemit),port_,T0); T2 = FUNFAB(fun_29,4,x_,port_,d_,recur_); with_exit(T2); T3 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)62)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_recurring_write_31) { P port_,x_,d_,recur_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL1(1,VARREF(YgooSioSportYport_filename),x_); T2 = CALL1(1,VARREF(YgooSioSportYport_line),x_); T0 = CALL4(1,VARREF(YgooSconditionsYmsg),port_,LITREF(lit_71),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_32) { P port_,x_,d_,recur_; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL1(1,VARREF(YgooSioSportYport_filename),x_); T0 = CALL3(1,VARREF(YgooSconditionsYmsg),port_,LITREF(lit_73),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_33) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_75)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_34) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_77)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_35) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_36) { P x_; LINK_STACK(); NARGS(x_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_write_params_37) { P port_,x_,recur_; P tmpF3823; P valueF3822; P iF3821; P specF3820; P firstQF3819; P tmpF3818; P tmpF3817; P x_1458F3816; P x_1459F3815; P x_1460F3814; P namesF3813; P namesF3812; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(recur_, 2); T37 = CALL1(1,VARREF(YgooSfunYfun_names),x_); namesF3812 = T37; CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)40)); T36 = CALL1(1,VARREF(YgooSfunYfun_names),x_); namesF3813 = T36; T23 = fun_35; T24 = fun_36; T22 = CALL2(1,VARREF(YgooScolsSstepYfirst_then),T23,T24); T21 = CALL1(1,VARREF(YgooScolsScolYenum),T22); x_1460F3814 = T21; T26 = CALL1(1,VARREF(YgooSfunYfun_specs),x_); T25 = CALL1(1,VARREF(YgooScolsScolYenum),T26); x_1459F3815 = T25; T28 = CALL1(1,VARREF(YgooScolsSrangeYfrom),YPint((P)0)); T27 = CALL1(1,VARREF(YgooScolsScolYenum),T28); x_1458F3816 = T27; LOOP_167: { P a167_0,a167_1,a167_2; T6 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1460F3814); tmpF3817 = T6; if (tmpF3817 != YPfalse) { T2 = tmpF3817; } else { T5 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1459F3815); tmpF3818 = T5; if (tmpF3818 != YPfalse) { T3 = tmpF3818; } else { T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1458F3816); T3 = T4; } T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T20 = CALL1(1,VARREF(YgooScolsScolYnow),x_1460F3814); firstQF3819 = T20; T19 = CALL1(1,VARREF(YgooScolsScolYnow),x_1459F3815); specF3820 = T19; T18 = CALL1(1,VARREF(YgooScolsScolYnow),x_1458F3816); iF3821 = T18; T7 = CALL1(1,VARREF(Ynot),firstQF3819); if (T7 != YPfalse) { T8 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)32)); } else { } T9 = CALL1(1,VARREF(YgooSmacrosYnulQ),namesF3813); if (T9 != YPfalse) { T10 = CALL2(1,VARREF(YgooSioSwriteYwrite_type),port_,specF3820); } else { T12 = CALL2(1,VARREF(YgooSmacrosYelt),namesF3813,iF3821); T11 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T12); CALL3(1,VARREF(YgooSconditionsYmsg),port_,LITREF(lit_82),T11); CALL2(1,VARREF(YgooSioSwriteYwrite_type),port_,specF3820); T13 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)41)); } T15 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1460F3814); T16 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1459F3815); T17 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1458F3816); a167_0 = T15; a167_1 = T16; a167_2 = T17; x_1460F3814 = a167_0; x_1459F3815 = a167_1; x_1458F3816 = a167_2; goto LOOP_167; T0 = T14; } else { T0 = YPfalse; } } T35 = CALL1(1,VARREF(YgooSfunYfun_val),x_); valueF3822 = T35; T32 = CALL1(1,VARREF(Ynot),valueF3822); tmpF3823 = T32; if (tmpF3823 != YPfalse) { T30 = tmpF3823; } else { T31 = CALL2(1,VARREF(YgooSmacrosYEE),valueF3822,VARREF(YLanyG)); T30 = T31; } T29 = CALL1(1,VARREF(Ynot),T30); if (T29 != YPfalse) { CALL2(1,VARREF(YgooSconditionsYmsg),port_,LITREF(lit_83)); T33 = CALL2(1,VARREF(YgooSioSwriteYwrite_value_type),port_,valueF3822); } else { } T34 = CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)41)); UNLINK_STACK(); QRET(T34); } LOCCODEDEF(fun_write_fun_guts_38) { P port_,x_,name_,recur_; P nameF3824; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(name_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_86)); CALL2(1,VARREF(YgooSioSportYputs),port_,name_); T3 = CALL1(1,VARREF(YgooSfunYfun_name),x_); nameF3824 = T3; if (nameF3824 != YPfalse) { CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)32)); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),nameF3824); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,T1); } else { } CALL2(1,VARREF(YgooSioSportYput),port_,YPchr((P)32)); CALL3(1,VARREF(YgooSioSwriteYwrite_params),port_,x_,recur_); T2 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_87)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_recurring_write_39) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL4(1,VARREF(YgooSioSwriteYwrite_fun_guts),port_,x_,LITREF(lit_89),recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_40) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL4(1,VARREF(YgooSioSwriteYwrite_fun_guts),port_,x_,LITREF(lit_91),recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_41) { P port_,x_,d_,recur_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T1 = CALL1(1,VARREF(Ysrc_loc_line),x_); T2 = CALL1(1,VARREF(Ysrc_loc_file),x_); T0 = CALL4(1,VARREF(YgooSconditionsYmsg),VARREF(YgooSioSportYout),LITREF(lit_93),T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_42) { P port_,x_,d_,recur_; P T0,T1,T2,T3,T4; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_95)); T1 = CALL1(1,VARREF(Yclass_name),x_); T0 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T1); CALL2(1,VARREF(YgooSioSportYputs),port_,T0); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_96)); T3 = CALL1(1,VARREF(Yclass_parents),x_); T2 = CALL2(1,VARREF(YgooSmacrosYmap),VARREF(Yclass_name),T3); CALL2(1,recur_,T2,d_); T4 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_97)); UNLINK_STACK(); QRET(T4); } LOCCODEDEF(fun_recurring_write_43) { P port_,x_,d_,recur_; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_99)); T0 = CALL1(1,VARREF(Ytype_object),x_); CALL2(1,recur_,T0,d_); T1 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_100)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_recurring_write_44) { P port_,x_,d_,recur_; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_102)); T0 = CALL1(1,VARREF(Ytype_class),x_); CALL2(1,VARREF(YgooSioSwriteYwrite_type),port_,T0); T1 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_103)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_45) { P t_; P T0; LINK_STACK(); ARG(t_, 0); CALL2(1,VARREF(YgooSioSportYput),FREEREF(0),YPchr((P)32)); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite_type),FREEREF(0),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_46) { P port_,x_,d_,recur_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_105)); T0 = FUNFAB(fun_45,1,port_); T1 = CALL1(1,VARREF(Yunion_elts),x_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_107)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_47) { P t_; P T0; LINK_STACK(); ARG(t_, 0); CALL2(1,VARREF(YgooSioSportYput),FREEREF(0),YPchr((P)32)); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite_type),FREEREF(0),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_48) { P port_,x_,d_,recur_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_109)); T0 = FUNFAB(fun_47,1,port_); T1 = CALL1(1,VARREF(Yproduct_elts),x_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_111)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_49) { P t_; P T0; LINK_STACK(); ARG(t_, 0); CALL2(1,VARREF(YgooSioSportYput),FREEREF(0),YPchr((P)32)); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite_type),FREEREF(0),t_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_value_type_50) { P port_,x_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_114)); T0 = FUNFAB(fun_49,1,port_); T1 = CALL1(1,VARREF(Yproduct_elts),x_); CALL2(1,VARREF(YgooSmacrosYdo),T0,T1); T2 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_116)); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_write_value_type_51) { P port_,x_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); T0 = CALL2(1,VARREF(YgooSioSwriteYwrite_type),port_,x_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_type_52) { P port_,x_,d_,recur_; P T0,T1,T2; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T2 = CALL1(1,VARREF(Yclass_name),x_); T1 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T2); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_type_53) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL4(1,VARREF(YgooSioSwriteYrecurring_write),port_,x_,d_,recur_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recur_54) { P x_,d_; P T0; LINK_STACK(); ARG(x_, 0); ARG(d_, 1); T0 = CALL4(1,VARREF(YgooSioSwriteYrecurring_write_type),FREEREF(0),x_,d_,FREEREF(1)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_write_type_55) { P port_,x_; P recurF3825; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); T1 = FUNSHELL(0,fun_recur_54,2); recurF3825 = T1; FUNINIT(recurF3825, 2,port_,recurF3825); T0 = CALL2(1,recurF3825,x_,YPint((P)0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_56) { P port_,x_,d_,recur_; P T0,T1; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_125)); T0 = CALL1(1,VARREF(Yprop_getter),x_); CALL2(1,recur_,T0,d_); T1 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_126)); UNLINK_STACK(); QRET(T1); } LOCCODEDEF(fun_57) { P getterF3831; P propF3830; P iF3829; P tmpF3828; P x_1463F3827; P x_1464F3826; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18; LINK_STACK(); VARSET(YgooSclassYTreport_prop_unbound_errorsQT,YPfalse); T16 = CALL1(1,VARREF(YgooScolsSrangeYfrom),YPint((P)0)); T15 = CALL1(1,VARREF(YgooScolsScolYenum),T16); x_1464F3826 = T15; T18 = CALL1(1,VARREF(Yprops_of),FREEREF(0)); T17 = CALL1(1,VARREF(YgooScolsScolYenum),T18); x_1463F3827 = T17; LOOP_168: { P a168_0,a168_1; T4 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1464F3826); tmpF3828 = T4; if (tmpF3828 != YPfalse) { T2 = tmpF3828; } else { T3 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1463F3827); T2 = T3; } T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T14 = CALL1(1,VARREF(YgooScolsScolYnow),x_1464F3826); iF3829 = T14; T13 = CALL1(1,VARREF(YgooScolsScolYnow),x_1463F3827); propF3830 = T13; T5 = CALL2(1,VARREF(YgooSmagYGE),iF3829,DYNREF(YgooSioSwriteYTmax_print_lengthT)); if (T5 != YPfalse) { CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),LITREF(lit_131)); T6 = CALL1(1,FREEREF(2),YPfalse); } else { } T12 = CALL1(1,VARREF(Yprop_getter),propF3830); getterF3831 = T12; CALL2(1,VARREF(YgooSioSportYput),FREEREF(1),YPchr((P)32)); T7 = CALL1(1,VARREF(YgooSfunYfun_name),getterF3831); CALL2(1,VARREF(YgooSioSwriteYemit),FREEREF(1),T7); CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),LITREF(lit_132)); T8 = CALL1(1,getterF3831,FREEREF(0)); CALL2(0,FREEREF(4),T8,FREEREF(3)); T10 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1464F3826); T11 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1463F3827); a168_0 = T10; a168_1 = T11; x_1464F3826 = a168_0; x_1463F3827 = a168_1; goto LOOP_168; T0 = T9; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_58) { P T0; LINK_STACK(); T0 = VARSET(YgooSclassYTreport_prop_unbound_errorsQT,FREEREF(0)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_59) { P blow_; P x_1462F3832; P T0,T1,T2; LINK_STACK(); ARG(blow_, 0); x_1462F3832 = VARREF(YgooSclassYTreport_prop_unbound_errorsQT); T1 = FUNFAB(fun_57,5,FREEREF(0),FREEREF(1),blow_,FREEREF(2),FREEREF(3)); T2 = FUNFAB(fun_58,1,x_1462F3832); T0 = with_cleanup(T1,T2); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_recurring_write_60) { P port_,x_,d_,recur_; P T0,T1,T2,T3; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_128)); T1 = CALL1(1,VARREF(YgooSclassYclass_of),x_); T0 = CALL1(1,VARREF(Yclass_name),T1); CALL2(1,VARREF(YgooSioSwriteYemit),port_,T0); T2 = FUNFAB(fun_59,4,x_,port_,d_,recur_); with_exit(T2); T3 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_133)); UNLINK_STACK(); QRET(T3); } LOCCODEDEF(fun_recurring_write_61) { P port_,x_,d_,recur_; P T0; LINK_STACK(); ARG(port_, 0); ARG(x_, 1); ARG(d_, 2); ARG(recur_, 3); T0 = CALL2(1,VARREF(YgooSioSportYputs),port_,LITREF(lit_135)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_arg_62) { P char_,class_; P tmpF3835; P argumentF3834; P current_indexF3833; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(char_, 0); ARG(class_, 1); T11 = BOXGET(FREEREF(0)); current_indexF3833 = T11; T1 = BOXGET(FREEREF(0)); T0 = CALL2(1,VARREF(YgooSmathYA),T1,YPint((P)1)); BOXPUT(T0,FREEREF(0)); T3 = CALL2(1,VARREF(YgooSmagYL),current_indexF3833,FREEREF(1)); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T4 = CALL3(1,VARREF(Yassert_error),LITREF(lit_140),FREEREF(2),FREEREF(3)); } else { } T10 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(3),current_indexF3833); argumentF3834 = T10; T8 = CALL2(1,VARREF(YgooSmacrosYEE),class_,VARREF(YLanyG)); tmpF3835 = T8; if (tmpF3835 != YPfalse) { T6 = tmpF3835; } else { T7 = CALL2(1,VARREF(YisaQ),argumentF3834,class_); T6 = T7; } T5 = CALL1(1,VARREF(Ynot),T6); if (T5 != YPfalse) { T9 = CALL4(1,VARREF(Yassert_error),LITREF(lit_141),char_,class_,argumentF3834); } else { } UNLINK_STACK(); QRET(argumentF3834); } LOCCODEDEF(fun_63) { P c_; P x_1467F3837; P x_1466F3836; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; LINK_STACK(); ARG(c_, 0); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T42 = CALL1(1,VARREF(YgooSchrYto_upper),c_); x_1466F3836 = T42; x_1467F3837 = VARREF(YgooSmacrosYEE); T3 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)68)); if (T3 != YPfalse) { T6 = CALL2(1,FREEREF(2),c_,VARREF(YLnumG)); T5 = CALL1(1,VARREF(YgooSmathYnum_to_str),T6); T4 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),T5); T2 = T4; } else { T8 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)66)); if (T8 != YPfalse) { T11 = CALL2(1,FREEREF(2),c_,VARREF(YLintG)); T10 = CALL2(1,VARREF(YgooSmathYnum_to_str),T11,YPint((P)2)); T9 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),T10); T7 = T9; } else { T13 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)79)); if (T13 != YPfalse) { T16 = CALL2(1,FREEREF(2),c_,VARREF(YLintG)); T15 = CALL2(1,VARREF(YgooSmathYnum_to_str),T16,YPint((P)8)); T14 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),T15); T12 = T14; } else { T18 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)88)); if (T18 != YPfalse) { T21 = CALL2(1,FREEREF(2),c_,VARREF(YLintG)); T20 = CALL2(1,VARREF(YgooSmathYnum_to_str),T21,YPint((P)16)); T19 = CALL2(1,VARREF(YgooSioSportYputs),FREEREF(1),T20); T17 = T19; } else { T23 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)67)); if (T23 != YPfalse) { T25 = CALL2(1,FREEREF(2),c_,VARREF(YLchrG)); T24 = CALL2(1,VARREF(YgooSioSportYput),FREEREF(1),T25); T22 = T24; } else { T27 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)83)); if (T27 != YPfalse) { T29 = CALL2(1,FREEREF(2),c_,VARREF(YLanyG)); T28 = CALL2(1,VARREF(YgooSioSwriteYemit),FREEREF(1),T29); T26 = T28; } else { T31 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)61)); if (T31 != YPfalse) { T33 = CALL2(1,FREEREF(2),c_,VARREF(YLanyG)); T32 = CALL2(1,VARREF(YgooSioSwriteYwrite),FREEREF(1),T33); T30 = T32; } else { T35 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)84)); if (T35 != YPfalse) { T37 = CALL2(1,FREEREF(2),c_,VARREF(YLanyG)); T36 = CALL2(1,VARREF(YgooSioSwriteYwrite_type),FREEREF(1),T37); T34 = T36; } else { T39 = CALL2(1,x_1467F3837,x_1466F3836,YPchr((P)37)); if (T39 != YPfalse) { T40 = CALL2(1,VARREF(YgooSioSportYput),FREEREF(1),YPchr((P)37)); T38 = T40; } else { T41 = CALL3(1,VARREF(Yerror),LITREF(lit_143),c_,FREEREF(3)); T38 = T41; } T34 = T38; } T30 = T34; } T26 = T30; } T22 = T26; } T17 = T22; } T12 = T17; } T7 = T12; } T2 = T7; } T43 = BOXPUT(YPfalse,FREEREF(0)); T0 = T43; } else { T45 = CALL2(1,VARREF(YgooSmacrosYEE),c_,YPchr((P)37)); if (T45 != YPfalse) { T46 = BOXPUT(YPtrue,FREEREF(0)); T44 = T46; } else { T47 = CALL2(1,VARREF(YgooSioSportYput),FREEREF(1),c_); T44 = T47; } T0 = T44; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_msg_64) { P port_,message_,arguments_; P argF3841; P num_argumentsF3840; P argument_indexF3839; P found_percentQF3838; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10; LINK_STACK(); ARG(port_, 0); ARG(message_, 1); NARGS(arguments_, 2); found_percentQF3838 = YPfalse; found_percentQF3838 = BOXFAB(found_percentQF3838); check_type(YPint((P)0),VARREF(YLintG)); argument_indexF3839 = YPint((P)0); argument_indexF3839 = BOXFAB(argument_indexF3839); T10 = CALL1(1,VARREF(YgooStypesYlen),arguments_); num_argumentsF3840 = T10; T4 = FUNSHELL(1,fun_arg_62,4); argF3841 = T4; FUNINIT(argF3841, 4,argument_indexF3839,num_argumentsF3840,message_,arguments_); T3 = FUNFAB(fun_63,4,found_percentQF3838,port_,argF3841,message_); T2 = CALL2(1,VARREF(YgooSmacrosYdo),T3,message_); T8 = BOXGET(found_percentQF3838); T7 = CALL1(1,VARREF(Ynot),T8); T6 = CALL1(1,VARREF(Ynot),T7); if (T6 != YPfalse) { T9 = CALL2(1,VARREF(Yassert_error),LITREF(lit_144),message_); T5 = T9; } else { T5 = YPfalse; } UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_post_65) { P message_,arguments_; P T0; LINK_STACK(); ARG(message_, 0); NARGS(arguments_, 1); T0 = CALL5(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSconditionsYmsg),YPfalse,VARREF(YgooSioSportYout),message_,arguments_); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_maybe_pack_chars_66) { P UF3842; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); T2 = CALL1(1,VARREF(YgooSmacrosYnulQ),FREEREF(0)); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T10 = BOXGET(FREEREF(1)); UF3842 = T10; T6 = CALL1(1,VARREF(Ylst),LITREF(lit_150)); T7 = CALL1(1,VARREF(Ylst),FREEREF(2)); T9 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),FREEREF(0)); T8 = CALL1(1,VARREF(Ylst),T9); T5 = CALL4(1,VARREF(YgooSmacrosYcat),T6,T7,T8,LITREF(lit_151)); T4 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3842,T5); T3 = BOXPUT(T4,FREEREF(1)); T11 = CALL1(1,VARREF(YgooScolsScolxYzapX),FREEREF(0)); T0 = T11; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_arg_67) { P char_; P current_indexF3843; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(char_, 0); CALL0(1,FREEREF(0)); T6 = BOXGET(FREEREF(1)); current_indexF3843 = T6; T1 = BOXGET(FREEREF(1)); T0 = CALL2(1,VARREF(YgooSmathYA),T1,YPint((P)1)); BOXPUT(T0,FREEREF(1)); T3 = CALL2(1,VARREF(YgooSmagYL),current_indexF3843,FREEREF(2)); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T4 = CALL3(1,VARREF(Yassert_error),LITREF(lit_153),FREEREF(3),FREEREF(4)); } else { } T5 = CALL2(1,VARREF(YgooSmacrosYelt),FREEREF(4),current_indexF3843); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_68) { P c_; P UF3853; P UF3852; P UF3851; P UF3850; P UF3849; P UF3848; P UF3847; P UF3846; P x_1469F3845; P x_1468F3844; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106; LINK_STACK(); ARG(c_, 0); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T101 = CALL1(1,VARREF(YgooSchrYto_upper),c_); x_1468F3844 = T101; x_1469F3845 = VARREF(YgooSmacrosYEE); T3 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)68)); if (T3 != YPfalse) { T14 = BOXGET(FREEREF(1)); UF3846 = T14; T7 = CALL1(1,VARREF(Ylst),LITREF(lit_150)); T8 = CALL1(1,VARREF(Ylst),FREEREF(2)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_155)); T13 = CALL1(1,FREEREF(3),c_); T12 = CALL1(1,VARREF(Ylst),T13); T10 = CALL3(1,VARREF(YgooSmacrosYcat),T11,T12,LITREF(lit_151)); T9 = CALL1(1,VARREF(Ylst),T10); T6 = CALL4(1,VARREF(YgooSmacrosYcat),T7,T8,T9,LITREF(lit_151)); T5 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3846,T6); T4 = BOXPUT(T5,FREEREF(1)); T2 = T4; } else { T16 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)66)); if (T16 != YPfalse) { T28 = BOXGET(FREEREF(1)); UF3847 = T28; T20 = CALL1(1,VARREF(Ylst),LITREF(lit_150)); T21 = CALL1(1,VARREF(Ylst),FREEREF(2)); T24 = CALL1(1,VARREF(Ylst),LITREF(lit_155)); T26 = CALL1(1,FREEREF(3),c_); T25 = CALL1(1,VARREF(Ylst),T26); T27 = CALL1(1,VARREF(Ylst),YPint((P)2)); T23 = CALL4(1,VARREF(YgooSmacrosYcat),T24,T25,T27,LITREF(lit_151)); T22 = CALL1(1,VARREF(Ylst),T23); T19 = CALL4(1,VARREF(YgooSmacrosYcat),T20,T21,T22,LITREF(lit_151)); T18 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3847,T19); T17 = BOXPUT(T18,FREEREF(1)); T15 = T17; } else { T30 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)79)); if (T30 != YPfalse) { T42 = BOXGET(FREEREF(1)); UF3848 = T42; T34 = CALL1(1,VARREF(Ylst),LITREF(lit_150)); T35 = CALL1(1,VARREF(Ylst),FREEREF(2)); T38 = CALL1(1,VARREF(Ylst),LITREF(lit_155)); T40 = CALL1(1,FREEREF(3),c_); T39 = CALL1(1,VARREF(Ylst),T40); T41 = CALL1(1,VARREF(Ylst),YPint((P)8)); T37 = CALL4(1,VARREF(YgooSmacrosYcat),T38,T39,T41,LITREF(lit_151)); T36 = CALL1(1,VARREF(Ylst),T37); T33 = CALL4(1,VARREF(YgooSmacrosYcat),T34,T35,T36,LITREF(lit_151)); T32 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3848,T33); T31 = BOXPUT(T32,FREEREF(1)); T29 = T31; } else { T44 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)88)); if (T44 != YPfalse) { T56 = BOXGET(FREEREF(1)); UF3849 = T56; T48 = CALL1(1,VARREF(Ylst),LITREF(lit_150)); T49 = CALL1(1,VARREF(Ylst),FREEREF(2)); T52 = CALL1(1,VARREF(Ylst),LITREF(lit_155)); T54 = CALL1(1,FREEREF(3),c_); T53 = CALL1(1,VARREF(Ylst),T54); T55 = CALL1(1,VARREF(Ylst),YPint((P)16)); T51 = CALL4(1,VARREF(YgooSmacrosYcat),T52,T53,T55,LITREF(lit_151)); T50 = CALL1(1,VARREF(Ylst),T51); T47 = CALL4(1,VARREF(YgooSmacrosYcat),T48,T49,T50,LITREF(lit_151)); T46 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3849,T47); T45 = BOXPUT(T46,FREEREF(1)); T43 = T45; } else { T58 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)67)); if (T58 != YPfalse) { T66 = BOXGET(FREEREF(1)); UF3850 = T66; T62 = CALL1(1,VARREF(Ylst),LITREF(lit_156)); T63 = CALL1(1,VARREF(Ylst),FREEREF(2)); T65 = CALL2(1,FREEREF(3),c_,VARREF(YLchrG)); T64 = CALL1(1,VARREF(Ylst),T65); T61 = CALL4(1,VARREF(YgooSmacrosYcat),T62,T63,T64,LITREF(lit_151)); T60 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3850,T61); T59 = BOXPUT(T60,FREEREF(1)); T57 = T59; } else { T68 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)83)); if (T68 != YPfalse) { T76 = BOXGET(FREEREF(1)); UF3851 = T76; T72 = CALL1(1,VARREF(Ylst),LITREF(lit_6)); T73 = CALL1(1,VARREF(Ylst),FREEREF(2)); T75 = CALL1(1,FREEREF(3),c_); T74 = CALL1(1,VARREF(Ylst),T75); T71 = CALL4(1,VARREF(YgooSmacrosYcat),T72,T73,T74,LITREF(lit_151)); T70 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3851,T71); T69 = BOXPUT(T70,FREEREF(1)); T67 = T69; } else { T78 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)61)); if (T78 != YPfalse) { T86 = BOXGET(FREEREF(1)); UF3852 = T86; T82 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T83 = CALL1(1,VARREF(Ylst),FREEREF(2)); T85 = CALL1(1,FREEREF(3),c_); T84 = CALL1(1,VARREF(Ylst),T85); T81 = CALL4(1,VARREF(YgooSmacrosYcat),T82,T83,T84,LITREF(lit_151)); T80 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3852,T81); T79 = BOXPUT(T80,FREEREF(1)); T77 = T79; } else { T88 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)84)); if (T88 != YPfalse) { T96 = BOXGET(FREEREF(1)); UF3853 = T96; T92 = CALL1(1,VARREF(Ylst),LITREF(lit_121)); T93 = CALL1(1,VARREF(Ylst),FREEREF(2)); T95 = CALL1(1,FREEREF(3),c_); T94 = CALL1(1,VARREF(Ylst),T95); T91 = CALL4(1,VARREF(YgooSmacrosYcat),T92,T93,T94,LITREF(lit_151)); T90 = CALL2(1,VARREF(YgooSpackerYpacker_add),UF3853,T91); T89 = BOXPUT(T90,FREEREF(1)); T87 = T89; } else { T98 = CALL2(1,x_1469F3845,x_1468F3844,YPchr((P)37)); if (T98 != YPfalse) { T99 = CALL2(1,VARREF(YgooScolsScolxYaddX),FREEREF(4),YPchr((P)37)); T97 = T99; } else { T100 = CALL3(1,VARREF(Yerror),LITREF(lit_157),c_,FREEREF(5)); T97 = T100; } T87 = T97; } T77 = T87; } T67 = T77; } T57 = T67; } T43 = T57; } T29 = T43; } T15 = T29; } T2 = T15; } T102 = BOXPUT(YPfalse,FREEREF(0)); T0 = T102; } else { T104 = CALL2(1,VARREF(YgooSmacrosYEE),c_,YPchr((P)37)); if (T104 != YPfalse) { T105 = BOXPUT(YPtrue,FREEREF(0)); T103 = T105; } else { T106 = CALL2(1,VARREF(YgooScolsScolxYaddX),FREEREF(4),c_); T103 = T106; } T0 = T103; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSioSwriteYpe_msg) { P port_expr_,message_,args_; P exprsF3862; P argF3861; P maybe_pack_charsF3860; P packer_F3859; P portF3858; P charsF3857; P num_argsF3856; P arg_indexF3855; P found_percentQF3854; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24; LINK_STACK(); ARG(port_expr_, 0); ARG(message_, 1); ARG(args_, 2); found_percentQF3854 = YPfalse; found_percentQF3854 = BOXFAB(found_percentQF3854); check_type(YPint((P)0),VARREF(YLintG)); arg_indexF3855 = YPint((P)0); arg_indexF3855 = BOXFAB(arg_indexF3855); T24 = CALL1(1,VARREF(YgooStypesYlen),args_); num_argsF3856 = T24; T23 = CALL2(1,VARREF(YgooScolsScolYfab),VARREF(YgooScolsSvecYLvecG),YPint((P)0)); charsF3857 = T23; T22 = CALL0(1,VARREF(YgooSmacrosYgensym)); portF3858 = T22; T21 = CALL1(1,VARREF(YgooSpackerYpacker_fab),VARREF(YLlstG)); packer_F3859 = T21; packer_F3859 = BOXFAB(packer_F3859); T17 = FUNSHELL(1,fun_maybe_pack_chars_66,3); maybe_pack_charsF3860 = T17; T18 = FUNSHELL(1,fun_arg_67,5); argF3861 = T18; FUNINIT(maybe_pack_charsF3860, 3,charsF3857,packer_F3859,portF3858); FUNINIT(argF3861, 5,maybe_pack_charsF3860,arg_indexF3855,num_argsF3856,message_,args_); T15 = FUNFAB(fun_68,6,found_percentQF3854,packer_F3859,portF3858,argF3861,charsF3857,message_); CALL2(1,VARREF(YgooSmacrosYdo),T15,message_); T16 = CALL0(1,maybe_pack_charsF3860); T20 = BOXGET(packer_F3859); T19 = CALL1(1,VARREF(YgooSpackerYpacker_res),T20); exprsF3862 = T19; T4 = BOXGET(found_percentQF3854); T3 = CALL1(1,VARREF(Ynot),T4); T2 = CALL1(1,VARREF(Ynot),T3); if (T2 != YPfalse) { T5 = CALL2(1,VARREF(Yassert_error),LITREF(lit_158),message_); } else { } T7 = CALL1(1,VARREF(Ylst),LITREF(lit_159)); T12 = CALL1(1,VARREF(Ylst),portF3858); T13 = CALL1(1,VARREF(Ylst),port_expr_); T11 = CALL3(1,VARREF(YgooSmacrosYcat),T12,T13,LITREF(lit_151)); T10 = CALL1(1,VARREF(Ylst),T11); T9 = CALL2(1,VARREF(YgooSmacrosYcat),T10,LITREF(lit_151)); T8 = CALL1(1,VARREF(Ylst),T9); T6 = CALL4(1,VARREF(YgooSmacrosYcat),T7,T8,exprsF3862,LITREF(lit_151)); UNLINK_STACK(); QRET(T6); } LOCCODEDEF(fun_x_1473_70) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_164),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_71) { P return_; P x_1472F3871; P x_1472F3870; P x_1472F3869; P x_1472F3868; P argsF3867; P messageF3866; P portF3865; P x_1472F3864; P x_1473F3863; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25; LINK_STACK(); ARG(return_, 0); T25 = FUNSHELL(0,fun_x_1473_70,2); x_1473F3863 = T25; FUNINIT(x_1473F3863, 2,FREEREF(0),return_); x_1472F3864 = FREEREF(0); portF3865 = YPfalse; messageF3866 = YPfalse; argsF3867 = YPfalse; T3 = CALL2(1,VARREF(YisaQ),x_1472F3864,VARREF(YLlstG)); if (T3 != YPfalse) { T9 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1472F3864,LITREF(lit_164),x_1473F3863); x_1472F3868 = T9; T7 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1472F3868,x_1473F3863); portF3865 = T7; T8 = CALL1(1,VARREF(Ytail),x_1472F3868); x_1472F3869 = T8; T5 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1472F3869,x_1473F3863); messageF3866 = T5; T6 = CALL1(1,VARREF(Ytail),x_1472F3869); x_1472F3870 = T6; argsF3867 = x_1472F3870; x_1472F3871 = Ynil; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1472F3871,x_1473F3863); } else { T10 = CALL2(1,x_1473F3863,LITREF(lit_165),x_1472F3864); } T13 = messageF3866; T12 = CALL2(1,VARREF(YisaQ),T13,VARREF(YLstrG)); if (T12 != YPfalse) { T15 = portF3865; T16 = messageF3866; T17 = argsF3867; T14 = CALL3(1,VARREF(YgooSioSwriteYpe_msg),T15,T16,T17); T11 = T14; } else { T19 = CALL1(1,VARREF(Ylst),LITREF(lit_136)); T21 = portF3865; T20 = CALL1(1,VARREF(Ylst),T21); T23 = messageF3866; T22 = CALL1(1,VARREF(Ylst),T23); T24 = argsF3867; T18 = CALL5(1,VARREF(YgooSmacrosYcat),T19,T20,T22,T24,LITREF(lit_151)); T11 = T18; } UNLINK_STACK(); QRET(T11); } LOCCODEDEF(fun_72) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_71,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_73) { P T0,T1,T2,T3; LINK_STACK(); T0 = CALL2(1,VARREF(YgooSioSportYopen),VARREF(YgooSioSportYLstr_out_portG),LITREF(lit_13)); BOXPUT(T0,FREEREF(0)); T1 = BOXGET(FREEREF(0)); CALL5(1,VARREF(YgooSmacrosYnapp),VARREF(YgooSconditionsYmsg),YPfalse,T1,FREEREF(1),FREEREF(2)); T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYport_contents),T3); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_74) { P T0,T1,T2,T3; LINK_STACK(); T1 = BOXGET(FREEREF(0)); if (T1 != YPfalse) { T3 = BOXGET(FREEREF(0)); T2 = CALL1(1,VARREF(YgooSioSportYclose),T3); T0 = T2; } else { T0 = YPfalse; } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YgooSconditionsYmsg_to_str) { P message_,arguments_; P portF3872; P T0,T1,T2,T3; LINK_STACK(); ARG(message_, 0); NARGS(arguments_, 1); portF3872 = YPfalse; portF3872 = BOXFAB(portF3872); T2 = FUNFAB(fun_73,3,portF3872,message_,arguments_); T3 = FUNFAB(fun_74,1,portF3872); T1 = with_cleanup(T2,T3); UNLINK_STACK(); RET(T1); } FUNCODEDEF(YgooSioSwriteYsay) { P port_,args_; P iF3874; P limF3873; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); ARG(port_, 0); NARGS(args_, 1); T7 = CALL1(1,VARREF(YgooStypesYlen),args_); limF3873 = T7; iF3874 = YPint((P)0); LOOP_169: { P a169_0; T2 = CALL2(1,VARREF(YgooSmacrosYEE),iF3874,limF3873); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T4 = CALL2(1,VARREF(YgooScolsScolYlow_elt),args_,iF3874); T3 = CALL1(1,VARREF(YgooSanyYto_str),T4); CALL2(1,VARREF(YgooSioSportYputs),port_,T3); T6 = CALL2(1,VARREF(YgooSmathYA),iF3874,YPint((P)1)); a169_0 = T6; iF3874 = a169_0; goto LOOP_169; T0 = T5; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } P YgooSioSwriteY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112,T113,T114,T115,T116,T117,T118,T119,T120,T121,T122,T123,T124,T125,T126,T127; P T128,T129; DEFCREGS(); DYNDEFSET(YgooSioSwriteYTmax_print_depthT,YPint((P)4)); DYNDEFSET(YgooSioSwriteYTmax_print_lengthT,YPint((P)12)); lit_0 = YPPsym((P)"as-binding-name"); lit_1 = YPPlist(1,YPPsym((P)"name")); T0 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_as_binding_name_0 = YPfab_met(FUNCODEREF(fun_as_binding_name_0),T0,LITREF(lit_0),LITREF(lit_1),sloc(25),YPfalse); T2 = VARREF_OR(YgooSioSwriteYas_binding_name,YPfalse); T3 = fun_as_binding_name_0; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSioSwriteYas_binding_name,T1); lit_2 = YPPsym((P)"do-emit"); lit_3 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T4 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_do_emit_1 = YPfab_met(FUNCODEREF(fun_do_emit_1),T4,LITREF(lit_2),LITREF(lit_3),sloc(28),YPfalse); T6 = VARREF_OR(YgooSioSwriteYdo_emit,YPfalse); T7 = fun_do_emit_1; T5 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T6,T7); VARSET(YgooSioSwriteYdo_emit,T5); lit_4 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T8 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLchrG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_do_emit_2 = YPfab_met(FUNCODEREF(fun_do_emit_2),T8,LITREF(lit_2),LITREF(lit_4),sloc(31),YPfalse); T10 = VARREF_OR(YgooSioSwriteYdo_emit,YPfalse); T11 = fun_do_emit_2; T9 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T10,T11); VARSET(YgooSioSwriteYdo_emit,T9); lit_5 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T12 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_do_emit_3 = YPfab_met(FUNCODEREF(fun_do_emit_3),T12,LITREF(lit_2),LITREF(lit_5),sloc(34),YPfalse); T14 = VARREF_OR(YgooSioSwriteYdo_emit,YPfalse); T15 = fun_do_emit_3; T13 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T14,T15); VARSET(YgooSioSwriteYdo_emit,T13); lit_6 = YPPsym((P)"emit"); lit_7 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); lit_8 = YPPsym((P)"recur"); lit_9 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"d")); lit_10 = YPsb((P)"*"); T17 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_recur_4 = YPfab_met(FUNCODEREF(fun_recur_4),T17,LITREF(lit_8),LITREF(lit_9),sloc(38),YPfalse); T16 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_emit_5 = YPfab_met(FUNCODEREF(fun_emit_5),T16,LITREF(lit_6),LITREF(lit_7),sloc(37),YPfalse); T19 = VARREF_OR(YgooSioSwriteYemit,YPfalse); T20 = fun_emit_5; T18 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T19,T20); VARSET(YgooSioSwriteYemit,T18); lit_11 = YPPsym((P)"write-to-string"); lit_12 = YPPlist(1,YPPsym((P)"x")); lit_13 = YPsb((P)""); T21 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLstrG),Ynil); fun_write_to_string_6 = YPfab_met(FUNCODEREF(fun_write_to_string_6),T21,LITREF(lit_11),LITREF(lit_12),sloc(43),YPfalse); T23 = VARREF_OR(YgooSioSwriteYwrite_to_string,YPfalse); T24 = fun_write_to_string_6; T22 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T23,T24); VARSET(YgooSioSwriteYwrite_to_string,T22); lit_14 = YPPsym((P)"write"); lit_15 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); lit_16 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"d")); lit_17 = YPsb((P)"*"); T26 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_recur_7 = YPfab_met(FUNCODEREF(fun_recur_7),T26,LITREF(lit_8),LITREF(lit_16),sloc(47),YPfalse); T25 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_8 = YPfab_met(FUNCODEREF(fun_write_8),T25,LITREF(lit_14),LITREF(lit_15),sloc(46),YPfalse); T28 = VARREF_OR(YgooSioSwriteYwrite,YPfalse); T29 = fun_write_8; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSioSwriteYwrite,T27); lit_18 = YPPsym((P)"writeln"); lit_19 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); T30 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_writeln_9 = YPfab_met(FUNCODEREF(fun_writeln_9),T30,LITREF(lit_18),LITREF(lit_19),sloc(52),YPfalse); T32 = VARREF_OR(YgooSioSwriteYwriteln,YPfalse); T33 = fun_writeln_9; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSioSwriteYwriteln,T31); lit_20 = YPPsym((P)"recurring-write"); lit_21 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_22 = YPsb((P)"()"); T34 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLlstG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_10 = YPfab_met(FUNCODEREF(fun_recurring_write_10),T34,LITREF(lit_20),LITREF(lit_21),sloc(55),YPfalse); T36 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T37 = fun_recurring_write_10; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooSioSwriteYrecurring_write,T35); lit_23 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_24 = YPsb((P)"$$"); lit_25 = YPsb((P)"("); lit_26 = YPsb((P)")"); T38 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLflatG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_11 = YPfab_met(FUNCODEREF(fun_recurring_write_11),T38,LITREF(lit_20),LITREF(lit_23),sloc(60),YPfalse); T40 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T41 = fun_recurring_write_11; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YgooSioSwriteYrecurring_write,T39); lit_27 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_28 = YPsb((P)"#("); lit_29 = YPsb((P)")"); T42 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLtupG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_12 = YPfab_met(FUNCODEREF(fun_recurring_write_12),T42,LITREF(lit_20),LITREF(lit_27),sloc(64),YPfalse); T44 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T45 = fun_recurring_write_12; T43 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T44,T45); VARSET(YgooSioSwriteYrecurring_write,T43); lit_30 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_31 = YPsb((P)"#["); lit_32 = YPsb((P)"]"); T46 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooScolsSvecYLvecG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_13 = YPfab_met(FUNCODEREF(fun_recurring_write_13),T46,LITREF(lit_20),LITREF(lit_30),sloc(67),YPfalse); T48 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T49 = fun_recurring_write_13; T47 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T48,T49); VARSET(YgooSioSwriteYrecurring_write,T47); lit_33 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T50 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooScolsSmapYLmapG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_14 = YPfab_met(FUNCODEREF(fun_recurring_write_14),T50,LITREF(lit_20),LITREF(lit_33),sloc(70),YPfalse); T52 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T53 = fun_recurring_write_14; T51 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T52,T53); VARSET(YgooSioSwriteYrecurring_write,T51); lit_34 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_35 = YPPsym((P)"t"); lit_36 = YPPsym((P)"f"); T54 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLlogG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_15 = YPfab_met(FUNCODEREF(fun_recurring_write_15),T54,LITREF(lit_20),LITREF(lit_34),sloc(73),YPfalse); T56 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T57 = fun_recurring_write_15; T55 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T56,T57); VARSET(YgooSioSwriteYrecurring_write,T55); lit_37 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T58 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLsymG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_16 = YPfab_met(FUNCODEREF(fun_recurring_write_16),T58,LITREF(lit_20),LITREF(lit_37),sloc(78),YPfalse); T60 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T61 = fun_recurring_write_16; T59 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T60,T61); VARSET(YgooSioSwriteYrecurring_write,T59); lit_38 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_39 = YPsb((P)"&0x"); T62 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_17 = YPfab_met(FUNCODEREF(fun_recurring_write_17),T62,LITREF(lit_20),LITREF(lit_38),sloc(81),YPfalse); T64 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T65 = fun_recurring_write_17; T63 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T64,T65); VARSET(YgooSioSwriteYrecurring_write,T63); lit_40 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_41 = YPsb((P)""); T66 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLnumG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_18 = YPfab_met(FUNCODEREF(fun_recurring_write_18),T66,LITREF(lit_20),LITREF(lit_40),sloc(85),YPfalse); T68 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T69 = fun_recurring_write_18; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooSioSwriteYrecurring_write,T67); lit_42 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T70 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_19 = YPfab_met(FUNCODEREF(fun_recurring_write_19),T70,LITREF(lit_20),LITREF(lit_42),sloc(90),YPfalse); T72 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T73 = fun_recurring_write_19; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooSioSwriteYrecurring_write,T71); lit_43 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T74 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLchrG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_20 = YPfab_met(FUNCODEREF(fun_recurring_write_20),T74,LITREF(lit_20),LITREF(lit_43),sloc(93),YPfalse); T76 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T77 = fun_recurring_write_20; T75 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T76,T77); VARSET(YgooSioSwriteYrecurring_write,T75); lit_44 = YPPsym((P)"write-boolean"); lit_45 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"mumble")); T78 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_boolean_21 = YPfab_met(FUNCODEREF(fun_write_boolean_21),T78,LITREF(lit_44),LITREF(lit_45),sloc(96),YPfalse); T80 = VARREF_OR(YgooSioSwriteYwrite_boolean,YPfalse); T81 = fun_write_boolean_21; T79 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T80,T81); VARSET(YgooSioSwriteYwrite_boolean,T79); lit_46 = YPPsym((P)"write-number"); lit_47 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); T82 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLnumG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_number_22 = YPfab_met(FUNCODEREF(fun_write_number_22),T82,LITREF(lit_46),LITREF(lit_47),sloc(100),YPfalse); T84 = VARREF_OR(YgooSioSwriteYwrite_number,YPfalse); T85 = fun_write_number_22; T83 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T84,T85); VARSET(YgooSioSwriteYwrite_number,T83); lit_48 = YPPsym((P)"write-char-literal"); lit_49 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); lit_50 = YPsb((P)"#\\"); T86 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_char_literal_23 = YPfab_met(FUNCODEREF(fun_write_char_literal_23),T86,LITREF(lit_48),LITREF(lit_49),sloc(103),YPfalse); T88 = VARREF_OR(YgooSioSwriteYwrite_char_literal,YPfalse); T89 = fun_write_char_literal_23; T87 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T88,T89); VARSET(YgooSioSwriteYwrite_char_literal,T87); lit_51 = YPPsym((P)"character-name"); lit_52 = YPPlist(1,YPPsym((P)"char")); T90 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_character_name_24 = YPfab_met(FUNCODEREF(fun_character_name_24),T90,LITREF(lit_51),LITREF(lit_52),sloc(110),YPfalse); T92 = VARREF_OR(YgooSioSwriteYcharacter_name,YPfalse); T93 = fun_character_name_24; T91 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T92,T93); VARSET(YgooSioSwriteYcharacter_name,T91); lit_53 = YPPsym((P)"write-string-literal"); lit_54 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); T94 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_string_literal_25 = YPfab_met(FUNCODEREF(fun_write_string_literal_25),T94,LITREF(lit_53),LITREF(lit_54),sloc(114),YPfalse); T96 = VARREF_OR(YgooSioSwriteYwrite_string_literal,YPfalse); T97 = fun_write_string_literal_25; T95 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T96,T97); VARSET(YgooSioSwriteYwrite_string_literal,T95); lit_55 = YPPsym((P)"write-list"); lit_56 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_57 = YPsb((P)" ..."); T98 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLlstG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_write_list_26 = YPfab_met(FUNCODEREF(fun_write_list_26),T98,LITREF(lit_55),LITREF(lit_56),sloc(126),YPfalse); T100 = VARREF_OR(YgooSioSwriteYwrite_list,YPfalse); T101 = fun_write_list_26; T99 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T100,T101); VARSET(YgooSioSwriteYwrite_list,T99); lit_58 = YPPsym((P)"quotation?"); lit_59 = YPPlist(1,YPPsym((P)"x")); lit_60 = YPPsym((P)"quote"); T102 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLlogG),Ynil); fun_quotationQ_27 = YPfab_met(FUNCODEREF(fun_quotationQ_27),T102,LITREF(lit_58),LITREF(lit_59),sloc(141),YPfalse); T104 = VARREF_OR(YgooSioSwriteYquotationQ,YPfalse); T105 = fun_quotationQ_27; T103 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T104,T105); VARSET(YgooSioSwriteYquotationQ,T103); lit_61 = YPPsym((P)"write-flat"); lit_62 = YPPlist(6,YPPsym((P)"port"),YPPsym((P)"prefix"),YPPsym((P)"x"),YPPsym((P)"suffix"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_63 = YPsb((P)" ..."); T106 = YPfab_sig(YPPlist(6,VARREF(YgooSioSportYLout_portG),VARREF(YLstrG),VARREF(YLflatG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)6),VARREF(YLanyG),Ynil); fun_write_flat_28 = YPfab_met(FUNCODEREF(fun_write_flat_28),T106,LITREF(lit_61),LITREF(lit_62),sloc(147),YPfalse); T108 = VARREF_OR(YgooSioSwriteYwrite_flat,YPfalse); T109 = fun_write_flat_28; T107 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T108,T109); VARSET(YgooSioSwriteYwrite_flat,T107); lit_64 = YPPsym((P)"write-map"); lit_65 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_66 = YPsb((P)"#<"); lit_67 = YPPlist(1,YPPsym((P)"blow")); lit_68 = YPsb((P)" ..."); lit_69 = YPsb((P)": "); T111 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_29 = YPfab_met(FUNCODEREF(fun_29),T111,YPfalse,LITREF(lit_67),sloc(165),YPfalse); T110 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooScolsSmapYLmapG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_write_map_30 = YPfab_met(FUNCODEREF(fun_write_map_30),T110,LITREF(lit_64),LITREF(lit_65),sloc(162),YPfalse); T113 = VARREF_OR(YgooSioSwriteYwrite_map,YPfalse); T114 = fun_write_map_30; T112 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T113,T114); VARSET(YgooSioSwriteYwrite_map,T112); lit_70 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_71 = YPsb((P)"#{File-in-port %s %d}"); T115 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooSioSportYLfile_in_portG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_31 = YPfab_met(FUNCODEREF(fun_recurring_write_31),T115,LITREF(lit_20),LITREF(lit_70),sloc(175),YPfalse); T117 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T118 = fun_recurring_write_31; T116 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T117,T118); VARSET(YgooSioSwriteYrecurring_write,T116); lit_72 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_73 = YPsb((P)"#{File-out-port %s}"); T119 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooSioSportYLfile_out_portG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_32 = YPfab_met(FUNCODEREF(fun_recurring_write_32),T119,LITREF(lit_20),LITREF(lit_72),sloc(178),YPfalse); T121 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T122 = fun_recurring_write_32; T120 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T121,T122); VARSET(YgooSioSwriteYrecurring_write,T120); lit_74 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_75 = YPsb((P)"#{In-port}"); T125 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooSioSportYLin_portG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); T124 = fun_recurring_write_33 = YPfab_met(FUNCODEREF(fun_recurring_write_33),T125,LITREF(lit_20),LITREF(lit_74),sloc(181),YPfalse); T128 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T129 = fun_recurring_write_33; T127 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T128,T129); T126 = VARSET(YgooSioSwriteYrecurring_write,T127); T123 = T126; return T123; } P YgooSioSwriteY___main_1___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70,T71,T72,T73,T74,T75,T76,T77,T78,T79; P T80,T81,T82,T83,T84,T85,T86,T87,T88,T89,T90,T91,T92,T93,T94,T95; P T96,T97,T98,T99,T100,T101,T102,T103,T104,T105,T106,T107,T108,T109,T110,T111; P T112; DEFCREGS(); lit_76 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_77 = YPsb((P)"#{Out-port}"); T0 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YgooSioSportYLout_portG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_34 = YPfab_met(FUNCODEREF(fun_recurring_write_34),T0,LITREF(lit_20),LITREF(lit_76),sloc(184),YPfalse); T2 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T3 = fun_recurring_write_34; T1 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T2,T3); VARSET(YgooSioSwriteYrecurring_write,T1); lit_78 = YPPsym((P)"write-params"); lit_79 = YPPlist(3,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"recur")); lit_80 = YPPlist(1,YPPsym((P)"x")); lit_81 = YPPlist(1,YPPsym((P)"x")); lit_82 = YPsb((P)"(%s "); lit_83 = YPsb((P)" => "); T6 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_35 = YPfab_met(FUNCODEREF(fun_35),T6,YPfalse,LITREF(lit_80),sloc(193),YPfalse); T5 = YPfab_sig(Ynil,YPtrue,YPint((P)0),VARREF(YLanyG),Ynil); fun_36 = YPfab_met(FUNCODEREF(fun_36),T5,YPfalse,LITREF(lit_81),sloc(193),YPfalse); T4 = YPfab_sig(YPPlist(3,VARREF(YgooSioSportYLout_portG),VARREF(YLfunG),VARREF(YLfunG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); fun_write_params_37 = YPfab_met(FUNCODEREF(fun_write_params_37),T4,LITREF(lit_78),LITREF(lit_79),sloc(189),YPfalse); T8 = VARREF_OR(YgooSioSwriteYwrite_params,YPfalse); T9 = fun_write_params_37; T7 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T8,T9); VARSET(YgooSioSwriteYwrite_params,T7); lit_84 = YPPsym((P)"write-fun-guts"); lit_85 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"name"),YPPsym((P)"recur")); lit_86 = YPsb((P)"#{"); lit_87 = YPsb((P)"}"); T10 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLfunG),VARREF(YLstrG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_write_fun_guts_38 = YPfab_met(FUNCODEREF(fun_write_fun_guts_38),T10,LITREF(lit_84),LITREF(lit_85),sloc(205),YPfalse); T12 = VARREF_OR(YgooSioSwriteYwrite_fun_guts,YPfalse); T13 = fun_write_fun_guts_38; T11 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T12,T13); VARSET(YgooSioSwriteYwrite_fun_guts,T11); lit_88 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_89 = YPsb((P)"Gen"); T14 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLgenG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_39 = YPfab_met(FUNCODEREF(fun_recurring_write_39),T14,LITREF(lit_20),LITREF(lit_88),sloc(215),YPfalse); T16 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T17 = fun_recurring_write_39; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YgooSioSwriteYrecurring_write,T15); lit_90 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_91 = YPsb((P)"Met"); T18 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLmetG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_40 = YPfab_met(FUNCODEREF(fun_recurring_write_40),T18,LITREF(lit_20),LITREF(lit_90),sloc(218),YPfalse); T20 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T21 = fun_recurring_write_40; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(YgooSioSwriteYrecurring_write,T19); lit_92 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_93 = YPsb((P)""); T22 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLsrc_locG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_41 = YPfab_met(FUNCODEREF(fun_recurring_write_41),T22,LITREF(lit_20),LITREF(lit_92),sloc(221),YPfalse); T24 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T25 = fun_recurring_write_41; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YgooSioSwriteYrecurring_write,T23); lit_94 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_95 = YPsb((P)"#{Class "); lit_96 = YPsb((P)" "); lit_97 = YPsb((P)"}"); T26 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLclassG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_42 = YPfab_met(FUNCODEREF(fun_recurring_write_42),T26,LITREF(lit_20),LITREF(lit_94),sloc(224),YPfalse); T28 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T29 = fun_recurring_write_42; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YgooSioSwriteYrecurring_write,T27); lit_98 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_99 = YPsb((P)"#{T= "); lit_100 = YPsb((P)"}"); T30 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLsingletonG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_43 = YPfab_met(FUNCODEREF(fun_recurring_write_43),T30,LITREF(lit_20),LITREF(lit_98),sloc(231),YPfalse); T32 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T33 = fun_recurring_write_43; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YgooSioSwriteYrecurring_write,T31); lit_101 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_102 = YPsb((P)"#{T< "); lit_103 = YPsb((P)"}"); T34 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLsubclassG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_44 = YPfab_met(FUNCODEREF(fun_recurring_write_44),T34,LITREF(lit_20),LITREF(lit_101),sloc(236),YPfalse); T36 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T37 = fun_recurring_write_44; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YgooSioSwriteYrecurring_write,T35); lit_104 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_105 = YPsb((P)"#{T+"); lit_106 = YPPlist(1,YPPsym((P)"t")); lit_107 = YPsb((P)"}"); T39 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_45 = YPfab_met(FUNCODEREF(fun_45),T39,YPfalse,LITREF(lit_106),sloc(243),YPfalse); T38 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLunionG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_46 = YPfab_met(FUNCODEREF(fun_recurring_write_46),T38,LITREF(lit_20),LITREF(lit_104),sloc(241),YPfalse); T41 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T42 = fun_recurring_write_46; T40 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T41,T42); VARSET(YgooSioSwriteYrecurring_write,T40); lit_108 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_109 = YPsb((P)"#{T*"); lit_110 = YPPlist(1,YPPsym((P)"t")); lit_111 = YPsb((P)"}"); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_47 = YPfab_met(FUNCODEREF(fun_47),T44,YPfalse,LITREF(lit_110),sloc(248),YPfalse); T43 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLproductG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_48 = YPfab_met(FUNCODEREF(fun_recurring_write_48),T43,LITREF(lit_20),LITREF(lit_108),sloc(246),YPfalse); T46 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T47 = fun_recurring_write_48; T45 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T46,T47); VARSET(YgooSioSwriteYrecurring_write,T45); lit_112 = YPPsym((P)"write-value-type"); lit_113 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); lit_114 = YPsb((P)"(tup"); lit_115 = YPPlist(1,YPPsym((P)"t")); lit_116 = YPsb((P)")"); T49 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_49 = YPfab_met(FUNCODEREF(fun_49),T49,YPfalse,LITREF(lit_115),sloc(253),YPfalse); T48 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLproductG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_value_type_50 = YPfab_met(FUNCODEREF(fun_write_value_type_50),T48,LITREF(lit_112),LITREF(lit_113),sloc(251),YPfalse); T51 = VARREF_OR(YgooSioSwriteYwrite_value_type,YPfalse); T52 = fun_write_value_type_50; T50 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T51,T52); VARSET(YgooSioSwriteYwrite_value_type,T50); lit_117 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); T53 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_value_type_51 = YPfab_met(FUNCODEREF(fun_write_value_type_51),T53,LITREF(lit_112),LITREF(lit_117),sloc(256),YPfalse); T55 = VARREF_OR(YgooSioSwriteYwrite_value_type,YPfalse); T56 = fun_write_value_type_51; T54 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T55,T56); VARSET(YgooSioSwriteYwrite_value_type,T54); lit_118 = YPPsym((P)"recurring-write-type"); lit_119 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T57 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLclassG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_type_52 = YPfab_met(FUNCODEREF(fun_recurring_write_type_52),T57,LITREF(lit_118),LITREF(lit_119),sloc(259),YPfalse); T59 = VARREF_OR(YgooSioSwriteYrecurring_write_type,YPfalse); T60 = fun_recurring_write_type_52; T58 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T59,T60); VARSET(YgooSioSwriteYrecurring_write_type,T58); lit_120 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); T61 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_type_53 = YPfab_met(FUNCODEREF(fun_recurring_write_type_53),T61,LITREF(lit_118),LITREF(lit_120),sloc(262),YPfalse); T63 = VARREF_OR(YgooSioSwriteYrecurring_write_type,YPfalse); T64 = fun_recurring_write_type_53; T62 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T63,T64); VARSET(YgooSioSwriteYrecurring_write_type,T62); lit_121 = YPPsym((P)"write-type"); lit_122 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"x")); lit_123 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"d")); T66 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_recur_54 = YPfab_met(FUNCODEREF(fun_recur_54),T66,LITREF(lit_8),LITREF(lit_123),sloc(266),YPfalse); T65 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_write_type_55 = YPfab_met(FUNCODEREF(fun_write_type_55),T65,LITREF(lit_121),LITREF(lit_122),sloc(265),YPfalse); T68 = VARREF_OR(YgooSioSwriteYwrite_type,YPfalse); T69 = fun_write_type_55; T67 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T68,T69); VARSET(YgooSioSwriteYwrite_type,T67); lit_124 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_125 = YPsb((P)"#{Prop "); lit_126 = YPsb((P)"}"); T70 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLpropG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_56 = YPfab_met(FUNCODEREF(fun_recurring_write_56),T70,LITREF(lit_20),LITREF(lit_124),sloc(269),YPfalse); T72 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T73 = fun_recurring_write_56; T71 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T72,T73); VARSET(YgooSioSwriteYrecurring_write,T71); lit_127 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_128 = YPsb((P)"#{"); lit_129 = YPPlist(1,YPPsym((P)"blow")); lit_130 = Ynil; lit_131 = YPsb((P)" ..."); lit_132 = YPsb((P)": "); lit_133 = YPsb((P)"}"); T77 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_57 = YPfab_met(FUNCODEREF(fun_57),T77,YPfalse,LITREF(lit_130),sloc(278),YPfalse); T76 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_58 = YPfab_met(FUNCODEREF(fun_58),T76,YPfalse,LITREF(lit_130),sloc(278),YPfalse); T75 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_59 = YPfab_met(FUNCODEREF(fun_59),T75,YPfalse,LITREF(lit_129),sloc(277),YPfalse); T74 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),VARREF(YLanyG),VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_60 = YPfab_met(FUNCODEREF(fun_recurring_write_60),T74,LITREF(lit_20),LITREF(lit_127),sloc(274),YPfalse); T79 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T80 = fun_recurring_write_60; T78 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T79,T80); VARSET(YgooSioSwriteYrecurring_write,T78); lit_134 = YPPlist(4,YPPsym((P)"port"),YPPsym((P)"x"),YPPsym((P)"d"),YPPsym((P)"recur")); lit_135 = YPsb((P)"#{End-of-file}"); T83 = XCALL0(1,VARREF(YgooSchrYeof_object)); T82 = XCALL1(1,VARREF(YgooStypesYtE),T83); T81 = YPfab_sig(YPPlist(4,VARREF(YgooSioSportYLout_portG),T82,VARREF(YLintG),VARREF(YLfunG)),YPfalse,YPint((P)4),VARREF(YLanyG),Ynil); fun_recurring_write_61 = YPfab_met(FUNCODEREF(fun_recurring_write_61),T81,LITREF(lit_20),LITREF(lit_134),sloc(289),YPfalse); T85 = VARREF_OR(YgooSioSwriteYrecurring_write,YPfalse); T86 = fun_recurring_write_61; T84 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T85,T86); VARSET(YgooSioSwriteYrecurring_write,T84); lit_136 = YPPsym((P)"msg"); lit_137 = YPPlist(3,YPPsym((P)"port"),YPPsym((P)"message"),YPPsym((P)"arguments")); lit_138 = YPPsym((P)"arg"); lit_139 = YPPlist(2,YPPsym((P)"char"),YPPsym((P)"class")); lit_140 = YPsb((P)"Too few arguments for msg string %=: %="); lit_141 = YPsb((P)"Msg argument for directive '%%%c' not of class %t: %="); lit_142 = YPPlist(1,YPPsym((P)"c")); lit_143 = YPsb((P)"Invalid msg directive '%s' in \"%s\""); lit_144 = YPsb((P)"Incomplete msg directive in \"%s\""); T89 = YPfab_sig(YPPlist(2,VARREF(YLchrG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_arg_62 = YPfab_met(FUNCODEREF(fun_arg_62),T89,LITREF(lit_138),LITREF(lit_139),sloc(296),YPfalse); T88 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_63 = YPfab_met(FUNCODEREF(fun_63),T88,YPfalse,LITREF(lit_142),sloc(307),YPfalse); T87 = YPfab_sig(YPPlist(2,VARREF(YgooSioSportYLout_portG),VARREF(YLstrG)),YPtrue,YPint((P)2),VARREF(YLanyG),Ynil); fun_msg_64 = YPfab_met(FUNCODEREF(fun_msg_64),T87,LITREF(lit_136),LITREF(lit_137),sloc(292),YPfalse); T91 = VARREF_OR(YgooSconditionsYmsg,YPfalse); T92 = fun_msg_64; T90 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T91,T92); VARSET(YgooSconditionsYmsg,T90); lit_145 = YPPsym((P)"post"); lit_146 = YPPlist(2,YPPsym((P)"message"),YPPsym((P)"arguments")); T93 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_post_65 = YPfab_met(FUNCODEREF(fun_post_65),T93,LITREF(lit_145),LITREF(lit_146),sloc(329),YPfalse); T95 = VARREF_OR(YgooSioSwriteYpost,YPfalse); T96 = fun_post_65; T94 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T95,T96); VARSET(YgooSioSwriteYpost,T94); lit_147 = YPPsym((P)"pe-msg"); lit_148 = YPPlist(3,YPPsym((P)"port-expr"),YPPsym((P)"message"),YPPsym((P)"args")); lit_149 = YPPsym((P)"maybe-pack-chars"); lit_150 = YPPsym((P)"puts"); lit_151 = Ynil; lit_152 = YPPlist(1,YPPsym((P)"char")); lit_153 = YPsb((P)"Too few arguments for msg string %=: %="); lit_154 = YPPlist(1,YPPsym((P)"c")); lit_155 = YPPsym((P)"num-to-str"); lit_156 = YPPsym((P)"put"); lit_157 = YPsb((P)"Invalid msg directive '%s' in \"%s\""); lit_158 = YPsb((P)"Incomplete msg directive in \"%s\""); lit_159 = YPPsym((P)"let"); T100 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_maybe_pack_chars_66 = YPfab_met(FUNCODEREF(fun_maybe_pack_chars_66),T100,LITREF(lit_149),LITREF(lit_130),sloc(347),YPfalse); T99 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_arg_67 = YPfab_met(FUNCODEREF(fun_arg_67),T99,LITREF(lit_138),LITREF(lit_152),sloc(348),YPfalse); T98 = YPfab_sig(YPPlist(1,VARREF(YLchrG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_68 = YPfab_met(FUNCODEREF(fun_68),T98,YPfalse,LITREF(lit_154),sloc(355),YPfalse); T97 = YPfab_sig(YPPlist(3,VARREF(YLanyG),VARREF(YLstrG),VARREF(YLlstG)),YPfalse,YPint((P)3),VARREF(YLanyG),Ynil); YgooSioSwriteYpe_msg = YPfab_met(FUNCODEREF(YgooSioSwriteYpe_msg),T97,LITREF(lit_147),LITREF(lit_148),sloc(336),YPfalse); T101 = YgooSioSwriteYpe_msg; VARSET(YgooSioSwriteYpe_msg,T101); lit_160 = YPPlist(1,YPPsym((P)"exp")); lit_161 = YPPlist(1,YPPsym((P)"return")); lit_162 = YPPsym((P)"x-1473"); lit_163 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_164 = YPPsym((P)"msg*"); lit_165 = YPsb((P)"Match Pattern Failure"); T104 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1473_70 = YPfab_met(FUNCODEREF(fun_x_1473_70),T104,LITREF(lit_162),LITREF(lit_163),YPfalse,YPfalse); T103 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_71 = YPfab_met(FUNCODEREF(fun_71),T103,YPfalse,LITREF(lit_161),YPfalse,YPfalse); T102 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_72 = YPfab_met(FUNCODEREF(fun_72),T102,YPfalse,LITREF(lit_160),YPfalse,YPfalse); T105 = fun_72; YPmacro(YPPsym((P)"goo/io/write"),YPPsym((P)"msg*"),T105); lit_166 = YPPsym((P)"msg-to-str"); lit_167 = YPPlist(2,YPPsym((P)"message"),YPPsym((P)"arguments")); T108 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_73 = YPfab_met(FUNCODEREF(fun_73),T108,YPfalse,LITREF(lit_130),sloc(388),YPfalse); T107 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_74 = YPfab_met(FUNCODEREF(fun_74),T107,YPfalse,LITREF(lit_130),sloc(388),YPfalse); T106 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLstrG),Ynil); YgooSconditionsYmsg_to_str = YPfab_met(FUNCODEREF(YgooSconditionsYmsg_to_str),T106,LITREF(lit_166),LITREF(lit_167),sloc(387),YPfalse); T109 = YgooSconditionsYmsg_to_str; VARSET(YgooSconditionsYmsg_to_str,T109); lit_168 = YPPsym((P)"say"); lit_169 = YPPlist(2,YPPsym((P)"port"),YPPsym((P)"args")); T110 = YPfab_sig(YPPlist(1,VARREF(YgooSioSportYLout_portG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); YgooSioSwriteYsay = YPfab_met(FUNCODEREF(YgooSioSwriteYsay),T110,LITREF(lit_168),LITREF(lit_169),sloc(392),YPfalse); T111 = YgooSioSwriteYsay; VARSET(YgooSioSwriteYsay,T111); T112 = YPfalse; return T112; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooScols; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooSlate_macros; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooScolsSrep; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooScolsSmap; static USE_INFO use_infos[] = { {&module_info_gooSboot}, {&module_info_gooSfun}, {&module_info_gooSclass}, {&module_info_gooSmacros}, {&module_info_gooSpacker}, {&module_info_gooStypes}, {&module_info_gooSany}, {&module_info_gooSlog}, {&module_info_gooSchr}, {&module_info_gooSmag}, {&module_info_gooSmath}, {&module_info_gooSioSport}, {&module_info_gooScols}, {&module_info_gooSconditions}, {&module_info_gooSioSread}, {&module_info_gooSpacker}, {&module_info_gooSlate_macros}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"and", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"<=", &module_info_gooSmag, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooStypes, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fab-elt-setter", &module_info_gooScolsScol, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"-", &module_info_gooSmath, NULL}, {"@fun-mets", &module_info_gooSfun, NULL}, {"as-log", &module_info_gooSlog, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"build-condition-for-handler-interactively", &module_info_gooSconditions, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"set-standard-read-macro!", &module_info_gooSioSread, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep-elt", &module_info_gooScolsSrep, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"case", &module_info_gooSmacros, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"line-list-of", &module_info_gooScolsSlst, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"@class<", &module_info_gooSfun, NULL}, {"$char-long-names", &module_info_gooSioSread, NULL}, {"default-handler-description", &module_info_gooSconditions, NULL}, {"fun-src-loc", &module_info_gooSfun, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"range-check", &module_info_gooScolsSseq, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"lst*", &module_info_gooScolsSlst, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"floor", &module_info_gooSmath, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"eof-object", &module_info_gooSchr, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"lift-place-subforms", &module_info_gooSmacros, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"%true", &module_info_gooSboot, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"while", &module_info_gooSmacros, NULL}, {"lst", &module_info_gooSboot, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"read-delimited-list", &module_info_gooSioSread, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"asin", &module_info_gooSmath, NULL}, {"fab-fill!", &module_info_gooScolsScol, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"def-fun-var", &module_info_gooSmacros, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"@do", &module_info_gooSboot, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"incongruent-method-error", &module_info_gooSfun, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-src", &module_info_gooSfun, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"fab-into", &module_info_gooScolsScol, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"exp", &module_info_gooSmath, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"choose-handler", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"tail", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"*gensym-counter*", &module_info_gooSlate_macros, NULL}, {"put", &module_info_gooSioSport, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"contagious-call", &module_info_gooSmath, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"power-of-two-ceil", &module_info_gooSmath, NULL}, {"ascii-limit", &module_info_gooScolsSstr, NULL}, {"seq", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"if", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooScolsScol, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"@map", &module_info_gooSboot, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"*current-handlers*", &module_info_gooSconditions, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"rep-fill!", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"%str", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"port-filename", &module_info_gooSioSport, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"line-of", &module_info_gooScolsSlst, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"port-line-setter", &module_info_gooSioSport, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"contagious-type", &module_info_gooSmath, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"char->ascii", &module_info_gooSchr, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"in", &module_info_gooSioSport, NULL}, {"t+", &module_info_gooStypes, NULL}, {"try", &module_info_gooSboot, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"do", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"moddecf", &module_info_gooSmath, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"fab-gen", &module_info_gooSfun, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"describe-handler", &module_info_gooSconditions, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"rep-len", &module_info_gooScolsSrep, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"alter", &module_info_gooScolsSseqx, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"not", &module_info_gooSboot, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"invoke-handler-interactively", &module_info_gooSconditions, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"prop-bound-at?", &module_info_gooSfun, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"ins!", &module_info_gooScolsSseqx, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"def-list", &module_info_gooScolsSlst, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"rep-nul", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSfun, NULL}, {"line-list", &module_info_gooScolsSlst, NULL}, {"dp", &module_info_gooSboot, NULL}, {"as", &module_info_gooStypes, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"fun-inlineable?-setter", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"error", &module_info_gooSboot, NULL}, {"range-check?", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSconditions, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"assq", &module_info_gooScolsSlst, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"rep-elt-setter", &module_info_gooScolsSrep, NULL}, {"+", &module_info_gooSmath, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"df", &module_info_gooSboot, NULL}, {"to-str", &module_info_gooSany, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"do-key-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"get-standard-read-macro", &module_info_gooSioSread, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"build-condition-interactively", &module_info_gooSconditions, NULL}, {"fun-inlineable?", &module_info_gooSfun, NULL}, {"d.", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"open", &module_info_gooSioSport, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"rep-into!", &module_info_gooScolsSrep, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"pow", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"vals-to-str", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"<", &module_info_gooSmag, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsStab, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"list-handlers", &module_info_gooSconditions, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"line-pair", &module_info_gooScolsSlst, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"min", &module_info_gooSmag, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"=", &module_info_gooSlog, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"fun-spec", &module_info_gooSfun, NULL}, {"fun-count-setter", &module_info_gooSfun, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"1-", &module_info_gooSmath, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"logn", &module_info_gooSmath, NULL}, {"round-to", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"&", &module_info_gooSmath, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"<<", &module_info_gooSmath, NULL}, {">>>", &module_info_gooSmath, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"*report-prop-unbound-errors?*", &module_info_gooSclass, NULL}, {"last", &module_info_gooSmacros, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"assqn", &module_info_gooScolsSlst, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"ascii-whitespaces", &module_info_gooScolsSstr, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"port-index-setter", &module_info_gooSioSport, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {"without-prop-unbound-errors", &module_info_gooSmacros, NULL}, {">=", &module_info_gooSmag, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"fun-count", &module_info_gooSfun, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"@order-specs-class", &module_info_gooSfun, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"rep-fab", &module_info_gooScolsSrep, NULL}, {"", &module_info_gooSboot, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"%su", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"port-handle", &module_info_gooSioSport, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"quote", &module_info_gooSboot, NULL}, {"$bot", &module_info_gooStypes, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"mod-", &module_info_gooSmath, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"when", &module_info_gooSmacros, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"write-flat", CVAR, &YgooSioSwriteYwrite_flat}, {"msg*", PVAR, NULL}, {"write-value-type", CVAR, &YgooSioSwriteYwrite_value_type}, {"*max-print-length*", DVAR, &YgooSioSwriteYTmax_print_lengthT}, {"quotation?", CVAR, &YgooSioSwriteYquotationQ}, {"as-binding-name", CVAR, &YgooSioSwriteYas_binding_name}, {"post", CVAR, &YgooSioSwriteYpost}, {"write-boolean", CVAR, &YgooSioSwriteYwrite_boolean}, {"recurring-write-type", CVAR, &YgooSioSwriteYrecurring_write_type}, {"write-fun-guts", CVAR, &YgooSioSwriteYwrite_fun_guts}, {"write-list", CVAR, &YgooSioSwriteYwrite_list}, {"write-to-string", CVAR, &YgooSioSwriteYwrite_to_string}, {"write", CVAR, &YgooSioSwriteYwrite}, {"do-emit", CVAR, &YgooSioSwriteYdo_emit}, {"emit", CVAR, &YgooSioSwriteYemit}, {"character-name", CVAR, &YgooSioSwriteYcharacter_name}, {"write-map", CVAR, &YgooSioSwriteYwrite_map}, {"---main-1---", PVAR, NULL}, {"*max-print-depth*", DVAR, &YgooSioSwriteYTmax_print_depthT}, {"write-char-literal", CVAR, &YgooSioSwriteYwrite_char_literal}, {"recurring-write", CVAR, &YgooSioSwriteYrecurring_write}, {"say", CVAR, &YgooSioSwriteYsay}, {"write-params", CVAR, &YgooSioSwriteYwrite_params}, {"pe-msg", CVAR, &YgooSioSwriteYpe_msg}, {"---main-0---", PVAR, NULL}, {"writeln", CVAR, &YgooSioSwriteYwriteln}, {"write-type", CVAR, &YgooSioSwriteYwrite_type}, {"write-number", CVAR, &YgooSioSwriteYwrite_number}, {"write-string-literal", CVAR, &YgooSioSwriteYwrite_string_literal}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"*max-print-depth*", NULL}, {"post", NULL}, {"msg*", NULL}, {"*max-print-length*", NULL}, {"msg", NULL}, {"write", NULL}, {"write-to-string", NULL}, {"recurring-write", NULL}, {"say", NULL}, {"emit", NULL}, {"pe-msg", NULL}, {"writeln", NULL}, {"write-type", NULL}, {"msg-to-str", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_gooSioSwrite; MODULE_INFO module_info_gooSioSwrite = { "goo/io/write", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_gooSboot (void); extern void load_module_gooSfun (void); extern void load_module_gooSclass (void); extern void load_module_gooSmacros (void); extern void load_module_gooSpacker (void); extern void load_module_gooStypes (void); extern void load_module_gooSany (void); extern void load_module_gooSlog (void); extern void load_module_gooSchr (void); extern void load_module_gooSmag (void); extern void load_module_gooSmath (void); extern void load_module_gooSioSport (void); extern void load_module_gooScols (void); extern void load_module_gooSconditions (void); extern void load_module_gooSioSread (void); extern void load_module_gooSpacker (void); extern void load_module_gooSlate_macros (void); /* EXPRESSION: */ extern void load_module_gooSioSwrite (void); void load_module_gooSioSwrite (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_gooSboot(); load_module_gooSfun(); load_module_gooSclass(); load_module_gooSmacros(); load_module_gooSpacker(); load_module_gooStypes(); load_module_gooSany(); load_module_gooSlog(); load_module_gooSchr(); load_module_gooSmag(); load_module_gooSmath(); load_module_gooSioSport(); load_module_gooScols(); load_module_gooSconditions(); load_module_gooSioSread(); load_module_gooSpacker(); load_module_gooSlate_macros(); (P)YgooSioSwriteY___main_0___(); (P)YgooSioSwriteY___main_1___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/time/0040755000175000017500000000000007756746021013565 5ustar vomjomvomjomgoo-0.155/c/g2c/time/CVS/0040755000175000017500000000000007756746021014220 5ustar vomjomvomjomgoo-0.155/c/g2c/time/CVS/Root0100644000175000017500000000003307756746021015057 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/c/g2c/time/CVS/Repository0100644000175000017500000000001707756746021016315 0ustar vomjomvomjomgoo/c/g2c/time goo-0.155/c/g2c/time/CVS/Entries0100644000175000017500000000041407756746021015550 0ustar vomjomvomjom/%event.c/1.3/Tue Sep 3 17:18:07 2002/-kb/ /%lock.c/1.3/Tue Sep 3 17:18:07 2002/-kb/ /%threads.c/1.5/Tue Sep 3 18:17:39 2002/-kb/ /event.c/1.22/Wed Nov 19 19:50:14 2003/-kb/ /lock.c/1.22/Wed Nov 19 19:50:15 2003/-kb/ /threads.c/1.22/Wed Nov 19 19:50:15 2003/-kb/ D goo-0.155/c/g2c/time/%event.c0100644000175000017500000000636707535167317015130 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "grt.h" #if defined(HAVE_POSIX_THREAD) #include P YtimeSeventYPevent_create (P name) { pthread_cond_t *cond = (pthread_cond_t *)allocate(sizeof(pthread_cond_t)); pthread_cond_init(cond, NULL); return (P)cond; } P YtimeSeventYPevent_reset (P handle) { return (P)pthread_cond_init((pthread_cond_t *)handle, NULL); // TODO: ???? } P YtimeSeventYPevent_pulse (P handle) { // return (P)PulseEvent((HANDLE)handle); } P YtimeSeventYPevent_signal (P handle) { return (P)pthread_cond_signal((pthread_cond_t *)handle); } P YtimeSeventYPevent_broadcast (P handle) { return (P)pthread_cond_broadcast((pthread_cond_t *)handle); } P YtimeSeventYPevent_destroy (P handle) { return (P)pthread_cond_destroy((pthread_cond_t *)handle); } P YtimeSeventYPevent_wait (P event, P lock) { return (P)pthread_cond_wait ((pthread_cond_t *)event, (pthread_mutex_t *)lock); } P YtimeSeventYPevent_wait_timed (P event, P lock, P timeout) { INTFLO x; struct timespec time; x.i = (PINT)timeout; time.tv_sec = (time_t)truncf(x.f); time.tv_nsec = (long)((x.f - time.tv_sec) * 1000000000.0); return (P)pthread_cond_timedwait ((pthread_cond_t *)event, (pthread_mutex_t *)lock, &time); } #elif defined(MSVC_THREAD) #undef PINT #include #undef PINT #define PINT long P YtimeSeventYPevent_create (P name) { HANDLE handle; handle = CreateEvent(NULL, FALSE, FALSE, (char*)name); return (P)handle; } P YtimeSeventYPevent_reset (P handle) { return (P)ResetEvent((HANDLE)handle); } P YtimeSeventYPevent_pulse (P handle) { return (P)PulseEvent((HANDLE)handle); } P YtimeSeventYPevent_signal (P handle) { return (P)SetEvent((HANDLE)handle); } P YtimeSeventYPevent_broadcast (P handle) { return (P)SetEvent((HANDLE)handle); } P YtimeSeventYPevent_destroy (P handle) { return (P)CloseHandle((HANDLE)handle); } P YtimeSeventYPevent_wait (P event, P lock) { P result; DWORD wait = 0; LeaveCriticalSection((CRITICAL_SECTION*)lock); wait = WaitForSingleObject((HANDLE)event, INFINITE); if (wait == WAIT_OBJECT_0) result = (P)1; else result = (P)0; EnterCriticalSection((CRITICAL_SECTION*)lock); return result; } P YtimeSeventYPevent_wait_timed (P event, P lock, P timeout) { P result; DWORD wait = 0; INTFLO x; x.i = (PINT)timeout; LeaveCriticalSection((CRITICAL_SECTION*)lock); wait = WaitForSingleObject((HANDLE)event, (long)(x.f * 1000)); if (wait == WAIT_OBJECT_0) result = (P)1; else result = (P)0; EnterCriticalSection((CRITICAL_SECTION*)lock); return result; } P YeventYPevent_wait (P handle, P timeout) { DWORD res = WaitForSingleObject((HANDLE)handle, (DWORD)timeout); if (res == WAIT_OBJECT_0) return (P)1; else return (P)0; } #else P YtimeSeventYPevent_create (P name) { return PNUL; } P YtimeSeventYPevent_reset (P handle) { return PNUL; } P YtimeSeventYPevent_pulse (P handle) { return PNUL; } P YtimeSeventYPevent_signal (P handle) { return PNUL; } P YtimeSeventYPevent_broadcast (P handle) { return PNUL; } P YtimeSeventYPevent_destroy (P handle) { return PNUL; } P YtimeSeventYPevent_wait (P event, P lock) { return PNUL; } P YtimeSeventYPevent_wait_timed (P event, P lock, P timeout) { return PNUL; } #endif goo-0.155/c/g2c/time/%lock.c0100644000175000017500000000317207535167317014726 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "grt.h" #if defined(HAVE_POSIX_THREAD) P YtimeSlockYPlock_create (P name) { pthread_mutex_t *mutex = (pthread_mutex_t *)allocate(sizeof(pthread_mutex_t)); pthread_mutex_init(mutex, NULL); return (P)mutex; } P YtimeSlockYPlock_lock (P handle) { return (P)pthread_mutex_lock((pthread_mutex_t *)handle); } P YtimeSlockYPlock_try_lock (P handle) { return (P)pthread_mutex_trylock((pthread_mutex_t *)handle); } P YtimeSlockYPlock_unlock (P handle) { return (P)pthread_mutex_unlock((pthread_mutex_t *)handle); } P YtimeSlockYPlock_destroy (P handle) { return (P)pthread_mutex_destroy((pthread_mutex_t *)handle); } #elif defined(MSVC_THREAD) #undef PINT #include #undef PINT #define PINT long P YtimeSlockYPlock_create (P name) { CRITICAL_SECTION* cs = (CRITICAL_SECTION*)allocate(sizeof(CRITICAL_SECTION)); InitializeCriticalSection(cs); return (P)cs; } P YtimeSlockYPlock_lock (P handle) { EnterCriticalSection((CRITICAL_SECTION*)handle); return YPtrue; } P YtimeSlockYPlock_try_lock (P handle) { // Not yet implemented return (P)0; } P YtimeSlockYPlock_unlock (P handle) { LeaveCriticalSection((CRITICAL_SECTION*)handle); return YPtrue; } P YtimeSlockYPlock_destroy (P handle) { DeleteCriticalSection((CRITICAL_SECTION*)handle); return YPtrue; } #else P YtimeSlockYPlock_create (P name) { return PNUL; } P YtimeSlockYPlock_lock (P handle) { return PNUL; } P YtimeSlockYPlock_try_lock (P handle) { return PNUL; } P YtimeSlockYPlock_unlock (P handle) { return PNUL; } P YtimeSlockYPlock_destroy (P handle) { return PNUL; } #endif goo-0.155/c/g2c/time/%threads.c0100644000175000017500000000666207535176303015432 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "grt.h" #if defined(HAVE_POSIX_THREAD) #include #include void* do_thread (P info) { sigset_t new; REGS regs; sigaddset(&new, SIGINT); pthread_sigmask(SIG_BLOCK, &new, NULL); regs = YPfab_regs(); TSET(goo_thread, YPtelt(info, 1)); REGSSET(regs); return CALL0(1, YPtelt(info, 0)); } P YtimeSthreadsYPthread_goo_thread () { return TREF(goo_thread); } P YtimeSthreadsYPthread_goo_thread_setter (P value) { TSET(goo_thread, value); return value; } P YtimeSthreadsYPthread_create (P function) { pthread_t thread; GC_pthread_create(&thread, NULL, do_thread, function); return (P)thread; } P YtimeSthreadsYPthread_yield () { return (P)pthread_yield(); } P YtimeSthreadsYPthread_join (P thread) { return (P)GC_pthread_join(thread); } P YtimeSthreadsYPthread_priority (P thread) { return PNUL; } P YtimeSthreadsYPthread_current () { return (P)pthread_self(); } extern float truncf(float); P YtimeSthreadsYPthread_sleep (P secs) { INTFLO x; int res; // struct timespec time, rem; x.i = (PINT)secs; // time.tv_sec = (time_t)truncf(x.f); // time.tv_nsec = (long)((x.f - time.tv_sec) * 1000000000.0); // res = nanosleep(&time, &rem); res = usleep((unsigned long)(x.f * 1000000.0)); return (P)res; } P YtimeSthreadsYPthread_priority_setter (P x, P thread) { return PNUL; } P YtimeSthreadsYPthread_detach () { return (P)pthread_detach(pthread_self()); } #elif defined(MSVC_THREAD) #undef PINT #include #undef PINT #define PINT long DWORD WINAPI do_thread (void* xinfo) { /* sigset_t new; sigaddset(&new, SIGINT); pthread_sigmask(SIG_BLOCK, &new, NULL); */ P info = (P)xinfo; REGS regs; regs = YPfab_regs(); TSET(goo_thread, YPtelt(info, 1)); REGSSET(regs); return CALL0(1, YPtelt(info, 0)); } P YtimeSthreadsYPthread_goo_thread () { return TREF(goo_thread); } P YtimeSthreadsYPthread_goo_thread_setter( P value) { TSET(goo_thread, value); return value; } P YtimeSthreadsYPthread_create (P function) { long threadId = 0; long h = CreateThread(0, 0, do_thread, function, 0, &threadId); return (P)h; } P YtimeSthreadsYPthread_yield () { Sleep(0); return YPfalse; } P YtimeSthreadsYPthread_join (P thread) { WaitForSingleObject(thread, INFINITE); return YPfalse; } P YtimeSthreadsYPthread_priority (P thread) { return PNUL; } P YtimeSthreadsYPthread_current () { return (P)GetCurrentThread(); } extern float truncf(float); P YtimeSthreadsYPthread_sleep (P secs) { INTFLO x; // struct timespec time, rem; x.i = (PINT)secs; Sleep((unsigned long)(x.f * 1000)); return YPfalse; } P YtimeSthreadsYPthread_priority_setter (P thread) { return PNUL; } P YtimeSthreadsYPthread_detach () { return (P)0; // return (P)pthread_detach(pthread_self()); } #else /* STUBS */ P YtimeSthreadsYPthread_goo_thread () { return YPfalse; } P YtimeSthreadsYPthread_goo_thread_setter (P value) { return PNUL; } P YtimeSthreadsYPthread_create (P function) { return PNUL; } P YtimeSthreadsYPthread_yield () { return PNUL; } P YtimeSthreadsYPthread_join (P thread) { return PNUL; } P YtimeSthreadsYPthread_priority (P thread) { return PNUL; } P YtimeSthreadsYPthread_current () { return PNUL; } P YtimeSthreadsYPthread_sleep (P secs) { return PNUL; } P YtimeSthreadsYPthread_priority_setter (P x, P thread) { return PNUL; } P YtimeSthreadsYPthread_detach () { return PNUL; } #endif goo-0.155/c/g2c/time/event.c0100644000175000017500000024175507756744566015101 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"time/event"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: time/event */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); DEF(YtimeSeventYevent_reset,"time/event","event-reset"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YtimeSthreadsYsleep,"time/threads","sleep"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YtimeSthreadsYthread_name,"time/threads","thread-name"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); DEF(YtimeSeventYevent_wait_timed,"time/event","event-wait-timed"); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); DEF(YtimeSeventYLeventG,"time/event",""); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YtimeSthreadsYthread_function,"time/threads","thread-function"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YtimeSthreadsYthread_yield,"time/threads","thread-yield"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YtimeSthreadsYthread_priority,"time/threads","thread-priority"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); DEF(YtimeSeventYevent_handle_setter,"time/event","event-handle-setter"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YtimeSthreadsYLthreadG,"time/threads",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YtimeSthreadsYtest_thread_1,"time/threads","test-thread-1"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YtimeSlockYlock_state,"time/lock","lock-state"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); DEF(YtimeSeventYevent_signal,"time/event","event-signal"); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YtimeSlockYLlockG,"time/lock",""); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YtimeSthreadsYthread_current,"time/threads","thread-current"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YtimeSlockYlock_handle,"time/lock","lock-handle"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); DEF(YtimeSeventYevent_name,"time/event","event-name"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YtimeSthreadsYtest_thread_2,"time/threads","test-thread-2"); EXT(YLboxG,"goo/boot",""); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); DEF(YtimeSeventYevent_wait,"time/event","event-wait"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(YtimeSlockYlock_lock,"time/lock","lock-lock"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YtimeSlockYlock_unlock,"time/lock","lock-unlock"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YtimeSlockYlock_destroy,"time/lock","lock-destroy"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); DEF(YtimeSeventYevent_handle,"time/event","event-handle"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); DEF(YtimeSeventYevent_broadcast,"time/event","event-broadcast"); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_3); DEFLIT(lit_5); DEFLIT(lit_13); DEFLIT(lit_12); DEFLIT(lit_17); DEFLIT(lit_10); DEFLIT(lit_1); DEFLIT(lit_16); DEFLIT(lit_9); DEFLIT(lit_11); DEFLIT(lit_15); DEFLIT(lit_7); DEFLIT(lit_20); DEFLIT(lit_8); DEFLIT(lit_18); DEFLIT(lit_6); DEFLIT(lit_2); DEFLIT(lit_4); DEFLIT(lit_19); DEFLIT(lit_0); DEFLIT(lit_14); /* FUNCTIONS: */ LOCFOR(fun_event_name_0); LOCFOR(fun_1); LOCFOR(fun_event_handle_2); LOCFOR(fun_event_handle_setter_3); LOCFOR(fun_new_4); LOCFOR(fun_event_signal_5); LOCFOR(fun_event_broadcast_6); LOCFOR(fun_event_reset_7); LOCFOR(fun_event_wait_8); LOCFOR(fun_event_wait_timed_9); extern P YtimeSeventY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_event_name_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSeventYevent_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_event_handle_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSeventYevent_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_event_handle_setter_3) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YtimeSeventYevent_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_new_4) { P c_,args_; P xF5355; P tmpF5354; P eventF5353; P next_metsF5352; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(c_, 0); NARGS(args_, 1); T10 = (P)YPfun_reg(); T11 = (P)YPnext_methods(); T9 = CALL4(1,VARREF(YgooSmacrosYOchecked_next_methods),T10,T11,c_,args_); next_metsF5352 = T9; T7 = CALL1(1,VARREF(Yhead),next_metsF5352); T8 = CALL1(1,VARREF(Ytail),next_metsF5352); T6 = CALL4(1,VARREF(YgooSmacrosYnapp),T7,T8,c_,args_); eventF5353 = T6; T5 = CALL1(1,VARREF(YtimeSeventYevent_name),eventF5353); tmpF5354 = T5; if (tmpF5354 != YPfalse) { T4 = tmpF5354; } else { T4 = LITREF(lit_10); } T3 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),T4); T2 = (P)YPsu(T3); T1 = (P)YtimeSeventYPevent_create(T2); xF5355 = T1; T0 = (P)YPtag_into(xF5355,(P)3); CALL2(1,VARREF(YtimeSeventYevent_handle_setter),T0,eventF5353); UNLINK_STACK(); RET(eventF5353); } LOCCODEDEF(fun_event_signal_5) { P e_; P xF5356; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YtimeSeventYevent_handle),e_); xF5356 = T1; T0 = (P)YPuntag_into(xF5356); (P)YtimeSeventYPevent_signal(T0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_event_broadcast_6) { P e_; P xF5357; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YtimeSeventYevent_handle),e_); xF5357 = T1; T0 = (P)YPuntag_into(xF5357); (P)YtimeSeventYPevent_broadcast(T0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_event_reset_7) { P e_; P xF5358; P T0,T1; LINK_STACK(); ARG(e_, 0); T1 = CALL1(1,VARREF(YtimeSeventYevent_handle),e_); xF5358 = T1; T0 = (P)YPuntag_into(xF5358); (P)YtimeSeventYPevent_reset(T0); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_event_wait_8) { P e_,l_; P xF5360; P xF5359; P T0,T1,T2,T3,T4,T5; LINK_STACK(); ARG(e_, 0); ARG(l_, 1); T3 = CALL1(1,VARREF(YtimeSeventYevent_handle),e_); xF5359 = T3; T2 = (P)YPuntag_into(xF5359); T5 = CALL1(1,VARREF(YtimeSlockYlock_handle),l_); xF5360 = T5; T4 = (P)YPuntag_into(xF5360); T1 = (P)YtimeSeventYPevent_wait(T2,T4); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_event_wait_timed_9) { P e_,l_,secs_; P xF5362; P xF5361; P T0,T1,T2,T3,T4,T5,T6; LINK_STACK(); ARG(e_, 0); ARG(l_, 1); ARG(secs_, 2); T3 = CALL1(1,VARREF(YtimeSeventYevent_handle),e_); xF5361 = T3; T2 = (P)YPuntag_into(xF5361); T5 = CALL1(1,VARREF(YtimeSlockYlock_handle),l_); xF5362 = T5; T4 = (P)YPuntag_into(xF5362); T6 = (P)YPfu(secs_); T1 = (P)YtimeSeventYPevent_wait_timed(T2,T4,T6); T0 = (P)YPbb(T1); UNLINK_STACK(); RET(T0); } P YtimeSeventY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YtimeSeventYLeventG,T0); lit_1 = YPPsym((P)"event-name"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YtimeSeventYLeventG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_event_name_0 = YPfab_met(FUNCODEREF(fun_event_name_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(20),YPfalse); T4 = VARREF_OR(YtimeSeventYevent_name,YPfalse); T5 = fun_event_name_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YtimeSeventYevent_name,T3); lit_3 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T6,YPfalse,LITREF(lit_3),sloc(20),YPfalse); T7 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLsymG)); T8 = fun_1; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSeventYLeventG),VARREF(YtimeSeventYevent_name),YPfalse,T7,T8); lit_4 = YPPsym((P)"event-handle"); lit_5 = YPPlist(1,YPPsym((P)"_x")); T9 = YPfab_sig(YPPlist(1,VARREF(YtimeSeventYLeventG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_event_handle_2 = YPfab_met(FUNCODEREF(fun_event_handle_2),T9,LITREF(lit_4),LITREF(lit_5),sloc(21),YPfalse); T11 = VARREF_OR(YtimeSeventYevent_handle,YPfalse); T12 = fun_event_handle_2; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YtimeSeventYevent_handle,T10); lit_6 = YPPsym((P)"event-handle-setter"); lit_7 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T13 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YtimeSeventYLeventG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_event_handle_setter_3 = YPfab_met(FUNCODEREF(fun_event_handle_setter_3),T13,LITREF(lit_6),LITREF(lit_7),sloc(21),YPfalse); T15 = VARREF_OR(YtimeSeventYevent_handle_setter,YPfalse); T16 = fun_event_handle_setter_3; T14 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T15,T16); VARSET(YtimeSeventYevent_handle_setter,T14); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSeventYLeventG),VARREF(YtimeSeventYevent_handle),VARREF(YtimeSeventYevent_handle_setter),VARREF(YLanyG),VARREF(YPprop_unbound_error)); lit_8 = YPPsym((P)"new"); lit_9 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"args")); lit_10 = YPsb((P)""); T18 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YtimeSeventYLeventG)); T17 = YPfab_sig(YPPlist(1,T18),YPtrue,YPint((P)1),VARREF(YtimeSeventYLeventG),Ynil); fun_new_4 = YPfab_met(FUNCODEREF(fun_new_4),T17,LITREF(lit_8),LITREF(lit_9),sloc(23),YPfalse); T20 = VARREF_OR(Ynew,YPfalse); T21 = fun_new_4; T19 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T20,T21); VARSET(Ynew,T19); lit_11 = YPPsym((P)"event-signal"); lit_12 = YPPlist(1,YPPsym((P)"e")); T22 = YPfab_sig(YPPlist(1,VARREF(YtimeSeventYLeventG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_event_signal_5 = YPfab_met(FUNCODEREF(fun_event_signal_5),T22,LITREF(lit_11),LITREF(lit_12),sloc(29),YPfalse); T24 = VARREF_OR(YtimeSeventYevent_signal,YPfalse); T25 = fun_event_signal_5; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YtimeSeventYevent_signal,T23); lit_13 = YPPsym((P)"event-broadcast"); lit_14 = YPPlist(1,YPPsym((P)"e")); T26 = YPfab_sig(YPPlist(1,VARREF(YtimeSeventYLeventG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_event_broadcast_6 = YPfab_met(FUNCODEREF(fun_event_broadcast_6),T26,LITREF(lit_13),LITREF(lit_14),sloc(32),YPfalse); T28 = VARREF_OR(YtimeSeventYevent_broadcast,YPfalse); T29 = fun_event_broadcast_6; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YtimeSeventYevent_broadcast,T27); lit_15 = YPPsym((P)"event-reset"); lit_16 = YPPlist(1,YPPsym((P)"e")); T30 = YPfab_sig(YPPlist(1,VARREF(YtimeSeventYLeventG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_event_reset_7 = YPfab_met(FUNCODEREF(fun_event_reset_7),T30,LITREF(lit_15),LITREF(lit_16),sloc(38),YPfalse); T32 = VARREF_OR(YtimeSeventYevent_reset,YPfalse); T33 = fun_event_reset_7; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YtimeSeventYevent_reset,T31); lit_17 = YPPsym((P)"event-wait"); lit_18 = YPPlist(2,YPPsym((P)"e"),YPPsym((P)"l")); T34 = YPfab_sig(YPPlist(2,VARREF(YtimeSeventYLeventG),VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)2),VARREF(YLlogG),Ynil); fun_event_wait_8 = YPfab_met(FUNCODEREF(fun_event_wait_8),T34,LITREF(lit_17),LITREF(lit_18),sloc(41),YPfalse); T36 = VARREF_OR(YtimeSeventYevent_wait,YPfalse); T37 = fun_event_wait_8; T35 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T36,T37); VARSET(YtimeSeventYevent_wait,T35); lit_19 = YPPsym((P)"event-wait-timed"); lit_20 = YPPlist(3,YPPsym((P)"e"),YPPsym((P)"l"),YPPsym((P)"secs")); T38 = YPfab_sig(YPPlist(3,VARREF(YtimeSeventYLeventG),VARREF(YtimeSlockYLlockG),VARREF(YLfloG)),YPfalse,YPint((P)3),VARREF(YLlogG),Ynil); fun_event_wait_timed_9 = YPfab_met(FUNCODEREF(fun_event_wait_timed_9),T38,LITREF(lit_19),LITREF(lit_20),sloc(44),YPfalse); T40 = VARREF_OR(YtimeSeventYevent_wait_timed,YPfalse); T41 = fun_event_wait_timed_9; T39 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T40,T41); VARSET(YtimeSeventYevent_wait_timed,T39); T42 = YPfalse; return T42; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_timeSthreads; extern MODULE_INFO module_info_timeSlock; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_timeSthreads}, {&module_info_timeSlock}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"sleep", &module_info_timeSthreads, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"spawn", &module_info_timeSthreads, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"thread-name", &module_info_timeSthreads, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"thread-function", &module_info_timeSthreads, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"thread-yield", &module_info_timeSthreads, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"thread-priority", &module_info_timeSthreads, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"", &module_info_timeSthreads, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"test-thread-1", &module_info_timeSthreads, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"lock-state", &module_info_timeSlock, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_timeSlock, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"thread-current", &module_info_timeSthreads, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"lock-handle", &module_info_timeSlock, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"test-thread-2", &module_info_timeSthreads, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"with-lock", &module_info_timeSlock, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"lock-lock", &module_info_timeSlock, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"lock-unlock", &module_info_timeSlock, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"lock-destroy", &module_info_timeSlock, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"event-reset", CVAR, &YtimeSeventYevent_reset}, {"%event-destroy", PVAR, NULL}, {"event-wait-timed", CVAR, &YtimeSeventYevent_wait_timed}, {"", CVAR, &YtimeSeventYLeventG}, {"%event-broadcast", PVAR, NULL}, {"%event-signal", PVAR, NULL}, {"event-handle-setter", CVAR, &YtimeSeventYevent_handle_setter}, {"%event-wait-timed", PVAR, NULL}, {"event-signal", CVAR, &YtimeSeventYevent_signal}, {"%event-create", PVAR, NULL}, {"event-name", CVAR, &YtimeSeventYevent_name}, {"%event-reset", PVAR, NULL}, {"%event-wait", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"event-wait", CVAR, &YtimeSeventYevent_wait}, {"event-handle", CVAR, &YtimeSeventYevent_handle}, {"event-broadcast", CVAR, &YtimeSeventYevent_broadcast}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"event-broadcast", NULL}, {"event-wait-timed", NULL}, {"", NULL}, {"event-reset", NULL}, {"event-name", NULL}, {"event-signal", NULL}, {"event-wait", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_timeSevent; MODULE_INFO module_info_timeSevent = { "time/event", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_timeSthreads (void); extern void load_module_timeSlock (void); /* EXPRESSION: */ extern void load_module_timeSevent (void); void load_module_timeSevent (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_timeSthreads(); load_module_timeSlock(); (P)YtimeSeventY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/time/lock.c0100644000175000017500000024761007756744567014705 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"time/lock"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: time/lock */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); EXT(YtimeSthreadsYsleep,"time/threads","sleep"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); DEF(YtimeSlockYlock_handle_setter,"time/lock","lock-handle-setter"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); DEF(YtimeSlockYlock_name,"time/lock","lock-name"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); EXT(YtimeSthreadsYthread_name,"time/threads","thread-name"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); EXT(YtimeSthreadsYthread_function,"time/threads","thread-function"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); EXT(YtimeSthreadsYthread_yield,"time/threads","thread-yield"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); EXT(YtimeSthreadsYthread_priority,"time/threads","thread-priority"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); EXT(YtimeSthreadsYLthreadG,"time/threads",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); EXT(YtimeSthreadsYtest_thread_1,"time/threads","test-thread-1"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); DEF(YtimeSlockYlock_state,"time/lock","lock-state"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); DEF(YtimeSlockYLlockG,"time/lock",""); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); EXT(YtimeSthreadsYthread_current,"time/threads","thread-current"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); DEF(YtimeSlockYlock_handle,"time/lock","lock-handle"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSmathYGGG,"goo/math",">>>"); DEF(YtimeSlockYlock_state_setter,"time/lock","lock-state-setter"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); EXT(YtimeSthreadsYtest_thread_2,"time/threads","test-thread-2"); EXT(YLboxG,"goo/boot",""); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); DEF(YtimeSlockYlock_lock,"time/lock","lock-lock"); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); DEF(YtimeSlockYlock_unlock,"time/lock","lock-unlock"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); DEF(YtimeSlockYlock_destroy,"time/lock","lock-destroy"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_20); DEFLIT(lit_1); DEFLIT(lit_6); DEFLIT(lit_18); DEFLIT(lit_15); DEFLIT(lit_25); DEFLIT(lit_11); DEFLIT(lit_31); DEFLIT(lit_22); DEFLIT(lit_21); DEFLIT(lit_2); DEFLIT(lit_7); DEFLIT(lit_16); DEFLIT(lit_27); DEFLIT(lit_17); DEFLIT(lit_9); DEFLIT(lit_19); DEFLIT(lit_29); DEFLIT(lit_28); DEFLIT(lit_13); DEFLIT(lit_24); DEFLIT(lit_12); DEFLIT(lit_30); DEFLIT(lit_4); DEFLIT(lit_23); DEFLIT(lit_14); DEFLIT(lit_32); DEFLIT(lit_26); DEFLIT(lit_8); DEFLIT(lit_3); DEFLIT(lit_0); DEFLIT(lit_10); DEFLIT(lit_5); /* FUNCTIONS: */ LOCFOR(fun_lock_name_0); LOCFOR(fun_1); LOCFOR(fun_lock_state_2); LOCFOR(fun_lock_state_setter_3); LOCFOR(fun_lock_handle_4); LOCFOR(fun_lock_handle_setter_5); LOCFOR(fun_lock_lock_6); LOCFOR(fun_lock_unlock_7); LOCFOR(fun_lock_destroy_8); LOCFOR(fun_new_9); LOCFOR(fun_x_1932_10); LOCFOR(fun_11); LOCFOR(fun_12); extern P YtimeSlockY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_lock_name_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSlockYlock_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_lock_state_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSlockYlock_state)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_lock_state_setter_3) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YtimeSlockYlock_state)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_lock_handle_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSlockYlock_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_lock_handle_setter_5) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YtimeSlockYlock_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_lock_lock_6) { P lock_; P xF5337; P T0,T1,T2,T3; LINK_STACK(); ARG(lock_, 0); T1 = CALL1(1,VARREF(YtimeSlockYlock_handle),lock_); xF5337 = T1; T0 = (P)YPuntag_into(xF5337); (P)YtimeSlockYPlock_lock(T0); T3 = CALL0(1,VARREF(YtimeSthreadsYthread_current)); T2 = CALL2(1,VARREF(YtimeSlockYlock_state_setter),T3,lock_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_lock_unlock_7) { P lock_; P xF5338; P T0,T1,T2; LINK_STACK(); ARG(lock_, 0); T1 = CALL1(1,VARREF(YtimeSlockYlock_handle),lock_); xF5338 = T1; T0 = (P)YPuntag_into(xF5338); (P)YtimeSlockYPlock_unlock(T0); T2 = CALL2(1,VARREF(YtimeSlockYlock_state_setter),LITREF(lit_16),lock_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_lock_destroy_8) { P lock_; P xF5339; P T0,T1,T2; LINK_STACK(); ARG(lock_, 0); T1 = CALL1(1,VARREF(YtimeSlockYlock_handle),lock_); xF5339 = T1; T0 = (P)YPuntag_into(xF5339); (P)YtimeSlockYPlock_destroy(T0); T2 = CALL2(1,VARREF(YtimeSlockYlock_state_setter),LITREF(lit_19),lock_); UNLINK_STACK(); QRET(T2); } LOCCODEDEF(fun_new_9) { P x_,args_; P xF5343; P nF5342; P lF5341; P next_metsF5340; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11; LINK_STACK(); ARG(x_, 0); NARGS(args_, 1); T10 = (P)YPfun_reg(); T11 = (P)YPnext_methods(); T9 = CALL4(1,VARREF(YgooSmacrosYOchecked_next_methods),T10,T11,x_,args_); next_metsF5340 = T9; T7 = CALL1(1,VARREF(Yhead),next_metsF5340); T8 = CALL1(1,VARREF(Ytail),next_metsF5340); T6 = CALL4(1,VARREF(YgooSmacrosYnapp),T7,T8,x_,args_); lF5341 = T6; T5 = CALL1(1,VARREF(YtimeSlockYlock_name),lF5341); nF5342 = T5; if (nF5342 != YPfalse) { T3 = LITREF(lit_22); } else { T4 = CALL2(1,VARREF(YgooStypesYas),VARREF(YLstrG),nF5342); T3 = T4; } T2 = (P)YPsu(T3); T1 = (P)YtimeSlockYPlock_create(T2); xF5343 = T1; T0 = (P)YPtag_into(xF5343,(P)3); CALL2(1,VARREF(YtimeSlockYlock_handle_setter),T0,lF5341); UNLINK_STACK(); RET(lF5341); } LOCCODEDEF(fun_x_1932_10) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_27),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_11) { P return_; P lock_nameF5351; P x_1931F5350; P x_1931F5349; P x_1931F5348; P bodyF5347; P lockF5346; P x_1931F5345; P x_1932F5344; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33; LINK_STACK(); ARG(return_, 0); T33 = FUNSHELL(0,fun_x_1932_10,2); x_1932F5344 = T33; FUNINIT(x_1932F5344, 2,FREEREF(0),return_); x_1931F5345 = FREEREF(0); lockF5346 = YPfalse; bodyF5347 = YPfalse; T2 = CALL2(1,VARREF(YisaQ),x_1931F5345,VARREF(YLlstG)); if (T2 != YPfalse) { T6 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1931F5345,LITREF(lit_27),x_1932F5344); x_1931F5348 = T6; T4 = CALL2(1,VARREF(YgooSmacrosYmatch_unquote),x_1931F5348,x_1932F5344); lockF5346 = T4; T5 = CALL1(1,VARREF(Ytail),x_1931F5348); x_1931F5349 = T5; bodyF5347 = x_1931F5349; x_1931F5350 = Ynil; T3 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1931F5350,x_1932F5344); } else { T7 = CALL2(1,x_1932F5344,LITREF(lit_28),x_1931F5345); } T32 = CALL0(1,VARREF(YgooSmacrosYgensym)); lock_nameF5351 = T32; T9 = CALL1(1,VARREF(Ylst),LITREF(lit_29)); T14 = CALL1(1,VARREF(Ylst),lock_nameF5351); T16 = lockF5346; T15 = CALL1(1,VARREF(Ylst),T16); T13 = CALL3(1,VARREF(YgooSmacrosYcat),T14,T15,LITREF(lit_30)); T12 = CALL1(1,VARREF(Ylst),T13); T11 = CALL2(1,VARREF(YgooSmacrosYcat),T12,LITREF(lit_30)); T10 = CALL1(1,VARREF(Ylst),T11); T19 = CALL1(1,VARREF(Ylst),LITREF(lit_31)); T22 = CALL1(1,VARREF(Ylst),LITREF(lit_32)); T25 = CALL1(1,VARREF(Ylst),LITREF(lit_12)); T26 = CALL1(1,VARREF(Ylst),lock_nameF5351); T24 = CALL3(1,VARREF(YgooSmacrosYcat),T25,T26,LITREF(lit_30)); T23 = CALL1(1,VARREF(Ylst),T24); T27 = bodyF5347; T21 = CALL4(1,VARREF(YgooSmacrosYcat),T22,T23,T27,LITREF(lit_30)); T20 = CALL1(1,VARREF(Ylst),T21); T30 = CALL1(1,VARREF(Ylst),LITREF(lit_14)); T31 = CALL1(1,VARREF(Ylst),lock_nameF5351); T29 = CALL3(1,VARREF(YgooSmacrosYcat),T30,T31,LITREF(lit_30)); T28 = CALL1(1,VARREF(Ylst),T29); T18 = CALL4(1,VARREF(YgooSmacrosYcat),T19,T20,T28,LITREF(lit_30)); T17 = CALL1(1,VARREF(Ylst),T18); T8 = CALL4(1,VARREF(YgooSmacrosYcat),T9,T10,T17,LITREF(lit_30)); UNLINK_STACK(); QRET(T8); } LOCCODEDEF(fun_12) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_11,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } P YtimeSlockY___main_0___() { P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YtimeSlockYLlockG,T0); lit_1 = YPPsym((P)"lock-name"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_lock_name_0 = YPfab_met(FUNCODEREF(fun_lock_name_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(15),YPfalse); T4 = VARREF_OR(YtimeSlockYlock_name,YPfalse); T5 = fun_lock_name_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YtimeSlockYlock_name,T3); lit_3 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T6,YPfalse,LITREF(lit_3),sloc(15),YPfalse); T7 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLsymG)); T8 = fun_1; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSlockYLlockG),VARREF(YtimeSlockYlock_name),YPfalse,T7,T8); lit_4 = YPPsym((P)"lock-state"); lit_5 = YPPlist(1,YPPsym((P)"_x")); T9 = YPfab_sig(YPPlist(1,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_lock_state_2 = YPfab_met(FUNCODEREF(fun_lock_state_2),T9,LITREF(lit_4),LITREF(lit_5),sloc(16),YPfalse); T11 = VARREF_OR(YtimeSlockYlock_state,YPfalse); T12 = fun_lock_state_2; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YtimeSlockYlock_state,T10); lit_6 = YPPsym((P)"lock-state-setter"); lit_7 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T14 = XCALL2(1,VARREF(YgooStypesYtA),VARREF(YLsymG),VARREF(YtimeSthreadsYLthreadG)); T13 = YPfab_sig(YPPlist(2,T14,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_lock_state_setter_3 = YPfab_met(FUNCODEREF(fun_lock_state_setter_3),T13,LITREF(lit_6),LITREF(lit_7),sloc(16),YPfalse); T16 = VARREF_OR(YtimeSlockYlock_state_setter,YPfalse); T17 = fun_lock_state_setter_3; T15 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T16,T17); VARSET(YtimeSlockYlock_state_setter,T15); T18 = XCALL2(1,VARREF(YgooStypesYtA),VARREF(YLsymG),VARREF(YtimeSthreadsYLthreadG)); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSlockYLlockG),VARREF(YtimeSlockYlock_state),VARREF(YtimeSlockYlock_state_setter),T18,VARREF(YPprop_unbound_error)); lit_8 = YPPsym((P)"lock-handle"); lit_9 = YPPlist(1,YPPsym((P)"_x")); T19 = YPfab_sig(YPPlist(1,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_lock_handle_4 = YPfab_met(FUNCODEREF(fun_lock_handle_4),T19,LITREF(lit_8),LITREF(lit_9),sloc(17),YPfalse); T21 = VARREF_OR(YtimeSlockYlock_handle,YPfalse); T22 = fun_lock_handle_4; T20 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T21,T22); VARSET(YtimeSlockYlock_handle,T20); lit_10 = YPPsym((P)"lock-handle-setter"); lit_11 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T23 = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_lock_handle_setter_5 = YPfab_met(FUNCODEREF(fun_lock_handle_setter_5),T23,LITREF(lit_10),LITREF(lit_11),sloc(17),YPfalse); T25 = VARREF_OR(YtimeSlockYlock_handle_setter,YPfalse); T26 = fun_lock_handle_setter_5; T24 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T25,T26); VARSET(YtimeSlockYlock_handle_setter,T24); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSlockYLlockG),VARREF(YtimeSlockYlock_handle),VARREF(YtimeSlockYlock_handle_setter),VARREF(YLlocG),VARREF(YPprop_unbound_error)); lit_12 = YPPsym((P)"lock-lock"); lit_13 = YPPlist(1,YPPsym((P)"lock")); T27 = YPfab_sig(YPPlist(1,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_lock_lock_6 = YPfab_met(FUNCODEREF(fun_lock_lock_6),T27,LITREF(lit_12),LITREF(lit_13),sloc(19),YPfalse); T29 = VARREF_OR(YtimeSlockYlock_lock,YPfalse); T30 = fun_lock_lock_6; T28 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T29,T30); VARSET(YtimeSlockYlock_lock,T28); lit_14 = YPPsym((P)"lock-unlock"); lit_15 = YPPlist(1,YPPsym((P)"lock")); lit_16 = YPPsym((P)"abandoned"); T31 = YPfab_sig(YPPlist(1,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_lock_unlock_7 = YPfab_met(FUNCODEREF(fun_lock_unlock_7),T31,LITREF(lit_14),LITREF(lit_15),sloc(23),YPfalse); T33 = VARREF_OR(YtimeSlockYlock_unlock,YPfalse); T34 = fun_lock_unlock_7; T32 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T33,T34); VARSET(YtimeSlockYlock_unlock,T32); lit_17 = YPPsym((P)"lock-destroy"); lit_18 = YPPlist(1,YPPsym((P)"lock")); lit_19 = YPPsym((P)"destroyed"); T35 = YPfab_sig(YPPlist(1,VARREF(YtimeSlockYLlockG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_lock_destroy_8 = YPfab_met(FUNCODEREF(fun_lock_destroy_8),T35,LITREF(lit_17),LITREF(lit_18),sloc(27),YPfalse); T37 = VARREF_OR(YtimeSlockYlock_destroy,YPfalse); T38 = fun_lock_destroy_8; T36 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T37,T38); VARSET(YtimeSlockYlock_destroy,T36); lit_20 = YPPsym((P)"new"); lit_21 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"args")); lit_22 = YPsb((P)""); T40 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YtimeSlockYLlockG)); T39 = YPfab_sig(YPPlist(1,T40),YPtrue,YPint((P)1),VARREF(YtimeSlockYLlockG),Ynil); fun_new_9 = YPfab_met(FUNCODEREF(fun_new_9),T39,LITREF(lit_20),LITREF(lit_21),sloc(31),YPfalse); T42 = VARREF_OR(Ynew,YPfalse); T43 = fun_new_9; T41 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T42,T43); VARSET(Ynew,T41); lit_23 = YPPlist(1,YPPsym((P)"exp")); lit_24 = YPPlist(1,YPPsym((P)"return")); lit_25 = YPPsym((P)"x-1932"); lit_26 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_27 = YPPsym((P)"with-lock"); lit_28 = YPsb((P)"Match Pattern Failure"); lit_29 = YPPsym((P)"let"); lit_30 = Ynil; lit_31 = YPPsym((P)"fin"); lit_32 = YPPsym((P)"seq"); T46 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1932_10 = YPfab_met(FUNCODEREF(fun_x_1932_10),T46,LITREF(lit_25),LITREF(lit_26),YPfalse,YPfalse); T45 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T45,YPfalse,LITREF(lit_24),YPfalse,YPfalse); T44 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T44,YPfalse,LITREF(lit_23),YPfalse,YPfalse); T47 = fun_12; YPmacro(YPPsym((P)"time/lock"),YPPsym((P)"with-lock"),T47); T48 = YPfalse; return T48; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_timeSthreads; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_timeSthreads}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"sleep", &module_info_timeSthreads, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"spawn", &module_info_timeSthreads, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"thread-name", &module_info_timeSthreads, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"thread-function", &module_info_timeSthreads, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"thread-yield", &module_info_timeSthreads, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"thread-priority", &module_info_timeSthreads, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"", &module_info_timeSthreads, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"test-thread-1", &module_info_timeSthreads, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"thread-current", &module_info_timeSthreads, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"test-thread-2", &module_info_timeSthreads, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"%lock-lock", PVAR, NULL}, {"lock-handle-setter", CVAR, &YtimeSlockYlock_handle_setter}, {"lock-name", CVAR, &YtimeSlockYlock_name}, {"%lock-create", PVAR, NULL}, {"lock-state", CVAR, &YtimeSlockYlock_state}, {"", CVAR, &YtimeSlockYLlockG}, {"lock-handle", CVAR, &YtimeSlockYlock_handle}, {"%lock-unlock", PVAR, NULL}, {"lock-state-setter", CVAR, &YtimeSlockYlock_state_setter}, {"%lock-try-lock", PVAR, NULL}, {"---main-0---", PVAR, NULL}, {"%lock-destroy", PVAR, NULL}, {"with-lock", PVAR, NULL}, {"lock-lock", CVAR, &YtimeSlockYlock_lock}, {"lock-unlock", CVAR, &YtimeSlockYlock_unlock}, {"lock-destroy", CVAR, &YtimeSlockYlock_destroy}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"lock-state", NULL}, {"", NULL}, {"lock-handle", NULL}, {"lock-lock", NULL}, {"with-lock", NULL}, {"lock-unlock", NULL}, {"lock-destroy", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_timeSlock; MODULE_INFO module_info_timeSlock = { "time/lock", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_timeSthreads (void); /* EXPRESSION: */ extern void load_module_timeSlock (void); void load_module_timeSlock (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_timeSthreads(); (P)YtimeSlockY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/c/g2c/time/threads.c0100644000175000017500000026626007756744567015411 0ustar vomjomvomjom/* GOO 2 C $REVISION: 0.120 $ */ #include "grt.h" static PSTR _mod = PNUL; static P sloc (int line) { if (_mod == PNUL) _mod = YPPsym((P)"time/threads"); return YPsrc_loc(YPib((P)line), _mod); } /* MODULE ENVIRONMENT: time/threads */ EXT(YgooScolsScolYfoldA,"goo/cols/col","fold+"); EXT(YgooSmacrosYnapp,"goo/macros","napp"); EXT(Yupdate_instance_for_changed_class,"goo/boot","update-instance-for-changed-class"); EXT(Yproperty_not_found_error,"goo/boot","property-not-found-error"); EXT(YgooSmagYLE,"goo/mag","<="); EXT(YgooSmacrosY2nd,"goo/macros","2nd"); EXT(YgooSmathYround,"goo/math","round"); EXT(YPsymbols,"goo/boot","%symbols"); EXT(Yhead_setter,"goo/boot","head-setter"); EXT(YgooSclassYfab_class,"goo/class","fab-class"); EXT(YgooScolsScolxYzapX,"goo/cols/colx","zap!"); EXT(YsubtypeQ,"goo/boot","subtype?"); EXT(YgooScolsStabYtab_growth_threshold,"goo/cols/tab","tab-growth-threshold"); EXT(YgooSioSportYLfile_out_portG,"goo/io/port",""); EXT(Yclass_ancestors_setter,"goo/boot","class-ancestors-setter"); EXT(YgooSioSportYLstr_out_portG,"goo/io/port",""); EXT(YPrnul,"goo/boot","%rnul"); EXT(YgooSioSportYLfile_portG,"goo/io/port",""); EXT(YgooSfunYfun_val,"goo/fun","fun-val"); EXT(YgooStypesYall2Q,"goo/types","all2?"); DYNEXT(YgooSioSwriteYTmax_print_depthT,"goo/io/write","*max-print-depth*"); EXT(YLsymG,"goo/boot",""); EXT(Yclass_parents_setter,"goo/boot","class-parents-setter"); EXT(YgooScolsSseqxYdel_valsX,"goo/cols/seqx","del-vals!"); EXT(YgooSmacrosYnulQ,"goo/macros","nul?"); EXT(YgooSmathYN,"goo/math","~"); EXT(YgooSconditionsYbuild_condition_for_handler_interactively,"goo/conditions","build-condition-for-handler-interactively"); EXT(YgooSmathYnum_to_str,"goo/math","num-to-str"); EXT(Yfun_mets,"goo/boot","fun-mets"); EXT(YgooSmacrosYpair,"goo/macros","pair"); EXT(YgooScolsSseqYpick,"goo/cols/seq","pick"); EXT(Ygen_cache_arg_pos,"goo/boot","gen-cache-arg-pos"); EXT(YgooSconditionsYLas_errorG,"goo/conditions",""); EXT(YgooScolsSseqYsort_byX,"goo/cols/seq","sort-by!"); EXT(YgooSioSwriteYpost,"goo/io/write","post"); EXT(Yhead,"goo/boot","head"); EXT(YgooSmathYS,"goo/math","/"); EXT(YgooScolsSseqxYpushX,"goo/cols/seqx","push!"); EXT(YgooSmacrosYEE,"goo/macros","=="); EXT(YgooSconditionsYmacro_error_arguments,"goo/conditions","macro-error-arguments"); EXT(YLstrG,"goo/boot",""); EXT(YgooSfunYhandler_info_message,"goo/fun","handler-info-message"); EXT(YgooSconditionsYsig,"goo/conditions","sig"); DEF(YtimeSthreadsYsleep,"time/threads","sleep"); EXT(YOsubtypeQ,"goo/boot","@subtype?"); EXT(Yclass_ancestors,"goo/boot","class-ancestors"); EXT(YgooSmacrosY1st,"goo/macros","1st"); EXT(YgooSmathYceil,"goo/math","ceil"); EXT(YTboot_macro_module_namesT,"goo/boot","*boot-macro-module-names*"); EXT(YgooSioSportYport_index,"goo/io/port","port-index"); EXT(YPsnul,"goo/boot","%snul"); EXT(YgooSconditionsYLarity_errorG,"goo/conditions",""); EXT(YTrestarts_okQT,"goo/boot","*restarts-ok?*"); EXT(YgooSconditionsYLsimple_errorG,"goo/conditions",""); EXT(YgooScolsSrangeYLrangeG,"goo/cols/range",""); EXT(YgooSmacrosYmacro_error,"goo/macros","macro-error"); EXT(YgooSfunYPdefine_method,"goo/fun","%define-method"); EXT(Yorder_specs,"goo/boot","order-specs"); EXT(YLtupG,"goo/boot",""); EXT(YgooSconditionsYrange_error_collection,"goo/conditions","range-error-collection"); EXT(YgooScolsStabYtab_shrink_threshold,"goo/cols/tab","tab-shrink-threshold"); EXT(YgooScolsScycleYLcycleG,"goo/cols/cycle",""); EXT(YgooSconditionsYLcall_errorG,"goo/conditions",""); EXT(YgooSmathYmodA,"goo/math","mod+"); EXT(YgooSmacrosYmatch_atom,"goo/macros","match-atom"); EXT(YgooScolsSseqxYsub_setter,"goo/cols/seqx","sub-setter"); EXT(YgooScolsStabYcase_insensitive_string_equal,"goo/cols/tab","case-insensitive-string-equal"); EXT(Yclass_gens_setter,"goo/boot","class-gens-setter"); EXT(YLfunG,"goo/boot",""); EXT(YgooScolsScolxYdelX,"goo/cols/colx","del!"); EXT(YgooSconditionsYdefault_handler_description,"goo/conditions","default-handler-description"); EXT(YgooScolsScolYlow_elt,"goo/cols/col","low-elt"); EXT(YgooScolsScolYfold,"goo/cols/col","fold"); DEF(YtimeSthreadsYthread_handle,"time/threads","thread-handle"); EXT(YLflatG,"goo/boot",""); EXT(YgooScolsScolYkeys,"goo/cols/col","keys"); EXT(YgooSlogYNEE,"goo/log","~=="); EXT(YgooSmathYB,"goo/math","&"); EXT(Yprop_owner,"goo/boot","prop-owner"); EXT(YgooSmathYfloor,"goo/math","floor"); EXT(YgooSclassYprop_value_setter,"goo/class","prop-value-setter"); EXT(YgooScolsSseqYdel_dups,"goo/cols/seq","del-dups"); EXT(Ykeyboard_interrupt,"goo/boot","keyboard-interrupt"); EXT(YgooSmacrosYrevX,"goo/macros","rev!"); EXT(YgooSconditionsYLconditionG,"goo/conditions",""); EXT(YgooSioSreadYread_from_string,"goo/io/read","read-from-string"); DEF(YtimeSthreadsYthread_name,"time/threads","thread-name"); EXT(YgooSmathYDe,"goo/math","$e"); EXT(YDmax_int,"goo/boot","$max-int"); EXT(Yclass_gens,"goo/boot","class-gens"); EXT(YgooSmathYT,"goo/math","*"); EXT(YgooScolsSseqYany2Q,"goo/cols/seq","any2?"); EXT(YgooSconditionsYLsimple_conditionG,"goo/conditions",""); EXT(YgooScolsScolYelts,"goo/cols/col","elts"); EXT(YgooScolsSseqYpop,"goo/cols/seq","pop"); EXT(YPtrue,"goo/boot","%true"); EXT(YPmet_prop_len,"goo/boot","%met-prop-len"); EXT(Yclass_id,"goo/boot","class-id"); EXT(YgooScolsSlstYLlistG,"goo/cols/lst",""); EXT(YgooSfunctionalYcurry,"goo/functional","curry"); EXT(YgooScolsSstrYnum_to_str_base,"goo/cols/str","num-to-str-base"); EXT(Ylst,"goo/boot","lst"); EXT(YOall2Q,"goo/boot","@all2?"); EXT(YgooSioSportYLportG,"goo/io/port",""); DYNEXT(YgooSioSwriteYTmax_print_lengthT,"goo/io/write","*max-print-length*"); EXT(YgooSconditionsYLproperty_not_found_errorG,"goo/conditions",""); EXT(Yclass_prop_len_setter,"goo/boot","class-prop-len-setter"); EXT(YgooScolsStabYcase_insensitive_string_hash,"goo/cols/tab","case-insensitive-string-hash"); EXT(YgooScolsScolYLenumG,"goo/cols/col",""); EXT(YLlstG,"goo/boot",""); EXT(YgooSmathY1_,"goo/math","1-"); DEF(YtimeSthreadsYthread_function,"time/threads","thread-function"); EXT(YgooScolsSseqYsplit,"goo/cols/seq","split"); EXT(YgooSmathYmod,"goo/math","mod"); EXT(YgooScolsSseqxYpopX,"goo/cols/seqx","pop!"); EXT(YgooSioSportYputs,"goo/io/port","puts"); EXT(YgooSconditionsYLreturn_type_errorG,"goo/conditions",""); DEF(YtimeSthreadsYthread_yield,"time/threads","thread-yield"); EXT(Ysig_unification_vars_setter,"goo/boot","sig-unification-vars-setter"); EXT(YgooSconditionsYcall_error_function,"goo/conditions","call-error-function"); EXT(YPfalse,"goo/boot","%false"); EXT(YgooSmacrosYfab_setter_name,"goo/macros","fab-setter-name"); DEF(YtimeSthreadsYthread_priority,"time/threads","thread-priority"); EXT(YgooScolsSseqYpos,"goo/cols/seq","pos"); EXT(Yfun_env,"goo/boot","fun-env"); EXT(YgooSchrYeof_objectQ,"goo/chr","eof-object?"); EXT(YgooSfunYfun_arity,"goo/fun","fun-arity"); EXT(Yfun_info_src_loc_setter,"goo/boot","fun-info-src-loc-setter"); EXT(YgooScolsScolYallQ,"goo/cols/col","all?"); EXT(YLseqXG,"goo/boot",""); EXT(YgooScolsScolYkey_test,"goo/cols/col","key-test"); EXT(YgooSlogYNE,"goo/log","~="); EXT(Ygen_cache_missableQ,"goo/boot","gen-cache-missable?"); EXT(YgooSmathYC,"goo/math","^"); EXT(YgooSioSwriteYwrite,"goo/io/write","write"); EXT(YgooSpackerYLpackerG,"goo/packer",""); EXT(Ytup,"goo/boot","tup"); EXT(YgooSmathYlogn,"goo/math","logn"); EXT(Ynarity_error,"goo/boot","narity-error"); EXT(YgooSconditionsYLunbound_errorG,"goo/conditions",""); EXT(Yfun_info_inlineableQ_setter,"goo/boot","fun-info-inlineable?-setter"); EXT(YOallQ,"goo/boot","@all?"); EXT(Ysrc_loc_file,"goo/boot","src-loc-file"); EXT(YLfun_infoG,"goo/boot",""); EXT(YOelt,"goo/boot","@elt"); EXT(YgooScolsScolxYeltX,"goo/cols/colx","elt!"); EXT(YgooSioSportYLout_portG,"goo/io/port",""); EXT(YOopts_as_lst,"goo/boot","@opts-as-lst"); EXT(YOdel_dups,"goo/boot","@del-dups"); EXT(Ysig_naryQ,"goo/boot","sig-nary?"); EXT(YOtype_equalQ,"goo/boot","@type-equal?"); EXT(YgooSclassYPprop,"goo/class","%prop"); EXT(YgooSclassYprop_boundQ,"goo/class","prop-bound?"); EXT(YgooSmathYlog,"goo/math","log"); EXT(YgooScolsScolYcol_res_type,"goo/cols/col","col-res-type"); EXT(YOdo,"goo/boot","@do"); EXT(Yopts_location,"goo/boot","opts-location"); EXT(YgooSconditionsYLarithmetic_errorG,"goo/conditions",""); EXT(Yopts_tup_storage,"goo/boot","opts-tup-storage"); EXT(YLseqIG,"goo/boot",""); EXT(YgooScolsSmapYLmapG,"goo/cols/map",""); EXT(YLgen_cacheG,"goo/boot",""); EXT(YgooSconditionsYLproperty_unbound_errorG,"goo/conditions",""); EXT(YLmetG,"goo/boot",""); EXT(Yfun_info_src_loc,"goo/boot","fun-info-src-loc"); EXT(YgooStypesYtQ,"goo/types","t?"); EXT(Yfile_opening_error,"goo/boot","file-opening-error"); DEF(YtimeSthreadsYLthreadG,"time/threads",""); EXT(YgooSchrYdigitQ,"goo/chr","digit?"); EXT(Yfun_info_inlineableQ,"goo/boot","fun-info-inlineable?"); EXT(YgooSmacrosYmap2,"goo/macros","map2"); EXT(YLseqG,"goo/boot",""); EXT(YgooScolsScolYkey_type,"goo/cols/col","key-type"); DEF(YtimeSthreadsYtest_thread_1,"time/threads","test-thread-1"); EXT(YgooSmathYdiv,"goo/math","div"); EXT(YgooSmacrosYmatch_unquote,"goo/macros","match-unquote"); EXT(YgooSioSportYLstr_in_portG,"goo/io/port",""); EXT(Yproduct_elts,"goo/boot","product-elts"); EXT(YgooScolsSstepYLeachG,"goo/cols/step",""); EXT(YgooSconditionsYLinternal_errorG,"goo/conditions",""); EXT(YgooSmathYsqrt,"goo/math","sqrt"); EXT(YgooScolsScolYitems,"goo/cols/col","items"); EXT(YgooSconditionsYunbound_variable_error_variable,"goo/conditions","unbound-variable-error-variable"); EXT(YgooStypesYanyQ,"goo/types","any?"); EXT(YLcolXG,"goo/boot",""); EXT(YgooSmathYK,"goo/math","|"); EXT(YOnew,"goo/boot","@new"); EXT(YOmemQ,"goo/boot","@mem?"); EXT(YgooSfunYord_app_mets,"goo/fun","ord-app-mets"); EXT(YgooSconditionsYfab_handler,"goo/conditions","fab-handler"); EXT(YgooSconditionsYchoose_handler,"goo/conditions","choose-handler"); EXT(YgooSconditionsYLio_errorG,"goo/conditions",""); EXT(YgooScolsScolxYaddX,"goo/cols/colx","add!"); EXT(YgooSconditionsYLunbound_variable_errorG,"goo/conditions",""); EXT(YgooSchrYalphaQ,"goo/chr","alpha?"); EXT(YgooScolsSzipYLzipG,"goo/cols/zip",""); EXT(YgooSmathY_,"goo/math","-"); EXT(YLsigG,"goo/boot",""); EXT(Yassert_error,"goo/boot","assert-error"); EXT(YgooScolsSseqYins,"goo/cols/seq","ins"); EXT(YgooStypesYtL,"goo/types","t<"); EXT(YLcolIG,"goo/boot",""); EXT(YgooSmathYflo_bits,"goo/math","flo-bits"); EXT(YgooScolsScolYelt_default,"goo/cols/col","elt-default"); DEF(YtimeSthreadsYthread_current,"time/threads","thread-current"); EXT(YgooSmacrosYgensym,"goo/macros","gensym"); EXT(YtT,"goo/boot","t*"); EXT(Yclass_direct_props_setter,"goo/boot","class-direct-props-setter"); EXT(YgooScolsSrangeYrange,"goo/cols/range","range"); EXT(YgooSclassYprop_value,"goo/class","prop-value"); EXT(YOpick,"goo/boot","@pick"); EXT(Yfun_info_names,"goo/boot","fun-info-names"); EXT(YgooScolsScolYelt_type,"goo/cols/col","elt-type"); EXT(YgooScolsScycleYcycle,"goo/cols/cycle","cycle"); EXT(YgooSconditionsYDdefault_handler_info,"goo/conditions","$default-handler-info"); EXT(Yopts_count,"goo/boot","opts-count"); EXT(YgooSconditionsYLproperty_errorG,"goo/conditions",""); EXT(YgooSioSportYput,"goo/io/port","put"); DEF(YtimeSthreadsYthread_handle_setter,"time/threads","thread-handle-setter"); EXT(YgooSioSportYreadyQ,"goo/io/port","ready?"); EXT(YLcolG,"goo/boot",""); EXT(YgooSmathYabs,"goo/math","abs"); EXT(Yclass_direct_props,"goo/boot","class-direct-props"); EXT(YgooScolsSstepYLstepG,"goo/cols/step",""); EXT(YgooSmacrosYmap,"goo/macros","map"); EXT(YgooSmathYatan2,"goo/math","atan2"); EXT(Ysym_name,"goo/boot","sym-name"); EXT(YgooSchrYto_digit,"goo/chr","to-digit"); EXT(Ymay_isaQ,"goo/boot","may-isa?"); EXT(Ysrc_loc_line,"goo/boot","src-loc-line"); EXT(YgooSfunYfun_naryQ,"goo/fun","fun-nary?"); EXT(YgooSconditionsYfile_opening_error_filename,"goo/conditions","file-opening-error-filename"); EXT(YgooScolsScolYfill,"goo/cols/col","fill"); EXT(YgooSconditionsYLno_applicable_methods_errorG,"goo/conditions",""); EXT(YLrepG,"goo/boot",""); EXT(YgooSioSwriteYwrite_to_string,"goo/io/write","write-to-string"); EXT(YgooSfunctionalYrcurry,"goo/functional","rcurry"); EXT(YgooSmathY1A,"goo/math","1+"); EXT(YgooScolsSstrYstr_to_num,"goo/cols/str","str-to-num"); EXT(YOrevX,"goo/boot","@rev!"); EXT(YgooStypesYtE,"goo/types","t="); EXT(YgooSclassYadd_prop,"goo/class","add-prop"); EXT(YgooSlocYas_c,"goo/loc","as-c"); EXT(YPprop_unbound_error,"goo/boot","%prop-unbound-error"); EXT(YgooScolsScolYmemQ,"goo/cols/col","mem?"); EXT(Yclass_children_setter,"goo/boot","class-children-setter"); EXT(YgooSioSportYport_contents,"goo/io/port","port-contents"); EXT(YgooScolsSseqYdo3,"goo/cols/seq","do3"); EXT(YLlocG,"goo/boot",""); EXT(Yprop_init,"goo/boot","prop-init"); EXT(YgooSmathYneg,"goo/math","neg"); EXT(YgooSioSportYLin_portG,"goo/io/port",""); EXT(Yclass_forward_setter,"goo/boot","class-forward-setter"); EXT(YgooSconditionsYLfile_opening_errorG,"goo/conditions",""); EXT(YgooScolsSseqYrepeat,"goo/cols/seq","repeat"); EXT(Yreturn_type_error,"goo/boot","return-type-error"); EXT(YgooScolsSseqYprefixQ,"goo/cols/seq","prefix?"); EXT(YgooSmathYatan,"goo/math","atan"); EXT(YgooSchrYto_upper,"goo/chr","to-upper"); EXT(YgooScolsSseqxYcatX,"goo/cols/seqx","cat!"); EXT(YOmap,"goo/boot","@map"); DYNEXT(YgooSconditionsYTcurrent_handlersT,"goo/conditions","*current-handlers*"); EXT(YLfloG,"goo/boot",""); EXT(YgooSmathYisqrt,"goo/math","isqrt"); EXT(YgooScolsScolYinto,"goo/cols/col","into"); EXT(Yunion_elts,"goo/boot","union-elts"); EXT(YgooSconditionsYproperty_error_owner,"goo/conditions","property-error-owner"); EXT(Yclass_children,"goo/boot","class-children"); EXT(YgooSfunYgen_add_met,"goo/fun","gen-add-met"); EXT(YgooSfunYfun_names,"goo/fun","fun-names"); EXT(Yfun_info_setter,"goo/boot","fun-info-setter"); EXT(YPwith_monitor,"goo/boot","%with-monitor"); EXT(YgooScolsScolYmap_keyed,"goo/cols/col","map-keyed"); EXT(Yclass_forward,"goo/boot","class-forward"); EXT(YOlit,"goo/boot","@lit"); EXT(YgooSchrYfabs,"goo/chr","fabs"); EXT(YOOnulQ,"goo/boot","@@nul?"); EXT(YLbignumG,"goo/boot",""); EXT(YgooSpackerYpacker_res,"goo/packer","packer-res"); EXT(YgooSmathYnegQ,"goo/math","neg?"); EXT(YgooSconditionsYLunknown_function_errorG,"goo/conditions",""); EXT(YgooSconditionsYread,"goo/conditions","read"); EXT(YgooSmathYroundS,"goo/math","round/"); EXT(YgooSioSportYforce_out,"goo/io/port","force-out"); EXT(YgooScolsSzipYunzip,"goo/cols/zip","unzip"); EXT(YgooSioSportYpeek,"goo/io/port","peek"); EXT(YgooScolsScolxYelt_setter,"goo/cols/colx","elt-setter"); EXT(YgooStypesYtA,"goo/types","t+"); EXT(YgooScolsScolYelt_or,"goo/cols/col","elt-or"); EXT(Ysig_specs_setter,"goo/boot","sig-specs-setter"); EXT(YOtup,"goo/boot","@tup"); EXT(YgooSmathYacos,"goo/math","acos"); EXT(YgooSconditionsYLserious_conditionG,"goo/conditions",""); EXT(YgooSchrYto_lower,"goo/chr","to-lower"); EXT(YgooSmacrosYdo,"goo/macros","do"); DYNEXT(YgooScolsSstrYTprint_baseT,"goo/cols/str","*print-base*"); EXT(YgooScolsSlstYlist,"goo/cols/lst","list"); EXT(YgooScolsSseqYdo2,"goo/cols/seq","do2"); EXT(Yfun_info,"goo/boot","fun-info"); EXT(YTmacros_okQT,"goo/boot","*macros-ok?*"); EXT(YgooSmacrosYmatch_nul_list,"goo/macros","match-nul-list"); EXT(YgooSlocYloc_val_setter,"goo/loc","loc-val-setter"); EXT(YOcat2,"goo/boot","@cat2"); EXT(YgooScolsScolYnxt,"goo/cols/col","nxt"); EXT(YLpropG,"goo/boot",""); EXT(Yfun_info_names_setter,"goo/boot","fun-info-names-setter"); EXT(YgooSanyYaddress_of,"goo/any","address-of"); EXT(YgooSmacrosYOchecked_next_methods,"goo/macros","@checked-next-methods"); EXT(YgooSconditionsYdescribe_handler,"goo/conditions","describe-handler"); EXT(Yfun_info_count_setter,"goo/boot","fun-info-count-setter"); EXT(YgooScolsSvecYLvecG,"goo/cols/vec",""); EXT(YgooScolsSstrYstr,"goo/cols/str","str"); EXT(YgooSconditionsYrange_error_key,"goo/conditions","range-error-key"); EXT(YLintG,"goo/boot",""); EXT(YgooSmathYLL,"goo/math","<<"); EXT(YgooSmathYzeroQ,"goo/math","zero?"); EXT(YgooScolsSstepYeach,"goo/cols/step","each"); EXT(YgooSfunYmet_appQ,"goo/fun","met-app?"); EXT(Yprop_offset,"goo/boot","prop-offset"); EXT(YgooSconditionsYcondition_message,"goo/conditions","condition-message"); EXT(YgooScolsScolYnow_key,"goo/cols/col","now-key"); EXT(YgooScolsSseqYsubT,"goo/cols/seq","sub*"); EXT(Ynot,"goo/boot","not"); EXT(Ysig_val,"goo/boot","sig-val"); EXT(YgooSmacrosYvar_type,"goo/macros","var-type"); EXT(Yapp_args,"goo/boot","app-args"); EXT(YgooSmacrosYcat_sym,"goo/macros","cat-sym"); EXT(YgooSioSportYclose,"goo/io/port","close"); EXT(YgooScolsScolYdo_keyed,"goo/cols/col","do-keyed"); EXT(YgooSmathYasin,"goo/math","asin"); EXT(YgooSconditionsYLcompiler_errorG,"goo/conditions",""); EXT(YgooSchrYupperQ,"goo/chr","upper?"); EXT(YgooScolsScolYzap,"goo/cols/col","zap"); EXT(YgooScolsSseqYdel_vals,"goo/cols/seq","del-vals"); EXT(YgooSconditionsYLnarity_errorG,"goo/conditions",""); EXT(YgooSfunYfun_specs,"goo/fun","fun-specs"); EXT(YLproductG,"goo/boot",""); EXT(YgooSfunYhandler_info_arguments,"goo/fun","handler-info-arguments"); EXT(YLnumG,"goo/boot",""); EXT(YgooSpackerYpacker_add,"goo/packer","packer-add"); EXT(Yno_next_methods_error,"goo/boot","no-next-methods-error"); EXT(Yfun_info_count,"goo/boot","fun-info-count"); EXT(YgooScolsScolxYlow_elt_setter,"goo/cols/colx","low-elt-setter"); EXT(YgooScolsScolYnow,"goo/cols/col","now"); EXT(Yproperty_unbound_error,"goo/boot","property-unbound-error"); EXT(YgooSmacrosYelt,"goo/macros","elt"); EXT(Yprop_type,"goo/boot","prop-type"); EXT(YgooSconditionsYLproperty_type_errorG,"goo/conditions",""); EXT(YgooSmathYceilS,"goo/math","ceil/"); EXT(YOrev,"goo/boot","@rev"); EXT(Yfab_sym,"goo/boot","fab-sym"); EXT(YgooSconditionsYinvoke_handler_interactively,"goo/conditions","invoke-handler-interactively"); EXT(YgooSioSportYout,"goo/io/port","out"); EXT(YgooScolsScolYcol,"goo/cols/col","col"); EXT(Yapp_filename,"goo/boot","app-filename"); EXT(YgooSmathYposQ,"goo/math","pos?"); EXT(YgooSclassYclone,"goo/class","clone"); EXT(YgooScolsSseqYpush,"goo/cols/seq","push"); EXT(Yfab_pair,"goo/boot","fab-pair"); EXT(YgooScolsSzipYzip,"goo/cols/zip","zip"); EXT(YgooSconditionsYLstack_overflowG,"goo/conditions",""); EXT(YLunionG,"goo/boot",""); EXT(YgooSfunYLsimple_handler_infoG,"goo/fun",""); EXT(YgooStypesYas,"goo/types","as"); EXT(Ytype_class,"goo/boot","type-class"); EXT(YgooSlocYloc_val,"goo/loc","loc-val"); EXT(YgooSmathYtanh,"goo/math","tanh"); EXT(Yprops_of,"goo/boot","props-of"); EXT(YgooSchrYlowerQ,"goo/chr","lower?"); EXT(YgooSioSportYnewline,"goo/io/port","newline"); EXT(YPdispatch,"goo/boot","%dispatch"); EXT(YgooSioSportYgets,"goo/io/port","gets"); EXT(Ysyntax_error,"goo/boot","syntax-error"); EXT(YgooSmathYGGG,"goo/math",">>>"); EXT(YgooSioSwriteYsay,"goo/io/write","say"); DEF(YtimeSthreadsYmain_thread_key,"time/threads","main-thread-key"); EXT(YPPmacro,"goo/boot","%%macro"); EXT(Yargument_type_error,"goo/boot","argument-type-error"); EXT(YgooSconditionsYcall_error_arguments,"goo/conditions","call-error-arguments"); EXT(YgooSpackerYpacker_fab,"goo/packer","packer-fab"); EXT(YgooStypesYlen,"goo/types","len"); EXT(YgooSfunYfun_name,"goo/fun","fun-name"); EXT(YTearly_classesT,"goo/boot","*early-classes*"); EXT(Ytail_setter,"goo/boot","tail-setter"); EXT(YOOEE,"goo/boot","@@=="); EXT(YgooScolsScolYdel,"goo/cols/col","del"); EXT(YLsubclassG,"goo/boot",""); EXT(YLchrG,"goo/boot",""); EXT(Yclass_props_setter,"goo/boot","class-props-setter"); EXT(Yerror,"goo/boot","error"); EXT(YgooScolsSseqYfinds,"goo/cols/seq","finds"); EXT(Yproperty_type_error,"goo/boot","property-type-error"); EXT(YgooSconditionsYLsyntax_errorG,"goo/conditions",""); EXT(YgooScolsSstepYfirst_then,"goo/cols/step","first-then"); EXT(YgooScolsSseqYsuffixQ,"goo/cols/seq","suffix?"); EXT(YgooScolsScolxYfillX,"goo/cols/colx","fill!"); EXT(YgooSmathYA,"goo/math","+"); EXT(Ygen_cache_classes,"goo/boot","gen-cache-classes"); EXT(YgooSconditionsYLrestartG,"goo/conditions",""); EXT(YgooSanyYto_str,"goo/any","to-str"); EXT(Yfun_cache,"goo/boot","fun-cache"); EXT(YgooScolsScolYnow_setter,"goo/cols/col","now-setter"); EXT(YgooSmathYcosh,"goo/math","cosh"); EXT(Yno_applicable_methods_error,"goo/boot","no-applicable-methods-error"); EXT(YgooScolsScolYfinQ,"goo/cols/col","fin?"); EXT(YgooScolsStabYLstr_tabG,"goo/cols/tab",""); EXT(Ybox_value_setter,"goo/boot","box-value-setter"); EXT(YgooSconditionsYLkeyboard_interruptG,"goo/conditions",""); EXT(YgooSmathYoddQ,"goo/math","odd?"); EXT(YLmagG,"goo/boot",""); EXT(YgooSconditionsYdefault_handler,"goo/conditions","default-handler"); EXT(YgooScolsScolYemptyQ,"goo/cols/col","empty?"); EXT(YDmin_int,"goo/boot","$min-int"); EXT(YgooSmagYmax,"goo/mag","max"); EXT(Yclass_parents,"goo/boot","class-parents"); EXT(Yfun_sig_setter,"goo/boot","fun-sig-setter"); EXT(YgooSfunctionalYcompose,"goo/functional","compose"); EXT(YgooSconditionsYcondition_arguments,"goo/conditions","condition-arguments"); EXT(Ytail,"goo/boot","tail"); EXT(YgooSclassYclass_of,"goo/class","class-of"); EXT(YgooScolsSseqYcat2,"goo/cols/seq","cat2"); EXT(YLsingletonG,"goo/boot",""); EXT(YgooScolsScolYfab,"goo/cols/col","fab"); EXT(YgooSlocYas_goo,"goo/loc","as-goo"); EXT(YgooSconditionsYLassert_errorG,"goo/conditions",""); EXT(Yclass_props,"goo/boot","class-props"); EXT(YgooSconditionsYLmacro_errorG,"goo/conditions",""); EXT(Ystack_overflow_error,"goo/boot","stack-overflow-error"); EXT(YOtall2Q,"goo/boot","@tall2?"); EXT(YgooScolsScolYenum,"goo/cols/col","enum"); EXT(YOanyQ,"goo/boot","@any?"); EXT(YgooSioSportYopen,"goo/io/port","open"); EXT(YgooScolsSseqxYsortX,"goo/cols/seqx","sort!"); EXT(YgooSconditionsYLargument_type_errorG,"goo/conditions",""); EXT(YgooSmathYpow,"goo/math","pow"); EXT(Ycpl_error,"goo/boot","cpl-error"); EXT(YLopts_tupG,"goo/boot",""); EXT(YgooSioSwriteYemit,"goo/io/write","emit"); EXT(YgooScolsScolYempty,"goo/cols/col","empty"); EXT(YgooSmagYG,"goo/mag",">"); EXT(Yunknown_function_error,"goo/boot","unknown-function-error"); DEF(YtimeSthreadsYtest_thread_2,"time/threads","test-thread-2"); EXT(YLboxG,"goo/boot",""); EXT(YgooSmacrosYmatch_sublist,"goo/macros","match-sublist"); EXT(YgooSconditionsYtype_error_type,"goo/conditions","type-error-type"); EXT(Yfun_sig,"goo/boot","fun-sig"); EXT(Yclass_mets_setter,"goo/boot","class-mets-setter"); EXT(YgooSmathYsinh,"goo/math","sinh"); EXT(YgooSconditionsYLno_next_methods_errorG,"goo/conditions",""); EXT(YgooScolsScolYfind,"goo/cols/col","find"); EXT(Yarity_error,"goo/boot","arity-error"); EXT(YgooScolsStabYid_hash,"goo/cols/tab","id-hash"); EXT(YgooSmathYevenQ,"goo/math","even?"); EXT(Yprop_setter,"goo/boot","prop-setter"); EXT(YgooSmathYfloorS,"goo/math","floor/"); EXT(YgooSconditionsYhandler_matchesQ,"goo/conditions","handler-matches?"); EXT(YgooSioSwriteYpe_msg,"goo/io/write","pe-msg"); EXT(YgooSmagYL,"goo/mag","<"); EXT(Ybox_value,"goo/boot","box-value"); EXT(YgooScolsScolYdup,"goo/cols/col","dup"); EXT(YgooScolsStabYLsetG,"goo/cols/tab",""); EXT(YLlogG,"goo/boot",""); EXT(YgooScolsScolYLtabG,"goo/cols/col",""); EXT(YgooSconditionsYlist_handlers,"goo/conditions","list-handlers"); EXT(YgooScolsSseqYreject,"goo/cols/seq","reject"); EXT(YgooSmathYDpi,"goo/math","$pi"); EXT(YgooSioSportYLstr_portG,"goo/io/port",""); EXT(YgooScolsSseqYjoin,"goo/cols/seq","join"); EXT(YgooScolsSseqxYsubT_setter,"goo/cols/seqx","sub*-setter"); EXT(Ytype_object,"goo/boot","type-object"); EXT(YgooSconditionsYLerrorG,"goo/conditions",""); EXT(YgooSfunYLreplace_generic_restartG,"goo/fun",""); EXT(YOfold,"goo/boot","@fold"); EXT(Yclass_mets,"goo/boot","class-mets"); EXT(YLoptsG,"goo/boot",""); EXT(YgooScolsScolxYlenSfill_setter,"goo/cols/colx","len/fill-setter"); EXT(YgooSlogYE,"goo/log","="); EXT(Ynul_prop,"goo/boot","nul-prop"); EXT(YgooScolsSseqxYdel_dupsX,"goo/cols/seqx","del-dups!"); EXT(YLanyG,"goo/boot",""); EXT(Yclass_prop_len,"goo/boot","class-prop-len"); EXT(Yunexec,"goo/boot","unexec"); EXT(YgooSconditionsYmsg,"goo/conditions","msg"); EXT(YOtanyQ,"goo/boot","@tany?"); EXT(YgooSmathYtan,"goo/math","tan"); EXT(YgooSmacrosYcat,"goo/macros","cat"); EXT(YLsrc_locG,"goo/boot",""); EXT(YgooScolsStabYtab_hash,"goo/cols/tab","tab-hash"); EXT(YgooScolsSrangeYfrom,"goo/cols/range","from"); EXT(YgooSioSwriteYwriteln,"goo/io/write","writeln"); EXT(Yambiguous_method_error,"goo/boot","ambiguous-method-error"); EXT(YgooSpackerYpacker,"goo/packer","packer"); EXT(Ynew,"goo/boot","new"); EXT(YgooSmathYrem,"goo/math","rem"); EXT(YgooScolsStabYtab_growth_factor,"goo/cols/tab","tab-growth-factor"); EXT(YgooSmathYtrunc,"goo/math","trunc"); EXT(YTboot_macro_namesT,"goo/boot","*boot-macro-names*"); EXT(YgooSconditionsYLhandlerG,"goo/conditions",""); EXT(Ysig_arity_setter,"goo/boot","sig-arity-setter"); EXT(YgooSioSportYport_line,"goo/io/port","port-line"); EXT(YgooSconditionsYmsg_to_str,"goo/conditions","msg-to-str"); EXT(YgooSconditionsYLtype_errorG,"goo/conditions",""); EXT(YgooSmathYtruncS,"goo/math","trunc/"); EXT(Yfun_info_name_setter,"goo/boot","fun-info-name-setter"); EXT(YgooScolsSseqYbelow,"goo/cols/seq","below"); EXT(Yas_error,"goo/boot","as-error"); EXT(Ygen_cache_singletons,"goo/boot","gen-cache-singletons"); EXT(YgooSmathYGG,"goo/math",">>"); EXT(YgooSconditionsYdescribe_condition,"goo/conditions","describe-condition"); EXT(YDdirect_object_class,"goo/boot","$direct-object-class"); DEF(YtimeSthreadsYthread_join,"time/threads","thread-join"); EXT(YgooSioSportYin,"goo/io/port","in"); EXT(YgooSconditionsYbuild_condition_interactively,"goo/conditions","build-condition-interactively"); EXT(Ytype_error,"goo/boot","type-error"); EXT(YgooSmacrosYlast,"goo/macros","last"); EXT(YgooSclassYfind_setter,"goo/class","find-setter"); EXT(Yfun_info_src_setter,"goo/boot","fun-info-src-setter"); EXT(Yarithmetic_error,"goo/boot","arithmetic-error"); EXT(YgooScolsScolYadd,"goo/cols/col","add"); EXT(YPtnul,"goo/boot","%tnul"); EXT(YTboot_macro_expandersT,"goo/boot","*boot-macro-expanders*"); EXT(YgooSconditionsYproperty_error_generic,"goo/conditions","property-error-generic"); EXT(YPclasses_readyQ,"goo/boot","%classes-ready?"); EXT(YgooScolsScolYcol_res,"goo/cols/col","col-res"); EXT(YOlst,"goo/boot","@lst"); EXT(Yclass_name,"goo/boot","class-name"); EXT(YgooScolsSseqYsort_by,"goo/cols/seq","sort-by"); EXT(YgooSmathYcos,"goo/math","cos"); EXT(YgooScolsSseqYrev,"goo/cols/seq","rev"); EXT(YgooScolsScolYfind_or,"goo/cols/col","find-or"); EXT(YgooSfunctionalYidentity,"goo/functional","identity"); EXT(YgooSioSportYget,"goo/io/port","get"); EXT(Ysig_arity,"goo/boot","sig-arity"); EXT(Yinternal_error,"goo/boot","internal-error"); EXT(YgooSmagYGE,"goo/mag",">="); EXT(Yfun_info_name,"goo/boot","fun-info-name"); EXT(YgooScolsSseqYsub,"goo/cols/seq","sub"); EXT(YgooSmagYmin,"goo/mag","min"); EXT(YisaQ,"goo/boot","isa?"); EXT(YgooSioSportYLfile_in_portG,"goo/io/port",""); EXT(YgooSconditionsYLhandler_infoG,"goo/conditions",""); EXT(YLgenG,"goo/boot",""); EXT(Yfun_info_src,"goo/boot","fun-info-src"); EXT(Ynil,"goo/boot","nil"); EXT(YgooScolsSseqY3rd,"goo/cols/seq","3rd"); EXT(Yfun_code,"goo/boot","fun-code"); EXT(YgooSfunctionalYalways,"goo/functional","always"); EXT(YgooSconditionsYhandler_function,"goo/conditions","handler-function"); EXT(YgooScolsScolxYlen_setter,"goo/cols/colx","len-setter"); EXT(YLclassG,"goo/boot",""); EXT(YgooSmacrosYvar_name,"goo/macros","var-name"); EXT(Yprop_getter,"goo/boot","prop-getter"); EXT(YOmay_isaQ,"goo/boot","@may-isa?"); EXT(YgooScolsSvecYvec,"goo/cols/vec","vec"); EXT(YgooScolsSrangeYrange_by,"goo/cols/range","range-by"); EXT(YgooSmathYsin,"goo/math","sin"); EXT(YLfixnumG,"goo/boot",""); EXT(Yrange_error,"goo/boot","range-error"); EXT(YgooSconditionsYmacro_error_name,"goo/conditions","macro-error-name"); EXT(YgooScolsScolYnul,"goo/cols/col","nul"); EXT(Ysig_naryQ_setter,"goo/boot","sig-nary?-setter"); EXT(Ysig_specs,"goo/boot","sig-specs"); EXT(YgooSmathYbitQ,"goo/math","bit?"); EXT(Ysig_unification_vars,"goo/boot","sig-unification-vars"); EXT(Ysig_val_setter,"goo/boot","sig-val-setter"); EXT(YgooSconditionsYLambiguous_method_errorG,"goo/conditions",""); EXT(YgooSconditionsYtype_error_value,"goo/conditions","type-error-value"); EXT(YgooScolsSseqYsort,"goo/cols/seq","sort"); EXT(YLtypeG,"goo/boot",""); EXT(YgooSconditionsYLrange_errorG,"goo/conditions",""); EXT(Yfun_mets_setter,"goo/boot","fun-mets-setter"); EXT(Yclass_row,"goo/boot","class-row"); EXT(YgooSclassYfind_getter,"goo/class","find-getter"); /* FORWARD QUOTATIONS: */ DEFLIT(lit_13); DEFLIT(lit_36); DEFLIT(lit_7); DEFLIT(lit_23); DEFLIT(lit_16); DEFLIT(lit_4); DEFLIT(lit_32); DEFLIT(lit_34); DEFLIT(lit_21); DEFLIT(lit_6); DEFLIT(lit_26); DEFLIT(lit_12); DEFLIT(lit_2); DEFLIT(lit_30); DEFLIT(lit_38); DEFLIT(lit_9); DEFLIT(lit_3); DEFLIT(lit_15); DEFLIT(lit_17); DEFLIT(lit_10); DEFLIT(lit_37); DEFLIT(lit_33); DEFLIT(lit_31); DEFLIT(lit_28); DEFLIT(lit_11); DEFLIT(lit_5); DEFLIT(lit_35); DEFLIT(lit_27); DEFLIT(lit_0); DEFLIT(lit_39); DEFLIT(lit_19); DEFLIT(lit_18); DEFLIT(lit_24); DEFLIT(lit_29); DEFLIT(lit_1); DEFLIT(lit_8); DEFLIT(lit_25); DEFLIT(lit_20); DEFLIT(lit_14); DEFLIT(lit_22); /* FUNCTIONS: */ LOCFOR(fun_thread_name_0); LOCFOR(fun_1); LOCFOR(fun_thread_priority_2); LOCFOR(fun_3); LOCFOR(fun_thread_function_4); LOCFOR(fun_5); LOCFOR(fun_6); LOCFOR(fun_thread_handle_7); LOCFOR(fun_thread_handle_setter_8); LOCFOR(fun_thread_yield_9); FUNFOR(YtimeSthreadsYmain_thread_key); LOCFOR(fun_11); LOCFOR(fun_12); LOCFOR(fun_13); LOCFOR(fun_14); LOCFOR(fun_new_15); LOCFOR(fun_x_1924_16); LOCFOR(fun_17); LOCFOR(fun_18); LOCFOR(fun_sleep_19); LOCFOR(fun_thread_current_20); LOCFOR(fun_thread_join_21); LOCFOR(fun_22); FUNFOR(YtimeSthreadsYtest_thread_1); LOCFOR(fun_24); FUNFOR(YtimeSthreadsYtest_thread_2); extern P YtimeSthreadsY___main_0___ (); /* C-FORMS: */ /* FUNCTION CODES: */ LOCCODEDEF(fun_thread_name_0) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSthreadsYthread_name)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_1) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_thread_priority_2) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSthreadsYthread_priority)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_3) { P Ux_; LINK_STACK(); ARG(Ux_, 0); UNLINK_STACK(); QRET(YPint((P)0)); } LOCCODEDEF(fun_thread_function_4) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSthreadsYthread_function)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_5) { LINK_STACK(); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_6) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = fun_5; UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_thread_handle_7) { P Ux_; P T0; LINK_STACK(); ARG(Ux_, 0); T0 = CALL2(1,VARREF(YgooSclassYprop_value),Ux_,VARREF(YtimeSthreadsYthread_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_thread_handle_setter_8) { P Uz_,Ux_; P T0; LINK_STACK(); ARG(Uz_, 0); ARG(Ux_, 1); T0 = CALL3(1,VARREF(YgooSclassYprop_value_setter),Uz_,Ux_,VARREF(YtimeSthreadsYthread_handle)); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_thread_yield_9) { P T0; LINK_STACK(); T0 = (P)YtimeSthreadsYPthread_yield(); UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YtimeSthreadsYmain_thread_key) { LINK_STACK(); UNLINK_STACK(); QRET(YPfalse); } LOCCODEDEF(fun_11) { LINK_STACK(); UNLINK_STACK(); QRET(YPtrue); } LOCCODEDEF(fun_12) { P c_,r_; P T0,T1; LINK_STACK(); ARG(c_, 0); ARG(r_, 1); T1 = CALL1(1,VARREF(YgooSconditionsYdescribe_condition),c_); T0 = CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_20),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_13) { P T0,T1; LINK_STACK(); T1 = CALL1(1,VARREF(YtimeSthreadsYthread_function),FREEREF(0)); T0 = CALL0(1,T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_14) { P T0,T1,T2,T3; LINK_STACK(); DYNSET(YgooSconditionsYTcurrent_handlersT,Ynil); T1 = fun_11; T2 = fun_12; T3 = FUNFAB(fun_13,1,FREEREF(0)); T0 = XCALLN(1,YPwith_monitor,5,VARREF(YgooSconditionsYLconditionG),VARREF(YgooSconditionsYDdefault_handler_info),T1,T2,T3); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_new_15) { P x_,args_; P xF5324; P xF5323; P hF5322; P xF5321; P fF5320; P tF5319; P next_metsF5318; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; LINK_STACK(); ARG(x_, 0); NARGS(args_, 1); T14 = (P)YPfun_reg(); T15 = (P)YPnext_methods(); T13 = CALL4(1,VARREF(YgooSmacrosYOchecked_next_methods),T14,T15,x_,args_); next_metsF5318 = T13; T11 = CALL1(1,VARREF(Yhead),next_metsF5318); T12 = CALL1(1,VARREF(Ytail),next_metsF5318); T10 = CALL4(1,VARREF(YgooSmacrosYnapp),T11,T12,x_,args_); tF5319 = T10; T2 = CALL1(1,VARREF(YtimeSthreadsYthread_function),tF5319); T1 = CALL2(1,VARREF(YgooSmacrosYEE),T2,VARREF(YtimeSthreadsYmain_thread_key)); T0 = CALL1(1,VARREF(Ynot),T1); if (T0 != YPfalse) { T9 = FUNFAB(fun_14,1,tF5319); fF5320 = T9; T8 = CALL2(1,VARREF(Ytup),fF5320,tF5319); T7 = (P)YtimeSthreadsYPthread_create(T8); xF5321 = T7; T6 = (P)YPtag_into(xF5321,(P)3); hF5322 = T6; CALL2(1,VARREF(YtimeSthreadsYthread_handle_setter),hF5322,tF5319); T5 = CALL1(1,VARREF(YtimeSthreadsYthread_priority),tF5319); xF5323 = T5; xF5324 = xF5323; T4 = (P)YPiGG(xF5324,(P)2); T3 = (P)YtimeSthreadsYPthread_priority_setter(T4,hF5322); } else { } UNLINK_STACK(); RET(tF5319); } LOCCODEDEF(fun_x_1924_16) { P msg_,args_; P T0,T1; LINK_STACK(); ARG(msg_, 0); NARGS(args_, 1); T1 = CALL2(1,VARREF(YgooSmacrosYmacro_error),LITREF(lit_26),FREEREF(0)); T0 = CALL1(1,FREEREF(1),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_17) { P return_; P x_1923F5329; P x_1923F5328; P bodyF5327; P x_1923F5326; P x_1924F5325; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14; LINK_STACK(); ARG(return_, 0); T14 = FUNSHELL(0,fun_x_1924_16,2); x_1924F5325 = T14; FUNINIT(x_1924F5325, 2,FREEREF(0),return_); x_1923F5326 = FREEREF(0); bodyF5327 = YPfalse; T1 = CALL2(1,VARREF(YisaQ),x_1923F5326,VARREF(YLlstG)); if (T1 != YPfalse) { T3 = CALL3(1,VARREF(YgooSmacrosYmatch_atom),x_1923F5326,LITREF(lit_26),x_1924F5325); x_1923F5328 = T3; bodyF5327 = x_1923F5328; x_1923F5329 = Ynil; T2 = CALL2(1,VARREF(YgooSmacrosYmatch_nul_list),x_1923F5329,x_1924F5325); } else { T4 = CALL2(1,x_1924F5325,LITREF(lit_27),x_1923F5326); } T6 = CALL1(1,VARREF(Ylst),LITREF(lit_17)); T7 = CALL1(1,VARREF(Ylst),LITREF(lit_0)); T8 = CALL1(1,VARREF(Ylst),LITREF(lit_7)); T11 = CALL1(1,VARREF(Ylst),LITREF(lit_28)); T12 = CALL1(1,VARREF(Ylst),Ynil); T13 = bodyF5327; T10 = CALL4(1,VARREF(YgooSmacrosYcat),T11,T12,T13,LITREF(lit_29)); T9 = CALL1(1,VARREF(Ylst),T10); T5 = CALL5(1,VARREF(YgooSmacrosYcat),T6,T7,T8,T9,LITREF(lit_29)); UNLINK_STACK(); QRET(T5); } LOCCODEDEF(fun_18) { P exp_; P T0,T1; LINK_STACK(); ARG(exp_, 0); T1 = FUNFAB(fun_17,1,exp_); T0 = with_exit(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_sleep_19) { P secs_; P T0,T1; LINK_STACK(); ARG(secs_, 0); T1 = (P)YPfu(secs_); T0 = (P)YtimeSthreadsYPthread_sleep(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_thread_current_20) { P xF5330; P T0,T1,T2; LINK_STACK(); T2 = (P)YtimeSthreadsYPthread_current(); xF5330 = T2; T1 = (P)YPtag_into(xF5330,(P)3); T0 = (P)YtimeSthreadsYPthread_goo_thread(T1); UNLINK_STACK(); RET(T0); } LOCCODEDEF(fun_thread_join_21) { P t_; P xF5331; P T0,T1,T2; LINK_STACK(); ARG(t_, 0); T2 = CALL1(1,VARREF(YtimeSthreadsYthread_handle),t_); xF5331 = T2; T1 = (P)YPuntag_into(xF5331); T0 = (P)YtimeSthreadsYPthread_join(T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_22) { P iF5333; P x_1925F5332; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); T7 = CALL1(1,VARREF(YgooScolsSseqYbelow),YPint((P)3000)); T6 = CALL1(1,VARREF(YgooScolsScolYenum),T7); x_1925F5332 = T6; LOOP_259: { P a259_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1925F5332); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1925F5332); iF5333 = T5; CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_36),iF5333); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1925F5332); a259_0 = T4; x_1925F5332 = a259_0; goto LOOP_259; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YtimeSthreadsYtest_thread_1) { P T0,T1; LINK_STACK(); T1 = fun_22; T0 = CALL3(1,VARREF(Ynew),VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_function),T1); UNLINK_STACK(); QRET(T0); } LOCCODEDEF(fun_24) { P iF5335; P x_1927F5334; P T0,T1,T2,T3,T4,T5,T6,T7; LINK_STACK(); T7 = CALL1(1,VARREF(YgooScolsSseqYbelow),YPint((P)100)); T6 = CALL1(1,VARREF(YgooScolsScolYenum),T7); x_1927F5334 = T6; LOOP_260: { P a260_0; T2 = CALL1(1,VARREF(YgooScolsScolYfinQ),x_1927F5334); T1 = CALL1(1,VARREF(Ynot),T2); if (T1 != YPfalse) { T5 = CALL1(1,VARREF(YgooScolsScolYnow),x_1927F5334); iF5335 = T5; CALL2(1,VARREF(YgooSioSwriteYpost),LITREF(lit_38),iF5335); CALL1(1,VARREF(YtimeSthreadsYsleep),LITREF(lit_39)); T4 = CALL1(1,VARREF(YgooScolsScolYnxt),x_1927F5334); a260_0 = T4; x_1927F5334 = a260_0; goto LOOP_260; T0 = T3; } else { T0 = YPfalse; } } UNLINK_STACK(); QRET(T0); } FUNCODEDEF(YtimeSthreadsYtest_thread_2) { P T0,T1; LINK_STACK(); T1 = fun_24; T0 = CALL3(1,VARREF(Ynew),VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_function),T1); UNLINK_STACK(); QRET(T0); } P YtimeSthreadsY___main_0___() { P xF5336; P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15; P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31; P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43,T44,T45,T46,T47; P T48,T49,T50,T51,T52,T53,T54,T55,T56,T57,T58,T59,T60,T61,T62,T63; P T64,T65,T66,T67,T68,T69,T70; DEFCREGS(); lit_0 = YPPsym((P)""); T1 = XCALL2(1,VARREF(Yfab_pair),VARREF(YLanyG),Ynil); T0 = XCALL2(1,VARREF(YgooSclassYfab_class),LITREF(lit_0),T1); VARSET(YtimeSthreadsYLthreadG,T0); lit_1 = YPPsym((P)"thread-name"); lit_2 = YPPlist(1,YPPsym((P)"_x")); T2 = YPfab_sig(YPPlist(1,VARREF(YtimeSthreadsYLthreadG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_thread_name_0 = YPfab_met(FUNCODEREF(fun_thread_name_0),T2,LITREF(lit_1),LITREF(lit_2),sloc(21),YPfalse); T4 = VARREF_OR(YtimeSthreadsYthread_name,YPfalse); T5 = fun_thread_name_0; T3 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T4,T5); VARSET(YtimeSthreadsYthread_name,T3); lit_3 = YPPlist(1,YPPsym((P)"_x")); T6 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_1 = YPfab_met(FUNCODEREF(fun_1),T6,YPfalse,LITREF(lit_3),sloc(21),YPfalse); T7 = XCALL1(1,VARREF(YgooStypesYtQ),VARREF(YLsymG)); T8 = fun_1; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_name),YPfalse,T7,T8); lit_4 = YPPsym((P)"thread-priority"); lit_5 = YPPlist(1,YPPsym((P)"_x")); T9 = YPfab_sig(YPPlist(1,VARREF(YtimeSthreadsYLthreadG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_thread_priority_2 = YPfab_met(FUNCODEREF(fun_thread_priority_2),T9,LITREF(lit_4),LITREF(lit_5),sloc(22),YPfalse); T11 = VARREF_OR(YtimeSthreadsYthread_priority,YPfalse); T12 = fun_thread_priority_2; T10 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T11,T12); VARSET(YtimeSthreadsYthread_priority,T10); lit_6 = YPPlist(1,YPPsym((P)"_x")); T13 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_3 = YPfab_met(FUNCODEREF(fun_3),T13,YPfalse,LITREF(lit_6),sloc(22),YPfalse); T14 = fun_3; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_priority),YPfalse,VARREF(YLintG),T14); lit_7 = YPPsym((P)"thread-function"); lit_8 = YPPlist(1,YPPsym((P)"_x")); T15 = YPfab_sig(YPPlist(1,VARREF(YtimeSthreadsYLthreadG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_thread_function_4 = YPfab_met(FUNCODEREF(fun_thread_function_4),T15,LITREF(lit_7),LITREF(lit_8),sloc(23),YPfalse); T17 = VARREF_OR(YtimeSthreadsYthread_function,YPfalse); T18 = fun_thread_function_4; T16 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T17,T18); VARSET(YtimeSthreadsYthread_function,T16); lit_9 = YPPlist(1,YPPsym((P)"_x")); lit_10 = Ynil; T20 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_5 = YPfab_met(FUNCODEREF(fun_5),T20,YPfalse,LITREF(lit_10),sloc(23),YPfalse); T19 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_6 = YPfab_met(FUNCODEREF(fun_6),T19,YPfalse,LITREF(lit_9),sloc(23),YPfalse); T21 = fun_6; XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_function),YPfalse,VARREF(YLfunG),T21); lit_11 = YPPsym((P)"thread-handle"); lit_12 = YPPlist(1,YPPsym((P)"_x")); T22 = YPfab_sig(YPPlist(1,VARREF(YtimeSthreadsYLthreadG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_thread_handle_7 = YPfab_met(FUNCODEREF(fun_thread_handle_7),T22,LITREF(lit_11),LITREF(lit_12),sloc(24),YPfalse); T24 = VARREF_OR(YtimeSthreadsYthread_handle,YPfalse); T25 = fun_thread_handle_7; T23 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T24,T25); VARSET(YtimeSthreadsYthread_handle,T23); lit_13 = YPPsym((P)"thread-handle-setter"); lit_14 = YPPlist(2,YPPsym((P)"_z"),YPPsym((P)"_x")); T26 = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YtimeSthreadsYLthreadG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_thread_handle_setter_8 = YPfab_met(FUNCODEREF(fun_thread_handle_setter_8),T26,LITREF(lit_13),LITREF(lit_14),sloc(24),YPfalse); T28 = VARREF_OR(YtimeSthreadsYthread_handle_setter,YPfalse); T29 = fun_thread_handle_setter_8; T27 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T28,T29); VARSET(YtimeSthreadsYthread_handle_setter,T27); XCALL5(1,VARREF(YgooSclassYPprop),VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_handle),VARREF(YtimeSthreadsYthread_handle_setter),VARREF(YLlocG),VARREF(YPprop_unbound_error)); lit_15 = YPPsym((P)"thread-yield"); T30 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_thread_yield_9 = YPfab_met(FUNCODEREF(fun_thread_yield_9),T30,LITREF(lit_15),LITREF(lit_10),sloc(26),YPfalse); T32 = VARREF_OR(YtimeSthreadsYthread_yield,YPfalse); T33 = fun_thread_yield_9; T31 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T32,T33); VARSET(YtimeSthreadsYthread_yield,T31); lit_16 = YPPsym((P)"main-thread-key"); T34 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YtimeSthreadsYmain_thread_key = YPfab_met(FUNCODEREF(YtimeSthreadsYmain_thread_key),T34,LITREF(lit_16),LITREF(lit_10),sloc(28),YPfalse); T35 = YtimeSthreadsYmain_thread_key; VARSET(YtimeSthreadsYmain_thread_key,T35); lit_17 = YPPsym((P)"new"); lit_18 = YPPlist(2,YPPsym((P)"x"),YPPsym((P)"args")); lit_19 = YPPlist(2,YPPsym((P)"c"),YPPsym((P)"r")); lit_20 = YPsb((P)"ERROR: %s"); T41 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_11 = YPfab_met(FUNCODEREF(fun_11),T41,YPfalse,LITREF(lit_10),YPfalse,YPfalse); T40 = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG)),YPfalse,YPint((P)2),VARREF(YLanyG),Ynil); fun_12 = YPfab_met(FUNCODEREF(fun_12),T40,YPfalse,LITREF(lit_19),sloc(36),YPfalse); T39 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_13 = YPfab_met(FUNCODEREF(fun_13),T39,YPfalse,LITREF(lit_10),sloc(37),YPfalse); T38 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_14 = YPfab_met(FUNCODEREF(fun_14),T38,YPfalse,LITREF(lit_10),sloc(33),YPfalse); T37 = XCALL1(1,VARREF(YgooStypesYtL),VARREF(YtimeSthreadsYLthreadG)); T36 = YPfab_sig(YPPlist(1,T37),YPtrue,YPint((P)1),VARREF(YtimeSthreadsYLthreadG),Ynil); fun_new_15 = YPfab_met(FUNCODEREF(fun_new_15),T36,LITREF(lit_17),LITREF(lit_18),sloc(30),YPfalse); T43 = VARREF_OR(Ynew,YPfalse); T44 = fun_new_15; T42 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T43,T44); VARSET(Ynew,T42); lit_21 = YPPsym((P)"main"); T47 = (P)YtimeSthreadsYPthread_current(); xF5336 = T47; T46 = (P)YPtag_into(xF5336,(P)3); T45 = XCALLN(1,VARREF(Ynew),7,VARREF(YtimeSthreadsYLthreadG),VARREF(YtimeSthreadsYthread_name),LITREF(lit_21),VARREF(YtimeSthreadsYthread_function),VARREF(YtimeSthreadsYmain_thread_key),VARREF(YtimeSthreadsYthread_handle),T46); (P)YtimeSthreadsYPthread_goo_thread_setter(T45); lit_22 = YPPlist(1,YPPsym((P)"exp")); lit_23 = YPPlist(1,YPPsym((P)"return")); lit_24 = YPPsym((P)"x-1924"); lit_25 = YPPlist(2,YPPsym((P)"msg"),YPPsym((P)"args")); lit_26 = YPPsym((P)"spawn"); lit_27 = YPsb((P)"Match Pattern Failure"); lit_28 = YPPsym((P)"fun"); lit_29 = Ynil; T50 = YPfab_sig(YPPlist(1,VARREF(YLstrG)),YPtrue,YPint((P)1),VARREF(YLanyG),Ynil); fun_x_1924_16 = YPfab_met(FUNCODEREF(fun_x_1924_16),T50,LITREF(lit_24),LITREF(lit_25),YPfalse,YPfalse); T49 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_17 = YPfab_met(FUNCODEREF(fun_17),T49,YPfalse,LITREF(lit_23),YPfalse,YPfalse); T48 = YPfab_sig(YPPlist(1,VARREF(YLanyG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_18 = YPfab_met(FUNCODEREF(fun_18),T48,YPfalse,LITREF(lit_22),YPfalse,YPfalse); T51 = fun_18; YPmacro(YPPsym((P)"time/threads"),YPPsym((P)"spawn"),T51); lit_30 = YPPsym((P)"sleep"); lit_31 = YPPlist(1,YPPsym((P)"secs")); T52 = YPfab_sig(YPPlist(1,VARREF(YLfloG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_sleep_19 = YPfab_met(FUNCODEREF(fun_sleep_19),T52,LITREF(lit_30),LITREF(lit_31),sloc(52),YPfalse); T54 = VARREF_OR(YtimeSthreadsYsleep,YPfalse); T55 = fun_sleep_19; T53 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T54,T55); VARSET(YtimeSthreadsYsleep,T53); lit_32 = YPPsym((P)"thread-current"); T56 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YtimeSthreadsYLthreadG),Ynil); fun_thread_current_20 = YPfab_met(FUNCODEREF(fun_thread_current_20),T56,LITREF(lit_32),LITREF(lit_10),sloc(55),YPfalse); T58 = VARREF_OR(YtimeSthreadsYthread_current,YPfalse); T59 = fun_thread_current_20; T57 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T58,T59); VARSET(YtimeSthreadsYthread_current,T57); lit_33 = YPPsym((P)"thread-join"); lit_34 = YPPlist(1,YPPsym((P)"t")); T60 = YPfab_sig(YPPlist(1,VARREF(YtimeSthreadsYLthreadG)),YPfalse,YPint((P)1),VARREF(YLanyG),Ynil); fun_thread_join_21 = YPfab_met(FUNCODEREF(fun_thread_join_21),T60,LITREF(lit_33),LITREF(lit_34),sloc(58),YPfalse); T62 = VARREF_OR(YtimeSthreadsYthread_join,YPfalse); T63 = fun_thread_join_21; T61 = XCALL2(1,VARREF(YgooSfunYPdefine_method),T62,T63); VARSET(YtimeSthreadsYthread_join,T61); lit_35 = YPPsym((P)"test-thread-1"); lit_36 = YPsb((P)"%d\n"); T65 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_22 = YPfab_met(FUNCODEREF(fun_22),T65,YPfalse,LITREF(lit_10),sloc(62),YPfalse); T64 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YtimeSthreadsYtest_thread_1 = YPfab_met(FUNCODEREF(YtimeSthreadsYtest_thread_1),T64,LITREF(lit_35),LITREF(lit_10),sloc(61),YPfalse); T66 = YtimeSthreadsYtest_thread_1; VARSET(YtimeSthreadsYtest_thread_1,T66); lit_37 = YPPsym((P)"test-thread-2"); lit_38 = YPsb((P)"%d\n"); lit_39 = YPflo(FLOINT(1.0)); T68 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); fun_24 = YPfab_met(FUNCODEREF(fun_24),T68,YPfalse,LITREF(lit_10),sloc(65),YPfalse); T67 = YPfab_sig(Ynil,YPfalse,YPint((P)0),VARREF(YLanyG),Ynil); YtimeSthreadsYtest_thread_2 = YPfab_met(FUNCODEREF(YtimeSthreadsYtest_thread_2),T67,LITREF(lit_37),LITREF(lit_10),sloc(64),YPfalse); T69 = YtimeSthreadsYtest_thread_2; VARSET(YtimeSthreadsYtest_thread_2,T69); T70 = YPfalse; return T70; } /* MODULE ENVIRONMENT INFORMATION */ extern MODULE_INFO module_info_goo; extern MODULE_INFO module_info_gooSboot; extern MODULE_INFO module_info_gooSloc; extern MODULE_INFO module_info_gooSconditions; extern MODULE_INFO module_info_gooScolsScol; extern MODULE_INFO module_info_gooSmacros; extern MODULE_INFO module_info_gooSmag; extern MODULE_INFO module_info_gooSmath; extern MODULE_INFO module_info_gooSclass; extern MODULE_INFO module_info_gooScolsScolx; extern MODULE_INFO module_info_gooScolsStab; extern MODULE_INFO module_info_gooSioSport; extern MODULE_INFO module_info_gooSpacker; extern MODULE_INFO module_info_gooSfun; extern MODULE_INFO module_info_gooStypes; extern MODULE_INFO module_info_gooSioSwrite; extern MODULE_INFO module_info_gooScolsSseqx; extern MODULE_INFO module_info_gooScolsSseq; extern MODULE_INFO module_info_gooScolsSrange; extern MODULE_INFO module_info_gooScolsScycle; extern MODULE_INFO module_info_gooSlog; extern MODULE_INFO module_info_gooSioSread; extern MODULE_INFO module_info_gooScolsSlst; extern MODULE_INFO module_info_gooSfunctional; extern MODULE_INFO module_info_gooScolsSstr; extern MODULE_INFO module_info_gooSchr; extern MODULE_INFO module_info_gooScolsSmap; extern MODULE_INFO module_info_gooScolsSstep; extern MODULE_INFO module_info_gooScolsSzip; extern MODULE_INFO module_info_gooSany; extern MODULE_INFO module_info_gooScolsSvec; extern MODULE_INFO module_info_gooSlate_macros; static USE_INFO use_infos[] = { {&module_info_goo}, {&module_info_gooSboot}, {&module_info_gooSloc}, {&module_info_gooSconditions}, {NULL} }; static IMPORT_INFO import_infos[] = { {"fold+", &module_info_gooScolsScol, NULL}, {"napp", &module_info_gooSmacros, NULL}, {"update-instance-for-changed-class", &module_info_gooSboot, NULL}, {"property-not-found-error", &module_info_gooSboot, NULL}, {"esc", &module_info_gooSboot, NULL}, {"<=", &module_info_gooSmag, NULL}, {"2nd", &module_info_gooSmacros, NULL}, {"round", &module_info_gooSmath, NULL}, {"%object-class", &module_info_gooSboot, NULL}, {"%symbols", &module_info_gooSboot, NULL}, {"@tlen", &module_info_gooSboot, NULL}, {"head-setter", &module_info_gooSboot, NULL}, {"fab-class", &module_info_gooSclass, NULL}, {"zap!", &module_info_gooScolsScolx, NULL}, {"subtype?", &module_info_gooSboot, NULL}, {"@oelt-setter", &module_info_gooSboot, NULL}, {"%vpc-setter", &module_info_gooSboot, NULL}, {"tab-growth-threshold", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSioSport, NULL}, {"class-ancestors-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%break", &module_info_gooSboot, NULL}, {"packing-with", &module_info_gooSpacker, NULL}, {"%eq?", &module_info_gooSboot, NULL}, {"%rnul", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"fun-val", &module_info_gooSfun, NULL}, {"all2?", &module_info_gooStypes, NULL}, {"*max-print-depth*", &module_info_gooSioSwrite, NULL}, {"%class-props", &module_info_gooSboot, NULL}, {"%fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"class-parents-setter", &module_info_gooSboot, NULL}, {"del-vals!", &module_info_gooScolsSseqx, NULL}, {"nul?", &module_info_gooSmacros, NULL}, {"%next-methods", &module_info_gooSboot, NULL}, {"~", &module_info_gooSmath, NULL}, {"build-condition-for-handler-interactively", &module_info_gooSconditions, NULL}, {"num-to-str", &module_info_gooSmath, NULL}, {"%build-runtime-modules", &module_info_gooSboot, NULL}, {"fun-mets", &module_info_gooSboot, NULL}, {"%im", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"%eof-object?", &module_info_gooSboot, NULL}, {"%max-stack-len", &module_info_gooSboot, NULL}, {"pair", &module_info_gooSmacros, NULL}, {"pick", &module_info_gooScolsSseq, NULL}, {"%class", &module_info_gooSboot, NULL}, {"%fun-info-names-setter", &module_info_gooSboot, NULL}, {"gen-cache-arg-pos", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ct-also", &module_info_gooSboot, NULL}, {"%vnm-setter", &module_info_gooSboot, NULL}, {"sort-by!", &module_info_gooScolsSseq, NULL}, {"post", &module_info_gooSioSwrite, NULL}, {"head", &module_info_gooSboot, NULL}, {"/", &module_info_gooSmath, NULL}, {"push!", &module_info_gooScolsSseqx, NULL}, {"==", &module_info_gooSmacros, NULL}, {"macro-error-arguments", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-message", &module_info_gooSfun, NULL}, {"sig", &module_info_gooSconditions, NULL}, {"%fun-reg", &module_info_gooSboot, NULL}, {"%lu", &module_info_gooSboot, NULL}, {"@subtype?", &module_info_gooSboot, NULL}, {"class-ancestors", &module_info_gooSboot, NULL}, {"1st", &module_info_gooSmacros, NULL}, {"ceil", &module_info_gooSmath, NULL}, {"*boot-macro-module-names*", &module_info_gooSboot, NULL}, {"port-index", &module_info_gooSioSport, NULL}, {"%snul", &module_info_gooSboot, NULL}, {"%vfp", &module_info_gooSboot, NULL}, {"%met-code", &module_info_gooSboot, NULL}, {"%met-code-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%stack-check-reg?", &module_info_gooSboot, NULL}, {"*restarts-ok?*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%to-tup", &module_info_gooSboot, NULL}, {"%fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSrange, NULL}, {"macro-error", &module_info_gooSmacros, NULL}, {"%class-ancestors-setter", &module_info_gooSboot, NULL}, {"pushf", &module_info_gooSmacros, NULL}, {"case", &module_info_gooSmacros, NULL}, {"%define-method", &module_info_gooSfun, NULL}, {"order-specs", &module_info_gooSboot, NULL}, {"cond", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error-collection", &module_info_gooSconditions, NULL}, {"tab-shrink-threshold", &module_info_gooScolsStab, NULL}, {"ddv", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScycle, NULL}, {"", &module_info_gooSconditions, NULL}, {"mod+", &module_info_gooSmath, NULL}, {"match-atom", &module_info_gooSmacros, NULL}, {"sub-setter", &module_info_gooScolsSseqx, NULL}, {"case-insensitive-string-equal", &module_info_gooScolsStab, NULL}, {"class-gens-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"del!", &module_info_gooScolsScolx, NULL}, {"%gen-mets", &module_info_gooSboot, NULL}, {"default-handler-description", &module_info_gooSconditions, NULL}, {"%vm-with-exit", &module_info_gooSboot, NULL}, {"%fun-info-src-loc", &module_info_gooSboot, NULL}, {"bound?", &module_info_gooSboot, NULL}, {"%cu", &module_info_gooSboot, NULL}, {"low-elt", &module_info_gooScolsScol, NULL}, {"for", &module_info_gooSmacros, NULL}, {"fold", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"keys", &module_info_gooScolsScol, NULL}, {"~==", &module_info_gooSlog, NULL}, {"let", &module_info_gooSboot, NULL}, {"&", &module_info_gooSmath, NULL}, {"prop-owner", &module_info_gooSboot, NULL}, {"floor", &module_info_gooSmath, NULL}, {"prop-value-setter", &module_info_gooSclass, NULL}, {"%i^", &module_info_gooSboot, NULL}, {"%class-props-setter", &module_info_gooSboot, NULL}, {"del-dups", &module_info_gooScolsSseq, NULL}, {"keyboard-interrupt", &module_info_gooSboot, NULL}, {"rev!", &module_info_gooSmacros, NULL}, {"@not", &module_info_gooSboot, NULL}, {"%selt-setter", &module_info_gooSboot, NULL}, {"%gen-cache-classes-setter", &module_info_gooSboot, NULL}, {"use/mangle", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"read-from-string", &module_info_gooSioSread, NULL}, {"prop-value-at", &module_info_gooSfun, NULL}, {"%fab-met-inlineable", &module_info_gooSboot, NULL}, {"$e", &module_info_gooSmath, NULL}, {"$max-int", &module_info_gooSboot, NULL}, {"class-gens", &module_info_gooSboot, NULL}, {"*", &module_info_gooSmath, NULL}, {"any2?", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"elts", &module_info_gooScolsScol, NULL}, {"pop", &module_info_gooScolsSseq, NULL}, {"sup", &module_info_gooSmacros, NULL}, {"%true", &module_info_gooSboot, NULL}, {"%met-sig", &module_info_gooSboot, NULL}, {"%met-prop-len", &module_info_gooSboot, NULL}, {"%product-elts", &module_info_gooSboot, NULL}, {"dm", &module_info_gooSboot, NULL}, {"class-id", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSlst, NULL}, {"while", &module_info_gooSmacros, NULL}, {"curry", &module_info_gooSfunctional, NULL}, {"num-to-str-base", &module_info_gooScolsSstr, NULL}, {"lst", &module_info_gooSboot, NULL}, {"%i>>>", &module_info_gooSboot, NULL}, {"@all2?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"*max-print-length*", &module_info_gooSioSwrite, NULL}, {"exported", &module_info_gooSmacros, NULL}, {"%fun-cache-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-prop-len-setter", &module_info_gooSboot, NULL}, {"case-insensitive-string-hash", &module_info_gooScolsStab, NULL}, {"", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"1-", &module_info_gooSmath, NULL}, {"when", &module_info_gooSmacros, NULL}, {"packing-as", &module_info_gooSpacker, NULL}, {"split", &module_info_gooScolsSseq, NULL}, {"mod", &module_info_gooSmath, NULL}, {"pop!", &module_info_gooScolsSseqx, NULL}, {"dv", &module_info_gooSboot, NULL}, {"puts", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"%pair", &module_info_gooSboot, NULL}, {"%prop-getter", &module_info_gooSboot, NULL}, {"sig-unification-vars-setter", &module_info_gooSboot, NULL}, {"call-error-function", &module_info_gooSconditions, NULL}, {"%false", &module_info_gooSboot, NULL}, {"fab-setter-name", &module_info_gooSmacros, NULL}, {"%clone", &module_info_gooSboot, NULL}, {"pos", &module_info_gooScolsSseq, NULL}, {"fun-env", &module_info_gooSboot, NULL}, {"%class-forward", &module_info_gooSboot, NULL}, {"eof-object?", &module_info_gooSchr, NULL}, {"fun-arity", &module_info_gooSfun, NULL}, {"fun-info-src-loc-setter", &module_info_gooSboot, NULL}, {"all?", &module_info_gooScolsScol, NULL}, {"%bb", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"key-test", &module_info_gooScolsScol, NULL}, {"%vm-box-val", &module_info_gooSboot, NULL}, {"~=", &module_info_gooSlog, NULL}, {"gen-cache-missable?", &module_info_gooSboot, NULL}, {"^", &module_info_gooSmath, NULL}, {"write", &module_info_gooSioSwrite, NULL}, {"", &module_info_gooSpacker, NULL}, {"tup", &module_info_gooSboot, NULL}, {"logn", &module_info_gooSmath, NULL}, {"narity-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-info-inlineable?-setter", &module_info_gooSboot, NULL}, {"@all?", &module_info_gooSboot, NULL}, {"%class-prop-len-setter", &module_info_gooSboot, NULL}, {"src-loc-file", &module_info_gooSboot, NULL}, {"%class-id-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@elt", &module_info_gooSboot, NULL}, {"elt!", &module_info_gooScolsScolx, NULL}, {"", &module_info_gooSioSport, NULL}, {"@opts-as-lst", &module_info_gooSboot, NULL}, {"@del-dups", &module_info_gooSboot, NULL}, {"%set-regs", &module_info_gooSboot, NULL}, {"sig-nary?", &module_info_gooSboot, NULL}, {"@type-equal?", &module_info_gooSboot, NULL}, {"%prop", &module_info_gooSclass, NULL}, {"prop-bound?", &module_info_gooSclass, NULL}, {"log", &module_info_gooSmath, NULL}, {"col-res-type", &module_info_gooScolsScol, NULL}, {"@do", &module_info_gooSboot, NULL}, {"opts-location", &module_info_gooSboot, NULL}, {"%vfp-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"opts-tup-storage", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSmap, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"popf", &module_info_gooSmacros, NULL}, {"@isa?", &module_info_gooSboot, NULL}, {"fun-info-src-loc", &module_info_gooSboot, NULL}, {"%raw", &module_info_gooSboot, NULL}, {"%patch-early-generics", &module_info_gooSboot, NULL}, {"t?", &module_info_gooStypes, NULL}, {"%object-of", &module_info_gooSboot, NULL}, {"%fab-met", &module_info_gooSboot, NULL}, {"file-opening-error", &module_info_gooSboot, NULL}, {"c-expr", &module_info_gooSboot, NULL}, {"digit?", &module_info_gooSchr, NULL}, {"fun-info-inlineable?", &module_info_gooSboot, NULL}, {"map2", &module_info_gooSmacros, NULL}, {"@len", &module_info_gooSboot, NULL}, {"%vm-fun-env-elt", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"set", &module_info_gooSboot, NULL}, {"key-type", &module_info_gooScolsScol, NULL}, {"div", &module_info_gooSmath, NULL}, {"match-unquote", &module_info_gooSmacros, NULL}, {"%%sym", &module_info_gooSboot, NULL}, {"%class-direct-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"product-elts", &module_info_gooSboot, NULL}, {"%i-", &module_info_gooSboot, NULL}, {"%gen-mets-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"%fun-info-src-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"sqrt", &module_info_gooSmath, NULL}, {"items", &module_info_gooScolsScol, NULL}, {"unbound-variable-error-variable", &module_info_gooSconditions, NULL}, {"case-by", &module_info_gooSmacros, NULL}, {"any?", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"renew", &module_info_gooSmacros, NULL}, {"%class-forward-setter", &module_info_gooSboot, NULL}, {"|", &module_info_gooSmath, NULL}, {"%ib", &module_info_gooSboot, NULL}, {"@new", &module_info_gooSboot, NULL}, {"%bu", &module_info_gooSboot, NULL}, {"@pair", &module_info_gooSboot, NULL}, {"@oelt", &module_info_gooSboot, NULL}, {"@mem?", &module_info_gooSboot, NULL}, {"ord-app-mets", &module_info_gooSfun, NULL}, {"fab-handler", &module_info_gooSconditions, NULL}, {"choose-handler", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fun-info-count-setter", &module_info_gooSboot, NULL}, {"add!", &module_info_gooScolsScolx, NULL}, {"%fun-info-name-setter", &module_info_gooSboot, NULL}, {"%sp-elt", &module_info_gooSboot, NULL}, {"%class-gens", &module_info_gooSboot, NULL}, {"%loc-val-setter", &module_info_gooSboot, NULL}, {"%fun-val-check-type", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"alpha?", &module_info_gooSchr, NULL}, {"", &module_info_gooScolsSzip, NULL}, {"@=", &module_info_gooSboot, NULL}, {"-", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"assert-error", &module_info_gooSboot, NULL}, {"ins", &module_info_gooScolsSseq, NULL}, {"t<", &module_info_gooStypes, NULL}, {"", &module_info_gooSboot, NULL}, {"flo-bits", &module_info_gooSmath, NULL}, {"elt-default", &module_info_gooScolsScol, NULL}, {"gensym", &module_info_gooSmacros, NULL}, {"port-to-str", &module_info_gooSioSport, NULL}, {"t*", &module_info_gooSboot, NULL}, {"class-direct-props-setter", &module_info_gooSboot, NULL}, {"range", &module_info_gooScolsSrange, NULL}, {"prop-value", &module_info_gooSclass, NULL}, {"@telt", &module_info_gooSboot, NULL}, {"@tail", &module_info_gooSboot, NULL}, {"@pick", &module_info_gooSboot, NULL}, {"fun-info-names", &module_info_gooSboot, NULL}, {"%iv", &module_info_gooSboot, NULL}, {"elt-type", &module_info_gooScolsScol, NULL}, {"cycle", &module_info_gooScolsScycle, NULL}, {"%c<", &module_info_gooSboot, NULL}, {"$default-handler-info", &module_info_gooSconditions, NULL}, {"opts-count", &module_info_gooSboot, NULL}, {"%i=", &module_info_gooSboot, NULL}, {"%gen-cache", &module_info_gooSboot, NULL}, {"%gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%fab-dyn-var", &module_info_gooSboot, NULL}, {"put", &module_info_gooSioSport, NULL}, {"assert", &module_info_gooSmacros, NULL}, {"ready?", &module_info_gooSioSport, NULL}, {"", &module_info_gooSboot, NULL}, {"abs", &module_info_gooSmath, NULL}, {"%stack-check-reg?-setter", &module_info_gooSboot, NULL}, {"%i<<<", &module_info_gooSboot, NULL}, {"c-ment", &module_info_gooSboot, NULL}, {"%fun-info-names", &module_info_gooSboot, NULL}, {"%gen-sig", &module_info_gooSboot, NULL}, {"dl", &module_info_gooSboot, NULL}, {"class-direct-props", &module_info_gooSboot, NULL}, {"packing-in", &module_info_gooSpacker, NULL}, {"", &module_info_gooScolsSstep, NULL}, {"map", &module_info_gooSmacros, NULL}, {"atan2", &module_info_gooSmath, NULL}, {"sym-name", &module_info_gooSboot, NULL}, {"to-digit", &module_info_gooSchr, NULL}, {"may-isa?", &module_info_gooSboot, NULL}, {"%check-call-types", &module_info_gooSboot, NULL}, {"src-loc-line", &module_info_gooSboot, NULL}, {"fun-nary?", &module_info_gooSfun, NULL}, {"file-opening-error-filename", &module_info_gooSconditions, NULL}, {"fill", &module_info_gooScolsScol, NULL}, {"%i?", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"seq", &module_info_gooSboot, NULL}, {"write-to-string", &module_info_gooSioSwrite, NULL}, {"quasiquote", &module_info_gooSboot, NULL}, {"%met", &module_info_gooSboot, NULL}, {"pub", &module_info_gooSmacros, NULL}, {"@head", &module_info_gooSboot, NULL}, {"%class-of", &module_info_gooSboot, NULL}, {"rcurry", &module_info_gooSfunctional, NULL}, {"1+", &module_info_gooSmath, NULL}, {"str-to-num", &module_info_gooScolsSstr, NULL}, {"@rev!", &module_info_gooSboot, NULL}, {"t=", &module_info_gooStypes, NULL}, {"%telt-setter", &module_info_gooSboot, NULL}, {"add-prop", &module_info_gooSclass, NULL}, {"@adr?", &module_info_gooSboot, NULL}, {"%fu", &module_info_gooSboot, NULL}, {"as-c", &module_info_gooSloc, NULL}, {"%prop-unbound-error", &module_info_gooSboot, NULL}, {"mem?", &module_info_gooScolsScol, NULL}, {"class-children-setter", &module_info_gooSboot, NULL}, {"port-contents", &module_info_gooSioSport, NULL}, {"do3", &module_info_gooScolsSseq, NULL}, {"%vm-fun-env-fab", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"prop-init", &module_info_gooSboot, NULL}, {"neg", &module_info_gooSmath, NULL}, {"if", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"%iu", &module_info_gooSboot, NULL}, {"dss", &module_info_gooSboot, NULL}, {"class-forward-setter", &module_info_gooSboot, NULL}, {"decf", &module_info_gooSmacros, NULL}, {"", &module_info_gooSconditions, NULL}, {"%app-filename", &module_info_gooSboot, NULL}, {"%class-gens-setter", &module_info_gooSboot, NULL}, {"%sp-reg-setter", &module_info_gooSboot, NULL}, {"repeat", &module_info_gooScolsSseq, NULL}, {"return-type-error", &module_info_gooSboot, NULL}, {"%fb", &module_info_gooSboot, NULL}, {"prefix?", &module_info_gooScolsSseq, NULL}, {"%fun-info-inlineable?", &module_info_gooSboot, NULL}, {"atan", &module_info_gooSmath, NULL}, {"to-upper", &module_info_gooSchr, NULL}, {"cat!", &module_info_gooScolsSseqx, NULL}, {"@map", &module_info_gooSboot, NULL}, {"*current-handlers*", &module_info_gooSconditions, NULL}, {"use/export", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"isqrt", &module_info_gooSmath, NULL}, {"use/include", &module_info_gooSboot, NULL}, {"%i>>", &module_info_gooSboot, NULL}, {"unless", &module_info_gooSmacros, NULL}, {"%str", &module_info_gooSboot, NULL}, {"into", &module_info_gooScolsScol, NULL}, {"union-elts", &module_info_gooSboot, NULL}, {"property-error-owner", &module_info_gooSconditions, NULL}, {"class-children", &module_info_gooSboot, NULL}, {"gen-add-met", &module_info_gooSfun, NULL}, {"%loc-off", &module_info_gooSboot, NULL}, {"fun-names", &module_info_gooSfun, NULL}, {"%selt", &module_info_gooSboot, NULL}, {"%unlink-stack", &module_info_gooSboot, NULL}, {"fun-info-setter", &module_info_gooSboot, NULL}, {"%with-monitor", &module_info_gooSboot, NULL}, {"%opts-tup", &module_info_gooSboot, NULL}, {"map-keyed", &module_info_gooScolsScol, NULL}, {"class-forward", &module_info_gooSboot, NULL}, {"@lit", &module_info_gooSboot, NULL}, {"fabs", &module_info_gooSchr, NULL}, {"@@nul?", &module_info_gooSboot, NULL}, {"%head", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-res", &module_info_gooSpacker, NULL}, {"neg?", &module_info_gooSmath, NULL}, {"packed", &module_info_gooSpacker, NULL}, {"", &module_info_gooSconditions, NULL}, {"read", &module_info_gooSconditions, NULL}, {"%raw-call", &module_info_gooSboot, NULL}, {"round/", &module_info_gooSmath, NULL}, {"ct", &module_info_gooSboot, NULL}, {"fin", &module_info_gooSboot, NULL}, {"force-out", &module_info_gooSioSport, NULL}, {"unzip", &module_info_gooScolsSzip, NULL}, {"%sb", &module_info_gooSboot, NULL}, {"peek", &module_info_gooSioSport, NULL}, {"elt-setter", &module_info_gooScolsScolx, NULL}, {"t+", &module_info_gooStypes, NULL}, {"elt-or", &module_info_gooScolsScol, NULL}, {"try", &module_info_gooSboot, NULL}, {"%class-parents", &module_info_gooSboot, NULL}, {"sig-specs-setter", &module_info_gooSboot, NULL}, {"@tup", &module_info_gooSboot, NULL}, {"%lb", &module_info_gooSboot, NULL}, {"%loc-off-setter", &module_info_gooSboot, NULL}, {"acos", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-lower", &module_info_gooSchr, NULL}, {"do", &module_info_gooSmacros, NULL}, {"%sp-reg", &module_info_gooSboot, NULL}, {"app", &module_info_gooSmacros, NULL}, {"and", &module_info_gooSmacros, NULL}, {"*print-base*", &module_info_gooScolsSstr, NULL}, {"list", &module_info_gooScolsSlst, NULL}, {"do2", &module_info_gooScolsSseq, NULL}, {"fun-info", &module_info_gooSboot, NULL}, {"*macros-ok?*", &module_info_gooSboot, NULL}, {"match-nul-list", &module_info_gooSmacros, NULL}, {"loc-val-setter", &module_info_gooSloc, NULL}, {"@cat2", &module_info_gooSboot, NULL}, {"nxt", &module_info_gooScolsScol, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-names-setter", &module_info_gooSboot, NULL}, {"%class-mets-setter", &module_info_gooSboot, NULL}, {"%def-regs", &module_info_gooSboot, NULL}, {"address-of", &module_info_gooSany, NULL}, {"%allocate-stack", &module_info_gooSboot, NULL}, {"@checked-next-methods", &module_info_gooSmacros, NULL}, {"describe-handler", &module_info_gooSconditions, NULL}, {"@nul?", &module_info_gooSboot, NULL}, {"%gen-info", &module_info_gooSboot, NULL}, {"%invoke-debugger", &module_info_gooSboot, NULL}, {"%fun-info-src", &module_info_gooSboot, NULL}, {"fun-info-count-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsSvec, NULL}, {"str", &module_info_gooScolsSstr, NULL}, {"range-error-key", &module_info_gooSconditions, NULL}, {"%tup", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"<<", &module_info_gooSmath, NULL}, {"%vnm", &module_info_gooSboot, NULL}, {"zero?", &module_info_gooSmath, NULL}, {"packing", &module_info_gooSpacker, NULL}, {"each", &module_info_gooScolsSstep, NULL}, {"met-app?", &module_info_gooSfun, NULL}, {"prop-offset", &module_info_gooSboot, NULL}, {"condition-message", &module_info_gooSconditions, NULL}, {"now-key", &module_info_gooScolsScol, NULL}, {"sub*", &module_info_gooScolsSseq, NULL}, {"not", &module_info_gooSboot, NULL}, {"@<", &module_info_gooSboot, NULL}, {"sig-val", &module_info_gooSboot, NULL}, {"var-type", &module_info_gooSmacros, NULL}, {"app-args", &module_info_gooSboot, NULL}, {"%i&", &module_info_gooSboot, NULL}, {"cat-sym", &module_info_gooSmacros, NULL}, {"close", &module_info_gooSioSport, NULL}, {"do-keyed", &module_info_gooScolsScol, NULL}, {"asin", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"upper?", &module_info_gooSchr, NULL}, {"zap", &module_info_gooScolsScol, NULL}, {"del-vals", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-specs", &module_info_gooSfun, NULL}, {"", &module_info_gooSboot, NULL}, {"handler-info-arguments", &module_info_gooSfun, NULL}, {"%it/", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"packer-add", &module_info_gooSpacker, NULL}, {"%class-row-setter", &module_info_gooSboot, NULL}, {"ds", &module_info_gooSboot, NULL}, {"no-next-methods-error", &module_info_gooSboot, NULL}, {"%gen-code-setter", &module_info_gooSboot, NULL}, {"@+", &module_info_gooSboot, NULL}, {"fun-info-count", &module_info_gooSboot, NULL}, {"low-elt-setter", &module_info_gooScolsScolx, NULL}, {"now", &module_info_gooScolsScol, NULL}, {"property-unbound-error", &module_info_gooSboot, NULL}, {"elt", &module_info_gooSmacros, NULL}, {"prop-type", &module_info_gooSboot, NULL}, {"%do-stack-frames", &module_info_gooSboot, NULL}, {"@==", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"ceil/", &module_info_gooSmath, NULL}, {"@rev", &module_info_gooSboot, NULL}, {"%sig-specs", &module_info_gooSboot, NULL}, {"fab-sym", &module_info_gooSboot, NULL}, {"invoke-handler-interactively", &module_info_gooSconditions, NULL}, {"%vsp-setter", &module_info_gooSboot, NULL}, {"out", &module_info_gooSioSport, NULL}, {"col", &module_info_gooScolsScol, NULL}, {"%@class-of", &module_info_gooSboot, NULL}, {"%rep", &module_info_gooSboot, NULL}, {"app-filename", &module_info_gooSboot, NULL}, {"pos?", &module_info_gooSmath, NULL}, {"export", &module_info_gooSboot, NULL}, {"clone", &module_info_gooSclass, NULL}, {"%macro", &module_info_gooSboot, NULL}, {"%vfn-setter", &module_info_gooSboot, NULL}, {"push", &module_info_gooScolsSseq, NULL}, {"fab-pair", &module_info_gooSboot, NULL}, {"%%check-call-types", &module_info_gooSboot, NULL}, {"zip", &module_info_gooScolsSzip, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"@tail-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"as", &module_info_gooStypes, NULL}, {"dp", &module_info_gooSboot, NULL}, {"%met-env-setter", &module_info_gooSboot, NULL}, {"type-class", &module_info_gooSboot, NULL}, {"loc-val", &module_info_gooSloc, NULL}, {"tanh", &module_info_gooSmath, NULL}, {"props-of", &module_info_gooSboot, NULL}, {"lower?", &module_info_gooSchr, NULL}, {"%eof-object", &module_info_gooSboot, NULL}, {"newline", &module_info_gooSioSport, NULL}, {"%dispatch", &module_info_gooSboot, NULL}, {"gets", &module_info_gooSioSport, NULL}, {"syntax-error", &module_info_gooSboot, NULL}, {">>>", &module_info_gooSmath, NULL}, {"pack", &module_info_gooSpacker, NULL}, {"@singleton-isa?", &module_info_gooSboot, NULL}, {"%dyn-var-val-setter", &module_info_gooSboot, NULL}, {"%gen-cache-missable?", &module_info_gooSboot, NULL}, {"say", &module_info_gooSioSwrite, NULL}, {"need-implementation", &module_info_gooSmacros, NULL}, {"loc", &module_info_gooSboot, NULL}, {"%src-loc", &module_info_gooSboot, NULL}, {"%%macro", &module_info_gooSboot, NULL}, {"argument-type-error", &module_info_gooSboot, NULL}, {"call-error-arguments", &module_info_gooSconditions, NULL}, {"packer-fab", &module_info_gooSpacker, NULL}, {"len", &module_info_gooStypes, NULL}, {"fun-name", &module_info_gooSfun, NULL}, {"dp!", &module_info_gooSboot, NULL}, {"rotf", &module_info_gooSmacros, NULL}, {"*early-classes*", &module_info_gooSboot, NULL}, {"%gen-cache-arg-pos-setter", &module_info_gooSboot, NULL}, {"tail-setter", &module_info_gooSboot, NULL}, {"@@==", &module_info_gooSboot, NULL}, {"del", &module_info_gooScolsScol, NULL}, {"%type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%cb", &module_info_gooSboot, NULL}, {"mif", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"or", &module_info_gooSmacros, NULL}, {"class-props-setter", &module_info_gooSboot, NULL}, {"error", &module_info_gooSboot, NULL}, {"finds", &module_info_gooScolsSseq, NULL}, {"property-type-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"first-then", &module_info_gooScolsSstep, NULL}, {"suffix?", &module_info_gooScolsSseq, NULL}, {"fill!", &module_info_gooScolsScolx, NULL}, {"+", &module_info_gooSmath, NULL}, {"gen-cache-classes", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"to-str", &module_info_gooSany, NULL}, {"df", &module_info_gooSboot, NULL}, {"fun-cache", &module_info_gooSboot, NULL}, {"now-setter", &module_info_gooScolsScol, NULL}, {"%vm-fun-env-elt-setter", &module_info_gooSboot, NULL}, {"cosh", &module_info_gooSmath, NULL}, {"no-applicable-methods-error", &module_info_gooSboot, NULL}, {"%i+", &module_info_gooSboot, NULL}, {"fin?", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"box-value-setter", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"%sig-unification-vars", &module_info_gooSboot, NULL}, {"%raw-met-call", &module_info_gooSboot, NULL}, {"odd?", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"default-handler", &module_info_gooSconditions, NULL}, {"%fun-info-name", &module_info_gooSboot, NULL}, {"empty?", &module_info_gooScolsScol, NULL}, {"or/set", &module_info_gooSmacros, NULL}, {"$min-int", &module_info_gooSboot, NULL}, {"%relt", &module_info_gooSboot, NULL}, {"max", &module_info_gooSmag, NULL}, {"%vsp", &module_info_gooSboot, NULL}, {"class-parents", &module_info_gooSboot, NULL}, {"fun-sig-setter", &module_info_gooSboot, NULL}, {"compose", &module_info_gooSfunctional, NULL}, {"condition-arguments", &module_info_gooSconditions, NULL}, {"tail", &module_info_gooSboot, NULL}, {"class-of", &module_info_gooSclass, NULL}, {"cat2", &module_info_gooScolsSseq, NULL}, {"", &module_info_gooSboot, NULL}, {"fab", &module_info_gooScolsScol, NULL}, {"as-goo", &module_info_gooSloc, NULL}, {"%gen-code", &module_info_gooSboot, NULL}, {"%sig-arity", &module_info_gooSboot, NULL}, {"d.", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"class-props", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"stack-overflow-error", &module_info_gooSboot, NULL}, {"@tall2?", &module_info_gooSboot, NULL}, {"enum", &module_info_gooScolsScol, NULL}, {"@any?", &module_info_gooSboot, NULL}, {"open", &module_info_gooSioSport, NULL}, {"sort!", &module_info_gooScolsSseqx, NULL}, {"%vpc", &module_info_gooSboot, NULL}, {"app-sup", &module_info_gooSmacros, NULL}, {"def", &module_info_gooSboot, NULL}, {"%telt", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"pow", &module_info_gooSmath, NULL}, {"modincf", &module_info_gooSmath, NULL}, {"cpl-error", &module_info_gooSboot, NULL}, {"%prop-init", &module_info_gooSboot, NULL}, {"%stack-reg", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"emit", &module_info_gooSioSwrite, NULL}, {"empty", &module_info_gooScolsScol, NULL}, {">", &module_info_gooSmag, NULL}, {"%class-ancestors", &module_info_gooSboot, NULL}, {"unknown-function-error", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"dg", &module_info_gooSboot, NULL}, {"%prop-elt", &module_info_gooSboot, NULL}, {"%binding-name", &module_info_gooSboot, NULL}, {"match-sublist", &module_info_gooSmacros, NULL}, {"%class-children", &module_info_gooSboot, NULL}, {"type-error-type", &module_info_gooSconditions, NULL}, {"fun-sig", &module_info_gooSboot, NULL}, {"%class-direct-props-setter", &module_info_gooSboot, NULL}, {"class-mets-setter", &module_info_gooSboot, NULL}, {"sinh", &module_info_gooSmath, NULL}, {"", &module_info_gooSconditions, NULL}, {"find", &module_info_gooScolsScol, NULL}, {"macro-expand", &module_info_gooSboot, NULL}, {"arity-error", &module_info_gooSboot, NULL}, {"id-hash", &module_info_gooScolsStab, NULL}, {"%rlen", &module_info_gooSboot, NULL}, {"even?", &module_info_gooSmath, NULL}, {"prop-setter", &module_info_gooSboot, NULL}, {"%type-class", &module_info_gooSboot, NULL}, {"floor/", &module_info_gooSmath, NULL}, {"handler-matches?", &module_info_gooSconditions, NULL}, {"pe-msg", &module_info_gooSioSwrite, NULL}, {"<", &module_info_gooSmag, NULL}, {"box-value", &module_info_gooSboot, NULL}, {"dup", &module_info_gooScolsScol, NULL}, {"", &module_info_gooScolsStab, NULL}, {"", &module_info_gooSboot, NULL}, {"fun", &module_info_gooSboot, NULL}, {"dc", &module_info_gooSboot, NULL}, {"", &module_info_gooScolsScol, NULL}, {"%c=", &module_info_gooSboot, NULL}, {"list-handlers", &module_info_gooSconditions, NULL}, {"reject", &module_info_gooScolsSseq, NULL}, {"incf", &module_info_gooSmacros, NULL}, {"%prop-elt-setter", &module_info_gooSboot, NULL}, {"$pi", &module_info_gooSmath, NULL}, {"", &module_info_gooSioSport, NULL}, {"join", &module_info_gooScolsSseq, NULL}, {"sub*-setter", &module_info_gooScolsSseqx, NULL}, {"type-object", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"@add", &module_info_gooSboot, NULL}, {"", &module_info_gooSfun, NULL}, {"@fold", &module_info_gooSboot, NULL}, {"class-mets", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"len/fill-setter", &module_info_gooScolsScolx, NULL}, {"=", &module_info_gooSlog, NULL}, {"prop-value-at-setter", &module_info_gooSfun, NULL}, {"nul-prop", &module_info_gooSboot, NULL}, {"del-dups!", &module_info_gooScolsSseqx, NULL}, {"", &module_info_gooSboot, NULL}, {"class-prop-len", &module_info_gooSboot, NULL}, {"unexec", &module_info_gooSboot, NULL}, {"use", &module_info_gooSboot, NULL}, {"msg", &module_info_gooSconditions, NULL}, {"@tany?", &module_info_gooSboot, NULL}, {"%class-prop-len", &module_info_gooSboot, NULL}, {"%class-children-setter", &module_info_gooSboot, NULL}, {"tan", &module_info_gooSmath, NULL}, {"cat", &module_info_gooSmacros, NULL}, {"@add-new", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"%vm-with-cleanup", &module_info_gooSboot, NULL}, {"tab-hash", &module_info_gooScolsStab, NULL}, {"from", &module_info_gooScolsSrange, NULL}, {"writeln", &module_info_gooSioSwrite, NULL}, {"ambiguous-method-error", &module_info_gooSboot, NULL}, {"packer", &module_info_gooSpacker, NULL}, {"%met-info", &module_info_gooSboot, NULL}, {"new", &module_info_gooSboot, NULL}, {"rem", &module_info_gooSmath, NULL}, {"tab-growth-factor", &module_info_gooScolsStab, NULL}, {"trunc", &module_info_gooSmath, NULL}, {"%class-mets", &module_info_gooSboot, NULL}, {"%untag", &module_info_gooSboot, NULL}, {"*boot-macro-names*", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"rep", &module_info_gooSboot, NULL}, {"%class-id", &module_info_gooSboot, NULL}, {"sig-arity-setter", &module_info_gooSboot, NULL}, {"port-line", &module_info_gooSioSport, NULL}, {"msg-to-str", &module_info_gooSconditions, NULL}, {"", &module_info_gooSconditions, NULL}, {"%loc-val", &module_info_gooSboot, NULL}, {"trunc/", &module_info_gooSmath, NULL}, {"%fun-cache", &module_info_gooSboot, NULL}, {"op", &module_info_gooSlate_macros, NULL}, {"fun-info-name-setter", &module_info_gooSboot, NULL}, {"match", &module_info_gooSmacros, NULL}, {"below", &module_info_gooScolsSseq, NULL}, {"as-error", &module_info_gooSboot, NULL}, {"gen-cache-singletons", &module_info_gooSboot, NULL}, {">>", &module_info_gooSmath, NULL}, {"describe-condition", &module_info_gooSconditions, NULL}, {"$direct-object-class", &module_info_gooSboot, NULL}, {"%tlen", &module_info_gooSboot, NULL}, {"in", &module_info_gooSioSport, NULL}, {"build-condition-interactively", &module_info_gooSconditions, NULL}, {"%fun-info-count", &module_info_gooSboot, NULL}, {"type-error", &module_info_gooSboot, NULL}, {"last", &module_info_gooSmacros, NULL}, {"find-setter", &module_info_gooSclass, NULL}, {"%i!", &module_info_gooSboot, NULL}, {"fun-info-src-setter", &module_info_gooSboot, NULL}, {"%i<<", &module_info_gooSboot, NULL}, {"arithmetic-error", &module_info_gooSboot, NULL}, {"add", &module_info_gooScolsScol, NULL}, {"pack-in", &module_info_gooSpacker, NULL}, {"%union-elts", &module_info_gooSboot, NULL}, {"%tnul", &module_info_gooSboot, NULL}, {"*boot-macro-expanders*", &module_info_gooSboot, NULL}, {"property-error-generic", &module_info_gooSconditions, NULL}, {"%classes-ready?", &module_info_gooSboot, NULL}, {"col-res", &module_info_gooScolsScol, NULL}, {"@lst", &module_info_gooSboot, NULL}, {"class-name", &module_info_gooSboot, NULL}, {"swapf", &module_info_gooSmacros, NULL}, {"sort-by", &module_info_gooScolsSseq, NULL}, {"cos", &module_info_gooSmath, NULL}, {"rev", &module_info_gooScolsSseq, NULL}, {"%i*", &module_info_gooSboot, NULL}, {"find-or", &module_info_gooScolsScol, NULL}, {"identity", &module_info_gooSfunctional, NULL}, {"use/library", &module_info_gooSboot, NULL}, {"get", &module_info_gooSioSport, NULL}, {"sig-arity", &module_info_gooSboot, NULL}, {"@olen", &module_info_gooSboot, NULL}, {"%process-module", &module_info_gooSboot, NULL}, {"internal-error", &module_info_gooSboot, NULL}, {"@telt-setter", &module_info_gooSboot, NULL}, {">=", &module_info_gooSmag, NULL}, {"%app-args", &module_info_gooSboot, NULL}, {"until", &module_info_gooSmacros, NULL}, {"%gen-cache-singletons", &module_info_gooSboot, NULL}, {"fun-info-name", &module_info_gooSboot, NULL}, {"sub", &module_info_gooScolsSseq, NULL}, {"min", &module_info_gooSmag, NULL}, {"isa?", &module_info_gooSboot, NULL}, {"", &module_info_gooSioSport, NULL}, {"", &module_info_gooSconditions, NULL}, {"", &module_info_gooSboot, NULL}, {"fun-info-src", &module_info_gooSboot, NULL}, {"%met-env", &module_info_gooSboot, NULL}, {"nil", &module_info_gooSboot, NULL}, {"%next-methods-reg-setter", &module_info_gooSboot, NULL}, {"%singleton", &module_info_gooSboot, NULL}, {"@subclass?", &module_info_gooSboot, NULL}, {"%relt-setter", &module_info_gooSboot, NULL}, {"3rd", &module_info_gooScolsSseq, NULL}, {"%sig-val", &module_info_gooSboot, NULL}, {"%sig-nary?", &module_info_gooSboot, NULL}, {"fun-code", &module_info_gooSboot, NULL}, {"always", &module_info_gooSfunctional, NULL}, {"handler-function", &module_info_gooSconditions, NULL}, {"len-setter", &module_info_gooScolsScolx, NULL}, {"%prop-dat-at", &module_info_gooSboot, NULL}, {"", &module_info_gooSboot, NULL}, {"@int?", &module_info_gooSboot, NULL}, {"var-name", &module_info_gooSmacros, NULL}, {"prop-getter", &module_info_gooSboot, NULL}, {"@may-isa?", &module_info_gooSboot, NULL}, {"%vfn", &module_info_gooSboot, NULL}, {"vec", &module_info_gooScolsSvec, NULL}, {"%su", &module_info_gooSboot, NULL}, {"range-by", &module_info_gooScolsSrange, NULL}, {"sin", &module_info_gooSmath, NULL}, {"", &module_info_gooSboot, NULL}, {"range-error", &module_info_gooSboot, NULL}, {"%gen-cache-singletons-setter", &module_info_gooSboot, NULL}, {"%prop-type", &module_info_gooSboot, NULL}, {"macro-error-name", &module_info_gooSconditions, NULL}, {"nul", &module_info_gooScolsScol, NULL}, {"sig-nary?-setter", &module_info_gooSboot, NULL}, {"sig-specs", &module_info_gooSboot, NULL}, {"bit?", &module_info_gooSmath, NULL}, {"quote", &module_info_gooSboot, NULL}, {"sig-unification-vars", &module_info_gooSboot, NULL}, {"sig-val-setter", &module_info_gooSboot, NULL}, {"%i<", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"type-error-value", &module_info_gooSconditions, NULL}, {"%tail", &module_info_gooSboot, NULL}, {"%vm-box-fab", &module_info_gooSboot, NULL}, {"%@subclass?", &module_info_gooSboot, NULL}, {"%vm-box-val-setter", &module_info_gooSboot, NULL}, {"sort", &module_info_gooScolsSseq, NULL}, {"@class-isa?", &module_info_gooSboot, NULL}, {"dlet", &module_info_gooSmacros, NULL}, {"", &module_info_gooSboot, NULL}, {"", &module_info_gooSconditions, NULL}, {"fun-mets-setter", &module_info_gooSboot, NULL}, {"class-row", &module_info_gooSboot, NULL}, {"with-port", &module_info_gooSioSport, NULL}, {"find-getter", &module_info_gooSclass, NULL}, {"%slen", &module_info_gooSboot, NULL}, {"opf", &module_info_gooSmacros, NULL}, {"%dyn-var-val", &module_info_gooSboot, NULL}, {NULL,NULL,NULL} }; static BINDING_INFO binding_infos[] = { {"sleep", CVAR, &YtimeSthreadsYsleep}, {"%thread-create", PVAR, NULL}, {"%thread-detach", PVAR, NULL}, {"spawn", PVAR, NULL}, {"thread-handle", CVAR, &YtimeSthreadsYthread_handle}, {"thread-name", CVAR, &YtimeSthreadsYthread_name}, {"thread-function", CVAR, &YtimeSthreadsYthread_function}, {"thread-yield", CVAR, &YtimeSthreadsYthread_yield}, {"thread-priority", CVAR, &YtimeSthreadsYthread_priority}, {"", CVAR, &YtimeSthreadsYLthreadG}, {"test-thread-1", CVAR, &YtimeSthreadsYtest_thread_1}, {"%thread-join", PVAR, NULL}, {"%thread-sleep", PVAR, NULL}, {"thread-current", CVAR, &YtimeSthreadsYthread_current}, {"thread-handle-setter", CVAR, &YtimeSthreadsYthread_handle_setter}, {"%thread-goo-thread", PVAR, NULL}, {"%thread-priority", PVAR, NULL}, {"main-thread-key", CVAR, &YtimeSthreadsYmain_thread_key}, {"test-thread-2", CVAR, &YtimeSthreadsYtest_thread_2}, {"---main-0---", PVAR, NULL}, {"%thread-yield", PVAR, NULL}, {"%thread-priority-setter", PVAR, NULL}, {"thread-join", CVAR, &YtimeSthreadsYthread_join}, {"%thread-goo-thread-setter", PVAR, NULL}, {"%thread-current", PVAR, NULL}, {NULL, NVAR, NULL} }; static EXPORT_INFO export_infos[] = { {"sleep", NULL}, {"thread-function", NULL}, {"thread-yield", NULL}, {"thread-priority", NULL}, {"", NULL}, {"test-thread-1", NULL}, {"thread-current", NULL}, {"thread-name", NULL}, {"spawn", NULL}, {"test-thread-2", NULL}, {NULL, NULL} }; extern MODULE_INFO module_info_timeSthreads; MODULE_INFO module_info_timeSthreads = { "time/threads", NULL, use_infos, import_infos, binding_infos, export_infos, }; /* MODULES USED: */ extern void load_module_goo (void); extern void load_module_gooSboot (void); extern void load_module_gooSloc (void); extern void load_module_gooSconditions (void); /* EXPRESSION: */ extern void load_module_timeSthreads (void); void load_module_timeSthreads (void) { static int need_init = 1; if (!need_init) return; need_init = 0; load_module_goo(); load_module_gooSboot(); load_module_gooSloc(); load_module_gooSconditions(); (P)YtimeSthreadsY___main_0___(); } /* END OF GENERATED CODE. */ goo-0.155/TERMS0100644000175000017500000004310007454406505012535 0ustar vomjomvomjom GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. goo-0.155/Makefile.in0100644000175000017500000000230107511470534013760 0ustar vomjomvomjom## generic autoconf stuff SHELL = /bin/sh VPATH = @srcdir@ subdirs = @subdirs@ top_srcdir = @top_srcdir@ srcdir = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ datadir = @datadir@ bindir = $(exec_prefix)/bin infodir = $(prefix)/info libdir = $(prefix)/lib/goo/ mandir = $(prefix)/man/man1 exe_suffix=@exe_suffix@ INSTALL = @INSTALL@ INSTALL_PROGRAM=@INSTALL_PROGRAM@ INSTALL_SCRIPT=@INSTALL_PROGRAM@ INSTALL_DATA=@INSTALL_DATA@ # end generic autoconf stuff subdirs = c src doc emacs all: @for dir in ${subdirs}; do \ (cd $$dir && $(MAKE) all) \ || case "$(MFLAGS)" in *k*) fail=yes;; *) exit 1;; esac; \ done && test -z "$$fail" install: all @for dir in ${subdirs}; do \ (cd $$dir && $(MAKE) install) \ || case "$(MFLAGS)" in *k*) fail=yes;; *) exit 1;; esac; \ done && test -z "$$fail" clean: @for dir in ${subdirs}; do \ (cd $$dir && $(MAKE) clean) \ || case "$(MFLAGS)" in *k*) fail=yes;; *) exit 1;; esac; \ done && test -z "$$fail" distclean: clean /bin/rm -f Makefile config.h config.status config.cache config.log @for dir in ${subdirs}; do \ (cd $$dir && $(MAKE) distclean) \ || case "$(MFLAGS)" in *k*) fail=yes;; *) exit 1;; esac; \ done && test -z "$$fail" goo-0.155/README.TXT0100644000175000017500000000016607444264016013261 0ustar vomjomvomjomTHE GOO PROGRAMMING LANGUAGE JONATHAN BACHRACH MIT AI LAB SEE DOC\goo.pdf FOR ALL USAGE/INSTALLATION INFORMATION goo-0.155/acconfig.h0100644000175000017500000000111307511470534013635 0ustar vomjomvomjom/* Define if the system supports the standard shared library functions like dlopen. */ #undef HAVE_DLOPEN /* Define to force use of thread-safe errno, h_errno, and other functions (some systems *must* have this defined before including any system headers or else Very Bad Things will happen) */ #undef _REENTRANT /* Define if the system supports any kind of threading */ #undef WITH_THREADS /* Define if the system supports the posix threading API */ #undef HAVE_POSIX_THREAD /* Define if the compiler supports thread local variables */ #undef HAVE_THREAD_LOCAL_VARIABLE goo-0.155/aclocal.m40100644000175000017500000000241207511470534013556 0ustar vomjomvomjomdnl GOO_CHECK_EXE_SUFFIX() dnl Determines the suffix attached to executables. For an MS-DOS derived OS dnl this is .exe, and the empty string for Unix. AC_DEFUN(GOO_CHECK_EXE_SUFFIX, [AC_MSG_CHECKING(name suffix of executables) AC_CACHE_VAL(goo_cv_exe_suffix, [goo_cv_exe_suffix="" AC_TRY_COMPILE([], [;], [if test -f conftest.exe; then goo_cv_exe_suffix=.exe; fi]) ])dnl if test -z "$goo_cv_exe_suffix"; then AC_MSG_RESULT(none) goo_target_os="Unix" else AC_MSG_RESULT($goo_cv_exe_suffix) goo_target_os="Win" fi exe_suffix="$goo_cv_exe_suffix"; AC_SUBST(exe_suffix) AC_SUBST(goo_target_os)]) dnl Check if Boehm's conservative garbage collector available as dnl library, or is present in subdirectory gc/ AC_DEFUN(GOO_CHECK_GC_LIB, [AC_MSG_CHECKING([for local copy of Boehm GC libraries]) if test -f gc/Makefile; then build_gc=yes AC_MSG_RESULT(yes) else AC_MSG_RESULT(no) AC_CHECK_LIB(gc, GC_malloc, have_libgc=yes, have_libgc=no) if test "$have_libgc" = yes; then build_gc=no LIBS="-lgc $LIBS" else AC_MSG_ERROR([ ERROR: Configure could not locate an installed libgc, nor any garbage collector sources in the subdirectory gc. Please either install libgc on your system or download the source and untar it here.]) fi fi AC_SUBST(build_gc) ])goo-0.155/configure.in0100644000175000017500000000277507515633411014242 0ustar vomjomvomjom# Process this file with autoconf to produce a configure script. AC_INIT([src/goo], [.3]) AC_CONFIG_HEADER([c/config.h]) # Checks for programs. AC_PROG_CC AC_PROG_INSTALL AC_PROG_LN_S GOO_CHECK_EXE_SUFFIX # Checks for libraries. GOO_CHECK_GC_LIB AC_SEARCH_LIBS(log, m, , AC_MSG_ERROR([Unable to find math library])) AC_SEARCH_LIBS(dlopen, dl, AC_DEFINE(HAVE_DLOPEN, 1), AC_DEFINE(HAVE_DLOPEN, 0)) # Checks for header files. AC_HEADER_STDC AC_CHECK_HEADERS([errno.h fcntl.h memory.h stdlib.h string.h unistd.h]) # Checks for typedefs, structures, and compiler characteristics. AC_C_INLINE AC_TYPE_SIZE_T AC_HEADER_TIME # Checks for library functions. AC_FUNC_ALLOCA AC_FUNC_MMAP AC_TYPE_SIGNAL AC_CHECK_FUNCS([ftruncate memset mkdir munmap pow putenv select setenv sqrt strerror]) THREADKIND=no AC_MSG_CHECKING(for --with-threads) AC_ARG_WITH(threads, [--with-threads[=DIRECTORY] Compile GOO to support threads], [ AC_MSG_RESULT($withval) if test -d "$withval" then LDFLAGS="$LDFLAGS -L$withval" fi AC_DEFINE(_REENTRANT) AC_MSG_CHECKING([whether the compiler supports thread-local variables]) AC_TRY_COMPILE([], [__thread int testvar;], [ AC_DEFINE(HAVE_THREAD_LOCAL_VARIABLE) AC_MSG_RESULT([yes])], AC_MSG_RESULT([no])) AC_CHECK_LIB(pthread, pthread_create, [ AC_DEFINE(WITH_THREADS) AC_DEFINE(HAVE_POSIX_THREAD) LIBS="-lpthread $LIBS" THREADKIND=posix ], [ AC_MSG_ERROR([Unable to find thread library]) ]) ], AC_MSG_RESULT([no])) AC_SUBST(THREADKIND) AC_OUTPUT(Makefile c/Makefile src/Makefile doc/Makefile emacs/Makefile) goo-0.155/doc/0040755000175000017500000000000007756746032012501 5ustar vomjomvomjomgoo-0.155/doc/CVS/0040755000175000017500000000000007756746023013134 5ustar vomjomvomjomgoo-0.155/doc/CVS/Root0100644000175000017500000000003307756746021013771 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/doc/CVS/Repository0100644000175000017500000000001007756746021015220 0ustar vomjomvomjomgoo/doc goo-0.155/doc/CVS/Entries0100644000175000017500000000134607756746023014471 0ustar vomjomvomjom/LISTENER.TXT/1.2/Thu Oct 25 23:10:45 2001// /Makefile.in/1.2/Sat Jul 6 04:32:33 2002// /defs.tex/1.4/Wed Nov 19 19:51:07 2003// /doc.txt/1.12/Thu Oct 25 23:10:45 2001// /extarticle.cls/1.1/Tue Mar 19 23:19:15 2002// /goo-at-harvard.pdf/1.1/Tue Mar 19 23:19:15 2002/-kb/ /goo-boot.pdf/1.1/Tue Mar 19 23:19:15 2002/-kb/ /goo-imp.pdf/1.1/Tue Mar 19 23:19:15 2002/-kb/ /goo-intro.pdf/1.1/Tue Mar 19 23:19:15 2002/-kb/ /goo.pdf/1.20/Wed Nov 19 20:00:40 2003/-kb/ /goo.tex/1.17/Wed Nov 19 20:00:41 2003// /hyperlatex.sty/1.2/Fri May 17 14:36:27 2002// /myindex.sty/1.1/Tue Mar 19 23:19:16 2002// /size9.clo/1.1/Tue Mar 19 23:19:16 2002// /texdefs.tex/1.1/Fri May 17 14:36:27 2002// /version-number.tex/1.1/Tue Mar 19 23:19:16 2002// D/manual//// goo-0.155/doc/LISTENER.TXT0100644000175000017500000000261407366115765014327 0ustar vomjomvomjomListener Basics =============== Exiting ------- proto/user 0<= (quit) Development ----------- To compile Proto: proto/user 0<= (use p2c) proto/user 0=> #f proto/user 0<= (p2c-top) To run the test suites: proto/user 0<= (use tests) proto/user 0=> #f proto/user 0<= (run-all-tests) Modules ------- To change modules: proto/user 0<= (in-mod ast) ast 0<= To access a variable in another module: proto/user 0<= p2c:p2c-top proto/user 0=> #{Gen p2c-top ()} The Debugger ------------ Entering: proto/user 0<= (error "oops") ERROR: oops Type (restart N) to restart execution: 1. Return to interpreter level 1. 2. Return to interpreter level 0. 3. Exit the top-level interpreter. proto/user 1<= Going up a level: proto/user 1<= (up) proto/user 0<= Going up to level 0: proto/user 1<= (top) proto/user 0<= Listing the available restarts: proto/user 1<= (restarts) 1. Return to interpreter level 1. 2. Return to interpreter level 0. 3. Exit the top-level interpreter. Choosing a restart: proto/user 1<= (restart 2) proto/user 0<= Showing the installed exception handlers: proto/user 0<= (handlers) 1. Return to interpreter level 0. 2. Anonymous handler for . 3. Exit the top-level interpreter. The Evaluator ------------- Changing to dynamic compilation evaluation: (p2c-eval) Changing to ast evaluation: (ast-eval) goo-0.155/doc/Makefile.in0100644000175000017500000000115607511471341014531 0ustar vomjomvomjom## generic autoconf stuff SHELL = /bin/sh VPATH = @srcdir@ subdirs = @subdirs@ top_srcdir = @top_srcdir@ srcdir = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ datadir = @datadir@ bindir = $(exec_prefix)/bin infodir = $(prefix)/info libdir = $(prefix)/lib/goo/ mandir = $(prefix)/man/man1 exe_suffix=@exe_suffix@ INSTALL = @INSTALL@ INSTALL_PROGRAM=@INSTALL_PROGRAM@ INSTALL_SCRIPT=@INSTALL_PROGRAM@ INSTALL_DATA=@INSTALL_DATA@ ## end autoconf GOO_DOC=$(datadir)/doc/goo/ all: install: all $(top_srcdir)/mkinstalldirs $(GOO_DOC) $(INSTALL_DATA) goo.pdf $(GOO_DOC)/ clean: distclean: clean rm -f Makefilegoo-0.155/doc/defs.tex0100644000175000017500000000622007756744653014150 0ustar vomjomvomjom\newcommand{\xsubsection}[1]{% \texonly{\subsection{#1}}% \htmlonly{\strong{#1}\\}% } \newcommand{\evalsto}{% \texonly{$\rightarrow$}% \htmlonly{\code{->}}% } \newcommand{\cvar}[1]{% \texonly{{\rm\em{#1}}}% \htmlonly{\code{\var{#1}}}% } %%%%%%%%%%%%%%%% HTML deftypes \htmlonly{ \newcommand{\goo}{{\it{GOO}}} % \newenvironment{defs}{\begin{itemize}}{\end{itemize}} % \newcommand{\defnoindex}[3]{% % \item\noindent\code{({#1}{\var{#2}\/})~-->~{\var{#3}}}} % \newcommand{\defcontnoindex}[2]{% % \item\noindent\code{({#1}{\var{#2}\/})}} % \newcommand{\doc}[1]{% % \item {\it #1}} % \newenvironment{defs}{\begin{html}\end{html}}{\begin{html} <\table> \end{html}} % \newcommand{\defnoindex}[3]{\begin{html} \end{html}} % \newcommand{\defcontnoindex}[2]{\begin{html} \end{html}} % \newcommand{\doc}[1]{\begin{html} \end{html}} \newenvironment{defs}{\begin{tabular}{llr}}{\end{tabular}} \newcommand{\defnoindex}[3]{\cindex[#1]{{\tt #1}}\kode{#1} & \kode{#2} & \kode{#3} \\} \newcommand{\defcontnoindex}[2]{& \kode{#1} & \kode{#2} \\} \newcommand{\doc}[1]{& {\it #1} & \\} % \newenvironment{defs}{\begin{tabular}{lll}}{\hline\end{tabular}} % \newcommand{\defnoindex}[3]{{\bf \kode{#3}} & \hline\kode{#1} & \kode{#2} \\} % \newcommand{\defcontnoindex}[2]{{\bf \kode{#2}} & & \kode{#1} \\} % \newcommand{\doc}[1]{& & {\it #1} \\} % \newenvironment{defs}{\begin{tabular}{lllr}}{\hline\end{tabular}} % \newcommand{\defnoindex}[3]{\hline\multicolumn{2}{l}{\kode{#1}} & \kode{#2} & \kode{#3} \\} % \newcommand{\defcontnoindex}[2]{\multicolumn{2}{l}{} & \kode{#1} & \kode{#2} \\} % \newcommand{\doc}[1]{& \multicolumn{2}{l}{\it #1} & \\} % \newcommand{\deftagstart}{% % \begin{rawhtml}
#1 #2 #3
#1 #2
#2
% () Generic len ((x ) => ) Generic elt ((x ) (k ) => ) Generic elt-setter ((v ) (x )) Generic keys ((x => ) Generic empty? ((x ) => ) Generic empty ((x ) => ) Generic default ((x ) => ) Generic fab ((x ) (size ) => ) Generic fabs ((x ) (elts ...) => ) Generic fill ((x ) (y ) => ) Generic alter ((x ) (y ) => ) Generic any? ((f ) (x ) => ) Generic all? ((f ) (x ) => ) Generic reduce ((combine ) (init ) (x ) => ) Generic reduce+ ((combine ) (x ) => ) Generic find-key ((f ) (x ) => ) Generic del-key ((x ) (y ) => ) Generic del-keys ((x ) (y ) => ) Generic do ((f ) (x ) => (tup)) Generic do2 ((f ) (x ) (y ) => (tup)) Generic map ((f ) (x ) => ) Generic map2 ((f ) (x ) (y ) => ) Generic do-keyed ((f ) (x ) => (tup)) Generic map-keyed ((f ) (x ) => ) Generic mem? ((x ) (y ) => ) 3.7.1 ITERATION PROTOCOL (cf., Dylan's iteration protocol) Generic ini-state ((x ) => ) Generic fin-state? ((x ) (state ) => ) Generic nxt-state ((x ) (state ) => ) Generic now-elt ((x ) (state ) => ) Generic now-elt-setter ((v ) (x ) (state )) Generic now-key ((x ) (state ) => ) Generic copy-state ((x ) (state ) => ) 3.7.2 MAPS Class () (cf., Dylan's 's) 3.7.2.1 ASSOCIATIONS Class () Slot assocs-test ((x ) (y ) => ) <= == 3.7.2.2 TABLES Class () Slot table-growth-factor ((x ) => ) <= 2.0 Slot table-growth-threshold ((x ) => ) <= 0.8 Slot table-shrink-threshold ((x ) => )) <= 0.5 Method fab ((_ ) (size ) => ) Generic table-protocol ((x ) => (tup (test-fun ) (hash-fun ))) Instance $permanent-hash-state (isa ) Generic current-gc-state ((x ) => ) Generic id-hash ((x ) => (tup (hash ) (gc-state ))) Class () Generic case-insensitive-string-hash ((x ) => (tup (hash ) (gc-state ))) Generic case-insensitive-string-equal ((x ) (y ) => ) 3.7.3 SEQUENCES Class () Generic add ((x ) (y ) => ) ;; NYI EXCEPT FOR LISTS Generic 1st ((x ) => ) == (elt x 0) Generic 2nd ((x ) => ) == (elt x 1) Generic 3rd ((x ) => ) == (elt x 2) Generic last ((x ) => ) == (elt x (- (len x) 1)) Generic pos ((x ) (v ) => (union nul)) finds position of v in x else returns nul. Generic rev ((x ) => ) returns reversed sequence. Generic rev! ((x ) => ) returns destructively reversed sequence. Generic cat ((x ) (more ...) => ) returns concatenated sequences. Generic cat! ((x ) (more ...) => ) returns destructively concatenated sequences. Generic cat2 ((x ) (y ) => ) returns two sequences concatenated. Generic sub ((x ) (from ) (below ) => ) subsequence of x between from and below. Generic sub-setter ((dst ) (src ) (from ) (below )) replaces subsequence in range between from and below of dst with contents of src. Generic pick ((test ) (x ) => ) returns new sequence with elements corresponding to those where test returns non-false. Generic del ((x ) (v ) => ) returns sequence with all v's deleted from x. Generic del-dups ((x ) => ) returns sequence with all duplicates removed. 3.7.4 TUPLES Class () represents multiple values in Proto. Generic tup ((elts ...) => ) creates a tuple with elements being elts. 3.7.5 LISTS Class () Alias == Slot head ((x ) => ) Slot tail ((x ) => ) Generic lst ((elts ...) => ) Alias list == lst Generic pair ((x ) (y ) => ) Generic push ((l ) (x ) => ) Generic pop ((l ) => (tup (new-col ) value)) Instance nil () aka (). 3.7.5 OPTIONALS Class (== ) represents type of optional arguments. 3.7.6 FLAT SEQUENCES Class () represents sequences with constant access time. 3.7.6.1 VECTORS Class () Generic vec ((elts ...) => ) 3.7.6.2 STRINGS Class () Generic str ((elts ...) => ) Generic to-str ((x ) => ) returns string representation of object. 3.7.6.3 STRETCHY VECTORS Class () Generic buf ((elts ...) => ) Generic push-last! ((c ) (x ) => ) pushes element onto end of stretchy vector Generic pop-last! ((c ) => ) pops element from end of stretchy vector 3.7.6 RANGES Class () represents series of numbers Generic from ((from ) => ) Generic from-by ((from ) (by ) => ) Generic from-to ((from ) (to ) => ) Generic from-to-by ((from ) (to ) (by ) => ) Generic from-below ((from ) (below ) => ) Generic from-below-by ((from ) (below ) (by ) => ) Generic from-above ((from ) (above ) => ) Generic from-above-by ((from ) (above ) (by ) => ) 3.7.7 STEPS Class () represents step function Generic first-then ((first ) (then ) => ) 3.8 SYMBOLS Class () Method as ((_ ) (x ) => ) Generic make-sym ((elts ...) => ) Generic gensym (=> ) Generic make-setter-name ((x ) => ) Generic var-name ((x (union )) => ) Generic var-type ((x (union )) => ) 3.9 TYPES Class () Generic isa? ((x ) (y ) => ) Generic subtype? ((x ) (y ) => ) 3.9.1 SINGLETONS Class () Generic t= ((x ) => ) Generic type-object ((x ) => ) 3.9.1 SUBCLASS Class () Generic t< ((x ) => ) Generic type-class ((x ) => ) 3.9.3 UNION Class () Generic t+ ((types ...) => ) Generic type-elts ((x ) => ) 3.9.4 CLASSES Class () Generic class-name ((x ) => ) Generic class-direct-parents ((x ) => ) Generic class-parents ((x ) => ) Generic class-direct-slots ((x ) => ) Generic class-slots ((x ) => ) Generic class-direct-children ((x ) => ) 3.10 SLOTS Class () Slot slot-owner ((x ) => ) Slot slot-getter ((x ) => ) Slot slot-setter ((x ) => ) Slot slot-type ((x ) => ) Slot slot-init ((x ) => ) Generic find-getter ((owner ) (getter ) => ) Generic find-setter ((owner ) (setter ) => ) Method add-slot (owner (getter ) (setter ) type (init )) where init is a one parameter function that returns the initial value for the slot and gets called lazily with the new instance as the argument. 3.11 FUNCTIONS Class () Slot fun-name ((x ) => (false-or )) returns the name of function or false if unavailable. Slot fun-names ((x ) => ) returns the names of parameters of x or () if unavailable. Slot fun-specs ((x ) => ) returns the specializers of x. Slot fun-nary? ((x ) => ) determines whether the function takes optional arguments. Slot fun-arity ((x ) => ) returns x's number of required arguments. Slot fun-value ((x ) => ) returns x's return value. Generic identity (=> ) returns a function (fun (x) x). Generic compose ((x ) (y ) => ) returns a function that composes function's x and y. Generic curry ((x ) (curried ...) => ) == (fun ((args ...)) (apply f (cat curried args))) Generic rcurry ((x ) (curried ...) => ) == (fun ((args ...)) (apply f (cat args curried)))) Generic always ((x ) => ) creates a function that always returns x. Generic apply ((x ) (args ) => ) 3.11.1 GENERICS Class () Slot fun-mets ((x ) => ) returns x's methods. Generic gen-add-met ((x ) (y ) => ) adds method y to generic x. Generic sorted-app-mets ((x ) (args ) => (tup (ordered ) (ambiguous ))) returns both the list of sorted applicable methods and any ambiguous methods when generic x is called with arguments args. 3.11.2 METHODS Class () Generic met-app? ((x ) (args ) => ) determines whether x is applicable when called with args. 3.12 CONDITIONS Class () Generic default-handler ((x ) => ) Generic default-handler-description ((c ) => ) Return a string describing an anonymous handler for this type of condition. Generic build-condition-interactively ((cond-type ) in out => ) Construct a condition of the specified type and interactively prompt the user to fill in any important slots. Called by the debugger. Methods should call next-method to build the condition, then set the slots for their own class. Generic sig ((x ) (args ...)) signals a condition with optional arguments args. Class () Slot condition-message ((x ) => ) Slot condition-arguments ((x ) => ) Class () Class () Generic error ((x ) (args ...)) Class ( ) Class () Class () Generic handler-function ((x ) => ) Generic make-handler ((x ) => ) Generic handler-matches? ((x ) (y ) => ) 3.13 PORTS Class () 3.13.1 INPUT PORTS Class () Generic read-char ((x ) => ) Generic peek-char ((x ) => ) Generic char-ready? ((x ) => ) 3.13.2 OUTPUT PORTS Class () Generic newline ((x )) Generic force-output ((x )) Generic write-char ((x )) Generic write-string ((x )) 3.13.3 FILE PORTS Class () 3.13.3.1 FILE INPUT PORTS Class ( ) Generic open-input-file ((filename ) => ) Generic close-input-port ((x )) Generic call-with-input-file ((filename ) (f )) calls f with port created with open-input-file on filename and ensures that port is closed after f returns. Instance in (isa ) standard input. 3.13.3.2 FILE OUTPUT PORTS Class ( ) Generic open-output-file ((filename ) => ) Generic close-output-port ((x )) Generic call-with-output-file ((filename ) (f )) calls f with port created with open-output-file on filename and ensures that port is closed after f returns. Instance out (isa ) standard output. 3.13.4 STRING PORTS Class Generic port-contents ((x ) => ) 3.13.4.1 STRING INPUT PORTS Class ( ) Slot port-index ((x ) => ) Generic call-with-string-input-port ((x ) (f )) analogous to call-with-file-input-port. 3.13.4.2 STRING OUTPUT PORTS Class ( ) Generic call-with-string-output-port ((f )) analogous to call-with-file-output-port. 3.14 INPUT Generic read ((x ) => ) returns sexpr result of parsing characters coming in on port x until (eof-char? (read-char x)) returns true. Generic read-from-string ((x ) => ) Generic read-file ((filename ) => ) 3.14 OUTPUT Generic write ((x ) (y )) verbose printing. prints strings with double quotes etc. Generic display ((x ) (y )) non verbose printing. prints strings without double quotes etc. Generic writeln ((x ) (y )) (seq (write x y) (newline)) Generic write-to-string ((x ) => ) Generic format ((message ) (args ...)) formatted output using special commands embedded in message. supported commands are: %= => (write x arg) %s => (display x arg) %d => (write x arg) %% => (write-char x #\%) which consume one argument at a time. otherwise subsequent message characters are printed to port x (cf. Dylan's and CL's format). 3.16 SYSTEM Method app-filename (=> ) returns the filename of the application. Method app-args (=> ) returns a list of argument strings with which the application was called. 3.17 TOP LEVEL Functions which load code at runtime require a symbol specifying the module name to use. Generic load ((filename ) (modname ) => ) returns the result of evaluating the result of reading file named filename. Generic eval ((x ) (modname ) => ) return's result of evaluating x. Generic top ((modname )) runs top-level read-eval-print loop which reads from in and writes to out. Generic do-stack-frames ((f )) calls f ((f ) (args ...)) on all stack frames. Generic backtrace () prints out called functions and their arguments. 4 USAGE 4.0 INSTALLATION Unpack either a linux or windows version of proto into an appropriate installation area. There are three directories: DOC, BIN, SRC, AND EMACS. 4.0.1 SETTING UP PROTO_ROOT Set up your OS environment variable named PROTO_ROOT to your top level proto directory (i.e., containing the subdirectory named SRC). Make sure to slash terminate the path. For example, my PROTO_ROOT on win32 is: SET PROTO_ROOT=\jrb\ai\proto\ On linux of course you would use forward slashes and environment variable setting depends on the shell you're using. 4.1 STARTING Typing proto at your shell will start up a proto read-eval-print loop. 4.1.1 PATCHES FILE During start up, Proto will load two patch files, one from ${PROTO_ROOT}\SRC\system-patches.proto and one from ${PROTO_ROOT}\SRC\user-patches.proto You can customize your proto by adding forms to user-patches. 4.2 STOPPING Type (quit) at top level to exit from proto. 4.3 KEYBOARD INTERRUPTS Type ^C at top level to invoke a recursive read-eval-print loop. 4.4 ERRORS errors are reporting in recursive read-eval-print loops. you can pop up a level by typing (up) at a particular level. 4.5 LOADING CODE Use the load function to load a file of source into proto: (load "\\jrb\\ai\\proto\\interpreters\\basic.proto") make sure to use double backslashes on windows in pathnames. also you probably need to use an absolute pathname for your file include the ".proto" suffix if appropriate. 4.6 EMACS SUPPORT 4.6.1 EMACS MODE Put EMACS/proto.el in your emacs lisp directory. Add the following to your .emacs file: ;; proto (autoload 'proto-mode "proto" "Major mode for editing Proto source." t) (setq auto-mode-alist (cons '("\\.proto\\'" . proto-mode) auto-mode-alist)) Cool features: * You can add "font-lock" mode by adding the following to your .emacs: (global-font-lock-mode t) In a given buffer, you can toggle font-lock with M-x font-lock-mode * Check out the "Index" menu item in a proto buffer. 4.6.2 EMACS SHELL Put EMACS/proto-shell.el in your emacs lisp directory. Add the following to your .emacs: (autoload 'run-proto "proto-shell" "Run an inferior Proto process." t) (setq auto-mode-alist (cons '("\\.proto\\'" . proto-mode) auto-mode-alist)) (setq proto-program-name "C:/proto/proto.exe") ; as appropriate make sure to set up the proto-program-name to correspond to your installation area. Useful command / key-bindings are: M-C-x proto-send-definition C-c C-e proto-send-definition C-c M-e proto-send-definition-and-go C-c C-r proto-send-region C-c M-r proto-send-region-and-go C-c C-z switch-to-proto Check out proto-shell.el for the complete list of command / key-bindings. I doubt the compile commands do anything useful cause there isn't a compiler. 5 CAVEATS Proto is pretty slow at this point. I'm using an AST-based interpreter. This will improve in coming releases. There is not a large amount of debugging support. In particular, there is no backtrace facilities. You must instead rely on redefinition and print statements. Again, i will be adding this in the next release. Documentation is lacking. Please consult the runtime libraries in the SRC directory. Also check out Scheme and Dylan's manuals for information of their lexical structure and special form behavior respectively. The names of functions will probably change in the near future. Please give me feedback on the current names. There might be times when the interpreter gets confused. Please try to figure out why if possible, but don't be surprised if you have to exit proto and reload your program. I will try to make Proto a much more livable place asap. Please, please, please send bug reports to jrb@ai.mit.edu. I will fix your bugs asap. goo-0.155/doc/extarticle.cls0100644000175000017500000005137607445743563015362 0ustar vomjomvomjom%% This is file `extarticle.cls', %% (new: size options 9pt, 14pt, 17pt, 20pt) %% generated from `report.cls' by Wolfgang May, Inst.f.Informatik, %% Universitaet freiburg, Germany. %% %% Some modifications (mainly for size and new font sizes) %% by James Kilfiger. %% mapdn@csv.warwick.ac.uk % %% %% The original source files were: %% Copyright 1993 1994 1995 1996 1999 %% The LaTeX3 Project and any individual authors listed elsewhere %% in this file. %% %% This file may be distributed under the terms of the Latex Project %% public licence %% %% This system is distributed in the hope that it will be useful, %% but WITHOUT ANY WARRANTY; without even the implied warranty of %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. \NeedsTeXFormat{LaTeX2e}[1995/12/01] \ProvidesClass{extarticle} [1996/10/08 v1.0 Non Standard LaTeX document class] \newcommand\@ptsize{} \newif\if@restonecol \newif\if@titlepage \@titlepagefalse \DeclareOption{a4paper} {\setlength\paperheight {297mm}% \setlength\paperwidth {210mm}} \DeclareOption{a5paper} {\setlength\paperheight {210mm}% \setlength\paperwidth {148mm}} \DeclareOption{b5paper} {\setlength\paperheight {250mm}% \setlength\paperwidth {176mm}} \DeclareOption{letterpaper} {\setlength\paperheight {11in}% \setlength\paperwidth {8.5in}} \DeclareOption{legalpaper} {\setlength\paperheight {14in}% \setlength\paperwidth {8.5in}} \DeclareOption{executivepaper} {\setlength\paperheight {10.5in}% \setlength\paperwidth {7.25in}} \DeclareOption{landscape} {\setlength\@tempdima {\paperheight}% \setlength\paperheight {\paperwidth}% \setlength\paperwidth {\@tempdima}} \DeclareOption{8pt}{\renewcommand\@ptsize{8}} \DeclareOption{9pt}{\renewcommand\@ptsize{9}} \DeclareOption{10pt}{\renewcommand\@ptsize{10}} \DeclareOption{11pt}{\renewcommand\@ptsize{11}} \DeclareOption{12pt}{\renewcommand\@ptsize{12}} \DeclareOption{14pt}{\renewcommand\@ptsize{14}} \DeclareOption{17pt}{\renewcommand\@ptsize{17}} \DeclareOption{20pt}{\renewcommand\@ptsize{20}} \DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse} \DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue} \DeclareOption{draft}{\setlength\overfullrule{5pt}} \DeclareOption{final}{\setlength\overfullrule{0pt}} \DeclareOption{titlepage}{\@titlepagetrue} \DeclareOption{notitlepage}{\@titlepagefalse} \DeclareOption{onecolumn}{\@twocolumnfalse} \DeclareOption{twocolumn}{\@twocolumntrue} \DeclareOption{leqno}{\input{leqno.clo}} \DeclareOption{fleqn}{\input{fleqn.clo}} \DeclareOption{openbib}{% \AtEndOfPackage{% \renewcommand\@openbib@code{% \advance\leftmargin\bibindent \itemindent -\bibindent \listparindent \itemindent \parsep \z@ }% \renewcommand\newblock{\par}}% } \ExecuteOptions{letterpaper,10pt,oneside,onecolumn,final} \ProcessOptions \def\EC@family#1#2#3#4#5{% \DeclareFontShape{#1}{#2}{#3}{#4}% {<5><6><7><8><9><10><10.95><12><14.4>% <17.28><20.74><24.88><29.86><35.83><42.99><51.59>genb*#5}{}} \EC@family{T1}{cmr}{m}{n}{ecrm} \EC@family{T1}{cmr}{m}{sl}{ecsl} \EC@family{T1}{cmr}{m}{it}{ecti} \EC@family{T1}{cmr}{m}{sc}{eccc} \EC@family{T1}{cmr}{bx}{n}{ecbx} \EC@family{T1}{cmr}{b}{n}{ecrb} \EC@family{T1}{cmr}{bx}{it}{ecbi} \EC@family{T1}{cmr}{bx}{sl}{ecbl} \EC@family{T1}{cmr}{bx}{sc}{ecxc} \EC@family{T1}{cmr}{m}{ui}{ecui} \DeclareFontShape{OT1}{cmr}{m}{n}% {<5><6><7><8><9><10><12>gen*cmr% <10.95>cmr10% <14.4>cmr12% <17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmr17}{} \DeclareFontShape{OT1}{cmr}{m}{sl}% {<5><6><7>cmsl8% <8><9>gen*cmsl% <10><10.95>cmsl10% <12><14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmsl12% }{} \DeclareFontShape{OT1}{cmr}{m}{it}% {<5><6><7>cmti7% <8>cmti8% <9>cmti9% <10><10.95>cmti10% <12><14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmti12% }{} \DeclareFontShape{OT1}{cmr}{m}{sc}% {<5><6><7><8><9><10><10.95><12>% <14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmcsc10% }{} \DeclareFontShape{OT1}{cmr}{m}{ui} {<5><6><7><8><9><10><10.95><12>% <14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmu10% }{} \DeclareFontShape{OT1}{cmr}{b}{n} {<5><6><7><8><9><10><10.95><12>% <14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmb10% }{} \DeclareFontShape{OT1}{cmr}{bx}{n} {<5><6><7><8><9>gen*cmbx% <10><10.95>cmbx10% <12><14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmbx12% }{} \DeclareFontShape{OT1}{cmr}{bx}{sl} {<5><6><7><8><9>% <10><10.95><12><14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmbxsl10% }{} \DeclareFontShape{OT1}{cmr}{bx}{it} {<5><6><7><8><9>% <10><10.95><12><14.4><17.28><20.74><24.88><29.86><35.83><42.99><51.59>cmbxti10% }{} \input{size\@ptsize.clo} \RequirePackage{exscale} \setlength\lineskip{1\p@} \setlength\normallineskip{1\p@} \renewcommand\baselinestretch{} \setlength\parskip{0\p@ \@plus \p@} \@lowpenalty 51 \@medpenalty 151 \@highpenalty 301 \setcounter{topnumber}{2} \renewcommand\topfraction{.7} \setcounter{bottomnumber}{1} \renewcommand\bottomfraction{.3} \setcounter{totalnumber}{3} \renewcommand\textfraction{.2} \renewcommand\floatpagefraction{.5} \setcounter{dbltopnumber}{2} \renewcommand\dbltopfraction{.7} \renewcommand\dblfloatpagefraction{.5} \if@twoside \def\ps@headings{% \let\@oddfoot\@empty\let\@evenfoot\@empty \def\@evenhead{\thepage\hfil\slshape\leftmark}% \def\@oddhead{{\slshape\rightmark}\hfil\thepage}% \let\@mkboth\markboth \def\sectionmark##1{% \markboth {\MakeUppercase{% \ifnum \c@secnumdepth >\z@ \thesection\quad \fi ##1}}{}}% \def\subsectionmark##1{% \markright {% \ifnum \c@secnumdepth >\@ne \thesubsection\quad \fi ##1}}} \else \def\ps@headings{% \let\@oddfoot\@empty \def\@oddhead{{\slshape\rightmark}\hfil\thepage}% \let\@mkboth\markboth \def\sectionmark##1{% \markright {\MakeUppercase{% \ifnum \c@secnumdepth >\m@ne \thesection\quad \fi ##1}}}} \fi \def\ps@myheadings{% \let\@oddfoot\@empty\let\@evenfoot\@empty \def\@evenhead{\thepage\hfil\slshape\leftmark}% \def\@oddhead{{\slshape\rightmark}\hfil\thepage}% \let\@mkboth\@gobbletwo \let\sectionmark\@gobble \let\subsectionmark\@gobble } \if@titlepage \newcommand\maketitle{\begin{titlepage}% \let\footnotesize\small \let\footnoterule\relax \let \footnote \thanks \null\vfil \vskip 60\p@ \begin{center}% {\LARGE \@title \par}% \vskip 3em% {\large \lineskip .75em% \begin{tabular}[t]{c}% \@author \end{tabular}\par}% \vskip 1.5em% {\large \@date \par}% % Set date in \large size. \end{center}\par \@thanks \vfil\null \end{titlepage}% \setcounter{footnote}{0}% \global\let\thanks\relax \global\let\maketitle\relax \global\let\@thanks\@empty \global\let\@author\@empty \global\let\@date\@empty \global\let\@title\@empty \global\let\title\relax \global\let\author\relax \global\let\date\relax \global\let\and\relax } \else \newcommand\maketitle{\par \begingroup \renewcommand\thefootnote{\@fnsymbol\c@footnote}% \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}% \long\def\@makefntext##1{\parindent 1em\noindent \hb@xt@1.8em{% \hss\@textsuperscript{\normalfont\@thefnmark}}##1}% \if@twocolumn \ifnum \col@number=\@ne \@maketitle \else \twocolumn[\@maketitle]% \fi \else \newpage \global\@topnum\z@ % Prevents figures from going at top of page. \@maketitle \fi \thispagestyle{plain}\@thanks \endgroup \setcounter{footnote}{0}% \global\let\thanks\relax \global\let\maketitle\relax \global\let\@maketitle\relax \global\let\@thanks\@empty \global\let\@author\@empty \global\let\@date\@empty \global\let\@title\@empty \global\let\title\relax \global\let\author\relax \global\let\date\relax \global\let\and\relax } \def\@maketitle{% \newpage \null \vskip 2em% \begin{center}% \let \footnote \thanks {\LARGE \@title \par}% \vskip 1.5em% {\large \lineskip .5em% \begin{tabular}[t]{c}% \@author \end{tabular}\par}% \vskip 1em% {\large \@date}% \end{center}% \par \vskip 1.5em} \fi \setcounter{secnumdepth}{3} \newcounter {part} \newcounter {section} \newcounter {subsection}[section] \newcounter {subsubsection}[subsection] \newcounter {paragraph}[subsubsection] \newcounter {subparagraph}[paragraph] \renewcommand\thepart {\@Roman\c@part} \renewcommand\thesection {\@arabic\c@section} \renewcommand\thesubsection {\thesection.\@arabic\c@subsection} \renewcommand\thesubsubsection{\thesubsection .\@arabic\c@subsubsection} \renewcommand\theparagraph {\thesubsubsection.\@arabic\c@paragraph} \renewcommand\thesubparagraph {\theparagraph.\@arabic\c@subparagraph} \newcommand\part{% \if@noskipsec \leavevmode \fi\par \addvspace{4ex}% \@afterindentfalse \secdef\@part\@spart} \def\@part[#1]#2{% \ifnum \c@secnumdepth >\m@ne \refstepcounter{part}% \addcontentsline{toc}{part}{\thepart\hspace{1em}#1}% \else \addcontentsline{toc}{part}{#1}% \fi {\parindent \z@ \raggedright \interlinepenalty \@M \normalfont \ifnum \c@secnumdepth >\m@ne \Large\bfseries \partname~\thepart \par\nobreak \fi \huge \bfseries #2% \markboth{}{}\par}% \nobreak \vskip 3ex \@afterheading} \def\@spart#1{% {\parindent \z@ \raggedright \interlinepenalty \@M \normalfont \huge \bfseries #1\par}% \nobreak \vskip 3ex \@afterheading} \newcommand\section{\@startsection {section}{1}{\z@}% {-3.5ex \@plus -1ex \@minus -.2ex}% {2.3ex \@plus.2ex}% {\normalfont\Large\bfseries}} \newcommand\subsection{\@startsection{subsection}{2}{\z@}% {-3.25ex\@plus -1ex \@minus -.2ex}% {1.5ex \@plus .2ex}% {\normalfont\large\bfseries}} \newcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}% {-3.25ex\@plus -1ex \@minus -.2ex}% {1.5ex \@plus .2ex}% {\normalfont\normalsize\bfseries}} \newcommand\paragraph{\@startsection{paragraph}{4}{\z@}% {3.25ex \@plus1ex \@minus.2ex}% {-1em}% {\normalfont\normalsize\bfseries}} \newcommand\subparagraph{\@startsection{subparagraph}{5}{\parindent}% {3.25ex \@plus1ex \@minus .2ex}% {-1em}% {\normalfont\normalsize\bfseries}} \if@twocolumn \setlength\leftmargini {2em} \else \setlength\leftmargini {2.5em} \fi \leftmargin \leftmargini \setlength\leftmarginii {2.2em} \setlength\leftmarginiii {1.87em} \setlength\leftmarginiv {1.7em} \if@twocolumn \setlength\leftmarginv {.5em} \setlength\leftmarginvi {.5em} \else \setlength\leftmarginv {1em} \setlength\leftmarginvi {1em} \fi \setlength \labelsep {.5em} \setlength \labelwidth{\leftmargini} \addtolength\labelwidth{-\labelsep} \@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty -\@lowpenalty \renewcommand\theenumi{\@arabic\c@enumi} \renewcommand\theenumii{\@alph\c@enumii} \renewcommand\theenumiii{\@roman\c@enumiii} \renewcommand\theenumiv{\@Alph\c@enumiv} \newcommand\labelenumi{\theenumi.} \newcommand\labelenumii{(\theenumii)} \newcommand\labelenumiii{\theenumiii.} \newcommand\labelenumiv{\theenumiv.} \renewcommand\p@enumii{\theenumi} \renewcommand\p@enumiii{\theenumi(\theenumii)} \renewcommand\p@enumiv{\p@enumiii\theenumiii} \newcommand\labelitemi{\textbullet} \newcommand\labelitemii{\normalfont\bfseries \textendash} \newcommand\labelitemiii{\textasteriskcentered} \newcommand\labelitemiv{\textperiodcentered} \newenvironment{description} {\list{}{\labelwidth\z@ \itemindent-\leftmargin \let\makelabel\descriptionlabel}} {\endlist} \newcommand*\descriptionlabel[1]{\hspace\labelsep \normalfont\bfseries #1} \if@titlepage \newenvironment{abstract}{% \titlepage \null\vfil \@beginparpenalty\@lowpenalty \begin{center}% \bfseries \abstractname \@endparpenalty\@M \end{center}}% {\par\vfil\null\endtitlepage} \else \newenvironment{abstract}{% \if@twocolumn \section*{\abstractname}% \else \small \begin{center}% {\bfseries \abstractname\vspace{-.5em}\vspace{\z@}}% \end{center}% \quotation \fi} {\if@twocolumn\else\endquotation\fi} \fi \newenvironment{verse} {\let\\\@centercr \list{}{\itemsep \z@ \itemindent -1.5em% \listparindent\itemindent \rightmargin \leftmargin \advance\leftmargin 1.5em}% \item\relax} {\endlist} \newenvironment{quotation} {\list{}{\listparindent 1.5em% \itemindent \listparindent \rightmargin \leftmargin \parsep \z@ \@plus\p@}% \item\relax} {\endlist} \newenvironment{quote} {\list{}{\rightmargin\leftmargin}% \item\relax} {\endlist} \newenvironment{titlepage} {% \if@twocolumn \@restonecoltrue\onecolumn \else \@restonecolfalse\newpage \fi \thispagestyle{empty}% \setcounter{page}\@ne }% {\if@restonecol\twocolumn \else \newpage \fi \if@twoside\else \setcounter{page}\@ne \fi } \newcommand\appendix{\par \setcounter{section}{0}% \setcounter{subsection}{0}% \gdef\thesection{\@Alph\c@section}} \setlength\arraycolsep{5\p@} \setlength\tabcolsep{6\p@} \setlength\arrayrulewidth{.4\p@} \setlength\doublerulesep{2\p@} \setlength\tabbingsep{\labelsep} \skip\@mpfootins = \skip\footins \setlength\fboxsep{3\p@} \setlength\fboxrule{.4\p@} \renewcommand\theequation{\@arabic\c@equation} \newcounter{figure} \gdef\thefigure{\@arabic\c@figure} \def\fps@figure{tbp} \def\ftype@figure{1} \def\ext@figure{lof} \def\fnum@figure{\figurename~\thefigure} \newenvironment{figure} {\@float{figure}} {\end@float} \newenvironment{figure*} {\@dblfloat{figure}} {\end@dblfloat} \newcounter{table} \gdef\thetable{\@arabic\c@table} \def\fps@table{tbp} \def\ftype@table{2} \def\ext@table{lot} \def\fnum@table{\tablename~\thetable} \newenvironment{table} {\@float{table}} {\end@float} \newenvironment{table*} {\@dblfloat{table}} {\end@dblfloat} \newlength\abovecaptionskip \newlength\belowcaptionskip \setlength\abovecaptionskip{10\p@} \setlength\belowcaptionskip{0\p@} \long\def\@makecaption#1#2{% \vskip\abovecaptionskip \sbox\@tempboxa{#1: #2}% \ifdim \wd\@tempboxa >\hsize #1: #2\par \else \global \@minipagefalse \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}% \fi \vskip\belowcaptionskip} \DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm} \DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf} \DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt} \DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf} \DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit} \DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl} \DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc} \DeclareRobustCommand*\cal{\@fontswitch\relax\mathcal} \DeclareRobustCommand*\mit{\@fontswitch\relax\mathnormal} \newcommand\@pnumwidth{1.55em} \newcommand\@tocrmarg{2.55em} \newcommand\@dotsep{4.5} \setcounter{tocdepth}{3} \newcommand\tableofcontents{% \section*{\contentsname \@mkboth{% \MakeUppercase\contentsname}{\MakeUppercase\contentsname}}% \@starttoc{toc}% } \newcommand*\l@part[2]{% \ifnum \c@tocdepth >-2\relax \addpenalty\@secpenalty \addvspace{2.25em \@plus\p@}% \begingroup \setlength\@tempdima{3em}% \parindent \z@ \rightskip \@pnumwidth \parfillskip -\@pnumwidth {\leavevmode \large \bfseries #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par \nobreak \endgroup \fi} \newcommand*\l@section[2]{% \ifnum \c@tocdepth >\z@ \addpenalty\@secpenalty \addvspace{1.0em \@plus\p@}% \setlength\@tempdima{1.5em}% \begingroup \parindent \z@ \rightskip \@pnumwidth \parfillskip -\@pnumwidth \leavevmode \bfseries \advance\leftskip\@tempdima \hskip -\leftskip #1\nobreak\hfil \nobreak\hb@xt@\@pnumwidth{\hss #2}\par \endgroup \fi} \newcommand*\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}} \newcommand*\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}} \newcommand*\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}} \newcommand*\l@subparagraph{\@dottedtocline{5}{10em}{5em}} \newcommand\listoffigures{% \section*{\listfigurename \@mkboth{\MakeUppercase\listfigurename}% {\MakeUppercase\listfigurename}}% \@starttoc{lof}% } \newcommand*\l@figure{\@dottedtocline{1}{1.5em}{2.3em}} \newcommand\listoftables{% \section*{\listtablename \@mkboth{% \MakeUppercase\listtablename}{\MakeUppercase\listtablename}}% \@starttoc{lot}% } \let\l@table\l@figure \newdimen\bibindent \setlength\bibindent{1.5em} \newenvironment{thebibliography}[1] {\section*{\refname \@mkboth{\MakeUppercase\refname}{\MakeUppercase\refname}}% \list{\@biblabel{\@arabic\c@enumiv}}% {\settowidth\labelwidth{\@biblabel{#1}}% \leftmargin\labelwidth \advance\leftmargin\labelsep \@openbib@code \usecounter{enumiv}% \let\p@enumiv\@empty \renewcommand\theenumiv{\@arabic\c@enumiv}}% \sloppy\clubpenalty4000\widowpenalty4000% \sfcode`\.\@m} {\def\@noitemerr {\@latex@warning{Empty `thebibliography' environment}}% \endlist} \newcommand\newblock{\hskip .11em\@plus.33em\@minus.07em} \let\@openbib@code\@empty \newenvironment{theindex} {\if@twocolumn \@restonecolfalse \else \@restonecoltrue \fi \columnseprule \z@ \columnsep 35\p@ \twocolumn[\section*{\indexname}]% \@mkboth{\MakeUppercase\indexname}% {\MakeUppercase\indexname}% \thispagestyle{plain}\parindent\z@ \parskip\z@ \@plus .3\p@\relax \let\item\@idxitem} {\if@restonecol\onecolumn\else\clearpage\fi} \newcommand\@idxitem{\par\hangindent 40\p@} \newcommand\subitem{\@idxitem \hspace*{20\p@}} \newcommand\subsubitem{\@idxitem \hspace*{30\p@}} \newcommand\indexspace{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax} \renewcommand\footnoterule{% \kern-3\p@ \hrule\@width.4\columnwidth \kern2.6\p@} \newcommand\@makefntext[1]{% \parindent 1em% \noindent \hb@xt@1.8em{\hss\@makefnmark}#1} \newcommand\contentsname{Contents} \newcommand\listfigurename{List of Figures} \newcommand\listtablename{List of Tables} \newcommand\refname{References} \newcommand\indexname{Index} \newcommand\figurename{Figure} \newcommand\tablename{Table} \newcommand\partname{Part} \newcommand\appendixname{Appendix} \newcommand\abstractname{Abstract} \newcommand\today{\ifcase\month\or January\or February\or March\or April\or May\or June\or July\or August\or September\or October\or November\or December\fi \space\number\day, \number\year} \setlength\columnsep{10\p@} \setlength\columnseprule{0\p@} \pagestyle{plain} \pagenumbering{arabic} \if@twoside \else \raggedbottom \fi \if@twocolumn \twocolumn \sloppy \flushbottom \else \onecolumn \fi \endinput %% %% End of file `extarticle.cls'. goo-0.155/doc/goo-at-harvard.pdf0100644000175000017500000014413107445743563016011 0ustar vomjomvomjom%PDF-1.2 % 14 0 obj << /Length 15 0 R /Filter /FlateDecode >> stream H}Q[j@]|ڏwSZ,Rњb }a$ar^\A` FL+1‘JAOg&~# *ΫR ޡQÙ+%qL@L?,XYxЅx|(Ir9zmnf,хU !i.swVg}{hvw87-d9](rg3; #n<;L\ co]jhV6~7,=El10~K*tj endstream endobj 15 0 obj 301 endobj 4 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F2 10 0 R /F3 12 0 R >> /ProcSet 2 0 R >> /Contents 14 0 R >> endobj 19 0 obj << /Length 20 0 R /Filter /FlateDecode >> stream HSKoP n9Kָ0 ;S }AHIkwi4OZ!LvŻ`PX [F(Q&;'B 4? J:dǻDrn%PHt'RVB XR̜, M4pH+̓ǩQ{PYQ.c)T%oTQZ-;-G7[L U~~iZ-J//G#3?*>tqt0q6FRc]I g7ΰ,ĔI bąb {+I{lyv &KY/uL#k}zԷ菏;8ܟƭBAUFˀ޻4_Ή]W}]~\2n> /ProcSet 2 0 R >> /Contents 19 0 R >> endobj 22 0 obj << /Length 23 0 R /Filter /FlateDecode >> stream Hn@0TmܻJoZJ|Yk;Q߾BH#{fog ߂$wURdoɘ{$)ɨC B> _ +rH7k Lr_9z!1T ^ (C!Ω&Pe"=׶;i2Z=2p?ؒbZI9V!< ˃Ab k5Kieʹ[뵫 i. ĥ2֓|ז2U3"V&!< c2?Bቂć`.a^5=Vm44Lpzz-S^>m^sb칶qu?Zw6ޜd߭)|^^D>?Sgpx`~U˺%?pAt<^J[Cpos"u@xClк.g׶ju6zwl6uTyv1{,kԾJ?LJ9a\ 4`,Jb endstream endobj 23 0 obj 583 endobj 21 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 22 0 R >> endobj 25 0 obj << /Length 26 0 R /Filter /FlateDecode >> stream HSMo@9~/Sr̅.kLkEJ yoތ 06pxkF@ cL IP$|Hwd̽?&)ɨC w~" U݁7o)O2 Tx`yL VDo Λ)NH&b'!2bbe5,􊾘 ߏ3imo,Ts; qiYB#xfLp\FP4';j4]i+sj^5gNgkLȷcYUPdH()XRaqfTU\Bmk/Sɷmw9&3g.2 O"|1,tT'~=3 X!3T࣬γ=br1u#_=,xOms ]'4UI^-Ƴ<ŎXpwm?b!(|)m"lt; <_y ?Eu\~ں5LvS숫ާ\:E*!ٚy@wZ2 > /ProcSet 2 0 R >> /Contents 25 0 R >> endobj 30 0 obj << /Length 31 0 R /Filter /FlateDecode >> stream HR0ﰗ配V';ޔ qD ubVa}-0If4ѿ~+'$B朁 Z:Ͳ\ %2ORB֕ۇ3^}a kHw%C!oU DoKH!rɣ^u*W& RN(rba.\7Ϧ?o2I sH ݽ RyrVL1,Mi s4 NH1  _<ӒLsv=ʆtcg4({C6P;U*$geΆ}h6UKa~|7;/D?5] uc!:B*uMŐ"b,pJ4tl0aЩ=/N8ݶ{|24&9Jϣu z*rJIMLӏ.K0)i6wr>gPVmapph7ek˻ƧKe&L^xyf߿h2C0x{Npq붱E229 c.uCMU\j[zv}u .x|fՃٙԀXŮk[ֿren endstream endobj 31 0 obj 637 endobj 27 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F5 28 0 R >> /ProcSet 2 0 R >> /Contents 30 0 R >> endobj 33 0 obj << /Length 34 0 R /Filter /FlateDecode >> stream HSn@aH;ٮ5EhYn͟<1#Ω 2@9~q=ɧ]3ء:6pg sO\@Gwpo=,z"03%JDS] J`~&,js}+E:zz G,)i.AJz^\Z7Hնm?H%CBj9QQDunKw<_ PѠ7{8X .%FyFm\]N/ݻ2 \H endstream endobj 34 0 obj 492 endobj 32 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 33 0 R >> endobj 39 0 obj << /Length 40 0 R /Filter /FlateDecode >> stream HSKn0gFD 9ar0)AoA+bbA/`2 0`I-B4dUAfȉpciۿN|9^" erJo|U?!&Q&pjqʀ \ݩGBxd~&E8,ePݶ^ю =rG3Q I-8/|j19Mk;Kr`ٽ6;Ë-KoemWk7FzQkق6 4v4f:6KEGZDJ9Ki0&T`wQa}jtd޽&t_4vЫ&n{:[B C7a'o= n2L`tJ)X6W2y2 endstream endobj 40 0 obj 514 endobj 35 0 obj << /Type /Page /Parent 36 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F6 37 0 R >> /ProcSet 2 0 R >> /Contents 39 0 R >> endobj 42 0 obj << /Length 43 0 R /Filter /FlateDecode >> stream HUr0atW$utOy Z<@.JH`;gxl0ٳg &|%E9B-DF1d cçs#n3s'\*LE%_ nn@FB_`I 2 8?)bjݖ,JLrXj z2)H1Wr:7C 3eiW :2A-;Jc/g53,QSB&.ŏZj帚 [وٮJ7en{-ByI"p:.]n?MVq pT.b'{ZDxHrX:9ۮZYKh2hJHϵ U18Mbs"ʈ/ՏPɦsypjuAQĵr~ܴ "Zt eU0"oK1T՛{M)};v,7*ӟ`ҁ食),'&]y `p"HFW#~n..> /ProcSet 2 0 R >> /Contents 42 0 R >> endobj 47 0 obj << /Length 48 0 R /Filter /FlateDecode >> stream HRN@ak"xƂo1iQ|k*eiEcb%'gfggЖD jNPe:R) Ȧ=)nBb l do1Bpv](li*])or )ǢҘ{QҌ{e7M^#k05jx\+s Oˬ9Bfr؁B%{QVr&"RٙV%6^}l-G-T@O|"8gՐ\43S'L 9ogޙ%ylUv;uKw $z[>HM] 63@NJ S>f8Jytֱ2ߜR o67arl/8:~{fU|I& endstream endobj 48 0 obj 413 endobj 46 0 obj << /Type /Page /Parent 36 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 47 0 R >> endobj 50 0 obj << /Length 51 0 R /Filter /FlateDecode >> stream HMN0FO;|˲H:'aWTXJ Rq+ r,Yfޘ@` $hEv5 VR )Ndf[!AV R]!z%zB*b> /ProcSet 2 0 R >> /Contents 50 0 R >> endobj 53 0 obj << /Length 54 0 R /Filter /FlateDecode >> stream HTN@OR3$?L`5}H m88e(J>_^v@YKCLgUK PT5 ®me;.flm FPgՊ-EZWjjh-*=:VPy/kYÅ)emʻ \۵ibh25{)3\\OrbM$~> /ProcSet 2 0 R >> /Contents 53 0 R >> endobj 56 0 obj << /Length 57 0 R /Filter /FlateDecode >> stream HSn0H1DU4R1xfI =SV+@X# ϐ-)SLIPyŌSbFn]P#P>'T27w(kpX @H0"ĎTHq[O\W$ ~j4nuk6{ZxZyl{չo"-H1"sR3[@PjR}oT}74J~pbNq{3[[> /ProcSet 2 0 R >> /Contents 56 0 R >> endobj 60 0 obj << /Length 61 0 R /Filter /FlateDecode >> stream HSN@~\ 3ʸV1(+nKIwX 7@p@&40 ُ*B(j!/ Y)qPTO pyG#(Px NY#D҄)OM1 ,2:[]i w־1OEnD_L :|^R*ȍQ{s2l:4rֶkPy";~_NY{v %16RO(}?5R/;4X aWͶ+0W}/)y qAL'Gm2[C_cV?Ҡ$ endstream endobj 61 0 obj 410 endobj 58 0 obj << /Type /Page /Parent 59 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 60 0 R >> endobj 63 0 obj << /Length 64 0 R /Filter /FlateDecode >> stream HUɎ0 H,˽Ц=EIĭcL;vd||$C(8a]΢"O2$3uD-Ff$4L^|& f# So)0> 2xwS ;8xRc#8p>DzbWvW釲;̓6H~l:a0+,0D䏚}a^Rw5Nrf8Mo6t2ޯkKCu@eÍ/kМ `ggi{3E&ٞ endstream endobj 64 0 obj 722 endobj 62 0 obj << /Type /Page /Parent 59 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F6 37 0 R >> /ProcSet 2 0 R >> /Contents 63 0 R >> endobj 66 0 obj << /Length 67 0 R /Filter /FlateDecode >> stream HTn0ӃZm^RH[/D;lhRחx@-C"@aXAF pߒ a}k9(/9@s!~ylr1sqC hf,`A}@خ%C"EԏSOF1`;|k0v sa͡8*+X~u%~Vؕ B\POfArZTu|5bZ^i1)kL~ՂUW^R 分pgoBxr&<N؟medx[;ȡɹ!qU"NhMě~$ V=Tp?*چ%Gcb1FZt8h2pdQd ytwDf(3Y6Tk:"\co~Pe"i0mhvA.5)[XS'hKf`vѽ!fss1Nla:}B4|R岞$Něr6rEä-@Fcp^yK3S:c'h6ݘg Xj\WrN.֌0g,]$ ek&j endstream endobj 67 0 obj 622 endobj 65 0 obj << /Type /Page /Parent 59 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 66 0 R >> endobj 69 0 obj << /Length 70 0 R /Filter /FlateDecode >> stream HTMo@s~ڸ7ZH/"EzŘ55M쇝JSUi7Y @ 9S0R ه*+ P-3on 02c|MɌJ*0n=T0!➰wP}XÔpsK(%Oww!}ި?2> /ProcSet 2 0 R >> /Contents 69 0 R >> endobj 72 0 obj << /Length 73 0 R /Filter /FlateDecode >> stream HTˎ@C7{Gn$BZX _yx "ˮ1 D4 KY!EIY~,y(F 昙<O("S;rgs.f1`ZċJ(EWYV>Xk(}[l&?B6M|VL̙+eT ƋkkS/p!}̥&e7$? me/\rJFr'UZnCEs~.( Qlg§-rfV%iI1 ^aPɦUj wkB2k-a Q)mD\:SAm~@a%FvY{1 s!pǸ6(1l"EœqjZon#FP]&H=e/[7ZZ?p 4Ϧa_E ͎=bLx qaEg݅j~P a1C#1&C 4]#:7Z endstream endobj 73 0 obj 540 endobj 71 0 obj << /Type /Page /Parent 59 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 72 0 R >> endobj 77 0 obj << /Length 78 0 R /Filter /FlateDecode >> stream HTˎ0]E2~;j;U54 ҆A _S$+9{~ `IpװJ>I!3e s2ޯecfוf;(&D Hw 6 e)j ǹ(0cS]+H s50Vn n߿U]=lmpgpN`yPfgLtM_6LS#T2 8d/0 pxY it$DrPNZiVAMhrjah.4t+hTޫb P2 Q )rM@b.OKvzتm]p:Oqr2NH.4ԟYW4Rzԥ2t)2ݡl \)y]ƈN)A]8ʜsæ[эkc~DD:!|Ga)M/ѽa.O(w7giO)R8gWqm̠_ժh~YFBmk^&ET endstream endobj 78 0 obj 590 endobj 74 0 obj << /Type /Page /Parent 59 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F8 75 0 R >> /ProcSet 2 0 R >> /Contents 77 0 R >> endobj 81 0 obj << /Length 82 0 R /Filter /FlateDecode >> stream Hn0E@0Kw!efVE> /ProcSet 2 0 R >> /Contents 81 0 R >> endobj 84 0 obj << /Length 85 0 R /Filter /FlateDecode >> stream HTn@<:RLfv҄RSAԇ U2dC5,2ݛ)Ci>s̙+ȘQApVKqUj$@H m~u@qDKVyl9/_^gFy#@!H~2 @!UF8ŀ.RQ51#\0e* {ծ7fik^G:j_E\ O#$S$HӋat Y S*;(<"o^iЦ{m$rDz O'ydC֘ɩ\&k*Bzhm]5/L_n[/5(td{r,S^HjɍuyͲ3-ttnEHwO,^ X$^sdQ[vF>|L8EC)49XGR >ˁiN+21 (4d&@ˣRǣq nOy~a?uIJ$tTov~2>=\ eGDx^'/[JmDp~x?a#D5wrfS"? Y,{H endstream endobj 85 0 obj 587 endobj 83 0 obj << /Type /Page /Parent 80 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 84 0 R >> endobj 87 0 obj << /Length 88 0 R /Filter /FlateDecode >> stream HSN0݌TI; Fլ1M8rR b$Q||^# 0-$y.)gF.$uq(0+9:Ap/33 ]Hn. cBUeM߲}{9jS`rxtHe1πsI,* .V5 5j fX^;i9Iϑ2b_Oql)1 !ɪSvb`~S3s?Zg0s$ȸv4Ovڀ#D^yN"N|3gլ2o{ h%5 iu:"pg_IQaFwn9u /Xr>GViG96y RYCfWؿN3Y*k3a0rmo8®ڌ0Kx Rpgbsvn^MpQ/ۋi}iOe,b~QRC[;3q!ޝ,TgTEܸ\WQx> /ProcSet 2 0 R >> /Contents 87 0 R >> endobj 90 0 obj << /Length 91 0 R /Filter /FlateDecode >> stream HTn@<:lf/&)TYmZ^lLC!@Zvg9gvD U!ueU@JVc:0f .V!D ~\ SfK\IM __m@ 5N!0B&.A=) 2)nP,晾rF*Ky=D,F.Q@(-rP?5lt۲.!!o7ε(b4hmNCհk*;)y)*6?{5 1ҲaQU⤥e$ÒPu͒1x̦{I3#&4o/TfFT6IhY^)9){W%v\u\x*Oߨ9;h7w3 mj;L/Z _E,,&gd1a8wN{;tMu-"/z Z]I=8=jx3ս(tG~ꓳiq( endstream endobj 91 0 obj 611 endobj 89 0 obj << /Type /Page /Parent 80 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F8 75 0 R >> /ProcSet 2 0 R >> /Contents 90 0 R >> endobj 93 0 obj << /Length 94 0 R /Filter /FlateDecode >> stream HVnF<HM}4z -S6 Tl뻗Yr)KvQ83̒ XW1R8԰]|Y-JK(H$fA}-Fr.2SI=osX=IZ0U@]Tx?~xCN|h `h͸7$Zp!RT@T9 ~}Ta!*GvD;,q"ʂ )5᱿坔-5 i(Jb)*x}+Ea?zo|bu)[2|[?:n^jlDb<11X N0x1MpkUZxd–ϕL) $#LSql>aۦ6{sk1 Q6[Vmw}ԕ唇+mf@m0cewB} /Q<= ]CVCK ")R `j0^I8)tG6e|W-|#c.q4(x2@ $~<+,1J.3lP ̙B!q ߞݾ$f[ TNQz /뫰J 1lsl7X6gcGfa })-cs?➵%;eg<{ .Z9n0 NCk:;f=NcUP!HoK&H .I޷m3g O-/BdYے>T >wSyY>::ےR<]R2&(kYIx3?UUԤӂ]*B\tڽvfS;c\q>Yዘ֚rH11ӶS=: D|6 1@8=V@[̵ļkZr endstream endobj 94 0 obj 967 endobj 92 0 obj << /Type /Page /Parent 80 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F5 28 0 R /F8 75 0 R >> /ProcSet 2 0 R >> /Contents 93 0 R >> endobj 96 0 obj << /Length 97 0 R /Filter /FlateDecode >> stream HTˎ@C7{39EYK嘋1x6mX&TwTW .~# @g`<2dJ q%F2dTPK{7x Ǘ}K”p*j停P7" $f ̢r%sQLFQ\eϧpigx*zEշP 4u/SY uW 5RAm/|iLLhTSL%4bLG FB, jmY"E1G7īyN4#O+ʃ)PtpP;v p2fK %C  ǰ#pK w1!_a.1.xz%nBy4ͫ7\NrK<>7A.\Q ~ Rk͒2{q >j>tP5۪3/y|X cĨ_\w/˜lz?\O"&,ij~kH.)G\+95_[; endstream endobj 97 0 obj 596 endobj 95 0 obj << /Type /Page /Parent 80 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 96 0 R >> endobj 100 0 obj << /Length 101 0 R /Filter /FlateDecode >> stream HT]o@}짪-%Bm(qs 7`C-=I(R @p_IG ч#Pi:`L\+$_!}&e姢+ V=tc&p*:8vg>=ܝH:-x <{ HK>iIn:w8,0X՛ ]2DS [ȤNI*;ӆR4<a4X]jψ9(:O4 &~/(> /ProcSet 2 0 R >> /Contents 100 0 R >> endobj 103 0 obj << /Length 104 0 R /Filter /FlateDecode >> stream HRn0~!(EH"ȑ:TwdA=v, %,F@0k"P0Q]GDWº 7ȿ tO0j+IoP"Ž+I$BoZ' *h2NG$"EdGzȡnx>`y*IQ49!Tyk,nV>\:8 pu;n~Ũ- sn5ive/]cmRjq!.Rب''{ v7f|?gW;yrH;G&F:ϧ.N(cUW&*.H2 dWw~(Ik P۠,G?s ? endstream endobj 104 0 obj 416 endobj 102 0 obj << /Type /Page /Parent 99 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 103 0 R >> endobj 106 0 obj << /Length 107 0 R /Filter /FlateDecode >> stream HSn@a^͵VT ~fIlZH^njH3gΜ`x挀c<4&"` _`$e%$ x1_W@<[XQ`bN\J90IrM'MC r/ ڨzOD~"\9$2ipϖg%܅;dmaaP-{dy _qҷ 7gg̟I9kS OeL{ri r[e[ྭ[R]T]ۜ[V]mOI3vF5H~>?meSW>Bg= NFQفrHƧE<,.-oVV8j׮n&(#Jdwe1咆ѰWzjaT06*X^oaV> /ProcSet 2 0 R >> /Contents 106 0 R >> endobj 109 0 obj << /Length 110 0 R /Filter /FlateDecode >> stream HN0E0˲;3XBCB*K6J@Ї84$L5SFPZ<"OUjB )b~-$*dyC # 0+JBh6Pcо*aYm s&1"MԆz97Z&EBvԥ}d KyC6|aM3ݶtyi}9zx4:05^ m- &gY5vnk_=gsj۹]SK9ɭ49pan6]R[33 endstream endobj 110 0 obj 339 endobj 108 0 obj << /Type /Page /Parent 99 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 109 0 R >> endobj 112 0 obj << /Length 113 0 R /Filter /FlateDecode >> stream HRN@.qQz΋YƅiRYA"ʣ!/L+1id8{f%D\jBnDDKl!k„.Z`$Cv w \3 q&o6# 7DŽKf.pʀ ,E>OB)>MUm:/FI9I6REw&iX,5rY4ƵL$CK FԄJ+-4#ݫҶχ ) `$IUa*>_xkȇI`,D.saTʸ[ZR:,&]}^ endstream endobj 113 0 obj 351 endobj 111 0 obj << /Type /Page /Parent 99 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 112 0 R >> endobj 115 0 obj << /Length 116 0 R /Filter /FlateDecode >> stream HMN0O; c{K  d -McN*{o~3HD-8$4*]dr Pxb1|1W!|D~k‹Rb̀^ۇG OIPFѡ 'ׁg`Fx/t u^$^iz,|)?!Њ*ld'٬^i^7mw$7^ ڜ- ~0"=_32?_"+l²LW7Mw- T ؙµxg6/sȻ=Ծwf'ub1D3V® L[fOA^tAqPοC7oyٜ2)) k51S ^u!L>' endstream endobj 116 0 obj 407 endobj 114 0 obj << /Type /Page /Parent 99 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 115 0 R >> endobj 119 0 obj << /Length 120 0 R /Filter /FlateDecode >> stream HN0Epe03~Y]"ȒMTUZ#lPr}xB 0-v5SQYYY(B|"~$;UPɖMط;/̈nHм+ pd\Vu55"Dty /܆~(00fPItTrŒ{q<s`h4nŜid-?Ne/"vE:Z 6snPNvmř\Wlv{;?}Ovqsn6Y7x endstream endobj 120 0 obj 285 endobj 117 0 obj << /Type /Page /Parent 118 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R >> /ProcSet 2 0 R >> /Contents 119 0 R >> endobj 122 0 obj << /Length 123 0 R /Filter /FlateDecode >> stream HN@`,q=s ֍tu΍FML /*!hFzqՊ*4XT] y|B ,ȟ"Bj}C{ WAU XI > n* Q3+BQLTYǨGuTUuo~> /ProcSet 2 0 R >> /Contents 122 0 R >> endobj 127 0 obj << /Length 128 0 R /Filter /FlateDecode >> stream HT]o0I}mc*MUiQ i/4!Fٯmt&MI: "R`G`Q%&(t1|Ř0Ʉ^8GA}E m31.pq.R%Q!NXҧ bH3="JH4Zvc]94];a> o5˜"u0O` er*ΥWRC%֜1s~j]/e[ʺC^]qn=o <Mq@4٘*Ǥl]3$ݶZ t}j_ r_DL%I\0 #2w,s!uM#wq+2o+C~ qvHU{zgߊ[kbuMc  ƹ>bT歂]`u_vM[fv;m3j"{~?TΧ~uoЌ dSܻcjݔy^&BMHB^?pfuXvQ78S.̫.X7j* endstream endobj 128 0 obj 565 endobj 124 0 obj << /Type /Page /Parent 118 0 R /Resources << /Font << /F0 6 0 R /F1 8 0 R /F4 17 0 R /F8 75 0 R /F9 125 0 R >> /ProcSet 2 0 R >> /Contents 127 0 R >> endobj 6 0 obj << /Type /Font /Subtype /TrueType /Name /F0 /BaseFont /Impact /FirstChar 32 /LastChar 255 /Widths [ 176 270 370 626 547 693 576 185 313 313 281 533 168 294 185 396 536 381 502 530 500 537 542 392 535 542 202 202 533 533 533 525 775 508 552 554 553 416 398 551 555 288 331 537 380 717 542 546 502 546 539 517 461 547 523 814 482 473 397 282 396 282 483 552 333 504 520 495 520 511 289 519 524 274 280 478 274 771 523 511 519 518 358 471 305 522 437 669 434 448 351 370 271 370 525 750 531 750 168 443 345 553 543 543 333 1025 517 198 688 750 397 750 750 168 168 345 345 348 500 1000 333 783 471 198 765 750 351 473 176 270 517 535 548 473 271 484 333 784 325 371 533 294 784 552 347 533 318 326 333 471 576 220 333 245 330 371 624 645 691 525 508 508 508 508 508 508 713 554 416 416 416 416 288 288 288 288 559 542 546 546 546 546 546 533 546 547 547 547 547 473 502 550 504 504 504 504 504 504 753 495 511 511 511 511 274 274 274 274 511 523 511 511 511 511 511 533 511 522 522 522 522 448 519 448 ] /Encoding /WinAnsiEncoding /FontDescriptor 7 0 R >> endobj 7 0 obj << /Type /FontDescriptor /FontName /Impact /Flags 32 /FontBBox [ -250 -211 1226 1009 ] /MissingWidth 282 /StemV 74 /StemH 74 /ItalicAngle 0 /CapHeight 1009 /XHeight 505 /Ascent 1009 /Descent -211 /Leading 220 /MaxWidth 1022 /AvgWidth 409 >> endobj 8 0 obj << /Type /Font /Subtype /TrueType /Name /F1 /BaseFont /Forte /FirstChar 32 /LastChar 255 /Widths [ 266 365 355 668 542 854 573 191 344 323 333 667 219 250 198 469 531 375 448 531 490 490 510 467 490 490 292 292 667 667 667 406 1015 729 656 615 680 615 500 625 750 580 531 688 385 1083 802 635 594 677 625 510 469 625 544 813 719 688 625 385 469 406 469 500 333 552 469 385 573 427 367 550 500 250 292 500 458 771 510 542 552 548 324 448 344 531 431 677 500 500 427 389 588 390 667 500 500 500 219 556 331 1000 458 458 335 1281 510 219 1031 500 625 500 500 208 208 333 333 350 500 1000 347 1000 448 219 802 500 427 688 266 365 385 750 696 688 588 542 333 738 365 323 667 250 738 500 400 668 385 385 333 611 538 500 333 385 354 323 750 750 854 406 729 729 729 729 729 729 1010 615 615 615 615 615 580 580 580 580 677 802 635 635 635 635 635 667 638 625 625 625 625 688 594 583 552 552 552 552 552 552 771 385 427 427 427 427 250 250 250 250 542 510 542 542 542 542 542 668 542 531 531 531 531 500 552 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 9 0 R >> endobj 9 0 obj << /Type /FontDescriptor /FontName /Forte /Flags 40 /FontBBox [ -250 -214 1536 1000 ] /MissingWidth 406 /StemV 78 /StemH 78 /ItalicAngle 0 /CapHeight 880 /XHeight 440 /Ascent 880 /Descent -214 /Leading 358 /MaxWidth 1280 /AvgWidth 426 >> endobj 10 0 obj << /Type /Font /Subtype /TrueType /Name /F2 /BaseFont /Haettenschweiler /FirstChar 32 /LastChar 255 /Widths [ 178 168 374 803 379 346 426 222 247 247 421 373 157 225 154 334 388 244 376 375 441 376 375 376 378 379 155 155 382 382 381 355 801 440 379 370 382 326 313 370 380 182 363 406 314 570 425 382 379 383 401 383 350 391 413 629 455 440 367 157 334 157 469 372 155 361 356 356 356 357 278 356 358 166 178 410 172 546 356 352 356 356 356 354 302 356 379 597 391 386 356 309 170 309 584 750 370 750 157 318 305 471 447 447 310 505 383 311 528 750 367 750 750 148 141 286 286 234 391 535 355 474 354 311 551 750 356 440 178 166 361 408 433 460 181 347 262 407 191 551 569 225 407 372 233 383 200 203 155 356 583 155 820 164 187 547 510 510 482 358 440 440 440 440 440 440 566 370 326 326 326 326 182 182 182 182 423 425 382 382 382 382 382 584 379 391 391 391 391 440 387 430 361 361 361 361 361 361 532 356 357 357 357 357 166 166 166 166 421 356 352 352 352 352 352 377 357 356 356 356 356 386 368 386 ] /Encoding /WinAnsiEncoding /FontDescriptor 11 0 R >> endobj 11 0 obj << /Type /FontDescriptor /FontName /Haettenschweiler /Flags 32 /FontBBox [ -250 -120 985 1000 ] /MissingWidth 157 /StemV 57 /StemH 57 /ItalicAngle 0 /CapHeight 920 /XHeight 460 /Ascent 920 /Descent -120 /Leading 107 /MaxWidth 821 /AvgWidth 312 >> endobj 12 0 obj << /Type /Font /Subtype /TrueType /Name /F3 /BaseFont /GoudyStout /FirstChar 32 /LastChar 255 /Widths [ 500 546 506 942 825 682 1328 506 781 781 709 825 413 492 413 682 825 825 825 825 825 825 825 825 825 825 413 413 825 825 825 546 1037 1301 1164 986 1144 1183 1203 1223 1541 1011 1144 1484 1183 1686 1165 1237 1108 964 1380 963 1313 1295 1220 1714 1272 1321 1250 686 682 686 581 500 825 1301 1164 986 1144 1183 1203 1185 1541 1011 1144 1484 1183 1686 1165 1237 1108 964 1380 963 1313 1295 1220 1714 1272 1321 1250 686 200 686 852 500 500 500 413 647 752 1000 647 647 825 1009 963 825 1530 500 1250 500 500 413 413 731 731 709 725 1000 825 1000 963 825 1530 500 1250 1321 500 546 825 1183 500 1321 220 500 825 747 853 825 825 492 747 825 1000 825 682 682 825 576 847 647 825 682 905 825 682 682 682 546 1301 1301 1301 1301 1301 1301 1522 986 1183 1183 1183 1183 1011 1011 1011 1011 1144 1165 1237 1237 1237 1237 1237 825 1237 1295 1295 1295 1295 1321 1108 1841 1301 1301 1301 1301 1301 1301 1522 986 1183 1183 1183 1183 1011 1011 1011 1011 1144 1165 1237 1237 1237 1237 1237 825 1237 1295 1295 1295 1295 1321 1108 1321 ] /Encoding /WinAnsiEncoding /FontDescriptor 13 0 R >> endobj 13 0 obj << /Type /FontDescriptor /FontName /GoudyStout /Flags 34 /FontBBox [ -250 -349 2208 1019 ] /MissingWidth 686 /StemV 201 /StemH 201 /ItalicAngle 0 /CapHeight 1019 /XHeight 510 /Ascent 1019 /Descent -349 /Leading 368 /MaxWidth 1840 /AvgWidth 1109 >> endobj 17 0 obj << /Type /Font /Subtype /TrueType /Name /F4 /BaseFont /TimesNewRoman /FirstChar 32 /LastChar 255 /Widths [ 250 333 408 500 500 833 778 180 333 333 500 564 250 333 250 278 500 500 500 500 500 500 500 500 500 500 278 278 564 564 564 444 921 722 667 667 722 611 556 722 722 333 389 722 611 889 722 722 556 722 667 556 611 722 722 944 722 722 611 333 278 333 469 500 333 444 500 444 500 444 333 500 500 278 278 500 278 778 500 500 500 500 333 389 278 500 500 722 500 500 444 480 200 480 541 778 500 778 333 500 444 1000 500 500 333 1000 556 333 889 778 611 778 778 333 333 444 444 350 500 1000 333 980 389 333 722 778 444 722 250 333 500 500 500 500 200 500 333 760 276 500 564 333 760 500 400 549 300 300 333 576 453 250 333 300 310 500 750 750 750 444 722 722 722 722 722 722 889 667 611 611 611 611 333 333 333 333 722 722 722 722 722 722 722 564 722 722 722 722 722 722 556 500 444 444 444 444 444 444 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 549 500 500 500 500 500 500 500 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 18 0 R >> endobj 18 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman /Flags 34 /FontBBox [ -250 -216 1171 1000 ] /MissingWidth 325 /StemV 73 /StemH 73 /ItalicAngle 0 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 976 /AvgWidth 401 >> endobj 28 0 obj << /Type /Font /Subtype /TrueType /Name /F5 /BaseFont /TimesNewRoman,Bold /FirstChar 32 /LastChar 255 /Widths [ 250 333 555 500 500 1000 833 278 333 333 500 570 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 570 570 570 500 930 722 667 722 722 667 611 778 778 389 500 778 667 944 722 778 611 778 722 556 667 722 722 1000 722 722 667 333 278 333 581 500 333 500 556 444 556 444 333 500 556 278 333 556 278 833 556 500 556 556 444 389 333 556 500 722 500 500 444 394 220 394 520 778 500 778 333 500 500 1000 500 500 333 1000 556 333 1000 778 667 778 778 333 333 500 500 350 500 1000 333 1000 389 333 722 778 444 722 250 333 500 500 500 500 220 500 333 747 300 500 570 333 747 500 400 549 300 300 333 576 540 250 333 300 330 500 750 750 750 500 722 722 722 722 722 722 1000 722 667 667 667 667 389 389 389 389 722 722 778 778 778 778 778 570 778 722 722 722 722 722 611 556 500 500 500 500 500 500 722 444 444 444 444 444 278 278 278 278 500 556 500 500 500 500 500 549 500 556 556 556 556 500 556 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 29 0 R >> endobj 29 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman,Bold /Flags 16418 /FontBBox [ -250 -216 1158 1000 ] /MissingWidth 321 /StemV 136 /StemH 136 /ItalicAngle 0 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 965 /AvgWidth 427 >> endobj 37 0 obj << /Type /Font /Subtype /TrueType /Name /F6 /BaseFont /DIHKDI+Wingdings /FirstChar 30 /LastChar 255 /Widths [ 500 500 1000 1030 1145 1301 1344 894 1217 458 1084 892 1132 1132 1171 1171 1441 1443 1096 1343 699 699 892 554 602 1072 948 1078 939 891 892 892 891 910 910 587 793 674 674 942 942 549 549 892 843 843 843 1111 660 849 1089 888 880 650 813 747 747 723 693 794 885 892 896 891 1156 1054 964 1090 941 933 946 1025 929 1096 1065 780 1050 1271 747 953 747 891 891 891 891 458 747 986 891 578 1060 1060 891 892 892 530 530 500 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 892 1000 1000 1000 1000 1000 1000 1000 1000 313 458 313 891 891 891 891 891 953 458 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 891 1048 1048 1048 1048 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1253 1253 794 794 891 891 891 891 891 891 979 979 891 891 776 776 776 776 1067 1067 891 891 873 873 873 873 891 891 811 811 1060 811 782 782 782 782 482 385 635 786 892 892 1035 ] /FontDescriptor 38 0 R >> endobj 38 0 obj << /Type /FontDescriptor /FontName /DIHKDI+Wingdings /Flags 4 /FontBBox [ -250 -211 1736 1000 ] /MissingWidth 894 /StemV 162 /StemH 162 /ItalicAngle 0 /CapHeight 899 /XHeight 450 /Ascent 899 /Descent -211 /Leading 110 /MaxWidth 1447 /AvgWidth 890 /FontFile2 129 0 R >> endobj 129 0 obj << /Filter /FlateDecode /Length 130 0 R /Length1 132 0 R >> stream HUiTTG*&\lwKlVA@ F#Qk11IL4nf sb389[we35.x$7#579?o6DH-Z >xi-d˽,TlsH6w^Β=YA ,3=9reF<< $zZӺofz?_\dHg& 3䁀W$/xEI9! @ [_?RVb m$ψ4Au7LSUD~<8xaG1v\5~IoM25&vZIUkV]Wj%yxg̚ /aAE$$&͜5{K/]n{e+׿aj6omwܵvޏ?IC=VS5>/}y [.^koܼͷ;wwG?"3y*C$oҧEL1D 6@5NpFW"t' 聞P>0/|~ A 1C00#D`,!&񘀉$ɘA,XUZC5 saA2c@aF*Ґ C&0A. Xb HLl(,R,û({wXx`j[!>6l.F-`/>>|:!1| 8Ighi8/p_<_E4ЊWpp7p w.~=!'( 4wTLm)FʞZɡI&HTAVʓjB! h1RidV5lu|jěcHooZI뫠=d牳ԚӸEk(YB5k1$e'5d9̍*v8.jKiei&ܲj1 Ũ)9JrHiSke[`@w ^NRu_s`x{T 'bzq%67)q?e $ A)EW:V(Bݔ"vV~W'&R( YL$e*AlT?E| ݝe`Eݪ9ךyoV-Y*e(R@]O+)bC 6  8??߾>>j^={x{u٩"K̆(Y40aB6$ ESI:GS-V:3ÌdFd2g5 a٠jL͌M:!Iڭֹg]8LJP͞&UcլEeV-&WooiL @=MiEYT8Nx9ƑҢ &6`M_srh6y$h,2Ր0NsRi=F#5zj>|FgX iɳ5!9I?6`Ɨy4md#C|iDwO,3\"+nDV-T=T}YUUjII40`Ҵ_1m]g\ ؀m M8ƼqhEmaK u%5)C5MMjڴ[Wei*HSjTjѲRu[ιPNڤ3߽}^㇨K1>2\u<0 R9\p 禡Y5_V3[x d_ L G^BC1<]\qJtV@2:Ef9Q`H" L@ygJP m{B`]t7qJW ?z8<_ \0%Cc0i`J._CqONcⵯXm`T))Nr { L,pO] ^XcMBJmt~i Zs |XOv+##fJ76n^-ĖRЭWP90i5MTkj?E[/ [@Yns߇nW P_ڹw7E3hB,Z_ݷ [;Qz`7uuc'OML~iQWeU=¹[ڈ5JyG%r EˑV~9$Q1‡ZTp}kWw;eVG]Y3RPgOErnvOŴvF7u&/E@[s J 5purE_s75y>45WF>^~=Ds2=;r;jB\'_?4:˷jؿgϾPicctM^nw- 8g[mp>7'<>>*2eW?6:]9\~t%Ѿ|={:Fh}. RO\Cȹ/J-lzDڴaG Z"D|)Z6ݲÑGˎr rɛhNT" 2t/aw3ǁdm0?%շ$A wjBW7}Y?2m y{8ZX1q`Ͼ wȏs ^҆fQAӠZ -kzNNgzڪù ٻ?6#.w_{d 8iTbi{"ANNE?SݢD{p?ܷwH4{h?3/eRBϡ25EE,Ȩm-ꂑMCX4 l6_70~f`;>6q.X D]_uV,60,6Ա 7f d`+6G7Ljסy±b`'JT}dRaya'sK h?3\ 7p-0ns۽Gq)s LiFƏJ"d%ׁi:O,>%4IΪA<?yѡ#Gڞ:NsiA9~(*X]ND`$y夌%"$HFPf<#YhT\jaD'tl% )IKwg,6ODY6UBKDŽ|bMHY!^Y!VGD)!!U_Q Jk2L.M2$a 34rAc񌐑G* ZQ;AQ+DVBVP IA,[!XPԳXGi-lr|^J #g%yN RF#ѼSNu)% ^jsQj$ךN#z6$@&"QY͡~FV@05Y Y%AY0;Hה8i: PNH,4 c s _bAZyҴbdq%)_y}rFt4yjh a!"nYRVLA q.YaP&jAeK /+B:ꜘb+"YNUOEkGp2MK`UTU -_\A",62R Mw1"@4<."X 8Di /yCs9>eFbnĩqI[ΞN)333C?Ҿy3 y3`FI偢K\0eQcE&3G/O}AQ4i n&*dbe6K*ISidמ;%(M}ʄU2IN:5{SނE4cnV)s9݉Lw@p nFn@ JetZB&/cy0ʥ3lz(k7EI=ƙ _*%$XƮQ0զ[qe' eKGAdž̀Q&RZmlHp?Lzqէz}dn&LR!?S)QK˽4 =Q˼)ё7F~z\.r!Z;I<q^Aeٙ#W4^]*x&iĵI!s6.5짵dIF\3%Y%ɈJHBVOW.3ǽ+x;C n,Đ(\ڿu#ixmwB:=aQCth}4i#975Oʧ*4{sy-FȦ)ٜ;9"1#q9d /xH|ͯi,q0n3d9FFx>YuoOu*zwm#Kp ;[L h?H #t:wۊYXS18ƒ-1{ֶYֶxPƢgNH=WAGN|GuNA8K!ޙ;3|IPYmFe{l2hHW6b2^Ebgn{u]?Q/S߅F)v^,eٕ}VnM]4%/gKv^WL64Z5[6VɉiUd`U Phj}V$h'HsQ`b2_r"O،iI<6kK(d+&#BuA,(X8J"{S2]،a"?KEYb8HXT+֓eQbb] V[ee+5z5lZ57rگ%Ղ$&U4ܻIҧMMgQD]'w4 Qda -C[TJ*?>U%kv/U%$(Z3-h>T@;x-ߙ3ma;gΞ933]h?Ozn9[7P6 5IJEhnpLT1ᵕTP'.;ް $8d(v-KO,jxYimu7XRVZQ-h,:˩cjjSZƉ9^+N898gǖ\~WuXHw'9+;ozz=nȲ\wU;Q omxVCf:"y-S(I;x},"`~ 9RQIdTLai4{́1+b'IbӋLS)d߀_o/ ]` h,'C᮹Q>!"|OWDaKgEO&|VNgSIrB19*sҒRfLICCTubVQOE-kLŌƫFd%RoO; o |xJAsfLcUC@;#|/Ȼ o!yC͛wbu3O=/7iK+wQ;ͼ-LaVU;2X7lۆ=[r3h kP]p]G m5~|ʿ{ endstream endobj 130 0 obj 7975 endobj 132 0 obj 15388 endobj 131 0 obj 0 endobj 133 0 obj 0 endobj 44 0 obj << /Type /Font /Subtype /TrueType /Name /F7 /BaseFont /TimesNewRoman,BoldItalic /FirstChar 32 /LastChar 255 /Widths [ 250 389 555 500 500 833 778 278 333 333 500 570 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 570 570 570 500 832 667 667 667 722 667 667 722 778 389 500 667 611 889 722 722 611 722 667 556 611 722 667 889 667 611 611 333 278 333 570 500 333 500 500 444 500 444 333 500 556 278 278 500 278 778 556 500 500 500 389 389 278 556 444 667 500 444 389 348 220 348 570 778 500 778 333 500 500 1000 500 500 333 1000 556 333 944 778 611 778 778 333 333 500 500 350 500 1000 333 1000 389 333 722 778 389 611 250 389 500 500 500 500 220 500 333 747 266 500 606 333 747 500 400 549 300 300 333 576 500 250 333 300 300 500 750 750 750 500 667 667 667 667 667 667 944 667 667 667 667 667 389 389 389 389 722 722 722 722 722 722 722 570 722 722 722 722 722 611 611 500 500 500 500 500 500 500 722 444 444 444 444 444 278 278 278 278 500 556 500 500 500 500 500 549 500 556 556 556 556 444 500 444 ] /Encoding /WinAnsiEncoding /FontDescriptor 45 0 R >> endobj 45 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman,BoldItalic /Flags 16482 /FontBBox [ -250 -216 1171 1000 ] /MissingWidth 325 /StemV 131 /StemH 131 /ItalicAngle -11 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 976 /AvgWidth 412 >> endobj 75 0 obj << /Type /Font /Subtype /TrueType /Name /F8 /BaseFont /CourierNew /FirstChar 32 /LastChar 255 /Widths [ 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 ] /Encoding /WinAnsiEncoding /FontDescriptor 76 0 R >> endobj 76 0 obj << /Type /FontDescriptor /FontName /CourierNew /Flags 34 /FontBBox [ -250 -300 754 1000 ] /MissingWidth 628 /StemV 109 /StemH 109 /ItalicAngle 0 /CapHeight 833 /XHeight 417 /Ascent 833 /Descent -300 /Leading 133 /MaxWidth 628 /AvgWidth 600 >> endobj 125 0 obj << /Type /Font /Subtype /TrueType /Name /F9 /BaseFont /TimesNewRoman,Italic /FirstChar 32 /LastChar 255 /Widths [ 250 333 420 500 500 833 778 214 333 333 500 675 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 675 675 675 500 920 611 611 667 722 611 611 722 722 333 444 667 556 833 667 722 611 722 611 500 556 722 611 833 611 556 556 389 278 389 422 500 333 500 500 444 500 444 278 500 500 278 278 444 278 722 500 500 500 500 389 389 278 500 444 667 444 444 389 400 275 400 541 778 500 778 333 500 556 889 500 500 333 1000 500 333 944 778 556 778 778 333 333 556 556 350 500 889 333 980 389 333 667 778 389 556 250 389 500 500 500 500 275 500 333 760 276 500 675 333 760 500 400 549 300 300 333 576 523 250 333 300 310 500 750 750 750 500 611 611 611 611 611 611 889 667 611 611 611 611 333 333 333 333 722 667 722 722 722 722 722 675 722 722 722 722 722 556 611 500 500 500 500 500 500 500 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 549 500 500 500 500 500 444 500 444 ] /Encoding /WinAnsiEncoding /FontDescriptor 126 0 R >> endobj 126 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman,Italic /Flags 98 /FontBBox [ -250 -216 1169 1000 ] /MissingWidth 379 /StemV 73 /StemH 73 /ItalicAngle -11 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 974 /AvgWidth 402 >> endobj 2 0 obj [ /PDF /Text ] endobj 5 0 obj << /Kids [4 0 R 16 0 R 21 0 R 24 0 R 27 0 R 32 0 R ] /Count 6 /Type /Pages /Parent 134 0 R >> endobj 36 0 obj << /Kids [35 0 R 41 0 R 46 0 R 49 0 R 52 0 R 55 0 R ] /Count 6 /Type /Pages /Parent 134 0 R >> endobj 59 0 obj << /Kids [58 0 R 62 0 R 65 0 R 68 0 R 71 0 R 74 0 R ] /Count 6 /Type /Pages /Parent 134 0 R >> endobj 80 0 obj << /Kids [79 0 R 83 0 R 86 0 R 89 0 R 92 0 R 95 0 R ] /Count 6 /Type /Pages /Parent 134 0 R >> endobj 99 0 obj << /Kids [98 0 R 102 0 R 105 0 R 108 0 R 111 0 R 114 0 R ] /Count 6 /Type /Pages /Parent 134 0 R >> endobj 118 0 obj << /Kids [117 0 R 121 0 R 124 0 R ] /Count 3 /Type /Pages /Parent 134 0 R >> endobj 134 0 obj << /Kids [5 0 R 36 0 R 59 0 R 80 0 R 99 0 R 118 0 R ] /Count 33 /Type /Pages /MediaBox [ 0 0 792 612 ] >> endobj 1 0 obj << /Creator /CreationDate (D:20020304115708) /Title /Author /Producer (Acrobat PDFWriter 4.0 for Windows NT) >> endobj 3 0 obj << /Pages 134 0 R /Type /Catalog >> endobj xref 0 135 0000000000 65535 f 0000048010 00000 n 0000047204 00000 n 0000048382 00000 n 0000000418 00000 n 0000047235 00000 n 0000025317 00000 n 0000026398 00000 n 0000026654 00000 n 0000027740 00000 n 0000027993 00000 n 0000029084 00000 n 0000029347 00000 n 0000030552 00000 n 0000000019 00000 n 0000000398 00000 n 0000001108 00000 n 0000030816 00000 n 0000031907 00000 n 0000000572 00000 n 0000001088 00000 n 0000001932 00000 n 0000001251 00000 n 0000001912 00000 n 0000002734 00000 n 0000002075 00000 n 0000002714 00000 n 0000003612 00000 n 0000032168 00000 n 0000033269 00000 n 0000002877 00000 n 0000003592 00000 n 0000004357 00000 n 0000003767 00000 n 0000004337 00000 n 0000005112 00000 n 0000047344 00000 n 0000033540 00000 n 0000034669 00000 n 0000004500 00000 n 0000005092 00000 n 0000006071 00000 n 0000005268 00000 n 0000006051 00000 n 0000043109 00000 n 0000044212 00000 n 0000006750 00000 n 0000006239 00000 n 0000006730 00000 n 0000007254 00000 n 0000006894 00000 n 0000007234 00000 n 0000008169 00000 n 0000007398 00000 n 0000008149 00000 n 0000008856 00000 n 0000008313 00000 n 0000008836 00000 n 0000009508 00000 n 0000047455 00000 n 0000009000 00000 n 0000009488 00000 n 0000010472 00000 n 0000009652 00000 n 0000010452 00000 n 0000011348 00000 n 0000010628 00000 n 0000011328 00000 n 0000012186 00000 n 0000011492 00000 n 0000012166 00000 n 0000012968 00000 n 0000012330 00000 n 0000012948 00000 n 0000013800 00000 n 0000044491 00000 n 0000045576 00000 n 0000013112 00000 n 0000013780 00000 n 0000014490 00000 n 0000047566 00000 n 0000013956 00000 n 0000014470 00000 n 0000015319 00000 n 0000014634 00000 n 0000015299 00000 n 0000016191 00000 n 0000015463 00000 n 0000016171 00000 n 0000017056 00000 n 0000016347 00000 n 0000017036 00000 n 0000018277 00000 n 0000017212 00000 n 0000018257 00000 n 0000019139 00000 n 0000018445 00000 n 0000019119 00000 n 0000019986 00000 n 0000047677 00000 n 0000019283 00000 n 0000019965 00000 n 0000020660 00000 n 0000020143 00000 n 0000020639 00000 n 0000021425 00000 n 0000020806 00000 n 0000021404 00000 n 0000022023 00000 n 0000021583 00000 n 0000022002 00000 n 0000022621 00000 n 0000022169 00000 n 0000022600 00000 n 0000023275 00000 n 0000022767 00000 n 0000023254 00000 n 0000023807 00000 n 0000047793 00000 n 0000023421 00000 n 0000023786 00000 n 0000024332 00000 n 0000023954 00000 n 0000024311 00000 n 0000025145 00000 n 0000045835 00000 n 0000046933 00000 n 0000024479 00000 n 0000025124 00000 n 0000034954 00000 n 0000043026 00000 n 0000043071 00000 n 0000043048 00000 n 0000043090 00000 n 0000047887 00000 n trailer << /Size 135 /Root 3 0 R /Info 1 0 R /ID [] >> startxref 48433 %%EOF goo-0.155/doc/goo-boot.pdf0100644000175000017500000002666407445743563014735 0ustar vomjomvomjom%PDF-1.2 % 8 0 obj << /Length 9 0 R /Filter /FlateDecode >> stream HMM0O;.t)A M/P. ׷M̛ɼL}Hrs(R?Q@E/{-%*ɑ1:m endstream endobj 9 0 obj 179 endobj 4 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 8 0 R >> endobj 11 0 obj << /Length 12 0 R /Filter /FlateDecode >> stream HRMo0wl@̀ >UZm*{RTzT؆lk}#Ek8!)H@1TI!m[7Lc$T嚏 bdr>tGoPwC;Ը33Ϩ~G1%$ۘ1b> /ProcSet 2 0 R >> /Contents 11 0 R >> endobj 14 0 obj << /Length 15 0 R /Filter /FlateDecode >> stream Hn0 ǟ v%!㸉nyHuPhBjo?'RuIem l$)q RP054",b.A Ppe<?J[GTF[YngeME&sbjV`3=r52#E|) ǔCSmC682[ gY.Q׼.D1E`a7FvjvB#od6Wh]q>R[95􂫊(ע endstream endobj 15 0 obj 364 endobj 13 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 14 0 R >> endobj 17 0 obj << /Length 18 0 R /Filter /FlateDecode >> stream HeN0EpH ĂYIӺjq{hJh,y4=3wX N$KK5WЮ E$xz2HEkƛn@kt>vhⅇ&2wo\;\ڨQHEQ0 sRq$ :]piQXG2rW7/7p#Р HM7π.⊅F6|?w[5eKigl{ endstream endobj 18 0 obj 293 endobj 16 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 17 0 R >> endobj 22 0 obj << /Length 23 0 R /Filter /FlateDecode >> stream Hn0@0"=H!)q z)P2(O@R5]RC fg%>",9;$BLP:8' 3>0E,ce܀Μ|S8<'22(M"xFNAJ̚TWY̒-Ke. UBoLGjͶޠFcGЌKX\ u7An؋ݏ8j*ʙ/- Й^ *]h-'wmeЏc> /ProcSet 2 0 R >> /Contents 22 0 R >> endobj 25 0 obj << /Length 26 0 R /Filter /FlateDecode >> stream HRj@a& FK٤&!YXKKzA9gΙC, U@,4MpN"P q1!"y"GMkv2&,r 80 WqK0,N`ؗ# LYXPL *; y,8S躓| 8"kayj=`IJ$9cvbQfes$р0M)"> /ProcSet 2 0 R >> /Contents 25 0 R >> endobj 29 0 obj << /Length 30 0 R /Filter /FlateDecode >> stream HMn O]@`,ERUM%;`eQ)oë%xN^\wZ jW/y ѽhf^{*Yy5o["($l5qw8|`20@:2U8'ƓwCjXB€I!oD9"S*RgZ1ȶFrh!VsM, jXBf?ˈR*m: >3 endstream endobj 30 0 obj 280 endobj 27 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R /F1 20 0 R >> /ProcSet 2 0 R >> /Contents 29 0 R >> endobj 32 0 obj << /Length 33 0 R /Filter /FlateDecode >> stream Hn0w8c;@af`ԅRЦv@xH]"Ef̹>/w@sO1)F ) IZ'a-yPAJ2r#^VN?\vETP4{_77oAxxZ4`Lb:pH(crcǨ. :7!LMD>!X& bTuZöXO7%k"=|"xގڵ pDo1רCcI;tݜ," iA y^W|ڄ,qYs ߅6vs*`.fLQ?j|I\0^{J%4MT.Ly1)um(,P>5/a&YU/5WéC`Q?κ endstream endobj 33 0 obj 384 endobj 31 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 32 0 R >> endobj 35 0 obj << /Length 36 0 R /Filter /FlateDecode >> stream H}n0@06X)@9h #Ѷ (F޾+JN ((r[PVڡR 豒h䱭nJ4@7ItwǼf K}[՜ Lq)h{‡م_7|?!GtOUm%j2[qJ^*'[H?4E(m)aھ77ax>8ۘ[ޏaGi1 9j9Snd &Zb WEzMRxvq(4IlQfR5KﷀJSv\FBy|wyJf> /ProcSet 2 0 R >> /Contents 35 0 R >> endobj 38 0 obj << /Length 39 0 R /Filter /FlateDecode >> stream HmA0EO;%.05 A M,b2C -D#% CF V\! oD"aB{Cx\vwt0,*W [$gŠ;즠J9K|5HS3їH endstream endobj 39 0 obj 190 endobj 37 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 38 0 R >> endobj 41 0 obj << /Length 42 0 R /Filter /FlateDecode >> stream HTM09nPa*~ɱ[)۰*ڮ@bdߛy OwKW1 'ۄ*T넀$%#Ta\xb^o鍮ѽy$U7U<"S$#<~0sL5 + Iwa)gcUDȘ82,qcOm=VRh!r` Js}U#|^x1'g!%y6tBumɖڿBj" f6R[`wNMyHӗE 1l~ 魮1[׌Axh̍&HFY.;BGajք,<ͧb.KFOƴv2{X_j~f08 ;Aĩ%SF\I+82Q|廘]"tQżfd59K>?;5Tʗ87 OJFƯ]e:`,䣹6E `h⺺ZDNw,R>Gk3lkq=0\(uC;(; c@MPTN endstream endobj 42 0 obj 577 endobj 40 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 41 0 R >> endobj 44 0 obj << /Length 45 0 R /Filter /FlateDecode >> stream HTM0Xۉ8Jo$zn%#_UvJXx͛`ȨJ3V>{d9 ج2 'D¯+@9X<i6/E.9,E!tCD>&rZa$X\zJV6h틮\u 'UY3{%I_lLu}5θIJwI^&5VvF0ID/ލ;>aB_!EVumaFO_o9*p >3tU:)IÔ48u8v_N赏 ,Bw }cz%WUVNǻqoCJZD[Կb95NbB~Q:{;GWypVwZ/T2{dT s[ڴ-gfn9v$-fQherEFQ2~>>njw endstream endobj 45 0 obj 506 endobj 43 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R /F1 20 0 R >> /ProcSet 2 0 R >> /Contents 44 0 R >> endobj 6 0 obj << /Type /Font /Subtype /TrueType /Name /F0 /BaseFont /TimesNewRoman /FirstChar 32 /LastChar 255 /Widths [ 250 333 408 500 500 833 778 180 333 333 500 564 250 333 250 278 500 500 500 500 500 500 500 500 500 500 278 278 564 564 564 444 921 722 667 667 722 611 556 722 722 333 389 722 611 889 722 722 556 722 667 556 611 722 722 944 722 722 611 333 278 333 469 500 333 444 500 444 500 444 333 500 500 278 278 500 278 778 500 500 500 500 333 389 278 500 500 722 500 500 444 480 200 480 541 778 500 778 333 500 444 1000 500 500 333 1000 556 333 889 778 611 778 778 333 333 444 444 350 500 1000 333 980 389 333 722 778 444 722 250 333 500 500 500 500 200 500 333 760 276 500 564 333 760 500 400 549 300 300 333 576 453 250 333 300 310 500 750 750 750 444 722 722 722 722 722 722 889 667 611 611 611 611 333 333 333 333 722 722 722 722 722 722 722 564 722 722 722 722 722 722 556 500 444 444 444 444 444 444 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 549 500 500 500 500 500 500 500 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 7 0 R >> endobj 7 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman /Flags 34 /FontBBox [ -250 -216 1171 1000 ] /MissingWidth 325 /StemV 73 /StemH 73 /ItalicAngle 0 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 976 /AvgWidth 401 >> endobj 20 0 obj << /Type /Font /Subtype /TrueType /Name /F1 /BaseFont /CourierNew /FirstChar 32 /LastChar 255 /Widths [ 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 ] /Encoding /WinAnsiEncoding /FontDescriptor 21 0 R >> endobj 21 0 obj << /Type /FontDescriptor /FontName /CourierNew /Flags 34 /FontBBox [ -250 -300 757 1000 ] /MissingWidth 631 /StemV 109 /StemH 109 /ItalicAngle 0 /CapHeight 833 /XHeight 417 /Ascent 833 /Descent -300 /Leading 133 /MaxWidth 631 /AvgWidth 600 >> endobj 2 0 obj [ /PDF /Text ] endobj 5 0 obj << /Kids [4 0 R 10 0 R 13 0 R 16 0 R 19 0 R 24 0 R ] /Count 6 /Type /Pages /Parent 46 0 R >> endobj 28 0 obj << /Kids [27 0 R 31 0 R 34 0 R 37 0 R 40 0 R 43 0 R ] /Count 6 /Type /Pages /Parent 46 0 R >> endobj 46 0 obj << /Kids [5 0 R 28 0 R ] /Count 12 /Type /Pages /MediaBox [ 0 0 792 612 ] >> endobj 1 0 obj << /Creator /CreationDate (D:20020319140518) /Title /Author /Producer (Acrobat PDFWriter 4.0 for Windows NT) >> endobj 3 0 obj << /Pages 46 0 R /Type /Catalog >> endobj xref 0 47 0000000000 65535 f 0000010160 00000 n 0000009818 00000 n 0000010556 00000 n 0000000293 00000 n 0000009849 00000 n 0000007125 00000 n 0000008214 00000 n 0000000019 00000 n 0000000274 00000 n 0000000919 00000 n 0000000411 00000 n 0000000899 00000 n 0000001501 00000 n 0000001039 00000 n 0000001481 00000 n 0000002012 00000 n 0000001621 00000 n 0000001992 00000 n 0000002681 00000 n 0000008474 00000 n 0000009559 00000 n 0000002132 00000 n 0000002661 00000 n 0000003327 00000 n 0000002813 00000 n 0000003307 00000 n 0000003837 00000 n 0000009957 00000 n 0000003459 00000 n 0000003817 00000 n 0000004452 00000 n 0000003970 00000 n 0000004432 00000 n 0000005062 00000 n 0000004573 00000 n 0000005042 00000 n 0000005471 00000 n 0000005183 00000 n 0000005451 00000 n 0000006267 00000 n 0000005592 00000 n 0000006247 00000 n 0000006992 00000 n 0000006388 00000 n 0000006972 00000 n 0000010067 00000 n trailer << /Size 47 /Root 3 0 R /Info 1 0 R /ID [<530584cd896890160ed66f2616ccf1c2><530584cd896890160ed66f2616ccf1c2>] >> startxref 10606 %%EOF goo-0.155/doc/goo-imp.pdf0100644000175000017500000013307707445743563014554 0ustar vomjomvomjom%PDF-1.2 % 8 0 obj << /Length 9 0 R /Filter /FlateDecode >> stream HMM0FO;|K]mzJ@4 x};6L7OA!\KX#1h (-l-B^˜yވDK(2pSFSlQ>_Ywco}7emX8Ǎ ֐(ͪc߅ 6jxeF#1(59̞KuSL΋E?? endstream endobj 9 0 obj 190 endobj 4 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 8 0 R >> endobj 11 0 obj << /Length 12 0 R /Filter /FlateDecode >> stream HSn0 N$ǵvi jiAS~IN*T!g̞nQ>S"m(,KA(L(VQ - (y(0{̾n(g<W1P0\ gE ~q ^(WH{qVH 1#mhL}"3q&8ԇޗ  K_5> /ProcSet 2 0 R >> /Contents 11 0 R >> endobj 14 0 obj << /Length 15 0 R /Filter /FlateDecode >> stream HON0ۃxl%NdV%"qBc̛H KF#,:v0$Ȁl3TiAGKCCyB*Rsf3*-#89 fHԊ.QBy"2y%Z?)y|G8}ܥs1S8Z&cѦ&VEwuuN'aFaVܥ?hXUH2aK4 m endstream endobj 15 0 obj 253 endobj 13 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 14 0 R >> endobj 17 0 obj << /Length 18 0 R /Filter /FlateDecode >> stream Hmj@`/b73{hp&4i"Y28kdA^?{Ƞ"gS!g sA)[yмB$x~#X[ EA9޿}'4M($f —^`oaw K5d͉JLjcLu*.kٗtemp#n> /ProcSet 2 0 R >> /Contents 17 0 R >> endobj 22 0 obj << /Length 23 0 R /Filter /FlateDecode >> stream HWT7 ~y"qHbZyΖE,[ Ko$g.ljV$|c[~ Egf͓!,lnRufA#Bmyl,^loRŬDlv~6Ŭ/_[~a^,gۍMfq1~^ @[H "@BݨwjYs]tfOV]O֖fucbC&C^.L`h B Mŭ&5hc5-Tٶ B >k:y0`YZGR&IQat X)ht\r6Cvr6HHX-=bCDd!dQȭz7s'1d 1H'fQ" K#z${ڜTgrU8gY HY}=IgZ |x!7<}AaC;|x*gee5 xcJAZ9-G8tsk9$Þ0gRXW{E0pV];.'IV]u[ (E6KI -EBkSDŦ4Tt.ܪDž6QDo38yFozz7 *QZ PRm=霴QɹTp I|yA)#G .LhNƤoޗ9b0=!m"[2Eޕ-USUQ\|Ihz\նIAMZٰ~u akޮ&{¾@c kSy LMRrts_HSG*ӟxt8ZYďN֎tʣ !ipj<( &:Ӭ&5$_Vo=-dFILbͷG,~x"y=&]yZ <жIs1Ѓܳ.>BTU` E'b^ǞThVA>mk=HV7ݳtWpmdzk!&ͳ"ڎ+;DZ,֮Gk=&i7齝gLi} ]C}4#Nqܕm9#{0>;`$FCk;4hH.1ox_g#YyCf١~ @AS9:٨2l)ϔȥ$FxkƑL3ǨMԺUI8TԾeIY]^YgGZ fė,sgݳtGUFY Q~9c4_Z1J=$A ƔN1D2.a_uED QfpB@vSؒrC,lR PK'I:T]ZOeC Mf\'i׽Է{%5k]n'77B]Sy(c`sf./|}:bsk_]#8ZuÝY0^}x{u;10RSGzI&{{f@~}y;.偅-܁χ'=g,~qA,P endstream endobj 23 0 obj 1722 endobj 19 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R /F1 20 0 R >> /ProcSet 2 0 R >> /Contents 22 0 R >> endobj 25 0 obj << /Length 26 0 R /Filter /FlateDecode >> stream HRKS =gGUgJiMmCZBkفv{,ˁ  ܕ``M["XS 9a0#5%0 'C FX}4_n9/* NbÈ(")؋:=UIL٘ j5klTCS"˅jN19 Qڱ5 2}"jF{VܳoكQCcC" Ueq'Tz*?7_}uͭ.6'p"2h,ZrfvGX:p01'4TyK5 BZ endstream endobj 26 0 obj 344 endobj 24 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 25 0 R >> endobj 31 0 obj << /Length 32 0 R /Filter /FlateDecode >> stream Hr0EdUTůUvac`l'_0Y0I1 hO_Z=vBFKp?Ap`dUF$-8RT .0MK*} Sw o?*8 T\e ⟄p_E:44}4.''8fŔ5` Ȩ{;NN犠XF =h["p5}dlF> /ProcSet 2 0 R >> /Contents 31 0 R >> endobj 34 0 obj << /Length 35 0 R /Filter /FlateDecode >> stream HWݎ5 ~s"0OKٶZ@'_9E:'}$nqr y_r{;%riYn^e [ql=KeY!y?YO7O?NbW&'_?~^,( \G~?,ӫN)Z3w,ER.n@,~[N?5µ[ Vs/qɀg3sK[֝h?y~}!4N(_Dv8 R o[ϱ5]rU%$oGR_,ʰ 1!1q0 wl?|(c-b_!\AYiP6I}Hln )"]>ܿ= +I$-PAO\L+-lq TQwtR-ґ2XBsÄUj4$z_Y;ʳ{quOֺ5}m{Z4޿}+ѕP rQCa+Az(_vG.5 ?vݚUTXAw \?a{<0"W|Ƚu6X8:6 _?QlN-[Y7vđ2h;K z[Op+ƭpV8ie>`W:5l%n@ՙI:qrxrكvM=ҼFuphjK ٓsH 6!_ &:3PU62ja\\Jx~F~<sϣvPbtw542t9ydٸb3*h<䩽M5O)>_yIԄ7AoK;.̼5sE#<:#ҝek1p$(BXWpyOd!IIp/wWpektreZnh^ {.sX+kÎε@"=+=G-T#U1lj˚C89,ڭ6fG֪zЀCo3UtڙŴ]qcC\Jf|&$o3dD\c̷l2x% |/+mߒa[1O݀|_0y$? endstream endobj 35 0 obj 1925 endobj 33 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R /F1 20 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 34 0 R >> endobj 37 0 obj << /Length 38 0 R /Filter /FlateDecode >> stream HRr08&n#-]% =zK eVt` 4 3^< %^t O eOs:it w{?VK1+OТ+cH<<٫8[޵XC+q'8dIJĆh~!DT]":mQbanF!h#(Ƀ'tL Q cWu w5kYv8os=F3Lgb0BշÕ(ӻTseŇ</_9;\Nr#N3=oՇ^wm@eucm;*?~lDTgfONiPYXägcizªG_*a'YaBtˆe g> endstream endobj 38 0 obj 440 endobj 36 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 37 0 R >> endobj 40 0 obj << /Length 41 0 R /Filter /FlateDecode >> stream HMN0FO;̲ %%TbMuc Miʉ=vA!ga4 ˿CO3RuXf BIr+6,7H:IAaRp!M~᥄gף?{mߴCS 0lbET%Ɩ19t1=ְ=%#2@i)؁uoTJJ6sAhQL5ICݥ;K$AǑ!v.ԍG/^(/+nܵ &G3'N_gSHZhr/gҲпfQjkC0l݀y*obj endstream endobj 41 0 obj 352 endobj 39 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 40 0 R >> endobj 43 0 obj << /Length 44 0 R /Filter /FlateDecode >> stream H@E`X &fK%DH&tb2 9U- h%Wxcd XNp9.Rb, s9q7S Ρ2CHLFs8]{BHbDz"Z',MUk+֐̂-k"t}9qtYQ& endstream endobj 44 0 obj 197 endobj 42 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 43 0 R >> endobj 46 0 obj << /Length 47 0 R /Filter /FlateDecode >> stream HePn atY*ip%vH`)ߗG*ٙYno-!hppdӠ–!UOJȥ>fi@83g ^sT9=YɭމrjїGi~Jk_]44,F~^6F_a| to# 0ՠ4K+j\~GW1ws\sbm b# endstream endobj 47 0 obj 242 endobj 45 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 46 0 R >> endobj 50 0 obj << /Length 51 0 R /Filter /FlateDecode >> stream HRr0aDOd)1" E.$ABrIRJ*1=# |׀b 0`u]1 VavW+ H}Q7M8k6sUfXCEcfbMɤrK?g+~U<2&#`T5npNL4P Dd_ IUr%E R+Rm;9.xqp>)G|']8_E;]nN,ڹC=x1#BJ.*(R'\Z1Fe:"'{Mv,m8ƒ7i20R"y mvFn:8t 9jSɖT^h=tZ`Mo n༝T) f?Vm;-l{ރ endstream endobj 51 0 obj 421 endobj 48 0 obj << /Type /Page /Parent 49 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 50 0 R >> endobj 53 0 obj << /Length 54 0 R /Filter /FlateDecode >> stream HRIn0=wKz6.'n!@P$R25DT}$AS*%4%n|!pu>"`,H̨}W|8/_JfSrO= ~վHO @Rő\ zT ,vh H(K#BO>%$l DZ",=Uk=6ee`5 E /pYarZG 9H:#r)]Z~7 +{g6UA!] a( sIwV0MPv:n 2/`2*X'V endstream endobj 54 0 obj 376 endobj 52 0 obj << /Type /Page /Parent 49 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 53 0 R >> endobj 56 0 obj << /Length 57 0 R /Filter /FlateDecode >> stream HN0pcb|狓Ж> /ProcSet 2 0 R >> /Contents 56 0 R >> endobj 59 0 obj << /Length 60 0 R /Filter /FlateDecode >> stream HSˎ@s&V)qrBf DڏOϋuRTWUW0`dBSPh>2K@jCm3 q Q2|oh(X^!,|o~OvY ԑ ;J \n-8IeT%"E4lwgMr*v7WDC߳ )*?#>b*詳dGpfMQtkd*5'O{BK?/g_9_U>DJ?w}Û/2-o3X+Q?AWD:o0:'RۡV#. endstream endobj 60 0 obj 481 endobj 58 0 obj << /Type /Page /Parent 49 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 59 0 R >> endobj 62 0 obj << /Length 63 0 R /Filter /FlateDecode >> stream HTr0aю[.1ǽ(XBxI㪤RpGO@g<@$WQ c-4}1F.z0pxdFXsϵCu~xo T/YA$H,02eRCTBfBq4cpd8'm9 # voC tEf2EƉ(c=il=HCYKǂ'8D9)/@ 8k(^ CUj26Nz(ZLk=Lvvz8DqH7 I9;]EIj Zb$L'(cwum\نl\Ad7ˣcO*cENw7Q Nj\[JT=1ב7G0~9?l=vv]tWQ|5YNҰLs#n8;hh:-u777K؏}*!ܘnuLЇU7` endstream endobj 63 0 obj 507 endobj 61 0 obj << /Type /Page /Parent 49 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 62 0 R >> endobj 65 0 obj << /Length 66 0 R /Filter /FlateDecode >> stream HUn@<^V6_8 `G<_ք&XjU̞s,jf`)@a="LULFcw?ܿFs0NѬ@*53ď[Y{9ՏhNIRs,?!2]Keu(faS>v#FTGe}svy\Z4)|櫴"iIːǯ/]PIjj ѥF…8ABFd IigsnmF^ykž^{Og/2\@nt!!,Tؑ*&sYm=pfwcR^O^1}E&(Fz4@ nun6"2Mgc:^&c<7cWamvܔ'_sRXy|~[bdSV/qM^DsE{oi-! 8ZW_,z)q.@ut#Jw8~x$I\U%\ endstream endobj 66 0 obj 592 endobj 64 0 obj << /Type /Page /Parent 49 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 65 0 R >> endobj 69 0 obj << /Length 70 0 R /Filter /FlateDecode >> stream Hr @psR6MuCddӑ!ݾ})J'#_s9@'-W1RP1&Ajz"0}{B}Ul;;l >^8g+~W5Qj0jT!%2c2md*zBM5)m njYh+NGDT/G v!K $YBTVl?'pG{H\gF@1L$rGg"#͟Xtgp' Ayx|ZW )b޽%B6U,3uأ`#jJr"Dsi[N9{<+Ap)zLb)pܮuS;K,p?[to&a'JZ¸ ]g_Y/w,{dIIfg]> /ProcSet 2 0 R >> /Contents 69 0 R >> endobj 72 0 obj << /Length 73 0 R /Filter /FlateDecode >> stream HTˎ0Ɂ_8j/11+c" oۆc2("B]Unŧ?@%/g2AP' -32_ `'!! D\`D + r,6V9j4EGe rhx0Ō#TD-B %XABb_CXKXFy9Uvn1-4=֫ D^ !E]-| ̭5?%$o ~'E>)j\=bbrW=j sO {$L~ƒݟ{-ECv&$0*ƲPFslεڍ( 0}AB2GD9edwDžee-T;Ϊ7/ 0wҪZ]z?´xGP)l3aF`%ba PQ=8iz.Wz!|L|iB Оӡ nЅT 2A#<gYV;#߯@Ǿ׳vֆ6b4d endstream endobj 73 0 obj 574 endobj 71 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 72 0 R >> endobj 75 0 obj << /Length 76 0 R /Filter /FlateDecode >> stream HTM0-=@ v[Vj8"v fw V9"޼< @g}fT!UJCF`&ϏYN & =J+l5{l͋i3l3^)dBN@,%i߇\\U `jM[Û=l~3V e.KT1.iޛAgX9EVuHR"fyt zit3\d AlRɺ#QB/x..mx2/)P* }h} };|kO{eձ\uعK2 #2_O\iޚ0:Nv#4${w0} xt1^Q7= ZVoʤ܄Yt/Z%=񪪢#THz%?2Y/Iu SlIٵoשvhu1p*V3`*xj~NdvpcN}tLW^.pDK4BmJ> endstream endobj 76 0 obj 581 endobj 74 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 75 0 R >> endobj 78 0 obj << /Length 79 0 R /Filter /FlateDecode >> stream HMk0\.ŮfeP\iU8Wԡ,]3ck W`H`_&Q%Ċ\(W-u@&XN?˱nCm3g<uP&*$2X \)[әUc:nz5u`1u\PZ-S^3Ɵ ru0At 1aydB{rUOh;\K q1jӜҗ5 rSZ) nqlt^L55fd{iIH8Syfξ=~t*C炜:P4"G!>Yjԑ O[(gYiZ8;&tt% tCnMͣO_!c0jB#Æ~бBze7`T61funmh endstream endobj 79 0 obj 484 endobj 77 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 78 0 R >> endobj 81 0 obj << /Length 82 0 R /Filter /FlateDecode >> stream HSKo0m jƇ\ڴPO{!bM<}ǯ IZ,1N|LH[!d0wg_s^ J 3(rVp5w Q1AG|Ʊ𳝇v+h~e9(y4 A-bE_݀׈_ia?u r'~ [ldHdh<\ѩG,9⺎38+5v|; |tPȸLjC{K{rѐcUDx3x i <茔c|v󴽢u,Dr} OegWl4J%NQ)br"lBE<w2K *&ӏΞ}鵋U!%}ӆjsh]7XP^ŊjƓ1tˇx$&_,}~A,׺^u;_r,LPx,z,i^)B4CRK3hϰrד~:p/ endstream endobj 82 0 obj 520 endobj 80 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 81 0 R >> endobj 84 0 obj << /Length 85 0 R /Filter /FlateDecode >> stream HR0 &!)h[=r@-0!LۻV=$3v# ,[n.9 ۔Lf<jǀr8wJ-%<\)@=ZQz͋5)`{%"i"2F[ޤsY$y(_K {SӸ.hod(}H-/TYOʍ]eD1 Luu-/*S5dm68?uO> /ProcSet 2 0 R >> /Contents 84 0 R >> endobj 88 0 obj << /Length 89 0 R /Filter /FlateDecode >> stream HRN0"q{mq8 $dI> 9ծg<;[B c/AZqpUFhPqP䳀Cw:-|D + LJQYYfYW Zw(7BG%qBe?!*{0&}kt %f{ 7ZSu굦5ZRMK:I ңߵ8G-qca^[W7L%am6E[Z2$@@>uhex9AS'@~§Ӯ?gC2<7'#&h9 h¼-wE9{ܿi<-5`JۂrWJ}Ӄo gר endstream endobj 89 0 obj 353 endobj 86 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 88 0 R >> endobj 91 0 obj << /Length 92 0 R /Filter /FlateDecode >> stream HN0 Ɵ 848nl Bȥ+&c{{f+ ҃?\"f, |Dh 4g)"LsR!M 2ޯrL3 hongks K+Htǂ@OBB,~"R]jH٤I2fN-!?$\.EѲ7ZҽDLDQUm`K> /ProcSet 2 0 R >> /Contents 91 0 R >> endobj 94 0 obj << /Length 95 0 R /Filter /FlateDecode >> stream HSN0}×x3LVp%”d̻plPcn91&(qE|ﴧ 8KAp rg84Q z~s;FDR5]FL XA{<8`$EMHZ~Pu4=`jsU/ձ`íq PEA<>Y uS7N{8:X=*E0XjyFC| f˷Ul!WLO2[UƋq_o:Q41Ub$h fi4f7/.U" OEcJxB尰Ϡ@1}Wa!"AwPtm'jy endstream endobj 95 0 obj 379 endobj 93 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 94 0 R >> endobj 97 0 obj << /Length 98 0 R /Filter /FlateDecode >> stream HSN0!fH**7.J!(4(1 vC;R!3H 9Yp dLXB*Pf)&7uR=o {B 9T0џ=cų̥u^r]( J!H!v!)'3+D.\r벅L )n6trd#u#2e[GCaZ]_?> /ProcSet 2 0 R >> /Contents 97 0 R >> endobj 100 0 obj << /Length 101 0 R /Filter /FlateDecode >> stream Hϊ@ ƟBz;#6K)Bw֛;iW3;:ۖ K?' ~} A H} Q I"L@ل$ ?d. DgU4Sê5oZA(1P&J"ŕD$bR! 1uY=F`RO{0[ TD\8KHu/Mj$hw)߹&HGe8"^i~9颿nwz lp>vfФɠYen; iN@E ]nkMuYW[Z4 fM+sK\߯[>W_.9[z%S\[xcݕḰT,k?Aׇ}Ymqp/GSH VtCmgOl&pICiuv{)9MG\5395ƐwвSy/_Nw gXGXo1 endstream endobj 101 0 obj 490 endobj 99 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 100 0 R >> endobj 103 0 obj << /Length 104 0 R /Filter /FlateDecode >> stream HV]o0ڐ:NhMe20fVUUlqb^{ D |k[C!f agxt}i l˥_%DOЛ^\_!ZuY pcv^|$rM}pr\ǫW e%}x2!{Z ʣNUČ.IׁlQ!yz OzФ/0KJpGwV~nj2)%HI^>WUs)ՊhDmp>Ud8%ۮd4[K'ȑyQjӭ4~eJʤW9dB/rChgr=iFkv%gwzPKGyoDt|X:B»۫:g(LQjf&]K: OjG,,|}kX,;s5!=R mYy;kzm|۷ KԂLT+d"Ȏ>2M)#_jrL؟TA*/ye!bB^Eh,O endstream endobj 104 0 obj 734 endobj 102 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 103 0 R >> endobj 107 0 obj << /Length 108 0 R /Filter /FlateDecode >> stream HS;O07p>q eCJpK8P~>~‚:]0 ^!H`5,iA@Ԫ" 0, gB(bEV\ 8 |WNaRLJBxA!@T yz@$KRt)jyDs`f,,,_Y"J.4dJ#A\cFƣc.ɟDA;/) xLlg ;I},9~AílN0$bfvxZ> /ProcSet 2 0 R >> /Contents 107 0 R >> endobj 110 0 obj << /Length 111 0 R /Filter /FlateDecode >> stream H}Tj@|G\,NIF.1ŔFqTA?we;E>|;@=z./ *0OXʧ `L)@ly_ sl[ts߲CO%Q[BH4x L+/tC\^u<&TJ+]~HGK+Jj5vv .V]I`wolP1k#W]4iۣrIzDRV֗>irg;%k)/q뻹jubIsYdu 5{*ӡMն9}"˶X&לٽB:R]*ۂz>(: p'NGdҾDid%E}zQR䇮y>y˪JS`^?$CVćl[4GWڹTW+h:rM _*u/EQ)º5}qҲFo/q~L*[SZ﯌?Z^z endstream endobj 111 0 obj 633 endobj 109 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 110 0 R >> endobj 113 0 obj << /Length 114 0 R /Filter /FlateDecode >> stream HMN0O;eX$c;NMKWHl,ĂMA R*)㿊BȖly}of, Zd qhű8L*QM8`w#s({VՇa?Qt[o`YIJVFlD8<A,J̥IsLDµlkL[㼜bzRN "\*ɀ*}e/}> /ProcSet 2 0 R >> /Contents 113 0 R >> endobj 116 0 obj << /Length 117 0 R /Filter /FlateDecode >> stream HQN0~7!>۱60DbAB!u (Mx{;@G:O$d LϒG˶U͡sՎ ,/N-W&@Q5}ye;n9mTt*vlLd2;6QĶ9Է>78ERL5it!<[k'' 龽UM<݀FOFCB*J۷ǾkpuN;,OzN>)x"579eS!QD9wȫ}BS endstream endobj 117 0 obj 290 endobj 115 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 116 0 R >> endobj 119 0 obj << /Length 120 0 R /Filter /FlateDecode >> stream HRR0az% Z7/7/TƁ Ў&C0}o 8-@*'CR0ph[Da.b︹g \%rAW`* >}BQ[} {L$xFRfD1 2Q7fjr6p 5N ZėX3p;uBCN|)xl֩#jfLC 2PI$WQ؊jC )ĩ!,$썩(_|t十n '3;8Sh\o;m9])h;Ml~j?48H:=,WibP]bjxG[ү]AYUN}P TwE y endstream endobj 120 0 obj 391 endobj 118 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 119 0 R >> endobj 122 0 obj << /Length 123 0 R /Filter /FlateDecode >> stream HR0E@e(lm0t.iP<HZ;0 UF*4ڽwϮ$@54-rЊaϖ5JA[WCZIA)3^r[6F}hs5PX '_4$8ˋ92m)xּB!V^d~Sɐ%&*gq}&RgI!-1gJ7I b9W^87/ y)_͑H]7(D5J:niz%a>mu:";ɬD仑B|\fD5' endstream endobj 123 0 obj 319 endobj 121 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 122 0 R >> endobj 128 0 obj << /Length 129 0 R /Filter /FlateDecode >> stream Hn0 Ɵw'中T*. *ZiOiS8?;="}H9@=J3` /# pт$D̾6ˮot[;ߣ,$MC`80) ~CL] G[ #!n몭ڽ(X0ue"_I/f]9%${^1ntw8M,I]_5PsRiuBL-LQ24giT<4ŧƥ9L?4wL6e\9rZTpn =XFp. ^{d[I5NP05~٘vNVy O endstream endobj 129 0 obj 372 endobj 124 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R /F3 126 0 R >> /ProcSet 2 0 R >> /Contents 128 0 R >> endobj 131 0 obj << /Length 132 0 R /Filter /FlateDecode >> stream HUv0ab/Q@62BBq.z;3h$L1 M%DbEQ`qkrIRQ^ľ^mԹlۣ{_}KRI3 3ʈ XH>AwڨA;BĈ]u,ӟ,̳F`!-~ygspFL.SCʌH,~C*3ɄtcjWx F`QHD+U cRn)eQYd@ :'ut[esϱIX [w' (@~8QIÇ\U$#2L}vcG0]* ,6l~֍qH#} ?t_!iV պivơ) Wx1J!=O}5 dw'ߜ7Rytɴ<8[+Y6埖 G&l5wƚxUejk endstream endobj 132 0 obj 550 endobj 130 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 131 0 R >> endobj 134 0 obj << /Length 135 0 R /Filter /FlateDecode >> stream HTko0h8~ݗyLS4&%c "d4ؼHX=\_D4f8`;W| ųc C6)POZ# -`d3 mzap\CF܄2DO):%9 &(~+u qv?s"tCF,EQ_/i ӣiK e%)ai6wFBKOn8>6)/lFH `rTGljjDd$?l JOb'#耾RWWOڋCeH ~G8K$w $[fLn)-y[0?OojkHdy[KY TMᖅBE loncx4<*N0-㯴5pea_d+}p*-VzݨrUx=bz6le/\\6$HO WY-姫:?! endstream endobj 135 0 obj 731 endobj 133 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 134 0 R >> endobj 137 0 obj << /Length 138 0 R /Filter /FlateDecode >> stream HAr0EOr\ehlR=>͆0$H`Bׯ?JcDY~ \jї:J$B%$1Xݓ@}$͋-biA=ӊi< + 7gHy#VTi'244h^5-{bFONwhYKF86&oX v`sOC8gǫ\K6pLoq[HH^M@G>03YldmaMqf`8?{֝i6d[HQ IUNLl> faq[YkX'._r S?[wu|vui/cg9 endstream endobj 138 0 obj 385 endobj 136 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 137 0 R >> endobj 140 0 obj << /Length 141 0 R /Filter /FlateDecode >> stream Hmn0E0U6FjHVTbM*URH|~ %-20s猇}IJ)N5P1TmP># nْ!^)%qJ2\8 45,tݮ9t h9QRDo-S` v>+wqg>r\xN!A@*YX/ j63L*K#3.{/V#==Ј)1"?LȘj]oaЏ!ʵeB^Vo(`DǶ^;QWσHˌw1U&>6T%B6# endstream endobj 141 0 obj 332 endobj 139 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 140 0 R >> endobj 143 0 obj << /Length 144 0 R /Filter /FlateDecode >> stream Hr0p7̄a_6+h.,̎q j[mۣ?0*|\]v=@F$8C`tuQ$ YPd˯0R[lvVz֏jz ,',8,d@JBx"2݀F@)yR{茅lQh=ӭVc Hi׼o"^UuMIbNQ8jY}.YDbB~!4 ^ūq[g?'#o endstream endobj 144 0 obj 488 endobj 142 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 143 0 R >> endobj 147 0 obj << /Length 148 0 R /Filter /FlateDecode >> stream H}R]k@Lޗ№$ &6.w:ٗ89-{3Á3L~F h0ɾ/3!90W?A)oו2@~_ovw;ϬR2 EGX853@PVvy>RzfN6gm`V䲊|nv.aH#+ %Ȩgu{zi*' bq%CWl2dUQqW$S75Py K+~ nqyXn߆Vcxi"2J AݧND2l3ͅWZ}־h%vAf;yYݷ4юVqi쑢PpA<VҾB3?!ClB2 endstream endobj 148 0 obj 463 endobj 145 0 obj << /Type /Page /Parent 146 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 147 0 R >> endobj 150 0 obj << /Length 151 0 R /Filter /FlateDecode >> stream HMr0Ozi/Ď/F#klF85O x*%W{(x IFC+8iKYe* O@@t(vpX=Ά[螊,d%Q g /n~1VmLr ZAAZ'_N&yg!LFj0+ʴ|e2A ʦdͰ!#Zm-X4'Z[([&ޚ25^?Q bQƤhլIme9Jwj1a A;Xm@~6>*^Z^&76C"#" ìi ~20Έg:Xxƽ|Y"msIf|xkLJkψg6!:up Wa$>ݿUmyq:3e<= PӸ߻ endstream endobj 151 0 obj 455 endobj 149 0 obj << /Type /Page /Parent 146 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 150 0 R >> endobj 153 0 obj << /Length 154 0 R /Filter /FlateDecode >> stream HuQJ@| }%b[QO@ijRbE|w+mS*±7;;3KSa!OP PP:7C Dt`PG; Mt|(\g@ U x;}XluYy9>a!  ҤI(y0bB/PDSw#ۤ "1r BoZ}2-su)֢i"~s:ؼj endstream endobj 154 0 obj 402 endobj 152 0 obj << /Type /Page /Parent 146 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 153 0 R >> endobj 156 0 obj << /Length 157 0 R /Filter /FlateDecode >> stream HTˎ@CAfG.+.3vOd;{DHAȑrzƀ5PP'V#4tǦ TAͅA-˟xA]]Q ](ؕx(3ԸgkO[h%u%"#UҡEBX8HDxu4H26~U/W Of :uיqyQJ$σUOx'<7ߨN kiРNɪԍ^f{dhH>ZTGᑒT,z&yHJ׻Ջnz7"+%L"GTkk7<ƙS4@WɦD#Fh4At;(Q1u>tokJ"*vzNf؃`g0r|cB lD0cX ɨݠg] $yqKh&,hڻ˴L)&;F w,=z"/9gNOsl+ d~Zu{HuʥR$/6)~[A endstream endobj 157 0 obj 548 endobj 155 0 obj << /Type /Page /Parent 146 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 156 0 R >> endobj 159 0 obj << /Length 160 0 R /Filter /FlateDecode >> stream HUmo@ 7Hz咶iI JP&]0*Ӵ{KHHtHB}!8};.hDCyQF`K_WEj󟎋A n xL# DrBQA7!cM%AB*) H$εWHTPŦA&B&aE297u/l̺LoVx Xq+ʘkZ ɨ-o -jA.1ixW/t^WKX v`F`2D{+U*&+UY2UylkDe[ Bۑ *8f|3Ho vA91U 7u%dxVkZ[f mwM_{Š0 ˱O072Ӟku1*c*`fY8$q1 >Ld wbڌjuqaJTD(CM|֊Do%5b0J=C@g)4k$w<{&2[[x9#p%-C&odfݺC.*R/ 1USGq͛kUJ$^2"Nq4{5k7X͏H0Q(_J];DKef,6c|?g^vfW+9@ oIaT4Iic endstream endobj 160 0 obj 730 endobj 158 0 obj << /Type /Page /Parent 146 0 R /Resources << /Font << /F0 6 0 R /F2 29 0 R >> /ProcSet 2 0 R >> /Contents 159 0 R >> endobj 162 0 obj << /Length 163 0 R /Filter /FlateDecode >> stream HSr0ÕI!/RiˉTa!  >Gv,v0w'Pq )FcVLк!U"0Bc!5;9x.AFg6TبL3 S*4& t{u (7۬,)j͔ vk3 RQ] :Y}t/穘*8+$$5`0%I̮c$)k|Ol-: Vi5l}vŲJC8Eۻ 4ޟO 2t6s%V7&nw endstream endobj 163 0 obj 422 endobj 161 0 obj << /Type /Page /Parent 146 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 162 0 R >> endobj 166 0 obj << /Length 167 0 R /Filter /FlateDecode >> stream Hn wK# 6vqٍ8Q1ꤙ>}M $9|%Q tBLkR"Fx|%PC9\o=T_9'*e _QF$MXRnй:;/+LKo\ol BG?tq-u"vzM)e4U#K.JK'm7nl_֍)>!,HS?8FL nZ`] 9,[ endstream endobj 167 0 obj 291 endobj 164 0 obj << /Type /Page /Parent 165 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 166 0 R >> endobj 169 0 obj << /Length 170 0 R /Filter /FlateDecode >> stream HN0p-lud, Se^(Ќ,H{{-= ӜB&)8 +HS[Ba^)~CRxlvS$\4$g^t`kXNjaje9c㠮Ph:ᬐHXT~BRJb N`| Z71ٙ~ǶCoÈ)Kؖ1|Gd> /ProcSet 2 0 R >> /Contents 169 0 R >> endobj 172 0 obj << /Length 173 0 R /Filter /FlateDecode >> stream HM90EO;{l% T)XRҠDH@\/HD3,o-!c#Ӓv#-'t H6|`ऌu54 ݃Uը6 4&jJd%> /ProcSet 2 0 R >> /Contents 172 0 R >> endobj 6 0 obj << /Type /Font /Subtype /TrueType /Name /F0 /BaseFont /TimesNewRoman /FirstChar 32 /LastChar 255 /Widths [ 250 333 408 500 500 833 778 180 333 333 500 564 250 333 250 278 500 500 500 500 500 500 500 500 500 500 278 278 564 564 564 444 921 722 667 667 722 611 556 722 722 333 389 722 611 889 722 722 556 722 667 556 611 722 722 944 722 722 611 333 278 333 469 500 333 444 500 444 500 444 333 500 500 278 278 500 278 778 500 500 500 500 333 389 278 500 500 722 500 500 444 480 200 480 541 778 500 778 333 500 444 1000 500 500 333 1000 556 333 889 778 611 778 778 333 333 444 444 350 500 1000 333 980 389 333 722 778 444 722 250 333 500 500 500 500 200 500 333 760 276 500 564 333 760 500 400 549 300 300 333 576 453 250 333 300 310 500 750 750 750 444 722 722 722 722 722 722 889 667 611 611 611 611 333 333 333 333 722 722 722 722 722 722 722 564 722 722 722 722 722 722 556 500 444 444 444 444 444 444 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 549 500 500 500 500 500 500 500 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 7 0 R >> endobj 7 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman /Flags 34 /FontBBox [ -250 -216 1171 1000 ] /MissingWidth 325 /StemV 73 /StemH 73 /ItalicAngle 0 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 976 /AvgWidth 401 >> endobj 20 0 obj << /Type /Font /Subtype /TrueType /Name /F1 /BaseFont /Arial /FirstChar 32 /LastChar 255 /Widths [ 278 278 355 556 556 889 667 191 333 333 389 584 278 333 278 278 556 556 556 556 556 556 556 556 556 556 278 278 584 584 584 556 1015 667 667 722 722 667 611 778 722 278 500 667 556 833 722 778 667 778 722 667 611 722 667 944 667 667 611 278 278 278 469 556 333 556 556 500 556 556 278 556 556 222 222 500 222 833 556 556 556 556 333 500 278 556 500 722 500 500 500 334 260 334 584 750 556 750 222 556 333 1000 556 556 333 1000 667 333 1000 750 611 750 750 222 222 333 333 350 556 1000 333 1000 500 333 944 750 500 667 278 333 556 556 556 556 260 556 333 737 370 556 584 333 737 552 400 549 333 333 333 576 537 278 333 333 365 556 834 834 834 611 667 667 667 667 667 667 1000 722 667 667 667 667 278 278 278 278 722 722 778 778 778 778 778 584 778 722 722 722 722 667 667 611 556 556 556 556 556 556 889 500 556 556 556 556 278 278 278 278 556 556 556 556 556 556 556 549 611 556 556 556 556 500 556 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 21 0 R >> endobj 21 0 obj << /Type /FontDescriptor /FontName /Arial /Flags 32 /FontBBox [ -250 -212 1213 1000 ] /MissingWidth 277 /StemV 80 /StemH 80 /ItalicAngle 0 /CapHeight 905 /XHeight 453 /Ascent 905 /Descent -212 /Leading 150 /MaxWidth 1011 /AvgWidth 441 >> endobj 29 0 obj << /Type /Font /Subtype /TrueType /Name /F2 /BaseFont /CourierNew /FirstChar 32 /LastChar 255 /Widths [ 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 ] /Encoding /WinAnsiEncoding /FontDescriptor 30 0 R >> endobj 30 0 obj << /Type /FontDescriptor /FontName /CourierNew /Flags 34 /FontBBox [ -250 -300 756 1000 ] /MissingWidth 630 /StemV 109 /StemH 109 /ItalicAngle 0 /CapHeight 833 /XHeight 417 /Ascent 833 /Descent -300 /Leading 133 /MaxWidth 630 /AvgWidth 600 >> endobj 126 0 obj << /Type /Font /Subtype /TrueType /Name /F3 /BaseFont /CourierNew,Italic /FirstChar 32 /LastChar 255 /Widths [ 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 ] /Encoding /WinAnsiEncoding /FontDescriptor 127 0 R >> endobj 127 0 obj << /Type /FontDescriptor /FontName /CourierNew,Italic /Flags 98 /FontBBox [ -250 -300 738 1000 ] /MissingWidth 615 /StemV 109 /StemH 109 /ItalicAngle -11 /CapHeight 833 /XHeight 417 /Ascent 833 /Descent -300 /Leading 133 /MaxWidth 615 /AvgWidth 600 >> endobj 2 0 obj [ /PDF /Text ] endobj 5 0 obj << /Kids [4 0 R 10 0 R 13 0 R 16 0 R 19 0 R 24 0 R ] /Count 6 /Type /Pages /Parent 174 0 R >> endobj 28 0 obj << /Kids [27 0 R 33 0 R 36 0 R 39 0 R 42 0 R 45 0 R ] /Count 6 /Type /Pages /Parent 174 0 R >> endobj 49 0 obj << /Kids [48 0 R 52 0 R 55 0 R 58 0 R 61 0 R 64 0 R ] /Count 6 /Type /Pages /Parent 174 0 R >> endobj 68 0 obj << /Kids [67 0 R 71 0 R 74 0 R 77 0 R 80 0 R 83 0 R ] /Count 6 /Type /Pages /Parent 174 0 R >> endobj 87 0 obj << /Kids [86 0 R 90 0 R 93 0 R 96 0 R 99 0 R 102 0 R ] /Count 6 /Type /Pages /Parent 174 0 R >> endobj 106 0 obj << /Kids [105 0 R 109 0 R 112 0 R 115 0 R 118 0 R 121 0 R ] /Count 6 /Type /Pages /Parent 174 0 R >> endobj 125 0 obj << /Kids [124 0 R 130 0 R 133 0 R 136 0 R 139 0 R 142 0 R ] /Count 6 /Type /Pages /Parent 175 0 R >> endobj 146 0 obj << /Kids [145 0 R 149 0 R 152 0 R 155 0 R 158 0 R 161 0 R ] /Count 6 /Type /Pages /Parent 175 0 R >> endobj 165 0 obj << /Kids [164 0 R 168 0 R 171 0 R ] /Count 3 /Type /Pages /Parent 175 0 R >> endobj 174 0 obj << /Kids [5 0 R 28 0 R 49 0 R 68 0 R 87 0 R 106 0 R ] /Count 36 /Type /Pages /Parent 176 0 R >> endobj 175 0 obj << /Kids [125 0 R 146 0 R 165 0 R ] /Count 15 /Type /Pages /Parent 176 0 R >> endobj 176 0 obj << /Kids [174 0 R 175 0 R ] /Count 51 /Type /Pages /MediaBox [ 0 0 792 612 ] >> endobj 1 0 obj << /Creator /CreationDate (D:20020319140448) /Title /Author /Producer (Acrobat PDFWriter 4.0 for Windows NT) >> endobj 3 0 obj << /Pages 176 0 R /Type /Catalog >> endobj xref 0 177 0000000000 65535 f 0000042592 00000 n 0000041254 00000 n 0000042908 00000 n 0000000304 00000 n 0000041285 00000 n 0000035857 00000 n 0000036946 00000 n 0000000019 00000 n 0000000285 00000 n 0000000946 00000 n 0000000422 00000 n 0000000926 00000 n 0000001417 00000 n 0000001066 00000 n 0000001397 00000 n 0000001855 00000 n 0000001537 00000 n 0000001835 00000 n 0000003796 00000 n 0000037206 00000 n 0000038293 00000 n 0000001975 00000 n 0000003775 00000 n 0000004370 00000 n 0000003928 00000 n 0000004350 00000 n 0000005075 00000 n 0000041394 00000 n 0000038547 00000 n 0000039632 00000 n 0000004490 00000 n 0000005055 00000 n 0000007232 00000 n 0000005208 00000 n 0000007211 00000 n 0000007915 00000 n 0000007377 00000 n 0000007895 00000 n 0000008498 00000 n 0000008048 00000 n 0000008478 00000 n 0000008926 00000 n 0000008631 00000 n 0000008906 00000 n 0000009387 00000 n 0000009047 00000 n 0000009367 00000 n 0000010027 00000 n 0000041505 00000 n 0000009508 00000 n 0000010007 00000 n 0000010622 00000 n 0000010148 00000 n 0000010602 00000 n 0000011104 00000 n 0000010755 00000 n 0000011084 00000 n 0000011804 00000 n 0000011225 00000 n 0000011784 00000 n 0000012542 00000 n 0000011937 00000 n 0000012522 00000 n 0000013365 00000 n 0000012675 00000 n 0000013345 00000 n 0000014150 00000 n 0000041616 00000 n 0000013498 00000 n 0000014130 00000 n 0000014955 00000 n 0000014283 00000 n 0000014935 00000 n 0000015767 00000 n 0000015088 00000 n 0000015747 00000 n 0000016482 00000 n 0000015900 00000 n 0000016462 00000 n 0000017233 00000 n 0000016615 00000 n 0000017213 00000 n 0000017733 00000 n 0000017366 00000 n 0000017713 00000 n 0000018305 00000 n 0000041727 00000 n 0000017854 00000 n 0000018285 00000 n 0000018857 00000 n 0000018438 00000 n 0000018837 00000 n 0000019455 00000 n 0000018978 00000 n 0000019435 00000 n 0000020147 00000 n 0000019588 00000 n 0000020127 00000 n 0000020871 00000 n 0000020280 00000 n 0000020850 00000 n 0000021840 00000 n 0000021005 00000 n 0000021819 00000 n 0000022474 00000 n 0000041839 00000 n 0000021964 00000 n 0000022453 00000 n 0000023344 00000 n 0000022610 00000 n 0000023323 00000 n 0000023833 00000 n 0000023480 00000 n 0000023812 00000 n 0000024360 00000 n 0000023969 00000 n 0000024339 00000 n 0000024976 00000 n 0000024484 00000 n 0000024955 00000 n 0000025520 00000 n 0000025100 00000 n 0000025499 00000 n 0000026129 00000 n 0000041957 00000 n 0000039891 00000 n 0000040985 00000 n 0000025656 00000 n 0000026108 00000 n 0000026929 00000 n 0000026278 00000 n 0000026908 00000 n 0000027897 00000 n 0000027065 00000 n 0000027876 00000 n 0000028519 00000 n 0000028033 00000 n 0000028498 00000 n 0000029088 00000 n 0000028655 00000 n 0000029067 00000 n 0000029813 00000 n 0000029224 00000 n 0000029792 00000 n 0000030513 00000 n 0000042075 00000 n 0000029949 00000 n 0000030492 00000 n 0000031205 00000 n 0000030649 00000 n 0000031184 00000 n 0000031832 00000 n 0000031329 00000 n 0000031811 00000 n 0000032617 00000 n 0000031968 00000 n 0000032596 00000 n 0000033572 00000 n 0000032741 00000 n 0000033551 00000 n 0000034231 00000 n 0000033708 00000 n 0000034210 00000 n 0000034747 00000 n 0000042193 00000 n 0000034355 00000 n 0000034726 00000 n 0000035324 00000 n 0000034871 00000 n 0000035303 00000 n 0000035733 00000 n 0000035448 00000 n 0000035712 00000 n 0000042287 00000 n 0000042400 00000 n 0000042495 00000 n trailer << /Size 177 /Root 3 0 R /Info 1 0 R /ID [] >> startxref 42959 %%EOF goo-0.155/doc/goo-intro.pdf0100644000175000017500000007744707445743563015132 0ustar vomjomvomjom%PDF-1.2 % 8 0 obj << /Length 9 0 R /Filter /FlateDecode >> stream HMM0 O;hljiG` da HT*H\iX~ [j/8xiF, AK y4>ݡh+)6w8vnx=HgBʒ*1DmaCdv[3ǙkI*/o yf3AdB endstream endobj 9 0 obj 199 endobj 4 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 8 0 R >> endobj 11 0 obj << /Length 12 0 R /Filter /FlateDecode >> stream H0F:P_X ])b/irq4 Z1tY;"uJ5Th!LVR" 28r۶]I" Grj(ŗȤ aJM#޶es7-?dgy5;cnx7e_יar_zfE[Gg> /ProcSet 2 0 R >> /Contents 11 0 R >> endobj 16 0 obj << /Length 17 0 R /Filter /FlateDecode >> stream HMM0O;%,ek=@74!\߶$72S1- Z`0gS ml*-HN@}?Jp4;B b$QZ2rv׶2LS5={*Ru8t U^0}^º'RL5/38 endstream endobj 17 0 obj 173 endobj 13 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 16 0 R >> endobj 19 0 obj << /Length 20 0 R /Filter /FlateDecode >> stream HS[O08MJ_Ey2@`{{ĸHJlָ(\ (QBVQHB29~bwapN -nјc&Lj Q/a (A)'B2',;AUdcSdgҟdܣQobVo6)Q.(}cs&-f9LyQM(-GC+ăЩiPrGdO$_¡B U$`?èJ֢Uak|(ZpRdma^}ݢ0hJ+;)QJ@]MA?d^}5J5{iu,Ճ|* endstream endobj 20 0 obj 384 endobj 18 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 19 0 R >> endobj 22 0 obj << /Length 23 0 R /Filter /FlateDecode >> stream HmN00rHX B∏\VV?TZVޝf9xtYAЊ1IPBnT?z2p_ؽywpd E/ŭ^Ɉݛjf{1|h638` ⧍J_-A $m٧LUMT~Z.u[\RXK*?KiZѱ`^ endstream endobj 23 0 obj 232 endobj 21 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 22 0 R >> endobj 25 0 obj << /Length 26 0 R /Filter /FlateDecode >> stream Hn0Fwv( )Kvֱ+Ck #UF29~NxT@ m1)$DYL.#t@y]g9)xw +j5^h>rE`O_"l|0&IV&cIȘCF ]0ߣq'GQۺӥ=)oꑈ9{:#ϸ;5( P˦BͼGraa/w6FδGq}R 5Z1R*bNS(>&6l׋UK\p }b{A 7/q endstream endobj 26 0 obj 347 endobj 24 0 obj << /Type /Page /Parent 5 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 25 0 R >> endobj 29 0 obj << /Length 30 0 R /Filter /FlateDecode >> stream HR0E K\IKu+YQ f̓LYaJnӷ ܧ&-*i B %@U ~ B4Eq<ʋa NFu.,3i%$9H/u$$2T;3)06qtM(l m[lup( lc-q>K$Ua$lfi^zW©IGTPQz_B7y;lzӬN~7 UzlOa|fK,Cd^͑, Lc [~!(+  endstream endobj 30 0 obj 334 endobj 27 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 29 0 R >> endobj 32 0 obj << /Length 33 0 R /Filter /FlateDecode >> stream HN0 p2$G( #Kp6UKno)J }n1_BFO!cgB A\Q~.X:_d9*qo==^r)Ep@sweVvcUHTCQ$O")goBPHAc$LU[0 9C滠9exjN[}¦2mON_ @Z#Qgmn UnePqPhLB,fontSNWI5 C7]m3s5 ^D:>c~7; ~Zp]{]̨sе endstream endobj 33 0 obj 341 endobj 31 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 32 0 R >> endobj 35 0 obj << /Length 36 0 R /Filter /FlateDecode >> stream HN00%1'PC4Q.@~NIoO''сt k̎cL1PwN G1a^NS.d_xKd"=Li&9 -ˢnfEĖ\2|;?QJzeݒCRGjE:/CYG!?.Y!i_Ivm-˶Dݍz(w5HuDB SAr r5ܝTU-Koۼiyydc endstream endobj 36 0 obj 273 endobj 34 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 35 0 R >> endobj 38 0 obj << /Length 39 0 R /Filter /FlateDecode >> stream HRn0A yI݊TcAh lK-ܠ@A y ?B$O! x ]qS(d%KU"i+JR1cΡs^hAqs F V1X¾Ќ D."TzaE+TJV"L("lMۮ?n搽T".fʣk7<7wW}f&xH xLa7кam܀L {5)zy nrW[i~cA(> /ProcSet 2 0 R >> /Contents 38 0 R >> endobj 41 0 obj << /Length 42 0 R /Filter /FlateDecode >> stream HN0pcb9IيZ6 edI"@"oPBp~>Ka-oT aW(@[JJG b|>BpHzPlhb;o#+{:%5D?BQf>&(Uιy^}O4w.g%$)U6ϳ_im/Js`#2[W3_I ,(\%a^,A[oo&g{a9v- endstream endobj 42 0 obj 277 endobj 40 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 41 0 R >> endobj 44 0 obj << /Length 45 0 R /Filter /FlateDecode >> stream HTN@]2i 0+¦n #6gg* B{=V *@}$A ]&sLȜpj ЗnN0f ,Bjv;%<<*ÒS[SA [{9\lf:2BLO&эéT+:].`l7oc׃z`0R"24NCS1HOAX6`(Ѣh3),X4ʣۭąW%81c>1ILIقTYH}!.nш^(gd_Hp{ 1/|Ԍc.O35X ٬>]3F眄"\vI~k!m G;u# \q2oޡ8FO%?I@mZk1X@#aW0c_0kxZ{AU 0_ endstream endobj 45 0 obj 455 endobj 43 0 obj << /Type /Page /Parent 28 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 44 0 R >> endobj 48 0 obj << /Length 49 0 R /Filter /FlateDecode >> stream HJ0pux?u)"M2vޤcEAI)/92`q !>#(,lBQ @H+O/<})J# R/U}YXu|DLJ-%^6ծ0y-ِTfB*+' Q_U \06T2iFeY2R (5K% >/Iup3|xMC:-HE͡_H"S}kC?4X[< nҘc7m`nEwk?ذ{aNw4= endstream endobj 49 0 obj 324 endobj 46 0 obj << /Type /Page /Parent 47 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 48 0 R >> endobj 53 0 obj << /Length 54 0 R /Filter /FlateDecode >> stream HN0Ɵpc_b6T€h.!\KI+7mci كǀe@D n+N!,Škdb3B/1S2ܯHDc;. &XئxLvWe#<33D)a<Ӹ3paFUxcuH&'N(uaf+q4Nc5{{u ~}ˆ~њj U5)>Qv 'z__ԲOT[Aʍ7 n^l *R&Dx mt;8T :z9`ivr  endstream endobj 54 0 obj 354 endobj 50 0 obj << /Type /Page /Parent 47 0 R /Resources << /Font << /F0 6 0 R /F2 51 0 R >> /ProcSet 2 0 R >> /Contents 53 0 R >> endobj 56 0 obj << /Length 57 0 R /Filter /FlateDecode >> stream HUMs0{tg =ir!3 @DdBN۷O(6|KF fmaX v2no6)xU |F̗o!ɩVPP^%)VvPOmKxqة\ȁd&=%җb,dǧȩ%~4a "|5=Q,[7!IK%L[Acl?:T7wx8eTE=F$>Ku=4%ij?s:ш^#tn;S"uWey>Ô2 3viȋ^/b$"9$07Hj>$a5F$oӵ1RȪF^f^"AaW4 ^ASLIپ'ht\EM;06Ry)U^aeLK&VST2w+곜-eqzi|?W?,Ip$C;Vպ9v0[5LܚkzgݡgY׳gu/Ӌ% `Z=ɊrGkV=JK 6֝/<탶]뭓ȐWq#P4,Dyp{5][}ЩpT=?<> /ProcSet 2 0 R >> /Contents 56 0 R >> endobj 59 0 obj << /Length 60 0 R /Filter /FlateDecode >> stream HUN@<1{m+JT(n &M6TH^m[@˙9sv,rF y2Q$q zWF ~IK0:N %Đ/nDq˜}7b70ߕS8 sG |NX#]? ij؂_lbq i*9F̡hW!?ڑ .2 Lp6/8y?QA<]¼\Ux3z"ɣkDZeslK`!: 0zKC$rPBW]4#^GhJ12 Lj^R6w{wd+ 3CuME8I8EmH.3X0 :LQє6꣩Fs֪u|fh}e]s0Icnۨ3YӍ7dxB:<`(>ݐ4[UC^Eܐ9;RT\4[ !g&U$NdŶ &n^kWE][nq?qOy~ЂPpvH8Q{st4ڔpWC&!L!&/Y5H-fX>=٩I.8( ޱhɦCzUq%EK"s$CܡuHt2ߒpӀ}v#o 3˼ endstream endobj 60 0 obj 794 endobj 58 0 obj << /Type /Page /Parent 47 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 59 0 R >> endobj 62 0 obj << /Length 63 0 R /Filter /FlateDecode >> stream HN w˺hӭtcݹa 4RI$ν9H IH U(*v# K-8/GTI!пC8jFq+ 'M++1a!1% P=Q*m3vI&\7bv9(*Z?4Usl_n )J=M@0`^ԛa$Qƪ;NR1+h jJ@L;Yr\q 7=u1 endstream endobj 63 0 obj 270 endobj 61 0 obj << /Type /Page /Parent 47 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 62 0 R >> endobj 65 0 obj << /Length 66 0 R /Filter /FlateDecode >> stream HMN0O;&7NX{;6N4A @"3gS2^~3e7MFPD &uF PquG@te9)x]~/y͔ p FjL)qVKsZVW4 p̘L}iBYk3mmuhOa;xޜԩ!t>Jt Ίآ@,S}70v_q`'bo4ی rNjѕevޙd\;ki_VU.$"YuVxM_(נtv`=wegeA& ^kO~ڛG&[Lw endstream endobj 66 0 obj 385 endobj 64 0 obj << /Type /Page /Parent 47 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 65 0 R >> endobj 69 0 obj << /Length 70 0 R /Filter /FlateDecode >> stream HRKo sH5etS, !& &i}TJm3<H>qI1 Cna \HDiaXs.}aU~7|. L߻bA %+{J2EeB.)Ie@LpQi~.{˂N?~XR& aj> My-h =4u\AhYIa̝7nCgU`8F #5m8hKSe#M}*!JUe=uCLM/x 4ydd7ʯl!6꺁{e.ADs G IiQO6z&hMy> /ProcSet 2 0 R >> /Contents 69 0 R >> endobj 72 0 obj << /Length 73 0 R /Filter /FlateDecode >> stream H͎0wv_ k;i7Jw+b#cƐjTb= [!p ٻ:#X!r AbÛKߏ崪{C}W} L\#22b4>9F5MK4DQ Rr㊨'!|i&IgK*X{An!w;*) ᘅI,%ɷA#XYBE*}bS} T endstream endobj 73 0 obj 489 endobj 71 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 72 0 R >> endobj 75 0 obj << /Length 76 0 R /Filter /FlateDecode >> stream HMo0 ?+׮i.Da`Ԟ;?o2@&KZ1X,&)UB4#>Yʪ}*q|a͟Lhȵ trcUe${?b]|s e$!#o!46SV/ݼ @֐+N< SNԒI qv`QF *ȚNZ5~Qs(>$ĥWGVֆ㈭lmoG+BC~ t!% fvX?∜|m#h'Rgĸ>cco|K>4}&Ew^dg#b~HX3!56n] 8ԱEָ=֡>խjǞP endstream endobj 76 0 obj 450 endobj 74 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F2 51 0 R >> /ProcSet 2 0 R >> /Contents 75 0 R >> endobj 78 0 obj << /Length 79 0 R /Filter /FlateDecode >> stream Hn0wP53Ye7Ҽ\0$b {ch! Ԍ MLP Θ(_1?& D|$)xQk<Ï?!=2ryXF%g,XW;X_M+elOu>3;" 143}1'ݚi`:Z8Wٯh `(T|*)XڅaG[CiC8G0a HH3UZogƇf(j}0L_u087axy7b0< 6B6 WW얒CmVMVRQeT"Vb5Mm(lXs]pp8np« {mU븇hXŪ%]jt1N8r!| Ehq 7FbF2g endstream endobj 79 0 obj 443 endobj 77 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 78 0 R >> endobj 81 0 obj << /Length 82 0 R /Filter /FlateDecode >> stream HN0E p˥WE *t4&vf18y,l@g)h\Es-A&A\U %D.,]B0@IR%1 ;mcՓl@ i<L#cLaJ˜/[b=.ZcU_j1I:QfS+o; hy*ؾFm4f A/1s15wT֪45AWk\|> 0c7>BvT6mMiRޡ1* {pTW^#8|XDdeDQHkM{1 endstream endobj 82 0 obj 332 endobj 80 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 81 0 R >> endobj 84 0 obj << /Length 85 0 R /Filter /FlateDecode >> stream HSn0Hu\+P*Z`aGn0uJL~3Dj\(zSwN]TNǺFYo"S/SL"=빍b:E Sfe̬%Q3\=/*Fo2hD:"0ha-FH$W5_fCJ|Ev|q& «` endstream endobj 85 0 obj 450 endobj 83 0 obj << /Type /Page /Parent 68 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 84 0 R >> endobj 88 0 obj << /Length 89 0 R /Filter /FlateDecode >> stream HR0Ɵwؒ+ !pX評% ^37w7Z X/A@#D"( S}辌) iIrqpuu 0YAwzs4m}@!bͬihv$Z>7sfÈX_|1%SH7ZbRL3"r{ӎPş_mjqYmBrRL0/ȹZ650^~9[aMXFߎM endstream endobj 89 0 obj 349 endobj 86 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 88 0 R >> endobj 91 0 obj << /Length 92 0 R /Filter /FlateDecode >> stream HmQKn =0taڦƢq@2޾XUofAܒbj`j^(tpl08/Sb>u 0|5R )"b 1%U>8.2Ho+~ڄא-c,Y#qR8Fw0%RiT ] E#Zo0f; W0bh-rd5QM;У5xxv~::0cXwާgbTL ȨB~^֊' u M Eu._nO'8&q"i2nm6dha endstream endobj 92 0 obj 339 endobj 90 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 91 0 R >> endobj 94 0 obj << /Length 95 0 R /Filter /FlateDecode >> stream HKn EW03lf0DQ宾'Rfcz8xtԂA+ГזTh=uօ#R{O*FRMw9G5{0/OhIUi]PXR<dI:>eGԅv@yȍO5Vrtv&7 ɎK.9EBbdsE&0f\nR{nF|c_{%یj6|"_.e{k1a endstream endobj 95 0 obj 245 endobj 93 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 94 0 R >> endobj 97 0 obj << /Length 98 0 R /Filter /FlateDecode >> stream HRn0j?R=V8%Y0GiX*#afxe>'0jheRd+>}#y8o(rPBݘ(")ESׁ3BmNV9iVE]>WIc ~n8Pn.υXCǰqyp-*Ȣ{t"c5C{@^w|@"7~K ,$퓐iwɎZuyt0%] QW%#x(?.t endstream endobj 98 0 obj 446 endobj 96 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R /F1 14 0 R >> /ProcSet 2 0 R >> /Contents 97 0 R >> endobj 100 0 obj << /Length 101 0 R /Filter /FlateDecode >> stream HTn0SR)X8 Pmȅi[%"ߥ(9r X;ÙYR;ȸ)Fz :c!UJ*#B,'np֏puXT{ď+2Z) JS@{MrZ3Ո B%4R.+]LMPXSPSuXwxN0C n>ʹ*ʹ@*Zΐ Z׿8tiŸxhmI,!R./(B&;**7Wu0SB>[5#˘HE<uCgB:0pf {}aۻס]p:I(șϸ 2)6f4Aao[?CmNȡ13s1":yRg7%YMrTtt)/rZ4jkzE. ƘEFcw]Y% j*9ĄA Jd͕K Q1}o.b tI|ǔ|ژ?Z2yH"/ p^OQUgI3 NnO幠4ڞ3w..sp/q: Wpi endstream endobj 101 0 obj 640 endobj 99 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 100 0 R >> endobj 103 0 obj << /Length 104 0 R /Filter /FlateDecode >> stream HMR0FO;R [kMdz, T!0…,: 2j5J@ / / W@}`ֳ.= bB*UebyB22+I,X Z& RET&)5f+2M<~ }D%7 BB ȴm2vǕ!tgp0#u~9DZ Si dyɿScW@k!\4/oQ{(WvWׄ(hW )763j~ endstream endobj 104 0 obj 298 endobj 102 0 obj << /Type /Page /Parent 87 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 103 0 R >> endobj 107 0 obj << /Length 108 0 R /Filter /FlateDecode >> stream HN Ɵwz(լ&RT45oa<.~'8ՅtC^Ҧh% 2p`z%H6EHHʃX8^&7y\9 YWT d(Rzq'=yW[RUd3j(L7:tŦ꬜G#lD_Qԛ6hǏWCV~ endstream endobj 108 0 obj 278 endobj 105 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 107 0 R >> endobj 110 0 obj << /Length 111 0 R /Filter /FlateDecode >> stream H=N0O;L E(#*+qV^ gbg% ͘3 x $@n[tSR+@(lgs>Co.+.c ;FS+G?bpޟ|}_ gX@p?`]V;dzɪ2(3D7!&i|>wrp endstream endobj 111 0 obj 267 endobj 109 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 110 0 R >> endobj 113 0 obj << /Length 114 0 R /Filter /FlateDecode >> stream HRn0W dR.8`[~@ed,R OPgXp`-8@\ '#`,B7%0jU _p|r=(xnr{> .98j̑?rFnل)q%7< BD"KԇEni]ϋ>H)vt~ %㕸.%DkqN\|$9M^`B}\V&&ù'XUyέj}8 9a"KS:WmI+qTҜ "nMl=#>ozW,Ҟ16Gcuc;O3 lc81*53Qꊿ[b endstream endobj 114 0 obj 413 endobj 112 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 113 0 R >> endobj 116 0 obj << /Length 117 0 R /Filter /FlateDecode >> stream Hn0 w;'uq RTS~ [ g6N@" W!\2 m aPq{R!IYԚ>+`~jgzckc+>ZA,t35 ˉyW|E5v@I]Hzr#hcr`S{.2_pGmSx6Ƚ;IpD.$VD,/^djF©Obq =S8o%~-Fj1 CchTp>Qy yAo`,5#񖼵ߩb<ɂ*Bjwmk 3=˖t endstream endobj 117 0 obj 374 endobj 115 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 116 0 R >> endobj 119 0 obj << /Length 120 0 R /Filter /FlateDecode >> stream HN0w8K]edX!LgJOoKaƘ|-1!)'cR v]Q'LH3?A7k!.1!Pր DW {Uz5V֌PDqI&!O 19ղlZZ 1 !6L7OD~gHJ M`;YYmCa"sű 6bJrg'cUouն&RoNe]U?B!]@XiVLӀimj tp)m)ryqR huWYA!;:\,pkU?ᡌ`Ȫ5 endstream endobj 120 0 obj 350 endobj 118 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 119 0 R >> endobj 122 0 obj << /Length 123 0 R /Filter /FlateDecode >> stream HRN0`GPā$8jRK  D͛7CI_'1fg , EF p$yoDk V~ GWE1*yE2A aO'I7"FbAD͙$c|/y1vҷk^`Cr4v|T rN炢,6#2F$A]d zm?7LozΟt@c7/3s<.oN^ff '12@٬jodRZ9#B&}2{(>AMH*8CDҝ˼8}ѮY)T.m:=m\h?z<8?J3|/f endstream endobj 123 0 obj 403 endobj 121 0 obj << /Type /Page /Parent 106 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 122 0 R >> endobj 126 0 obj << /Length 127 0 R /Filter /FlateDecode >> stream HR;o07oMu*cN0(JUfǝ0< Ѐ0X8Ajr,=)#IhJ^b l>b_$TlYj<,݂6+ō2B{TOu=áF7E*HJɣ2AɢAUSmn u =F $1nn\«3$ʼnLy C3=oM g+(F^?xɶ!qgwv2y(zc1m[ٶV~gmhb_w_o;[Ai0oO endstream endobj 127 0 obj 341 endobj 124 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R >> /ProcSet 2 0 R >> /Contents 126 0 R >> endobj 131 0 obj << /Length 132 0 R /Filter /FlateDecode >> stream HSN0~ùċa{ڮݥMHW4`6mۮ`%kzsu[{$@k`jx& 擄_qHpHR2&}d F30)z&)E2R<-x2ē9.&#WyCp|@8'^BGyϺhWd,i *2?Ӫ)Me^˹??͠PƖGRMQ]MgUn\|Tֺ\WDnP]UABI4|TD Ňy .H0 endstream endobj 132 0 obj 414 endobj 128 0 obj << /Type /Page /Parent 125 0 R /Resources << /Font << /F0 6 0 R /F3 129 0 R >> /ProcSet 2 0 R >> /Contents 131 0 R >> endobj 6 0 obj << /Type /Font /Subtype /TrueType /Name /F0 /BaseFont /TimesNewRoman /FirstChar 32 /LastChar 255 /Widths [ 250 333 408 500 500 833 778 180 333 333 500 564 250 333 250 278 500 500 500 500 500 500 500 500 500 500 278 278 564 564 564 444 921 722 667 667 722 611 556 722 722 333 389 722 611 889 722 722 556 722 667 556 611 722 722 944 722 722 611 333 278 333 469 500 333 444 500 444 500 444 333 500 500 278 278 500 278 778 500 500 500 500 333 389 278 500 500 722 500 500 444 480 200 480 541 778 500 778 333 500 444 1000 500 500 333 1000 556 333 889 778 611 778 778 333 333 444 444 350 500 1000 333 980 389 333 722 778 444 722 250 333 500 500 500 500 200 500 333 760 276 500 564 333 760 500 400 549 300 300 333 576 453 250 333 300 310 500 750 750 750 444 722 722 722 722 722 722 889 667 611 611 611 611 333 333 333 333 722 722 722 722 722 722 722 564 722 722 722 722 722 722 556 500 444 444 444 444 444 444 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 549 500 500 500 500 500 500 500 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 7 0 R >> endobj 7 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman /Flags 34 /FontBBox [ -250 -216 1171 1000 ] /MissingWidth 325 /StemV 73 /StemH 73 /ItalicAngle 0 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 976 /AvgWidth 401 >> endobj 14 0 obj << /Type /Font /Subtype /TrueType /Name /F1 /BaseFont /CourierNew /FirstChar 32 /LastChar 255 /Widths [ 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 600 ] /Encoding /WinAnsiEncoding /FontDescriptor 15 0 R >> endobj 15 0 obj << /Type /FontDescriptor /FontName /CourierNew /Flags 34 /FontBBox [ -250 -300 757 1000 ] /MissingWidth 631 /StemV 109 /StemH 109 /ItalicAngle 0 /CapHeight 833 /XHeight 417 /Ascent 833 /Descent -300 /Leading 133 /MaxWidth 631 /AvgWidth 600 >> endobj 51 0 obj << /Type /Font /Subtype /TrueType /Name /F2 /BaseFont /TimesNewRoman,Italic /FirstChar 32 /LastChar 255 /Widths [ 250 333 420 500 500 833 778 214 333 333 500 675 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 675 675 675 500 920 611 611 667 722 611 611 722 722 333 444 667 556 833 667 722 611 722 611 500 556 722 611 833 611 556 556 389 278 389 422 500 333 500 500 444 500 444 278 500 500 278 278 444 278 722 500 500 500 500 389 389 278 500 444 667 444 444 389 400 275 400 541 778 500 778 333 500 556 889 500 500 333 1000 500 333 944 778 556 778 778 333 333 556 556 350 500 889 333 980 389 333 667 778 389 556 250 389 500 500 500 500 275 500 333 760 276 500 675 333 760 500 400 549 300 300 333 576 523 250 333 300 310 500 750 750 750 500 611 611 611 611 611 611 889 667 611 611 611 611 333 333 333 333 722 667 722 722 722 722 722 675 722 722 722 722 722 556 611 500 500 500 500 500 500 500 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 549 500 500 500 500 500 444 500 444 ] /Encoding /WinAnsiEncoding /FontDescriptor 52 0 R >> endobj 52 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman,Italic /Flags 98 /FontBBox [ -250 -216 1150 1000 ] /MissingWidth 373 /StemV 73 /StemH 73 /ItalicAngle -11 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 958 /AvgWidth 402 >> endobj 129 0 obj << /Type /Font /Subtype /TrueType /Name /F3 /BaseFont /TimesNewRoman,Bold /FirstChar 32 /LastChar 255 /Widths [ 250 333 555 500 500 1000 833 278 333 333 500 570 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 570 570 570 500 930 722 667 722 722 667 611 778 778 389 500 778 667 944 722 778 611 778 722 556 667 722 722 1000 722 722 667 333 278 333 581 500 333 500 556 444 556 444 333 500 556 278 333 556 278 833 556 500 556 556 444 389 333 556 500 722 500 500 444 394 220 394 520 778 500 778 333 500 500 1000 500 500 333 1000 556 333 1000 778 667 778 778 333 333 500 500 350 500 1000 333 1000 389 333 722 778 444 722 250 333 500 500 500 500 220 500 333 747 300 500 570 333 747 500 400 549 300 300 333 576 540 250 333 300 330 500 750 750 750 500 722 722 722 722 722 722 1000 722 667 667 667 667 389 389 389 389 722 722 778 778 778 778 778 570 778 722 722 722 722 722 611 556 500 500 500 500 500 500 722 444 444 444 444 444 278 278 278 278 500 556 500 500 500 500 500 549 500 556 556 556 556 500 556 500 ] /Encoding /WinAnsiEncoding /FontDescriptor 130 0 R >> endobj 130 0 obj << /Type /FontDescriptor /FontName /TimesNewRoman,Bold /Flags 16418 /FontBBox [ -250 -216 1148 1000 ] /MissingWidth 319 /StemV 136 /StemH 136 /ItalicAngle 0 /CapHeight 891 /XHeight 446 /Ascent 891 /Descent -216 /Leading 149 /MaxWidth 957 /AvgWidth 427 >> endobj 2 0 obj [ /PDF /Text ] endobj 5 0 obj << /Kids [4 0 R 10 0 R 13 0 R 18 0 R 21 0 R 24 0 R ] /Count 6 /Type /Pages /Parent 133 0 R >> endobj 28 0 obj << /Kids [27 0 R 31 0 R 34 0 R 37 0 R 40 0 R 43 0 R ] /Count 6 /Type /Pages /Parent 133 0 R >> endobj 47 0 obj << /Kids [46 0 R 50 0 R 55 0 R 58 0 R 61 0 R 64 0 R ] /Count 6 /Type /Pages /Parent 133 0 R >> endobj 68 0 obj << /Kids [67 0 R 71 0 R 74 0 R 77 0 R 80 0 R 83 0 R ] /Count 6 /Type /Pages /Parent 133 0 R >> endobj 87 0 obj << /Kids [86 0 R 90 0 R 93 0 R 96 0 R 99 0 R 102 0 R ] /Count 6 /Type /Pages /Parent 133 0 R >> endobj 106 0 obj << /Kids [105 0 R 109 0 R 112 0 R 115 0 R 118 0 R 121 0 R ] /Count 6 /Type /Pages /Parent 133 0 R >> endobj 125 0 obj << /Kids [124 0 R 128 0 R ] /Count 2 /Type /Pages /Parent 134 0 R >> endobj 133 0 obj << /Kids [5 0 R 28 0 R 47 0 R 68 0 R 87 0 R 106 0 R ] /Count 36 /Type /Pages /Parent 135 0 R >> endobj 134 0 obj << /Kids [125 0 R ] /Count 2 /Type /Pages /Parent 135 0 R >> endobj 135 0 obj << /Kids [133 0 R 134 0 R ] /Count 38 /Type /Pages /MediaBox [ 0 0 792 612 ] >> endobj 1 0 obj << /Creator /CreationDate (D:20020319140538) /Title /Author /Producer (Acrobat PDFWriter 4.0 for Windows NT) >> endobj 3 0 obj << /Pages 135 0 R /Type /Catalog >> endobj xref 0 136 0000000000 65535 f 0000029292 00000 n 0000028215 00000 n 0000029624 00000 n 0000000313 00000 n 0000028246 00000 n 0000022781 00000 n 0000023870 00000 n 0000000019 00000 n 0000000294 00000 n 0000000732 00000 n 0000000431 00000 n 0000000712 00000 n 0000001123 00000 n 0000024130 00000 n 0000025215 00000 n 0000000852 00000 n 0000001103 00000 n 0000001737 00000 n 0000001255 00000 n 0000001717 00000 n 0000002187 00000 n 0000001857 00000 n 0000002167 00000 n 0000002752 00000 n 0000002307 00000 n 0000002732 00000 n 0000003304 00000 n 0000028355 00000 n 0000002872 00000 n 0000003284 00000 n 0000003864 00000 n 0000003425 00000 n 0000003844 00000 n 0000004356 00000 n 0000003985 00000 n 0000004336 00000 n 0000005021 00000 n 0000004477 00000 n 0000005001 00000 n 0000005517 00000 n 0000005142 00000 n 0000005497 00000 n 0000006191 00000 n 0000005638 00000 n 0000006171 00000 n 0000006746 00000 n 0000028466 00000 n 0000006324 00000 n 0000006726 00000 n 0000007319 00000 n 0000025474 00000 n 0000026570 00000 n 0000006867 00000 n 0000007299 00000 n 0000008268 00000 n 0000007452 00000 n 0000008248 00000 n 0000009305 00000 n 0000008413 00000 n 0000009285 00000 n 0000009806 00000 n 0000009438 00000 n 0000009786 00000 n 0000010410 00000 n 0000009927 00000 n 0000010390 00000 n 0000011048 00000 n 0000028577 00000 n 0000010531 00000 n 0000011028 00000 n 0000011756 00000 n 0000011169 00000 n 0000011736 00000 n 0000012425 00000 n 0000011877 00000 n 0000012405 00000 n 0000013099 00000 n 0000012558 00000 n 0000013079 00000 n 0000013662 00000 n 0000013232 00000 n 0000013642 00000 n 0000014331 00000 n 0000013783 00000 n 0000014311 00000 n 0000014911 00000 n 0000028688 00000 n 0000014464 00000 n 0000014891 00000 n 0000015481 00000 n 0000015044 00000 n 0000015461 00000 n 0000015945 00000 n 0000015602 00000 n 0000015925 00000 n 0000016610 00000 n 0000016066 00000 n 0000016590 00000 n 0000017484 00000 n 0000016743 00000 n 0000017463 00000 n 0000018005 00000 n 0000017606 00000 n 0000017984 00000 n 0000018507 00000 n 0000028800 00000 n 0000018128 00000 n 0000018486 00000 n 0000018999 00000 n 0000018631 00000 n 0000018978 00000 n 0000019637 00000 n 0000019123 00000 n 0000019616 00000 n 0000020236 00000 n 0000019761 00000 n 0000020215 00000 n 0000020811 00000 n 0000020360 00000 n 0000020790 00000 n 0000021439 00000 n 0000020935 00000 n 0000021418 00000 n 0000022005 00000 n 0000028918 00000 n 0000021563 00000 n 0000021984 00000 n 0000022644 00000 n 0000026840 00000 n 0000027943 00000 n 0000022129 00000 n 0000022623 00000 n 0000029004 00000 n 0000029117 00000 n 0000029195 00000 n trailer << /Size 136 /Root 3 0 R /Info 1 0 R /ID [<5dddcc39a72bc6fcc4509994db681010><5dddcc39a72bc6fcc4509994db681010>] >> startxref 29675 %%EOF goo-0.155/doc/goo.pdf0100644000175000017500000070324107756745750013772 0ustar vomjomvomjom%PDF-1.2 3 0 obj << /Length 4 0 R /Filter /FlateDecode >> stream x=]s8rU۾(Qw. ^Ry[{[*q@ 3ܐ#K[/r?rHUW h E9QFH8TM_0vDTH8:%O?ߟLDdB5tp(YÇ :!:0'" ':+.} !k`!`&, ?YRΒ}d:[S8$ !a,S7o]r$GqKNMhjh?!23~EWpR65 (x|=-)IFO73U:q_͕YA $}\_$M$j"}AeB( X&2D'4e&ei˲pD< h?q?:st!d;a 9`ncb9)n2̑#^,9AK-V?LgfaY٧M\TЖN&!ܗ=.\$e$w OD>sK K!yA:3EYp)y9sot.4t-xs`vdCf]Y:7.')]mda|RZ4_-Ubve]tu]>J'Ă$bd߻b6_ р ʚջm I `vW(ޞM_ DP<ԮV*k %j,p} 46@l-4W0rʷ1AVEi׸CX.~ JXwU 'vV]`F)Xs Iw7:5)H(WmFmTN(BCQ 1V &?dѐT]n8#^ jȖ"X5IvS.Ŀ580$1"w:m;@uQ>P>%mK|y/k[/9SO*mOjEި|3""r?n}XؚJ }41zLMO⁌L>`d_y7WtOz.wzKaCdO7`'7YyOhyӽ 4*yOXk)\'b'^?0kߧ{)}fKY:0utb/ߛr~]Ijz8c{m+<ڧ7q7l3\<ý?p{vv,bZ;%zŭ>}ptm"AмrMmx yoaC^XyO`"Lo%_Jѭ-ͪVFNrEk%Ehq94#' \<[-Rx>aDxk:y"tZ,4+]) oCT tvTZEALӋ(~XK"4Q N;fQpe0R PYboQ d0K s&™)2YdA%WUH/FI2a&fU!5ֹLV1A7Kc6U\N]VwQ6VQpJͅsFgbmrm\1?w0>e FͰưOܽsc?nDtf8I-el ivcZm4]%6;ԅE~XFqk+FmGAmF$9g}=JGơ䶉_"bݿVH@U,g|,ehDyDiѦ ,Tx#mRv4! -Z6Lj]3G,h/slA/(fވ0SBȴ٣3D81A";Bs{|&fMG*\IaD)6^0U?XCį6tZw5d^H$.ڪ JU3ޙR`,jG5WWq\2ϳX!l.hS%غsE]#آ_`#eÐiEql17欚ڠZɺgh־ykՀo^}1<%:Ő^Q y,duPʨ?ecu+JRF#cp9o`ϻ3x+1bǏ$wJ 1W[1ݲΝ Pgꠏ.ڪ(ٚT{7r` .*iVzBY>./qE}H9L3Qml0A9/Hjk:^LO߬1Z2a+|{ .G '7Wףhחi61׫F3g/3S~}]68OWta#KWA-bshyoF g^$YOy~a.c|zb\]7Ǭ IL3-cαW<Ō9u^C .KttC RmmF1%Tʕ?/Нb8{S臚S/Ҍ`> Xnzq^m\Pd\Pj?w(W9cEqFYbleyԼQ] #ӈXMHk*s?qߖI<>LcAkj  jh<zZSʗ}L))+Ɇ%713q,w<c^t [Cgٸa&> 7p_au"aw?&2 GbZf! ?pUݟv~Ro=7Wvwdy"踓'PJWw7+,+¥cKc/WwL'~:7z^vsQU4G4re7žK.y`؎=n#7s?$M?p#fȓXo"q\LZ\Er|BEϘ S,w[0yhU-"E*,y}*o1PR7lK+3-v/g> C0)Vw0@ շ߯ |wq|j/}kXYx6ɤ9dX=ANCz %A?jbH6`'vR'#t! G4& +3^w< Ol/ˆNl{:γJ+Jk,6ڇd;e]VX:_Mb&3߻|hwBab;42endstream endobj 4 0 obj 5100 endobj 2 0 obj << /Type /Page /Contents 3 0 R /Resources 1 0 R /MediaBox [0 0 611.998 791.997] /Parent 13 0 R >> endobj 1 0 obj << /Font << /F33 5 0 R /F48 6 0 R /F49 6 0 R /F50 6 0 R /F51 6 0 R /F52 7 0 R /F42 8 0 R /F53 6 0 R /F54 9 0 R /F55 7 0 R /F56 10 0 R /F22 11 0 R /F57 10 0 R /F23 12 0 R >> /ProcSet [ /PDF /Text ] >> endobj 16 0 obj << /Length 17 0 R /Filter /FlateDecode >> stream x][oƒoyyab'9^I"zDYftbK 63r,8fXUuuULp}dQB+:8 Ȕv:++&9#dD)hf˯~ !DVokJ}0fY΋ncIh 9WP`P $=3ɘ/vZ\LiN4؊RٞPgX. Lw}4//+?qd`кۺ9ylp@QsfE,jɻrB0{9,S0PkLZ[C$$㔷Wh)lIѬ4I'~@l01 ]DZbL4E0_;x=M}<2 GšzhPXSI }=} +AVՙQ,1h}Qًl.l:g i@*YeL[O6K;ިb~ 73(g5Fw,yYؒBml<7u^S\o{u&#Dd,̦؄6j)]apN ^i ނi=;h+菌7loc›|]NӉem jYj)˗U5;WG_gyAFxs`䂟~yszE Mvo@\7<@,W8bIhN#9En>y>::_,/ BZH"|!니!3WC)RQW߻mCbk DOMγ#B'PѪF6m;8V5,ϋ^c&U5m$C+"=xb)]-]Ɩ#)$kS(ߪpgG~ ,Y}W.߭z YXGqDc9o -D3)D!b фNMgJz@8bi2/RX@F yj^ɨ?\wl{_UK_ue-]g!5ww+1F. 9f_Hiyܶo7sPפb5 oV^k _9+uyGC"F<%XA𐪌Q 3`5yd;No|O5 rU<MSj6yvgwej#O_Vٽ)Hze o\ZOWӷ3.ch]t( Him+KWw)i!bEyvn`\mr"խLOakπā;#bquX}5;P@( ( qC[5l}8|5% jBZѼ0*ilH!1r1:._E6rk`ءٛ~_b#secZ$J;(/FpTW4&(YmKWQzʛPŝ Y/GW & zbP {{<@7kwcUͪIlD)1.+`̓ ^ڛgྜྷYiV'%ra:rJVF0y|6jXuSnk5ִ׵zQ5t:9$0Zao w :a!|ysnS[J 8KS?d=Rnہ)iZ9F P#i5\Ln4T#Ȝg0]}tѯ@>сJ7ˤ0-ޢhkyVIw: $T@o@fc KꢆA[ BaGbON;}KJ|(iHblŝ8pz_ c񋗯7ON>Ί#$߆;n9 '~vɰ/vR*Myx eZ N~NnBvq@j#cxQ| /=u|[켫 Sgyw6a x?v`{yFK`8 wbl [W/K1@ c-:vqfe y I^oÎ'b 9Oq"k iFS C`E1ʲ˜!R}d:,Pϐ>*ט[)BP=9?6E hG4c- ti%H&HRxrSC`[*z)L{xˑ4Ȇ&,Px*$~&C?mXУ uIs(V^ ᛭Pm"%Kَ˰V dt[@TFotJ8z4)vpYgW"LgM@n5mlJ\cL[GoRÆ+eAMb(^a?%/jPR.;%)QڂdtHL 4-<99 S i!"`΀Sot]n(t]E >+Ѐ\xI]xri4)AOmӵm\Ϳ9dj`$‘[9\3k )]<>6^Ѫ3q)oE;ϣMT8-+olӬrKn?o"=M$w]DI`w"TЛiҎyaʷo-漟Z]7"br8l{13U㿼? %:^XEzݷ6pk(K :_^ T(;="|({wSII-=0^CS1 2 &haF-j1[˘Ƀdf#a{\)nwHBrX+(XjMkmUΪr3>jVNvIA%Yij?t Ky-dJAûs~ Atih!7u ]jM_w/m 1@6aΑ+;"Pd03#JԞ?݊=2.ݙ{12S t`曟?^p2-!1~澯||:(d}Bv)$z[a ֟%Ej\N96g I*XGnb{/6{)wTUCRU*UtO!UTHBׯON`zX@>GfF_H%rI҃ChIru8$ɊHz`3K"'Y'^~sR[F.zb :ir^?~ WŀHFnJa9x/i^Q[BW}#y [M?Wo"i«&/&2]{t=.Sxh^ZJI% pйZhJGu#RX2xK7{ϵzyN_ Fv^l$-p@t@-4ʝ1%|:{n> MQev7au LUޖ ˷q10iο6 x*$Rf0^uItsC44KiMcj~N/_jz 'K!{i']0vpũF<1™[Ըw ʞW_j7 RE2#8F*X,,YZ2!v&q,ȶFjC@eҊa,JNT#=+)\PTo4{I2m^?6V Z|8_}C}@j@KJ+aȸ5>S ʜ|l$x,fLZk)C6x an#zP}uw>vNu>MdR<&plQg}yuDjD,RƶM"A?EDiLeMf6AJʠFJ9AI - +?9}zio7N=f+U#&_U\J/q56>(*R}BXc"<-0m0 MUZ'z<㕅l[px0DDyC<ƟTQ!]|o͗wgys/`̘@6'*p-j5}7A I"$sYN^PؗeM1!Sa V`r)%\mycӗy_z>dGA>~A}$ADVxendstream endobj 17 0 obj 6187 endobj 15 0 obj << /Type /Page /Contents 16 0 R /Resources 14 0 R /MediaBox [0 0 611.998 791.997] /Parent 13 0 R >> endobj 14 0 obj << /Font << /F56 10 0 R /F54 9 0 R /F22 11 0 R /F57 10 0 R /F52 7 0 R /F42 8 0 R /F53 6 0 R /F23 12 0 R >> /ProcSet [ /PDF /Text ] >> endobj 20 0 obj << /Length 21 0 R /Filter /FlateDecode >> stream x][oH1/aͺIwAvt&v@tYRT+IX|#^źkM(S 88{l ,qIn &er0xe@$88>OgR|盼.wP0(!UF-hȒb{;_>bB'yWDrWO}իHi˔ Sݼ8Kse]?bm3~}i^!$d[X_# T&1TM`$_?Fr~sQ,*QO=:<~)I0;㈱MU. M~"2ISy䀳p ,`ⱽ%.@PSxi@Z( t3x Z+cm:o)̯RfSx?!e>w7Ux w6 F`(ZUfQY/̹Ryc{EUy|ܻHOߘ+KOكUz m_Fra̐`("=ST޽~uxt#(yy}i#J| draUExRh,\ʚ/yUyBrUҹ (>2Iը|X751 a$Ma }k^`mQ˓WZ𦑦ؒ߭֡8/.Va9LCndI-8h9;) &T\ܳPVrVۛESi!~MtKN򓹕^_Y6fCUDzf8{j\k9֫|he껬K}7Q{N*fw45sBs A(>3']^Rk}Z0"ϊ Tyѿ!ɺt=Rr9!W>]vEp |1+[x?o5Q^5;XNge"S+} %)of5O  \_+I0,:}UѸ2ʭ_MhzCl0#3=pzZHm[sU0snѸ13{L3Ч0TQ等2ޤeUZu56 6t?f؜4xWvj\Z[93t:c1b[!Šq3.MjmpqWyk\,g˹NPDȔrT$WW#6(:NT5ꇾ5J5T!{v7hO;1 ":FPK,&2Uј/2x@} 3hض(L6N 9i+z%xZЈ631d;2?4 ڄyf>/߇DH% HFE ѐ ml1ciQ:mĚzư "Z5Cfx%K5+ 80hC$XJ?)"1NTN M 04'DFW bwY1L敔}GW X|"GE~̒0K6:R9r#UP[bpĩ]h*,rY @36g-SMC|~ՠKe0C~n!KODD2xe$ PO+cL*$[+q< M:xZ/WSeJWrzDG > 1@V<"q<#[ĄB)@EpE XD&R"5y'ʒ%=#T]7V l;U,W:Ĝ|T1^bH%4^&G)g4[.|\NV^:h}_61'|kڇdNlr}I=;E Z@f= >wW 8SRmh<@һ+"gʕ ._Ea\ &!qY1@x!1ۮ_7s0Hwǫ<"˪nZm;T(D!aG4N{= #@κ@5 P-7n#G:9}! ʦR?iOwMwS mnCb E(eұq_ɤZ2V ؐf|5&CcXD`OUBejrw)W}􋮫h0> -`!ص v$.G+EusOI{qmЄ΄"bnx9 ނ3tݪp ʵ9ctU@7e]B87R'ߪs9~hQ(-I%dn&'zKt4ʁ$,Պ6+%r`%Owm! w e*`~ddHQ)ݶ9$nQsHhshŮ搱v6؍1D!ilCJP\zOC,pյEb"7a ,tCk!Z p=\tFwԕYy]ְ,_U^%e;1 &ZkHK^5}e֯c/ O\8%.DQm% XפNI&84+ ̊DUB^iYïX'Inu$.};P[K|noQ+:ph^f2y d "~?h0*ys7xD`Hrt! KWM ̆Z״еcGlXbc1Ў%yH/qBGوݏZ *   ˝*, ZIE' nm>l*=xg=Kp|d%08\gqZ6w* [w} Zk3)=7n#frdnjݠo[ GJ2j>PvAC,U #:ttµX*8Ԯ[Y(~93)E^MFG@Qz~>*u?hgV_%joZAL>{H Ҿ~Aߢ\{lYn9]Z8ަ&ݓE7)2|MS7$aL)M B? !ћK'x%ܥ E_@)O]%O]B3ERdÃQY{RP!}?qɣQk oڰ,cIu콣)w2LӉk2endstream endobj 21 0 obj 5381 endobj 19 0 obj << /Type /Page /Contents 20 0 R /Resources 18 0 R /MediaBox [0 0 611.998 791.997] /Parent 13 0 R >> endobj 18 0 obj << /Font << /F57 10 0 R /F54 9 0 R /F22 11 0 R /F52 7 0 R /F42 8 0 R /F53 6 0 R /F59 10 0 R /F55 7 0 R >> /ProcSet [ /PDF /Text ] >> endobj 24 0 obj << /Length 25 0 R /Filter /FlateDecode >> stream x]sƑsD 3sNlqꮜW=Q[dHpr @I6Rb3)HBS~FLR l[]}]&K![˥- 3VHUE$K-ͮ)q2-tF?<4( /3BEf@;[fsyuf~afbVd[W^W7k>Ÿ$ jH in`.c88a~AYW\EQm=5š_DPrt"IGzp隁7&f6<a}P)0wW~! 5Xs$mXxv:)]WCU?.B#"@&bC0"BK51&BaRnF?ԛU}H~06lX~V&yL|f^;1h#Qce=XM\ jȐ/#i`gLH.PI ρ\0gJ> o90NCTL:b SMO0q0໯A?aATAA~ 5_ZzR\n:b #<@tTl[fMpkZ$c;LoRfЃQA*r1Ӈ QATB rbue1G ~2b#ASj!jkQOv<P0P~<)|han~2=#@>v p#*oa$R!ݶ*R€??5|~a֕+k jƢ{ !ZEZ#GbB&G\?epݝg<Kc(@qU6&,D;~`1K򶨞 9noB xl&r/ɐY`QNbxܵAAu ^uz $$!4(HCȠBH\q9 .w^?jHf}M |N ?.dȑ19C!Ǹ!P7:r~'I,'{yAx="SizC ;tOky~ 'mxh)!'2KL 5Ij]9Ĩ{g0>J}'.vl%=wJhnnٰׅչPw&}+(|:1 ֪C xcl_^"(F>!Rm(d<.S(fR@q4knbE2H=3T>p$:6kapaG VǘPlr;t5}]1%w,UQ+ YqvorG䛢e! J70q*hbL</JjgOmaZl 67t a0 `( FmX'mX6E9ո,] 9$(?Q??1}XĩFzZzsΡ&zpk<+$ޟ&a¦4k>rlɔj(*'S>820SiSD#g&AYfx! тPE *0.#sBj2SЁ9]W[KN4)PՠPUx*ZH0}'z EFߊ󡨲&h~0gjbl0:|n?k&\,0=:_yFAMÄـ`p]j-57g&zXѬ*T @(_k <[j(%[j@5Sqf:TN4җkbPxh$:A|N^jȯs!c GZjƗ0)VaGV 'E,o wR.M;i֨hZY\HUP~gu3xƗRN`q=zf2V]*n^z\sKfm8UfiUBk i*mG; Ѧ:5AM,nS_LP4\ou$,02"ݺ X,d-ٲ4 x T||iBS/L|g+0?4QM0hҧU'!iG҄ݦLwauƄy_H3;1LA#PɂϪy]nUV0 q:̛+fm&rf aЎ X@»C)upa[iպr7-;iӨ׫ ^ E)ˠt[?< 4jZa6^&AǬߜI`51F%ecfCbE3s!GUx[,j0eq܊vT If0ۨo֏cD̼\/En/`wmkߺmRY [=X_hg'ntlXoܭs|[]prAi0D-XDƌ}acׁt?+!|3daЂ׷ ͍# ~lcu{ߤ3e*GT1#5\urX _RSڬ({-j7khfQT>@oZ<*kUaUacCշ/&0aaVZS'>p`Zrw.l^޻;:7!qͤIS#ڈ#**D[^U-@ՂrX ` J3WodLOī '*a7/ݏ~scf<ܹs< ZR_Kb i}(/[9ZܝƯ2-"Ɓf`XXo;ъ'8gТQlRP!-7l'걍NK'@<옞Cl:yT2G1 =< arlET&awXAann/p{qKّMeovmewpMajr%0e F?Ezd>,08q۹l}նΰu/wϠ*KdM*Ch'm8y=ơ8$Ǯ<*uÄgr}/t\G !xNc!1ܛqܛ,t nSǏ|(hZEOZq98Q%f< %g{8 ag7Q!jҗcVio9X"U(qAooVCvoNz|[V rDS @c "}$1!Mcdu`;y~ 7S&>6os2ؼWG8Μ윩O@b LB}&ՐD jPx*螷h(,_x&"2𺖼&͆YL4Inͦꄻ9 v:Skw:: =`u@hOh}⚻/.JmvڐܒK/46^⻗#Vqլ[TEnNh$saJXj9R-:勰tƹvHyN# ۴9hozevt@_z (J4PzEef)Q`NGO,prR4HL°՞>:ֆ$qr 9)c֙CԂa)1iu_yĠ䡺}"źޒ\ d\]k禔% R>lOsS؞vVULRBDؤƅ,= 9PoJ{3){ [q+ kH9(r68F6'^-B%ց9kM⇫te&6ޖH)%Zv[;攐|u]h 6=&DHXҲ1[')7=!`X٫08asU6y8cv $&mQ"430h~]Z+$FWH+V !`h̨ˁq,e:bcƪ;V4F8؟gDa34X,O7ֱOuE/~eAuu;Q8+?`$܊ 풝q4c<FyA)xf$uFG+:nsY9 O-vșpn(E axVeI5c;-n/LPvφQD!FyYc|19Ԕ 6FŸMW>@ŷt .UKoG#T =jϯ\`sEE6tl,nAmaH6=N^~|\yZ.|6a}S _Y'wx$[邓[cp_>zΐ+c}0HtҲCV!55Y=[?&\c>~5*0Qy <@zgc_#썠&ر롥,TfB+ol ^ ;-L19gi0>g?x2endstream endobj 25 0 obj 6128 endobj 23 0 obj << /Type /Page /Contents 24 0 R /Resources 22 0 R /MediaBox [0 0 611.998 791.997] /Parent 13 0 R >> endobj 22 0 obj << /Font << /F57 10 0 R /F54 9 0 R /F22 11 0 R /F62 7 0 R /F53 6 0 R /F52 7 0 R /F42 8 0 R /F63 9 0 R /F23 12 0 R >> /ProcSet [ /PDF /Text ] >> endobj 28 0 obj << /Length 29 0 R /Filter /FlateDecode >> stream x]mFrGF6w۲s [:j8#k~cl6+ aaw_]OWUW5O8g My,MX!gBd䜙$<#9K9yYy2z}gBI]\r\y1/gIHR+'Y;߯vN+H w$jZdRd䥭{ӯN{T̯/.-թܯ8Sa a~&`r8g")IVE9ђb[W[>Vrx:jToݚ Z?[˃ND;^]#!p,M FMp$ Iٓ(g gKS̥%K̡HR"C{L8 TEp,O{Iɻ-e O=!pЬ8[ҤŰH2 8<3hxD3&iB2@_o47DIIYYUvsP *gXaTYHs3 )P>X SP` J8$K#ojD$T$IqFX%na !l!T^K߫ 51옄 w aL~2Ii}\&)IV؃2D' $$a9̕< ?{3<( AS馪rhIEצ<+}ЧX<5Ұ7C|J!i<%.1t "D h#¢HhN\9Gj! EybJ|[x׳w檒d[HI&IB/icȔ##S*($rh&AR>jX34)…¦E;aǥc1@l-䠈Yr; LPq d%J䌴86I<7u'PZ ^OMyu?^{/vЌ,LߠZ>[0CxR=V7SW$bUr@g@B<"@-L ݊&K|w&eT2տS="z@ 9<,0㲔aBq!R5~Q" Y%Waum~R\)QN'_oﯓӟNX'qUƐ!V&R^ :W\aB:$]-4vje7msmo FxQWTL8][ڱU3T~ <.;C\x+ 9O' x  =!|SCoI&kgk`TvV jS^r;*YoA8\WYYʬqRsS%8aVZ4ModfuU&{4ނLV6灖p~k hI@374kn5_Q0P D<( vBp]zSWxjV)u3jԼi_,n$`µ WX@Y]Vꈚa oLm"J9Pε "ůX! ;T$K4\o +>U #z9kSC=bwhB+87^Ӊ2G2dIZ$]=C| jrGñ}獾>]޵٧K55|`|}:BT2еQQRv^^5XG^FDPu!`!*Rt8޴L\JXenȐSg靆TeFT+@w "޸o`xy:Jkش}BB= r^S5Ç<]![6eAv.˛`m Ⱦř y ,T Se xk@p!?K2P5\)B<ޕEo z:FJP)q№~[E-O.:Ꙥ#:,!"\m6:{Y aŧOj^<`CxOvBvBtk3!3f@9f&]+FX)Q $ѭMnp"<'D4_`U@2m|4= :f<D!:a}ؠF;"DD*BidߩJ0D1ᝠmZ u-x2k@ßcL˟/4~P /HZ[a9n zNG+ bQDb3=_"[\h^\dH]-[4ᨼw<eZCf7:UٷU[,-j(2SEFe+gӆՂN vOj>`VăD ydlN@y(Fd?,D>Gf؄ !7,$ *=&B;%`Pg 6عWN+-XvR uvWӬH4x :mP QD,,#ZjSԦi0B'aن[]XKQ0Tds/?75k.)GE*-yjBt}A3.KG /hwa){oۼƷ,!a83z"h"nW:o tHY6% 1ڳAmpIx,(s- .gE7 & l 粂ĥv˽D%YQAVCN\#T)SIsS2ni{(=ׯ>}Mڷ V[BIx֭ *'!"\߇.Q;J@1J]0Vi|vGg& 08V>ll,Xh?BɴGRؤO(q .ZUˢ;qb'Tcm#09Q\:ƅJPQO$RIABfaUs4%qmtQ30UۮRIXL<֫I:<¬2Σ qP%2{jQpt?0չKGt (d@ ӝ yo2Nsav;1O~=L@"'@O% k "j`,ΑeTA)|>@yË;`7t8wYAsև.hPV9F>ΡxʟQ1,jDGb.O{Ҟtpj=Y]l%{fvj'6d/_Xd*rySbOq1 %DSRy-y m) d!jv #DD e^cF&ܨ> +}ZmJ -͎koH\5Njn[Z_ Sȥ2rk讁|7AE3(IBCu6:IIOz}N6w992FEC1]r 8a,&9PBrB7 YNuUUu(je7tNU6ੀh uknwWsZeM*lCxOUP]N=4ǸC=!/_~_<ʣ@A Z]iZz.J;8394-.^^b,4t'| *=/Q"!9N5glєr}(dD1ԘFPqiR}U_xof9V"Lƻ=%U3^񳪹1f!5~+Ԏ:le~xD)VԐZ-.EgtNBr)aBp ˎFeu`-hz赲=ԈthR # аGb73@ˇ6 j@`1e`l:n,vj6t<+GпQOC]Hz99Ao6MDwmB9Qps˘:# _$,8X"]XDd=S`7&v7f2%wFsƏ.P1mO_{-1alu:gsFxC;ThGBEezP `?拮%Iۖ:"pqG-thNFX9QCYd>+Hl9/ }yԤ9ق#"$4 !7|sGB~=AiXx((m LwvӺ>a<#q&@mYCa)up*RcP^\8uiqH+{Z@zH{7 F̹ŸtS>\O1G=E/@5쾲Wq[xԩz2j͝oۡ[\VfUmk)>#FzFgMN{oa-/3חO5)sނMUaEij<9vved;:O=tWĦ|`VpݓLPK;Nen܁!A|4X;gad3u|L[^P#H8`y|^$hTӻDstkbwRng"̟y붤ueu_`lfsƀruHP!E<"b!!TС;&/n{H_V;[ٺ%ںU<][,XYy7zwSmڙO۸u=Aqʽ˓>9nAJ}`ߔ{|?[ӣqN#ш$ sO #:/ ;Y ۀu.:~fmjT$ͭNiƛɐ;rn]֍ڭ^)1-e[Zչٚ"@RZ% { K nw~0EMim>Pm@ry\vorۗ/P'%U;87ڳ=.j \F,R^|i?&(&?)s/#|sogl{4tc>iyđ4azvxӋ]? endstream endobj 29 0 obj 6699 endobj 27 0 obj << /Type /Page /Contents 28 0 R /Resources 26 0 R /MediaBox [0 0 611.998 791.997] /Parent 13 0 R >> endobj 26 0 obj << /Font << /F22 11 0 R /F63 9 0 R /F54 9 0 R /F57 10 0 R /F55 7 0 R /F53 6 0 R /F59 10 0 R /F42 8 0 R /F52 7 0 R /F23 12 0 R >> /ProcSet [ /PDF /Text ] >> endobj 32 0 obj << /Length 33 0 R /Filter /FlateDecode >> stream x]ێzw}mcEl jN26g;L%ؚ=ݍpDၭ$qCD!G DFmt~E"" .n-.( DA+˖.r#*2bF*^T=qF'xW8!'XpR,FxhS?&RDGυ*ߴ'Hl'C:{Hfi^ks$ 00%{`aaSS_.L1F0rPY`JK`´):a*8SDp)(@R2I|.mʊGWjW 'wpS]&s1Mo0>X@@++>6aF١wDd!&i%pj+!a:*G11ǩC' /5GŃ9Rv.yXQcAǨҥN8%)_V`{{ɕR6rօ$[>%h V|HPĨFWHP:X\W&GLk AH# 9(PJXa %~p%b*au.kU :g54%ut^Xd#%'ͭg3e"sKI: ƔT;n,MUC&rj2<@U. !W7  Yj"*OY+؛Hs}Oa<'9:b[tQ.B_qxbf&ta(WAAUhleddÔ&O&IȳI2su[ V.:i_\UŴ}m}g&\z%ҋ`}"E, ԅ`t! % =ZGe!~QÖWk͋yU5/2.чNha$Q%a/w\]~P=4(~=$(Z $$̤vza'=bObz^rö3l= mch!Q< (TfӯT* L |"ph> вЇ0. AjjJ΅"Oe7ۦ>8NhP?ᳰEs6ZYؿ$yViMl RMK(Y#jaLer=s﫵-`4YeYا3{aǦ8 f\` jJ~0pL= !@3g [,;,Qn/t! ]pv'[E.ۡ ]i.V` 3m&|?R;kNe8\h MKКyO4@'9.uhw}E+M|fȓn:@[%|ry2" NoY2vC}5io4|y/ 7e>*C;Xt'"ko`ġR=dǭ:#KR.$):۳N8Ɗ4bpEݫYvk*" 1;tX>EAC)WGO4qO ruڿw7޵~\V ӤHYl/,k#U(?-mv?"l K"M/ r1N:vU2[&߆C?iB!<B?|97|{7|/{rh~p#%~POkI!j+ۇ ' C2l#!o|t2ðJ0zp5jXsSrGZ#t-t7|)&u9'G!`\;=`KeM[|B9ǻdLÿav Jr^ȋr~,7͗c3n DM>f&A a{7[IcQANfP"^B]=ÞUk1]]߽\mϵٸdYDW 7 ؞o/ecZ'xo_,I&Ӵ'ۏ?)L3FdDjmuX#,"fYI$.t nMz. a'^}hBI7 IzQ: z$f!I{k@Fi@TbvU¾pa'_"z99UvJ: V, a[ ų?v5A`!iHV,]Y'mӗmFX5휂,oHG 9C d0h}L@!on4~[~d8i1І"~ SV&$=4m&2;x0|{İ{X$(|vOxj> }.u-nyȋ[|"qEMw׎00hkdbG =!^q#}+]:|0 ]_>]OO O xw<3˅fc~tγ_1Z^7Y zcFA،D{>AD#}GBZ@#1FLw9YbBE ~Cx+3< B= 0 p)|B=^Hb{Sʿ#;Od{B曶Vh]KUԒRڀ2h7JB`<EVux*"sVA WlmbˏNendstream endobj 33 0 obj 4155 endobj 31 0 obj << /Type /Page /Contents 32 0 R /Resources 30 0 R /MediaBox [0 0 611.998 791.997] /Parent 13 0 R >> endobj 30 0 obj << /Font << /F57 10 0 R /F54 9 0 R /F52 7 0 R /F42 8 0 R /F53 6 0 R /F55 7 0 R /F22 11 0 R >> /ProcSet [ /PDF /Text ] >> endobj 36 0 obj << /Length 37 0 R /Filter /FlateDecode >> stream xK|X,X$0;dvnIG-1ӽ?7EmK,[nXX`{(QUX$)8A')0a'G+^@,-Q$<)GC<,T=_߿/N3jo_1\?%pݯ~7SW??_ _VKRg'emu J<)Y雴<9HBuDN' U:?+C?HB+)<ʇ WC[cEϗjG2'#IxѯXUfP/e^^z)&&S1F& 'W`1Ig̀+[@k󈤅_]#ylh}=%].u?HpM*fͺ)Ǵxiw=e^ۯXjZ´vxJZyl>As\i{zC~@?:LJO7<~Am7? 3Ϣ_w'(}*e#;#j>" N4 KGPB+4?:BR>9:Md`UZwxd*T߈nDHYAZ2uvjF1 cr$?0E`*Z<7)ކkW P'lxB BªxM9фh"Єx`}HJ*X&kPuVT‡ UV(̢byJ6(|mIϳ<}bCD隈Z$#xk$ufm.lH*WߑII#F&I:<$]dn&wDͬIgA |:tOG>IDD&&IT%PPҗ oiDl:+EzD2:ľ~ྉß8:t]:/ga43dnfܩ⻝x&/'bvQY2նSrL6^:7?6LabunOsx%&p'nUX#Q%6T z3"zzt&86_TyP+IKG ` S/LƔ?7:}Zqi~q~ul+t@J6Ȫ}()_W^(J i)@%yKIy3|ʭX*g`]øH.pyc Vp̫IMiN2Xnz:+> NeGR:H|(CSyo':>&E!$G}j:5%hcYp2"̢6e@HvǑ_xe'jSTS{'yD'FflN'+%%*-!Y'ut"̓6$Pz1 QH21Abr cï7/8kQa_9p'Er|&['OC;sԎdsHЎ5Nvd(d6? Oq_-lV<'F)t45y < WhNu 9W;A,2 MLMLwcdOΩ`)-):Q;La0OaTc0`U͈rjj)\iOf`+IGz q XLUJR,"-\4+@+v1 1ijOw\9IaºLmʪ_VaZO;yZ<192;j`Y4A'؝q Bqd `S¯ZH@n%dIJ'6rBK;Zh\1Sp &KoWUGba\1 5̀>>id ǏS h 0)ݔSfQʹqo RdOlԒe'? VsX;d1Va#KEE Τ,dZ6b# :Hly!diHm7!fK@b,g)9UGFc~}If1hw''vz(Cvx$oӞ݌Ňץ)emrPǖ#Gha孴GčCG>ԡ>ԩ>b(Hڹ]J}Qj!ʲam3+ra8|Y8i <+8LO7r8,kO:c`8,\h;0ėB}b|'_C>ກ`U f_齃^4#lR.Q51c,"FDH6EjFa4ឯaUWaj4ƑavF]lcn$1WEs&旺Fq Z)A bsgsNT3Q5R{LqV&"P -G쑠BGn*KA;oIC!|f٤_9_}OO/%J[z!zYvY)ۜ.^w=ae*}#׉sE8ųץ-} t5ʡ#!}hX/>P` ҷn*G4jG8=ή*KBSNM3[hqXat"f])--K\0U5@P-FMQxmT>^O:^( ^- Q,:$R|B/ʮ$'O.aNqԬGSaN1ja *uJ.! ٢hO_hJT&C1l*rMDQ5F'Q3|ǧ>ƠvQ5RUjڭM>%|"/+'w=rawQieS2zpIZb*v w;i! )cC>i44a(yjsCKS2Jn"G Wq$Jn܄"ET<٢c0dXmStw5SeNw35@Ŷ>?~ z{i5fa/v|øΓ28v. aQ=zM~8Ĩy0mյWؑvdn;rqʑ#lrOw&x I'PKG7ozrJ9$c,W|Gz>$iA*`a2C҉T %PrN>;LFMTʲJm|ea#ftCS;endstream endobj 37 0 obj 4123 endobj 35 0 obj << /Type /Page /Contents 36 0 R /Resources 34 0 R /MediaBox [0 0 611.998 791.997] /Parent 39 0 R >> endobj 34 0 obj << /Font << /F54 9 0 R /F22 11 0 R /F57 10 0 R /F20 38 0 R /F62 7 0 R /F42 8 0 R /F53 6 0 R >> /ProcSet [ /PDF /Text ] >> endobj 42 0 obj << /Length 43 0 R /Filter /FlateDecode >> stream x]M8zo}>;V_" Twc1=9lsҖvnKԏ)vNg@)"/ GLD4JX2?~?Tdaj2~c$w#2-}㭼#"Ψ/w#Q Mf4]z}G0[QBp(j_<l,-6?VhEOܓybx3|C#A1l04h0wQG $׎"J" I-UO˟˧rD}QGe٭vq$" 0Kwl&]H(!Q4R5ɭA,[.5d_C _HD& c.=)G1jb Zd9)>bnJhQPR&v.u$D˶JֲBax)).53嫙2Y!S Ew;mQB Abu蠘lJ#@Wi Ő.Ih>Qе((BwEAw%t ѽłQ| 5WZ>"=򡤪G;a҃[>ZuPޖ% lG@R [^-()b#ƅO@$1FaV e&!i0J2ٖ46hE|0| ! TDۊzd~)na)?LK]=d;ɇDG9 FFm (L8^"\CVoC<[v|.!y3 D6$}g!-ܥIZ6g^7ch;@kjef={r7L].cӼ\ 3{!?.~z"y+E6wZ]i˩MJe̔0Ty t%Zub7{{a2^ίX^D:؋I?{IO]&ݧb p"/,lC@$/uESʸ .` aWs&=55(<ĀN xӤ OIrW}>ٓ P@ HL:)Bt Pz@' b8f4Qf"gn>O{[ /٨H42x#D(2W5šVBO woZԍrjԓZcii,GcXDXգ(,\ Kj?Rɋt1v`aXo 4i9Š1@ #fV*\HR˒SN\N9<6ի0c t8bgaIDH ]}Ʈ% 4z(@'{{@d Y`XU"tbh>yV|,ArVҹC~GHWF9wDU@ xY~C5em#d4iDap4 4&4&h 0! wа8:n%P[4,4, @K;ln ;]dVs͗Z0^yYV9.Ȕb&aw)0Oh C"&42!x^:z\prW !k0cpUzn$cC_CYA&]:T2,5x!o:8NF_M4~o?'u~>A9rIu=sz9n^*̦/Կ\{+mީQxr8Ertu[ҸH *tHLم?W3nNعYŁE(:ׅ,i/Ǹ0;k[d4~W]wE|&m>7?tFD26Km1yדDeMeͦdwwL(l1D4ղ/nj{:NJǴ@w(B=Ϊ#UW|s 7Y S.Bf.p%V䫖:m˧QQ̨L<_ :JPF ćNrw=}guxqmE%yr -U\Tޯˢw7(6/3*,w6Cvwab-^(X7MҽL_;jUWf8 cXo7eHrv57\cEnSU:9C?ڀDc,?X+rթ ⊕hug@fj:_!j-,OY] ]OsrsNfc QHcpvICtc&c_5z4;זUۙ[f7v7XdpnZmFNm;K-]6p7UQZFgͨ~>vsD+ vDa;L`׼`kЊcsXV v;V^;@`'LU;<ۊ)[a޶Q"7]s3GpK7Lⲧ/gXT= WQ}o}oi\pgU~Az3F[A(Yliv.KT4d=_2b* x\sš8w 3s O=f Z 5lݒ.FV5{qHKE⧈"=QPh#,)sL)qEy8U0%b/{G;7uX^oĢHp3 ]ܽ[ A ᮒx20 rp 넯njTW G,/kZ6[RXTrS{.op׀]!]6ˬ֠<#w$`8ySyjsi§rt=8F&(Nqq}|bOum豧ekO7|,>mh2UI+}tƼAæJb_H , FHA)X_/d[ ӛ4;b9>p; ugeJꮤcZì5#]^i/s^di K.P0ϊ}(1P`Yg%~ՎS=4 PR(3X02à4 )<]j )<.= F5> endobj 40 0 obj << /Font << /F62 7 0 R /F42 8 0 R /F53 6 0 R /F54 9 0 R /F22 11 0 R /F57 10 0 R /F52 7 0 R /F55 7 0 R /F66 6 0 R /F67 6 0 R /F68 6 0 R >> /ProcSet [ /PDF /Text ] >> endobj 46 0 obj << /Length 47 0 R /Filter /FlateDecode >> stream x][s:rT\a;&ٜ9{=8$ %MJsKQ=<I4<1DZnA"ywy 7FE B0%]+&FЭ}4mlUTp8q8?>81ǂ{cSȿ aS=I2@S;dv~wг*y,} Xba2`e`%;EZij:uYI <ߧN>opi, tqYy ~|lb?-"fD.Pvk_)s ^T"NФ6A h/PPFm4hNBt aPO Jh^䏊(I\^_b8"&j#ѿWŦ&|]dLTN6NBg&t&9 KfN1:3LnQpS>٤t%{ ᆞn`ŠIJ h##hd`xIaZ#LlM+0G :11Qc91itHB H͗2(PQBnY Kkx6 Ĩ5 %l]˛N2{!gMo`vS{GDT[U{5<}l6&\Y*gWX>;YKw,- ]nҵ7g?߬=t{y37M"3wC ~31/(_B{C!Pw!4ff9. G[.Z~ K R'mBHq/i GIWh&|z\nRwSIv7 [_/gWp^.SH\pfu3+O6i3/Z5-ͧ0u܅"Nn80 Szௗ$swWaϺU2ۮ- صzr`擄x")[ʝUS),Fýj2$E!Ycs@R[/{M/v10Mmpx腒i*.m] Y`X*0w"SѦZX.Eo4X*d]ʨ|KBJi,#JrTNa[gHX)PV !V(pBM oE}{N[]g^ϓEvU|nbuC*,(`OezLW˂>f;{fi/֡$8W:WJvsQE \5X^7}ִdzg v5MTu8؛NU8Un_ZnXY D/8/(բPjVyVqCQ*0JûvFXӥO=kkz)rBmꉑ 엽}{{ i۵-aB'SrT{>y4Sͭd^3@/['EK+¿| WQuIYAOO!"?|$x^8!b2^:]<]bm{F)]5#ToNa\}gNRR`Z4t;Aƭ8JF m\BюtEy6sȭ4l@s7MEߨ!۴bem7jb)6Yw>Div1+lt}Zn@]k8EV9. =H muF0QK2DX&1G*<OHcvسѾ{߬x9./Knyq Du'ˊ#[l)bsq_Vf O&Çq'lL>a`7JEG7Uv(PHvYOcCcѡ>nJ3Amdx-!!~㾥<=`' 1(CkOj9:.q3ud Ҁ`v 7ۛ,ɼ3wͳ/;yѪ/: Y-줘Kw OrM=}^ȴZXEslnUվ`ZdG~~IZ!j"tޡؠoBW=hEGE?AzEE;K`X3YI0Ifg6›L#wM 6tO>W Tz=GH9Z0<𴰭$*l0P]alrhC\_#k'+}ZxEF{0\'5{XlpK#}2r?lEQlBSNíg-D}hJhF9$>X~Fu_f,< Xy[18ίmB,'_4/u.`OSJ_Lm-TFIe$,9>B#z-yFN k,_eEo,kr6^GXŦ=.u?1M"YO-G1:C.oUKUH_kzeH[iOF.$*nOpPn?b*p {1=]52lW~_9< 25]#mh@~H-IgK|,hP +um\Z%.Rcޖ)N1y۴%߱M(GcV F({hB(:rO3-[IU 6f)nNHWC?x*XbK_:CphmW"a1,vmND#~hYld..)[=Q%437Hٵ]n ?dixB/qu8-"Rc|8)P.v;ޚ(`պX icJgw0Grܙ/QɑRtFQjQS0|Jaj ` a|{M[EBS^I\BCւzPJ^/ Px}lc9]B[D*d(0vgh/SWg}ҿ81j)(B7#MA2M@-6 cXkU lR!`F!ω Y(e4U~4<VarX$kRR_]VBls=oou]Q-$le=3c $Lxt)E r7n9p^ E(۶o3fWWPi|QepĶFFOG tcq 8И=uXܷG(Ӈ3TެP 3)3JqaB,5Ş'~*]P$R+b)?7 |4ImiDW[}th&ALYκS>pOɪ'߃J=ej%+XR&[le5Ůݭʸ_1'fW7}w7*]}/g`oAΧ M-~cЬRI;4d$UhLAsh cC1ߴj&C H|'ïg)39.` zhH2`h*o[-8swE}# ӤAЧ#2 -` HlAQh[yПR1>&f!b铵y K[d$ߤՕ+{Y'MN_(1Qe߷곯FͯEz*IJ~ӬM)Icb^{f{a_@|JyR#IFDtVInځ<4X03ZNu ;UUpQ4\"(R\(|Q˘ z–0MΉmZ/?e*'+{wU޺yE$DA}㨟l0b/LBBxHo|&$4l\.{AgH|I0p_^bbog f u>hEF)Lnz\E |zLv< RL_ ,y48endstream endobj 47 0 obj 5627 endobj 45 0 obj << /Type /Page /Contents 46 0 R /Resources 44 0 R /MediaBox [0 0 611.998 791.997] /Parent 39 0 R >> endobj 44 0 obj << /Font << /F57 10 0 R /F54 9 0 R /F22 11 0 R /F55 7 0 R /F53 6 0 R /F23 12 0 R /F63 9 0 R >> /ProcSet [ /PDF /Text ] >> endobj 50 0 obj << /Length 51 0 R /Filter /FlateDecode >> stream x][o8o$*I`whmQ`vOLuld&Z)vb'``E(tQ9 E8#F#(u2yC[nbFEH4㛿`H 9xc:~zM>?_og,4ޮv97s9ˈ!پ?\T_`ЌxK_O#NHў_ovXF n+q$1oCb:L0Kńz1~՘˔f|X$x$`0(qbih$%vM^/aH0\=:HpD`:BJE)AR/< &T,# T_(05)#Y!SSzrQ~9dn/=^=%F x;T]p s-[m$C _n2[+$/__&i2˼vX-٬8)&pijr=&i6 4fngވ dJb0<S`^T4ؤ@ 6gy`cItFER Ĥ"Ix!DIz% ͱK`7\bC" r]X"#K`C~э$yDDs0jCQH~zw wd]ў'CD ݅$4Hhq8" и_HNH ,$zZ7b`\k8#?V`M_@QS?ܒiUUEȿMl,2?@B9)x?}Ò&"v5F1_?u@g85%UG, {9yY/bX$'! T|NߓǴ\ i;7KsAi6)"YK1h1I@V^(+cZD1< bܰEVoߧZli>_8\-!|՘S:"z-8>[ZX_CaqH#Mn.vazǸ'WFw @"X=ATPM ; S!-uQv͵SCm5`K Z/50? ߘ71H?11ЮO2 p#g 4#]kLm'^a Ӑ˳YuDJˮQy΁ U=<;뛦@͌pǜ 4  D$cKx1}}Yf0@χрhpZh: 1sx('|> gA ;Q ܸ:k'Tq $-PCjՇՇXmVvFh<|3pa_﫷 SY8.i= V2Y×6DH\WC.h:p34b h?. 73uRl@p`8Fmc)ëyJF~c2ig]i?VVJ{p4'k\cUƱn/naez y>[;} -/L5?X`}P *ij|d1FB_;*yaZ5O PyB;]'O<\NJ>'E^ '` -?&+KjJC VDBGBBmdUGtp2`sܷkGp )k{In}0jBH5d% ^nM=QeQv;ѯcK{sv@wמ1Qjs=րOo)_̰4 dJЈYK:yj,ZJzP7;_?`A|C.xNrGHP?WoI,,aOBt\'ߢ(#tn@ d7!="Y!e͆, ^$'&U{hkv8%{-߸aS2MX2 ܲ˱=ng+n%e2^ I;Q 4-@ K:XNV+</o0׊%:^Ex'|ƫ23@T;4dDAj Vs׭H9BqXy@*MV'm{KglڳU7 $JG#_ 6t|$x]K%jfu) K Kb{d~Yސ Ӣ+ݲ'9zbȵf]]*ߚ4Jk<:lZw:?6~祷lZO/Ǵ  ޾x?D1=K+_ <,^qa1EEz VBxxLnkKS]lKU 5nL4[_gd8(K~wKwPKՇ7Ć(ާvb[ .RJ5,g 5ـ6OzVFZSEVLPҙ/^sxu xWKu:QB<#j=_j8{\ Ee&oe.zK=9[X:O#c T}D?626|%1D%іD7xrڋe0Ban['ژg``|dC֏F@[@̤[UJ *sʋ TVE`:s&f`8َL<Զ:+t^(7~55ixچbHq&v,&ac+4Vwy{!lݪ;/*FCb{ah?||z UfdFVȚs]&PC!zdF6!w{h旆1WyK{ژژD!j. :NrAt(9  7#e;CLe?J({Ͷ]QMWbL+;D&)ȧ|idΤ\ W e;k}'[qUwG*1N,K~A7Tyh a=i@t}]W͵ eq j;DAL 7z"hk˗Oڮ(.&^हendstream endobj 51 0 obj 4450 endobj 49 0 obj << /Type /Page /Contents 50 0 R /Resources 48 0 R /MediaBox [0 0 611.998 791.997] /Parent 39 0 R >> endobj 48 0 obj << /Font << /F54 9 0 R /F22 11 0 R /F57 10 0 R /F55 7 0 R /F53 6 0 R /F62 7 0 R >> /ProcSet [ /PDF /Text ] >> endobj 54 0 obj << /Length 55 0 R /Filter /FlateDecode >> stream x][:r6oy؞Z"N d3O~U,O8 MY2y&LMqqF%(IXF;T'Q[\\,ɴ8b~߿?"Ktv֔{󟗛D]|^ogTr{]ya/,V&_}0X_V~!V*.>Ȅ)UW7JX-q],h"a8SV hv~\Tw*VU/fD˄Ïf*R>K%)[U&u팓/f׏30ŦZW\ˢJHr7vM&ez,̏8T^>$ˈRf*޿%T\@Rp, c"KY} !B MDA9 w 1feQUuJ ?NRyL$\O#\³Aᄺ HFX{_JE@0DQSds8bƜi`+)+P޽4EA4ڨ+wPQ"4zPqRޞ` kʚ ?RP1K$>'WH-0R3P7tz=d{jG @bC$4 T ۮk3Wo nAi+xf) ʰ"@ZxC00B9}2„j\1n>a% WWDrC\!%Ȧ!D!Ț# 1_?(zp*_=`-p΀"(t_ID/tE {6r*U9IڒoVz_V/NW;+("SEjYվHkoFZM>l1L<8A0\*BSdd"azwV3$ZLS^:$5T\F̥טK,h.?g.\0?:?{ECW|sί1r|*V7'XYEYT6$#+ٵ;pT2 'x| U< IqSho~"呉T)-\,r,΋\}䢿7ً@C@s00~`sWP V܏09;6nIT'{ 2ԄI%v%$&B %Ҥ' B.k>ćnK$~YozYC}K|ToU/:et@KevXfe//%ĘK-U%go+ T4Yl|JPګAA#hIb/&ebR,GHlc1hy67wAVBCFoY4 @\!€q9iz`x4f:8걘w?DnR06iva棢GNtrCM}ؗQXH0PI#W5VLZ<8W4=9LQcC7Nwo0I`'Nlo9HN9Ac-5 <0;Ȃ# i~?>Y҄Qpń5kE>Pwn.[)Uە'P‹a`DSX͗z. _0y/_p٥*`TAC'8w݄d(̂x3D Y tc`O4ј&(ES}s UiԶ}ԫX rś}(00E8dA%i%^ />`Hspj970" !6 &]tYz͢0kpeZT|id׭CAua }Ƿq݇7<r{mk{O5f55*sq^PE#2_|'"kհ Vj, 6pZN> F>T Zᐻ|Y,orS?%vܙ2dn#|5db5/}1W^vr*5f' ~B(\yrɥKb۬w.}NÏؙ? 4aY`yA3'e(s>y7ő.[k8//-K;x3fĤ=3&DчB04endstream endobj 55 0 obj 5312 endobj 53 0 obj << /Type /Page /Contents 54 0 R /Resources 52 0 R /MediaBox [0 0 611.998 791.997] /Parent 39 0 R >> endobj 52 0 obj << /Font << /F57 10 0 R /F54 9 0 R /F22 11 0 R /F62 7 0 R /F53 6 0 R /F42 8 0 R /F55 7 0 R >> /ProcSet [ /PDF /Text ] >> endobj 58 0 obj << /Length 59 0 R /Filter /FlateDecode >> stream x][۸y?M"oY q!fxmުMe݌%W{.$H%w;r@@.BG.XD\^N|-$ T.\oٜa8{}Wųw(.dؔS*uyWlNpl9K͏&]Y4?'mb~d2n%$Rls]_"0/€)yM/0Ł&@frTA1Ș=搡lv~}ˀҩ}n s|=|~0s릔ΏH Eđ NYvjV˽3(5{"`T1hXRQc@$TąQ. 8i o00osX*V9/]a)J -w= (:NJ7 77=xT6^. i=?CQ 31ɥ_9 `$: 2D?8- BԣhBNq$!mB z 1b~b`#zًP[ۣWAXufc!@IH C@t_H"Vv+[ޚ(Ji|BG08}m҄üzBl0&K4ss 8A<)Ƽ[[0-w78&3m*༽Mu@*iTR7.QvJmQ4&G6Οgx$; `c^b',Csn"H1#|ox&*]ޛEJ7IʛԾk!MOnJx!wʯ r)dkז}frg'ĊL'`>:85?R@e$E@D0#j$CG""5Dj 8ӁHNR>ߦECė>SPHz'*qH ` "^}\΋,;1\gnuΧuPO nPE&&`VYah+tR _S8r~&> qNW?[2DԽA2_uy');yd``Bjѧh}O׿kLrK͔0Kq%O;$2;YϘU#քQ1]| 5NiSJ 颴9!!'}Hode+rgx|jl~$iܕ; lZ$۶LVF8Q<%6Gs]WML/ ΍VoLtx}n~ffmVc>_yOKp g~CDmH̟d\gϰi2MkdZ nwYycs7dkrv,lpt4H)IYl}k?e+r#q+̓c5l2?CؽMX2ٔ$ˊ+TZ-7a^k4㻴ɗq8+nʾe}h\|i[hweg @opSHRpiTz) pжo:>jTo/Yhit[gi% ryޭMrVCL8PsGWik8 TV"3$2AObĬe9$Sa5!~LEG S S;шs8hi,{o@Z^r"ǁ~@/+ʸ7r՗S]]Cl(kp|ۨ"8`M]G޶_w$v9U@gޫ}&5':5#s1ygaoLfozky}Jatbz$I2IAHFft\-c0AR|Q_7SQLjhG,FgȝZZVEd>nh#?$DZ1hCFPdj̹:fޏ9DO=DɑC|C=c$3ᇨ&Eq69$WF6k6y: 9EZAH/1iYB,=`"#=)< lcGypcPC 5P#jЉB 1&ڜlvD_FowercD(K8; KWđH EN>h{'|01뀑xIe qƕ=]dSa4J*zrRWm:2>vhLǹjQwS9N$ۤ6yI=;Г"'imj60FE4xmt@$H {^ynU|*"NE$P9W^lR<^z¤'luљ6\5NMZn| F[fd-Yg;a]@/mLt6'w7vc̏6L¬r *m1]4C>b槿#MSԨY>q a}64-9հN}F~n 9ϫp/VQDE)^ H|#/`Մ g62AXu4`/@lmPp&eZ_æ*"[y8ЪC69B`q S?LxY.]pP[K*6@D+gu%UF~Wjf~~oрdkS_cdh_ݚ@ևMPVW07b_ݷi˅n4&hKL~d뒹=Z2St=7:^v{e#܀&[}^&<6~7tֹ-Z!h "akQ/ۃp6檯1u0G 9UdFG"<\ Ϩ{& k{dk:_vlh7羰$Yѳo1MZ@)md`C3W_͏o{T*q*/=/M5ah #&['=/onC|s'sr*;B%^g_N;&04g䍉5,nn*x<ې.7I-sߛʈjI*ڣJK*IJިi tajpWa6-v{-|ùUӷ[ђ 7?MiП` dLb8U;z[ba Bq9 `B" - igAITj:b'Zt1\p&g['L5KlUUҊ̟wjK9Ҍ$~a {J2E{F7y]W!K:U^w[б2L mvljQ&b+74Xjlޘ9kLhsTct l`U#bBo0q3>>asB׃|]g6=Xlkr`ȏTI7[ݠ6% 9ʔ[햪KU٥ Y6D̘Kka)ZS̀1%4Mi/:v^yg׮)5nN0mR\UoLQ${ /ܬ Ѿ@m bW p I=kT }?~hMe |e8Z`G:"sih9>+˪OmOs\nbTcټwIELC?2fgw[tUٍge*N.?1}fcoP6g^NX9P2sH(6hz:Y-VsD?" }'"r5,8͠wKU1"o^@9 \G-Tú2ElBoa(WrەO4j:Hi$/jp7_}?3|ۆ#|x+}OT+U2k%DMX>ڗ)k<<6%}XGVMIs͍ if=58DYu:P:T=#S G\OEH{I&:5_+>OOkbO[N$c'q)''<=f,?$}Zb?0tg'aF $tĆXP/Rх $ֹ2R d^Ahpp%eڑɝV1tw kn捐@򈡾SKɇ]ww"f:-Ey~G#bAL S}ibG q'CçyGxyS|-A rD} {Yq^G)T*֎4://zghD|o}Dj0&#q<E'"p,X$#'#8vFY 2ަy]vΒHڱ I$NGN!3o:ZQea; 'grB>,OVj>0viFG14`Z(S o}Ȩ«So$a< uendstream endobj 59 0 obj 6301 endobj 57 0 obj << /Type /Page /Contents 58 0 R /Resources 56 0 R /MediaBox [0 0 611.998 791.997] /Parent 39 0 R >> endobj 56 0 obj << /Font << /F52 7 0 R /F53 6 0 R /F54 9 0 R /F22 11 0 R /F57 10 0 R /F42 8 0 R /F70 7 0 R /F23 12 0 R /F55 7 0 R >> /ProcSet [ /PDF /Text ] >> endobj 62 0 obj << /Length 63 0 R /Filter /FlateDecode >> stream xKsۺg2Bd%E;.k`dQ#Qo}E EY‘ pHI^V|D>^<}EPq@*bw- D AV_~ N(!__!ʲxX~WKP#~ 0W =rWH]Rq@~Ӏ\.~nZaLp@(Xb-<9\HD@ t.ڇ?! vf T<е% hЀ JA Z+R/$tD.3[ Px(I  Wa4oT,qd߉\H37c#;pr\T7Ĥx<)^`*P7a򆨄H· UK=g8(,lDf|Vǽ1( b(Cp }I{SQo[d?v{6r0x8&cC}&|aDN!?HȆ r OJ5B`)BC~! >43 A$ ؇ :y.07w9 0% th2=) p[S3IP6/@3گo.W)UpD ^H9QhGCAfZ">Ϊ1 0NƔ` d5t k0X#]ᾬ̚WeMjn(50S1uf= O3H56}KL$)"I`ap4}{j 򜯀8@h3Ӭ@[b&mpU@/o|fR*'E r$rm#&%%=+sdAWMf%JEU 8HPq|pEZU,Hf\VY QՍB$,D5:ouh@].h R jgYixoFVkbLf[zk01( o2}~_{鱿6b_Fln7\x0co5&j5Q6VhK'4x.Yp 0sbrH(pӃR2T 81$ uh0V?Jbnv"@A^D^^!5vwb=mG~vHYeq6>ūCyh%">_?`uI'I˧@EmnCCgl9Y6M#y[pK H!R'8"̐`ZHIu}(2,cC3)Měx/~Xlm6yt'Wpn<~)ZW^ )oJArrx(6ʱW>t (cHWzEr?F)0ZJ 8BHUj*&' GF`jAd$`5\,̒q@8SNԜ:D7k` @e. d)'F펰f52%}Aawlm!Jn&OǤ6+3Gu|&d qo^T!@ xn^lR;\RC= ?.  }ퟏ89d@Mx*3)σɧ >4De!(HryM *AEԞط_otU+/<oDyǬ&ɋ'.K%rf4Hmc{+ĩq3F0N 6'U b#s@C2I$qwUp,J*fh.W9*S8o }o/IٯQ9æ.-\%$KbqLF.('l/(h2WaEF~ q*,¡_e>`פ#eAr 6t|';w$v3w]%z7RxJ?~sѝwz1iøaebqloQaQr:JGoczzbN.Uk#0`PC>#{ty_5R5龠K͝UˆW6w!瑪BTY :I{Q X27[Eg#чX)Gk)ahUcJDC=*IڂF[Ű*V2_Y+@Jq֚V:|WJ^M)`bcU L%R3^5ώT6@Ltz NX ˾Qt:Rnlq_cˑNVi?{-vysK-i%r՛O_vrMq:TD2TIY{MkIpvވMu z/^džk4z\rxB3N8h`3(6δ:iəх }4d^3Z8sj#|SB-KM<$>>bnݦ'!4fi9J".(rgY;{zcxL _C 1&w|=k4W)v}Ԯz4LZ)iBld3z)0Vs"i0{~XL[>W2p7|o!$:mR_!c{-v !.(alϪ$9hO&hu/a)YܿF뽅ﾓ즊(^=bc.J2oG<3z촃)u`:#eZtd``jc)BIW,ŝ"jYl1&ٹo2mYP^f+srS8]ߎ81\@MNerK~{A=рxK(2^wcendstream endobj 63 0 obj 3901 endobj 61 0 obj << /Type /Page /Contents 62 0 R /Resources 60 0 R /MediaBox [0 0 611.998 791.997] /Parent 64 0 R >> endobj 60 0 obj << /Font << /F54 9 0 R /F22 11 0 R /F57 10 0 R /F53 6 0 R >> /ProcSet [ /PDF /Text ] >> endobj 67 0 obj << /Length 68 0 R /Filter /FlateDecode >> stream x][۸o>M"I -Zt(mfFGv,y{Hj @6)Εh?4!,bTN'|2O߽ #yy _OQզx=,xc|\%)1 .o+tQ?}~?֯H]ͪ߿`?yܕfW^w˼XWwS-77zdz0դ`0m:/?uZ$/V"Y"*'& &Jʉ U.Tʥe.ucUȓ\l=}\В\ٶT7K/W}:Or3r8$F#$u26GWX#,mD%c;0Ր %dJޮ`6GSau?`ZޙF$멾A;A3BQ,Qy=%U{yf+7FGmZt/"JwY6O>?]!;(zK@8Z5@nGDD "E5ڻcD[T$< K4,`)+j1GJF.%R Lzid=q5ջ'viv{ykS ԃfS@zlS]u=144(aJ2kпb?c1Aոqw4tǶqG*ŝfpTwY #"#ˆ BьP"5 Hffñ>&zJ!*: P<$hsE'o;L}{*6La(ЦQH  *dZ6/bQ;QV,(da\)l\Ulp(@Z8VYo_>zj(&G4B/Ԕh4%" ^дءJXٻY;~fw՚Ьo5kW. m|]lO*' ؞ȋ`+jpFq0㓀1>d$i}11<%ͺeK@c=b> 83r*ЃU(X"VbQT` #^%kp 5{?d%yӀ <@?Сo oF:>{:.߄Y^S=i/XC;|f1AGcm ľ80[qi( r֐4` #|*JvxVJ+rRXmBh+eeQv_hލyB' J䶁jZڵxx!we) 3 >fV/ ^fN/?3c1N^=p \m*^(MPڏG{ч-~O7Iq^'ށZ3]Vk_Btg{Bߺ5:+,R,]>.k#"۹@!O 8/Y U%PcEHH 6Y.JPH (+l.̒͵#Єk ٿ0Q=&sV;NȱN\NTĈ E5*8vX8!Lz;זA8$e~ЉMu,_W4S%7=uyX=a=<#kڇ^g{nݪ2zS!uw@詂5DEKAuzmwvaq> 2Ð7lQ_ [ Z|{>YԻ3g̮9*s0^n0ru?=/> 4>}3vu\[>Ǥ[M$B5. gx$a{aXa 9 {cPp' }GTr#u:8lGf^TF:'?lDc5-m:2:AB^F@Zknjlv0`GѪlZgJ2E$Ch\4vH^lbϪ)TI ?/wvI)ve)U///>S@k z4 B:yd)P?M2T9RjռyF׳y[WED\p-q% #B;S%?-Y c.fQtO{]y֮](*%l4%VJ2WW?oAή 7 ]&=Ya;_;e@zgm},k3)3 j4;h">բա1֬nWyh*u+ b >@>sQwiR /잦|m~ӴD7FRo]~sn*%y>;Oc*_AxD{ 3N&h5f endstream endobj 68 0 obj 4608 endobj 66 0 obj << /Type /Page /Contents 67 0 R /Resources 65 0 R /MediaBox [0 0 611.998 791.997] /Parent 64 0 R >> endobj 65 0 obj << /Font << /F52 7 0 R /F53 6 0 R /F55 7 0 R /F54 9 0 R /F22 11 0 R /F57 10 0 R /F62 7 0 R /F42 8 0 R >> /ProcSet [ /PDF /Text ] >> endobj 71 0 obj << /Length 72 0 R /Filter /FlateDecode >> stream x][oHv7, iƪ ^$3Iv1%M&{Il-sN]dڲdklAȮ*֍u::<^HA e" VErqZ+u2 6\G. ӀIvڽ$ 1ɋ]\UrI9[j.erxkWngf%dϧ-K2M% բ&.p='dA:C,}^цx+oM"~*cEzd3z8`+QRjXus<].I}Y%;7:v H$ڤ%}WC]RۄNq#1ijp<&9&^%9{SMfl{ ++p5BYA%eA$J zbUt  ȂF^ޤ$wIHd$9(A8J6{~߽+mYzz;718$ EFX##q"# Sh8G=~x^gJT 44Io=bGp/&<]~8 d<ã+Bé/<6!W56!2uաܢyoNr h;:Il"|p(DB9i)u?9T1 chAWt,2 x *lj*=( PA z* T@g ,XeUڢ+osjP;"P[m~h8Т`Qh trq6 Ao= 8oPNGصv2q/pb-"'9M]?ŢAHh"4"ڊ;Q}ĄaM IH(?00a_VO)5 ůLriҠKCYkݥ&3ώ]\VOamIc a1t>jH )KH@VS&Ua+4cH!^SH&GPչa-~BqčDPC8 BAD<GCL|R&QD}Fjy>7I>BEJrMA]g T?@mFh3dO{3ё:OO/:Nk64c)z(=mK4Jt49$:2!YѓxjL6aʞ%S&kUSbB=/yLpl =Id iYSn= >(n'Qr%קqs$Z<(?=2UqH]zc›<ۢO,{17f\|xjeᖂ%V5ҙl\Y)WwtgF+\Z@Q9!' r@39 Vo{hq0\ES ..RsEV]fəj6;&e!wxηy"Z} eejQol֍|`!i5 >ʨۊڠ "4ߨ"aQ=9,+1bYO rdZ$$\[P-9W>{7 wRJo]OMvba;QgQgU:׫̝Iѫw@s@<aa_pX6iBktzhW.\=zQ K |@Qd9z/Db:'mIO<|i://_3Lr_gl|>QaF'f||㋜cſ8(C&N@WӰ-zE  _D)S+u?;oT%R ǂK `{{{9 y񋻳mҤڤc?@LCK˞|uaM. ><ǃGϚ4 }c!}^r\ư4y4i[Vyw<ݦ< LCL) |.iZ  zbE  /EtkBz$?&3U_mZpxDC)ӻt}2iR1]ddtc$7Za9afV|"{"X$ICO‹ .ڶ*.=rx*@7`x)!Q4o0pzoLt"Ň>, QgɮVt#tF4 ]kF~=x?m|lqU B:'`qFUc^o<[ՀF6]%M~غ{I۵ՌI3Lx9$lxDI??+˝p6Xex(Ҧxq% >ƨ x㬘Nyb|aubSpVݾ?c Vw σC&MT~75g&^Ms$["ƕAUwfA FtZhX$Tpstvm!.JbK:(gYMHh$x9)ͦކ"\yhqNzpk9c#믓ֆd#vPQ( >|3#=Io`P=|xHýFfƄчFw&i5A dkr{av-TdakO<6>Zu S-fӚUxȋwD1SO uLo_zؘTy[=731h qsu@$ Y!9E06~8~Rdnel>):z0o{$|XTh_1'z?զH`dPicڍKLMK>9–S:mHsonxW/iiw|-A/]NK| &B.YX8A*5ܛ^Cpj|fέZw}^,CUd8 ~"&$K͑x?썳$bvLj+t?:uoM2SSi`B{-@k:Q.2mѽ T:^㞎?B/aš))nE(hk_+dˆPRCȵ=ŀ@;gT[qҜmŕ4 #}Mzs_7qm>YAoP0*rbI'XJ((MuhÜ[ouX5rtp{:yuڤ # K7|}p\A3P*l ?IDw{~?3_,8 @|z8>Lqme@9^h"cI> Ox{ *OXvp3XXr.ϡ>`<9&59 "}ωg1nʱpd ɇduF jAqusKWm.m9( @R'!l> endobj 69 0 obj << /Font << /F57 10 0 R /F22 11 0 R /F54 9 0 R /F23 12 0 R /F52 7 0 R /F53 6 0 R /F55 7 0 R /F72 73 0 R >> /ProcSet [ /PDF /Text ] >> endobj 76 0 obj << /Length 77 0 R /Filter /FlateDecode >> stream x]sFrG/:a$r>ZvȖcɹ.I zy`DZV]`f煞_?D":x0Oh.҄`]|l'y"SfA ' 2h&Jуz@$9zW?|OJT3DE`lc? ϳ415BSTG9Kpz+Cs**0E"$cأM%fU\^o&;\.H{TK*wDB2 'X*hJ6 '!y袝z+<Yc=(0>5G#`ub!!@)Opyb4IeCDH4(ADGzQjQ7_̨H/z^n6X۳<3?-> !1DPIA%9@rTMA*>? "BvoG礹("UxE @R,aJPuG2]> "0@q , @Q ݦ0ob]x[TI gRϫUaQ)&kןH[N:ӊ:)} ԙ:@@g EBPoP$L ܁q{dZv!@#Pʡ:2AS>JS@'?' QT]uPn.o,P"Cna GŇHS=PSF!,ΰrfagةnZ[4n yk go=ӍC.2pqx:twccm7<"fTб]11yۂǥͲ,/F$ؠE:=QHryɲJ_x3U\{;_r{G]QPCo[@[}II[^-6AQTR2Qy*"̵Յؿ\󟟆*WU#\UElWe97UM)P#3̔5S$A8,fZǪ4> S}y `5hΪ>UՈEMMtVbQ8-jΪq9gL;R`=agUB ުϿom0g{*k=u^E&#.>)6up3 ˩ԨlVnV=F ӸBtpC2J}+`}X{:Y5ҏ:#=Uٛb]K'mŞZږ}ꓹvVE0b+J0 @ z^w:ockS_ܙşgg#vk?W?{82W͆`*>: 13ᓲsECy<0wEͦ:]6Tx]V >b81R_ڲ,6k*æy^(J2-wa3Q7&v]&>T(&E!u],渞{H U)@F8 6D@,G1 DC!G"r;drwx`RzҔ{ao"j q1*ts%$80P<[̑$9q!ͣ-wa+^,9:w_\kb-_c{mM6LDr#,HC<<B(hH W &-pwY5?3_u՚W1..T3K3}[cinCQXǧ3D^, 0l䤡@h."*P}_'0TfV|յ?jjRd>(G7UJ}PjwۀD@G8a{CpFa Fc_*dzY i,C6>c=sh6}D 3=3,4fLz?1QүGvτ~?! m< N8g)I>YH5%˃sI܅bVn x0.4.?Y]>|t@2ėbi}sE݈``tw,\~<= t. h]I@ [$PBWE*I@$.!ku>Uq#5\t=i@f0t#<0aF@]׺m,LT48QI~5Vn#klw-)yĈG}X|SyoZ:Vw!8&s>v!oj&iPE羫 EM̸cI1wsfVßhI+/:7"|?/gŪڜ%azwzn{[l??\GCQrvz[FfA|3{K|noSnQ[J?6wd>4 {2͕9Z7#h[Cȩ9|{~^\=.0r@zۛҽ)DJY}7c,ZBp4L=f+=2Q)\)Ԕ_^l }ksٖnm$-GFtV1\?
  • f p,6WmXSVME ' PYXUvc!ƶcXK*]@rnla$)Ԇ"5;{QxI,蔉|R:d'%{ OQSB>)Û^T<JڕyFnJyU /dW(4yd+Kj ?ۘH@0+hepЀ(΋8e!a􆩊÷)|6Jt֣fii ʎ^;4ٍGg& D׈B鲭\VڕL)6Vei"Rba~idҝ(lamLY2Ve]E.贔 q-{kFMPh湎5nK$d7c.v}cF݁6ulNq$ا֌㌻?ק #IUc賲tPce{*$8ae3!Egu&|$ /֐L`q5RFx*@v\/d5.lΙM!ِ`@Mg3+tPo9(rʍ6V\VICSdtj^eg`>wb=%TPPO6MtRgLWYdUUmpVڑu\-3AK1C@ LNV6V=g(ߚe zrs&y8ޤe/gף"6[/)1vŀE@H~KzЌl땎dĽUc@ nypQV-ꦾ=g9@.fhufu:PtT )YrC"endstream endobj 77 0 obj 6978 endobj 75 0 obj << /Type /Page /Contents 76 0 R /Resources 74 0 R /MediaBox [0 0 611.998 791.997] /Parent 64 0 R >> endobj 74 0 obj << /Font << /F54 9 0 R /F22 11 0 R /F57 10 0 R /F72 73 0 R /F52 7 0 R /F53 6 0 R /F42 8 0 R /F66 6 0 R /F23 12 0 R /F63 9 0 R /F59 10 0 R >> /ProcSet [ /PDF /Text ] >> endobj 80 0 obj << /Length 81 0 R /Filter /FlateDecode >> stream x]63 *&A@&\flgbUU,ewufb^$ʢ(WߐAڶHQ9߹YVz!h/Ϩ..iu.?&̵l;?ruFg݇}W̴T/M\|zCW˻f}T'wpy)2]uӔj/rB_,U&?n,i֤M_ePK dIJyV0i[L形,6'gGH ̒gJi_?uqKS"0% 'zz,"6cAzOX}R )Iᘺ0x}8GqʇT!Jdxe, R 0ʒfZ0w>Ԕ D( I n]=x%en! Ce.4rD`9NyzU%A=[OT 2n~?~'\ͺBıBo˻O Rh,\r>~E70ȔD FH ,%^(01Ȇ@f08LF:3wT3=r=37Hx hyqx-!, q] А4Hj@աq.3]Ȥ M"Xy\BW$JC`BM|g|7M3cuOxM{1@.4`v,^ XD1. kj,AIt/6#6j{T fYcJfȃ 81' '3"fD^̈HHv@=J{CpwlvWW$sƞ;o 0;C/2RxUvXk:C{xCs1n7 ;qmīLt/?+&&?=ܹ]+]o]xyLa}`$Isp\kÑ"7H,aѐPD.x.p .!G8UV3J( bE Z`5rsa ~r 6댎 WGb-`=B繕vIʋN #" ^z#r;l% ~2hg&ğ=&*"g017,t{LD,L a!o7dq;Sj¤ :"BjjsgBY`$@3gP3fxq&pB;ȸҿh@!G]GT޵ E5fG>[s< bDbP AmZwM5PaGB7Ţػ#`'F(ပvVǽB'˜=eGEU՞` $EA ĝs MSƔzÌ*J4XE:cuH>>?#d:^ K#aa}!O!N'64"ӥm,z by4T%TmDN=Vttj],)TBmBOrN dKU 2]W{ ֹ`juzW lO+_ժ1SBxm_GЯOFrr>ћ{nն?|O>|@EN?(~vƦ}&vW~|df;sw OQS{^#j38&l٫&6]dPl2@ . ysZ Pً@/LdO) mu$|Yme1G~widQpM>yU-~rW>x龄j?@HܬƋ`#4┘D+^UGi9IX冡gg ,#}]7{FnXK6?!X6>iH`} J{k[J^q[m6X )yWL9':!KBAS[|ۦ ?ӑy#Z7hl#򳩷WNѥ =/YkmcWm@9(L%РRX 7{/Mk)к1`-˫{cD[H1>ml]lrBRU|Mm[taݥ|z|4r\d tUov1!bJP8q24|@rӚhuZeovTOwR}֎pS 7̲Ì./@AF{{-Ԑ_Q|qWX}1 pJ/WO 0XK港"31h^}l?7302=Q[z9|CU>镂ťUL &.C\~bW9Y> ,TBL zK ?m`"m0߃;oD,~H`K`811u,M0 4& k_BsX}""~s E(F>ڑ/>.c"@{Nbd(C(N{qvQ( :ʰ6L{-8Rw釀,{ˡǔ `2>q܍.rI>EF"}A+ɠ7N\=4y(A]Zh[aZ|ah.ZdNc[iXDN. |Y0i,hXƻIDYd1gSخofM]1t0|i^V})WaĂH2Yp:`&F JPt;eKrfe5C8[/}Zjzիn}IH͔m~}%FoB0́6 : IsoEzyjfS+xVs[CG0V]uY֗_]]ו"cDA\&`KJ]_=urFR0j c_9?>fRJnx1L,"Rg7>dz 6IYqmt 4#&UPbØ\Լ뒄.Aq UAzqWp;{X?UoW㺫 =OYC0t9$d[_stN3wOCQu& Ðw (Wjwh폶zspk7Ǚ.h ?W]ipXz[zJf:/<\7MsTϺaU7^_F݉Gaɮ Sxv{DHzfrR=zrrn4,jhXmǴY0]͓Bx?gb8}\$34KDBqAo?)CU #-"JIDR(gi0yR(ӕB̙v90³^Շ/Z^hoFaf2L' hfyzXIƃ{f&e_AG[Lɴ"-Bmo5;j<-SR0-ք,lF[$ec5ԨΪ>e5pbXưx)lMRy%O UJM ;硚yZ5Ta5٣Ga[իκ]8Yw ZYsxR0!Ãc'/+OJ9w9!ČKq]/Cz1qа^gNɱUjN;Y4"fFsX7j7j|O-BL=T /U%iO#=Qb <\Lx8Oͱf,ѵL Qe(;,'{GjV)+\ L 3yGnRSxnsf:}aA윓̪QGaGKw icSXYcޏs#n)7z07 .!;zC $SsᩒڂӍ c8~KND>O~R<8唝L*gN%Z>CCg|c3 .w; O:N1~yl+wlgyĢw ?)eXp2gĸ>̕NV=)9hQ!vGUu¥%崟9]֮d+o,lIrYt*w^:h'WǛj?'#Y᪱ZCwH7^8OO&x=_{k¾5 hka$YW$~Y(iwCC{ /.5枠z.ÈXD)(Sמ]aFXDaJi8r?v:_ (=>wI5=&|X0x9IyţS3z&5Mo"7k3'gLr&yJMX7qxNk/rY}dOϥȤp L^'S*x (@A|xw?~endstream endobj 81 0 obj 6367 endobj 79 0 obj << /Type /Page /Contents 80 0 R /Resources 78 0 R /MediaBox [0 0 611.998 791.997] /Parent 64 0 R >> endobj 78 0 obj << /Font << /F54 9 0 R /F22 11 0 R /F57 10 0 R /F52 7 0 R /F53 6 0 R /F42 8 0 R /F23 12 0 R /F55 7 0 R >> /ProcSet [ /PDF /Text ] >> endobj 84 0 obj << /Length 85 0 R /Filter /FlateDecode >> stream x[[Fo LU:cɮyjiTxv/f~~NEJlIl*ԩss0?J"I?aA|{A^5Oi狌;+WaYt j?}e^\ޭk>qe;]mw\(խ*'{~ OFWnә Ѐ(Mw[ɕcx; a{K1€$ì^:F]tGz2xf l ٕ z~('Ќ񩰻8lt;N7W8S2OxOU/l7i|Sc/I"3#xh6$J^(>eBNPgߋt8B)$+{r [^̴k?r8GZIonIHO`x<](bV‡.P4;PNt*(] OgY6/|Q*l9mJP`uOh O(z騄>\.% PC!Z2n?JhE-ny* ˢM6) U۶UmBvxFӪQjGg5;L%uΪvq!zڛZ9g~5>J0wݾLӟMnu;<9ݖgtS_nyWE|~]N?ٵN*5UTbq"h襧C]STֹ ˼,Պ}슺z\ni[ S}ThМ+?ʋקwU2Egt|2˟Gg4{HKK2ZY-/^7vjr4siw:\*81Sޕih-n0>bH& 9g5 $h $ɧ>~G0:SCtyS'ߒ_,}dfwL9)DczjW>fs+ iʂAE}xRO@KX48@ DM4BK!Ǟ8HEDsr#!b<$ Ts)MdJtI$I?L)"ܡ)=qD A[B{d8LO!S&l58K!L0\K~]K|M"$'1)1)>IώI,A@~kKcjV&V?+qC(] tb[,}Wub ~ &[beћõR{Wuͅ;Z*w,Ka-~!D_w "Y꼤>U!h[~lݝ&dn9jTN9Z"0M5Ӫǁsr[rMQ-˞EZt?+DR:?$\/n\r#*㺮:7I \&gqϿHpt1 z0ԻydFj͋ls"NnCy]]O쬋[UHmD/k5P; O Q2/5]=Qy.03r3eo,):Oz*k$ EnN6((&sHa5x]r- B.Uܖ3Mdi'QfM+:^6ſ$-xъN ;$ >X0>x /iEKۚ`Y Gടb^gQ^]$- 9,-^m_8 ˷Q5ujt04EDh|f 1.9# N9c7,?vAzߖ&m p0ڂBލEZP!EYb,0@L#k8G?&g2>G07Jf@Pzm]˜Qf5WITt0^Zн|V{\vondzMU͂d{4o|cYvzSX2Vu\wac3%eQC-vn}:9:JU䣴*O!u'tRoC ܨ{wQTd')9w7#ThREUhҎ$ꅻzIL91ž'mF7j}7 d o`q!ͤ ~/N|ތ,Bϐ3[&? ]ДFC;K }<VLt6Fif[EGEKS.ת߼6g >etVMOjn1]epPQΆʙQv%B0w"*R1uVdدs,&YK}ipCn5r9hs[.Zou>_:g NI2MwLsī`. 0Mmu=;~q6/$Y7pFVr^؜; Vz[& wt4DLjMM=:{ſkU&LD6Uwـxq_t|=cC$z1!Dfy< aάK욶1ķ`|2Yr:A f!NCCe#W.l[H5;*oc׍?J+?⩙oE~蹝*{i(::NMmTAVqq\scya\$`Gqzo:Y!BSz+2v3b8 g[8ܚ}uy؇vN#]]T(B- A<!cWmSnzQGhǹ+;BëQQ[ FCg `|IELRsE4vܞpȡG7VtT0D0JXg* L2O~[Žvu6Nya(ue> !Alft27Q.xUj~ }~3G#5~ Ԭz6jcvF!U>b[UԝBx ;( $rUML\Tg4ՑyЕ^'A׏Y*MPFoQ~b( _>nc>F. |nL+I*bEmKJH tCGN- [^ D8 ̃c{J('G`>PNb\g.-5MHl KBN/?_^ݬޑ/J  C U?{dJ }m(i:j?/Nm&N-ڢN< FplYzc5;մOV>5[z3gk(m^%d*.iXݘ2:Fs:yQӬ.o͚Y1矪.SPZ9!BEcr.yTgiKY>=&^F^pA:90Jź23;6؀|;8vg:%2.0q$,=ߩO5K(]XuSI]6ˆU~,}s ^9_,C*}ȔC Aj2 ,mmttYhω~WX%Z4Q+|ߵqG e?Mr*? q=UE\u9H=rEDydI_[F/UKtis˗*#`{(%,+'ZnfAw߿}vrTJ(!4ZX Bh \ˢĒ tRzIrtz.Lω/- G~#V:;.ZCEW6').J WZC =Py[ qBUrZ}TSQ+7m700/}Wq4620΢~<]Fc MPW{)~"<D^~߃o)W7-30ԸN*NK,uނ2ofmP;+ /0֏=^!L9nIxsPt,MVCrs@޹0 BU){r53˵ìH/I^6'\?{˛+jأ:>W -BX|{fp:ٿFB8U3kn% ǘi§g 7*@Ͽs+\etpʛۨa Lti9_LUZzk%6"F'^ӗ]fWB-lq~5W|kۗeqO8ϱF򼹩UήsM6Ġ4=͈` },kuVЏnUsjk"~V ʦ0M> endobj 82 0 obj << /Font << /F57 10 0 R /F54 9 0 R /F22 11 0 R /F55 7 0 R /F53 6 0 R /F62 7 0 R /F42 8 0 R /F66 6 0 R /F67 6 0 R /F68 6 0 R /F52 7 0 R /F15 86 0 R /F41 87 0 R >> /ProcSet [ /PDF /Text ] >> endobj 90 0 obj << /Length 91 0 R /Filter /FlateDecode >> stream xڽkoG 5 1\i8 dX~RiPk! 9Dd>e XK(]z4?EE?,sB"=T3^ɬcR R'4eC4bzZK8>q4ki2yִeeVRSp$3E Ab6",딐ؑ÷) ! rޕ3ԄӋtF =dm$+2[N6e.t5/ V'F{T,d}m{~B euӴlFA4 RP&҅ 㳄F ]6Kz_&NyDcN49xp,C&q'4ϠLy]g9ARǞbc<ޡNR'[}9hkI;!tY ^x2 œo1oXDV|qYگ|#cZ7 h(*<7B(6h*GFٹ>4t;H58)- ) =^f̡zb汸%8B1qˋ8Ǡ $P-'&TdY)nlkOܽ^|nz^lch^j"1V$P kSAxz2<72NX*^c^$U.J8S L4(2] *uiQUn\;T5o&5YlP7m(d* C<^ (+D ʳD>3 FᨪkwrpSHfB穱یQ^={~_P]ppw &#E$Џ>BEC(oV\(?I!&%0b=o=C;G[cCtt|>SM?*J~xGu.["i E T-7hMRgUfC57r:m8wzUyc7g =_J%w|l[hf+ L:$Ỏە`Q{'@BJ>>j|VI}"yyֆ %-X9fͥr48M4~Otr 0+BFh=:I ,0@g/ ːRm<2Fŕ駢ЬƬT*4Ѿe&/˳0ʸ.ԵmUtqeUr*= bz\ܪz.B26`m(g 楓fCQjM`Q=B}s9øHimkENh!PEX` :׌/wmaBBT͂nдXW BYw8FХ>I-gߏ8έnfÜ)7Ħu|NB&sZ޿\-Gd&,OD&XaVI^H~5٦7b=~?2 K_$mb~q-yS+Dp"0mǦ:K}Z乸QL#t m?NpKm2Wޞ|QYZ(GB}{71wf*]D Ʀ(3=ZgYӳj^LQ'r'ǿp<ի?Jn2zz_\Ūy^nً1~dz񥈫'V OAQUz &-5yBHۥ!z#38 :ŏ @4lrd*$G,w .,s0]`K{5vq,= őu4j<3/ !}_C俷6ie)pòS<_5UFs40aD|p49D`}0ȅ!{z3^y] WYBan&بAWKtX6d;Ϗd&Ǫź]Eutٷ~C  ajbtɞIPHzئۯx6S\@U(&d'0yc o"[IW/OQmG] ZQ?>BY2S_MTK7/s3 hXJ -bIXy❊fV4lw5lԲ-˝JM po9o pO&&qO_  p_*ӕw̟)c/s*_>Mݤ_zP=Fuo{˹}]yץcUݳtfUcz{>%[I,ʱhgr~DvWeS!,aw^7wQۨ%Lfw]UK?5i v[dX,<Nw>d/xV@qKS2h骡EHlmendstream endobj 91 0 obj 3415 endobj 89 0 obj << /Type /Page /Contents 90 0 R /Resources 88 0 R /MediaBox [0 0 611.998 791.997] /Parent 93 0 R >> endobj 88 0 obj << /Font << /F53 6 0 R /F15 86 0 R /F41 87 0 R /F54 9 0 R /F42 8 0 R /F52 7 0 R /F59 10 0 R /F16 92 0 R >> /ProcSet [ /PDF /Text ] >> endobj 92 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 94 0 R /BaseFont 100 0 R /FontDescriptor 101 0 R >> endobj 94 0 obj [ 754 1000 935 831 805 896 870 935 870 935 870 736 704 704 1055 1055 352 384 611 611 611 611 611 896 546 611 870 935 611 1078 1207 935 352 352 611 1000 611 1000 935 352 481 481 611 935 352 417 352 611 611 611 611 611 611 611 611 611 611 611 352 352 352 935 579 579 935 896 851 870 916 818 786 942 896 443 624 929 754 1091 896 935 818 935 883 676 870 896 896 1220 896 896 741 352 611 352 611 352 352 611 676 546 676 546 384 611 676 352 384 643 352 1000 676 611 676 643 481 488 481 676 643 870 643 643 546 611 1222 611 611 611 ] endobj 95 0 obj << /Length 96 0 R /Length1 97 0 R /Length2 98 0 R /Length3 99 0 R >> stream %!PS-AdobeFont-1.1: CMR6 1.0 %%CreationDate: 1991 Aug 20 16:39:02 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMR6) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle 0 def /isFixedPitch false def end readonly def /FontName /DCAAAA+CMR6 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 53 /five put readonly def /FontBBox{-20 -250 1193 750}readonly def /UniqueID 5000789 def currentdict end currentfile eexec oc;j~EЪ*BgNӽ ؑlKq*޲Xws|QFqv`zXMyp"5O˩YŝP(DT![v67XFlU&3!Rq4wσ~j+ou\@[6]nhmlhaH+4/?3&n=a6E#|~.ԅˡ}_B$~\|"4Pxҍ>P% ~ߏ4q.C3s蛼q翈by?Z72z6LpHC1D"28s B ~ OPQ O\O}l4x ^;CTQ됧[I/=G6n0X9q(Ck_3ilHĦմh]&5sRӆG²mr1عϩ!QtJU~ XWQHYf|kS |j3zX9+^@}/FYQfEdxUY>b*",SS2]wAqN-r'< $%Gᓴ WcȄϼ{%?棘5s5=@' +9 bzY%>=相0'A.*{u)'d SP遭"Hݨ(p 4't#QSJ:qn$k> endobj 87 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 102 0 R /BaseFont 108 0 R /FontDescriptor 109 0 R >> endobj 102 0 obj [ 628 857 782 714 761 850 799 600 685 631 792 659 579 531 456 416 451 513 481 364 592 600 619 507 451 588 529 588 452 556 612 641 671 639 477 610 853 529 374 671 1028 1028 1028 1028 286 286 514 514 514 514 514 514 514 514 514 514 514 514 286 286 799 514 799 514 544 771 778 734 848 756 656 805 850 449 566 870 699 993 822 782 656 811 778 628 600 699 599 971 849 597 699 400 400 400 1028 1028 424 544 440 445 533 478 499 490 592 352 420 535 307 906 620 498 516 459 464 479 371 591 499 737 583 506 478 335 392 653 514 286 ] endobj 103 0 obj << /Length 104 0 R /Length1 105 0 R /Length2 106 0 R /Length3 107 0 R >> stream %!PS-AdobeFont-1.1: CMMI9 1.100 %%CreationDate: 1996 Jul 23 07:53:55 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.100) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMMI9) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.04 def /isFixedPitch false def end readonly def /FontName /ICAAAA+CMMI9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 58 /period put readonly def /FontBBox{-29 -250 1075 750}readonly def /UniqueID 5087384 def currentdict end currentfile eexec oc;j~EЪ)s̾;.;rTejiK/df5A|{S/ )Sc\^ȟmp+#vL17~k d# ]LeVߐGoo٥\k 9Mՙ= 0)xf 1kX9JS:6_OɭRXZ5Ws E:d"BA.ޕ#z;h*ihUB9gӲ LGb ("K#`O/nms ]ԙn$z7MmGoT٢Ewpｄ BMZ "XIDUQ q~{s R~"eEύ|[9BuODcЭ/3=w߇,ĺT+(!dǗ½Pnf.zuM,.Y]D花YXO>R[*?#SVZ6qoPZM'U,5v Z5Y>u\afa63ڦN?%9+ qfj |bƕp\Kolzz`OɊK׿++B';> ґ$E b&?J'HvwM|!2h*t~ğK֊҈VX"~E1M]~swk-HћyhSߟu YBZ9캲WY ՅY3B#h7Off\*Kp#\[*]]HW HҾ`QI@6`+}đ|vSA5h՝4ĎR؝';: o͎Bļ[Ԥ'dmJ iݒ"e0IOm" zXLswEy\zXHZcJ̧ם0Di⢷#"˦@R.6a2Y,a XRf)1k:LCrj賨@Q80000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 104 0 obj 2352 endobj 105 0 obj 772 endobj 106 0 obj 1048 endobj 107 0 obj 532 endobj 108 0 obj /ICAAAA+CMMI9 endobj 109 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 /FontName 108 0 R /ItalicAngle -14 /StemV 74 /XHeight 431 /FontBBox [ -29 -250 1075 750 ] /Flags 4 /CharSet (/period) /FontFile 103 0 R >> endobj 86 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 110 0 R /BaseFont 116 0 R /FontDescriptor 117 0 R >> endobj 110 0 obj [ 642 857 799 714 685 771 742 799 742 799 742 600 571 571 857 857 286 314 514 514 514 514 514 771 457 514 742 799 514 928 1042 799 286 286 514 857 514 857 799 286 400 400 514 799 286 343 286 514 514 514 514 514 514 514 514 514 514 514 286 286 286 799 485 485 799 771 728 742 785 699 671 807 771 371 528 799 642 942 771 799 699 799 757 571 742 771 771 1056 771 771 628 286 514 286 514 286 286 514 571 457 571 457 314 514 571 286 314 542 286 857 571 514 571 542 402 405 400 571 542 742 542 542 457 514 1028 514 514 514 ] endobj 111 0 obj << /Length 112 0 R /Length1 113 0 R /Length2 114 0 R /Length3 115 0 R >> stream %!PS-AdobeFont-1.1: CMR9 1.0 %%CreationDate: 1991 Aug 20 16:39:59 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMR9) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle 0 def /isFixedPitch false def end readonly def /FontName /BHBAAA+CMR9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 52 /four put dup 54 /six put dup 56 /eight put dup 57 /nine put readonly def /FontBBox{-39 -250 1036 750}readonly def /UniqueID 5000792 def currentdict end currentfile eexec oc;j~EЪ*BgNӽ ؑlKq*޲Xws|QFqv`zXMyp"5O˩YŝP(DT![v67XFlU&3!Rq4wσ~j+ou\c3R*R?쨤ȯ@ gSr RIzE_EMv,X!%6]ަ_3+_hJإ0oyX`U) %N5<6[mR"-%Qg !2og,Ydhhu_1A͐ .Um;3YZ`7z *%͟AJ2UhcCp2,숛§#@J s8, ed?Ms."A# p9Ɂv*\X K QF7q {N{G0o?8I*!D]!ض8iȂa>VGkV4;Wy;3Oo8KߝpY,!7T˒jHC9[I?;J_1,>W7'pRlfa{ x[:3;9ԫV4z^EЩ!6A_xcL8iW"WL('f ㍴'u|}*Լ xS+Dp< bBEXgdbkIr!H(,Q:|,d*B()94pzW$C|H@plBKsq+Xӳm_̪wLC`8pjR߲:WBoВK@YvtQ j\@гyPE n7~5MηU? {ɉ O?<и\8M4AthnS_\:;eTqjQdXB3ԟc. V5b֭-bUAy^'s}9mt/)NDtPŷ\e^%(|Y h2Id&I_z98MT@K=Cr`> S$LitdfnO Js) *|BD]#s~* I8gT3?ᔕ,)ug S!dA|3BfuKշKu 9KW,Fj~ڌ1?P\92#JZ 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 112 0 obj 3052 endobj 113 0 obj 809 endobj 114 0 obj 1711 endobj 115 0 obj 532 endobj 116 0 obj /BHBAAA+CMR9 endobj 117 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 /FontName 116 0 R /ItalicAngle 0 /StemV 74 /XHeight 431 /FontBBox [ -39 -250 1036 750 ] /Flags 4 /CharSet (/four/six/eight/nine) /FontFile 111 0 R >> endobj 118 0 obj << /Type /Encoding /Differences [ 0/.notdef 1/dotaccent/fi/fl/fraction/hungarumlaut/Lslash/lslash/ogonek/ring 10/.notdef 11/breve/minus 13/.notdef 14/Zcaron/zcaron/caron/dotlessi/dotlessj/ff/ffi/ffl 22/.notdef 30/grave/quotesingle/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde 127/.notdef 130/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl/circumflex/perthousand/Scaron/guilsinglleft/OE 141/.notdef 147/quotedblleft/quotedblright/bullet/endash/emdash/tilde/trademark/scaron/guilsinglright/oe 157/.notdef 159/Ydieresis 160/.notdef 161/exclamdown/cent/sterling/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis] >> endobj 73 0 obj << /Type /Font /Subtype /Type1 /Encoding 118 0 R /BaseFont /Courier-Oblique >> endobj 38 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 119 0 R /BaseFont 125 0 R /FontDescriptor 126 0 R >> endobj 119 0 obj [ 643 885 806 737 783 873 823 620 708 655 817 682 596 547 470 430 467 533 496 376 612 620 639 522 467 610 544 607 472 576 632 660 694 661 491 632 882 544 389 692 1063 1063 1063 1063 295 295 531 531 531 531 531 531 531 531 531 531 531 531 295 295 826 531 826 531 560 796 801 757 872 779 672 828 873 461 580 896 723 1020 843 806 674 836 800 646 619 719 619 1002 874 616 720 413 413 413 1063 1063 434 564 455 460 547 493 510 506 612 362 430 553 317 940 645 514 535 474 479 491 384 615 517 762 598 525 494 350 400 673 531 295 ] endobj 120 0 obj << /Length 121 0 R /Length1 122 0 R /Length2 123 0 R /Length3 124 0 R >> stream %!PS-AdobeFont-1.1: CMMI8 1.100 %%CreationDate: 1996 Jul 23 07:53:54 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.100) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMMI8) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.04 def /isFixedPitch false def end readonly def /FontName /KFFAAA+CMMI8 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 101 /e put dup 105 /i put dup 113 /q put dup 117 /u put dup 118 /v put readonly def /FontBBox{-24 -250 1110 750}readonly def /UniqueID 5087383 def currentdict end currentfile eexec oc;j~EЪ)s̾;.;rTejiK/df5A|{S/ )Sc\^ȟmp+#vL17~k d# ]LeVߐGoo٥\k 9M֨[G(aܘ|RP6n=: b9s2m4{~CD%xSd,&jA x"ПmѬ,+;ŝboB|ծTboI*VDZBJϟ2a{Y0Q(/e@AGƀ挄п]w}ga8.ݲ cS,t^Ujq.or!N]@j Gē75uʑm$KWNWVF2P,KP˻ 62abw;SBֳ{ u&DChNe^L2Ib^ǞY62"CSl5X!okR6D UjT|S{G3:6A| ٺJ 33kLKEnMpٽqlHZoxV dxXr<233;U[MI+6jfa4*9E#ltG4󐇗%4WuC3jLx*׷J$mnd%S cv {V/;I, ]umO̠E2l4{~kM)Vz\a:y=eV3a|XL!3Gr,ంGޣvz.Wٮ 2<@E1ؠCRo%*jw7^;vŵh  V?5H> endobj 12 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 127 0 R /BaseFont 133 0 R /FontDescriptor 134 0 R >> endobj 127 0 obj [ 963 380 963 639 963 639 963 963 963 963 963 963 963 1222 639 639 963 963 963 963 963 963 963 963 963 963 963 963 1222 1222 963 963 1222 1222 639 639 1222 1222 1222 963 1222 1222 768 768 1222 1222 1222 963 366 1222 833 833 1093 1093 0 0 704 704 833 639 898 898 963 963 768 990 813 678 961 671 880 747 1059 709 846 939 854 1427 1006 973 878 1008 1061 762 711 774 785 1223 884 824 884 833 833 833 833 833 768 768 574 574 574 574 639 639 509 509 380 639 639 768 639 380 1000 924 1028 542 833 833 963 963 574 574 574 768 963 963 963 963 ] endobj 128 0 obj << /Length 129 0 R /Length1 130 0 R /Length2 131 0 R /Length3 132 0 R >> stream %!PS-AdobeFont-1.1: CMSY6 1.0 %%CreationDate: 1991 Aug 15 07:21:34 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY6) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /KACAAA+CMSY6 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 17 /equivalence put dup 33 /arrowright put dup 102 /braceleft put dup 103 /braceright put dup 110 /backslash put readonly def /FontBBox{-4 -948 1329 786}readonly def /UniqueID 5000816 def currentdict end currentfile eexec oc;j~EЪ/ ȭX~id}S5Q!gtⵎkJc;rN^X5.Sy +'IqV:r㚉#,# dBZ *R*"7٨y! [R߷`]{W5Iew4 9ۍBj$T>R-%thE$/JLH\wdQ_RL@C>v[2AX>'ƋX'Yb=aj1T'{!q+3^3p<{-O$Ց0H}RX~K2SsIq V9`D̊uW^rv&{_}-z4rԨ4⅏?ńΩ"P=XdA6CM4c"*! U;*bp3 Ɛ';̈kG=S46~%+Q3bH3qsvDƘTI$(laSPtZ}xenn 0v4iuمJH-ֹ49X Ra`*FkXimOEcDu,{=yO` <ǎrI^b'A ?Ѽ|,nnn9g@8"e< yz¶>N>EOeĜ7k k+%rIf]aQmu R^ػN_|Yy/P̵ QLʽE0x,Կx&Dbkpf9N <=ʎbܲyjdSUOZ B([M˰x#gGg$F)/$LSVpfۀ#ljzOYS5 0-Fja7חH_u+>cKOL^h/vtmzK0֎'DUlddnJt7Mo ;Mer@ 8> endobj 11 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 135 0 R /BaseFont 141 0 R /FontDescriptor 142 0 R >> endobj 135 0 obj [ 826 295 826 531 826 531 826 826 826 826 826 826 826 1063 531 531 826 826 826 826 826 826 826 826 826 826 826 826 1063 1063 826 826 1063 1063 531 531 1063 1063 1063 826 1063 1063 649 649 1063 1063 1063 826 288 1063 708 708 944 944 0 0 590 590 708 531 767 767 826 826 649 849 695 563 822 561 758 631 904 585 720 807 731 1265 869 842 743 868 907 643 586 663 656 1055 756 706 764 708 708 708 708 708 649 649 472 472 472 472 531 531 413 413 295 531 531 649 531 295 885 796 885 444 708 708 826 826 472 472 472 649 826 826 826 826 ] endobj 136 0 obj << /Length 137 0 R /Length1 138 0 R /Length2 139 0 R /Length3 140 0 R >> stream %!PS-AdobeFont-1.1: CMSY8 1.0 %%CreationDate: 1991 Aug 15 07:22:10 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY8) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /PANDIA+CMSY8 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 15 /bullet put dup 17 /equivalence put dup 33 /arrowright put dup 65 /A put dup 67 /C put dup 70 /F put dup 71 /G put dup 73 /I put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 83 /S put dup 102 /braceleft put dup 103 /braceright put readonly def /FontBBox{-30 -955 1185 779}readonly def /UniqueID 5000818 def currentdict end currentfile eexec oc;j~EЪ/ ȭX~id}S5Q!gtⵎkJc;rN^X5.Sy +'IqV:r㚉#,# dBZ *R*"7٨y! [R߻*|]~[C֨a[#ԙ jY!4J"3&ejc\J$2626wIaUIrnFB/Г(Hp%#O.,snݸt%\b9?_\ <+n6f Sf/@ 6M+E^o!E4xV'媠WsBzJR\q1[6 R6|J ce0=ǫoCZ)S3;]Q&WĂ%b*hP]?i`dlxjD|3bH2QHx_P2TE;ўYVx7ZpUCC,(;N6@͎^UT-A8;,yAW X^췌=`OIbξ,6cn[7O@/ZviùV^Rmܦ5 w5Lģf+) !真 C4< WPc_@{ǥ՜>E^cÏ!'e DĪp7On 00Rd壃V F {r-t -@ɿHY<85nۃƇ{MH.z>wP 3lE_HAyW҇+|c$EGu$- vk]|qt[LPϿBt1`qy(3L݂nyBa-F,E@> {n, OBgi0=V x٥&.KVl\bL`>wWN|y2fT"9?bSNԇIɃx_^zv(g^H%+i}-5DLp/RWXh&Qi!;J^;1$pcq#pZ읜O8K'Jc!\D &`[/as4N/7サ;ZV]sB)2#a~4=Ӭ(sy)$ev SI ڨRv5g_n}&b/u >oS74.Bd .6]ۉ8MZ()'zm#t}ox64,w'dUm "OK{ D*DTpdcfNqe\xuo䒇lfZ3.p1881<wq DRJTmjZJQٖIʧ\Fzc+0y+;th9`X2ӽjf.v8 `Zy Qݡ" Ӻ_P1彆 8as=w9#_-mAř(&<%Byg0̷qZ gMa 5S9%|Ձ}51 IF9RZ%sP$?DT@,~Lr|#DF)zt1V?))[ aW]'O{|ȖAߏH>n#"xi+ux݁z/Tiv+H!|gߧ/5lK'kon%M}~I։͇?jrs~O.pgemaO䧰ځ DյJQ\BfM+ }+8È)V^eHKqFFsƈoa8aSJ.XkoSw-4 F!"Y2GTXO(eӴ6i<\"v■4ؔ:YWƺ qLfDZMPm[I~B9:{5!N*! KF6r #M%e@8i˓\e&ω Q0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 137 0 obj 5389 endobj 138 0 obj 1031 endobj 139 0 obj 3826 endobj 140 0 obj 532 endobj 141 0 obj /PANDIA+CMSY8 endobj 142 0 obj << /Ascent 750 /CapHeight 683 /Descent 0 /FontName 141 0 R /ItalicAngle -14 /StemV 89 /XHeight 431 /FontBBox [ -30 -955 1185 779 ] /Flags 4 /CharSet (/bullet/equivalence/arrowright/A/C/F/G/I/K/L/M/N/O/P/S/braceleft/braceright) /FontFile 136 0 R >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Encoding 118 0 R /FirstChar 1 /LastChar 255 /Widths 143 0 R /BaseFont 149 0 R /FontDescriptor 150 0 R >> endobj 143 0 obj [ 333 528 545 167 333 556 278 333 333 0 333 606 0 667 444 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 333 250 333 500 500 500 889 778 278 333 333 389 606 250 333 250 296 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 500 747 722 611 667 778 611 556 722 778 333 333 667 556 944 778 778 611 778 667 556 611 778 722 944 722 667 667 333 606 333 606 500 278 444 463 407 500 389 278 500 500 278 278 444 278 778 556 444 500 463 389 389 333 556 500 722 500 500 444 333 606 333 606 0 0 0 278 500 500 1000 500 500 333 1000 556 333 1028 0 0 0 0 0 0 500 500 500 500 1000 333 1000 389 333 669 0 0 667 0 333 500 500 500 500 606 500 333 747 333 500 606 333 747 333 400 606 300 300 333 556 500 250 333 300 333 500 750 750 750 500 722 722 722 722 722 722 941 667 611 611 611 611 333 333 333 333 778 778 778 778 778 778 778 606 778 778 778 778 778 667 611 500 444 444 444 444 444 444 638 407 389 389 389 389 278 278 278 278 444 556 444 444 444 444 444 606 444 556 556 556 556 500 500 500 ] endobj 144 0 obj << /Length 145 0 R /Length1 146 0 R /Length2 147 0 R /Length3 148 0 R >> stream %!PS-AdobeFont-1.0: URWPalladioL-Ital 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file PUBLIC (Aladdin Free Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file PUBLIC (Aladdin Free Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (URW Palladio L Italic) readonly def /FamilyName (URW Palladio L) readonly def /Weight (Regular) readonly def /ItalicAngle -9.5 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /TSXNWT+URWPalladioL-Ital def /PaintType 0 def /WMode 0 def /FontBBox {-170 -305 1010 941} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5021143 def currentdict end currentfile eexec oc;jtD[1ƅpTo9`.:ypJ*l'e}#)&7+/^ W{LZ60VQR^λ3r)#v$p~c&'ſ+ %;v &q?ZUEsT 0!bH;Ef`6sl=׏ Dإe=/kg'Ҫlvn_0uw~u3Q0YDT9y$:ǽh'%J(8wDF.Of`A_%iWbWi5'$E-tbeqLj^ruqnl9Du zVCŨUadaN8 C?/JaݰMo]QXrSea\fd 77;oD7^a_BY)X 6]fuļaa$oINNo]}m̘ke+`Q69ظt(ROρs[rvU?x}kBg1{DVe6 s'\M#( M-J]5%lIgSwY%ꨛkVw+HctH' MpaYlxdF ><0A@)1oUWV'6:{/R?1ht`K2z5akLXK-* pFGǯ<"沶r"qcmk XNCfI%v-)nZeS[?؇ >2 WpD6) ˛VOQ rX߅{ȅF_uꋛi"wLjUdSq$ Cg>! -tX䃶.V+R iqI׺wC伟q“bkSTf#&V+X3hUK`Q1~m,P݊)mk{B56QpROVLDJuiLײ_5ŧ[pG}[:.x`H^Av'r֢e49LB -\ r,iN8ئ\>#tƷg?WEAucU9sBHOVxB旀 ^C)8LtFibLE3#m>GpZYy,{~kWAHzD6sZ"oV~3Ge$ >U@Wct)Ym2xS`(=M:j#ٸW`hzNx55|OΞţnlo֜ Xt4#}> _G-[ǰ-ifW!4*vn-]^:+>pՎ㔁 h2,6~% "+czs=U]o `q͞ [TCb ?⧦Cg271oH_be>XLqPvdQuf'șV2CDn mV";ɫLe\I%N *A.LyG6J&3-f鬛˸ [eG,p v iW V7&V[z0p#ON> p9Z%? D#*o<6PI&+BI+o.+ÜWPW3ߵ-뚹r_[7k´W:}ׯ`@eAԎh)S%] 'Mb'7m5+Dk'׷_39ٚ*[q wSwi3?Tf`TF@oŽr/ Wtr5V{UuxS1.{HMu9f檘~;4Kz@šcs&{hϋvJ@Kq?Gvj8ҳ¨a}-eu1ɥ{ZӖ@;gfm+@AfG:5bADuB`ktO@N՝nx?WEyO?T5*ex wG%O680TMH:mb"ZHPY.dHqKh=N}p@[y _~{I=̂#] -W5GYɗQV| aPԦWia[[O} #~Hy{l/܍]kڤ/*~kL\R`^ $oY,|(}N=؝lxς)JLh%`~@YqƱoR߰<m)?K2x;8x"=qoR) cr9f-ՆHѤGJ"DEhveL>A<zRLwjۨ?G!LrN,_\Q 5!pe@}6f8] q}'2YYy  pcut/do%oVrqesyJT|ð09s@oNUtO; | v-\TG;Ja~ #"reE#zB:P̹Hlm4ˢF'/sN6ZDΓ^1Gs.NvӆeUXI,V8bve&˚S^XB=@ k"gyF,P_!S+ČTXea&eiYzQQNz n ++ 8$c:㝒+պ |TT4՟f9zuh Ƿvh}'Pr˞\Nz.!D~Տ_fNyR]| sW>t%]\b0TO/~εǪ z5Mf>FnIL#R#n Q(Ps%sIax(o]!JHA`);:>mSR`\PqRMIP-}*;,7nt*R6T:r /$1F"_qZ͑jYOg%딌oQ&?/FF?됐(@ĒcQ^r*~r?֨\S>%V@ ;G4Y!Զ8TJ̱c(IFfyZEhZ@ǹ@DRP|vg,/^2؄OڡD,~kTсN:_UA9|sJg~i5JB#G.:{K6ۨiY*xo : {n:ZއKh eҜF@6:jIoK#7p+<֕/Q #T=+s'ԁBy 7]|;vanGҵ;*SM[)閸 Wͤ3"ps 6p8ft8BTytLo&3_x` HdET)d$՗@姙mJf$ >B38\d7ѰGʿ{8Hcv$VT|N`],0;j-Ԙcr=ob|FdS53 k}5q&uv_}YrJdv?ߺP^ *-j6ݷ=FH*pPY,*tr%ƛ؀0*:XW B]ECK0˨BrV蚌SBC۽D1<4i(wmx+tyfnj뛿r'4 8S-pJEԥs5#J.5rji@S5qk x"X1}j$V5W(Lm^qAL#('blXQO3 )X8fs}ƖSZvdF6V <^>S{JcR@O{sɩ*0y`C`k/L3 lJ60»}i zYpSuWV8e7.c`zaU&tƤ>>*I*}ҫ95)م7T#=ĈkI/Q$-YfrkE u( K]xh xHqxPp_`Ir^d7f/=DG6+ LO A @:ˡ Ӡ(w[/ D&-/pwBO{uu_ȵ'9,<Ջx2Jɫ0ƅߪ1?- #ho/7eu=Qt4f/LСUkϧ;8 v;{+ & rn9vЮj}$zkؚ'er}BvhnUu[@l#zzDES鵡 0ԅ,BO&ݭ,'# w&{nI1JRڻam;m`WRYhb@ B꽨wQk*"r|8VWC .l"48up^9Ro8]&52Uu]Tj+TQF_ё'#|x>0υhZ;,?ӯYyjP NQ%Uزq;[11Ρv,g4_υQd_vĢh0֛ITK,Y]G$TڧOL)h\(y3x̗ݟ'$-/ѰefUnF29Cw%Y|Q\CT&!X/~>յq9tO䁨oG3=„ ΡE,=_Yк$/_X˛sӢR%4G]ֳ+WROwؘr+Gl#<FYoŠ=LLI #q2,0<Cg~Zdj3G6Vezq ̝ƾI_y4 "<ޣFE6R~Ëz }\t坽ݙ>kga,J{Q,ݧ_dK߄:8F5|fPh62;||]uwC> Y1)Cf1%0kH3:#5h?jhNQIA}ub{D.AEEbmطe;ago):{yA9[]Gl$qfEr#2kvr/~~+I?vYn~{080cZ,u,i¨vԌtfh*EVJvRɡKPk+l&E7#A;Gc89ܳuOE4]U|fGz,r!+ Ί:m`A5^\h{"%"Ց̺TP>'B`찠-&$ 4lȷ@ҏdTb^QcJFRGW8_½ilЍ蛚ooB>򄵃8,Hx\ތ"ܛ{1 {[$ YE/їMk T[wYh:jExV|vD-Τ^[̓i.VU;}.%de ؙ}l+>c@2k)B!@8U]yQptIn|7 M)~-HMj1vSԇI=犁c-`.~cQJ݅" lx N|MR `>߉i/g- %㶰}8 Xx3y6N>re R+ΐ^0̱.Qqj ^i)|i*@&uBb'v䃅M]}.(+0gmu| ʴ·K^ub4m%LD"n'hJDSOM%S{t̼<fʆGxR)ӊzJ.%2TZ|cZS)uWa5XmݜALXg~:uk-wj.AAf#6,WaNJcJ7, _1IBc,h:i$mwPIG~{98((ojVm$NYRQq.Y"Qjg,iB{=%/=(Yױ@D_ Qɶ'g2@qBkd6&M(DY| ٞ_b0̣n ($y'Q G_5-թlO@BvF;X. I65ˇk눦O% 9eU"p Ibaވ Wk;.`g }Gp󵈺T X0BkA'㑨2|?#KdTz+ix@. ϪݗYFjQu΋~^%3-o-(ںV.Jc]qSzr6 Z2Xԕyn%Uexk}b}m]pZwMYivy|A ۚݔWUX?6-@C;"9:m (S9MeB  ~ \,YM+‚"0FFόy~ìqK1iDd}gMd`j-A fIKEz O˂<*(ah*bqVa$! qv.,"ob8$K-O l`kkܗVH04~r-:vGh"9~jf\]m,Ett^jV~/`\)Eb \K\wvlB;7yo^-lz UmK83不uőPzC)_h5Q~:~RBD_g=L'Ʉh{}óD1C* 2 KjŭpxKnakIENYQS*ZbRyw lL _{?ՓGM(O+{o}NL־t$ ^R9ݳJ,4ju_З"XwH#pe}4) w'b{]MX#fF| {W&_5fV#Lrk~VT[}ï7<x=^hij Q G4LB(Z{]WSh)&`ٯo_Q ^Nsf7]ER$:6<:]Wvl=2i47r\_X.E+ظmN;iԒUum.G]{R ?x;Zu `WlUHݞa7“5Ỳ?\ d[L]R>^L yw6k"T~霰𫫵O1t_z^ q}&R=pk!:=#{+[b sDrqqGýbNٯR VN0ms@~:c\MNٗ2?40/0({[fMൾ)ZM^AV1{{-F>41jBGȔjL֪"D R@6\yTG7:d_d][2r݌ x#Q}(/1[M7:V/yh7;vmq.`F~W]mJ; [$iJz:|‹J#!Wr ߥU-tS<~6rY^?+:޻To~}}`E#5'Mˌߐ SE1 Kvp?͕ +􂹋z j/f4C;TP*'9պ8@";p\hRvB/c?Q<|땀<Pȕ9n/h>n4~f|^){$9P͏ qo4o{b*% t3pB(;c2EJKH˪)S]@S %F]@?'maI<|%q?th_$Ŏ4>F*%Rd9ԧYVoeߞJި]Je/:r/Ύq`3t:g6C30Iѣgj._dJD?&;A2_VƎswaP <)#<~G F8i ^9lG ]/&xV{3OJBUؔl^޾(2T5ˢyiGW[;gӈR&UtKL{/%r-uNZ5rc`-&o`y$!}4M2rZoooE80U貿O/Q!ع](u?^8%kJpŤ7|{$aRwQ6+3*>p(tޯW7-Cu!dKyeᛰԺnJ?7^|WM?n}"i2ۚҏA:@wqC>A׭- r{C^?yy1 pXNq>T63j*%I|\a 'tn6{lxT7OQ:!ߥ=m'uHq^ۻc0$A~$  PP ̎5I_[(Lnq\_՞d0Į}ʗ,(C'cui!ħ9xY_wBp9HwȊAz_? 0dag[F"*5$a`_-rڳi| \rQ-o&%ΚMsŰD!TwP/@"٣دkq J,{zKHJUK0==-9  S)̰J$ɳAHk59vYgl^"#[j"=p2bfҰ`ixG;TduřP !\$u y2X`n^u.i5{P㺪SĤ*7m waD3%r庯kIYߝ#^(PH/&:=۾ZvK# x P FƲ(7]: ׊覱cSTs ϵ4oUyB;CI8s6|wDYz!Æ ,9-ݎs0L]_~悈CM͇pLK!EJlS78ćNHj.i_[}};۶F:Nd9:m (PU1x+Ԋe_;AD*F޵Q6RD0pծ)+xJ@\$DY) I;%O 0B6[A =Ddl>?zJ׌ORCDr\.etgR~G..XHgv%7Vܤf{,N&>Δ7͛O~!.b g;2>@ Q?C\9#[v9 Qދ/XzF%LCKN0QE;,tw |ilU [a^ŇduKc&QD#I Zb>lE8btE5Wm塂?؇T bÇ;4tִs1lYL>a>cro8P茛Ӝa~-q"Lk[:0(ع;S/fƋ"@%'PHZWba<#eԟktJrRY6bOX3EM5ڏΥ/g2h A9]}|Z╟>W/%_,ەvb/lh&) (JNn' %8P$ R>dmKB H+JJt8ɯY )%[z6N~Ӎb1Q|ۚNo7HszB)mbYN6?R$X଍8b &/mDJ 4<?*Jh<Dl77җ4M_;;BY)ϽT 9Ӭ fk65"a *1Ɩo~LnQq'b.~ >aNBI/."&* Wsqltn?1E&lHG5V E(iЁ*nDWՂ͡3CEQ?^dn9 {ju>XޖkАI_G~|OP: N)dZl-ecJkl=szƾ7ygGbVO)v>,JziMc2L ;F aዒ.`^`kϒޠ%ױsn$ӭ ^L4NE5 P);3uZ@:5itG" E仦iRN+qadNC6{IHk, g/VQؼilP=8Wn"bz;M?67\c|sS/W={!:ꀲ@9shXĕ.v ܗcIk6MJ!҅ ZZl]v7 fq*o J){;yܹ]tJ6q .e4g?@A(%'adYlx#& ·݌ܫRBX ,҈zC*U] =L_#4^bu{ҹ,m}Kݷ8mwxasn_߿:8]9\ŢtHA_B붉\10,S(@8kIPCi#VcEb󨉲! j{/Wr~9~#_Г㇙./UX,JV2F+ 2xJW*"``s&12Q C ]o GHHNdQ]vHGyn ׵˭MK]ԙV {om8wI#:ekH[5>.^N@NItܞgdzD}Xn6SF XO/1Ku (* #r.2^)R*5Xڀ * I^Rf"g@3 bA{gK/TUa11 8F7 Yv\AhUwݗ[+mhU9+%2BVX 2׹)o_xu&JOl)啊4 Oa`Xg_zt4"a*P V`Ш۝JS K jQwJBMnq\lhs}6O,% n?9J./>_柳@SJ̤LojJ&gďuo0qWभi0 :H.Aǃ =X^TdK^nIjuZk{"zx|l6DR/̇`|,Jc#*4CuKMj YJt>"h.><9^!(cJff1 !%wgl؛oxbDr.N6aJ+MErzc9':pzDt6–[ygDIBk|%GZ)WTr$")y`+-dN7E`BGK ^p[Ju6>/ ͸y |@9+˭a@FRptfo\H^x)༦Y3kȏjB'ym֏{1Ȳn;'VJ>M{GFEҠi=5$sL\m\rI_ cN!57?;k#җ)0BD%Fv.CL{9PRjhҨ!XOATZmܒ |mr\bw- tt$фsCMX>VkozB01:JS~&#+Ә9# m\] ꤖw  &++j)Qʏ(υ7iQ؄%TE6VoGRI@ #+5l n?MZXg^P* k6؍rLvݯ}{ngƷ-KЇƹ&Z7% y%f'"1ɨ*!r{U`:Oɾj)aR;2>O$?ʷ_1`m 2nͿ9Z] fPG10a%ԗ߃DDMy' WP<{圍 򅄑vE3ЦFt⪽r4d > زjp|J+cdkҦ;x#3 vy2*&ͶjCɏ^N]u|SZFWc=]'}ST޽;IŮc+Pjʟ[ɠDdUgjt-.55ܺlBLMWWp)0d^=0 YR(bք2y"UC薣!z-mmi!rnG`Ķ*K-7A"(Y>pE~Fsښx"a6"2Fy=&%3y[`y~PJ)VduyF}D} P{}U!*k pDKQ\ (Qe)K=im]*|Ky jx̞mk7W4Qr=Kܹ4̍'gԞdt8k>T m2OM+)%zb)8еm+ikۻBE*B ajq׽Y)qQc3cH;,Z6v5EhAxwW* tH\3[A#"u.+ރ&|匛 73Ȼ+-˾T>갩6'|~:Nc,1Rd#k7 #/pJƢV74^CPqZ+C.>Y#g|["ĊPlPe*MAf~j%'/"g ېx7}i qߏ(UW6S,&qH5ʲ7a! ԝc +Cg{:23Aș274嚑m)?5ˈ8r vvpׁ?$[9tmF1e:F*WsDi3!!!: U&/USlN:կoB$<#D?1(7e fi2ZM-MiuǙfE8/Rp]GBi?7?}P~IEaυ@P1`ؓxp @fAo#ɅI@AJ,`S3aͤF~Š)t%t`RUmWYHw,Ii,ۤ*(I3o"VBk%n ]i} GtC?(L'*2O"6˥ĆynjQcwO3-3y6]_ΑatzX8* uL{ܺТN4@k,𞰾 LWLYZ*e*; ';"sgskb+OU Bnm=>nO#Qfm"Vi$MJث]?eY*fVfS/%&,ݚ`.V LV7^h^I!8}pSh +<[ +7vq+@vKY:_ kjk* 뚟L$i^nv=1+.~&zL VA6Gm+C"T?j}ݔ\N1$VQ<0f=9[Vh^"z&u6+EG3*,Y-HN0 7sh'T?GkO] ]_J'3_ίG#9H/e6`vKIߔ}7/F=jW<l~X8U?H3̀YH0GP]M <+ߑrIˆ!cOs9B2Ampd-=e cL1g&eU9[BArEϋ<_Xm[x>IJŠ1cV~8샑{U}fV}OъIuKU&̽ۇW^T ^ꥄ OçP+cb}b|B.y08X ڻ$KʺXYpxS^=H0;hm#_ry=]&b Dp:@ɾލT*}M3R/\}v8sdwpդLNn11H8g>H+g.70=ojF^hUsT uFObڞя1GV1YP`UD޹".n hfQ T'g nzsb_{N EomWo0=r }[mlNa W%J7&@+Q>ʖ>5@l,P(.8H8U"_4Oz*$=*7^:h yaU0W~e!@D;miCE[On ͉@1lQʊjbMt'lC0%\}ۋZ k3aІQ0$ez"(qКVtE7,Ok5IuaU++Eq# ɍZ,Ȉ,z ~'@Ҙ|h }aDaDaocCV:E )+O{Uy6d~^'ʹp8pV]m<`×ܞs|肖e/d'}((fcR R)wsw]Iӛhef)ܩu]kcKvĒljܬMmb IΟBe}vLR?gէK\?/ •pͭ8L(Vt35 ^)PFK(k8ډsыȢe3xZQ\ K*[fq6O& JSձOybvQYg/s*УF ;7MXʰq,oNDoR?*YU,~|ম 6rx3H& 6,wza3,-৴VL:"?z-8XQK->&ov4|.lD@\%Zbp啽af(-Lj/[]z @@[ zo5}h5eEMU:+,N"r&U;J`u}5?MtwXNI)769KUL^>͕Km `{6o,=IҚ}Pu"}F[t#ҩh̓@(^P$ĝEoP]RS?=z*&UD2hNǸiZYӾ'pR 7ynXF_`+ :TH5bc'd< ݬKl@(!iEvxAMS[Cz HffX2ςYHs7cU,Gc/>¿ 5'Dno|\*1EaEcĄe+:SɀE}?šԻ,ݩ?fb1KXna}ڸ +,Çx a.ht$ Pj fQA{O M2\1i8]r}b*K(0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 145 0 obj 24495 endobj 146 0 obj 1642 endobj 147 0 obj 22321 endobj 148 0 obj 532 endobj 149 0 obj /TSXNWT+URWPalladioL-Ital endobj 150 0 obj << /Ascent 722 /CapHeight 693 /Descent -261 /FontName 149 0 R /ItalicAngle -9 /StemV 78 /XHeight 482 /FontBBox [ -170 -305 1010 941 ] /Flags 4 /CharSet (/fi/fl/exclam/quoteright/parenleft/parenright/comma/hyphen/period/slash/one/two/three/four/colon/A/B/C/D/E/F/G/H/I/L/M/N/O/P/R/S/T/U/V/W/X/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/quotedblleft/quotedblright) /FontFile 144 0 R >> endobj 9 0 obj << /Type /Font /Subtype /Type1 /Encoding 118 0 R /BaseFont /Courier >> endobj 8 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 151 0 R /BaseFont 157 0 R /FontDescriptor 158 0 R >> endobj 151 0 obj [ 799 286 799 514 799 514 799 799 799 799 799 799 799 1028 514 514 799 799 799 799 799 799 799 799 799 799 799 799 1028 1028 799 799 1028 1028 514 514 1028 1028 1028 799 1028 1028 628 628 1028 1028 1028 799 279 1028 685 685 914 914 0 0 571 571 685 514 742 742 799 799 628 821 674 543 794 542 736 611 871 563 697 782 708 1229 842 816 717 839 874 622 563 642 632 1018 732 685 742 685 685 685 685 685 628 628 457 457 457 457 514 514 400 400 286 514 514 628 514 286 857 771 857 428 685 685 799 799 457 457 457 628 799 799 799 799 ] endobj 152 0 obj << /Length 153 0 R /Length1 154 0 R /Length2 155 0 R /Length3 156 0 R >> stream %!PS-AdobeFont-1.1: CMSY9 1.0 %%CreationDate: 1991 Aug 15 07:22:27 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY9) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /GLAAAA+CMSY9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 15 /bullet put dup 71 /G put dup 79 /O put readonly def /FontBBox{-30 -958 1146 777}readonly def /UniqueID 5000819 def currentdict end currentfile eexec oc;j~EЪ/ ȭX~id}S5Q!gtⵎkJc;rN^X5.Sy +'IqV:r㚉#,# dBZ *R*"7٨y=cLIPsF'f> ba ]fv}3N/+ PyOy:-|֩+ՕJ> CSr_ i7mQMB ?sK*?e[PA}` 1sCKe(+>L~\\k# \ˍL~? ;+n HlmA.vI_jqL~_ - HvCzmR]{SSdqEQ(ya(pxk;<@L2j7Lee-Z= @[pSd4DT0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 153 0 obj 2307 endobj 154 0 obj 797 endobj 155 0 obj 978 endobj 156 0 obj 532 endobj 157 0 obj /GLAAAA+CMSY9 endobj 158 0 obj << /Ascent 750 /CapHeight 683 /Descent 0 /FontName 157 0 R /ItalicAngle -14 /StemV 87 /XHeight 431 /FontBBox [ -30 -958 1146 777 ] /Flags 4 /CharSet (/bullet/G/O) /FontFile 152 0 R >> endobj 7 0 obj << /Type /Font /Subtype /Type1 /Encoding 118 0 R /FirstChar 1 /LastChar 255 /Widths 159 0 R /BaseFont 165 0 R /FontDescriptor 166 0 R >> endobj 159 0 obj [ 333 611 611 167 333 611 333 333 333 0 333 606 0 667 500 333 333 0 0 0 0 0 0 0 0 0 0 0 0 333 227 250 278 402 500 500 889 833 278 333 333 444 606 250 333 250 296 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 444 747 778 667 722 833 611 556 833 833 389 389 778 611 1000 833 833 611 833 722 611 667 778 778 1000 667 667 667 333 606 333 606 500 278 500 611 444 611 500 389 556 611 333 333 611 333 889 611 556 611 611 389 444 333 611 556 833 500 556 500 310 606 310 606 0 0 0 333 500 500 1000 500 500 333 1000 611 389 1000 0 0 0 0 0 0 500 500 606 500 1000 333 998 444 389 833 0 0 667 0 278 500 500 500 500 606 500 333 747 438 500 606 333 747 333 400 606 300 300 333 611 641 250 333 300 488 500 750 750 750 444 778 778 778 778 778 778 1000 722 611 611 611 611 389 389 389 389 833 833 833 833 833 833 833 606 833 778 778 778 778 667 611 611 500 500 500 500 500 500 778 444 500 500 500 500 333 333 333 333 556 611 556 556 556 556 556 606 556 611 611 611 611 556 611 556 ] endobj 160 0 obj << /Length 161 0 R /Length1 162 0 R /Length2 163 0 R /Length3 164 0 R >> stream %!PS-AdobeFont-1.0: URWPalladioL-Bold 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file PUBLIC (Aladdin Free Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file PUBLIC (Aladdin Free Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (URW Palladio L Bold) readonly def /FamilyName (URW Palladio L) readonly def /Weight (Bold) readonly def /ItalicAngle 0.0 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /JVKNBI+URWPalladioL-Bold def /PaintType 0 def /WMode 0 def /FontBBox {-152 -301 1000 935} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5021142 def currentdict end currentfile eexec oc;jtD[1ƅpTo9`.:ypJ*l'e}#)&7+/^ W{LZ60VQR^λ3r)#v$p~c&'ſ+ %;v &q?ZUE+dc Glt哏>wj,VRp^6>Z'h"%"{=p?u͓3(͝VN:hAWwwg`r==(+2$Q]qh1S=l-oȪkR܃_\n`ߟq+oEi蘯`T&1Sb; ml8gO<}y FGBу0vIox--X$D_٘Еc;ASxd_-o@#R!T3N_&Q7Lf yw_ tڙhQoZ%ߟ^R󑙙9u99 naJOIYuʐR%W/ڶWv#d\uD˜{l_1(QX`nA9>z<5g^ȯ n.T3a`@CPJ@ߥ-4%)hs.xI /M%`9 w0Jf1Rj^By3-Ƴ[Xv7q KuSv+ ]E)އ| dvȤ(w7xz%e4A|FczhV oP6PPx`:b1`}hFDa骫?4%P,G͊~/+DE?;FĄb7_ uhg18!î1aD̢Ť|޸&Xvm7ߝh@lydwj鼪mQb,m@MKporoo0+DUfqϷ6NAy-v%R둘qϴL|y'q s,b|PqjUבJ [ibh ι`2,6 }/NU-6K\v/J,`)vr6U&E=~™" O)luW&=oO&* FTbPbAAP,$'@Y R[D34%~Z419AgC nQ-M!A GA<8jaw] s:+kES = iEx5]|.2 x$,21׍Oێ^[|ᛩ=L6==G/OĖOo:<C=r{Fbz{`eX .!p7Eïi=P3 "+k+j'*<ߖCxyYWܴxBеJ0;$)fi^[JơF?o:dg )nG8%R pqDNa_]'1oS ("Ei&:w?1NKwU|_VրA4DCjM6)[ FxЧI(dO5#- ٠MʖфGJ=nLzkpA֨$a)Lz}~tiY}k#(s_mi3KgͫjUƺ듉F*_fi&`!PK_tE[w0V$ $|j3/wy "xxmX q5φHDs~N%f4Y3<~=?>GjVI 5<;zˊvCYka~Jk(֖;T#mUvjDՖ8|+n=WvtcϾiwU[]'1OD[`.Up\זhxQy~`09MU!x&׎')z)a Om^$q'uLeG'7ǮyQ׌푉Znr8 ε;:R9ZH5/B)58~'>zF")l6uTZ}oF̴8N#/iVWv[v@nhHp-`ޣvr@qUP_i yh,urzy U 4(~3" ӯg-U@:vfӗuS I͗Mݡ3Yp~IɌ"ymj .7)}*~z#M9W?1 ] 'Pȫ%6ESl B q ~JRKliGDivkiǵ1=t%z̳lkH\ƑJg؉UHEIa`3Z `Ox ߂r~ KrkžeٍȆŬ^T)Mdvκ^6>4xóԐ95ce9{6ř%1d|"TLXF_yj~<hF#+5f_'+*LwmCUǃ̺sӧ:< ֬&Q0uim=E#$ؕSrcn,$_paz<[ǟTP\ubu`V0}nqu{Mo MVi7,<;6/yLAzFܓ׹V7ڛl9_V/rO-k mBpĔ ҝ5dqe.nҕ}f0ȭf1}^MhT *Aw'CYّ;OZf͓I106r #Q=Q9.m ~BWoب.eB!0P'z)Ȕmq!~O\AgZ'bE&1$..a.oCE7 yJfK!5{rq`9kf쩱mo(LH%FB?$D+?-;y\3 K{G,/@Ez~> ۓ~P}sͪoaAx~h x<[w)4Ba:S+(t^xyH $롗ǃ. xRr>auOf A˧⺬22LFE[`re{: >‡KU, >Nj[PB0)quc3qiFm#8qBp=cfd[of3ma D&7Ӻ)QeO?!Z{} ~HaDlc}5%Tol'0$'<$R1 ̺`8\<{z~C=0xgwoV3ʞ3.OC[ls R"?U˴ANhQGmD2etąe8[I*}ҫlt h\v>OS?jv[lZ `Y+v;RL'<=*7_4MEs>7s֓\7?W5kN!qJYŘ okC-}c4gˈf?K89@`lJ[BmKǎ^#u~y.?ء<ɾQ_ vm؟JtZtxAO:YEdemE2_sWY~q.Z>LJzWNE!E.#0vrjIdljmd%~Ko; R S tK"?65k2BTTK8"5hFTRZow!/l 3K˪f蒲g"u'ԭ>r 4t;h. ȇ8xY֥(Tс!nK%z && !*sIa?;䐛E++5-~{ȉu^gəѳ3Z;fg!e':vm dF\w3hŭRQXY֣J`֟JrfGv ݜlZVIёPs%Sꍽqؽ~x)0>gI2kc7┘藸S#h}gWJOo ot 'Gh_,b8t02]^:tKq+i7\S`֧wZeE09FO!za9 `mVE̕"؇#>GI7vEaJ_xxձk0H#s ~' 2Kh䫽ku2Iƙ* _pb/^8Ԯ 2癩k=V?\ⱌ rbL)u9 0-Eϴ(ն2m0>S$7^RhgtXKEc|& BJWg7qރ[A}9K1Ĉ'vhXzs/i|B_%wh {ncEڈgڣ#Sƞ`YZo z襪ߠAq24_G9u\8jH0}L0+|1Ka:N:XTwS17{[>8qЎY/nR*Edl#gtrHJԠ{RׁZRBxSr]>`(cXq`OэpoSֵ5S|hJBvS'YuqK }rmdOJ"uٖInkPӳ6k|_1(x㻤7T\GvJ2 ocP}59\k-ˡ>ɷ U2~zfe'65 /'?1a1|&N߲̍ Cǟf4y_HA_‘Vz} PaYRPۑ08(2Պ*EW-b;z4s3 CP1W!^ӜN?H^p%-8H5ck3/wy l[XԤ79l*Tj6.ɊH;,WyXs{(P%{]3cĈm'%pB>`w_vYGzEwcfP3`(* {nx-؄;a~ P}`OC`(Lo_/M]YԿA]DCZ&GGes.8L'5*Qi6{km!. p/1 UQ%~82-ŏ9"Ϳqhqb P9ܬ0EZ,QAɎ/C>Hr /IJ2^eP/UV2IԩU |]SoչZ=' OnO>|G86!y[# C# Yv'qk甥{Eem`t-J!>xk%;HWӏpEmc;;98j!'F3ħS!> 院n=elRl%饕T@ ր O$FϩB +ڃGFmG2_7Dj_"\h^@fk9fՄe@Y?N=LUT6V}j-c|Ɍi걧wj`&/A4rq30F#IP/DrG Z6H^yN]HCZvRa2=jzҔq~X^2&  V;E=эH,p`XKL\,b1.3\%"nѤ`D-ƹ'w /z;P4ڬJ.E;7,1Jzco0YHIA -pltWMV>G!ZA-â* H`n!M3'E {Đ2sL |~v4i7e_KǜIsF QY~cRfj8(ŵBK-u! Dps!ʓ$ٜiol|BoFr祔 P|(0\>W:9ְ{Bo' S (>j>an*g |o*Mk%KGmk6W[|ԡŐdt9suiMWGe`m~#N1Av>&Pg_k_JMD|\7C> "v!m Q OPgUb ,9#NЀzޛtGLduh=o93BNB. F٪c|V"N{4feJ Pݲ u>Y4RSIW#D]G8+᷉:KU.!6 ~Fp؛u~`p#wHjך(qq,m p ",6D\=Ӗ%`⃞5w(P$:#l 4U{=9Gv^Nȶ#1'et5M".__t{hFK%=̚(q͛Z!0]TUvP϶4cM EiTegƷ:oZHG:׫Y"_u&DvP81yx8K[ L0ߜHԷ0¼pV;~cMjJpT.!ǘVrl~+~/i>Z^Ƌ<噌'_wJ:c:8[qE۸NS \8xt,ŷޕ K7+L yN8Cs* ITut팡!44QͅX[2#u..<2V>!:"@|R_ 8e8E 9$(5\}O&O+cŘǼ?=,1 KCm\IX>J#MKcƻl| HCFeqz-ZU49)ˡ0%xEtF%0S8\J󄸑'äh,`k%_8?p;[5uonI@ߣֽqr❸/4w$Gi$& b`S!%7 X.:n5+# ͘WfO5WЄ>gyfa>~l*^,oQ<R.7(9wv"mur9B+A 8Hؼ3) 1e0o&*kQZPɷ3FNWVn-{G!IfYW{ G㏘|Xi.~eUQwr=_CejOdv3dNl.GB?~XmAOFLRXf?zRùIcrs8\)`ZEKfMړl#@fl˭ffy]$IH삘({k輀]Rc98uON9O@tlFU[V\牋3tJ5 ;H&/GK(ʯtft1bMT]^ z.rPY 0  $ˁNDʥb3$Lyߖ:gkcs[yZs)QvY89W1<)_9y`8B:(B{Q\oz`<>j3%7yg^gDz,E2_ꍢ'XjeIߖܺT8kmG+\EW욡Q.4Q~ʲA±(ӹףO2[ OQ^h6N uK1 :kj}XvUo#U3ًVn5^gvY{'4CHe;c=e|sb;RR5qEx&)PӦיuj 0sm*k["V9OX'-1<0Mͮl~7Úoqa>_swx[^^*OvqTqI&ia]yI>ʪ)&D;ks 2$·Kք7m%U@ԁ!;` ,l@IaGtKZ눘$ּy:cq484SE333\\msMLX+2H?̠HS뚟I&ڂbGN\W&r5RN^Ϣ٥XNtUq YGYT]=_lFB~.$Z aזK B-}x@ WKpmrtE_tqߙx֓SV:b[$o\ " f34N zԨ\yM\#Z:X pztw=Ќx\VK{8fFBM$:~ p0R,pVY=6tgPA)j~&l1ҥ?5#0kGfٙ ΕܢO^VgJvhqke!uOɹnv1^NØzg'S;;efE՘qPې hn+%+ w3)Yf W Vv ^ke7%QQ9=.M|s Ÿ0QFoA4LP"ɋJћ/n 61@'$-*3G7l {$n)GK{ԕeqOz5_ۯ2nPetCdV0'arR,`O#C91DkIUȞ|m^w'x{v?GEm鷿TX\!lD՟;R7dk>"t+g`t PCyte]dq";NV2\I萐GqlP]'-Jr7A^Tgp"&Sv!ia)&B7 \z3Ⰾ+x4 [g !I0i7܆ ÞugSPvx@ WIhN%OؔUAPr ς ŘuY*I}®wݗAO0e$r: եtV8 0X5h5l{S.J-Eɇ;Cm^79Y;PmH&hkʃ $̓$\Y\eZ\b:T9/(r,8~$= Q ݔ;!#Ʌpݙ J֐dˑ'NO%X6nj-w]o8ڈǂ7yROF˩{<ڵe~2."a]hDG$bCbZB  n&#'e'pʃrA. L䵟ޒ-ɄEV%Ӝtw8kf!Ϲ.;TRà{9?Ee̎>ʫߋtmNۛ1N3B߽݋ ]; m/ξE^ L\9a6-ܝ<0KL&JH@%Dy*.ºYu1ؠbDܖn 9}ͦW!=ߪu$( 3hT һ $D !36fLQ0f b`*Xs @==r~ ϟLwF/nGn?(|\ qҍPaJكFj>M"sTb])D1gc~%qM^wT.ͯ`jE`jf}T&\ʀNqZ%yVh抈yP.V}] C271!m l :jJ/ ݀Vofya1 R㧶B &N/[Uޤu# f,7/ı@/ccn_EF^TFX6JrI j䭣"#r|wޣ8_RW#;:6>0ձ#өaZޖS\Z~"_v:37󶕾;ͫO%+q:JYo=#S7 .< W(0ͳ(>^9L*NmGD8>̽嵹~8?P]Ƹ%\{>]MV,gMI!G`mpX?w'ʵcv=KZ5+a uz W[Oͻ(DSZ orSI~voH O"!Zt*Ecӽ}oJ\\.1AyTGyZL\;yD33(ލ.WdsHuV ]K *W9Kޫ5d]{b:{_` ÈF29̪C~3ťYVۈu>+a5wꐨqtYV+4lCHK%l]s-rl'=2hXR@'Me']vc*քs9jPXҿ˃0w*:h#B9}s*fMD}wtt1@T'=_V0Lɠ7}o&+SolUS X!p*jh*Dq1{@ZyiPkÛa連42N@% Ält5FDp}R"c[P)Z ġs9^@&چM{ct?6 ?dRz^y ^M.ye1O哩z'nAIGWG95KrS&}%M<0U%ZY; mCl*"MtB}T!sF6ޅwwH#x@*œZZzV92M\:eũ{M^V, t.'6~IDƦp *e{/of!bZ;L#b,58uyxSa>1->syِJVT[E)Wo_\xiXWaHA#7azPTiG³7sr>D$?q'=15KN+u|"K0x#qW{2 M<B8;msgQdt} =BzdMI>$ avk< Se eVp#`ه2:l ;gq( 9UK7<2mH*lҢL)'ȓu" K)vSC&$FfxW<^Jh>te ,c32R0Зى2nT(?/be6_|wx\Ț7 -jgW#+݃u})fWNjG98ؖOSP"F4(St$~(~0n}*)0&Ȇ'Yv>EW(uxd>b쩥$৳mҤoP5?1xy RY#芖$͠S9/Ď5!y*"a}eMxLs35iTiV duWxhEJuI(RK[~ "COiGӿՌV bX[, nK>1x7BmRH'4׍9d^khH#NWL&:g8^V 05UG]Q'lH] mmZȭt(~56>Ңm^%6x[t̊E*cNV(c5dȦӉlaYU6->f|IzI@ *e(︰4Rvy~G|miyrޕwv[z yik[^20 K{מElaߥEtyGBlDZۗR-P#91HՋ/DvAc@wzg%~EXYV5Z⡀]; :oz|ps[XitEU Rյ ;@ML ^A^1o6r0gQZgoV9]"^ۻtZ.Ҧ ~;Y71f¼̇Oȣb^~?1T|KpWoE{AyWٚgQX]gZX\ɖ\7|̉X:~YCZt&RR#v},^^ł$Nѱ(Ih i{HYWfW[APAh(1 *=⾜]~{a鰗h]X佰$q{ - Ȁ fRE`W,ߎ0i{\„ " ᝺iARPnJj@)@uiZW9sȣxcS]UnvAYS0^F9@RݦNfG˶P}a8;Y!h  5JP3GҺ K9 s.=*%y8`a30kϨIh.L:,ƗF[>5(\p.ֱ! 7ʘ ~3͊D%]50BpO^*RRDճJg7Lٕ]c5TGT@ebgd{s@ox&iclX?.iya3i"*.Y4d*hЭ~'j^w@R(ϱK"ŤC) V.^WwIyQ]tqo3E"-`KpO ƴ?o@_h7i/>-Q/RQ纇W5X`bF(v|#zsEYNjjb~4 @Mp<g\'w[ Ԭeni4/(*|\O+@"EXYНwi{N]nLxY{Iv&,K|a _iƃʻRl΀8|kO^L?r}hw@_H-rE.AR:r,3cOVsP4Gq ATA$MQot6JB{ 5D/ |oPҍZ{7ɮP{z+WSPl߳J y.>4Sh)$YZ!b- z m4e<$R ?@rP_'v ̇d\>!bՔSpgRA7j\vڐK1rhsסY|"L$Qh4*9e@P"CDeA`a8 ;O cYDvprW1L1 ]&+"T%γT`)<(υ4u 9"vSԜS1FܑnIaJR|HLh,=ney_t?n޲a70yY‡<=MΚ)S'֩sjIm W{8KV?wQ (| G'G!zp^%t$N>tq?%kGθSEYS`^DYL%&KETOHnl#y.jF [uzCRPS$IR )A8N2x5Ch!CU#qgynYZWOfZ U!ޯc +,M-\f4I%}gP-Rncj^ v:H^<7EN_e^Gɉ~KUrXbޗ1j=aFP~CW|D|7))|YrXm,ygWs؂*wlm='(:TOT]^z<"ါwEL}@c%tw"ԆE)7UB8}RpJQ3b|(1$z2(vU za%>cldi3 BݣeC\ *<~%|yƪ`S>-a#GwC³u2sB'=?pq?sD8s@ݛa ;,>Jú>o,pHos"їc# <[xw~JI 2yAE -B{gsM9\4Б!w4"FDi ~{7HdmDQmhQ#? >_3;ϼ5{||b%. f &!Ůvup69ԖY^{tN4M?YL^uUϺKNq凛L6(eR- 4OϷ3Xțҭ!DϝC\+<OxW|lƼOOd2JkVXihPlBwH~k]&(>%ZvӡD2+x:PbFhŎlSa{C3GzD#ijf$KsYr> endobj 6 0 obj << /Type /Font /Subtype /Type1 /Encoding 118 0 R /FirstChar 1 /LastChar 255 /Widths 167 0 R /BaseFont 173 0 R /FontDescriptor 174 0 R >> endobj 167 0 obj [ 250 605 608 167 380 611 291 313 333 0 333 606 0 667 500 333 287 0 0 0 0 0 0 0 0 0 0 0 0 333 208 250 278 371 500 500 840 778 278 333 333 389 606 250 333 250 606 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 444 747 778 611 709 774 611 556 763 832 337 333 726 611 946 831 786 604 786 668 525 613 778 722 1000 667 667 667 333 606 333 606 500 278 500 553 444 611 479 333 556 582 291 234 556 291 883 582 546 601 560 395 424 326 603 565 834 516 556 500 333 606 333 606 0 0 0 278 500 500 1000 500 500 333 1144 525 331 998 0 0 0 0 0 0 500 500 606 500 1000 333 979 424 331 827 0 0 667 0 278 500 500 500 500 606 500 333 747 333 500 606 333 747 333 400 606 300 300 333 603 628 250 333 300 333 500 750 750 750 444 778 778 778 778 778 778 944 709 611 611 611 611 337 337 337 337 774 831 786 786 786 786 786 606 833 778 778 778 778 667 604 556 500 500 500 500 500 500 758 444 479 479 479 479 287 287 287 287 546 582 546 546 546 546 546 606 556 603 603 603 603 556 601 556 ] endobj 168 0 obj << /Length 169 0 R /Length1 170 0 R /Length2 171 0 R /Length3 172 0 R >> stream %!PS-AdobeFont-1.0: URWPalladioL-Roma 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file PUBLIC (Aladdin Free Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file PUBLIC (Aladdin Free Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (URW Palladio L Roman) readonly def /FamilyName (URW Palladio L) readonly def /Weight (Roman) readonly def /ItalicAngle 0.0 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /ENSJYE+URWPalladioL-Roma def /PaintType 0 def /WMode 0 def /FontBBox {-166 -283 1021 943} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5021141 def currentdict end currentfile eexec oc;jtD[1ƅpTo9`.:ypJ*l'e}#)&7+/^ W{LZ60VQR^λ3r)#v$p~c&'ſ+ %;v &q?ZUEV[7b~FJOtǪj<ʂ1-Yޱ;l\<܆hV؎GYxx`W5kHZ>1SR@7{WFV[~Ac5r 1Gے$Ȋ8/yUM\T4U3m"0G xTx>|a!Z%aDD`5=itj̪?H)*##qȲpCk*,BqOD1#d*7(S 2:U勧VJ@,#r#jnT*ߧ[ d]1%b`nˏ#i0US?<GբaǀT H6RI/ swl!Bwo`_g26S^_dRr!(ȱnW5 i6ی䛉D1ş?X-ܲ[H0}it^B3V* =J'}%Gz(yH&X2L;"CD:v';}BGs<+#iBX4eYBҮ3HVCMuc̀OT+Ƒ8B9 kGS >a,bGV,$r!i#Nl\D5+\WDsm@3klmҳ3p2Ӽ(-iz+h XP840ܢ-Y` Oժ5}]d̈́2\lO$ɯKwxƤZiFQ*c@+&dS=S#~*4RN1nv4X/ن%q=mbv]ӧU^=cӻ; hDc;~7GZ@¶~}gD:IzcPFAٺН8TQzyF4fj 姷\2m9WD]r?CZ6kovqicuGXN҃@vR;%ӌBHLJV0HLCJhEv-0`*+ܱDrIhT{sr=%j5!)+2Z(~$!-Dl-2Xe:>j-aYq"#ȋȎMh#ϞwDa#7NN,2M"Rͨ8eYd@$Oڃ1 AGѓ좤I%_ >*9!1L94%P_YrvgHjwrYEd1֖AֈUN/2=HylS)[/0mhV&S 'v;E]]*WVV5B;QD .EhHgHt\k|C ET8$>6q_u$3[RaܭسOiGͱD7tOFL7IMJs~h7yy?`jo<(fq W)nM>lQr5Sۅ!fS+"XTKq=?G,h+d)Ohݵ*h9nޝ hO rZ\'QidAX\hz0̎]ePyWIC%k+$3ʉrЙ31m4e%(qO0 .vKz`SP(@x׳Ġ32EcKn%hΏ!}"ng3 Ŷ)g:1Ѷ] .@wyW֝\a;``h1^bDVET)&{dJY0$Jh16e;1,|]ϝ^>rzYptDфV\ $wY%YNm!@rWAh.,U3'+|>!LSɃ=]"H78;d?~0m^\uh{ 4;$Y[B'?=vs% V0F1GѪ )Nbx(sz"_xrBarHśW16^PќfH(p5S0r0+ܤ9bd޸Q RH+PH+?i+U+- @tP}wUF$\5[y&O$0 O[>WN[ /[ňl;n1=ճ`ǝ}CZ,cĕSD SkbDv^6A7+ڗ,f?[g"Nc? ӻ18{{C N۽!cкF2 =+!1infi,@xNOPs2ggގ[E3a뀡K""{q3+h~Z(FEFZ>JR@!wPܫa.r{UHh˜5L)`߆Ζ)[~ϕϟЍ+^C̪Pjz|P,J7WN) r/m6g ijU_TD 6xv=)>\]!f!+DO0-~HKS{ bo3۳Cٝ(kބF1@H;__֯x!$4~64^:!Skdfm>;^E[2D.{ ތkm^)5Ñp^~ wj#?`8)/IĚ -'K(u>KF Hi+LZ'DZyvwpUj}7`/A"|0!qO/ V~AEx4jlDg yOw"ڷX#?[CfE(UCv"#o}]&w#޾f78r3_U\ɤd[GjSmFJXΪAT+w/3Ս8 P%Dg-inӢi/t|O:1q▕jY蓥pxm3r*,û{ӆMN),""ra:V»`p^\l/D.Mq 7G 'y}PgCc!?eFKuxV*/~pgbԴO\cC E;M'*FwH/y[x:ӭ=XGna_αa@hdsF5Y SzM=U >zK75"'F6x-'"ۉT?Ndayhz26 ͋+iqC\y./eٷ7aܐF6ɏ[ru ͱKڪ}%l"zŇaM3me'!>*艃8N]D'M&:H~1P 7(#3eҮZ&Ꟛ-F6/>.{SMFr74:!k=V~UM(߶p'LzH{# X6NCv ǣ4!u%00Ry$ A4 Xy@ fK_[]EdUu'|REDFEz"E#I ;.Otk شp5&"sȍ߀]>nR2(%9Dޠ_R۸Osn1Lkyꗟ8(]wWamqri%㆏Ct%aHtE (9ecn\uzWm9_ MH*D|q^rVx@n;܅ @%Y_?Z:B2,nԐ= 6蛪^ ;s֮$Q0{Adnc;CզBR>r/m2p*ă(,TX_[DVl 駄`ϰO_XҎY0`͹\|]qtt'M R ?KGڡ>UyвHi^&Xߑ'd,(-*r/Qh#kI9ԧ ˆlCJ6 쒔*-><=XAY|YALijUdvQyxkcM(rwIԵ8ͦ)3B6->};]1T K$ᨙTukY"K53{FƦP`&[ICv:T3s+I';ɝYFRoaE2t+)Hcs ` r'$P˗=RO[QF\+ =Tgf1qr5 V7hgyⱼA<Aa=zFcĻe5ǹjhdLŋ[GalB#i}H4==͖}~]ջ۾lF)e5FCd_/Ѐ}Ki%Ѐ!``Sl d;7V mZsSt"HoS G*ȇN7ar0Κ?KV,jnLUE?M{2p. dٱ.xpmmW]qBDK0QG:+GwǏ&^݄ FɄ<oѤ@k<~)!& R H= iS'+1T͆aPI^ \V1ln|w(qXꊫkBK类Oɣs5dgh[+n BsHTmTҿ(DUEu~/B6>jǵb󃝃f3w&{y-޽'7 ?gBah;"?D ̍:%H?+K7wRA]-\ h`rK mkAdtBY=u.%y|5 âPɑĝCΖދ1@6c;A+df@C;rX N~Of^$Vssbfem*+-G>'qSu023?YOlMڅ( ¶Cx:cYڡ_NXrT4XK?&::}O,e+0D}!9P5sSE~YMBHTW$lx5i"dսJT[OE, [_Q*6[H<2%C@)ؿ ^=DCW-Jin:Pmᮮo %gP3p=IA…*-moy>a^Dq?CΏ̶88i~ݸ*Caᶵ, .^:o2Kȫ*=$NkO9) fxcz|iܴohߨ7O!57 2԰q;o^cR/aXN8X]VF8{LN3wW'L† lF樨Ǧo. eItmf* 6J%4@5ųE1@V˨χ'G>} >G<4ƾ|_Y[~ZX6J_><|!nn Γ踣wΖsH4@(O-,`iޠo"v^bK'1°Ak酳i Aj$OfjkXexEPNފZH߸ka8 fT{PE>B_|ӞC_BxTX* wPL!Zu*s{.1(;΀Y8' U"}{LV!6 FXŧ!&&akDKS&7CӵjcP-YTH -˝BHpIBf BpC }m-ǘ;z^_LG/'Ya:I8[~s>`H 2*q!_Pc[W}-Z}2jKYSz)2-4YajR}:Q*f~a֠':jqsyhcW'ɱqSu1/pHn.sfbk] D$ڌȉ9Nq-rBc QUTp)w@?ķr@Vp.J҉WJZ3{"2fa DT% [wSNHhO\r^<8ϻލAO%58g*ߕZJף+zXu˜Q&4hU2d|4F.F1aZogDm7/Q 50-j|jH7OeZ@Lڭ<rP 9KiMo#J}5L$Miq"|`iGyyNx4(hxHA3:1 lPyV嫞rvUsHs-\c+iRG:]"2$tJV#;!p?7;řKEâ_+$Y"xSE˓ GZ8Uy{2 P-ſ+ c_U*XDz>vV$Qd]51|uW-s#6΄W6y,r(@!QKAxJjߖ;'#g $6Wޅe5  _%AKs6<ʅWԩ܋1 }Vq_ j*<%ɢ , 52"/>kK4s4d"_ԍ2FAtTR]ɴ:kX:ի(۠D^`= P)9J4{" w Z8=xV>[1 ~hC1?`>@-Fs?}=bW "Ah "BTZkh+{;AdcZY_c! 1w+UK 9Mc.$c;'XPliyJsdؚRvtsU?X)tJ/pDC_{~:(M|Udl.p(>o̓$ 'hf}Fwd0%>AX Lݿ<8 hͮ?;H #T1s1eD41ĉkrMîm-g&DrD<}e,ACQysIT6OOikc];,䲃UFm.hչw0R&A]:5XY9~0w!&˴z%0!:hDHno 8BR.@6"S!0~8FpF. 3/L$U8L*yhknu\v2ym \bgIMy[FOHɇ}zqXkʄ V"@hyG_WFvr섏ΖOϊN,/]/h!Ap#잓V N3n@ei9`~jsQ{Ƚ p8 \vkNT8m_r4ݛNYބh#tBT<VENg21IGf'nЎ0"ekQ.mL؄7/k2wf|2?cIQRou)YvG#;]#z7RU֞BM1G$'@b1ɴ,!_2^ؐN5t5Gn*_afeG$i&]֋.Q##QrȷN~PG^rM**@Ew?2Q)yS\Ϊ"a5[CsUy]?gl:a9(/s{Ѕ"ƄvIz:s T gkF_)YDcwJxZVJFżⲂÑC<| Wp xf//l42bwj'"^{6ڪkTtMTωao:>k ,)1_4gyS-Ū?h*F[e3i9&R\Y% r)p5.`DS׷O$0c[tʈh1hy6~lX<C=mfpkS3?T5uΖRw ݛ9xs)!%Vu|\D'1h'7;Vd|2@^%sY&"aQ3#CHsQKhB/$\m=DъݳõW۵{smnj` T |Dd73IC,:Yv[ma4]@.\3"*kxfXtT,h[RɆsNM.`3Od qkUd.,Wш,ѣGqg# ("hDXǐTgeEYsd۰Z5 HVNlU+_7-|#%J7{:@uIolڻQ5YS,v Dޱ0AE̹=7cl\Ct0/.ѹVVwO$IcA ~}`ij荂r9B%Ld'Pw|XjIYyr`ѧRk5.6= IbZep#@E]5{*V3Ó๒јWpQ*>vH*:FhGஸ.mC>LhƊk~EL1 P@()t$*k4Y9xcUTFKE)U{em3*b8 #""Ec[]r0;MZe% 0QMVJ1Iytk#Rػ 9v(hj[BgHr悉Iu&9#v8b}xQb0 85J,)ntR.BC |[QKL徛o7xD|Vo{H̓UȊ@Tu9+K%vqGxv73[_/qfn ʗK Y,ڌݙ^Ӊ4;w, ٹX jM=J1 Ai^+5n+g`g`sF 5>¸=}=\J G| LZAfab']0-8;f&#"4Xg|8$6ȧ9Eٗ˭ʲm~U9 }|.V3f0?lI*~rC1鼪:<塡\FžBJZVwԴn,*3#YInϤݝQWw`}ɂ:^2:)QGc?bB"3 tک]*.hfg$<2^_y ~)%+Ξy%aWNV]}!tsD!;D8N^=)MJ O?J@2(Nc"8$n|~8;nH>MQh70}sN(݄͖[1if㜖 s&_5ME-c`WyiO_te={~ \qoY߈#UC=S\|%6;1-w\+v7SHx ֈ2V7\*@R| ư4 ' 9wYΕC ;T'OM4OQ!HP!7I^'Ci5L F'!OLD3kyQM!POy7Z&BO;݂?yY50|diw <~ Y#wѱ0] ."I<]!y*M3 3:Ev2MjT2o==ȣX\[u^D6#m B܆.0;ESk2Z5$=Q !x UYATxdR.>7Y86J؟Q{v)EY&H~'"ڍE:*BᚕZxFSʔx@$NG`߾KOcq0]zulP:xםXdưOX3kIHRrUQ{(%\i4Gp}N,v5F*%ͽKcaVZ,%oTS g!VJ >/1e\u)eϝ,D= pM츑 @f7 jȒb:12 H44{c⁥9:sb.n͸EilKk%I4Hxd+hC=ȉŎO?ܔG16kii@7rQR{EgUMa6% =d'?HKS`u$L L$^{8TMP8;"qTo9(~q9mw-ؾl yjv", 6&*zo ^5_}4*vR:ȹ+=C4&7exNIp!:0hQFQ)Z=My~“uTI$&W~Ta3_̥p/i2VDyT 6ӻb~ڿ as%3c ,V* Q Yi%cT(`B8reS }f>4^yQ°JMIҚL@ +Dj%M_\@`i|q^]w(-F<@`s}ñ {HxrX\4L8IVRA~#)z$YՔUCt a8{z o\ f+JLFAp/Jyڀb'D)NKD;$#mgNV䓣t?AoPu .5zU큭ϺyЋ'*eN`Ůx= cv2f] < ӥt϶ZB]ډŝ3Q=)nOrtKNU8ƼZMʓ9Y bb-be}zq| | >T~9@[=ݽigӱ؝\a^0H$YUcEX0 \;SBɧ7<:DŶ9zg}2훻Ҭ.3AĆv4,x.wշuCM7hjR5gbה4*V(EyT(@d+UV~>wYc3&% pXzLBf!n C|.[XIrYpEJ lBX5G q՚socOwVJIʿ9 Dh1Vylo Ew9j˻1r!/Sp!Dp_}bc}$/#nmRCF%Ɵ~85Z8 I ۏVdn BIș^B;=&zv~a !s(4mĆ2y RU  2hnܜ(s~.ئjz4[_:!!dfywK2SBelQddF"ӆOQxEؒXL gSӭu&.6[dL$Ƌsޙ,T~ŸhOOK G{.CFQY63*]!'36!L ;eQl_*Ɏ#yӇ:#ՊI zg.'?r̗fE8 g^;颿$BxSen@݊2عd*}BQn T* Qz0f$8E~EB†=2q4*`2(ma.[E8LOx"'r))6,Vκ9MJ=Ϸ B,sGgM:Mj 8gUVD_Ug Ky!F6u &5>;k5lHXNzCwj?nF+2WaW,xP2vUJ2:J&gTL{s-4DNJټa/3&GqI 1ԠB=^hpjOSoL?D;[\֌=}+]n4h$Tf 7E;j(|z꽮~azQJBW˿f('>aHq~Zu{ـNqya^:q͇VW:8A^ݺ|5yq¿.1s e[*2gZyr.R}W,b[f;x$Xlqgl67f>Puv1^5W]XDw%-CWl2}HŦ*C212a0'އ*2G0iCuM.u`3mF˹6 ӹlNP{NC[(u1(igkw!ttxR~gVo4 叱l&&9`j0ro\~Lˈ`9}xBFjV.pL";qLz˻\k ,Cv0CHxSl.X! 2!]s)vhaB$B2)"%5eqO7,c};ã%ǭPFA4 _O!%Yh)^ F`¼E)8yܼftv{ NuyqORi/Xᤎ#ѯ=%vHp]i&v<_1m[M1?2lƃ+%?jpVQiB?[P3++TcAPwD#6G.9@qY?À'_E]tpUZ0xig7ungwNv Q( f86~חvt2Xg 57XT/}JQ*r|@ 8:d^h4-ւo=*,$O&Qb]ݱK{C^bQ;eH$hH'E]j2i|% X7iH LE%HHz>rd& -f̭p2E+E!ЮP[ ҫ^kp ۦ[$Զ#]Zxq+Vp@EoS٬sA;ۻbo|:`Q8p@$,_B9DSR G tӀ͏ȃu(V- +jRoIŗUP=?lH>e;J`6/V1I+Z7KC n d:X6TNbČ΍-BQ]/p&|x~dg]~E]2{zXrKFY GFM;b@-3wɫEĹ."BdwQwRZػE AY%c03*Bq< >usk/;H7(4?~0Avy#zp187v<3"P[UHUNX_Uv UA +)xMpkwXH1۰ ؐDgU 6dj!gZDxܨ,&A@J Fq,+YVT8TSpW5թMY&<?%mχpeZ͛^I.b:)XUZ)߶hHmhCE&R$&Y`JG\l/~͔.gwTwQqۚ rnD弦(fjtgMy%)lSKEl OXM߭P@%H.0rxۿ3>n{Zm_"x?R2t>؋NFZzC:r[-hyޮF5EƵI`EWJP'՘bw["E,Mxal#>`S;*O $#L.e%_ XϷnZOiGߔ]#@EƏh@l9Bzt|kS|Ŧ[~b8T PPixM}EM%1I^}dCa?zS W^V\wH,rcc.ɷ>/ќ[*E a$gE4{bDqJh:6 MP΅#Czeҙp.3c z(QȂ}jtp\) ys \2Qn*iV|[_xX qΒ;q+ g8W Mq'`(.~1f4_ބP?Ox hwB2\T!8Y WXA ;gx<P_C*EHfw& 8;Ll0*҃Η}$/W)Y,tÐ*k1QH+O|4(5`U6+n xahi).T}mǓk$} -s:|)Åw8 ;aF'6ƆyJqBbR\26>3A~Tmh݃HV ~)$% 6!>Ix"]wݿ,oel,$cndTciK0$M,h`^) ]9#L.L@tO%̘} ~)Ȗ^J *@7..qC"庻}n;H84tCp)9f.e*ulpI|H1>|DB,ۢY0I8V"㗇ze\;չw?!YW\}Z(M2ZQ8*<}oO:-K܈ǖ%@0*-x!/c}!+ N2rm~` %ַ y1umV\3u(Og˱M%Lpyg7jzcȓ+β RW~ ڰfF/VZʏ9%'ϛTK=DTNxF,ʠ8E.Q 5sj%%[tSR&ZʒTiKn^=6SЮn lo)4(wͬ&]xGM}i#0}QB9R=cYI|,_{Puo=yp38Ȍ S0( -p*Ǵh%&}-PZϳwf$YTN"뻓dQ SB6H%_K6f#ߓ2qL!Dk 7|lt7rv@޸x1~6.m0˕. y/&(p#vDE\7㦫6>RrJkeAr?s-c:0S~fsH["q9}lr%3cq=aJt g6x83r4}&X,:ʼn4D?-~ _ʰLQY|mO?uutTaHGZ. &fKƦ[{72b:"8 YΚ nZvۨ:izoG$pe4,霛pXbNn=KivF@8Y bb(ڧ% !<aVRBzlA(xiq7YэVieQZ`4O(rBn xMmwNePaSj缱_#,(ejjpnB² ,^֗%B ??:zU{z&>*2=3imaY蕾*:̥_smj3vq +`ws'jilp.wrA6,םQ#IBt/QtP!O'N`nlKz‘z)e?gt6MF}iPXbsDE+a6z]8o&SD0\ &%fO7H%XP ZhY5<*aX4Zk3`|g^WlJH(:#$qCLBŴ;%r,`^2@gnJAҟ1a)Q&֣gK>|PsU6=:ʁF\[\W<ˮ2RGmZq@ INB4Tg?mC!'.趚iB;.L!f|Cp5NJYIkN΍!W|屘>)!QI#s#4F8ìgqgַ{OVO<ǂxK|4VkT#u9Ί U=WhR9|ʌN?%wvEڞfni@jq֔PijIy؊}\udE2𝢂8{o/26W&Kk):Ch'$#,˞u+?BNs2>+5 j%K~%q /r57]w^U00 3쐘͖ѧG@*ńK:+X*vHq\̚pC!L ^=( )BdCrBW2|"IbA>jm~2޽( U^ ),S 'H=.qY.2O$dF,+,# ' ApC1O/)ynjAެxK۰¹ǘ?W9jŠ=s>->Q@zE_W,']W ߢwH@yqLܚGK*9{um5 Z!7×o%ե4ܱ .̙m] 2Or Vef)PNIJl/B^^xQAl V/2n?@m_r~E`ѶXkVPyVs*jXt+#H~bXڗ \Kd #-].}CXA sENԙf^٬iS۴5#1EmȘ _u}tֳ /G/;Ѣi0O).l;j]"==JQbJ;`n{r޸6\pD )NM9.& $Nf*ZjYF%WPI;},ɟpȁP %YC3]h ;gĠ\* +HIK $ 0ƕO7B9eJLCL,. U݆ N953>y~>}M~`2ksT=0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 169 0 obj 28556 endobj 170 0 obj 1638 endobj 171 0 obj 26386 endobj 172 0 obj 532 endobj 173 0 obj /ENSJYE+URWPalladioL-Roma endobj 174 0 obj << /Ascent 716 /CapHeight 681 /Descent -282 /FontName 173 0 R /ItalicAngle 0 /StemV 84 /XHeight 469 /FontBBox [ -166 -283 1021 943 ] /Flags 4 /CharSet (/fi/fl/quoteright/parenleft/parenright/plus/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/W/Y/bracketleft/bracketright/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/quotedblleft/quotedblright/endash) /FontFile 168 0 R >> endobj 5 0 obj << /Type /Font /Subtype /Type1 /FirstChar 0 /LastChar 127 /Widths 175 0 R /BaseFont 181 0 R /FontDescriptor 182 0 R >> endobj 175 0 obj [ 778 278 778 500 778 500 778 778 778 778 778 778 778 1000 500 500 778 778 778 778 778 778 778 778 778 778 778 778 1000 1000 778 778 1000 1000 500 500 1000 1000 1000 778 1000 1000 611 611 1000 1000 1000 778 275 1000 667 667 889 889 0 0 556 556 667 500 722 722 778 778 611 798 657 527 771 528 719 595 845 545 678 762 690 1201 821 796 696 817 848 606 545 626 613 988 713 668 725 667 667 667 667 667 611 611 444 444 444 444 500 500 389 389 278 500 500 611 500 278 833 750 833 417 667 667 778 778 444 444 444 611 778 778 778 778 ] endobj 176 0 obj << /Length 177 0 R /Length1 178 0 R /Length2 179 0 R /Length3 180 0 R >> stream %!PS-AdobeFont-1.1: CMSY10 1.0 %%CreationDate: 1991 Aug 15 07:20:57 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY10) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /VIAAAA+CMSY10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 71 /G put dup 79 /O put readonly def /FontBBox{-29 -960 1116 775}readonly def /UniqueID 5000820 def currentdict end currentfile eexec oc;j~EЪ/ ȭX~id}S5Q!gtⵎkJc;rN^X5.Sy +'IqV:r㚉#,# dBZ *R*"7٨y=cLIPsF'f> ba ]fv+QAwdO[x"%Sx~{p҈덡|O BÄ/GL3h+Ng03jU1~akDzq=U}.KY碌 ֻ1?C N2Muh/4Gm&v.d)%\о .u J⫣UN fl M|ehI6}Be/\ou'}BaJI|EƐ'1qco>$y 3>-e6|?Ȥ)-4v^fF0CՕI./W-:Hݒ>ڛUZbAF{_Fgɤ?8`Z/IR._kOG^O§~֏Ep8MKe6}҇/[ =\^,U&a%˱<fzxmLdxkXR9c9*Z>[5+yȿG5:%J69,Z*-w{/c Im9,zw^7!ZL< c5G{dIƟB@b$_w뜪݂..h9|kZώSX$&= 9䲷3۵\0R)+ȓwpLD"}k xJ=*Z%|uŶ{>lq0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 177 0 obj 2223 endobj 178 0 obj 781 endobj 179 0 obj 910 endobj 180 0 obj 532 endobj 181 0 obj /VIAAAA+CMSY10 endobj 182 0 obj << /Ascent 750 /CapHeight 683 /Descent 0 /FontName 181 0 R /ItalicAngle -14 /StemV 85 /XHeight 431 /FontBBox [ -29 -960 1116 775 ] /Flags 4 /CharSet (/G/O) /FontFile 176 0 R >> endobj 13 0 obj << /Type /Pages /Count 6 /Parent 183 0 R /Kids [2 0 R 15 0 R 19 0 R 23 0 R 27 0 R 31 0 R] >> endobj 39 0 obj << /Type /Pages /Count 6 /Parent 183 0 R /Kids [35 0 R 41 0 R 45 0 R 49 0 R 53 0 R 57 0 R] >> endobj 64 0 obj << /Type /Pages /Count 6 /Parent 183 0 R /Kids [61 0 R 66 0 R 70 0 R 75 0 R 79 0 R 83 0 R] >> endobj 93 0 obj << /Type /Pages /Count 1 /Parent 183 0 R /Kids [89 0 R] >> endobj 183 0 obj << /Type /Pages /Count 19 /Kids [13 0 R 39 0 R 64 0 R 93 0 R] >> endobj 184 0 obj << /Type /Catalog /Pages 183 0 R >> endobj 185 0 obj << /Creator (TeX) /Producer (pdfTeX-0.13d) /CreationDate (D:20031119145900) >> endobj xref 0 186 0000000000 65535 f 0000005315 00000 n 0000005202 00000 n 0000000009 00000 n 0000005182 00000 n 0000223313 00000 n 0000192899 00000 n 0000165287 00000 n 0000161877 00000 n 0000161791 00000 n 0000135500 00000 n 0000128941 00000 n 0000125105 00000 n 0000226632 00000 n 0000011929 00000 n 0000011813 00000 n 0000005530 00000 n 0000011792 00000 n 0000017672 00000 n 0000017556 00000 n 0000012079 00000 n 0000017535 00000 n 0000024161 00000 n 0000024045 00000 n 0000017821 00000 n 0000024024 00000 n 0000031232 00000 n 0000031116 00000 n 0000024321 00000 n 0000031095 00000 n 0000035771 00000 n 0000035655 00000 n 0000031404 00000 n 0000035634 00000 n 0000040243 00000 n 0000040127 00000 n 0000035908 00000 n 0000040106 00000 n 0000120727 00000 n 0000226741 00000 n 0000045668 00000 n 0000045552 00000 n 0000040381 00000 n 0000045531 00000 n 0000051688 00000 n 0000051572 00000 n 0000045849 00000 n 0000051551 00000 n 0000056488 00000 n 0000056372 00000 n 0000051826 00000 n 0000056351 00000 n 0000062138 00000 n 0000062022 00000 n 0000056614 00000 n 0000062001 00000 n 0000068788 00000 n 0000068672 00000 n 0000062275 00000 n 0000068651 00000 n 0000073061 00000 n 0000072945 00000 n 0000068948 00000 n 0000072924 00000 n 0000226851 00000 n 0000077985 00000 n 0000077869 00000 n 0000073165 00000 n 0000077848 00000 n 0000083815 00000 n 0000083699 00000 n 0000078133 00000 n 0000083678 00000 n 0000120632 00000 n 0000091155 00000 n 0000091039 00000 n 0000083965 00000 n 0000091018 00000 n 0000097918 00000 n 0000097802 00000 n 0000091339 00000 n 0000097781 00000 n 0000103643 00000 n 0000103527 00000 n 0000098067 00000 n 0000103506 00000 n 0000114686 00000 n 0000111236 00000 n 0000107475 00000 n 0000107359 00000 n 0000103848 00000 n 0000107338 00000 n 0000107625 00000 n 0000226961 00000 n 0000107759 00000 n 0000108302 00000 n 0000110929 00000 n 0000110950 00000 n 0000110970 00000 n 0000110991 00000 n 0000111011 00000 n 0000111041 00000 n 0000111371 00000 n 0000111910 00000 n 0000114369 00000 n 0000114391 00000 n 0000114412 00000 n 0000114434 00000 n 0000114455 00000 n 0000114486 00000 n 0000114821 00000 n 0000115357 00000 n 0000118516 00000 n 0000118538 00000 n 0000118559 00000 n 0000118581 00000 n 0000118602 00000 n 0000118632 00000 n 0000118843 00000 n 0000120862 00000 n 0000121403 00000 n 0000124785 00000 n 0000124807 00000 n 0000124828 00000 n 0000124850 00000 n 0000124871 00000 n 0000124902 00000 n 0000125240 00000 n 0000125793 00000 n 0000128581 00000 n 0000128603 00000 n 0000128624 00000 n 0000128646 00000 n 0000128667 00000 n 0000128698 00000 n 0000129076 00000 n 0000129621 00000 n 0000135117 00000 n 0000135139 00000 n 0000135161 00000 n 0000135183 00000 n 0000135204 00000 n 0000135235 00000 n 0000135653 00000 n 0000136647 00000 n 0000161249 00000 n 0000161272 00000 n 0000161294 00000 n 0000161317 00000 n 0000161338 00000 n 0000161381 00000 n 0000162011 00000 n 0000162556 00000 n 0000164970 00000 n 0000164992 00000 n 0000165013 00000 n 0000165034 00000 n 0000165055 00000 n 0000165086 00000 n 0000165439 00000 n 0000166435 00000 n 0000192406 00000 n 0000192429 00000 n 0000192451 00000 n 0000192474 00000 n 0000192495 00000 n 0000192538 00000 n 0000193051 00000 n 0000194044 00000 n 0000222707 00000 n 0000222730 00000 n 0000222752 00000 n 0000222775 00000 n 0000222796 00000 n 0000222839 00000 n 0000223447 00000 n 0000223991 00000 n 0000226321 00000 n 0000226343 00000 n 0000226364 00000 n 0000226385 00000 n 0000226406 00000 n 0000226438 00000 n 0000227036 00000 n 0000227118 00000 n 0000227171 00000 n trailer << /Size 186 /Root 184 0 R /Info 185 0 R >> startxref 227267 %%EOF goo-0.155/doc/goo.tex0100644000175000017500000030510007756745751014012 0ustar vomjomvomjom\documentclass[twoside,twocolumn,9pt]{extarticle} \usepackage{hyperlatex} %\T\usepackage{layout} \T\usepackage{longtable} \T\usepackage{myindex} \T\usepackage{palatino} \T\usepackage{fancybox} % \W\usepackage{makeidx} % \W\include{latex-index} \T\addtolength{\topmargin}{-1.2in} \T\addtolength{\evensidemargin}{-0.7in} \T\addtolength{\oddsidemargin}{-0.2in} %\T\oddsidemargin10pt\evensidemargin20pt %\T\textwidth5.7in \T\textwidth7.3in %\T\textheight8.9in \T\textheight9.6in %\T\advance\textwidth by 4em % \makeindex \include{defs} \T\include{texdefs} \typeout{columnwidth = \the\columnwidth} % Make a few big HTML files, and not a lot of small ones. \setcounter{htmldepth}{3} % Put the html code in its own directory. \htmldirectory{manual} % Set the html base name. \htmlname{goomanual} % Add sections to main menu % \setcounter{htmlautomenu}{2} % White background \htmlattributes{BODY}{BGCOLOR="#ffffff"} \htmltitle{\goo\ Manual} % Suppress navigation panel for first page. % \htmlpanel{0} %%% End preamble \begin{document} \label{top_node} \T\sloppy % Tells TeX not to worry too much about line breaks. \T\title{{\Huge \goo\ Reference Manual v46 }} \T\author{{\huge Jonathan Bachrach} \\ {\Large MIT AI Lab}} \W\title{{\huge \goo\ Reference Manual v46 }} \W\author{{\Large Jonathan Bachrach} \\ {\Large MIT AI Lab}} \date{\today} %\date{October 31, 1995} %\T\cleardoublepage\pagenumbering{roman} \maketitle \section{Introduction} \goo\ is a dynamic type-based object-oriented language. It is designed to be simple, productive, powerful, extensible, dynamic, efficient and real-time. It heavily leverages features from many earlier languages. In particular, it attempts to be a simpler, more dynamic, lisp-syntaxed Dylan~\cite{Shalit:1996} and an object-oriented Scheme~\cite{Kelsey:Clinger:Rees:hosc:1998}. % and a lispified Cecil~\cite{Chambers95}. \goo's main goal is to offer the best of both scripting and delivery languages while at the same time incorporating an extreme back-to-basics philosophy. \goo\ is freely available from \kode{www.googoogaga.org} under GPL. This manual is preliminary and relies on an understanding of Scheme and Dylan. \subsection{Notation} Throughout this document \goo\ objects are described with definitions of the following form: \begin{defs} \notation{\it Name}{\it Signature} \doc{\it Documentation} \end{defs} where the rightmost kind field has a one letter code as follows: \begin{defs} \notation{N}{Notation} \notation{L}{Lexical} \notation{S}{Syntax} \notation{G}{Generic} \notation{M}{Method} \notation{F}{Function} \notation{C}{Class} \notation{P}{Property} \notation{I}{Instance} \notation{K}{Command} \end{defs} \subsection{Lexical Structure} The lexical structure is mostly the same as Scheme~\cite{Kelsey:Clinger:Rees:hosc:1998} with the notable exceptions being that identifiers can start with numeric digits if they are clearly distinguishable from floating point numbers and % \item {\bf keywords}: identifiers ending in ':', and no syntax is provided for specifying improper lists. Furthermore, vertical bars are tokenized immediately and separately and have special meaning within lists, providing syntactic sugar for typed variables. The following is a very brief and incomplete description of how characters are tokenized into s-expressions, where s-expressions are either tokens or lists of s-expressions: \begin{defs} \notation{; ...}{Line comment} \notation{\#/ ... /\#}{Nested comment} \notation{.\ + - [0-9]+}{Number} \notation{\#e \#i \#b \newline \#o \#d \#x}{Special number} \notation{\#t \#f}{Logical} \notation{\#$\backslash${\it name}}{Character} \notation{[a-zA-Z0-9]+}{Identifier} % \notation{{\it Identifier}:}{Keyword} \notation{( ... )}{List} \notation{\#( ... )}{Tuple} \notation{\#[ ... ]}{Vector} \notation{" ... "}{String} \notation{$\backslash${\it c} }{Special character's within strings} \notation{x|t}{Typed variable within list $\equiv$ \kode{(x t)}.} \notation{\#|}{Escaped vertical bar.} \notation{\{ ... \}}{Lightweight function syntax.} \notation{'[' ... ']'}{Collection indexing and slicing.} \end{defs} \subsection{Meta Syntax} \goo's syntax is described almost entirely as \goo\ patterns. \goo\ patterns in turn are defined with a quasiquote metasyntax. Pattern variables are prefixed with a ``\kode{,}'' or ``\kode{,@}'' to indicate the matching of one or many elements respectively. The default is for a pattern variable to match one or many s-expressions. Alternatively, a pattern variable's shape may be defined with another pattern. The \kode{,name} shape is builtin and matches only identifiers. The \kode{'['...']'} metasyntax is used to indicate optional patterns, \kode{'...'} is used to indicate zero or more of the preceding pattern element, and \kode{\#\#} is used to denote infix string concatenation. Finally, in this manual, uppercase indicates a special form or macro. \subsection{Conventions} The following naming conventions are used throughout this manual: \begin{defs} \notation{'<'...'>'}{Type variable} \notation{'*'...'*'}{Global variable} \notation{...'?'}{Predicate} \notation{...'!'}{Destructive function} \notation{...'-setter'}{Setter} \end{defs} \section{Expressions} Once tokenized, \goo\ evaluates s-expressions in the usual lisp manner: \begin{defs} \form{{\it var}}{,name} \doc{returns the value of binding named \kode{,name} in the current environment.} \form{{\it lit}}{,lit} \doc{syntactic literals that are self-evaluating.} \form{QUOTE}{(QUOTE ,form)} \doc{with \kode{',form} $\equiv$ \kode{(QUOTE ,form)} (cf., Scheme's \kode{QUOTE})} \form{{\it special}}{(,special ,@args)} \doc{\goo\ defines a number of identifiers as the names of special forms, which if seen in function call position cause special form specific evaluation.} \form{{\it call}}{(,f ,@args)} \doc{otherwise lists represent function calls.} \end{defs} \section{Namespaces and Bindings} \goo\ is a lexically scoped language. Bindings contain values and are looked up by name. Lexical bindings are visible from only particular textual ranges in a program. Lexical bindings shadow visible bindings of the same name. At the topmost level, \goo\ provides simple modules that map from names to bindings. Each file introduces a new module with the same name as the file. Nested modules are supported by way of slashes in module names. Modules can import bindings exported by other modules, but currently there is no way to selectively exclude or rename imported bindings. Furthermore, no cycles can occur in the module use heterarchy. \begin{defs} \form{D.}{(D. ,var ,form)} \doc{defines a global constant named \kode{(var-name ,var)} with an initial value \kode{,form} (cf. Dylan's \kode{DEFINE CONSTANT}).} \form{DV}{(DV ,var ,form)} \doc{defines a global variable named \kode{(var-name ,var)} with an initial value \kode{,form} (cf. Dylan's \kode{DEFINE VARIABLE}).} \form{DEF}{(DEF ,var ,val)} \doc{locally binds \kode{,var} to \kode{,val} and evaluates remainder of current body in the context of that binding.} \formcont{(DEF (TUP ,var ...) ,val)} \doc{parallel binding can also be specified using \kode{TUP} on the lhs of a \kode{DEF} binding. For example \kode{(DEF (TUP x y) (TUP 1 2))}} \form{LET}{(LET ((,var ,val) ...) ,@body)} \doc{$\equiv$ \kode{(SEQ (DEF ,var ,val) ... ,@body)}} \end{defs} where \begin{defs} \syntax{,var}{,name | (,name ,type)} \doc{with \kode{,name | ,type} $\equiv$ \kode{(,name ,type)} within lists.} \end{defs} \begin{defs} \form{SET}{(SET ,name ,form) } \doc{sets \kode{,name} binding to value of evaluating \kode{,form} (cf. Scheme's \kode{SET!})} \formcont{(SET (,name ,@args) ,form)} \doc{$\equiv$ \kode{(,name \#\# -setter ,form ,@args)}} \form{USE}{(USE ,name)} \doc{loads the module \kode{,name} (if it hasn't been loaded already) and aliases all the exported bindings into the current namespace.} \form{EXPORT}{(EXPORT ,name)} \doc{makes the binding \kode{,name} available to code which uses this module in the future.} \form{USE/EXPORT}{(USE/EXPORT ,name)} \doc{same as \kode{USE} plus reexports all imported bindings.} \end{defs} \section{Program Control} \goo\ provides a variety of program control constructs including function calls, conditional execution, and nonlocal control flow. \begin{defs} \form{SEQ}{(SEQ ,@forms)} \doc{evaluates forms sequentially and returns values of evaluating last form (cf. Scheme's \kode{BEGIN})} \formcont{(SEQ)} \doc{returns false} \form{\{ ... \}}{\{ ,@body \}} \doc{\kode{SEQ} abbreviation $\equiv$ \kode{(SEQ ,@body)}.} \form{IF}{(IF ,test ,then [ ,else ])} \doc{evaluates either \kode{,then} if \kode{,test} is non-false otherwise evaluates \kode{,else} (cf. Scheme's \kode{IF}). The \kode{,else} expression defaults to false.} \form{AND}{(AND ,form ,@forms)} \doc{$\equiv$ \kode{(IF ,form (AND ,@FORMS))}} \formcont{(AND ,form)} \doc{$\equiv$ \kode{,form}} \form{OR}{(OR ,form ,@forms)} \doc{$\equiv$ \kode{(SEQ (DEF x ,form) (IF x x (OR ,@FORMS)))}} \formcont{(OR ,form)} \doc{$\equiv$ \kode{,form}} \form{UNLESS}{(UNLESS ,test ,@body)} \doc{$\equiv$ \kode{(IF (NOT ,test) (SEQ ,@body))}} \form{WHEN}{(WHEN ,test ,@body)} \doc{$\equiv$ \kode{(IF ,test (SEQ ,@body))}} \form{COND}{(COND (,test ,@body) ...)} \doc{evaluates \kode{(SEQ ,@body)} of first clause whose \kode{,test} evaluates to non-false (cf. Dylan's \kode{CASE} and Scheme's \kode{COND}).} \form{CASE[-BY]}{(CASE[-BY] ,value [ ,test ]\snl ((,@keys) ,@body) \snl ...)} \doc{evaluates \kode{,value} and then evaluates \kode{(SEQ ,@body)} of first clause for which \kode{(,test ,value ,key)} returns non-false (cf. Dylan's \kode{SELECT} and Scheme's \kode{CASE}). N.B., each key is evaluated, thus symbols must be quoted. The default \kode{,test} for the \kode{CASE} form is \kode{==}.} \form{OPF}{(OPF ,place ,expr)} \doc{$\equiv$ \kode{(SEQ (DEF \_ ,place) (SET ,place ,expr))}, where \kode{,place} is evaluated only once. For example, \kode{(OPF x (+ \_ 1))} $\equiv$ \kode{(SET x (+ x 1))}.} \form{SWAPF}{(SWAPF ,x ,y)} \doc{$\equiv$ \kode{(SEQ (DEF tmp ,x) (SET ,x ,y) (SET ,y tmp))}, where \kode{,x} and \kode{,y} are evaluated only once.} \form{ROTF}{(ROTF ,x ,y ,@places)} \doc{$\equiv$ \kode{(SET (TUP ,x ,y ,@places) (TUP ,y ,@places ,x))} where \kode{,x}, \kode{,y}, and \kode{,@places)} are evaluated only once and \kode{(SET (TUP ...) val)} stands for parallel assignment.} \form{{\it call}}{(,f ,@args)} \doc{evaluates \kode{,f} and then \kode{,@args} in left to right order and then calls \kode{,f} with the evaluated arguments.} \form{REP}{(REP ,name ((,var ,init) ...) ,@body) } \doc{defines a recursive loop (cf., Dylan's \kode{ITERATE} or Scheme's \kode{(LET ,var ...)}).} \form{ESC}{(ESC ,name ,@body)} \doc{evaluates \kode{(SEQ ,@body)} with an exit function of a single parameter, \kode{x}, bound to \kode{,name} that if called, will cause \kode{ESC} to return the value of \kode{x} (cf. Dylan's \kode{BLOCK}/\kode{RETURN}). It is illegal to call the exit function after the execution of the creating \kode{ESC} form (i.e., no upward continuations).} \form{FIN}{(FIN ,protected ,@cleanups)} \doc{ensures that \kode{(SEQ ,@cleanups)} is evaluated whether or not an \kode{ESC} upwards exit is taken during the dynamic-extent of \kode{,protected} (cf. Dylan's \kode{BLOCK/CLEANUP} form and CL's \kode{UNWIND-PROTECT}). The result of a \kode{FIN} form is the result of evaluating its protected form.} \form{ASSERT}{(ASSERT ,test ,message ,@args)} \doc{$\equiv$ \kode{(UNLESS ,test (ERROR ,message ,@args))}} \end{defs} \section{Types, Classes and Properties} \goo\ types categorize objects. Types are first class. They are used to annotate bindings. Binding types restrict the type of objects bindable to associated bindings. \goo\ supports the following types in order of specificity (with the exact ordering defined in Appendix~\ref{subtyping}): \begin{packeditemize} \item {\it Singleton} types specify a unique instance, \item {\it Classes} and {\it properties} specify the structure, inheritance, and initialization of objects. Every object is a direct instance of a particular class, \item {\it Product} types specify a cross product of types, \item {\it Subclass} types specify a lineage of classes, and \item {\it Union} types specify a union of types. \end{packeditemize} The basic type protocol is: \begin{defs} \class{}{} \generic{isa?}{x| y| => } \generic{subtype?}{x| y| => } \doc{returns true iff \kode{x} is a subtype of \kode{y}.} \generic{new}{type| prop-inits|...} \doc{creation protocol taking type and creation options where \kode{prop-inits} contains getter / initial value pairs.} % \generic{init}{x| prop-inits|...} % \doc{provides user initialization opportunity. Each \kode{init} % is responsible for calling \kode{next-method} to ensure inherited % initialization takes place.} % \method{init}{x| prop-inits|...} % \doc{default noop \kode{init} method.} % \end{defs} % % where % % \begin{defs} % \syntax{prop-init}{,getter ,value} \end{defs} \subsection{Singletons} Singleton types match exactly one value using \kode{==}. Singletons are the most specific types. \begin{defs} \class{}{} \generic{t=}{x| => } \doc{returns singleton constrained to \kode{x}.} \generic{type-object}{x| => } \doc{object that singleton type matches.} \end{defs} \subsection{Subclasses} Subclass types match classes and their subclasses. They are quite useful in situations that involve class arguments that need to be further constrained. \begin{defs} \class{}{} \generic{t<}{x| => } \doc{returns subclass type constrained to subclasses of \kode{x}.} \generic{type-class}{x| => } \doc{object that subclass type matches.} \end{defs} \subsection{Unions} Union types represent the disjunction of types. In conjunction with singleton types, they can be used to represent C-style \kode{enum}'s. \begin{defs} \class{}{} \generic{t+}{types|... => } \doc{returns union type representing disjunction of \kode{types}.} \generic{union-elts}{x| => } \doc{types that union type matches.} \function{t?}{type| => } \doc{$\equiv$ \kode{(t+ (t= \#f) type)} (cf., Dylan's \kode{false-or}). This is often used to widen a type to include the convenient false null.} \end{defs} \subsection{Product} Product types represent tuples formed as the cartesian product of types. They are often used to describe multiple value return types. \begin{defs} \class{}{} \generic{t*}{types|... => } \doc{returns product type specifying the cross product of \kode{types}.} \generic{product-elts}{x| => } \doc{types that product type matches.} \end{defs} \subsection{Classes} Classes are types that specify an inheritance relationship and can have associated structured data through properties. \begin{defs} \class{}{} \generic{class-name}{x| => (t?\ )} \doc{returns class name or false otherwise.} \generic{class-parents}{x| => } \doc{direct superclasses.} \generic{class-ancestors}{x| => } \doc{class precedence list including this class. See Appendix~\ref{cpl} for details.} \generic{class-direct-props}{x| => } \doc{properties defined directly on this class.} \generic{class-props}{x| => } \doc{properties defined on this class or any superclass.} \generic{class-children}{x| => } \doc{direct subclasses.} \form{DC}{(DC ,name (,@parents))} \doc{defines a class named \kode{,name} with direct parents \kode{,@parents}} % \method{new}{type| prop-inits|...} % \doc{default \kode{new} method creates uninitialized object \kode{x} of type % \kode{type} and then calls \kode{init} with \kode{x} and \kode{prop-inits}.} \method{new}{type| prop-inits|...} \doc{creates an instance of type \kode{type} and prop initialized as specified by \kode{prop-inits}. For example, \kode{(new point-x 1 point-y 2)} creates a point with \kode{x=1} and \kode{y=2}.} \end{defs} \subsubsection{Properties} Properties are named data associated with classes. Their values are accessed exclusively through generic functions, called getters and setters. Descriptions of properties are instances of \kode{}. Property values can either be specified at creation time with keyword arguments, by calling a property setter, or through a property initialization function called lazily the first time a getter is called if the property is otherwise uninitialized. Property initialization functions are called with a single argument, the object under construction. \begin{defs} \class{}{} \property{prop-owner}{x| => } \doc{class on which property was directly defined.} \property{prop-getter}{x| => } \doc{reader accessor generic.} \property{prop-setter}{x| => } \doc{writer accessor generic.} \property{prop-type}{x| => } \doc{type constraining property value.} \property{prop-init}{x| => } \doc{lazy initialization function.} \generic{find-getter}{c| getter| => } % TODO: T? \doc{finds getter method defined on given class.} \generic{find-setter}{c| setter| => } % TODO: T? \doc{finds setter method defined on given class.} \property{prop-bound?}{x g| => } \doc{returns true if property with getter \kode{g} is bound in instance \kode{x}.} \method{add-prop}{owner getter| setter| \snl type| init|} % TODO: T? \doc{where \kode{init} is a one parameter function that returns the initial value for the prop and gets called lazily with the new instance as the argument.} \form{DP}{(DP ,name (,oname|,owner => ,type) [,@init])} \doc{add's an immutable property to \kode{,owner} with getter named \kode{,name}, type \kode{,type}, and optionally initial value \kode{,init}. The initial value function is evaluated lazily when prop's value is first requested.} \form{DP!}{(DP! ,name (,oname|,owner => ,type) [,@init])} \doc{same as \kode{DP} but mutable with setter named \kode{,name \#\# "-setter"}} \end{defs} \section{Functions} All operations in \goo\ are functions. Functions accept zero or more arguments, and return one value. The parameter list of the function describes the number and types of the arguments that the function accepts, and the type of the value it returns. There are two kinds of functions, methods and generic functions. Both are invoked in the same way. The caller does not need to know whether the function it is calling is a method or a generic function. A method is the basic unit of executable code. A method accepts a number of arguments, creates local bindings for them, executes an implicit body in the scope of these bindings, and then returns a value. A generic function contains a number of methods. When a generic function is called, it compares the arguments it received with the parameter lists of the methods it contains. It selects the most appropriate method and invokes it on the arguments. This technique of method dispatch is the basic mechanism of polymorphism in \goo. All \goo\ functions are objects, instances of \kode{}. Generic functions are instances of \kode{} and methods are instances of \kode{}. \begin{defs} \class{}{} \property{fun-name}{x| => (t?\ )} \doc{returns the name of function or false if unavailable.} \property{fun-names}{x| => } \doc{returns the names of parameters of \kode{x} or \kode{()} if unavailable.} \property{fun-specs}{x| => } \doc{returns the specializers of \kode{x}.} \property{fun-nary?}{x| => } \doc{returns true iff the function takes optional arguments.} \property{fun-arity}{x| => } \doc{returns \kode{x}'s number of required arguments.} \property{fun-val}{x| => } \doc{returns the return type of \kode{x}.} % \generic{identity}{=> } % \doc{returns a function \kode{(fun (x) x)}.} % \generic{compose}{x| y| => } % \doc{returns a function that composes function's \kode{x} and \kode{y}.} % \generic{curry}{x| curried|... => } % \doc{$\equiv$ \kode{(fun (args|...) (app f (cat curried args)))}} % \generic{rcurry}{x| curried|... => } % \doc{$\equiv$ \kode{(fun (args|...) (app f (cat args curried)))}} % \generic{always}{x| => } % \doc{creates a function that always returns \kode{x}.} \form{FUN}{(FUN ,sig ,@body)} \doc{creates an anonymous method with signature \kode{,sig} and when called evaluates \kode{,@body} as \kode{(SEQ ,@body)} (cf. Scheme's \kode{LAMBDA}). The following a few example functions and their application: {\scriptsize \begin{ex} ((fun (x) x) 1) ==> 1 \newline ((fun (x| => ) x) 2) ==> 2 \newline ((fun (x|...) x) 1 2 3) ==> (1 2 3) \newline ((fun (x y|...) y) 1 2 3) ==> (2 3) \newline ((fun (x => (tup ))) (tup x)) 1) \inl $\equiv$ (tup 1) \end{ex} } } \form{\{ ... \}}{\{ [ ,@sig '$\backslash$' ] ,@body \}} \doc{\kode{FUN} abbreviation $\equiv$ \kode{(fun (,@sig) ,@body)}. This is particularly useful for lightweight thunks (e.g., \kode{\{(+ x 1)\}} $\equiv$ \kode{(fun () (+ x 1))}). N.B. this is an experimental syntax and might change in the future.} \end{defs} where \begin{defs} \syntax{,sig}{(,@params) | (,@params => ,ret)} \syntax{,params}{(,@vars [(,name '...')])} \doc{where parameter lists can include an optional nary parameter which binds to all arguments beyond required arguments.} \syntax{,ret}{,var | (TUP ,@ret-vars)} \doc{with \kode{TUP} turning into corresponding \kode{t*} function return type.} \syntax{,ret-var}{(,name ,type)} \end{defs} \begin{defs} \form{LOC}{(LOC ((,name ,sig ,@fbody)) ,@body)} \doc{$\equiv$\begin{ex} (LET ((,name \#f) ...) \snl (SET ,name (fun ,sig ,@fbody)) ... \snl ,@body) \end{ex} \kode{LOC} introduces local functions that can recursively call each other (cf. Scheme's \kode{LETREC}). } \form{DF}{(DF ,name ,sig ,@body)} \doc{$\equiv$ \kode{(DV ,name (FUN ,sig ,@body))} followed by setting the function's name.} \generic{zipped}{x| => } \doc{$\equiv$ \kode{(fun (y|...) (app x y))}. This is useful when mapping over zipped multiple sequences (e.g., \kode{(map (zipped +) (zip '(1 2) '(2 3)))}.} \form{OP}{(OP ,op-arg ...)} \doc{creates an anonymous function with implicitly defined arguments, where \kode{,op-arg} is either an implicit required parameter ``\kode{\_}'' or rest parameter ``\kode{...}'' or an s-expression potentially containing further op-args. The required parameters are found ordered according to a depth-first walk of the op-args. The following are typical examples: \begin{ex} ((op \_) 1) ==> 1 \newline ((op 2) 1) ==> 2 \newline ((op + \_ 1) 3) ==> 4 \newline ((op lst ...\ 1) 3 2) ==> (3 2 1) \newline ((op tail (tail \_)) '(1 2 3)) ==> (3) \end{ex} } \generic{app}{f| args|... => } % \doc{$\equiv$ \kode{(f [args 0] [args 1] ... [[args n]])}} \doc{calls \kode{f} with arguments \kode{(cat (sub args 0 (- (len args) 2)) (elt args (- (len args) 1)))}.} \end{defs} \subsection{Generics} Generic functions provide a form of polymorphism allowing many implementation methods with varying parameter types, called {\it specializers}. Methods on a given generic function are chosen according to applicability and are then ordered by specificity. A method is applicable if each argument is an instance of each corresponding specializer. A method A is more specific than method B if all of A's specializers are subtypes of B's. During method dispatch three cases can occur: \begin{packeditemize} \item if no methods are applicable then a no-applicable-method error is signaled, \item if methods are applicable but are not orderable then an ambiguous-method error is signaled, \item if methods are applicable and are orderable then the most specific method is called and the next methods are established. \end{packeditemize} \begin{defs} \class{}{} \property{fun-mets}{x| => } \doc{returns \kode{x}'s methods.} \generic{gen-add-met}{x| y| => } \doc{adds method \kode{y} to generic \kode{x}.} \generic{ord-app-mets}{x| args|... \snl => (tup ord| amb|)} \doc{returns both the list of sorted applicable methods and any ambiguous methods when generic \kode{x} is called with arguments args.} \form{DG}{(DG ,name ,sig)} \doc{defines a binding with name \kode{,name} bound to a generic with signature \kode{,sig}.} \end{defs} \subsection{Methods} Methods are \goo's code objects. Methods can optionally be added to generics. \begin{defs} \class{}{} \generic{met-app?}{x| args| => } \doc{determines whether \kode{x} is applicable when called with \kode{args}.} \form{DM}{(DM ,name ,sig ,@body)} \doc{first ensures that a generic exists named ,name and with a minimally congruent to signature \kode{,sig} and then adds a method with signature \kode{,sig} and body \kode{,@body} (cf., Dylan's \kode{DEFINE METHOD}).} \form{SUP}{(SUP ,@args)} \doc{calls next most applicable method. N.B., all arguments must be supplied.} \formcont{(APP-SUP ,@args)} \doc{applies next most applicable method. N.B., all arguments must be supplied.} \end{defs} \section{Macros} Macros provide a facility for extending the base syntax of \goo. The design is based on quasiquote code templates and a simple list pattern matching facility. Macros are currently unhygienic, and users are required to use \kode{gensym} to avoid name collisions. \begin{defs} \form{QUASIQUOTE}{(QUASIQUOTE ,@qq-forms)} \doc{\kode{QUOTE} with selective evaluation using \kode{UNQUOTE} and \kode{SPLICING-UNQUOTE} (cf. Lisp and Scheme's \kode{QUASIQUOTE}), abbreviated ``\kode{`}''.} \form{UNQUOTE}{(UNQUOTE ,form)} \doc{evaluates \kode{,form} in the midst of a \kode{QUASIQUOTE} expression, abbreviated ``\kode{,}''.} \form{SPLICING-UNQUOTE}{(SPLICING-UNQUOTE ,form)} \doc{evaluates \kode{,form} in the midst of a \kode{QUASIQUOTE} expression and splices it in, abbreviated ``\kode{,@}''.} % \form{MIF}{(MIF (,pat ,val) ,then [ ,else ])} % \doc{is the ``matching if'', evaluating \kode{,then} with pattern % variables bound to matched % parts of value if matching succeeds and otherwise evaluates % \kode{,else}. The pattern is much the same as \kode{QUASIQUOTE} % and can contain either \kode{UNQUOTE}'d variables % or \kode{UNQUOTE-SPLICING} variables. For example, % \begin{ex} % (MIF ((,a ,b) '(1 2)) (lst a b)) $\rightarrow$ (1 2) \newline % (MIF ((,a ,@b) '(1 2)) (lst a b)) $\rightarrow$ (1 (2)) % \end{ex}} \form{MATCH}{(MATCH ,exp (,pat ,val) ...)} \doc{evaluates \kode{,val} corresponding to first \kode{,pat} matching \kode{,exp}. The pattern is much the same as \kode{QUASIQUOTE} and can contain either \kode{UNQUOTE}'d variables or \kode{UNQUOTE-SPLICING} variables. For example, \begin{ex} (MATCH '(1 2) ((,a ,b) (lst a b))) $\rightarrow$ (1 2) \newline (MATCH '(1 2) ((,a ,@b) (lst a b))) $\rightarrow$ (1 (2)) \end{ex}} \form{DS}{(DS ,name (,pattern) ,@body)} \doc{defines a macro matching pattern ,pattern and expanding according to \kode{,@body}. The pattern matching occurs as in \kode{MIF} and makes available pattern variables during the evaluation of \kode{(SEQ ,@body)}. For example, \begin{ex} (DS unless (,test ,@body)\snl `(if (not ,test) (seq ,@body))) \end{ex} defines the \kode{when} macro in \goo.} \end{defs} where \begin{defs} \syntax{pattern}{(,@qq-forms)} \end{defs} \begin{defs} \form{CT}{(CT ,@body)} \doc{evaluates \kode{(SEQ ,@body)} at compile-time allowing a user to make available computations for the purpose of macro-expansion.} \form{CT-ALSO}{(CT-ALSO ,@body)} \doc{equivalent to \kode{CT}, but also includes a copy of \kode{,@body} in compiled images. Similar to \kode{(eval-when (:compile-toplevel :execute) ...)} in Common LISP. The return value of \kode{CT-ALSO} is undefined.} \form{MACRO-EXPAND}{(MACRO-EXPAND ,form)} \doc{recursively expands macros in expression \kode{,form}.} \end{defs} \section{Scalars} \goo\ provide a rich set of simple objects. \subsection{Any} All objects are derived from \kode{}. \begin{defs} \class{}{} \generic{as}{x| y| => } \doc{coerces y to an instance of x.} % \generic{parents-of}{x| => } \generic{class-of}{x| => } \doc{returns concrete class of \kode{x}.} \generic{==}{x| y| => } \doc{returns true iff \kode{x} and \kode{y} are computationally equivalent.} \generic{=}{x| y| => } \doc{returns true iff \kode{x} and \kode{y} are equal, where equality is user defined and defaults to \kode{==}.} \generic{\~{}=}{x| y| => } \doc{$\equiv$ \kode{(not (= x y))}.} \generic{\~{}==}{x| y| => } \doc{$\equiv$ \kode{(not (== x y))}.} \generic{to-str}{x| => } \doc{returns string representation of object.} \end{defs} \subsection{Booleans} In \goo, for convenience sake, true is often represented by anything that is not false, but \kode{\#t} is reserved for the canonical true value. False is often used to represent null. \begin{defs} \class{}{} \instance{\#f}{} \instance{\#t}{} \method{not}{x| => } \doc{$\equiv$ \kode{(if x \#f x)}} \end{defs} \subsection{Magnitudes} Magnitudes are totally orderable objects. Users are only required to implement \kode{<} and \kode{=}. \begin{defs} \class{}{} \generic{<}{x| y| => } \doc{returns iff \kode{x} is less than \kode{y}.} \generic{>}{x| y| => } \doc{$\equiv$ \kode{(not (or (< x y) (= x y)))}.} \generic{<=}{x| y| => } \doc{$\equiv$ \kode{(or (< x y) (= x y))}.} \generic{>=}{x| y| => } \doc{$\equiv$ \kode{(not (< x y))}.} \generic{min}{x| y| => } \doc{returns the smallest of \kode{x} and \kode{y}.} \generic{max}{x| y| => } \doc{returns the largest of \kode{x} and \kode{y}.} \end{defs} % \subsection{Null} % % \begin{defs} % \instance{nul}{} % \function{nul?}{x => } % \end{defs} \subsection{Locatives} Locatives are word aligned pointers to memory. They are meant to be used to represent pointers to foreign data and not to point to interior \goo\ object data. \begin{defs} \class{}{} \generic{loc-val}{x| => } \doc{returns the object pointed to by \kode{x}.} % \generic{loc-val-setter}{address| x|} % \doc{returns the object pointed to by \kode{x}.} \generic{address-of}{x| => } \doc{returns address of particular object.} \end{defs} \subsection{Characters} \goo\ currently supports 8 bit ASCII characters. \begin{defs} \class{}{} \generic{alpha?}{x| => } \doc{returns true iff \kode{x} is one of the ASCII upper or lowercase characters.} \generic{digit?}{x| => } \doc{returns true iff \kode{x} is one of the ten ASCII numeric characters.} \generic{lower?}{x| => } \doc{returns true iff \kode{x} is one of the ASCII lowercase characters.} \generic{upper?}{x| => } \doc{returns true iff \kode{x} is one of the ASCII uppercase characters.} \generic{to-digit}{x| => } \doc{converts ascii representation of digit to an integer one.} \generic{to-lower}{x| => } \doc{returns lowercase version of uppercase alphabetic characters otherwise returns \kode{x}.} \generic{to-upper}{x| => } \doc{returns uppercase version of lowercase alphabetic characters otherwise returns \kode{x}.} \end{defs} \subsection{Numbers} \begin{defs} \class{}{} \generic{+}{x| y| => } \doc{returns the sum of its arguments.} % \generic{1+}{x| => } % \doc{$\equiv$ \kode{(+ x 1)}.} \generic{-}{x| y| => } \doc{returns the difference of its arguments.} % \generic{1-}{x| => } % \doc{$\equiv$ \kode{(- x 1)}.} \generic{*}{x| y| => } \doc{returns the product of its arguments.} \generic{/}{x| y| => } \doc{returns the quotient of its arguments. % Division by zero raises a divide by zero condition. } % \generic{floor/}{x| y| \snl => (tup rem|)} % \doc{returns the floor of the quotient of two numbers and the % remainder, where floor truncates a number towards negative infinity.} % \generic{ceiling/}{x| y| \snl => (tup rem|)} % \doc{returns the ceiling of the quotient of two numbers and the % remainder, where ceiling truncates a number towards positive infinity.} % \generic{round/}{x| y| \snl => (tup rem|)} % \doc{returns the nearest integer quotient of two numbers and the remainder.} % \generic{truncate/}{x| y| \snl => (tup rem|)} % \doc{returns the towards zero truncated quotient of two numbers and the % remainder.} \generic{round}{x| => } \doc{returns closest integer to \kode{x}. If \kode{x} is exactly between two integers then the implementation is free to return either integer. } \generic{round-to}{x| n| => } \doc{returns \kode{x} to closest flo \kode{n} digits precision.} \generic{floor}{x| => (tup rem|)} \doc{returns an integer by truncating \kode{x} towards negative infinity.} \generic{ceil}{x| => (tup rem|)} \doc{returns an integer by truncating \kode{x} towards positive infinity.} \generic{trunc}{x| => (tup rem|)} \doc{returns an integer by truncating \kode{x} towards zero.} \generic{mod}{x| y| => } \doc{returns the remainder after taking the floor of the quotient of \kode{x} and \kode{y}.} \generic{div}{x| y| => } \doc{returns the trunc of the quotient of \kode{x} and \kode{y}.} \generic{rem}{x| y| => } \doc{returns remainder after dividing \kode{x} by \kode{y}.} \generic{pow}{x| e| => } \doc{returns \kode{x} raised to the \kode{e} power.} \generic{exp}{x| => } \doc{$\equiv$ \kode{(pow \$e x)}} \generic{sqrt}{x| => } \doc{returns the square root of \kode{x}.} \generic{pos?}{x| => } \doc{$\equiv$ \kode{(> x 0)}} \generic{zero?}{x| => } \doc{$\equiv$ \kode{(= x 0)}} \generic{neg?}{x| => } \doc{$\equiv$ \kode{(< x 0)}} \generic{neg}{x| => } \doc{$\equiv$ \kode{(- 0 x)}} \generic{abs}{x| => } \doc{$\equiv$ \kode{(if (neg? x) (neg x) x)}} \generic{num-to-str-base}{x| b| => } \doc{returns string representation of \kode{x} in base \kode{b}.} \generic{num-to-str}{x| => } \doc{$equiv$ \kode{(num-to-str-base x 10)}} \generic{str-to-num}{x| => } \doc{returns closest number corresponding to string \kode{x}.} \form{INCF}{(INCF ,name)} \doc{$\equiv$ \kode{(SET ,name (+ ,name 1))}} \formcont{(INCF (,name ,@rest))} \doc{$\equiv$ \kode{(SET (,name ,@rest) (+ (,name ,@rest) 1))}} \form{DECF}{(DECF ,name) } \doc{$\equiv$ \kode{(SET ,name (+ ,name 1))}} \formcont{(DECF (,name ,@rest))} \doc{$\equiv$ \kode{(SET (,name ,@rest) (+ (,name ,@rest) 1))}} \instance{\$e}{} \instance{\$pi}{} \generic{sqrt}{x| => } \generic{log}{x| => } \generic{logn}{x| b| => } \generic{sin}{x| => } \generic{cos}{x| => } \generic{tan}{x| => } \generic{asin}{x| => } \generic{acos}{x| => } \generic{atan}{x| => } \generic{atan2}{y| x| => } \generic{sinh}{x| => } \generic{cosh}{x| => } \generic{tanh}{x| => } \end{defs} \subsubsection{Integers} \goo\ currently represents integers as 30 bit fixnums. \begin{defs} \class{}{} \generic{|}{x| y| => } \doc{returns the logical inclusive or of its arguments.} \generic{\&}{x| y| => } \doc{returns the logical and or of its arguments.} \generic{\^{}}{(x| y| => )} \doc{$\equiv$ \kode{(| (\& x (\~{} y)) (\& (\~{} x) y))}} \generic{\~{}}{x| => } \doc{returns the logical complement of its argument.} \generic{bit?}{x| n| => } \doc{returns true iff \kode{n}th bit is 1.} \generic{even?}{x| => } \generic{odd?}{x| => } \generic{gcd}{x| y| => } \doc{greatest common denominator.} \generic{lcm}{x| y| => } \doc{least common multiple.} \generic{<<}{x| n| => } \doc{returns \kode{n} bit shift left of \kode{x}.} \generic{>>}{x| n| => } \doc{returns signed \kode{n} bit shift right of \kode{x}.} \generic{>>>}{x| n| => } \doc{returns unsigned \kode{n} bit shift right of \kode{x}.} \end{defs} \subsubsection{Floats} \goo\ currently only supports single-precision floating point numbers. \begin{defs} \class{}{} \generic{flo-bits}{x| => } \doc{returns bit representation as an integer.} \end{defs} \section{Collections} Collections are aggregate data structures mapping keys to values. Collections can be almost entirely defined in terms of an enumeration class. % Collections can be almost entirely defined in terms of an iteration protocol. % The protocol is in turned defined in terms of an iteration state. % % In defining a new collection class, a user must implemented at minimum % the seven methods comprising the iteration protocol: \kode{1st-state}, % \kode{fin-state}, \kode{nxt-state}, \kode{now-elt}, % \kode{now-elt-setter}, \kode{now-key}, \kode{dup-state}. For % efficiency, users might choose to override more methods such as % \kode{len}, \kode{elt}, \kode{elt-setter}, etc. \begin{defs} \class{
    • }{} \class{}{} \doc{immutable collections.} \generic{fab}{t|(t< ) n| => } \doc{returns a new instance of collection type \kode{t} of len \kode{n}.} \generic{col}{t|(t< ) key-vals|... => } \doc{returns new collection of type \kode{t} with initial key values \kode{key-vals}.} \generic{fabs}{t|(t< ) elts|... => } \doc{returns new collection of type \kode{t} with initial values \kode{elts} and keys \kode{(below (len elts))}.} \generic{len}{x|=> } \doc{returns number of collection elements.} \generic{col-res-type}{x|=> } \doc{appropriate instantiable type for creating collection results, where the default is \kode{(class-of x)}.} \generic{nul?}{x|=> } \doc{$\equiv$ \kode{(= (len x) 0)}} \generic{nul}{x|(t< ) => } \doc{returns collection specific unique empty value.} % \generic{default}{x|=> } % \doc{return default element value.} \generic{key-test}{x|=> test|} \doc{returns collection's key equality function.} \methodcont{x|=> (t= ==)} \doc{default key-test is identity function.} \generic{key-type}{x|=> } \doc{returns collection \kode{x}'s key type.} \generic{elt-type}{x|=> } \doc{returns collection \kode{x}'s element type.} \generic{elt}{x|k| => } \doc{returns collection \kode{x}'s element associated with key \kode{k}.} \form{'[' ... ']'}{'[' ,x ,k ']'} \doc{$\equiv$ \kode{(elt ,x ,k)}} \generic{elt-or}{x|k d => } \doc{returns collection \kode{x}'s element associated with key \kode{k} or default \kode{d} if it doesn't exist.} \generic{mem?}{x|y| => } \doc{returns true iff \kode{y} is an element of \kode{x}.} \generic{add}{x|y| => } \doc{returns collection with \kode{y} added to \kode{x}.} \generic{elts}{x|keys| => } \doc{subset of elements of \kode{x} corresponding to keys \kode{keys}.} % \generic{elts-setter}{dst|src|keys|} % \doc{replaces elements in \kode{dst} with ...} \generic{dup}{x|=> } \doc{returns shallow copy of \kode{x}.} \generic{keys}{x|=> } \doc{returns \kode{x}'s keys.} \generic{items}{x|=> } \doc{returns a sequence of \kode{x}'s key/val tuples.} \generic{del}{x|key| => } \doc{returns copy of \kode{x}'s without element corresponding to \kode{key}.} \generic{zap}{x|=> } \doc{returns empty copy of \kode{x}.} \generic{fill}{x|y| => } \doc{returns copy of \kode{x} with all values being \kode{y}.} \generic{any?}{f| x|=> } \doc{returns true iff any of \kode{x}'s element satisfies given predicate \kode{f}.} \generic{find}{f| x|=> } \doc{returns key associated with first of \kode{x}'s values to satisfy predicate \kode{f}.} \generic{find-or}{f| x|default => } \doc{returns key associated with first of \kode{x}'s values to satisfy predicate \kode{f} or \kode{default} if not found.} \generic{all?}{f| x|=> } \doc{returns true iff all of \kode{x}'s elements satisfies given predicate \kode{f}.} \generic{fold}{f| init| x|\snl => } \doc{$\equiv$ \kode{(f (f ... (f init (elt x 0)) (elt x (- n 2))) (elt x (- n 1)))}} \generic{fold+}{f| x|=> } \doc{$\equiv$ \kode{(f (f ... (f (elt x 0) (elt x 1)) (elt x (- n 2))) (elt x (- n 1)))}} % TODO pass key if fun accepts >1 one arg \generic{do}{f| x|} \doc{iterates function \kode{f} over values of \kode{x} for side-effect.} \generic{map}{f| x|=> } \doc{iterates function \kode{f} over values of given collections and collects the results.} % \generic{do-keyed}{f| x|} % \doc{iterates function \kode{f} over keys and values of \kode{x} % for side-effect.} % \generic{map-keyed}{f| x|=> } % \doc{iterates function \kode{f} over keys and values of \kode{x} % and collects the results.} \end{defs} \subsection{Mutable Collections} Mutation is seen as a necessary evil and is supported but segregated in hopes of trying to isolate and optimize the nondestructive cases. Mutation includes the notion of modifying values and adding/removing keys. The hope is that functional (nondestructive) programs will be both more succinct, understandable, and efficient than equivalent destructive programs. Only core collection operators are given destructive versions. All others can be built out of nondestructive operators followed by \kode{into}~\footnote{When optimization is in place, the \kode{!} suffixed functions will be deprecated.}. \begin{defs} \class{}{} \generic{elt-setter}{v| x| k|} \doc{sets collection \kode{x}'s element associated with key \kode{k} to \kode{v}.} \generic{into}{x| y|=> } \doc{replaces elements of \kode{x} with elements of \kode{y}.} \generic{elt!}{x| y| => } \doc{$\equiv$ \kode{(or (elt-or c k \#f) (set (elt c k) (default)))} but uses unique default key for \kode{elt-or} instead of false.} \generic{fill!}{x| y| => } \doc{fills \kode{x} with \kode{y}'s.} \generic{add!}{x| y| } \doc{adds \kode{y} to \kode{x}.} \generic{del!}{x| key| => } \doc{removes \kode{key} from \kode{x}.} \generic{zap!}{x| => } \doc{removes all of \kode{x}'s elements.} \end{defs} \subsection{Enumerators} Enumerations are the foundation of collections and are designed to provide the convenience of Lisp's list interface (e.g., \kode{null}, \kode{car}, \kode{cdr}) for all collections. In defining a new collection class, a user must implement at minimum an enumerator class and the enumeration protocol: \kode{enum}, \kode{fin?}, \kode{nxt}, and \kode{now}. For efficiency, users might choose to override more methods such as \kode{len}, \kode{elt}, \kode{elt-setter}, etc. Enumeration behavior is undefined if an enumerator is modified during enumeration. \begin{defs} \class{}{} \generic{enum}{x| => } \doc{returns initial enum for iterating over \kode{x}.} \generic{fin?}{x| => } \doc{returns true iff no more elements exist from given enum \kode{x}.} \generic{nxt}{x| => } \doc{returns enum pointing to next element in enum \kode{x}.} \generic{now}{x| => } \doc{returns current element given enum \kode{x}.} \generic{now-setter}{v x|} \doc{sets current element given enum \kode{x} to \kode{v}.} \generic{now-key}{x| => } \doc{returns current key given enum \kode{x}.} \method{enum}{x| => } \doc{returns x allowing enumerators to be enumerated.} % \generic{1st-state}{x|=> } % \doc{returns initial iteration state.} % \generic{fin-state?}{x|state| => } % \doc{returns true iff no more elements exist from given state.} % \generic{nxt-state}{x|state| => } % \doc{returns next state from collection and current state.} % \generic{now-elt}{x|state| => } % \doc{returns current element given collection and state.} % \generic{now-elt-setter}{v| x|state|} % \doc{sets current element of \kode{x} to \kode{v} given \kode{state}.} % \generic{now-key}{x|state| => } % \doc{returns current key of \kode{x} given \kode{state}.} % \generic{dup-state}{x|state| => } % \doc{returns copy of \kode{state} given \kode{x}.} \form{FOR}{(FOR (,for-clause ...) ,@body)} \doc{parallel iteration over collections using enumerations.} \end{defs} where \begin{defs} \syntax{,for-clause}{(,var ,col) | ((tup ,keyvar ,var) ,col)} \doc{specifies one parallel iteration over a collection \kode{,col} binding successive values to \kode{,var} and optionally keys to \kode{,keyvar}.} \end{defs} \subsection{Packers} Packers are the complement of enumerators and are the imperative version of \kode{fold}. The default packer returns a list of all accumulated values: \begin{ex} (packing (for ((e '(1 2 3 4 5))) (when (odd? e) (pack e)))) \snl ==> (1 3 5) \end{ex} They can also be used for summing values etc: \begin{ex} (packing-in (x|) (for ((e '(1 2 3 4 5))) (when (odd? e) (pack-in x e))) (packed x)) \snl ==> 9 \end{ex} \begin{defs} \class{}{} \generic{packer-add}{p| x => } \doc{returns a copy packer \kode{p} augmented with element \kode{x}.} \generic{packer-res}{p| => } \doc{returns result of packings over \kode{p}.} \generic{packer}{init add| res|} \doc{returns a simple packer that starts its value out with \kode{init}, is augmented with \kode{add}, and whose final value is computed with \kode{res}.} \generic{packer-fab}{t| => } \doc{returns a new type \kode{t} specific packer.} \method{packer-fab}{t|(t< ) => } \doc{$\equiv$ \kode{(packer '() pair (op as t (rev!\ \_)))}} \method{packer-fab}{t|(t= ) => } \doc{$\equiv$ \kode{(packer 0 + (op \_))}} \form{PACKING-WITH}{(PACKING-WITH ((,var ,pack) ...) ,@body)} \doc{mechanism for packing objects using given packer into \kode{,var}.} \form{PACKING-IN}{(PACKING-IN (,name '|' ,type ...) ,@body)} \doc{$\equiv$ \kode{(PACKING-WITH (,name (packer-fab ,type)) ,@body)}.} \formcont{(PACKING-IN (,name) ,@body)} \doc{$\equiv$ \kode{(PACKING-IN (,name '|' ) ,@body)}.} \form{PACKING}{(PACKING ,@body)} \doc{$\equiv$ \kode{(PACKING-IN (packer-) ,@body (packed packer-))}.} \form{PACK-IN}{(PACK-IN ,pack ,x)} \doc{folds \kode{,x} into packer in \kode{,pack}.} \form{PACK}{(PACK ,x)} \doc{$\equiv$ \kode{(PACK packer- ,name)}.} \form{PACKED}{(PACKED ,name)} \doc{$\equiv$ \kode{(packer-res ,name)}.} \end{defs} \subsection{Maps} Maps represent collections with explicit keys. \begin{defs} \class{}{} \class{}{ } \doc{Tables are near constant-time aggregate data structures. Users can define their own tables by subclassing and overriding the \kode{key-test} and \kode{tab-hash} methods.} \propertyinit{tab-growth-factor}{x| => }{2.0} \doc{factor by which to grow capacity.} \propertyinit{tab-growth-threshold}{x| => }{0.8} \doc{when to grow based on proportion of total table capacity.} \propertyinit{tab-shrink-threshold}{x| => }{0.5} \doc{when to shrink based on proportion of total table capacity.} % TODO should this go away and be replaced with tab-hash and tab-test? \generic{tab-hash}{x| => } \doc{returns hash function.} % \generic{table-protocol}{x| \snl => (tup test| hash|)} % \doc{returns key equality and hash functions.} % \instance{\$permanent-hash-state}{} % \doc{GC specific.} % \generic{tab-gc-state}{x| => } % \doc{GC specific.} % \generic{id-hash}{x| => (tup hash| gc-state|)} % \doc{hash function based on pointer. Susceptible to rehash if % objects are moved. The \kode{gc-state} reflects movement.} \generic{id-hash}{x| => } \doc{hash function based on identity.} %TODO: CALL THIS SYM-TAB? % \class{}{} % \doc{case insensitive string hash table used for symbol tables.} \end{defs} \subsection{Sequences} Sequences are collections with nonnegative integer keys. \begin{defs} \class{}{} \class{}{ } \doc{immutable sequence.} \generic{1st}{x| => } \doc{$\equiv$ \kode{(elt x 0)}} \generic{2nd}{x| => } \doc{$\equiv$ \kode{(elt x 1)}} \generic{3rd}{x| => } \doc{$\equiv$ \kode{(elt x 2)}} \generic{last}{x| => } \doc{$\equiv$ \kode{(elt x (- (len x) 1))}} \generic{pos}{x| v| => (t?\ )} \doc{finds position of \kode{v} in \kode{x} else returns false.} \generic{finds}{x| y| => (t?\ )} \doc{finds position of \kode{y} in \kode{x} else returns false.} \method{add}{x| y| => } \doc{returns sequence with \kode{y} added to the end of \kode{x}.} \generic{push}{x| y| => } \doc{returns sequence with \kode{y} added to \kode{x}.} \generic{pop}{x| => (tup )} \doc{returns last pushed element of \kode{x} and new sequence with that element removed from \kode{x}. } \generic{rev}{x| => } \doc{returns reversed sequence.} \generic{cat}{x| more|... => } \doc{returns concatenated sequences.} \generic{sub}{x| from| below| => } \doc{subsequence of \kode{x} between \kode{from} and \kode{below}.} \form{'[' ... ']'}{'[' ,x ,from ,below ']'} \doc{$\equiv$ \kode{(sub ,x ,from ,below)}} \generic{sub*}{x| from| => } \doc{$\equiv$ \kode{(sub x from (len x))}} \form{'[' ... ']'}{'[' ,x ,from * ']'} \doc{$\equiv$ \kode{(sub* ,x ,from)}} \generic{ins}{x| val i| => } \doc{returns copy of \kode{x}'s with \kode{val} inserted before \kode{i}.} \generic{del-dups}{x| => } \doc{returns sequence with all duplicates removed.} \generic{del-vals}{s| val => } \doc{returns sequence with all copies of \kode{val} removed.} \generic{sort-by}{s| f| => } \doc{returns a sorted copy of \kode{s} using \kode{f} as a comparator.} \generic{sort}{s| => } \doc{$\equiv$ \kode{(sort-by s <)}} % \generic{reject}{f| x| => } % \doc{returns sequence without elements corresponding to % non-false results when calling predicate \kode{f}.} \generic{pick}{f| x| => } \doc{returns new sequence with elements corresponding to non-false results when calling predicate \kode{f}.} \generic{prefix?}{x| prefix| => } \doc{returns true iff sequence \kode{x} starts with sequence \kode{prefix}.} \generic{suffix?}{x| suffix| => } \doc{returns true iff sequence \kode{x} ends with sequence \kode{suffix}.} \generic{repeat}{x| n| => } \doc{returns sequence with \kode{n} concatenated copies of \kode{x}.} \generic{split}{x| sep => } \doc{returns sequence of subsequences of \kode{x} separated by \kode{sep}.} \generic{join}{xs| sep| => } \doc{returns sequence composed of sequences in \kode{xs} joined with \kode{sep}.} \end{defs} \subsubsection{Mutable Sequences} \begin{defs} \class{}{ } \generic{rev!}{x| => } \doc{returns destructively reversed sequence.} \generic{cat!}{x| more|... => } \doc{returns destructively concatenated sequences.} \generic{add!}{x| y| => } \doc{returns collection with \kode{y} added to the end of \kode{x}.} \generic{push!}{x| y| => } \doc{returns collection with \kode{y} added to the front of \kode{x}.} \generic{pop!}{x| => (tup val| )} \doc{pops element from front of sequence.} \form{PUSHF}{(PUSHF ,place ,val)} \doc{pushes \kode{,val} onto the sequence stored in \kode{,place}, updates \kode{,place} to contain the new sequence, and returns the new sequence.} \form{POPF}{(POPF ,place)} \doc{pops a value from the sequence stored in \kode{,place}, replaces the sequence with an updated sequence, and returns the value.} \generic{ins!}{x| v| i| => } \doc{inserts \kode{v} before \kode{i} in \kode{x}.} \generic{sub-setter}{dst| src| from| below|} \doc{replaces subsequence in range between \kode{from} and \kode{below} of \kode{dst} with contents of \kode{src}. Provides insertion, deletion, and replacement operations rolled into one. } \generic{sub*-setter}{dst| src| from|} \doc{$\equiv$ \kode{(sub-setter dst src from (len dst))}} \generic{del-vals!}{x| v| => } \doc{removes all \kode{v}'s from \kode{x}.} \generic{del-dups!}{x| => } \doc{removes all duplicates from \kode{x}.} \generic{sort-by!}{s| f| => } \doc{destructively sorts \kode{s} using \kode{f} as a comparator.} \generic{sort!}{s| => } \doc{$\equiv$ \kode{(sort-by! s <)}} \end{defs} \subsubsection{Lists} Lists are always ``proper'' lists, that is, the tail of a list is always a list. Lists might be deprecated in future releases of \goo. \begin{defs} \class{}{} \alias{}{} \property{head}{x| => } \propertyinit{tail}{x| => }{()} \generic{lst}{elts|... => } \doc{returns list of arguments.} \alias{list}{lst} \generic{lst*}{elts|... => } \doc{returns list of arguments with last argument tacked onto end.} \instance{nil}{} \doc{aka \kode{()}.} \generic{pair}{x| y| => } \doc{returns new list with \kode{x} as head and \kode{y} as tail.} \end{defs} \subsubsection{Zips} A zip is a sequence of tuples of sucessive elements of sequences. A zip has the length of its shortest constituent sequence. \begin{defs} \class{}{} \generic{zip}{cs|(...\ ) => } \doc{returns a zip over sequences \kode{cs}.} \generic{unzip}{z| => } \doc{returns a tuple of \kode{z}'s constituent sequences.} \end{defs} \subsubsection{Flat Sequences} Flats represents sequences with constant access time. Flat enum provides an enum implementation of all but \kode{now} and \kode{now-setter}. \begin{defs} \class{}{} \class{}{} \class{}{ } \doc{Tuples are immutable flat sequences and represents multiple values in \goo.} \generic{tup}{elts|... => } \doc{creates a tuple with elements being \kode{elts}.} % \class{}{} % \doc{Optionals are used to hold n-ary arguments. Optionals are immutable.} % \class{}{} % \doc{Optionals are used to hold n-ary arguments. Optionals are immutable.} % \class{}{ } % \doc{Vectors are nonstretchy, mutable, one dimensional arrays of objects.} % \generic{vec}{elts|... => } % \doc{returns new vector with elements \kode{elts}.} \class{}{ } \doc{Stretchy vectors resize when needed.} \generic{vec}{elts|... => } \doc{returns new vector with elements \kode{elts}.} \end{defs} \subsubsubsection{Strings} \goo\ currently implements ASCII strings. \begin{defs} \class{}{ } \generic{str}{elts|... => } \doc{returns new string with elements \kode{elts}.} \generic{case-insensitive-string-hash}{x| => (tup hash| gc-state|)} \generic{case-insensitive-string-equal}{x| y| => } \end{defs} \subsection{Lazy Series'} Represents an immutable sequence of numbers specified using a start number \kode{from}, a step amount \kode{by} % defaulting to \kode{1} , and an inclusive bound \kode{to}. % which is either \kode{to}, \kode{below}, or \kode{above}. \begin{defs} \class{}{} \generic{range-by}{from| test| lim| by|\snl => } \doc{returns a range starting \kode{from}, updated with \kode{by}, and continuing until \kode{(test x lim)} is false.} \generic{range}{from| test| lim| => } \doc{$\equiv$ \kode{(range-by from test lim (op + \_ 1))}} \generic{from}{from| => } \doc{$\equiv$ \kode{(range from (always \#t) 0)}} \generic{below}{lim| => } \doc{$\equiv$ \kode{(range 0 < lim)}} \class{}{} \doc{Steps represent step functions.} \generic{first-then}{first| then| => } \doc{returns a new step object, calling thunks \kode{first} to retrieve initial value and \kode{then} to retrieve subsequent values.} \generic{each}{f| => } \doc{returns a new each object, calling \kode{f} thunk to retrieve each value.} \class{}{} \doc{Cycles provide a mechanism to create infinite sequences repeating a certain sequence over and over again.} \generic{cycle}{x|... => } \doc{returns a cycles that repeats elements of \kode{x}.} \end{defs} \section{Symbols} Symbols are uniquified (aka interned) strings. \begin{defs} \class{}{} \class{}{} \doc{symbol table class.} \method{as}{\_|(t= ) x| => } \doc{coerces a string to a symbol.} \generic{cat-sym}{elts|... => } \doc{returns a symbol formed by concatenating the string representations of \kode{elts}.} \generic{gensym}{=> } \doc{returns a system specific unique symbol.} \generic{fab-setter-name}{x| => } \doc{$\equiv$ \kode{(as (cat (as x) "-setter"))}.} % \generic{var-name}{x|(t+ ) => } % \generic{var-type}{x|(t+ ) => } \end{defs} \section{Conditions} Conditions are objects representing exceptional situations. \goo\ provides restartable conditions as well as the more traditional stack unwinding conditions. A condition is an object used to provide information to a handler. A handler is an object with a handler function used to take care of conditions of a particular type. Signalling is a mechanism for finding the most appropriate handler for a given condition. See DRM~\cite{Shalit:1996} for more information. \begin{defs} \class{}{} \generic{default-handler}{x| => } \doc{called if no appropriate handler is in force.} \generic{default-handler-description}{c| => } \doc{return a string describing an anonymous handler for this type of condition.} \generic{build-condition-interactively}{type| in out => } \doc{construct a condition of the specified type and interactively prompt the user to fill in any important props. Called by the debugger. Methods should call next-method to build the condition, then set the props for their own class.} \generic{sig}{x| args|...} \doc{signals a condition with optional arguments args.} \class{}{} \doc{a condition consisting of a \kode{msg} message and arguments.} \property{condition-message}{x| => } \doc{returns \kode{msg} string.} \property{condition-arguments}{x| => } \doc{returns \kode{msg} string arguments.} \class{}{} \doc{a condition that can not be safely ignored.} \class{}{} \doc{a condition that indicates something is invalid about the program.} \generic{error}{x| args|...} \doc{signals an error.} \method{error}{x| args|...} \doc{signals a simple error.} \class{}{ } \doc{an error that consists of a \kode{msg} message and arguments.} \class{}{} \doc{used for restarting a computation.} \class{}{} \doc{object used for handling a signaled condition.} \generic{handler-function}{x| => } \generic{fab-handler}{x| => } \doc{creates a handler from a handler function.} \generic{handler-matches?}{x| y| => } \doc{protocol for determining whether a handler handles a particular condition.} \form{TRY}{(TRY ,try-options ,handler ,@body)} \doc{installs \kode{,handler} as a condition handler for the duration of \kode{(SEQ ,@body)}, using the instructions provided by \kode{,try-options}. \kode{,try-options} should either be the name of the condition type to \kode{handle}, or a \kode{,try-option-list} with zero or more of the following options: \begin{packeditemize} \item \kode{(TYPE ,expr) =>} An expression returning the type of condition to handle. \item \kode{(TEST ,@body) => Code} which returns \kode{\#t} if the condition is applicable, and \kode{\#f} otherwise. This may be called at arbitrary times by the runtime, so it shouldn't do anything too alarming. \item \kode{(DESCRIPTION ,message ,@arguments) =>} A human-readable description of this handler. Used by the debugger. \end{packeditemize} The handler function should take two arguments: the \kode{,condition} to be handled, and a \kode{,resume} function. if a matching condition is signaled then the handler function is called with the signaled condition and a resume function to be called if the handler wants to return a value to be used as the result of the signaling \kode{SIG} call. the handler has three possibilities: (1) it can handle the condition by taking an exit using \kode{ESC}, (2) it can resume to the original \kode{SIG} call using the resume function called with the value to be returned, or (3) it can do neither, that is, it can choose not to handle the condition by just falling through to the end of the handler (cf., Dylan's \kode{BLOCK}/\kode{EXCEPTION} and \kode{LET HANDLER}) and the next available handler will be invoked. Note that \goo\ {\bf does not unwind the stack} before calling handlers!} \end{defs} where \begin{defs} \syntax{handler}{(fun (,condition ,resume) ,@body)} \syntax{,try-options}{,condition-type-name | ,try-option-list} \syntax{,try-option-list}{(,try-option* )} \syntax{,try-option}{(,option-name ,@option-value)} \end{defs} \subsection{Conditions Hierarchy} \goo\ has a builtin hierarchy of conditions. \begin{defs} \class{}{} \class{}{} \class{}{} \doc{user hit interrupt key.} \class{}{} \doc{a system fault was detected.} \class{}{} \doc{an assertion failure occurred.} \class{}{} \doc{an binding or property was found to be unbound.} \class{}{} \doc{a binding was found to be unbound.} \property{unbound-variable-error-variable}{ => } \class{}{} \propertyinit{property-error-generic}{ => }{\#f} \doc{property accessor if available.} \propertyinit{property-error-owner}{ => }{\#f} \doc{property owner if available.} \class{}{ } \doc{unbound property was discovered.} \class{}{ } \doc{attempt was made to store an invalid object in a property.} \class{}{} \doc{attempt was made to find a missing property, most likely during a call to \kode{new}.} \class{}{} \doc{no \kode{as} method was found.} \class{}{} \doc{a key lookup on a collection failed.} \property{range-error-collection}{ => } \property{range-error-key}{ => } \class{}{} \doc{a type check has failed.} \property{type-error-value}{ => } \doc{returns value on which type check failed.} \property{type-error-type}{ => } \doc{returns type on which type check failed.} \class{}{} \doc{an function call failed.} \property{call-error-function}{ => } \doc{returns function on which call failed.} \property{call-error-arguments}{ => } \doc{returns arguments on which call failed.} \class{}{} \doc{wrong number of arguments supplied in function call.} \class{}{} \doc{too few arguments supplied in nary function call.} \class{}{} \doc{too few arguments supplied in nary function call.} \class{}{ } \doc{invalid argument used function call.} \class{}{ } \doc{invalid result returned from function call.} \class{}{} \doc{unable to sort applicable methods.} \class{}{} \doc{no methods were applicable.} \class{}{} \doc{no next-methods were found during a \kode{sup} or \kode{app-sup} call.} \class{}{} \doc{a method is incongruent with a generic.} \property{incongruent-method-error-generic}{ => } \property{incongruent-method-error-method}{ => } \class{}{} \doc{unable to find a consistent class precedence list.} \class{}{} \doc{an input/output operation failure.} \class{}{} \doc{unable to open a file.} \property{file-opening-error-filename}{ => } \class{}{} \class{}{} \class{}{} \class{}{} \doc{a macro expansion failure.} \class{}{ } \doc{an ast conversion failure.} \class{}{ } \doc{a namespace form failure.} \end{defs} \section{Input / Output} This is a very preliminary I/O system and is mostly just enough with which to write a compiler. \subsection{Ports} Ports represent character-oriented input/output devices. \begin{defs} \class{}{} \generic{open}{t|(t< ) x| => } \doc{creates port given port specific spec \kode{x}.} \generic{close}{x|} \doc{closes and cleanups port.} \methodcont{x|} \doc{noop default.} \form{WITH-PORT}{(WITH-PORT (,name ,port) ,@body)} \doc{binds \kode{,name} to the value of \kode{,port} during the evaluation of \kode{(seq ,@body)} and finally ensures that the port is closed at the end of evaluation.} \generic{eof-object?}{x| => } \class{}{} \doc{input port.} \instance{in}{} \doc{standard input.} \generic{get}{x| => } \doc{returns next available character or eof-object.} \generic{gets}{x| => } \doc{returns a line until either reading a newline or eof-object.} \generic{peek}{x| => } \doc{returns next available character if any without advancing pointer or eof-object.} \generic{ready?}{x| => } \doc{returns true iff a character is available.} \class{}{} \doc{output port.} \instance{out}{} \doc{standard output.} \generic{force-out}{x|} \doc{ensures that buffers are forced and pending output is completed.} \generic{put}{x| e|} \doc{outputs a single character.} \generic{puts}{x| e|} \doc{outputs string.} \generic{newline}{x|} \doc{outputs a newline sequence.} \generic{say}{x| args|...} \doc{$\equiv$ \kode{(do (op puts x (to-str \_)) args)}} \end{defs} \subsubsection{File Ports} File ports are ports which map to files. \begin{defs} \class{}{} \method{close}{x|} \doc{closes port and finishes pending output.} \class{}{ } \method{open}{t|(t= ) name| \snl => } \doc{creates file in port mapped to a file with filename \kode{name}.} \class{}{ } \method{open}{t|(t= ) name| \snl => } \doc{creates file out port mapped to a file with filename \kode{name}.} \end{defs} \subsubsection{String Ports} String ports provide port interface mapped onto strings. \begin{defs} \class{}{} \property{port-contents}{x| => } \doc{returns underlying string.} \class{}{ } \method{open}{t|(t= ) dat| \snl => } \doc{creates string in port mapped to string \kode{dat}.} \property{port-index}{x| => } \doc{returns index from which next character will be read.} \class{}{ } \method{open}{t|(t= ) dat| \snl => } \doc{creates string out port mapped to string \kode{dat}.} \form{PORT-TO-STR}{(PORT-TO-STR ,name ,@body)} \doc{$\equiv$ \kode{(let ((,name (open ""))) ,@body (port-contents ,name))}} \end{defs} \subsection{Formatted I/O} \goo\ provides convenient s-expression reading/writing facilities. \begin{defs} \generic{read}{x| => } \doc{returns sexpr result of parsing characters in a sequence.} % \generic{read-from-str}{x| => } % \doc{$\equiv$ \kode{(read (new port-contents x))}} % \generic{read-file}{filename| => } % \doc{$\equiv$ \kode{(with-port (x (open-in-file filename)) (read x))}} \generic{write}{x| y|} \doc{verbose printing. prints strings with double quotes etc.} \generic{writeln}{x| y|} \doc{$\equiv$ \kode{(seq (write x y) (newline x))}} \generic{emit}{x| y|} \doc{concise printing (e.g., prints strings without double quotes).} % \generic{write-to-str}{x| => } \generic{msg}{x| message| args|...} \doc{formatted output using special commands embedded in message. supported commands are: \begin{packeditemize} \item \kode{\%= $\rightarrow$ (write x arg)} \item \kode{\%s $\rightarrow$ (display x arg)} \item \kode{\%d $\rightarrow$ (write x arg)} \item \kode{\%\% $\rightarrow$ (write-char x \#$\backslash$\%)} \end{packeditemize} which consume one argument at a time. otherwise subsequent message characters are printed to port \kode{x} (cf. Dylan's and CL's \kode{format}).} \generic{post}{message| args|...} \doc{$\equiv$ \kode{(app msg out message args)}} \end{defs} \section{System} This is a very rudimentary portable interface to an underlying operating system. \begin{defs} \method{app-filename}{=> } \doc{returns the filename of the application.} \method{app-args}{=> } \doc{returns a list of argument strings with which the application was called.} \method{os-name}{=> } \doc{returns name of current operating-system.} \method{os-val}{s| => } \doc{returns OS environment variable value.} \method{os-val-setter}{v| s| => } \doc{sets OS environment variable value.} \method{process-id}{=> } \doc{returns the process id of the current \goo\ process.} % \instance{*goo-root*}{=> } % \doc{top of installation directory structure.} % \instance{*module-search-path*}{=> } % \doc{path from which to find goo files.} % \instance{*goo-build-root*}{=> } % \doc{top of build directory structure.} \end{defs} \subsection{Files and Directories} A preliminary set of file and directory facilities are provided. \begin{defs} \method{file-mtime}{filename| => } \doc{return the last modification time of a file in seconds (relative to the n \goo epoch) as a floating point number.} \method{file-exists?}{filename| => } \doc{return true if and only if a file (or a directory, etc.) exists with the given name.} \method{file-type}{filename| => } \doc{return \kode{'file}, \kode{'directory} or some other symbol, depending on the type of the file.} \method{create-directory}{filename| => } \doc{create a directory with the given name. The parent directory must already exist, and must contain no item with the given name.} \method{parent-directory}{name| => } \doc{find the parent directory of the current filename.} \method{probe-directory}{name| => } \doc{make sure that the named directory exists.} \end{defs} \subsection{Pathnames} Pathnames allow you to work with hierarchical, structured pathnames in a reasonably portable fashion. \begin{defs} \method{pathname-to-components}{pathname| => } \doc{given a pathname, split it into a list of individual directories, etc. Three special values are returned as symbols: \begin{packeditemize} \item \kode{root} $\rightarrow$ This path starts in the root directory \item \kode{up} $\rightarrow$ Go up a directory \item \kode{current} $\rightarrow$ Remain in the current directory \end{packeditemize} Volume labels, drive letters, and other non-path information should be stored in a single tagged list at the head. % For example: % \begin{exv} % C:\a\c.txt -> ((drive "C:") root "a" "c.txt") % \end{exv} Note that the hierarchical portion of this pathname (everything but the label) must be non-empty at all times.} \method{components-to-pathname}{components| => } \doc{reassemble components created by the above function.} \method{label-components}{components| => } \doc{get any leading directory label.} \method{hierarchical-components}{components| => } \doc{get rid of any leading directory label, etc.} \method{components-last}{components| => } \doc{return the last item in a list of components.} \method{components-basename}{components| => } \doc{return all but the last item of a bunch of components. Do some magic to handle cases like \kode{'foo.txt' => './'} If you call this function enough times, you are eventually guaranteed to get components list ending in root, up or current. Requires the last item to be a string.} \method{components-parent-directory}{components| => } \doc{calculate the parent directory of a pathname.} \class{}{} \end{defs} \section{Threads} Threads allow for expressing concurrent programs. The assumed model is shared memory with explicit synchronization and symmetric multiprocessing and is based heavily upon pthreads %~\cite{pthreads} . This section is preliminary and might change in the future. There are several limitations in the current implementation. It represents a rudimentary but usable subset of typical thread operations. Tables and vectors require user locks to ensure thread safety and no out of language crashes. Finally, the compiler, interpreter, and (re)definition machinery are thread unsafe and can only reliably be run in one thread. \begin{defs} \class{}{} \doc{Represents a thread of executation schedulable across multiple processors. Upon creation executes \code{thread-function} in separate thread.} \propertyinit{thread-name}{thread| => (t? )}{#f} \propertyinit{thread-priority}{thread| => }{0} \propertyinit{thread-function}{thread| => }{(fun ())} \method{new}{x|(t< ) inits|... => } \doc{Creates thread and runs \code{thread-function} of created thread in separate OS thread.} \form{SPAWN}{(SPAWN ,@body)} \doc{$\equiv$ \kode{(FAB thread-function (fun () ,@body))}} \method{thread-yield}{} \doc{Surrenders processor to another thread.} % \method{thread-detach}{} \method{thread-join}{thread|} \doc{Causes current thread to wait for the termination of \code{thread}.} \method{thread-current}{=> } \method{all-threads}{=> } \method{sleep}{secs|} \doc{Pauses current thread for \code{secs} seconds.} \class{}{} \doc{Represents a mutex.} \property{lock-name}{lock| => (t? )} \method{new}{x|(t< ) inits|... => } \method{lock-lock}{lock|} \doc{Obtain exclusive access to \kode{lock} waiting if necessary.} \method{lock-unlock}{lock|} \doc{Free up exclusive access to \kode{lock} potentially allowing another thread access.} % \method{lock-destroy}{lock|} \form{WITH-LOCK}{(WITH-LOCK ,lock ,@body)} \doc{$\equiv$ \kode{(FIN (SEQ (lock-lock ,lock) ,@body) (lock-unlock ,lock))}} \class{}{} \doc{Represents a condition variable used for interthread notification.} \propertyinit{event-name}{event| => (t? )}{#f} \method{new}{x|(t< ) inits|... => } \method{event-signal}{event| lock|} \doc{Unblocks at least one thread waiting on \code{event}.} \method{event-broadcast}{event| lock|} \doc{Unblocks all threads waiting on \code{event}.} % \method{event-destroy}{event|} % \method{event-reset}{event|} \method{event-wait}{event| lock| => } \doc{Unlocks \code{lock} and places thread in waiting state to be resumed when \code{event} is signaled or broadcasted upon which time \code{lock} is reacquired and thread resumed.} \method{event-wait-timed}{event| lock| secs| => } \doc{Unlocks \code{lock} and places thread in waiting state to be resumed when \code{event} is signaled or broadcasted or timeout \code{secs} is reached upon which time \code{lock} is reacquired and thread resumed.} \form{DDV}{(DDV ,var ,form)} \doc{Defines a thread local variable named \kode{(var-name ,var)} with an initial value \kode{,form}.} \form{DLET}{(DLET ((,var ,val) ...) ,@body)} \doc{$\equiv$ \kode{(LET ((,old-var ,var) ...) (FIN (SEQ (SET ,var ,val) ... ,@body) (SET ,var ,old-var) ...))}} \class{}{ } \doc{Represents a synchronized FIFO queue allowing multiple readers and writers in separate threads.} \method{enq!}{pipe| x => } \doc{Adds \code{x} to \code{pipe}.} \method{deq!}{pipe| => } \doc{Removes and returns element from \code{pipe} or waits for one to be available.} % \method{dequeue-or!}{pipe| default => } % \doc{Removes and returns element from \code{pipe} or returns % \code{default} if \kode{pipe} is empty.} \end{defs} \section{C Interface} A simple mechanism (available through the \kode{goo/x} module) is provided to inline C code directly into \goo, escaping back into \goo\ when necessary, and relying on C for its type system instead of having to mirror it in \goo. On the downside, there is no static checking, and errors can occur during C compilation. \begin{defs} \form{\#" ... "\#}{Liberal String} \doc{Allows for the easy specification of strings (especially C code snippets) with special character escaping turned off.} \form{C-MENT}{(C-MENT [,c-snippet ,goo-form]*)} \doc{Specifies a C statement formed as the concatenation of c-snippets (goo strings) and \goo\ forms~\footnote{Currently, embedded \goo\ loops are unsupported}. The \goo\ forms are evaluated at runtime as embedded C expressions in the lexical context of the \kode{c-ment} expression. If specified at top level, then the \kode{c-ment} form will be evaluated prior to the evaluation of non \kode{c-ment} top level forms. } \form{C-EXPR}{(C-EXPR [,c-snippet ,goo-form]*)} \doc{Same as \kode{c-ment} but specifies a value producing C expression instead.} \generic{to-c}{x} \doc{user extensible protocol for converting a \goo\ object to a C value. Methods are provided for \kode{}, \kode{}, \kode{}, \kode{}, \kode{}, and \kode{}.} \form{\#\{ ... \}}{Inlined C Statement} \doc{Shorthand for \kode{c-ment} allowing \goo\ forms to be specified with a \kode{\$} prefix and the conversion of \goo\ objects into C values specified with an \kode{@} prefix, with \kode{@x} $\equiv$ \kode{\$(to-c x)}. For example, \begin{ex} (df f (x) \#\{ printf("Got \%lx", \$x); \}) \end{ex} prints out the \goo\ value \kode{x}. A callback can be defined at top level as follows: \begin{ex} \#\{ int gl\_idle(int x) \{ \$(gl-idle); \} \} \end{ex} C headers can be included similarly: \begin{ex} \#\{ \#include "GL.h" \} \end{ex} C expressions can be nested within embedded \goo\ expressions as follows: \begin{ex} \#\{ int gl\_idle(int x) \{ \$(gl-idle \#ei\{ x \}); \} \} \end{ex} in order to access lexical apparent C variables etc. } \form{\#ec\{ ... \}}{Inlined C Expression} \doc{Similar shorthand for \kode{c-expr} also allowing a single character code \kode{c} for specifying the conversion of C values back to \goo\ objects. The valid codes are \kode{i} for \kode{}, \kode{f} for \kode{}, \kode{s} for \kode{}, \kode{c} for \kode{}, \kode{b} for \kode{}, \kode{l} for \kode{}, \kode{g} for none. For example, \begin{ex} (d.\ \$gl-line-loop \#ei\{ GL\_LINE\_LOOP \}) \end{ex} defines a top-level OpenGL constant. } \form{USE/LIBRARY}{(USE/LIBRARY ,name)} \doc{adds \kode{,name} to list of libraries to be linked against.} \form{USE/INCLUDE}{(USE/INCLUDE ,name)} \doc{adds \kode{,name} to include directory search path.} \end{defs} \section{Compiler} \goo's compiler, {\em g2c}, compiles \goo\ source code to C. It lives within the \kode{eval} module. During a given session, \kode{g2c} recompiles only used modules that are either modified or use modified modules. \begin{defs} \class{}{} \doc{a g2c module loader used in g2c builds.} \method{g2c-def-app}{appname| modname| \snl => } \doc{constructs a g2c module loader to be used in future g2c builds.} \method{g2c-build-app}{loader|} \doc{translates \goo\ app into C in subdirectory of \goo's toplevel C directory named after loader's top modname.} \method{g2c-goo}{} \doc{builds entire goo world.} \method{g2c-test}{name} \doc{changes destination directory to be \kode{(cat "g2c-" (to-str name))}. This is useful for bootstrapping.} \end{defs} \section{Top Level} Functions which load code at runtime require a symbol specifying the module name to use. \begin{defs} \generic{load}{filename| modname| => } \doc{returns the result of evaluating the result of reading file named \kode{filename} into module \kode{modname}.} \generic{eval}{x| modname| => } \doc{return's result of evaluating \kode{x}.} \generic{top}{modname|} \doc{runs top-level \kode{read-eval-print} loop which reads from in and writes to out.} % \generic{do-stack-frames}{f|} % \doc{evaluates \kode{(app f f args)} on all stack frames.} \generic{save-image}{filename|} \doc{saves an image of the current \goo\ process to a file named \kode{filename}.} \instance{\$ \$\$ \$\$\$}{} \doc{refers respectively to last, second to last, and third to last values returned in top-level listener.} \end{defs} % \section{Series Protocol} % % This section describes a proposed loopless programming protocol % based on Waters' series~\cite{Waters:1991:ATS}. % % \begin{defs} % \generic{until}{logs| x| => } % \doc{returns the first \kode{k} elements of \kode{x}, where \kode{k} % is the index of the first false in \kode{logs}.} % \generic{expand}{logs| x| default \snl => } % \doc{is the quasi-inverse of \kode{pick} and returns a sequence % consisting of elements of \kode{x} in the non-false positions of % \kode{logs} and \kode{default} elsewhere.} % \generic{split}{x| logs| \snl => (tup )} % \doc{returns two sequences corresponding to non-false and false % elements of \kode{logs} respectively.} % \generic{indices}{logs| => } % \doc{returns a sequence with the indices of the non-false elements % of \kode{logs}.} % \generic{mask}{x| => } % % \doc{is the quasi-inverse of \kode{indices} and returns a sequence % with true at all indices specified by the integer elements of \kode{x} % and falses elsewhere.} % \generic{merge}{x| y| logs| \snl => } % \doc{returns a sequence consisting of all the elements of \kode{x} and % \kode{y} chosen based on logical sequence \kode{logs}.} % %TODO: MORE DOC % \generic{chunk}{m| n| x| \snl => } % \doc{returns \kode{m} sequences with starting positions differing % by \kode{n}.} % \generic{prev}{x| default amount| \snl => } % \doc{returns a sequence same as \kode{x} except shifted to the right % by \kode{amount} inserting \kode{amount} copies of \kode{default} at % the beginning.} % %TODO: MORE DOC % \generic{latch}{x| after before pre post \snl => } % \doc{returns a sequence same as \kode{x} except some values are % replaced based on latching behavior ...} % \end{defs} \section{Installation} Unpack a \goo\ development or platform specific binary tarball into an appropriate staging directory. In the case of a binary tarball, there will be five directories: \kode{doc}, \kode{bin}, \kode{c}, \kode{src}, and \kode{emacs}. You can just run \goo\ from the \kode{bin} subdirectory. In the case of a development tarball, you must install it. After unpacking, there will be five directories: \kode{doc}, \kode{bin}, \kode{c}, \kode{src}, and \kode{emacs}. On windows, installation must be conducted from within a cygwin shell. \goo\ requires Boehm's GC to be installed as a shared library on linux or under the source dir \kode{GOO\_DIR/gc} downloadable from \kode{http://www.hpl.hp.com/personal/Hans\_Boehm/gc/gc\_source/gc.tar.gz}. \goo\ also requires gmp to be installed as a library downloadable from \kode{http://www.swox.com/gmp/}. Generate makefiles by executing \kode{./configure}. Configure takes a \kode{--prefix} argument which sets the installation root, \kode{GOO\_ROOT}. Normally \kode{GOO\_ROOT} is set to \kode{/usr/local} but can be set to staging directory for a personal installation. Configure also takes a \kode{--with-threads} argument which enables threads support on linux. The rest of the configure arguments can be found by executing \kode{./configure --help}. Execute \kode{make} to build \goo\ and \kode{make install} to install it. Executing \kode{make install} will build \goo\ with the proper roots, creating \kode{lib} and \kode{mods} directories, and installing \goo\ in \kode{bin} and setting up \kode{doc}. On windows, it is necessary to add \kode{GOO\_BIN} to your \kode{PATH}. You can override the default \kode{GOO\_ROOT} by setting up your \kode{OS} environment variable. For example, my \kode{GOO\_ROOT} on linux is: \kode{setenv GOO\_ROOT /home/ai/jrb/goo}. Environment variable setting depends on the shell you're using. In order to run \kode{g2c-goo} you need to set \kode{GOO\_BUILD\_ROOT} to the directory which includes the \kode{src} directory. During start up, \goo\ will load two patch files: \begin{exv} ${GOO_ROOT}/init.goo ${HOME}/.goo/init.goo \end{exv} You can customize your \goo\ by adding forms to these files. \section{Usage} Typing \kode{goo} at your shell will start up a \goo\ read-eval-print loop, which accepts sexpressions and top-level commands commencing with a comma. The following is a list of available commands: \begin{defs} \command{,quit}{\emptybox} \doc{exits from \goo.} \command{C-c}{\emptybox} \doc{invokes a recursive read-eval-print loop.} \command{,g2c-eval}{\emptybox} \doc{to change to dynamic compilation evaluation.} \command{,ast-eval}{\emptybox} \doc{to change to ast evaluation.} \instance{GOO\_EVAL\_MODE}{} \doc{environment variable for setting goo's evaluation mode. Valid settings are ``ast'' or ``g2c''.} \command{,in}{,name} \doc{changes to module \kode{,name}.} \syntax{mod:name}{\emptybox} \doc{accesses an unexported binding from another module.} % \generic{frame-var}{n| name|} % \doc{returns \kode{n}{\it th} called function argument named % \kode{name}. Can also be called at top-level as a function.} \end{defs} \subsection{Development} To batch compile \goo\ to C: \begin{exv} goo/user 0<= (use eval/g2c) goo/user 0=> #f goo/user 0<= (g2c-goo) \end{exv} To then compile the C: \begin{exv} cd ${GOO_ROOT}/c make \end{exv} To run the test suites: \begin{exv} goo/user 0<= (use tests) goo/user 0=> #f goo/user 0<= (run-all-tests) \end{exv} \subsection{Debugger} A keyboard interrupt or any error enters the user into the debugger which provides a superset of the commands available at top-level. The following are debugger specific commands: \begin{defs} \command{,up}{\emptybox} \doc{goes up one level.} \command{,top}{\emptybox} \doc{goes to top level.} \command{,restarts}{\emptybox} \doc{lists available restarts} \command{,restart}{,n} \doc{chooses available restart.} \command{,handlers}{,n} \doc{shows available handlers.} \command{,backtrace}{\emptybox} \doc{prints out called functions and their arguments.} \command{,bt}{\emptybox} \doc{prints out called functions.} \command{,frame}{,n} \doc{prints out \kode{n}{\it th} called function and its arguments.} \command{,frame-var}{,n ,name} \doc{prints out \kode{n}{\it th} called function's parameter \kode{name}.} \function{frame-var}{n| name|} \doc{returns \kode{n}{\it th} called function's parameter \kode{name}.} \end{defs} % \subsection{Loading Code} % % Use the load function to load a file of source into goo: % % % \begin{exv} % % (load "\\jrb\\ai\\goo\\interpreters\\basic.goo") % % \end{exv} % % \begin{exv} % (load "/usr/jrb/goo/src/demo.goo") % \end{exv} % % Make sure to use double backslashes on windows in pathnames. Also you % probably need to use an absolute pathname for your file include the % \kode{".goo"} suffix if appropriate. \subsection{Emacs Support} A rudimentary emacs-based development system is provided. \subsubsection{Emacs Mode} Put \kode{emacs/goo.el} in your emacs lisp directory. Add the following to your \kode{.emacs} file: \begin{exv} (autoload 'goo-mode "goo" "Major mode for editing Goo source." t) (setq auto-mode-alist (cons '("\\.goo\\'" . goo-mode) auto-mode-alist)) \end{exv} Useful features include the following. You can add ``font-lock'' mode by adding \kode{(global-font-lock-mode t)} to your \kode{.emacs}: In a given buffer, you can toggle font-lock with \kode{M-x font-lock-mode}. Finally, check out the ``Index'' menu item in a \goo\ buffer for other options. For even more fun, load \kode{emacs/goo-font-lock.el} for a color coded parenthesis nesting aid~\footnote{The original idea was dreamed up and first implemented by Andrew Sutherland and then improved by James Knight.}. \subsubsection{Emacs Shell} Put \kode{emacs/goo-shell.el} in your emacs lisp directory. Add the following to your \kode{.emacs}: \begin{exv} (autoload 'run-goo "goo-shell" "Run an inferior Goo process." t) (setq auto-mode-alist (cons '("\\.goo\\'" . goo-mode) auto-mode-alist)) (setq goo-program-name "/home/ai/jrb/goo/goo") \end{exv} make sure to set up the goo-program-name to correspond to your installation area. Useful command / key-bindings are: \begin{exv} M-C-x goo-send-definition C-c C-e goo-send-definition C-c M-e goo-send-definition-and-go C-c C-r goo-send-region C-c M-r goo-send-region-and-go C-c C-z switch-to-goo \end{exv} Check out \kode{goo-shell.el} for the complete list of command / key-bindings. I doubt the compile commands do anything useful cause there isn't a compiler. \subsubsection{TAGS} Emacs TAGS files can be generated by typing \kode{make all-tags} in the \kode{src} directory. Useful tags commands / key-bindings are: \begin{exv} M-. find-tag M-, tags-loop-continue tags-search tags-query-replace \end{exv} \section{Caveats} This is the first release of \goo. \goo\ is relatively slow at this point. There are no compiler optimizations in place. The error reporting is minimal and no source locations are tracked. Also hygiene is not implemented and there are some potential hygiene leaks. Dynamic compilation and image saving work only on Linux. This manual is preliminary. Please consult the runtime libraries in the \kode{src} directory. Also check out Scheme and Dylan's manuals for information on their lexical structure and special form behavior respectively. Please, please, please send bug reports to \kode{jrb@googoogaga.org}. I will fix your bugs asap. The \goo\ website \kode{www.googoogaga.org} will have papers, releases, FAQS, etc. \section{Future} The plan is for \goo\ to evolve in a number of dimensions. First of all, \goo's design is incomplete. Parameter lists and dispatch will be improved to allow methods of differing numbers of required parameters and named parameters. Lisp lists will most likely be deprecated and program fragments will be represented by a richer data structure which can capture source locations and hygiene information. This will be accomplished with minimal impact on macro definitions and WYSIWYG program construction and destructuring facilities. The module system will be improved to include in the very least renaming and selective imports. Finally, \goo\ will support a more complete loopless programming protocol inspired by Waters' series~\cite{Waters:1991:ATS}. Secondly, the overall mission is to crank the implementation until its performance is competitive with Java while at the same time maintaining low-latency interactivity. The basic approach involves incremental whole program optimization using simple dynamic compilation combined with partial evaluation. One important optimization will be side effect analysis combined with a generalized box/unbox optimization to remove unnecessary creation of immutable enumerators and packers for instance. Similar analyses and optimizations will be employed to optimize loopless programming patterns involving \kode{map} and \kode{fold}. \section{History and Acknowledgements} \goo\ has greatly benefitted from the help of others. During the winter of 2001, I briefly discussed the early design of Proto, a Prototype-based precursor to \goo, with Paul Graham and his feedback was very useful. From there, I bootstrapped the first version of Proto for a seminar, called Advanced Topics in Dynamic Object-Oriented Language Design and Compilation ($6.894$), that I cotaught with Greg Sullivan and Kostas Arkoudas. The $6.894$ students were very patient and gave me many helpful suggestions that greatly improved Proto. During and after the seminar, Greg Sullivan reviewed many ideas and helped tremendously, including by writing the Emacs \kode{goo-mode}. James Knight was one of the $6.894$ students and became my MEng student after the course. He has helped in many many ways including the writing of the \kode{save-image} facility, the speeding up of the runtime, and the improving of the non local exit facility. Eric Kidd worked with me during the summer of 2001 implementing the module system, restarts, and the dependency tracking system. During that summer I decided that a Prototype-based object system was inadequate for the type system I was interested in supporting and changed over to the present type-based system. I presented my ideas on Proto at LL1 in the Fall of 2001. Many stimulating conversations on the follow on LL1 discussion list inpired me. In fact, during the course of defending Proto's form of object-orientation on that list I came up with its current name, \goo, and it stuck. Andrew Sutherland became my MEng student in the winter of 2002, wrote a \goo\ SWIG~\cite{Beaz96a} backend, and has provided useful feedback on \goo's design. I also wish to thank Boehm, Demers, and Weiser for writing the conservative GC upon which this initial version of \goo\ is based. Finally, I would like to thank Keith Playford for his continued guidance in language design and implementation and for his ever present and rare sense of good taste. % Most recently, \goo\ has benefitted from the parallel design effort of % Paul Graham's Arc language~\cite{graham01}. % \texonly{ % \begin{myindex} % \section{Index} % % \addtocounter{chapter}{1} % % \addcontentsline{toc}{chapter}{\protect\numberline{\thechapter}{Index}} % % The principal entry for each term, procedure, or keyword is listed % first, separated from the other entries by a semicolon. % % \bigskip % % \input{index} % \end{myindex} % } \W\section*{Index} \W\htmlprintindex % \T\input{hyperlatex.ind} \bibliographystyle{plain} \bibliography{goo} \texonly{ \appendix } \section{Class Precedence List} \label{cpl} This section defines the algorithm for computing a class's linearized ancesters from its parents, its parent's parents, etc. \goo\ uses the C3 class linearization rule~\cite{dylan-cpl}. The following is the \goo\ implementation of this algorithm: \begin{exv} (dm class-ordered-ancestors (c| => ) (def parents (class-parents c)) (rep merge-lists ((partial-cpl| (lst c)) (remaining-lists| (add (map class-ancestors parents) parents))) (if (all? nul? remaining-lists) (rev! partial-cpl) (loc ((candidate (c) (loc ((tail? (l|) (mem? (tail l) c))) (and (not (any? tail? remaining-lists)) c))) (candidate-at-head (l|) (and (not (nul? l)) (candidate (head l))))) (def next (any? candidate-at-head remaining-lists)) (if next (loc ((del-next (l|) (if (== (head l) next) (tail l) l))) (merge-lists (pair next partial-cpl) (map del-next remaining-lists))) (error "inconsistent precedence graph")))))) \end{exv} \section{Subtyping Rules} \label{subtyping} This section defines the subtyping rules for \goo\ in terms of subtype methods. \begin{exv} (dm subtype? (t1| t2| => ) (all? (op subtype? _ t2) (type-elts t1))) (dm subtype? (t1| t2| => ) (any? (op subtype? t1 _)) (type-elts t2))) (dm subtype? (t1| t2| => ) (all? (op subtype? _ t2)) (type-elts t1))) (dm subtype? (t1| t2| => ) (subclass? t1 t2)) (dm subtype? (t1| t2| => ) (isa? (type-object t1) t2)) (dm subtype? (t1| t2| => ) (subclass? t2)) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) (== (type-object t1) t2)) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) (and (== t1 ) (== (type-class t2) ))) (dm subtype? (t1| t2| => ) (subclass? (type-class t1) (type-class t2))) (dm subtype? (t1| t2| => ) (and (isa? (type-object t1) ) (subclass? (type-object t1) (type-class t2)))) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) (and (== (len (type-elts t1)) (len (type-elts t2))) (all? (zipped subtype?) (zip (type-elts t1) (type-elts t2))))) (dm subtype? (t1| t2| => ) (subtype? t2)) \end{exv} \end{document} goo-0.155/doc/hyperlatex.sty0100644000175000017500000001466007471212553015421 0ustar vomjomvomjom%% %% LaTeX style to handle hyperlatex files, version 2.4 %% %% This code has GNU copyleft, 1994-2000 Otfried Cheong %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{hyperlatex} [2000/03/29 v2.5 LaTeX2e package for Hyperlatex mode] \typeout{Package: 'hyperlatex' v2.5 Otfried Cheong} \RequirePackage{verbatim} \chardef\other=12 %% %% Comments, %% {\obeylines\gdef\Hlx@W#1^^M{\endgroup\ignorespaces}} \def\W{\begingroup\obeylines\catcode`\{=\other\catcode`\}=\other\Hlx@W} \newcommand{\htmlonly}[1]{} \newcommand{\texorhtml}[2]{#1} \newenvironment{iftex}{}{} \newenvironment{latexonly}{}{} \newcommand{\texonly}[1]{#1} \newcommand{\T}{} %% %% Treatment of special characters %% \def\Hlx@nonspecials{} \def\NotSpecial{\def\Hlx@nonspecials} \def\Hlx@turnon{\let\do=\@makeother\Hlx@nonspecials} \AtBeginDocument{\Hlx@turnon} \let\htmltab=& %% %% \begin{tex} ... \end{tex} escapes into raw Tex temporarily. %% you can write {\tex .....} as well, if already escaped from Html %% \newenvironment{tex}{\catcode `\$=3 \catcode `\&=4 \catcode `\#=6 \catcode `\^=7 \catcode `\_=8 \catcode `\%=14}{} %% %% \back %% \newcommand{\back}{{\tt\char`\\}} %% %% \math %% \def\math{\@ifnextchar [{\@math}{\@math[]}} \def\@math[#1]{\begingroup\tex\@@math} \def\@@math#1{$#1$\endgroup} %% %% Commands that don't do anything interesting in Latex %% \def\Hlx@pass{\begingroup\let\protect\@unexpandable@noexpand\@sanitize} \def\Hlx@directory{.} \newcommand{\htmldirectory}[1]{\gdef\Hlx@directory{#1}} \newcommand{\htmlname}[1]{} \newcommand{\htmldepth}[1]{} \newcommand{\htmltopname}[1]{} \newcounter{htmldepth} \newcommand{\htmltitle}[1]{} \newcommand{\htmladdress}[1]{} \newcommand{\xml}{\Hlx@pass\@html} \def\@html#1{\endgroup} \let\html\xml \newcommand{\xmlsym}[1]{} \newcommand{\htmlrule}{} \newcommand{\htmlmenu}[1]{} \newcommand{\htmlautomenu}[1]{} \newcounter{htmlautomenu} \newcommand{\htmlprintindex}{} \newcommand{\htmlfootnotes}{} \newcommand{\htmlmathitalic}[1]{} \newcommand{\htmlpanelfield}[2]{} \newcommand{\htmlcharset}[1]{} \newcommand{\htmlcss}[1]{} \newcommand{\htmlimg}[2]{} \newcommand{\xname}{\Hlx@pass\Hlx@ignore} \def\Hlx@ignore#1{\endgroup} \newcommand{\htmlpanel}[1]{} \newcommand{\htmlheading}{\@ifnextchar[{\@htmlheading}{\@htmlheading[]}} \def\@htmlheading[#1]#2{} \newcommand{\htmlcaption}[1]{} \def\xmlattributes{\@ifstar{\@xmlattributes}{\@xmlattributes}} \def\@xmlattributes{\Hlx@pass\@@xmlattributes} \def\@@xmlattributes#1#2{\endgroup} \let\htmlattributes\xmlattributes %% %% GIF environment, %% will generate bitmaps when `\makegifs' is defined %% \newif\if@makegifs \@ifundefined{makegifs}{\@makegifsfalse}{\@makegifstrue} \def\gif{\@ifnextchar[{\@gif}{\@gif[b]}} \def\@gif[#1]{\@ifnextchar[{\@@gif}{\@@gif[100]}} \def\@@gif[#1]{\gdef\gif@resolution{#1}\@ifnextchar[{\@@@gif}{\@@@gif[300]}} \def\@@@gif[#1]#2{\gdef\gif@dpi{#1}\gdef\gif@name{#2}\@@@@gif} \if@makegifs \typeout{**********************************************} \typeout{* Making GIF bitmaps from Hyperlatex source! *} \typeout{**********************************************} \newwrite\@makegifcmds \immediate\openout\@makegifcmds=\jobname.makegif \newbox\@gifbox \newcount\@gifcount\@gifcount=10000 \def\@@@@gif{\setbox\@gifbox=\vbox\bgroup\tex} \def\endgif{\egroup {\global\advance\@gifcount by 1\count0=\@gifcount \immediate\write\@makegifcmds{dvips\space -f\space -p\space \the\@gifcount\space -n\space 1\space -D\space \gif@dpi\space -T\the\wd\@gifbox,\the\ht\@gifbox\space-O-72bp,-72bp\space \jobname.dvi\space>\space\gif@name.ps^^J% ps2gif\space -res\space \gif@resolution\space \gif@name.ps^^J% mv\space \gif@name.gif\space \Hlx@directory^^J} \shipout\copy\@gifbox}\unvbox\@gifbox} \else \def\@@@@gif{\tex} \def\endgif{} \fi %% %% Font style definitions %% \let\cit=\textit \let\code=\texttt \let\kbd=\texttt \let\samp=\texttt \let\strong=\textbf \let\var=\textsl \let\dfn=\textit \let\file=\textit %% %% \begin{example} ... \end{example} obeys spaces and lines %% \def\Hlx@example{\do\$\do\&\do\#\do\^\do\_\do\~} {\obeyspaces \gdef\turnon@spaces{\let =\ \obeyspaces\catcode``=\active\@noligs}} {\obeylines% \gdef\turnon@lines{\obeylines\def^^M{\par\def^^M{\leavevmode\par}}}} \def\example{\list{}{\leftmargin\z@ \itemindent\z@ \rightmargin\z@ \parsep \z@ plus\p@}\item[]\tt \turnon@spaces\turnon@lines\let\do\@makeother\Hlx@example} \let\endexample=\endlist %% %% font problem: math in example environment seems to need this: %% \DeclareFontFamily{OMS}{cmtt}{} \DeclareFontShape{OMS}{cmtt}{m}{n}{ <-> ssub * cmsy/m/n }{} \newenvironment{menu}{\list{$\bullet$}{\itemsep0pt\parsep0pt}}{\endlist} \newenvironment{ifhtml}{\comment}{\endcomment} \newenvironment{rawxml}{\comment}{\endcomment} \def\xmlinclude#1{} \newcommand{\Hlx@empty}{} \newcommand{\Hlx@zero}{0} \newif\if@Hlx \def\Hlx@setclear#1{\@ifundefined{#1}{\@Hlxfalse}{% \expandafter\ifx\csname#1\endcsname\Hlx@empty\@Hlxfalse \else\expandafter\ifx\csname#1\endcsname\Hlx@zero\@Hlxfalse \else\@Hlxtrue\fi\fi}} \def\ifclear#1{\Hlx@setclear{#1} \if@Hlx %% arg true -> skip \let\endifset\endcomment\let\Hlx@comment\comment \else %% arg false -> ignore begin and end \let\endifset\relax\let\Hlx@comment\relax \fi\Hlx@comment} \def\ifset#1{\Hlx@setclear{#1} \if@Hlx % arg true -> ignore begin and end \let\endifclear\relax\let\Hlx@comment\relax \else % arg false -> skip environment \let\endifclear\endcomment\let\Hlx@comment\comment \fi\Hlx@comment} %% %% Define \link and \xlink macros %% \newcommand{\Hlx@label}{} \newcommand{\Ref}{\ref{\Hlx@label}} \newcommand{\Pageref}{\pageref{\Hlx@label}} \newcommand{\Cite}{\cite{\Hlx@label}} \newenvironment{Label}[1]{\def\Hlx@Label@label{\label{#1}}\ignorespaces}% {\Hlx@Label@label\ignorespaces} \newcommand{\htmlcite}[1]{\cite{#1}} \def\link{\@ifstar{\@star@link}{\@@link}} \def\@@link#1{#1\@@@link} \def\@star@link#1{\@@@link} \def\@@@link{\@ifnextchar [{\@link}% ] balance {\@link[]}} \def\@link[#1]#2{\gdef\Hlx@label{#2}#1} \def\xlink{\@ifstar{\@star@xlink}{\@@xlink}} \def\@@xlink#1{\@@@xlink{#1}} \def\@star@xlink#1{\@@@xlink{}} \def\@@@xlink#1{\@ifnextchar [{\@xlink{#1}}{\@xlink{#1}[]}} \def\@xlink#1[#2]#3{\formatxlink{#1#2}{#3}} \newcommand{\formatxlink}[2]{#1} % % index from latex.tex, and changed to include optional argument % \def\cindex{\@bsphack\begingroup \let\protect\@unexpandable@noexpand \@sanitize \@ifnextchar [{\Hlx@argwrindex}% balance ] {\@wrindex}} \def\Hlx@argwrindex[#1]#2{\@wrindex{#1@#2}} %% end of hyperlatex.sty goo-0.155/doc/myindex.sty0100644000175000017500000000256407445743564014725 0ustar vomjomvomjom%% %% LaTeX style to for manual index. %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{myindex} % \reallyindex{SORTKEY}{HEADCS}{TYPE} % writes (index-entry "SORTKEY" "HEADCS" TYPE PAGENUMBER) % which becomes \item \HEADCS{SORTKEY} mainpagenumber ; auxpagenumber ... \newcommand{\mainschindex}[1]{\index{#1!tt!main}} \newcommand{\mainindex}[1]{\index{#1!rm!main}} \newcommand{\schindex}[1]{\index{#1!tt!aux}} \newcommand{\sharpindex}[1]{\index{#1!sharp!aux}} \newcommand{\codemainindex}[1]{{\mainschindex{{#1}}\code{#1}}} \newcommand{\codeindex}[1]{{\schindex{#1}\code{#1}}} \newenvironment{myindex} {\if@twocolumn \@restonecolfalse \else \@restonecoltrue \fi \columnseprule \z@ %!! \columnsep 35\p@ %\twocolumn[\@makeschapterhead{\indexname}]% \@mkboth{\MakeUppercase\indexname}% {\MakeUppercase\indexname}% \thispagestyle{plain}\parindent\z@ \parskip\z@ \@plus .3\p@\relax \let\item\@idxitem} {\if@restonecol\onecolumn\else\clearpage\fi} \renewcommand\@idxitem{\par\hangindent 40\p@} \renewcommand\subitem{\@idxitem \hspace*{20\p@}} \renewcommand\subsubitem{\@idxitem \hspace*{30\p@}} \renewcommand\indexspace{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax} goo-0.155/doc/size9.clo0100644000175000017500000001431207445743564014243 0ustar vomjomvomjom%% A Class option for fourteen point fonts. Written by James Kilfiger %% This file may be distributed under the terms of the Latex project %% public licence. %% Please ensure that a class such as extarticle or extreport is %% available when distributing this file. \NeedsTeXFormat{LaTeX2e} \ProvidesFile{size9.clo} [1999/11/11 v1.4a NON-Standard LaTeX file (size option)] \renewcommand\normalsize{% \@setfontsize\normalsize\@ixpt\@xipt% \abovedisplayskip 8\p@ \@plus4\p@ \@minus4\p@ \abovedisplayshortskip \z@ \@plus3\p@ \belowdisplayshortskip 5\p@ \@plus3\p@ \@minus3\p@ \belowdisplayskip \abovedisplayskip \let\@listi\@listI} \normalsize \newcommand\small{% \@setfontsize\small\@viiipt\@ixpt% \abovedisplayskip 5\p@ \@plus2\p@ \@minus2\p@ \abovedisplayshortskip \z@ \@plus1\p@ \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@ \def\@listi{\leftmargin\leftmargini \topsep 3\p@ \@plus\p@ \@minus\p@ \parsep 2\p@ \@plus\p@ \@minus\p@ \itemsep \parsep}% \belowdisplayskip \abovedisplayskip } \newcommand\footnotesize{% \@setfontsize\footnotesize\@viipt\@viiipt \abovedisplayskip 4\p@ \@plus2\p@ \@minus2\p@ \abovedisplayshortskip \z@ \@plus1\p@ \belowdisplayshortskip 2.5\p@ \@plus\p@ \@minus\p@ \def\@listi{\leftmargin\leftmargini \topsep 3\p@ \@plus\p@ \@minus\p@ \parsep 2\p@ \@plus\p@ \@minus\p@ \itemsep \parsep}% \belowdisplayskip \abovedisplayskip } \newcommand\scriptsize{\@setfontsize\scriptsize\@vipt\@viipt} \newcommand\tiny{\@setfontsize\tiny\@vpt\@vipt} \newcommand\large{\@setfontsize\large\@xpt\@xiipt} \newcommand\Large{\@setfontsize\Large\@xipt{13}} \newcommand\LARGE{\@setfontsize\LARGE\@xiipt{14}} \newcommand\huge{\@setfontsize\huge\@xivpt{18}} \newcommand\Huge{\@setfontsize\Huge\@xviipt{22}} \if@twocolumn \setlength\parindent{1em} \else \setlength\parindent{14pt} \fi \setlength\smallskipamount{3\p@ \@plus 1\p@ \@minus 1\p@} \setlength\medskipamount{6\p@ \@plus 2\p@ \@minus 2\p@} \setlength\bigskipamount{12\p@ \@plus 4\p@ \@minus 4\p@} \setlength\headheight{12\p@} \setlength\headsep {25\p@} \setlength\topskip {9\p@} \setlength\footskip{30\p@} \setlength\maxdepth{.5\topskip} \setlength\@tempdima{\paperwidth} \addtolength\@tempdima{-2in} \setlength\@tempdimb{330\p@} \if@twocolumn \ifdim\@tempdima>2\@tempdimb\relax \setlength\textwidth{2\@tempdimb} \else \setlength\textwidth{\@tempdima} \fi \else \ifdim\@tempdima>\@tempdimb\relax \setlength\textwidth{\@tempdimb} \else \setlength\textwidth{\@tempdima} \fi \fi \@settopoint\textwidth \setlength\@tempdima{\paperheight} \addtolength\@tempdima{-2in} \addtolength\@tempdima{-1.5in} \divide\@tempdima\baselineskip \@tempcnta=\@tempdima \setlength\textheight{\@tempcnta\baselineskip} \addtolength\textheight{\topskip} \if@twocolumn \setlength\marginparsep {10\p@} \else \setlength\marginparsep{10\p@} \fi \setlength\marginparpush{5\p@} \if@twoside \setlength\@tempdima {\paperwidth} \addtolength\@tempdima {-\textwidth} \setlength\oddsidemargin {.4\@tempdima} \addtolength\oddsidemargin {-1in} \setlength\marginparwidth {.6\@tempdima} \addtolength\marginparwidth {-\marginparsep} \addtolength\marginparwidth {-0.4in} \else \setlength\@tempdima {\paperwidth} \addtolength\@tempdima {-\textwidth} \setlength\oddsidemargin {.5\@tempdima} \addtolength\oddsidemargin {-1in} \setlength\marginparwidth {.5\@tempdima} \addtolength\marginparwidth {-\marginparsep} \addtolength\marginparwidth {-0.4in} \addtolength\marginparwidth {-.4in} \fi \ifdim \marginparwidth >2in \setlength\marginparwidth{2in} \fi \@settopoint\oddsidemargin \@settopoint\marginparwidth \setlength\evensidemargin {\paperwidth} \addtolength\evensidemargin{-2in} \addtolength\evensidemargin{-\textwidth} \addtolength\evensidemargin{-\oddsidemargin} \@settopoint\evensidemargin \setlength\topmargin{\paperheight} \addtolength\topmargin{-2in} \addtolength\topmargin{-\headheight} \addtolength\topmargin{-\headsep} \addtolength\topmargin{-\textheight} \addtolength\topmargin{-\footskip} % this might be wrong! \addtolength\topmargin{-.5\topmargin} \@settopoint\topmargin \setlength\footnotesep{6.3\p@} \setlength{\skip\footins}{8\p@ \@plus 4\p@ \@minus 2\p@} \setlength\floatsep {12\p@ \@plus 2\p@ \@minus 2\p@} \setlength\textfloatsep{18\p@ \@plus 2\p@ \@minus 4\p@} \setlength\intextsep {12\p@ \@plus 2\p@ \@minus 2\p@} \setlength\dblfloatsep {12\p@ \@plus 2\p@ \@minus 2\p@} \setlength\dbltextfloatsep{18\p@ \@plus 2\p@ \@minus 2\p@} \setlength\@fptop{0\p@ \@plus 1fil} \setlength\@fpsep{8\p@ \@plus 2fil} \setlength\@fpbot{0\p@ \@plus 1fil} \setlength\@dblfptop{0\p@ \@plus 1fil} \setlength\@dblfpsep{8\p@ \@plus 2fil} \setlength\@dblfpbot{0\p@ \@plus 1fil} \setlength\partopsep{2\p@ \@plus \p@ \@minus \p@} \def\@listi{\leftmargin\leftmargini \parsep 4\p@ \@plus2\p@ \@minus\p@ \topsep 6\p@ \@plus2\p@ \@minus3\p@ \itemsep \parsep} \let\@listI\@listi \@listi \def\@listii {\leftmargin\leftmarginii \labelwidth\leftmarginii \advance\labelwidth-\labelsep \topsep 4\p@ \@plus2\p@ \@minus\p@ \parsep 2\p@ \@plus\p@ \@minus\p@ \itemsep \parsep} \def\@listiii{\leftmargin\leftmarginiii \labelwidth\leftmarginiii \advance\labelwidth-\labelsep \topsep 2\p@\@plus\p@\@minus\p@ \parsep \z@ \partopsep \p@ \@plus\z@ \@minus\p@ \itemsep \topsep} \def\@listiv {\leftmargin\leftmarginiv \labelwidth\leftmarginiv \advance\labelwidth-\labelsep} \def\@listv {\leftmargin\leftmarginv \labelwidth\leftmarginv \advance\labelwidth-\labelsep} \def\@listvi {\leftmargin\leftmarginvi \labelwidth\leftmarginvi \advance\labelwidth-\labelsep} \endinput %% goo-0.155/doc/texdefs.tex0100644000175000017500000000714407471212553014656 0ustar vomjomvomjom\newcommand{\goo}{$\mathcal{GOO}$} \newcommand{\emptybox}{\mbox{\ }} \newcommand{\kode}[1]{{\scriptsize\tt #1}} % \newenvironment{ex}% % {\scriptsize\setlength{\parskip}{0pt} % \verbatim} % {\endverbatim\vspace*{-0.1in}} \newenvironment{ex}{\small\begin{example}}{\end{example}} \newenvironment{exv}{\scriptsize\verbatim}{\endverbatim} % \newenvironment{exv}% % {\scriptsize % \begin{center} % \begin{Sbox} % \begin{minipage}{3.25in} % \verbatim} % {\endverbatim % \end{minipage} % \end{Sbox} % \end{center} % \shadowbox{\TheSbox}} \newenvironment{packeditemize} {\begin{list}{$\bullet$}{ \setlength{\topsep}{0pt} \setlength{\parsep}{0pt} \setlength{\parskip}{0pt} \setlength{\itemsep}{0pt}}} {\end{list}} \newenvironment{defs}{}{} %\newcommand{\kode}[1]{\scriptsize\verbatim#1\endverbatim} \newlength{\parenlength} % \settowidth{\parenlength}{\kode{(}} % -factor \newlength{\twospacelength} % \settowidth{\twospacelength}{\kode{xx}} % -factor \newcommand{\snl}{\newline\hspace*{\parenlength}} \newcommand{\inl}{\newline\hspace*{\twospacelength}} \setlength{\shadowsize}{1pt} \newcommand{\kind}[1]{\hspace*{0.015in}\hfill\small{$\mathcal #1$}\hfill} %\newlength{\defnamelength}\setlength{\defnamelength}{1.25in} \newlength{\defnamelength} \settowidth{\defnamelength}{\kode{insensitive-}} % -factor \newlength{\defkindlength} \settowidth{\defkindlength}{\kind{M}} \addtolength{\defkindlength}{-0.125in} % fudge \newlength{\defsiglength}\setlength{\defsiglength}{\columnwidth} \addtolength{\defsiglength}{-1\defnamelength} \addtolength{\defsiglength}{-1\defkindlength} % \addtolength{\defsiglength}{-0.3in} % fudge % \addtolength{\defsiglength}{-0.15in} % fudge % \addtolength{\defsiglength}{-0.20in} % fudge \addtolength{\defsiglength}{-0.165in} % fudge %\newlength{\defsiglength}\settowidth{\defsiglength}{\kode{(owner getter| setter| type init|)}} % \newlength{\defsiglength}\setlength{\defsiglength}{3in} \newlength{\defcontnamelength} \setlength{\defcontnamelength}{\defnamelength} \addtolength{\defcontnamelength}{-0.01in} % fudge \typeout{textwidth = \the\textwidth} \typeout{columnwidth = \the\columnwidth} \typeout{namelength = \the\defnamelength} \typeout{kindlength = \the\defkindlength} \typeout{siglength = \the\defsiglength} \parindent 0pt \newcommand{\dbox}{\shadowbox} %\fbox \newcommand{\defnoindex}[3]{ \dbox{ \parbox[t]{\defnamelength}{\setlength{\baselineskip}{0.5\baselineskip}\kode{#1}} } \dbox{ \parbox[t]{\defsiglength}{\kode{#2}} } \hfill\penalty 0 \dbox{ \makebox[\defkindlength][c]{\kind{#3}} } \newline} \newcommand{\defcontnoindex}[2]{ {\setlength{\fboxrule}{0pt} \framebox{ \parbox{\defcontnamelength}{\setlength{\baselineskip}{0.5\baselineskip}\kode{\hfill}} }} \rule{0.1pt}{0mm} \dbox{ \parbox[t]{\defsiglength}{\kode{#1}} } \hfill\penalty 0 \dbox{ \makebox[\defkindlength][c]{\kind{#2}} } \newline} \newlength{\defdocindentlength}\setlength{\defdocindentlength}{0.25\defnamelength} \newlength{\defdoclength}\setlength{\defdoclength}{0in} \addtolength{\defdoclength}{\defnamelength} \addtolength{\defdoclength}{\defsiglength} \addtolength{\defdoclength}{\defkindlength} \addtolength{\defdoclength}{2\defdocindentlength} % column mode % \addtolength{\defdoclength}{-1\defdocindentlength} \addtolength{\defdoclength}{0.0275in} \newcommand{\doc}[1]{\noindent\makebox[\defdocindentlength]{}\fbox{\parbox{\defdoclength}{\small\it #1}}\newline} % \newcommand{\doc}[1]{\noindent\makebox[\defdocindentlength]{}\parbox{\defdoclength}{\small\it #1}\newline} % \hbox{\spaceskip=0.5em{{\rm #1}}} goo-0.155/doc/version-number.tex0100644000175000017500000000000607445743564016171 0ustar vomjomvomjom0.115 goo-0.155/doc/manual/0040755000175000017500000000000007756746023013756 5ustar vomjomvomjomgoo-0.155/doc/manual/CVS/0040755000175000017500000000000007756746023014411 5ustar vomjomvomjomgoo-0.155/doc/manual/CVS/Root0100644000175000017500000000003307756746022015247 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/doc/manual/CVS/Repository0100644000175000017500000000001707756746022016505 0ustar vomjomvomjomgoo/doc/manual goo-0.155/doc/manual/CVS/Entries0100644000175000017500000001341507756746023015746 0ustar vomjomvomjom/blank.gif/1.1/Fri Jul 19 14:46:06 2002// /goomanual.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_1.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_10.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_11.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_12.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_13.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_14.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_15.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_16.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_17.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_18.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_19.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_2.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_20.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_21.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_22.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_23.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_24.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_25.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_26.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_27.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_28.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_29.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_3.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_30.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_31.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_32.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_33.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_34.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_35.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_36.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_37.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_38.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_39.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_4.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_40.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_41.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_42.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_43.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_44.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_45.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_46.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_47.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_48.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_49.html/1.9/Wed Nov 19 20:00:41 2003// /goomanual_5.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_50.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_51.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_52.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_53.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_54.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_55.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_56.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_57.html/1.6/Wed Nov 19 20:00:42 2003// /goomanual_6.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_7.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_8.html/1.9/Wed Nov 19 20:00:42 2003// /goomanual_9.html/1.9/Wed Nov 19 20:00:42 2003// /gooomanual.html/1.1/Fri Jul 19 14:46:07 2002// /gooomanual_1.html/1.1/Fri Jul 19 14:46:07 2002// /gooomanual_10.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_11.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_12.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_13.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_14.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_15.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_16.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_17.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_18.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_19.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_2.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_20.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_21.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_22.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_23.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_24.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_25.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_26.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_27.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_28.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_29.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_3.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_30.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_31.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_32.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_33.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_34.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_35.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_36.html/1.1/Fri Jul 19 14:46:08 2002// /gooomanual_37.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_38.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_39.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_4.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_40.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_41.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_42.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_43.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_44.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_45.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_46.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_47.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_48.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_49.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_5.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_50.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_51.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_52.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_53.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_54.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_55.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_6.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_7.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_8.html/1.1/Fri Jul 19 14:46:09 2002// /gooomanual_9.html/1.1/Fri Jul 19 14:46:09 2002// /next.gif/1.1/Fri Jul 19 14:46:09 2002// /previous.gif/1.1/Fri Jul 19 14:46:09 2002// /up.gif/1.1/Fri Jul 19 14:46:09 2002// D goo-0.155/doc/manual/blank.gif0100644000175000017500000000364607516023056015526 0ustar vomjomvomjomGIF87a  3f333f3333f3ffffff3f̙3f3f333f333333333f33333333f33f3ff3f3f3f3333f33̙33333f3333333f3333f3ffffff3f33ff3f3f3f3fff3ffffffffffff3ffff̙fff3fffffff3ffffff3f333f3333f3ffffff3f̙̙3̙f̙̙̙̙3f3f̙333f3̙333f3fff̙fff3f̙̙3f̙3f̙3f333f3333f3ffffff3f̙3f3f, @e˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[6ٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖ `lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lٲe˖-[lf˖-[lٲe˖- ;goo-0.155/doc/manual/goomanual.html0100644000175000017500000000354207756745751016636 0ustar vomjomvomjom <i>GOO</i> Manual  

    GOO Reference Manual v46

    Jonathan Bachrach
    MIT AI Lab

    November 19, 2003

  • Introduction
  • Expressions
  • Namespaces and Bindings
  • Program Control
  • Types, Classes and Properties
  • Functions
  • Macros
  • Scalars
  • Collections
  • Symbols
  • Conditions
  • Input / Output
  • System
  • Threads
  • C Interface
  • Compiler
  • Top Level
  • Installation
  • Usage
  • Caveats
  • Future
  • History and Acknowledgements
  • Index
  • References
  • Class Precedence List
  • Subtyping Rules
  • Footnotes
    • goo-0.155/doc/manual/goomanual_1.html0100644000175000017500000000401707756745751017054 0ustar vomjomvomjom <i>GOO</i> Manual -- Introduction
    \end{rawhtml}} \newcommand{\newline}{} \newcommand{\snl}{} \newcommand{\inl}{} \newcommand{\emptybox}{} \newenvironment{packeditemize}{\begin{itemize}}{\end{itemize}} \newenvironment{ex}{\begin{example}}{\end{example}} \newenvironment{exv}{\verbatim}{\endverbatim} \newcommand{\kode}[1]{{\tt #1}} \xmlattributes{table}{border} } %%%%%%%%%%%%%%%% end of HTML def definitions \newcommand{\define}[3]{\defnoindex{{#1}}{{#2}}{{#3}}} % \mainschindex{{#1}}}} % \newcommand{\def}[3]{\defnoindex{{#1}}{{#2}}{{#3}}\mainschindex{{#1}}} \newcommand{\subsubsubsection}[1]{\subsubsection*{#1}} \newcommand{\form}[2]{\define{{#1}}{{#2}}{S}} \newcommand{\formcont}[1]{\defcontnoindex{{#1}}{S}} \newcommand{\syntax}[2]{\define{{#1}}{$\equiv$ {#2}}{L}} \newcommand{\notation}[2]{\define{{#1}}{{\it #2}}{N}} \newcommand{\alias}[2]{\define{{#1}}{{#2}}{A}} \newcommand{\generic}[2]{\define{{#1}}{({#2})}{G}} \newcommand{\method}[2]{\define{{#1}}{({#2})}{M}} \newcommand{\methodcont}[1]{\defcontnoindex{({#1})}{M}} \newcommand{\function}[2]{\define{{#1}}{({#2})}{F}} \newcommand{\class}[2]{\define{{#1}}{({#2})}{C}} \newcommand{\property}[2]{\define{{#1}}{({#2})}{P}} \newcommand{\propertyinit}[3]{\define{{#1}}{({#2})}{P}} \newcommand{\instance}[2]{\define{{#1}}{{#2}}{I}} \newcommand{\command}[2]{\define{{#1}}{{#2}}{K}} goo-0.155/doc/doc.txt0100644000175000017500000010311707366115765014007 0ustar vomjomvomjomTHE PROTO PROGRAMMING LANGUAGE JONATHAN BACHRACH MIT AI LAB VERSION 0.102 SEP 20, 2001 0 Introduction Proto is a new dynamic type-based object-oriented language. It is meant to be simple, productive, powerful, extensible, dynamic, efficient and real-time. It heavily leverages features from many earlier languages. In particular, it attempts to be a simpler lisp-syntaxed Dylan, an object-oriented Scheme, and a lispified Cecil. This is a very preliminary document. 1 CORE SYNTAX 1.0 LEXICAL STRUCTURE same as Scheme. 1.1 SPECIAL FORMS IF (IF ,test ,then ,else) SEQ (SEQ ,@forms) SET (SET ,binding-clause) | (SET (,name ,@args) ,form) FUN (FUN ,sig ,@body) LET (LET ((,binding-clause) ...) ,@body) LOC (LOC ((,name ,sig ,@body) ...) ,@body) LAB (LAB ,name ,@body) FIN (FIN ,protected-form ,@cleanup-forms) DV (DV ,binding-clause) DM (DM ,name ,sig ,@body) DG (DG ,name ,sig) DC (DC ,name (,@parents)) ISA (ISA ,type ,@slot-inits) SLOT (SLOT ,owner ,var ,init) DS (DS ,pattern ,@body) CT (CT ,@body) CT-ALSO (CT-ALSO ,@body) MACRO-EXPAND (MACRO-EXPAND ,form) NEXT-METHOD (NEXT-METHOD ,@args) | (APPLY-NEXT-METHOD ,args) QUOTE (QUOTE ,form) with ',form == (QUOTE ,form) USE (USE ,name) EXPORT (EXPORT ,@names) where _ ,form | ,@forms binding-clause ,var ,value | (TUP ,var ...) ,value sig (,@vars) | (,@vars => ,type) var ,name | (,name ,type) pattern (QUASIQUOTE ...) slot-init (SET ,name ,value) handler (fun (,condition ,resume) ,@body) 1.2 MACROS DF (DF ,name ,sig ,@body) TRY (TRY ,try-options ,handler-function ,@body) REP (REP ,name ((,var ,init) ...) ,@body) == (LOC ((,name (,var ...) ,@body)) (,name ,init ...)) MIF (MIF (,pattern ,value) ,then ,else) AND (AND ,@forms) OR (OR ,@forms) SELECT (SELECT ,value ((,@keys) ,@body) ...) CASE (CASE (,test ,@body) ...) INC (INC ,name) | (INC (,name ,@rest)) DEC (DEC ,name) | (DEC (,name ,@rest)) UNLESS (UNLESS ,test ,@body) WHEN (WHEN ,test ,@body) ASSERT (ASSERT ,test ,message ,@args) PUSHF (PUSHF ,place ,expression) POPF (POPF ,place) where ,try-options ,condition-type-name | ,try-option-list ,try-option-list (,try-option* ) ,try-option (,option-name ,@option-value) 1.3 READ MACROS QQ (QUASIQUOTE ...) with (UNQUOTE ,form) and (SPLICING-UNQUOTE ,form) and `(...) == (QUASIQUOTE ...) 2 CORE SEMANTICS 2.1 SPECIAL FORMS QUOTE (QUOTE ,form) with ',form == (QUOTE ,form) (cf., Scheme's QUOTE) IF (IF ,test ,then ,else) evaluates either ,then if ,test is non-false otherwise evaluates ,else (cf. Scheme's IF). SEQ (SEQ) returns false (SEQ ,@forms) evaluates forms sequentially and returns values of evaluating last form (cf. Scheme's BEGIN) SET (SET ,name ,form) sets ,name binding to value of evaluating ,form (cf. Scheme's SET!) (SET (,name ,@args) ,form) equivalent to (,name ## -setter ,form ,@args) FUN (FUN ,sig ,@body) creates an anonymous method with signature ,sig and when called evaluates ,@body as (SEQ ,@body) (cf. Scheme's LAMBDA). LET (LET ((,var ,val) ...) ,@body) sequentially binds ,var's to ,val's and evaluates (SEQ ,@body) in the context of those bindings (cf. Scheme's LET*) (LET (((TUP ,var ...) ,val) ...) ,@body) parallel binding can also be specified using TUP on the lhs of a LET binding. For example (LET (((TUP x y) (TUP 1 2))) (lst x y)) => (1 2) LOC (LOC ((,name ,sig ,@body) ...) ,@body) introduces local functions that can recursively call each other (cf. Scheme's LETREC). this is equivalent to: (LET ((,name nul) ...) (SET ,name (fun ,sig ,@body)) ... ,@body) LAB (LAB ,name ,@body) evaluates (SEQ ,@body) with a single argument exit function bound to ,name that if called will cause LAB to yield the argument value (cf. Dylan's BLOCK/RETURN). It is illegal to call the exit function after the execution of the creating LAB form (i.e., no upward continuations). FIN (FIN ,protected-form ,@cleanup-forms) ensures that (SEQ ,@cleanup-forms) is evaluated if an exit evaluated during the dynamic-extent of ,protected-form attempts to exit upwards (cf. Dylan's BLOCK/CLEANUP form and CL's UNWIND-PROTECT). DV (DV ,var ,form) defines a variable named (var-name ,var) with an initial value ,form (cf. Scheme's DEFINE). DG (DG ,name ,sig) defines a binding with name ,name bound to a generic with signature ,sig. DM (DM ,name ,sig ,@body) first ensures that a generic exists named ,name and with a minimally congruent to signature ,sig and then adds a method with signature ,sig and body ,@body (cf., Dylan's DEFINE METHOD). DC (DC ,name (,@parents)) defines a class named ,name with direct parents ,@parents ISA (ISA ,type ,@slot-inits) creates an instance of type ,type and slot initialized as specified by ,@slot-inits. For example, (ISA (set point-x 1) (set point-y 2)) creates a point with x=1 and y=2. SLOT (SLOT ,owner ,var [,init]) add's a slot to ,owner with getter being (var-name ,var), setter named (make-setter-name (var-name ,var)), type being (var-type ,var), and optionally initial value being ,init and defaulting to nul. the initial value is evaluated lazily when slot's value is first requested. DS (DS ,pattern ,@body) defines a macro matching pattern ,pattern and expanding according to ,@body. The pattern matching occurs as in MIF and makes available pattern variables during the evaluation of (SEQ ,@body). For example, (DS (when ,test ,@body) `(if (not ,test) (seq ,@body))) defines the when macro in Proto. CT (CT ,@body) evaluates (SEQ ,@body) at compile-time allowing a user to make available computations for the purpose of macro-expansion. CT-ALSO (CT-ALSO ,@body) equivalent to CT, but also includes a copy of ,@body in compiled images. Similar to '(eval-when (:compile-toplevel :execute) ...)' in Common LISP. The return value of CT-ALSO is undefined. MACRO-EXPAND (MACRO-EXPAND ,form) recursively expands macros in expression ,form. NEXT-METHOD (NEXT-METHOD ,@args) (APPLY-NEXT-METHOD ,args) calls next most applicable method either as call or apply. N.B., all arguments must be supplied. USE (USE ,name) Loads the module ,name (if it hasn't been loaded already) and aliases all the exported bindings into the current namespace. EXPORT (EXPORT ,name) Makes the binding ,name available to code which uses this module in the future. 2.2 MACROS DF (DF ,name ,sig ,@body) == (DV ,name (FUN ,sig ,@body)) TRY (TRY ,try-options ,handler-function ,@body) installs ,handler-function as a condition handler for the duration of (SEQ ,@body), using the instructions provided by ,try-options. ,try-options should either be the name of the condition type to handle, or a ,try-option-list with zero or more of the following options: (TYPE ,expr) => An expression returning the type of condition to handle. (TEST ,@body) => Code which returns #t if the condition is applicable, and #f otherwise. This may be called at arbitrary times by the runtime, so it shouldn't do anything too alarming. (DESCRIPTION ,message ,@arguments) => A human-readable description of this handler. Used by the debugger. The handler function should take two arguments: the ,condition to be handled, and a ,resume function. if a matching condition is signaled then the handler function is called with the signaled condition and a resume function to be called if the handler wants to return a value to be used as the result of the signaling SIG call. the handler has three possibilities: (1) it can handle the condition by taking an exit using LAB, (2) it can resume to the original SIG call using the resume function called with the value to be returned, or (3) it can do neither, that is, it can choose not to handle the condition by just falling through to the end of the handler (cf., Dylan's BLOCK/EXCEPTION and LET HANDLER) and the next available handler will be invoked. Note that Proto DOES NOT UNWIND THE STACK before calling handlers! REP (REP ,name ((,var ,init) ...) ,@body) == (LOC ((,name (,var ...) ,@body)) (,name ,init ...)) defines a recursive loop (cf., Dylan's ITERATE or Scheme's LET ,var ...). MIF (MIF (,pattern ,value) ,then [ ,else ]) evaluates ,then with pattern variables bound to matched parts of value if matching succeeds and otherwise evaluates ,else. The pattern is much the same as QUASIQUOTE and can contain either UNQUOTE'd variables or UNQUOTE-SPLICING variables. For example, (MIF ((,a ,b) '(1 2)) (lst a b)) => (1 2) and (MIF ((,a ,@b) '(1 2)) (lst a b)) => (1 (2)) AND (AND ,form) == ,form (AND ,form ,@forms) == (IF ,form (AND ,@FORMS)) OR (OR ,form) == ,form (OR ,@forms) == (LET ((x ,form)) (IF x x (OR ,@FORMS))) SELECT (SELECT ,value ((,@keys) ,@body) ...) evaluates ,value and then evaluates (SEQ ,@body) of first clause which contains a matching key (cf. Dylan's SELECT and Scheme's CASE). CASE (CASE (,test ,@body) ...) evaluates (SEQ ,@body) of first clause whose ,test evaluates to non-false (cf. Dylan's CASE and Scheme's COND). INC (INC ,name) == (SET ,name (+ ,name 1)) (INC (,name ,@rest)) == (SET (,name ,@rest) (+ (,name ,@rest) 1)) DEC (DEC ,name) == (SET ,name (+ ,name 1)) (DEC (,name ,@rest)) == (SET (,name ,@rest) (+ (,name ,@rest) 1)) UNLESS (UNLESS ,test ,@body) == (IF (NOT ,test) (SEQ ,@body)) WHEN (WHEN ,test ,@body) == (IF ,test (SEQ ,@body)) ASSERT (ASSERT ,test ,message ,@args) == (UNLESS ,test (ERROR ,message ,@args)) FOR (FOR (for-clause ...) ,@body) where for-clause = (,val ,col) | ((tup ,key ,val) ,col) parallel iteration over collections using collection iteration protocol. PUSHF (PUSHF ,place ,expression) pushes ,expression onto the front of the collection stored in ,place, updates ,place to contain the new collection, and returns the new collection. POPF (POPF ,place) pops a value from the front of the collection stored in ,place, replaces the collection with an updated collection, and returns the value. SWAPF (SWAPF ,x ,y) == (LET ((tmp ,x)) (SET ,x ,y) (SET ,y tmp)) COLLECTING (COLLECTING () ,@body) (COLLECT ,x) mechanism for accumulating lists of objects. COLLECTING returns list all COLLECT'd objects in body. 2.3 READ MACROS QQ (QUASIQUOTE ...) with (UNQUOTE ,form) and (SPLICING-UNQUOTE ,form) and `(...) == (QUASIQUOTE ...) same as Lisp and Scheme's QUASIQUOTE. 3 LIBRARY 3.1 ANY Class () is the top of the prototype inheritance hierarchy. Generic as ((x ) (y ) => ) coerces y to an instance of x. Generic object-parents ((x ) => ) Generic object-slots ((x ) => ) 3.2 COMPARABLES Generic == ((x ) (y ) => ) Generic = ((x ) (y ) => ) Generic < ((x ) (y ) => ) Generic ~= ((x ) (y ) => ) Generic ~== ((x ) (y ) => ) Generic > ((x ) (y ) => ) Generic <= ((x ) (y ) => ) Generic >= ((x ) (y ) => ) Generic min ((x ) (y ) => ) Generic max ((x ) (y ) => ) 3.3 NULL Instance nul (isa ) Function nul? (x => ) 3.4 BOOLEANS Class () Instance #f Instance #t Method not ((x ) => ) 3.5 CHARACTERS Class () Generic lowercase? ((x ) => ) Generic uppercase? ((x ) => ) Generic as-lowercase ((x ) => ) Generic as-uppercase ((x ) => ) Generic alphabetic? ((x ) => )) Generic numeric? ((x ) => )) Generic to-digit ((x ) => ) Generic eof-object? ((x ) => ) 3.6 NUMBERS (mostly same as Dylan) Class () Generic + ((x ) (y ) => ) Generic - ((x ) (y ) => ) Generic * ((x ) (y ) => ) Generic / ((x ) (y ) => ) Generic floor ((x ) => (tup (rem ))) Generic ceiling ((x ) => (tup (rem ))) Generic round ((x ) => (tup (rem ))) Generic truncate ((x ) => (tup (rem ))) Generic floor/ ((x ) (y ) => (tup (rem ))) Generic ceiling/ ((x ) (y ) => (tup (rem ))) Generic round/ ((x ) (y ) => (tup (rem ))) Generic truncate/ ((x ) (y ) => (tup (rem ))) Generic modulo ((x ) (y ) => ) Generic remainder ((x ) (y ) => ) Generic pos? ((x ) => ) Generic zero? ((x ) => ) Generic neg? ((x ) => ) Generic neg ((x ) => ) Generic abs ((x ) => ) Instance *print-base* (isa ) Generic num-to-str ((x ) => ) Generic str-to-num ((x ) => ) 3.6.1 INTEGERS (same as Dylan) Class () Generic logior ((x ) (y ) => ) Generic logxor ((x ) (y ) => ) Generic logand ((x ) (y ) => ) Generic lognot ((x ) => ) Generic logbit? ((x ) (y ) => ) Generic even? ((x ) => ) Generic odd? ((x ) => ) Generic gcd ((x ) (y ) => ) ;; NYI Generic lcm ((x ) (y ) => ) ;; NYI Generic ash ((x ) (y ) => ) Generic lsh ((x ) (y ) => ) 3.6.2 FLOATS Class () Generic flo-bits ((x ) => ) 3.6.3 LOCATIVES Class () Generic locative-value ((x ) => ) Generic locative-value-setter ((address ) (x )) Generic address-of ((x ) => ) 3.7 COLLECTIONS (look at runtime.proto) Class
    ExpressionsTopIntroduction

    Introduction

    GOO is a dynamic type-based object-oriented language. It is designed to be simple, productive, powerful, extensible, dynamic, efficient and real-time. It heavily leverages features from many earlier languages. In particular, it attempts to be a simpler, more dynamic, lisp-syntaxed Dylan [4] and an object-oriented Scheme [3]. GOO's main goal is to offer the best of both scripting and delivery languages while at the same time incorporating an extreme back-to-basics philosophy. GOO is freely available from www.googoogaga.org under GPL. This manual is preliminary and relies on an understanding of Scheme and Dylan.

  • Notation
  • Lexical Structure
  • Meta Syntax
  • Conventions
    • ExpressionsTopIntroduction
    goo-0.155/doc/manual/goomanual_10.html0100644000175000017500000000436407756745751017141 0ustar vomjomvomjom <i>GOO</i> Manual -- Singletons
    SubclassesTypes, Classes and PropertiesSingletons

    Singletons

    Singleton types match exactly one value using ==. Singletons are the most specific types.
     <singleton> (<type>) C
     t= (x|<any> => <singleton>) G
    returns singleton constrained to x.
     type-object (x|<singleton> => <any>) G
    object that singleton type matches.

    SubclassesTypes, Classes and PropertiesSingletons
    goo-0.155/doc/manual/goomanual_11.html0100644000175000017500000000464207756745751017141 0ustar vomjomvomjom <i>GOO</i> Manual -- Subclasses
    UnionsTypes, Classes and PropertiesSingletonsSubclasses

    Subclasses

    Subclass types match classes and their subclasses. They are quite useful in situations that involve class arguments that need to be further constrained.
     <subclass> (<type>) C
     t< (x|<class> => <subclass>) G
    returns subclass type constrained to subclasses of x.
     type-class (x|<subclass> => <class>) G
    object that subclass type matches.

    UnionsTypes, Classes and PropertiesSingletonsSubclasses
    goo-0.155/doc/manual/goomanual_12.html0100644000175000017500000000552607756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Unions
    ProductTypes, Classes and PropertiesSubclassesUnions

    Unions

    Union types represent the disjunction of types. In conjunction with singleton types, they can be used to represent C-style enum's.
     <union> (<type>) C
     t+ (types|... => <union>) G
    returns union type representing disjunction of types.
     union-elts (x|<union> => <seq>) G
    types that union type matches.
     t? (type|<type> => <union>) F
    == (t+ (t= #f) type) (cf., Dylan's false-or). This is often used to widen a type to include the convenient false null.

    ProductTypes, Classes and PropertiesSubclassesUnions
    goo-0.155/doc/manual/goomanual_13.html0100644000175000017500000000456407756745751017146 0ustar vomjomvomjom <i>GOO</i> Manual -- Product
    ClassesTypes, Classes and PropertiesUnionsProduct

    Product

    Product types represent tuples formed as the cartesian product of types. They are often used to describe multiple value return types.
     <product> (<type>) C
     t* (types|... => <product>) G
    returns product type specifying the cross product of types.
     product-elts (x|<product> => <seq>) G
    types that product type matches.

    ClassesTypes, Classes and PropertiesUnionsProduct
    goo-0.155/doc/manual/goomanual_14.html0100644000175000017500000002413607756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Classes
    Types, Classes and PropertiesProductClasses

    Classes

    Classes are types that specify an inheritance relationship and can have associated structured data through properties.
     <class> (<type>) C
     class-name (x|<class> => (t? <sym>)) G
    returns class name or false otherwise.
     class-parents (x|<class> => <seq>) G
    direct superclasses.
     class-ancestors (x|<class> => <seq>) G
    class precedence list including this class. See Appendix * for details.
     class-direct-props (x|<class> => <seq>) G
    properties defined directly on this class.
     class-props (x|<class> => <seq>) G
    properties defined on this class or any superclass.
     class-children (x|<class> => <seq>) G
    direct subclasses.
     DC (DC ,name (,@parents)) S
    defines a class named ,name with direct parents ,@parents
     new (type|<class> prop-inits|...) M
    creates an instance of type type and prop initialized as specified by prop-inits. For example, (new <point> point-x 1 point-y 2) creates a point with x=1 and y=2.

    Properties

    Properties are named data associated with classes. Their values are accessed exclusively through generic functions, called getters and setters. Descriptions of properties are instances of <prop>. Property values can either be specified at creation time with keyword arguments, by calling a property setter, or through a property initialization function called lazily the first time a getter is called if the property is otherwise uninitialized. Property initialization functions are called with a single argument, the object under construction.
     <prop> (<any>) C
     prop-owner (x|<prop> => <any>) P
    class on which property was directly defined.
     prop-getter (x|<prop> => <gen>) P
    reader accessor generic.
     prop-setter (x|<prop> => <gen>) P
    writer accessor generic.
     prop-type (x|<prop> => <type>) P
    type constraining property value.
     prop-init (x|<prop> => <fun>) P
    lazy initialization function.
     find-getter (c|<class> getter|<gen> => <met>) G
    finds getter method defined on given class.
     find-setter (c|<class> setter|<gen> => <met>) G
    finds setter method defined on given class.
     prop-bound? (x g|<gen> => <log>) P
    returns true if property with getter g is bound in instance x.
     add-prop (owner getter|<gen> setter|<gen> type|<type> init|<fun>) M
    where init is a one parameter function that returns the initial value for the prop and gets called lazily with the new instance as the argument.
     DP (DP ,name (,oname|,owner => ,type) [,@init]) S
    add's an immutable property to ,owner with getter named ,name, type ,type, and optionally initial value ,init. The initial value function is evaluated lazily when prop's value is first requested.
     DP! (DP! ,name (,oname|,owner => ,type) [,@init]) S
    same as DP but mutable with setter named ,name ## "-setter"

    Types, Classes and PropertiesProductClasses
    goo-0.155/doc/manual/goomanual_15.html0100644000175000017500000002506207756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Functions
    MacrosTopTypes, Classes and PropertiesFunctions

    Functions

    All operations in GOO are functions.

    Functions accept zero or more arguments, and return one value. The parameter list of the function describes the number and types of the arguments that the function accepts, and the type of the value it returns.

    There are two kinds of functions, methods and generic functions. Both are invoked in the same way. The caller does not need to know whether the function it is calling is a method or a generic function.

    A method is the basic unit of executable code. A method accepts a number of arguments, creates local bindings for them, executes an implicit body in the scope of these bindings, and then returns a value.

    A generic function contains a number of methods. When a generic function is called, it compares the arguments it received with the parameter lists of the methods it contains. It selects the most appropriate method and invokes it on the arguments. This technique of method dispatch is the basic mechanism of polymorphism in GOO.

    All GOO functions are objects, instances of <fun>. Generic functions are instances of <gen> and methods are instances of <met>.
     <fun> (<any>) C
     fun-name (x|<fun> => (t? <sym>)) P
    returns the name of function or false if unavailable.
     fun-names (x|<fun> => <lst>) P
    returns the names of parameters of x or () if unavailable.
     fun-specs (x|<fun> => <lst>) P
    returns the specializers of x.
     fun-nary? (x|<fun> => <log>) P
    returns true iff the function takes optional arguments.
     fun-arity (x|<fun> => <int>) P
    returns x's number of required arguments.
     fun-val (x|<fun> => <type>) P
    returns the return type of x.
     FUN (FUN ,sig ,@body) S
    creates an anonymous method with signature ,sig and when called evaluates ,@body as (SEQ ,@body) (cf. Scheme's LAMBDA). The following a few example functions and their application: 

    ((fun (x) x) 1) ==> 1 
((fun (x|<int> => <int>) x) 2) ==> 2 
((fun (x|...) x) 1 2 3) ==> (1 2 3) 
((fun (x y|...) y) 1 2 3) ==> (2 3) 
((fun (x => (tup <int>))) (tup x)) 1)  $ == $ (tup 1)
     { ... } { [ ,@sig '\' ] ,@body } S
    FUN abbreviation == (fun (,@sig) ,@body). This is particularly useful for lightweight thunks (e.g., {(+ x 1)} == (fun () (+ x 1))). N.B. this is an experimental syntax and might change in the future.

    where
     ,sig == (,@params) | (,@params => ,ret) L
     ,params == (,@vars [(,name '...')]) L
    where parameter lists can include an optional nary parameter which binds to all arguments beyond required arguments.
     ,ret == ,var | (TUP ,@ret-vars) L
    with TUP turning into corresponding t* function return type.
     ,ret-var == (,name ,type) L
     LOC (LOC ((,name ,sig ,@fbody)) ,@body) S
    == 
           (LET ((,name #f) ...) 
       (SET ,name (fun ,sig ,@fbody)) ... 
       ,@body)
    LOC introduces local functions that can recursively call each other (cf. Scheme's LETREC).
     DF (DF ,name ,sig ,@body) S
    == (DV ,name (FUN ,sig ,@body)) followed by setting the function's name.
     zipped (x|<fun> => <fun>) G
    == (fun (y|...) (app x y)). This is useful when mapping over zipped multiple sequences (e.g., (map (zipped +) (zip '(1 2) '(2 3))).
     OP (OP ,op-arg ...) S
    creates an anonymous function with implicitly defined arguments, where ,op-arg is either an implicit required parameter "_" or rest parameter "..." or an s-expression potentially containing further op-args. The required parameters are found ordered according to a depth-first walk of the op-args. The following are typical examples: 
    ((op _) 1) ==> 1 
((op 2) 1) ==> 2 
((op + _ 1) 3) ==> 4 
((op lst ... 1) 3 2) ==> (3 2 1) 
((op tail (tail _)) '(1 2 3)) ==> (3)
     app (f|<fun> args|... => <any>) G
    calls f with arguments (cat (sub args 0 (- (len args) 2)) (elt args (- (len args) 1))).

  • Generics
  • Methods
    • MacrosTopTypes, Classes and PropertiesFunctions
    goo-0.155/doc/manual/goomanual_16.html0100644000175000017500000000737607756745751017155 0ustar vomjomvomjom <i>GOO</i> Manual -- Generics
    MethodsFunctionsGenerics

    Generics

    Generic functions provide a form of polymorphism allowing many implementation methods with varying parameter types, called specializers. Methods on a given generic function are chosen according to applicability and are then ordered by specificity. A method is applicable if each argument is an instance of each corresponding specializer. A method A is more specific than method B if all of A's specializers are subtypes of B's. During method dispatch three cases can occur:

    • if no methods are applicable then a no-applicable-method error is signaled,
    • if methods are applicable but are not orderable then an ambiguous-method error is signaled,
    • if methods are applicable and are orderable then the most specific method is called and the next methods are established.
     <gen> (<fun>) C
     fun-mets (x|<gen> => <lst>) P
    returns x's methods.
     gen-add-met (x|<gen> y|<met> => <gen>) G
    adds method y to generic x.
     ord-app-mets (x|<gen> args|... => (tup ord|<lst> amb|<lst>)) G
    returns both the list of sorted applicable methods and any ambiguous methods when generic x is called with arguments args.
     DG (DG ,name ,sig) S
    defines a binding with name ,name bound to a generic with signature ,sig.
    MethodsFunctionsGenerics
    goo-0.155/doc/manual/goomanual_17.html0100644000175000017500000000614607756745751017150 0ustar vomjomvomjom <i>GOO</i> Manual -- Methods
    FunctionsGenericsMethods

    Methods

    Methods are GOO's code objects. Methods can optionally be added to generics.
     <met> (<fun>) C
     met-app? (x|<met> args|<lst> => <log>) G
    determines whether x is applicable when called with args.
     DM (DM ,name ,sig ,@body) S
    first ensures that a generic exists named ,name and with a minimally congruent to signature ,sig and then adds a method with signature ,sig and body ,@body (cf., Dylan's DEFINE METHOD).
     SUP (SUP ,@args) S
    calls next most applicable method. N.B., all arguments must be supplied.
    (APP-SUP ,@args) S
    applies next most applicable method. N.B., all arguments must be supplied.

    FunctionsGenericsMethods
    goo-0.155/doc/manual/goomanual_18.html0100644000175000017500000001355407756745751017152 0ustar vomjomvomjom <i>GOO</i> Manual -- Macros
    ScalarsTopFunctionsMacros

    Macros

    Macros provide a facility for extending the base syntax of GOO. The design is based on quasiquote code templates and a simple list pattern matching facility. Macros are currently unhygienic, and users are required to use gensym to avoid name collisions.
     QUASIQUOTE (QUASIQUOTE ,@qq-forms) S
    QUOTE with selective evaluation using UNQUOTE and SPLICING-UNQUOTE (cf. Lisp and Scheme's QUASIQUOTE), abbreviated "`".
     UNQUOTE (UNQUOTE ,form) S
    evaluates ,form in the midst of a QUASIQUOTE expression, abbreviated ",".
     SPLICING-UNQUOTE (SPLICING-UNQUOTE ,form) S
    evaluates ,form in the midst of a QUASIQUOTE expression and splices it in, abbreviated ",@".
     MATCH (MATCH ,exp (,pat ,val) ...) S
    evaluates ,val corresponding to first ,pat matching ,exp. The pattern is much the same as QUASIQUOTE and can contain either UNQUOTE'd variables or UNQUOTE-SPLICING variables. For example, 
    (MATCH '(1 2) ((,a ,b) (lst a b))) $ --> $ (1 2) 
(MATCH '(1 2) ((,a ,@b) (lst a b))) $ --> $ (1 (2))
     DS (DS ,name (,pattern) ,@body) S
    defines a macro matching pattern ,pattern and expanding according to ,@body. The pattern matching occurs as in MIF and makes available pattern variables during the evaluation of (SEQ ,@body). For example, 
    (DS unless (,test ,@body) 
  `(if (not ,test) (seq ,@body)))
    defines the when macro in GOO.
    where
     pattern == (,@qq-forms) L
     CT (CT ,@body) S
    evaluates (SEQ ,@body) at compile-time allowing a user to make available computations for the purpose of macro-expansion.
     CT-ALSO (CT-ALSO ,@body) S
    equivalent to CT, but also includes a copy of ,@body in compiled images. Similar to (eval-when (:compile-toplevel :execute) ...) in Common LISP. The return value of CT-ALSO is undefined.
     MACRO-EXPAND (MACRO-EXPAND ,form) S
    recursively expands macros in expression ,form.

    ScalarsTopFunctionsMacros
    goo-0.155/doc/manual/goomanual_19.html0100644000175000017500000000300107756745751017135 0ustar vomjomvomjom <i>GOO</i> Manual -- Scalars
    CollectionsTopMacrosScalars

    Scalars

    GOO provide a rich set of simple objects.

  • Any
  • Booleans
  • Magnitudes
  • Locatives
  • Characters
  • Numbers
    • CollectionsTopMacrosScalars
    goo-0.155/doc/manual/goomanual_2.html0100644000175000017500000000706107756745751017057 0ustar vomjomvomjom <i>GOO</i> Manual -- Notation
    Lexical StructureIntroductionNotation

    Notation

    Throughout this document GOO objects are described with definitions of the following form:
     Name Signature N
    Documentation

    where the rightmost kind field has a one letter code as follows:
     N Notation N
     L Lexical N
     S Syntax N
     G Generic N
     M Method N
     F Function N
     C Class N
     P Property N
     I Instance N
     K Command N

    Lexical StructureIntroductionNotation
    goo-0.155/doc/manual/goomanual_20.html0100644000175000017500000001007007756745751017131 0ustar vomjomvomjom <i>GOO</i> Manual -- Any
    BooleansScalarsAny

    Any

    All objects are derived from <any>.
     <any> (<any>) C
     as (x|<any> y|<any> => <any>) G
    coerces y to an instance of x.
     class-of (x|<any> => <class>) G
    returns concrete class of x.
     == (x|<any> y|<any> => <log>) G
    returns true iff x and y are computationally equivalent.
     = (x|<any> y|<any> => <log>) G
    returns true iff x and y are equal, where equality is user defined and defaults to ==.
     ~= (x|<any> y|<any> => <log>) G
    == (not (= x y)).
     ~== (x|<any> y|<any> => <log>) G
    == (not (== x y)).
     to-str (x|<any> => <str>) G
    returns string representation of object.

    BooleansScalarsAny
    goo-0.155/doc/manual/goomanual_21.html0100644000175000017500000000454507756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Booleans
    MagnitudesScalarsAnyBooleans

    Booleans

    In GOO, for convenience sake, true is often represented by anything that is not false, but #t is reserved for the canonical true value. False is often used to represent null.
     <log> (<any>) C
     #f <log> I
     #t <log> I
     not (x|<any> => <log>) M
    == (if x #f x)

    MagnitudesScalarsAnyBooleans
    goo-0.155/doc/manual/goomanual_22.html0100644000175000017500000000754607756745751017151 0ustar vomjomvomjom <i>GOO</i> Manual -- Magnitudes
    LocativesScalarsBooleansMagnitudes

    Magnitudes

    Magnitudes are totally orderable objects. Users are only required to implement < and =.
     <mag> (<any>) C
     < (x|<mag> y|<mag> => <log>) G
    returns iff x is less than y.
     > (x|<mag> y|<mag> => <log>) G
    == (not (or (< x y) (= x y))).
     <= (x|<mag> y|<mag> => <log>) G
    == (or (< x y) (= x y)).
     >= (x|<mag> y|<mag> => <log>) G
    == (not (< x y)).
     min (x|<mag> y|<mag> => <mag>) G
    returns the smallest of x and y.
     max (x|<mag> y|<mag> => <mag>) G
    returns the largest of x and y.

    LocativesScalarsBooleansMagnitudes
    goo-0.155/doc/manual/goomanual_23.html0100644000175000017500000000455107756745751017143 0ustar vomjomvomjom <i>GOO</i> Manual -- Locatives
    CharactersScalarsMagnitudesLocatives

    Locatives

    Locatives are word aligned pointers to memory. They are meant to be used to represent pointers to foreign data and not to point to interior GOO object data.
     <loc> (<mag>) C
     loc-val (x|<loc> => <any>) G
    returns the object pointed to by x.
     address-of (x|<any> => <loc>) G
    returns address of particular object.

    CharactersScalarsMagnitudesLocatives
    goo-0.155/doc/manual/goomanual_24.html0100644000175000017500000001046607756745751017146 0ustar vomjomvomjom <i>GOO</i> Manual -- Characters
    NumbersScalarsLocativesCharacters

    Characters

    GOO currently supports 8 bit ASCII characters.
     <chr> (<mag>) C
     alpha? (x|<chr> => <log>) G
    returns true iff x is one of the ASCII upper or lowercase characters.
     digit? (x|<chr> => <log>) G
    returns true iff x is one of the ten ASCII numeric characters.
     lower? (x|<chr> => <log>) G
    returns true iff x is one of the ASCII lowercase characters.
     upper? (x|<chr> => <log>) G
    returns true iff x is one of the ASCII uppercase characters.
     to-digit (x|<chr> => <int>) G
    converts ascii representation of digit to an integer one.
     to-lower (x|<chr> => <chr>) G
    returns lowercase version of uppercase alphabetic characters otherwise returns x.
     to-upper (x|<chr> => <chr>) G
    returns uppercase version of lowercase alphabetic characters otherwise returns x.

    NumbersScalarsLocativesCharacters
    goo-0.155/doc/manual/goomanual_25.html0100644000175000017500000004756407756745751017160 0ustar vomjomvomjom <i>GOO</i> Manual -- Numbers
    ScalarsCharactersNumbers

    Numbers

     <num> (<mag>) C
     + (x|<num> y|<num> => <num>) G
    returns the sum of its arguments.
     - (x|<num> y|<num> => <num>) G
    returns the difference of its arguments.
     * (x|<num> y|<num> => <num>) G
    returns the product of its arguments.
     / (x|<num> y|<num> => <num>) G
    returns the quotient of its arguments.
     round (x|<num> => <int>) G
    returns closest integer to x. If x is exactly between two integers then the implementation is free to return either integer.
     round-to (x|<num> n|<int> => <flo>) G
    returns x to closest flo n digits precision.
     floor (x|<num> => (tup <int> rem|<num>)) G
    returns an integer by truncating x towards negative infinity.
     ceil (x|<num> => (tup <int> rem|<num>)) G
    returns an integer by truncating x towards positive infinity.
     trunc (x|<num> => (tup <int> rem|<num>)) G
    returns an integer by truncating x towards zero.
     mod (x|<num> y|<num> => <num>) G
    returns the remainder after taking the floor of the quotient of x and y.
     div (x|<num> y|<num> => <num>) G
    returns the trunc of the quotient of x and y.
     rem (x|<num> y|<num> => <num>) G
    returns remainder after dividing x by y.
     pow (x|<num> e|<num> => <num>) G
    returns x raised to the e power.
     exp (x|<num> => <num>) G
    == (pow $e x)
     sqrt (x|<num> => <num>) G
    returns the square root of x.
     pos? (x|<num> => <log>) G
    == (> x 0)
     zero? (x|<num> => <log>) G
    == (= x 0)
     neg? (x|<num> => <log>) G
    == (< x 0)
     neg (x|<num> => <num>) G
    == (- 0 x)
     abs (x|<num> => <num>) G
    == (if (neg? x) (neg x) x)
     num-to-str-base (x|<num> b|<int> => <str>) G
    returns string representation of x in base b.
     num-to-str (x|<num> => <str>) G
    equiv (num-to-str-base x 10)
     str-to-num (x|<str> => <num>) G
    returns closest number corresponding to string x.
     INCF (INCF ,name) S
    == (SET ,name (+ ,name 1))
    (INCF (,name ,@rest)) S
    == (SET (,name ,@rest) (+ (,name ,@rest) 1))
     DECF (DECF ,name) S
    == (SET ,name (+ ,name 1))
    (DECF (,name ,@rest)) S
    == (SET (,name ,@rest) (+ (,name ,@rest) 1))
     $e <flo> I
     $pi <flo> I
     sqrt (x|<num> => <num>) G
     log (x|<num> => <num>) G
     logn (x|<num> b|<num> => <num>) G
     sin (x|<num> => <num>) G
     cos (x|<num> => <num>) G
     tan (x|<num> => <num>) G
     asin (x|<num> => <num>) G
     acos (x|<num> => <num>) G
     atan (x|<num> => <num>) G
     atan2 (y|<num> x|<num> => <num>) G
     sinh (x|<num> => <num>) G
     cosh (x|<num> => <num>) G
     tanh (x|<num> => <num>) G

    Integers

    GOO currently represents integers as 30 bit fixnums.
     <int> (<num>) C
     | (x|<int> y|<int> => <int>) G
    returns the logical inclusive or of its arguments.
     & (x|<int> y|<int> => <int>) G
    returns the logical and or of its arguments.
     ^ ((x|<int> y|<int> => <int>)) G
    == (| (& x (~ y)) (& (~ x) y))
     ~ (x|<int> => <int>) G
    returns the logical complement of its argument.
     bit? (x|<int> n|<int> => <log>) G
    returns true iff nth bit is 1.
     even? (x|<int> => <log>) G
     odd? (x|<int> => <log>) G
     gcd (x|<int> y|<int> => <int>) G
    greatest common denominator.
     lcm (x|<int> y|<int> => <int>) G
    least common multiple.
     << (x|<int> n|<int> => <int>) G
    returns n bit shift left of x.
     >> (x|<int> n|<int> => <int>) G
    returns signed n bit shift right of x.
     >>> (x|<int> n|<int> => <int>) G
    returns unsigned n bit shift right of x.

    Floats

    GOO currently only supports single-precision floating point numbers.
     <flo> (<num>) C
     flo-bits (x|<flo> => <int>) G
    returns bit representation as an integer.

    ScalarsCharactersNumbers
    goo-0.155/doc/manual/goomanual_26.html0100644000175000017500000003504707756745751017152 0ustar vomjomvomjom <i>GOO</i> Manual -- Collections
    SymbolsTopScalarsCollections

    Collections

    Collections are aggregate data structures mapping keys to values. Collections can be almost entirely defined in terms of an enumeration class.
     <col> (<any>) C
     <col.> (<col>) C
    immutable collections.
     fab (t|(t< <col>) n|<int> => <col>) G
    returns a new instance of collection type t of len n.
     col (t|(t< <col>) key-vals|... => <col>) G
    returns new collection of type t with initial key values key-vals.
     fabs (t|(t< <col>) elts|... => <col>) G
    returns new collection of type t with initial values elts and keys (below (len elts)).
     len (x|<col> => <int>) G
    returns number of collection elements.
     col-res-type (x|<col> => <type>) G
    appropriate instantiable type for creating collection results, where the default is (class-of x).
     nul? (x|<col> => <log>) G
    == (= (len x) 0)
     nul (x|(t< <col>) => <col>) G
    returns collection specific unique empty value.
     key-test (x|<col> => test|<fun>) G
    returns collection's key equality function.
    (x|<col> => (t= ==)) M
    default key-test is identity function.
     key-type (x|<col> => <type>) G
    returns collection x's key type.
     elt-type (x|<col> => <type>) G
    returns collection x's element type.
     elt (x|<col> k|<any> => <any>) G
    returns collection x's element associated with key k.
     '[' ... ']' '[' ,x ,k ']' S
    == (elt ,x ,k)
     elt-or (x|<col> k d => <any>) G
    returns collection x's element associated with key k or default d if it doesn't exist.
     mem? (x|<col> y|<any> => <log>) G
    returns true iff y is an element of x.
     add (x|<col> y|<any> => <col>) G
    returns collection with y added to x.
     elts (x|<col> keys|<seq> => <col>) G
    subset of elements of x corresponding to keys keys.
     dup (x|<col> => <col>) G
    returns shallow copy of x.
     keys (x|<col> => <seq>) G
    returns x's keys.
     items (x|<col> => <seq>) G
    returns a sequence of x's key/val tuples.
     del (x|<col> key|<any> => <col>) G
    returns copy of x's without element corresponding to key.
     zap (x|<col> => <col>) G
    returns empty copy of x.
     fill (x|<col> y|<any> => <col>) G
    returns copy of x with all values being y.
     any? (f|<fun> x|<col> => <log>) G
    returns true iff any of x's element satisfies given predicate f.
     find (f|<fun> x|<col> => <any>) G
    returns key associated with first of x's values to satisfy predicate f.
     find-or (f|<fun> x|<col> default => <any>) G
    returns key associated with first of x's values to satisfy predicate f or default if not found.
     all? (f|<fun> x|<col> => <log>) G
    returns true iff all of x's elements satisfies given predicate f.
     fold (f|<fun> init|<any> x|<col> => <col>) G
    == (f (f ... (f init (elt x 0)) (elt x (- n 2))) (elt x (- n 1)))
     fold+ (f|<fun> x|<col> => <any>) G
    == (f (f ... (f (elt x 0) (elt x 1)) (elt x (- n 2))) (elt x (- n 1)))
     do (f|<fun> x|<col>) G
    iterates function f over values of x for side-effect.
     map (f|<fun> x|<col> => <col>) G
    iterates function f over values of given collections and collects the results.

  • Mutable Collections
  • Enumerators
  • Packers
  • Maps
  • Sequences
  • Lazy Series'
    • SymbolsTopScalarsCollections
    goo-0.155/doc/manual/goomanual_27.html0100644000175000017500000001137107756745751017145 0ustar vomjomvomjom <i>GOO</i> Manual -- Mutable Collections
    EnumeratorsCollectionsMutable Collections

    Mutable Collections

    Mutation is seen as a necessary evil and is supported but segregated in hopes of trying to isolate and optimize the nondestructive cases. Mutation includes the notion of modifying values and adding/removing keys. The hope is that functional (nondestructive) programs will be both more succinct, understandable, and efficient than equivalent destructive programs. Only core collection operators are given destructive versions. All others can be built out of nondestructive operators followed by into 1.
     <col!> (<any>) C
     elt-setter (v|<any> x|<col!> k|<any>) G
    sets collection x's element associated with key k to v.
     into (x|<col!> y|<col> => <col!>) G
    replaces elements of x with elements of y.
     elt! (x|<col!> y|<any default|<fun> => <any>) G
    == (or (elt-or c k #f) (set (elt c k) (default))) but uses unique default key for elt-or instead of false.
     fill! (x|<col!> y|<any> => <col!>) G
    fills x with y's.
     add! (x|<seq!> y|<any => <seq!>) G
    adds y to x.
     del! (x|<col!> key|<any> => <col!>) G
    removes key from x.
     zap! (x|<col!> => <col!>) G
    removes all of x's elements.

    EnumeratorsCollectionsMutable Collections
    goo-0.155/doc/manual/goomanual_28.html0100644000175000017500000001314607756745751017150 0ustar vomjomvomjom <i>GOO</i> Manual -- Enumerators
    PackersCollectionsMutable CollectionsEnumerators

    Enumerators

    Enumerations are the foundation of collections and are designed to provide the convenience of Lisp's list interface (e.g., null, car, cdr) for all collections. In defining a new collection class, a user must implement at minimum an enumerator class and the enumeration protocol: enum, fin?, nxt, and now. For efficiency, users might choose to override more methods such as len, elt, elt-setter, etc. Enumeration behavior is undefined if an enumerator is modified during enumeration.
     <enum> (<any>) C
     enum (x|<any> => <enum>) G
    returns initial enum for iterating over x.
     fin? (x|<enum> => <log>) G
    returns true iff no more elements exist from given enum x.
     nxt (x|<enum> => <enum>) G
    returns enum pointing to next element in enum x.
     now (x|<enum> => <any>) G
    returns current element given enum x.
     now-setter (v x|<enum>) G
    sets current element given enum x to v.
     now-key (x|<enum> => <any>) G
    returns current key given enum x.
     enum (x|<enum> => <enum>) M
    returns x allowing enumerators to be enumerated.
     FOR (FOR (,for-clause ...) ,@body) S
    parallel iteration over collections using enumerations.
    where
     ,for-clause == (,var ,col) | ((tup ,keyvar ,var) ,col) L
    specifies one parallel iteration over a collection ,col binding successive values to ,var and optionally keys to ,keyvar.

    PackersCollectionsMutable CollectionsEnumerators
    goo-0.155/doc/manual/goomanual_29.html0100644000175000017500000001555407756745751017156 0ustar vomjomvomjom <i>GOO</i> Manual -- Packers
    MapsCollectionsEnumeratorsPackers

    Packers

    Packers are the complement of enumerators and are the imperative version of fold. The default packer returns a list of all accumulated values: 

    (packing (for ((e '(1 2 3 4 5))) 
           (when (odd? e) (pack e))))  ==> (1 3 5)
    They can also be used for summing values etc: 
    (packing-in (x|<int>) 
  (for ((e '(1 2 3 4 5)))
    (when (odd? e) (pack-in x e)))
  (packed x))  ==> 9
     <packer> (<any>) C
     packer-add (p|<packer> x => <packer>) G
    returns a copy packer p augmented with element x.
     packer-res (p|<packer> => <any>) G
    returns result of packings over p.
     packer (init add|<fun> res|<fun>) G
    returns a simple packer that starts its value out with init, is augmented with add, and whose final value is computed with res.
     packer-fab (t|<type> => <packer>) G
    returns a new type t specific packer.
     packer-fab (t|(t< <seq>) => <packer>) M
    == (packer '() pair (op as t (rev! _)))
     packer-fab (t|(t= <int>) => <packer>) M
    == (packer 0 + (op _))
     PACKING-WITH (PACKING-WITH ((,var ,pack) ...) ,@body) S
    mechanism for packing objects using given packer into ,var.
     PACKING-IN (PACKING-IN (,name '|' ,type ...) ,@body) S
    == (PACKING-WITH (,name (packer-fab ,type)) ,@body).
    (PACKING-IN (,name) ,@body) S
    == (PACKING-IN (,name '|' <lst>) ,@body).
     PACKING (PACKING ,@body) S
    == (PACKING-IN (packer-) ,@body (packed packer-)).
     PACK-IN (PACK-IN ,pack ,x) S
    folds ,x into packer in ,pack.
     PACK (PACK ,x) S
    == (PACK packer- ,name).
     PACKED (PACKED ,name) S
    == (packer-res ,name).
    MapsCollectionsEnumeratorsPackers
    goo-0.155/doc/manual/goomanual_3.html0100644000175000017500000001222007756745751017051 0ustar vomjomvomjom <i>GOO</i> Manual -- Lexical Structure
    Meta SyntaxIntroductionNotationLexical Structure

    Lexical Structure

    The lexical structure is mostly the same as Scheme [3] with the notable exceptions being that identifiers can start with numeric digits if they are clearly distinguishable from floating point numbers and no syntax is provided for specifying improper lists. Furthermore, vertical bars are tokenized immediately and separately and have special meaning within lists, providing syntactic sugar for typed variables.

    The following is a very brief and incomplete description of how characters are tokenized into s-expressions, where s-expressions are either tokens or lists of s-expressions:
     ; ... Line comment N
     #/ ... /# Nested comment N
     . + - [0-9]+ Number N
     #e #i #b #o #d #x Special number N
     #t #f Logical N
     #\name Character N
     [a-zA-Z0-9]+ Identifier N
     ( ... ) List N
     #( ... ) Tuple N
     #[ ... ] Vector N
     " ... " String N
     \c Special character's within strings N
     x|t Typed variable within list == (x t). N
     #| Escaped vertical bar. N
     { ... } Lightweight function syntax. N
     '[' ... ']' Collection indexing and slicing. N

    Meta SyntaxIntroductionNotationLexical Structure
    goo-0.155/doc/manual/goomanual_30.html0100644000175000017500000000753107756745751017142 0ustar vomjomvomjom <i>GOO</i> Manual -- Maps
    SequencesCollectionsPackersMaps

    Maps

    Maps represent collections with explicit keys.
     <map> (<col>) C
     <tab> (<map> <col!>) C
    Tables are near constant-time aggregate data structures. Users can define their own tables by subclassing and overriding the key-test and tab-hash methods.
     tab-growth-factor (x|<tab> => <flo>) P
    factor by which to grow capacity.
     tab-growth-threshold (x|<tab> => <flo>) P
    when to grow based on proportion of total table capacity.
     tab-shrink-threshold (x|<tab> => <flo>) P
    when to shrink based on proportion of total table capacity.
     tab-hash (x|<tab> => <fun>) G
    returns hash function.
     id-hash (x|<tab> => <int>) G
    hash function based on identity.

    SequencesCollectionsPackersMaps
    goo-0.155/doc/manual/goomanual_31.html0100644000175000017500000006222507756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Sequences
    Lazy Series'CollectionsMapsSequences

    Sequences

    Sequences are collections with nonnegative integer keys.
     <seq> (<col>) C
     <seq.> (<seq> <col.>) C
    immutable sequence.
     1st (x|<seq> => <any>) G
    == (elt x 0)
     2nd (x|<seq> => <any>) G
    == (elt x 1)
     3rd (x|<seq> => <any>) G
    == (elt x 2)
     last (x|<seq> => <any>) G
    == (elt x (- (len x) 1))
     pos (x|<seq> v|<any> => (t? <int>)) G
    finds position of v in x else returns false.
     finds (x|<seq> y|<seq> => (t? <int>)) G
    finds position of y in x else returns false.
     add (x|<seq> y|<any> => <seq>) M
    returns sequence with y added to the end of x.
     push (x|<seq> y|<any> => <seq>) G
    returns sequence with y added to x.
     pop (x|<seq> => (tup <any> <seq>)) G
    returns last pushed element of x and new sequence with that element removed from x.
     rev (x|<seq> => <seq>) G
    returns reversed sequence.
     cat (x|<seq> more|... => <seq>) G
    returns concatenated sequences.
     sub (x|<seq> from|<int> below|<int> => <seq>) G
    subsequence of x between from and below.
     '[' ... ']' '[' ,x ,from ,below ']' S
    == (sub ,x ,from ,below)
     sub* (x|<seq> from|<int> => <seq>) G
    == (sub x from (len x))
     '[' ... ']' '[' ,x ,from * ']' S
    == (sub* ,x ,from)
     ins (x|<seq> val i|<int> => <seq>) G
    returns copy of x's with val inserted before i.
     del-dups (x|<seq> => <seq>) G
    returns sequence with all duplicates removed.
     del-vals (s|<seq> val => <seq>) G
    returns sequence with all copies of val removed.
     sort-by (s|<seq> f|<fun> => <seq>) G
    returns a sorted copy of s using f as a comparator.
     sort (s|<seq> => <seq>) G
    == (sort-by s <)
     pick (f|<fun> x|<seq> => <seq>) G
    returns new sequence with elements corresponding to non-false results when calling predicate f.
     prefix? (x|<seq> prefix|<seq> => <log>) G
    returns true iff sequence x starts with sequence prefix.
     suffix? (x|<seq> suffix|<seq> => <log>) G
    returns true iff sequence x ends with sequence suffix.
     repeat (x|<seq> n|<int> => <seq>) G
    returns sequence with n concatenated copies of x.
     split (x|<seq> sep => <seq>) G
    returns sequence of subsequences of x separated by sep.
     join (xs|<seq> sep|<seq> => <seq>) G
    returns sequence composed of sequences in xs joined with sep.

    Mutable Sequences

     <seq!> (<seq> <col!>) C
     rev! (x|<seq!> => <seq!>) G
    returns destructively reversed sequence.
     cat! (x|<seq!> more|... => <seq!>) G
    returns destructively concatenated sequences.
     add! (x|<seq!> y|<any> => <seq!>) G
    returns collection with y added to the end of x.
     push! (x|<seq!> y|<any> => <seq!>) G
    returns collection with y added to the front of x.
     pop! (x|<seq!> => (tup val|<any> <seq!>)) G
    pops element from front of sequence.
     PUSHF (PUSHF ,place ,val) S
    pushes ,val onto the sequence stored in ,place, updates ,place to contain the new sequence, and returns the new sequence.
     POPF (POPF ,place) S
    pops a value from the sequence stored in ,place, replaces the sequence with an updated sequence, and returns the value.
     ins! (x|<seq!> v|<any> i|<int> => <seq!>) G
    inserts v before i in x.
     sub-setter (dst|<seq!> src|<seq> from|<int> below|<int>) G
    replaces subsequence in range between from and below of dst with contents of src. Provides insertion, deletion, and replacement operations rolled into one.
     sub*-setter (dst|<seq!> src|<seq> from|<int>) G
    == (sub-setter dst src from (len dst))
     del-vals! (x|<seq!> v|<any> => <seq!>) G
    removes all v's from x.
     del-dups! (x|<seq!> => <seq!>) G
    removes all duplicates from x.
     sort-by! (s|<seq> f|<fun> => <seq>) G
    destructively sorts s using f as a comparator.
     sort! (s|<seq> => <seq>) G
    == (sort-by! s <)

    Lists

    Lists are always "proper" lists, that is, the tail of a list is always a list. Lists might be deprecated in future releases of GOO.
     <lst> (<seq!>) C
     <list> <lst> A
     head (x|<lst> => <any>) P
     tail (x|<lst> => <lst>) P
     lst (elts|... => <lst>) G
    returns list of arguments.
     list lst A
     lst* (elts|... => <lst>) G
    returns list of arguments with last argument tacked onto end.
     nil <lst> I
    aka ().
     pair (x|<any> y|<lst> => <lst>) G
    returns new list with x as head and y as tail.

    Zips

    A zip is a sequence of tuples of sucessive elements of sequences. A zip has the length of its shortest constituent sequence.
     <zip> (<seq.>) C
     zip (cs|(... <seq>) => <zip>) G
    returns a zip over sequences cs.
     unzip (z|<zip> => <tup>) G
    returns a tuple of z's constituent sequences.

    Flat Sequences

    Flats represents sequences with constant access time. Flat enum provides an enum implementation of all but now and now-setter.
     <flat> (<seq>) C
     <flat-enum> (<enum>) C
     <tup> (<flat> <seq.>) C
    Tuples are immutable flat sequences and represents multiple values in GOO.
     tup (elts|... => <tup>) G
    creates a tuple with elements being elts.
     <vec> (<flat> <seq!>) C
    Stretchy vectors resize when needed.
     vec (elts|... => <sec>) G
    returns new vector with elements elts.

    Strings

    GOO currently implements ASCII strings.
     <str> (<flat> <mag> <seq.>) C
     str (elts|... => <str>) G
    returns new string with elements elts.
     case-insensitive-string-hash (x|<tab> => (tup hash|<any> gc-state|<any>)) G
     case-insensitive-string-equal (x|<str> y|<str> => <log>) G

    Lazy Series'CollectionsMapsSequences
    goo-0.155/doc/manual/goomanual_32.html0100644000175000017500000001230107756745751017133 0ustar vomjomvomjom <i>GOO</i> Manual -- Lazy Series'
    CollectionsSequencesLazy Series'

    Lazy Series'

    Represents an immutable sequence of numbers specified using a start number from, a step amount by , and an inclusive bound to.
     <range> (<seq.>) C
     range-by (from|<num> test|<fun> lim|<num> by|<fun>=> <range>) G
    returns a range starting from, updated with by, and continuing until (test x lim) is false.
     range (from|<num> test|<fun> lim|<fun> => <range>) G
    == (range-by from test lim (op + _ 1))
     from (from|<num> => <range>) G
    == (range from (always #t) 0)
     below (lim|<num> => <range>) G
    == (range 0 < lim)
     <step> (<seq.>) C
    Steps represent step functions.
     first-then (first|<fun> then|<fun> => <step>) G
    returns a new step object, calling thunks first to retrieve initial value and then to retrieve subsequent values.
     each (f|<fun> => <each>) G
    returns a new each object, calling f thunk to retrieve each value.
     <cycle> (<seq.>) C
    Cycles provide a mechanism to create infinite sequences repeating a certain sequence over and over again.
     cycle (x|... => <cycle>) G
    returns a cycles that repeats elements of x.

    CollectionsSequencesLazy Series'
    goo-0.155/doc/manual/goomanual_33.html0100644000175000017500000000654007756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Symbols
    ConditionsTopCollectionsSymbols

    Symbols

    Symbols are uniquified (aka interned) strings.
     <sym> (<any>) C
     <sym-tab> (<tab>) C
    symbol table class.
     as (_|(t= <sym>) x|<str> => <sym>) M
    coerces a string to a symbol.
     cat-sym (elts|... => <sym>) G
    returns a symbol formed by concatenating the string representations of elts.
     gensym (=> <sym>) G
    returns a system specific unique symbol.
     fab-setter-name (x|<sym> => <sym>) G
    == (as <sym> (cat (as <str> x) "-setter")).

    ConditionsTopCollectionsSymbols
    goo-0.155/doc/manual/goomanual_34.html0100644000175000017500000002702307756745751017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Conditions
    Input / OutputTopSymbolsConditions

    Conditions

    Conditions are objects representing exceptional situations. GOO provides restartable conditions as well as the more traditional stack unwinding conditions. A condition is an object used to provide information to a handler. A handler is an object with a handler function used to take care of conditions of a particular type. Signalling is a mechanism for finding the most appropriate handler for a given condition. See DRM [4] for more information.
     <condition> (<any>) C
     default-handler (x|<condition> => <fun>) G
    called if no appropriate handler is in force.
     default-handler-description (c|<condition> => <str>) G
    return a string describing an anonymous handler for this type of condition.
     build-condition-interactively (type|<condition> in out => <condition>) G
    construct a condition of the specified type and interactively prompt the user to fill in any important props. Called by the debugger. Methods should call next-method to build the condition, then set the props for their own class.
     sig (x|<condition> args|...) G
    signals a condition with optional arguments args.
     <simple-condition> (<condition>) C
    a condition consisting of a msg message and arguments.
     condition-message (x|<simple-condition> => <str>) P
    returns msg string.
     condition-arguments (x|<simple-condition> => <lst>) P
    returns msg string arguments.
     <serious-condition> (<condition>) C
    a condition that can not be safely ignored.
     <error> (<serious-condition>) C
    a condition that indicates something is invalid about the program.
     error (x|<any> args|...) G
    signals an error.
     error (x|<str> args|...) M
    signals a simple error.
     <simple-error> (<error> <simple-condition>) C
    an error that consists of a msg message and arguments.
     <restart> (<condition>) C
    used for restarting a computation.
     <handler> (<any>) C
    object used for handling a signaled condition.
     handler-function (x|<handler> => <fun>) G
     fab-handler (x|<fun> => <handler>) G
    creates a handler from a handler function.
     handler-matches? (x|<handler> y|<condition> => <log>) G
    protocol for determining whether a handler handles a particular condition.
     TRY (TRY ,try-options ,handler ,@body) S
    installs ,handler as a condition handler for the duration of (SEQ ,@body), using the instructions provided by ,try-options. ,try-options should either be the name of the condition type to handle, or a ,try-option-list with zero or more of the following options:
    • (TYPE ,expr) => An expression returning the type of condition to handle.
    • (TEST ,@body) => Code which returns #t if the condition is applicable, and #f otherwise. This may be called at arbitrary times by the runtime, so it shouldn't do anything too alarming.
    • (DESCRIPTION ,message ,@arguments) => A human-readable description of this handler. Used by the debugger.

    The handler function should take two arguments: the ,condition to be handled, and a ,resume function. if a matching condition is signaled then the handler function is called with the signaled condition and a resume function to be called if the handler wants to return a value to be used as the result of the signaling SIG call. the handler has three possibilities: (1) it can handle the condition by taking an exit using ESC, (2) it can resume to the original SIG call using the resume function called with the value to be returned, or (3) it can do neither, that is, it can choose not to handle the condition by just falling through to the end of the handler (cf., Dylan's BLOCK/EXCEPTION and LET HANDLER) and the next available handler will be invoked. Note that GOO does not unwind the stack before calling handlers!

    where
     handler == (fun (,condition ,resume) ,@body) L
     ,try-options == ,condition-type-name | ,try-option-list L
     ,try-option-list == (,try-option* ) L
     ,try-option == (,option-name ,@option-value) L

  • Conditions Hierarchy
    • Input / OutputTopSymbolsConditions
    goo-0.155/doc/manual/goomanual_35.html0100644000175000017500000004020407756745751017141 0ustar vomjomvomjom <i>GOO</i> Manual -- Conditions Hierarchy
    ConditionsConditions Hierarchy

    Conditions Hierarchy

    GOO has a builtin hierarchy of conditions.
     <arithmetic-error> (<error>) C
     <stack-overflow-error> (<error>) C
     <keyboard-interrupt> (<error>) C
    user hit interrupt key.
     <internal-error> (<simple-error>) C
    a system fault was detected.
     <assert-error> (<simple-error>) C
    an assertion failure occurred.
     <unbound-error> (<error>) C
    an binding or property was found to be unbound.
     <unbound-variable-error> (<unbound-error>) C
    a binding was found to be unbound.
     unbound-variable-error-variable (<unbound-variable-error> => <any>) P
     <property-error> (<error>) C
     property-error-generic (<property-error> => <any>) P
    property accessor if available.
     property-error-owner (<property-error> => <any>) P
    property owner if available.
     <property-unbound-error> (<property-error> <unbound-error>) C
    unbound property was discovered.
     <property-type-error> (<property-error> <type-error>) C
    attempt was made to store an invalid object in a property.
     <property-not-found-error> (<property-error>) C
    attempt was made to find a missing property, most likely during a call to new.
     <as-error> (<type-error>) C
    no as method was found.
     <range-error> (<error>) C
    a key lookup on a collection failed.
     range-error-collection (<range-error> => <col>) P
     range-error-key (<range-error> => <any>) P
     <type-error> (<error>) C
    a type check has failed.
     type-error-value (<type-error> => <any>) P
    returns value on which type check failed.
     type-error-type (<type-error> => <any>) P
    returns type on which type check failed.
     <call-error> (<error>) C
    an function call failed.
     call-error-function (<call-error> => <fun>) P
    returns function on which call failed.
     call-error-arguments (<call-error> => <fun>) P
    returns arguments on which call failed.
     <arity-error> (<call-error>) C
    wrong number of arguments supplied in function call.
     <narity-error> (<arity-error>) C
    too few arguments supplied in nary function call.
     <unknown-function-error> (<call-error>) C
    too few arguments supplied in nary function call.
     <argument-type-error> (<type-error> <call-error>) C
    invalid argument used function call.
     <return-type-error> (<type-error> <call-error>) C
    invalid result returned from function call.
     <ambiguous-method-error> (<call-error>) C
    unable to sort applicable methods.
     <no-applicable-methods-error> (<call-error>) C
    no methods were applicable.
     <no-next-methods-error> (<call-error>) C
    no next-methods were found during a sup or app-sup call.
     <incongruent-method-error> (<error>) C
    a method is incongruent with a generic.
     incongruent-method-error-generic (<incongruent-method-error> => <gen>) P
     incongruent-method-error-method (<incongruent-method-error> => <met>) P
     <cpl-error> (<error>) C
    unable to find a consistent class precedence list.
     <io-error> (<error>) C
    an input/output operation failure.
     <file-opening-error> (<io-error>) C
    unable to open a file.
     file-opening-error-filename (<file-opening-error> => <str>) P
     <directory-error> (<file-opening-error>) C
     <compiler-error> (<error>) C
     <syntax-error> (<compiler-error>) C
     <macro-error> (<syntax-error>) C
    a macro expansion failure.
     <ast-error> (<compiler-error> <simple-error>) C
    an ast conversion failure.
     <namespace-error> (<compiler-error> <simple-error>) C
    a namespace form failure.

    ConditionsConditions Hierarchy
    goo-0.155/doc/manual/goomanual_36.html0100644000175000017500000000262507756745751017147 0ustar vomjomvomjom <i>GOO</i> Manual -- Input / Output
    SystemTopConditionsInput / Output

    Input / Output

    This is a very preliminary I/O system and is mostly just enough with which to write a compiler.

  • Ports
  • Formatted I/O
    • SystemTopConditionsInput / Output
    goo-0.155/doc/manual/goomanual_37.html0100644000175000017500000003102007756745751017137 0ustar vomjomvomjom <i>GOO</i> Manual -- Ports
    Formatted I/OInput / OutputPorts

    Ports

    Ports represent character-oriented input/output devices.
     <port> (<seq>) C
     open (t|(t< <port>) x|<str> => <port>) G
    creates port given port specific spec x.
     close (x|<port>) G
    closes and cleanups port.
    (x|<port>) M
    noop default.
     WITH-PORT (WITH-PORT (,name ,port) ,@body) S
    binds ,name to the value of ,port during the evaluation of (seq ,@body) and finally ensures that the port is closed at the end of evaluation.
     eof-object? (x|<chr> => <log>) G
     <in-port> (<port>) C
    input port.
     in <in-port> I
    standard input.
     get (x|<in-port> => <chr>) G
    returns next available character or eof-object.
     gets (x|<in-port> => <str>) G
    returns a line until either reading a newline or eof-object.
     peek (x|<in-port> => <chr>) G
    returns next available character if any without advancing pointer or eof-object.
     ready? (x|<in-port> => <log>) G
    returns true iff a character is available.
     <out-port> (<port>) C
    output port.
     out <out-port> I
    standard output.
     force-out (x|<out-port>) G
    ensures that buffers are forced and pending output is completed.
     put (x|<out-port> e|<chr>) G
    outputs a single character.
     puts (x|<out-port> e|<str>) G
    outputs string.
     newline (x|<out-port>) G
    outputs a newline sequence.
     say (x|<out-port> args|...) G
    == (do (op puts x (to-str _)) args)

    File Ports

    File ports are ports which map to files.
     <file-port> (<port>) C
     close (x|<file-port>) M
    closes port and finishes pending output.
     <file-in-port> (<file-port> <in-port>) C
     open (t|(t= <file-in-port>) name|<str> => <file-in-port>) M
    creates file in port mapped to a file with filename name.
     <file-out-port> (<file-port> <out-port>) C
     open (t|(t= <file-out-port>) name|<str> => <file-out-port>) M
    creates file out port mapped to a file with filename name.

    String Ports

    String ports provide port interface mapped onto strings.
     <str-port> (<any>) C
     port-contents (x|<str-port> => <str>) P
    returns underlying string.
     <str-in-port> (<str-port> <out-port>) C
     open (t|(t= <str-in-port>) dat|<str> => <str-in-port>) M
    creates string in port mapped to string dat.
     port-index (x|<str-port> => <int>) P
    returns index from which next character will be read.
     <str-out-port> (<str-port> <in-port>) C
     open (t|(t= <str-out-port>) dat|<str> => <str-out-port>) M
    creates string out port mapped to string dat.
     PORT-TO-STR (PORT-TO-STR ,name ,@body) S
    == (let ((,name (open <str-out-port> ""))) ,@body (port-contents ,name))

    Formatted I/OInput / OutputPorts
    goo-0.155/doc/manual/goomanual_38.html0100644000175000017500000000773107756745751017154 0ustar vomjomvomjom <i>GOO</i> Manual -- Formatted I/O
    Input / OutputPortsFormatted I/O

    Formatted I/O

    GOO provides convenient s-expression reading/writing facilities.
     read (x|<in-port> => <any>) G
    returns sexpr result of parsing characters in a sequence.
     write (x|<out-port> y|<any>) G
    verbose printing. prints strings with double quotes etc.
     writeln (x|<out-port> y|<any>) G
    == (seq (write x y) (newline x))
     emit (x|<out-port> y|<any>) G
    concise printing (e.g., prints strings without double quotes).
     msg (x|<out-port> message|<seq> args|...) G
    formatted output using special commands embedded in message. supported commands are:
    • %= -> (write x arg)
    • %s -> (display x arg)
    • %d -> (write x arg)
    • %% -> (write-char x #\%)
    which consume one argument at a time. otherwise subsequent message characters are printed to port x (cf. Dylan's and CL's format).
     post (message|<seq> args|...) G
    == (app msg out message args)

    Input / OutputPortsFormatted I/O
    goo-0.155/doc/manual/goomanual_39.html0100644000175000017500000000723307756745751017152 0ustar vomjomvomjom <i>GOO</i> Manual -- System
    ThreadsTopInput / OutputSystem

    System

    This is a very rudimentary portable interface to an underlying operating system.
     app-filename (=> <str>) M
    returns the filename of the application.
     app-args (=> <lst>) M
    returns a list of argument strings with which the application was called.
     os-name (=> <str>) M
    returns name of current operating-system.
     os-val (s|<str> => <str>) M
    returns OS environment variable value.
     os-val-setter (v|<str> s|<str> => <str>) M
    sets OS environment variable value.
     process-id (=> <int>) M
    returns the process id of the current GOO process.

  • Files and Directories
  • Pathnames
    • ThreadsTopInput / OutputSystem
    goo-0.155/doc/manual/goomanual_4.html0100644000175000017500000000401207756745751017052 0ustar vomjomvomjom <i>GOO</i> Manual -- Meta Syntax
    ConventionsIntroductionLexical StructureMeta Syntax

    Meta Syntax

    GOO's syntax is described almost entirely as GOO patterns. GOO patterns in turn are defined with a quasiquote metasyntax. Pattern variables are prefixed with a "," or ",@" to indicate the matching of one or many elements respectively. The default is for a pattern variable to match one or many s-expressions. Alternatively, a pattern variable's shape may be defined with another pattern. The ,name shape is builtin and matches only identifiers. The '['...']' metasyntax is used to indicate optional patterns, '...' is used to indicate zero or more of the preceding pattern element, and ## is used to denote infix string concatenation. Finally, in this manual, uppercase indicates a special form or macro.

    ConventionsIntroductionLexical StructureMeta Syntax
    goo-0.155/doc/manual/goomanual_40.html0100644000175000017500000000751207756745751017142 0ustar vomjomvomjom <i>GOO</i> Manual -- Files and Directories
    PathnamesSystemFiles and Directories

    Files and Directories

    A preliminary set of file and directory facilities are provided.
     file-mtime (filename|<str> => <flo>) M
    return the last modification time of a file in seconds (relative to the n GOOepoch) as a floating point number.
     file-exists? (filename|<str> => <log>) M
    return true if and only if a file (or a directory, etc.) exists with the given name.
     file-type (filename|<str> => <sym>) M
    return 'file, 'directory or some other symbol, depending on the type of the file.
     create-directory (filename|<str> => <sym>) M
    create a directory with the given name. The parent directory must already exist, and must contain no item with the given name.
     parent-directory (name|<str> => <str>) M
    find the parent directory of the current filename.
     probe-directory (name|<str> => <str>) M
    make sure that the named directory exists.

    PathnamesSystemFiles and Directories
    goo-0.155/doc/manual/goomanual_41.html0100644000175000017500000001203207756745751017134 0ustar vomjomvomjom <i>GOO</i> Manual -- Pathnames
    SystemFiles and DirectoriesPathnames

    Pathnames

    Pathnames allow you to work with hierarchical, structured pathnames in a reasonably portable fashion.
     pathname-to-components (pathname|<str> => <lst>) M
    given a pathname, split it into a list of individual directories, etc. Three special values are returned as symbols:
    • root -> This path starts in the root directory
    • up -> Go up a directory
    • current -> Remain in the current directory
    Volume labels, drive letters, and other non-path information should be stored in a single tagged list at the head. Note that the hierarchical portion of this pathname (everything but the label) must be non-empty at all times.
     components-to-pathname (components|<lst> => <str>) M
    reassemble components created by the above function.
     label-components (components|<lst> => <lst>) M
    get any leading directory label.
     hierarchical-components (components|<lst> => <lst>) M
    get rid of any leading directory label, etc.
     components-last (components|<lst> => <any>) M
    return the last item in a list of components.
     components-basename (components|<lst> => <lst>) M
    return all but the last item of a bunch of components. Do some magic to handle cases like 'foo.txt' => './' If you call this function enough times, you are eventually guaranteed to get components list ending in root, up or current. Requires the last item to be a string.
     components-parent-directory (components|<lst> => <lst>) M
    calculate the parent directory of a pathname.
     <pathname-error> (<simple-error>) C

    SystemFiles and DirectoriesPathnames
    goo-0.155/doc/manual/goomanual_42.html0100644000175000017500000002775507756745751017157 0ustar vomjomvomjom <i>GOO</i> Manual -- Threads
    C InterfaceTopSystemThreads

    Threads

    Threads allow for expressing concurrent programs. The assumed model is shared memory with explicit synchronization and symmetric multiprocessing and is based heavily upon pthreads This section is preliminary and might change in the future. There are several limitations in the current implementation. It represents a rudimentary but usable subset of typical thread operations. Tables and vectors require user locks to ensure thread safety and no out of language crashes. Finally, the compiler, interpreter, and (re)definition machinery are thread unsafe and can only reliably be run in one thread.
     <thread> (<any>) C
    Represents a thread of executation schedulable across multiple processors. Upon creation executes thread-function in separate thread.
     thread-name (thread|<thread> => (t? <sym>)) P
     thread-priority (thread|<thread> => <int>) P
     thread-function (thread|<thread> => <fun>) P
     new (x|(t< <thread>) inits|... => <thread>) M
    Creates thread and runs thread-function of created thread in separate OS thread.
     SPAWN (SPAWN ,@body) S
    == (FAB <thread> thread-function (fun () ,@body))
     thread-yield () M
    Surrenders processor to another thread.
     thread-join (thread|<thread>) M
    Causes current thread to wait for the termination of thread.
     thread-current (=> <thread>) M
     all-threads (=> <tup>) M
     sleep (secs|<flo>) M
    Pauses current thread for secs seconds.
     <lock> (<any>) C
    Represents a mutex.
     lock-name (lock|<lock> => (t? <sym>)) P
     new (x|(t< <lock>) inits|... => <lock>) M
     lock-lock (lock|<lock>) M
    Obtain exclusive access to lock waiting if necessary.
     lock-unlock (lock|<lock>) M
    Free up exclusive access to lock potentially allowing another thread access.
     WITH-LOCK (WITH-LOCK ,lock ,@body) S
    == (FIN (SEQ (lock-lock ,lock) ,@body) (lock-unlock ,lock))
     <event> (<any>) C
    Represents a condition variable used for interthread notification.
     event-name (event|<event> => (t? <sym>)) P
     new (x|(t< <event>) inits|... => <event>) M
     event-signal (event|<event> lock|<lock>) M
    Unblocks at least one thread waiting on event.
     event-broadcast (event|<event> lock|<lock>) M
    Unblocks all threads waiting on event.
     event-wait (event|<event> lock|<lock> => <log>) M
    Unlocks lock and places thread in waiting state to be resumed when event is signaled or broadcasted upon which time lock is reacquired and thread resumed.
     event-wait-timed (event|<event> lock|<lock> secs|<flo> => <log>) M
    Unlocks lock and places thread in waiting state to be resumed when event is signaled or broadcasted or timeout secs is reached upon which time lock is reacquired and thread resumed.
     DDV (DDV ,var ,form) S
    Defines a thread local variable named (var-name ,var) with an initial value ,form.
     DLET (DLET ((,var ,val) ...) ,@body) S
    == (LET ((,old-var ,var) ...) (FIN (SEQ (SET ,var ,val) ... ,@body) (SET ,var ,old-var) ...))
     <pipe> (<flat> <seq!>) C
    Represents a synchronized FIFO queue allowing multiple readers and writers in separate threads.
     enq! (pipe|<pipe> x => <pipe>) M
    Adds x to pipe.
     deq! (pipe|<pipe> => <any>) M
    Removes and returns element from pipe or waits for one to be available.

    C InterfaceTopSystemThreads
    goo-0.155/doc/manual/goomanual_43.html0100644000175000017500000001502507756745751017143 0ustar vomjomvomjom <i>GOO</i> Manual -- C Interface
    CompilerTopThreadsC Interface

    C Interface

    A simple mechanism (available through the goo/x module) is provided to inline C code directly into GOO, escaping back into GOO when necessary, and relying on C for its type system instead of having to mirror it in GOO. On the downside, there is no static checking, and errors can occur during C compilation.
     #" ... "# Liberal String S
    Allows for the easy specification of strings (especially C code snippets) with special character escaping turned off.
     C-MENT (C-MENT [,c-snippet ,goo-form]*) S
    Specifies a C statement formed as the concatenation of c-snippets (goo strings) and GOO forms 2. The GOO forms are evaluated at runtime as embedded C expressions in the lexical context of the c-ment expression. If specified at top level, then the c-ment form will be evaluated prior to the evaluation of non c-ment top level forms.
     C-EXPR (C-EXPR [,c-snippet ,goo-form]*) S
    Same as c-ment but specifies a value producing C expression instead.
     to-c (x) G
    user extensible protocol for converting a GOO object to a C value. Methods are provided for <int>, <flo>, <str>, <chr>, <log>, and <loc>.
     #{ ... } Inlined C Statement S
    Shorthand for c-ment allowing GOO forms to be specified with a $ prefix and the conversion of GOO objects into C values specified with an @ prefix, with @x == $(to-c x). For example, 
    (df f (x) #{ printf("Got %lx", $x); })
    prints out the GOO value x. A callback can be defined at top level as follows: 
    #{ int gl_idle(int x) { $(gl-idle); } }
    C headers can be included similarly: 
    #{ #include "GL.h" }
    C expressions can be nested within embedded GOO expressions as follows: 
    #{ int gl_idle(int x) { $(gl-idle #ei{ x }); } }
    in order to access lexical apparent C variables etc.
     #ec{ ... } Inlined C Expression S
    Similar shorthand for c-expr also allowing a single character code c for specifying the conversion of C values back to GOO objects. The valid codes are i for <int>, f for <flo>, s for <str>, c for <chr>, b for <log>, l for <loc>, g for none. For example, 
    (d. $gl-line-loop #ei{ GL_LINE_LOOP })
    defines a top-level OpenGL constant.
     USE/LIBRARY (USE/LIBRARY ,name) S
    adds ,name to list of libraries to be linked against.
     USE/INCLUDE (USE/INCLUDE ,name) S
    adds ,name to include directory search path.

    CompilerTopThreadsC Interface
    goo-0.155/doc/manual/goomanual_44.html0100644000175000017500000000673607756745751017155 0ustar vomjomvomjom <i>GOO</i> Manual -- Compiler
    Top LevelTopC InterfaceCompiler

    Compiler

    GOO's compiler, g2c, compiles GOO source code to C. It lives within the eval module. During a given session, g2c recompiles only used modules that are either modified or use modified modules.
     <g2c-module-loader> (<module-loader>) C
    a g2c module loader used in g2c builds.
     g2c-def-app (appname|<str> modname|<str> => <g2c-module-loader>) M
    constructs a g2c module loader to be used in future g2c builds.
     g2c-build-app (loader|<g2c-module-loader>) M
    translates GOO app into C in subdirectory of GOO's toplevel C directory named after loader's top modname.
     g2c-goo () M
    builds entire goo world.
     g2c-test (name) M
    changes destination directory to be (cat "g2c-" (to-str name)). This is useful for bootstrapping.

    Top LevelTopC InterfaceCompiler
    goo-0.155/doc/manual/goomanual_45.html0100644000175000017500000000665607756745751017157 0ustar vomjomvomjom <i>GOO</i> Manual -- Top Level
    InstallationTopCompilerTop Level

    Top Level

    Functions which load code at runtime require a symbol specifying the module name to use.
     load (filename|<str> modname|<sym> => <any>) G
    returns the result of evaluating the result of reading file named filename into module modname.
     eval (x|<any> modname|<sym> => <any>) G
    return's result of evaluating x.
     top (modname|<sym>) G
    runs top-level read-eval-print loop which reads from in and writes to out.
     save-image (filename|<str>) G
    saves an image of the current GOO process to a file named filename.
     $ $$ $$$ <any> I
    refers respectively to last, second to last, and third to last values returned in top-level listener.

    InstallationTopCompilerTop Level
    goo-0.155/doc/manual/goomanual_46.html0100644000175000017500000000701207756745751017143 0ustar vomjomvomjom <i>GOO</i> Manual -- Installation
    UsageTopTop LevelInstallation

    Installation

    Unpack a GOO development or platform specific binary tarball into an appropriate staging directory. In the case of a binary tarball, there will be five directories: doc, bin, c, src, and emacs. You can just run GOO from the bin subdirectory.

    In the case of a development tarball, you must install it. After unpacking, there will be five directories: doc, bin, c, src, and emacs. On windows, installation must be conducted from within a cygwin shell. GOO requires Boehm's GC to be installed as a shared library on linux or under the source dir GOO_DIR/gc downloadable from http://www.hpl.hp.com/personal/Hans_Boehm/gc/gc_source/gc.tar.gz. GOO also requires gmp to be installed as a library downloadable from http://www.swox.com/gmp/.

    Generate makefiles by executing ./configure. Configure takes a -prefix argument which sets the installation root, GOO_ROOT. Normally GOO_ROOT is set to /usr/local but can be set to staging directory for a personal installation. Configure also takes a -with-threads argument which enables threads support on linux. The rest of the configure arguments can be found by executing ./configure -help. Execute make to build GOO and make install to install it. Executing make install will build GOO with the proper roots, creating lib and mods directories, and installing GOO in bin and setting up doc. On windows, it is necessary to add GOO_BIN to your PATH.

    You can override the default GOO_ROOT by setting up your OS environment variable. For example, my GOO_ROOT on linux is: setenv GOO_ROOT /home/ai/jrb/goo. Environment variable setting depends on the shell you're using. In order to run g2c-goo you need to set GOO_BUILD_ROOT to the directory which includes the src directory.

    During start up, GOO will load two patch files: 

    ${GOO_ROOT}/init.goo
${HOME}/.goo/init.goo

    You can customize your GOO by adding forms to these files.

    UsageTopTop LevelInstallation
    goo-0.155/doc/manual/goomanual_47.html0100644000175000017500000000776207756745751017160 0ustar vomjomvomjom <i>GOO</i> Manual -- Usage
    CaveatsTopInstallationUsage

    Usage

    Typing goo at your shell will start up a GOO read-eval-print loop, which accepts sexpressions and top-level commands commencing with a comma. The following is a list of available commands:
     ,quit K
    exits from GOO.
     C-c K
    invokes a recursive read-eval-print loop.
     ,g2c-eval K
    to change to dynamic compilation evaluation.
     ,ast-eval K
    to change to ast evaluation.
     GOO_EVAL_MODE <str> I
    environment variable for setting goo's evaluation mode. Valid settings are "ast" or "g2c".
     ,in ,name K
    changes to module ,name.
     mod:name == L
    accesses an unexported binding from another module.

  • Development
  • Debugger
  • Emacs Support
    • CaveatsTopInstallationUsage
    goo-0.155/doc/manual/goomanual_48.html0100644000175000017500000000262307756745751017150 0ustar vomjomvomjom <i>GOO</i> Manual -- Development
    DebuggerUsageDevelopment

    Development

    To batch compile GOO to C: 

    goo/user 0<= (use eval/g2c)
goo/user 0=> #f
goo/user 0<= (g2c-goo)

    To then compile the C: 

    cd ${GOO_ROOT}/c
make

    To run the test suites: 

    goo/user 0<= (use tests)
goo/user 0=> #f
goo/user 0<= (run-all-tests)
    DebuggerUsageDevelopment
    goo-0.155/doc/manual/goomanual_49.html0100644000175000017500000001147007756745751017151 0ustar vomjomvomjom <i>GOO</i> Manual -- Debugger
    Emacs SupportUsageDevelopmentDebugger

    Debugger

    A keyboard interrupt or any error enters the user into the debugger which provides a superset of the commands available at top-level. The following are debugger specific commands:
     ,up K
    goes up one level.
     ,top K
    goes to top level.
     ,restarts K
    lists available restarts
     ,restart ,n K
    chooses available restart.
     ,handlers ,n K
    shows available handlers.
     ,backtrace K
    prints out called functions and their arguments.
     ,bt K
    prints out called functions.
     ,frame ,n K
    prints out nth called function and its arguments.
     ,frame-var ,n ,name K
    prints out nth called function's parameter name.
     frame-var (n|<int> name|<sym>) F
    returns nth called function's parameter name.

    Emacs SupportUsageDevelopmentDebugger
    goo-0.155/doc/manual/goomanual_5.html0100644000175000017500000000433607756745752017065 0ustar vomjomvomjom <i>GOO</i> Manual -- Conventions
    IntroductionMeta SyntaxConventions

    Conventions

    The following naming conventions are used throughout this manual:
     '<'...'>' Type variable N
     '*'...'*' Global variable N
     ...'?' Predicate N
     ...'!' Destructive function N
     ...'-setter' Setter N

    IntroductionMeta SyntaxConventions
    goo-0.155/doc/manual/goomanual_50.html0100644000175000017500000000576307756745752017152 0ustar vomjomvomjom <i>GOO</i> Manual -- Emacs Support
    UsageDebuggerEmacs Support

    Emacs Support

    A rudimentary emacs-based development system is provided.

    Emacs Mode

    Put emacs/goo.el in your emacs lisp directory. Add the following to your .emacs file: 

    (autoload 'goo-mode "goo" "Major mode for editing Goo source." t)
(setq auto-mode-alist
      (cons '("\\.goo\\'" . goo-mode) auto-mode-alist))

    Useful features include the following. You can add "font-lock" mode by adding (global-font-lock-mode t) to your .emacs: In a given buffer, you can toggle font-lock with M-x font-lock-mode. Finally, check out the "Index" menu item in a GOO buffer for other options.

    For even more fun, load emacs/goo-font-lock.el for a color coded parenthesis nesting aid 3.

    Emacs Shell

    Put emacs/goo-shell.el in your emacs lisp directory. Add the following to your .emacs: 

    (autoload 'run-goo  "goo-shell" "Run an inferior Goo process." t)
(setq auto-mode-alist
      (cons '("\\.goo\\'" . goo-mode) auto-mode-alist))
(setq goo-program-name "/home/ai/jrb/goo/goo")

    make sure to set up the goo-program-name to correspond to your installation area.

    Useful command / key-bindings are: 

    M-C-x   goo-send-definition
C-c C-e goo-send-definition
C-c M-e goo-send-definition-and-go
C-c C-r goo-send-region
C-c M-r goo-send-region-and-go
C-c C-z switch-to-goo

    Check out goo-shell.el for the complete list of command / key-bindings. I doubt the compile commands do anything useful cause there isn't a compiler.

    TAGS

    Emacs TAGS files can be generated by typing make all-tags in the src directory. Useful tags commands / key-bindings are: 

    M-.     find-tag
M-,     tags-loop-continue
        tags-search
        tags-query-replace
    UsageDebuggerEmacs Support
    goo-0.155/doc/manual/goomanual_51.html0100644000175000017500000000364107756745752017144 0ustar vomjomvomjom <i>GOO</i> Manual -- Caveats
    FutureTopUsageCaveats

    Caveats

    This is the first release of GOO. GOO is relatively slow at this point. There are no compiler optimizations in place. The error reporting is minimal and no source locations are tracked. Also hygiene is not implemented and there are some potential hygiene leaks. Dynamic compilation and image saving work only on Linux.

    This manual is preliminary. Please consult the runtime libraries in the src directory. Also check out Scheme and Dylan's manuals for information on their lexical structure and special form behavior respectively.

    Please, please, please send bug reports to jrb@googoogaga.org. I will fix your bugs asap. The GOO website www.googoogaga.org will have papers, releases, FAQS, etc.

    FutureTopUsageCaveats
    goo-0.155/doc/manual/goomanual_52.html0100644000175000017500000000515407756745752017146 0ustar vomjomvomjom <i>GOO</i> Manual -- Future
    History and AcknowledgementsTopCaveatsFuture

    Future

    The plan is for GOO to evolve in a number of dimensions. First of all, GOO's design is incomplete. Parameter lists and dispatch will be improved to allow methods of differing numbers of required parameters and named parameters. Lisp lists will most likely be deprecated and program fragments will be represented by a richer data structure which can capture source locations and hygiene information. This will be accomplished with minimal impact on macro definitions and WYSIWYG program construction and destructuring facilities. The module system will be improved to include in the very least renaming and selective imports. Finally, GOO will support a more complete loopless programming protocol inspired by Waters' series [5].

    Secondly, the overall mission is to crank the implementation until its performance is competitive with Java while at the same time maintaining low-latency interactivity. The basic approach involves incremental whole program optimization using simple dynamic compilation combined with partial evaluation. One important optimization will be side effect analysis combined with a generalized box/unbox optimization to remove unnecessary creation of immutable enumerators and packers for instance. Similar analyses and optimizations will be employed to optimize loopless programming patterns involving map and fold.

    History and AcknowledgementsTopCaveatsFuture
    goo-0.155/doc/manual/goomanual_53.html0100644000175000017500000000644607756745752017154 0ustar vomjomvomjom <i>GOO</i> Manual -- History and Acknowledgements
    IndexTopFutureHistory and Acknowledgements

    History and Acknowledgements

    GOO has greatly benefitted from the help of others. During the winter of 2001, I briefly discussed the early design of Proto, a Prototype-based precursor to GOO, with Paul Graham and his feedback was very useful. From there, I bootstrapped the first version of Proto for a seminar, called Advanced Topics in Dynamic Object-Oriented Language Design and Compilation (6.894), that I cotaught with Greg Sullivan and Kostas Arkoudas. The 6.894 students were very patient and gave me many helpful suggestions that greatly improved Proto. During and after the seminar, Greg Sullivan reviewed many ideas and helped tremendously, including by writing the Emacs goo-mode. James Knight was one of the 6.894 students and became my MEng student after the course. He has helped in many many ways including the writing of the save-image facility, the speeding up of the runtime, and the improving of the non local exit facility. Eric Kidd worked with me during the summer of 2001 implementing the module system, restarts, and the dependency tracking system. During that summer I decided that a Prototype-based object system was inadequate for the type system I was interested in supporting and changed over to the present type-based system. I presented my ideas on Proto at LL1 in the Fall of 2001. Many stimulating conversations on the follow on LL1 discussion list inpired me. In fact, during the course of defending Proto's form of object-orientation on that list I came up with its current name, GOO, and it stuck. Andrew Sutherland became my MEng student in the winter of 2002, wrote a GOO SWIG [2] backend, and has provided useful feedback on GOO's design. I also wish to thank Boehm, Demers, and Weiser for writing the conservative GC upon which this initial version of GOO is based. Finally, I would like to thank Keith Playford for his continued guidance in language design and implementation and for his ever present and rare sense of good taste.

    IndexTopFutureHistory and Acknowledgements
    goo-0.155/doc/manual/goomanual_54.html0100644000175000017500000010170607756745752017150 0ustar vomjomvomjom <i>GOO</i> Manual -- Index
    ReferencesTopHistory and AcknowledgementsIndex

    Index

  • " ... "
  • \c
  • '*'...'*'
  • '<'...'>'
  • '[' ... ']'
  • '[' ... ']'
  • '[' ... ']'
  • '[' ... ']'
  • ( ... )
  • *
  • +
  • ,ast-eval
  • ,backtrace
  • ,bt
  • ,for-clause
  • ,frame-var
  • ,frame
  • ,g2c-eval
  • ,handlers
  • ,in
  • ,params
  • ,quit
  • ,restarts
  • ,restart
  • ,ret-var
  • ,ret
  • ,sig
  • ,top
  • ,try-option-list
  • ,try-options
  • ,try-option
  • ,up
  • ,var
  • -
  • ...'!'
  • ...'-setter'
  • ...'?'
  • . + - [0-9]+
  • /
  • 1st
  • 2nd
  • 3rd
  • ; ...
  • <<
  • <=
  • <ambiguous-method-error>
  • <any>
  • <argument-type-error>
  • <arithmetic-error>
  • <arity-error>
  • <as-error>
  • <assert-error>
  • <ast-error>
  • <call-error>
  • <chr>
  • <class>
  • <col!>
  • <col.>
  • <col>
  • <compiler-error>
  • <condition>
  • <cpl-error>
  • <cycle>
  • <directory-error>
  • <enum>
  • <error>
  • <event>
  • <file-in-port>
  • <file-opening-error>
  • <file-out-port>
  • <file-port>
  • <flat-enum>
  • <flat>
  • <flo>
  • <fun>
  • <g2c-module-loader>
  • <gen>
  • <handler>
  • <in-port>
  • <incongruent-method-error>
  • <int>
  • <internal-error>
  • <io-error>
  • <keyboard-interrupt>
  • <list>
  • <loc>
  • <lock>
  • <log>
  • <lst>
  • <macro-error>
  • <mag>
  • <map>
  • <met>
  • <namespace-error>
  • <narity-error>
  • <no-applicable-methods-error>
  • <no-next-methods-error>
  • <num>
  • <out-port>
  • <packer>
  • <pathname-error>
  • <pipe>
  • <port>
  • <product>
  • <prop>
  • <property-error>
  • <property-not-found-error>
  • <property-type-error>
  • <property-unbound-error>
  • <range-error>
  • <range>
  • <restart>
  • <return-type-error>
  • <seq!>
  • <seq.>
  • <seq>
  • <serious-condition>
  • <simple-condition>
  • <simple-error>
  • <singleton>
  • <stack-overflow-error>
  • <step>
  • <str-in-port>
  • <str-out-port>
  • <str-port>
  • <str>
  • <subclass>
  • <sym-tab>
  • <sym>
  • <syntax-error>
  • <tab>
  • <thread>
  • <tup>
  • <type-error>
  • <type>
  • <unbound-error>
  • <unbound-variable-error>
  • <union>
  • <unknown-function-error>
  • <vec>
  • <zip>
  • <
  • ==
  • =
  • >=
  • >>>
  • >>
  • >
  • abs
  • acos
  • add!
  • add!
  • add-prop
  • address-of
  • add
  • add
  • all-threads
  • all?
  • alpha?
  • AND
  • any?
  • app-args
  • app-filename
  • app
  • asin
  • ASSERT
  • as
  • as
  • atan2
  • atan
  • below
  • bit?
  • build-condition-interactively
  • C-c
  • C-EXPR
  • C-MENT
  • call-error-arguments
  • call-error-function
  • case-insensitive-string-equal
  • case-insensitive-string-hash
  • CASE[-BY]
  • cat!
  • cat-sym
  • cat
  • ceil
  • class-ancestors
  • class-children
  • class-direct-props
  • class-name
  • class-of
  • class-parents
  • class-props
  • close
  • close
  • col-res-type
  • col
  • components-basename
  • components-last
  • components-parent-directory
  • components-to-pathname
  • condition-arguments
  • condition-message
  • COND
  • cosh
  • cos
  • create-directory
  • CT-ALSO
  • CT
  • cycle
  • C
  • D.
  • DC
  • DDV
  • DECF
  • default-handler-description
  • default-handler
  • DEF
  • del!
  • del-dups!
  • del-dups
  • del-vals!
  • del-vals
  • del
  • deq!
  • DF
  • DG
  • digit?
  • div
  • DLET
  • DM
  • do
  • DP!
  • DP
  • DS
  • dup
  • DV
  • each
  • elt!
  • elt-or
  • elt-setter
  • elt-type
  • elts
  • elt
  • emit
  • enq!
  • enum
  • enum
  • eof-object?
  • error
  • error
  • ESC
  • eval
  • even?
  • event-broadcast
  • event-name
  • event-signal
  • event-wait-timed
  • event-wait
  • EXPORT
  • exp
  • fab-handler
  • fab-setter-name
  • fabs
  • fab
  • file-exists?
  • file-mtime
  • file-opening-error-filename
  • file-type
  • fill!
  • fill
  • fin?
  • find-getter
  • find-or
  • find-setter
  • finds
  • find
  • FIN
  • first-then
  • flo-bits
  • floor
  • fold+
  • fold
  • force-out
  • FOR
  • frame-var
  • from
  • fun-arity
  • fun-mets
  • fun-names
  • fun-name
  • fun-nary?
  • fun-specs
  • fun-val
  • FUN
  • F
  • g2c-build-app
  • g2c-def-app
  • g2c-goo
  • g2c-test
  • gcd
  • gen-add-met
  • gensym
  • gets
  • get
  • GOO_EVAL_MODE
  • G
  • handler-function
  • handler-matches?
  • handler
  • head
  • hierarchical-components
  • id-hash
  • IF
  • INCF
  • incongruent-method-error-generic
  • incongruent-method-error-method
  • ins!
  • ins
  • into
  • in
  • isa?
  • items
  • I
  • join
  • key-test
  • key-type
  • keys
  • K
  • label-components
  • last
  • lcm
  • len
  • LET
  • list
  • load
  • loc-val
  • lock-lock
  • lock-name
  • lock-unlock
  • LOC
  • logn
  • log
  • lower?
  • lst*
  • lst
  • L
  • MACRO-EXPAND
  • map
  • MATCH
  • max
  • mem?
  • met-app?
  • min
  • mod:name
  • mod
  • msg
  • M
  • neg?
  • neg
  • newline
  • new
  • new
  • new
  • new
  • new
  • nil
  • not
  • now-key
  • now-setter
  • now
  • nul?
  • nul
  • num-to-str-base
  • num-to-str
  • nxt
  • N
  • odd?
  • open
  • open
  • open
  • open
  • open
  • OPF
  • OP
  • ord-app-mets
  • OR
  • os-name
  • os-val-setter
  • os-val
  • out
  • PACK-IN
  • PACKED
  • packer-add
  • packer-fab
  • packer-fab
  • packer-fab
  • packer-res
  • packer
  • PACKING-IN
  • PACKING-WITH
  • PACKING
  • PACK
  • pair
  • parent-directory
  • pathname-to-components
  • pattern
  • peek
  • pick
  • pop!
  • POPF
  • pop
  • port-contents
  • port-index
  • PORT-TO-STR
  • pos?
  • post
  • pos
  • pow
  • prefix?
  • probe-directory
  • process-id
  • product-elts
  • prop-bound?
  • prop-getter
  • prop-init
  • prop-owner
  • prop-setter
  • prop-type
  • property-error-generic
  • property-error-owner
  • push!
  • PUSHF
  • push
  • puts
  • put
  • P
  • QUASIQUOTE
  • QUOTE
  • range-by
  • range-error-collection
  • range-error-key
  • range
  • ready?
  • read
  • rem
  • repeat
  • REP
  • rev!
  • rev
  • ROTF
  • round-to
  • round
  • save-image
  • say
  • SEQ
  • SET
  • sig
  • sinh
  • sin
  • sleep
  • sort!
  • sort-by!
  • sort-by
  • sort
  • SPAWN
  • SPLICING-UNQUOTE
  • split
  • sqrt
  • sqrt
  • str-to-num
  • str
  • sub*-setter
  • sub*
  • sub-setter
  • subtype?
  • sub
  • suffix?
  • SUP
  • SWAPF
  • S
  • t*
  • t+
  • t<
  • t=
  • t?
  • tab-growth-factor
  • tab-growth-threshold
  • tab-hash
  • tab-shrink-threshold
  • tail
  • tanh
  • tan
  • thread-current
  • thread-function
  • thread-join
  • thread-name
  • thread-priority
  • thread-yield
  • to-c
  • to-digit
  • to-lower
  • to-str
  • to-upper
  • top
  • trunc
  • TRY
  • tup
  • type-class
  • type-error-type
  • type-error-value
  • type-object
  • unbound-variable-error-variable
  • union-elts
  • UNLESS
  • UNQUOTE
  • unzip
  • upper?
  • USE/EXPORT
  • USE/INCLUDE
  • USE/LIBRARY
  • USE
  • vec
  • WHEN
  • WITH-LOCK
  • WITH-PORT
  • writeln
  • write
  • x|t
  • zap!
  • zap
  • zero?
  • zipped
  • zip
  • [a-zA-Z0-9]+
  • #" ... "#
  • #\name
  • #( ... )
  • #/ ... /#
  • #e #i #b #o #d #x
  • #ec{ ... }
  • #f
  • #t #f
  • #t
  • #[ ... ]
  • #{ ... }
  • #|
  • $ $$ $$$
  • $e
  • $pi
  • &
  • Name
  • ^
  • { ... }
  • { ... }
  • { ... }
  • ~==
  • ~=
  • ~
  • call
  • call
  • lit
  • special
  • var
  • |
    • ReferencesTopHistory and AcknowledgementsIndex
    goo-0.155/doc/manual/goomanual_55.html0100644000175000017500000000466307756745752017155 0ustar vomjomvomjom <i>GOO</i> Manual -- References
    Class Precedence ListTopIndexReferences

    References

     [1]
    Kim Barrett, Bob Cassels, Paul Haahr, David A. Moon, Keith Playford, Andrew L. M. Shalit, and P. Tucker Withington. A monotonic superclass linearization for Dylan. In Proceedings of the Conference on Object-Oriented Programming Systems, Languages, and Applications, volume 31, 10 of ACM SIGPLAN Notices, pages 69-82, New York, October 6-10 1996. ACM Press.
     [2]
    David M. Beazley. SWIG: An easy to use tool for integrating scripting languages with C and C++. In Proceedings of the 4th USENIX Tcl/Tk Workshop, pages 129-139, 1996.
     [3]
    R. Kelsey, W. Clinger, and J. Rees. Revised5 report on the algorithmic language scheme. Higher-Order and Symbolic Computation, 11(1):7-105, 1998.
     [4]
    A. Shalit. The Dylan Reference Manual. Addison Wesley, 1996.
     [5]
    Richard C. Waters. Automatic transformation of series expressions into loops. ACM Transactions on Programming Languages and Systems, 13(1):52-98, January 1991.
    Class Precedence ListTopIndexReferences
    goo-0.155/doc/manual/goomanual_56.html0100644000175000017500000000476407756745752017160 0ustar vomjomvomjom <i>GOO</i> Manual -- Class Precedence List
    Subtyping RulesTopReferencesClass Precedence List

    Class Precedence List

    This section defines the algorithm for computing a class's linearized ancesters from its parents, its parent's parents, etc. GOO uses the C3 class linearization rule [1]. The following is the GOO implementation of this algorithm: 

    (dm class-ordered-ancestors (c|<class> => <lst>)
  (def parents (class-parents c))
  (rep merge-lists
      ((partial-cpl|<lst>     
         (lst c)) 
       (remaining-lists|<lst> 
         (add (map class-ancestors parents) parents)))
    (if (all? nul? remaining-lists)
        (rev! partial-cpl)
        (loc ((candidate (c) 
                (loc ((tail? (l|<lst>) (mem? (tail l) c)))
                  (and (not (any? tail? remaining-lists)) c)))
              (candidate-at-head (l|<lst>)
                (and (not (nul? l)) (candidate (head l)))))
          (def next (any? candidate-at-head remaining-lists))
          (if next
              (loc ((del-next (l|<lst>)
                      (if (== (head l) next) (tail l) l)))
                (merge-lists
                 (pair next partial-cpl) 
                 (map del-next remaining-lists)))
              (error "inconsistent precedence graph"))))))
    Subtyping RulesTopReferencesClass Precedence List
    goo-0.155/doc/manual/goomanual_57.html0100644000175000017500000000604507756745752017153 0ustar vomjomvomjom <i>GOO</i> Manual -- Subtyping Rules
    FootnotesTopClass Precedence ListSubtyping Rules

    Subtyping Rules

    This section defines the subtyping rules for GOO in terms of subtype methods. 

    (dm subtype? (t1|<union> t2|<type> => <log>)
  (all? (op subtype? _ t2) (type-elts t1)))
(dm subtype? (t1|<type> t2|<union> => <log>)
  (any? (op subtype? t1 _)) (type-elts t2)))
(dm subtype? (t1|<union> t2|<union> => <log>)
  (all? (op subtype? _ t2)) (type-elts t1)))
(dm subtype? (t1|<class> t2|<class> => <log>)
  (subclass? t1 t2))
(dm subtype? (t1|<singleton> t2|<class> => <log>)
  (isa? (type-object t1) t2))
(dm subtype? (t1|<subclass> t2|<class> => <log>)
  (subclass? <class> t2))
(dm subtype? (t1|<class> t2|<singleton> => <log>) #f)
(dm subtype? (t1|<singleton> t2|<singleton> => <log>)
  (== (type-object t1) t2))
(dm subtype? (t1|<subclass> t2|<singleton> => <log>) #f)
(dm subtype? (t1|<class> t2|<subclass> => <log>)
  (and (== t1 <class>) (== (type-class t2) <class>)))
(dm subtype? (t1|<subclass> t2|<subclass> => <log>)
  (subclass? (type-class t1) (type-class t2)))
(dm subtype? (t1|<singleton> t2|<subclass> => <log>)
  (and (isa? (type-object t1) <class>)
       (subclass? (type-object t1) (type-class t2))))
(dm subtype? (t1|<product> t2|<type> => <log>) #f)
(dm subtype? (t1|<type> t2|<product> => <log>) #f)
(dm subtype? (t1|<product> t2|<product> => <log>)
  (and (== (len (type-elts t1)) (len (type-elts t2)))
       (all? (zipped subtype?) (zip (type-elts t1) (type-elts t2)))))
(dm subtype? (t1|<product> t2|<class> => <log>)
  (subtype? <tup> t2))
    FootnotesTopClass Precedence ListSubtyping Rules
    goo-0.155/doc/manual/goomanual_6.html0100644000175000017500000000647607756745752017075 0ustar vomjomvomjom <i>GOO</i> Manual -- Expressions
    Namespaces and BindingsTopIntroductionExpressions

    Expressions

    Once tokenized, GOO evaluates s-expressions in the usual lisp manner:
     var ,name S
    returns the value of binding named ,name in the current environment.
     lit ,lit S
    syntactic literals that are self-evaluating.
     QUOTE (QUOTE ,form) S
    with ',form == (QUOTE ,form) (cf., Scheme's QUOTE)
     special (,special ,@args) S
    GOO defines a number of identifiers as the names of special forms, which if seen in function call position cause special form specific evaluation.
     call (,f ,@args) S
    otherwise lists represent function calls.

    Namespaces and BindingsTopIntroductionExpressions
    goo-0.155/doc/manual/goomanual_7.html0100644000175000017500000001505507756745752017067 0ustar vomjomvomjom <i>GOO</i> Manual -- Namespaces and Bindings
    Program ControlTopExpressionsNamespaces and Bindings

    Namespaces and Bindings

    GOO is a lexically scoped language. Bindings contain values and are looked up by name. Lexical bindings are visible from only particular textual ranges in a program. Lexical bindings shadow visible bindings of the same name.

    At the topmost level, GOO provides simple modules that map from names to bindings. Each file introduces a new module with the same name as the file. Nested modules are supported by way of slashes in module names. Modules can import bindings exported by other modules, but currently there is no way to selectively exclude or rename imported bindings. Furthermore, no cycles can occur in the module use heterarchy.
     D. (D. ,var ,form) S
    defines a global constant named (var-name ,var) with an initial value ,form (cf. Dylan's DEFINE CONSTANT).
     DV (DV ,var ,form) S
    defines a global variable named (var-name ,var) with an initial value ,form (cf. Dylan's DEFINE VARIABLE).
     DEF (DEF ,var ,val) S
    locally binds ,var to ,val and evaluates remainder of current body in the context of that binding.
    (DEF (TUP ,var ...) ,val) S
    parallel binding can also be specified using TUP on the lhs of a DEF binding. For example (DEF (TUP x y) (TUP 1 2))
     LET (LET ((,var ,val) ...) ,@body) S
    == (SEQ (DEF ,var ,val) ... ,@body)

    where
     ,var == ,name | (,name ,type) L
    with ,name | ,type == (,name ,type) within lists.
     SET (SET ,name ,form) S
    sets ,name binding to value of evaluating ,form (cf. Scheme's SET!)
    (SET (,name ,@args) ,form) S
    == (,name ## -setter ,form ,@args)
     USE (USE ,name) S
    loads the module ,name (if it hasn't been loaded already) and aliases all the exported bindings into the current namespace.
     EXPORT (EXPORT ,name) S
    makes the binding ,name available to code which uses this module in the future.
     USE/EXPORT (USE/EXPORT ,name) S
    same as USE plus reexports all imported bindings.

    Program ControlTopExpressionsNamespaces and Bindings
    goo-0.155/doc/manual/goomanual_8.html0100644000175000017500000002422607756745752017070 0ustar vomjomvomjom <i>GOO</i> Manual -- Program Control
    Types, Classes and PropertiesTopNamespaces and BindingsProgram Control

    Program Control

    GOO provides a variety of program control constructs including function calls, conditional execution, and nonlocal control flow.
     SEQ (SEQ ,@forms) S
    evaluates forms sequentially and returns values of evaluating last form (cf. Scheme's BEGIN)
    (SEQ) S
    returns false
     { ... } { ,@body } S
    SEQ abbreviation == (SEQ ,@body).
     IF (IF ,test ,then [ ,else ]) S
    evaluates either ,then if ,test is non-false otherwise evaluates ,else (cf. Scheme's IF). The ,else expression defaults to false.
     AND (AND ,form ,@forms) S
    == (IF ,form (AND ,@FORMS))
    (AND ,form) S
    == ,form
     OR (OR ,form ,@forms) S
    == (SEQ (DEF x ,form) (IF x x (OR ,@FORMS)))
    (OR ,form) S
    == ,form
     UNLESS (UNLESS ,test ,@body) S
    == (IF (NOT ,test) (SEQ ,@body))
     WHEN (WHEN ,test ,@body) S
    == (IF ,test (SEQ ,@body))
     COND (COND (,test ,@body) ...) S
    evaluates (SEQ ,@body) of first clause whose ,test evaluates to non-false (cf. Dylan's CASE and Scheme's COND).
     CASE[-BY] (CASE[-BY] ,value [ ,test ]((,@keys) ,@body) ...) S
    evaluates ,value and then evaluates (SEQ ,@body) of first clause for which (,test ,value ,key) returns non-false (cf. Dylan's SELECT and Scheme's CASE). N.B., each key is evaluated, thus symbols must be quoted. The default ,test for the CASE form is ==.
     OPF (OPF ,place ,expr) S
    == (SEQ (DEF _ ,place) (SET ,place ,expr)), where ,place is evaluated only once. For example, (OPF x (+ _ 1)) == (SET x (+ x 1)).
     SWAPF (SWAPF ,x ,y) S
    == (SEQ (DEF tmp ,x) (SET ,x ,y) (SET ,y tmp)), where ,x and ,y are evaluated only once.
     ROTF (ROTF ,x ,y ,@places) S
    == (SET (TUP ,x ,y ,@places) (TUP ,y ,@places ,x)) where ,x, ,y, and ,@places) are evaluated only once and (SET (TUP ...) val) stands for parallel assignment.
     call (,f ,@args) S
    evaluates ,f and then ,@args in left to right order and then calls ,f with the evaluated arguments.
     REP (REP ,name ((,var ,init) ...) ,@body) S
    defines a recursive loop (cf., Dylan's ITERATE or Scheme's (LET ,var ...)).
     ESC (ESC ,name ,@body) S
    evaluates (SEQ ,@body) with an exit function of a single parameter, x, bound to ,name that if called, will cause ESC to return the value of x (cf. Dylan's BLOCK/RETURN). It is illegal to call the exit function after the execution of the creating ESC form (i.e., no upward continuations).
     FIN (FIN ,protected ,@cleanups) S
    ensures that (SEQ ,@cleanups) is evaluated whether or not an ESC upwards exit is taken during the dynamic-extent of ,protected (cf. Dylan's BLOCK/CLEANUP form and CL's UNWIND-PROTECT). The result of a FIN form is the result of evaluating its protected form.
     ASSERT (ASSERT ,test ,message ,@args) S
    == (UNLESS ,test (ERROR ,message ,@args))

    Types, Classes and PropertiesTopNamespaces and BindingsProgram Control
    goo-0.155/doc/manual/goomanual_9.html0100644000175000017500000000707407756745752017073 0ustar vomjomvomjom <i>GOO</i> Manual -- Types, Classes and Properties
    FunctionsTopProgram ControlTypes, Classes and Properties

    Types, Classes and Properties

    GOO types categorize objects. Types are first class. They are used to annotate bindings. Binding types restrict the type of objects bindable to associated bindings.

    GOO supports the following types in order of specificity (with the exact ordering defined in Appendix *):

    • Singleton types specify a unique instance,
    • Classes and properties specify the structure, inheritance, and initialization of objects. Every object is a direct instance of a particular class,
    • Product types specify a cross product of types,
    • Subclass types specify a lineage of classes, and
    • Union types specify a union of types.

    The basic type protocol is:
     <type> (<any>) C
     isa? (x|<any> y|<type> => <log>) G
     subtype? (x|<type> y|<type> => <log>) G
    returns true iff x is a subtype of y.
     new (type|<type> prop-inits|...) G
    creation protocol taking type and creation options where prop-inits contains getter / initial value pairs.

  • Singletons
  • Subclasses
  • Unions
  • Product
  • Classes
    • FunctionsTopProgram ControlTypes, Classes and Properties
    goo-0.155/doc/manual/gooomanual.html0100644000175000017500000000335407516023057016774 0ustar vomjomvomjom <i>GOO Manual  

    GOO Reference Manual v39

    Jonathan Bachrach
    MIT AI Lab

    May 16, 2002

  • Introduction
  • Expressions
  • Namespaces and Bindings
  • Program Control
  • Types, Classes and Properties
  • Functions
  • Scalars
  • Collections
  • Symbols
  • Conditions
  • Input / Output
  • System
  • Compiler
  • Top Level
  • Installation
  • Usage
  • Caveats
  • Future
  • History and Acknowledgements
  • Index
  • References
  • Class Precedence List
  • Subtyping Rules
  • Footnotes
    • goo-0.155/doc/manual/gooomanual_1.html0100644000175000017500000000401107516023057017203 0ustar vomjomvomjom <i>GOO Manual -- Introduction
    ExpressionsTopIntroduction

    Introduction

    GOO is a dynamic type-based object-oriented language. It is designed to be simple, productive, powerful, extensible, dynamic, efficient and real-time. It heavily leverages features from many earlier languages. In particular, it attempts to be a simpler, more dynamic, lisp-syntaxed Dylan [4] and an object-oriented Scheme [3]. GOO's main goal is to offer the best of both scripting and delivery languages while at the same time incorporating an extreme back-to-basics philosophy. GOO is freely available from www.googoogaga.org under GPL. This manual is preliminary and relies on an understanding of Scheme and Dylan.

  • Notation
  • Lexical Structure
  • Meta Syntax
  • Conventions
    • ExpressionsTopIntroduction
    goo-0.155/doc/manual/gooomanual_10.html0100644000175000017500000000436407516023060017270 0ustar vomjomvomjom <i>GOO Manual -- Singletons
    SubclassesTypes, Classes and PropertiesSingletons

    Singletons

    Singleton types match exactly one value using ==. Singletons are the most specific types.
     <singleton> (<type>) C
     t= (x|<any> => <singleton>) G
    returns singleton constrained to x.
     type-object (x|<singleton> => <any>) G
    object that singleton type matches.

    SubclassesTypes, Classes and PropertiesSingletons
    goo-0.155/doc/manual/gooomanual_11.html0100644000175000017500000000464407516023060017272 0ustar vomjomvomjom <i>GOO Manual -- Subclasses
    UnionsTypes, Classes and PropertiesSingletonsSubclasses

    Subclasses

    Subclass types match classes and their subclasses. They are quite useful in situations that involve class arguments that need to be further constrained.
     <subclass> (<type>) C
     t< (x|<class> => <subclass>) G
    returns subclass type constrained to subclasses of x.
     type-class (x|<subclass> => <class>) G
    object that subclass type matches.

    UnionsTypes, Classes and PropertiesSingletonsSubclasses
    goo-0.155/doc/manual/gooomanual_12.html0100644000175000017500000000553007516023060017266 0ustar vomjomvomjom <i>GOO Manual -- Unions
    ProductTypes, Classes and PropertiesSubclassesUnions

    Unions

    Union types represent the disjunction of types. In conjunction with singleton types, they can be used to represent C-style enum's.
     <union> (<type>) C
     t+ (types|... => <union>) G
    returns union type representing disjunction of types.
     union-elts (x|<union> => <seq>) G
    types that union type matches.
     t? (type|<type> => <union>) F
    == (t+ (t= #f) type) (cf., Dylan's false-or). This is often used to widen a type to include the convenient false null.

    ProductTypes, Classes and PropertiesSubclassesUnions
    goo-0.155/doc/manual/gooomanual_13.html0100644000175000017500000000456607516023060017277 0ustar vomjomvomjom <i>GOO Manual -- Product
    ClassesTypes, Classes and PropertiesUnionsProduct

    Product

    Product types represent tuples formed as the cartesian product of types. They are often used to describe multiple value return types.
     <product> (<type>) C
     t* (types|... => <product>) G
    returns product type specifying the cross product of types.
     product-elts (x|<product> => <seq>) G
    types that product type matches.

    ClassesTypes, Classes and PropertiesUnionsProduct
    goo-0.155/doc/manual/gooomanual_14.html0100644000175000017500000002332107516023060017266 0ustar vomjomvomjom <i>GOO Manual -- Classes
    Types, Classes and PropertiesProductClasses

    Classes

    Classes are types that specify an inheritance relationship and can have associated structured data through properties.
     <class> (<type>) C
     class-name (x|<class> => (t? <sym>)) G
    returns class name or false otherwise.
     class-parents (x|<class> => <seq>) G
    direct superclasses.
     class-ancestors (x|<class> => <seq>) G
    class precedence list including this class. See Appendix * for details.
     class-direct-props (x|<class> => <seq>) G
    properties defined directly on this class.
     class-props (x|<class> => <seq>) G
    properties defined on this class or any superclass.
     class-children (x|<class> => <seq>) G
    direct subclasses.
     DC (DC ,name (,@parents)) S
    defines a class named ,name with direct parents ,@parents
     new (type|<class> prop-inits|...) M
    creates an instance of type type and prop initialized as specified by prop-inits. For example, (new <point> point-x 1 point-y 2) creates a point with x=1 and y=2.

    Properties

    Properties are named data associated with classes. Their values are accessed exclusively through generic functions, called getters and setters. Descriptions of properties are instances of <prop>. Property values can either be specified at creation time with keyword arguments, by calling a property setter, or through a property initialization function called lazily the first time a getter is called if the property is otherwise uninitialized. Property initialization functions are called with a single argument, the object under construction.
     <prop> (<any>) C
     prop-owner (x|<prop> => <any>) P
    class on which property was directly defined.
     prop-getter (x|<prop> => <gen>) P
    reader accessor generic.
     prop-setter (x|<prop> => <gen>) P
    writer accessor generic.
     prop-type (x|<prop> => <type>) P
    type constraining property value.
     prop-init (x|<prop> => <fun>) P
    lazy initialization function.
     find-getter (c|<class> getter|<gen> => <met>) G
    finds getter method defined on given class.
     find-setter (c|<class> setter|<gen> => <met>) G
    finds setter method defined on given class.
     prop-bound? (x g|<gen> => <log>) P
    returns true if property with getter g is bound in instance x.
     add-prop (owner getter|<gen> setter|<gen> type|<type> init|<fun>) M
    where init is a one parameter function that returns the initial value for the prop and gets called lazily with the new instance as the argument.
     DP (DP ,name (,oname|,owner => ,type) [,@init]) S
    add's a property to ,owner with getter named ,name, setter named ,name ## "-setter", type ,type, and optionally initial value ,init. The initial value function is evaluated lazily when prop's value is first requested.

    Types, Classes and PropertiesProductClasses
    goo-0.155/doc/manual/gooomanual_15.html0100644000175000017500000002375007516023060017275 0ustar vomjomvomjom <i>GOO Manual -- Functions
    ScalarsTopTypes, Classes and PropertiesFunctions

    Functions

    All operations in GOO are functions.

    Functions accept zero or more arguments, and return one value. The parameter list of the function describes the number and types of the arguments that the function accepts, and the type of the value it returns.

    There are two kinds of functions, methods and generic functions. Both are invoked in the same way. The caller does not need to know whether the function it is calling is a method or a generic function.

    A method is the basic unit of executable code. A method accepts a number of arguments, creates local bindings for them, executes an implicit body in the scope of these bindings, and then returns a value.

    A generic function contains a number of methods. When a generic function is called, it compares the arguments it received with the parameter lists of the methods it contains. It selects the most appropriate method and invokes it on the arguments. This technique of method dispatch is the basic mechanism of polymorphism in GOO.

    All GOO functions are objects, instances of <fun>. Generic functions are instances of <gen> and methods are instances of <met>.
     <fun> (<any>) C
     fun-name (x|<fun> => (t? <sym>)) P
    returns the name of function or false if unavailable.
     fun-names (x|<fun> => <lst>) P
    returns the names of parameters of x or () if unavailable.
     fun-specs (x|<fun> => <lst>) P
    returns the specializers of x.
     fun-nary? (x|<fun> => <log>) P
    returns true iff the function takes optional arguments.
     fun-arity (x|<fun> => <int>) P
    returns x's number of required arguments.
     fun-val (x|<fun> => <type>) P
    returns the return type of x.
     FUN (FUN ,sig ,@body) S
    creates an anonymous method with signature ,sig and when called evaluates ,@body as (SEQ ,@body) (cf. Scheme's LAMBDA). The following a few example functions and their application: 

    ((fun (x) x) 1) ==> 1 
((fun (x|<int> => <int>) x) 2) ==> 2 
((fun (x|...) x) 1 2 3) ==> (1 2 3) 
((fun (x y|...) y) 1 2 3) ==> (2 3) 
((fun (x => (tup <int>))) (tup x)) 1)  $ == $ (tup 1)

    where
     ,sig == (,@params) | (,@params => ,ret) L
     ,params == (,@vars [(,name '...')]) L
    where parameter lists can include an optional nary parameter which binds to all arguments beyond required arguments.
     ,ret == ,var | (TUP ,@ret-vars) L
    with TUP turning into corresponding t* function return type.
     ,ret-var == (,name ,type) L
     LOC (LOC ((,name ,sig ,@fbody)) ,@body) S
    == 
           (LET ((,name #f) ...) 
       (SET ,name (fun ,sig ,@fbody)) ... 
       ,@body)
    LOC introduces local functions that can recursively call each other (cf. Scheme's LETREC).
     DF (DF ,name ,sig ,@body) S
    == (DV ,name (FUN ,sig ,@body)) followed by setting the function's name.
     zipped (x|<fun> => <fun>) G
    == (fun (y|...) (app x y)). This is useful when mapping over zipped multiple sequences (e.g., (map (zipped +) (zip '(1 2) '(2 3))).
     OP (OP ,op-arg ...) S
    creates an anonymous function with implicitly defined arguments, where ,op-arg is either an implicit required parameter "_" or rest parameter "..." or an s-expression potentially containing further op-args. The required parameters are found ordered according to a depth-first walk of the op-args. The following are typical examples: 
    ((op _) 1) ==> 1 
((op 2) 1) ==> 2 
((op + _ 1) 3) ==> 4 
((op lst ... 1) 3 2) ==> (3 2 1) 
((op tail (tail _)) '(1 2 3)) ==> (3)
     app (f|<fun> args|... => <any>) G
    calls f with arguments (cat (sub args 0 (- (len args) 2)) (elt args (- (len args) 1))).

  • Generics
  • Methods
  • Macros
    • ScalarsTopTypes, Classes and PropertiesFunctions
    goo-0.155/doc/manual/gooomanual_16.html0100644000175000017500000000737607516023060017304 0ustar vomjomvomjom <i>GOO Manual -- Generics
    MethodsFunctionsGenerics

    Generics

    Generic functions provide a form of polymorphism allowing many implementation methods with varying parameter types, called specializers. Methods on a given generic function are chosen according to applicability and are then ordered by specificity. A method is applicable if each argument is an instance of each corresponding specializer. A method A is more specific than method B if all of A's specializers are subtypes of B's. During method dispatch three cases can occur:

    • if no methods are applicable then a no-applicable-method error is signaled,
    • if methods are applicable but are not orderable then an ambiguous-method error is signaled,
    • if methods are applicable and are orderable then the most specific method is called and the next methods are established.
     <gen> (<fun>) C
     fun-mets (x|<gen> => <lst>) P
    returns x's methods.
     gen-add-met (x|<gen> y|<met> => <gen>) G
    adds method y to generic x.
     ord-app-mets (x|<gen> args|... => (tup ord|<lst> amb|<lst>)) G
    returns both the list of sorted applicable methods and any ambiguous methods when generic x is called with arguments args.
     DG (DG ,name ,sig) S
    defines a binding with name ,name bound to a generic with signature ,sig.
    MethodsFunctionsGenerics
    goo-0.155/doc/manual/gooomanual_17.html0100644000175000017500000000627707516023060017304 0ustar vomjomvomjom <i>GOO Manual -- Methods
    MacrosFunctionsGenericsMethods

    Methods

    Methods are GOO's code objects. Methods can optionally be added to generics.
     <met> (<fun>) C
     met-app? (x|<met> args|<lst> => <log>) G
    determines whether x is applicable when called with args.
     DM (DM ,name ,sig ,@body) S
    first ensures that a generic exists named ,name and with a minimally congruent to signature ,sig and then adds a method with signature ,sig and body ,@body (cf., Dylan's DEFINE METHOD).
     SUP (SUP ,@args) S
    calls next most applicable method. N.B., all arguments must be supplied.
    (APP-SUP ,args) S
    applies next most applicable method. N.B., all arguments must be supplied.

    MacrosFunctionsGenericsMethods
    goo-0.155/doc/manual/gooomanual_18.html0100644000175000017500000001324107516023060017272 0ustar vomjomvomjom <i>GOO Manual -- Macros
    FunctionsMethodsMacros

    Macros

    Macros provide a facility for extending the base syntax of GOO. The design is based on quasiquote code templates and a simple list pattern matching facility.
     QUASIQUOTE (QUASIQUOTE ,@qq-forms) S
    QUOTE with selective evaluation using UNQUOTE and SPLICING-UNQUOTE (cf. Lisp and Scheme's QUASIQUOTE), abbreviated "`".
     UNQUOTE (UNQUOTE ,form) S
    evaluates ,form in the midst of a QUASIQUOTE expression, abbreviated ",".
     SPLICING-UNQUOTE (SPLICING-UNQUOTE ,form) S
    evaluates ,form in the midst of a QUASIQUOTE expression and splices it in, abbreviated ",@".
     MATCH (MATCH ,exp (,pat ,val) ...) S
    evaluates ,val corresponding to first ,pat matching ,exp. The pattern is much the same as QUASIQUOTE and can contain either UNQUOTE'd variables or UNQUOTE-SPLICING variables. For example, 
    (MATCH '(1 2) ((,a ,b) (lst a b))) $ --> $ (1 2) 
(MATCH '(1 2) ((,a ,@b) (lst a b))) $ --> $ (1 (2))
     DS (DS ,pattern ,@body) S
    defines a macro matching pattern ,pattern and expanding according to ,@body. The pattern matching occurs as in MIF and makes available pattern variables during the evaluation of (SEQ ,@body). For example, 
    (DS (when ,test ,@body) 
  `(if (not ,test) (seq ,@body)))
    defines the when macro in GOO.
    where
     pattern == (,@qq-forms) L
     CT (CT ,@body) S
    evaluates (SEQ ,@body) at compile-time allowing a user to make available computations for the purpose of macro-expansion.
     CT-ALSO (CT-ALSO ,@body) S
    equivalent to CT, but also includes a copy of ,@body in compiled images. Similar to (eval-when (:compile-toplevel :execute) ...) in Common LISP. The return value of CT-ALSO is undefined.
     MACRO-EXPAND (MACRO-EXPAND ,form) S
    recursively expands macros in expression ,form.

    FunctionsMethodsMacros
    goo-0.155/doc/manual/gooomanual_19.html0100644000175000017500000000301307516023060017267 0ustar vomjomvomjom <i>GOO Manual -- Scalars
    CollectionsTopFunctionsScalars

    Scalars

    GOO provide a rich set of simple objects.

  • Any
  • Booleans
  • Magnitudes
  • Locatives
  • Characters
  • Numbers
    • CollectionsTopFunctionsScalars
    goo-0.155/doc/manual/gooomanual_2.html0100644000175000017500000000656307516023060017214 0ustar vomjomvomjom <i>GOO Manual -- Notation
    Lexical StructureIntroductionNotation

    Notation

    Throughout this document GOO objects are described with definitions of the following form:
     Name Signature N
    Documentation

    where the rightmost kind field has a one letter code as follows:
     N Notation N
     L Lexical N
     S Syntax N
     G Generic N
     M Method N
     F Function N
     C Class N
     I Instance N
     K Command N

    Lexical StructureIntroductionNotation
    goo-0.155/doc/manual/gooomanual_20.html0100644000175000017500000000730307516023060017265 0ustar vomjomvomjom <i>GOO Manual -- Any
    BooleansScalarsAny

    Any

    All objects are derived from <any>.
     <any> (<any>) C
     as (x|<any> y|<any> => <any>) G
    coerces y to an instance of x.
     == (x|<any> y|<any> => <log>) G
    returns true iff x and y are computationally equivalent.
     = (x|<any> y|<any> => <log>) G
    returns true iff x and y are equal, where equality is user defined and defaults to ==.
     ~= (x|<any> y|<any> => <log>) G
    == (not (= x y)).
     ~== (x|<any> y|<any> => <log>) G
    == (not (== x y)).
     to-str (x|<any> => <str>) G
    returns string representation of object.

    BooleansScalarsAny
    goo-0.155/doc/manual/gooomanual_21.html0100644000175000017500000000454307516023060017271 0ustar vomjomvomjom <i>GOO Manual -- Booleans
    MagnitudesScalarsAnyBooleans

    Booleans

    In GOO, for convenience sake, true is often represented by anything that is not false, but #t is reserved for the canonical true value. False is often used to represent null.
     <log> (<any>) C
     #f <log> I
     #t <log> I
     not (x|<any> => <log>) M
    == (if x #f x)

    MagnitudesScalarsAnyBooleans
    goo-0.155/doc/manual/gooomanual_22.html0100644000175000017500000000755007516023060017273 0ustar vomjomvomjom <i>GOO Manual -- Magnitudes
    LocativesScalarsBooleansMagnitudes

    Magnitudes

    Magnitudes are totally orderable objects. Users are only required to implement < and =.
     <mag> (<any>) C
     < (x|<mag> y|<mag> => <log>) G
    returns iff x is less than y.
     > (x|<mag> y|<mag> => <log>) G
    == (not (or (< x y) (= x y))).
     <= (x|<mag> y|<mag> => <log>) G
    == (or (< x y) (= x y)).
     >= (x|<mag> y|<mag> => <log>) G
    == (not (< x y)).
     min (x|<mag> y|<mag> => <mag>) G
    returns the smallest of x and y.
     max (x|<mag> y|<mag> => <mag>) G
    returns the largest of x and y.

    LocativesScalarsBooleansMagnitudes
    goo-0.155/doc/manual/gooomanual_23.html0100644000175000017500000000454707516023060017277 0ustar vomjomvomjom <i>GOO Manual -- Locatives
    CharactersScalarsMagnitudesLocatives

    Locatives

    Locatives are word aligned pointers to memory. They are meant to be used to represent pointers to foreign data and not to point to interior GOO object data.
     <loc> (<mag>) C
     loc-val (x|<loc> => <any>) G
    returns the object pointed to by x.
     address-of (x|<any> => <loc>) G
    returns address of particular object.

    CharactersScalarsMagnitudesLocatives
    goo-0.155/doc/manual/gooomanual_24.html0100644000175000017500000001046407516023060017273 0ustar vomjomvomjom <i>GOO Manual -- Characters
    NumbersScalarsLocativesCharacters

    Characters

    GOO currently supports 8 bit ASCII characters.
     <chr> (<mag>) C
     alpha? (x|<chr> => <log>) G
    returns true iff x is one of the ASCII upper or lowercase characters.
     digit? (x|<chr> => <log>) G
    returns true iff x is one of the ten ASCII numeric characters.
     lower? (x|<chr> => <log>) G
    returns true iff x is one of the ASCII lowercase characters.
     upper? (x|<chr> => <log>) G
    returns true iff x is one of the ASCII uppercase characters.
     to-digit (x|<chr> => <int>) G
    converts ascii representation of digit to an integer one.
     to-lower (x|<chr> => <chr>) G
    returns lowercase version of uppercase alphabetic characters otherwise returns x.
     to-upper (x|<chr> => <chr>) G
    returns uppercase version of lowercase alphabetic characters otherwise returns x.

    NumbersScalarsLocativesCharacters
    goo-0.155/doc/manual/gooomanual_25.html0100644000175000017500000004615007516023060017275 0ustar vomjomvomjom <i>GOO Manual -- Numbers
    ScalarsCharactersNumbers

    Numbers

     <num> (<mag>) C
     + (x|<num> y|<num> => <num>) G
    returns the sum of its arguments.
     - (x|<num> y|<num> => <num>) G
    returns the difference of its arguments.
     * (x|<num> y|<num> => <num>) G
    returns the product of its arguments.
     / (x|<num> y|<num> => <num>) G
    returns the quotient of its arguments.
     round (x|<num> => <int>) G
    returns closest integer to x. If x is exactly between two integers then the implementation is free to return either integer.
     round-to (x|<num> n|<int> => <flo>) G
    returns x to closest flo n digits precision.
     floor (x|<num> => (tup <int> rem|<num>)) G
    returns an integer by truncating x towards negative infinity.
     ceil (x|<num> => (tup <int> rem|<num>)) G
    returns an integer by truncating x towards positive infinity.
     trunc (x|<num> => (tup <int> rem|<num>)) G
    returns an integer by truncating x towards zero.
     mod (x|<num> y|<num> => <num>) G
    returns the remainder after taking the floor of the quotient of x and y.
     rem (x|<num> y|<num> => <num>) G
    returns remainder after dividing x by y.
     pow (x|<num> e|<num> => <num>) G
    returns x raised to the e power.
     sqrt (x|<num> => <num>) G
    returns the square root of x.
     pos? (x|<num> => <log>) G
    == (> x 0)
     zero? (x|<num> => <log>) G
    == (= x 0)
     neg? (x|<num> => <log>) G
    == (< x 0)
     neg (x|<num> => <num>) G
    == (- 0 x)
     abs (x|<num> => <num>) G
    == (if (neg? x) (neg x) x)
     num-to-str-base (x|<num> b|<int> => <str>) G
    returns string representation of x in base b.
     num-to-str (x|<num> => <str>) G
    equiv (num-to-str-base x 10)
     str-to-num (x|<str> => <num>) G
    returns closest number corresponding to string x.
     INCF (INCF ,name) S
    == (SET ,name (+ ,name 1))
    (INCF (,name ,@rest)) S
    == (SET (,name ,@rest) (+ (,name ,@rest) 1))
     DECF (DECF ,name) S
    == (SET ,name (+ ,name 1))
    (DECF (,name ,@rest)) S
    == (SET (,name ,@rest) (+ (,name ,@rest) 1))
     $e <flo> I
     $pi <flo> I
     sqrt (x|<num> => <num>) G
     log (x|<num> => <num>) G
     logn (x|<num> b|<num> => <num>) G
     sin (x|<num> => <num>) G
     cos (x|<num> => <num>) G
     tan (x|<num> => <num>) G
     asin (x|<num> => <num>) G
     acos (x|<num> => <num>) G
     atan (x|<num> => <num>) G
     atan2 (y|<num> x|<num> => <num>) G
     sinh (x|<num> => <num>) G
     cosh (x|<num> => <num>) G
     tanh (x|<num> => <num>) G

    Integers

    GOO currently represents integers as 30 bit fixnums.
     <int> (<num>) C
     | (x|<int> y|<int> => <int>) G
    returns the logical inclusive or of its arguments.
     & (x|<int> y|<int> => <int>) G
    returns the logical and or of its arguments.
     ^ ((x|<int> y|<int> => <int>)) G
    == (| (& x (~ y)) (& (~ x) y))
     ~ (x|<int> => <int>) G
    returns the logical complement of its argument.
     bit? (x|<int> n|<int> => <log>) G
    returns true iff nth bit is 1.
     even? (x|<int> => <log>) G
     odd? (x|<int> => <log>) G
     gcd (x|<int> y|<int> => <int>) G
    greatest common denominator.
     lcm (x|<int> y|<int> => <int>) G
    least common multiple.
     << (x|<int> n|<int> => <int>) G
    returns n bit shift left of x.
     >> (x|<int> n|<int> => <int>) G
    returns signed n bit shift right of x.
     >>> (x|<int> n|<int> => <int>) G
    returns unsigned n bit shift right of x.

    Floats

    GOO currently only supports single-precision floating point numbers.
     <flo> (<num>) C
     flo-bits (x|<flo> => <int>) G
    returns bit representation as an integer.

    ScalarsCharactersNumbers
    goo-0.155/doc/manual/gooomanual_26.html0100644000175000017500000003432107516023060017273 0ustar vomjomvomjom <i>GOO Manual -- Collections
    SymbolsTopScalarsCollections

    Collections

    Collections are aggregate data structures mapping keys to values. Collections can be almost entirely defined in terms of an enumeration class.
     <col> (<any>) C
     <col.> (<col>) C
    immutable collections.
     fab (t|(t< <col>) n|<int> => <col>) G
    returns a new instance of collection type t of len n.
     col (t|(t< <col>) key-vals|... => <col>) G
    returns new collection of type t with initial key values key-vals.
     fabs (t|(t< <col>) elts|... => <col>) G
    returns new collection of type t with initial values elts and keys (below (len elts)).
     len (x|<col> => <int>) G
    returns number of collection elements.
     col-res-type (x|<col> => <type>) G
    appropriate instantiable type for creating collection results, where the default is (object-class x).
     empty? (x|<col> => <log>) G
    == (= (len x) 0)
     empty (x|<col> => <col>) G
    returns collection specific unique empty value.
     key-test (x|<col> => test|<fun>) G
    returns collection's key equality function.
    (x|<col> => (t= ==)) M
    default key-test is identity function.
     key-type (x|<col> => <type>) G
    returns collection x's key type.
     elt-type (x|<col> => <type>) G
    returns collection x's element type.
     elt (x|<col> k|<any> => <any>) G
    returns collection x's element associated with key k.
     elt-or (x|<col> k d => <any>) G
    returns collection x's element associated with key k or default d if it doesn't exist.
     mem? (x|<col> y|<any> => <log>) G
    returns true iff y is an element of x.
     add (x|<col> y|<any> => <col>) G
    returns collection with y added to x.
     elts (x|<col> keys|<seq> => <col>) G
    subset of elements of x corresponding to keys keys.
     dup (x|<col> => <col>) G
    returns shallow copy of x.
     keys (x|<col> => <seq>) G
    returns x's keys.
     items (x|<col> => <seq>) G
    returns a sequence of x's key/val tuples.
     del (x|<col> key|<any> => <col>) G
    returns copy of x's without element corresponding to key.
     zap (x|<col> => <col>) G
    returns empty copy of x.
     fill (x|<col> y|<any> => <col>) G
    returns copy of x with all values being y.
     any? (f|<fun> x|<col> => <log>) G
    returns true iff any of x's element satisfies given predicate f.
     find (f|<fun> x|<col> => <any>) G
    returns key associated with first of x's values to satisfy predicate f.
     find-or (f|<fun> x|<col> default => <any>) G
    returns key associated with first of x's values to satisfy predicate f or default if not found.
     all? (f|<fun> x|<col> => <log>) G
    returns true iff all of x's elements satisfies given predicate f.
     fold (f|<fun> init|<any> x|<col> => <col>) G
    == (f (f ... (f init (elt x 0)) (elt x (- n 2))) (elt x (- n 1)))
     fold+ (f|<fun> x|<col> => <any>) G
    == (f (f ... (f (elt x 0) (elt x 1)) (elt x (- n 2))) (elt x (- n 1)))
     do (f|<fun> x|<col>) G
    iterates function f over values of x for side-effect.
     map (f|<fun> x|<col> => <col>) G
    iterates function f over values of given collections and collects the results.

  • Mutable Collections
  • Enumerators
  • Packers
  • Maps
  • Sequences
  • Lazy Series'
    • SymbolsTopScalarsCollections
    goo-0.155/doc/manual/gooomanual_27.html0100644000175000017500000001040507516023060017271 0ustar vomjomvomjom <i>GOO Manual -- Mutable Collections
    EnumeratorsCollectionsMutable Collections

    Mutable Collections

    Mutation is seen as a necessary evil and is supported but segregated in hopes of trying to isolate and optimize the nondestructive cases. Mutation includes the notion of modifying values and adding/removing keys. The hope is that functional (nondestructive) programs will be both more succinct, understandable, and efficient than equivalent destructive programs. Only core collection operators are given destructive versions. All others can be built out of nondestructive operators followed by into 1.
     <col!> (<any>) C
     elt-setter (v|<any> x|<col> k|<any>) G
    sets collection x's element associated with key k to v.
     into (x|<col!> y|<col> => <col!>) G
    replaces elements of x with elements of y.
     fill! (x|<col!> y|<any> => <col!>) G
    fills x with y's.
     add! (x|<col!> y|<any => <col!>) G
    adds y to x.
     del! (x|<col!> key|<any> => <col!>) G
    removes key from x.
     zap! (x|<col!> => <col!>) G
    removes all of x's elements.

    EnumeratorsCollectionsMutable Collections
    goo-0.155/doc/manual/gooomanual_28.html0100644000175000017500000001235307516023060017276 0ustar vomjomvomjom <i>GOO Manual -- Enumerators
    PackersCollectionsMutable CollectionsEnumerators

    Enumerators

    Enumerations are the foundation of collections and are designed to provide the convenience of Lisp's list interface (e.g., null, car, cdr) for all collections. In defining a new collection class, a user must implement at minimum an enumerator class and the enumeration protocol: enum, fin?, nxt, and now. For efficiency, users might choose to override more methods such as len, elt, elt-setter, etc. Enumeration behavior is undefined if an enumerator is modified during enumeration.
     <enum> (<any>) C
     enum (x|<col> => <enum>) G
    returns initial enum for iterating over x.
     fin? (x|<enum> => <log>) G
    returns true iff no more elements exist from given enum x.
     nxt (x|<enum> => <enum>) G
    returns enum pointing to next element in enum x.
     now (x|<enum> => <any>) G
    returns current element given enum x.
     now-setter (v x|<enum>) G
    sets current element given enum x to v.
     now-key (x|<enum> => <any>) G
    returns current key given enum x.
     FOR (FOR (,for-clause ...) ,@body) S
    parallel iteration over collections using enumerations.
    where
     ,for-clause == (,var ,col) | ((tup ,keyvar ,var) ,col) L
    specifies one parallel iteration over a collection ,col binding successive values to ,var and optionally keys to ,keyvar.

    PackersCollectionsMutable CollectionsEnumerators
    goo-0.155/doc/manual/gooomanual_29.html0100644000175000017500000001555607516023060017307 0ustar vomjomvomjom <i>GOO Manual -- Packers
    MapsCollectionsEnumeratorsPackers

    Packers

    Packers are the complement of enumerators and are the imperative version of fold. The default packer returns a list of all accumulated values: 

    (packing (for ((e '(1 2 3 4 5))) 
           (when (odd? e) (pack e))))  ==> (1 3 5)
    They can also be used for summing values etc: 
    (packing-in (x|<int>) 
  (for ((e '(1 2 3 4 5)))
    (when (odd? e) (pack-in x e)))
  (packed x))  ==> 9
     <packer> (<any>) C
     packer-add (p|<packer> x => <packer>) G
    returns a copy packer p augmented with element x.
     packer-res (p|<packer> => <any>) G
    returns result of packings over p.
     packer (init add|<fun> res|<fun>) G
    returns a simple packer that starts its value out with init, is augmented with add, and whose final value is computed with res.
     packer-fab (t|<type> => <packer>) G
    returns a new type t specific packer.
     packer-fab (t|(t< <seq>) => <packer>) M
    == (packer '() pair (op as t (rev! _)))
     packer-fab (t|(t= <int>) => <packer>) M
    == (packer 0 + (op _))
     PACKING-WITH (PACKING-WITH ((,var ,pack) ...) ,@body) S
    mechanism for packing objects using given packer into ,var.
     PACKING-IN (PACKING-IN (,name '|' ,type ...) ,@body) S
    == (PACKING-WITH (,name (packer-fab ,type)) ,@body).
    (PACKING-IN (,name) ,@body) S
    == (PACKING-IN (,name '|' <lst>) ,@body).
     PACKING (PACKING ,@body) S
    == (PACKING-IN (packer-) ,@body (packed packer-)).
     PACK-IN (PACK-IN ,pack ,x) S
    folds ,x into packer in ,pack.
     PACK (PACK ,x) S
    == (PACK packer- ,name).
     PACKED (PACKED ,name) S
    == (packer-res ,name).
    MapsCollectionsEnumeratorsPackers
    goo-0.155/doc/manual/gooomanual_3.html0100644000175000017500000001102707516023060017204 0ustar vomjomvomjom <i>GOO Manual -- Lexical Structure
    Meta SyntaxIntroductionNotationLexical Structure

    Lexical Structure

    The lexical structure is mostly the same as Scheme [3] with the notable exceptions being that identifiers can start with numeric digits if they are clearly distinguishable from floating point numbers and no syntax is provided for specifying improper lists. Furthermore, vertical bars are tokenized immediately and separately and have special meaning within lists, providing syntactic sugar for typed variables.

    The following is a very brief and incomplete description of how characters are tokenized into s-expressions, where s-expressions are either tokens or lists of s-expressions:
     ; ... Line comment N
     #/ ... /# Nested comment N
     . + - [0-9]+ Number N
     #e #i #b #o #d #x Special number N
     #t #f Logical N
     #\name Character N
     [a-zA-Z0-9]+ Identifier N
     ( ... ) List N
     #( ... ) Vector N
     " ... " String N
     \c Special character's within strings N
     x|t Typed variable within list == (x t). N
     #| Escaped vertical bar. N

    Meta SyntaxIntroductionNotationLexical Structure
    goo-0.155/doc/manual/gooomanual_30.html0100644000175000017500000000753307516023060017273 0ustar vomjomvomjom <i>GOO Manual -- Maps
    SequencesCollectionsPackersMaps

    Maps

    Maps represent collections with explicit keys.
     <map> (<col>) C
     <tab> (<map> <col!>) C
    Tables are near constant-time aggregate data structures. Users can define their own tables by subclassing and overriding the key-test and tab-hash methods.
     tab-growth-factor (x|<tab> => <flo>) P
    factor by which to grow capacity.
     tab-growth-threshold (x|<tab> => <flo>) P
    when to grow based on proportion of total table capacity.
     tab-shrink-threshold (x|<tab> => <flo>) P
    when to shrink based on proportion of total table capacity.
     tab-hash (x|<tab> => <fun>) G
    returns hash function.
     id-hash (x|<tab> => <int>) G
    hash function based on identity.

    SequencesCollectionsPackersMaps
    goo-0.155/doc/manual/gooomanual_31.html0100644000175000017500000005642207516023060017275 0ustar vomjomvomjom <i>GOO Manual -- Sequences
    Lazy Series'CollectionsMapsSequences

    Sequences

    Sequences are collections with nonnegative integer keys.
     <seq> (<col>) C
     <seq.> (<seq> <col.>) C
    immutable sequence.
     1st (x|<seq> => <any>) G
    == (elt x 0)
     2nd (x|<seq> => <any>) G
    == (elt x 1)
     3rd (x|<seq> => <any>) G
    == (elt x 2)
     last (x|<seq> => <any>) G
    == (elt x (- (len x) 1))
     pos (x|<seq> v|<any> => (t? <int>)) G
    finds position of v in x else returns false.
     finds (x|<seq> y|<seq> => (t? <int>)) G
    finds position of y in x else returns false.
     add (x|<seq> y|<any> => <seq>) M
    returns sequence with y added to the end of x.
     push (x|<seq> y|<any> => <seq>) G
    returns sequence with y added to x.
     pop (x|<seq> => (tup <any> <seq>)) G
    returns last pushed element of x and new sequence with that element removed from x.
     rev (x|<seq> => <seq>) G
    returns reversed sequence.
     cat (x|<seq> more|... => <seq>) G
    returns concatenated sequences.
     sub (x|<seq> from|<int> below|<int> => <seq>) G
    subsequence of x between from and below.
     ins (x|<seq> val i|<int> => <seq>) G
    returns copy of x's with val inserted before i.
     del-dups (x|<seq> => <seq>) G
    returns sequence with all duplicates removed.
     del-vals (s|<seq> val => <seq>) G
    returns sequence with all copies of val removed.
     sort-by (s|<seq> f|<fun> => <seq>) G
    returns a sorted copy of s using f as a comparator.
     sort (s|<seq> => <seq>) G
    == (sort-by s <)
     pick (f|<fun> x|<seq> => <seq>) G
    returns new sequence with elements corresponding to non-false results when calling predicate f.
     prefix? (x|<seq> prefix|<seq> => <log>) G
    returns true iff sequence x starts with sequence prefix.
     suffix? (x|<seq> suffix|<seq> => <log>) G
    returns true iff sequence x ends with sequence suffix.
     repeat (x|<seq> n|<int> => <seq>) G
    returns sequence with n concatenated copies of x.
     split (x|<seq> sep => <seq>) G
    returns sequence of subsequences of x separated by sep.
     join (xs|<seq> sep|<seq> => <seq>) G
    returns sequence composed of sequences in xs joined with sep.

    Mutable Sequences

     <seq!> (<seq> <col!>) C
     rev! (x|<seq!> => <seq!>) G
    returns destructively reversed sequence.
     cat! (x|<seq!> more|... => <seq!>) G
    returns destructively concatenated sequences.
     add! (x|<seq!> y|<any> => <seq!>) G
    returns collection with y added to the end of x.
     push! (x|<seq!> y|<any> => <seq!>) G
    returns collection with y added to the front of x.
     pop! (x|<seq!> => (tup val|<any> <seq!>)) G
    pops element from front of sequence.
     PUSHF (PUSHF ,place ,val) S
    pushes ,val onto the sequence stored in ,place, updates ,place to contain the new sequence, and returns the new sequence.
     POPF (POPF ,place) S
    pops a value from the sequence stored in ,place, replaces the sequence with an updated sequence, and returns the value.
     ins! (x|<seq!> v|<any> i|<int> => <seq!>) G
    inserts v before i in x.
     sub-setter (dst|<seq!> src|<seq> from|<int> below|<int>) G
    replaces subsequence in range between from and below of dst with contents of src. Provides insertion, deletion, and replacement operations rolled into one.
     del-vals! (x|<seq!> v|<any> => <seq!>) G
    removes all v's from x.
     del-dups! (x|<seq!> => <seq!>) G
    removes all duplicates from x.
     sort-by! (s|<seq> f|<fun> => <seq>) G
    destructively sorts s using f as a comparator.
     sort! (s|<seq> => <seq>) G
    == (sort-by! s <)

    Lists

    Lists are always "proper" lists, that is, the tail of a list is always a list. Lists might be deprecated in future releases of GOO.
     <lst> (<seq!>) C
     <list> <lst> A
     head (x|<lst> => <any>) P
     tail (x|<lst> => <lst>) P
     lst (elts|... => <lst>) G
    returns list of arguments.
     list lst A
     nil <lst> I
    aka ().
     pair (x|<any> y|<lst> => <lst>) G
    returns new list with x as head and y as tail.

    Zips

    A zip is a sequence of tuples of sucessive elements of sequences. A zip has the length of its shortest constituent sequence.
     <zip> (<seq.>) C
     zip (cs|(... <seq>) => <zip>) G
    returns a zip over sequences cs.
     unzip (z|<zip> => <tup>) G
    returns a tuple of z's constituent sequences.

    Flat Sequences

    Flats represents sequences with constant access time. Flat enum provides an enum implementation of all but now and now-setter.
     <flat> (<seq>) C
     <flat-enum> (<enum>) C
     <tup> (<flat> <seq.>) C
    Tuples are immutable flat sequences and represents multiple values in GOO.
     tup (elts|... => <tup>) G
    creates a tuple with elements being elts.
     <vec> (<flat> <seq!>) C
    Stretchy vectors resize when needed.
     vec (elts|... => <sec>) G
    returns new vector with elements elts.

    Strings

    GOO currently implements ASCII strings.
     <str> (<flat> <mag> <seq.>) C
     str (elts|... => <str>) G
    returns new string with elements elts.
     case-insensitive-string-hash (x|<tab> => (tup hash|<any> gc-state|<any>)) G
     case-insensitive-string-equal (x|<str> y|<str> => <log>) G

    Lazy Series'CollectionsMapsSequences
    goo-0.155/doc/manual/gooomanual_32.html0100644000175000017500000001230107516023060017262 0ustar vomjomvomjom <i>GOO Manual -- Lazy Series'
    CollectionsSequencesLazy Series'

    Lazy Series'

    Represents an immutable sequence of numbers specified using a start number from, a step amount by , and an inclusive bound to.
     <range> (<seq.>) C
     range-by (from|<num> test|<fun> lim|<num> by|<fun>=> <range>) G
    returns a range starting from, updated with by, and continuing until (test x lim) is false.
     range (from|<num> test|<fun> lim|<fun> => <range>) G
    == (range-by from test lim (op + _ 1))
     from (from|<num> => <range>) G
    == (range from (always #t) 0)
     below (lim|<num> => <range>) G
    == (range 0 < lim)
     <step> (<seq.>) C
    Steps represent step functions.
     first-then (first|<fun> then|<fun> => <step>) G
    returns a new step object, calling thunks first to retrieve initial value and then to retrieve subsequent values.
     each (f|<fun> => <each>) G
    returns a new each object, calling f thunk to retrieve each value.
     <cycle> (<seq.>) C
    Cycles provide a mechanism to create infinite sequences repeating a certain sequence over and over again.
     cycle (x|... => <cycle>) G
    returns a cycles that repeats elements of x.

    CollectionsSequencesLazy Series'
    goo-0.155/doc/manual/gooomanual_33.html0100644000175000017500000000654207516023060017275 0ustar vomjomvomjom <i>GOO Manual -- Symbols
    ConditionsTopCollectionsSymbols

    Symbols

    Symbols are uniquified (aka interned) strings.
     <sym> (<any>) C
     <sym-tab> (<tab>) C
    symbol table class.
     as (_|(t= <sym>) x|<str> => <sym>) M
    coerces a string to a symbol.
     cat-sym (elts|... => <sym>) G
    returns a symbol formed by concatenating the string representations of elts.
     gensym (=> <sym>) G
    returns a system specific unique symbol.
     fab-setter-name (x|<sym> => <sym>) G
    == (as <sym> (cat (as <str> x) "-setter")).

    ConditionsTopCollectionsSymbols
    goo-0.155/doc/manual/gooomanual_34.html0100644000175000017500000002671207516023060017277 0ustar vomjomvomjom <i>GOO Manual -- Conditions
    Input / OutputTopSymbolsConditions

    Conditions

    Conditions are objects representing exceptional situations. GOO provides restartable conditions as well as the more traditional stack unwinding conditions. A condition is an object used to provide information to a handler. A handler is an object with a handler function used to take care of conditions of a particular type. Signalling is a mechanism for finding the most appropriate handler for a given condition. See DRM [4] for more information.
     <condition> (<any>) C
     default-handler (x|<condition> => <fun>) G
    called if no appropriate handler is in force.
     default-handler-description (c|<condition> => <str>) G
    return a string describing an anonymous handler for this type of condition.
     build-condition-interactively (type|<condition> in out => <condition>) G
    construct a condition of the specified type and interactively prompt the user to fill in any important props. Called by the debugger. Methods should call next-method to build the condition, then set the props for their own class.
     sig (x|<condition> args|...) G
    signals a condition with optional arguments args.
     <simple-condition> (<condition>) C
    a condition consisting of a msg message and arguments.
     condition-message (x|<simple-condition> => <str>) P
    returns msg string.
     condition-arguments (x|<simple-condition> => <lst>) P
    returns msg string arguments.
     <serious-condition> (<condition>) C
    a condition that can not be safely ignored.
     <error> (<serious-condition>) C
    a condition that indicates something is invalid about the program.
     error (x|<any> args|...) G
    signals an error.
     error (x|<str> args|...) M
    signals a simple error.
     <simple-error> (<error> <simple-condition>) C
    an error that consists of a msg message and arguments.
     <restart> (<condition>) C
    used for restarting a computation.
     <handler> (<any>) C
    object used for handling a signaled condition.
     handler-function (x|<handler> => <fun>) G
     fab-handler (x|<fun> => <handler>) G
    creates a handler from a handler function.
     handler-matches? (x|<handler> y|<condition> => <log>) G
    protocol for determining whether a handler handles a particular condition.
     TRY (TRY ,try-options ,handler ,@body) S
    installs ,handler as a condition handler for the duration of (SEQ ,@body), using the instructions provided by ,try-options. ,try-options should either be the name of the condition type to handle, or a ,try-option-list with zero or more of the following options:
    • (TYPE ,expr) => An expression returning the type of condition to handle.
    • (TEST ,@body) => Code which returns #t if the condition is applicable, and #f otherwise. This may be called at arbitrary times by the runtime, so it shouldn't do anything too alarming.
    • (DESCRIPTION ,message ,@arguments) => A human-readable description of this handler. Used by the debugger.

    The handler function should take two arguments: the ,condition to be handled, and a ,resume function. if a matching condition is signaled then the handler function is called with the signaled condition and a resume function to be called if the handler wants to return a value to be used as the result of the signaling SIG call. the handler has three possibilities: (1) it can handle the condition by taking an exit using ESC, (2) it can resume to the original SIG call using the resume function called with the value to be returned, or (3) it can do neither, that is, it can choose not to handle the condition by just falling through to the end of the handler (cf., Dylan's BLOCK/EXCEPTION and LET HANDLER) and the next available handler will be invoked. Note that GOO does not unwind the stack before calling handlers!

    where
     handler == (fun (,condition ,resume) ,@body) L
     ,try-options == ,condition-type-name | ,try-option-list L
     ,try-option-list == (,try-option* ) L
     ,try-option == (,option-name ,@option-value) L

    Input / OutputTopSymbolsConditions
    goo-0.155/doc/manual/gooomanual_35.html0100644000175000017500000000263107516023060017272 0ustar vomjomvomjom <i>GOO Manual -- Input / Output
    SystemTopConditionsInput / Output

    Input / Output

    This is a very preliminary I/O system and is mostly just enough with which to write a compiler.

  • Ports
  • Formatted I/O
    • SystemTopConditionsInput / Output
    goo-0.155/doc/manual/gooomanual_36.html0100644000175000017500000003100007516023060017263 0ustar vomjomvomjom <i>GOO Manual -- Ports
    Formatted I/OInput / OutputPorts

    Ports

    Ports represent character-oriented input/output devices.
     <port> (<seq>) C
     open (t|(t< <port>) x|<str> => <port>) G
    creates port given port specific spec x.
     close (x|<port>) G
    closes and cleanups port.
    (x|<port>) M
    noop default.
     WITH-PORT (WITH-PORT (,name ,port) ,@body) S
    binds ,name to the value of ,port during the evaluation of (seq ,@body) and finally ensures that the port is closed at the end of evaluation.
     eof-object? (x|<chr> => <log>) G
     <in-port> (<port>) C
    input port.
     in <in-port> I
    standard input.
     get (x|<in-port> => <chr>) G
    returns next available character or eof-object.
     gets (x|<in-port> => <str>) G
    returns a line until either reading a newline or eof-object.
     peek (x|<in-port> => <chr>) G
    returns next available character if any without advancing pointer or eof-object.
     ready? (x|<in-port> => <log>) G
    returns true iff a character is available.
     <out-port> (<port>) C
    output port.
     out <out-port> I
    standard output.
     force-out (x|<out-port>) G
    ensures that buffers are forced and pending output is completed.
     put (x|<out-port> e|<chr>) G
    outputs a single character.
     puts (x|<out-port> e|<str>) G
    outputs string.
     newline (x|<out-port>) G
    outputs a newline sequence.
     say (x|<out-port> args|...) G
    == (do (op say x _) args)

    File Ports

    File ports are ports which map to files.
     <file-port> (<port>) C
     close (x|<file-port>) M
    closes port and finishes pending output.
     <file-in-port> (<file-port> <in-port>) C
     open (t|(t= <file-in-port>) name|<str> => <file-in-port>) M
    creates file in port mapped to a file with filename name.
     <file-out-port> (<file-port> <out-port>) C
     open (t|(t= <file-out-port>) name|<str> => <file-out-port>) M
    creates file out port mapped to a file with filename name.

    String Ports

    String ports provide port interface mapped onto strings.
     <str-port> (<any>) C
     port-contents (x|<str-port> => <str>) P
    returns underlying string.
     <str-in-port> (<str-port> <out-port>) C
     open (t|(t= <str-in-port>) dat|<str> => <str-in-port>) M
    creates string in port mapped to string dat.
     port-index (x|<str-port> => <int>) P
    returns index from which next character will be read.
     <str-out-port> (<str-port> <in-port>) C
     open (t|(t= <str-out-port>) dat|<str> => <str-out-port>) M
    creates string out port mapped to string dat.
     PORT2STR (PORT2STR ,name ,@body) S
    == (let ((,name (open <str-out-port> ""))) ,@body (port-contents ,name))

    Formatted I/OInput / OutputPorts
    goo-0.155/doc/manual/gooomanual_37.html0100644000175000017500000000772507516023061017306 0ustar vomjomvomjom <i>GOO Manual -- Formatted I/O
    Input / OutputPortsFormatted I/O

    Formatted I/O

    GOO provides convenient s-expression reading/writing facilities.
     read (x|<in-port> => <any>) G
    returns sexpr result of parsing characters in a sequence.
     write (x|<out-port> y|<any>) G
    verbose printing. prints strings with double quotes etc.
     writeln (x|<out-port> y|<any>) G
    == (seq (write x y) (newline x))
     emit (x|<out-port> y|<any>) G
    concise printing (e.g., prints strings without double quotes).
     msg (x|<out-port> message|<seq> args|...) G
    formatted output using special commands embedded in message. supported commands are:
    • %= -> (write x arg)
    • %s -> (display x arg)
    • %d -> (write x arg)
    • %% -> (write-char x #\%)
    which consume one argument at a time. otherwise subsequent message characters are printed to port x (cf. Dylan's and CL's format).
     post (message|<seq> args|...) G
    == (app msg out message args)

    Input / OutputPortsFormatted I/O
    goo-0.155/doc/manual/gooomanual_38.html0100644000175000017500000000724107516023061017300 0ustar vomjomvomjom <i>GOO Manual -- System
    CompilerTopInput / OutputSystem

    System

    This is a very rudimentary portable interface to an underlying operating system.
     app-filename (=> <str>) M
    returns the filename of the application.
     app-args (=> <lst>) M
    returns a list of argument strings with which the application was called.
     os-name (=> <str>) M
    returns name of current operating-system.
     os-val (s|<str> => <str>) M
    returns OS environment variable value.
     os-val-setter (v|<str> s|<str> => <str>) M
    sets OS environment variable value.
     process-id (=> <int>) M
    returns the process id of the current GOO process.

  • Files and Directories
  • Pathnames
    • CompilerTopInput / OutputSystem
    goo-0.155/doc/manual/gooomanual_39.html0100644000175000017500000000751107516023061017301 0ustar vomjomvomjom <i>GOO Manual -- Files and Directories
    PathnamesSystemFiles and Directories

    Files and Directories

    A preliminary set of file and directory facilities are provided.
     file-mtime (filename|<str> => <flo>) M
    return the last modification time of a file in seconds (relative to the GOOepoch) as a floating point number.
     file-exists? (filename|<str> => <log>) M
    return true if and only if a file (or a directory, etc.) exists with the given name.
     file-type (filename|<str> => <sym>) M
    return 'file, 'directory or some other symbol, depending on the type of the file.
     create-directory (filename|<str> => <sym>) M
    create a directory with the given name. The parent directory must already exist, and must contain no item with the given name.
     parent-directory (name|<str> => <str>) M
    find the parent directory of the current filename.
     probe-directory (name|<str> => <str>) M
    make sure that the named directory exists.

    PathnamesSystemFiles and Directories
    goo-0.155/doc/manual/gooomanual_4.html0100644000175000017500000000400007516023061017177 0ustar vomjomvomjom <i>GOO Manual -- Meta Syntax
    ConventionsIntroductionLexical StructureMeta Syntax

    Meta Syntax

    GOO's syntax is described almost entirely as GOO patterns. GOO patterns in turn are defined with a quasiquote metasyntax. Pattern variables are prefixed with a "," or ",@" to indicate the matching of one or many elements respectively. The default is for a pattern variable to match one or many s-expressions. Alternatively, a pattern variable's shape may be defined with another pattern. The ,name shape is builtin and matches only identifiers. The '['...']' metasyntax is used to indicate optional patterns, '...' is used to indicate zero or more of the preceding pattern element, and ## is used to denote infix string concatenation. Finally, in this manual, uppercase indicates a special form or macro.

    ConventionsIntroductionLexical StructureMeta Syntax
    goo-0.155/doc/manual/gooomanual_40.html0100644000175000017500000001150507516023061017267 0ustar vomjomvomjom <i>GOO Manual -- Pathnames
    SystemFiles and DirectoriesPathnames

    Pathnames

    Pathnames allow you to work with hierarchical, structured pathnames in a reasonably portable fashion.
     pathname-to-components (pathname|<str> => <lst>) M
    given a pathname, split it into a list of individual directories, etc. Three special values are returned as symbols:
    • root -> This path starts in the root directory
    • up -> Go up a directory
    • current -> Remain in the current directory
    Volume labels, drive letters, and other non-path information should be stored in a single tagged list at the head. Note that the hierarchical portion of this pathname (everything but the label) must be non-empty at all times.
     components-to-pathname (components|<lst> => <str>) M
    reassemble components created by the above function.
     label-components (components|<lst> => <lst>) M
    get any leading directory label.
     hierarchical-components (components|<lst> => <lst>) M
    get rid of any leading directory label, etc.
     components-last (components|<lst> => <any>) M
    return the last item in a list of components.
     components-basename (components|<lst> => <lst>) M
    return all but the last item of a bunch of components. Do some magic to handle cases like 'foo.txt' => './' If you call this function enough times, you are eventually guaranteed to get components list ending in root, up or current. Requires the last item to be a string.
     components-parent-directory (components|<lst> => <lst>) M
    calculate the parent directory of a pathname.

    SystemFiles and DirectoriesPathnames
    goo-0.155/doc/manual/gooomanual_41.html0100644000175000017500000000671607516023061017300 0ustar vomjomvomjom <i>GOO Manual -- Compiler
    Top LevelTopSystemCompiler

    Compiler

    GOO's compiler, g2c, compiles GOO source code to C. It lives within the eval module. During a given session, g2c recompiles only used modules that are either modified or use modified modules.
     <g2c-module-loader> (<module-loader>) C
    a g2c module loader used in g2c builds.
     g2c-def-app (appname|<str> modname|<str> => <g2c-module-loader>) M
    constructs a g2c module loader to be used in future g2c builds.
     g2c-build-app (loader|<g2c-module-loader>) M
    translates GOO app into C in subdirectory of GOO's toplevel C directory named after loader's top modname.
     g2c-goo () M
    builds entire goo world.
     g2c-test (name) M
    changes destination directory to be (cat "g2c-" (to-str name)). This is useful for bootstrapping.

    Top LevelTopSystemCompiler
    goo-0.155/doc/manual/gooomanual_42.html0100644000175000017500000000576407516023061017303 0ustar vomjomvomjom <i>GOO Manual -- Top Level
    InstallationTopCompilerTop Level

    Top Level

    Functions which load code at runtime require a symbol specifying the module name to use.
     load (filename|<str> modname|<sym> => <any>) G
    returns the result of evaluating the result of reading file named filename into module modname.
     eval (x|<any> modname|<sym> => <any>) G
    return's result of evaluating x.
     top (modname|<sym>) G
    runs top-level read-eval-print loop which reads from in and writes to out.
     save-image (filename|<str>) G
    saves an image of the current GOO process to a file named filename.

    InstallationTopCompilerTop Level
    goo-0.155/doc/manual/gooomanual_43.html0100644000175000017500000000556007516023061017276 0ustar vomjomvomjom <i>GOO Manual -- Installation
    UsageTopTop LevelInstallation

    Installation

    Unpack either a linux or windows version of GOO of either a development or binary tarball into an appropriate installation area. In the case of a binary tarball, there are five directories: doc, bin, lib, mods, and emacs. You can just run GOO from the bin subdirectory.

    In the case of a development tarball, you must install it. After unpacking, there will be five directories: doc, bin, c, src, and emacs. Edit the Make.inc file in the top level directory, to configure the installation directory root using the PREFIX if /usr is inapproriate. Executing make install will rebuild GOO with the proper roots, creating lib and mods directories, and installing GOO in bin and setting up doc. For the simplest installation, just set GOO_ROOT to your desired installation location and type make simple-install. On windows, it is necessary to add GOO_BIN to your PATH.

    You can override the default GOO_ROOT by setting up your OS environment variable. For example, my GOO_ROOT on linux is: setenv GOO_ROOT /home/ai/jrb/goo. Environment variable setting depends on the shell you're using. In order to run g2c-goo you need to set GOO_BUILD_ROOT to the directory which includes the src directory.

    During start up, GOO will load two patch files: 

    ${GOO_ROOT}/init.goo
${HOME}/.goo/init.goo

    You can customize your GOO by adding forms to these files.

    UsageTopTop LevelInstallation
    goo-0.155/doc/manual/gooomanual_44.html0100644000175000017500000000712107516023061017272 0ustar vomjomvomjom <i>GOO Manual -- Usage
    CaveatsTopInstallationUsage

    Usage

    Typing goo at your shell will start up a GOO read-eval-print loop, which accepts sexpressions and top-level commands commencing with a comma. The following is a list of available commands:
     ,quit K
    exits from GOO.
     C-c K
    invokes a recursive read-eval-print loop.
     ,g2c-eval K
    to change to dynamic compilation evaluation.
     ,ast-eval K
    to change to ast evaluation.
     ,in ,name K
    changes to module ,name.
     mod:name == L
    accesses an unexported binding from another module.

  • Development
  • Debugger
  • Emacs Support
    • CaveatsTopInstallationUsage
    goo-0.155/doc/manual/gooomanual_45.html0100644000175000017500000000261707516023061017300 0ustar vomjomvomjom <i>GOO Manual -- Development
    DebuggerUsageDevelopment

    Development

    To batch compile GOO to C: 

    goo/user 0<= (use eval/g2c)
goo/user 0=> #f
goo/user 0<= (g2c-goo)

    To then compile the C: 

    cd ${GOO_ROOT}/c
make

    To run the test suites: 

    goo/user 0<= (use tests)
goo/user 0=> #f
goo/user 0<= (run-all-tests)
    DebuggerUsageDevelopment
    goo-0.155/doc/manual/gooomanual_46.html0100644000175000017500000001147207516023061017300 0ustar vomjomvomjom <i>GOO Manual -- Debugger
    Emacs SupportUsageDevelopmentDebugger

    Debugger

    A keyboard interrupt or any error enters the user into the debugger which provides a superset of the commands available at top-level. The following are debugger specific commands:
     ,up K
    goes up one level.
     ,top K
    goes to top level.
     ,restarts K
    lists available restarts
     ,restart ,n K
    chooses available restart.
     ,handlers ,n K
    shows available handlers.
     ,backtrace K
    prints out called functions and their arguments.
     ,bt K
    prints out called functions.
     ,frame ,n K
    prints out nth called function and its arguments.
     ,frame-var ,n ,name K
    prints out nth called function's parameter name.
     frame-var (n|<int> name|<sym>) F
    returns nth called function's parameter name.

    Emacs SupportUsageDevelopmentDebugger
    goo-0.155/doc/manual/gooomanual_47.html0100644000175000017500000000576007516023061017304 0ustar vomjomvomjom <i>GOO Manual -- Emacs Support
    UsageDebuggerEmacs Support

    Emacs Support

    A rudimentary emacs-based development system is provided.

    Emacs Mode

    Put emacs/goo.el in your emacs lisp directory. Add the following to your .emacs file: 

    (autoload 'goo-mode "goo" "Major mode for editing Goo source." t)
(setq auto-mode-alist
      (cons '("\\.goo\\'" . goo-mode) auto-mode-alist))

    Useful features include the following. You can add "font-lock" mode by adding (global-font-lock-mode t) to your .emacs: In a given buffer, you can toggle font-lock with M-x font-lock-mode. Finally, check out the "Index" menu item in a GOO buffer for other options.

    For even more fun, load emacs/goo-font-lock.el for a color coded parenthesis nesting aid 2.

    Emacs Shell

    Put emacs/goo-shell.el in your emacs lisp directory. Add the following to your .emacs: 

    (autoload 'run-goo  "goo-shell" "Run an inferior Goo process." t)
(setq auto-mode-alist
      (cons '("\\.goo\\'" . goo-mode) auto-mode-alist))
(setq goo-program-name "/home/ai/jrb/goo/goo")

    make sure to set up the goo-program-name to correspond to your installation area.

    Useful command / key-bindings are: 

    M-C-x   goo-send-definition
C-c C-e goo-send-definition
C-c M-e goo-send-definition-and-go
C-c C-r goo-send-region
C-c M-r goo-send-region-and-go
C-c C-z switch-to-goo

    Check out goo-shell.el for the complete list of command / key-bindings. I doubt the compile commands do anything useful cause there isn't a compiler.

    TAGS

    Emacs TAGS files can be generated by typing make all-tags in the src directory. Useful tags commands / key-bindings are: 

    M-.     find-tag
M-,     tags-loop-continue
        tags-search
        tags-query-replace
    UsageDebuggerEmacs Support
    goo-0.155/doc/manual/gooomanual_48.html0100644000175000017500000000362707516023061017305 0ustar vomjomvomjom <i>GOO Manual -- Caveats
    FutureTopUsageCaveats

    Caveats

    This is the first release of GOO. GOO is relatively slow at this point. There are no compiler optimizations in place. The error reporting is minimal and no source locations are tracked. Also hygiene is not implemented and there are some potential hygiene leaks. Dynamic compilation and image saving work only on Linux.

    This manual is preliminary. Please consult the runtime libraries in the src directory. Also check out Scheme and Dylan's manuals for information on their lexical structure and special form behavior respectively.

    Please, please, please send bug reports to jrb@googoogaga.org. I will fix your bugs asap. The GOO website www.googoogaga.org will have papers, releases, FAQS, etc.

    FutureTopUsageCaveats
    goo-0.155/doc/manual/gooomanual_49.html0100644000175000017500000000514307516023061017301 0ustar vomjomvomjom <i>GOO Manual -- Future
    History and AcknowledgementsTopCaveatsFuture

    Future

    The plan is for GOO to evolve in a number of dimensions. First of all, GOO's design is incomplete. Parameter lists and dispatch will be improved to allow methods of differing numbers of required parameters and named parameters. Lisp lists will most likely be deprecated and program fragments will be represented by a richer data structure which can capture source locations and hygiene information. This will be accomplished with minimal impact on macro definitions and WYSIWYG program construction and destructuring facilities. The module system will be improved to include in the very least renaming and selective imports. Finally, GOO will support a more complete loopless programming protocol inspired by Waters' series [5].

    Secondly, the overall mission is to crank the implementation until its performance is competitive with Java while at the same time maintaining low-latency interactivity. The basic approach involves incremental whole program optimization using simple dynamic compilation combined with partial evaluation. One important optimization will be side effect analysis combined with a generalized box/unbox optimization to remove unnecessary creation of immutable enumerators and packers for instance. Similar analyses and optimizations will be employed to optimize loopless programming patterns involving map and fold.

    History and AcknowledgementsTopCaveatsFuture
    goo-0.155/doc/manual/gooomanual_5.html0100644000175000017500000000433607516023061017214 0ustar vomjomvomjom <i>GOO Manual -- Conventions
    IntroductionMeta SyntaxConventions

    Conventions

    The following naming conventions are used throughout this manual:
     '<'...'>' Type variable N
     '*'...'*' Global variable N
     ...'?' Predicate N
     ...'!' Destructive function N
     ...'-setter' Setter N

    IntroductionMeta SyntaxConventions
    goo-0.155/doc/manual/gooomanual_50.html0100644000175000017500000000642107516023061017271 0ustar vomjomvomjom <i>GOO Manual -- History and Acknowledgements
    IndexTopFutureHistory and Acknowledgements

    History and Acknowledgements

    GOO has greatly benefitted from the help of others. During the winter of 2001, I briefly discussed the early design of Proto, a Prototype-based precursor to GOO, with Paul Graham and his feedback was very useful. From there, I bootstrapped the first version of Proto for a seminar, called Advanced Topics in Dynamic Object-Oriented Language Design and Compilation (6.894), that I cotaught with Greg Sullivan and Kostas Arkoudas. The 6.894 students were very patient and gave me many helpful suggestions that greatly improved Proto. During and after the seminar, Greg Sullivan reviewed many ideas and helped tremendously, including by writing the Emacs goo-mode. James Knight was one of the 6.894 students and became my MEng student after the course. He has helped in many many ways including the writing of the save-image facility, the speeding up of the runtime, and the improving of the non local exit facility. Eric Kidd worked with me during the summer of 2001 implementing the module system, restarts, and the dependency tracking system. During that summer I decided that a Prototype-based object system was inadequate for the type system I was interested in supporting and changed over to the present type-based system. I presented my ideas on Proto at LL1 in the Fall of 2001. Many stimulating conversations on the follow on LL1 discussion list inpired me. In fact, during the course of defending Proto's form of object-orientation on that list I came up with its current name, GOO, and it stuck. Andrew Sutherland became my MEng student in the winter of 2002, wrote a GOO SWIG [2] backend, and has provided useful feedback on GOO's design. I also wish to thank Boehm, Demers, and Weiser for writing the conservative GC upon which this initial version of GOO is based. Finally, I would like to thank Keith Playford for his continued guidance in language design and implementation and for his ever present and rare sense of good taste.

    IndexTopFutureHistory and Acknowledgements
    goo-0.155/doc/manual/gooomanual_51.html0100644000175000017500000006544407516023061017304 0ustar vomjomvomjom <i>GOO Manual -- Index
    ReferencesTopHistory and AcknowledgementsIndex

    Index

  • " ... "
  • \c
  • '*'...'*'
  • '<'...'>'
  • ( ... )
  • *
  • +
  • ,ast-eval
  • ,backtrace
  • ,bt
  • ,for-clause
  • ,frame-var
  • ,frame
  • ,g2c-eval
  • ,handlers
  • ,in
  • ,params
  • ,quit
  • ,restarts
  • ,restart
  • ,ret-var
  • ,ret
  • ,sig
  • ,top
  • ,try-option-list
  • ,try-options
  • ,try-option
  • ,up
  • ,var
  • -
  • ...'!'
  • ...'-setter'
  • ...'?'
  • . + - [0-9]+
  • /
  • 1st
  • 2nd
  • 3rd
  • ; ...
  • <<
  • <=
  • <any>
  • <chr>
  • <class>
  • <col!>
  • <col.>
  • <col>
  • <condition>
  • <cycle>
  • <enum>
  • <error>
  • <file-in-port>
  • <file-out-port>
  • <file-port>
  • <flat-enum>
  • <flat>
  • <flo>
  • <fun>
  • <g2c-module-loader>
  • <gen>
  • <handler>
  • <in-port>
  • <int>
  • <list>
  • <loc>
  • <log>
  • <lst>
  • <mag>
  • <map>
  • <met>
  • <num>
  • <out-port>
  • <packer>
  • <port>
  • <product>
  • <prop>
  • <range>
  • <restart>
  • <seq!>
  • <seq.>
  • <seq>
  • <serious-condition>
  • <simple-condition>
  • <simple-error>
  • <singleton>
  • <step>
  • <str-in-port>
  • <str-out-port>
  • <str-port>
  • <str>
  • <subclass>
  • <sym-tab>
  • <sym>
  • <tab>
  • <tup>
  • <type>
  • <union>
  • <vec>
  • <zip>
  • <
  • ==
  • =
  • >=
  • >>>
  • >>
  • >
  • abs
  • acos
  • add!
  • add!
  • add-prop
  • address-of
  • add
  • add
  • all?
  • alpha?
  • AND
  • any?
  • app-args
  • app-filename
  • app
  • asin
  • ASSERT
  • as
  • as
  • atan2
  • atan
  • below
  • bit?
  • build-condition-interactively
  • C-c
  • case-insensitive-string-equal
  • case-insensitive-string-hash
  • CASE[-BY]
  • cat!
  • cat-sym
  • cat
  • ceil
  • class-ancestors
  • class-children
  • class-direct-props
  • class-name
  • class-parents
  • class-props
  • close
  • close
  • col-res-type
  • col
  • components-basename
  • components-last
  • components-parent-directory
  • components-to-pathname
  • condition-arguments
  • condition-message
  • COND
  • cosh
  • cos
  • create-directory
  • CT-ALSO
  • CT
  • cycle
  • C
  • DC
  • DECF
  • default-handler-description
  • default-handler
  • DEF
  • del!
  • del-dups!
  • del-dups
  • del-vals!
  • del-vals
  • del
  • DF
  • DG
  • digit?
  • DM
  • do
  • DP
  • DS
  • dup
  • DV
  • each
  • elt-or
  • elt-setter
  • elt-type
  • elts
  • elt
  • emit
  • empty?
  • empty
  • enum
  • eof-object?
  • error
  • error
  • ESC
  • eval
  • even?
  • EXPORT
  • fab-handler
  • fab-setter-name
  • fabs
  • fab
  • file-exists?
  • file-mtime
  • file-type
  • fill!
  • fill
  • fin?
  • find-getter
  • find-or
  • find-setter
  • finds
  • find
  • FIN
  • first-then
  • flo-bits
  • floor
  • fold+
  • fold
  • force-out
  • FOR
  • frame-var
  • from
  • fun-arity
  • fun-mets
  • fun-names
  • fun-name
  • fun-nary?
  • fun-specs
  • fun-val
  • FUN
  • F
  • g2c-build-app
  • g2c-def-app
  • g2c-goo
  • g2c-test
  • gcd
  • gen-add-met
  • gensym
  • gets
  • get
  • G
  • handler-function
  • handler-matches?
  • handler
  • head
  • hierarchical-components
  • id-hash
  • IF
  • INCF
  • ins!
  • ins
  • into
  • in
  • isa?
  • items
  • I
  • join
  • key-test
  • key-type
  • keys
  • K
  • label-components
  • last
  • lcm
  • len
  • LET
  • list
  • load
  • loc-val
  • LOC
  • logn
  • log
  • lower?
  • lst
  • L
  • MACRO-EXPAND
  • map
  • MATCH
  • max
  • mem?
  • met-app?
  • min
  • mod:name
  • mod
  • msg
  • M
  • neg?
  • neg
  • newline
  • new
  • new
  • nil
  • not
  • now-key
  • now-setter
  • now
  • num-to-str-base
  • num-to-str
  • nxt
  • N
  • odd?
  • open
  • open
  • open
  • open
  • open
  • OPF
  • OP
  • ord-app-mets
  • OR
  • os-name
  • os-val-setter
  • os-val
  • out
  • PACK-IN
  • PACKED
  • packer-add
  • packer-fab
  • packer-fab
  • packer-fab
  • packer-res
  • packer
  • PACKING-IN
  • PACKING-WITH
  • PACKING
  • PACK
  • pair
  • parent-directory
  • pathname-to-components
  • pattern
  • peek
  • pick
  • pop!
  • POPF
  • pop
  • port-contents
  • port-index
  • PORT2STR
  • pos?
  • post
  • pos
  • pow
  • prefix?
  • probe-directory
  • process-id
  • product-elts
  • prop-bound?
  • prop-getter
  • prop-init
  • prop-owner
  • prop-setter
  • prop-type
  • push!
  • PUSHF
  • push
  • puts
  • put
  • QUASIQUOTE
  • QUOTE
  • range-by
  • range
  • ready?
  • read
  • rem
  • repeat
  • REP
  • rev!
  • rev
  • round-to
  • round
  • save-image
  • say
  • SEQ
  • SET
  • sig
  • sinh
  • sin
  • sort!
  • sort-by!
  • sort-by
  • sort
  • SPLICING-UNQUOTE
  • split
  • sqrt
  • sqrt
  • str-to-num
  • str
  • sub-setter
  • subtype?
  • sub
  • suffix?
  • SUP
  • SWAPF
  • S
  • t*
  • t+
  • t<
  • t=
  • t?
  • tab-growth-factor
  • tab-growth-threshold
  • tab-hash
  • tab-shrink-threshold
  • tail
  • tanh
  • tan
  • to-digit
  • to-lower
  • to-str
  • to-upper
  • top
  • trunc
  • TRY
  • tup
  • type-class
  • type-object
  • union-elts
  • UNLESS
  • UNQUOTE
  • unzip
  • upper?
  • USE/EXPORT
  • USE
  • vec
  • WHEN
  • WITH-PORT
  • writeln
  • write
  • x|t
  • zap!
  • zap
  • zero?
  • zipped
  • zip
  • [a-zA-Z0-9]+
  • #\name
  • #( ... )
  • #/ ... /#
  • #e #i #b #o #d #x
  • #f
  • #t #f
  • #t
  • #|
  • $e
  • $pi
  • &
  • Name
  • ^
  • ~==
  • ~=
  • ~
  • call
  • call
  • lit
  • special
  • var
  • |
    • ReferencesTopHistory and AcknowledgementsIndex
    goo-0.155/doc/manual/gooomanual_52.html0100644000175000017500000000466507516023061017303 0ustar vomjomvomjom <i>GOO Manual -- References
    Class Precedence ListTopIndexReferences

    References

     [1]
    Kim Barrett, Bob Cassels, Paul Haahr, David A. Moon, Keith Playford, Andrew L. M. Shalit, and P. Tucker Withington. A monotonic superclass linearization for Dylan. In Proceedings of the Conference on Object-Oriented Programming Systems, Languages, and Applications, volume 31, 10 of ACM SIGPLAN Notices, pages 69-82, New York, October 6-10 1996. ACM Press.
     [2]
    David M. Beazley. SWIG: An easy to use tool for integrating scripting languages with C and C++. In Proceedings of the 4th USENIX Tcl/Tk Workshop, pages 129-139, 1996.
     [3]
    R. Kelsey, W. Clinger, and J. Rees. Revised5 report on the algorithmic language scheme. Higher-Order and Symbolic Computation, 11(1):7-105, 1998.
     [4]
    A. Shalit. The Dylan Reference Manual. Addison Wesley, 1996.
     [5]
    Richard C. Waters. Automatic transformation of series expressions into loops. ACM Transactions on Programming Languages and Systems, 13(1):52-98, January 1991.
    Class Precedence ListTopIndexReferences
    goo-0.155/doc/manual/gooomanual_53.html0100644000175000017500000000476307516023061017303 0ustar vomjomvomjom <i>GOO Manual -- Class Precedence List
    Subtyping RulesTopReferencesClass Precedence List

    Class Precedence List

    This section defines the algorithm for computing a class's linearized ancesters from its parents, its parent's parents, etc. GOO uses the C3 class linearization rule [1]. The following is the GOO implementation of this algorithm: 

    (dm class-ordered-ancestors (c|<class> => <lst>)
  (def parents (class-parents c))
  (rep merge-lists
      ((partial-cpl|<lst>     
         (lst c)) 
       (remaining-lists|<lst> 
         (add (map class-ancestors parents) parents)))
    (if (all? empty? remaining-lists)
        (rev! partial-cpl)
        (loc ((candidate (c) 
                (loc ((tail? (l|<lst>) (mem? (tail l) c)))
                  (and (not (any? tail? remaining-lists)) c)))
              (candidate-at-head (l|<lst>)
                (and (not (empty? l)) (candidate (head l)))))
          (def next (any? candidate-at-head remaining-lists))
          (if next
              (loc ((del-next (l|<lst>)
                      (if (== (head l) next) (tail l) l)))
                (merge-lists
                 (pair next partial-cpl) 
                 (map del-next remaining-lists)))
              (error "inconsistent precedence graph"))))))
    Subtyping RulesTopReferencesClass Precedence List
    goo-0.155/doc/manual/gooomanual_54.html0100644000175000017500000000637707516023061017307 0ustar vomjomvomjom <i>GOO Manual -- Subtyping Rules
    FootnotesTopClass Precedence ListSubtyping Rules

    Subtyping Rules

    This section defines the subtyping rules for GOO in terms of subtype methods. 

    (dm subtype? (t1|<union> t2|<type> => <log>)
  (all? (op subtype? _ t2) (type-elts t1)))
(dm subtype? (t1|<type> t2|<union> => <log>)
  (any? (op subtype? t1 _)) (type-elts t2)))
(dm subtype? (t1|<union> t2|<union> => <log>)
  (all? (op subtype? _ t2)) (type-elts t1)))
(dm subtype? (t1|<class> t2|<class> => <log>)
  (subclass? t1 t2))
(dm subtype? (t1|<singleton> t2|<class> => <log>)
  (isa? (type-object t1) t2))
(dm subtype? (t1|<subclass> t2|<class> => <log>)
  (subclass? <class> t2))
(dm subtype? (t1|<class> t2|<singleton> => <log>) #f)
(dm subtype? (t1|<singleton> t2|<singleton> => <log>)
  (== (type-object t1) t2))
(dm subtype? (t1|<subclass> t2|<singleton> => <log>) #f)
(dm subtype? (t1|<class> t2|<subclass> => <log>)
  (and (== t1 <class>) (== (type-class t2) <class>)))
(dm subtype? (t1|<subclass> t2|<subclass> => <log>)
  (subclass? (type-class t1) (type-class t2)))
(dm subtype? (t1|<singleton> t2|<subclass> => <log>)
  (and (isa? (type-object t1) <class>)
       (subclass? (type-object t1) (type-class t2))))
(dm subtype? (t1|<product> t2|<type> => <log>) #f)
(dm subtype? (t1|<type> t2|<product> => <log>) #f)
(dm subtype? (t1|<product> t2|<product> => <log>)
  (and (== (len (type-elts t1)) (len (type-elts t2)))
       (all? (zipped subtype?) (zip (type-elts t1) (type-elts t2)))))
(dm subtype? (t1|<product> t2|<class> => <log>)
  (subtype? <tup> t2))

    FootnotesTopClass Precedence ListSubtyping Rules
    goo-0.155/doc/manual/gooomanual_55.html0100644000175000017500000000263007516023061017274 0ustar vomjomvomjom <i>GOO Manual -- Footnotes
    TopSubtyping RulesFootnotes

    Footnotes

     (1)
    When optimization is in place, the ! suffixed functions will be deprecated.
     (2)
    The original idea was dreamed up and first implemented by Andrew Sutherland and then improved by James Knight.
    TopSubtyping RulesFootnotes
    goo-0.155/doc/manual/gooomanual_6.html0100644000175000017500000000647407516023061017222 0ustar vomjomvomjom <i>GOO Manual -- Expressions
    Namespaces and BindingsTopIntroductionExpressions

    Expressions

    Once tokenized, GOO evaluates s-expressions in the usual lisp manner:
     var ,name S
    returns the value of binding named ,name in the current environment.
     lit ,lit S
    syntactic literals that are self-evaluating.
     QUOTE (QUOTE ,form) S
    with ',form == (QUOTE ,form) (cf., Scheme's QUOTE)
     special (,special ,@args) S
    GOO defines a number of identifiers as the names of special forms, which if seen in function call position cause special form specific evaluation.
     call (,f ,@args) S
    otherwise lists represent function calls.

    Namespaces and BindingsTopIntroductionExpressions
    goo-0.155/doc/manual/gooomanual_7.html0100644000175000017500000001414107516023061017211 0ustar vomjomvomjom <i>GOO Manual -- Namespaces and Bindings
    Program ControlTopExpressionsNamespaces and Bindings

    Namespaces and Bindings

    GOO is a lexically scoped language. Bindings contain values and are looked up by name. Lexical bindings are visible from only particular textual ranges in a program. Lexical bindings shadow visible bindings of the same name.

    At the topmost level, GOO provides simple modules that map from names to bindings. Each file introduces a new module with the same name as the file. Nested modules are supported by way of slashes in module names. Modules can import bindings exported by other modules, but currently there is no way to selectively exclude or rename imported bindings. Furthermore, no cycles can occur in the module use heterarchy.
     DV (DV ,var ,form) S
    defines a global variable named (var-name ,var) with an initial value ,form (cf. Scheme's DEFINE).
     DEF (DEF ,var ,val) S
    locally binds ,var to ,val and evaluates remainder of current body in the context of that binding.
    (DEF (TUP ,var ...) ,val) S
    parallel binding can also be specified using TUP on the lhs of a DEF binding. For example (DEF (TUP x y) (TUP 1 2))
     LET (LET ((,var ,val) ...) ,@body) S
    == (SEQ (DEF ,var ,val) ... ,@body)

    where
     ,var == ,name | (,name ,type) L
    with ,name | ,type == (,name ,type) within lists.
     SET (SET ,name ,form) S
    sets ,name binding to value of evaluating ,form (cf. Scheme's SET!)
    (SET (,name ,@args) ,form) S
    == (,name ## -setter ,form ,@args)
     USE (USE ,name) S
    loads the module ,name (if it hasn't been loaded already) and aliases all the exported bindings into the current namespace.
     EXPORT (EXPORT ,name) S
    makes the binding ,name available to code which uses this module in the future.
     USE/EXPORT (USE/EXPORT ,name) S
    same as USE plus reexports all imported bindings.

    Program ControlTopExpressionsNamespaces and Bindings
    goo-0.155/doc/manual/gooomanual_8.html0100644000175000017500000002236607516023061017222 0ustar vomjomvomjom <i>GOO Manual -- Program Control
    Types, Classes and PropertiesTopNamespaces and BindingsProgram Control

    Program Control

    GOO provides a variety of program control constructs including function calls, conditional execution, and nonlocal control flow.
     SEQ (SEQ ,@forms) S
    evaluates forms sequentially and returns values of evaluating last form (cf. Scheme's BEGIN)
    (SEQ) S
    returns false
     IF (IF ,test ,then [ ,else ]) S
    evaluates either ,then if ,test is non-false otherwise evaluates ,else (cf. Scheme's IF). The ,else expression defaults to false.
     AND (AND ,form ,@forms) S
    == (IF ,form (AND ,@FORMS))
    (AND ,form) S
    == ,form
     OR (OR ,form ,@forms) S
    == (SEQ (DEF x ,form) (IF x x (OR ,@FORMS)))
    (OR ,form) S
    == ,form
     UNLESS (UNLESS ,test ,@body) S
    == (IF (NOT ,test) (SEQ ,@body))
     WHEN (WHEN ,test ,@body) S
    == (IF ,test (SEQ ,@body))
     COND (COND (,test ,@body) ...) S
    evaluates (SEQ ,@body) of first clause whose ,test evaluates to non-false (cf. Dylan's CASE and Scheme's COND).
     CASE[-BY] (CASE[-BY] ,value [ ,test ]((,@keys) ,@body) ...) S
    evaluates ,value and then evaluates (SEQ ,@body) of first clause for which (,test ,value ,key) returns non-false (cf. Dylan's SELECT and Scheme's CASE). N.B., each key is evaluated, thus symbols must be quoted. The default ,test for the CASE form is ==.
     OPF (OPF ,place ,expr) S
    == (SEQ (DEF _ ,place) (SET ,place ,expr)), where ,place is evaluated only once. For example, (OPF x (+ _ 1)) == (SET x (+ x 1)).
     SWAPF (SWAPF ,x ,y) S
    == (SEQ (DEF tmp ,x) (SET ,x ,y) (SET ,y tmp)), where ,x and ,y are evaluated only once.
     call (,f ,@args) S
    evaluates ,f and then ,@args in left to right order and then calls ,f with the evaluated arguments.
     REP (REP ,name ((,var ,init) ...) ,@body) S
    defines a recursive loop (cf., Dylan's ITERATE or Scheme's (LET ,var ...)).
     ESC (ESC ,name ,@body) S
    evaluates (SEQ ,@body) with an exit function of a single parameter, x, bound to ,name that if called, will cause ESC to return the value of x (cf. Dylan's BLOCK/RETURN). It is illegal to call the exit function after the execution of the creating ESC form (i.e., no upward continuations).
     FIN (FIN ,protected ,@cleanups) S
    ensures that (SEQ ,@cleanups) is evaluated whether or not an ESC upwards exit is taken during the dynamic-extent of ,protected (cf. Dylan's BLOCK/CLEANUP form and CL's UNWIND-PROTECT). The result of a FIN form is the result of evaluating its protected form.
     ASSERT (ASSERT ,test ,message ,@args) S
    == (UNLESS ,test (ERROR ,message ,@args))

    Types, Classes and PropertiesTopNamespaces and BindingsProgram Control
    goo-0.155/doc/manual/gooomanual_9.html0100644000175000017500000000707407516023061017222 0ustar vomjomvomjom <i>GOO Manual -- Types, Classes and Properties
    FunctionsTopProgram ControlTypes, Classes and Properties

    Types, Classes and Properties

    GOO types categorize objects. Types are first class. They are used to annotate bindings. Binding types restrict the type of objects bindable to associated bindings.

    GOO supports the following types in order of specificity (with the exact ordering defined in Appendix *):

    • Singleton types specify a unique instance,
    • Classes and properties specify the structure, inheritance, and initialization of objects. Every object is a direct instance of a particular class,
    • Product types specify a cross product of types,
    • Subclass types specify a lineage of classes, and
    • Union types specify a union of types.

    The basic type protocol is:
     <type> (<any>) C
     isa? (x|<any> y|<type> => <log>) G
     subtype? (x|<type> y|<type> => <log>) G
    returns true iff x is a subtype of y.
     new (type|<type> prop-inits|...) G
    creation protocol taking type and creation options where prop-inits contains getter / initial value pairs.

  • Singletons
  • Subclasses
  • Unions
  • Product
  • Classes
    • FunctionsTopProgram ControlTypes, Classes and Properties
    goo-0.155/doc/manual/next.gif0100644000175000017500000000037507516023061015405 0ustar vomjomvomjomGIF89a |si_VLCv:m0c&YP =p3f, ` dihlp,Gcl.P?Ih0B QDEPPs׆H*Rh#rn{,6`:bjABf> IBMFpJ>Q}FQ<3DNk 76 \%!;goo-0.155/doc/manual/previous.gif0100644000175000017500000000037407516023061016302 0ustar vomjomvomjomGIF89a |si_VLCv:m0c&YPFy =p3f, ` dihlp,GcL.QCHAa4\DiT#hBW0t!"p5# ̈́ # ~}I"EcWtoGPWv=sh 4h`cQ ^e 76+!;goo-0.155/doc/manual/up.gif0100644000175000017500000000047407516023061015053 0ustar vomjomvomjomGIF89a |si_VLCv:m0c&YPFy =p3f, ` d9 fì*8QH@u}1A!Is@JkeeKȡ@lۊ3D h?+j5N Db50m N D"J51Z$K%j1%DT% v2e%|5/%O5U* D%x)%u%D"җ"DL׀y !;goo-0.155/emacs/0040755000175000017500000000000007756746032013024 5ustar vomjomvomjomgoo-0.155/emacs/CVS/0040755000175000017500000000000007756746023013457 5ustar vomjomvomjomgoo-0.155/emacs/CVS/Root0100644000175000017500000000003307756746023014316 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/emacs/CVS/Repository0100644000175000017500000000001207756746023015547 0ustar vomjomvomjomgoo/emacs goo-0.155/emacs/CVS/Entries0100644000175000017500000000026407756746023015012 0ustar vomjomvomjom/Makefile.in/1.1/Wed Jun 19 04:43:06 2002// /goo-font-lock.el/1.1/Thu Mar 14 05:35:50 2002// /goo-shell.el/1.3/Mon Jun 10 20:27:18 2002// /goo.el/1.20/Tue Oct 8 06:53:19 2002// D goo-0.155/emacs/Makefile.in0100644000175000017500000000107107504005732015047 0ustar vomjomvomjom# Generated automatically from Makefile.in by configure. ## generic autoconf stuff SHELL = /bin/sh subdirs = @subdirs@ top_srcdir = .. srcdir = . prefix = /usr/local exec_prefix = ${prefix} datadir = ${prefix}/share bindir = $(exec_prefix)/bin infodir = $(prefix)/info libdir = $(prefix)/lib/goo/ mandir = $(prefix)/man/man1 exe_suffix= INSTALL = /usr/bin/install -c INSTALL_PROGRAM=${INSTALL} INSTALL_SCRIPT=${INSTALL} INSTALL_DATA=${INSTALL} -m 644 ## end autoconf all: install: all clean: distclean: clean rm -f Makefile .PHONY: all install clean distclean goo-0.155/emacs/goo-font-lock.el0100644000175000017500000043042007444033266016014 0ustar vomjomvomjom;;; font-lock.el --- Electric font lock mode ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 1999, 2000, 2001 ;; Free Software Foundation, Inc. ;; Author: jwz, then rms, then sm ;; Maintainer: FSF ;; Keywords: languages, faces ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Font Lock mode is a minor mode that causes your comments to be displayed in ;; one face, strings in another, reserved words in another, and so on. ;; ;; Comments will be displayed in `font-lock-comment-face'. ;; Strings will be displayed in `font-lock-string-face'. ;; Regexps are used to display selected patterns in other faces. ;; ;; To make the text you type be fontified, use M-x font-lock-mode RET. ;; When this minor mode is on, the faces of the current line are updated with ;; every insertion or deletion. ;; ;; To turn Font Lock mode on automatically, add this to your ~/.emacs file: ;; ;; (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock) ;; ;; Or if you want to turn Font Lock mode on in many modes: ;; ;; (global-font-lock-mode t) ;; ;; Fontification for a particular mode may be available in a number of levels ;; of decoration. The higher the level, the more decoration, but the more time ;; it takes to fontify. See the variable `font-lock-maximum-decoration', and ;; also the variable `font-lock-maximum-size'. Support modes for Font Lock ;; mode can be used to speed up Font Lock mode. See `font-lock-support-mode'. ;;; How Font Lock mode fontifies: ;; When Font Lock mode is turned on in a buffer, it (a) fontifies the entire ;; buffer and (b) installs one of its fontification functions on one of the ;; hook variables that are run by Emacs after every buffer change (i.e., an ;; insertion or deletion). Fontification means the replacement of `face' text ;; properties in a given region; Emacs displays text with these `face' text ;; properties appropriately. ;; ;; Fontification normally involves syntactic (i.e., strings and comments) and ;; regexp (i.e., keywords and everything else) passes. There are actually ;; three passes; (a) the syntactic keyword pass, (b) the syntactic pass and (c) ;; the keyword pass. Confused? ;; ;; The syntactic keyword pass places `syntax-table' text properties in the ;; buffer according to the variable `font-lock-syntactic-keywords'. It is ;; necessary because Emacs' syntax table is not powerful enough to describe all ;; the different syntactic constructs required by the sort of people who decide ;; that a single quote can be syntactic or not depending on the time of day. ;; (What sort of person could decide to overload the meaning of a quote?) ;; Obviously the syntactic keyword pass must occur before the syntactic pass. ;; ;; The syntactic pass places `face' text properties in the buffer according to ;; syntactic context, i.e., according to the buffer's syntax table and buffer ;; text's `syntax-table' text properties. It involves using a syntax parsing ;; function to determine the context of different parts of a region of text. A ;; syntax parsing function is necessary because generally strings and/or ;; comments can span lines, and so the context of a given region is not ;; necessarily apparent from the content of that region. Because the keyword ;; pass only works within a given region, it is not generally appropriate for ;; syntactic fontification. This is the first fontification pass that makes ;; changes visible to the user; it fontifies strings and comments. ;; ;; The keyword pass places `face' text properties in the buffer according to ;; the variable `font-lock-keywords'. It involves searching for given regexps ;; (or calling given search functions) within the given region. This is the ;; second fontification pass that makes changes visible to the user; it ;; fontifies language reserved words, etc. ;; ;; Oh, and the answer is, "Yes, obviously just about everything should be done ;; in a single syntactic pass, but the only syntactic parser available ;; understands only strings and comments." Perhaps one day someone will write ;; some syntactic parsers for common languages and a son-of-font-lock.el could ;; use them rather then relying so heavily on the keyword (regexp) pass. ;;; How Font Lock mode supports modes or is supported by modes: ;; Modes that support Font Lock mode do so by defining one or more variables ;; whose values specify the fontification. Font Lock mode knows of these ;; variable names from (a) the buffer local variable `font-lock-defaults', if ;; non-nil, or (b) the global variable `font-lock-defaults-alist', if the major ;; mode has an entry. (Font Lock mode is set up via (a) where a mode's ;; patterns are distributed with the mode's package library, and (b) where a ;; mode's patterns are distributed with font-lock.el itself. An example of (a) ;; is Pascal mode, an example of (b) is Lisp mode. Normally, the mechanism is ;; (a); (b) is used where it is not clear which package library should contain ;; the pattern definitions.) Font Lock mode chooses which variable to use for ;; fontification based on `font-lock-maximum-decoration'. ;; ;; Font Lock mode fontification behaviour can be modified in a number of ways. ;; See the below comments and the comments distributed throughout this file. ;;; Constructing patterns: ;; See the documentation for the variable `font-lock-keywords'. ;; ;; Efficient regexps for use as MATCHERs for `font-lock-keywords' and ;; `font-lock-syntactic-keywords' can be generated via the function ;; `regexp-opt'. ;;; Adding patterns for modes that already support Font Lock: ;; Though Font Lock highlighting patterns already exist for many modes, it's ;; likely there's something that you want fontified that currently isn't, even ;; at the maximum fontification level. You can add highlighting patterns via ;; `font-lock-add-keywords'. For example, say in some C ;; header file you #define the token `and' to expand to `&&', etc., to make ;; your C code almost readable. In your ~/.emacs there could be: ;; ;; (font-lock-add-keywords 'c-mode '("\\<\\(and\\|or\\|not\\)\\>")) ;; ;; Some modes provide specific ways to modify patterns based on the values of ;; other variables. For example, additional C types can be specified via the ;; variable `c-font-lock-extra-types'. ;;; Adding patterns for modes that do not support Font Lock: ;; Not all modes support Font Lock mode. If you (as a user of the mode) add ;; patterns for a new mode, you must define in your ~/.emacs a variable or ;; variables that specify regexp fontification. Then, you should indicate to ;; Font Lock mode, via the mode hook setting `font-lock-defaults', exactly what ;; support is required. For example, say Foo mode should have the following ;; regexps fontified case-sensitively, and comments and strings should not be ;; fontified automagically. In your ~/.emacs there could be: ;; ;; (defvar foo-font-lock-keywords ;; '(("\\<\\(one\\|two\\|three\\)\\>" . font-lock-keyword-face) ;; ("\\<\\(four\\|five\\|six\\)\\>" . font-lock-type-face)) ;; "Default expressions to highlight in Foo mode.") ;; ;; (add-hook 'foo-mode-hook ;; (function (lambda () ;; (make-local-variable 'font-lock-defaults) ;; (setq font-lock-defaults '(foo-font-lock-keywords t))))) ;;; Adding Font Lock support for modes: ;; Of course, it would be better that the mode already supports Font Lock mode. ;; The package author would do something similar to above. The mode must ;; define at the top-level a variable or variables that specify regexp ;; fontification. Then, the mode command should indicate to Font Lock mode, ;; via `font-lock-defaults', exactly what support is required. For example, ;; say Bar mode should have the following regexps fontified case-insensitively, ;; and comments and strings should be fontified automagically. In bar.el there ;; could be: ;; ;; (defvar bar-font-lock-keywords ;; '(("\\<\\(uno\\|due\\|tre\\)\\>" . font-lock-keyword-face) ;; ("\\<\\(quattro\\|cinque\\|sei\\)\\>" . font-lock-type-face)) ;; "Default expressions to highlight in Bar mode.") ;; ;; and within `bar-mode' there could be: ;; ;; (make-local-variable 'font-lock-defaults) ;; (setq font-lock-defaults '(bar-font-lock-keywords nil t)) ;; What is fontification for? You might say, "It's to make my code look nice." ;; I think it should be for adding information in the form of cues. These cues ;; should provide you with enough information to both (a) distinguish between ;; different items, and (b) identify the item meanings, without having to read ;; the items and think about it. Therefore, fontification allows you to think ;; less about, say, the structure of code, and more about, say, why the code ;; doesn't work. Or maybe it allows you to think less and drift off to sleep. ;; ;; So, here are my opinions/advice/guidelines: ;; ;; - Highlight conceptual objects, such as function and variable names, and ;; different objects types differently, i.e., (a) and (b) above, highlight ;; function names differently to variable names. ;; - Keep the faces distinct from each other as far as possible. ;; i.e., (a) above. ;; - Use the same face for the same conceptual object, across all modes. ;; i.e., (b) above, all modes that have items that can be thought of as, say, ;; keywords, should be highlighted with the same face, etc. ;; - Make the face attributes fit the concept as far as possible. ;; i.e., function names might be a bold colour such as blue, comments might ;; be a bright colour such as red, character strings might be brown, because, ;; err, strings are brown (that was not the reason, please believe me). ;; - Don't use a non-nil OVERRIDE unless you have a good reason. ;; Only use OVERRIDE for special things that are easy to define, such as the ;; way `...' quotes are treated in strings and comments in Emacs Lisp mode. ;; Don't use it to, say, highlight keywords in commented out code or strings. ;; - Err, that's it. ;;; Code: ;; Define core `font-lock' group. (defgroup font-lock nil "Font Lock mode text highlighting package." :link '(custom-manual "(emacs)Font Lock") :link '(custom-manual "(elisp)Font Lock Mode") :group 'faces) (defgroup font-lock-highlighting-faces nil "Faces for highlighting text." :prefix "font-lock-" :group 'font-lock) (defgroup font-lock-extra-types nil "Extra mode-specific type names for highlighting declarations." :group 'font-lock) ;; Define support mode groups here to impose `font-lock' group order. (defgroup fast-lock nil "Font Lock support mode to cache fontification." :link '(custom-manual "(emacs)Support Modes") :load 'fast-lock :group 'font-lock) (defgroup lazy-lock nil "Font Lock support mode to fontify lazily." :link '(custom-manual "(emacs)Support Modes") :load 'lazy-lock :group 'font-lock) (defgroup jit-lock nil "Font Lock support mode to fontify just-in-time." :link '(custom-manual "(emacs)Support Modes") :version "21.1" :load 'jit-lock :group 'font-lock) ;; User variables. (defcustom font-lock-maximum-size 256000 "*Maximum size of a buffer for buffer fontification. Only buffers less than this can be fontified when Font Lock mode is turned on. If nil, means size is irrelevant. If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . 256000) (c++-mode . 256000) (rmail-mode . 1048576)) means that the maximum size is 250K for buffers in C or C++ modes, one megabyte for buffers in Rmail mode, and size is irrelevant otherwise." :type '(choice (const :tag "none" nil) (integer :tag "size") (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t . nil)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Size" (const :tag "none" nil) (integer :tag "size"))))) :group 'font-lock) (defcustom font-lock-maximum-decoration t "*Maximum decoration level for fontification. If nil, use the default decoration (typically the minimum available). If t, use the maximum decoration available. If a number, use that level of decoration (or if not available the maximum). If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . t) (c++-mode . 2) (t . 1)) means use the maximum decoration available for buffers in C mode, level 2 decoration for buffers in C++ mode, and level 1 decoration otherwise." :type '(choice (const :tag "default" nil) (const :tag "maximum" t) (integer :tag "level" 1) (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t . t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Decoration" (const :tag "default" nil) (const :tag "maximum" t) (integer :tag "level" 1))))) :group 'font-lock) (defcustom font-lock-verbose 0 "*If non-nil, means show status messages for buffer fontification. If a number, only buffers greater than this size have fontification messages." :type '(choice (const :tag "never" nil) (other :tag "always" t) (integer :tag "size")) :group 'font-lock) ;; Originally these variable values were face names such as `bold' etc. ;; Now we create our own faces, but we keep these variables for compatibility ;; and they give users another mechanism for changing face appearance. ;; We now allow a FACENAME in `font-lock-keywords' to be any expression that ;; returns a face. So the easiest thing is to continue using these variables, ;; rather than sometimes evaling FACENAME and sometimes not. sm. (defvar font-lock-comment-face 'font-lock-comment-face "Face name to use for comments.") (defvar font-lock-string-face 'font-lock-string-face "Face name to use for strings.") (defvar font-lock-doc-face 'font-lock-doc-face "Face name to use for documentation.") (defvar font-lock-keyword-face 'font-lock-keyword-face "Face name to use for keywords.") (defvar font-lock-builtin-face 'font-lock-builtin-face "Face name to use for builtins.") (defvar font-lock-function-name-face 'font-lock-function-name-face "Face name to use for function names.") (defvar font-lock-variable-name-face 'font-lock-variable-name-face "Face name to use for variable names.") (defvar font-lock-type-face 'font-lock-type-face "Face name to use for type and class names.") (defvar font-lock-constant-face 'font-lock-constant-face "Face name to use for constant and label names.") (defvar font-lock-warning-face 'font-lock-warning-face "Face name to use for things that should stand out.") (defvar font-lock-reference-face 'font-lock-constant-face "This variable is obsolete. Use `font-lock-constant-face'.") ;; Fontification variables: (defvar font-lock-keywords nil "A list of the keywords to highlight. Each element should have one of these forms: MATCHER (MATCHER . MATCH) (MATCHER . FACENAME) (MATCHER . HIGHLIGHT) (MATCHER HIGHLIGHT ...) (eval . FORM) where MATCHER can be either the regexp to search for, or the function name to call to make the search (called with one argument, the limit of the search) and return non-nil if it succeeds (and set `match-data' appropriately). MATCHER regexps can be generated via the function `regexp-opt'. FORM is an expression, whose value should be a keyword element, evaluated when the keyword is (first) used in a buffer. This feature can be used to provide a keyword that can only be generated when Font Lock mode is actually turned on. HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED. For highlighting single items, for example each instance of the word \"foo\", typically only MATCH-HIGHLIGHT is required. However, if an item or (typically) items are to be highlighted following the instance of another item (the anchor), for example each instance of the word \"bar\" following the word \"anchor\" then MATCH-ANCHORED may be required. MATCH-HIGHLIGHT should be of the form: (MATCH FACENAME OVERRIDE LAXMATCH) MATCH is the subexpression of MATCHER to be highlighted. FACENAME is an expression whose value is the face name to use. Face default attributes can be modified via \\[customize]. Instead of a face, FACENAME can evaluate to a property list of the form (face VAL1 PROP2 VAL2 PROP3 VAL3 ...) in which case all the listed text-properties will be set rather than just `face'. In such a case, you will most likely want to put those properties in `font-lock-extra-managed-props' or to override `font-lock-unfontify-region-function'. OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification can be overwritten. If `keep', only parts not already fontified are highlighted. If `prepend' or `append', existing fontification is merged with the new, in which the new or existing fontification, respectively, takes precedence. If LAXMATCH is non-nil, no error is signaled if there is no MATCH in MATCHER. For example, an element of the form highlights (if not already highlighted): \"\\\\\\=\" discrete occurrences of \"foo\" in the value of the variable `font-lock-keyword-face'. (\"fu\\\\(bar\\\\)\" . 1) substring \"bar\" within all occurrences of \"fubar\" in the value of `font-lock-keyword-face'. (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'. (\"foo\\\\|bar\" 0 foo-bar-face t) occurrences of either \"foo\" or \"bar\" in the value of `foo-bar-face', even if already highlighted. (fubar-match 1 fubar-face) the first subexpression within all occurrences of whatever the function `fubar-match' finds and matches in the value of `fubar-face'. MATCH-ANCHORED should be of the form: (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...) where MATCHER is a regexp to search for or the function name to call to make the search, as for MATCH-HIGHLIGHT above, but with one exception; see below. PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be used to initialise before, and cleanup after, MATCHER is used. Typically, PRE-MATCH-FORM is used to move to some position relative to the original MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER. For example, an element of the form highlights (if not already highlighted): (\"\\\\\\=\" (0 anchor-face) (\"\\\\\\=\" nil nil (0 item-face))) discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent discrete occurrences of \"item\" (on the same line) in the value of `item-face'. (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is initially searched for starting from the end of the match of \"anchor\", and searching for subsequent instance of \"anchor\" resumes from where searching for \"item\" concluded.) The above-mentioned exception is as follows. The limit of the MATCHER search defaults to the end of the line after PRE-MATCH-FORM is evaluated. However, if PRE-MATCH-FORM returns a position greater than the position after PRE-MATCH-FORM is evaluated, that position is used as the limit of the search. It is generally a bad idea to return a position greater than the end of the line, i.e., cause the MATCHER search to span lines. These regular expressions can match text which spans lines, although it is better to avoid it if possible since updating them while editing text is slower, and it is not guaranteed to be always correct when using support modes like jit-lock or lazy-lock. This variable is set by major modes via the variable `font-lock-defaults'. Be careful when composing regexps for this list; a poorly written pattern can dramatically slow things down!") ;; This variable is used by mode packages that support Font Lock mode by ;; defining their own keywords to use for `font-lock-keywords'. (The mode ;; command should make it buffer-local and set it to provide the set up.) (defvar font-lock-defaults nil "Defaults for Font Lock mode specified by the major mode. Defaults should be of the form: (KEYWORDS KEYWORDS-ONLY CASE-FOLD SYNTAX-ALIST SYNTAX-BEGIN ...) KEYWORDS may be a symbol (a variable or function whose value is the keywords to use for fontification) or a list of symbols. If KEYWORDS-ONLY is non-nil, syntactic fontification (strings and comments) is not performed. If CASE-FOLD is non-nil, the case of the keywords is ignored when fontifying. If SYNTAX-ALIST is non-nil, it should be a list of cons pairs of the form \(CHAR-OR-STRING . STRING) used to set the local Font Lock syntax table, for keyword and syntactic fontification (see `modify-syntax-entry'). If SYNTAX-BEGIN is non-nil, it should be a function with no args used to move backwards outside any enclosing syntactic block, for syntactic fontification. Typical values are `beginning-of-line' (i.e., the start of the line is known to be outside a syntactic block), or `beginning-of-defun' for programming modes or `backward-paragraph' for textual modes (i.e., the mode-dependent function is known to move outside a syntactic block). If nil, the beginning of the buffer is used as a position outside of a syntactic block, in the worst case. These item elements are used by Font Lock mode to set the variables `font-lock-keywords', `font-lock-keywords-only', `font-lock-keywords-case-fold-search', `font-lock-syntax-table' and `font-lock-beginning-of-syntax-function', respectively. Further item elements are alists of the form (VARIABLE . VALUE) and are in no particular order. Each VARIABLE is made buffer-local before set to VALUE. Currently, appropriate variables include `font-lock-mark-block-function'. If this is non-nil, it should be a function with no args used to mark any enclosing block of text, for fontification via \\[font-lock-fontify-block]. Typical values are `mark-defun' for programming modes or `mark-paragraph' for textual modes (i.e., the mode-dependent function is known to put point and mark around a text block relevant to that mode). Other variables include that for syntactic keyword fontification, `font-lock-syntactic-keywords' and those for buffer-specialised fontification functions, `font-lock-fontify-buffer-function', `font-lock-unfontify-buffer-function', `font-lock-fontify-region-function', `font-lock-unfontify-region-function', `font-lock-inhibit-thing-lock' and `font-lock-maximum-size'.") ;;;###autoload (make-variable-buffer-local 'font-lock-defaults) ;; This variable is used where font-lock.el itself supplies the keywords. (defvar font-lock-defaults-alist (let (;; We use `beginning-of-defun', rather than nil, for SYNTAX-BEGIN. ;; Thus the calculation of the cache is usually faster but not ;; infallible, so we risk mis-fontification. sm. (c-mode-defaults '((c-font-lock-keywords c-font-lock-keywords-1 c-font-lock-keywords-2 c-font-lock-keywords-3) nil nil ((?_ . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun))) (c++-mode-defaults '((c++-font-lock-keywords c++-font-lock-keywords-1 c++-font-lock-keywords-2 c++-font-lock-keywords-3) nil nil ((?_ . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun))) (objc-mode-defaults '((objc-font-lock-keywords objc-font-lock-keywords-1 objc-font-lock-keywords-2 objc-font-lock-keywords-3) nil nil ((?_ . "w") (?$ . "w")) nil (font-lock-mark-block-function . mark-defun))) (java-mode-defaults '((java-font-lock-keywords java-font-lock-keywords-1 java-font-lock-keywords-2 java-font-lock-keywords-3) nil nil ((?_ . "w") (?$ . "w")) nil (font-lock-mark-block-function . mark-defun))) (lisp-mode-defaults '((lisp-font-lock-keywords lisp-font-lock-keywords-1 lisp-font-lock-keywords-2) nil nil (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun)))) (list (cons 'c-mode c-mode-defaults) (cons 'c++-mode c++-mode-defaults) (cons 'objc-mode objc-mode-defaults) (cons 'java-mode java-mode-defaults) (cons 'emacs-lisp-mode lisp-mode-defaults) (cons 'lisp-mode lisp-mode-defaults) (cons 'lisp-interaction-mode lisp-mode-defaults))) "Alist of fall-back Font Lock defaults for major modes. This variable should not be used any more. Set the buffer-local `font-lock-keywords' in the major mode instead. Each item should be a list of the form: (MAJOR-MODE . FONT-LOCK-DEFAULTS) where MAJOR-MODE is a symbol and FONT-LOCK-DEFAULTS is a list of default settings. See the variable `font-lock-defaults', which takes precedence.") (make-obsolete-variable 'font-lock-defaults-alist 'font-lock-defaults) (defvar font-lock-keywords-alist nil "*Alist of `font-lock-keywords' local to a `major-mode'. This is normally set via `font-lock-add-keywords' and `font-lock-remove-keywords'.") (defvar font-lock-removed-keywords-alist nil "*Alist of `font-lock-keywords' removed from `major-mode'. This is normally set via `font-lock-add-keywords' and `font-lock-remove-keywords'.") (defvar font-lock-keywords-only nil "*Non-nil means Font Lock should not fontify comments or strings. This is normally set via `font-lock-defaults'.") (defvar font-lock-keywords-case-fold-search nil "*Non-nil means the patterns in `font-lock-keywords' are case-insensitive. This is normally set via `font-lock-defaults'.") (make-variable-buffer-local 'font-lock-keywords-case-fold-search) (defvar font-lock-syntactically-fontified 0 "Point up to which `font-lock-syntactic-keywords' has been applied. If nil, this is ignored, in which case the syntactic fontification may sometimes be slightly incorrect.") (make-variable-buffer-local 'font-lock-syntactically-fontified) (defvar font-lock-syntactic-face-function (lambda (state) (if (nth 3 state) font-lock-string-face font-lock-comment-face)) "Function to determine which face to use when fontifying syntactically. The function is called with a single parameter (the state as returned by `parse-partial-sexp' at the beginning of the region to highlight) and should return a face.") (defvar font-lock-syntactic-keywords nil "A list of the syntactic keywords to highlight. Can be the list or the name of a function or variable whose value is the list. See `font-lock-keywords' for a description of the form of this list; the differences are listed below. MATCH-HIGHLIGHT should be of the form: (MATCH SYNTAX OVERRIDE LAXMATCH) where SYNTAX can be a string (as taken by `modify-syntax-entry'), a syntax table, a cons cell (as returned by `string-to-syntax') or an expression whose value is such a form. OVERRIDE cannot be `prepend' or `append'. For example, an element of the form highlights syntactically: (\"\\\\$\\\\(#\\\\)\" 1 \".\") a hash character when following a dollar character, with a SYNTAX of \".\" (meaning punctuation syntax). Assuming that the buffer syntax table does specify hash characters to have comment start syntax, the element will only highlight hash characters that do not follow dollar characters as comments syntactically. (\"\\\\('\\\\).\\\\('\\\\)\" (1 \"\\\"\") (2 \"\\\"\")) both single quotes which surround a single character, with a SYNTAX of \"\\\"\" (meaning string quote syntax). Assuming that the buffer syntax table does not specify single quotes to have quote syntax, the element will only highlight single quotes of the form 'c' as strings syntactically. Other forms, such as foo'bar or 'fubar', will not be highlighted as strings. This is normally set via `font-lock-defaults'.") (defvar font-lock-syntax-table nil "Non-nil means use this syntax table for fontifying. If this is nil, the major mode's syntax table is used. This is normally set via `font-lock-defaults'.") ;; If this is nil, we only use the beginning of the buffer if we can't use ;; `font-lock-cache-position' and `font-lock-cache-state'. (defvar font-lock-beginning-of-syntax-function nil "*Non-nil means use this function to move back outside of a syntactic block. When called with no args it should leave point at the beginning of any enclosing syntactic block. If this is nil, the beginning of the buffer is used (in the worst case). This is normally set via `font-lock-defaults'.") (defvar font-lock-mark-block-function nil "*Non-nil means use this function to mark a block of text. When called with no args it should leave point at the beginning of any enclosing textual block and mark at the end. This is normally set via `font-lock-defaults'.") (defvar font-lock-fontify-buffer-function 'font-lock-default-fontify-buffer "Function to use for fontifying the buffer. This is normally set via `font-lock-defaults'.") (defvar font-lock-unfontify-buffer-function 'font-lock-default-unfontify-buffer "Function to use for unfontifying the buffer. This is used when turning off Font Lock mode. This is normally set via `font-lock-defaults'.") (defvar font-lock-fontify-region-function 'font-lock-default-fontify-region "Function to use for fontifying a region. It should take two args, the beginning and end of the region, and an optional third arg VERBOSE. If non-nil, the function should print status messages. This is normally set via `font-lock-defaults'.") (defvar font-lock-unfontify-region-function 'font-lock-default-unfontify-region "Function to use for unfontifying a region. It should take two args, the beginning and end of the region. This is normally set via `font-lock-defaults'.") (defvar font-lock-inhibit-thing-lock nil "List of Font Lock mode related modes that should not be turned on. Currently, valid mode names are `fast-lock-mode', `jit-lock-mode' and `lazy-lock-mode'. This is normally set via `font-lock-defaults'.") (defvar font-lock-multiline nil "Whether font-lock should cater to multiline keywords. If nil, don't try to handle multiline patterns. If t, always handle multiline patterns. If `undecided', don't try to handle multiline patterns until you see one. Major/minor modes can set this variable if they know which option applies.") (defvar font-lock-fontified nil) ; Whether we have fontified the buffer. ;; Font Lock mode. (eval-when-compile ;; ;; We don't do this at the top-level as we only use non-autoloaded macros. (require 'cl) ;; ;; Borrowed from lazy-lock.el. ;; We use this to preserve or protect things when modifying text properties. (defmacro save-buffer-state (varlist &rest body) "Bind variables according to VARLIST and eval BODY restoring buffer state." `(let* ,(append varlist '((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-point-motion-hooks t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename)) ,@body (when (and (not modified) (buffer-modified-p)) (set-buffer-modified-p nil)))) (put 'save-buffer-state 'lisp-indent-function 1) (def-edebug-spec save-buffer-state let) ;; ;; Shut up the byte compiler. (defvar font-lock-face-attributes)) ; Obsolete but respected if set. ;;;###autoload (define-minor-mode font-lock-mode "Toggle Font Lock mode. With arg, turn Font Lock mode off if and only if arg is a non-positive number; if arg is nil, toggle Font Lock mode; anything else turns Font Lock on. \(Font Lock is also known as \"syntax highlighting\".) When Font Lock mode is enabled, text is fontified as you type it: - Comments are displayed in `font-lock-comment-face'; - Strings are displayed in `font-lock-string-face'; - Certain other expressions are displayed in other faces according to the value of the variable `font-lock-keywords'. To customize the faces (colors, fonts, etc.) used by Font Lock for fontifying different parts of buffer text, use \\[customize-face]. You can enable Font Lock mode in any major mode automatically by turning on in the major mode's hook. For example, put in your ~/.emacs: (add-hook 'c-mode-hook 'turn-on-font-lock) Alternatively, you can use Global Font Lock mode to automagically turn on Font Lock mode in buffers whose major mode supports it and whose major mode is one of `font-lock-global-modes'. For example, put in your ~/.emacs: (global-font-lock-mode t) There are a number of support modes that may be used to speed up Font Lock mode in various ways, specified via the variable `font-lock-support-mode'. Where major modes support different levels of fontification, you can use the variable `font-lock-maximum-decoration' to specify which level you generally prefer. When you turn Font Lock mode on/off the buffer is fontified/defontified, though fontification occurs only if the buffer is less than `font-lock-maximum-size'. For example, to specify that Font Lock mode use use Lazy Lock mode as a support mode and use maximum levels of fontification, put in your ~/.emacs: (setq font-lock-support-mode 'lazy-lock-mode) (setq font-lock-maximum-decoration t) To add your own highlighting for some major mode, and modify the highlighting selected automatically via the variable `font-lock-maximum-decoration', you can use `font-lock-add-keywords'. To fontify a buffer, without turning on Font Lock mode and regardless of buffer size, you can use \\[font-lock-fontify-buffer]. To fontify a block (the function or paragraph containing point, or a number of lines around point), perhaps because modification on the current line caused syntactic change on other lines, you can use \\[font-lock-fontify-block]. See the variable `font-lock-defaults-alist' for the Font Lock mode default settings. You can set your own default settings for some mode, by setting a buffer local value for `font-lock-defaults', via its mode hook." nil nil nil ;; Don't turn on Font Lock mode if we don't have a display (we're running a ;; batch job) or if the buffer is invisible (the name starts with a space). (when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) (setq font-lock-mode nil)) ;; Turn on Font Lock mode. (when font-lock-mode (add-hook 'after-change-functions 'font-lock-after-change-function nil t) (font-lock-set-defaults) (font-lock-turn-on-thing-lock) ;; Fontify the buffer if we have to. (let ((max-size (font-lock-value-in-major-mode font-lock-maximum-size))) (cond (font-lock-fontified nil) ((or (null max-size) (> max-size (buffer-size))) (font-lock-fontify-buffer)) (font-lock-verbose (message "Fontifying %s...buffer size greater than font-lock-maximum-size" (buffer-name)))))) ;; Turn off Font Lock mode. (unless font-lock-mode (remove-hook 'after-change-functions 'font-lock-after-change-function t) (font-lock-unfontify-buffer) (font-lock-turn-off-thing-lock) (font-lock-unset-defaults))) ;;;###autoload (defun turn-on-font-lock () "Turn on Font Lock mode (only if the terminal can display it)." (unless font-lock-mode (font-lock-mode))) ;;;###autoload (defun font-lock-add-keywords (mode keywords &optional append) "Add highlighting KEYWORDS for MODE. MODE should be a symbol, the major mode command name, such as `c-mode' or nil. If nil, highlighting keywords are added for the current buffer. KEYWORDS should be a list; see the variable `font-lock-keywords'. By default they are added at the beginning of the current highlighting list. If optional argument APPEND is `set', they are used to replace the current highlighting list. If APPEND is any other non-nil value, they are added at the end of the current highlighting list. For example: (font-lock-add-keywords 'c-mode '((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 font-lock-warning-face prepend) (\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" . font-lock-keyword-face))) adds two fontification patterns for C mode, to fontify `FIXME:' words, even in comments, and to fontify `and', `or' and `not' words as keywords. When used from an elisp package (such as a minor mode), it is recommended to use nil for MODE (and place the call in a loop or on a hook) to avoid subtle problems due to details of the implementation. Note that some modes have specialised support for additional patterns, e.g., see the variables `c-font-lock-extra-types', `c++-font-lock-extra-types', `objc-font-lock-extra-types' and `java-font-lock-extra-types'." (cond (mode ;; If MODE is non-nil, add the KEYWORDS and APPEND spec to ;; `font-lock-keywords-alist' so `font-lock-set-defaults' uses them. (let ((spec (cons keywords append)) cell) (if (setq cell (assq mode font-lock-keywords-alist)) (if (eq append 'set) (setcdr cell (list spec)) (setcdr cell (append (cdr cell) (list spec)))) (push (list mode spec) font-lock-keywords-alist))) ;; Make sure that `font-lock-removed-keywords-alist' does not ;; contain the new keywords. (font-lock-update-removed-keyword-alist mode keywords append)) (t ;; Otherwise set or add the keywords now. (font-lock-set-defaults) (if (eq append 'set) (setq font-lock-keywords keywords) (font-lock-remove-keywords nil keywords) ;to avoid duplicates (let ((old (if (eq (car-safe font-lock-keywords) t) (cdr font-lock-keywords) font-lock-keywords))) (setq font-lock-keywords (if append (append old keywords) (append keywords old)))))))) (defun font-lock-update-removed-keyword-alist (mode keywords append) ;; Update `font-lock-removed-keywords-alist' when adding new ;; KEYWORDS to MODE. ;; ;; When font-lock is enabled first all keywords in the list ;; `font-lock-keywords-alist' are added, then all keywords in the ;; list `font-lock-removed-keywords-alist' are removed. If a ;; keyword was once added, removed, and then added again it must be ;; removed from the removed-keywords list. Otherwise the second add ;; will not take effect. (let ((cell (assq mode font-lock-removed-keywords-alist))) (if cell (if (eq append 'set) ;; A new set of keywords is defined. Forget all about ;; our old keywords that should be removed. (setq font-lock-removed-keywords-alist (delq cell font-lock-removed-keywords-alist)) ;; Delete all previously removed keywords. (dolist (kword keywords) (setcdr cell (delete kword (cdr cell)))) ;; Delete the mode cell if empty. (if (null (cdr cell)) (setq font-lock-removed-keywords-alist (delq cell font-lock-removed-keywords-alist))))))) ;; Written by Anders Lindgren . ;; ;; Case study: ;; (I) The keywords are removed from a major mode. ;; In this case the keyword could be local (i.e. added earlier by ;; `font-lock-add-keywords'), global, or both. ;; ;; (a) In the local case we remove the keywords from the variable ;; `font-lock-keywords-alist'. ;; ;; (b) The actual global keywords are not known at this time. ;; All keywords are added to `font-lock-removed-keywords-alist', ;; when font-lock is enabled those keywords are removed. ;; ;; Note that added keywords are taken out of the list of removed ;; keywords. This ensure correct operation when the same keyword ;; is added and removed several times. ;; ;; (II) The keywords are removed from the current buffer. ;;;###autoload (defun font-lock-remove-keywords (mode keywords) "Remove highlighting KEYWORDS for MODE. MODE should be a symbol, the major mode command name, such as `c-mode' or nil. If nil, highlighting keywords are removed for the current buffer. When used from an elisp package (such as a minor mode), it is recommended to use nil for MODE (and place the call in a loop or on a hook) to avoid subtle problems due to details of the implementation." (cond (mode ;; Remove one keyword at the time. (dolist (keyword keywords) (let ((top-cell (assq mode font-lock-keywords-alist))) ;; If MODE is non-nil, remove the KEYWORD from ;; `font-lock-keywords-alist'. (when top-cell (dolist (keyword-list-append-pair (cdr top-cell)) ;; `keywords-list-append-pair' is a cons with a list of ;; keywords in the car top-cell and the original append ;; argument in the cdr top-cell. (setcar keyword-list-append-pair (delete keyword (car keyword-list-append-pair)))) ;; Remove keyword list/append pair when the keyword list ;; is empty and append doesn't specify `set'. (If it ;; should be deleted then previously deleted keywords ;; would appear again.) (let ((cell top-cell)) (while (cdr cell) (if (and (null (car (car (cdr cell)))) (not (eq (cdr (car (cdr cell))) 'set))) (setcdr cell (cdr (cdr cell))) (setq cell (cdr cell))))) ;; Final cleanup, remove major mode cell if last keyword ;; was deleted. (if (null (cdr top-cell)) (setq font-lock-keywords-alist (delq top-cell font-lock-keywords-alist)))) ;; Remember the keyword in case it is not local. (let ((cell (assq mode font-lock-removed-keywords-alist))) (if cell (unless (member keyword (cdr cell)) (nconc cell (list keyword))) (push (cons mode (list keyword)) font-lock-removed-keywords-alist)))))) (t ;; Otherwise remove it immediately. (font-lock-set-defaults) (setq font-lock-keywords (copy-sequence font-lock-keywords)) (dolist (keyword keywords) (setq font-lock-keywords (delete keyword ;; The keywords might be compiled. (delete (font-lock-compile-keyword keyword) font-lock-keywords))))))) ;;; Global Font Lock mode. ;; A few people have hassled in the past for a way to make it easier to turn on ;; Font Lock mode, without the user needing to know for which modes s/he has to ;; turn it on, perhaps the same way hilit19.el/hl319.el does. I've always ;; balked at that way, as I see it as just re-moulding the same problem in ;; another form. That is; some person would still have to keep track of which ;; modes (which may not even be distributed with Emacs) support Font Lock mode. ;; The list would always be out of date. And that person might have to be me. ;; Implementation. ;; ;; In a previous discussion the following hack came to mind. It is a gross ;; hack, but it generally works. We use the convention that major modes start ;; by calling the function `kill-all-local-variables', which in turn runs ;; functions on the hook variable `change-major-mode-hook'. We attach our ;; function `font-lock-change-major-mode' to that hook. Of course, when this ;; hook is run, the major mode is in the process of being changed and we do not ;; know what the final major mode will be. So, `font-lock-change-major-mode' ;; only (a) notes the name of the current buffer, and (b) adds our function ;; `turn-on-font-lock-if-enabled' to the hook variables `find-file-hooks' and ;; `post-command-hook' (for buffers that are not visiting files). By the time ;; the functions on the first of these hooks to be run are run, the new major ;; mode is assumed to be in place. This way we get a Font Lock function run ;; when a major mode is turned on, without knowing major modes or their hooks. ;; ;; Naturally this requires that (a) major modes run `kill-all-local-variables', ;; as they are supposed to do, and (b) the major mode is in place after the ;; file is visited or the command that ran `kill-all-local-variables' has ;; finished, whichever the sooner. Arguably, any major mode that does not ;; follow the convension (a) is broken, and I can't think of any reason why (b) ;; would not be met (except `gnudoit' on non-files). However, it is not clean. ;; ;; Probably the cleanest solution is to have each major mode function run some ;; hook, e.g., `major-mode-hook', but maybe implementing that change is ;; impractical. I am personally against making `setq' a macro or be advised, ;; or have a special function such as `set-major-mode', but maybe someone can ;; come up with another solution? ;; User interface. ;; ;; Although Global Font Lock mode is a pseudo-mode, I think that the user ;; interface should conform to the usual Emacs convention for modes, i.e., a ;; command to toggle the feature (`global-font-lock-mode') with a variable for ;; finer control of the mode's behaviour (`font-lock-global-modes'). ;; ;; The feature should not be enabled by loading font-lock.el, since other ;; mechanisms for turning on Font Lock mode, such as M-x font-lock-mode RET or ;; (add-hook 'c-mode-hook 'turn-on-font-lock), would cause Font Lock mode to be ;; turned on everywhere. That would not be intuitive or informative because ;; loading a file tells you nothing about the feature or how to control it. It ;; would also be contrary to the Principle of Least Surprise. sm. (defcustom font-lock-global-modes t "*Modes for which Font Lock mode is automagically turned on. Global Font Lock mode is controlled by the command `global-font-lock-mode'. If nil, means no modes have Font Lock mode automatically turned on. If t, all modes that support Font Lock mode have it automatically turned on. If a list, it should be a list of `major-mode' symbol names for which Font Lock mode should be automatically turned on. The sense of the list is negated if it begins with `not'. For example: (c-mode c++-mode) means that Font Lock mode is turned on for buffers in C and C++ modes only." :type '(choice (const :tag "none" nil) (const :tag "all" t) (set :menu-tag "mode specific" :tag "modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "mode")))) :group 'font-lock) (defun turn-on-font-lock-if-enabled () (when (and (or font-lock-defaults (assq major-mode font-lock-defaults-alist)) (or (eq font-lock-global-modes t) (if (eq (car-safe font-lock-global-modes) 'not) (not (memq major-mode (cdr font-lock-global-modes))) (memq major-mode font-lock-global-modes)))) (let (inhibit-quit) (turn-on-font-lock)))) ;;;###autoload (easy-mmode-define-global-mode global-font-lock-mode font-lock-mode turn-on-font-lock-if-enabled :extra-args (dummy)) ;;; End of Global Font Lock mode. ;;; Font Lock Support mode. ;; This is the code used to interface font-lock.el with any of its add-on ;; packages, and provide the user interface. Packages that have their own ;; local buffer fontification functions (see below) may have to call ;; `font-lock-after-fontify-buffer' and/or `font-lock-after-unfontify-buffer' ;; themselves. (defcustom font-lock-support-mode 'jit-lock-mode "*Support mode for Font Lock mode. Support modes speed up Font Lock mode by being choosy about when fontification occurs. Known support modes are Fast Lock mode (symbol `fast-lock-mode'), Lazy Lock mode (symbol `lazy-lock-mode'), and Just-in-time Lock mode (symbol `jit-lock-mode'. See those modes for more info. If nil, means support for Font Lock mode is never performed. If a symbol, use that support mode. If a list, each element should be of the form (MAJOR-MODE . SUPPORT-MODE), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . fast-lock-mode) (c++-mode . fast-lock-mode) (t . lazy-lock-mode)) means that Fast Lock mode is used to support Font Lock mode for buffers in C or C++ modes, and Lazy Lock mode is used to support Font Lock mode otherwise. The value of this variable is used when Font Lock mode is turned on." :type '(choice (const :tag "none" nil) (const :tag "fast lock" fast-lock-mode) (const :tag "lazy lock" lazy-lock-mode) (const :tag "jit lock" jit-lock-mode) (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t . jit-lock-mode)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Support" (const :tag "none" nil) (const :tag "fast lock" fast-lock-mode) (const :tag "lazy lock" lazy-lock-mode) (const :tag "JIT lock" jit-lock-mode))) )) :version "21.1" :group 'font-lock) (defvar fast-lock-mode nil) (defvar lazy-lock-mode nil) (defvar jit-lock-mode nil) (defun font-lock-turn-on-thing-lock () (let ((thing-mode (font-lock-value-in-major-mode font-lock-support-mode))) (cond ((eq thing-mode 'fast-lock-mode) (fast-lock-mode t)) ((eq thing-mode 'lazy-lock-mode) (lazy-lock-mode t)) ((eq thing-mode 'jit-lock-mode) ;; Prepare for jit-lock (remove-hook 'after-change-functions 'font-lock-after-change-function t) (set (make-local-variable 'font-lock-fontify-buffer-function) 'jit-lock-refontify) ;; Don't fontify eagerly (and don't abort is the buffer is large). (set (make-local-variable 'font-lock-fontified) t) ;; Use jit-lock. (jit-lock-register 'font-lock-fontify-region (not font-lock-keywords-only)))))) (defun font-lock-turn-off-thing-lock () (cond (fast-lock-mode (fast-lock-mode -1)) (jit-lock-mode (jit-lock-unregister 'font-lock-fontify-region) ;; Reset local vars to the non-jit-lock case. (kill-local-variable 'font-lock-fontify-buffer-function)) (lazy-lock-mode (lazy-lock-mode -1)))) (defun font-lock-after-fontify-buffer () (cond (fast-lock-mode (fast-lock-after-fontify-buffer)) ;; Useless now that jit-lock intercepts font-lock-fontify-buffer. -sm ;; (jit-lock-mode ;; (jit-lock-after-fontify-buffer)) (lazy-lock-mode (lazy-lock-after-fontify-buffer)))) (defun font-lock-after-unfontify-buffer () (cond (fast-lock-mode (fast-lock-after-unfontify-buffer)) ;; Useless as well. It's only called when: ;; - turning off font-lock: it does not matter if we leave spurious ;; `fontified' text props around since jit-lock-mode is also off. ;; - font-lock-default-fontify-buffer fails: this is not run ;; any more anyway. -sm ;; ;; (jit-lock-mode ;; (jit-lock-after-unfontify-buffer)) (lazy-lock-mode (lazy-lock-after-unfontify-buffer)))) ;;; End of Font Lock Support mode. ;;; Fontification functions. ;; Rather than the function, e.g., `font-lock-fontify-region' containing the ;; code to fontify a region, the function runs the function whose name is the ;; value of the variable, e.g., `font-lock-fontify-region-function'. Normally, ;; the value of this variable is, e.g., `font-lock-default-fontify-region' ;; which does contain the code to fontify a region. However, the value of the ;; variable could be anything and thus, e.g., `font-lock-fontify-region' could ;; do anything. The indirection of the fontification functions gives major ;; modes the capability of modifying the way font-lock.el fontifies. Major ;; modes can modify the values of, e.g., `font-lock-fontify-region-function', ;; via the variable `font-lock-defaults'. ;; ;; For example, Rmail mode sets the variable `font-lock-defaults' so that ;; font-lock.el uses its own function for buffer fontification. This function ;; makes fontification be on a message-by-message basis and so visiting an ;; RMAIL file is much faster. A clever implementation of the function might ;; fontify the headers differently than the message body. (It should, and ;; correspondingly for Mail mode, but I can't be bothered to do the work. Can ;; you?) This hints at a more interesting use... ;; ;; Languages that contain text normally contained in different major modes ;; could define their own fontification functions that treat text differently ;; depending on its context. For example, Perl mode could arrange that here ;; docs are fontified differently than Perl code. Or Yacc mode could fontify ;; rules one way and C code another. Neat! ;; ;; A further reason to use the fontification indirection feature is when the ;; default syntactual fontification, or the default fontification in general, ;; is not flexible enough for a particular major mode. For example, perhaps ;; comments are just too hairy for `font-lock-fontify-syntactically-region' to ;; cope with. You need to write your own version of that function, e.g., ;; `hairy-fontify-syntactically-region', and make your own version of ;; `hairy-fontify-region' call that function before calling ;; `font-lock-fontify-keywords-region' for the normal regexp fontification ;; pass. And Hairy mode would set `font-lock-defaults' so that font-lock.el ;; would call your region fontification function instead of its own. For ;; example, TeX modes could fontify {\foo ...} and \bar{...} etc. multi-line ;; directives correctly and cleanly. (It is the same problem as fontifying ;; multi-line strings and comments; regexps are not appropriate for the job.) ;;;###autoload (defun font-lock-fontify-buffer () "Fontify the current buffer the way the function `font-lock-mode' would." (interactive) (let ((font-lock-verbose (or font-lock-verbose (interactive-p)))) (funcall font-lock-fontify-buffer-function))) (defun font-lock-unfontify-buffer () (funcall font-lock-unfontify-buffer-function)) (defun font-lock-fontify-region (beg end &optional loudly) (funcall font-lock-fontify-region-function beg end loudly)) (defun font-lock-unfontify-region (beg end) (funcall font-lock-unfontify-region-function beg end)) (defun font-lock-default-fontify-buffer () (let ((verbose (if (numberp font-lock-verbose) (> (buffer-size) font-lock-verbose) font-lock-verbose))) (with-temp-message (when verbose (format "Fontifying %s..." (buffer-name))) ;; Make sure we have the right `font-lock-keywords' etc. (unless font-lock-mode (font-lock-set-defaults)) ;; Make sure we fontify etc. in the whole buffer. (save-restriction (widen) (condition-case nil (save-excursion (save-match-data (font-lock-fontify-region (point-min) (point-max) verbose) (font-lock-after-fontify-buffer) (setq font-lock-fontified t))) ;; We don't restore the old fontification, so it's best to unfontify. (quit (font-lock-unfontify-buffer)))) ;; Make sure we undo `font-lock-keywords' etc. (unless font-lock-mode (font-lock-unset-defaults))))) (defun font-lock-default-unfontify-buffer () ;; Make sure we unfontify etc. in the whole buffer. (save-restriction (widen) (font-lock-unfontify-region (point-min) (point-max)) (font-lock-after-unfontify-buffer) (setq font-lock-fontified nil))) (defun font-lock-default-fontify-region (beg end loudly) (save-buffer-state ((parse-sexp-lookup-properties font-lock-syntactic-keywords) (old-syntax-table (syntax-table))) (unwind-protect (save-restriction (widen) ;; Use the fontification syntax table, if any. (when font-lock-syntax-table (set-syntax-table font-lock-syntax-table)) ;; check to see if we should expand the beg/end area for ;; proper multiline matches (when (and font-lock-multiline (> beg (point-min)) (get-text-property (1- beg) 'font-lock-multiline)) ;; We are just after or in a multiline match. (setq beg (or (previous-single-property-change beg 'font-lock-multiline) (point-min))) (goto-char beg) (setq beg (line-beginning-position))) (when font-lock-multiline (setq end (or (text-property-any end (point-max) 'font-lock-multiline nil) (point-max)))) (goto-char end) (setq end (line-beginning-position 2)) ;; Now do the fontification. (font-lock-unfontify-region beg end) (when font-lock-syntactic-keywords (font-lock-fontify-syntactic-keywords-region beg end)) (unless font-lock-keywords-only (font-lock-fontify-syntactically-region beg end loudly)) (font-lock-fontify-keywords-region beg end loudly)) ;; Clean up. (set-syntax-table old-syntax-table)))) ;; The following must be rethought, since keywords can override fontification. ; ;; Now scan for keywords, but not if we are inside a comment now. ; (or (and (not font-lock-keywords-only) ; (let ((state (parse-partial-sexp beg end nil nil ; font-lock-cache-state))) ; (or (nth 4 state) (nth 7 state)))) ; (font-lock-fontify-keywords-region beg end)) (defun font-lock-default-unfontify-region (beg end) (font-lock-kill-shade-in-region beg end) (save-buffer-state nil (remove-text-properties beg end (if font-lock-syntactic-keywords '(face nil syntax-table nil font-lock-multiline nil) '(face nil font-lock-multiline nil))))) ;; Called when any modification is made to buffer text. (defun font-lock-after-change-function (beg end old-len) (let ((inhibit-point-motion-hooks t)) (save-excursion (save-match-data ;; Rescan between start of lines enclosing the region. (font-lock-fontify-region (progn (goto-char beg) (beginning-of-line) (point)) (progn (goto-char end) (forward-line 1) (point))))))) (defun font-lock-fontify-block (&optional arg) "Fontify some lines the way `font-lock-fontify-buffer' would. The lines could be a function or paragraph, or a specified number of lines. If ARG is given, fontify that many lines before and after point, or 16 lines if no ARG is given and `font-lock-mark-block-function' is nil. If `font-lock-mark-block-function' non-nil and no ARG is given, it is used to delimit the region to fontify." (interactive "P") (let ((inhibit-point-motion-hooks t) font-lock-beginning-of-syntax-function deactivate-mark) ;; Make sure we have the right `font-lock-keywords' etc. (if (not font-lock-mode) (font-lock-set-defaults)) (save-excursion (save-match-data (condition-case error-data (if (or arg (not font-lock-mark-block-function)) (let ((lines (if arg (prefix-numeric-value arg) 16))) (font-lock-fontify-region (save-excursion (forward-line (- lines)) (point)) (save-excursion (forward-line lines) (point)))) (funcall font-lock-mark-block-function) (font-lock-fontify-region (point) (mark))) ((error quit) (message "Fontifying block...%s" error-data))))))) (define-key facemenu-keymap "\M-g" 'font-lock-fontify-block) ;;; End of Fontification functions. ;;; Additional text property functions. ;; The following text property functions should be builtins. This means they ;; should be written in C and put with all the other text property functions. ;; In the meantime, those that are used by font-lock.el are defined in Lisp ;; below and given a `font-lock-' prefix. Those that are not used are defined ;; in Lisp below and commented out. sm. (defun font-lock-prepend-text-property (start end prop value &optional object) "Prepend to one property of the text from START to END. Arguments PROP and VALUE specify the property and value to prepend to the value already in place. The resulting property values are always lists. Optional argument OBJECT is the string or buffer containing the text." (let ((val (if (listp value) value (list value))) next prev) (while (/= start end) (setq next (next-single-property-change start prop object end) prev (get-text-property start prop object)) (put-text-property start next prop (append val (if (listp prev) prev (list prev))) object) (setq start next)))) (defun font-lock-append-text-property (start end prop value &optional object) "Append to one property of the text from START to END. Arguments PROP and VALUE specify the property and value to append to the value already in place. The resulting property values are always lists. Optional argument OBJECT is the string or buffer containing the text." (let ((val (if (listp value) value (list value))) next prev) (while (/= start end) (setq next (next-single-property-change start prop object end) prev (get-text-property start prop object)) (put-text-property start next prop (append (if (listp prev) prev (list prev)) val) object) (setq start next)))) (defun font-lock-fillin-text-property (start end prop value &optional object) "Fill in one property of the text from START to END. Arguments PROP and VALUE specify the property and value to put where none are already in place. Therefore existing property values are not overwritten. Optional argument OBJECT is the string or buffer containing the text." (let ((start (text-property-any start end prop nil object)) next) (while start (setq next (next-single-property-change start prop object end)) (put-text-property start next prop value object) (setq start (text-property-any next end prop nil object))))) ;; For completeness: this is to `remove-text-properties' as `put-text-property' ;; is to `add-text-properties', etc. ;(defun remove-text-property (start end property &optional object) ; "Remove a property from text from START to END. ;Argument PROPERTY is the property to remove. ;Optional argument OBJECT is the string or buffer containing the text. ;Return t if the property was actually removed, nil otherwise." ; (remove-text-properties start end (list property) object)) ;; For consistency: maybe this should be called `remove-single-property' like ;; `next-single-property-change' (not `next-single-text-property-change'), etc. ;(defun remove-single-text-property (start end prop value &optional object) ; "Remove a specific property value from text from START to END. ;Arguments PROP and VALUE specify the property and value to remove. The ;resulting property values are not equal to VALUE nor lists containing VALUE. ;Optional argument OBJECT is the string or buffer containing the text." ; (let ((start (text-property-not-all start end prop nil object)) next prev) ; (while start ; (setq next (next-single-property-change start prop object end) ; prev (get-text-property start prop object)) ; (cond ((and (symbolp prev) (eq value prev)) ; (remove-text-property start next prop object)) ; ((and (listp prev) (memq value prev)) ; (let ((new (delq value prev))) ; (cond ((null new) ; (remove-text-property start next prop object)) ; ((= (length new) 1) ; (put-text-property start next prop (car new) object)) ; (t ; (put-text-property start next prop new object)))))) ; (setq start (text-property-not-all next end prop nil object))))) ;;; End of Additional text property functions. ;;; Syntactic regexp fontification functions. ;; These syntactic keyword pass functions are identical to those keyword pass ;; functions below, with the following exceptions; (a) they operate on ;; `font-lock-syntactic-keywords' of course, (b) they are all `defun' as speed ;; is less of an issue, (c) eval of property value does not occur JIT as speed ;; is less of an issue, (d) OVERRIDE cannot be `prepend' or `append' as it ;; makes no sense for `syntax-table' property values, (e) they do not do it ;; LOUDLY as it is not likely to be intensive. (defun font-lock-apply-syntactic-highlight (highlight) "Apply HIGHLIGHT following a match. HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-syntactic-keywords'." (let* ((match (nth 0 highlight)) (start (match-beginning match)) (end (match-end match)) (value (nth 1 highlight)) (override (nth 2 highlight))) (when (and (consp value) (not (numberp (car value)))) (setq value (eval value))) (when (stringp value) (setq value (string-to-syntax value))) (cond ((not start) ;; No match but we might not signal an error. (or (nth 3 highlight) (error "No match %d in highlight %S" match highlight))) ((not override) ;; Cannot override existing fontification. (or (text-property-not-all start end 'syntax-table nil) (put-text-property start end 'syntax-table value))) ((eq override t) ;; Override existing fontification. (put-text-property start end 'syntax-table value)) ((eq override 'keep) ;; Keep existing fontification. (font-lock-fillin-text-property start end 'syntax-table value))))) (defun font-lock-fontify-syntactic-anchored-keywords (keywords limit) "Fontify according to KEYWORDS until LIMIT. KEYWORDS should be of the form MATCH-ANCHORED, see `font-lock-keywords', LIMIT can be modified by the value of its PRE-MATCH-FORM." (let ((matcher (nth 0 keywords)) (lowdarks (nthcdr 3 keywords)) highlights ;; Evaluate PRE-MATCH-FORM. (pre-match-value (eval (nth 1 keywords)))) ;; Set LIMIT to value of PRE-MATCH-FORM or the end of line. (if (and (numberp pre-match-value) (> pre-match-value (point))) (setq limit pre-match-value) (setq limit (line-end-position))) (save-match-data ;; Find an occurrence of `matcher' before `limit'. (while (if (stringp matcher) (re-search-forward matcher limit t) (funcall matcher limit)) ;; Apply each highlight to this instance of `matcher'. (setq highlights lowdarks) (while highlights (font-lock-apply-syntactic-highlight (car highlights)) (setq highlights (cdr highlights))))) ;; Evaluate POST-MATCH-FORM. (eval (nth 2 keywords)))) (defun font-lock-fontify-syntactic-keywords-region (start end) "Fontify according to `font-lock-syntactic-keywords' between START and END. START should be at the beginning of a line." ;; Ensure the beginning of the file is properly syntactic-fontified. (when (and font-lock-syntactically-fontified (< font-lock-syntactically-fontified start)) (setq start (max font-lock-syntactically-fontified (point-min))) (setq font-lock-syntactically-fontified end)) ;; If `font-lock-syntactic-keywords' is a symbol, get the real keywords. (when (symbolp font-lock-syntactic-keywords) (setq font-lock-syntactic-keywords (font-lock-eval-keywords font-lock-syntactic-keywords))) ;; If `font-lock-syntactic-keywords' is not compiled, compile it. (unless (eq (car font-lock-syntactic-keywords) t) (setq font-lock-syntactic-keywords (font-lock-compile-keywords font-lock-syntactic-keywords))) ;; Get down to business. (let ((case-fold-search font-lock-keywords-case-fold-search) (keywords (cdr font-lock-syntactic-keywords)) keyword matcher highlights) (while keywords ;; Find an occurrence of `matcher' from `start' to `end'. (setq keyword (car keywords) matcher (car keyword)) (goto-char start) (while (if (stringp matcher) (re-search-forward matcher end t) (funcall matcher end)) ;; Apply each highlight to this instance of `matcher', which may be ;; specific highlights or more keywords anchored to `matcher'. (setq highlights (cdr keyword)) (while highlights (if (numberp (car (car highlights))) (font-lock-apply-syntactic-highlight (car highlights)) (font-lock-fontify-syntactic-anchored-keywords (car highlights) end)) (setq highlights (cdr highlights)))) (setq keywords (cdr keywords))))) ;;; End of Syntactic regexp fontification functions. ;;; Syntactic fontification functions. ;; These record the parse state at a particular position, always the start of a ;; line. Used to make `font-lock-fontify-syntactically-region' faster. ;; Previously, `font-lock-cache-position' was just a buffer position. However, ;; under certain situations, this occasionally resulted in mis-fontification. ;; I think the "situations" were deletion with Lazy Lock mode's deferral. sm. (defvar font-lock-cache-state nil) (defvar font-lock-cache-position nil) (defvar depth-to-color (list "#ffeeee" "#ffffdd" "#ffffcc" "#ffffbb" "#ffffaa" "#ffff99" "#ffff88" "#ffff77" "#ffff66" "#ffff55" "#ffff44" "#ffff33" "#ffff22")) (setq depth-cols (make-vector 100 0)) (setq max-depth 0) (setq depth-to-color (list ; "#ffeeee" "#fff6ee" "#ffffee" "#f6ffee" "#eefff6" "#eefff6" ; "#eeffff" "#eef6ff" "#eeeeff" "#f6eeff" "#ffeeff" "#fff6ff" ; "#ffdddd" "#ffeedd" "#ffffdd" "#eeffdd" "#ddffdd" "#ddffee" ; "#ddffff" "#ddeeff" "#ddddff" "#eeddff" "#ffddff" "#ffeeff" "#ffcccc" "#ffe7cc" "#ffffcc" "#e7ffdd" "#ccffcc" "#ccffe7" "#ccffff" "#cce7ff" "#ccccff" "#e7ccff" "#ffccff" "#ffe7ff" "#ffbbbb" "#ffddbb" "#ffffbb" "#ddbbff" "#bbffbb" "#ccffcc" "#bbffff" "#bbddff" "#bbbbff" "#ddccff" "#ffbbff" "#ffddff")) (setq depth-to-color (list "#ffeeee" "#ffffee" "#eeffee" "#eeffff" "#eeeeff" "#ffeeff" "#ffdddd" "#ffffdd" "#ddffdd" "#ddffff" "#ddddff" "#ffddff" "#ffcccc" "#ffffcc" "#ccffcc" "#ccffff" "#ccccff" "#ffccff" "#ffbbbb" "#ffffbb" "#bbffbb" "#bbffff" "#bbbbff" "#ffbbff" "#ffaaaa" "#ffffaa" "#aaffaa" "#aaffff" "#aaaaff" "#ffaaff" "#ff9999" "#ffff99" "#99ff99" "#99ffff" "#9999ff" "#ff99ff" "#ff8888" "#ffff88" "#88ff88" "#88ffff" "#8888ff" "#ff88ff" "#ff7777" "#ffff77" "#77ff77" "#77ffff" "#7777ff" "#ff77ff")) '(red (orange (yellow (yellowgreen (green (bluegreen (cyan (cyanblue (blue (purple (foo (bar (red (orange (yellow (yellowgreen (green (bluegreen (cyan (cyanblue (blue (purple (foo (bar (red (orange (yellow (yellowgreen (green (bluegreen (cyan (cyanblue (blue (purple (foo (bar )))))))))))))))))))))))))))))))))))) (defun font-lock-apply-shade (from to depth addline) (when (> depth 0) (let ((my-overlay (make-overlay from to)) face) (overlay-put my-overlay 'category 'font-lock-shade) ;; setting priority negative isa gainst the emacs docs but has ;; to be here so mouse hilighting shows up (overlay-put my-overlay 'priority -1) (overlay-put my-overlay 'evaporate t) (setq face (list :background (nth (- depth 1) depth-to-color))) (when addline ; (overlay-put my-overlay 'display '((margin nil) "|")) ; (overlay-put my-overlay 'before-string "|") (setq face (append face (list :foreground 'red))) (setq face (append face (list :stipple '(6 1 " ")))) ) ; (setq face (append face (list :foreground (nth (+ 12 (- depth 1)) depth-to-color)))) (overlay-put my-overlay 'face face) ; (message (concat "Adding shade depth " (number-to-string depth) " from " (number-to-string from) " to " (number-to-string to))) ) )) (defun font-lock-apply-shade-with-line (from to depth) (if nil (progn (when (> (- to from) 0) (font-lock-apply-shade from (+ from 1) depth t) (when (> (- to from) 1) (font-lock-apply-shade (+ from 1) to depth nil)))) (font-lock-apply-shade from to depth nil))) (defun font-lock-kill-shade-in-region (start end) (let ((overlays (reverse (overlays-in start end)))) (while (not (null overlays)) (let ((overlay (car overlays))) (when (eq (overlay-get overlay 'category) 'font-lock-shade) (let ((ostart (overlay-start overlay)) (oend (overlay-end overlay))) (if (>= ostart start) (if (<= oend end) (delete-overlay overlay) (move-overlay overlay end oend)) (move-overlay overlay ostart start))))) (setq overlays (cdr overlays))))) (defun font-lock-shade-region (depth start end) (message (concat "Shading region " (number-to-string start) "-" (number-to-string end))) (save-excursion (save-restriction (narrow-to-region start end) (goto-char start) (let ((eol 0)) (while (< eol end) (let (bol last beg (curdepth 0)) (setq beg (line-beginning-position)) (beginning-of-line-text) (setq bol (point)) (goto-char beg) (setq last beg) (while (and (< beg bol)) (when (and (< curdepth max-depth) (>= (current-column) (aref depth-cols curdepth))) (font-lock-apply-shade-with-line last beg curdepth) ; (while (>= (current-column) (aref depth-cols curdepth)) (setq curdepth (+ 1 curdepth)) ;) (setq last beg)) (forward-char) (setq beg (point))) (if (< last beg) (font-lock-apply-shade-with-line last beg curdepth))) (let (beg beg-hilit bolc) (beginning-of-line-text) (setq beg (point)) (setq bolc (current-column)) (setq beg-hilit beg) (setq eol (line-end-position)) (while (< beg eol) (let (parenpos next-paren next-hilit paren-type) (setq parenpos (search-forward-regexp "\\(\\s(\\)\\|\\(\\s)\\)" eol 'move-to-end)) (setq next-paren (point)) (setq parentype (if (null parenpos) 0 (if (null (match-beginning 1)) (if (null (match-beginning 2)) 0 -1) 1))) (if (= parentype 1) (progn (setq next-hilit (- next-paren 1)) (aset depth-cols depth bolc )) (setq next-hilit next-paren)) (font-lock-apply-shade beg-hilit next-hilit depth nil) (setq depth (+ depth parentype)) (setq max-depth depth) (setq beg next-paren) (setq beg-hilit next-hilit))) (forward-line))))))) (defun font-lock-fontify-syntactically-region (start end &optional loudly) "Put proper face on each string and comment between START and END. START should be at the beginning of a line." (let ((cache (marker-position font-lock-cache-position)) state face beg) (if loudly (message "Fontifying %s... (syntactically...)" (buffer-name))) (goto-char start) ;; ;; Find the state at the `beginning-of-line' before `start'. (if (eq start cache) ;; Use the cache for the state of `start'. (setq state font-lock-cache-state) ;; Find the state of `start'. (if (null font-lock-beginning-of-syntax-function) ;; Use the state at the previous cache position, if any, or ;; otherwise calculate from `point-min'. (if (or (null cache) (< start cache)) (setq state (parse-partial-sexp (point-min) start)) (setq state (parse-partial-sexp cache start nil nil font-lock-cache-state))) ;; Call the function to move outside any syntactic block. (funcall font-lock-beginning-of-syntax-function) (setq state (parse-partial-sexp (point) start))) ;; Cache the state and position of `start'. (setq font-lock-cache-state state) (set-marker font-lock-cache-position start)) ;; ADDED: (font-lock-shade-region (nth 0 state) start end) ;; ;; If the region starts inside a string or comment, show the extent of it. (when (or (nth 3 state) (nth 4 state)) (setq face (funcall font-lock-syntactic-face-function state) beg (point)) (setq state (parse-partial-sexp (point) end nil nil state 'syntax-table)) (put-text-property beg (point) 'face face)) ;; ;; Find each interesting place between here and `end'. (while (and (< (point) end) (progn (setq state (parse-partial-sexp (point) end nil nil state 'syntax-table)) (or (nth 3 state) (nth 4 state)))) (setq face (funcall font-lock-syntactic-face-function state) beg (nth 8 state)) (setq state (parse-partial-sexp (point) end nil nil state 'syntax-table)) (put-text-property beg (point) 'face face)))) ;;; End of Syntactic fontification functions. ;;; Keyword regexp fontification functions. (defsubst font-lock-apply-highlight (highlight) "Apply HIGHLIGHT following a match. HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-keywords'." (let* ((match (nth 0 highlight)) (start (match-beginning match)) (end (match-end match)) (override (nth 2 highlight))) (cond ((not start) ;; No match but we might not signal an error. (or (nth 3 highlight) (error "No match %d in highlight %S" match highlight))) ((not override) ;; Cannot override existing fontification. (or (text-property-not-all start end 'face nil) (put-text-property start end 'face (eval (nth 1 highlight))))) ((eq override t) ;; Override existing fontification. (put-text-property start end 'face (eval (nth 1 highlight)))) ((eq override 'prepend) ;; Prepend to existing fontification. (font-lock-prepend-text-property start end 'face (eval (nth 1 highlight)))) ((eq override 'append) ;; Append to existing fontification. (font-lock-append-text-property start end 'face (eval (nth 1 highlight)))) ((eq override 'keep) ;; Keep existing fontification. (font-lock-fillin-text-property start end 'face (eval (nth 1 highlight))))))) (defsubst font-lock-fontify-anchored-keywords (keywords limit) "Fontify according to KEYWORDS until LIMIT. KEYWORDS should be of the form MATCH-ANCHORED, see `font-lock-keywords', LIMIT can be modified by the value of its PRE-MATCH-FORM." (let ((matcher (nth 0 keywords)) (lowdarks (nthcdr 3 keywords)) highlights (lead-start (match-beginning 0)) ;; Evaluate PRE-MATCH-FORM. (pre-match-value (eval (nth 1 keywords)))) ;; Set LIMIT to value of PRE-MATCH-FORM or the end of line. (if (not (and (numberp pre-match-value) (> pre-match-value (point)))) (setq limit (line-end-position)) (setq limit pre-match-value) (when (and font-lock-multiline (>= limit (line-beginning-position 2))) ;; this is a multiline anchored match ;; (setq font-lock-multiline t) (put-text-property (if (= limit (line-beginning-position 2)) (1- limit) (min lead-start (point))) limit 'font-lock-multiline t))) (save-match-data ;; Find an occurrence of `matcher' before `limit'. (while (and (< (point) limit) (if (stringp matcher) (re-search-forward matcher limit t) (funcall matcher limit))) ;; Apply each highlight to this instance of `matcher'. (setq highlights lowdarks) (while highlights (font-lock-apply-highlight (car highlights)) (setq highlights (cdr highlights))))) ;; Evaluate POST-MATCH-FORM. (eval (nth 2 keywords)))) (defun font-lock-fontify-keywords-region (start end &optional loudly) "Fontify according to `font-lock-keywords' between START and END. START should be at the beginning of a line." (unless (eq (car font-lock-keywords) t) (setq font-lock-keywords (font-lock-compile-keywords font-lock-keywords))) (let ((case-fold-search font-lock-keywords-case-fold-search) (keywords (cdr font-lock-keywords)) (bufname (buffer-name)) (count 0) keyword matcher highlights) ;; ;; Fontify each item in `font-lock-keywords' from `start' to `end'. (while keywords (if loudly (message "Fontifying %s... (regexps..%s)" bufname (make-string (incf count) ?.))) ;; ;; Find an occurrence of `matcher' from `start' to `end'. (setq keyword (car keywords) matcher (car keyword)) (goto-char start) (while (and (< (point) end) (if (stringp matcher) (re-search-forward matcher end t) (funcall matcher end))) (when (and font-lock-multiline (>= (point) (save-excursion (goto-char (match-beginning 0)) (forward-line 1) (point)))) ;; this is a multiline regexp match ;; (setq font-lock-multiline t) (put-text-property (if (= (point) (save-excursion (goto-char (match-beginning 0)) (forward-line 1) (point))) (1- (point)) (match-beginning 0)) (point) 'font-lock-multiline t)) ;; Apply each highlight to this instance of `matcher', which may be ;; specific highlights or more keywords anchored to `matcher'. (setq highlights (cdr keyword)) (while highlights (if (numberp (car (car highlights))) (font-lock-apply-highlight (car highlights)) (font-lock-fontify-anchored-keywords (car highlights) end)) (setq highlights (cdr highlights)))) (setq keywords (cdr keywords))))) ;;; End of Keyword regexp fontification functions. ;; Various functions. (defun font-lock-compile-keywords (keywords) "Compile KEYWORDS into the form (t KEYWORD ...). Here KEYWORD is of the form (MATCHER HIGHLIGHT ...) as shown in the `font-lock-keywords' doc string." (if (eq (car-safe keywords) t) keywords (cons t (mapcar 'font-lock-compile-keyword keywords)))) (defun font-lock-compile-keyword (keyword) (cond ((nlistp keyword) ; MATCHER (list keyword '(0 font-lock-keyword-face))) ((eq (car keyword) 'eval) ; (eval . FORM) (font-lock-compile-keyword (eval (cdr keyword)))) ((eq (car-safe (cdr keyword)) 'quote) ; (MATCHER . 'FORM) ;; If FORM is a FACENAME then quote it. Otherwise ignore the quote. (if (symbolp (nth 2 keyword)) (list (car keyword) (list 0 (cdr keyword))) (font-lock-compile-keyword (cons (car keyword) (nth 2 keyword))))) ((numberp (cdr keyword)) ; (MATCHER . MATCH) (list (car keyword) (list (cdr keyword) 'font-lock-keyword-face))) ((symbolp (cdr keyword)) ; (MATCHER . FACENAME) (list (car keyword) (list 0 (cdr keyword)))) ((nlistp (nth 1 keyword)) ; (MATCHER . HIGHLIGHT) (list (car keyword) (cdr keyword))) (t ; (MATCHER HIGHLIGHT ...) keyword))) (defun font-lock-eval-keywords (keywords) "Evalulate KEYWORDS if a function (funcall) or variable (eval) name." (if (listp keywords) keywords (font-lock-eval-keywords (if (fboundp keywords) (funcall keywords) (eval keywords))))) (defun font-lock-value-in-major-mode (alist) "Return value in ALIST for `major-mode', or ALIST if it is not an alist. Structure is ((MAJOR-MODE . VALUE) ...) where MAJOR-MODE may be t." (if (consp alist) (cdr (or (assq major-mode alist) (assq t alist))) alist)) (defun font-lock-choose-keywords (keywords level) "Return LEVELth element of KEYWORDS. A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to \(1- (length KEYWORDS))." (cond ((not (and (listp keywords) (symbolp (car keywords)))) keywords) ((numberp level) (or (nth level keywords) (car (reverse keywords)))) ((eq level t) (car (reverse keywords))) (t (car keywords)))) (defvar font-lock-set-defaults nil) ; Whether we have set up defaults. (defun font-lock-set-defaults () "Set fontification defaults appropriately for this mode. Sets various variables using `font-lock-defaults' (or, if nil, using `font-lock-defaults-alist') and `font-lock-maximum-decoration'." ;; Set fontification defaults iff not previously set. (unless font-lock-set-defaults (set (make-local-variable 'font-lock-set-defaults) t) (set (make-local-variable 'font-lock-cache-state) nil) (set (make-local-variable 'font-lock-cache-position) (make-marker)) (make-local-variable 'font-lock-fontified) (make-local-variable 'font-lock-multiline) (let* ((defaults (or font-lock-defaults (cdr (assq major-mode font-lock-defaults-alist)))) (keywords (font-lock-choose-keywords (nth 0 defaults) (font-lock-value-in-major-mode font-lock-maximum-decoration))) (local (cdr (assq major-mode font-lock-keywords-alist))) (removed-keywords (cdr-safe (assq major-mode font-lock-removed-keywords-alist)))) ;; Regexp fontification? (set (make-local-variable 'font-lock-keywords) (font-lock-compile-keywords (font-lock-eval-keywords keywords))) ;; Local fontification? (while local (font-lock-add-keywords nil (car (car local)) (cdr (car local))) (setq local (cdr local))) (when removed-keywords (font-lock-remove-keywords nil removed-keywords)) ;; Syntactic fontification? (when (nth 1 defaults) (set (make-local-variable 'font-lock-keywords-only) t)) ;; Case fold during regexp fontification? (when (nth 2 defaults) (set (make-local-variable 'font-lock-keywords-case-fold-search) t)) ;; Syntax table for regexp and syntactic fontification? (when (nth 3 defaults) (let ((slist (nth 3 defaults))) (set (make-local-variable 'font-lock-syntax-table) (copy-syntax-table (syntax-table))) (while slist ;; The character to modify may be a single CHAR or a STRING. (let ((chars (if (numberp (car (car slist))) (list (car (car slist))) (mapcar 'identity (car (car slist))))) (syntax (cdr (car slist)))) (while chars (modify-syntax-entry (car chars) syntax font-lock-syntax-table) (setq chars (cdr chars))) (setq slist (cdr slist)))))) ;; Syntax function for syntactic fontification? (when (nth 4 defaults) (set (make-local-variable 'font-lock-beginning-of-syntax-function) (nth 4 defaults))) ;; Variable alist? (dolist (x (nthcdr 5 defaults)) (let ((variable (car x)) (value (cdr x))) (unless (boundp variable) (set variable nil)) ;why ? (set (make-local-variable variable) value)))))) (defun font-lock-unset-defaults () "Unset fontification defaults. See function `font-lock-set-defaults'." (setq font-lock-set-defaults nil font-lock-keywords nil font-lock-keywords-only nil font-lock-keywords-case-fold-search nil font-lock-syntax-table nil font-lock-beginning-of-syntax-function nil) (let* ((defaults (or font-lock-defaults (cdr (assq major-mode font-lock-defaults-alist)))) (alist (nthcdr 5 defaults))) (while alist (set (car (car alist)) (default-value (car (car alist)))) (setq alist (cdr alist))))) ;;; Colour etc. support. ;; Originally face attributes were specified via `font-lock-face-attributes'. ;; Users then changed the default face attributes by setting that variable. ;; However, we try and be back-compatible and respect its value if set except ;; for faces where M-x customize has been used to save changes for the face. (when (boundp 'font-lock-face-attributes) (let ((face-attributes font-lock-face-attributes)) (while face-attributes (let* ((face-attribute (pop face-attributes)) (face (car face-attribute))) ;; Rustle up a `defface' SPEC from a `font-lock-face-attributes' entry. (unless (get face 'saved-face) (let ((foreground (nth 1 face-attribute)) (background (nth 2 face-attribute)) (bold-p (nth 3 face-attribute)) (italic-p (nth 4 face-attribute)) (underline-p (nth 5 face-attribute)) face-spec) (when foreground (setq face-spec (cons ':foreground (cons foreground face-spec)))) (when background (setq face-spec (cons ':background (cons background face-spec)))) (when bold-p (setq face-spec (append '(:bold t) face-spec))) (when italic-p (setq face-spec (append '(:italic t) face-spec))) (when underline-p (setq face-spec (append '(:underline t) face-spec))) (custom-declare-face face (list (list t face-spec)) nil))))))) ;; But now we do it the custom way. Note that `defface' will not overwrite any ;; faces declared above via `custom-declare-face'. (defface font-lock-comment-face '((((type tty pc) (class color) (background light)) (:foreground "red")) (((type tty pc) (class color) (background dark)) (:foreground "red1")) (((class grayscale) (background light)) (:foreground "DimGray" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :bold t :italic t)) (((class color) (background light)) (:foreground "Firebrick")) (((class color) (background dark)) (:foreground "chocolate1")) (t (:bold t :italic t))) "Font Lock mode face used to highlight comments." :group 'font-lock-highlighting-faces) (defface font-lock-string-face '((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (((class color) (background light)) (:foreground "RosyBrown")) (((class color) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Font Lock mode face used to highlight strings." :group 'font-lock-highlighting-faces) (defface font-lock-doc-face '((t :inherit font-lock-string-face)) "Font Lock mode face used to highlight documentation." :group 'font-lock-highlighting-faces) (defface font-lock-keyword-face '((((type tty) (class color)) (:foreground "cyan" :weight bold)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) (t (:bold t))) "Font Lock mode face used to highlight keywords." :group 'font-lock-highlighting-faces) (defface font-lock-builtin-face '((((type tty) (class color)) (:foreground "blue" :weight light)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Orchid")) (((class color) (background dark)) (:foreground "LightSteelBlue")) (t (:bold t))) "Font Lock mode face used to highlight builtins." :group 'font-lock-highlighting-faces) (defface font-lock-function-name-face '((((type tty) (class color)) (:foreground "blue" :weight bold)) (((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue")) (t (:inverse-video t :bold t))) "Font Lock mode face used to highlight function names." :group 'font-lock-highlighting-faces) (defface font-lock-variable-name-face '((((type tty) (class color)) (:foreground "yellow" :weight light)) (((class grayscale) (background light)) (:foreground "Gray90" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t :italic t)) (((class color) (background light)) (:foreground "DarkGoldenrod")) (((class color) (background dark)) (:foreground "LightGoldenrod")) (t (:bold t :italic t))) "Font Lock mode face used to highlight variable names." :group 'font-lock-highlighting-faces) (defface font-lock-type-face '((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "Gray90" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "ForestGreen")) (((class color) (background dark)) (:foreground "PaleGreen")) (t (:bold t :underline t))) "Font Lock mode face used to highlight type and classes." :group 'font-lock-highlighting-faces) (defface font-lock-constant-face '((((type tty) (class color)) (:foreground "magenta")) (((class grayscale) (background light)) (:foreground "LightGray" :bold t :underline t)) (((class grayscale) (background dark)) (:foreground "Gray50" :bold t :underline t)) (((class color) (background light)) (:foreground "CadetBlue")) (((class color) (background dark)) (:foreground "Aquamarine")) (t (:bold t :underline t))) "Font Lock mode face used to highlight constants and labels." :group 'font-lock-highlighting-faces) (defface font-lock-warning-face '((((type tty) (class color)) (:foreground "red")) (((class color) (background light)) (:foreground "Red" :bold t)) (((class color) (background dark)) (:foreground "Pink" :bold t)) (t (:inverse-video t :bold t))) "Font Lock mode face used to highlight warnings." :group 'font-lock-highlighting-faces) ;;; End of Colour etc. support. ;;; Menu support. ;; This section of code is commented out because Emacs does not have real menu ;; buttons. (We can mimic them by putting "( ) " or "(X) " at the beginning of ;; the menu entry text, but with Xt it looks both ugly and embarrassingly ;; amateur.) If/When Emacs gets real menus buttons, put in menu-bar.el after ;; the entry for "Text Properties" something like: ;; ;; (define-key menu-bar-edit-menu [font-lock] ;; (cons "Syntax Highlighting" font-lock-menu)) ;; ;; and remove a single ";" from the beginning of each line in the rest of this ;; section. Probably the mechanism for telling the menu code what are menu ;; buttons and when they are on or off needs tweaking. I have assumed that the ;; mechanism is via `menu-toggle' and `menu-selected' symbol properties. sm. ;;;;###autoload ;(progn ; ;; Make the Font Lock menu. ; (defvar font-lock-menu (make-sparse-keymap "Syntax Highlighting")) ; ;; Add the menu items in reverse order. ; (define-key font-lock-menu [fontify-less] ; '("Less In Current Buffer" . font-lock-fontify-less)) ; (define-key font-lock-menu [fontify-more] ; '("More In Current Buffer" . font-lock-fontify-more)) ; (define-key font-lock-menu [font-lock-sep] ; '("--")) ; (define-key font-lock-menu [font-lock-mode] ; '("In Current Buffer" . font-lock-mode)) ; (define-key font-lock-menu [global-font-lock-mode] ; '("In All Buffers" . global-font-lock-mode))) ; ;;;;###autoload ;(progn ; ;; We put the appropriate `menu-enable' etc. symbol property values on when ; ;; font-lock.el is loaded, so we don't need to autoload the three variables. ; (put 'global-font-lock-mode 'menu-toggle t) ; (put 'font-lock-mode 'menu-toggle t) ; (put 'font-lock-fontify-more 'menu-enable '(identity)) ; (put 'font-lock-fontify-less 'menu-enable '(identity))) ; ;;; Put the appropriate symbol property values on now. See above. ;(put 'global-font-lock-mode 'menu-selected 'global-font-lock-mode) ;(put 'font-lock-mode 'menu-selected 'font-lock-mode) ;(put 'font-lock-fontify-more 'menu-enable '(nth 2 font-lock-fontify-level)) ;(put 'font-lock-fontify-less 'menu-enable '(nth 1 font-lock-fontify-level)) ; ;(defvar font-lock-fontify-level nil) ; For less/more fontification. ; ;(defun font-lock-fontify-level (level) ; (let ((font-lock-maximum-decoration level)) ; (when font-lock-mode ; (font-lock-mode)) ; (font-lock-mode) ; (when font-lock-verbose ; (message "Fontifying %s... level %d" (buffer-name) level)))) ; ;(defun font-lock-fontify-less () ; "Fontify the current buffer with less decoration. ;See `font-lock-maximum-decoration'." ; (interactive) ; ;; Check in case we get called interactively. ; (if (nth 1 font-lock-fontify-level) ; (font-lock-fontify-level (1- (car font-lock-fontify-level))) ; (error "No less decoration"))) ; ;(defun font-lock-fontify-more () ; "Fontify the current buffer with more decoration. ;See `font-lock-maximum-decoration'." ; (interactive) ; ;; Check in case we get called interactively. ; (if (nth 2 font-lock-fontify-level) ; (font-lock-fontify-level (1+ (car font-lock-fontify-level))) ; (error "No more decoration"))) ; ;;; This should be called by `font-lock-set-defaults'. ;(defun font-lock-set-menu () ; ;; Activate less/more fontification entries if there are multiple levels for ; ;; the current buffer. Sets `font-lock-fontify-level' to be of the form ; ;; (CURRENT-LEVEL IS-LOWER-LEVEL-P IS-HIGHER-LEVEL-P) for menu activation. ; (let ((keywords (or (nth 0 font-lock-defaults) ; (nth 1 (assq major-mode font-lock-defaults-alist)))) ; (level (font-lock-value-in-major-mode font-lock-maximum-decoration))) ; (make-local-variable 'font-lock-fontify-level) ; (if (or (symbolp keywords) (= (length keywords) 1)) ; (font-lock-unset-menu) ; (cond ((eq level t) ; (setq level (1- (length keywords)))) ; ((or (null level) (zerop level)) ; ;; The default level is usually, but not necessarily, level 1. ; (setq level (- (length keywords) ; (length (member (eval (car keywords)) ; (mapcar 'eval (cdr keywords)))))))) ; (setq font-lock-fontify-level (list level (> level 1) ; (< level (1- (length keywords)))))))) ; ;;; This should be called by `font-lock-unset-defaults'. ;(defun font-lock-unset-menu () ; ;; Deactivate less/more fontification entries. ; (setq font-lock-fontify-level nil)) ;;; End of Menu support. ;;; Various regexp information shared by several modes. ;;; Information specific to a single mode should go in its load library. ;; Font Lock support for C, C++, Objective-C and Java modes will one day be in ;; some cc-font.el (and required by cc-mode.el). However, the below function ;; should stay in font-lock.el, since it is used by other libraries. sm. (defun font-lock-match-c-style-declaration-item-and-skip-to-next (limit) "Match, and move over, any declaration/definition item after point. Matches after point, but ignores leading whitespace and `*' characters. Does not move further than LIMIT. The expected syntax of a declaration/definition item is `word' (preceded by optional whitespace and `*' characters and proceeded by optional whitespace) optionally followed by a `('. Everything following the item (but belonging to it) is expected to by skip-able by `scan-sexps', and items are expected to be separated with a `,' and to be terminated with a `;'. Thus the regexp matches after point: word ( ^^^^ ^ Where the match subexpressions are: 1 2 The item is delimited by (match-beginning 1) and (match-end 1). If (match-beginning 2) is non-nil, the item is followed by a `('. This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item." (when (looking-at "[ \t*]*\\(\\sw+\\)[ \t]*\\((\\)?") (save-match-data (condition-case nil (save-restriction ;; Restrict to the end of line, currently guaranteed to be LIMIT. (narrow-to-region (point-min) limit) (goto-char (match-end 1)) ;; Move over any item value, etc., to the next item. (while (not (looking-at "[ \t]*\\(\\(,\\)\\|;\\|$\\)")) (goto-char (or (scan-sexps (point) 1) (point-max)))) (goto-char (match-end 2))) (error t))))) ;; Lisp. (defconst lisp-font-lock-keywords-1 (eval-when-compile (list ;; ;; Definitions. (list (concat "(\\(def\\(" ;; Function declarations. "\\(advice\\|varalias\\|alias\\|generic\\|macro\\*?\\|method\\|" "setf\\|subst\\*?\\|un\\*?\\|" "ine-\\(condition\\|\\(?:derived\\|minor\\)-mode\\|" "method-combination\\|setf-expander\\|skeleton\\|widget\\|" "function\\|\\(compiler\\|modify\\|symbol\\)-macro\\)\\)\\|" ;; Variable declarations. "\\(const\\(ant\\)?\\|custom\\|face\\|parameter\\|var\\)\\|" ;; Structure declarations. "\\(class\\|group\\|package\\|struct\\|type\\)" "\\)\\)\\>" ;; Any whitespace and defined object. "[ \t'\(]*" "\\(setf[ \t]+\\sw+)\\|\\sw+\\)?") '(1 font-lock-keyword-face) '(9 (cond ((match-beginning 3) font-lock-function-name-face) ((match-beginning 6) font-lock-variable-name-face) (t font-lock-type-face)) nil t)) ;; ;; Emacs Lisp autoload cookies. '("^;;;###\\(autoload\\)" 1 font-lock-warning-face prepend) )) "Subdued level highlighting for Lisp modes.") (defconst lisp-font-lock-keywords-2 (append lisp-font-lock-keywords-1 (eval-when-compile (list ;; ;; Control structures. Emacs Lisp forms. (cons (concat "(" (regexp-opt '("cond" "if" "while" "let" "let*" "prog" "progn" "progv" "prog1" "prog2" "prog*" "inline" "lambda" "save-restriction" "save-excursion" "save-window-excursion" "save-selected-window" "save-match-data" "save-current-buffer" "unwind-protect" "condition-case" "track-mouse" "eval-after-load" "eval-and-compile" "eval-when-compile" "eval-when" "with-current-buffer" "with-electric-help" "with-output-to-string" "with-output-to-temp-buffer" "with-temp-buffer" "with-temp-file" "with-temp-message" "with-timeout") t) "\\>") 1) ;; ;; Control structures. Common Lisp forms. (cons (concat "(" (regexp-opt '("when" "unless" "case" "ecase" "typecase" "etypecase" "ccase" "ctypecase" "handler-case" "handler-bind" "restart-bind" "restart-case" "in-package" "cerror" "break" "ignore-errors" "loop" "do" "do*" "dotimes" "dolist" "the" "locally" "proclaim" "declaim" "declare" "symbol-macrolet" "lexical-let" "lexical-let*" "flet" "labels" "compiler-let" "destructuring-bind" "macrolet" "tagbody" "block" "return" "return-from") t) "\\>") 1) ;; ;; Exit/Feature symbols as constants. (list (concat "(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\>" "[ \t']*\\(\\sw+\\)?") '(1 font-lock-keyword-face) '(2 font-lock-constant-face nil t)) ;; ;; Erroneous structures. '("(\\(abort\\|assert\\|error\\|signal\\)\\>" 1 font-lock-warning-face) ;; ;; Words inside \\[] tend to be for `substitute-command-keys'. '("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-constant-face prepend) ;; ;; Words inside `' tend to be symbol names. '("`\\(\\sw\\sw+\\)'" 1 font-lock-constant-face prepend) ;; ;; Constant values. '("\\<:\\sw\\sw+\\>" 0 font-lock-builtin-face) ;; ;; ELisp and CLisp `&' keywords as types. '("\\&\\sw+\\>" . font-lock-type-face) ;; ;; CL `with-' and `do-' constructs '("(\\(\\(do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) ))) "Gaudy level highlighting for Lisp modes.") (defvar lisp-font-lock-keywords lisp-font-lock-keywords-1 "Default expressions to highlight in Lisp modes.") ;;; User choices. ;; These provide a means to fontify types not defined by the language. Those ;; types might be the user's own or they might be generally accepted and used. ;; Generally accepted types are used to provide default variable values. (define-widget 'font-lock-extra-types-widget 'radio "Widget `:type' for members of the custom group `font-lock-extra-types'. Members should `:load' the package `font-lock' to use this widget." :args '((const :tag "none" nil) (repeat :tag "types" regexp))) (defcustom c-font-lock-extra-types '("FILE" "\\sw+_t" "Lisp_Object") "*List of extra types to fontify in C mode. Each list item should be a regexp not containing word-delimiters. For example, a value of (\"FILE\" \"\\\\sw+_t\") means the word FILE and words ending in _t are treated as type names. The value of this variable is used when Font Lock mode is turned on." :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) (defcustom c++-font-lock-extra-types '("\\sw+_t" "\\([iof]\\|str\\)+stream\\(buf\\)?" "ios" "string" "rope" "list" "slist" "deque" "vector" "bit_vector" "set" "multiset" "map" "multimap" "hash\\(_\\(m\\(ap\\|ulti\\(map\\|set\\)\\)\\|set\\)\\)?" "stack" "queue" "priority_queue" "type_info" "iterator" "const_iterator" "reverse_iterator" "const_reverse_iterator" "reference" "const_reference") "*List of extra types to fontify in C++ mode. Each list item should be a regexp not containing word-delimiters. For example, a value of (\"string\") means the word string is treated as a type name. The value of this variable is used when Font Lock mode is turned on." :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) (defcustom objc-font-lock-extra-types '("Class" "BOOL" "IMP" "SEL") "*List of extra types to fontify in Objective-C mode. Each list item should be a regexp not containing word-delimiters. For example, a value of (\"Class\" \"BOOL\" \"IMP\" \"SEL\") means the words Class, BOOL, IMP and SEL are treated as type names. The value of this variable is used when Font Lock mode is turned on." :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) (defcustom java-font-lock-extra-types '("[A-Z\300-\326\330-\337]\\sw*[a-z]\\sw*") "*List of extra types to fontify in Java mode. Each list item should be a regexp not containing word-delimiters. For example, a value of (\"[A-Z\300-\326\330-\337]\\\\sw*[a-z]\\\\sw*\") means capitalised words (and words conforming to the Java id spec) are treated as type names. The value of this variable is used when Font Lock mode is turned on." :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) ;;; C. ;; [Murmur murmur murmur] Maestro, drum-roll please... [Murmur murmur murmur.] ;; Ahem. [Murmur murmur murmur] Lay-dees an Gennel-men. [Murmur murmur shhh!] ;; I am most proud and humbly honoured today [murmur murmur cough] to present ;; to you good people, the winner of the Second Millennium Award for The Most ;; Hairy Language Syntax. [Ahhh!] All rise please. [Shuffle shuffle ;; shuffle.] And a round of applause please. For... The C Language! [Roar.] ;; ;; Thank you... You are too kind... It is with a feeling of great privilege ;; and indeed emotion [sob] that I accept this award. It has been a long hard ;; road. But we know our destiny. And our future. For we must not rest. ;; There are more tokens to overload, more shoehorn, more methodologies. But ;; more is a plus! [Ha ha ha.] And more means plus! [Ho ho ho.] The future ;; is C++! [Ohhh!] The Third Millennium Award... Will be ours! [Roar.] (defconst c-font-lock-keywords-1 nil "Subdued level highlighting for C mode.") (defconst c-font-lock-keywords-2 nil "Medium level highlighting for C mode. See also `c-font-lock-extra-types'.") (defconst c-font-lock-keywords-3 nil "Gaudy level highlighting for C mode. See also `c-font-lock-extra-types'.") (let* ((c-keywords (eval-when-compile (regexp-opt '("break" "continue" "do" "else" "for" "if" "return" "switch" "while" "sizeof" ;; Type related, but we don't do anything special. "typedef" "extern" "auto" "register" "static" "volatile" "const" ;; Dan Nicolaescu says this is new. "restrict")))) (c-type-specs (eval-when-compile (regexp-opt '("enum" "struct" "union")))) (c-type-specs-depth (regexp-opt-depth c-type-specs)) (c-type-names `(mapconcat 'identity (cons ,(eval-when-compile (regexp-opt '("char" "short" "int" "long" "signed" "unsigned" "float" "double" "void" "complex"))) c-font-lock-extra-types) "\\|")) (c-type-names-depth `(regexp-opt-depth ,c-type-names)) (c-preprocessor-directives (eval-when-compile (regexp-opt '("define" "elif" "else" "endif" "error" "file" "if" "ifdef" "ifndef" "include" "line" "pragma" "undef")))) (c-preprocessor-directives-depth (regexp-opt-depth c-preprocessor-directives))) (setq c-font-lock-keywords-1 (list ;; ;; These are all anchored at the beginning of line for speed. ;; Note that `c++-font-lock-keywords-1' depends on `c-font-lock-keywords-1'. ;; ;; Fontify function name definitions (GNU style; without type on line). '("^\\(\\sw+\\)[ \t]*(" 1 font-lock-function-name-face) ;; ;; Fontify error directives. '("^#[ \t]*error[ \t]+\\(.+\\)" 1 font-lock-warning-face prepend) ;; ;; Fontify filenames in #include <...> preprocessor directives as strings. '("^#[ \t]*\\(import\\|include\\)[ \t]*\\(<[^>\"\n]*>?\\)" 2 font-lock-string-face) ;; ;; Fontify function macro names. '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face) ;; ;; Fontify symbol names in #elif or #if ... defined preprocessor directives. '("^#[ \t]*\\(elif\\|if\\)\\>" ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil (1 font-lock-builtin-face) (2 font-lock-variable-name-face nil t))) ;; ;; Fontify otherwise as symbol names, and the preprocessor directive names. (list (concat "^#[ \t]*\\(" c-preprocessor-directives "\\)\\>[ \t!]*\\(\\sw+\\)?") '(1 font-lock-builtin-face) (list (+ 2 c-preprocessor-directives-depth) 'font-lock-variable-name-face nil t)))) (setq c-font-lock-keywords-2 (append c-font-lock-keywords-1 (list ;; ;; Simple regexps for speed. ;; ;; Fontify all type names. `(eval . (cons (concat "\\<\\(" ,c-type-names "\\)\\>") 'font-lock-type-face)) ;; ;; Fontify all builtin keywords (except case, default and goto; see below). (concat "\\<\\(" c-keywords "\\|" c-type-specs "\\)\\>") ;; ;; Fontify case/goto keywords and targets, and case default/goto tags. '("\\<\\(case\\|goto\\)\\>" (1 font-lock-keyword-face) ("\\(-[0-9]+\\|\\sw+\\)" ;; Return limit of search. (save-excursion (skip-chars-forward "^:\n") (point)) nil (1 font-lock-constant-face nil t))) ;; Anders Lindgren points out that it is quicker to ;; use MATCH-ANCHORED to effectively anchor the regexp on the left. ;; This must come after the one for keywords and targets. '(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:[ \t]*$" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) ))) (setq c-font-lock-keywords-3 (append c-font-lock-keywords-2 ;; ;; More complicated regexps for more complete highlighting for types. ;; We still have to fontify type specifiers individually, as C is so hairy. (list ;; ;; Fontify all storage types, plus their items. `(eval . (list (concat "\\<\\(" ,c-type-names "\\)\\>" "\\([ \t*&]+\\sw+\\>\\)*") ;; Fontify each declaration item. (list 'font-lock-match-c-style-declaration-item-and-skip-to-next ;; Start with point after all type specifiers. (list 'goto-char (list 'or (list 'match-beginning (+ ,c-type-names-depth 2)) '(match-end 1))) ;; Finish with point after first type specifier. '(goto-char (match-end 1)) ;; Fontify as a variable or function name. '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))))) ;; ;; Fontify all storage specs and types, plus their items. `(eval . (list (concat "\\<\\(" ,c-type-specs "\\)\\>" "[ \t]*\\(\\sw+\\)?") (list 1 'font-lock-keyword-face) (list ,(+ c-type-specs-depth 2) 'font-lock-type-face nil t) (list 'font-lock-match-c-style-declaration-item-and-skip-to-next nil ;; Finish with point after the variable name if ;; there is one. `(if (match-end 2) (goto-char (match-end 2))) ;; Fontify as a variable or function name. '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face) nil t)))) ;; ;; Fontify structures, or typedef names, plus their items. '("\\(}\\)[ \t*]*\\sw" (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 font-lock-type-face))) ;; ;; Fontify anything at beginning of line as a declaration or definition. '("^\\(\\sw+\\)\\>\\([ \t*]+\\sw+\\>\\)*" (1 font-lock-type-face) (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 2) (match-end 1))) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) ))) ) (defvar c-font-lock-keywords c-font-lock-keywords-1 "Default expressions to highlight in C mode. See also `c-font-lock-extra-types'.") ;;; C++. (defconst c++-font-lock-keywords-1 nil "Subdued level highlighting for C++ mode.") (defconst c++-font-lock-keywords-2 nil "Medium level highlighting for C++ mode. See also `c++-font-lock-extra-types'.") (defconst c++-font-lock-keywords-3 nil "Gaudy level highlighting for C++ mode. See also `c++-font-lock-extra-types'.") (defun font-lock-match-c++-style-declaration-item-and-skip-to-next (limit) ;; Regexp matches after point: word::word ( ;; ^^^^ ^^^^ ^^^^ ^ ;; Where the match subexpressions are: 1 3 5 6 ;; ;; Item is delimited by (match-beginning 1) and (match-end 1). ;; If (match-beginning 3) is non-nil, that part of the item incloses a `<>'. ;; If (match-beginning 5) is non-nil, that part of the item follows a `::'. ;; If (match-beginning 6) is non-nil, the item is followed by a `('. (when (looking-at (eval-when-compile (concat ;; Skip any leading whitespace. "[ \t*&]*" ;; This is `c++-type-spec' from below. (Hint hint!) "\\(\\sw+\\)" ; The instance? "\\([ \t]*<\\([^>\n]+\\)[ \t*&]*>\\)?" ; Or template? "\\([ \t]*::[ \t*~]*\\(\\sw+\\)\\)*" ; Or member? ;; Match any trailing parenthesis. "[ \t]*\\((\\)?"))) (save-match-data (condition-case nil (save-restriction ;; Restrict to the end of line, currently guaranteed to be LIMIT. (narrow-to-region (point-min) limit) (goto-char (match-end 1)) ;; Move over any item value, etc., to the next item. (while (not (looking-at "[ \t]*\\(\\(,\\)\\|;\\|$\\)")) (goto-char (or (scan-sexps (point) 1) (point-max)))) (goto-char (match-end 2))) (error t))))) (defun font-lock-match-c++-structor-declaration (limit) ;; Match C++ constructors and destructors inside class declarations. (let ((res nil) (regexp (concat "^\\s-+\\(\\(virtual\\|explicit\\)\\s-+\\)*~?\\(\\<" (mapconcat 'identity c++-font-lock-extra-types "\\|") "\\>\\)\\s-*(" ;; Don't match function pointer declarations, e.g.: ;; Foo (*fptr)(); "\\s-*[^*( \t]"))) (while (progn (setq res (re-search-forward regexp limit t)) (and res (save-excursion (beginning-of-line) (save-match-data (not (vectorp (c-at-toplevel-p)))))))) res)) (let* ((c++-keywords (eval-when-compile (regexp-opt '("break" "continue" "do" "else" "for" "if" "return" "switch" "while" "asm" "catch" "delete" "new" "sizeof" "this" "throw" "try" "typeid" ;; Branko Cibej says this is new. "export" ;; Mark Mitchell says these are new. "mutable" "explicit" ;; Alain Picard suggests treating these ;; as keywords not types. "typedef" "template" "extern" "auto" "register" "const" "volatile" "static" "inline" "friend" "virtual" ;; Standard C++ operator names. "and" "and_eq" "bitand" "bitor" "compl" "not" "not_eq" "or" "or_eq" "xor" "xor_eq")))) (c++-operators (eval-when-compile (regexp-opt ;; Taken from Stroustrup, minus keywords otherwise fontified. '("+" "-" "*" "/" "%" "^" "&" "|" "~" "!" "=" "<" ">" "+=" "-=" "*=" "/=" "%=" "^=" "&=" "|=" "<<" ">>" ">>=" "<<=" "==" "!=" "<=" ">=" "&&" "||" "++" "--" "->*" "," "->" "[]" "()")))) (c++-type-specs (eval-when-compile (regexp-opt '("class" "public" "private" "protected" "typename" "struct" "union" "enum" "namespace" "using" ;; Eric Hopper says these are new. "static_cast" "dynamic_cast" "const_cast" "reinterpret_cast") t))) (c++-type-specs-depth (regexp-opt-depth c++-type-specs)) (c++-type-names `(mapconcat 'identity (cons ,(eval-when-compile (regexp-opt '("signed" "unsigned" "short" "long" "int" "char" "float" "double" "void" "bool" "complex"))) c++-font-lock-extra-types) "\\|")) (c++-type-names-depth `(regexp-opt-depth ,c++-type-names)) ;; ;; A brave attempt to match templates following a type and/or match ;; class membership. See and sync the above function ;; `font-lock-match-c++-style-declaration-item-and-skip-to-next'. (c++-type-suffix (concat "\\([ \t]*<\\([^>\n]+\\)[ \t*&]*>\\)?" "\\([ \t]*::[ \t*~]*\\(\\sw+\\)\\)*")) (c++-type-suffix-depth (regexp-opt-depth c++-type-suffix)) ;; If the string is a type, it may be followed by the cruft above. (c++-type-spec (concat "\\(\\sw+\\)\\>" c++-type-suffix)) (c++-type-spec-depth (regexp-opt-depth c++-type-spec)) ;; ;; Parenthesis depth of user-defined types not forgetting their cruft. (c++-type-depth `(regexp-opt-depth (concat ,c++-type-names ,c++-type-suffix))) ) (setq c++-font-lock-keywords-1 (append ;; ;; The list `c-font-lock-keywords-1' less that for function names. (cdr c-font-lock-keywords-1) (list ;; ;; Fontify function name definitions, possibly incorporating class names. (list (concat "^" c++-type-spec "[ \t]*(") '(1 (if (or (match-beginning 2) (match-beginning 4)) font-lock-type-face font-lock-function-name-face)) '(3 font-lock-type-face nil t) '(5 font-lock-function-name-face nil t)) ))) (setq c++-font-lock-keywords-2 (append c++-font-lock-keywords-1 (list ;; ;; The list `c-font-lock-keywords-2' for C++ plus operator overloading. `(eval . (cons (concat "\\<\\(" ,c++-type-names "\\)\\>") 'font-lock-type-face)) ;; ;; Fontify operator overloading. (list (concat "\\<\\(operator\\)\\>[ \t]*\\(" c++-operators "\\)?") '(1 font-lock-keyword-face) '(2 font-lock-builtin-face nil t)) ;; ;; Fontify case/goto keywords and targets, and case default/goto tags. '("\\<\\(case\\|goto\\)\\>" (1 font-lock-keyword-face) ("\\(-[0-9]+\\|\\sw+\\)[ \t]*\\(::\\)?" ;; Return limit of search. (save-excursion (while (progn (skip-chars-forward "^:\n") (looking-at "::")) (forward-char 2)) (point)) nil (1 (if (match-beginning 2) font-lock-type-face font-lock-constant-face) nil t))) ;; This must come after the one for keywords and targets. '(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:\\($\\|[^:]\\)" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) ;; ;; Fontify other builtin keywords. (concat "\\<\\(" c++-keywords "\\|" c++-type-specs "\\)\\>") ;; ;; Eric Hopper says `true' and `false' are new. '("\\<\\(false\\|true\\)\\>" . font-lock-constant-face) ))) (setq c++-font-lock-keywords-3 (append c++-font-lock-keywords-2 ;; ;; More complicated regexps for more complete highlighting for types. (list ;; ;; Fontify all storage classes and type specifiers, plus their items. `(eval . (list (concat "\\<\\(" ,c++-type-names "\\)\\>" ,c++-type-suffix "\\([ \t*&]+" ,c++-type-spec "\\)*") ;; The name of any template type. (list (+ ,c++-type-names-depth 3) 'font-lock-type-face nil t) ;; Fontify each declaration item. (list 'font-lock-match-c++-style-declaration-item-and-skip-to-next ;; Start with point after all type specifiers. (list 'goto-char (list 'or (list 'match-beginning (+ ,c++-type-depth 2)) '(match-end 1))) ;; Finish with point after first type specifier. '(goto-char (match-end 1)) ;; Fontify as a variable or function name. '(1 (cond ((or (match-beginning 2) (match-beginning 4)) font-lock-type-face) ((and (match-beginning 6) (c-at-toplevel-p)) font-lock-function-name-face) (t font-lock-variable-name-face))) '(3 font-lock-type-face nil t) '(5 (if (match-beginning 6) font-lock-function-name-face font-lock-variable-name-face) nil t)))) ;; ;; Fontify all storage specs and types, plus their items. `(eval . (list (concat "\\<" ,c++-type-specs "\\>" ,c++-type-suffix "[ \t]*\\(" ,c++-type-spec "\\)?") ;; The name of any template type. (list ,(+ c++-type-specs-depth 2) 'font-lock-type-face nil t) ;; The name of any type. (list (+ ,c++-type-specs-depth ,c++-type-suffix-depth 2) 'font-lock-type-face nil t) ;; Fontify each declaration item. (list 'font-lock-match-c++-style-declaration-item-and-skip-to-next ;; Start with point after all type specifiers. nil ;; Finish with point after first type specifier. nil ;; Fontify as a variable or function name. '(1 (cond ((or (match-beginning 2) (match-beginning 4)) font-lock-type-face) ((and (match-beginning 6) (c-at-toplevel-p)) font-lock-function-name-face) (t font-lock-variable-name-face))) '(3 font-lock-type-face nil t) '(5 (if (match-beginning 6) font-lock-function-name-face font-lock-variable-name-face) nil t)) )) ;; ;; Fontify structures, or typedef names, plus their items. '("\\(}\\)[ \t*]*\\sw" (font-lock-match-c++-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 font-lock-type-face))) ;; ;; Fontify anything at beginning of line as a declaration or definition. (list (concat "^\\(" c++-type-spec "[ \t*&]*\\)+") '(font-lock-match-c++-style-declaration-item-and-skip-to-next (goto-char (match-beginning 1)) (goto-char (match-end 1)) (1 (cond ((or (match-beginning 2) (match-beginning 4)) font-lock-type-face) ((match-beginning 6) font-lock-function-name-face) (t font-lock-variable-name-face))) (3 font-lock-type-face nil t) (5 (if (match-beginning 6) font-lock-function-name-face font-lock-variable-name-face) nil t))) ;; ;; Fontify constructors and destructors inside class declarations. '(font-lock-match-c++-structor-declaration (3 font-lock-function-name-face t)) ))) ) (defvar c++-font-lock-keywords c++-font-lock-keywords-1 "Default expressions to highlight in C++ mode. See also `c++-font-lock-extra-types'.") ;;; Objective-C. (defconst objc-font-lock-keywords-1 nil "Subdued level highlighting for Objective-C mode.") (defconst objc-font-lock-keywords-2 nil "Medium level highlighting for Objective-C mode. See also `objc-font-lock-extra-types'.") (defconst objc-font-lock-keywords-3 nil "Gaudy level highlighting for Objective-C mode. See also `objc-font-lock-extra-types'.") ;; Regexps written with help from Stephen Peters and ;; Jacques Duthen Prestataire . (let* ((objc-keywords (eval-when-compile (regexp-opt '("break" "continue" "do" "else" "for" "if" "return" "switch" "while" "sizeof" "self" "super" "typedef" "auto" "extern" "static" "volatile" "const")))) (objc-type-specs (eval-when-compile (regexp-opt '("register" "struct" "union" "enum" "oneway" "in" "out" "inout" "bycopy" "byref") t))) (objc-type-specs-depth (regexp-opt-depth objc-type-specs)) (objc-type-names `(mapconcat 'identity (cons ,(eval-when-compile (regexp-opt '("signed" "unsigned" "short" "long" "int" "char" "float" "double" "void" "id"))) objc-font-lock-extra-types) "\\|")) (objc-type-names-depth `(regexp-opt-depth ,objc-type-names)) ) (setq objc-font-lock-keywords-1 (append ;; ;; The list `c-font-lock-keywords-1' less that for function names. (cdr c-font-lock-keywords-1) (list ;; ;; Fontify compiler directives. '("@\\(\\sw+\\)\\>" (1 font-lock-keyword-face) ("\\=[ \t:<,]*\\(\\sw+\\)" nil nil (1 font-lock-type-face))) ;; ;; Fontify method names and arguments. Oh Lordy! ;; First, on the same line as the function declaration. '("^[+-][ \t]*\\(PRIVATE\\>\\)?[ \t]*\\(([^)\n]+)\\)?[ \t]*\\(\\sw+\\)" (1 font-lock-keyword-face nil t) (3 font-lock-function-name-face) ("\\=[ \t]*\\(\\sw+\\)?:[ \t]*\\(([^)\n]+)\\)?[ \t]*\\(\\sw+\\)" nil nil (1 font-lock-function-name-face nil t) (3 font-lock-variable-name-face))) ;; Second, on lines following the function declaration. '(":" ("^[ \t]*\\(\\sw+\\)?:[ \t]*\\(([^)\n]+)\\)?[ \t]*\\(\\sw+\\)" (beginning-of-line) (end-of-line) (1 font-lock-function-name-face nil t) (3 font-lock-variable-name-face))) ))) (setq objc-font-lock-keywords-2 (append objc-font-lock-keywords-1 (list ;; ;; Simple regexps for speed. ;; ;; Fontify all type specifiers. `(eval . (cons (concat "\\<\\(" ,objc-type-names "\\)\\>") 'font-lock-type-face)) ;; ;; Fontify all builtin keywords (except case, default and goto; see below). (concat "\\<\\(" objc-keywords "\\|" objc-type-specs "\\)\\>") ;; ;; Fontify case/goto keywords and targets, and case default/goto tags. '("\\<\\(case\\|goto\\)\\>[ \t]*\\(-?\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) ;; Fontify tags iff sole statement on line, otherwise we detect selectors. ;; This must come after the one for keywords and targets. '(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:[ \t]*$" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) ;; ;; Fontify null object pointers. '("\\<[Nn]il\\>" . font-lock-constant-face) ))) (setq objc-font-lock-keywords-3 (append objc-font-lock-keywords-2 ;; ;; More complicated regexps for more complete highlighting for types. ;; We still have to fontify type specifiers individually, as C is so hairy. (list ;; ;; Fontify all storage classes and type specifiers, plus their items. `(eval . (list (concat "\\<\\(" ,objc-type-names "\\)\\>" "\\([ \t*&]+\\sw+\\>\\)*") ;; Fontify each declaration item. (list 'font-lock-match-c-style-declaration-item-and-skip-to-next ;; Start with point after all type specifiers. (list 'goto-char (list 'or (list 'match-beginning (+ ,objc-type-names-depth 2)) '(match-end 1))) ;; Finish with point after first type specifier. '(goto-char (match-end 1)) ;; Fontify as a variable or function name. '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))))) ;; ;; Fontify all storage specs and types, plus their items. `(eval . (list (concat "\\<\\(" ,objc-type-specs "[ \t]*\\)+\\>" "[ \t]*\\(\\sw+\\)?") ;; The name of any type. (list ,(+ objc-type-specs-depth 2) 'font-lock-type-face nil t) ;; Fontify each declaration item. (list 'font-lock-match-c++-style-declaration-item-and-skip-to-next nil nil ;; Fontify as a variable or function name. '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))) )) ;; ;; Fontify structures, or typedef names, plus their items. '("\\(}\\)[ \t*]*\\sw" (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 font-lock-type-face))) ;; ;; Fontify anything at beginning of line as a declaration or definition. '("^\\(\\sw+\\)\\>\\([ \t*]+\\sw+\\>\\)*" (1 font-lock-type-face) (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 2) (match-end 1))) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) ))) ) (defvar objc-font-lock-keywords objc-font-lock-keywords-1 "Default expressions to highlight in Objective-C mode. See also `objc-font-lock-extra-types'.") ;;; Java. (defconst java-font-lock-keywords-1 nil "Subdued level highlighting for Java mode.") (defconst java-font-lock-keywords-2 nil "Medium level highlighting for Java mode. See also `java-font-lock-extra-types'.") (defconst java-font-lock-keywords-3 nil "Gaudy level highlighting for Java mode. See also `java-font-lock-extra-types'.") ;; Regexps written with help from Fred White , ;; Anders Lindgren and Carl Manning . (let* ((java-keywords (eval-when-compile (regexp-opt '("catch" "do" "else" "super" "this" "finally" "for" "if" ;; Anders Lindgren says these have gone. ;; "cast" "byvalue" "future" "generic" "operator" "var" ;; "inner" "outer" "rest" "implements" "extends" "throws" "instanceof" "new" "interface" "return" "switch" "throw" "try" "while")))) ;; ;; Classes immediately followed by an object name. (java-type-names `(mapconcat 'identity (cons ,(eval-when-compile (regexp-opt '("boolean" "char" "byte" "short" "int" "long" "float" "double" "void"))) java-font-lock-extra-types) "\\|")) (java-type-names-depth `(regexp-opt-depth ,java-type-names)) ;; ;; These are eventually followed by an object name. (java-type-specs (eval-when-compile (regexp-opt '("abstract" "const" "final" "synchronized" "transient" "static" ;; Anders Lindgren says this has gone. ;; "threadsafe" "volatile" "public" "private" "protected" "native" ;; Carl Manning says this is new. "strictfp")))) ) (setq java-font-lock-keywords-1 (list ;; ;; Fontify class names. '("\\<\\(class\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-type-face nil t)) ;; ;; Fontify package names in import directives. '("\\<\\(import\\|package\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t) ("\\=\\.\\(\\*\\|\\sw+\\)" nil nil (1 font-lock-constant-face nil t))) )) (setq java-font-lock-keywords-2 (append java-font-lock-keywords-1 (list ;; ;; Fontify class names. `(eval . (cons (concat "\\<\\(" ,java-type-names "\\)\\>[^.]") '(1 font-lock-type-face))) ;; ;; Fontify all builtin keywords (except below). (concat "\\<\\(" java-keywords "\\|" java-type-specs "\\)\\>") ;; ;; Fontify keywords and targets, and case default/goto tags. (list "\\<\\(break\\|case\\|continue\\|goto\\)\\>[ \t]*\\(-?\\sw+\\)?" '(1 font-lock-keyword-face) '(2 font-lock-constant-face nil t)) ;; This must come after the one for keywords and targets. '(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:[ \t]*$" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) ;; ;; Fontify all constants. '("\\<\\(false\\|null\\|true\\)\\>" . font-lock-constant-face) ;; ;; Javadoc tags within comments. (list (concat "@\\(" "author\\|deprecated\\|exception" "\\|link\\|return\\|see\\|serial\\|serialData\\|serialField" "\\|since\\|throws" "\\|version" "\\)\\>") '(1 font-lock-constant-face prepend)) '("@\\(param\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-constant-face prepend) (2 font-lock-variable-name-face prepend t)) '("@\\(exception\\|throws\\)\\>[ \t]*\\(\\S-+\\)?" (1 font-lock-constant-face prepend) (2 font-lock-type-face prepend t)) ))) (setq java-font-lock-keywords-3 (append java-font-lock-keywords-2 ;; ;; More complicated regexps for more complete highlighting for types. ;; We still have to fontify type specifiers individually, as Java is hairy. (list ;; ;; Fontify random types immediately followed by an item or items. `(eval . (list (concat "\\<\\(" ,java-type-names "\\)\\>" "\\([ \t]*\\[[ \t]*\\]\\)*" "\\([ \t]*\\sw\\)") ;; Fontify each declaration item. (list 'font-lock-match-c-style-declaration-item-and-skip-to-next ;; Start and finish with point after the type specifier. (list 'goto-char (list 'match-beginning (+ ,java-type-names-depth 3))) (list 'goto-char (list 'match-beginning (+ ,java-type-names-depth 3))) ;; Fontify as a variable or function name. '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))))) ;; ;; Fontify those that are eventually followed by an item or items. (list (concat "\\<\\(" java-type-specs "\\)\\>" "\\([ \t]+\\sw+\\>" "\\([ \t]*\\[[ \t]*\\]\\)*" "\\)*") ;; Fontify each declaration item. '(font-lock-match-c-style-declaration-item-and-skip-to-next ;; Start with point after all type specifiers. (goto-char (or (match-beginning 5) (match-end 1))) ;; Finish with point after first type specifier. (goto-char (match-end 1)) ;; Fontify as a variable or function name. (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) ))) ) (defvar java-font-lock-keywords java-font-lock-keywords-1 "Default expressions to highlight in Java mode. See also `java-font-lock-extra-types'.") ;; Provide ourselves: (provide 'font-lock) (when (eq font-lock-support-mode 'jit-lock-mode) (require 'jit-lock)) ;;; font-lock.el ends here goo-0.155/emacs/goo-shell.el0100644000175000017500000003273407501205646015232 0ustar vomjomvomjom;;; goo-shell.el --- goo process in a buffer. ;; Adapted from cmuscheme.el. ;; Author: Greg Sullivan January, 2001. ;;; Commentary: ;; ;; Add the following to your .emacs: ;; (autoload 'goo-mode "goo" "Major mode for editing Goo source." t) ;; (autoload 'run-goo "goo-shell" "Run an inferior Goo process." t) ;; (setq auto-mode-alist ;; (cons '("\\.goo\\'" . goo-mode) ;; auto-mode-alist)) ;; (setq goo-program-name "C:/goo/goo.exe") ; or whatever ;;; Code: (require 'goo) (require 'comint) (defgroup goo-shell nil "Run a goo process in a buffer." :group 'lisp) ;;; INFERIOR GOO MODE STUFF ;;;============================================================================ (defcustom inferior-goo-mode-hook nil "*Hook for customising inferior-goo mode." :type 'hook :group 'goo-shell) (defvar inferior-goo-mode-map nil) (cond ((not inferior-goo-mode-map) (setq inferior-goo-mode-map (copy-keymap comint-mode-map)) (define-key inferior-goo-mode-map "\M-\C-x" ;gnu convention 'goo-send-definition) (define-key inferior-goo-mode-map "\C-x\C-e" 'goo-send-last-sexp) (define-key inferior-goo-mode-map "\C-c\C-l" 'goo-load-file) (define-key inferior-goo-mode-map "\C-c\C-k" 'goo-compile-file))) ;; Install the process communication commands in the goo-mode keymap. (define-key goo-mode-map "\M-\C-x" 'goo-send-definition);gnu convention (define-key goo-mode-map "\C-x\C-e" 'goo-send-last-sexp);gnu convention (define-key goo-mode-map "\C-c\C-e" 'goo-send-definition) (define-key goo-mode-map "\C-c\M-e" 'goo-send-definition-and-go) (define-key goo-mode-map "\C-c\C-r" 'goo-send-region) (define-key goo-mode-map "\C-c\M-r" 'goo-send-region-and-go) (define-key goo-mode-map "\C-c\M-c" 'goo-compile-definition) (define-key goo-mode-map "\C-c\C-c" 'goo-compile-definition-and-go) (define-key goo-mode-map "\C-c\C-z" 'switch-to-goo) (define-key goo-mode-map "\C-c\C-l" 'goo-load-file) (define-key goo-mode-map "\C-c\C-k" 'goo-compile-file) ;k for "kompile" (let ((map (lookup-key goo-mode-map [menu-bar goo]))) (define-key map [separator-eval] '("--")) (define-key map [compile-file] '("Compile Goo File" . goo-compile-file)) (define-key map [load-file] '("Load Goo File" . goo-load-file)) (define-key map [switch] '("Switch to Goo" . switch-to-goo)) (define-key map [com-def-go] '("Compile Definitiion & Go" . goo-compile-definition-and-go)) (define-key map [com-def] '("Compile Definitiion" . goo-compile-definition)) (define-key map [send-def-go] '("Evaluate Last Definition & Go" . goo-send-definition-and-go)) (define-key map [send-def] '("Evaluate Last Definition" . goo-send-definition)) (define-key map [send-region-go] '("Evaluate Region & Go" . goo-send-region-and-go)) (define-key map [send-region] '("Evaluate Region" . goo-send-region)) (define-key map [send-sexp] '("Evaluate Last S-expression" . goo-send-last-sexp)) ) (defvar goo-buffer) (defun inferior-goo-mode () "Major mode for interacting with an inferior Goo process. The following commands are available: \\{inferior-goo-mode-map} A Goo process can be fired up with M-x run-goo. Customisation: Entry to this mode runs the hooks on comint-mode-hook and inferior-goo-mode-hook (in that order). You can send text to the inferior Goo process from other buffers containing Goo source. switch-to-goo switches the current buffer to the Goo process buffer. goo-send-definition sends the current definition to the Goo process. goo-compile-definition compiles the current definition. goo-send-region sends the current region to the Goo process. goo-compile-region compiles the current region. goo-send-definition-and-go, goo-compile-definition-and-go, goo-send-region-and-go, and goo-compile-region-and-go switch to the Goo process buffer after sending their text. For information on running multiple processes in multiple buffers, see documentation for variable goo-buffer. Commands: Return after the end of the process' output sends the text from the end of process to point. Return before the end of the process' output copies the sexp ending at point to the end of the process' output, and sends it. Delete converts tabs to spaces as it moves back. Tab indents for Goo; with argument, shifts rest of expression rigidly with the current line. C-M-q does Tab on each line starting within following expression. Paragraphs are separated only by blank lines. Semicolons start comments. If you accidentally suspend your process, use \\[comint-continue-subjob] to continue it." (interactive) (comint-mode) ;; Customise in inferior-goo-mode-hook ;; (setq comint-prompt-regexp "^[^>\n]*>+ *") (setq comint-prompt-regexp "^[^<=\n]*<= *") (goo-mode-variables) (setq major-mode 'inferior-goo-mode) (setq mode-name "Goo Shell") (setq mode-line-process '(":%s")) (use-local-map inferior-goo-mode-map) (setq comint-input-filter (function goo-input-filter)) (setq comint-get-old-input (function goo-get-old-input)) (run-hooks 'inferior-goo-mode-hook)) (defcustom inferior-goo-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'" "*Input matching this regexp are not saved on the history list. Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters." :type 'regexp :group 'goo-shell) (defun goo-input-filter (str) "Don't save anything matching inferior-goo-filter-regexp" (not (string-match inferior-goo-filter-regexp str))) (defun goo-get-old-input () "Snarf the sexp ending at point" (save-excursion (let ((end (point))) (backward-sexp) (buffer-substring (point) end)))) (defun goo-args-to-list (string) (let ((where (string-match "[ \t]" string))) (cond ((null where) (list string)) ((not (= where 0)) (cons (substring string 0 where) (goo-args-to-list (substring string (+ 1 where) (length string))))) (t (let ((pos (string-match "[^ \t]" string))) (if (null pos) nil (goo-args-to-list (substring string pos (length string))))))))) (defcustom goo-program-name "goo" "*Program invoked by the run-goo command" :type 'string :group 'goo-shell) ;;;###autoload (defun run-goo (cmd) "Run an inferior Goo process, input and output via buffer *goo*. If there is a process already running in `*goo*', switch to that buffer. With argument, allows you to edit the command line (default is value of `goo-program-name'). Runs the hooks `inferior-goo-mode-hook' \(after the `comint-mode-hook' is run). \(Type \\[describe-mode] in the process buffer for a list of commands.)" (interactive (list (if current-prefix-arg (read-string "Run Goo: " goo-program-name) goo-program-name))) (if (not (comint-check-proc "*goo*")) (let ((cmdlist (goo-args-to-list cmd))) (set-buffer (apply 'make-comint "goo" (car cmdlist) nil (cdr cmdlist))) (inferior-goo-mode))) (setq goo-program-name cmd) (setq goo-buffer "*goo*") (pop-to-buffer "*goo*")) ;;;###autoload (add-hook 'same-window-buffer-names "*goo*") (defun goo-send-region (start end) "Send the current region to the inferior Goo process." (interactive "r") (comint-send-region (goo-proc) start end) (comint-send-string (goo-proc) "\n")) (defun goo-send-definition () "Send the current definition to the inferior Goo process." (interactive) (save-excursion (end-of-defun) (let ((end (point))) (beginning-of-defun) (goo-send-region (point) end)))) (defun goo-send-last-sexp () "Send the previous sexp to the inferior Goo process." (interactive) (goo-send-region (save-excursion (backward-sexp) (point)) (point))) (defcustom goo-compile-exp-command "(compile '%s)" "*Template for issuing commands to compile arbitrary Goo expressions." :type 'string :group 'goo-shell) (defun goo-compile-region (start end) "Compile the current region in the inferior Goo process. \(A BEGIN is wrapped around the region: (BEGIN ))" (interactive "r") (comint-send-string (goo-proc) (format goo-compile-exp-command (format "(begin %s)" (buffer-substring start end)))) (comint-send-string (goo-proc) "\n")) (defun goo-compile-definition () "Compile the current definition in the inferior Goo process." (interactive) (save-excursion (end-of-defun) (let ((end (point))) (beginning-of-defun) (goo-compile-region (point) end)))) (defun switch-to-goo (eob-p) "Switch to the goo process buffer. With argument, positions cursor at end of buffer." (interactive "P") (if (get-buffer goo-buffer) (pop-to-buffer goo-buffer) (error "No current process buffer. See variable goo-buffer.")) (cond (eob-p (push-mark) (goto-char (point-max))))) (defun goo-send-region-and-go (start end) "Send the current region to the inferior Goo process. Then switch to the process buffer." (interactive "r") (goo-send-region start end) (switch-to-goo t)) (defun goo-send-definition-and-go () "Send the current definition to the inferior Goo. Then switch to the process buffer." (interactive) (goo-send-definition) (switch-to-goo t)) (defun goo-compile-definition-and-go () "Compile the current definition in the inferior Goo. Then switch to the process buffer." (interactive) (goo-compile-definition) (switch-to-goo t)) (defun goo-compile-region-and-go (start end) "Compile the current region in the inferior Goo. Then switch to the process buffer." (interactive "r") (goo-compile-region start end) (switch-to-goo t)) (defcustom goo-source-modes '(goo-mode) "*Used to determine if a buffer contains Goo source code. If it's loaded into a buffer that is in one of these major modes, it's considered a goo source file by goo-load-file and goo-compile-file. Used by these commands to determine defaults." :type '(repeat function) :group 'goo-shell) (defvar goo-prev-l/c-dir/file nil "Caches the last (directory . file) pair. Caches the last pair used in the last goo-load-file or goo-compile-file command. Used for determining the default in the next one.") (defun goo-load-file (file-name) "Load a Goo file into the inferior Goo process." (interactive (comint-get-source "Load Goo file: " goo-prev-l/c-dir/file goo-source-modes t)) ; T because LOAD ; needs an exact name (comint-check-source file-name) ; Check to see if buffer needs saved. (setq goo-prev-l/c-dir/file (cons (file-name-directory file-name) (file-name-nondirectory file-name))) (comint-send-string (goo-proc) (concat "(load \"" file-name "\"\)\n"))) (defun goo-compile-file (file-name) "Compile a Goo file in the inferior Goo process." (interactive (comint-get-source "Compile Goo file: " goo-prev-l/c-dir/file goo-source-modes nil)) ; NIL because COMPILE doesn't ; need an exact name. (comint-check-source file-name) ; Check to see if buffer needs saved. (setq goo-prev-l/c-dir/file (cons (file-name-directory file-name) (file-name-nondirectory file-name))) (comint-send-string (goo-proc) (concat "(compile-file \"" file-name "\"\)\n"))) (defvar goo-buffer nil "*The current goo process buffer. MULTIPLE PROCESS SUPPORT =========================================================================== Goo.el supports, in a fairly simple fashion, running multiple Goo processes. To run multiple Goo processes, you start the first up with \\[run-goo]. It will be in a buffer named *goo*. Rename this buffer with \\[rename-buffer]. You may now start up a new process with another \\[run-goo]. It will be in a new buffer, named *goo*. You can switch between the different process buffers with \\[switch-to-buffer]. Commands that send text from source buffers to Goo processes -- like goo-send-definition or goo-compile-region -- have to choose a process to send to, when you have more than one Goo process around. This is determined by the global variable goo-buffer. Suppose you have three inferior Goos running: Buffer Process foo goo bar goo<2> *goo* goo<3> If you do a \\[goo-send-definition-and-go] command on some Goo source code, what process do you send it to? - If you're in a process buffer (foo, bar, or *goo*), you send it to that process. - If you're in some other buffer (e.g., a source file), you send it to the process attached to buffer goo-buffer. This process selection is performed by function goo-proc. Whenever \\[run-goo] fires up a new process, it resets goo-buffer to be the new process's buffer. If you only run one process, this will do the right thing. If you run multiple processes, you can change goo-buffer to another process buffer with \\[set-variable]. More sophisticated approaches are, of course, possible. If you find yourself needing to switch back and forth between multiple processes frequently, you may wish to consider ilisp.el, a larger, more sophisticated package for running inferior Lisp and Goo processes. The approach taken here is for a minimal, simple implementation. Feel free to extend it.") (defun goo-proc () "Returns the current goo process. See variable goo-buffer." (let ((proc (get-buffer-process (if (eq major-mode 'inferior-goo-mode) (current-buffer) goo-buffer)))) (or proc (error "No current process. See variable goo-buffer")))) ;;; Do the user's customisation... (defcustom goo-load-hook nil "This hook is run when goo is loaded in. This is a good place to put keybindings." :type 'hook :group 'goo-shell) (run-hooks 'goo-shell-load-hook) (provide 'goo-shell) ;;; goo-shell.el ends here goo-0.155/emacs/goo.el0100644000175000017500000002413207550500337014115 0ustar vomjomvomjom;;; goo.el --- Goo editing mode. ;;; Adapted from scheme.el. ;; Author: Greg Sullivan ;; $Id: goo.el,v 1.20 2002/10/08 06:53:19 jknight Exp $ ;; Keywords: languages, lisp ;;; Commentary: ;;; Code: (require 'lisp-mode) (defvar goo-mode-syntax-table nil "") (if (not goo-mode-syntax-table) (let ((i 0) (table (copy-syntax-table lisp-mode-syntax-table))) ;; let's just use Lisp's syntax for now... (setq goo-mode-syntax-table table) (modify-syntax-entry ?| "_ " table) (modify-syntax-entry ?\{ "(} " table) (modify-syntax-entry ?\} "){ " table) ;; (modify-syntax-entry ?- "w " goo-mode-syntax-table) )) (defvar goo-mode-abbrev-table nil "") (define-abbrev-table 'goo-mode-abbrev-table ()) (defvar goo-imenu-generic-expression '((nil "^\\s-*(def\\s-+(?\\(\\sw+\\)" 1) ("Variables" "^\\s-*(dv\\s-+(?\\(\\sw+\\)" 1) ("Functions" "^\\s-*(df\\s-+(?\\(\\sw+\\)" 1) ("Methods" "^\\s-*(dm\\s-+(?\\(\\sw+\\)" 1) ("Generics" "^\\s-*(dg\\s-+(?\\(\\sw+\\)" 1) ("Syntax" "^\\s-*(ds\\s-+(?\\(\\sw+\\)" 1)) "Imenu generic expression for Goo mode. See `imenu-generic-expression'.") (defun goo-mode-variables () (lisp-mode-variables nil) ; use lisp to start with (set-syntax-table goo-mode-syntax-table) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression goo-imenu-generic-expression) (make-local-variable 'imenu-syntax-alist) (setq imenu-syntax-alist '(("+-*/.<>=?!$%_&~^:" . "w"))) (make-local-variable 'imenu-case-fold-search) (setq imenu-case-fold-search nil) (imenu-add-menubar-index) (make-local-variable 'lisp-indent-function) (set lisp-indent-function 'goo-indent-function) (make-local-variable 'indent-tabs-mode) (setq indent-tabs-mode nil) (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '((goo-font-lock-keywords ; by default, same as goo-font-lock-keywords-1 goo-font-lock-keywords-1 goo-font-lock-keywords-2) nil ; keywords-only: nil-> fontify strings * comments too t ; case-fold : t -> ignore case of keywords (("+-*/.<>=!?$%_&~^:" . "w")) ; syntax-alist : ??? beginning-of-defun (font-lock-mark-block-function . mark-defun)))) (defvar goo-mode-line-process "") (defvar goo-mode-map nil "Keymap for Goo mode. All commands in `lisp-mode-shared-map' are inherited by this map.") (if goo-mode-map () (let ((map (make-sparse-keymap "Goo"))) (setq goo-mode-map (make-sparse-keymap)) (set-keymap-parent goo-mode-map (if (or (< emacs-major-version 21) (featurep 'xemacs)) shared-lisp-mode-map lisp-mode-shared-map)) (define-key goo-mode-map [menu-bar] (make-sparse-keymap)) (define-key goo-mode-map [menu-bar goo] ; map is for menu (cons "Goo" map)) (define-key map [run-goo] '("Run Inferior Goo" . run-goo)) (define-key map [uncomment-region] '("Uncomment Out Region" . (lambda (beg end) (interactive "r") (comment-region beg end '(4))))) (define-key map [comment-region] '("Comment Out Region" . comment-region)) (define-key map [indent-region] '("Indent Region" . indent-region)) (define-key map [indent-line] '("Indent Line" . lisp-indent-line)) (put 'comment-region 'menu-enable 'mark-active) (put 'uncomment-region 'menu-enable 'mark-active) (put 'indent-region 'menu-enable 'mark-active))) ;;;###autoload (defun goo-mode () "Major mode for editing Goo code. Editing commands are similar to those of lisp-mode. In addition, if an inferior Goo process is running, some additional commands will be defined, for evaluating expressions and controlling the interpreter, and the state of the process will be displayed in the modeline of all Goo buffers. The names of commands that interact with the Goo process start with \"xgoo-\". For more information see the documentation for xgoo-interaction-mode. Commands: Delete converts tabs to spaces as it moves back. Blank lines separate paragraphs. Semicolons start comments. \\{goo-mode-map} Entry to this mode calls the value of goo-mode-hook if that value is non-nil." (interactive) (kill-all-local-variables) (goo-mode-initialize) (goo-mode-variables) (run-hooks 'goo-mode-hook)) (defun goo-mode-initialize () (use-local-map goo-mode-map) (setq major-mode 'goo-mode) (setq mode-name "Goo")) (defgroup goo nil "Editing Goo code" :group 'lisp) (defcustom goo-mode-hook nil "Normal hook (list of functions) run when entering goo-mode. See `run-hooks'." :type 'hook :group 'goo) (defconst goo-font-lock-keywords-1 (eval-when-compile (list '("(\\(dv\\|df\\|def\\sw*\\|dm\\|dg\\|dp\\|dc\\|dl\\)\\s-+(?\\(\\sw+\\)" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) '("^\\s-*(\\(dss?\\)" . 1))) "Subdued expressions to highlight in Goo modes.") (defconst goo-font-lock-keywords-2 (append goo-font-lock-keywords-1 (eval-when-compile (list (cons (concat "(" (regexp-opt '("if" "seq" "set" "fun" "loc" "lab" "esc" "fin" "try" "sig" "isa" "slot" "ct" "expand" "quote" "rep" "mif" "and" "or" "unless" "when" "incf" "decf" "inc" "dec" "case" "select" "for" "let" "packing" "pack" "use" "export" "need-implementation" "ct-also" "pushf" "popf" "dlet") t) "\\>") 1) '("\\(#t\\|#f\\|=>\\)" . font-lock-keyword-face) ;; David Fox for SOS/STklos class specifiers. '("\\<<\\sw+>\\>" . font-lock-type-face)))) "Gaudy expressions to highlight in Goo modes.") (defvar goo-font-lock-keywords goo-font-lock-keywords-1 "Default expressions to highlight in Goo modes.") (defvar calculate-lisp-indent-last-sexp) ;; Copied from lisp-indent-function, but with gets of ;; goo-indent-{function,hook}. (defun goo-indent-function (indent-point state) (let ((normal-indent (current-column))) (goto-char (1+ (elt state 1))) (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) (if (and (elt state 2) (not (looking-at "\\sw\\|\\s_"))) ;; car of form doesn't seem to be a a symbol (progn (if (not (> (save-excursion (forward-line 1) (point)) calculate-lisp-indent-last-sexp)) (progn (goto-char calculate-lisp-indent-last-sexp) (beginning-of-line) (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t))) ;; Indent under the list or under the first sexp on the same ;; line as calculate-lisp-indent-last-sexp. Note that first ;; thing on that line has to be complete sexp since we are ;; inside the innermost containing sexp. (backward-prefix-chars) (current-column)) (let ((function (buffer-substring (point) (progn (forward-sexp 1) (point)))) method) (setq method (or (get (intern-soft function) 'goo-indent-function) (get (intern-soft function) 'goo-indent-hook))) (message "got %s for method for %s" method function) (cond ((and (stringp method) (string= method "define")) ; new for goo (lisp-indent-defform state indent-point)) ((integerp method) (lisp-indent-specform method state indent-point normal-indent)) (method (funcall method state indent-point normal-indent))))))) ;;; Let is different in Goo (defun would-be-symbol (string) (not (string-equal (substring string 0 1) "("))) (defun next-sexp-as-string () ;; Assumes that protected by a save-excursion (forward-sexp 1) (let ((the-end (point))) (backward-sexp 1) (buffer-substring (point) the-end))) ;; This is correct but too slow. ;; The one below works almost always. ;;(defun goo-let-indent (state indent-point) ;; (if (would-be-symbol (next-sexp-as-string)) ;; (goo-indent-specform 2 state indent-point) ;; (goo-indent-specform 1 state indent-point))) (defun goo-let-indent (state indent-point normal-indent) (skip-chars-forward " \t") (if (looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]") (lisp-indent-specform 2 state indent-point normal-indent) (lisp-indent-specform 1 state indent-point normal-indent))) ;; (put 'begin 'goo-indent-function 0), say, causes begin to be indented ;; like defun if the first form is placed on the next line, otherwise ;; it is indented like any other form (i.e. forms line up under first). ;; (gregs) The number can be thought of as how many "required" expressions ;; are consumed before "normal" indentation happens. (put 'seq 'goo-indent-function 0) (put 'fun 'goo-indent-function 1) (put 'loc 'goo-indent-function 1) (put 'let 'goo-indent-function 'goo-let-indent) (put 'dlet 'goo-indent-function 'goo-let-indent) (put 'fin 'goo-indent-function 0) (put 'try 'goo-indent-function 1) (put 'unless 'goo-indent-function 1) (put 'when 'goo-indent-function 1) (put 'cond 'goo-indent-function 0) (put 'case 'goo-indent-function 1) (put 'case-by 'goo-indent-function 2) (put 'match 'goo-indent-function 2) (put 'ct 'goo-indent-function 0) (put 'ct-also 'goo-indent-function 0) (put 'seq 'goo-indent-function 0) (put 'for 'goo-indent-function 1) (put 'lab 'goo-indent-function 1) (put 'esc 'goo-indent-function 1) (put 'rep 'goo-indent-function 2) (put 'packing 'goo-indent-function 1) (put 'use 'goo-indent-function 1) (put 'export 'goo-indent-function 0) (put 'need-implementation 'goo-indent-function 0) (put 'new 'goo-indent-function 1) ;;; deprecated (put 'isa 'goo-indent-function 1) (put 'select 'goo-indent-function 1) (put 'blk 'goo-indent-function 1) (put 'itr 'goo-indent-function 'goo-let-indent) (put 'mon 'goo-indent-function 1) ;; defining forms: (put 'dv 'goo-indent-function "define") (put 'df 'goo-indent-function "define") (put 'dp 'goo-indent-function "define") (put 'dl 'goo-indent-function "define") (put 'dm 'goo-indent-function "define") (put 'dg 'goo-indent-function "define") (put 'ds 'goo-indent-function "define") (put 'dss 'goo-indent-function "define") ;;; deprecated (put 'def 'goo-indent-function "define") (setq auto-mode-alist (cons '("\\.goo\\'" . goo-mode) auto-mode-alist)) (provide 'goo) ;;; goo.el ends here goo-0.155/install-sh0100755000175000017500000001124507504005520013715 0ustar vomjomvomjom#! /bin/sh # # install - install a program, script, or datafile # This comes from X11R5. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. # # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" transformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 goo-0.155/mkinstalldirs0100755000175000017500000000133207504005520014513 0ustar vomjomvomjom#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain # $Id: mkinstalldirs,v 1.1 2002/06/19 04:40:48 jknight Exp $ errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here goo-0.155/src/0040755000175000017500000000000007756746032012523 5ustar vomjomvomjomgoo-0.155/src/CVS/0040755000175000017500000000000007756746031013155 5ustar vomjomvomjomgoo-0.155/src/CVS/Root0100644000175000017500000000003307756746024014016 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/CVS/Repository0100644000175000017500000000001007756746024015245 0ustar vomjomvomjomgoo/src goo-0.155/src/CVS/Entries0100644000175000017500000000043407756746031014507 0ustar vomjomvomjom/Makefile.in/1.2/Sat Jul 6 04:32:37 2002// /goo.goo/1.47/Tue Jan 14 22:10:05 2003// /tests.goo/1.6/Mon Mar 25 03:37:44 2002// D/cols//// D/demos//// D/eval//// D/extras//// D/goo//// D/gui//// D/interpreters//// D/music//// D/nest//// D/samurui//// D/tests//// D/time//// D/util//// goo-0.155/src/Makefile.in0100644000175000017500000000163607511471345014562 0ustar vomjomvomjom## generic autoconf stuff SHELL = /bin/sh VPATH = @srcdir@ subdirs = @subdirs@ top_srcdir = @top_srcdir@ srcdir = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ datadir = @datadir@ bindir = $(exec_prefix)/bin infodir = $(prefix)/info libdir = $(prefix)/lib/goo/ mandir = $(prefix)/man/man1 exe_suffix=@exe_suffix@ INSTALL = @INSTALL@ INSTALL_PROGRAM=@INSTALL_PROGRAM@ INSTALL_SCRIPT=@INSTALL_PROGRAM@ INSTALL_DATA=@INSTALL_DATA@ ## end autoconf GOO_LIB = $(libdir)/lib GOO_MODS = $(libdir)/mods GOO_DOC = $(datadir)/doc/goo/ DEF='/^(d\w+[ \t]+(?\([^ \t()]+\)/\1/' ETAGS=etags --language=none --regex=$(DEF) all: install: all $(top_srcdir)/mkinstalldirs $(GOO_MODS) find . -name \*.goo -exec $(INSTALL_DATA) -D {} $(GOO_MODS)/{} \; clean: distclean: clean rm -f TAGS Makefile tags: local-tags local-tags: $(ETAGS) *.goo all-tags: find . -name \*.goo | $(ETAGS) - .PHONY: all tags local-tags all-tags goo-0.155/src/goo.goo0100644000175000017500000001416207611105275014002 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/any) (use goo/mag) (use goo/log) (use goo/chr) (use goo/math) (use goo/functional) (use goo/loc) (use goo/sym) (use goo/conditions) (use goo/cols) (use goo/packer) (use goo/io/write) (use goo/io/read) (use goo/io/port) (use goo/late-macros) (export ;; Section 1.1/2.1: Special forms. IF SEQ SET FUN LET DEF LOC ESC FIN D. DV DDV DM DG DP DP! DC MACRO-EXPAND SUP APP-SUP QUOTE CT CT-ALSO DS USE USE/MANGLE USE/EXPORT USE/INCLUDE USE/LIBRARY EXPORT ;; Section 1.2/2.2: Macros. DF TRY REP MIF AND OR CASE CASE-BY COND MATCH UNLESS WHEN ASSERT FOR WHILE UNTIL OPF PUSHF POPF INCF DECF SWAPF ROTF OR/SET OP PUB EXPORTED PACKING-WITH PACKING-IN PACKING PACKING-AS PACK-IN PACK PACKED PACKER PACKER-FAB PACKER-ADD PACKER-RES RENEW ;; TODO: TEMPORARY ;; Section 1.3: Read macros. quasiquote ;; Section 3.1: Any. as new class-of clone ;; Section ?.?: Type. class-parents class-children class-direct-props class-ancestors class-props class-name type-object type-class union-elts product-elts ;; Section 3.2: Comparables. == = < ~= ~== > <= >= min max subtype? isa? may-isa? ;; Section 3.4: Booleans. not ;; Section 3.5: Characters. lower? upper? to-lower to-upper alpha? digit? to-digit eof-object? ;; Section 3.6: Numbers. ;; Not included: gcd, lcm (which seem to be missing). + 1+ - 1- * / floor ceil round trunc floor/ ceil/ round/ trunc/ mod mod+ modincf rem div pos? zero? neg? neg abs *print-base* num-to-str num-to-str-base str-to-num log logn pow sqrt isqrt sin cos tan asin acos atan atan2 sinh cosh tanh $pi $e #| ^ & ~ bit? even? odd? << >> >>> $max-int $min-int flo-bits loc-val loc-val-setter address-of ;; Section 3.7: Collections. len elt elt-or elts low-elt dup col-res col-res-type nul? nul elt-default elt-type key-type key-test fab fabs fill any? all? fold fold+ find find-or del zap do do2 do3 map map2 do-keyed map-keyed mem? keys items zap find find-or del! elt! add! zap! fill! into elt-setter low-elt-setter len-setter len/fill-setter range-error-collection range-error-key ;; 3.7.1: Iteration protocol. enum fin? nxt now now-setter now-key ;; 3.7.2: Maps. col ;; assocs-test tab-growth-factor tab-growth-threshold tab-shrink-threshold tab-hash id-hash ;; $permanent-hash-state tab-gc-state case-insensitive-string-hash case-insensitive-string-equal ;; 3.7.3: Sequences. add 1st 2nd 3rd last pos rev cat cat2 sub sub* push pop pick reject ins del-vals del-dups finds sort sort-by prefix? suffix? repeat split join add! rev! cat! sub-setter sub*-setter push! pop! del-vals! del-dups! sort! sort-by! ;; 3.7.4 Tuples. tup ;; 3.7.5 (the first one): Lists. head head-setter tail tail-setter lst list pair nil push! pop! ;; 3.7.5 (the second one): Optionals. ;; 3.7.6 (the first one): Flat sequences. str to-str vec low-elt low-elt-setter ;; 3.7.6 (the second one): Ranges. range range-by from below ;; 3.7.7: Steps. first-then each zip unzip cycle ;; Section 3.8: Symbols. as cat-sym gensym fab-setter-name var-name var-type ;; Section 3.9: Props. prop-owner prop-getter prop-setter prop-type prop-init prop-value prop-value-setter prop-bound? find-getter find-setter add-prop ;; Section 3.10: Functions. fun-name fun-names fun-specs fun-nary? fun-arity fun-val identity compose curry rcurry always app fun-mets gen-add-met ord-app-mets met-app? ;; Section 3.11: Conditions. default-handler sig condition-message condition-arguments error handler-function fab-handler handler-matches? type-error-value type-error-type call-error-function call-error-arguments narity-error arity-error no-next-methods-error unbound-variable-error-variable macro-error-name macro-error-arguments internal-error assert-error property-error-generic property-error-owner ;; Section 3.12: Ports. get gets peek ready? port-line in out open close with-port newline force-out put puts file-opening-error-filename port-contents port-index port-to-str ;; Section 3.13: In. read read-from-string ;; TODO - Defined in top, where we can't export it: read-file ;; Section 3.14: Output. write emit writeln write-to-string msg post say msg-to-str *max-print-length* *max-print-depth* ;; Section 3.15: System. app-filename app-args ;; Section 3.16: Top level. ;; See goo/eval. ;; Undocumented stuff. This was all found by a process of trial and ;; error, but it needs to be here. match-atom match-nul-list match-unquote match-sublist %pair fab-pair %next-methods %define-method %prop %prop-unbound-error $default-handler-info handler-info-message handler-info-arguments napp ;; Stuff which should be documented. need-implementation bound? dlet t+ t= t< t? t* describe-condition ) ;; TODO: TEMPORARY (export any2? all2?) ;; TODO: DEPRECATED (export empty? empty) ;; TODO: HYGIENE (export fab-class pe-msg macro-error %prop %fun-reg @not @== @checked-next-methods prop-value-at prop-value-at-setter ) goo-0.155/src/tests.goo0100644000175000017500000000023407447515610014360 0ustar vomjomvomjom;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use tests/driver) (use tests/language) (use tests/dependency) (export run-all-tests) goo-0.155/src/cols/0040755000175000017500000000000007756746024013464 5ustar vomjomvomjomgoo-0.155/src/cols/CVS/0040755000175000017500000000000007756746024014117 5ustar vomjomvomjomgoo-0.155/src/cols/CVS/Root0100644000175000017500000000003307756746024014756 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/cols/CVS/Repository0100644000175000017500000000001507756746024016212 0ustar vomjomvomjomgoo/src/cols goo-0.155/src/cols/CVS/Entries0100644000175000017500000000026307756746024015451 0ustar vomjomvomjom/assoc.goo/1.9/Thu Mar 28 02:02:38 2002// /pipe.goo/1.2/Thu Jul 18 03:50:44 2002// /priority-queue.goo/1.11/Wed Sep 11 21:32:53 2002// /treap.goo/1.2/Thu Sep 19 00:28:42 2002// D goo-0.155/src/cols/assoc.goo0100644000175000017500000000234207450474676015302 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/macros) (use goo/types) (use goo/math) (use goo/cols/col) (use goo/cols/map) (use goo/cols/seq) (use goo/cols/lst) ;; 3.7.2.1 ASSOCIATIONS ;;;;!! Interface (exported (dc ( )) (dp assocs-test ( => ) ==) ) ;;;;!! Implementation (dp assocs-keys ( => ) '()) (dp assocs-vals ( => ) '()) ;;;; Collection protocol (dm len (x| => ) (len (assocs-keys x))) (dm elt-or (x| key default => ) (rep fnd ((keys| (assocs-keys x)) (vals| (assocs-vals x))) (if (== keys '()) default (if ((assocs-test x) key (head keys)) (head vals) (fnd (tail keys) (tail vals)))))) (dm elt-setter (val x| key) (rep fnd ((keys| (assocs-keys x)) (vals| (assocs-vals x))) (if (== keys '()) (seq (set (assocs-keys x) (pair key (assocs-keys x))) (set (assocs-vals x) (pair val (assocs-vals x))) val) (if ((assocs-test x) key (head keys)) (set (head vals) val) (fnd (tail keys) (tail vals)))))) (dm fab ((c (t= )) s| => ) (new )) goo-0.155/src/cols/pipe.goo0100644000175000017500000000441107515435424015114 0ustar vomjomvomjom(use goo) (use goo/cols/rep) (use goo/cols/seq) (use goo/cols/col) (use goo/math) (use time/lock) (use time/event) (dc ( )) (dp pipe-data ( => )) (dp pipe-get-idx ( => ) 0) (dp pipe-put-idx ( => ) 0) (dp pipe-lock ( => )) (dp pipe-available ( => )) (dm fab (c|(t= ) s| => ) (def dat (rep-fab (power-of-two-ceil s) #f)) (new pipe-data dat pipe-lock (new ) pipe-available (new ))) (df @len (c| => ) (mod (- (pipe-put-idx c) (pipe-get-idx c)) (rep-len (pipe-data c))))) (dm len (c| => ) (with-lock (pipe-lock c) (@len c))) (dm grow-pipe! (c|) (def odat (pipe-data c)) (def olen (rep-len odat)) (def ndat (rep-fab (max 2 (power-of-two-ceil (+ (rep-len odat) 1))) #f)) (rep loop ((i (pipe-get-idx c)) (j 0)) (unless (= i (pipe-put-idx c)) (set (rep-elt ndat j) (rep-elt odat i)) (loop (mod (+ i 1) olen) (+ j 1)))) (set (pipe-data c) ndat) (set (pipe-put-idx c) (@len c)) (set (pipe-get-idx c) 0)) (dm add! (c| x => ) (with-lock (pipe-lock c) (def len (@len c)) (when (>= (+ len 1) (rep-len (pipe-data c))) (grow-pipe! c)) (when (= len 0) (event-signal (pipe-available c) (pipe-lock c))) (set (rep-elt (pipe-data c) (pipe-put-idx c)) x) (modincf (pipe-put-idx c) (rep-len (pipe-data c))) c)) (dm enq! (c| x => ) (add! c x)) (dm deq! (c| => ) (with-lock (pipe-lock c) (when (= (@len c) 0) (event-wait (pipe-available c) (pipe-lock c))) (def res (rep-elt (pipe-data c) (pipe-get-idx c))) (modincf (pipe-get-idx c) (rep-len (pipe-data c))) res)) (dm zap! (c| => ) (with-lock (pipe-lock c) (set (pipe-get-idx c) 0) (set (pipe-put-idx c) 0) c)) (df pipe-idx (x| i| => ) (with-lock (pipe-lock x) (mod (+ i (pipe-get-idx x)) (rep-len (pipe-data x))))) (dm low-elt (x| i| => ) (rep-elt (pipe-data x) (pipe-idx x i))) (dm low-elt-setter (z x| i|) (set (rep-elt (pipe-data x) (pipe-idx x i)) z)) (dm elt-or (c| i| default => ) (if (range-check? c i) (low-elt c i) default)) (export enq! deq!) goo-0.155/src/cols/priority-queue.goo0100644000175000017500000000363107537733205017167 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/conditions) (dc ()) (dp queue-data ( => ) (fab 0)) (dp queue-test ( => ) <) (dp queue-key ( => ) (op _)) (dm ref (q| i| => ) (elt (queue-data q) (- i 1))) (dm ref-setter (v q| i|) (set (elt (queue-data q) (- i 1)) v)) (dm len (q| => ) (len (queue-data q))) (dm size-setter (v| q|) (set (len (queue-data q)) v)) (dm parent (i| => ) (1st (trunc/ i 2))) (dm left (i| => ) (* i 2)) (dm right (i| => ) (+ (* i 2) 1)) (dm heapify (q| i|) (def l (left i)) (def r (right i)) (def tst (queue-test q)) (def max (if (and (<= l (len q)) (tst (ref q l) (ref q i))) l i)) (when (and (<= r (len q)) (tst (ref q r) (ref q max))) (set max r)) (unless (= max i) (swapf (ref q i) (ref q max)) (heapify q max))) (dm build-heap (q|) (for ((i (range (1st (trunc/ (len q) 2) 1) <=))) (heapify q i))) (dm heap-extract-max (q| => ) (when (< (len q) 1) ;; TODO: RANGE ERROR (error "Heap underflow %=" q)) (def max (ref q 1)) (set (ref q 1) (ref q (len q))) (set (size q) (- (len q) 1)) (heapify q 1) max) (dm heap-insert (q| key) (add! (queue-data q) key) (rep loop ((i (len q))) ;; (msg out "i = %d\n" i) (if (and (> i 1) ((queue-test q) key (ref q (parent i)))) (seq (set (ref q i) (ref q (parent i))) (loop (parent i))) (set (ref q i) key)))) (dm priority-order (test| keys| => ) (def q (new queue-test test)) (do (fun (x) (heap-insert q x)) keys) (packing (while (> (len q) 0) (pack (heap-extract-max q))))) (export priority-order) goo-0.155/src/cols/treap.goo0100644000175000017500000003152307542215072015271 0ustar vomjomvomjom;; ;; Copyright 2002 by Neelakantan Krishnaswami ;; ;; Permission is hereby granted, free of charge, to any person obtaining ;; a copy of this software and associated documentation files (the ;; "Software"), to deal in the Software without restriction, including ;; without limitation the rights to use, copy, modify, merge, publish, ;; distribute, sublicense, and/or sell copies of the Software, and to ;; permit persons to whom the Software is furnished to do so, subject to ;; the following conditions: ;; ;; The above copyright notice and this permission notice shall be ;; included in all copies or substantial portions of the Software. ;; ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ;; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR ;; OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ;; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;; OTHER DEALINGS IN THE SOFTWARE. ;; ;; ============ ;; Author: Neel Krishnaswami ;; Date: 7-Aug-2002 ;; Version 0.2 ;; ;; A randomized treap is just about the simplest balanced binary tree ;; algorithm there is. Both insertion and deletion routines are a few ;; dozen lines, and it has excellent performance. Algorithmically, ;; they offer O(log n) average-case insertion, lookup and deletion. ;; In practice, they compare favorably even with more sophisticated ;; data structures like red-black trees or 2-3 trees, because they ;; have so little code that their constant factors are great. ;; ;; The implementation here is based on the algorithm described in ;; Aragon and Seidel's paper, "Randomized Search Trees". The Citeseer ;; link is . ;; Changes to 0.2 from 0.1 ;; * Wrote some test routines ;; * Found a balance-related bug in add-key and fixed it. ;; * Added protocol for custom treaps ;; * Added a method for key-test, so it give the right equality function ;; * Fixed an argument transposition in remove-tree ;; IMPORTS (use goo) (use random) ;; This is just for testing -- is deterministic! ;; Usage notes: ;; ;; Some performance notes: ;; ;; add-key -- O(log n) expected time ;; del -- O(log n) expected time ;; elt -- O(log n) expected time ;; nul? -- O(1) ;; len -- O(n) ;; mem? -- O(n) ;; ;; The default uses '<' as the comparison routine. You can ;; replace it with a custom comparison by subclassing and ;; overriding 'treap-cmp'. Eg: ;; ;; (dc ()) ;; (dm treap-cmp (t| => ) my-cmp) ;; ;; Wishlist: ;; ;; 1. It would be nice to keep track of the number of successful ;; insertions in the record, so that we could offer an O(1) ;; 'len' method. ;; ;; 2. Clean up the error reporting. I just use 'error' to signal ;; any errors, because I don't what the condition hierarchy looks ;; like. ;; ;; 3. Some tests would be nice. I wrote this in an afternoon and a ;; bit, testing at the command prompt. Goo is still new enough that ;; it's possible that things I thought were goo errors are actually ;; my bugs. ;; ;; Internal implementation of binary trees. The only unusual one is ;; the 'pri' field. It holds a bunch of random numbers, and the ;; insertion/deletion are constrained to make sure that the pri fields ;; are in heap order. This is what makes randomized treaps balance. (dc ()) (dc ()) (dc ()) (dp lft ( => )) (dp pri ( => )) (dp key ( => )) (dp val ( => )) (dp rgt ( => )) (df tree-node (l| n| k| v| r| => ) (new lft l pri n key k val v rgt r)) (dv tree-nil (new )) (dc ( )) (dp seed ( => )) (dp tree ( => )) ;; We immediately implement the collection protocol, because goo will ;; crash if we try to build the nul collection without these methods ;; existing. That's why they aren't down with the rest of the ;; protocol implementation. (dc ()) (dp tree-list ( => )) (dm enum (x| => ) (def lst (if (== tree-nil (tree x)) '() (list (tree x)))) (new tree-list lst)) (dm fin? (x| => ) (nul? (tree-list x))) (dm nxt (x| => ) (def lst (tree-list x)) (def l (lft (head lst))) (def r (rgt (head lst))) (def next-lst (tail lst)) (def next-lst (if (== r tree-nil) next-lst (pair r next-lst))) (def next-lst (if (== l tree-nil) next-lst (pair l next-lst))) (new tree-list next-lst)) (dm now (x| => ) (val (head (tree-list x)))) (dm now-key (x| => ) (key (head (tree-list x)))) ;; Here's a small linear congruential rng. The two properties that ;; make it suitable in this case are a) it's frigging fast, and b) it ;; doesn't repeat. ;; ;; This rng probably isn't all that hot if you have small , ;; because there's a decent chance of getting short increasing runs. ;; That would reduce the balanced-ness of small collections.... (dv shift (pow 2 26)) (df rand (x| => ) (mod (+ 1 (* 5 x)) shift)) ;; treap-cmp ;; Now we add a method to get the treap's comparison method. The ;; default method uses the generic < comparison operator. Subclasses ;; should override this method. (dm treap-cmp (t| => ) <) ;; Now let's define the unique nul treap. Down below it will ;; get wrapped around the 'nul' method, but internally it ;; gets used directly. (dv nul-treap (new seed 48637761 tree tree-nil)) ;; rot-l and rot-r stand for 'rotate left' and 'rotate right'. These ;; are pretty standard binary tree manipulations, though to truly ;; understand them, you need a nifty little diagram, which ASCII can't ;; do. (df rot-r (t| => ) (let ((a (lft (lft t))) (n (pri (lft t))) (xk (key (lft t))) (xv (val (lft t))) (b (rgt (lft t))) (m (pri t)) (yk (key t)) (yv (val t)) (c (rgt t))) (tree-node a n xk xv (tree-node b m yk yv c)))) (df rot-l (t| => ) (let ((a (lft t)) (n (pri t)) (xk (key t)) (xv (val t)) (b (lft (rgt t))) (m (pri (rgt t))) (yk (key (rgt t))) (yv (val (rgt t))) (c (rgt (rgt t)))) (tree-node (tree-node a n xk xv b) m yk yv c))) ;; Now we can define the heart of this library, the add-tree and ;; remove-tree methods, which insert and remove elements into a tree ;; while preserving the balance conditions. The basic idea behind ;; inserts is to insert the element as for unbalanced trees, and then ;; take a random number (that's p) for the new node's priority. Then ;; you do the heap-ordering shuffle (which takes log n time), and you ;; statistically likely to have a balanced tree. Tres cool. (dm add-tree (t| p| k| v| <| => ) (tree-node tree-nil p k v tree-nil)) (dm add-tree (t| p-new| k-new| v-new| <| => ) (if (< k-new (key t)) (let ((l-new (add-tree (lft t) p-new k-new v-new <))) (let ((t* (tree-node l-new (pri t) (key t) (val t) (rgt t)))) (if (< (pri t) (pri l-new)) (rot-r t*) t*))) (if (< (key t) k-new) (let ((r-new (add-tree (rgt t) p-new k-new v-new <))) (let ((t* (tree-node (lft t) (pri t) (key t) (val t) r-new))) (if (< (pri t) (pri r-new)) (rot-l t*) t*))) ;; (tree-node (lft t) p-new k-new v-new (rgt t))))) (tree-node (lft t) (pri t) k-new v-new (rgt t))))) ;; Deletion routine. It's short, but you should look at Seidel & ;; Aragon for details. To understand this you really need the picture. (dm remove-root (t| => ) (error "remove-tree; key not in tree!")) (dm remove-root (t| => ) (def l* (lft t)) (def k* (key t)) (def v* (val t)) (def p* (pri t)) (def r* (rgt t)) (cond ( (== l* tree-nil) r*) ( (== r* tree-nil) l*) ( t (if (< (pri r*) (pri l*)) (seq (def t* (rot-r t)) (def r** (remove-root (rgt t*))) (tree-node (lft t*) (pri t*) (key t*) (val t*) r**)) (seq (def t* (rot-l t)) (def l** (remove-root (lft t*))) (tree-node l** (pri t*) (key t*) (val t*) (rgt t*))))))) (dm remove-tree (t| k| <| => ) (error "remove-tree: key not in tree!" )) (dm remove-tree (t| k| <| => ) (def l* (lft t)) (def k* (key t)) (def v* (val t)) (def p* (pri t)) (def r* (rgt t)) (cond ( (< k k*) (tree-node (remove-tree l* k <) p* k* v* r*)) ( (< k* k) (tree-node l* p* k* v* (remove-tree r* k <))) ( #t (remove-root t)))) ;; The usual accessors. ;; add-key adds a binding to a treap (dm add-key (t| k| v| => ) (let ((p (rand (seed t)))) (new tree (add-tree (tree t) p k v (treap-cmp t)) seed p))) ;; del removes a binding. (dm del (t| k| => ) (new tree (remove-tree (tree t) k (treap-cmp t)) seed (seed t))) ;; elt does a lookup, and cow goes moo. (dm elt (t| k| => ) (let ((< (treap-cmp t))) (loc ((search (t| => ) (cond ( (< k (key t)) (search (lft t))) ( (< (key t) k) (search (rgt t))) (#t (val t))))) (search (tree t))))) ;; nul is the Goo-standard interface, so we'll support that. (dm nul (t|(t= ) => ) nul-treap) ;; col is the standard collection constructor. (dm col (t|(t= ) key-vals|... => ) (def n (len key-vals)) (unless (even? n) (error "col: unbalanced key/val pairs")) (loc ((loop (i| new-treap| => ) (if (< i (1st (trunc/ n 2))) (seq (def k (elt key-vals (* 2 i))) (def v (elt key-vals (+ 1 (* 2 i)))) (loop (+ i 1) (add-key new-treap k v))) new-treap))) (loop 0 nul-treap))) ;; key-test -- we override key-test so that the enumeration methods ;; will do the right things. (dm key-test (t| => ) (let ((< (treap-cmp t))) (fun (a| b| => ) (and (< a b) (< b a))))) ;; ;; Some simple tests to check that the balancing routines work. To use ;; the tests ;; (dm binary-tree? (t| <| => ) #t) (dm binary-tree? (t| <| => ) (def l (lft t)) (def r (rgt t)) (cond ( (and (== l tree-nil) (== r tree-nil)) #t) ( (== l tree-nil) (and (< (key t) (key r)) (binary-tree? r <))) ( (== r tree-nil) (and (< (key l) (key t)) (binary-tree? l <))) ( #t (and (< (key l) (key t)) (< (key t) (key r)) (binary-tree? l <) (binary-tree? r <))))) (dm heap? (t| => ) #t) (dm heap? (t| => ) (def l (lft t)) (def r (rgt t)) (cond ( (and (== l tree-nil) (== r tree-nil)) #t) ( (== l tree-nil) (and (> (pri t) (pri r)) (heap? r))) ( (== r tree-nil) (and (> (pri t) (pri l)) (heap? l))) ( #t (and (> (pri t) (pri r)) (> (pri t) (pri l)) (heap? l) (heap? r))))) (df treap-test (t| => ) (def h? (heap? (tree t))) (def b? (binary-tree? (tree t) (treap-cmp t))) (if h? (msg out "Passed heap-ness check\n") (msg out "FAILED heap-ness check\n")) (if b? (msg out "Passed binary-tree-ness check\n") (msg out "FAILED binary-tree-ness check\n")) (and h? b?)) ;; random-treap builds a treap with randomly chosen keys. This makes ;; it convenient to write torture tests for insertion. (df random-treap (n m) (fold (fun (acc i) (add-key acc (random m) #f)) (nul ) (below n))) ;; To support printf-style debugging. (dm print-tree (t|) (print-tree (tree t))) (dm print-tree (t|) (msg out "nil")) (dm print-tree (t|) (msg out "(") (msg out "lft: ") (print-tree (lft t)) (msg out " pri: %=" (pri t)) (msg out " key: %=" (key t)) (msg out " val: %=" (val t)) (msg out " rgt: ") (print-tree (rgt t)) (msg out ")")) ;; EXPORTS ;; ;; We only export 3 names, because we mostly just override existing ;; collection protocols. jrb has sure found a comfortable set of ;; collection routines. (export ) (export add-key) ;; for s parallel to . (export treap-cmp) ;; Exports for testing (export treap-test) (export random-treap) (export print-tree) goo-0.155/src/eval/0040755000175000017500000000000007756746025013454 5ustar vomjomvomjomgoo-0.155/src/eval/CVS/0040755000175000017500000000000007756746025014107 5ustar vomjomvomjomgoo-0.155/src/eval/CVS/Root0100644000175000017500000000003307756746025014746 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/eval/CVS/Repository0100644000175000017500000000001507756746025016202 0ustar vomjomvomjomgoo/src/eval goo-0.155/src/eval/CVS/Entries0100644000175000017500000000131207756746025015435 0ustar vomjomvomjom/ast-eval.goo/1.47/Tue Jan 14 22:10:05 2003// /ast-linearize.goo/1.39/Thu Sep 19 00:28:42 2002// /ast-print.goo/1.14/Tue Jan 14 22:10:05 2003// /ast.goo/1.73/Wed Nov 19 19:50:49 2003// /decision-trees.goo/1.15/Tue Jan 14 22:10:05 2003// /dependency.goo/1.10/Thu Sep 19 00:28:42 2002// /g2c.goo/1.65/Wed Nov 19 19:50:49 2003// /g2m.goo/1.17/Thu Sep 19 00:28:42 2002// /main.goo/1.72/Wed Nov 19 19:50:49 2003// /module.goo/1.3/Mon Oct 20 22:45:12 2003// /optimize.goo/1.10/Thu Sep 19 00:28:42 2002// /profiler.goo/1.2/Tue Jan 14 22:10:05 2003// /syntax.goo/1.34/Tue Jan 14 22:10:05 2003// /top.goo/1.44/Tue Jan 14 22:10:05 2003// /typist.goo/1.13/Tue Jan 14 22:10:05 2003// /vm.goo/1.10/Tue Jan 14 22:10:05 2003// D goo-0.155/src/eval/ast-eval.goo0100644000175000017500000003663407611105275015671 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;; BASED ON Lisp In Small Pieces by Christian Queinnec (use goo/boot) (use goo/fun) (use goo/macros) (use goo/loc) (use goo) (use goo/cols/rep) (use eval/ast) ;;; ENV ;;; Global binding box support. Right now, we allocate storage boxes for ;;; each lazily, and we assume the absence of a box ;;; means the binding is uninitialized. When we implement a "LISP in ;;; Small Pieces"-style fast intepreter, we may want to change this around. (dm env-global-binding-value (b| => ) (def box (binding-global-box b)) (if box (global-box-value box) (sig (new unbound-variable-error-variable (binding-name b))))) (dm env-global-binding-value-setter (value b| => ) (def box (binding-global-box b)) (unless box ;; Lazy box creation. ;; TODO - Should we mark this binding non-free at some point? Ask jrb. (set box (set (binding-global-box b) (new )))) (set (global-box-value box) value)) (dm env-global-binding-bound? (b| => ) (def box (binding-global-box b)) (if box #t #f)) ;;; s don't need boxes--they already have storage space ;;; allocated in the C runtime. (dm env-runtime-value (x|) (loc-val x)) (dm env-runtime-value-setter (v x|) (set (loc-val x) v)) ;;; s don't need boxes--they already have storage space ;;; allocated in the thread local storage. (dm env-dynamic-value (x| => ) (%dyn-var-val (loc-val x))) (dm env-dynamic-value-setter (v x|) (set (%dyn-var-val (loc-val x)) v) v) (dc ()) (dp env-parent ( => ) #f) (dp env-function ( => ) #f) (dp env-names ( => ) '()) (dp env-values ( => ) ) (dv $nul-loc-env (new )) (dm env-frame! (env| function names| args| => ) (def values (rep-into! (rep-fab (len args) #f) args)) (new env-parent env env-function function env-values values env-names names)) (dm env-local-value (env| i| j|) (if (= i 0) (rep-elt (env-values env) j) (env-local-value (env-parent env) (- i 1) j))) (dm env-local-value-setter (v env| i| j|) (if (= i 0) (set (rep-elt (env-values env) j) v) (set (env-local-value (env-parent env) (- i 1) j) v))) ;; TODO: SHOULD GO AWAY SOON (dm env-binding-value (env| name| => ) (if (== env $nul-loc-env) #f (rep loop ((names (env-names env)) (i 0)) (if (nul? names) (env-binding-value (env-parent env) name) (if (== name (head names)) (rep-elt (env-values env) i) (loop (tail names) (+ i 1))))))) (dm env-binding-value-setter (v env| name|) (rep loop ((names (env-names env)) (i 0)) (if (nul? names) (set (env-binding-value (env-parent env) name) v) (if (== name (head names)) (set (rep-elt (env-values env) i) v) (loop (tail names) (+ i 1)))))) ;;; EVAL ;; TODO - Rename ast-eval to ast-eval-(in|env) and ast-evalutate to ast-eval. ;; Or something like that. (dm ast-evaluate (e|) (ast-eval e $nul-loc-env)) (dg ast-eval (e| env|)) (dm ast-eval (e| env|) (constant-value e)) (dm ast-eval (e| env|) (constant-value e)) (dm ast-eval (e| ee|) (ast-evaluate (compile-time-program e))) (dm ast-eval-specs (specs| nary?| env| => ) (def nreq (if nary? (- (len specs) 1) (len specs))) (rep loop ((res '()) (specs specs) (i 0)) (if (= i nreq) (rev! res) (let ((spec (head specs)) (type (if spec (ast-eval spec env) ))) (loop (pair type res) (tail specs) (+ i 1)))))) ;;; Check to make sure we have a legal number of arguments, and arrange ;;; them in the fashion required by our argument list. ;;; TODO - There's probably another one of these functions hiding somewhere ;;; in the compiler or runtime. Look for it, and see if we can use it instead ;;; of this code. ;;; TODO - Add function name argument for better error messages. (df arrange-arguments (f nary?| arity| args| => ) (def count (len args)) (if nary? (if (< count arity) (narity-error f args) (cat2 (sub args 0 arity) (lst (sub args arity count)))) (if (~== count arity) (arity-error f args) args))) (ds ifun (,env ,f ,nary? ,arity ,names ,body) `(fun ((arg-vector ...)) (def args (arrange-arguments f nary? arity (as arg-vector))) (def nms (%next-methods)) (def frame (env-frame! ;; TODO: SLOW HACK ,env ,f (cat2 ,names (lst '%next-methods)) (cat2 args (lst nms)))) (,body frame))) ;; TODO -- CLEAN UP BELOW (dm as-fun-name (x| => ) (fun-name x)) (dm as-fun-name (x| => ) (as-fun-name (function-debug-name x))) (dm as-fun-name (x| => ) (binding-name x)) (dm as-fun-name (x| => ) (as-fun-name (constant-value x))) (dm as-fun-name (x| => ) x) (dm as-fun-name (x| => ) #f) (dm export-goo-method (f names specs nary? value body env) (def arity (if nary? (- (len specs) 1) (len specs))) (def efun (ifun env f nary? arity names body)) (set (fun-info efun) (new fun-info-name (as-fun-name f) fun-info-names names)) (set (fun-sig efun) (new sig-specs (ast-eval-specs specs nary? env) sig-nary? nary? sig-arity arity sig-val (if value (ast-eval value env) ) sig-unification-vars '())) efun) (dm ast-eval (e| env|) (def params (function-bindings e)) (def eval (fun ((env )) (ast-eval (function-body e) env))) (export-goo-method e (map binding-name params) (map binding-type params) (function-nary? e) (function-value e) eval env)) ;; (dm ast-eval (e| env|) ;; (def params (function-bindings e)) ;; (def eval (fun ((env )) (ast-eval (function-body e) env))) ;; (make-primitive (map binding-name params) (function-nary? e) eval env)) (dm ast-eval (e| env|) (def params (function-bindings e)) (def nary? (function-nary? e)) (def names (map binding-name params)) (def specs (ast-eval-specs (map binding-type params) nary? env)) (fab-gen specs nary? (as-fun-name e) names)) (dm env-local-reference-value (env| ref| => ) (env-local-value env (reference-frame-number ref) (reference-frame-offset ref))) (dm env-local-reference-value-setter (val env| ref|) (set (env-local-value env (reference-frame-number ref) (reference-frame-offset ref)) val)) (dm ast-eval (e| env|) #f) (dm ast-eval (e| env|) (env-local-reference-value env e)) (dm ast-eval (e| env|) (env-global-binding-value (reference-binding e))) (dm ast-eval (e| env|) (env-dynamic-value (binding-locative (reference-binding e)))) (dm ast-eval (e| env|) (env-runtime-value (binding-locative (reference-binding e)))) (dm ast-eval (e| env|) (ast-eval-bound? e (reference-binding (bound?-reference e)) env)) (dm env-global-binding-value-or (b| default env|) (if (env-global-binding-bound? b) (env-global-binding-value b) (ast-eval default env))) (dm ast-eval-bound? (e| binding| env|) (case (binding-kind binding) (('global) (env-global-binding-value-or binding (bound?-default e) env)) (#t (ast-eval (bound?-reference e) env)))) (dm ast-eval-bound? (e| binding| env|) (ast-eval (bound?-reference e) env)) (dm ast-eval (e| env|) (def value (ast-eval (assignment-form e) env)) (set (env-global-binding-value (assignment-binding e)) value)) (dm ast-eval (e| env|) #f) ;; PERFORMED DURING OBJECTIFICATION (dm ast-eval (e| env|) (def value (ast-eval (assignment-form e) env)) (set (env-runtime-value (binding-locative (assignment-binding e))) value)) (dm ast-eval (e| env|) (def value (ast-eval (assignment-form e) env)) (set (env-dynamic-value (binding-locative (assignment-binding e))) value)) (dm ast-eval (e| env|) (def value (ast-eval (assignment-form e) env)) (set (env-local-reference-value env (assignment-reference e)) value)) (dm env-define-binding! (b| v) (case (binding-kind b) (('runtime) (set (env-runtime-value (binding-locative b)) v)) (('global) (set (env-global-binding-value b) v)) (('dynamic) (set (binding-locative b) (%lb (%fab-dyn-var))) (set (env-dynamic-value (binding-locative b)) v)) (#t (internal-error "Defining invalid binding kind %=" (binding-kind b))))) (dm ast-eval (e| env|) (def value (ast-eval (assignment-form e) env)) (env-define-binding! (assignment-binding e) value) value) ;; (dc ()) ;; (dp box-value ( => )) ;; ;; (dm ast-eval (e| env|) ;; (box-value (ast-eval (box-reference e) env))) ;; ;; (dm ast-eval (e| env|) ;; (set (box-value (ast-eval (box-reference e) env)) ;; (ast-eval (box-form e) env))) ;; ;; (dm ast-eval (e| env|) ;; (set (env-binding-value ;; env (binding-name (reference-binding (box-reference e)))) ;; (new ))) (dm ast-eval (e| env|) (if (ast-eval (alternative-condition e) env) (ast-eval (alternative-consequent e) env) (ast-eval (alternative-alternant e) env))) (dm ast-eval (e| env|) (esc return (rep loop () (esc continue (set (loop-continue e) continue) (return (ast-eval (loop-body e) env))) (loop)))) (dm ast-eval (e| env|) (rep eval ((e e)) (def nxt (tail e)) (def val (ast-eval (head e) env)) (if (nul? nxt) val (eval nxt)))) (dm ast-eval (e| env|) (rep eval ((res '()) (args e)) (if (nul? args) (rev! res) (eval (pair (ast-eval (head args) env) res) (tail args))))) (dm ast-eval (e| env|) (def f (ast-eval (application-function e) env)) (def args (ast-eval (application-arguments e) env)) (app f args)) (dm ast-eval (e| env|) (def loop (application-loop e)) (def args (ast-eval (application-arguments e) env)) (for ((binding (loop-bindings loop)) (arg args)) (set (env-binding-value env (binding-name binding)) arg)) ((loop-continue loop) #f)) (dm ast-eval (e| env|) (def b (application-binding e)) (case (binding-name b) (('%next-methods) (env-binding-value env '%next-methods)) (('%fun-reg) ;; ONLY NEEDED FOR NEXT-METHOD ERRORS #f) (#t (let ((f (%binding-value-of b)) (args (ast-eval (application-arguments e) env))) (app f args))))) (dm ast-eval (e| env|) (def args (ast-eval (fix-let-arguments e) env)) (def nenv (env-frame! env #f (map binding-name (fix-let-bindings e)) args)) (ast-eval (fix-let-body e) nenv)) (dm ast-eval (e| env|) (def bindings (locals-bindings e)) (def new-env (env-frame! env #f (map binding-name bindings) (map (always #f) bindings))) (do2 (fun (name value) (set (env-binding-value new-env name) value)) (map binding-name bindings) (map (rcurry ast-eval new-env) (locals-functions e))) ;; (rep loop ((funs (locals-functions e)) (i 0)) ;; (unless (nul? funs) ;; (set (env-local-value new-env 0 i) ;; (ast-eval (head funs) new-env)) ;; (loop (tail funs) (+ i 1)))) (ast-eval (locals-body e) new-env)) (dm ast-eval (e| env|) (esc return (def rproc (fun ((env )) (return (env-binding-value env 'x)))) (def exit (export-goo-method rproc (lst 'x) (lst #f) #f #f rproc env)) ((ast-eval (bind-exit-main-fun e) env) exit))) (dm ast-eval (e| env|) (fin ((ast-eval (unwind-protect-protected-thunk e) env)) ((ast-eval (unwind-protect-cleanup-thunk e) env)))) (dm ast-eval (e| env|) (%with-monitor (ast-eval (monitor-type e) env) (ast-eval (monitor-info e) env) (ast-eval (monitor-test e) env) (ast-eval (monitor-handler e) env) (ast-eval (monitor-main-thunk e) env))) ;;; ENVIRONMENT ;; Add any bindings required by the interpreter to an environment. ;; The function '%pair' is a compile-time primitive. Unfortunately, the ;; objectifier inserts it into some of the code it generates, so we need ;; to add a run-time shadow. ;; TODO - This function smells bad. (df init-environment-for-eval (env|) (ast-define-binding env '%next-methods #f 'predefined) ;; (def b (ast-define-binding env '%pair #f 'predefined)) ;; (set (env-global-binding-value b) pair) ) (export ast-evaluate init-environment-for-eval) ;;; DYNAMIC LOADING SUPPORT ;;; ;;; TODO: SHOULD MERGE BINDING-INFO REPS OF GLOBAL/RUNTIME ;;; SHOULD TREAT DYNAMIC BINDINGS SPECIALLY (dl %dlvar-nam) (dl %dlvar-mod) (dl %dlvar) (dl %dlvar-setter) (dl %define-binding (raw-mod raw-nam) (def e (unchecked-runtime-environment (%%sym raw-mod))) (ast-define-binding e (%%sym raw-nam) #f 'global)) (dl %lookup-binding (raw-mod raw-nam) (def e (unchecked-runtime-environment (%%sym raw-mod))) (find-binding (%%sym raw-nam) e)) (dl %ensure-binding (raw-mod raw-nam) (or (%lookup-binding raw-mod raw-nam) (%define-binding raw-mod raw-nam))) (dl %dlvar-binding (dlvar) (def b (%dlvar dlvar)) (if (@== b (%iu 0)) (set (%dlvar dlvar) (%ensure-binding (%dlvar-mod dlvar) (%dlvar-nam dlvar))) b)) (dl (%binding-value-of inline-c) (binding) (case (binding-kind binding) (('runtime) (env-runtime-value (binding-locative binding))) (('dynamic) (env-dynamic-value (binding-locative binding))) (#t (env-global-binding-value binding)))) (dl %binding-value (dlvar) (%binding-value-of (%dlvar-binding dlvar))) (dl (%binding-value-of-setter inline-c) (val binding) (case (binding-kind binding) (('runtime) (set (env-runtime-value (binding-locative binding)) val)) (('dynamic) (set (env-dynamic-value (binding-locative binding)) val)) (#t (set (env-global-binding-value binding) val)))) (dl %binding-value-setter (val dlvar) (set (%binding-value-of (%dlvar-binding dlvar)) val)) (dl (%binding-value-or-of inline-c) (b default) (if (and b (binding-info b)) (%binding-value-of b) default)) (df binding-value-or (b| def) (%binding-value-or-of b def)) (dl %binding-value-or (dlvar default) (%binding-value-or-of (%lookup-binding (%dlvar-mod dlvar) (%dlvar-nam dlvar)) default)) (export binding-value-or %binding-value-or %binding-value-or-of %binding-value %binding-value-of %binding-value-setter %binding-value-of-setter) goo-0.155/src/eval/ast-linearize.goo0100644000175000017500000003740507542215072016721 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;; BASED ON Lisp In Small Pieces by Christian Queinnec (use goo) (use goo/boot) (use eval/ast) ;;; BOXING (dc ()) (dp! box-reference (x| => )) (dc ()) (dp! box-reference (x| => )) (dp! box-form (x| => )) (dc ()) (dp! box-reference (x| => )) (dm insert-box! (o|) (ast-walk! insert-box! o)) (dm insert-box! (o|) (if (binding-mutable? (reference-binding o)) (new box-reference o) o)) ;;; IDENTIFY LOCAL CALLS (dm insert-box! (o|) (ast-walk! insert-box! o) (when (isa? (application-function o) ) (set (reference-called-function? (application-function o)) #t)) o) (dm insert-box! (o|) (new box-reference (assignment-reference o) box-form (insert-box! (assignment-form o)))) (dm insert-box! (o|) (set (function-body o) (insert-box! (boxify-mutable-bindings (function-body o) (function-bindings o)))) o) (dm insert-box! (o|) (set (fix-let-arguments o) (insert-box! (fix-let-arguments o))) (set (fix-let-body o) (insert-box! (boxify-mutable-bindings (fix-let-body o) (fix-let-bindings o)))) o) (dm insert-box! (o|) (set (locals-functions o) (map insert-box! (locals-functions o))) (set (locals-body o) (insert-box! (boxify-mutable-bindings (locals-body o) (locals-bindings o)))) o) (dm boxify-mutable-bindings (form bindings|) (sequentialize (rep loop ((res '()) (bindings bindings)) (if (nul? bindings) (rev! (pair form res)) (let ((binding (head bindings))) (if (binding-mutable? binding) (let ((creator (new box-reference (new reference-binding binding)))) (loop (pair creator res) (tail bindings))) (loop res (tail bindings)))))))) ;;; FLATTENING ENVIRONMENTS (dc ()) (dp! reference-offset (x| => (t? ))) (dp! reference-self? (x| => )) (dm lift! (o) (lift-procedures! o #f '())) (dm lift-procedures! (o| flat-fun bindings) (ast-walk! lift-procedures! o flat-fun bindings)) (dm lift-procedures! (o| flat-fun bindings) (def b (reference-binding o)) (if (mem? bindings b) o (let ((offset (adjoin-free-binding! flat-fun o))) (set (binding-closed-over? b) #t) (new reference-binding b reference-offset offset reference-self? (== (reference-binding o) (function-binding flat-fun)))))) (dm adjoin-free-binding! (flat-fun| ref => ) (rep check ((i| 0) (free* (function-free flat-fun))) (if (nul? free*) (let ((new-env (free-environment ref (nul )))) (if (nul? (function-free flat-fun)) (set (function-free flat-fun) new-env) (rep add ((free* (function-free flat-fun))) (def tail (tail free*)) (if (nul? tail) (set (tail free*) new-env) (add tail)))) i) (if (== (reference-binding ref) (reference-binding (head free*))) i (check (+ i 1) (tail free*)))))) (dm lift-procedures! (o| flat-fun bindings) (set (fix-let-arguments o) (lift-procedures! (fix-let-arguments o) flat-fun bindings)) (def new-bindings (cat (fix-let-bindings o) bindings)) (set (fix-let-body o) (lift-procedures! (fix-let-body o) flat-fun new-bindings)) o) (dm lift-procedures! (o| flat-fun bindings) (def new-bindings (cat (locals-bindings o) bindings)) (set (locals-functions o) (map (rcurry lift-procedures! flat-fun new-bindings) (locals-functions o))) (set (locals-body o) (lift-procedures! (locals-body o) flat-fun new-bindings)) o) (dm lift-procedures! (o| flat-fun bindings) (set (function-body o) (lift-procedures! (function-body o) #f (function-bindings o))) o) (dm lift-procedures! (o| flat-fun bindings) o) (dm lift-procedures! (o| flat-fun bindings) (set (function-body o) (lift-procedures! (function-body o) o (function-bindings o))) (set (function-free o) (lift-procedures! (function-free o) flat-fun bindings)) o) ;;; COLLECTING QUOTATIONS AND FUNCTIONS (dc ()) (dp! program-form (x| => (t? ))) (dp! program-quotations (x| => ) (fab 40)) (dp! program-bindings (x| => ) (fab 40)) (dp! program-definitions (x| => ) '()) (dc ()) (dp! form-program (x| => )) (dp! form-quotations (x| => ) '()) (dp! form-definitions (x| => ) '()) (dc ()) (dp! closure-creation-index (x| => )) (dp! closure-creation-free (x| => )) (dm flatten-seqs (o) (lst o)) (dm flatten-seqs (o|) (rep loop ((s o) (r '())) (if (nul? s) (rev! r) (rep inner ((ss (flatten-seqs (head s))) (r r)) (if (nul? ss) (loop (tail s) r) (inner (tail ss) (pair (head ss) r))))))) (dm as-top-level-forms (programs) (map (fun (x) (new form-program x)) programs)) (dm extract-things! (o) (def forms (as-top-level-forms (flatten-seqs o))) (def result (new )) (set (program-form result) (sequentialize (map (fun (form) (extract! form form result)) forms))) result) (dm extract! (o| form| result|) (ast-walk! extract! o form result)) (dm extract! (o| form| result|) (def value (constant-value o)) (if (or (== value #f) (== value #t) (== value '()) (isa? value ) (isa? value )) o (let ((qb* (program-quotations result)) (index (len qb*)) (probe (elt-or qb* value #f))) (if probe (new reference-binding probe) (let ((qb (new binding-kind 'quotation binding-name index binding-info value))) (set (elt qb* value) qb) (pushf (form-quotations form) qb) (new reference-binding qb)))))) (dm extract! (o| form| result|) o) (dm extract! (o| form| result|) (set (function-debug-name o) (extract! (function-debug-name o) form result)) (set (function-signature o) (extract! (function-signature o) form result)) (set (function-body o) (extract! (function-body o) form result)) (do (fun (binding) (set (binding-type binding) (extract! (binding-type binding) form result))) (function-bindings o)) (def free (function-free o)) (def free-bindings (map reference-binding free)) (def index (adjoin-definition! form result o)) (set (function-index o) index) (set (function-free o) free-bindings) (new closure-creation-index index closure-creation-free free)) (dm extract! (o| form| result|) (def prim (assignment-form o)) (set (function-body prim) (extract! (function-body prim) form result)) (pushf (program-definitions result) prim) (extract! (new constant-value #f) form result)) (dm adjoin-definition! (form| result| x) (def new-index (len (program-definitions result))) (pushf (program-definitions result) x) (pushf (form-definitions form) x) new-index) ;;; CLOSURIZE MAIN (dm split-program (o max-count|) (lst o)) (dm split-program (o| max-count|) (rep loop ((forms '()) (s o)) (rep inner ((res '()) (es s) (count 0)) (cond ((nul? es) (rev! (pair (sequentialize (rev! res)) forms))) ((= count max-count) (loop (pair (sequentialize (rev! res)) forms) es)) (#T (inner (pair (head es) res) (tail es) (+ count 1))))))) (dm closurize-main! (o| r max-count => ) (def forms (split-program (program-form o) max-count)) (def base-index (len (program-definitions o))) ;; TODO: HACK INTERFACE (rep loop ((calls '()) (defns (program-definitions o)) (i 0) (forms forms)) (if (nul? forms) (seq (set (program-definitions o) (rev! defns)) (set (program-form o) (new form-program (sequentialize (rev! calls)) form-definitions (rev! defns))) o) (let ((name (cat-sym "---main-" i "---")) (binding (ast-define-binding r name #f 'predefined)) (defn (new function-binding binding function-debug-name (objectify-quotation name 4) function-signature (objectify-signature '() r) function-body (head forms))) (call (new application-binding binding application-arguments (nul ) application-tail? #f))) (loop (pair call calls) (pair defn defns) (+ i 1) (tail forms)))))) ;; (def f (fun (n k) (if (= n 0) (k 1) (f (- n 1) (fun (r) (k (* n r))))))) ;;; GATHER-TEMPORARIES -- PULLS ALL FIX-LET ARGS UP TO ENCLOSING FUN ;;; FLAT-FUN IS ENCLOSING FUN AND R IS ENVIRONMENT FOR NEW AST (dc ()) (dp! assoc-key (x| => )) (dp! assoc-value (x| => )) (df assoc (x y => ) (new assoc-key x assoc-value y)) (dm assocq (x l| => ) (if (nul? l) #f (if (== x (assoc-key (head l))) (head l) (assocq x (tail l))))) (dm gather-temporaries! (o|) (set (program-definitions o) (map (fun (def) (collect-temporaries! def def '())) (program-definitions o))) o) (dm collect-temporaries! (o| flat-fun r) (ast-walk! collect-temporaries! o flat-fun r)) (dm collect-temporaries! (o| flat-fun r) (def binding (reference-binding o)) (def b (assocq binding r)) (if b (new reference-binding (assoc-value b)) o)) (df prepend-renamings (x y r) ;; (cat (map2 assoc x y) r) ;; speed critical (rep loop ((z r) (x x) (y y)) (if (nul? x) z (loop (pair (assoc (head x) (head y)) z) (tail x) (tail y))))) (dm collect-temporaries! (o| flat-fun r) (set (fix-let-arguments o) (collect-temporaries! (fix-let-arguments o) flat-fun r)) (def new-bindings (map new-renamed-binding (fix-let-bindings o))) (def new-r (prepend-renamings (fix-let-bindings o) new-bindings r)) (adjoin-temporary-variables! flat-fun new-bindings) (set (fix-let-bindings o) new-bindings) (set (fix-let-body o) (collect-temporaries! (fix-let-body o) flat-fun new-r)) o) (dm collect-temporaries! (o| flat-fun r) (set (loop-bindings o) (map (fun (b) (def nb (assocq b r)) (if nb (assoc-value nb) b)) (loop-bindings o))) (set (loop-body o) (collect-temporaries! (loop-body o) flat-fun r)) o) (dm collect-temporaries! (o| flat-fun r) (def new-bindings (map new-renamed-binding (locals-bindings o))) (def new-r (prepend-renamings (locals-bindings o) new-bindings r)) (set (locals-functions o) (map (rcurry collect-temporaries! flat-fun new-r) (locals-functions o))) (adjoin-temporary-variables! flat-fun new-bindings) (set (locals-bindings o) new-bindings) (set (locals-body o) (collect-temporaries! (locals-body o) flat-fun new-r)) o) (dm adjoin-temporary-variables! (flat-fun new-bindings) (rep adjoin ((temps (function-temporaries flat-fun)) (bindings new-bindings)) (if (nul? bindings) (set (function-temporaries flat-fun) temps) (if (mem? temps (head bindings)) (adjoin temps (tail bindings)) (adjoin (pair (head bindings) temps) (tail bindings)))))) (dc ()) (dp! binding-index (x| => )) (ddv *renaming-bindings-counter* 0) (dm new-renamed-binding (binding|) (set *renaming-bindings-counter* (+ *renaming-bindings-counter* 1)) (new ;; TODO: SHOULD USE CLONING binding-name (binding-name binding) binding-type (binding-type binding) binding-dynamic-extent? (binding-dynamic-extent? binding) binding-closed-over? (binding-closed-over? binding) binding-index *renaming-bindings-counter*)) ;;; REGISTER ALLOCATION (dv *register-passive?* #f) ;; FORCES ALL LOADS THROUGH REGISTERS (E.G., RISC) (dm register-allocate! (o| register-passive?|) (dlet ((*register-passive?* register-passive?)) (do (fun (def) (collect-registers! def #f #t)) (program-definitions o))) o) (df allocate-register (o| f val?) (when (and val? f (not (program-register o))) ;; TODO: INEFFICIENT (set (program-register o) (len (function-registers f))) (add! (function-registers f) o))) (dm collect-registers! (o| f val?) (allocate-register o f val?) (ast-walk collect-registers! o f #t)) (dm collect-registers! (o| f val?) (rep loop ((x o)) (if (nul? x) o (let ((next-x (tail x))) ;; ONLY LAST FORM IN SEQ CONSUMES VALUE (collect-registers! (head x) f (and val? (nul? next-x))) (loop next-x))))) (dm collect-registers! (o| f val?) (when *register-passive?* (allocate-register o f val?)) (ast-walk collect-registers! o f #t)) (dm collect-registers! (o| f val?) (allocate-register o f val?) (do (fun (def) (collect-registers! def f val?)) (form-definitions o)) (collect-registers! (form-program o) f val?)) (dm collect-registers! (o| f val?) (allocate-register o f val?) (collect-registers! (function-signature o) f #t) (collect-registers! (function-debug-name o) o #t) (collect-registers! (function-body o) o #t)) (dm collect-registers! (o| f val?) (collect-registers! (function-body o) o #t)) (dm collect-registers! (o| f val?) (collect-registers! (locals-body o) f #t) (collect-registers! (locals-functions o) f #t)) (dm collect-registers! (o| f val?) (collect-registers! (fix-let-body o) f #t) (collect-registers! (fix-let-arguments o) f #t)) (dm collect-registers! (o| f val?) (collect-registers! (loop-body o) f #t)) (export box-form box-reference closure-creation-free closure-creation-index closurize-main! extract-things! form-definitions form-program form-quotations insert-box! gather-temporaries! register-allocate! lift! program-definitions program-form program-quotations program-bindings reference-offset reference-self? flatten-seqs *register-passive?* ) goo-0.155/src/eval/ast-print.goo0100644000175000017500000001625207611105275016070 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/io/write) (use eval/ast) (use eval/ast-linearize) (dm type-out (out| x)) (dm type-out (out| x|) (unless (or (== x ) (isa? x )) (msg out "|%t" x))) (dm type-out (out| x|) (type-out out (binding-inferred-type x))) (dm type-out (out| x|) (type-out out (program-type x))) (dm write-binding (out| x| k|) (msg out "MB_%s" (binding-name x))) (dm write-binding (out| x| k|(t= 'global)) (msg out "GB_%s" (binding-name x))) (dm write-binding (out| x| k|(t= 'predefined)) (msg out "PB_%s" (binding-name x))) (dm write-binding (out| x| k|(t= 'dynamic)) (msg out "DB_%s" (binding-name x))) (dm write-binding (out| x| k|(t= 'quotation)) (msg out "QB(%= %=)" (binding-name x) (binding-value x))) (dm ast-write (out| x| d|) (emit out x)) (dm ast-write (out| x| d|) (write-binding out x (binding-kind x)) (type-out out x)) (dm ast-write (out| x| d|) (puts out "LB") (when (binding-mutable? x) (puts out "M")) ;; (when (binding-dotted? x) ;; (write out "D")) (msg out "_%s" (binding-name x)) (type-out out x)) (dm ast-write (out| x| d|) (msg out "LR^%s" (binding-name (reference-binding x)))) (dm ast-write (out| x| d|) (msg out "GR^%s" (reference-binding x))) (dm ast-write (out| x| d|) (msg out "RR^%s" (reference-binding x))) ;; (dm ast-write (out| x| d|) ;; (msg out "PR^%s" (reference-binding x))) (ds ast-between-parentheses-spaced ((,out-val ,depth-val) ,@body) (let ((out-var (gensym)) (depth-var (gensym))) `(let ((,out-var ,out-val) (,depth-var (+ ,depth-val 1))) (put ,out-var #\() ,@(packing (rep loop ((body body) (first? #t)) (unless (nul? body) (unless first? (pack `(put ,out-var #\space))) (pack `(ast-write ,out-var ,(head body) ,depth-var)) (loop (tail body) #f)))) (put ,out-var #\))))) (ds ast-between-parentheses-spaced+typed ((,out ,depth ,x) ,@body) `(seq (ast-between-parentheses-spaced (,out ,depth) ,@body) (type-out ,out ,x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "SET" (assignment-reference x) (assignment-form x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "SET" (assignment-binding x) (assignment-form x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced (out d) "DEF" (assignment-binding x) (assignment-form x))) (dm do-ast-write-list (out| x prefix| suffix| d| do-first? print) (puts out prefix) (rep loop ((x x) (first? #t)) (unless (nul? x) (when (or (not do-first?) (not first?)) (puts out " ")) (print out (head x) d) (loop (tail x) #f))) (puts out suffix)) (dm ast-write-list (out| x| d|) (do-ast-write-list out x "(" ")" d #t ast-write)) (dm ast-write (out| x| d|) (ast-write-list out x d)) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced (out d) (function-kind x) (function-bindings x) (function-body x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "IF" (alternative-condition x) (alternative-consequent x) (alternative-alternant x))) (dm ast-write (out| x| d|) (do-ast-write-list out x "(SEQ" ")" d #f ast-write) (type-out out (last x))) (dm ast-write (out| x| d|) (msg out "C(%=)" (constant-value x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) (application-function x) (application-arguments x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) (puts out "MC") (application-function x) (application-next-methods x) (application-arguments x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced (out d) (application-binding x) (application-arguments x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced (out d) "GOTO" (application-arguments x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "LET" (map2 list (fix-let-bindings x) (fix-let-arguments x)) (fix-let-body x))) (dm ast-write (out| x| d|) (do-ast-write-list out x "" "" d #t ast-write)) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "LOC" (map2 list (locals-bindings x) (locals-functions x)) (locals-body x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "LOOP" (LOOP-bindings x) (loop-body x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "ESC" (bind-exit-main-fun x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "FIN" (unwind-protect-protected-thunk x) (unwind-protect-cleanup-thunk x))) (dm ast-write (out| x| d|) (ast-between-parentheses-spaced+typed (out d x) "MON" (monitor-handler x) (monitor-main-thunk x))) (dm ast-write (out| x| d|) (msg out "CC-%=(F %=)" (closure-creation-index x) (closure-creation-free x))) (dm ast-write (out| x| d|) (msg out "FR^%s" (binding-name (reference-binding x)))) (dm ast-write (out| x| d|) (msg out "BC(%=)" (box-reference x))) (dm ast-write (out| x| d|) (msg out "BR(%=)" (box-reference x))) (dm ast-write (out| x| d|) (msg out "BW(%= %=)" (box-reference x) (box-form x))) (dm function-kind (x|) "FUN") ;; (dm function-kind (x|) ;; (msg-to-str "FD-%=" (function-index x))) ;; ;; (dm function-kind (x|) ;; "MD") ;; ;; (dm function-kind (x|) ;; (msg-to-str "PD-%=" (function-name x))) ;; (dm ast-write (out| x| d|) ;; (msg out "FRM(PG %= QS %= DS %=)" ;; (form-program x) (form-quotations x) (form-definitions x))) ;; (dm ast-write (out| x| d|) ;; (msg out "PG(FM %=\n QS %=\n DS %=)" ;; (program-form x) (program-quotations x) (program-definitions x))) (dm recurring-write (port| x| d| recur|) (ast-write port x d)) (dm recurring-write (port| x| d| recur|) (ast-write port x d)) (export ast-write) goo-0.155/src/eval/ast.goo0100644000175000017500000017220107756744631014752 0ustar vomjomvomjom;;;; Copyright (c) 2001 Jonathan Bachrach ;;;; BASED ON Lisp In Small Pieces by Christian Queinnec ;;;; with many many changes (use goo) (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/system) (use goo/cols/lst) (use goo/io/read) (use eval/syntax) (use eval/dependency) (use/export eval/module) ;;; TODO: MOVE TYPE OUT OF SIGNATURE ;;; The object we're currently compiling. Any dependencies we ;;; encounter will automatically be assumed to be the resposibility of this ;;; object. (ddv *current-dependent* #f) (ds with-dependent (,dependent ,@body) (let ((saved-dependent (gensym))) `(let ((,saved-dependent *current-dependent*)) (set *current-dependent* ,dependent) (fin (seq ,@body) (set *current-dependent* ,saved-dependent))))) (dc ()) (dc ( )) (dm ast-error (message| arguments|...) (sig (new condition-message message condition-arguments arguments))) ;;; programs (dc ()) (dp! program-type ( => ) $bot) (dp! program-line ( => (t? )) #f) (dp! program-register ( => ) #f) ;; TODO: T? INT (dc ()) ;; (dp! program-register ( => ) #f) ;; TODO: T? INT (dc ()) (dc ()) (dp! binding-value ( => ) #f) (dp! binding-mutable? ( => ) #f) (dp! binding-dynamic-extent? ( => ) #t) (dp! binding-dotted? ( => ) #f) (dp! binding-closed-over? ( => ) #f) (dp! binding-index ( => ) #f) ;; (dc ()) ;;; compile-time (dc ()) (dp! compile-time-program ( => )) ;;; references are programs. (dc ()) ;;; special category of bindings ;; DEAL WITH INITIALIZE (dc ()) (dp! reference-binding ( => )) (dc ()) (dp! reference-called-function? ( => ) #f) (dp! reference-frame-number ( => )) (dp! reference-frame-offset ( => )) ;; (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dp! bound?-reference ( => )) (dp! bound?-default ( => )) (dc ()) (dp! assignment-form ( => )) (dc ()) (dp! assignment-reference ( => )) (dc ()) (dp! assignment-binding ( => )) (dc ()) (dc ()) (dc ()) ;;; TODO: THE FOLLOWING DEFS AREN'T REALLY USED -- PERHAPS ZAP (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dp! signature-bindings ( => ) '()) (dp! signature-names ( => ) '()) (dp! signature-specs ( => ) '()) (dp! signature-nary? ( => ) #f) (dp! signature-arity ( => ) #f) (dp! signature-value ( => ) #f) ;;; required only specializers (dm req-sig-specs (sig| => ) (def types (signature-specs sig)) (if (constant-value (signature-nary? sig)) (sub types 0 (- (len types) 1)) types)) (dc ( )) (dp! function-binding ( => ) #f) (dp! function-debug-name ( => ) #f) ;; (dp! function-next-methods-binding ( => )) (dp! function-signature ( => )) (df function-bindings (x|) (signature-bindings (function-signature x))) (df function-names (x|) (signature-names (function-signature x))) (df function-specs (x|) (signature-specs (function-signature x))) (df function-nary? (x|) (constant-value (signature-nary? (function-signature x)))) (df function-arity (x|) (constant-value (signature-arity (function-signature x)))) (df function-value (x|) (signature-value (function-signature x))) (dm function-kind (x|) "FUN") (df function-display-name (f|) (def b (function-binding f)) (case-by b isa? (() (as b)) (() (msg-to-str "%s:%s" (binding-module-name b) (binding-name b))) (#t "anonymous function"))) (dm invalidate-dependent (dependent| dependable| dtype|) ;; Aggressively detach ourselves. We'll eventually want ;; to selectively detach ourselves. (detach-dependent dependent) (def name (function-display-name dependent)) (cond ((dependency-includes-any? dtype $parse-dependencies) (msg out "warning: %s needs to be reparsed\n" name)) ((dependency-includes-any? dtype $optimizaton-dependencies) (msg out "warning: %s needs to be re-optimized\n" name)) (#t (msg out "warning: unknown dependency of %s clobbered\n" name)))) (dc ()) (dm as-lst (e| => ) (rep loop ((res '()) (e e)) (if (nul? e) (rev! res) (loop (pair (head e) res) (tail e))))) (ds def-programs (,name) `(def-list ,name ())) (dc ()) (dp! function-body ( => ) #f) (dp! function-index ( => ) 0) (dp! function-temporaries ( => ) '()) (dp! function-registers ( => ) (fab 0)) (dp! function-loop ( => ) #f) (dp! function-source ( => ) #f) (dp! function-frame-len ( => ) #f) (dp! function-adjectives ( => ) '()) (def-programs free-environment) (dc ()) (dp! function-ref-count ( => ) 0) (dp! function-free ( => ) (nul )) (dm incf-ref-count (x) x) (dm incf-ref-count (x|) (incf (function-ref-count x))) (dm function-kind (x|) "MET") (dc ()) (dm function-kind (x|) "PRM") (dc ()) (dm function-kind (x|) "GEN") (dc ()) (dp! alternative-condition ( => )) (dp! alternative-consequent ( => )) (dp! alternative-alternant ( => )) (dc ()) (dp! loop-bindings ( => )) (dp! loop-body ( => )) (dp! loop-continue ( => ) #f) (def-programs sequential) (dc ()) (dp! constant-value ( => )) (dp! constant-index ( => )) (dc ()) (dc ()) (dc ()) (dp! application-arguments ( => )) (dp! application-tail? ( => ) #f) (dc ()) (dp! application-loop ( => )) (dm application-tail? (x| => ) #t) (dc ()) (dp! application-function ( => )) (dp! application-known? ( => ) #f) (dc ()) (dp! application-next-methods ( => )) (dm application-known? (x| => ) #t) (dc ()) (dp! application-binding ( => )) (dc ()) (dp! fix-let-bindings ( => )) (dp! fix-let-types ( => )) (dp! fix-let-arguments ( => )) (dp! fix-let-body ( => )) (dc ()) (def-programs fab-list) (def-programs arguments) (dc ()) (dp! locals-bindings ( => )) (dp! locals-functions ( => )) (dp! locals-body ( => )) (def-programs inline-refs) (dc ()) (dp! c-inline-refs ( => )) (dp! c-inline-strs ( => )) (dp! c-inline-expr? ( => ) #t) (dc ()) (dp! bind-exit-main-fun ( => )) (dp! bind-exit-light? ( => ) #t) (dc ()) (dp! unwind-protect-protected-thunk ( => )) (dp! unwind-protect-cleanup-thunk ( => )) (dc ()) (dp! monitor-type ( => )) (dp! monitor-info ( => )) (dp! monitor-test ( => )) (dp! monitor-handler ( => )) (dp! monitor-main-thunk ( => )) ;;; WALKER (dm ast-walk! (g o args|...) ;; (msg out "WALKING %=\n" o) (for ((prop (props-of o))) ;; (msg out " PROP %=\n" prop) (def getter (prop-getter prop)) (def setter (prop-setter prop)) ;; TODO: HACK (unless (or (== getter binding-value) (== getter application-loop)) (when (prop-bound? o getter) (def x (getter o)) (when (isa? x ) ;; (msg out " UPDATING %=\n" x) (setter (app g x args) o))))) o) (dm ast-walk (g o args|...) (for ((prop (props-of o))) (def getter (prop-getter prop)) ;; TODO: HACK (unless (or (== getter binding-value) (== getter application-loop)) (when (prop-bound? o getter) (def x (getter o)) (when (isa? x ) (app g x args))))) o) (dm ast-walk (g o| args|...) (rep walk ((x o)) (unless (nul? x) (let ((e (head x))) (when (isa? e ) (app g e args)) (walk (tail x)))))) #/ ;;;TODO: DOESN'T RETURN SIDE-EFFECT CORRECTLY FOR SOME REASON (dm ast-walk! (g o| args|...) (rep walk ((x o)) (if (nul? x) o (let ((e (head x))) (when (isa? e ) (set (head x) (app g e args))) (walk (tail x)))))) /# (dm ast-copy (x| => ) (def copy (clone x)) (set (program-register copy) #f) (ast-walk! ast-copy copy)) (dm ast-copy (x| => ) (if (nul? x) x (sup x))) ;;;; CONVERT TO AST FORM (dm objectify (e| r| tail? => ) (if (isa? e ) ;; TODO: HACK FOR e (objectify-list (objectify (head e) r #f) e r tail?))) (dm objectify-list (f| e| r| tail? => ) (objectify-application f (tail e) r tail?)) (dm objectify-list (f| e| r| tail? => ) ((binding-handler (reference-binding f)) e r tail?)) (df maybe-log-dependency (dependable| dtype|) (when *current-dependent* (log-dependency dependable *current-dependent* dtype) (transaction-register-dependent *current-dependent*))) (df macro-expander (macro-binding| => ) (maybe-log-dependency macro-binding $expansion-parse-dependency) (binding-handler macro-binding)) (dm objectify-list (f| e| r| tail? => ) (objectify ((macro-expander (reference-binding f)) e r tail?) r tail?)) (dm objectify (e| r| tail? => ) (objectify-symbol e r)) (dm objectify (e| r| tail? => ) e) (dm objectify (e| r| tail? => ) e) (dm objectify ((e (t= '())) r| tail? => ) (objectify-quotation e r)) (dm objectify (e r| tail? => ) (objectify-quotation e r)) (dm objectify-quotation (value r => ) (new constant-value value)) (dm objectify-quotation (value| r => ) (new constant-value value)) (dm objectify-quotation (value| r => ) (new constant-value value)) (dm objectify-raw (value r => ) (new constant-value value)) (dm objectify-bound? (e| default r| tail? => ) (new bound?-reference (objectify-symbol e r) bound?-default (objectify default r #f))) ;;; This routine always produces a version of 'program' which is accessible ;;; in the syntax environment. If 'rt?' is true, it will make sure that ;;; there is also a version in the runtime environment. (dm objectify-compile-time (program r tail? rt? => ) (def mod (find-environment-module r)) (def syntax-env (module-syntax-environment mod)) (def target-env (module-target-environment mod)) (def ast (objectify program syntax-env tail?)) ;; Process the program immediately. (ast-evaluate ast) ;; If we have been asked to create a runtime copy of this code--and we ;; are compiling--create a second copy of this code which can be ;; accessed in the runtime. This parallels they way ;; works. Otherwise, objectify #f. ;; The value of a CT-ALSO form is currently undefined. (if (and rt? (~== syntax-env target-env)) (objectify program r tail?) (new constant-value #f))) (dm objectify-alternative (t c a r tail? => ) (new alternative-condition (objectify t r #f) alternative-consequent (objectify c r tail?) alternative-alternant (objectify a r tail?))) (dm sequentialize (e*| => ) (if (nul? e*) (new constant-value #f) (if (nul? (tail e*)) (head e*) (rep loop ((r (nul )) (e* e*)) (if (nul? e*) (rev! r) (loop (sequential (head e*) r) (tail e*))))))) (dm transform-defs (e*| => ) (if (nul? e*) '() (let ((e (head e*))) (if (sexpr-def? e) `((let ((,(sexpr-def-variable e) ,(sexpr-def-value e))) ,@(transform-defs (tail e*)))) `(,e ,@(transform-defs (tail e*))))))) (dm objectify-sequential (e*| r tail? => ) (def asts (rep loop ((res '()) (e* (transform-defs e*))) (if (nul? e*) (rev! res) (let ((tail? (if (nul? (tail e*)) tail? #f)) (head (objectify (head e*) r tail?))) (loop (pair head res) (tail e*)))))) (sequentialize asts)) (dm objectify-application (ff| e* r tail? => ) (def ee* (convert2arguments (map (fun (e) (objectify e r #f)) e*))) (process-closed-application ff ee* r tail?)) ;; TODO: USE THIS FOR PRIMITIVES (dm objectify-application (ff| e* r tail? => ) (def ee* (convert2arguments (map (fun (e) (objectify e r #f)) e*))) (def fvf (reference-binding ff)) (def prim (binding-prop fvf)) ;; only happens if inlineable (if prim (process-closed-application (ast-copy prim) ee* r tail?) (new application-binding fvf application-arguments ee* application-tail? tail?))) (dm objectify-application (ff e* r tail? => ) (let ((ee* (convert2arguments (map (fun (e) (objectify e r #f)) e*)))) ;; used for dynamic extent analysis (when (isa? ff ) (set (reference-called-function? ff) #t)) (new application-function ff application-arguments ee* application-tail? tail?))) (dm process-closed-application (f| e* r tail? => ) (def v* (function-bindings f)) (def b (function-body f)) (if (function-nary? f) (process-nary-closed-application f e* r tail?) (if (= (len e*) (len (function-bindings f))) (new (if (isa? f ) ) fix-let-bindings (function-bindings f) fix-let-types (function-specs f) fix-let-arguments e* fix-let-body (function-body f)) (ast-error "incorrect regular arity" f e*)))) (dm process-nary-closed-application (f e* r tail? => ) (loc ((pack-args (e* v* t*) (def var (head v*)) (if (binding-dotted? var) (let ((dotted-type (objectify ' r #f))) (set (binding-dotted? var) #f) (set (binding-type var) dotted-type) (set (head t*) dotted-type) (arguments (objectify `(tup ,@e*) r #f) (nul ))) (if (nul? e*) (ast-error "incorrect dotted arity" f e*) (arguments (head e*) (pack-args (tail e*) (tail v*) (tail t*))))))) (def v* (function-bindings f)) (def o (new fix-let-bindings v* fix-let-types (function-specs f) fix-let-arguments (pack-args e* v* (function-specs f)) fix-let-body (function-body f))) o)) (dm convert2arguments (e*| => ) (if (nul? e*) (nul ) (arguments (head e*) (convert2arguments (tail e*))))) ;;; assignment on mutable local bindings are immediately ;;; processed. references to local mutable bindings must wait the ;;; second pass. (dm objectify-assignment (binding| e r tail? => ) (def op (sexpr-operator binding)) (if (sexpr-variable? op) (objectify (sexpr-make-application (objectify (sexpr-fab-setter-name op) r #f) (pair e (sexpr-operands binding))) r tail?) (syntax-error "Unsupported Set!: %=" e))) (dm objectify-assignment (binding| e r tail? => ) (def ref (objectify binding r #f)) (def val (objectify e r #f)) (objectify-assignment-using ref val)) (dm objectify-assignment-using (ref| val| => ) (set (binding-mutable? (reference-binding ref)) #t) (new assignment-reference ref assignment-form val)) (dm objectify-assignment-using (ref| val| => ) (new assignment-binding (reference-binding ref) assignment-form val)) (dm objectify-assignment-using (ref| val| => ) (new assignment-binding (reference-binding ref) assignment-form val)) (dm objectify-assignment-using (ref| val| => ) (new assignment-binding (reference-binding ref) assignment-form val)) (dm objectify-assignment-using (ref| val| => ) (namespace-error "Unable to assign to static module binding %=" (reference-binding ref))) ;;; TODO - Attempt to change the binding kind on the fly. This ;;; only works up to a point. To fix this, make 'runtime and 'global ;;; bindings a single binding type, and parameterize the storage ;;; used by that type at runtime. ;;; Rationale: calling ast-define-binding one or more times with ;;; various combinations of binding-kinds must never be able to ;;; transform a 'runtime binding into a 'global binding, and thereby ;;; confuse the compiler about where binding values are stored. (df update-binding-kind (binding new-kind) (if (or (~== (binding-kind binding) 'runtime) (== new-kind 'magic)) (set (binding-kind binding) new-kind) (cond ((== new-kind 'runtime) #t) ; We're already the correct type. ((== new-kind 'global) #t) ; We're an acceptably close type. (#t (namespace-error "Cannot set type of runtime binding %s to %s.\n" (binding-name binding) new-kind))))) (dm ast-define-binding (r name defining-method? kind => ) (def existing-binding (find-binding name r)) (def gr (find-static-global-environment r)) (def mod (environment-module gr)) (def binding (if existing-binding (let ((foreign? (not (or (binding-native-to? existing-binding mod) defining-method?)))) (if (binding-free? existing-binding) ;; If the binding is free, define it. (seq (set (binding-free? existing-binding) #f) (when foreign? (transaction-register-implemented-binding existing-binding))) ;; Otherwise, redefine the existing binding. ;; TODO - We should do more useful redefinition here. (when foreign? (msg out "%s: warning: '%s' clobbers binding from %s.\n" (module-name mod) name (binding-module-name existing-binding)))) ;; Aggressively invalidate all dependents. We might want to ;; make this more selective someday. (invalidate-dependents existing-binding $all-dependency-types) (update-binding-kind existing-binding kind) existing-binding) (let ((mod (find-environment-module r)) (binding (new binding-kind kind binding-name name binding-free? #f binding-module mod))) (insert-global! binding gr) binding))) (register-referenced-binding mod binding) binding) (dv *macro-tracing?* #f) (dm objectify-definition (type kind var e r => ) (def name (sexpr-variable-name var)) (def binding (ast-define-binding r name #f kind)) (def defn (new type assignment-binding binding assignment-form (objectify e r #f))) defn) (dm objectify-variable-definition (var e r => ) (objectify-definition 'global var e r)) (dm objectify-dynamic-definition (var e r => ) (objectify-definition 'dynamic var e r)) (df %%%macro (binding expander => ) ;; (msg out "DEFMACRO ") (writeln out sep-expander) (loc ((expand (x r tail?) (when *macro-tracing?* (msg out "MACRO ") (write out x) (msg out "\n")) (def exp (line-list-of x (expander x))) (when *macro-tracing?* (msg out " => ") (write out exp) (msg out "\n")) exp)) ;; (msg out "DEFMAC %=\n" name) (set (binding-handler binding) expand) binding)) (df %%macro (modname name expander env-or-false => ) (def env (or env-or-false (unchecked-runtime-environment modname))) (def binding (ast-define-binding env name #f 'macro)) (%%%macro binding expander)) ;; Process a macro definition. This is somewhat ugly, because a single ;; macro definition may need to appear in as many as three places: ;; 1) The target environment, so it may be used by the program itself. ;; 2) The syntax environment, so it can be used to write other macros. ;; 3) The runtime environment *of the image we're building*. This ;; means that once our program has been compiled and run, macros ;; should remain available in the listener. This requires some magic, ;; which is handled by . ;; XXX - This function has very ugly semantics, and I don't like it. (dm objectify-syntax-definition (name e r rt? => ) (def sep-expander (sexpr-make-macro-function name e)) ;; (post "%s %= ** %=\n" name e sep-expander) ;; Build a version of the macro for use in the target and syntax ;; environments. (def syntax-env (find-syntax-environment r)) (def ast-expander (objectify sep-expander syntax-env #f)) (def expander (ast-evaluate ast-expander)) ;; Install it into the target environment. (def modname (module-name (find-environment-module r))) (def binding (%%macro modname name expander (find-static-global-environment r))) ;; If the syntax and current environments are different (i.e., we're ;; compiling code), then install it in the syntax environment, too. (when (~== syntax-env (find-static-global-environment r)) (insert-global! binding syntax-env)) ;; If the macro should be available in the runtime of the image we're ;; building, work some magic. Otherwise, just return false. (if rt? (new assignment-binding binding assignment-form ;; Re-objectify the expander, this time using bindings from ;; the target environment. This should allow it to be run ;; in the image (if we're reasonably lucky). (objectify sep-expander r #f)) (objectify-quotation #f r))) (dm objectify-function-definition (name mods e r => ) (def binding (ast-define-binding r name #f 'global)) (def f (objectify e r #f)) (set (function-binding f) binding) (set (function-adjectives f) mods) (set (function-debug-name f) (objectify-quotation name r)) (def defn (new assignment-binding binding assignment-form f)) defn) (df module-binding (kind| => ) (new binding-kind kind)) (dm function-inlineable? (e|) (or (mem? (function-adjectives e) 'inline) (mem? (function-adjectives e) 'inline-c))) (dm objectify-primitive-definition (name mods sig body r => ) (def binding (ast-define-binding r name #f 'predefined)) (def signature (objectify-signature sig r)) (def new-r (r-extend* r (signature-bindings signature))) (def body (objectify-sequential body new-r #t)) (def form (new function-binding binding function-adjectives mods function-debug-name (objectify-quotation name r) function-signature signature function-body body)) (when (mem? mods 'inline) (set (binding-prop binding) form)) (def defn (new assignment-binding binding assignment-form form)) defn) (dm objectify-generic-definition (name sig r => ) (def binding (ast-define-binding r name #f 'global)) (def signature (objectify-signature sig r)) (def form (new function-binding binding function-debug-name (objectify-quotation name r) function-signature signature)) (def defn (new assignment-binding binding assignment-form form)) defn) (dm objectify-method-definition (name mods e r => ) (def binding (ast-define-binding r name #t 'global)) (def gen `(bound? ,name #f)) (def met (objectify e r #f)) ;; TODO: NAME AND MARK AS GENERIC METHOD (def call (lst '%define-method gen met)) (def form (objectify call r #f)) (def defn (new assignment-binding binding assignment-form form)) (set (function-binding met) name) (set (function-adjectives met) mods) (set (function-debug-name met) (objectify-quotation name r)) defn) ;;; it is important that the body is objectified first so mutability ;;; of local bindings is known and they can be appropriately handled ;;; in objectify-bindings-list. ;;; all bindings are considered immutable at the beginning. ;;; XXX - The dependency registration code here should be refactored and ;;; redesigned into something more reasonable. (ddv *record-source?* #f) (dm objectify-function-source (sig body r => ) (dlet ((*max-print-depth* $max-int) (*max-print-length* $max-int)) (objectify-quotation (and *record-source?* (msg-to-str "%s" `(fun ,sig ,@body))) r))) (dm objectify-function-using (met sig body r tail? => ) ;; Allocate the method up front so we can log dependencies against it. (with-dependent met (def signature (objectify-signature sig r)) (def new-r (r-extend* r (signature-bindings signature))) (def ast (objectify-sequential body new-r #t)) (set (function-debug-name met) (objectify-quotation #f r)) (set (function-signature met) signature) (set (function-body met) ast) (set (function-source met) (objectify-function-source sig body r)) met)) (dm objectify-function (sig body line r tail? => ) (objectify-function-using (new program-line line) sig body r tail?)) (dv $sexpr-optionals-tag '...) (dv $sexpr-optionals-type-name ') (dm objectify-signature (sig r => ) (def sexpr-params (sexpr-signature-parameters sig)) (rep col ((params sexpr-params) (nary? #f) (bindings '()) (names (nul )) (types (nul ))) (if (nul? params) (let ((sexpr-value (sexpr-signature-value sig)) (value (objectify (or sexpr-value (default-type r)) r #f)) (arity (- (len names) (if nary? 1 0)))) (new signature-bindings (rev! bindings) signature-names (objectify-quotation (rev! names) r) signature-specs (rev! types) signature-nary? (objectify nary? r #f) signature-arity (objectify arity r #f) signature-value value)) (let ((param (head params)) (sname (sexpr-variable-name param)) (stype (sexpr-variable-type param)) (dotted? (== stype $sexpr-optionals-tag)) (stype (if dotted? $sexpr-optionals-type-name stype)) (type (objectify stype r #f)) (binding (new binding-name sname binding-type type binding-dotted? dotted?))) (col (tail params) dotted? (pair binding bindings) (new head sname tail names) (new head type tail types)))))) (dm compute-local-reference-offsets (binding| r| => (tup frame-number| frame-offset|)) (rep loop ((i 0) (r r)) (if (isa? r ) (rep find ((j 0) (bindings (environment-bindings r))) (if (nul? bindings) (loop (+ i 1) (environment-next r)) (if (== (head bindings) binding) (tup i j) (find (+ j 1) (tail bindings))))) (namespace-error "didn't find local binding %= in %=" (binding-name binding) r)))) (dm objectify-binding (n b| r => ) (def (tup i j) (compute-local-reference-offsets b r)) (incf-ref-count (binding-value b)) (new reference-binding b reference-frame-number i reference-frame-offset j)) ;; (dm objectify-binding ;; (n b| r => ) ;; (new reference-binding b)) (dm binding-reference-class (b| => ) ;; TODO: => (T< ) (case (binding-kind b) (('global) ) (('predefined) ) (('runtime) ) (('dynamic) ) (('macro) ) (('magic) ) (#t (ast-error "Unknown binding-kind %=" (binding-kind b))))) (dm objectify-binding (n b| r => ) (register-referenced-binding r b) (def (binding-reference-class b)) (new reference-binding b)) ;; (case (binding-kind b) ;; (('magic 'macro) b) ;; (#t (def (binding-reference-class b)) ;; (new reference-binding b))) (dm objectify-binding (n b r => ) (objectify-free-global-reference n r)) ;;; a free binding is defined to be a global binding defined on the fly. (dm default-type (r) (objectify ' r #f)) ;;; Handle variables which get used before we define them. ;;; TODO - Decide if this is the best place to handle foreign names. (dm objectify-free-global-reference (name r => ) (def gr (find-static-global-environment r)) (if (and (environment-allows-foreign-names? gr) (foreign-name? name)) (objectify-foreign-reference name r) (let ((b (new binding-free? #t binding-kind 'global binding-name name binding-module (find-environment-module r)))) (insert-global! b gr) (register-referenced-binding gr b) (new reference-binding b)))) ;;; Does this name have the form 'foo:bar'? (df foreign-name? (name| => ) (~== (pos (as name) #\:) #f)) ;;; Turn 'foo:bar' into a reference to 'bar' in the 'foo' module. (dm objectify-foreign-reference (name r => ) (def namestr (as name)) (def break (pos namestr #\:)) (def modname (sub namestr 0 break)) (def varname (sub namestr (+ 1 break) (len namestr))) (unless (and (> (len modname) 0) (> (len varname) 0)) (syntax-error "Malformed foreign name %s.\n" name)) (def gr (find-static-global-environment r)) (def loader (environment-module-loader gr)) (def mod (probe-module loader (as modname))) (def binding (find-binding (as varname) (module-target-environment mod))) ;; TODO: THIS MIGHT BE SUSPECT BUT IT MAKES DYN-CMP HAPPY (insert-global! binding gr) (unless binding (namespace-error "No binding %s in %s.\n" varname modname)) (objectify-binding name binding r)) (dm objectify-symbol (name r => ) (objectify-binding name (find-binding name r) r)) (dm ftype (r) (objectify ' r #f)) (def-programs functions) (dm objectify-locals (names sigs bodies body r tail? => ) (def vars (map (fun (n) (new binding-name n binding-type (ftype r))) names)) (def new-r (r-extend* r vars)) (def mets (map2 (fun (sig body) (def line (or (line-of sig) (line-of body))) (new program-line line)) sigs bodies)) (for ((sig sigs) (body bodies) (met mets) (var vars)) ;; TODO: CIRCULARITIES IN AST (set (binding-value var) met) (objectify-function-using met sig body new-r #f)) (do2 (fun (f b) (set (function-binding f) b) (set (function-debug-name f) (objectify-quotation (binding-name b) r))) mets vars) (new locals-bindings vars locals-functions (app fabs mets) locals-body (objectify-sequential body new-r #t))) (dm objectify-bind-exit (name body line r tail? => ) (new bind-exit-main-fun (objectify (sexpr-make-anonymous-method (line-list line name) body) r #f))) (dm objectify-unwind-protect (protected-form cleanup-forms line r tail? => ) (new unwind-protect-protected-thunk (objectify (sexpr-make-anonymous-method '() (line-list line protected-form)) r #f) unwind-protect-cleanup-thunk (objectify (sexpr-make-anonymous-method '() cleanup-forms) r #f))) (dm objectify-monitor (type info test handler body r tail? => ) (new monitor-type (objectify type r #f) monitor-info (objectify info r #f) monitor-test (objectify test r #f) monitor-handler (objectify handler r #f) monitor-main-thunk (objectify body r #f))) (dm objectify-refs (e*| r => ) (if (nul? e*) (nul ) (inline-refs (objectify (head e*) r #f) (objectify-refs (tail e*) r)))) ;; (dm split-c-inline-vals (vals|) ;; (rep loop ((vals (tail vals)) (strs (lst (1st vals))) (refs '())) ;; (if (nul? vals) ;; (tup (rev! strs) (rev! refs)) ;; (loop (tail (tail vals)) ;; (add strs (2nd vals)) (add refs (1st vals)))))) (dm split-c-inline-vals (vals|) (rep loop ((vals vals) (strs '()) (refs '())) (if (nul? vals) (tup (rev! strs) (rev! refs)) (let ((val (head vals))) (if (isa? val ) (loop (tail vals) (add strs val) refs) (loop (tail vals) (add strs #f) (add refs val))))))) (dm objectify-c-expr (x expr? r tail? => ) (let (((tup strs ref-strs) (split-c-inline-vals x)) (refs (objectify-refs ref-strs r))) (new c-inline-refs refs c-inline-strs strs c-inline-expr? expr?))) (dm objectify-c-inline (x r tail? => ) (def res (objectify-c-expr x #f r tail?)) (if (isa? (environment-next r) ) (let ((module (find-environment-module r))) (push! (module-c-forms module) res) (objectify-quotation #f r)) res)) (dm objectify-export (names r tail? => ) (def env (find-static-global-environment r)) (def module (find-environment-module r)) (unless (== env (module-target-environment module)) ;; The user tried to export bindings from a syntax environment. ;; (This shouldn't happen, because we don't provide 'export'.) (namespace-error "Can only export bindings from target environment.\n")) (do (fun (name) (def binding (find-binding name env)) (if (== binding #f) (esc exit (try ((type ) (description "Continue without exporting %s" name)) (fun (c r) (exit #f)) (namespace-error "Can't export undefined binding %s.\n" name))) (export-binding! module name binding))) names) (new constant-value #f)) (dm objectify-use/export-module (name r tail? => ) (def env (find-static-global-environment r)) (def module (find-environment-module r)) (def loader (environment-module-loader env)) (def used-module (probe-module loader name)) (push! (environment-uses-modules env) used-module) (do (fun (b) (import-global! b env) (export-binding! module (binding-name b) b)) (module-exports used-module)) (new constant-value #f)) (dm objectify-use-include (name r tail? => ) (def env (find-static-global-environment r)) (def mod (environment-module env)) (unless (any? (fun (x) (= x name)) (module-uses-c-includes mod)) (push! (module-uses-c-includes mod) name)) (new constant-value #f)) (dm objectify-use-library (name r tail? => ) (def env (find-static-global-environment r)) (def mod (environment-module env)) (unless (any? (fun (x) (= x name)) (module-uses-c-libraries mod)) (push! (module-uses-c-libraries mod) name)) (new constant-value #f)) (dm objectify-use-module (name r tail? => ) (def env (find-static-global-environment r)) (def mod (environment-module env)) (loc ((use-mod (name) (let ((loader (environment-module-loader env)) (used-module (probe-module loader name))) (push! (environment-uses-modules env) used-module) (do (fun (b) (import-global! b env)) (module-exports used-module)) used-module)) (use-c-mod (mod name) (unless (mem? (module-uses-c-files mod) name) (push! (module-uses-c-files mod) name)))) (case-by (as name) suffix? ((".c" ".h") (use-c-mod mod (as name))) ((".swig") (def swig-mod-name (as (1st (split (as name) #\.)))) (def swig-mod (use-mod swig-mod-name)) (use-c-mod swig-mod (cat-sym name ".c"))) (#t (use-mod name)))) (new constant-value #f)) (dm objectify-use-mangle-module (name mangler r tail? => ) (def env (find-static-global-environment r)) (def module (find-environment-module r)) (def loader (environment-module-loader env)) (def used-module (probe-module loader name)) (def str-mangler (as mangler)) (push! (environment-uses-modules env) used-module) (do (fun (b) (import-and-mangle-global! b str-mangler env)) (module-exports used-module)) (new constant-value #f)) (dm expand-bind-list (pat var fail => ) (syntax-error "Expected Pattern List %=\n" pat)) (dm expand-bind-list ((pat (t= '())) var fail => ) `(match-nul-list ,var ,fail)) (dm expand-bind-list (pat| var fail => ) (cond ((sexpr-unquote? pat) (syntax-error "Unquote Unexpected Here %=\n" pat)) ((sexpr-unquote-splicing? pat) (syntax-error "Unquote Splicing Unexpected Here %=\n" pat)) (#t (expand-bind-list* pat var fail)))) (dm expand-bind-list* ((pat (t= '())) var fail => ) `(match-nul-list ,var ,fail)) (dm expand-bind-list* (pat| var fail => ) `(let ((,var ,(expand-bind-element (head pat) var fail))) ,(expand-bind-list* (tail pat) var fail))) (dm expand-bind-element (pat var fail => ) `(match-atom ,var ',pat ,fail)) (dm expand-bind-element (pat| var fail => ) (cond ((sexpr-unquote? pat) `(seq (set ,(2nd pat) (match-unquote ,var ,fail)) (tail ,var))) ((sexpr-unquote-splicing? pat) `(seq (set ,(2nd pat) ,var) '())) (#t `(seq (let ((,var (match-sublist ,var ,fail))) ,(expand-bind-list pat var fail)) (tail ,var))))) (dm expand-pattern (pat| var fail => ) `(if (isa? ,var ) ,(expand-bind-list pat var fail) (,fail "Match Pattern Failure" ,var))) (dm expand-syntax-if (x| => ) (def pat (sexpr-syntax-if-pattern x)) (def vars (sexpr-bind-pattern-variables pat)) (def value (sexpr-syntax-if-value x)) (def then (sexpr-syntax-if-then x)) (def else (sexpr-syntax-if-else x)) (def var (gensym)) (def fail (gensym)) (def epat (expand-pattern pat var fail)) `(esc return (loc ((,fail ((msg ) (args ...)) (return ,else))) (let ((,var ,value)) (let ,(map (fun (x) `(,x #f)) vars) ,epat ,then))))) ;;; AST ENVIRONMENT ;;; these functions deal with the environment. r is a sequential of ;;; full-environment objects containing local bindings followed by an ;;; instance of environment followed by a sequential of full-environment ;;; containing the global mutable bindings mixed with the global ;;; macros followed by the predefined bindings. (dm r-extend* (r bindings| => ) (new environment-next r environment-bindings bindings)) (dm find-binding (name r| => ) (rep loop ((bindings (environment-bindings r))) ;; TODO: => (or #f) (if (nul? bindings) (find-binding name (environment-next r)) (if (== name (binding-name (head bindings))) (head bindings) (loop (tail bindings)))))) ;; TODO: => T? (dm find-binding (name r| => ) #f) ;;;; SPECIAL FORMS (dv *magic-bindings* '()) (dm register-magic-binding (name value) (set *magic-bindings* (add *magic-bindings* value))) (dm magic-bindings () *magic-bindings*) (ds define-magic-binding (,name (,@params) ,@body) (let ((special-name (cat-sym "special-" name)) (sexpr-name (cat-sym "$sexpr-" name "-tag"))) `(seq (dv ,special-name (new binding-kind 'magic binding-name ,sexpr-name binding-module #f binding-handler (fun (,@params) ,@body) binding-free? #f)) (register-magic-binding ',name ,special-name)))) (define-magic-binding if (x r tail?) (objectify-alternative (sexpr-if-test x) (sexpr-if-then x) (sexpr-if-else x) r tail?)) (define-magic-binding begin (x r tail?) (objectify-sequential (tail x) r tail?)) (dv $sexpr-%raw-tag '%raw) (define-magic-binding %raw (x r tail?) (objectify-raw (2nd x) r)) (define-magic-binding quote (x r tail?) (objectify-quotation (sexpr-text-of-quotation x) r)) (define-magic-binding set (x r tail?) (objectify-assignment (sexpr-assignment-variable x) (sexpr-assignment-value x) r tail?)) (define-magic-binding define (x r tail?) (objectify-variable-definition (sexpr-definition-variable x) (sexpr-definition-value x) r)) (define-magic-binding define-constant (x r tail?) (objectify-variable-definition (sexpr-definition-variable x) (sexpr-definition-value x) r)) (dv $sexpr-define-dynamic-tag 'ddv) (define-magic-binding define-dynamic (x r tail?) (objectify-dynamic-definition (sexpr-definition-variable x) (sexpr-definition-value x) r)) (define-magic-binding define-syntax (x r tail?) (objectify-syntax-definition (sexpr-syntax-definition-variable x) (sexpr-syntax-definition-value x) r #t)) (dv $sexpr-define-static-syntax-tag 'dss) (define-magic-binding define-static-syntax (x r tail?) (objectify-syntax-definition (sexpr-syntax-definition-variable x) (sexpr-syntax-definition-value x) r #f)) (define-magic-binding define-method (x r tail?) (objectify-method-definition (sexpr-function-definition-variable x) (sexpr-function-definition-adjectives x) (sexpr-function-definition-value x) r)) (define-magic-binding define-generic (x r tail?) (objectify-generic-definition (sexpr-function-definition-variable x) (sexpr-function-signature x) r)) (define-magic-binding define-function (x r tail?) (objectify-function-definition (sexpr-function-definition-variable x) (sexpr-function-definition-adjectives x) (sexpr-function-definition-value x) r)) (define-magic-binding method (x r tail?) (objectify-function (sexpr-method-signature x) (sexpr-method-body x) (line-of x) r tail?)) (dv $sexpr-bound?-tag 'bound?) (define-magic-binding bound? (x r tail?) (objectify-bound? (2nd x) (3rd x) r tail?)) (define-magic-binding let (x r tail?) (objectify (sexpr-let->combination x) r tail?)) ;; (define-magic-binding let (x r tail?) ;; (objectify (sexpr-let-value x) r tail?)) (define-magic-binding def (x r tail?) (objectify (sexpr-def-value x) r tail?)) (define-magic-binding locals (x r tail?) (objectify-locals (sexpr-loc-bound-names x) (sexpr-loc-bound-signatures x) (sexpr-loc-bound-bodies x) (sexpr-loc-raw-body x) r tail?)) (define-magic-binding iterate (x r tail?) (objectify (sexpr-iterate->loc x) r tail?)) (define-magic-binding bind-exit (x r tail?) (objectify-bind-exit (sexpr-block-name x) (sexpr-block-body x) (line-of x) r tail?)) (define-magic-binding unwind-protect (x r tail?) (objectify-unwind-protect (sexpr-unwind-protect-protected-form x) (sexpr-unwind-protect-cleanup-forms x) (line-of x) r tail?)) (define-magic-binding monitor (x r tail?) (def (tup type info test handler body) (sexpr-monitor-expand x)) (objectify-monitor type info test handler body r tail?)) (dm pairize (args| => ) (if (nul? args) (lst 'quote '()) (lst 'fab-pair (head args) (pairize (tail args))))) (define-magic-binding define-class (x r tail?) (def name (sexpr-definition-variable x)) (objectify-definition 'global name `(fab-class ',name ,(pairize (sexpr-define-class-parents x))) r)) (dm objectify-define-property (x setter? r tail?) (def name (sexpr-prop-name x)) (def var (sexpr-prop-init-var x)) (def owner (sexpr-prop-owner x)) (def type (sexpr-prop-type x)) (def line (line-of x)) (def setter-name (and setter? (sexpr-fab-setter-name name))) (objectify (sexpr-make-begin (lst (sexpr-fab-getter name owner line) (and setter? (sexpr-fab-setter name owner type line)) (sexpr-make-application '%prop (lst owner name setter-name type (if (sexpr-prop-init? x) (sexpr-make-anonymous-method `((,var )) (line-list line (sexpr-prop-init x))) '%prop-unbound-error))))) r tail?)) (define-magic-binding prop! (x r tail?) (objectify-define-property x #t r tail?)) (define-magic-binding prop (x r tail?) (objectify-define-property x #f r tail?)) (dv $sexpr-compile-time-tag 'ct) (define-magic-binding compile-time (x r tail?) (objectify-compile-time (head (tail x)) r tail? #f)) (dv $sexpr-compile-time-also-tag 'ct-also) (define-magic-binding compile-time-also (x r tail?) (objectify-compile-time (head (tail x)) r tail? #t)) (dv $sexpr-define-primitive-tag 'dl) (define-magic-binding define-primitive (x r tail?) (if (sexpr-forward-primitive? x) (seq (ast-define-binding r (sexpr-function-definition-variable x) #f 'predefined) (objectify #f r tail?)) (objectify-primitive-definition (sexpr-function-definition-variable x) (sexpr-function-definition-adjectives x) (sexpr-function-signature x) (sexpr-function-body x) r))) (define-magic-binding quasiquote (x r tail?) (objectify (sexpr-expand-backquote x) r tail?)) (dm ast-macro-expand (x r tail?) (def ast (objectify (head x) r tail?)) (if (isa? ast ) (let ((mac (reference-binding ast)) (res ((binding-handler mac) x r tail?))) ;; (msg out "EXPANSION ") (write out res) (msg out "\n") res) #f)) (define-magic-binding macro-expand (x r tail?) (objectify-quotation (ast-macro-expand (2nd x) r tail?) r)) (define-magic-binding syntax-if (x r tail?) ;; (syntax-if (?pattern ?value) ?form ...) ;; x => just matches etc ;; x => binds x to an sexpr ;; @x => binds x to a series of sexprs ;; TODO: make this deals with multiple bindings (objectify (expand-syntax-if x) r tail?)) (dv $sexpr-export-tag 'export) (define-magic-binding export (x r tail?) (objectify-export (tail x) r tail?)) (dv $sexpr-use-module-tag 'use) (define-magic-binding use-module (x r tail?) (objectify-use-module (2nd x) r tail?)) (dv $sexpr-use-mangle-module-tag 'use/mangle) (define-magic-binding use-mangle-module (x r tail?) (objectify-use-mangle-module (2nd x) r tail?)) (dv $sexpr-use-include-tag 'use/include) (define-magic-binding use-include (x r tail?) (objectify-use-include (2nd x) r tail?)) (dv $sexpr-use-library-tag 'use/library) (define-magic-binding use-library (x r tail?) (objectify-use-library (2nd x) r tail?)) (dv $sexpr-use/export-module-tag 'use/export) (define-magic-binding use/export-module (x r tail?) (objectify-use/export-module (2nd x) r tail?)) (dv $sexpr-c-ment-tag 'c-ment) (define-magic-binding c-ment (x r tail?) (objectify-c-inline (tail x) r tail?)) (dv $sexpr-c-expr-tag 'c-expr) (define-magic-binding c-expr (x r tail?) (objectify-c-expr (tail x) #t r tail?)) ;;;;======================================================================= ;;;; Set Up Initial Environments for Objectification ;;;;======================================================================= ;;;; To objectify code, we need to look up variables in a global ;;;; environment. Right now, there are several possible environments: ;;;; ;;;; 1) The listener's module, known as the "runtime" module, contains ;;;; one environment (which is used as both the syntax ;;;; and the target environment) per module. ;;;; ;;;; 2) p2c sets up seperate syntax and target environments for each ;;;; module it compiles. ;;;; ;;;; The syntax environments are stripped down versions of the ;;;; runtime environment. The compiler uses these environment to ;;;; process CT and DS forms. They contains most of the bindings in ;;;; core goo, but not much else. ;;;; ;;;; The target environments contain only a few bindings. The ;;;; initial bootstrap environments get initialized with a selection ;;;; of s and a few magic bindings like IF. ;;;; The target environments of other modules are initially supplied ;;;; with the magic bindings SEQ and USE, which are enough to allow ;;;; them to import bindings from other modules. ;;; Copy the binding for 'use' into the module, so it can ask for more ;;; bindings as needed. Copy 'seq', too, because the top-level of the ;;; file gets wrapped in it. (dm install-initial-bindings (env| loader|) (def bootmod (probe-module loader $goo-boot-module-name)) (def bootenv (module-target-environment bootmod)) (do (fun (name) (insert-global! (find-binding name bootenv) env)) '(SEQ USE))) (export install-initial-bindings) ;;; Objectify the specified code within a subtransaction associated ;;; with the appropriate module. ;;; ;;; XXX - It's not strictly correct to call this from the interpreter, ;;; because it will finalize the transaction as soon as the code ;;; is succcessfully objectified, but before it is run--and I'm not ;;; sure how we should handle rollbacks if part of the code is ;;; objectified but never executed. Nonetheless, this is nearly ;;; correct, and probably good enough for now. (df objectify-with-subtransaction (e r| dynamic-compilation? tail? => ) (with-subtransaction ((environment-module r)) (objectify e r tail?))) ;;; Change the type of the magic bindings in an environment, and install ;;; the right handlers. We only need to do this for the boot environment, ;;; because all the other modules have already imported these same binding ;;; objects, as described in reloader-do-other-binding. (df install-magic-bindings (env) (do (fun (binding) (def clone (ast-define-binding env (binding-name binding) #f 'magic)) (set (binding-handler clone) (binding-handler binding))) (magic-bindings))) ;;; Reload the macros, and change their appropriate binding types. (df reload-macros () (do3 (rcurry %%macro #f) *boot-macro-module-names* *boot-macro-names* *boot-macro-expanders*) (set *macros-ok?* #t)) (df install-interpreter-hacks (env) (init-environment-for-eval env)) (df init-runtime () (reload-modules) (def bootmod (probe-module (runtime-module-loader) $goo-boot-module-name)) (def bootenv (module-target-environment bootmod)) ;; We need to make a bunch of changes to bindings the boot module, ;; which will affect all the modules that use those bindings. (install-magic-bindings bootenv) (reload-macros) (install-interpreter-hacks bootenv) #f) ;;;;======================================================================= ;;;; g2c Environments ;;;;======================================================================= ;;;; TODO - Figure out what APIs we should export to allow this code to ;;;; live in g2c. ;; These bindings are initially available in CT and DS forms. ;; The section numbers refer to DOC/DOC.TXT. (dv syntax-environment-excluded-bindings '(CT CT-ALSO DS USE EXPORT)) ;; Create a new syntax environment for processing macros. (df fab-syntax-environment (module| => ) (fab-subset-environment module (runtime-module 'goo) syntax-environment-excluded-bindings)) (df fab-g2c-module (loader| name| => ) (def type (module-loader-module-type loader)) (def module (new type module-name name)) (def syntax-env (fab-syntax-environment module)) (def target-env (fab-static-global-environment module loader #f)) (set-module-environments module syntax-env target-env) (if (== name $goo-boot-module-name) (init-g2c-boot-environment target-env) (init-g2c-regular-environment target-env loader)) module) (export fab-g2c-module) (df init-g2c-boot-environment (env|) ;; Copy in just our macros, since everything else ;; must be defined by the program being compiled. And don't bother ;; to call 'init-environment-for-eval'--this is a compile-only environment. (insert-globals! (magic-bindings) env)) (df init-g2c-regular-environment (env| loader|) (install-initial-bindings env loader)) ;;;;======================================================================= ;;;; Other Environment Code ;;;;======================================================================= (df init-ast () (init-runtime)) ;;; MISC (dm ast-contains-fun? (x| => ) #t) (dm ast-contains-fun? (x => ) (esc return (loc ((walk (y) (if (isa? y ) (return #t) (ast-walk walk y)))) (ast-walk walk x)) #f)) ;;;;======================================================================= ;;;; Public API ;;;;======================================================================= (need-implementation ast-evaluate init-environment-for-eval) (export alternative-alternant alternative-condition alternative-consequent loop-body loop-body-setter loop-bindings loop-bindings-setter loop-continue loop-continue-setter application-arguments application-binding application-function application-known? application-known?-setter application-tail? application-loop assignment-binding assignment-form assignment-form-setter assignment-reference ast-define-binding free-environment function-ref-count function-ref-count-setter function-free function-free-setter function-index function-index-setter function-source function-source-setter function-frame-len function-frame-len-setter function-temporaries function-temporaries-setter function-registers function-registers-setter bind-exit-main-fun bind-exit-light? binding-index binding-index-setter binding-mutable? binding-value binding-value-setter binding-dotted? binding-dotted?-setter binding-closed-over? binding-closed-over?-setter binding-dynamic-extent? binding-dynamic-extent?-setter bound?-reference bound?-default compile-time-program constant-value constant-index def-list def-programs fix-let-arguments fix-let-arguments-setter fix-let-types fix-let-types-setter fix-let-bindings fix-let-bindings-setter fix-let-body fix-let-body-setter signature-names signature-names-setter signature-bindings signature-bindings-setter signature-specs signature-specs-setter req-sig-specs signature-nary? signature-nary?-setter signature-arity signature-arity-setter signature-value signature-value-setter function-signature function-signature-setter function-bindings function-names function-body function-body-setter function-binding function-adjectives function-debug-name function-debug-name-setter function-nary? function-arity function-specs function-value function-loop function-loop-setter function-inlineable? init-ast locals-bindings locals-bindings-setter locals-body locals-body-setter locals-functions locals-functions-setter %%macro %%%macro monitor-handler monitor-info monitor-main-thunk monitor-test monitor-type objectify-with-subtransaction objectify-quotation objectify-signature $bot program-type program-type-setter program-line program-register program-register-setter as-lst reference-binding reference-called-function? reference-called-function?-setter reference-frame-number reference-frame-offset application-next-methods sequentialize unwind-protect-cleanup-thunk unwind-protect-protected-thunk ast-walk ast-walk! ast-error process-closed-application ast-contains-fun? c-inline-refs c-inline-strs c-inline-expr? ) goo-0.155/src/eval/decision-trees.goo0100644000175000017500000000666607611105275017074 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo) (use cols/priority-queue) (use eval/ast) (use eval/top) ;;; TODO: ;;; x WALK ALL BINDINGS ;;; x NEED LITERALS VECTOR IN GEN -- METS, NXT-METS, TYPES ;;; x NEXT-METHODS TRACKING ;;; x DEPENDENCY TRACKING ;;; just use current system ;;; o FAST ISA? ;;; bit matrix algorithm ;;; class numbering ;;; fixed vectors ;;; class vector ;;; other types ;;; t< -- straight subclass using bitmatrix ;;; t= -- code gen ;;; t+ -- code gen ;;; o COMMON SUBEXPRESSION ELIMINATION ;;; hoist class-of ;;; o CONSTANT FOLDING ;;; remove tests against ;;; o INLINING ;;; inline prop access ;;; o DYNAMIC COMPILATION ;;; compile expression as in top ;;; circumvent module system ;;; o OPTIMIZE ISA? ;;; leaf classes ;;; tag checks (df fun-spec (x| i| => ) (elt (fun-specs x) i)) ;;; how access gen's that aren't in the current module? ;;; perhaps build mapping table ;;; could also have gen store mangled binding name ;;; could also store binding in gen and make that point to real binding (dm build-decision-tree (g|) (def code (build-decision-tree* g 0 (len (fun-specs g)) (fun-mets g))) (def dname (cat-sym "d-" (fun-name g) "-dispatch")) (def dfun `(df ,dname (args|...) ,code)) (def dpatch `(set (%gen-code ,(fun-name g)) (%met-code ,dname))) (def top `(seq ,dfun ,dpatch #t)) top) (ds type-case (,val ,@cases) (loc ((do-type-case (val cases) (if (nul? cases) #f (match (head cases) ((#t ,@body) `(seq ,@body)) (((,@values) ,@body) `(if (or ,@(map (fun (x) `(subtype? ,val ,x)) values)) (seq ,@body) ,(do-type-case val (tail cases)))) (#t (syntax-error "bad type-case %=" (head cases))))))) (let ((val-var (gensym))) `(let ((,val-var (class-of ,val))) ,(do-type-case val-var cases))))) (dm build-decision-tree* (g| i| n| mets|) (if (< i n) (loc ((test (x y) (subtype? (fun-spec x i) (fun-spec y i)))) (def ordered-mets (priority-order test mets)) (loc ((filter (mets type pos) (priority-order test (pick (fun (met) (subtype? type (fun-spec met pos))) mets))) (code-gen-case (m mets) (def type (fun-spec m i)) `((,type) ,(build-decision-tree* g (+ i 1) n (filter mets type i)))) (code-gen-cases (mets) (packing (rep loop ((mets mets)) (unless (nul? mets) (pack (code-gen-case (head mets) mets)) (loop (tail mets))))))) `(type-case (@oelt args ,i) ,@(code-gen-cases ordered-mets) (#t (no-app-met ,g args))))) `(%raw-met-call ,(head mets) ',(tail mets)))) (dm foo ((x )) (tup x)) (dm foo ((x )) (lst x)) (dm foo ((x )) x) ;; (seq (set goo/io/write:*max-print-depth* 100) (set goo/io/write:*max-print-length* 1000)) (dv d (build-decision-tree foo)) (ds def-tree (,gen) (build-decision-tree gen)) (df time (n) (let ((x 0)) (for ((i (below n))) (set x (+ x i))) x)) ;;; (f 2000000) ;;; (build-decision-tree +) ;;; (auto-eval d (runtime-environment 'goo/user)) goo-0.155/src/eval/dependency.goo0100644000175000017500000001204407542215072016260 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;;;====================================================================== ;;;;; Dependency Tracking ;;;;;====================================================================== ;;;;; TODO - Considering renaming all the major classes in this module. (use goo) ;;;;======================================================================= ;;;; Types of Dependencies ;;;;======================================================================= ;;;; We represent dependency types as integers for the sake of peformance ;;;; and compactness. (dv ) (df dependency-or (dep1| dep2| => ) (| dep1 dep2)) (df dependency-and (dep1| dep2| => ) (& dep1 dep2)) (dv $nul-dependency 0) (dv $all-dependency-types 65535) ;; XXX - Should be all 1 bits. (df dependency-nul? (dep| => ) (== dep $nul-dependency)) (df dependency-includes-all? (main| values| => ) (== (dependency-and main values) values)) (df dependency-includes-any? (main| values| => ) (not (dependency-nul? (dependency-and main values)))) (export dependency-or dependency-and $nul-dependency $all-dependency-types dependency-nul? dependency-includes-all? dependency-includes-any?) ;;;;======================================================================= ;;;; Parse-Time Dependencies ;;;;======================================================================= ;;;; If these are invalidated, we need to reparse the source code. (dv $name-parse-dependency 1) ; We translated a name to a binding. (dv $expansion-parse-dependency 2) ; We expanded a macro. (dv $parse-dependencies (dependency-or $name-parse-dependency $expansion-parse-dependency)) (export $name-parse-dependency $expansion-parse-dependency $parse-dependencies) ;;;;======================================================================= ;;;; Optimization-Time Dependencies ;;;;======================================================================= ;;;; If these are invalidated, we only need to re-optimize the source ;;;; code. (dv $value-optimization-dependency 4) ; We looked at the binding's value. (dv $optimizaton-dependencies $value-optimization-dependency) (export $value-optimization-dependency $optimizaton-dependencies) ;;;;======================================================================= ;;;; Dependents & Dependables ;;;;======================================================================= ;;; May be depended-upon by a . (dc ()) ;; A table keyed by , containing values. (dp dependents ( => ) (fab 4)) ;;; May depend upon a . (dc ()) (dp! depends-on ( => ) (fab 20)) ;;; Log a dependency, together with any type information. (df log-dependency (dependable| dependent| dtype| => #f) (set (elt (depends-on dependent) dependable) #t) (def dep-table (dependents dependable)) (def entry (elt-or dep-table dependent #f)) (set (elt dep-table dependent) (if entry (dependency-or entry dtype) dtype)) #f) ;;; Look up a dependecy. Primarily used for testing. (df find-dependency (dependable| dependent| => (t? )) (elt-or (dependents dependable) dependent #f)) ;;; Clobber a single dependent. 'dtype' says which kinds of dependencies ;;; have been invalidated. (dg invalidate-dependent (dependent| dependable| dtype|)) ;;; Clobber all dependents of 'dependable' which rely on any of the ;;; bits in 'invalid-dtype'. (df invalidate-dependents (dependable| invalid-dtype|) (do-keyed (fun (dependent dependendent-dtype) (def intersection (dependency-and invalid-dtype dependendent-dtype)) (unless (dependency-nul? intersection) (invalidate-dependent dependent dependable intersection))) (dependents dependable))) ;;; Remove a dependent from everything it depends upon. (df detach-dependent (dependent|) (do-keyed (fun (dependable junk) (unless (del! (dependents dependable) dependent) (ast-error "Cannot remove %= from %=.\n" dependent dependable))) (depends-on dependent)) (set (depends-on dependent) (fab 0))) (dg ast-error (msg args|...)) (export ast-error log-dependency find-dependency invalidate-dependent invalidate-dependents detach-dependent) goo-0.155/src/eval/g2c.goo0100644000175000017500000013752607756744631014651 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;; BASED ON Lisp In Small Pieces by Christian Queinnec ;;;; ;;;; g2c - Goo-to-C compiler ;;;; (use goo) (use goo/boot) (use goo/macros) (use goo/system) (use goo/io/write) (use goo/cols/col) (use goo/cols/str) (use eval/ast) (use eval/top) (use eval/ast-linearize) ;; (use eval/typist) (use eval/optimize) (ddv *definitions* #f) ;;;;======================================================================= ;;;; Module Loading ;;;;======================================================================= ;;;; We subclass the module loader and add our own code for locating and ;;;; processing modules. (dc ()) (dp module-loader-appname ( => )) (dp module-loader-app-modname ( => )) (dc ()) (dp! module-src-file ( => )) (dp! module-mtime ( => )) (dm module-loader-module-type (loader| => ) ) (dl %print-cpu-usage) (dm load-module (loader| name| => ) (def mod (fab-g2c-module loader name)) (def keepmod? #f) (def env (module-target-environment mod)) (def file (module-name-to-relpath name)) (def src-file (add-src-path (goo-filename file))) (def appname (module-loader-appname loader)) (def out-file (add-build-path appname (c-filename file))) (set (module-src-file mod) src-file) (set (module-mtime mod) (file-mtime src-file)) ;; (msg* out "Computing ast for %s.\n" name) (%print-cpu-usage (%su "START")) (def ast (compute-ast src-file env)) ;; (msg* out "Computing program for %s.\n" name) (def prg (compute-program ast env)) (%print-cpu-usage (%su "OPTIMIZE")) ;; (msg* out "Generating C code for %s.\n" name) (probe-directory (parent-directory out-file)) (with-port (out-port (open out-file)) (dlet ((*definitions* (program-definitions prg))) (generate-c-module out-port ast prg mod))) (do (fun (name) ;; copy c files (def file (module-name-to-relpath name)) (def build-file (add-build-path appname file)) (def src-file (add-src-path file)) (when (or (not (file-exists? build-file)) (>= (file-mtime src-file) (file-mtime build-file))) (file-copy src-file build-file))) (module-uses-c-files mod)) (%print-cpu-usage (%su "EMIT")) ;;; No need to call roll-back-transaction here--we can ;;; rely on the compilation subtransaction to do all ;;; the work. mod) (df module-up-to-date? (mod| => ) (>= (module-mtime mod) (file-mtime (module-src-file mod)))) (df purge-outdated-modules (loader|) (def changed '()) ;; Figure out which modules have changed... (do-module-loader-modules (fun (mod) (when (not (module-up-to-date? mod)) (pushf changed (module-name mod)))) loader) ;; ...notify the user, and dump them. (do (fun (name) (msg* out "%s has changed.\n" name)) changed) (remove-modules-by-name! loader changed)) ;;;;======================================================================= ;;;; Compiler Drivers ;;;;======================================================================= ;;;; The new module-based compiler drivers. ;;; Create a module loader for the specified application. 'appname' ;;; will be used as the executable name. 'modname' will be used to ;;; recursively load all the modules which make up the application. ;;; TODO - Hide module loader inside wrapper object? (df g2c-def-app (appname| modname| => ) (new module-loader-appname appname module-loader-app-modname modname)) ;;; Given a module loader, generate an up-to-date C program. (df g2c-build-app (loader| => #f) (dlet ((*dynamic-compilation?* #f)) (purge-outdated-modules loader) (def mod (probe-module loader (module-loader-app-modname loader))) (puts out "Searching for undefined global bindings.\n") (do-module-loader-modules report-undefined-global-bindings loader) (generate-c-application loader mod) (generate-makefile loader) #f)) (df g2c-test (x) (set *g2c-app* (g2c-def-app (cat "g2c-" (to-str x)) 'eval/main))) (ddv *tmp-file-counter* -1) (dm g2c-ast (ast env) (def mod (environment-module env)) (def name (msg-to-str "exp-%d-%d" (process-id) (incf *tmp-file-counter*))) (def file (add-tmp-path name)) (def out-file (c-filename file)) (def prg (compute-program ast env)) (with-port (out-port (open out-file)) (dlet ((*dynamic-compilation?* #t) (*definitions* (program-definitions prg))) (generate-c-module out-port ast prg mod))) file) (dm g2c-exp (exp env) (g2c-ast (objectify-with-subtransaction exp env *dynamic-compilation?* #f) env)) (dm compile-load (name mod) (def incs (module-uses-c-includes mod)) (def istr (fold cat "" (map (op cat " -I" (as _)) incs))) (def libs (module-uses-c-libraries mod)) (def lstr (fold cat "" (map (op cat " -l" (as _)) libs))) (%compile (%su (cat name *c-extension*)) (%su (cat name ".so")) (%su istr) (%su lstr)) (%load (%su (cat name ".so")))) (dm g2c-eval (exp env) (def name (g2c-exp exp env)) (compile-load name (environment-module env))) (dm g2c-eval (ast| env) (def name (g2c-ast ast env)) (compile-load name (environment-module env))) ;;; Backwards compatibility for users: Build g2c itself. (dv *g2c-app* (g2c-def-app "g2c" 'eval/main)) (dm g2c-top () (g2c-build-app *g2c-app*)) (dv g2c-goo g2c-top) (dm g2c-clean () (set *g2c-app* (g2c-def-app "g2c" 'eval/main)) #f) ;;; Given a file name and an environment, compute an ast in that ;;; environment. (dm compute-ast (filename ct-env) (def sexpr (read-file filename)) (%print-cpu-usage (%su "READ")) (def ast (objectify-with-subtransaction sexpr ct-env *dynamic-compilation?* #f)) (%print-cpu-usage (%su "AST")) ast) ;;; Given an ast 'e', prepare it for compilation to C. Store any ;;; new global bindings into the environment 'scratch-env'. (dm compute-program (e env) (def ana (analyze-calls e env)) (%print-cpu-usage (%su "ANA")) (def box (insert-box! ana)) (%print-cpu-usage (%su "BOX")) ;; (msg* out "BOX %=\n" box) ;; (def dyn (analyze-dynamic-extent box)) ;; (%print-cpu-usage (%su "DYN")) ;; (msg* out "DYN %=\n" dyn) ;; (msg* out "CAL %=\n" cal) (def lft (lift! box)) (%print-cpu-usage (%su "LFT")) ;; (msg* out "LFT %=\n" lft) (def prg (extract-things! lft)) (%print-cpu-usage (%su "EXT")) ;; (msg* out "EXT %=\n" prg) (def flt (closurize-main! prg env 50)) (%print-cpu-usage (%su "CLO")) ;; (msg* out "FLT %=\n" flt) (gather-temporaries! flt) (%print-cpu-usage (%su "TMP")) ;; (msg* out "FLT %=\n" flt) (register-allocate! flt #f) (%print-cpu-usage (%su "REG")) prg) (dm generate-c-module (out e prg mod) (generate-header out mod) (generate-global-environment out mod) (generate-quotation-forwards out (program-quotations prg)) (generate-function-forwards out (program-definitions prg)) (generate-c-forms out (module-c-forms mod)) (generate-function-bodies out (program-definitions prg)) (unless *dynamic-compilation?* (generate-module-info out mod)) (generate-module-init out mod (program-form prg)) (generate-trailer out) prg) (dm generate-c-application (loader| mod|) (def appname (module-loader-appname loader)) (def init-name (cat appname "-init")) (def out-name (add-build-path appname (c-filename init-name))) (with-port (out-port (open out-name)) (generate-header out-port mod) (generate-main out-port mod) (generate-trailer out-port)) #f) (ds for-mods ((,mod ,loader) ,@body) `(do-module-loader-modules (fun (,mod) ,@body) ,loader)) (dm generate-makefile (loader|) (def appname (module-loader-appname loader)) (def init-name (cat appname "-init")) (def exe-name (exe-filename appname)) (def sep *path-separator*) (def out-name (add-build-path appname "Makefile")) (with-port (out (open out-name)) (msg* out "C_OBJS_DD = $(patsubst %%,..%s%%,$(C_OBJS))\n" sep) (msg* out "%s%s: ..%sgrt.h\n" *c-extension* *obj-extension* sep) (msg* out "\t$(CC) -I.. ") (for-mods (mod loader) (do (fun (i) (unless (include-filename i) (msg* out "-I%s " i))) (module-uses-c-includes mod))) (msg* out "$(CFLAGS) -DDEFAULT_GOO_ROOT=\\\"$(GOO_ROOT)\\\" -c -o $@ $<\n\n") (msg* out "OBJS = \\\n") (for-mods (mod loader) (loc ((put-obj (name) (msg* out "\t%s \\\n" (obj-filename (module-name-to-relpath name))))) (put-obj (module-name mod)) (do (fun (name) (when (suffix? name ".c") (put-obj (as (sub name 0 (- (len name) 2)))))) (map (fun (n) (as n)) (module-uses-c-files mod))))) (msg* out "\t%s\n\n" (obj-filename init-name)) (msg* out "%s: $(C_OBJS_DD) $(OBJS)\n" exe-name) (msg* out "\t$(CC) $(LDFLAGS) -o %s $(C_OBJS_DD) $(OBJS) $(LIBS)" exe-name sep sep) (for-mods (mod loader) (do (fun (l) (msg* out " -l%s" l)) (module-uses-c-libraries mod))) (msg* out "\n\nclean:\n\trm -f %s $(OBJS)\n" exe-name sep))) (dm generate-c-forms (out definitions) (puts out "\n/* C-FORMS: */\n\n") (for ((def definitions)) (to-c def #f 0 out))) ;;;ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ;;; generation ;;; file header and trailer are simple. (dm pp (e out) ;; (print e out pretty?: #t) ;; TODO: PRETTY? (write out e)) (dv $now-mod-var-name "_mod") (dm include-filename (x) #f) (dm include-filename (x|) (def x (as x)) (and (prefix? x "<") (suffix? x ".h>") x)) (dm include-filename (x|) (and (suffix? x ".h") (cat "\"" x "\""))) (dm generate-header (out mod) (def modname (module-name mod)) (def modvar $now-mod-var-name) (msg* out "/* GOO 2 C $REVISION: 0.120 $ \n") (msg* out " */\n\n#include \"grt.h\"\n") (when *dynamic-compilation?* (msg* out "#include \"dlgrt.h\"\n")) (do (fun (i) (def ifn (include-filename i)) (when ifn (msg* out "#include " ifn "\n"))) (module-uses-c-includes mod)) (msg* out "\nstatic PSTR %s = PNUL;\n" modvar) (msg* out "\nstatic P sloc (int line) {\n") (msg* out " if (%s == PNUL) %s = " modvar modvar) (generate-quotation out modname) (msg* out ";\n") (msg* out " return %s(%s((P)line), %s);\n" (mangle-boot-name "%src-loc") (mangle-boot-name "%ib") modvar) (msg* out "}\n") ) (dm generate-trailer (out) (msg* out "\n/* END OF GENERATED CODE. */\n")) ;;;ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ;;; generate global environment. for all global-bindings allocate a ;;; location to hold it. we also give the real name to the macro so ;;; that some reflective capabilities can be added to c. ;;; gb* is a list of instances of global-binding. (dm generate-global-environment (out mod) (msg* out "\n/* MODULE ENVIRONMENT: %s */\n\n" (module-name mod)) (loc ((gen-binding (b) (generate-global-binding out (not (binding-native-to? b mod)) b))) (if *dynamic-compilation?* (do gen-binding (module-referenced-bindings mod)) (do-static-global-bindings gen-binding (module-target-environment mod))))) (dm generate-global-binding (out imported? gb) (def kind (binding-kind gb)) (when (or (== kind 'global) (== kind 'runtime) (== kind 'dynamic)) (def name (binding-name gb)) (puts out (case kind (('runtime) "RTV") (('dynamic) "DYN") (#t ""))) (msg* out "%s(%s,%s,%s);\n" (if imported? "EXT" "DEF") (mangle-binding gb) (mangle-string-literal (binding-module-name gb)) (mangle-string-literal name)))) ;;;; NAME MANGLING (dv $module-separator "Y") (dv $local-suffix "_") (dv $hygiene-marker "F") (dv $escape-separator "Z") (dv $iep-suffix "I") (dv $method-mangled-marker-string "M") ;; Note that the following must be characters rather than strings since ;; the initialization of mangles tables assumes that. (dv $module-marker (elt $module-separator 0)) (dv $local-marker (elt $local-suffix 0)) (dv $hygiene-char (elt $hygiene-marker 0)) (dv $escape-marker (elt $escape-separator 0)) (dv $iep-marker (elt $iep-suffix 0)) (dv $method-mangled-marker (elt $method-mangled-marker-string 0)) (dv $min-character-code 0) (dv $max-character-code 255) ;; We allow 8 bit ascii. ;;; MANGLING (dv *mangle-buffer* (new )) (dv $mangles-data (tup #(#\- #\_) #(#\! #\X) #(#\$ #\D) #(#\% #\P) #(#\* #\T) #(#\/ #\S) #(#\< #\L) #(#\> #\G) #(#\? #\Q) #(#\+ #\A) #(#\& #\B) #(#\^ #\C) #(#\_ #\U) #(#\@ #\O) #(#\= #\E) #(#\~ #\N) #(#\| #\K) #(#\. #\I))) (df char-buffer-as-string (buffer| => ) (def buffer-size| (len buffer)) (def string| (fab buffer-size)) ;; without-bounds-checks (rep loop ((i 0)) (when (< i buffer-size) (set (fab-elt string i) (low-elt buffer i)) (loop (+ i 1)))) ;; end without-bounds-checks string) (dv $c-escapes (let ((vec (fill (fab ascii-limit) #f))) (set (elt vec (as #\tab)) "\\t") (set (elt vec (as #\page)) "\\f") (set (elt vec (as #\return)) "\\r") (set (elt vec (as #\newline)) "\\n") (set (elt vec (as #\")) "\\\"") (set (elt vec (as #\\)) "\\\\") (as vec))) (dm mangle-string-literal (str| => ) (set (len *mangle-buffer*) 0) (def len (len str)) (add! *mangle-buffer* #\") (rep loop ((i 0)) (if (= i len) (seq (add! *mangle-buffer* #\") (char-buffer-as-string *mangle-buffer*)) (let ((c (elt str i)) (enc (elt $c-escapes (as c)))) (if (= enc #f) (add! *mangle-buffer* c) (cat! *mangle-buffer* enc)) (loop (+ i 1)))))) (dm mangle-string-literal (sym| => ) (mangle-string-literal (sym-name sym))) (dv ($number-characters ) "0123456789") (dm mangle-integer (number| => ) (as (rep process-integer (((number ) number) ((index ) 1)) (def (tup quotient| remainder|) (trunc/ number 10)) (def digit| (elt $number-characters remainder)) (if (= quotient 0) (let ((result| (fab index))) (set (elt result 0) digit) result) (let ((result| (process-integer quotient (+ index 1)))) (set (elt result (- (len result) index)) digit) result))))) (dv $name-mangler-table (let ((table (fab (+ $max-character-code 1)))) ;; fill with default manglings (for ((i (range $min-character-code <= $max-character-code))) (set (elt table i) (cat $escape-separator (mangle-integer i) $escape-separator))) ;; fill in special cases (for ((mangle $mangles-data)) (set (elt table (as (elt mangle 0))) (elt mangle 1))) ;; fill C allowable versions (for ((i (range (as #\a) <= (as #\z)))) (set (elt table i) (as i))) (for ((i (range (as #\0) <= (as #\9)))) (set (elt table i) (as i))) table)) ;;; Name mangler (df mangler-reset (buffer|) (set (len buffer) 0)) (df mangle-name-into (buf| name|) (for ((c name)) (add! buf (elt $name-mangler-table (as (to-lower c))))) buf) (dm mangle-raw-name (name| => ) (mangler-reset *mangle-buffer*) (mangle-name-into *mangle-buffer* name) (char-buffer-as-string *mangle-buffer*)) (dm mangle-raw-name (name| => ) (mangle-raw-name (as name))) (dm mangle-local-name (name| => ) (mangler-reset *mangle-buffer*) (mangle-name-into *mangle-buffer* name) (add! *mangle-buffer* $local-marker) (char-buffer-as-string *mangle-buffer*)) (dm mangle-local-name (name| => ) (mangle-local-name (as name))) ;; TODO: GO AWAY (df buf-cat2! (buf| name|) (def len (len name)) (rep loop ((i 0)) (when (< i len) (add! buf (low-elt name i)) (loop (+ i 1))))) (dm mangle-module-into (buf| mod|) (let ((name (or/set (module-mangled-name mod) (char-buffer-as-string (mangle-name-into (fab 0) (as (module-name mod))))))) (buf-cat2! buf name))) (dm mangle-global-name (mod name| => ) (mangler-reset *mangle-buffer*) ;; Keep internal names as short as possible. (unless (or (== mod $goo-boot-module-name) (== (module-name mod) $goo-boot-module-name)) (add! *mangle-buffer* $module-marker) (mangle-module-into *mangle-buffer* mod)) (add! *mangle-buffer* $module-marker) (mangle-name-into *mangle-buffer* name) (char-buffer-as-string *mangle-buffer*)) (dm mangle-global-name (mod name| => ) (mangle-global-name mod (as name))) ;; Mangle a name which is defined in boot.goo. ;; Be sure to provide a matching EXT declaration in grt.h. (df mangle-boot-name (name) (mangle-global-name $goo-boot-module-name name)) (df mangle-quotation-name (name|) (mangler-reset *mangle-buffer*) (buf-cat2! *mangle-buffer* "lit_") (buf-cat2! *mangle-buffer* (mangle-integer name)) (char-buffer-as-string *mangle-buffer*)) (dm mangle-binding (binding|) (or/set (binding-mangled-name binding) (if (== (binding-kind binding) 'quotation) (mangle-quotation-name (binding-name binding)) (mangle-global-name (binding-module binding) (binding-name binding))))) (df mangle-local-marked-name (name| marker|) (mangler-reset *mangle-buffer*) (mangle-name-into *mangle-buffer* name) (add! *mangle-buffer* $hygiene-char) (buf-cat2! *mangle-buffer* (mangle-integer marker)) (char-buffer-as-string *mangle-buffer*)) (dm mangle-binding (binding|) (or/set (binding-mangled-name binding) (mangle-local-name (binding-name binding)))) (dm mangle-binding (binding|) (or/set (binding-mangled-name binding) (mangle-local-marked-name (as (binding-name binding)) (binding-index binding)))) ;;; EMISSION (ds for-commas (,out-val (,@clauses) ,@body) (let ((out-var (gensym))) `(let ((,out-var ,out-val)) (for (,@clauses (first? (first-then (op #t) (op #f)))) (unless first? (put ,out-var #\,)) ,@body)))) (ds maybe-between-parentheses ((,out-val) ,@body) (let ((out-var (gensym)) (ps? (gensym))) `(let ((,out-var ,out-val) (,ps? (not *gen-statements?*))) (when ,ps? (put ,out-var #\()) ,@body (when ,ps? (put ,out-var #\)))))) (ds between-parentheses ((,out-val) ,@body) (let ((out-var (gensym))) `(let ((,out-var ,out-val)) (put ,out-var #\() ,@body (put ,out-var #\))))) (ds between-parentheses-comma-separated ((,out-val) ,@body) (let ((out-var (gensym))) `(let ((,out-var ,out-val)) (put ,out-var #\() ,@(rep loop ((forms '()) (body body) (first? #t)) (if (nul? body) (rev! forms) (loop (pair (head body) (pair (or first? `(put ,out-var #\,)) forms)) (tail body) #f))) (put ,out-var #\))))) (dm gen-result (e| d out => ) (def reg (program-register e)) (and reg (msg* out "T%d = " reg) #t)) (dm gen-depth (d| out) (for ((i (below d))) (puts out " "))) ;;; either generate C statements or expressions (ddv *gen-statements?* #t) (ds with-statement ((,d ,out) ,@body) `(seq (when *gen-statements?* (gen-depth ,d ,out)) ,@body (when *gen-statements?* (puts ,out ";\n")))) (ds may-comma ((,out-val) ,@body) (let ((out-var (gensym))) `(let ((,out-var ,out-val)) ,@body (unless *gen-statements?* (puts ,out-var ", "))))) (ds with-statement-may-comma ((,d ,out) ,@body) `(may-comma (,out) (with-statement (,d ,out) ,@body))) (ds with-expression ((,e ,d ,out) ,@body) `(with-statement (,d ,out) (when *gen-statements?* (gen-result ,e ,d ,out)) ,@body)) (ds with-used-expression ((,e ,d ,out) ,@body) `(when (program-register ,e) (with-expression (,e ,d ,out) ,@body))) ;;; QUOTATION EMISSION (dm generate-quotation-forwards (out (qb* )) (puts out "\n/* FORWARD QUOTATIONS: */\n\n") (for ((qb qb*)) (msg* out "DEFLIT(lit_%s);\n" (binding-name qb)))) (dm generate-quotations (out qb*|) (for ((qb (rev qb*))) ;; TODO: BIP (with-statement (1 out) (msg* out "lit_%s = " (binding-name qb)) (generate-quotation out (binding-info qb))))) (d. *lits* (fab 0)) (d. *lits-at* (fab 0)) (df @lit (n) (elt *lits* n)) (dm ref-lit (x) (elt! *lits-at* x {\ (def n (len *lits*)) (add! *lits* x) n })) (dm generate-quotation (out x|) (msg* out "%s((P)%d)" (mangle-boot-name "%lit") (ref-lit x))) (dm false-name () (mangle-boot-name "%false")) (dm generate-quotation (out qb|) (puts out (mangle-boot-name (if qb "%true" "%false")))) (dm generate-quotation (out (qb (t= '()))) (puts out (mangle-boot-name "nil"))) (dm generate-quotation (out qb|) (out-list-builder (fun (x) (generate-quotation out x)) out qb)) (dm generate-quotation (out x|) (msg* out "%s((P)%d)" (mangle-boot-name "%int") x)) (dm generate-quotation (out x|) (msg* out "%s((P)%d)" (mangle-boot-name "%chr") (as x))) (dm float-to-c-string (o| => ) (def s (num-to-str o)) ;;---*** Is there a better way to do this??? (esc done (rep loop ((i (- (len s) 1))) (if (> i (neg 1)) ;; TODO: -1 (case (elt s i) ;;---*** Should be #\f but GCC complains! ((#\s) (set (elt s i) #\e) (done #f)) ((#\d) (set (elt s i) #\e) (done #f)) ;;---*** Should be #\l but GCC complains! ((#\x) (set (elt s i) #\e) (done #f)) (#t (loop (- i 1)))) s)))) (dm generate-quotation (out x|) (msg* out "%s(FLOINT(%s))" (mangle-boot-name "%flo") (float-to-c-string x))) (dm generate-quotation (out x|) (msg* out "%s((P)%s)" (mangle-boot-name "%sb") (mangle-string-literal x))) (dm generate-quotation (out x|) ;; TODO: TIE TOGETHER (msg* out "XCALLN(1, %s, %s" (mangle-boot-name "vec") (len x)) (for ((e x)) (puts out ", ") (generate-quotation out e)) (puts out ")")) (dm generate-quotation (out x|) ;; TODO: TIE TOGETHER (msg* out "XCALLN(1, %s, %s" (mangle-boot-name "tup") (len x)) (for ((e x)) (puts out ", ") (generate-quotation out e)) (puts out ")")) (dm generate-quotation (out x|) (msg* out "%s((P)%s)" (mangle-boot-name "%%sym") (mangle-string-literal x))) ;;; ;;; CONVERT AN EXPRESSION TO C ;;; GENERATE THE NAME USED IN C FOR A BINDING. (df binding->c (binding out) (puts out (mangle-binding binding))) ;;; WORKS FOR LOCAL- GLOBAL- PREDEFINED- REFERENCES EXCEPT FOR FREE-REFERENCES. (dg reference->c (v| out)) (dm reference->c (v| out) (binding->c v out)) (dm reference->c (v| out) (puts out (case (binding-kind v) (('quotation) "LITREF") (('runtime) "RTVREF") (('dynamic) "DYNREF") (#t "VARREF"))) (between-parentheses (out) (binding->c v out))) (dg to-c (e| f d out)) (dm to-c (e| f d out) (generate-quotations out (form-quotations e)) (generate-functions (form-definitions e) f d out) (to-pc (form-program e) f d out) (with-used-expression (e d out) (gen-ref (form-program e) f d out))) (dm to-c (e| f d out) (unless *gen-statements?* (gen-ref* e out))) (dm gen-ref* (e| out) (reference->c (reference-binding e) out)) (dm gen-ref* (e| out) (puts out "FREEREF") (between-parentheses (out) (msg* out "%d" (reference-offset e)))) (dm gen-ref* (e| out) (def reg (program-register e)) (if reg (msg* out "T%d" reg) (puts out "T_1"))) (dm gen-ref* (e| out) (msg* out "(P)%s" (constant-value e))) (dm gen-ref* (e| out) (generate-quotation out (constant-value e))) (dm gen-ref* (e| out) (gen-ref* (last e) out)) (dm gen-ref* (e| out) (gen-ref* (locals-body e) out)) (dm gen-ref* (e| out) (gen-ref* (fix-let-body e) out)) (dm gen-ref* (e| out) (gen-ref* (loop-body e) out)) (df gen-ref (e f d out) (if *gen-statements?* (gen-ref* e out) (to-c e f d out))) ;;; TO-C ;;; this is used for pregenerating nested goo expressions ;;; it's turned off when doing expression-oriented emission (dm to-pc (e f d out) (when *gen-statements?* (to-c e f d out))) (dm to-c (e| f d out) (to-pc (assignment-form e) f d out) (with-expression (e d out) (puts out (case (binding-kind (assignment-binding e)) (('runtime) "RTVSET(") (('dynamic) (if (isa? e ) "DYNDEFSET(" "DYNSET(")) (#t "VARSET("))) (binding->c (assignment-binding e) out) (puts out ",") (gen-ref (assignment-form e) f d out) (puts out ")"))) (dm to-c (e| f d out) (to-pc (bound?-default e) f d out) (with-used-expression (e d out) ;; TODO: FIX FOR DYN (when (isa? (bound?-reference e) ) (puts out "RTV")) (puts out "VARREF_OR") (between-parentheses-comma-separated (out) (binding->c (reference-binding (bound?-reference e)) out) (gen-ref (bound?-default e) f d out)))) ;; TODO: DOES REF NEED TO BE TO-C'D (dm to-c (e| f d out) (def ref (box-reference e)) (with-used-expression (e d out) (if (binding-closed-over? (reference-binding ref)) { (puts out "BOXGET") (between-parentheses (out) (gen-ref ref f d out)) } (gen-ref ref f d out)))) (dm to-c (e| f d out) (def ref (box-reference e)) (to-pc (box-form e) f d out) (with-expression (e d out) (if (binding-closed-over? (reference-binding ref)) { (puts out "BOXPUT") (between-parentheses-comma-separated (out) (gen-ref (box-form e) f d out) (gen-ref ref f d out)) } { (gen-ref ref f d out) (puts out " = ") (gen-ref (box-form e) f d out) }))) (dm to-c (e| f d out) (def binding (reference-binding (box-reference (box-reference e)))) (when (binding-closed-over? binding) (with-expression (e d out) (binding->c binding out) (puts out " = BOXFAB") (between-parentheses (out) (binding->c binding out))))) (dm bb? (x) #f) (dm bb? (x|) (and (== (binding-name (application-binding x)) '%bb) (1st (application-arguments x)))) (dm bb? (x|) (bb? (fix-let-body x))) (dm to-c (e| f d out) ;;; gcc can't optimize if with %bb tests (def bb-tst (bb? (alternative-condition e))) (def tst (or bb-tst (alternative-condition e))) (if *gen-statements?* { (to-pc (alternative-condition e) f d out) (gen-depth d out) (puts out "if (") (gen-ref tst f d out) (if bb-tst (puts out ") {\n") (msg* out " != %s) {\n" (false-name))) (to-c (alternative-consequent e) f (+ d 1) out) (with-used-expression (e (+ d 1) out) (gen-ref (alternative-consequent e) f d out)) (gen-depth d out) (puts out "} else {\n") (to-c (alternative-alternant e) f (+ d 1) out) (with-used-expression (e (+ d 1) out) (gen-ref (alternative-alternant e) f d out)) (gen-depth d out) (puts out "}\n") } { (puts out "((") (to-c tst f d out) (msg* out " != %s) ? " (false-name)) (to-c (alternative-consequent e) f d out) (puts out " : ") (to-c (alternative-alternant e) f d out) (puts out ")") })) (dm to-c (e| f d out) (if *gen-statements?* (do (fun (x) (to-c x f d out)) e) { (puts out "(") (for-commas out ((x e)) (to-c x f d out)) (puts out ")") } )) (ddv *loop-arg-counter* -1) (dm to-c (e| f d out) (def n (set (loop-continue e) (incf *loop-arg-counter*))) (gen-depth d out) (msg* out "LOOP_%d: {\n" n) (def bindings (loop-bindings e)) (unless (nul? bindings) (with-statement ((+ d 1) out) (puts out "P ") (for-commas out ((b bindings) (i (from 0))) (msg* out "a%d_%d" n i)))) (to-c (loop-body e) f (+ d 1) out) (gen-depth d out) (msg* out "}\n")) (dm to-c (e| f d out) (def loop (application-loop e)) (def n (loop-continue loop)) (for ((arg (application-arguments e))) (to-pc arg f d out)) (for ((arg (application-arguments e)) (i (from 0))) (with-statement (d out) (msg* out "a%d_%d = " n i) (gen-ref arg f d out))) (for ((binding (loop-bindings loop)) (i (from 0))) (with-statement (d out) (binding->c binding out) (msg* out " = a%d_%d" n i))) (with-statement (d out) (msg* out "goto LOOP_%d" n))) (dv $number-call-templates 5) (dm to-c (e| f d out) (def function (application-function e)) (def n (len (application-arguments e))) (to-pc (application-function e) f d out) (for ((arg (application-arguments e))) (to-pc arg f d out)) (with-expression (e d out) (msg* out "%sCALL%s" (if (not f) "XX" (if (isa? f ) "X" "")) (if (> n $number-call-templates) "N" n)) (between-parentheses (out) (puts out (if (application-known? e) "0," "1,") ) (gen-ref (application-function e) f d out) (when (> n $number-call-templates) (msg* out ",%s" n)) (for ((arg (application-arguments e))) (put out #\,) (gen-ref arg f d out))))) (dm to-c (e| f d out) (to-pc (application-next-methods e) f d out) (maybe-between-parentheses (out) (with-statement-may-comma (d out) (puts out (mangle-boot-name "%next-methods-reg-setter")) (between-parentheses (out) (gen-ref (application-next-methods e) f d out))) (sup e f d out))) (dm to-c (e| f d out) (for-commas out ((x e)) (gen-ref x f d out))) (dm to-c (e| f d oot) (dlet ((*gen-statements?* #f)) (for ((ref (c-inline-refs e))) (to-pc ref f d oot))) (def e? (c-inline-expr? e)) (def lps (if f (if e? "(P)(" (cat (false-name) ";\n{ ")) "")) (def rps (if f (if e? ");" "}\n") "")) (when f (gen-depth d oot) (gen-result e d oot)) (puts oot lps) (dlet ((*gen-statements?* #f)) (rep loop ((strs (c-inline-strs e)) (refs (c-inline-refs e))) (if (nul? strs) (puts oot rps) (let ((str (head strs))) (if str (seq (emit oot str) (loop (tail strs) refs)) (seq (to-c (head refs) f d oot) (loop (tail strs) (tail refs))))))))) (dm to-c (e| f d out) (maybe-between-parentheses (out) (def low-let? (isa? e )) (for ((binding (fix-let-bindings e)) (type (fix-let-types e)) (init (fix-let-arguments e))) (to-pc init f d out) (unless (or (unconstrained-type? type) low-let?) (to-pc type f d out) (with-statement-may-comma (d out) (puts out "check_type") (between-parentheses-comma-separated (out) (gen-ref init f d out) (gen-ref type f d out)))) (with-statement-may-comma (d out) (binding->c binding out) (puts out " = ") (gen-ref init f d out))) (to-c (fix-let-body e) f d out))) (dm to-c (e| f d out) (maybe-between-parentheses (out) (for ((binding (locals-bindings e)) (init (locals-functions e))) (funshell-to-c binding init #f d out) (with-statement-may-comma (d out) (binding->c binding out) (puts out " = ") (gen-ref init f d out))) (do2 (fun (lb lf) (may-comma (out) (funinit-to-c lb lf f d out))) (locals-bindings e) (locals-functions e)) (to-c (locals-body e) f d out))) (dm to-c (e| f d out) (to-pc (bind-exit-main-fun e) f d out) (with-expression (e d out) (puts out "with_exit") (between-parentheses (out) (gen-ref (bind-exit-main-fun e) f d out)))) (dm to-c (e| f d out) (to-pc (unwind-protect-protected-thunk e) f d out) (to-pc (unwind-protect-cleanup-thunk e) f d out) (with-expression (e d out) (puts out "with_cleanup") (between-parentheses-comma-separated (out) (gen-ref (unwind-protect-protected-thunk e) f d out) (gen-ref (unwind-protect-cleanup-thunk e) f d out)))) (dm to-c (e| f d out) (to-pc (monitor-type e) f d out) (to-pc (monitor-info e) f d out) (to-pc (monitor-test e) f d out) (to-pc (monitor-handler e) f d out) (to-pc (monitor-main-thunk e) f d out) (with-expression (e d out) (puts out "XCALLN") (between-parentheses-comma-separated (out) (puts out "1") (puts out (mangle-boot-name "%with-monitor")) (puts out "5") (gen-ref (monitor-type e) f d out) (gen-ref (monitor-info e) f d out) (gen-ref (monitor-test e) f d out) (gen-ref (monitor-handler e) f d out) (gen-ref (monitor-main-thunk e) f d out)))) (dm to-c (e| f d out) (def binding (application-binding e)) (for ((arg (application-arguments e))) (to-pc arg f d out)) (with-expression (e d out) (msg* out "(P)%s" (mangle-binding (application-binding e))) (between-parentheses (out) (for-commas out ((arg (application-arguments e))) (gen-ref arg f d out))))) (dm to-c (e| f d out) (def n (len (closure-creation-free e))) (def f (elt *definitions* (closure-creation-index e))) (if (== n 0) (with-used-expression (e d out) (generate-function-binding out f)) (seq (do (fun (x) (to-pc x f d out)) (closure-creation-free e)) (with-expression (e d out) (puts out "FUNFAB") (between-parentheses (out) (generate-function-binding out f) (msg* out ",%d" n) (for ((x (closure-creation-free e))) (put out #\,) (gen-ref x f d out))))))) (dm funshell-to-c (b| e| f d out) (def n (len (closure-creation-free e))) (def f (elt *definitions* (closure-creation-index e))) (with-expression (e d out) (if (== n 0) (generate-function-binding out f) ;; (msg* out "fun_%s" (closure-creation-index e)) (seq (puts out "FUNSHELL") (between-parentheses-comma-separated (out) (msg* out "%d" (if (binding-dynamic-extent? b) 1 0)) (generate-function-binding out f) (msg* out "%d" n)))))) (dm funinit-to-c (b| e| f d out) (def n (len (closure-creation-free e))) (unless (== n 0) (do (fun (x) (to-pc x f d out)) (closure-creation-free e)) (with-statement (d out) (puts out "FUNINIT") (between-parentheses (out) (binding->c b out) (msg* out ", %s" n) (for ((x (closure-creation-free e))) (put out #\,) (gen-ref x f d out)))))) (dm to-c (e| f d out) (to-pc (assignment-form e) #f d out) (with-expression (e d out) (puts out (mangle-boot-name "%macro")) (between-parentheses-comma-separated (out) (generate-quotation out (binding-module-name (assignment-binding e))) (generate-quotation out (binding-name (assignment-binding e))) (gen-ref (assignment-form e) f d out)))) (dm out-list-builder (f| out elts|) (if (nul? elts) (puts out (mangle-boot-name "nil")) (seq (puts out (mangle-boot-name "%%list")) (between-parentheses (out) (msg* out "%d" (len elts)) (for ((e elts)) (put out #\,) (f e)))))) (dm gen-fab-list (out refs|) (out-list-builder (fun (x) (gen-ref x #f 0 out)) out refs)) (dm generate-function-specs (out sig) (gen-fab-list out (req-sig-specs sig))) (dm to-c (e| f d out) (do (fun (x) (to-pc x f d out)) (signature-specs e)) (to-pc (signature-value e) f d out) (with-expression (e d out) (puts out (mangle-boot-name "%fab-sig")) (between-parentheses-comma-separated (out) (generate-function-specs out e) (gen-ref (signature-nary? e) f d out) (gen-ref (signature-arity e) f d out) (gen-ref (signature-value e) f d out) (puts out (mangle-boot-name "nil"))))) (dm to-c (e| f d out) (to-pc (function-signature e) f d out) (with-expression (e d out) (puts out (mangle-boot-name "%fab-gen")) (between-parentheses-comma-separated (out) (gen-ref (function-signature e) f d out) (gen-ref (function-debug-name e) f d out) (gen-ref (function-names e) f d out) (puts out (mangle-boot-name "%false"))))) ;;; ;;; FUNCTION DEFINITIONS (dm generate-function-forwards (out definitions) (puts out "\n/* FUNCTIONS: */\n\n") (for ((def definitions)) (generate-function-forward out def))) (dm generate-function-forward (out defn|) (msg* out "%s P %s (" (if *dynamic-compilation?* "static" "extern") (mangle-binding (function-binding defn))) (for-commas out ((i (below (len (function-bindings defn))))) (puts out "P")) (puts out ");\n")) (dm generate-function-binding (out defn) (def name (function-binding defn)) (if (and (isa? name ) (mem? '(global runtime) (binding-kind name))) (puts out (mangle-binding name)) ;; (msg-out "UNNAMED %=\n" defn) (if (== name #f) (msg* out "fun_%s" (function-index defn)) (let ((name (if (isa? name ) (binding-name name) name))) (msg* out "fun_%s_%s" (mangle-raw-name name) (function-index defn)))))) (dm generate-function-forward (out defn) (def bound? (isa? (function-binding defn) )) (puts out (if bound? "FUNFOR(" "LOCFOR(")) (generate-function-binding out defn) (puts out ");\n")) (dm generate-function-bodies (out definitions) (puts out "\n/* FUNCTION CODES: */\n") (do (fun (def) (generate-function-code out def)) definitions)) (dm generate-functions (definitions f d out) (do (fun (def) (unless (isa? def ) (generate-closure-structure def f d out))) (rev definitions))) (dm generate-closure-structure (definition f d out) (to-pc (function-signature definition) f d out) (with-expression (definition d out) (generate-function-binding out definition) (msg* out " = %s" (if (function-inlineable? definition) (mangle-boot-name "%fab-met-inlineable") (mangle-boot-name "%fab-met"))) (between-parentheses-comma-separated (out) (generate-function-body-reference out definition) (gen-ref (function-signature definition) f d out) (gen-ref (function-debug-name definition) f d out) (gen-ref (function-names definition) f d out) (if (program-line definition) (msg* out "sloc(%d)" (program-line definition)) (puts out (mangle-boot-name "%false"))) (gen-ref (function-source definition) f d out)))) (dm generate-function-body-reference (out definition) (puts out "FUNCODEREF(") (generate-function-binding out definition) (puts out ")")) ;; TODO: RIP THIS OUT AND USE REAL PARAMETERS ;; MAKE CALL SMART AND RESTIFY IF NEC ;; WOULD LIKE TO AVOID XEP APPROACH FIRST GO ROUND (dm generate-return (defn| f d out) (with-statement (d out) (puts out "return ") (gen-ref (function-body defn) f d out))) (dm generate-return (defn f d out) (with-statement (d out) (when (unconstrained-type? (function-value defn)) (put out #\Q)) (puts out "RET") (between-parentheses (out) (gen-ref (function-body defn) f d out)))) (dm generate-function-code (out e|) (msg* out "\n%s%sP " (if *dynamic-compilation?* "static " "") (if (function-inlineable? e) "INLINE " "")) (binding->c (function-binding e) out) (between-parentheses (out) (for-commas out ((binding (function-bindings e))) (puts out "P ") (binding->c binding out))) (puts out " {\n") (generate-local-temporaries (function-temporaries e) out) (generate-registers (function-registers e) out) (puts out "DEFCREGS();\n") (to-c (function-body e) e 1 out) (generate-return e #f 1 out) (puts out "}\n")) (dm dispatcher? (definition) (def binding (function-binding definition)) (and (isa? binding ) (let ((name (as (binding-name binding)))) (or (= name "%dispatch") (= (finds name "-dispatch") (- (len name) (len "-dispatch"))))))) ;; suffix? (dm generate-function-code (out definition) (def offset 0) (def bindings (function-bindings definition)) (def bound? (isa? (function-binding definition) )) (puts out (if bound? "\nFUNCODEDEF(" "\nLOCCODEDEF(")) (generate-function-binding out definition) (puts out ") {\n") (unless (nul? bindings) (with-statement (1 out) (puts out "P ") (for-commas out ((b (function-bindings definition))) (binding->c b out)))) (generate-local-temporaries (function-temporaries definition) out) (generate-registers (function-registers definition) out) (puts out "LINK_STACK();\n") (do (fun (b) (when (isa? b ) (with-statement (1 out) (if (binding-dotted? b) (puts out "NARGS(") (puts out "ARG(")) (binding->c b out) (msg* out ", %d)" offset)) (set offset (+ offset 1)))) bindings) (to-c (function-body definition) definition 1 out) ;; FIXME: This unless is a horrible hack! This should be fixed as part of ;; tail-calling stuff, although even then dispatch will be special as it ;; calls through with the same args it got. (unless (dispatcher? definition) (puts out "UNLINK_STACK();\n")) (generate-return definition definition 1 out) (puts out "}\n")) (dm generate-local-temporaries (temps out) (for ((temp temps)) (with-statement (1 out) (puts out "P ") (binding->c temp out)))) (dv *trace-registers?* #f) (dv *registers-per-line* 16) (dm generate-registers (regs| out) (def nregs (len regs)) (rep next-line ((j 0)) (when (< j nregs) (gen-depth 1 out) (puts out "P ") (rep next-reg ((j j) (i 0)) (if (or (= i *registers-per-line*) (= j nregs)) (seq (puts out ";\n") (next-line j)) (seq (unless (= i 0) (put out #\,)) (gen-ref (elt regs j) #f 0 out) (next-reg (+ j 1) (+ i 1)))))))) (dm module-info-name (name) (cat "module_info_" (mangle-raw-name name))) ;;; Declare module info objects for each of the modules we use, and each ;;; of the modules which originally defines one of our bindings. (There're ;;; occasionally small differences between these two sets.) (df declare-imported-module-infos (out mod) (def seen (fab 50)) (def env (module-target-environment mod)) (loc ((maybe-declare (modname) (unless (elt-or seen modname #f) (set (elt seen modname) #t) (msg* out "extern MODULE_INFO %s;\n" (module-info-name modname))))) (do maybe-declare (map module-name (environment-uses-modules env))) (do-static-global-bindings (fun (binding) (def home-mod (binding-module-name binding)) (unless (binding-native-to? binding mod) (maybe-declare home-mod))) (module-target-environment mod)))) ;;; Output a record describing this module and its environment. ;;; This routine is effectively serializing compiler data structures, ;;; so we keep it simple at the price of performance. (df generate-module-info (out mod) (def name (module-name mod)) (def info-name (module-info-name name)) (def env (module-target-environment mod)) (def uses (environment-uses-modules env)) (def uses-names (map module-name uses)) ;;(msg* out "Dumping module information...\n") (puts out "\n/* MODULE ENVIRONMENT INFORMATION */\n\n") (declare-imported-module-infos out mod) (puts out "\nstatic USE_INFO use_infos[] = {\n") (for ((n uses-names)) (msg* out " {&%s},\n" (module-info-name n))) (puts out " {NULL}\n};\n") ;;(msg* out "Dumping imports...\n") (puts out "\nstatic IMPORT_INFO import_infos[] = {\n") (do-named-static-global-bindings (fun (local-name binding) (unless (binding-native-to? binding mod) (msg* out " {%s, &%s, %s},\n" (mangle-string-literal (binding-name binding)) (module-info-name (binding-module-name binding)) (if (== (binding-name binding) local-name) "NULL" (mangle-string-literal local-name))))) (module-target-environment mod)) (puts out " {NULL,NULL,NULL}\n};\n") ;;(msg* out "Dumping bindings...\n") (puts out "\nstatic BINDING_INFO binding_infos[] = {\n") (do-static-global-bindings (fun (binding) (when (binding-native-to? binding mod) (msg* out " {%s, " (mangle-string-literal (binding-name binding))) (case (binding-kind binding) (('global) (msg* out "CVAR, &%s},\n" (mangle-binding binding))) (('dynamic) (msg* out "DVAR, &%s},\n" (mangle-binding binding))) (#t (puts out "PVAR, NULL},\n"))))) (module-target-environment mod)) (puts out " {NULL, NVAR, NULL}\n};\n") ;;(msg* out "Dumping exports...\n") (puts out "\nstatic EXPORT_INFO export_infos[] = {\n") (for (((tup exported-as binding) (module-exports mod))) (msg* out " {%s, %s},\n" (mangle-string-literal (binding-name binding)) (if (== (binding-name binding) exported-as) "NULL" (mangle-string-literal exported-as)))) (puts out " {NULL, NULL}\n};\n") (msg* out "\nextern MODULE_INFO %s;\n" info-name) (msg* out "MODULE_INFO %s = {\n" info-name) (msg* out " %s,\n" (mangle-string-literal name)) (puts out " NULL,\n") (puts out " use_infos,\n") (puts out " import_infos,\n") (puts out " binding_infos,\n") (puts out " export_infos,\n") (puts out "};\n")) (dm module-init-name (name) (cat "load_module_" (mangle-raw-name name))) (dm module-init-decl (name) (cat "void " (module-init-name name) " (void)")) (dm generate-module-init (out mod form) (def name (if *dynamic-compilation?* "dl" (module-name mod))) (def init-decl (module-init-decl name)) (def env (module-target-environment mod)) (def uses (environment-uses-modules env)) (def uses-names (map module-name uses)) (unless *dynamic-compilation?* (puts out "\n/* MODULES USED: */\n\n") (for ((n uses-names)) (msg* out "extern %s;\n" (module-init-decl n)))) (puts out "\n/* EXPRESSION: */\n\n") (msg* out "extern %s;\n\n" init-decl) (msg* out "%s {\n" init-decl) (puts out " static int need_init = 1;\n") (puts out " if (!need_init) return;\n\n") (puts out " need_init = 0;\n") (unless *dynamic-compilation?* (for ((n uses-names)) (msg* out " %s();\n" (module-init-name n))) (puts out "\n")) (to-c form #f 1 out) (puts out "\n") ;; (unless *dynamic-compilation?* ;; (puts out " YPprint_cpu_usage(__FILE__);\n")) (puts out "}\n")) (dm generate-main (out mod) (def name (module-name mod)) (def info-name (module-info-name name)) (puts out "\n/* APPLICATION: */\n\n") (msg* out "extern MODULE_INFO %s;\n" info-name) (msg* out "extern %s;\n\n" (module-init-decl name)) (msg* out "MODULE_INFO *goo_toplevel_module_info = &%s;\n\n" info-name) (puts out "int main(int argc, char* argv[]) {\n") (msg* out " %s(argc, argv);\n" (mangle-boot-name "%init-world")) (msg* out " %s();\n" (module-init-name name)) (puts out " return 0;\n") (puts out "}\n")) (export g2c-def-app g2c-build-app g2c-top g2c-goo g2c-clean g2c-exp g2c-ast g2c-eval g2c-test) goo-0.155/src/eval/g2m.goo0100644000175000017500000002570307542215072014635 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use eval/syntax) (use eval/ast) (use eval/top) (use eval/ast-linearize) (use eval/optimize) (use eval/typist) (use eval/vm) ;;;; TODO ;;;; ;;;; module dumping ;;;; less consing on emission ;;;; perhaps do framing on the fly ;;;; print vars module by module ;;;; source locations ;;;; (dm frame! (o) (frame-mets! o #f 1)) (dm frame-mets! (o| met index) (ast-walk frame-mets! o met index)) (dm frame-mets! (o| met index) (set (function-frame-len o) 1) (frame-mets! (function-body o) o 1)) (dm frame-mets! (o| met index) (rep assign ((bindings (enum (fix-let-bindings o))) (index index)) (if (fin? bindings) (seq (when (> index (function-frame-len met)) (set (function-frame-len met) index)) (frame-mets! (fix-let-arguments o) met index) (frame-mets! (fix-let-types o) met index) (frame-mets! (fix-let-body o) met index)) (seq (set (binding-index (now bindings)) index) (assign (nxt bindings) (+ index 1)))))) (dm frame-mets! (o| met index) (rep assign ((bindings (enum (locals-bindings o))) (functions (enum (locals-functions o))) (index index)) (if (fin? bindings) (seq (when (> index (function-frame-len met)) (set (function-frame-len met) index)) (frame-mets! (locals-body o) met index)) (seq (set (binding-index (now bindings)) index) (frame-mets! (now functions) met 1) (assign (nxt bindings) (nxt functions) (+ index 1)))))) (dm asm-closurize-main! (o| r) (loc ((fab-nul-method (name body) (def sig (objectify-signature '() r)) (new function-debug-name (objectify-quotation name 4) function-signature sig function-body body))) (def name (cat-sym "_main_")) (def main-met (fab-nul-method name o)) (def call (new application-function main-met application-arguments (nul ) application-tail? #f)) call)) ;;; DRIVER (dm asm-compute-program (exp env) (def ast (objectify-with-subtransaction exp env #f #f)) (def ana (analyze-calls ast env)) (def box (insert-box! ana)) (def lft (lift! box)) (def top (asm-closurize-main! lft env)) (frame! top) top) (dv ) (dc ()) (dp g2m-vars ( => ) (fab 0)) (dp g2m-lits ( => ) (fab 0)) (dp! g2m-nxt-lab ( => ) -1) (dm asm-exp-in (e env) (def g2m (new )) (asm-all g2m (asm-compute-program e env))) (dm asm-exp (e) (asm-exp-in e (runtime-environment 'eval/vm))) (dm nxt-lab (x| => ) (cat-sym "L" (incf (g2m-nxt-lab x)))) (dm ord-tab-to-seq (x| => ) (def v (fab (len x))) (for (((tup y i) x)) (set (elt v i) y)) (as v)) (dm asm-all (x| p|) (def ops (asm x p #t)) (loc ((var-path (b) (lst (binding-module-name b) (binding-name b)))) (lst (ord-tab-to-seq (g2m-lits x)) (map var-path (ord-tab-to-seq (g2m-vars x))) ops))) (dm out-code (out code) (msg out "(%=\n" (1st code)) (msg out " %=\n (\n" (2nd code)) (do (fun (e) (msg out " %=\n" e)) (3rd code)) (msg out "))\n")) ;;; EMISSION (dv ) ;; STATEMENTS (dm asm-need (need?| x| => ) (if need? x (tack x '((VM-POP))))) (dm asm-if (need?| x| => ) (if need? x '())) (dg asm (x| e| need?|)) (dm asm (x| e| need?|) '()) (dm asm (x| e| need?|) (asm-if need? `((VM-ENV-GET ,(+ (reference-offset e) 1))))) (dv tack cat) (dm tack+need (need?| codes|... => ) (asm-need need? (app tack codes))) (dm get-var-ref (x| e| => ) (def vars (g2m-vars x)) (or (elt-or vars e #f) (set (elt vars e) (len vars)))) (dm asm (x| e| need?|) (def idx (get-var-ref x (reference-binding e))) (asm-if need? `((VM-VAR-GET ,idx)))) (dm get-lit-ref (x| e| => ) (def lits (g2m-lits x)) (or (elt-or lits e #f) (set (elt lits e) (len lits)))) (dm asm (x| e| need?|) (def idx (get-lit-ref x (constant-value e))) (asm-if need? `((VM-LIT ,idx)))) (dm asm (x| e| need?|) (def idx (get-var-ref x (assignment-binding e))) (tack+need need? (asm x (assignment-form e) #t) `((VM-VAR-PUT ,idx)))) (dm asm (x| e| need?|) (def idx (get-var-ref x (assignment-binding e))) (tack `((VM-VAR-FAB ,idx)) (sup x e need?))) (dm asm (x| e| need?|) (def idx (get-var-ref x (reference-binding (bound?-reference e)))) (tack+need need? (asm x (bound?-default e) #t) `((VM-VAR-GET-OR ,idx)))) (dm asm (x| e| need?|) (asm-if need? `((VM-LOC-GET ,(binding-index (reference-binding e)))))) (dm asm (x| e| need?|) (def ref (box-reference e)) (tack+need need? (asm x ref #t) (if (binding-closed-over? (reference-binding ref)) `((VM-BOX-GET)) '()))) (dm asm (x| e| need?|) (def ref (box-reference e)) (def var (reference-binding ref)) (if (binding-closed-over? var) (tack+need need? (asm x ref #t) (asm x (box-form e) #t) `((VM-BOX-PUT))) (tack (asm x (box-form e) #t) `((VM-LOC-PUT ,(binding-index var))) (if need? `((VM-LOC-GET ,(binding-index var))) '())))) (dm asm (x| e| need?|) (def binding (reference-binding (box-reference (box-reference e)))) (if (binding-closed-over? binding) `((VM-BOX-FAB ,(binding-index binding))) '())) (dm asm (x| e| need?|) (def l1 (nxt-lab x)) (def l2 (nxt-lab x)) (tack (asm x (alternative-condition e) #t) `((VM-JMP-NOT ,l1)) (asm x (alternative-consequent e) need?) `((VM-JMP ,l2)) `(,l1) (asm x (alternative-alternant e) need?) `(,l2))) (dm flatten (args| => ) (fold tack (nul ) args)) (dm asm (x| e| need?|) (flatten (as (map (fun (y) (asm x y #t)) e)))) (dm asm (x| e| need?|) (flatten (as (map (fun (y) (asm x y #t)) e)))) (dm asm (x| e| need?|) (rep emit ((res '()) (e e)) (if (nul? (tail e)) (flatten (rev! (pair (asm x (head e) need?) res))) (emit (pair (asm x (head e) #f) res) (tail e))))) (dm asm (x| e| need?|) (def lab (nxt-lab x)) (set (loop-continue e) lab) (tack `(,lab) (asm x (loop-body e) need?))) (dm asm (x| e| need?|) (def loop (application-loop e)) (tack (asm x (application-arguments e) #t) (map (fun (b) `(VM-LOC-PUT ,(binding-index b))) (rev (loop-bindings loop))) `((VM-JMP ,(loop-continue loop))))) (dm asm (x| e| need?|) (tack (asm x (application-function e) #t) (asm x (application-arguments e) #t) (asm-need need? `((,(if (application-tail? e) 'VM-APP-JMP 'VM-APP) ,(len (application-arguments e))))))) (dm asm (x| e| need?|) (def b (application-binding e)) (case (binding-name b) (('%next-methods) `((VM-NXT-METS))) (('%fun-reg) `((VM-FUN))) (#t (error "UNKNOWN PREDEFINED %= IN VM" (binding-name b))))) (dm asm (x| e| need?|) (tack (flatten (packing () (for ((binding (fix-let-bindings e)) (type (fix-let-types e)) (init (fix-let-arguments e))) (pack (asm x init #t)) (unless (or (not type) (unconstrained-type? type)) (pack `((VM-DUP))) (pack (asm x type #t)) (pack `((VM-TYP-CHK)))) (pack `((VM-LOC-PUT ,(binding-index binding))))))) (asm x (fix-let-body e) need?))) (dm asm (x| e| need?|) (tack (asm x (bind-exit-main-fun e) #t) (asm-need need? `((VM-ESC))))) (dm asm (x| e| need?|) (tack (asm x (unwind-protect-protected-thunk e) #t) (asm x (unwind-protect-cleanup-thunk e) #t) (asm-need need? `((VM-FIN))))) (dm asm (x| e| need?|) (tack (asm x (monitor-type e) #t) (asm x (monitor-info e) #t) (asm x (monitor-test e) #t) (asm x (monitor-handler e) #t) (asm x (monitor-main-thunk e) #t) (asm-need need? `((VM-TRY))))) (dm asm-fun (x| e| fab-op| need?|) (for ((bnd (function-bindings e)) (i (from 1))) (set (binding-index bnd) (neg i))) (def l1 (nxt-lab x)) (def l2 (nxt-lab x)) (def n (len (function-free e))) (tack (asm x (function-free e) #t) `((,fab-op ,n ,l1)) `((VM-JMP ,l2)) `(,l1) `((VM-ENV-LNK ,(- (function-frame-len e) 1)) ;; TODO: MAX INDEX ,@(asm x (function-body e) #t) ,@(if (unconstrained-type? (function-value e)) `((VM-RET)) `((VM-RET-CHK)))) `(,l2))) (dm asm-fun-shell (x| e| need?|) (tack (asm x (function-signature e) #t) (asm x (function-debug-name e) #t) (asm x (function-names e) #t) )) (dm asm (x| e| need?|) (tack (asm-fun-shell x e need?) (asm-fun x e 'VM-FUN-FAB+INI need?))) (dm asm (x| e| need?|) (tack (flatten (map (fun (y) (asm x y #t)) (req-sig-specs e))) (asm x (signature-value e) #t) (asm-need need? `((VM-SIG-FAB ,(constant-value (signature-arity e)) ,(if (constant-value (signature-nary? e)) 1 0)))))) (dm asm (x| e| need?|) (tack (asm-fun-shell x e need?) (asm-need need? `((VM-GEN-FAB))))) (dm asm (x| e| need?|) (tack (flatten (map2 (fun (b f) (def dyn? (binding-dynamic-extent? b)) (tack (asm-fun-shell x f need?) `((,(if dyn? 'VM-FUN-FAB-DYN 'VM-FUN-FAB))) `((VM-LOC-PUT ,(binding-index b))))) (locals-bindings e) (locals-functions e))) (flatten (map2 (fun (b f) (tack `((VM-LOC-GET ,(binding-index b))) (asm-fun x f 'VM-FUN-INI #t))) (locals-bindings e) (locals-functions e))) (asm x (locals-body e) need?))) (dm asm (x| e| need?|) (def idx (get-var-ref x (assignment-binding e))) (tack (asm x (assignment-form e) #f) `((VM-MAC-FAB ,idx)))) (export asm-exp asm-exp-in ) #/ (set goo/io/write:*max-print-length* 100) (set goo/io/write:*max-print-depth* 8) /# goo-0.155/src/eval/main.goo0100644000175000017500000000227607756744631015113 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/eval) (use goo/system) (use eval/ast) (use eval/top) (use eval/g2c) (use goo/bignum) ;; (use tgx) ;; (use gl) #/ (use goo/io/pretty) (use eval/ast-print) (use eval/typist) (use eval/g2m) (use eval/vm) (use eval/profiler) (use eval/decision-trees) /# (use time/threads) (use time/lock) (use time/event) (use goo/random) #/ (use cols/pipe) /# ;; (use samurui/samurui) ;; (use tests) ;; (use tests) ;; (use beatbox) ;; Make sure the goo/user module gets compiled into our image. (use goo/user) (dv *goo-version* "0.155") (dv *goo-date* "NOV 17, 2003") (post ";;; GOO\n") (post ";;; JONATHAN BACHRACH\n") (post ";;; MIT CSAIL\n") (post ";;; %s\n" *goo-date*) (post ";;; \n") (post ";;; VERSION = %s\n" *goo-version*) (post ";;; ROOT = %s\n" *goo-root*) ;; (post ";;; Loading Runtime Bindings...\n") (init-ast) ;; (post ";;; Loading System Patches...\n") (let ((file (find-goo-file-at "init" *goo-root*))) (and file (load-file file 'goo/user))) ;; (post ";;; Loading User Patches...\n") (let ((file (find-goo-file-at "init" *goo-personal-root*))) (and file (load-file file 'goo/user))) ;; (post ";;; \n") (top 'goo/user) goo-0.155/src/eval/module.goo0100644000175000017500000007026207745062570015445 0ustar vomjomvomjom;;;; Copyright (c) 2001 Jonathan Bachrach (use goo) (use goo/boot) (use goo/types) (use goo/sym) (use goo/system) (use eval/dependency) (ddv *dynamic-compilation?* #f) (dc ( )) (dm namespace-error (msg| args|...) (sig (new condition-message msg condition-arguments (as args)))) (export namespace-error) ;;; The name of the module which contains all of goo's primitives, ;;; magic bindings, and core code. (dv $goo-boot-module-name 'goo/boot) ;;; bindings are not programs! they represent bindings. (dv ) ;; (type-union ) (export *dynamic-compilation?*) (dc ()) (dp! binding-name ( => )) (dp! binding-mangled-name ( => (t? )) #f) (dp! binding-type ( => )) (dp! binding-inferred-type ( => ) $bot) ;; Global boxes are used by the interpreter to store the values of ;; global variables. (dc ()) (dp! global-box-value ( => )) (dc ( )) ;; The name of the module in which this binding is defined. (dp! binding-kind ( => ) 'global) (dp! binding-module ( => ) #f) ;; (t? )) (dp! binding-free? ( => ) #f) (dp! binding-info ( => ) #f) (dp! binding-prop ( => ) #f) (dm binding-module-name (b| => ) (def mod (binding-module b)) (if mod (module-name mod) $goo-boot-module-name)) ;; TODO: GET RID OF ALIASES OR MAKE SEPARATE INFO OBJECT (dv binding-global-box binding-info) (dv binding-global-box-setter binding-info-setter) (dv binding-locative binding-info) (dv binding-locative-setter binding-info-setter) (dv binding-handler binding-info) (dv binding-handler-setter binding-info-setter) (export binding-kind binding-kind-setter binding-handler binding-handler-setter binding-prop binding-prop-setter binding-mangled-name binding-mangled-name-setter binding-global-box binding-global-box-setter binding-locative binding-locative-setter binding-module-name binding-module binding-name binding-free? binding-free?-setter binding-type binding-type-setter binding-inferred-type binding-inferred-type-setter binding-info binding-info-setter global-box-value global-box-value-setter $goo-boot-module-name ) ;;; ENVIRONMENT (dc ()) (dp! environment-next ( => ) #f) (dp! environment-bindings ( => )) (dc ()) ;; The module associated with this environment. (dp! environment-module ( => )) ; ;; The module-loader which should be used to load new modules for ;; use by this environment. (dp! environment-module-loader ( => )) ; ;; The modules used by this environment. (dp! environment-uses-modules ( => ) (fab 0)) ;; Does this environment allow cross-module resolution of symbols ;; of the form 'foo::bar'? (dp! environment-allows-foreign-names? ( => ) #f) (dc ()) (dv $nul-static-environment (new )) (dc ()) ;; Given an object, try to find a global binding which contains it. ;; Used by the writer. ;; TODO - This will only work in the runtime environment, not any of the ;; various syntax environments. ;; XXX - This is now horrendously broken. (dm env-object-name (x => ) (esc return (do-static-global-bindings (fun (binding) (when (and (== (binding-kind binding) 'global) (binding-global-box binding) (== x (global-box-value (binding-global-box binding)))) (return (binding-name binding)))) (runtime-environment 'goo/boot)) #f)) ;; TODO: CLEANUP (dm frame-bindings (env| => ) ;; (as (map identity (environment-bindings env))) (environment-bindings env)) ;; Given a static global environment 'env', apply 'f' to all the bindings. (dm do-static-global-bindings (f| env|) (rep loop ((env env)) (unless (isa? env ) (do f (frame-bindings env)) (loop (environment-next env))))) ;; As above, but also supply the local name of the bindings. (df do-named-static-global-bindings (f| env|) (rep loop ((env env)) (unless (isa? env ) (do-keyed f (frame-bindings env)) (loop (environment-next env))))) (dm insert-global! (binding r) (def r| (find-static-global-environment r)) (set (elt (environment-bindings r) (binding-name binding)) binding)) (dm insert-globals! (bindings| r) (do (fun (b) (insert-global! b r)) bindings)) (dm find-static-global-environment (r| => ) (find-static-global-environment (environment-next r))) (dm find-static-global-environment (r| => ) r) (dm find-syntax-environment (r| => ) (module-syntax-environment (find-environment-module r))) (dm find-environment-module (r|) ; => (environment-module (find-static-global-environment r))) (dg find-binding ( )) (dm find-binding (name r| => ) (or (elt-or (environment-bindings r) name #f) (find-binding name (environment-next r)))) (export find-binding find-environment-module find-syntax-environment find-static-global-environment do-static-global-bindings do-named-static-global-bindings frame-bindings environment-bindings environment-module environment-next env-object-name environment-uses-modules insert-global! insert-globals! environment-allows-foreign-names? environment-module-loader ) ;;;;======================================================================= ;;;; Transaction Information ;;;;======================================================================= ;;;; Compilation of a Goo expression has relatively few side effects. ;;;; So if we want to get rid of some small chunk compiled code (perhaps ;;;; an error occurred later in the compilation process, or p2c unloaded a ;;;; module), we can let the garbage collector do most of the work. ;;;; ;;;; There are a few exceptions: ;;;; 1) Imported free bindings may have been defined. This hack ;;;; is needed for the 'need-implementation' macro. ;;;; 2) Any number of dependencies may have been registered. ;;;; ;;;; We need to take pains to undo these operations manually. We *could* ;;;; do this by building destructor functions for all the ast nodes, but ;;;; that would be bletcherous, and require rewriting half the compiler. ;;;; ;;;; Instead, we use a simple transaction mechanism. ;;;; ;;;; Each module has an associated transaction. If the module is unloaded, ;;;; the module transaction must be rolled back. ;;;; ;;;; Each invocation of the compiler has a "subtransaction". If ;;;; compilation succeeds, this is merged into the module transaction. If ;;;; compilation fails, it is rolled back. (dc ()) (dp transaction-implemented-bindings ( => ) (fab 10)) (dp transaction-dependents ( => ) (fab 10)) (ddv *current-subtransaction* #f) (df transaction-register-implemented-binding (b) (unless *current-subtransaction* (ast-error "Can't register implemented foreign binding (no subtransaction)")) (set (elt (transaction-implemented-bindings *current-subtransaction*) b) #t)) (df transaction-register-dependent (d|) (unless *current-subtransaction* (ast-error "Can't register dependent (no subtransaction)")) (set (elt (transaction-dependents *current-subtransaction*) d) #t)) (df transaction-nul? (t| => ) (and (nul? (transaction-implemented-bindings t)) (nul? (transaction-dependents t)))) (df merge-transactions! (t1| t2| => ) (cond ;; If one of the transactions is nul, return the other. ((transaction-nul? t2) t1) ((transaction-nul? t1) t2) ;; Otherwise, merge t2 into t1 destructively. (#t (def t1-imp-bindings (transaction-implemented-bindings t1)) (def t2-imp-bindings (transaction-implemented-bindings t2)) (def t1-dependents (transaction-dependents t1)) (def t2-dependents (transaction-dependents t2)) (do-keyed (fun (k v) (set (elt t1-imp-bindings k) #t)) t2-imp-bindings) (do-keyed (fun (k v) (set (elt t1-dependents k) #t)) t2-dependents) t1))) (df roll-back-transaction (t|) (do-keyed (fun (binding junk) (set (binding-free? binding) #t)) (transaction-implemented-bindings t)) (do-keyed (fun (dependent junk) (detach-dependent dependent)) (transaction-dependents t))) (df call-with-subtransaction (module thunk => ) (def success? #f) (def saved *current-subtransaction*) (fin { (set *current-subtransaction* (new )) (def value (thunk)) (set success? #t) value } { (if success? (set (module-transaction module) (merge-transactions! (module-transaction module) *current-subtransaction*)) (roll-back-transaction *current-subtransaction*)) (set *current-subtransaction* saved) })) (ds with-subtransaction ((,module) ,@body) `(call-with-subtransaction ,module (fun () ,@body))) (export transaction-register-dependent transaction-register-implemented-binding call-with-subtransaction roll-back-transaction with-subtransaction *current-subtransaction* ) ;;;;======================================================================= ;;;; Module Loaders & Modules ;;;;======================================================================= ;;;; A module contains two environments: a target environment, and a ;;;; syntax environment. The target environment is used for objectifying ;;;; actual programs, and the syntax environment is used for objectifying ;;;; DS, CT, DSS and any other compile-time forms. In some cases, the ;;;; syntax environment and the target environment might be the same. ;;;; ;;;; See PROPOSALS/SIMPLE-MODULES.TXT for an overview of the module ;;;; system from a programmer's perspective. ;;;; ;;;; A loads modules from disk and keeps them in memory. ;;;; There are typically several module loaders in use: ;;;; 1. A module loader for the running image's listener. ;;;; 2. A module loader for each program being compiled. (dc ()) ;; A map from module names (represented as symbols) to ;; objects. (dp! module-loader-modules ( => ) (fab 1000)) ;; A stack of all the names of modules currently being loaded. ;; We use this to catch circular dependencies. (dp! module-loader-stack ( => ) '()) (export ) (dc ()) (dp module-name ( => )) (dp! module-mangled-name ( => (t? )) #f) (dp! module-mangled-string-name ( => (t? )) #f) ;; The environments associated with this module. (dp! module-target-environment ( => )) (dp! module-syntax-environment ( => )) ;; The bindings exported by this module. (dp %module-exports ( => ) (fab 1000)) (dp! module-data-processed? ( => ) #t) (dp! module-runtime-data ( => ) #f) (dp! module-transaction ( => ) (new )) (dp module-referenced-bindings ( => ) (fab 0)) (dp module-uses-c-files ( => ) (fab 0)) (dp module-c-forms ( => ) (fab 0)) (dp module-uses-c-includes ( => ) (fab 0)) (dp module-uses-c-libraries ( => ) (fab 0)) (dg ensure-module-data (module|)) (dm module-exports (x| => ) (ensure-module-data x) (%module-exports x)) ;;; This works like 'insert-global!', but it's more careful about clobbering. (df import-global! (b| env|) (def existing (find-binding (binding-name b) env)) (unless (or (== existing #f) (== existing b)) (msg out "warning: '%s' from %s clobbers local binding.\n" (binding-name b) (binding-module-name b))) (insert-global! b env) #f) (dm insert-and-mangle-global! (binding mangle-prefix| r) (def r| (find-static-global-environment r)) (set (elt (environment-bindings r) (cat-sym mangle-prefix (binding-name binding))) binding)) (df import-and-mangle-global! (b| mangle-prefix| env|) (def existing (find-binding (cat-sym mangle-prefix (binding-name b)) env)) (unless (or (== existing #f) (== existing b)) (msg out "warning: '%s' from %s clobbers local binding.\n" (cat-sym mangle-prefix (binding-name b)) (binding-module-name b))) (insert-and-mangle-global! b mangle-prefix env) #f) (export module-name module-syntax-environment module-target-environment module-runtime-data module-runtime-data-setter module-data-processed? module-data-processed?-setter ensure-module-data module-loader-stack import-global! import-and-mangle-global! ) (df set-module-environments (mod| syntax-env target-env) (set (module-syntax-environment mod) syntax-env) (set (module-target-environment mod) target-env)) ;;; Call a function 'f' for each module associated with the module loader. (df do-module-loader-modules (f loader) (do (fun (mod) (f mod)) (module-loader-modules loader))) ;; Create an nul module for use with a particular loader. ;; Override this method to use a custom module class. (dm module-loader-module-type (loader| => ) ) ;;; Add a module to a module-loader. (df register-module! (module-loader| mod| => ) (set (elt (module-loader-modules module-loader) (module-name mod)) mod) module-loader) ;;; Find the module with the given name, loading it if necessary. (df probe-module (loader| name| => ) (or (elt-or (module-loader-modules loader) name #f) (load-and-register-module loader name))) ;;; This function keeps track of nesting and registration. (df load-and-register-module (loader| name| => ) (def stack (module-loader-stack loader)) (def depth (len stack)) (def indent (repeat " " depth)) ;; First, make sure we aren't already loading this module. (when (mem? stack name) (namespace-error "%s: error: Circular use of %s not allowed" (head stack) name)) ;; Load the module, using a FIN form to manage the load stack. ;; XXX - If an error occurs, we currently neglect to mark ;; the environment-implements bindings of the half-created ;; module as free. (msg out "%s[Loading module %s...\n" indent name) (def mod (seq (pushf (module-loader-stack loader) name) (fin (load-module loader name) (popf (module-loader-stack loader))))) (register-module! loader mod) (msg out "%s]\n" indent) mod) ;;; Create a subclass and override this method. It should ;;; create and register a module, call 'read-file', objectify the code in ;;; the module's target environment, and do something appropriate with the ;;; resulting ast. ;;; ;;; TODO - Block recursive loads. ;;; TODO - We must eventually be able to support runtime modules, too. ;;; this may require a fair bit of refactoring. (dg load-module (loader| name| => )) ;;; Export a binding from a module. (df export-binding! (module| name| binding => (t= #f)) (def exports (module-exports module)) (def existing (elt-or exports name #f)) (unless (or (== existing #f) (== existing binding)) (namespace-error "Tried to export %= and %= from %= as %=" existing binding module name)) (set (elt exports name) binding) #f) (export register-module! export-binding!) ;;; Return true iff a binding was originally defined in the current module. (df binding-native-to? (binding module| => ) (== (module-name module) (binding-module-name binding))) ;;; Report all the undefined bindings in the specified module. (df report-undefined-global-bindings (mod|) (do-static-global-bindings (fun (binding) (when (and (binding-free? binding) (binding-native-to? binding mod)) (msg out "%s: warning: undefined binding '%s'.\n" (module-name mod) (binding-name binding)))) (module-target-environment mod))) ;;; Compute all the modules which use the specified modules, directly or ;;; indirectly. Yes, this function is slow and ugly. (df compute-transitive-users (loader| modnames| => ) (def users (fab 100)) (loc ((add-user (modname) (unless (elt-or users modname #f) (set (elt users modname) modname) (do-module-loader-modules (fun (mod) (do (fun (uses-mod) (when (== modname (module-name uses-mod)) (add-user (module-name mod)))) (environment-uses-modules (module-target-environment mod)))) loader)))) (do add-user modnames) (packing () (do (fun (v) (pack v)) users)))) ;;; Remove a single module object from the loader. ;;; This should not be called externally, because it does not bother to ;;; remove other modules which use this one. (df remove-module-internal! (loader| mod|) (roll-back-transaction (module-transaction mod)) (del! (module-loader-modules loader) (module-name mod))) ;;; Unload all the named modules, and all the modules which use them. (df remove-modules-by-name! (loader| modnames| => (t= #f)) (def remove-names (compute-transitive-users loader modnames)) (do (fun (modname) (def mod (elt (module-loader-modules loader) modname)) (remove-module-internal! loader mod)) remove-names) #f) ;;; Convert a module name to a relative path name. ;;; foo/bar => "foo/bar" or "foo\\bar", etc. (df module-name-to-relpath (name| => ) (def namestr (map to-lower (sym-name name))) (join (split namestr #\/) *path-separator*)) (dv *tracing-refs?* #f) (dm zap-referenced-bindings! (mod|) (when *tracing-refs?* (post "ZAPPING REFS\n")) (zap! (module-referenced-bindings mod))) (dm zap-referenced-bindings! (r) (zap-referenced-bindings! (environment-module (find-static-global-environment r)))) (dm register-referenced-binding (mod| b) (when *tracing-refs?* (post "REG %= %=\n" (binding-name b) *dynamic-compilation?*)) (when *dynamic-compilation?* (set (elt (module-referenced-bindings mod) b) b))) (dm register-referenced-binding (r b) (when *dynamic-compilation?* (register-referenced-binding (environment-module (find-static-global-environment r)) b))) (export module-name module-mangled-name module-mangled-name-setter module-mangled-string-name module-mangled-string-name-setter module-exports module-uses-c-files module-uses-c-includes module-uses-c-libraries module-c-forms module-transaction register-referenced-binding zap-referenced-bindings! module-referenced-bindings set-module-environments module-loader-module-type do-module-loader-modules probe-module load-module binding-native-to? report-undefined-global-bindings remove-modules-by-name! module-name-to-relpath ) ;;;;======================================================================= ;;;; Runtime Setup ;;;;======================================================================= ;;;; Recover information about the modules and bindings that were built ;;;; into our image. This mostly involves calling build-runtime-modules ;;;; and passing it an appropriate set of functions, then doing a small ;;;; amount of tweaking to set up macros, magic bindings, and other ;;;; stuff correctly. (dc ()) (ddv *now-rt-env* #f) (dg install-initial-bindings ( )) ;;; This is called if somebody tries to load a module at runtime which ;;; hadn't been built into the image. (dm load-module (loader| name| => ) (def type (module-loader-module-type loader)) (def module (new type module-name name)) (def env (fab-static-global-environment module loader #f)) (def keepmod? #f) (def modpath (module-name-to-relpath name)) (def file (find-goo-file-in-path modpath *module-search-path*)) (set-module-environments module env env) (if (not file) (namespace-error "Unable to find module %s" modpath)) (fin (seq (install-initial-bindings env loader) (dlet ((*now-rt-env* env)) (load-in file env)) ;; Turn on foreign name support once the code has been loaded. (set (environment-allows-foreign-names? env) #t) (set keepmod? #t) module) ;;; Tricky unwind handler. Our module may have altered the the state ;;; of other modules, and so we need to back these changes out if we ;;; crash midway. This would look much nicer if we had some kind of ;;; try/catch/rethrow construct. ;;; TODO - This is much less necessary than before, since we already ;;; handle rollbacks for the actual compilation process using a ;;; subtransaction. But there may still be errors /executing/ ;;; the code, and we choose to apply a module rollback if that code ;;; fails. Is this the right thing? Hmmm. (unless keepmod? (roll-back-transaction (module-transaction module))))) (need-implementation load-in) (dv *runtime-module-loader* (new )) (df runtime-module-loader () *runtime-module-loader*) (df runtime-module (modname|) (probe-module (runtime-module-loader) modname)) (df runtime-environment (modname|) (def module (runtime-module modname)) (ensure-module-data module) (module-target-environment module)) (df runtime-core-environment (modname|) (module-target-environment (runtime-module modname))) (df unchecked-runtime-environment (modname|) (def loader (runtime-module-loader)) (if (== (elt-or (module-loader-stack loader) 0 #f) modname) *now-rt-env* (module-target-environment (runtime-module modname)))) ;;; RELOADER METHODS FOR %BUILD-RUNTIME-MODULES ;;; These are called to reload modules which were compiled into our runtime. (df reloader-do-create-module (modname| data => ) (def loader (runtime-module-loader)) (def type (module-loader-module-type loader)) (def mod (new type module-name (as modname))) (def env (fab-static-global-environment mod loader #t)) (set (module-data-processed? mod) #f) (set-module-environments mod env env) (set (module-runtime-data mod) data) (register-module! loader mod) mod) (df reloader-do-use-module (mod| uses|) (push! (environment-uses-modules (module-target-environment mod)) uses)) (df reloader-do-import (mod| name| from-mod| original-name|) (def home-env (module-target-environment from-mod)) (def binding (find-binding (as original-name) home-env)) ;; TODO - Add support for using 'name'. (when (not binding) (namespace-error "Can't find %s from %s for %s\n" original-name (module-name from-mod) (module-name mod))) (insert-global! binding (module-target-environment mod))) (df process-module-data (module|) (%process-module (module-runtime-data module) reloader-do-import reloader-do-export)) (dm ensure-module-data (module|) (unless (module-data-processed? module) ;; TODO: DETECT CIRCULARITIES? (set (module-data-processed? module) #t) (process-module-data module))) (df reloader-do-runtime-binding (mod| name| loc|) (def binding (new binding-kind 'runtime binding-module mod binding-name (as name) binding-free? #f binding-locative loc)) (insert-global! binding (module-target-environment mod))) (df reloader-do-dynamic-binding (mod| name| loc|) (def binding (new binding-kind 'dynamic binding-module mod binding-name (as name) binding-free? #f binding-locative loc)) (insert-global! binding (module-target-environment mod))) ;;; We create all non-runtime bindings with type 'global', so we have ;;; something to export and import while rebuilding the module structure. ;;; Later on, we'll need to update these bindings and change ;;; their types using ast-define-binding. (df reloader-do-other-binding (mod| name|) (def binding (new binding-kind 'predefined ;; HACK: JB binding-module mod binding-name (as name) binding-free? #t)) (insert-global! binding (module-target-environment mod))) (df reloader-do-export (mod| name| as-name|) (def binding (find-binding (as name) (module-target-environment mod))) (if binding (export-binding! mod (as as-name) binding) (namespace-error "Can't find %s in %s\n" name (module-name mod)))) (df reload-modules () (%build-runtime-modules reloader-do-create-module reloader-do-use-module reloader-do-runtime-binding reloader-do-other-binding reloader-do-dynamic-binding)) ;; Create a new global environment. (df fab-static-global-environment (module| module-loader| allow-foreign-names?| => ) (def new-env (new environment-module module environment-module-loader module-loader environment-next $nul-static-environment environment-allows-foreign-names? allow-foreign-names? environment-bindings (fab 2000))) new-env) ;; Given an environment and a list of symbols, return a new environment ;; containing all the bindings in the original environment that are *not* ;; named by a symbol in 'excluded'. (df fab-subset-environment (module| src-module| excluded| => ) (def loader (environment-module-loader (module-target-environment src-module))) (def new-env (fab-static-global-environment module loader #f)) (do-keyed (fun (name binding) (unless (mem? excluded name) ;; TODO - Renaming: Honor name. (insert-global! binding new-env))) (module-exports src-module)) new-env) (df walk-bindings (fun| mod|) (walk-bindings* fun (runtime-environment mod) (fab 1000) (fab 10))) (df walk-bindings* (f| env| walked?| mods|) (for ((mod (environment-uses-modules env))) (unless (elt-or mods mod #f) (set (elt mods mod) #t) (walk-bindings* f (runtime-environment (module-name mod)) walked? mods))) (for ((b (environment-bindings env))) (unless (elt-or walked? b #f) (set (elt walked? b) #t) (f b)))) (export runtime-environment unchecked-runtime-environment install-initial-bindings runtime-module runtime-module-loader reload-modules fab-static-global-environment fab-subset-environment walk-bindings ) goo-0.155/src/eval/optimize.goo0100644000175000017500000001515007542215072016003 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/loc) (use eval/ast) (dm unconstrained-type? (b| => ) #f) (dm unconstrained-type? (b| => ) (and (== (binding-module-name b) 'goo/boot) (== (binding-name b) '))) (dm unconstrained-type? (o| => ) (unconstrained-type? (reference-binding o))) (export unconstrained-type?) (dv ) (dv ) (dm sorted-applicable-methods-using-types (methods| arg-types| => (tup sorted| others|)) (def leading-sorted '()) (def others '()) (loc ((merge-method (m sorted) (if (nul? sorted) (loc ((after-m? (other-m) (method-precedes? m other-m arg-types))) (if (all? after-m? others) (lst m) (seq (pushf others m) '()))) (let ((lead (head sorted))) (case (method-relationship m lead arg-types) (($method1-precedes) (pair m sorted)) (($method2-precedes) (pair lead (merge-method m (tail sorted)))) (($methods-unordered) ;; Unordered methods are no use to us, so abandon ;; everything from here on. (set others (pair m (cat sorted others))) '())))))) (for ((m methods)) (when (arguments-potentially-joint? arg-types (fun-specs m) (fun-arity m)) (opf leading-sorted (merge-method m _))))) (tup leading-sorted others)) (export sorted-applicable-methods-using-types) ;; Determine whether there is some guaranteed ordering between the two ;; methods for the given argument type estimates. (dv $methods-unordered 'unordered) (dv $method1-precedes 'method1) (dv $method2-precedes 'method2) (dm method-precedes? (m1| m2| (arg-types )) (== (method-relationship m1 m2 arg-types) $method1-precedes)) ;; This is pretty much as per the DRM specification, but using the ;; conservative "xxx" predicates. (dm method-relationship (m1| m2| arg-types| => ) (def specs1 (fun-specs m1)) (def specs2 (fun-specs m2)) (def precedes-somewhere? #f) (def follows-somewhere? #f) (for ((arg-type arg-types) (spec1 specs1) (spec2 specs2)) (cond ((== spec1 spec2) #f) ((preceding-specializer? spec1 spec2 arg-type) (unless (subtype? spec2 spec1) (set precedes-somewhere? #t))) ((preceding-specializer? spec2 spec1 arg-type) (set follows-somewhere? #t)) (#t #f))) (if precedes-somewhere? (if follows-somewhere? $methods-unordered $method1-precedes) (if follows-somewhere? $method2-precedes $methods-unordered))) (dg preceding-specializer? (t1| t2| arg| => )) (dm preceding-specializer? (t1| t2| arg| => ) (subtype? t1 t2)) (dm arguments-potentially-joint? (arg-types| domain-types| max| => ) (all2? potentially-joint? arg-types domain-types)) (df potentially-joint? (t1| t2| => ) ;; Not provably DISjoint. ;; (not (guaranteed-disjoint? t1 t2)) (or (subtype? t1 t2) (subtype? t2 t1))) (dm type-equiv? (x| y| => ) (and (subtype? x y) (subtype? y x))) ;;; DYNAMIC-EXTENT AND CALL UPGRADE ANALYSIS (dm do-do-call-analysis! (o| r t f s funs) (ast-walk! do-call-analysis! o r t f s funs)) (dm do-call-analysis! (o| r t f s funs) (do-do-call-analysis! o r t f s funs)) (df reopt-top! (s t) (unless (or (not t) (mem? s t)) (add! s t))) (dm do-call-analysis! (o| r t f s funs) (unless (reference-called-function? o) (set (binding-dynamic-extent? (reference-binding o)) #f)) (def fun? (binding-value (reference-binding o))) (if (and fun? (mem? funs fun?)) (if (= (function-ref-count fun?) 1) { (reopt-top! s t) (decf (function-ref-count fun?)) fun? } o) o)) (dm do-call-analysis! (o| r t f s funs) (do-call-analysis! (function-signature o) r t f s funs) (def body (do-call-analysis! (function-body o) r t o s funs)) (when (and (function-loop o) (not (isa? body ))) (set (loop-body (function-loop o)) body) (set (function-body o) (function-loop o))) o) (dm ensure-loop (f| => ) (or/set (function-loop f) (new loop-bindings (function-bindings f)))) (dm do-call-analysis! (o| r t f s funs) (do-do-call-analysis! o r t f s funs) (def ref (application-function o)) (case-by ref isa? (() (let ((callee (binding-value (reference-binding ref)))) (if (and (== callee f) (application-tail? o) (not (function-nary? f))) (let ((loop (ensure-loop f))) (decf (function-ref-count f)) (reopt-top! s t) (new application-loop loop application-arguments (application-arguments o))) (if (and (isa? f ) (all? (fun (x) (unconstrained-type? (binding-type x))) (function-bindings f)) (unconstrained-type? (function-value f)) (not (function-nary? f)) (= (len (application-arguments o)) (len (function-bindings f)))) (seq (set (application-known? o) #t) o) o)))) (() (reopt-top! s t) (process-closed-application ref (application-arguments o) r (application-tail? o))) (#t o))) (dm do-call-analysis! (o| r t f s funs) (def single? (= (len (locals-functions o)) 1)) (def new-funs (if single? (pair (1st (locals-functions o)) funs) funs)) (def res (do-do-call-analysis! o r t f s new-funs)) (if single? (if (= (function-ref-count (1st new-funs)) 0) { (reopt-top! s t) (set (locals-functions o) (nul )) (set (locals-bindings o) '()) (locals-body o) } res) res)) (dm analyze-calls (o r) (def s (fab 0)) ;; reopts (def res (if (isa? o ) (map (fun (x) (do-call-analysis! x r x #f s '())) o) (do-call-analysis! o r o #f s '()))) (if (nul? s) ;; no more reopts res { (do (fun (e) (analyze-calls e r)) s) res })) (export analyze-calls ;; analyze-dynamic-extent potentially-joint? type-equiv? ) goo-0.155/src/eval/profiler.goo0100644000175000017500000000177407611105275015774 0ustar vomjomvomjom(use goo) (use goo/fun) (use goo/packer) (use eval/ast-eval) (use eval/module) (df walk (b col) (unless (mem? '(quotation magic predefined macro) (binding-kind b)) (let ((f (binding-value-or b #f))) (def v (binding-name b)) (when (and (not (mem? '($direct-object-class %met-prop-len) v)) (isa? f )) (def c (fun-count f)) (when (> c 0) (col `(,n ,c ,(binding-module-name b) ,@(if (isa? f ) (sort-by (map (fun (m) (lst m (fun-count m))) (fun-mets f)) (op > (2nd _) (2nd _))) '())))))))) (df profile (mod) (def pairs (packing (walk-bindings (op walk _ {x\(pack x)}) mod))) (sort-by pairs (op > (2nd _) (2nd _)))) (df shout (args|...) (do (op post "%=" _) args) ;; (app say out args) (newline out)) (df profile-out (mod) (for ((e (profile mod))) (shout e))) ;; (walk-bindings walk 'goo) goo-0.155/src/eval/syntax.goo0100644000175000017500000005571707611105275015506 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use goo/cols/lst) ;; Self-evaluating entities (dm sexpr-self-evaluating? (exp => ) (or (isa? exp ) (isa? exp ) (== exp #t) (== exp #f) (isa? exp ) (isa? exp ) (isa? exp ))) ;; Our prompt (viz., "EVAL==> ") is a string. ;; Variables (dm sexpr-variable? (exp => ) (isa? exp )) ;; SPECIAL FORMS (IN GENERAL) (dm sexpr-tagged-list? (exp tag => ) (and (isa? exp ) (== (head exp) tag))) ;; QUOTATIONS (dv $sexpr-quote-tag 'quote) (dm sexpr-quoted? (exp => ) (sexpr-tagged-list? exp $sexpr-quote-tag)) (dm sexpr-make-quote (exp => ) (lst $sexpr-quote-tag exp)) (dm sexpr-text-of-quotation (quot => ) (2nd quot)) ;; ASSIGNMENT--- SET! (dv $sexpr-set-tag 'set) (dm sexpr-assignment? (exp => ) (sexpr-tagged-list? exp $sexpr-set-tag)) (dm sexpr-assignment-variable (assn| => ) (2nd assn)) (dm sexpr-assignment-value (assn| => ) (3rd assn)) ;; VARIABLE (dm sexpr-variable-name (exp| => ) (1st exp)) (dm sexpr-variable-name (exp => ) exp) (dm sexpr-variable-type (exp| => ) (2nd exp)) (dm sexpr-variable-type (exp => ) ') ;; DEFINITIONS -- (DEFINE foo ...) (dv $sexpr-define-constant-tag 'd.) (dm sexpr-define-constant? (exp => ) (sexpr-tagged-list? exp $sexpr-define-constant-tag)) (dv $sexpr-define-tag 'dv) (dm sexpr-definition? (exp => ) (sexpr-tagged-list? exp $sexpr-define-tag)) (dv $sexpr-quasiquote-tag 'quasiquote) (dm sexpr-definition-variable (defn| => ) (2nd defn)) (dm sexpr-definition-value (defn => ) (3rd defn)) (dv $sexpr-define-syntax-tag 'ds) (dm sexpr-syntax-definition? (exp => ) (sexpr-tagged-list? exp $sexpr-define-syntax-tag)) (dv $sexpr-macro-tag 'mac) (dm sexpr-syntax-definition-variable (defn| => ) (2nd defn)) (dm sexpr-syntax-definition-value (defn => ) (def var (2nd defn)) ;; (ds foo (p ...) b...) `(,$sexpr-macro-tag (,var ,@(3rd defn)) ,@(tail (tail (tail defn))))) (dv $sexpr-define-function-tag 'df) (dm sexpr-function-definition? (exp => ) (sexpr-tagged-list? exp $sexpr-define-function-tag)) (dv $sexpr-define-method-tag 'dm) (dm sexpr-method-definition? (exp => ) (sexpr-tagged-list? exp $sexpr-define-method-tag)) (dv $sexpr-define-generic-tag 'dg) (dm sexpr-generic-definition? (exp => ) (sexpr-tagged-list? exp $sexpr-define-generic-tag)) ;; (df foo (x ...) form ...) ;; (df (foo adjectives ...) (x ...) form ...) (dm sexpr-function-definition-variable (defn| => ) (def var (2nd defn)) (if (isa? var ) (head var) var)) (dm sexpr-function-definition-adjectives (defn| => ) (def var (2nd defn)) (if (isa? var ) (tail var) '())) (dm sexpr-forward-primitive? (defn| => ) (= (len defn) 2)) (dm sexpr-signature-parameters (signature| => ) (def values-spec-index (pos signature '=>)) (if values-spec-index (sub signature 0 values-spec-index) signature)) (dm sexpr-value-type (x| => ) (2nd x)) (dm sexpr-value-type (x| => ) x) (dm sexpr-signature-value (signature| => ) (def values-spec-index (pos signature '=>)) (and values-spec-index (let ((value (elt signature (+ values-spec-index 1)))) (if (sexpr-tagged-list? value 'tup) `(t* ,@(map sexpr-value-type (tail value))) value)))) (df as-signature (sig| => ) sig) (dm sexpr-function-signature (defn => ) (as-signature (3rd defn))) (dm sexpr-function-parameters (defn => ) (sexpr-signature-parameters (sexpr-function-signature defn))) (dm sexpr-function-value (defn => ) (sexpr-signature-value (sexpr-function-signature defn))) (dm sexpr-function-body (defn => ) (tail (tail (tail defn)))) (dv $sexpr-method-tag 'fun) ;; (df foo (x ...) form ...) (dm sexpr-function-definition-value (defn => ) (line-pair $sexpr-method-tag (pair (3rd defn) (tail (tail (tail defn)))) (line-of defn))) ;; METHOD -- (METHOD (p...) b...) (dm sexpr-method? (exp => ) (sexpr-tagged-list? exp $sexpr-method-tag)) (dm sexpr-method-signature (method-exp| => ) (as-signature (2nd method-exp))) (dm sexpr-method-parameters (method-exp| => ) (sexpr-signature-parameters (sexpr-method-signature method-exp))) (dm sexpr-method-value (method-exp| => ) (sexpr-signature-value (sexpr-method-signature method-exp))) (dm sexpr-method-body (method-exp| => ) (tail (tail method-exp))) ;; TODO: RENAME LIST TO LST (dm sexpr-make-anonymous-method (parameters| body| => ) (line-list-of (if (isa? parameters ) parameters body) (cat (lst $sexpr-method-tag) (lst parameters) body))) (dm sexpr-make-method (name parameters| body| => ) (line-list-of (if (isa? parameters ) parameters body) (cat (lst $sexpr-define-method-tag name parameters) body))) ;; IF CONDITIONALS (dv $sexpr-if-tag 'if) (dm sexpr-if? (exp => ) (sexpr-tagged-list? exp $sexpr-if-tag)) (dm sexpr-if-test (exp| => ) (2nd exp)) (dm sexpr-if-then (exp| => ) (3rd exp)) (dm sexpr-if-else (exp| => ) (if (nul? (tail (tail (tail exp)))) ;;cdddr #f (head (tail (tail (tail exp)))))) ;;cadddr (dm sexpr-make-if (test then else => ) (lst $sexpr-if-tag test then else)) ;; BLOCK (dv $sexpr-bind-exit-tag 'esc) (dm sexpr-block? (exp => ) (sexpr-tagged-list? exp $sexpr-bind-exit-tag)) ;; TODO: perhaps second should be 2nd (dm sexpr-block-name (exp| => ) (2nd exp)) (dm sexpr-block-body (exp| => ) (tail (tail exp))) ;; UNWIND-PROTECT (dv $sexpr-unwind-protect-tag 'fin) (dm sexpr-unwind-protect? (exp => ) (sexpr-tagged-list? exp $sexpr-unwind-protect-tag)) (dm sexpr-unwind-protect-protected-form (exp| => ) (2nd exp)) (dm sexpr-unwind-protect-cleanup-forms (exp| => ) (tail (tail exp))) ;; MONITOR (dv $sexpr-monitor-tag 'try) (dm sexpr-monitor? (exp => ) (sexpr-tagged-list? exp $sexpr-monitor-tag)) (dm sexpr-monitor-expand (exp|) (mif ((TRY ,options ,handler ,@body) exp) (let ((options (if (isa? options ) `((type ,options)) options))) (tup (sexpr-monitor-type options) (sexpr-monitor-info options) (sexpr-monitor-test options) handler (sexpr-monitor-body body))) (syntax-error "Malformed TRY expression: ~=" exp))) ;;; Find an option. Given '((foo 1) (bar 2)) and 'foo, return '(1). (df find-option (options| option| default => ) (cond ((nul? options) default) ((== option (head (1st options))) (tail (1st options))) (#t (find-option (tail options) option default)))) (dm sexpr-monitor-type (options| => ) (def type-list (find-option options 'type '())) (mif ((,type) type-list) type (syntax-error "Malformed TRY condition type: %=" type-list))) ;; Build an expression which returns an appropriate . (dm sexpr-monitor-info (options| => ) (def info (find-option options 'info #f)) (def description (find-option options 'description #f)) (cond ((and info description) (syntax-error "TRY may only have one of INFO or DESCRIPTION: %=" options)) ;; TODO - Do we want to keep the 'info' option? (info (mif ((,info-expr) info) info-expr (syntax-error "Malformed TRY info expression: %=" info))) (description (mif ((,message ,@arguments) description) `(new handler-info-message ,message handler-info-arguments (lst ,@arguments)) (syntax-error "Malformed TRY description: %=" description))) (#t '$default-handler-info))) (dm sexpr-monitor-test (options| => ) (def test-body (find-option options 'test '(#t))) (sexpr-make-anonymous-method '() test-body)) (dm sexpr-monitor-body (body| => ) (sexpr-make-anonymous-method '() body)) ;; BEGIN expressions (a.k.a. sequences) (dv $sexpr-begin-tag 'seq) (dm sexpr-begin? (exp => ) (sexpr-tagged-list? exp $sexpr-begin-tag)) (dm sexpr-begin-actions (begin-exp => ) (tail begin-exp)) (dm sexpr-last-exp? (seq| => ) (nul? (tail seq))) (dm sexpr-first-exp (seq| => ) (head seq)) (dm sexpr-rest-exps (seq| => ) (tail seq)) (dm sexpr-sequence->begin (seq| => ) (if (nul? seq) seq (if (sexpr-last-exp? seq) (sexpr-first-exp seq) (sexpr-make-begin seq)))) (dm sexpr-make-begin (exp| => ) (pair $sexpr-begin-tag exp)) ;; Procedure applications -- NO-ARGS? and LAST-OPERAND? added (dm sexpr-application? (exp => ) (and (isa? exp ) (not (nul? exp)))) (dm sexpr-operator (app| => ) (head app)) (dm sexpr-operands (app| => ) (tail app)) (dm sexpr-no-operands? (args| => ) (nul? args)) (dm sexpr-first-operand (args| => ) (head args)) (dm sexpr-rest-operands (args| => ) (tail args)) (dm sexpr-make-application (f operands| => ) (cat (lst f) operands)) (dv *unique-name-counter* 0) (dm sexpr-new-unique-name-counter! (=> ) ;; without-interrupts (set *unique-name-counter* (+ *unique-name-counter* 1)) *unique-name-counter*) (dv ) ;; TODO: (union ) (dm sexpr-unique-name (prefix| => ) (as (cat (as prefix) (num-to-str (sexpr-new-unique-name-counter!))))) ;; LET -- (let ((var value) ...) form ...) ;; var: simple-var | (tup tup-var ...) ;; tup-var: simple-var | (name "...") ;; simple-var: name | (name type) (dv $sexpr-def-tag 'def) (dm sexpr-def? (exp => ) (sexpr-tagged-list? exp $sexpr-def-tag)) (dm sexpr-def-variable (exp|) (2nd exp)) (dm sexpr-def-value (exp|) (3rd exp)) (dv $sexpr-let-tag 'let) (dm sexpr-let? (exp => ) (sexpr-tagged-list? exp $sexpr-let-tag)) (dm sexpr-let-bound-variables (let-exp| => ) (map (fun (x) (1st (as-signature x))) (2nd let-exp)))) (dm sexpr-let-values (let-exp| => ) (map (fun (x) (2nd (as-signature x))) (2nd let-exp))) (dm sexpr-let-body (let-exp| => ) (sexpr-sequence->begin (tail (tail let-exp)))) (dm sexpr-let-names+values (names| vals| => (tup names| values|)) (rep loop ((rnames '()) (rvalues '()) (names names) (vals vals)) (if (nul? names) (tup (rev! rnames) (rev! rvalues)) (let ((name (head names)) (value (head vals))) (if (and (isa? name ) (== (head name) 'tup)) (let ((tupname (sexpr-unique-name "tup")) ((tup rtnames rtvalues) (rep inner ((rtnames (lst tupname)) (rtvalues (lst value)) (index 0) (tnames (tail name))) (if (nul? tnames) (tup rtnames rtvalues) (let ((name (head tnames))) (if (and (isa? name ) (== (head (tail name)) '...)) (inner (pair (lst (head name) ') rtnames) (pair (lst 'sub tupname index (lst 'len tupname)) rtvalues) (+ index 1) (tail tnames)) (inner (pair name rtnames) (pair (lst 'elt tupname index) rtvalues) (+ index 1) (tail tnames)))))))) (loop (cat rtnames rnames) (cat rtvalues rvalues) (tail names) (tail vals))) (loop (pair name rnames) (pair value rvalues) (tail names) (tail vals))))))) (dm sexpr-let->combination (let-exp| => ) (def onames (sexpr-let-bound-variables let-exp)) (def ovalues (sexpr-let-values let-exp)) (def body (sexpr-let-body let-exp)) (def (tup names values) (sexpr-let-names+values onames ovalues)) (rep col ((names names) (values values)) (if (nul? names) body (pair (lst $sexpr-method-tag (lst (head names)) (col (tail names) (tail values))) (lst (head values)))))) ;; LOC -- (loc ((?var (?param ...) ?body) ...) ?body) (dv $sexpr-locals-tag 'loc) (dm sexpr-loc? (exp => ) (sexpr-tagged-list? exp $sexpr-locals-tag)) (dm sexpr-loc-bound-names (loc-exp| => ) (map 1st (2nd loc-exp))) (dm sexpr-loc-bound-signatures (loc-exp| => ) (map (fun (x) (as-signature (2nd x))) (2nd loc-exp))) ;; COMPOSE DEFINED (dm sexpr-loc-bound-bodies (loc-exp| => ) (map (compose tail tail) (2nd loc-exp))) (dm sexpr-loc-raw-body (loc-exp| => ) (tail (tail loc-exp))) (dm sexpr-loc-body (loc-exp| => ) (sexpr-sequence->begin (sexpr-loc-raw-body loc-exp))) (dv $sexpr-iterate-tag 'rep) ;; ITERATE expressions (REP ?name ((?var ?init) ...) ?body) (dm sexpr-iterate? (exp => ) (sexpr-tagged-list? exp $sexpr-iterate-tag)) (dm sexpr-iterate-name (rep-exp| => ) (2nd rep-exp)) (dv $sexpr-values-tag '=>) (dm sexpr-iterate-signature (rep-exp| => ) (def sig (3rd rep-exp)) (cat (map (fun (x) (1st (as-signature x))) (sexpr-signature-parameters sig)) (if (sexpr-signature-value sig) '() (lst $sexpr-values-tag)) (lst (sexpr-signature-value sig)))) (dm sexpr-iterate-inits (rep-exp| => ) (map (fun (x) (2nd (as-signature x))) (3rd rep-exp))) (dm sexpr-iterate-body (rep-exp| => ) (tail (tail (tail rep-exp)))) (dm sexpr-iterate->loc (rep-exp| => ) (def name (sexpr-iterate-name rep-exp)) (def sig (sexpr-iterate-signature rep-exp)) (def body (sexpr-iterate-body rep-exp)) (def inits (sexpr-iterate-inits rep-exp)) (line-list-of rep-exp (lst $sexpr-locals-tag (lst (cat (lst name sig) body)) (cat (lst name) inits)))) ;; ISA (dv $sexpr-isa-tag 'isa) (dm sexpr-isa? (exp => ) (sexpr-tagged-list? exp $sexpr-isa-tag)) (dm sexpr-isa-parent (exp| => ) (2nd exp)) (dm sexpr-isa-prop-inits (exp| => ) (tail (tail exp))) (dm sexpr-isa-init-props (exp| => ) (map 2nd exp)) (dm sexpr-isa-init-values (exp| => ) (map 3rd exp)) ;; DC (dv $sexpr-define-class-tag 'dc) (dm sexpr-define-class? (exp => ) (sexpr-tagged-list? exp $sexpr-define-class-tag)) (dm sexpr-define-class-parents (exp| => ) (3rd exp)) ;; PROP ;; (dp point-x ( => ) 0) (dv $sexpr-prop-tag 'dp) (dv $sexpr-prop!-tag 'dp!) (dm sexpr-prop!? (exp => ) (sexpr-tagged-list? exp $sexpr-prop!-tag)) (dm sexpr-prop? (exp => ) (sexpr-tagged-list? exp $sexpr-prop-tag)) (dm sexpr-prop-name (exp| => ) (2nd exp)) (dm sexpr-prop-owner (exp| => ) (def param (1st (sexpr-function-parameters exp))) (if (isa? param ) (2nd param) param)) (dm sexpr-prop-init-var (exp| => ) (def param (1st (sexpr-function-parameters exp))) (if (isa? param ) (1st param) '_x)) (dm sexpr-prop-type (exp| => ) (sexpr-function-value exp)) (dm sexpr-prop-init? (exp| => ) (= (len exp) 4)) (dm sexpr-prop-init (exp| => ) (elt exp 3)) (dm sexpr-fab-getter (name type line => ) (sexpr-make-method name (line-list line (lst '_x type)) (lst (lst 'prop-value '_x name)))) (dm sexpr-fab-setter (name type prop-type line => ) (sexpr-make-method (sexpr-fab-setter-name name) (line-list line (lst '_z prop-type) (lst '_x type)) (lst (lst 'prop-value-setter '_z '_x name)))) (dm sexpr-fab-setter-name (name => ) (cat-sym name "-setter")) ;; BACKQUOTE (dm sexpr-macro? (exp => ) (sexpr-tagged-list? exp $sexpr-macro-tag)) (dv $sexpr-macro-expand-tag 'macro-expand) (dm sexpr-macro-expand? (exp => ) (sexpr-tagged-list? exp $sexpr-macro-expand-tag)) (dv $sexpr-syntax-if-tag 'mif) (dm sexpr-make-syntax-if (pat exp then else => ) (lst $sexpr-syntax-if-tag (lst pat exp) then else)) ;; (dv *comma* 'unquote) (dv *comma-atsign* 'comma-atsign) (dv *bq-list* 'bq-list) (dv *bq-list** 'bq-list*) (dv *bq-append* 'bq-append) (dv *bq-nconc* 'bq-nconc) (dv *bq-clobberable* 'bq-clobberable) (dv *bq-quote* 'bq-quote) (df sexpr-expand-backquote (x| => ) (eval (sexpr-build-backquote-expander x) 'goo)) (dm sexpr-build-backquote-expander (x| => ) (def raw-result (bq-process x)) (def res (bq-remove-tokens raw-result)) ;; (msg-out "RES = %=\n" res) res) (dm sexpr-unquote? (x => ) (sexpr-tagged-list? x 'unquote)) (dm sexpr-unquote-splicing? (x => ) (sexpr-tagged-list? x 'unquote-splicing)) (dm sexpr-backquote? (x => ) (sexpr-tagged-list? x $sexpr-quasiquote-tag)) (dm sexpr-atom? (x => ) (or (not (isa? x )) (nul? x))) (dm nreconc (x| y| => ) (cat! (rev! x) y)) (dm bq-process (x => ) (cond ((sexpr-atom? x) (lst *bq-quote* x)) ((sexpr-backquote? x) (bq-process (sexpr-build-backquote-expander (head (tail x))))) ((sexpr-unquote? x) (head (tail x))) ((sexpr-unquote-splicing? x) (syntax-error "UNQUOTE-SPLICING %= AFTER BQ" (head (tail (x))))) (#t (esc return (rep loop ((p x) (q '())) (if (sexpr-atom? p) (return (pair *bq-append* (nreconc q (lst (lst *bq-quote* p))))) (seq (when (sexpr-unquote? p) (unless (nul? (tail (tail p))) (syntax-error "Malformed ,%=" p)) (return (pair *bq-append* (nreconc q (lst (head (tail p))))))) (when (== (tail p) *comma-atsign*) (syntax-error "Dotted ,@%=" p)) (loop (tail p) (pair (bracket (head p)) q))))))))) (dm bracket (x => ) (cond ((sexpr-atom? x) (lst *bq-list* (bq-process x))) ((sexpr-unquote? x) (lst *bq-list* (head (tail x)))) ((sexpr-unquote-splicing? x) (lst *bq-clobberable* (head (tail x)))) (#t (lst *bq-list* (bq-process x))))) (dm map-tree (fn| x => ) (if (sexpr-atom? x) (fn x) (let ((a (fn (head x))) (d (map-tree fn (tail x)))) (if (and (= a (head x)) (= d (tail x))) x (pair a d))))) (dm bq-remove-tokens (x) (cond ((== x *bq-list*) 'lst) ((== x *bq-append*) 'cat) ((== x *bq-nconc*) 'cat!) ((== x *bq-list**) 'list*) ((== x *bq-quote*) 'quote) ((sexpr-atom? x) x) ((== (head x) *bq-clobberable*) (bq-remove-tokens (head (tail x)))) ((and (== (head x) *bq-list**) (not (nul? (tail (tail x)))) (nul? (tail (tail (tail x))))) (pair 'pair (map-tree bq-remove-tokens (tail x)))) (#t (map-tree bq-remove-tokens x)))) ;;/ SEXPR-IF -- (sexpr-if (pattern expression) then [ else ]) (dm sexpr-syntax-if? (exp => ) (sexpr-tagged-list? exp $sexpr-syntax-if-tag)) (dm sexpr-syntax-if-value (exp| => ) (2nd (2nd exp))) (dm sexpr-syntax-if-pattern (exp| => ) (1st (2nd exp))) (dm sexpr-syntax-if-then (exp| => ) (3rd exp)) ;; TODO: DEFAULT ON ELT (dm sexpr-syntax-if-else (exp| => ) (elt-or exp 3 #f)) (dm sexpr-pattern-variable? (pat => ) (or (sexpr-unquote? pat) (sexpr-unquote-splicing? pat))) (dm sexpr-pattern-variable-name (pat| => ) (2nd pat)) (dm sexpr-bind-pattern-variables (pat| => ) (del-dups (rep col ((pat pat)) (if (or (not (isa? pat )) (nul? pat)) '() (let ((x (head pat))) (if (sexpr-pattern-variable? x) (pair (sexpr-pattern-variable-name x) (col (tail pat))) (cat (col (head pat)) (col (tail pat))))))))) ;; MACROS ;;; TODO: GENSYM 'EXP (dm sexpr-make-macro-function (name exp| => ) (def mif (sexpr-make-syntax-if (sexpr-method-parameters exp) 'exp (sexpr-sequence->begin (sexpr-method-body exp)) `(macro-error ',name exp))) (def func (sexpr-make-anonymous-method (lst 'exp) (lst mif))) func) (need-implementation eval) (export sexpr-assignment-value sexpr-assignment-variable $sexpr-begin-tag $sexpr-bind-exit-tag sexpr-bind-pattern-variables sexpr-block-body sexpr-block-name $sexpr-define-function-tag $sexpr-define-generic-tag $sexpr-define-method-tag $sexpr-define-syntax-tag $sexpr-define-class-tag sexpr-define-class? sexpr-define-class-parents $sexpr-define-tag $sexpr-define-constant-tag sexpr-definition-value sexpr-definition-variable sexpr-expand-backquote sexpr-forward-primitive? sexpr-function-body sexpr-function-definition-value sexpr-function-definition-variable sexpr-function-definition-adjectives sexpr-function-signature sexpr-if-else $sexpr-if-tag sexpr-if-test sexpr-if-then sexpr-isa-init-props sexpr-isa-init-values sexpr-isa-parent sexpr-isa-prop-inits $sexpr-isa-tag sexpr-iterate->loc $sexpr-iterate-tag $sexpr-def-tag sexpr-def? sexpr-def-variable sexpr-def-value $sexpr-let-tag sexpr-let->combination sexpr-loc-bound-bodies sexpr-loc-bound-names sexpr-loc-bound-signatures sexpr-loc-raw-body $sexpr-locals-tag $sexpr-macro-expand-tag sexpr-make-anonymous-method sexpr-make-application sexpr-make-begin sexpr-fab-getter sexpr-make-macro-function sexpr-make-method sexpr-fab-setter sexpr-fab-setter-name sexpr-method-body sexpr-method-signature $sexpr-method-tag sexpr-monitor-expand $sexpr-monitor-tag sexpr-operands sexpr-operator $sexpr-quasiquote-tag $sexpr-quote-tag sexpr-sequence->begin $sexpr-set-tag sexpr-signature-parameters sexpr-signature-value sexpr-prop-init-var sexpr-prop-init? sexpr-prop-init sexpr-prop-name sexpr-prop-owner sexpr-prop-type $sexpr-prop-tag $sexpr-prop!-tag sexpr-syntax-definition-value sexpr-syntax-definition-variable sexpr-syntax-if-else sexpr-syntax-if-pattern $sexpr-syntax-if-tag sexpr-syntax-if-then sexpr-syntax-if-value sexpr-text-of-quotation sexpr-unquote? sexpr-unquote-splicing? sexpr-unwind-protect-cleanup-forms sexpr-unwind-protect-protected-form $sexpr-unwind-protect-tag sexpr-variable? sexpr-variable-name sexpr-variable-type) goo-0.155/src/eval/top.goo0100644000175000017500000002041407611105275014744 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use goo/fun) (use goo/system) (use goo/conditions) (use eval/syntax) (use eval/ast) (use eval/ast-eval) (df esctst () (esc exit (fin (exit 'exit) (msg out "CLEANUP\n") 'cleanup) (msg out "DO\n") 'done)) (dg g2c-eval (exp ct-env)) (dm parse-in (s| ct-env) (dlet ((*dynamic-compilation?* #f #/ #t /#)) (objectify-with-subtransaction (read-from-string s) ct-env #t #f))) (dm parse (s| modname|) (parse-in s (runtime-environment modname))) (dm str-parse-in (s| ct-env) (msg out "%=\n" (parse-in s ct-env))) (dm str-parse (s| modname|) (str-parse-in s (runtime-environment modname))) (dg vm-evaluate (ast env)) (df %%bottom%%vm-run (ast ct-env) (vm-evaluate ast ct-env)) (df %%bottom%%ast-run (ast ct-env) (ast-evaluate ast)) (df %%bottom%%g2c-run (ast ct-env) (g2c-eval ast ct-env)) (df auto-run (ast ct-env) (if (ast-contains-fun? ast) (%%bottom%%g2c-run ast ct-env) (%%bottom%%ast-run ast ct-env))) (df auto-eval (form ct-env) (dlet ((*dynamic-compilation?* #t)) (zap-referenced-bindings! ct-env) (def ast (objectify-with-subtransaction form ct-env #t #f)) (run ast ct-env))) (dv $g2c-eval? (let ((mode (os-val "GOO_EVAL_MODE"))) (and (not (case-insensitive-string-equal mode "ast")) (or (case-insensitive-string-equal mode "g2c") #t)))) ;; (= (os-name) "linux") (ddv run (if $g2c-eval? auto-run %%bottom%%ast-run)) (dm eval-in (x ct-env) (def o (objectify-with-subtransaction x ct-env #t #f)) (def e (ast-evaluate o)) e) (dm eval (x modname|) (eval-in x (runtime-environment modname))) (dm str-eval-in (x| ct-env => ) (write-to-string (eval-in (read-from-string x) ct-env))) (dm str-eval (x| modname|) (str-eval-in x (runtime-environment modname))) (df compiled-file? (name|) (suffix? name ".gooc")) (dm read-file (filename| => ) (with-port (port (open filename)) (rep loop ((forms '())) (def x (read port)) (if (eof-object? x) (sexpr-sequence->begin (rev! forms)) (loop (pair x forms)))))) (dm load-in (filename| ct-env) (if (compiled-file? filename) (so-load filename) (dlet ((*dynamic-compilation?* #t)) (def x (read-file filename)) (zap-referenced-bindings! ct-env) (def o (objectify-with-subtransaction x ct-env #f #f)) (run o ct-env))) ;; TODO - Hook me into the new module loader system in a useful way. ;; (report-undefined-global-bindings ct-env) ) (dm load-file (filename| modname|) (load-in filename (runtime-environment modname))) (dm load (name modname|) (def realfile (find-goo-file-in-path name *module-search-path*)) (unless realfile (file-opening-error name)) (load-file realfile modname)) (dm prompt-for-command-expression (env level prompt) (msg out "%s %=%s" (module-name (find-environment-module env)) level prompt) (force-out out) (def form (read in)) (if (and (isa? form ) (== (head form) 'unquote)) (let ((arg-str (gets in)) (args (read-from-string (cat "(" arg-str ")")))) (pair (cat-sym "cmd_" (2nd form)) args)) form)) (dm print-result-expression (env level label result) (msg out "%s %=%s" (module-name (find-environment-module env)) level label) (write out result)) (dm do-stack-frames (fun) (%do-stack-frames fun)) (ds for-frames ((,num ,f ,args) ,@body) `(let ((,num 0)) (do-stack-frames (fun (,f _args) (def ,args (rev _args)) ,@body (incf ,num))))) (ds for-user-frames ((,num ,f ,args) ,@body) `(esc break (def _seen-top #f) (def _top-num 0) (for-frames (_num ,f ,args) (def _name (if (fun-name ,f) (as (fun-name ,f)) "")) (def ,num (- _num _top-num)) (when _seen-top (when (prefix? _name "%%bottom%%") (break #f)) ,@body) (when (prefix? _name "%%top%%") (set _top-num num) (set _seen-top #t))))) (dm msg-src-loc (f) (when (isa? f ) (def sl (fun-src-loc f)) (when (isa? sl ) (msg out " %s:%d" (src-loc-file sl) (src-loc-line sl))))) (dm backtrace () (for-user-frames (num f args) (msg out "[%=] %= %=" num f args) (msg-src-loc f) (newline out))) (dm frame (n|) (for-user-frames (num f args) (when (== n num) (msg out "[%=] %= %=" num f args) (msg-src-loc f) (newline out)))) (dm frame-var (n| name|) (esc ret (for-user-frames (num f args) (when (== n num) (ret (elt args (pos (fun-names f) name))))) #f)) ;; TODO: BETTER VALUE (dm bt () (for-user-frames (num f args) (msg out "[%=] %=" num f) (msg-src-loc f) (newline out))) (df do-restart (restarts n) (unless restarts (error "No restarts available.\n")) (unless (and (> n 0) (<= n (len restarts))) (error "No restart #%d.\n" n)) (invoke-handler-interactively (elt restarts (- n 1)) in out)) (dv $ #f) (dv $$ #f) (dv $$$ #f) ;; Initialization and driver loop ;; The prompt is handled a bit differently than in the notes (dm %%top%%top-in (level top quit show-restarts? ct-env) (def restarts #f) (esc blow (rep loop () (esc continue (try (fun (c r) (case-by c isa? (() (msg out "BREAK")) (#t (esc break (try (fun (c r) (post "") (break #f)) (msg out "ERROR: %s" (describe-condition c)))))) ;; (backtrace (env)) (%%top%%top-in (+ level 1) top quit #t ct-env) (continue #f)) (try ((type ) (description "Return to interpreter level %d" level)) (fun (c r) (continue #f)) (newline out) (when show-restarts? (msg out "Type \",restart N\" to restart execution:\n") (set restarts (list-handlers out)) (set show-restarts? #f)) (def form (prompt-for-command-expression ct-env level "<= ")) (if (eof-object? form) (quit #f) (match form ((cmd_quit) (quit #f)) ((cmd_up) (blow #f)) ((cmd_top) (top #f)) ((cmd_handlers) (list-handlers out)) ((cmd_restarts) (list-handlers out)) ((cmd_restart ,n) (do-restart restarts n)) ((cmd_in ,m) (def new-env (runtime-environment m)) (set ct-env new-env)) ((cmd_g2c-eval) (when $g2c-eval? (set run %%bottom%%g2c-run))) ((cmd_ast-eval) (set run %%bottom%%ast-run)) ((cmd_vm-eval) (set run %%bottom%%vm-run)) ((cmd_auto-eval) (when $g2c-eval? (set run auto-run))) ((cmd_bt) (bt)) ((cmd_backtrace) (backtrace)) ((cmd_frame ,n) (frame n)) ((cmd_frame-var ,n ,name) (print-result-expression ct-env level "=> " (frame-var n name))) (#t (def res (auto-eval form ct-env)) (print-result-expression ct-env level "=> " res) (rotf $$$ $$ $ res))))))) (loop)))) (dm top (modname|) (esc quit (try ((type ) (description "Exit the top-level interpreter")) (fun (c r) (quit #f)) (rep loop () (esc top (%%top%%top-in 0 top quit #f (runtime-environment modname))) (loop))))) (df save-image (image-name|) (unexec image-name (fun () (top 'goo/user)))) (export eval auto-eval load load-file parse-in read-file top do-stack-frames backtrace bt frame frame-var save-image g2c-eval vm-evaluate esctst *dynamic-compilation?* $ $$ $$$) goo-0.155/src/eval/typist.goo0100644000175000017500000002734607611105275015511 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use goo/fun) (use goo/types) (use eval/ast) (use eval/ast-linearize) (use eval/ast-eval) (use eval/optimize) (use goo/io/read) (dm type-union (x| y| => ) (cond ((subtype? x y) y) ((subtype? y x) x) ((isa? x ) (new union-elts (if (isa? y ) (cat x y) (pair y x)))) (#t (new union-elts (if (isa? y ) (pair x y) (lst x y)))))) ;; TODO: CONSERVATIVE (dm type-intersection (x| y| => ) (cond ((subtype? x y) x) ((subtype? y x) y) (#t ))) (dc ()) (dp type-state-acts ( => ) (fab 0)) (dp type-state-env ( => )) (dc ()) (dc ()) (dp act-sorted ( => )) (dc ()) (dc ()) (dc ()) (dp act-test ( => )) (dc ()) (dp act-val ( => )) (dc ()) (dp act-off ( => )) (dc ()) (dp act-val ( => )) (dm mem-act (s| x act|) (set [(type-state-acts s) x] act)) (dm type-infer-check (a t s) (def inferred-type (type-infer a s)) (def type (type-value (type-infer t s))) (post "IT %= T %=\n" inferred-type type) (if (subtype? inferred-type type) inferred-type type)) (dm type-infer-all (x| r) (let ((s (new type-state-env r))) (type-infer x s) (type-state-acts s))) (dm type-infer (x| s|) (post "TYPING %= \n" x) (def res (opf (program-type x) (type-union _ (do-type-infer x s)))) (post "TYPING %= => %t\n" x res) res) (dm do-type-infer (x| s|) (error "NYI %t: %=" (class-of x) x )) (dm do-type-infer (x| s|) (do (op type-infer _ s) x) (program-type (last x))) (dm do-type-infer (x| s|) (case-by (constant-value x) isa? (() (t= (constant-value x))) (#t (class-of (constant-value x))))) (dm do-type-infer (x| s|) (type-infer (assignment-form x) s)) (dm type-infer-binding (x| s|) (let ((val (binding-value-or x #f))) (case-by val isa? (( ) (t= val)) (#t )))) ;; TODO: module-type (dm type-infer-binding (x| s|) ;; TODO: PRETTY LIMITED ) (dm type-value (t| => ) ) (dm type-value (t| => ) (type-object t)) (dm type-infer-binding (x| s|) ;; (post "LB BV %=\n" (binding-value x)) (cond ((binding-mutable? x) ) ((binding-value x) (t= (binding-value x))) (#t (binding-inferred-type x)))) (dm do-type-infer (x| s|) (type-infer-binding (reference-binding x) s)) (dm do-type-infer (x| s|) ) (dm do-type-infer (x| s|) (t= #f)) (dm do-type-infer (x| s|) (for ((b (function-bindings x))) (set (binding-inferred-type b) (type-value (type-infer (binding-type b) s)))) (type-infer (function-body x) s) ;; TODO: TIGHTEN UP ) (dm do-type-infer (x| s|) ) (dm do-type-infer (x| s|) (def test-type (type-infer (alternative-condition x) s)) (cond ((type-equiv? test-type (t= #f)) (mem-act s x (new act-test #f)) (type-infer (alternative-alternant x) s)) ((not (potentially-joint? test-type (t= #f))) (mem-act s x (new act-test #t)) (type-infer (alternative-consequent x) s)) (#t (type-union (type-infer (alternative-consequent x) s) (type-infer (alternative-alternant x) s))))) (dm do-type-infer (x| s|) (do (op type-infer _ s) x) (type-infer (last x) s)) (dm do-type-infer (x| s|) (for ((binding (fix-let-bindings x)) (type (fix-let-types x)) (arg (fix-let-arguments x))) (unless (binding-mutable? binding) (set (binding-inferred-type binding) ;; (type-infer arg s) (type-infer-check arg (binding-type binding) s)))) (type-infer (fix-let-body x) s)) ;; TODO: the following are incomplete (dm subtype? (x| y| => ) #t) (dm do-type-infer (x| s|) (do (op type-infer _ s) (locals-functions x)) (type-infer (locals-body x) s)) (dm do-type-infer (x| s|) (loc ((recurse (arg-types) (def param-types (map binding-inferred-type (loop-bindings x))) (def new-param-types (map2 { b a \ (opf (binding-inferred-type b) (type-union _ a)) } (loop-bindings x) arg-types)) (post "PARAM TYPES %=\n" param-types) (post "ARGUM TYPES %=\n" arg-types) (post "NEW-PARAM TYPES %=\n" new-param-types) (if (all2? type-equiv? param-types new-param-types) ;; fixpoint? (program-type x) (type-infer (loop-body x) s)))) (dlet (((loop-continue x) recurse)) (type-infer (loop-body x) s)))) (dm do-type-infer (x| s|) (let ((loop (application-loop x))) ((loop-continue loop) (map2 (fun (a b) (type-infer-check a (binding-type b) s)) (application-arguments x) (loop-bindings loop))))) (dm do-type-infer (x| s|) (do (op type-infer _ s) (application-arguments x)) ) (dm arity-check? (nary? arity x| s| => ) (def len (len (application-arguments x))) (if nary? (>= len arity) (= len arity))) (dm known-call? (nary? arity arg-types fun-types x| s| => ) (if (and (arity-check? nary? arity x s) (all2? subtype? arg-types fun-types)) { (mem-act s x (new )) #t } #f)) (dm type-known-met-call (x| f| nms| s| => ) (if (fun-inlineable? f) (let ((r (type-state-env s)) (fi (dynamic-compute-program (read-from-string (fun-src f)) (type-state-env s))) (c (process-closed-application fi (application-arguments x) r (application-tail? x)))) (mem-act s x (new act-val c)) (type-intersection (type-infer c s) (fun-val f))) { (mem-act s x (new )) (fun-val f) })) (dm met-prop (m| => (t? )) (%met-env m)) (df prop-offset-in (t| p| => (t? )) (pos (class-props t) p)) (dm all-prop-offsets (t| p| => (t? )) (def off (prop-offset-in t p)) (and (all? (op = (prop-offset-in _ p) off) (class-children t)) off)) (dm type-prop-access (x| g| m| s| => ) (post "TYPING PROP-ACCESS\n") (def args (application-arguments x)) (def prop (met-prop m)) (def type (type-infer (if (= (len args) 1) [args 0] [args 1]) s)) (def off (all-prop-offsets type prop)) (if off { (post "CONST-PROP-ACCESS %d\n" off) (mem-act s x (new act-off off)) } (mem-act s x (new ))) (prop-type prop)) (dm do-type-infer (x| s|) (def arg-types (map (op type-infer _ s) (application-arguments x))) (def fn (application-function x)) (def fun-type (type-infer fn s)) (if (isa? fun-type ) (let ((f (type-object fun-type))) (case-by f isa? (() (if (arity-check? (fun-nary? f) (fun-arity f) x s) (let (((tup sorted others) (sorted-applicable-methods-using-types (fun-mets f) arg-types))) (post "APP-METS %= %= %= %=\n" f arg-types sorted others) (if (or (nul? sorted) (not (nul? others))) { (mem-act s x (new )) (fun-val f) } (if (and (met-prop (head sorted)) (nul? (tail sorted))) { (type-prop-access x f (head sorted) s) } { (post "KNOWN MET CALL\n") (type-known-met-call x (head sorted) (tail sorted) s) }))) (fun-val f))) (() (def fun-types (map (op type-value (type-infer _ s)) (function-specs f))) (if (known-call? (function-nary? f) (function-arity f) arg-types fun-types x s) { (mem-act s x (new )) (type-value (type-infer (function-value f) s)) } )) (() (if (known-call? (fun-nary? f) (fun-arity f) arg-types (fun-specs f) x s) (type-known-met-call x f '() s) )) (#t ))) )) (dm do-type-infer (x| s|) ) (dm do-type-infer (x| s|) ) (dm do-type-infer (x| s|) ) (export potentially-joint? type-infer) ;;; TYPE-DIRECTED SURGERY (dm surgery! (o| acts| r) (ast-walk! surgery! o acts r)) (dm do-surgery! (o| act r) o) ;; default noop (dm do-surgery! (o| act| r) (def mets (act-sorted act)) (new application-arguments (application-arguments o) application-function (new constant-value (head mets)) application-next-methods (new constant-value (tail mets)) application-tail? (application-tail? o))) (dm do-surgery! (o| act| r) (objectify-with-subtransaction (act-val act) r #t (application-tail? o))) (dm do-surgery! (o| act| r) (def args (application-arguments o)) (dynamic-compute-program (if (= (len args) 2) `(prop-value-at-setter ,@args) `(prop-value-at ,@args)) r)) (dm do-surgery! (o| act| r) (act-val act)) (dm do-surgery! (o| act| r) (set (application-known? o) #t) o) (dm do-surgery! (o| act| r) (if (act-test act) (alternative-consequent o) (alternative-alternant o))) (dm surgery! (o| acts| r) (post "ACTS %=\n" acts) (post "VISITING APP %= ACT %=\n" o (elt-or acts o #f)) (ast-walk! surgery! o acts r) (do-surgery! o (elt-or acts o #f) r)) (dm surgery! (o| acts| r) (do-surgery! o (elt-or acts o #f) r)) (dv cp #f) ;; (dv cp eval/g2m:asm-compute-program) (df type-exp (x) (let ((r (runtime-environment 'eval/typist)) (ast (cp x r))) (type-infer-all ast r) ast)) (df type+opt-exp (x) (let ((r (runtime-environment 'eval/typist)) (ast (cp x r)) (acts (type-infer-all ast r))) (surgery! ast acts r))) ;;;; ;;;; ;;;; (dm dynamic-compute-program (exp env) (def ast (objectify-with-subtransaction exp env #t #f)) (def ana (analyze-calls ast env)) (def box (insert-box! ana)) (def lft (lift! box)) lft) (dv dync #f) ;; (dv dync eval/top:g2c-eval) ;; (df f (x|) (+ x 1)) (dm optimize-method (m|) (def src (read-from-string (fun-src m))) (def srcl (fun-src-loc m)) (def mod (as (src-loc-file srcl))) (def r (runtime-environment mod)) ;; TODO: CHANGE TO MET-CODE-SET (def patch `(set (%gen-code ,m) (%met-code ,src))) (def ast (dynamic-compute-program patch r)) (def acts (type-infer-all ast)) (def oast (surgery! ast acts r)) (dync oast r) oast) goo-0.155/src/eval/vm.goo0100644000175000017500000002641507611105275014573 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use goo/fun) (use goo/io/write) (use eval/ast) (use eval/ast-eval) (use eval/top) ;;;; TODO ;;;; ;;;; module loading ;;;; dynamic variables ;;;; --- ;;;; stack per thread ;;;; preconvert code to have functions OR use bytes ;;;; code vec per met ;;;; --- ;;;; use underlying g2c stack ;;;; customize instructions ;;;; thunk ;;;; /req only sig ;;;; convert to more efficient implementation ;;;; source locators ;;;; (dv *depth* 0) (dv *trace?* #f) (df trace (msg| args|...) (when *trace?* (app post msg args))) ;;;; VM STATE (dv $max-stk-len 1000) (dv *stk* (fab $max-stk-len)) (dv *code* (fab 0)) (dv *exit* #f) ;; USE FOR VM-TOP-RUN ESC'S ;;;; THE VM STATE ;; NOW STORED IN LOW-LEVEL MACHINE-STATE ;; (dv *sp* 0) ;; (dv *fp* 0) ;; (dv *fn* #f) ;; (dv *pc* 0) ;;;; STACK (df trace-stk (msg|) (when *trace?* (post "[%s" msg) (for ((i (range-by (- (%vsp) 1) >= 0 1-))) (when (= i (%vfp)) (post " FP>")) (post " %=" [*stk* i])) (post "]"))) (dm vm-push (x) (set [*stk* (%vsp)] x) (incf (%vsp)) (trace-stk "PU") x) (dm vm-pop (=> ) (trace-stk "PO") (decf (%vsp)) (def x [*stk* (%vsp)]) x) (dm vm-n-pop (n| => ) (rep pop ((res '()) (i 0)) (if (= i n) res (pop (pair (vm-pop) res) (+ i 1))))) (df vm-env-lnk (n) (vm-push (%vfp)) (set (%vfp) (- (%vsp) 1)) (incf (%vsp) n)) (df vm-env-unlnk () (set (%vsp) (%vfp)) (set (%vfp) [*stk* (%vfp)]) (trace-stk "UL")) ;;;; INSTRUCTION DEFINITION MACHINERY (dv *opcodes* (fab 0)) (dv *codes* (fab 256)) (dv *oplens* (fab 256)) (dv *opnames* (fab 256)) (dv $vm-ret 0) (df vm-nxt-op () (def op [*code* (%vpc)]) (incf (%vpc)) op) (ds def-vm-op (,name (,@args) ,opcode ,@body) (let ((defs (map (fun (arg) `(def ,arg (vm-nxt-op))) args))) `(loc ((op () ,@defs (trace "OP %= %= " ',name (lst ,@args)) (def _val_ (seq ,@body)) (trace "-> %=\n" _val_) _val_)) (set [*opcodes* ',name] ,opcode) (set [*codes* ,opcode] op) (set [*oplens* ,opcode] ,(len args)) (set [*opnames* ,opcode] ',name)))) (ds def-vm-push-op (,name (,@args) ,opcode ,@body) `(def-vm-op ,name (,@args) ,opcode (vm-push (seq ,@body)))) ;;;; INSTRUCTIONS (def-vm-push-op VM-DUP () 0 [*stk* (1- (%vsp))]) (def-vm-op VM-POP () 1 (vm-pop)) (def-vm-op VM-EXIT () 2 (*exit* (vm-pop))) (def-vm-push-op VM-LIT (x) 10 x) (def-vm-op VM-VAR-FAB (x) 20 #f) (def-vm-push-op VM-VAR-GET (x) 21 (%binding-value-of x)) (def-vm-push-op VM-VAR-PUT (x) 22 (set (%binding-value-of x) (vm-pop))) (def-vm-push-op VM-VAR-GET-OR (x) 23 (%binding-value-or-of x (vm-pop))) (def-vm-op VM-MAC-FAB (x) 24 (%%%macro x (vm-pop))) (def-vm-push-op VM-LOC-GET (x) 30 [*stk* (+ (%vfp) x)]) (def-vm-op VM-LOC-PUT (x) 31 (set [*stk* (+ (%vfp) x)] (vm-pop))) (def-vm-push-op VM-BOX-GET () 40 (def box (vm-pop)) (assert (isa? box ) "NOT A BOX %=" box) (%vm-box-val box)) (def-vm-push-op VM-BOX-PUT () 41 (def val (vm-pop)) (def box (vm-pop)) (assert (isa? box ) "NOT A BOX %=" box) (set (%vm-box-val box) val)) (def-vm-op VM-BOX-FAB (x) 42 (def idx (+ (%vfp) x)) (set [*stk* idx] (%vm-box-fab [*stk* idx]))) (def-vm-push-op VM-ENV-GET (x) 50 (%vm-fun-env-elt (%vfn) (%iu x))) (def-vm-push-op VM-NXT-METS () 51 (%vnm)) (def-vm-push-op VM-FUN () 52 (%vfn)) (def-vm-push-op VM-TYP-CHK () 60 (def t (vm-pop)) (def x (vm-pop)) (if (isa? x t) x (error "TYPE CHECK FAILURE %= NOTA %t" x t))) (def-vm-op VM-JMP (n) 70 (incf (%vpc) n)) (def-vm-op VM-JMP-NOT (n) 71 (unless (vm-pop) (incf (%vpc) n))) (df vm-app-imp (n) (def args (vm-n-pop n)) (def nfn (vm-pop)) (def val #f) (def opc (%vpc)) (def ofn (%vfn)) (def onm (%vnm)) (trace "SAVING @ %=\n" (%vpc)) (dlet ((*depth* (+ *depth* 1))) (set val (app nfn args))) (set (%vfn) ofn) (set (%vnm) onm) (trace "RESUMING @ %=\n" opc) (set (%vpc) opc) val) (def-vm-push-op VM-APP (n) 80 (vm-app-imp n)) (def-vm-push-op VM-APP-JMP (n) 81 (vm-app-imp n)) ;; TODO: NATIVE INTEROPERABILITY IS A BITCH ;; (def args (vm-n-pop n)) ;; (def nfun (vm-pop)) ;; (vm-env-unlnk) ;; (dlet ((*depth* (+ *depth* 1))) ;; (app nfun args))) (def-vm-op VM-ENV-LNK (n) 90 (vm-env-lnk n)) (dm vm-ret (chk?) (def val (vm-pop)) (def typ (fun-val (%vfn))) (vm-env-unlnk) (set (%vpc) 0) (if (or (not chk?) (isa? val typ)) val (error "RETURN TYPE FAILURE"))) (def-vm-push-op VM-RET () 91 (vm-ret #f)) (def-vm-push-op VM-RET-CHK () 92 (vm-ret #t)) (def-vm-push-op VM-ESC () 100 ;; (%vm-with-exit (vm-pop)) (esc ret ((vm-pop) ret))) ;; TODO: ONLY WORKS IF EXIT FRAMES SAVE VM STATE (def-vm-push-op VM-FIN () 101 (def cleanup (vm-pop)) (def main (vm-pop)) (dlet ((*depth* (+ *depth* 1))) (fin (main) (cleanup)))) (def-vm-push-op VM-TRY () 102 (def thunk (vm-pop)) (def handler (vm-pop)) (def test (vm-pop)) (def info (vm-pop)) (def type (vm-pop)) (%with-monitor type info test handler thunk)) (def-vm-push-op VM-SIG-FAB (arity nary?) 110 (def value (vm-pop)) (def specs (vm-n-pop arity)) (new sig-specs specs sig-nary? (= nary? 1) sig-arity arity sig-val value sig-unification-vars '())) (df %vm-gen-fab (sig name names => ) (def i (new fun-info-name name fun-info-names names)) (def g (new fun-sig sig fun-info i fun-mets '() fun-cache #f)) (set (%gen-code g) (%met-code %dispatch)) g) (def-vm-push-op VM-GEN-FAB () 111 (def names (vm-pop)) (def name (vm-pop)) (def sig (vm-pop)) (%vm-gen-fab sig name names)) (df %vm-met (args|...) (def fn (%fun-reg)) (set (%vfn) fn) (set (%vnm) (%next-methods)) (when (fun-nary? fn) (vm-push [args (fun-arity fn) *])) (rep loop ((i (1- (fun-arity fn)))) (unless (< i 0) (vm-push [args i]) (loop (1- i)))) (vm-run (%vm-fun-env-elt fn (%iu 0))) (def res (vm-pop)) (decf (%vsp) (+ (fun-arity fn) (if (fun-nary? fn) 1 0))) res) (df %vm-met-fab (sig nam nams dyn? => ) (%fab-met (%met-code %vm-met) sig nam nams #f #f)) (df %vm-met-ini (met env => ) (set (%met-env met) (%vm-fun-env-fab (%iu (len env)))) (for ((i (from 0)) (e env)) (set (%vm-fun-env-elt met (%iu i)) e)) met) (df %vm-met-fab+ini (sig env nam nams => ) (def met (%vm-met-fab sig nam nams #f)) (%vm-met-ini met env)) (def-vm-push-op VM-FUN-FAB-DYN () 112 (def nams (vm-pop)) (def nam (vm-pop)) (def sig (vm-pop)) (%vm-met-fab sig nam nams #t)) (def-vm-push-op VM-FUN-FAB () 113 (def nams (vm-pop)) (def nam (vm-pop)) (def sig (vm-pop)) (%vm-met-fab sig nam nams #f)) (def-vm-op VM-FUN-INI (n l) 114 (def env (pair (+ l (%vpc)) (vm-n-pop n))) (def met (vm-pop)) (%vm-met-ini met env)) (def-vm-push-op VM-FUN-FAB+INI (n l) 115 (def env (pair (+ l (%vpc)) (vm-n-pop n))) (def nams (vm-pop)) (def nam (vm-pop)) (def sig (vm-pop)) (%vm-met-fab+ini sig env nam nams)) ;;;; LINKING/LOADING (dm vm-get-var (var|) (def e (unchecked-runtime-environment [var 0])) (find-binding [var 1] e)) (dm vm-get-vars (vars| => ) (as (map vm-get-var vars))) (dm vm-gen-op (op => ) [*opcodes* op]) (dm vm-patch (code| labels| patches| => ) (def ops (as code)) (def labs (fab 0)) (for ((label labels)) (set [labs [label 0]] [label 1])) (for ((patch patches)) (set [ops [patch 1]] (- (- [labs [patch 0]] [patch 1]) 1))) ops) (dm vm-label? (op) (isa? op )) (dm vm-link (code| lits| vars| => ) (def ops (fab 0)) (rep scan ((res '()) (ops code) (labels '()) (patches '()) (pc 0)) (if (nul? ops) (vm-patch (rev! res) labels patches) (let ((op (head ops))) (if (vm-label? op) (scan res (tail ops) (pair (lst op pc) labels) patches pc) (let ((ins (head op))) (case ins ;; TODO: SHOULD BE PART OF OP DEFN (('vm-var-get 'vm-var-put 'vm-var-fab 'vm-var-get-or 'vm-mac-fab) (scan (pair [vars [op 1]] (pair (vm-gen-op ins) res)) (tail ops) labels patches (+ pc 2))) (('vm-lit) (scan (pair [lits [op 1]] (pair (vm-gen-op ins) res)) (tail ops) labels patches (+ pc 2))) (#t (rep loop ((res (pair (vm-gen-op ins) res)) (args (tail op)) (pc (+ pc 1)) (patches patches)) (if (nul? args) (scan res (tail ops) labels patches pc) (let ((arg (head args))) (loop (pair arg res) (tail args) (+ pc 1) (if (vm-label? arg) (pair (lst arg pc) patches) patches))))))))))))) (dm vm-load (x) (def lits (as [x 0])) (def vars (vm-get-vars [x 1])) (def code [x 2]) (def ops (vm-link code lits vars)) ops) (dv vm-init? #f) (dm vm-init () (set (len *code*) 0) (add! *code* (vm-gen-op 'vm-exit)) (set (%vpc) 1) (set (%vsp) 0) (set (%vfp) 0) ) (dm vm-install (ops) (unless vm-init? (vm-init) (set vm-init? #t)) (def pc (len *code*)) (for ((op ops)) (add! *code* op)) (add! *code* (vm-gen-op 'vm-exit)) pc) ;;;; RUNNING (dm vm-run (pc|) (def opc (%vpc)) (set (%vpc) pc) (rep run () (unless (= (%vpc) $vm-ret) ;; value on top of stack (trace "%s%d: " (repeat " " *depth*) (%vpc)) (let ((opcode (vm-nxt-op)) (op [*codes* opcode])) (op) (run)))) (set (%vpc) opc)) (ddv *vm-running?* #f) (dm do-vm-top-run (pc| => ) (set (%vfn) #f) (set (%vnm) #f) (set (%vsp) 0) (set (%vfp) 0) (dlet ((*vm-running?* #t)) (esc exit (set *exit* exit) (vm-run pc)))) (dm vm-top-run (pc| => ) (if *vm-running?* (vm-run pc) (do-vm-top-run pc))) (dm vm-evaluate (exp env) (vm-top-run (vm-install (vm-load (asm-exp-in exp env))))) (dm vm-eval (exp) (vm-top-run (vm-install (vm-load (asm-exp exp))))) ;;;; DEBUGGING (dm vm-disasm (pc| code|) (rep disasm ((res '()) (pc pc)) (if (< pc (len code)) (let ((op [code pc]) (name [*opnames* op]) (len [*oplens* op])) (trace "%d: %=\n" pc name) (rep garg ((args (lst name)) (pc (+ pc 1)) (i 0)) (if (= i len) (disasm (pair (rev! args) res) pc) (garg (pair [code pc] args) (+ pc 1) (+ i 1))))) (rev! res)))) (dm recurring-write (port| x| d| recur|) (msg port "%s:%s" (binding-module-name x) (binding-name x))) (dm recurring-write (port| x| d| recur|) (puts port "")) (dg asm-exp (x)) (dg asm-ast (x)) (dg out-code (o c)) (dm ppc (c) (out-code out c)) (export asm-exp asm-exp-in out-code vm-install vm-load vm-run vm-top-run) goo-0.155/src/goo/0040755000175000017500000000000007756746026013312 5ustar vomjomvomjomgoo-0.155/src/goo/CVS/0040755000175000017500000000000007756746026013745 5ustar vomjomvomjomgoo-0.155/src/goo/CVS/Root0100644000175000017500000000003307756746025014603 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/goo/CVS/Repository0100644000175000017500000000001407756746025016036 0ustar vomjomvomjomgoo/src/goo goo-0.155/src/goo/CVS/Entries0100644000175000017500000000222207756746026015274 0ustar vomjomvomjom/%math.c/1.2/Thu Sep 19 00:28:42 2002// /%system.c/1.5/Wed Nov 19 19:50:49 2003// /any.goo/1.1/Thu Sep 19 00:28:43 2002// /app.goo/1.8/Sun Oct 6 20:42:34 2002// /bignum.goo/1.1/Wed Nov 19 19:50:49 2003// /boot.goo/1.65/Mon Oct 20 22:45:12 2003// /chr.goo/1.1/Thu Sep 19 00:28:43 2002// /class.goo/1.4/Tue Jan 14 22:10:06 2003// /cols.goo/1.9/Mon Mar 25 03:37:45 2002// /conditions.goo/1.5/Thu Sep 19 00:28:43 2002// /eval.goo/1.9/Fri Aug 16 22:08:58 2002// /fun.goo/1.4/Tue Jan 14 22:10:06 2003// /functional.goo/1.2/Thu Sep 19 00:28:43 2002// /late-macros.goo/1.4/Tue Jan 14 22:10:06 2003// /loc.goo/1.2/Mon Oct 20 22:45:12 2003// /log.goo/1.1/Thu Sep 19 00:28:43 2002// /macros.goo/1.33/Tue Jan 14 22:10:06 2003// /mag.goo/1.7/Mon Sep 30 21:10:49 2002// /math.goo/1.24/Tue Jan 14 22:10:06 2003// /packer.goo/1.15/Tue Jan 14 22:10:06 2003// /random.goo/1.9/Sat Sep 28 03:45:51 2002// /runtime.goo/1.56/Wed Sep 11 21:32:54 2002// /sym.goo/1.2/Thu Sep 19 00:28:43 2002// /system.goo/1.19/Thu Sep 19 00:28:43 2002// /types.goo/1.14/Thu Sep 19 00:28:43 2002// /user.goo/1.4/Mon Oct 20 22:45:12 2003// /x.goo/1.3/Mon Oct 20 22:59:45 2003// D/bignum//// D/cols//// D/io//// goo-0.155/src/goo/%math.c0100644000175000017500000000543507542215072014441 0ustar vomjomvomjom/* Copyright 2002, Jonathan Bachrach. See file TERMS. */ #include /* ARITHMETIC */ INLINE P YgooSmathYPfE(P x, P y) { INTFLO ix, iy; ix.i = (PINT)x; iy.i = (PINT)y; return (P)(PLOG)(ix.f == iy.f); } INLINE P YgooSmathYPfL(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; return (P)(PLOG)(ix.f < iy.f); } INLINE P YgooSmathYPfA(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f + iy.f; return (P)iz.i; } INLINE P YgooSmathYPf_(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f - iy.f; return (P)iz.i; } INLINE P YgooSmathYPfT(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f * iy.f; return (P)iz.i; } INLINE P YgooSmathYPfS(P x, P y) { INTFLO ix, iy, iz; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = ix.f / iy.f; return (P)iz.i; } INLINE P YgooSmathYPfi2f(P x) { INTFLO ix; ix.f = (float)(PINT)x; return (P)ix.i; } INLINE P YgooSmathYPft(P x) { PINT z; INTFLO ix; ix.i = (PINT)x; z = (PINT)ix.f; return (P)z; } INLINE P YgooSmathYPfpow(P x, P n) { INTFLO iz, ix, in; ix.i = (PINT)x; in.i = (PINT)n; iz.f = (float)pow((double)ix.f, (double)in.f); return (P)iz.i; } INLINE P YgooSmathYPflog(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)log((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfsqrt(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)sqrt((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfsin(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)sin((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfcos(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)cos((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPftan(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)tan((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfsinh(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)sinh((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfcosh(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)cosh((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPftanh(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)tanh((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfasin(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)asin((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfacos(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)acos((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfatan(P x) { INTFLO iz, ix; ix.i = (PINT)x; iz.f = (float)atan((double)ix.f); return (P)iz.i; } INLINE P YgooSmathYPfatan2(P y, P x) { INTFLO iz, ix, iy; ix.i = (PINT)x; iy.i = (PINT)y; iz.f = (float)atan2((double)iy.f, (double)ix.f); return (P)iz.i; } INLINE P FLOINT (PFLO x) { INTFLO ix; ix.f = x; return (P)ix.i; } INLINE P YgooSmathYPflo_bits (P x) { return x; } goo-0.155/src/goo/%system.c0100644000175000017500000001454307756744631015053 0ustar vomjomvomjom/* Copyright 2002, Jonathan Bachrach. See file TERMS. */ #include /* TODO - Need Windows versions of the following functions. */ #include #if !defined(_MSC_VER) #include #endif #include extern P Yfab_sym; extern P Yerror; static void unix_error (char *command, char *filename) { XXCALL4(1, Yerror, YPsb("%s: %s failed: %s.\n"), YPsb(command), YPsb(filename), YPsb(strerror(errno))); } /* TODO - Resolution is crummy because we use single floats. */ #define GOO_EPOCH (978307200) /* January 01, 2001 00:00:00 GMT */ P YgooSsystemYPfile_mtime (P name) { struct stat buf; int res; INTFLO flo; res = stat((PSTR) name, &buf); if (res == 0) { flo.f = (PFLO) buf.st_mtime - GOO_EPOCH; } else { unix_error("stat", name); /* Not executed. */ flo.f = 0.0; } return (P) flo.i; } P YgooSsystemYPfile_existsQ (P name) { struct stat buf; int res; res = stat((PSTR) name, &buf); if (res == 0) return YPtrue; else if (errno == ENOENT) return YPfalse; else unix_error("stat", name); /* Not executed. */ return YPfalse; } #if defined(_MSC_VER) #define S_ISREG(x) ((x) & _S_IFREG) #define S_ISDIR(x) ((x) & _S_IFDIR) #endif P YgooSsystemYPfile_type (P name) { struct stat buf; int res; res = stat((PSTR) name, &buf); if (res == 0) { if (S_ISREG(buf.st_mode)) return XXCALL1(1, Yfab_sym, YPsb("file")); else if (S_ISDIR(buf.st_mode)) return XXCALL1(1, Yfab_sym, YPsb("directory")); else return XXCALL1(1, Yfab_sym, YPsb("unknown")); } else { unix_error("stat", name); /* Not executed. */ return XXCALL1(1, Yfab_sym, YPsb("unknown")); } } /* mkdir is available on Linux and GNU systems. Other systems may not ** bother to supply it! I think you can find N different semi-portable ** implementations in the GNU tar source code. Yes, some Unix systems ** really require you to invoke the 'mkdir' *program* to create a ** directory. */ P YgooSsystemYPcreate_directory (P name) { int res; /* Rely on umask to set privileges. */ #if defined(_MSC_VER) res = mkdir(name); #else res = mkdir(name, S_IRWXU|S_IRWXG|S_IRWXO); #endif if (res != 0) unix_error("mkdir", name); return YPfalse; } /* OS */ P YgooSsystemYPos_name () { #if defined(_WIN32) || defined(WIN32) || defined(WINNT) return (P)"win32"; #else #ifdef linux return (P)"linux"; #else return (P)"unix"; #endif #endif } P YgooSsystemYPos_val (P name) { PSTR value = (PSTR)getenv((char *)name); if (value == NULL) return (P)""; else return (P)value; } P YgooSsystemYPos_val_setter (P value, P name) { #if defined(_MSC_VER) static char buffer[1024]; sprintf(buffer, "%s=%s", (PSTR)name, (PSTR)value); putenv(buffer); return (P)value; #else setenv((PSTR)name, (PSTR)value, 1); return (P)value; #endif } #if !defined(_MSC_VER) #include typedef P (*PLD)(); extern P YgooSsystemYTgoo_rootT; #endif //#include "libtcc.h" static int split_args (char *s, int i, char** a) { for (;;) { // find beginning of arg for (;;) { if (!(*s)) return i; if (!isspace(*s)) break; *s++ = 0; // terminate arg } a[i++] = s; // find end of arg for (;;) { if (!(*s)) return i; if (isspace(*s)) break; s++; } } } P YgooSsystemYPcompile (P cfile, P sofile, P incs, P libs) { #if defined(_MSC_VER) char* command = (char*)allocate(1024); strcpy(command, "cl /O2 /D MSVC_THREAD /D WITH_THREADS /D BUILD_DLL"); strcat(command, " /I../c /I."); strcat(command, " /Fe"); strcat(command, (char*)sofile); strcat(command, " "); strcat(command, (char*)cfile); strcat(command, " dllentry.c /LD /link ./gc.lib ./goovc.lib kernel32.lib"); printf("Executing %s\n", command); system(command); return YPtrue; #else char rbuf[4096]; char lbuf[4096]; char ibuf[4096]; int i, j; int pid; char *bv[] = {"cc", "-shared", "-g", "-O", "-fPIC", rbuf, "-o", sofile, cfile, NULL}; char *v[100], *lptr; sprintf(rbuf, "-I%s/lib", YPsu(YgooSsystemYTgoo_rootT)); // printf("INCS %s\n", incs); // printf("LIBS %s\n", libs); strcpy(lbuf, libs); strcpy(ibuf, incs); for (i = 0; bv[i] != NULL; i++) v[i] = bv[i]; j = i; i = split_args(ibuf, i, v); i = split_args(lbuf, i, v); // for (; j < i; j++) // printf("ARG[%d] = %s\n", j, v[j]); v[i++] = NULL; // printf("EXECUTING %s %s %d\n", ibuf, v[i-2], i); pid = fork(); if (pid == 0) // child execvp("cc", v); else if (pid < 0) XXCALL1(1, Yerror, YPsb("Cannot exec compiler.")); else { int status; // parent do { if (waitpid(pid, &status, 0) == -1) { if (errno != EINTR) return YPfalse; } else return YPtrue; } while(1); return YPfalse; } /* TCC compiler code TCCState *s; char buf[5000]; void (*func)(); s = tcc_new(); printf("Got to 1\n"); if(!s) return YPfalse; tcc_set_output_type(s, TCC_OUTPUT_MEMORY); printf("Got to 2\n"); snprintf(buf, sizeof(buf)-1, "%s/lib", YPsu(YgooSsystemYTgoo_rootT)); tcc_add_include_path(s, buf); printf("Got to 3\n"); tcc_add_file(s, cfile); printf("Got to 4\n"); tcc_relocate(s); printf("Got to 5\n"); func = tcc_get_symbol(s, "load_module_dl"); if(!func) return YPfalse; printf("Got to 6\n"); func(); printf("Got to 7\n"); tcc_delete(s); printf("Got to 8\n"); return YPtrue; */ #endif } #if defined(_MSC_VER) #undef PINT #include #undef PINT #define PINT long #endif P YgooSsystemYPload(P name) { #if defined(_MSC_VER) HANDLE module = 0; printf("Loading %s\n", (char*)name); module = LoadLibrary(name); if(module == NULL) printf("Failed to load library %s\n", (char*)name); else { FARPROC load = GetProcAddress(module, "LoadModuleDl"); return (P)load(); } return YPfalse; #else void* mod; PLD load; P res; // printf("LOADING %s\n", name); mod = dlopen(name, RTLD_NOW | RTLD_GLOBAL); if (mod == NULL) { printf("FAILED TO LOAD %s BECAUSE %s\n", name, dlerror()); return YPfalse; } else { load = (PLD)dlsym(mod, "load_module_dl"); res = load(); // dlclose(mod); } return res; #endif } /* P YevalSg2cYPcompile (P name) { return YgooSsystemYPcompile(name); } P YevalSg2cYPload(P name) { return YgooSsystemYPload(name); } */ extern time_t time(time_t *t); P YgooSsystemYPtime () { time_t tv; tv = time(NULL); return((P)(tv - GOO_EPOCH)); } goo-0.155/src/goo/any.goo0100644000175000017500000000075307542215073014573 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/mag) (use goo/types) (exported (df address-of ( => )) (dg to-str ( => )) (dg as ( => )) ) (df address-of (x => ) (%ib x)) ;; treat pointer as integer (dm to-str (x| => ) (cat "{ obj(" (to-str (class-name (class-of x))) ") }")) (dm as (type x => ) (if (isa? x type) x (as-error type x))) goo-0.155/src/goo/app.goo0100644000175000017500000000232507550120072014552 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/macros) (use goo/cols/col) (df napp (proc| nexts args|...) (def ilen (@+ (@olen args) -1)) (def lelt (@oelt args ilen)) (def lelt-opts? (@== (%class-of lelt) )) (def tlen (@+ ilen (if lelt-opts? (@olen lelt) (len lelt)))) (def stackspace (%lb (%allocate-stack (%i+ (%raw 2) (%iu tlen))))) (def frameend (%sp-reg)) (def argtop (@+ tlen -1)) (rep loop1 ((i 0)) (when (@< i ilen) (set (%loc-off stackspace (%i- (%iu argtop) (%iu i))) (@oelt args i)) (loop1 (@+ i 1)))) (if lelt-opts? (rep loop2 ((j 0) (i ilen)) (unless (@== i tlen) (set (%loc-off stackspace (%i- (%iu argtop) (%iu i))) (@oelt lelt j)) (loop2 (@+ j 1) (@+ i 1)))) (rep loop2 ((s (enum lelt)) (i ilen)) (unless (fin? s) (set (%loc-off stackspace (%i- (%iu argtop) (%iu i))) (now s)) (loop2 (nxt s) (@+ i 1))))) (set (%loc-off stackspace (%iu tlen)) (%iu tlen)) (set (%loc-off stackspace (%i+ (%raw 1) (%iu tlen))) proc) (set (%sp-reg) frameend) (%check-call-types) (%raw-call proc nexts)) goo-0.155/src/goo/bignum.goo0100644000175000017500000002106707756744631015304 0ustar vomjomvomjom(use goo) (use goo/boot) (use/library gmp) #{ #include #include static mp_limb_t dummy_limb; static inline PINT iu (P x) { return (PINT)IU(x); } static inline P ib (PINT x) { return (P)tag((P)x, int_tag); } static inline mpz_init_zero(mpz_ptr z) { z->_mp_size = 0; z->_mp_alloc = 0; z->_mp_d = &dummy_limb; } // workaround for the lack of long long handling functions in the mpz library void mpz_init_set_si64(mpz_ptr result, long long src) { int negp = src < 0; if (negp) src = -src; mpz_init_set_si(result, src>>32); mpz_mul_2exp(result, result, 32); mpz_add_ui(result, result, (long)src); if (negp) mpz_neg(result, result); } // checks if the mpz will fit in a GOO fixnum (long - 2 tag bits) static inline int mpz_fits_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t data = z->_mp_d[0]; return (size == 0 || (size == 1 && data <= MAX_GOO_FIXNUM) || (size == -1 && data <= - (mp_limb_t) MIN_GOO_FIXNUM)); } static inline int rawint_fits_fixnum(PINT x) { return (x <= MAX_GOO_FIXNUM && x >= MIN_GOO_FIXNUM); } // returns a GOO integer -- assumes you already checked that it fits static inline P mpz_to_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t low_limb = z->_mp_d[0]; if (size > 0) return ib((PINT)low_limb); else if (size < 0) return ib((PINT)-(long)low_limb); else return ib(0); } static P mpz_to_bignum(mpz_ptr p) { P* obj = (P*)allocate(sizeof(P)+sizeof(__mpz_struct)); mpz_ptr newp = (mpz_ptr)(obj+1); *newp = *p; YPobject_class_setter(YLbignumG, obj); return obj; } static inline mpz_ptr bignum_to_mpz(P obj) { return (mpz_ptr)(((P*)obj)+1); } // this should only be used internally, as most functions assume // bignums cannot be in the range of fixnums static inline P fixnum_to_bignum (P num) { mpz_t mpz; mpz_init_set_si(mpz, (long)iu(num)); return mpz_to_bignum(mpz); } static inline P rawint_to_goo (PINT num) { if(rawint_fits_fixnum(num)) return YPib((P)num); else { mpz_t mpz; mpz_init_set_si(mpz, num); return mpz_to_bignum(mpz); } } static inline P mpz_to_goo(mpz_ptr result) { if(mpz_fits_fixnum(result)) return mpz_to_fixnum(result); else return mpz_to_bignum(result); } static P rawint64_to_goo (long long num) { if(num > LONG_MAX || num < LONG_MIN) { // if it has an upper 32 bits mpz_t mpz; mpz_init_set_si64(mpz, num); return mpz_to_bignum(mpz); } return rawint_to_goo((PINT)num); } static void *gmp_realloc(void *ptr, size_t old, size_t new) { if(ptr == &dummy_limb) return GC_realloc(NULL, new); else return GC_realloc(ptr, new); } static void do_nothing_free(void *ptr, size_t size) { } P gmp_initialize () { mp_set_memory_functions(GC_malloc, gmp_realloc, do_nothing_free); } } (df gmp-initialize () #{ gmp_initialize(); }) (gmp-initialize) (ds with-returning (,res ,@body) `(let ((,res #f)) ,@body ,res))) ;; (ds def-b-b (,name ,c-fun) ;; `(dm (,name inline) (x| y| => ) ;; (with-returning res ;; #{ mpz_t z; ;; mpz_init_zero(z); ;; $,c-fun(z, bignum_to_mpz($x), bignum_to_mpz($y)); ;; $res = mpz_to_goo(z); }))) (ds with-gmp-returning (,z ,body) (let ((res (gensym)) (zc (to-str z))) `(with-returning ,res #{ mpz_t $,zc; mpz_init_zero(z); $,body $,res = mpz_to_goo($,zc); }))) (ds def-b-b (,name ,c-fun) `(dm (,name inline) (x| y| => ) (with-gmp-returning z #{ $,c-fun(z, bignum_to_mpz($x), bignum_to_mpz($y)); }))) (ds def-b-i (,name ,c-fun) `(dm (,name inline) (x| y| => ) (with-gmp-returning z #{ $,c-fun(z, bignum_to_mpz($x), iu($y)); }))) (ds def-i-b (,name ,c-fun) `(dm (,name inline) (x| y| => ) (with-gmp-returning z #{ $,c-fun(z, iu($x), bignum_to_mpz($y)); }))) (ds def-b (,name ,c-fun) `(dm (,name inline) (x| => ) (with-gmp-returning z #{ $,c-fun(z, bignum_to_mpz($x)); }))) (def-b-b + "mpz_add") (dm (+ inline) (x| y| => ) (with-gmp-returning z #{ if ($y >= 0) mpz_add_ui(z, bignum_to_mpz($x), iu($y)); else mpz_sub_ui(z, bignum_to_mpz($x), -iu($y)); })) (dm (+ inline) (x| y| => ) (+ y x)) (def-b-b - "mpz_sub") (dm (- inline) (x| y| => ) (with-gmp-returning z #{ if ($y >= 0) mpz_sub_ui(z, bignum_to_mpz($x), iu($y)); else mpz_add_ui(z, bignum_to_mpz($x), -iu($y)); })) (dm (- inline) (x| y| => ) (neg (- y x))) (def-b-b * "mpz_mul") (def-b-i * "mpz_mul_si") (dm (* inline) (x| y| => ) (* y x)) (def-b neg "mpz_neg") (def-b-i >> "mpz_fdiv_q_2exp") (def-b-i << "mpz_mul_2exp") ;;does >>> even make sense? ;;(dm (>>> inline) (x| a| => ) ;; (%ib (%i>>> (%iu x) (%iu a)))) ;; can use this shortcut because bignums always have greater ;; magnitude than fixnums, so y > 0 => x < y (dm (< inline) (x| y| => ) (= #ei{ mpz_sgn(bignum_to_mpz($y)) } 1)) (dm (< inline) (x| y| => ) (= #ei{ mpz_sgn(bignum_to_mpz($x)) } -1)) (dm (< inline) (x| y| => ) (= #ei{ mpz_cmp(bignum_to_mpz($x), bignum_to_mpz($y)) } -1)) (dm (== inline) (x| y| => ) (= #ei{ mpz_cmp(bignum_to_mpz($x), bignum_to_mpz($y)) } 0)) (df (to-bignum inline) (x| => ) #eg{ fixnum_to_bignum($x) }) (ds def-log-ops (,name ,c-fun) `(seq (def-b-b ,name ,c-fun) (dm (,name inline) (x| y| => ) (,name (to-bignum x) y)) (dm (,name inline) (x| y| => ) (,name x (to-bignum y))))) (def-log-ops #| "mpz_ior") (def-log-ops ^ "mpz_xor") (def-log-ops & "mpz_and") (def-b ~ "mpz_com") (dm (bit? inline) (x| y| => ) #eb{ mpz_tstbit(bignum_to_mpz($x), iu($y)) }) (dm (even? inline) (x| => ) (not (odd? x))) (dm (odd? inline) (x| => ) #eb{ mpz_odd_p(bignum_to_mpz($x)) }) ;;(dm (/ inline) (x| y| => ) ;; (arithmetic-error "No int divide, consider trunc/")) (dm trunc/ (x| y| => (tup quo| rem|)) (let ((q 0) (r 0)) #{ mpz_t q, r; mpz_init_zero(q); mpz_init_zero(r); mpz_tdiv_qr(q, r, bignum_to_mpz($x), bignum_to_mpz($y)); $q = mpz_to_goo(q); $r = mpz_to_goo(r); } (tup q r))) (dm trunc/ (x| y| => (tup quo| rem|)) (let ((q 0) (r 0)) #{ mpz_t q; long r; PINT y = iu($y); PINT d = (y > 0) ? y : -y; mpz_ptr xm = bignum_to_mpz($x); mpz_init_zero(q); r = mpz_tdiv_q_ui(q, xm, d); if(mpz_sgn(xm) < 0) r = -r; if(y < 0) mpz_neg(q,q); $q = mpz_to_goo(q); $r = YPib((P)r); } (tup q r))) (dm trunc/ (x| y| => (tup quo| rem|)) (tup 0 x)) ;; (dm mod (x| y| => ) (def-b-i pow-pos "mpz_pow_ui") (dm pow (x| n| => ) (if (< n 0) (/ 1 (pow-pos x (neg n))) (pow-pos x n))) ;; these override the methods in math.goo (dm (+ inline) (x| y| => ) #eg{ rawint_to_goo((PINT)$(%i+ (%iu x) (%iu y))) }) (dm (- inline) (x| y| => ) #eg{ rawint_to_goo((PINT)$(%i- (%iu x) (%iu y))) }) ;; This takes advantage of GCC being smart and realizing that this ;; 64bit multiplication is really only to a 32bit multiplication ;; with a 64bit output, and using a single instruction to do so. ;; (hopefully it will do so reliably) (dm (* inline) (x| y| => ) #eg{ rawint64_to_goo(((long long)YPiu($x))*((long long)YPiu($y))) }) ;; TODO: check for overflow first then try bignum version (dm pow (x| n| => ) (pow (to-bignum x) n)) ;; TODO: check for overflow first then try bignum version (dm (<< inline) (x| a| => ) (<< (to-bignum x) a)) (dm as (t|(t= ) x|) (with-returning res #{ INTFLO iz; iz.f = mpz_get_d(bignum_to_mpz($x)); $res = (P)YPfb((P)iz.i); })) (dm trunc/ (x| y| => (tup z| rem|)) (def divided (/ x y)) (def result 0) #{ INTFLO iz; iz.i = $(%fu x); if (rawint_fits_fixnum((PINT)iz.f)) $result = ib((PINT)iz.f); else { mpz_t z; mpz_init_set_d(z, iz.f); $result = mpz_to_goo(z); } } (tup result (* y (- divided (as result))))) (df mpz_print (num) #{ mpz_out_str(stdout, 10, bignum_to_mpz($num)); }) (export mpz_print) goo-0.155/src/goo/boot.goo0100644000175000017500000011633007745062570014755 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;; ;;;; GOALS ;;;; ;;;; SIMPLEST POSSIBLE ;;;; DYNAMIC ORDER FORM BY FORM ;;;; MINIMIZE OBJECT SYSTEM BOOT OBFUSCATION ;;;; ;;; Temporary, compile-time-only macros. These are used by this file only-- ;;; we never export them. The real definitions live in macros.goo. (dss unless (,test ,@body) `(if (@not ,test) (seq ,@body))) (dss when (,test ,@body) `(if ,test (seq ,@body))) (dss or (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(let ((tmp ,x)) (if tmp tmp (or ,@rest)))) #f)) (dss and (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(if ,x (and ,@rest) #f)) #t)) ;; Define the primitives whose code is in prt.c (dss %define-primitives () `(seq ,@(map (fun (name) `(dl ,name)) primitive-names))) (ct (dv primitive-names '(%eq? %bb %bu %i= %i< %i+ %i- %i* %im %ir %it/ %iv %i^ %i& %i! %i? %i<< %i>> %i<<< %i>>> %eof-object %eof-object? %c= %c< %object-class %object-class-setter %raw-alloc %object-of %clone %prop-elt %prop-elt-setter %prop-dat-at %elt %elt-setter %slen %selt %selt-setter %%sfab %su %sb %rlen %relt %relt-setter %%rfab %ru %tlen %telt %telt-setter %%tfab %tu %fab-code-refs %code-ref %app-filename %app-args %loc-val %loc-val-setter %invoke-debugger %break %binding-name %fun-reg %trace-on %trace-off %%apply %%mep-apply %next-methods %fapply %do-stack-frames %unexec %build-runtime-modules %process-module %loc-off %loc-off-setter %raw-call %raw-met-call %check-call-types %def-regs %set-regs %sp-reg %sp-reg-setter %sp-elt %stack-reg %max-stack-len %stack-check-reg? %stack-check-reg?-setter %fp-reg %fp-reg-setter %unlink-stack %next-methods-reg-setter %new %@class-of %@subclass? %fab-dyn-var %dyn-var-val %dyn-var-val-setter %vsp %vsp-setter %vfp %vfp-setter %vfn %vfn-setter %vnm %vnm-setter %vpc %vpc-setter %vm-box-fab %vm-box-val %vm-box-val-setter %vm-fun-env-fab %vm-fun-env-elt %vm-fun-env-elt-setter %vm-with-exit %vm-with-cleanup ))) (%define-primitives) ;; (dss poo () (error "POO")) (poo) ;; TRIGGER A COMPILER BLOWOUT ;; (ct (dv cat-sym make-sym)) ;; Early definitions, so we at least know false != true (dv %false (%raw 0)) (dv %true (%raw 1)) (dv %*used-symbols-too-early* (%raw 0)) ;;; ;;; BOOT OBJECTS ;;; ;; ALL PROTO'S NEEDED FOR BOOT ARE DEFINED HERE ;; THEY ARE DEFINED AS THEY WOULD BE OUTSIDE BOOT (ct (df %boot-defs () '((dc ()) (dv nul (new )) (dv nul-prop (new )) (dc ()) (dv %true (new )) (dv %false (new )) (dc ()) (dp! box-value ( => )) (dc ()) (dc ()) ;; (dc <%chr> ()) (dc ()) (dp src-loc-line ( => )) (dp src-loc-file ( => )) (dc ()) (dc ()) (dc ()) (dc ()) ;; (dc <%int> ()) (dc ()) ;; (dc <%flo> ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ()) (dc ( )) (dc ( )) (dc ()) (dv nil (new )) (dp! head ( => ) nil) (dp! tail ( => ) nil) (dc ()) (dc ( )) (dc ( )) (dc ()) (dp sym-name ( => )) (dc ()) (dc ()) (dp! class-prop-len ( => ) 0) (dp class-name ( => )) (dp! class-parents ( => ) nil) (dp! class-direct-props ( => ) nil) (dp! class-ancestors ( => ) nil) (dp! class-props ( => ) nil) (dp! class-children ( => ) nil) ;; ULTIMATELY NEED GENS TO BE FLUSHED DURING CLASS REDEF ;; KEEP BOTH GENS/METS CAUSE NO MET->GEN MAP ;; WANT TO PRUNE OUT UNNECESSARY GENS BASED ON ACTUAL METS (dp! class-gens ( => ) nil) (dp! class-mets ( => ) nil) (dp! class-forward ( => ) #f) (dp class-id ( => ) -1) (dp class-row ( => ) nul) (dc ()) (dp type-object ( => )) (dc ()) (dp type-class ( => )) (dc ()) (dp union-elts ( => ) nil) (dc ()) (dp product-elts ( => )) (dc ()) (dp prop-owner ( => )) (dp prop-getter ( => )) (dp prop-setter ( => )) ;; (T? ) (dp prop-type ( => )) (dp prop-init ( => ) (fun (x) nul-prop)) (dc ()) (dp gen-cache-missable? ( => ) #f) (dp gen-cache-arg-pos ( => ) 0) (dp gen-cache-singletons ( => ) nil) (dp gen-cache-classes ( => ) nil) (dc ()) (dp! sig-specs ( => ) nil) (dp! sig-nary? ( => ) %false) (dp! sig-arity ( => ) 0) (dp! sig-val ( => ) ) (dp! sig-unification-vars ( => ) nil) (dc ()) (dp! fun-info-name ( => ) %false) (dp! fun-info-names ( => ) nil) (dp! fun-info-src-loc ( => ) %false) (dp! fun-info-src ( => ) %false) (dp! fun-info-count ( => ) 0) (dp! fun-info-inlineable? ( => ) %false) (dc ()) (dp fun-code ( => ) %false) (dp! fun-sig ( => )) (dp! fun-info ( => ) %false) (dc ()) (dp fun-env ( => ) %false) (dc ()) (dp! fun-mets ( => ) nil) (dp fun-cache ( => ) %false) (dc ( )) (dp opts-location ( => ) 0) (dp opts-count ( => ) 0) (dc ()) (dp opts-tup-storage ( => ) nul) ))) ;; RETURN CLASS DEFS FROM BOOT DEFS (ct (df %map-boot-classes (f) (rep loop ((res '()) (defs (%boot-defs))) (if (nul? defs) (rev! res) (loop (mif ((dc ,name (,@parents)) (head defs)) (pair (f name parents) res) res) (tail defs)))))) ;; RETURN OBJECTS DEFS FROM BOOT DEFS (ct (df %map-boot-objects (f) (rep loop ((res '()) (defs (%boot-defs))) (if (nul? defs) (rev! res) (loop (mif ((dv ,name (new ,class)) (head defs)) (pair (f name class) res) res) (tail defs)))))) ;; RETURN PROP DEFS FROM BOOT DEFS (ct (df %map-boot-props (f) (loc ((get-init (maybe-init) (if (nul? maybe-init) 'nul-prop (head maybe-init)))) (rep loop ((res '()) (defs (%boot-defs))) (if (nul? defs) (rev! res) (loop (match (head defs) ((dp ,name (,owner => ,type) ,@maybe-init) (pair (f owner name #f type (get-init maybe-init)) res)) ((dp! ,name (,owner => ,type) ,@maybe-init) (pair (f owner name #t type (get-init maybe-init)) res)) (#t res)) (tail defs))))))) ;;; ;;; 1. CONSTRUCTION MACHINERY FOR BUILDING EARLY OBJECTS ;;; (dl %allocate-stack (num) (%def-regs) (def ret (%sp-reg)) (set (%sp-reg) (%i+ (%sp-reg) (%i* (%raw 4) num))) ret) ;; STRUCTURES ARE OBJECT TEMPLATES WITH ;; PRIMITIVES FOR ACCESSORS AND ;; A PRIMITIVE REQUIRED ONLY CONSTRUCTOR ;; DEFINE ACCESSORS NAMED PROP-NAMES AT INCREASING OFFSETS (dss %define-structure-accessors (,@prop-names) (loc ((getter (name offset) `(dl (,(cat-sym "%" name) inline) (x) (%prop-elt x (%raw ,offset)))) (setter (name offset) `(dl ,(cat-sym "%" name "-setter") (z x) (set (%prop-elt x (%raw ,offset)) z)))) (rep loop ((res '()) (i 0) (names prop-names)) (if (== names '()) `(seq ,@(rev! res)) (let ((name (head names))) (loop (pair (getter name i) (pair (setter name i) res)) (+ i 1) (tail names))))))) ;; DEFINE STRUCTURE BASE WITH PREFIX FOR CONSTRUCTOR NAME (dss %define-structure (,prefix ,class-base-name ,@prop-names) (loc ((constructor (name inits) (def class-name (cat-sym "<" name ">")) `(dl ,(cat-sym prefix name) (,@prop-names) (def class (%object-of ,class-name (%raw ,(len prop-names)))) ,@inits class))) (rep loop ((inits '()) (i 0) (names prop-names)) (if (== names '()) `(seq (%define-structure-accessors ,@prop-names) ,(constructor class-base-name inits)) (let ((name (head names))) (loop (pair `(set (%prop-elt class (%raw ,i)) ,name) inits) (+ i 1) (tail names))))))) ;;; ;;; 2. SETUP EARLY CLASS ;;; (%define-structure % class class-prop-len class-name class-parents class-direct-props class-ancestors class-props class-children class-gens class-mets class-forward class-id class-row) (%define-structure % singleton type-object) (%define-structure % subclass type-class) (%define-structure % union union-elts) (%define-structure % product product-elts) (dv (%object-of (%raw 0) (%raw 10))) ;;; ;;; 3. SETUP EARLY OBJECTS ;;; ;;; PLACE HOLDERS FOR EARLY OBJECTS (dv (%object-of (%raw 10))) ;; PLACE HOLDER (dv nil (%object-of (%raw 2))) ;; AT LEAST GET SIZE RIGHT (dv one-nil nil) ;; REMEMBER ORIGINAL NIL ;;; ;;; 4. SETUP EARLY CLASSES ;;; ;;; BUILD CLASS SHELLS POINTING TO INCOMPLETE (dss %class-shells () `(seq ,@(%map-boot-classes (fun (name parents) `{ (dv ,name (%class nil nil nil nil nil nil nil nil nil nil -1 nil)) (export ,name) })))) (%class-shells) ;;; INITIALIZE CLASSES TO BE INSTANCES OF NOW REAL CLASS (dss %reparent-class-shells () `(seq ,@(%map-boot-classes (fun (name parents) `(set (%object-class ,name) ))))) (%reparent-class-shells) ;;; ;;; 5. SETUP EARLY OBJECTS ;;; ;;; TODO: NEED SIZES TO BUILD OBJECTS CORRECTLY ;;; TODO: COULD DELAY UNTIL AFTER PROPS (set (%object-class nil) ) ;;; BUILD BASIC OBJECT HOLDERS (dss %object-shells () `(seq ,@(%map-boot-objects (fun (name class) `(seq (dv ,name (%object-of ,class (%raw 0))) ,(if (== name 'nul) #f `(export ,name))))))) (%object-shells) (dv %classes-ready? #f) ;;; ;;; 6. SETUP LIST BASICS ;;; ;;; LST BASICS (%define-structure % lst head tail) (dl %pair (head tail) (%lst head tail)) (dl (%nul? inline) (x) (%bb (%eq? x nil))) (dl %%len (x) (rep loop ((x x) (i (%raw 0))) (if (%nul? x) i (loop (%tail x) (%i+ i (%raw 1)))))) (dl %rev! (c) (rep loop ((l c) (r '())) (if (%nul? l) r (let ((t (%tail l))) (set (%tail l) r) (loop t l))))) (dl %cat2 (x y) (rep colx ((lx nil) (x x)) (if (%nul? x) (rep coly ((lxy lx) (y y)) (if (%nul? y) (%rev! lxy) (coly (%pair (%head y) lxy) (%tail y)))) (colx (%pair (%head x) lx) (%tail x))))) ;;; INITIALIZE NIL (set nil one-nil) (set (%head nil) nil) (set (%tail nil) nil) ;;; MET BASICS (%define-structure % sig sig-specs sig-nary? sig-arity sig-val sig-unification-vars) (%define-structure % src-loc src-loc-line src-loc-file) (%define-structure % fun-info fun-info-name fun-info-names fun-info-src fun-info-src-loc fun-info-count fun-info-inlineable?) (%define-structure % met met-code met-sig met-info met-env) (dv %met-prop-len (%raw 4)) ;; NOW FALSE AND TRUE HAVE THEIR PERMANENT VALUES. (dv %symbols-ready? #f) ;; READY TO BUILD SYMBOLS? (dv %*start-running-at* nil) ;;; ;;; 8. TAGGED OBJECTS ;;; ;; TAGGED OBJECTS ARE IMMEDIATE OBJECTS WHOSE TYPE AND DATA ;; ARE ENCODED IN ADDRESS ;; USES TWO TAG BITS WITH ADDRESSES HAVING TAG ZERO (dv $direct-object-class (%raw-alloc (%raw 4))) (dss $tag-msk () `(%raw 3)) (dss $tag-len () `(%raw 2)) (dl (%tag-bits inline) (x) (%i& x ($tag-msk))) (dl (%tag inline) (x t) (%iv (%i<< x ($tag-len)) t)) (dl (%untag inline) (x) (%i>> x ($tag-len))) (dss $adr-tag () `(%raw 0)) (dl %tag-into (x t) (%tag (%untag x) t)) (dl %untag-into (x) (%tag (%untag x) ($adr-tag))) (dl %indirect-object? (x) (%i= (%tag-bits x) ($adr-tag))) (dl (@adr? inline) (x) (%bb (%i= (%tag-bits x) ($adr-tag)))) (dl (%class-of inline) (x) (def tag (%tag-bits x)) (if (%bb (%i= tag ($adr-tag))) (%object-class x) (%elt $direct-object-class tag))) ;; DEFINE EARLY TAGGED CLASS ;; WHERE CODE IS ABBREVIATION PREFIX FOR OPS ;; DEFINES TAG/FAB AND UNTAG OPS ;; DEFINES TAG2CLASS ENTRY FOR MAP (dss %define-tagged-structure (,name ,ptag ,puntag ,code ,tag) (let ((class-name (cat-sym "<" name ">")) (fab-name (cat-sym "%" name)) (tag-name (cat-sym "%" code "b")) (untag-name (cat-sym "%" code "u"))) `(seq (dl (,tag-name inline) (x => ,class-name) (,ptag x (%raw ,tag))) (dl (,fab-name inline) (x => ,class-name) (,tag-name x)) (dl (,untag-name inline) (x) (,puntag x)) (set (%elt $direct-object-class (%raw ,tag)) ,class-name)))) (%define-tagged-structure fixnum %tag %untag i 1) ;; INTEGERS (dl (@int? inline) (x) (%bb (%i= (%tag-bits x) (%raw 1)))) (%define-tagged-structure chr %tag %untag c 2) ;; CHARACTERS (%define-tagged-structure loc %tag-into %untag-into l 3) ;; LOCATIVES (dv $num-int-bits (%ib (%i- (%iu 32) ($tag-len)))) (dv $max-int (%ib (%i- (%i<< (%iu 1) (%i- (%iu $num-int-bits) (%iu 1))) (%iu 1)))) (dv $min-int (%ib (%i<< (%iu 1) (%i- (%iu $num-int-bits) (%iu 1))))) ;;; ;;; 9. SETUP REPEATED OBJECTS ;;; ;; DEF STRUCT'S WITH INDEXED ELEMENTS W/ DATA STORED IN DATA PROP ;; DEFINING CONSTRUCTORS,ACCESSORS,LEN,BOX/UNBOX'ERS(FOR FFI), (dss %define-repeated-structure (,name ,elt ,code ,init) (let ((class-name (cat-sym "<" name ">")) (nul (cat-sym "%" code "nul")) (fab (cat-sym "%" name)) (fab! (cat-sym "%" name "!")) (raw-fab (cat-sym "%%" code "fab"))) `(seq (dl ,fab! (len e => ,class-name) (,raw-fab len e)) (dv (,nul ,class-name) (,fab! (%raw 0) ,init)) (dl ,fab (len e => ,class-name) (if (%bb (%i= len (%raw 0))) ,nul (,fab! len e)))))) (%define-repeated-structure str s (%cu #\Space)) (%define-repeated-structure tup t nul) (%define-repeated-structure rep r nul) (dl %str-eq? (s1 s2) (def len (%slen s1)) (and (%bb (%i= len (%slen s2))) (rep loop ((i (%raw 0))) (or (%bb (%i= i len)) (let ((c1 (%selt s1 i)) (c2 (%selt s2 i))) (and (%bb (%c= c1 c2)) (loop (%i+ i (%raw 1))))))))) ;;; ;;; 7. SETUP HIERARCHY ;;; ;; COMPUTE ALL PARENTS FROM DIRECT PARENTS ASSUMING SIMPLE INHERITANCE (dl %compute-ancestors (parent) (rep loop ((res '()) (parent parent)) (if (%bb (%eq? parent )) (%rev! (%pair res)) (loop (%pair parent res) (%head (%class-parents parent)))))) ;; DEFINE CHILD / PARENT RELATIONSHIP (dv *early-classes* nil) (dl %define-parents (class parents) (set *early-classes* (%pair class *early-classes*)) (set (%class-prop-len class) 0) ;; NOW INT'S ARE DEFINED (set (%class-forward class) #f) ;; NOW #F IS DEFINED (set (%class-parents class) parents) (set (%class-ancestors class) (%pair class (%compute-ancestors (%head parents)))) (set (%class-children (%head parents)) (%pair class (%class-children (%head parents))))) ;; DEFINES SINGLE INHERITANCE HIERARCHY FROM TOP TO BOTTOM (dss %pairize (,@elts) (rep pairize ((elts elts)) (if (nul? elts) '() `(%pair ,(head elts) ,(pairize (tail elts)))))) (dss %define-hierarchy () `(seq ,@(%map-boot-classes (fun (name parents) `(%define-parents ,name (%pairize ,@parents)))))) (%define-hierarchy) ;; PATCH 'S PARENTS (set (%class-ancestors ) (%pair nil)) ;;; ;;; 10. SETUP SYMBOLS ;;; ;; Get symbol fab up ASAP so we don't have to patch the names of ;; a bunch of objects. (dl %%sym (raw-str) ;; Called in code generated by compiler (if %symbols-ready? (fab-sym (%sb raw-str)) (set %*used-symbols-too-early* #t) #f)) (%define-structure % sym sym-nam) (dv %symbols nil) ;; EARLY VERSION (PRE TAB) OF SYM CONSING USING LST SET (if (%bb (%eq? %*used-symbols-too-early* #t)) (%break (%su "Warning: symbols were created in the boot image before the symbol-creation was setup. (Probably from a df or rep)\n"))) ;; this first version doesn't have proper symbols, but it works.. (dl %fab-sym (name) (rep lookup ((s %symbols)) (if (%nul? s) (let ((sym (%sym name))) (set %symbols (%pair sym %symbols)) sym) (let ((sym (%head s))) (if (%str-eq? (%sym-nam sym) name) sym (lookup (%tail s))))))) (dv fab-sym (fun (name) (%fab-sym name))) (set %symbols-ready? #t) ;; READY TO CONS SYMBOLS ;; do the same thing, this time the symbols will be filled in (df fab-sym (name) (%fab-sym name)) ;; NEED THIS TO BUILD METS -- COMPUTED FOR REAL BELOW ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;; !!! Below here we can use functions !!! ;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; 11. BOXED OBJECTS ;;; (dss %define-boxed-structure (,name ,code) (let ((class-name (cat-sym "<" name ">")) (dat-name (cat-sym name "-dat")) (fab-name (cat-sym "%" name)) (box-name (cat-sym "%" code "b")) (unbox-name (cat-sym "%" code "u"))) `(seq (%define-structure % ,name ,dat-name) (dl ,box-name (x => ,class-name) (,fab-name x)) (dl ,unbox-name (x) (%prop-elt x (%raw 0))) ))) (%define-boxed-structure flo f) ;; (%define-boxed-structure chr c) ;; (%define-boxed-structure int i) ;; (%define-boxed-structure loc l) ;;; 5.5. Make optional arg stuff (%define-structure % opts opts-location opts-count) (%define-structure % opts-tup opts-tup-location opts-tup-count opts-tup-tup) ;;; ;;; 12. MAKE PROPS AND ACCESSORS ;;; ;; DEF PROP'S (%define-structure %% prop prop-owner prop-getter prop-setter prop-type prop-init) ;; GENERIC DISPATCH CACHES ;; USED IN HIERARCHY DECISION TREE ;; MAP KEYS TO SUBTREES WHERE KEYS ARE EITHER OBJECTS OR CLASS ;; AND SUBTREES ARE EITHER OTHER CACHES OR METHODS OR PROP OFFSETS (%define-structure % gen-cache gen-cache-missable? gen-cache-arg-pos gen-cache-singletons gen-cache-classes gen-cache-count) (dv $gen-cache-singletons-offset 2) ;; TODO: USED IN CACHE UPDATE (dv $gen-cache-classes-offset 3) ;;; DEF GENERIC'S (%define-structure % gen gen-code gen-sig gen-info gen-mets fun-cache) (df %prop-offset (owner getter) (rep loop ((i (%raw 0)) (props (%class-props (%object-class owner)))) (if (%nul? props) (%iu -1) (let ((prop (%head props))) (if (%bb (%eq? (%prop-getter prop) getter)) i (loop (%i+ i (%raw 1)) (%tail props))))))) ;; &LISTIFY CONSTRUCTS CODE THAT BUILDS A LIST OF GIVEN ARGS WITH CALLS TO %PAIR (ct (df &listify (args) (if (nul? args) 'nil `(%pair ,(head args) ,(&listify (tail args)))))) ;; EARLY DISPATCH ERRORS OUT (df %early-dispatch (args|...) (def gen (%fun-reg)) (%break (%su "ERROR: Generic function dispatch called before it existed."))) (df %add-met (gen met) (set (%gen-mets gen) (%pair met (%gen-mets gen)))) ;; DEFINE EARLY GENERIC METHOD FOR ACCESSORS (dl %fab-sig (specs nary? arity val unis) (%sig specs nary? arity val unis)) (dl %fab-gen/code (code sig name names src-loc) (let ((info (%fun-info name names src-loc #f 0 #f))) (%gen (%gen-code code) sig info '() #f))) (dl %fab-gen (sig name names src-loc) (%fab-gen/code %dispatch sig name names src-loc)) (dl %fab-met-inlineable (code sig name names src-loc src) (%met code sig (%fun-info name names src-loc src 0 #t) #f)) (dl %fab-met (code sig name names src-loc src) (%met code sig (%fun-info name names src-loc src 0 #f) #f)) (ct (df ¶ms (sig) (if (or (nul? sig) (== (head sig) '=>)) '() (pair (head sig) (¶ms (tail sig)))))) (dss %define-accessor (,name (,@sig) ,@body) (let ((params (¶ms sig)) (specs (&listify (map (always ') params)))) `(seq (dv ,name (%fab-gen/code %early-dispatch (%sig ,specs #f ,(len params) '()) ',name '() #f)) (export ,name) (let ((accessor (fun (,@sig) ,@body))) (%add-met ,name accessor) (set (%fun-info-name (%met-info accessor)) ',name) (set (%fun-info-inlineable? (%met-info accessor)) #t) accessor)))) (dss %define-getter (,name ,owner ,type) `(%define-accessor ,name ((x ,owner) => ,type) (%prop-elt x (%prop-offset ,owner ,name)))) (dss %define-setter (,name ,owner ,type) `(%define-accessor ,(cat-sym name "-setter") ((z ,type) (x ,owner)) (set (%prop-elt x (%prop-offset ,owner ,name)) z))) ;; EARLY ADD-PROP JUST ADDS PROP TO DIRECT-PROPS (df %add-prop (class prop) (set (%class-direct-props class) (%pair prop (%class-direct-props class)))) ;; DEF GETTER/SETTER/PROPS FOR ALL BOOT CLASS PROPS ;; N.B. PROP METHODS CLOSE OVER PROP (dss %define-props () `(seq ,@(%map-boot-props (fun (owner name setter? type init) (def setter-name (and setter? (cat-sym name "-setter"))) `(let ((getter (%define-getter ,name ,owner ,type)) ;; TODO: X FROM OWNER VAR (setter ,(and setter? `(%define-setter ,name ,owner ,type))) (prop (%%prop ,owner ,name ,setter-name ,type {x\,init}))) (set (%met-env getter) prop) ,(when setter? `(set (%met-env setter) prop)) (%add-prop ,owner prop)))))) (%define-props) ;;; ;;; 7. FINALIZE PROPS ;;; ;; NEED TO SET ALL PROPS CLASS PROP (df %collect-direct-props (class) (def parent (%head (%class-parents class))) (%cat2 (%class-props parent) (%class-direct-props class))) (df %finalize-props! (name class) (set (%class-name class) name) (set (%class-direct-props class) (%rev! (%class-direct-props class))) (set (%class-props class) (%collect-direct-props class)) (set (%class-prop-len class) (%ib (%%len (%class-props class)))) class) (dss %finalize-props () `(seq ,@(%map-boot-classes (fun (name parent) `(%finalize-props! ',name ,name))))) (%finalize-props) ;;; ;;; 11. FUNCTION PREP ;;; ;; NEED TO DEF A SLEW OF MONOVARIANT FUN'S ;; PRE GENERICS AND IN ORDER TO AVOID CIRCULARITIES ;; USE PRIMITIVES FOR SPEED FOR NOW (dl (@head inline) (x| => ) (%head x)) (dl @head-setter (z x|) (set (%head x) z)) (dl (@tail inline) (x| => ) (%tail x)) (dl @tail-setter (z| x|) (set (%tail x) z)) (dl (@= inline) (x| y| => ) ;; optimization based on knowing the tag bits for two ints are always the same (%bb (%i= x y))) ;; (%bb (%i= (%iu x) (%iu y)))) (dl (@< inline) (x| y| => ) (%bb (%i< (%iu x) (%iu y)))) (dl (@+ inline) (x| y| => ) (%ib (%i+ (%iu x) (%iu y)))) (dl (@== inline) (x| y| => ) (%bb (%eq? x y))) (df @@== (x| y| => ) (%bb (%eq? x y))) (df (not inline) (x| => ) (%bb (%eq? x #f))) (dl (@not inline) (x| => ) (%bb (%eq? x #f))) (dl (@nul? inline) (x| => ) (%nul? x)) (df @@nul? (x| => ) (%nul? x)) (df @rev! (x| => ) (%rev! x)) (dl @len (x| => ) (%ib (%%len x))) (dl (@oelt inline) (x| i|) (%loc-off (%opts-location x) (%i- (%raw 0) (%iu i)))) (dl (@oelt-setter inline) (z x| i|) (set (%loc-off (%opts-location x) (%i- (%raw 0) (%iu i))) z)) (dl (@olen inline) ((x ) => ) (%opts-count x)) (df @all? (test| c| => ) (rep fnd ((p c)) (if (@nul? p) #t (if (test (@head p)) (fnd (@tail p)) #f)))) (df @all2? (test| x| y| => ) (rep fnd ((px x) (py y)) (if (@nul? px) (@nul? py) (if (@nul? py) #f (if (test (@head px) (@head py)) (fnd (@tail px) (@tail py)) #f))))) (df @elt (x| key| => ) (rep fnd ((count| 0) (x| x)) (if (@== x '()) nul (if (@= count key) (@head x) (fnd (@+ count 1) (@tail x)))))) (df @fill (x| f| => ) (rep loop ((p x)) (if (@nul? p) x (seq (set (@head p) f) (loop (@tail p)))))) (df @any? (test| c| => ) ;; TODO: => (rep fnd ((p c)) (if (@nul? p) #f (or (test (@head p)) (fnd (@tail p)))))) (dl @pair (h| t| => ) (%pair h t)) (df fab-pair (h| t| => ) (%pair h t)) (dl @add (c| e| => ) (@pair e c)) (dl @add-new (c| e| => ) (if (@mem? c e) c (@pair e c))) (df @map (f| x| => ) (rep do ((x x) (res '())) (if (@nul? x) (@rev! res) (do (@tail x) (@pair (f (@head x)) res))))) (df @pick (f| x| => ) (rep do ((x x) (res '())) (if (@nul? x) (@rev! res) (let ((h (@head x))) (do (@tail x) (if (f h) (@pair h res) res)))))) (df @do (f| x|) (rep do ((x x)) (if (@nul? x) #f (seq (f (@head x)) (do (@tail x)))))) (df @alter (dst| src| => ) (rep in ((ds dst) (ss src)) (if (or (@nul? ds) (@nul? ss)) dst (seq (set (@head ds) (@head ss)) (in (@tail ds) (@tail ss)))))) (df @fab (x| s| => ) (rep fab (((i ) s) ((res ) '())) (if (@< i 0) res (fab (@+ i -1) (@pair nul res))))) (df @fold (combine| init| c| => ) (rep red ((res init) (c c)) (if (@nul? c) res (red (combine res (@head c)) (@tail c))))) (df @rev ((x ) => ) (rep loop ((l x) (r '())) (if (@nul? l) r (loop (@tail l) (@pair (@head l) r))))) (df @cat2 (x| y| => ) (%cat2 x y)) (df @find (f| c| => ) ;; TODO: => (rep fnd ((c c) (i 0)) (if (@nul? c) nul (if (f (@head c)) i (fnd (@tail c) (@+ i 1)))))) (df @mem? (c| x| => ) (not (@== (@find (fun (y) (@== x y)) c) nul))) ;; added rev! since it was returning the list backwards. TODO: make it more ;; efficient. (df @del-dups (x| => ) (@rev! (@fold (fun (s e) (if (@mem? s e) s (@pair e s))) '() x))) (df @opts-as-lst (x| => ) (rep loop ((i (@+ (@olen x) -1)) (l '())) (if (@== i -1) l (loop (@+ i -1) (@pair (@oelt x i) l))))) (df @lst (x|...) (rep loop ((i (@+ (@olen x) -1)) (l '())) (if (@== i -1) l (loop (@+ i -1) (@pair (@oelt x i) l))))) (dl (@tlen inline) (x| => ) (%ib (%tlen x))) (dl (@telt inline) (x| i| => ) (%telt x (%iu i))) (dl (@telt-setter inline) (z x| i|) (set (%telt x (%iu i)) z)) (df @tany? (test| c| => ) (rep fnd ((i (@+ (@tlen c) -1))) (if (@< i 0) #f (or (test (@telt c i)) (fnd (@+ i -1)))))) (df @tall2? (test| c1| c2| => ) (and (@== (@tlen c1) (@tlen c2)) (rep fnd ((i (@+ (@tlen c1) -1))) (or (@< i 0) (and (test (@telt c1 i) (@telt c2 i)) (fnd (@+ i -1))))))) (dl (%to-tup inline) (args|) (def l (@olen args)) (def t (%tup (%iu l) nul)) (if (@= l 2) ;; MOST FREQUENT CASE AND SPEED CRITICAL (seq (set (@telt t 0) (@oelt args 0)) (set (@telt t 1) (@oelt args 1))) (rep into ((k (@+ l -1))) (unless (@= k -1) (set (@telt t k) (@oelt args k)) (into (@+ k -1))))) t) (df @tup (args|...) (%to-tup args)) (dv tup @tup) (df t* (args|...) (%product (%to-tup args))) ;; TODO: DEF SUBTYPE METHODS (df @type-equal? (t1 t2 => ) (or (@== t1 t2) (and (not (@== (%class-of t1) )) (not (@== (%class-of t2) )) (@subtype? t1 t2) (@subtype? t2 t1)))) (dl (@subclass? inline) (c1 c2 => ) (%bb (%i= (%selt (%class-row c1) (%iu (%class-id c2))) (%iu 1))) ;; (or (@== c2 ) (@== c1 c2) ;; (@class-in? c2 (%class-ancestors c1))) ) (dl (@class-isa? inline) (o c => ) (@subclass? (%class-of o) c)) (df @subtype? (t1 t2 => ) (if (and (@== (%class-of t2) ) (@== (%class-of t1) )) (@subclass? t1 t2) (subtype? t1 t2))) (df @may-isa? (c| t| => (tup some?| all?|)) (if (@== (%class-of t) ) (if (@subclass? c t) (@tup #t #t) (@tup #f #f)) (may-isa? c t))) ;; (dl @class-in? (c cs => ) ;; (or (@== (%head cs) c) ; at least one ancestor ;; (let ((next-cs (%tail cs))) ;; (if (%nul? next-cs) ;; #f ;; (@class-in? c next-cs))))) (dl @singleton-isa? (o t => ) ;; TODO: FIX UP TO DO PROPER == (@== (%type-object t) o)) (dl (@isa? inline) (o t => ) (if (@== (%class-of t) ) (@class-isa? o t) (isa? o t))) (dv *restarts-ok?* #f) (df unexec (name| fun|) (set %*start-running-at* fun) (%unexec (%su name))) (df %patch-early-generic (generic|) (set (%gen-code generic) (%met-code %dispatch))) (dss %def-patch-early-generics () `(dl %patch-early-generics () ,@(%map-boot-props (fun (owner name setter? type init) `(seq (%patch-early-generic ,name) ,(when setter? `(%patch-early-generic ,(cat-sym name "-setter")))))))) (%def-patch-early-generics) ;;; LOW-LEVEL FUNCTION CALLING SUPPORT AND TYPE CHECKS (set (%class-prop-len ) (%ib %met-prop-len)) (dl (@raw-nul? inline) (x) (@== x (%raw 0))) (dl %cons-args () (%def-regs) (def n (%sp-elt (%raw -2))) (def b (%i- (%raw -2) n)) (rep loop ((r '()) (i (%raw 0))) (if (%bb (%i< i n)) (loop (%pair (%sp-elt (%i+ b i)) r) (%i+ i (%raw 1))) r))) (dl (%check-arity inline-c) (fn sig n) (def arity (%iu (%sig-arity sig))) (def nary? (%sig-nary? sig)) (if nary? (when (%bb (%i< n arity)) (narity-error fn (%cons-args))) (if (%bb (%i= n arity)) #t (arity-error fn (%cons-args))))) (dl (%arg-check-type inline-c) (res type fn) (if (@== type ) #t (if (@isa? res type) res (argument-type-error fn res type (%cons-args))))) (dl %fun-val-check-type (regs res fn) (%set-regs regs) (def type (%sig-val (%met-sig fn))) (if %classes-ready? (if (@isa? res type) res (return-type-error fn res type (%cons-args))))) (dl %check-type (regs res type) (%set-regs regs) (if %classes-ready? (if (@isa? res type) res (type-error res type)))) (dss %stack-overflow-lim () `(%i- (%max-stack-len) (%raw 1000))) (dl (%stack-check inline-c) (regs) (%set-regs regs) (if (%bb (%i< (%stack-overflow-lim) (%i- (%sp-reg) (%stack-reg)))) (when (%bb (%stack-check-reg?)) (set (%stack-check-reg?) (%raw 0)) (stack-overflow-error)) (if (%bb (%stack-check-reg?)) #f (set (%stack-check-reg?) (%raw 1))))) (dl %%check-call-types (regs) (%set-regs regs) (def fn (%sp-elt (%raw -1))) (def class (if (@raw-nul? fn) (%raw 0) (if (@adr? fn) (%class-of fn) (%raw 0)))) (def n (%sp-elt (%raw -2))) (%stack-check regs) (if (@== class ) (let ((sig (%met-sig fn))) (%check-arity fn sig n) (when %classes-ready? (rep loop ((i (%raw 0)) (specs (%sig-specs sig))) (if (@== specs '()) #f {(%arg-check-type (%sp-elt (%i- (%raw -3) i)) (%head specs) fn) (loop (%i+ i (%raw 1)) (%tail specs))})))) (if (@== class ) (%check-arity fn (%gen-sig fn) n) (if (@== unknown-function-error (%raw 0)) (%break (%su "Tried to call an unbound function, but the function error\nhandler is itself unbound. Exiting.")) (unknown-function-error (if (@raw-nul? fn) #f fn) (%cons-args))))) #f) ;;; ;;; 14. MACROS ;;; (dv *boot-macro-module-names* '()) (dv *boot-macro-names* '()) (dv *boot-macro-expanders* '()) (dv *macros-ok?* #f) ;; ENOUGH OF WORLD BOOTED TO DEFINE MACROS? (dl %macro (modname name expander) (if *macros-ok?* (%%macro modname name expander #f) ;; DEFINED IN AST (seq ;; REMEMBER NAMES/EXPANDERS FOR LATER INSTALLATION (set *boot-macro-module-names* (@pair modname *boot-macro-module-names*)) (set *boot-macro-names* (@pair name *boot-macro-names*)) (set *boot-macro-expanders* (@pair expander *boot-macro-expanders*)))) #f) ;;; ;;; 14. APPLICATION ;;; (df app-filename () (%app-filename)) (df app-args () (%app-args)) (export app-filename app-args) ;;; ;;; xx. COMPILER SUPPORT ;;; (dl %lit (n) (@lit (%ib n))) ;;; ;;; 15. EXPORTS ;;; ;; Some functions are called directly from prt.c. For now, we generate ;; artificial free bindings for these symbols in the boot module--and ;; export them--so that other modules will define them under the ;; correct C names. Please feel free to redesign this if you wish. ;; TODO - It might be worth dumping (mangle-runtime-name ...) in ;; g2c and using this mechanism instead. (dss force-names-into-boot-module (,@names) (if (nul? names) #f `(seq (if #f ,(head names)) (export ,(head names)) (force-names-into-boot-module ,@(tail names))))) (force-names-into-boot-module @lit %dispatch %with-monitor tup subtype? isa? may-isa? order-specs update-instance-for-changed-class @new new prop-offset props-of %prop-unbound-error %%macro lst error property-unbound-error property-not-found-error property-type-error cpl-error unknown-function-error stack-overflow-error file-opening-error type-error argument-type-error return-type-error internal-error arity-error narity-error ambiguous-method-error no-applicable-methods-error syntax-error range-error keyboard-interrupt file-opening-error no-next-methods-error assert-error as-error arithmetic-error ) ;; Forward references. ;; TODO - These would normally be defined using need-implementation, but we ;; haven't defined that yet. (export error ) ;; Compiler magic. (export c-ment c-expr use use/export use/mangle use/library use/include export mif macro-expand quasiquote dl ct ct-also try fin esc rep loc let def bound? fun df dg dm dss ds dv d. dc dp dp! set quote %raw seq if ddv ) ;; Primitives used in other modules. (export %app-args %app-filename %bb %bu %binding-name %build-runtime-modules %process-module %c< %c= %do-stack-frames %eof-object %eof-object? %eq? %i! %i& %i* %i+ %i- %i< %i<< %i<<< %i= %i>> %i>>> %i? %i^ %im %invoke-debugger %it/ %iv %loc-val %loc-val-setter %next-methods %pair %%sym %check-call-types ;;; FOR DECISION TREE CODE %gen-code %gen-code-setter ;;; FOR OPTIMIZE %met-code %met-code-setter %fun-reg %unlink-stack %src-loc %fab-met %fab-met-inlineable %met %met-env-setter %vsp %vsp-setter %vfp %vfp-setter %vpc %vpc-setter %vfn %vfn-setter %vnm %vnm-setter %vm-box-fab %vm-box-val %vm-box-val-setter %vm-fun-env-fab %vm-fun-env-elt %vm-fun-env-elt-setter %vm-with-exit %vm-with-cleanup %allocate-stack ) (export $max-int $min-int t* fab-sym not %symbols unexec ) ;; Regular exports. (export ;; tagged structures %cb %cu %fb %fu %ib %iu %lb %lu %untag ;; repeated structures %sb %selt %selt-setter %slen %snul %str %su %tup %to-tup %telt %telt-setter %tlen %tnul %rep %relt %relt-setter %rlen %rnul %raw-call %raw-met-call %loc-off %loc-off-setter %sp-reg-setter %sp-reg %next-methods-reg-setter %class-of @subclass? %@class-of %@subclass? %fab-dyn-var %dyn-var-val %dyn-var-val-setter %patch-early-generics %class-id-setter %class-props %class %classes-ready? %class-gens %class-forward-setter %class-ancestors-setter %class-props-setter %class-id %class-prop-len-setter %fun-cache-setter %prop-type %class-direct-props-setter %class-direct-props %class-row-setter %class-children-setter %class-children %class-prop-len %prop-getter %clone %object-of %class-parents %class-forward %class-ancestors %sig-nary? %sig-arity %set-regs %def-regs %gen-cache %met-env %sig-unification-vars %class-prop-len-setter %fun-cache-setter %stack-check-reg? %gen-cache-singletons %prop-dat-at %type-object %gen-mets-setter %class-mets-setter %gen-cache-arg-pos-setter %union-elts %class-mets %tail %sig-val %met-sig %met-info %gen-info %gen-mets %sig-specs %singleton %prop-elt %gen-cache-singletons-setter %stack-check-reg?-setter %gen-cache-arg-pos %prop-init %met-prop-len %gen-sig %gen-cache-classes-setter %stack-reg %prop-getter %gen-cache-classes %max-stack-len %gen-cache-missable? %fun-info-names %fun-info-names-setter %fun-info-name %fun-info-name-setter %fun-info-src %fun-info-src-setter %fun-info-src-loc %fun-info-src-loc-setter %fun-info-count %fun-info-count-setter %fun-info-inlineable? %fun-info-inlineable?-setter %class-forward %object-class %fun-cache %class-ancestors %opts-tup %type-class %product-elts %sp-elt %head %prop-elt-setter %class-gens-setter %break %fun-val-check-type %%check-call-types %macro ) (export @isa? @lst @len @all2? @oelt @any? @olen @telt @tlen @+ @< @== @not ;; hygiene $direct-object-class ;; hygiene/inlining @opts-as-lst ;; booting @map @cat2 @rev @add-new @type-equal? @= @pair fab-pair ;; hygiene construction @tail @head @fold @add @all? @all2? @del-dups *early-classes* @rev! @do @nul? @@nul? @mem? @subtype? @singleton-isa? @tany? @class-isa? @@== @adr? @int? @telt-setter @oelt-setter @tup @tail-setter @tall2? @may-isa? @elt @pick ) (export *restarts-ok?* *macros-ok?* *boot-macro-expanders* *boot-macro-names* *boot-macro-module-names* ) goo-0.155/src/goo/chr.goo0100644000175000017500000000336507542215073014562 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/mag) (use goo/types) (use goo/any) (use goo/math) (exported (dg lower? ( => )) (dg upper? ( => )) (dg to-lower ( => )) (dg to-upper ( => )) (dg to-digit ( => )) (dg alpha? ( => )) (dg digit? ( => )) (dg eof-object? ( => )) (dg eof-object ( => )) ) (dm as ((_ (t= )) i| => ) (%cb (%iu i))) (dm as ((_ (t< )) c| => ) (%ib (%cu c))) (dm < (x| y| => ) (%bb (%c< (%cu x) (%cu y)))) (dm == (x| y| => ) (%bb (%c= (%cu x) (%cu y)))) (dm lower? (x| => ) (def code (as x)) (if (>= code (as #\a)) (<= code (as #\z)) #f)) (dm upper? (x| => ) (def code (as x)) (if (>= code (as #\A)) (<= code (as #\Z)) #f)) (dm to-lower (x| => ) (if (upper? x) (as (+ (as x) (- (as #\a) (as #\A)))) x)) (dm to-upper (x| => ) (if (lower? x) (as (+ (as x) (- (as #\A) (as #\a)))) x)) (dm to-digit (digit| => ) (- (char->ascii digit) (char->ascii #\0))) (dm to-str (x| => ) (fabs x)) (dm alpha? (x| => ) (or (and (<= #\a x) (<= x #\z)) (and (<= #\A x) (<= x #\Z)))) (dm digit? (x| => ) (and (<= #\0 x) (<= x #\9))) (dm eof-object? (x => ) #f) (dm eof-object? (x| => ) (%bb (%eq? (%cu x) (%eof-object)))) (dm eof-object (=> ) (%cb (%eof-object))) (need-implementation char->ascii fabs) goo-0.155/src/goo/class.goo0100644000175000017500000002257207611105276015114 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) ;;; Temporary, compile-time-only macros. These are used by this file only-- ;;; we never export them. The real definitions live in macros.goo. (dss unless (,test ,@body) `(if (@not ,test) (seq ,@body))) (dss when (,test ,@body) `(if ,test (seq ,@body))) (dss or (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(let ((tmp ,x)) (if tmp tmp (or ,@rest)))) #f)) (dss and (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(if ,x (and ,@rest) #f)) #t)) (dv ) (dv ) (df @class-ancestors (x) (%class-ancestors x)) (df class-ordered-ancestors (c| => ) (def parents (%class-parents c)) (rep merge-lists ((partial-cpl| (@lst c)) (remaining-lists| (@add (@map @class-ancestors parents) parents))) ;; the partial-cpl is in reverse order at this point. (if (@all? @@nul? remaining-lists) (@rev! partial-cpl) (loc ((candidate (c) ;; return c if it can go in result now, else false (loc ((tail? (l|) (@mem? (@tail l) c))) (and (not (@any? tail? remaining-lists)) c))) (candidate-at-head (l|) (and (not (@nul? l)) (candidate (@head l))))) (def next (@any? candidate-at-head remaining-lists)) (if next (loc ((del-next (l|) (if (@== (@head l) next) (@tail l) l))) (merge-lists (@pair next partial-cpl) (@map del-next remaining-lists))) (cpl-error "inconsistent precedence graph")))))) (df @class-direct-props (x) (%class-direct-props x)) (df class-ordered-props (x| => ) (def props (@del-dups (@fold @cat2 '() (@map @class-direct-props (@rev (%class-ancestors x)))))) (set (%class-prop-len x) (@len props)) props) (df del-class (class|) ;; TODO: DEL ALL DIRECT-PROPS ;; TODO: FLUSH ALL GEN'S ON ALL PROPS ;; TODO: DEL SELF FROM ALL DIRECT-PARENTS ) (dv *next-class-id* 0) (dv $max-classes 500) (df init-class (x) (when (@< $max-classes *next-class-id*) (internal-error "Too many classes %=" $max-classes)) (when (@== (@len (%class-parents x)) 0) (internal-error "Need at least one parent in class definition")) (set (%class-id x) *next-class-id*) (set *next-class-id* (@+ *next-class-id* 1)) (unless (@== x ) (@do (fun (parent) (set (%class-children parent) (@add-new (%class-children parent) x))) (%class-parents x)) (set (%class-ancestors x) (class-ordered-ancestors x))) (def row (%str (%iu $max-classes) (%iu 0))) (set (%class-row x) row) (@do (fun (ancestor) (set (%selt row (%iu (%class-id ancestor))) (%iu 1))) (%class-ancestors x)) (set (%class-props x) (class-ordered-props x)) x) (df fab-class (name| parents| => ) (def x (%class 0 name parents '() '() '() '() '() '() #f -1 #f)) (init-class x) x) (df refab-class (old-class| parents| => ) ;; TODO: WHAT TO DO WITH OLD PROPS? -- REUSE THEM FOR NOW ;; EXCEPT ALL OLD METS ARE SPEC'D ON OLD-CLASS ;; TODO: NEED CONCRETE-CLASS CLASS FOR THIS (def new-class (fab-class parents (%class-direct-props old-class))) (set (%class-forward old-class) new-class) new-class) (df class-of (x) (%class-of x)) (df props-of (x) (%class-props (%class-of x))) ;;; ;;; PROPS ;;; (dv $getter-not-found -1) (dl (ensure-fresh-object inline) (x) ;; TODO: SHOULD BE DF (when (%class-forward (%class-of x)) ;; stale object? (update-instance-for-changed-class x))) (df prop-offset (object getter| => ) (rep loop ((i 0) (props (props-of object))) (if (@nul? props) $getter-not-found (if (@== (%prop-getter (@head props)) getter) i (loop (@+ i 1) (@tail props)))))) (dv *report-prop-unbound-errors?* #t) ;; TODO: SHOULD BE DDV (df %prop-unbound-error (x) (if *report-prop-unbound-errors?* (property-unbound-error x) #f)) (df prop-value (object getter| => ) (ensure-fresh-object object) (def offset (prop-offset object getter)) (if (@= offset $getter-not-found) (property-not-found-error getter object) (prop-value-at object offset))) (df prop-bound? (object getter| => ) (ensure-fresh-object object) (def offset (prop-offset object getter)) (if (@= offset $getter-not-found) (property-not-found-error getter object) (prop-bound-at? object offset))) (df prop-value-setter (z object getter|) (ensure-fresh-object object) (rep loop ((i 0) (props (props-of object))) (if (@nul? props) (property-not-found-error getter object) (let ((prop (@head props))) (if (@== (%prop-getter prop) getter) (if (@isa? z (%prop-type prop)) (set (prop-value-at object i) z) (property-type-error getter z (%prop-type prop))) (loop (@+ i 1) (@tail props))))))) (df find-getter (owner| getter| => ) (rep loop ((mets (@fun-mets getter))) (if (@nul? mets) (property-not-found-error getter owner) (let ((met (@head mets))) (if (@== (fun-spec met 0) owner) met (loop (@tail mets))))))) (df find-setter (owner| type zetter| => ) (rep loop ((mets (@fun-mets zetter))) (if (@nul? mets) (property-not-found-error zetter owner) (let ((met (@head mets))) (if (and (@== (fun-spec met 1) owner) (@type-equal? (fun-spec met 0) type)) met (loop (@tail mets))))))) ;; CREATE CLONE OF CLASS AND MARK THEM AS FORWARDED CLONE OF ORIGINAL CLASS ;; ALSO CLEAR ALL ASSOC'D GENERIC DISPATCH CACHES SO THAT THEY TRAP NEXT TIME (df forward-class (old-class) (def new-class (%clone old-class)) (@do (fun (g) (set (%fun-cache g) #f)) (%class-gens old-class)) (set (%class-forward old-class) new-class)) (df clone (x) (%clone x)) (df @do-descendents (f x) (def visited '()) (rep visit ((x x)) (unless (@mem? visited x) (set visited (@add visited x)) (f x) (@do visit (%class-children x))))) (df finalize-props (class|) (set (%class-props class) (class-ordered-props class)) ;; FLUSH ACCESSOR GENERIC CACHES CAUSE THEY HOLD POTENTIALLY ;; OUTDATED PROP OFFSETS (@do (fun (prop) (set (%fun-cache (%prop-getter prop)) #f)) (%class-props class))) (df %prop (owner| getter| setter| type| init|) ;; TODO: FORWARD CONDITIONALLY ;; (@do-descendents forward-class owner) (def class owner) (def prop (@new prop-owner owner prop-getter getter prop-setter setter prop-type type prop-init init)) ;; ACCESSORS STORE PROP IN THEIR ENVIRONMENT (def getter-met (find-getter owner getter)) (set (%met-env getter-met) prop) (when setter (def setter-met (find-setter owner type setter)) (set (%met-env setter-met) prop)) (set (%class-direct-props class) (@cat2 (%class-direct-props class) (@lst prop))) (@do-descendents finalize-props owner) prop) (dl %update-instance-for-changed-class (new-object) ;; (def old-class (%class-of new-object)) ;; (def new-class (%class-forward old-class)) ;; (def old-object (%make-object)) ;; ;; capture old values in temporary container ;; (set (%object-values old-object) (%object-values new-object)) ;; ;; allocate new values in existing object and set new class ;; (%install-object-values new-object (%%len (%class-props new-class))) ;; (set (%object-class new-object) new-class) ;; ;; copy correlated prop values from old to new ;; (rep loop-old-props ((old-props (%class-props old-class)) (old-offset 0)) ;; (unless (@nul? old-props) ;; (let ((old-prop (@head old-props)) ;; (getter (%prop-getter old-prop)) ;; (new-offset (prop-offset new-object getter))) ;; (unless (@= new-offset $getter-not-found) ;; (set (prop-value-at new-object new-offset) ;; (prop-value-at old-object old-offset)) ;; (loop-old-props (@tail old-props) (@+ old-offset 1)))))) new-object) ;; ) (df update-instance-for-changed-class (object) (%update-instance-for-changed-class object)) (dv add-prop %prop) ;; PATCH EARLY CLASSES FOR MULTIPLE-INHERITANCE (df patch-early-classes () (set *early-classes* (@rev! *early-classes*)) (@do init-class *early-classes*) (set %classes-ready? #t)) (patch-early-classes) (dg new (parent| inits|... => )) (dl (%new inline-c) (parent| inits| => ) (def object (%object-of parent (%iu (%class-prop-len parent)))) (def num (@olen inits)) (rep loop ((i 0)) (when (@< i num) (def getter (@oelt inits i)) (def val (@oelt inits (@+ i 1))) (set (prop-value object getter) val) (loop (@+ i 2)))) object) (df @new (parent| inits|... => ) (%new parent inits)) (dm new (parent| inits|... => ) (%new parent inits)) (export fab-class class-of prop-value ;; TODO: remove these when they can be called directly prop-value-setter ;; TODO: w/o being exported prop-bound? ;; TODO: w/o being exported find-getter find-setter clone props-of %prop %prop-unbound-error add-prop new *report-prop-unbound-errors?* prop-offset ) goo-0.155/src/goo/cols.goo0100644000175000017500000000106207447515611014743 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/macros) ;;; COLLECTION (use/export goo/cols/opts) (use/export goo/cols/col) (use/export goo/cols/colx) (use/export goo/cols/flat) (use/export goo/cols/lst) (use/export goo/cols/map) (use/export goo/cols/range) (use/export goo/cols/seq) (use/export goo/cols/seqx) (use/export goo/cols/step) (use/export goo/cols/str) (use/export goo/cols/tab) (use/export goo/cols/rep) (use/export goo/cols/vec) (use/export goo/cols/tup) (use/export goo/cols/zip) (use/export goo/cols/cycle) goo-0.155/src/goo/conditions.goo0100644000175000017500000004333407542215073016157 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/types) (use goo/app) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/seqx) (use goo/cols/opts) (use goo/cols/lst) (use goo/cols/tup) (use goo/cols/vec) (use goo/cols/tab) (use goo/io/port) (dc ()) (dm default-handler (c|) #f) (dm describe-condition (c| => ) (msg-to-str "Anonymous condition %=" c)) (dm default-handler-description (cond-type|(t< ) => ) (msg-to-str "Anonymous handler for %s" cond-type)) (dm build-condition-interactively (cond-type|(t< ) in out => ) (new cond-type)) (dc ()) (dp! condition-message ( => ) "") (dp! condition-arguments ( => ) '()) (dm describe-condition (c| => ) (app msg-to-str (condition-message c) (condition-arguments c))) (dm build-condition-interactively (cond-type|(t< ) in out => ) (def cond (sup cond-type in out)) (msg out "Condition format string: ") (set (condition-message cond) (read in)) (msg out "Condition format arguments: ") (set (condition-arguments cond) (read in)) cond) (dc ()) (dm default-handler (c|) (msg out "%s\n" (describe-condition c)) (%invoke-debugger c)) (dc ()) (dc ( )) (export default-handler describe-condition condition-message condition-arguments default-handler-description build-condition-interactively ) (dc ()) (dm default-handler-description (cond-type|(t< ) => ) (msg-to-str "Anonymous restart of type %s" cond-type)) (dc ()) (dp incongruent-method-error-generic ( => )) (dp incongruent-method-error-method ( => )) (dm describe-condition (c| => ) (msg-to-str "Method %= incongruent with generic %=." (incongruent-method-error-method c) (incongruent-method-error-generic c))) (dc ()) (dm default-handler-description (cond-type|(t< ) => ) "Replace the generic function with an nul, congruent one") (export default-handler-description build-condition-interactively) ;;;; Handler Info ;;;; Debugger-level info used for describing handlers and calling them ;;;; interactively. This probably doesn't need to be an actual class; ;;;; a few well-chosen props on might work better. (dc ()) (dm describe-handler (info| condition-type => ) (default-handler-description condition-type)) (dm build-condition-for-handler-interactively (info| condition-type in out => ) (build-condition-interactively condition-type in out)) (dv $default-handler-info (new )) (dc ()) (dp handler-info-message ( => )) (dp handler-info-arguments ( => ) '()) (dm describe-handler (info| condition-type => ) (app msg-to-str (handler-info-message info) (handler-info-arguments info))) (export describe-handler build-condition-for-handler-interactively $default-handler-info handler-info-message handler-info-arguments describe-handler) ;;;; Handlers (ddv *current-handlers* '()) (dc ()) (dp handler-condition-type ( => (t< ))) (dp handler-info ( => )) (dp handler-test ( => )) (dp handler-function ( => )) (df fab-handler (type|(t< ) info| test| f| => ) (new handler-condition-type type handler-info info handler-test test handler-function f)) (df handler-active? (handler| => ) ((handler-test handler))) (df handler-matches? (handler| condition| => ) (and (isa? condition (handler-condition-type handler)) (handler-active? handler))) (df %with-monitor (type|(t< ) info| test-fun| user-handler| main-fun|) (def _original-handlers_ *current-handlers*) (loc ((_handler-function_ (condition _next-handler_) (esc _resume_ (user-handler condition _resume_) (_next-handler_)))) (pushf *current-handlers* (fab-handler type info test-fun _handler-function_)) (fin (main-fun) (set *current-handlers* _original-handlers_)))) ;;; Pass a signal to a list of handlers for processing. (df signal-handler-list (condition| handlers| => ) (if (nul? handlers) (default-handler condition) (let ((handler (head handlers)) (remaining (tail handlers))) (if (handler-matches? handler condition) ((handler-function handler) condition (fun () (signal-handler-list condition remaining))) (signal-handler-list condition remaining))))) (dm sig (condition| args|...) (signal-handler-list condition *current-handlers*)) (dm sig (c| args|...) (sig (new condition-message c condition-arguments (as args)))) ;; (df error (message| args|...) ;; (%break (%su message))) (dm error (c| args|...) (sig c)) (dm error (c| args|...) (error (new condition-message c condition-arguments (as args)))) (df incongruent-method-error (gen| met|) (error (new incongruent-method-error-generic gen incongruent-method-error-method met))) (dc ()) (dp call-error-function ( => )) (dp call-error-arguments ( => )) (dc ()) (dm describe-condition (c| => ) (msg-to-str "Function %= called with wrong number arguments %=." (call-error-function c) (call-error-arguments c))) (df arity-error (fun| args|) (sig (new call-error-function fun call-error-arguments (as args)))) (dc ()) (df narity-error (fun| args|) (sig (new call-error-function fun call-error-arguments (as args)))) (dm describe-condition (c| => ) (msg-to-str "Nary function %= called with too few arguments %=." (call-error-function c) (call-error-arguments c))) (dc ()) (dp type-error-value ( => )) (dp type-error-type ( => )) (df type-error (arg type) (sig (new type-error-value arg type-error-type type))) (dm describe-condition (c| => ) (msg-to-str "Type check failure on %= expected %t." (type-error-value c) (type-error-type c))) (dc ( )) (df unknown-function-error (f args|) (sig (new call-error-function f call-error-arguments (as args) type-error-value f type-error-type ))) (dm describe-condition (c| => ) (msg-to-str "Unknown function %= called on %=." (type-error-value c) (call-error-arguments c))) (dc ( )) (df argument-type-error (f val type args|) (sig (new call-error-function f call-error-arguments (as args) type-error-value val type-error-type type))) (dm describe-condition (c| => ) (cat (msg-to-str "During call of %= on %= " (call-error-function c) (call-error-arguments c)) (sup c))) (dc ( )) (df return-type-error (f val type args|) (sig (new call-error-function f call-error-arguments (as args) type-error-value val type-error-type type))) (dm describe-condition (c| => ) (cat (msg-to-str "During return of call of %= on %= " (call-error-function c) (call-error-arguments c)) (sup c))) (dc ()) (df ambiguous-method-error (gen| args|) (sig (new call-error-function gen call-error-arguments (as args)))) (dm describe-condition (c| => ) (msg-to-str "Ambiguous methods on %= when called with %=." (call-error-function c) (call-error-arguments c))) (dc ()) (df no-applicable-methods-error (gen| args|) (sig (new call-error-function gen call-error-arguments (as args)))) (dm describe-condition (c| => ) (msg-to-str "No applicable methods on %= when called with %=." (call-error-function c) (call-error-arguments c))) (dc ()) (df no-next-methods-error (met args|) (sig (new call-error-function met call-error-arguments (as args)))) (dm describe-condition (c| => ) (msg-to-str "No next-methods on %= when called with %=." (call-error-function c) (call-error-arguments c))) (dc ()) (df cpl-error (msg| args|...) (sig (new condition-message msg (as args)))) (dc ()) (dc ( )) (df syntax-error (msg| args|...) (sig (new condition-message msg condition-arguments (as args)))) (dc ()) (dp macro-error-name ( => )) (dp macro-error-arguments ( => )) (df macro-error (name args) (sig (new macro-error-name name macro-error-arguments args))) (dm describe-condition (c| => ) (msg-to-str "Macro expansion failure for %s when called with %=." (macro-error-name c) (macro-error-arguments c))) (dc ()) (df stack-overflow-error () (sig (new ))) (dm describe-condition (c| => ) "Stack overflow.") (dc ()) (df internal-error (msg| args|...) (sig (new condition-message msg condition-arguments (as args)))) (dc ()) (df assert-error (msg| args|...) (sig (new condition-message msg condition-arguments (as args)))) (dm describe-condition (c| => ) (cat "Assert failure " (sup c))) (dc ()) (dp range-error-collection ( => )) (dp range-error-key ( => )) (dm range-error (c| k) (sig (new range-error-collection c range-error-key k))) (dm describe-condition (c| => ) (msg-to-str "Nonexistent key %= in %=" (range-error-key c) (range-error-collection c))) (dc ()) (dc ()) (dp file-opening-error-filename ( => )) (dm file-opening-error (filename|) (sig (new file-opening-error-filename filename))) (dm describe-condition (c| => ) (msg-to-str "Failed to open %s." (file-opening-error-filename c))) (dc ()) (dc ()) (dp unbound-variable-error-variable ( => )) (dm describe-condition (c| => ) (msg-to-str "Unbound variable %s." (unbound-variable-error-variable c))) (dc ()) (dp property-error-owner ( => ) #f) (dp property-error-generic ( => ) #f) (dc ( )) (df property-unbound-error (owner) (sig (new property-error-owner owner))) (dm describe-condition (c| => ) (msg-to-str "Unbound property on %=." (property-error-owner c))) (dc ()) (df property-not-found-error (generic owner) (sig (new property-error-generic generic property-error-owner owner))) (dm describe-condition (c| => ) (msg-to-str "Property %s not found in %s." (property-error-generic c) (property-error-owner c))) (dc ( )) (df property-type-error (generic value type) (sig (new property-error-generic generic type-error-value value type-error-type type))) (dm describe-condition (c| => ) (cat (msg-to-str "Property %s " (property-error-generic c)) (sup c))) (dc ()) (df as-error (type value) (sig (new type-error-type type type-error-value value))) (dm describe-condition (c| => ) (msg-to-str "No AS method for type %t and value %=." (type-error-type c) (type-error-value c))) (dc ()) (df arithmetic-error (msg| args|...) (sig (new condition-message msg condition-arguments (as args)))) (dc ()) (df keyboard-interrupt () (sig (new ))) (export call-error-function call-error-arguments argument-type-error return-type-error no-next-methods-error narity-error arity-error type-error-value type-error-type internal-error assert-error range-error range-error-collection range-error-key file-opening-error-filename unbound-variable-error-variable property-error-generic property-error-owner arithmetic-error macro-error-name macro-error-arguments keyboard-interrupt ) ;;; INTERACTIVE HANDLER MUNGING ;;; Apply 'f' to all handlers whose type is a subtype of 'type'. (df do-handlers-of-type (type|(t< ) f|) (rep search ((handlers *current-handlers*)) (if (nul? handlers) #f (let ((handler (head handlers)) (remaining (tail handlers))) (when (and (subtype? (handler-condition-type handler) type) (handler-active? handler)) (f handler)) (search remaining))))) ;;; Print out descriptions all active handlers matching 'type' (numbered ;;; from 1) and return a sequence of those handlers in the same order ;;; (indexed from zero). This allows us to keep track of which handlers ;;; correspond to which user-visible numbers. (df list-handlers (type|(t< ) out => ) (def i 1) (def applicable (fab 0)) (do-handlers-of-type type (fun (handler) (msg out "%d. %s.\n" i (describe-handler (handler-info handler) (handler-condition-type handler))) (push! applicable handler) (incf i))) applicable) ;;; Attempt to invoke the specified handler directly, bypassing any other ;;; handlers "in the way". (df invoke-handler-interactively (handler| in out => ) (def condition (build-condition-for-handler-interactively (handler-info handler) (handler-condition-type handler) in out)) (unless (handler-matches? handler condition) (error "Handler %= does not match condition %=" handler condition)) (rep search ((handlers *current-handlers*)) (if (nul? handlers) (error "Handler %= is not installed" handler) (let ((current (head handlers)) (remaining (tail handlers))) (if (== handler current) ((handler-function handler) condition (fun () (signal-handler-list condition remaining))) (search remaining)))))) ;;; Chose a handler matching 'type', and call it interactively. (df choose-handler (type|(t< ) in out => ) (def handlers (list-handlers type out)) (msg out "Please pick a handler: ") (def n (- (read in) 1)) (when (or (< n 0) (>= n (len handlers))) (error "No such handler %d" n)) (invoke-handler-interactively (elt handlers n) in out)) ;;; Enable some low-level restarts, now that it's safe to do so. (set *restarts-ok?* #t) (need-implementation read msg msg-to-str) (export list-handlers invoke-handler-interactively choose-handler sig error macro-error stack-overflow-error handler-function fab-handler handler-matches? *current-handlers* %with-monitor) goo-0.155/src/goo/eval.goo0100644000175000017500000000042307527273772014742 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use eval/top) ;;; This list of symbols should match those in goo/user. (export ;; Section 3.16: Top level. load eval top load-file do-stack-frames backtrace bt frame frame-var save-image $ $$ $$$) goo-0.155/src/goo/fun.goo0100644000175000017500000005164707611105276014604 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) ;;; Temporary, compile-time-only macros. These are used by this file only-- ;;; we never export them. The real definitions live in macros.goo. (dss unless (,test ,@body) `(if (@not ,test) (seq ,@body))) (dss when (,test ,@body) `(if ,test (seq ,@body))) (dss or (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(let ((tmp ,x)) (if tmp tmp (or ,@rest)))) #f)) (dss and (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(if ,x (and ,@rest) #f)) #t)) (df @fun-names (x| => ) (%fun-info-names (%gen-info x))) (df @fun-specs (x| => ) (%sig-specs (%gen-sig x))) (df @fun-nary? (x| => ) (%sig-nary? (%gen-sig x))) (df @fun-arity (x| => ) (%sig-arity (%gen-sig x))) (df @fun-val (x| => ) (%sig-val (%gen-sig x))) (df @fun-unification-vars (x| => ) (%sig-unification-vars (%gen-sig x))) (df @fun-mets (x| => ) (%gen-mets x)) (df @fun-mets-setter (z| x|) (set (%gen-mets x) z)) (dv ) (dv ) (dv ) (df fun-spec (x| i| => ) (@elt (@fun-specs x) i)) (dv ) (df fun-same-met? (x| y| => ) (@all2? @@== (@fun-specs x) (@fun-specs y))) (df fun-congruent? (x| y| => ) (and (@= (@fun-arity x) (@fun-arity y)) (@== (@fun-nary? x) (@fun-nary? y)) (@all2? @subtype? (@fun-specs x) (@fun-specs y)) (@subtype? (@fun-val x) (@fun-val y)))) ;;; Add a method to a generic function. Note that this function might ;;; *create* a new generic function, and add the method to that instead. ;;; Return the generic function to which the method was added. (df gen-add-met (g| m| => ) (set (%fun-cache g) #f) (if (not (fun-congruent? m g)) ;; Raise a method congruency error. If restarts have been set up, ;; install an appropriate restart handler. Note that we don't install ;; the handler until *after* the error for performance reasons. (if *restarts-ok?* (esc return (try ((type ) (description "Replace %= with an nul generic congruent with %=" g m)) (fun (c r) (return (gen-add-met (gen-from-met m) m))) (incongruent-method-error g m))) (incongruent-method-error g m)) ;; DEP TRACK MET/GEN IN ALL REAL SPECS -- USED FOR REDEFINITION (seq (rep lop ((specs (@fun-specs m))) (unless (@nul? specs) (def spec (@head specs)) ;; TODO: CHANGE TO REFLECT NEW SETUP -- DEP-CLASSES (unless (or (@singleton-spec? spec) (@== spec )) (def spec-class (%object-class spec)) (set (%class-gens spec-class) (@add-new (%class-gens spec-class) g)) (set (%class-mets spec-class) (@add-new (%class-mets spec-class) m)) (lop (@tail specs))))) ;; ACTUALLY PERFORM ADDITION KEEPING TRACK OF IT BEING A REPLACEMENT ;; OR NOT (rep col ((mets '()) (same? #f) ((gms ) (@fun-mets g))) (if (@nul? gms) (set (%gen-mets g) (@rev! (if same? mets (@add mets m)))) (let ((gm (@head gms)) (now-same? (fun-same-met? gm m))) (col (@add mets (if now-same? m gm)) (or now-same? same?) (@tail gms))))) g))) ;;; BACK TO TYPE PROTOCOL (df @class< (c1 c2 wrt => ) (rep find ((ps (%class-ancestors wrt))) (if (@nul? ps) (cpl-error "can't order specializers - arg/reference object %= is " "neither %= nor %=" wrt c1 c2) (let ((c (@head ps))) (if (@== c c1) #t (if (@== c c2) #f (find (@tail ps)))))))) (df @order-specs-class (t1 t2 arg) (if (@== t1 t2) (@tup '= t1) (if (@class< t1 t2 (%class-of arg)) (@tup '< t1) (@tup '> t2)))) (df @order-specs (t1 t2 arg) (if (and (@== (%class-of t1) ) (@== (%class-of t2) )) (@order-specs-class t1 t2 arg) (order-specs t1 t2 arg))) (df order-mets (m1| m2| args| => ) (def arity| (@fun-arity m1)) (rep loop ((state| '=) (idx| 0)) (if (@= idx arity) state (let ((m1spec (fun-spec m1 idx)) (m2spec (fun-spec m2 idx)) (cmp+typ| (@order-specs m1spec m2spec (@oelt args idx))) (cmp| (@telt cmp+typ 0)) (idx| (@+ idx 1))) (if (@== cmp '=) (loop state idx) (if (and (not (@== cmp '<>)) (or (@== state '=) (@== cmp state))) (loop cmp idx) '<>)))))) (df ord-app-mets-1 (mets| args| order-mets| => #/(tup ordered| ambig|)/#) (def ohead| (@pair #f '())) (def ahead| (@pair #f '())) (rep loop ((mets| mets)) (unless (@== mets '()) (def met| (@head mets)) (loc ((make-ambiguous ((headed-list )) (rep loop ((l| (@tail headed-list))) (or (@== l '()) (let ((t1 (@tail l))) (set (@tail l) (@tail ahead)) (set (@tail ahead) l) (loop t1)))) (set (@tail headed-list) '()) (set (@tail ahead) (@pair met (@tail ahead)))) (precedes-all? ((l )) (rep loop ((l| l)) (if (@== l '()) #t (if (@== (order-mets met (@head l) args) '<) (loop (@tail l)) #f)))) (check-subsequent-ambiguities ((oprev )) (if (or (not (precedes-all? (@tail oprev))) (not (precedes-all? (@tail ahead)))) (make-ambiguous oprev) (set (@tail oprev) (@pair met (@tail oprev))))) (insert ((oprev ) (osub )) (if (@nul? osub) (check-subsequent-ambiguities oprev) (let ((indic (order-mets met (@head osub) args))) (if (@== indic '<);; comes before current one. (check-subsequent-ambiguities oprev) (if (@== indic '>);; comes after, check further. (insert osub (@tail osub)) (make-ambiguous oprev))))))) (insert ohead (@tail ohead)) (loop (@tail mets))))) (@tup (@tail ohead) (@tail ahead))) (dv met-app-unify (fun (x y) #f)) (df met-app? (met| args| => ) (if (not (@nul? (@fun-unification-vars met))) (met-app-unify met args) (let ((n| (@fun-arity met))) (rep loop ((i| 0)) (if (@= i n) #t (if (@isa? (@oelt args i) (fun-spec met i)) (loop (@+ i 1)) #f)))))) (df ord-app-mets* (gf| args| => #/(tup ordered| ambig|)/#) (def considered-mets (rep col ((ans '()) (ms (@fun-mets gf))) (if (@nul? ms) ans (let ((m (@head ms)) (ans (if (met-app? m args) (@pair m ans) ans))) (col ans (@tail ms)))))) (ord-app-mets-1 considered-mets args order-mets)) (df ord-app-mets (gf| args|... => (tup ordered| ambig|)) (ord-app-mets* gf args)) ;; (df opt-args (n| args| => ) ;; (rep col ((i| 0) (l| '()) (p| args)) ;; (if (@= i n) ;; (if (@nul? l) ;; (@lst p) ;; (seq (set (@tail l) (@lst p)) args)) ;; (col (@+ i 1) p (@tail p))))) (df @gen-cache-arg-pos (x) (%gen-cache-arg-pos x)) (df @gen-cache-arg-pos-setter (z x) (set (%gen-cache-arg-pos x) z)) (df @gen-cache-singletons (x) (%gen-cache-singletons x)) (df @gen-cache-singletons-setter (z x) (set (%gen-cache-singletons x) z)) (df @gen-cache-classes (x) (%gen-cache-classes x)) (df @gen-cache-classes-setter (z x) (set (%gen-cache-classes x) z)) ;; GIVEN MET/GEN AND ARGS FIND PROP-OFFSET -- USING PROP IN MET ENV (df method-accessor-offset (gen| met| args|) (def prop (%met-env met)) ;; TODO: THIS NEEDS TO BE IMPROVED (def prop? (and prop (@== (%class-of prop) ))) (def n (@olen args)) (and prop? (if (@= n 1);; getter? (prop-offset (@oelt args 0) gen) (prop-offset (@oelt args 1) (%prop-getter prop))))) (df @singleton-spec? (x) (@class-isa? x )) (df @subclass-spec? (x) (@class-isa? x )) (df @union-spec? (x) (@class-isa? x )) (df @precise-spec? (x) (or (@singleton-spec? x) (@subclass-spec? x) (and (@union-spec? x) (@any? @precise-spec? (%union-elts x))))) (df @mets-unspecialized-at? (mets| pos| => ) (@all? (fun (met) (@= (fun-spec met pos) )) mets)) (df @prune-mets-by-type-at (mets| type| pos| => ) (@pick (fun (met) (@subtype? type (fun-spec met pos))) mets)) (df @mets-specs-at (mets| pos| => ) (@map (fun (met) (fun-spec met pos)) mets)) ;; TODO: GROVEL THROUGH UNIONS (df @mets-singletons-at (mets| pos| => ) (@pick (fun (spec) (@singleton-spec? spec)) (@mets-specs-at mets pos))) (df @mets-subclasses-at (mets| pos| => ) (@pick (fun (spec) (@subclass-spec? spec)) (@mets-specs-at mets pos))) (dv $nul-assocs %tnul) (df @cache-add (t| k v) (def olen (@tlen t)) (def res (%tup (%iu (@+ olen 2)) #f)) (rep copy ((i 0)) (unless (@= i olen) (set (@telt res i) (@telt t i)) (def i (@+ i 1)) (set (@telt res i) (@telt t i)) (copy (@+ i 1)))) (set (@telt res olen) k) (set (@telt res (@+ olen 1)) v) res) (df gen-lookup-miss-1-using (key instance all-assocs| all-assocs-setter| gen| cache mets| sorted-mets| i| args|) ;; (if (or (and cache (@< i (%gen-cache-arg-pos cache))) ;; (@mets-unspecialized-at? mets i)) ;; (gen-lookup-miss-1 gen cache mets sorted-mets (@+ i 1) args) (def cache (or cache (%gen-cache #t i $nul-assocs $nul-assocs (%raw 0)))) (def assocs (all-assocs cache)) (rep loop ((j 0)) (if (@= j (@tlen assocs)) ;; miss ;; could be a stale object (if (and (@== all-assocs @gen-cache-classes) (%class-forward key)) (seq (update-instance-for-changed-class instance) (set key (%class-of instance)) ; reset key to new class (loop (all-assocs cache))) ; restart search cause might hit (let ((val (gen-lookup-miss-1 gen #f mets sorted-mets (@+ i 1) args))) (set (all-assocs cache) (@cache-add assocs key val)))) (if (@== (@telt assocs j) key) (let ((v (@telt assocs (@+ j 1)))) (gen-lookup-miss-1 gen v mets sorted-mets (@+ i 1) args)) (loop (@+ j 2))))) cache) ;;; copy args with arg as i'th elt into a opts. (df @specd-args (args| i| arg| => ) (def v (%tup (%iu (@olen args)) #f)) (def r (%opts-tup (%lb (%prop-dat-at v (%tlen v))) (%ib (%tlen v)) v)) (rep copy ((k 0)) (if (@== (@olen args) k) r (seq (set (@oelt r k) (if (@== k i) arg (@oelt args k))) (copy (@+ k 1)))))) ;; does the specified position require singleton precision always? (df requires-singleton-prec (mets pos) (not (@nul? (@mets-subclasses-at mets pos)))) ;; TODO: SHOULD BE USING @MAY-ISA? ;; ;; (not (@nul? ;; (@pick ;; (fun (spec) ;; (not (or (@class-isa? spec ) ;; (and (@class-isa? spec ) ;; (or ;; (not (@class-isa? (%type-object spec) )) ;; (@class-isa? (%type-object spec) )))))) ;; (@mets-specs-at mets pos))))) (df ensure-singleton-cache (gen| cache mets| sorted-mets| i| args|) (or cache ;; prefill with singletons (if (requires-singleton-prec mets i) (%gen-cache #f i $nul-assocs $nul-assocs (%raw 0)) (let ((singletons (@mets-singletons-at mets i))) (if (@nul? singletons) #f ;; no prefilling needed and no cache supplied (let ((cache (%gen-cache #t i $nul-assocs $nul-assocs (%raw 0)))) (rep loop ((singletons singletons)) (if (@nul? singletons) cache (let ((sing (@head singletons)) (arg (%type-object sing)) (args (@specd-args args i arg)) (smets (choose-methods gen args)) (app-mets (@prune-mets-by-type-at mets sing i))) (gen-lookup-miss-1-using arg arg @gen-cache-singletons @gen-cache-singletons-setter gen cache mets smets i args) (loop (@tail singletons))))))))))) (df gen-lookup-miss-1 (gen| ocache mets| sorted-mets| i| args|) (if (@= i (@fun-arity gen)) (or (method-accessor-offset gen (@head sorted-mets) args) sorted-mets) (if (or (and ocache (@< i (%gen-cache-arg-pos ocache))) (@mets-unspecialized-at? mets i)) (gen-lookup-miss-1 gen ocache mets sorted-mets (@+ i 1) args) (let ((arg (@oelt args i)) (cache (ensure-singleton-cache gen ocache mets sorted-mets i args)) (sing? (@singleton-spec? (fun-spec (@head sorted-mets) i)))) (if (or (and sing? (@== ocache cache)) ;; sing args not seen? (and cache (not (%gen-cache-missable? cache)))) ;; force sng? (let ((mets (@prune-mets-by-type-at mets (%singleton arg) i))) (gen-lookup-miss-1-using arg arg @gen-cache-singletons @gen-cache-singletons-setter gen cache mets sorted-mets i args)) (if sing? ;; sing arg doesn't belong in this cache cache ;; already in cache by way of ensure-singleton-cache? (let ((class (%class-of arg)) (app-mets (@prune-mets-by-type-at mets class i))) (gen-lookup-miss-1-using class arg @gen-cache-classes @gen-cache-classes-setter gen cache app-mets sorted-mets i args)))))))) (df gen-lookup-miss (gen| args| => ) (def mets (choose-methods gen args)) ;; TODO: => (or ) (gen-lookup-miss-1 gen (%fun-cache gen) (%gen-mets gen) mets 0 args)) (dl (prop-value-at inline-c) (object offset| => ) (def val (%prop-elt object (%iu offset))) (if (@== val nul-prop) (let ((props (props-of object))) (set (%prop-elt object (%iu offset)) ((%prop-init (@elt props offset)) object))) val)) (dl prop-bound-at? (object offset| => ) (def val (%prop-elt object (%iu offset))) (if (@== val nul-prop) (let ((props (props-of object))) (not (@== (%prop-init (@elt props offset)) %prop-unbound-error))) #t)) (dl (prop-value-at-setter inline-c) (z object offset|) (set (%prop-elt object (%iu offset)) z)) (dl gen-lookup-1) ;; FORWARD DECL (dss or-set (,place ,value) `(or ,place (set ,place ,value))) ;; TODO: KEEP IN CHECK WITH GEN-LOOKUP-I THE INLINED BROTHER (dl (gen-lookup inline-c) (gen| args|) (gen-lookup-1 gen (or-set(%fun-cache gen) (gen-lookup-miss gen args)) args)) (dv $missed-dispatch (%pair nil nil)) ;; MAIN DISPATCH ARG STEP (FOR SINGLETONS AND CLASSES) RESULTING IN HIT OR MISS ;; HIT RETURNS ASSOCD VALUE AND REORDERS ASSOCS PUT KEY AT FRONT REFLECTIN FREQS ;; MISS ADDS KEYS (UNLESS MISSABLE) AND THEN RERUNS LOOKUP FROM BEGINNING (dl (gen-lookup-1-using inline-c) (key i len assocs| missable? gen| args|) (rep loop ((i i)) (if (%bb (%i= i len)) (if missable? $missed-dispatch (seq (set (%fun-cache gen) (gen-lookup-miss gen args)) (gen-lookup gen args))) ;; restart lookup (if (@== (%telt assocs i) key) (gen-lookup-1 gen (%telt assocs (%i+ i (%raw 1))) args) (loop (%i+ i (%raw 2))))))) ;; DISPATCH ARG STEP RUNNING BOTH SINGLETON AND CLASS DISPATCH ;; IF HIT THEN ;; IF LAST ARG THEN LEAF WITH INT MEANING PROP-OFFSET ELSE METHOD ;; ELSE RECURSE WITH NEXT ARG (dl (gen-lookup-1i inline-c) (gen| cache args|) (if (@== (%class-of cache) ) (let ((arg (@oelt args (%gen-cache-arg-pos cache))) (val (let ((assocs (%gen-cache-singletons cache))) ;; first look in singleton cache (gen-lookup-1-using arg (%raw 0) (%tlen assocs) assocs (%gen-cache-missable? cache) gen args)))) (if (@== val $missed-dispatch) (let ((assocs (%gen-cache-classes cache))) ;; otherwise look in class cache (gen-lookup-1-using (%class-of arg) (%raw 0) (%tlen assocs) assocs #f gen args)) val)) cache)) (dl gen-lookup-1 (gen| cache args|) (gen-lookup-1i gen cache args)) ;; TODO: CONDITIONS FOR THESE ERRORS (df choose-methods (gen| args| => ) (def ord-amb-mets (ord-app-mets* gen args)) (def sorted-mets (@telt ord-amb-mets 0)) (def ambiguous-mets (@telt ord-amb-mets 1)) ;; (if (@< 0 (@len ambiguous-mets)) ;; (error "Ambiguous Method Error when calling %= on %=" gen args) (if (@nul? sorted-mets) (no-applicable-methods-error gen args) sorted-mets)) ;; TODO: KEEP IN CHECK WITH GEN-LOOKUP (dl (gen-lookup-i inline-c) (gen| args|) (gen-lookup-1i gen (or-set(%fun-cache gen) (gen-lookup-miss gen args)) args)) ;; FIXME: note the horrible hack in g2c that makes it not generate ;; an UNLINK_STACK at the end of this function. ;; The way this works right now is not a long term solution. (df %dispatch (args|...) (let ((result (gen-lookup-i (%fun-reg) args))) (if (@int? result) (let ((res (if (@= (@olen args) 1) ;; getter? (prop-value-at (@oelt args 0) result) (set (prop-value-at (@oelt args 1) result) (@oelt args 0))))) (%unlink-stack) res) (%raw-met-call (%head result) (%tail result))))) ;; READY TO REPLACE EARLY DISPATCHER WITH REAL DISPATCHER IN EARLY GEN'S (%patch-early-generics) ;; SIG TRAMPOLINES THROUGH FUN'S (dss def-fun/sig-accessor (,name) `(seq (df ,(cat-sym "fun-" name) (x) (,(cat-sym "sig-" name) (fun-sig x))) (df ,(cat-sym "fun-" name "-setter") (z x) (set (,(cat-sym "sig-" name) (fun-sig x)) z)))) (def-fun/sig-accessor specs) (def-fun/sig-accessor nary?) (def-fun/sig-accessor arity) (def-fun/sig-accessor val) (def-fun/sig-accessor unification-vars) (dss def-fun/info-accessor (,name) `(seq (df ,(cat-sym "fun-" name) (x) (,(cat-sym "fun-info-" name) (fun-info x))) (df ,(cat-sym "fun-" name "-setter") (z x) (set (,(cat-sym "fun-info-" name) (fun-info x)) z)))) (def-fun/info-accessor name) (def-fun/info-accessor names) (def-fun/info-accessor src) (def-fun/info-accessor src-loc) (def-fun/info-accessor count) (def-fun/info-accessor inlineable?) ;; USED FROM INTERPRETER TO BUILD GEN'S (df fab-gen (specs| nary?| val| name names| => ) (def i (@new fun-info-name name fun-info-names names fun-info-count 0)) (def g (@new fun-sig (@new sig-specs specs sig-nary? nary? sig-arity (@len specs) sig-val val) fun-info i fun-mets '() fun-cache #f)) (set (%gen-code g) (%met-code %dispatch)) g) (df gen-from-met (x| => ) (def specs (@map (fun (x) ) (@fun-specs x))) (fab-gen specs (@fun-nary? x) (fun-name x) '())) ;; CALLED FROM COMPILER/INTERPRETER (df %define-method (gen met| => ) (gen-add-met (or gen (gen-from-met met)) met)) (export fun-arity fun-name fun-names fun-nary? fun-specs fun-count fun-count-setter fun-inlineable? fun-inlineable?-setter fun-val fun-src fun-src-loc gen-add-met met-app? ord-app-mets %define-method fab-gen fun-spec %dispatch @fun-mets prop-value-at prop-bound-at? prop-value-at-setter @class< @order-specs-class ) (export incongruent-method-error ;; Required for the incongruent-method-error restart. handler-info-message handler-info-arguments ) goo-0.155/src/goo/functional.goo0100644000175000017500000000153707542215073016147 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/app) (use goo/any) (use goo/log) (use goo/chr) (use goo/math) (dm identity (x) x) (dm compose (fx| fy| => ) (fun ((args ...)) (fx (app fy args)))) ;;FIXME: ;; the let is to work around compiler bug: ;; it doens't do extent analysis of restargs like it should. (dm rcurry (f| curried|... => ) (def savedcurried (as curried)) (fun ((args ...)) (app f (cat '() args savedcurried)))) (dm curry (f| curried|... => ) (def savedcurried (as curried)) (fun ((args ...)) (app f (cat '() savedcurried args)))) (dm always (x => ) (fun ((args ...)) x)) (dm zipped (x => ) (fun ((t )) (app x t))) (export identity compose rcurry curry always zipped) goo-0.155/src/goo/late-macros.goo0100644000175000017500000000443207611105276016211 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/any) (use goo/log) (use goo/chr) (use goo/math) (use goo/cols) (ds op (,f ,@args) (loc ((splice (y|) (map (fun (x) (if (== x '...) `(as _*) `(lst ,x))) y)) (rest-op? (x => ) (or (and (isa? x ) (any? rest-op? x)) (== x '...))) (walk-op (vars| x) (cond ((== x '_) (def var (cat-sym "_" (len vars))) (set (tail vars) (pair var (tail vars))) var) ((isa? x ) (def splice? (any? (fun (y) (== y '...)) x)) (def y (map (fun (y) (walk-op vars y)) x)) (if splice? `(app ,(head y) (cat! ,@(splice (tail y)))) y)) (#t x)))) (if (nul? args) (if (== f '_) `(fun (x) x) `(fun (x|...) ,f)) (let ((vars (pair #f '())) (expr (walk-op vars `(,f ,@args))) (args `(,@(rev! (tail vars)) ,@(if (rest-op? args) '(_*|...) '())))) `(fun ,args ,expr))))) (export op) ;;; MACRO SUPPORT (df match-nul-list (x| fail|) (if (empty? x) x (fail "Match Empty Failure of %=" x))) (df match-unquote (x| fail|) (if (nul? x) (fail "Match Failure Nul List on Unquote") (head x))) (df match-atom (x| pat fail|) (if (nul? x) (fail "Match Failure Nul List on %=" pat) (let ((exp (head x))) (if (== exp pat) (tail x) (fail "Match Failure of %= on %=" exp pat))))) (df match-sublist (x| fail|) (def x (head x)) (if (isa? x ) x (fail "Match Failure on Sub List on %=" x))) (dm cat-sym (x|... => ) (as (fold (fun (r e) (cat r (to-str e))) "" x))) (dv *gensym-counter* 1000) (dm gensym (=> ) (cat-sym "x-" (incf *gensym-counter*))) (dm fab-setter-name (x| => ) (cat-sym x "-setter")) (dm var-name (x|) x) (dm var-name (x|) (elt x 0)) (dm var-type (x|) ') (dm var-type (x|) (elt x 1)) (export match-nul-list match-unquote match-atom match-sublist cat-sym *gensym-counter* gensym fab-setter-name var-name var-type ) goo-0.155/src/goo/loc.goo0100644000175000017500000000124507745062570014565 0ustar vomjomvomjom(use goo/boot) (use goo/fun) (use goo/class) (use goo/types) ;; (dc ()) ;; (dp loc-dat ( => )) (df loc-val (x| => ) (%loc-val x)) (df loc-val-setter (z x| => ) (set (%loc-val x) z)) (export loc-val loc-val-setter) (dg as-c (x)) (dm as-c (x) x) (dm as-c (x|) (%iu x)) (dm as-c (x|) (%fu x)) (dm as-c (x|) (%cu x)) (dm as-c (x|) (%lu x)) (dm as-c (x|) (%su x)) (dg as-goo (t| x) x) (dm as-goo (t|(t< ) x) (%ib x)) (dm as-goo (t|(t< ) x) (%fb x)) (dm as-goo (t|(t< ) x) (%cb x)) (dm as-goo (t|(t< ) x) (%lb x)) (dm as-goo (t|(t< ) x) (%sb x)) (export as-c as-goo) goo-0.155/src/goo/log.goo0100644000175000017500000000116407542215073014562 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/mag) (use goo/types) (use goo/any) (exported ;; (dg == (x y => )) (dg = ( => )) (dg ~= ( => )) (dg ~== ( => )) (df as-log ( => )) ) (df as-log (x => ) (and x #t)) ;; TODO: DEAL WITH == (dm == (x y => ) (%bb (%eq? x y))) (dm = (x y => ) (== x y)) (dm ~= (x y => ) (not (= x y))) (dm ~== (x y => ) (not (== x y))) (dm to-str ((x (t= #t)) => ) "#t") (dm to-str ((x (t= #f)) => ) "#f") goo-0.155/src/goo/macros.goo0100644000175000017500000002366207611105276015274 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) ;; (ct (seq (dv fab-setter-name make-setter-name) (dv cat-sym make-sym))) ;; TODO: Fix next-method to do a normal call with a next-method instead of ;; apply, as apply is not necessary, and slow. (df @checked-next-methods (met nxt-mets args|...) (if nxt-mets (if (@== nxt-mets '()) (no-next-methods-error met args) nxt-mets) (no-next-methods-error met args))) (ds sup (,@args) `(let ((next-mets (@checked-next-methods (%fun-reg) (%next-methods) ,@args))) (napp (head next-mets) (tail next-mets) ,@args '()))) (ds app-sup (,@args) `(let ((next-mets (@checked-next-methods (%fun-reg) (%next-methods) ,@args))) (napp (head next-mets) (tail next-mets) ,@args))) (ds app (,f ,@args) `(napp ,f #f ,@args)) (ds renew (,x ,@prop-inits) (let ((var (gensym)) (sets (rep loop ((sets '()) (inits prop-inits)) (if (nul? inits) (rev! sets) (let ((val (head (tail inits)))) (loop (pair `(set (,(head inits) ,var) ,val) sets) (tail (tail inits)))))))) `(let ((,var ,x)) ,@sets ,var))) (ct-also ;; Lift subforms out of a place form. Return a series of gensym bindings ;; and a new place form which uses them instead of the original ;; expressions. This can be used to prevent multiple evaluation when ;; expanding incf, decf, and similar macros. For example: ;; '(foo x y z) => ;; (tup '((g1 x) (g2 y) (g3 z)) '(foo g1 g2 g3)) ;; 'bar => (tup '() 'bar) (df lift-place-subforms (place => (tup g-decls| g-place|)) (loc ((munch ((subforms ) => (tup g-decls| g-args|)) (if (nul? subforms) (tup '() '()) (let (((tup g-decls g-args) (munch (tail subforms))) (subform (head subforms))) (if (isa? subform ) (let ((g (gensym))) (tup (pair `(,g ,subform) g-decls) (pair g g-args))) (tup g-decls (pair subform g-args))))))) (if (isa? place ) (tup '() place) (let (((tup g-decls g-args) (munch (tail place)))) (tup g-decls `(,(head place) ,@g-args)))))) ) (ds incf (,place ,@amount) (let (((tup g-decls g-place) (lift-place-subforms place)) (amount (mif ((,amount) amount) amount 1))) `(let (,@g-decls) (set ,g-place (+ ,g-place ,amount))))) (ds decf (,place ,@amount) (let (((tup g-decls g-place) (lift-place-subforms place)) (amount (mif ((,amount) amount) amount 1))) `(let (,@g-decls) (set ,g-place (- ,g-place ,amount))))) (ds pushf (,place ,value) (let (((tup g-decls g-place) (lift-place-subforms place))) `(let (,@g-decls) (set ,g-place (push! ,g-place ,value))))) (ds swapf (,x ,y) (let (((tup xg-decls xg-place) (lift-place-subforms x)) ((tup yg-decls yg-place) (lift-place-subforms y)) (tmp (gensym))) `(let (,@xg-decls ,@yg-decls (,tmp ,xg-place)) (set ,xg-place ,yg-place) (set ,yg-place ,tmp)))) (ds rotf (,x ,y ,@zs) (let ((places `(,x ,y ,@zs)) (tmps (map (fun (x) (gensym)) places)) (ps (map lift-place-subforms places)) (decls (map 1st ps)) (places (map 2nd ps))) `(let (,@(app cat decls) ,@(map2 (fun (t p) `(,t ,p)) tmps places)) ,@(map2 (fun (p t) `(set ,p ,t)) places (tail tmps)) (set ,(last places) ,(1st tmps))))) (ds popf (,place) (let (((tup g-decls g-place) (lift-place-subforms place)) (new-col (gensym)) (val (gensym))) `(let (,@g-decls ((tup ,new-col ,val) (pop! ,g-place))) (set ,g-place ,new-col) ,val))) (ds opf (,place ,call) (let (((tup g-decls g-place) (lift-place-subforms place))) `(let (,@g-decls (_ ,g-place)) (set ,g-place ,call)))) (ds or/set (,place ,value) (let (((tup g-decls g-place) (lift-place-subforms place))) `(let (,@g-decls (_ ,g-place)) (or ,g-place (set ,g-place ,value))))) (ds unless (,test ,@body) `(if (not ,test) (seq ,@body))) (ds when (,test ,@body) `(if ,test (seq ,@body))) (ds or (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(let ((tmp ,x)) (if tmp tmp (or ,@rest)))) #f)) (ds and (,@rest) (mif ((,x ,@rest) rest) (mif (() rest) x `(if ,x (and ,@rest) #f)) #t)) (ds cond (,@cases) (if (nul? cases) #f (mif ((,cond ,@body) (head cases)) `(if ,cond (seq ,@body) (cond ,@(tail cases))) (syntax-error "bad case %=" (head cases))))) (ct-also (df do-case-by (val tst cases) (if (nul? cases) #f (mif ((,cond ,@body) (head cases)) (if (== cond #t) `(seq ,@body) (mif ((,@values) cond) `(if (or ,@(map (fun (x) `(,tst ,val ,x)) values)) (seq ,@body) ,(do-case-by val tst (tail cases))) (syntax-error "bad case %=" (head cases)))) (syntax-error "bad case %=" (head cases)))))) (ds case-by (,val ,tst ,@cases) (let ((val-var (gensym)) (tst-var (gensym))) `(let ((,val-var ,val) (,tst-var ,tst)) ,(do-case-by val-var tst-var cases)))) (ds case (,val ,@cases) `(case-by ,val == ,@cases)) (ds match (,exp ,@cases) (mif (() cases) `(syntax-error "failed to match.") (mif (((,pat ,@then) ,@rest) cases) (if (== pat #t) `(seq ,@then) (let ((var (gensym))) `(let ((,var ,exp)) (mif (,pat ,var) (seq ,@then) (match ,var ,@rest))))) (syntax-error "invalid match syntax.")))) (ds assert (,cond ,message ,@args) `(if (not ,cond) (assert-error ,message ,@args))) (ds for ((,@clauses) ,@body) (rep grok ((clauses clauses) (inits '()) (preds '()) (nows '()) (nexts '())) (if (nul? clauses) (let ((loop (gensym))) `(rep ,loop ,inits (unless (or ,@preds) (let ,nows ,@body (,loop ,@nexts))))) (let ((clause (head clauses))) (mif ((,var ,exp) clause) (let ((state (gensym))) (grok (tail clauses) (pair `(,state (enum ,exp)) inits) (pair `(fin? ,state) preds) (pair (mif ((tup ,key ,val) var) `((tup ,key ,val) (tup (now-key ,state) (now ,state))) `(,var (now ,state))) nows) (pair `(nxt ,state) nexts)))))))) (ds while (,test ,@body) `(rep _loop () (when ,test ,@body (_loop)))) (ds until (,test ,@body) `(rep _loop () (unless ,test ,@body (_loop)))) (ds dlet (,places ,@body) (match places (() `(seq ,@body)) (((,place ,value) ,@rest) (let (((tup g-decls g-place) (lift-place-subforms place)) (old-value (gensym))) `(let (,@g-decls (,old-value ,g-place)) (fin (seq (set ,g-place ,value) (dlet (,@rest) ,@body)) (set ,g-place ,old-value))))) (#t (syntax-error "Bad dlet places %=" places)))) (ds def-fun-var (,var ,value) (let ((nam (var-name var)) (typ (var-type var)) (vnam (cat-sym "*" nam "*"))) `(seq (dv ,vnam ,value) (dm ,nam (=> ,typ) ,vnam) (dm ,(fab-setter-name nam) ((z ,typ)) (set ,vnam z))))) (ds without-prop-unbound-errors (,@body) `(dlet ((*report-prop-unbound-errors?* #f)) ,@body)) ;; This macro allows you to declare "forward" references between modules. ;; It may or may not remain part of the language in the long run, but we ;; need it to modularize the existing code base. ;; TODO - Move this macro into boot.goo along with AND, OR, WHEN, UNLESS. (ds need-implementation (,@names) (if (nul? names) #f `(seq (and #f ,(head names)) (export ,(head names)) (need-implementation ,@(tail names))))) (ds pub (,@def) (let ((defs (match def ;; ((dp ,name ,@rest) ;; `(,def (export ,name) (export ,(fab-setter-name name)))) ((dp ,name ,@rest) `(,def (export ,name))) ((dp! ,name ,@rest) `(,def (export ,name) (export ,(fab-setter-name name)))) ((df ,name ,@rest) `(,name (export ,name))) ((dv ,name ,@rest) `(,def (export ,name))) ((d. ,name ,@rest) `(,def (export ,name))) ((dg ,name ,@rest) `(,def (export ,name))) ((dc ,name ,@rest) `(,def (export ,name))) ((,name) (if (isa? name ) `(,name (export ,name)) '()))))) `(seq ,@defs))) (ds exported (,@defs) `(seq ,@(map (fun (x) (def x (if (isa? x ) x (lst x))) `(pub ,@x)) defs))) ;;;;======================================================================= ;;;; Public API ;;;;======================================================================= ;;; These bindings are defined in the runtime module. (need-implementation == do rev! cat elt 1st 2nd last nul? error gensym fab-setter-name cat-sym map map2 match-atom match-nul-list match-sublist match-unquote pair tup var-name var-type napp macro-error) (export app sup app-sup renew incf decf pushf popf opf swapf rotf or/set unless when or and cond case case-by match assert for while until dlet def-fun-var need-implementation pub exported lift-place-subforms without-prop-unbound-errors ) (export ;; hygiene @checked-next-methods ) goo-0.155/src/goo/mag.goo0100644000175000017500000000130207546136731014546 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/macros) ;; (use goo/types) (exported ;; represents infinite repeating series (dg < (x| y| => )) (dg > (x| y| => )) (dg <= (x| y| => )) (dg >= (x| y| => )) (dg min (x| y| => )) (dg max (x| y| => ))) (dm > (x| y| => ) (< y x)) (dm (<= inline) (x| y| => ) (not (< y x))) (dm (>= inline) (x| y| => ) (not (< x y))) (dm (min inline) (x| y| => ) (if (< x y) x y)) (dm (max inline) (x| y| => ) (if (> x y) x y)) goo-0.155/src/goo/math.goo0100644000175000017500000002515607611105276014741 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/mag) (use goo/types) (use goo/any) (use goo/log) (use goo/%math.c) (exported (dg contagious-type ( => (t< ))) (dg contagious-call ( => )) (dg + ( => )) (dg - ( => )) (df 1+ ( => )) (df 1- ( => )) (dg * ( => )) (dg / ( => )) (dg sin ( => )) (dg cos ( => )) (dg tan ( => )) (dg sinh ( => )) (dg cosh ( => )) (dg tanh ( => )) (dg asin ( => )) (dg acos ( => )) (dg atan ( => )) (dg atan2 ( => )) (dg sqrt ( => )) (dg log ( => )) (dg logn ( => )) (dg floor ( => )) (dg ceil ( => )) (dg round ( => )) (dg round-to ( => )) (dg trunc ( => )) (dg floor/ (real| divisor| => (tup x| rem|))) (dg ceil/ (real| divisor| => (tup x| rem|))) (dg round/ (real| divisor| => (tup x| rem|))) (dg trunc/ (real| divisor| => (tup x| rem|))) (dg div ( => )) (dg mod ( => )) (dg mod+ ( => )) (dg mod- ( => )) modincf moddecf (dg rem ( => )) (dg pow ( => )) (dg exp ( => )) (dg pos? ( => )) (dg zero? ( => )) (dg neg? ( => )) (dg neg ( => )) (dg abs ( => )) (dg #| ( => )) (dg ^ ( => )) (dg & ( => )) (dg ~ ( => )) (dg bit? ( => )) (dg >> ( => )) (dg even? ( => )) (dg odd? ( => )) (dg >>> ( => )) (dg << ( => )) (dg isqrt ( => )) (dg power-of-two-ceil ( => )) (dg flo-bits ( => )) $pi $e ) (dm contagious-call (f| x| y| => ) (def type (contagious-type x y)) (f (as type x) (as type y))) (dm = (x| y| => ) (contagious-call == x y)) (dm < (x| y| => ) (contagious-call < x y)) (dm + (x| y| => ) (contagious-call + x y)) (df (1+ inline) (x| => ) (+ x 1)) (dm - (x| y| => ) (contagious-call - x y)) (df (1- inline) (x| => ) (- x 1)) (dm * (x| y| => ) (contagious-call * x y)) (dm / (x| y| => ) (contagious-call / x y)) (dm atan2 (y| x| => ) (contagious-call atan2 y x)) (dm logn (x| b| => ) (contagious-call logn x b)) (dm floor (x| => ) (elt (contagious-call floor/ x 1) 0)) (dm ceil (x| => ) (elt (contagious-call ceil/ x 1) 0)) (dm round (x| => ) (elt (contagious-call round/ x 1) 0)) (dm round-to (x| n| => ) (if (= n 0) (round x) (let ((f (pow 10.0 n))) (x (/ (round (* x f)) f))))) (dm trunc (x| => ) (elt (contagious-call trunc/ x 1) 0)) (dm floor/ (real| divisor| => (tup x| rem|)) (def (tup (integer ) (remainder )) (trunc/ real divisor)) (if (and (not (zero? remainder)) (if (neg? divisor) (pos? real) (neg? real))) (tup (- integer 1) (+ remainder divisor)) (tup integer remainder))) (dm ceil/ (real| divisor| => (tup x| rem|)) (def (tup (integer ) (remainder )) (trunc/ real divisor)) (if (and (not (zero? remainder)) (if (neg? divisor) (neg? real) (pos? real))) (tup (+ integer 1) (- remainder divisor)) (tup integer remainder))) (dm round/ (real| divisor| => (tup x| rem|)) (def (tup (integer ) (remainder )) (trunc/ real divisor)) (def threshold| (/ (abs divisor) 2.0)) (if (or (> remainder threshold) (and (= remainder threshold) (odd? integer))) (if (neg? divisor) (tup (- integer 1) (+ remainder divisor)) (tup (+ integer 1) (- remainder divisor))) (if (let ((minus-threshold (neg threshold))) (or (< remainder minus-threshold) (and (= remainder minus-threshold) (odd? integer)))) (if (neg? divisor) (tup (+ integer 1) (- remainder divisor)) (tup (- integer 1) (+ remainder divisor))) (tup integer remainder)))) (dm trunc/ (real| divisor| => (tup x| rem|)) (contagious-call trunc/ real divisor)) (dm div (x| y| => ) (%telt (trunc/ x y) (%iu 0))) (dm mod (real| divisor| => ) (def (tup _ (remainder )) (floor/ real divisor)) remainder) (dm (mod+ inline) (i| j| n| => ) (mod (+ i j) n)) (dm (mod- inline) (i| j| n| => ) (mod (- i j) n)) (ds modincf (,place ,max) `(opf ,place (mod+ _ 1 ,max))) (ds moddecf (,place ,max) `(opf ,place (mod- _ 1 ,max))) (dm rem (real| divisor| => ) (def (tup _ (remainder )) (trunc/ real divisor)) remainder) (dm pow (base| n| => ) (contagious-call pow base n)) (dm (exp inline) (n| => ) (pow $e n)) (dm (pos? inline) (x| => ) (> x 0)) (dm (zero? inline) (x| => ) (= x 0)) (dm (neg? inline) (x| => ) (< x 0)) (dm (neg inline) (x| => ) (- 0 x)) (dm (abs inline) (x| => ) (if (neg? x) (neg x) x)) (dm to-str (x| => ) (num-to-str x)) ;;; (dm contagious-type (x| y| => (t< )) ) (dm contagious-type (x| y| => (t= )) ) (dm contagious-type (x| y| => (t= )) ) (dm contagious-type (x| y| => (t= )) ) (dm (== inline) (x| y| => ) (%bb (%i= (%iu x) (%iu y)))) (dm (< inline) (x| y| => ) (%bb (%i< (%iu x) (%iu y)))) (dm (+ inline) (x| y| => ) (%ib (%i+ (%iu x) (%iu y)))) (dm (- inline) (x| y| => ) (%ib (%i- (%iu x) (%iu y)))) (dm (* inline) (x| y| => ) (%ib (%i* (%iu x) (%iu y)))) (dm (/ inline) (x| y| => ) (arithmetic-error "No int divide, consider trunc/")) (dm (floor inline) (x| => ) x) (dm (ceil inline) (x| => ) x) (dm (round inline) (x| => ) x) (dm (trunc inline) (x| => ) x) (dm trunc/ (x| y| => (tup quo| rem|)) (def result (%ib (%it/ (%iu x) (%iu y)))) (tup result (- x (* result y)))) (dm mod (x| y| => ) (def res (%ib (%im (%iu x) (%iu y)))) (if (< res 0) (if (> y 0) (+ res y) (- res y)) res)) (dm pow (x| n| => ) (cond ((neg? n) (/ 1 (pow x (neg n)))) ((= x 2) (<< 1 n)) ((neg? x) (if (odd? n) (neg (pow (neg x) n)) (pow (neg x) n))) (#t (rep loop ((x| (if (> n 1) (* x x) x)) (p| (>> n 1)) (y| (if (odd? n) x 1))) (if (zero? p) y (loop (if (> p 1) (* x x) x) (>> p 1) (if (odd? p) (* x y) y))))))) (dm (#| inline) (x| y| => ) (%ib (%iv (%iu x) (%iu y)))) (dm (^ inline) (x| y| => ) (%ib (%i^ (%iu x) (%iu y)))) (dm (& inline) (x| y| => ) (%ib (%i& (%iu x) (%iu y)))) (dm (~ inline) (x| => ) (%ib (%i! (%iu x)))) (dm (bit? inline) (o| x| => ) (%bb (%i? (%iu o) (%iu x)))) (dm (even? inline) (x| => ) (zero? (& x 1))) (dm (odd? inline) (x| => ) (not (even? x))) (dm (>> inline) (x| a| => ) (%ib (%i>> (%iu x) (%iu a)))) (dm (>>> inline) (x| a| => ) (%ib (%i>>> (%iu x) (%iu a)))) (dm (<< inline) (x| a| => ) (%ib (%i<< (%iu x) (%iu a)))) (dm power-of-two-ceil (x| => ) (rep search ((po2| 1)) (if (> po2 x) po2 (search (+ po2 po2))))) ;;; FLO (dl %fi2f) (dl %f=) (dl %f<) (dl %f+) (dl %f*) (dl %f-) (dl %f/) (dl %ft) (dl %ft/) (dl %ff) (dl %fc) (dl %flo-bits) (dl %fpow) (dl %flog) (dl %fsqrt) (dl %fsin) (dl %fcos) (dl %ftan) (dl %fasin) (dl %facos) (dl %fatan) (dl %fatan2) (dl %fsinh) (dl %fcosh) (dl %ftanh) (df flo-bits (x| => ) (%ib (%flo-bits (%fu x)))) (dm as ((_ (t= )) x| => ) (%fb (%fi2f (%iu x)))) (dm (== inline) (x| y| => ) (%bb (%f= (%fu x) (%fu y)))) (dm (< inline) (x| y| => ) (%bb (%f< (%fu x) (%fu y)))) (dm (+ inline) (x| y| => ) (%fb (%f+ (%fu x) (%fu y)))) (dm (- inline) (x| y| => ) (%fb (%f- (%fu x) (%fu y)))) (dm (* inline) (x| y| => ) (%fb (%f* (%fu x) (%fu y)))) (dm (/ inline) (x| y| => ) (%fb (%f/ (%fu x) (%fu y)))) (dm trunc/ (x| y| => (tup z| rem|)) (def divided (/ x y)) (def result (%ib (%ft (%fu divided)))) (tup result (* y (- divided (as result))))) (dm pow (x| n| => ) (def res (%fb (%fpow (%fu (abs x)) (%fu n)))) (if (and (neg? x) (odd? n)) (neg res) res)) (dv $pi 3.14159265) (dv $e 2.71828182) (dm isqrt (x| => ) (round (sqrt (as x)))) ;; (ct (dv cat-sym make-sym)) (ds def-unary-trans (,name (,param) ,@prefix) (let ((%fp (cat-sym "%f" name))) `(seq (dg ,name ((,param ) => )) (dm ,name ((,param ) => ) ,@prefix (,name (as ,param))) (dm ,name ((,param ) => ) ,@prefix (%fb (,%fp (%fu ,param))))))) (def-unary-trans sqrt (x) (when (neg? x) (arithmetic-error "SQRT would produce complex number"))) (def-unary-trans log (x)) (def-unary-trans sin (x)) (def-unary-trans cos (x)) (def-unary-trans tan (x)) (def-unary-trans sinh (x)) (def-unary-trans cosh (x)) (def-unary-trans tanh (x)) (def-unary-trans asin (x) (when (neg? x) (arithmetic-error "SQRT would produce complex number"))) (def-unary-trans acos (x) (when (neg? x) (arithmetic-error "SQRT would produce complex number"))) (def-unary-trans atan (x)) (dg atan2 (y| x| => )) (dm atan2 (y| x| => ) (%fb (%fatan2 (%fu y) (%fu x)))) (dm atan2 (y| x| => ) (%fb (%fatan2 (%fu y) (%fu x)))) (dm logn (x| b| => ) (/ (log x) (log b))) ;; from strings.goo (need-implementation num-to-str) goo-0.155/src/goo/packer.goo0100644000175000017500000000356207611105276015252 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/math) (use goo/cols/col) (use goo/cols/seq) (exported (dc ()) (dg packer (init add| res| => )) (dg packer-fab (t| => )) (dg packer-add (a| x => )) (dg packer-res (a| => )) packing-with packing-in packing packing-as pack-in pack packed) (dc ()) (dp! packer-value ( => )) (dp packer-adder ( => )) (dp packer-reser ( => ) (fun (x) x)) (dm packer (init add| res| => ) (new packer-value init packer-adder add packer-reser res)) (dm packer-add (a| x => ) (renew a packer-value ((packer-adder a) x (packer-value a)))) (dm packer-res (a| => ) ((packer-reser a) (packer-value a))) (dm packer-fab (t|(t< ) => ) (packer '() pair (fun (x) (as t (rev! x))))) (dm packer-fab (t|(t< ) => ) (packer 0 + (fun (x) x))) (ds packing-with ((,@decls) ,@body) (match decls (() `(seq ,@body)) (((,var ,pack) ,@rest) `(let ((,var ,pack)) (packing-with (,@rest) ,@body))))) (ds packing-in ((,@vars) ,@body) (match vars (() `(seq ,@body)) (((,name ,type) ,@rest) `(packing-with ((,name (packer-fab ,type))) (packing-in (,@rest) ,@body))) ((,name ,@rest) `(packing-in ((,name ) ,@rest) ,@body)))) (ds packing (,@body) `(packing-in ((packer- )) (seq ,@body (packed packer-)))) (ds packing-as (,type ,@body) `(packing-in ((packer- ,type)) (seq ,@body (packed packer-)))) (ds pack-in (,pack ,value) `(opf ,pack (packer-add _ ,value))) (ds pack (,value) `(pack-in packer- ,value)) (ds packed (,name) `(packer-res ,name)) goo-0.155/src/goo/random.goo0100755000175000017500000000505307545222757015277 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;; Originally by Kevin Mitchell and Seth LaForge ;;;; A 29-bit parallel LFSR seeded by simple LCG, based on Sedgewick. (use goo) (use goo/boot) (use goo/system) (df default-random-seed (=> ) (time)) (dv $recent-size 54) (dc ()) (dp! recent ( => ) (fill (fab $recent-size) 0)) (dp! recent-index ( => ) 0) ;; 16 bits (almost) of lame-o pseudo-randomness ;; Taken from Table 16.1, Applied Cryptography 2nd ed. (df lcg-rand (prev| => ) (mod (+ (* prev 171) 11213) 53125)) (dm fab-random-from (seed| => ) (def r (new )) (def a (recent r)) ;; Ensure that there's at least one 1 in each LFSR: (set (elt a 0) $max-int) (rep loop ((j 1) (prev (mod (abs seed) 32768))) (when (< j $recent-size) (def v1 (lcg-rand prev)) (def v2 (lcg-rand v1)) ;; Fill a[j] with 29 random bits as LFSR seed. (set (elt a j) (+ (mod v1 32768) (* (mod v2 16384) 32768))) (loop (+ j 1) v2))) ;; Make sure the history is full of our stuff to deal with bad seed: (for ((j (range 0 <= (* 4 $recent-size)))) (random-29 r)) r) (dm fab-random (=> ) (fab-random-from (default-random-seed))) (df random-29 (r| => ) (def ri| (mod (+ (recent-index r) 1) $recent-size)) (def a (recent r)) (set (recent-index r) ri) (loc ((tap ((bit ) => ) (elt a (mod (+ ri (- $recent-size bit)) $recent-size)))) ;; We're using primitive polynomial x^54 + x^8 + x^6 + x^3 + x^0, ;; so we tap bits 54, 8, 6, and 3. Bits in recent are ;; stored in reverse order, so the index of bit n is ;; (ri - n) % 54 = (ri + (54 - n)) % 54. (set (elt a ri) (^ (^ (tap 54) (tap 8)) (^ (tap 6) (tap 3)))))) (dv $default-random (fab-random)) (dm random (range| => ) (random-using range $default-random)) (dm random-using (range| r| => ) (if (= range 0) 0 (let ((M $max-int) (limit (- M (mod (+ (- M range) 1) range)))) (loc ((find-good-value (=> ) (def value (random-29 r)) (if (<= value limit) value (find-good-value)))) (mod (find-good-value) range))))) (dm random-unit (=> ) (random-unit-using $default-random)) (dm random-unit-using (r| => ) (def max 1000000) (/ (as (random-using (+ max 1) r)) (as max))) (export fab-random random random-using random-unit random-unit-using) goo-0.155/src/goo/runtime.goo0100644000175000017500000000071707537733206015476 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/math) (use goo/types) (use goo/app) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/seqx) (use goo/cols/opts) (use goo/cols/lst) (use goo/cols/tup) (use goo/cols/vec) (use goo/cols/tab) ;;; APPLICATION INPUT ;; TODO: TEMPORARY EXPORTS (export napp loc-val loc-val-setter app-filename app-args ) goo-0.155/src/goo/sym.goo0100644000175000017500000000133507542215073014611 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/math) (use goo/types) (use goo/app) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/seqx) (use goo/cols/opts) (use goo/cols/lst) (use goo/cols/tup) (use goo/cols/vec) (use goo/cols/tab) (dv symbols (fab 10000)) (df booted-fab-sym (name) (or (elt-or symbols name #f) (set (elt symbols name) (new sym-name name)))) (df boot-symbols () (rep boot ((syms %symbols)) (unless (nul? syms) (def sym (head syms)) (set (elt symbols (sym-name sym)) sym) (boot (tail syms))))) (boot-symbols) (set fab-sym booted-fab-sym) (export sym-name) goo-0.155/src/goo/system.goo0100644000175000017500000003055107542215073015327 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;;;====================================================================== ;;;; System Interface ;;;;====================================================================== ;;;; Basic routines for manipulating the operating system and file ;;;; system. For inspiration as to what should go in here, consider the ;;;; Dylan 'system' library or the less complicated parts of Common ;;;; LISP. (use goo) (use goo/cols/str) (use goo/boot) ; Need filesystem primitives. (use goo/io/port) ; File-copy (use goo/%system.c) ;;;;======================================================================= ;;;; Time Interface ;;;;======================================================================= (dl %time) (df time () (%ib (%time))) (export time) ;;;;======================================================================= ;;;; Operating System Interface ;;;;======================================================================= (dl %os-name) (dl %os-val) (dl %os-val-setter) ;;; Return the name of the operating system in use. (dm os-name (=> ) (%sb (%os-name))) ;;; Get the value of an environment variable, or the local equivalent. (dm os-val (s| => ) (%sb (%os-val (%su s)))) ;;; Set the value of an environment variable, or the local equivalent. (dm os-val-setter (v| s| => ) (set (%os-val (%su s)) (%su v)) v) (export os-name os-val os-val-setter) ;;;;======================================================================= ;;;; Process Support ;;;;======================================================================= (dl %pid) (dm process-id () (%ib (%pid))) (export process-id) ;;;;======================================================================= ;;;; Basic Filename Support ;;;;======================================================================= ;;;; This is a really whimpy, simple cousin of Common LISP's pathnames ;;;; and Dylan's locators. (dv *path-separator* (cond ((= (os-name) "linux") "/") ((= (os-name) "win32") "\\") (#t "/"))) (dm base-path (filename| => ) (rep loop ((i (- (len filename) 1))) (if (< i 0) "" (if (= (elt filename i) (elt *path-separator* 0)) (sub filename 0 (+ i 1)) (loop (- i 1)))))) ;;; should be using pathname functions below (dm fab-path (dirs|... => ) (join dirs *path-separator*)) (dl %default-goo-root) (dv *goo-root* (let ((env-root (os-val "GOO_ROOT"))) (if (nul? env-root) (%sb (%default-goo-root)) env-root))) (dv *goo-personal-root* (fab-path (os-val "HOME") ".goo")) (dv *module-search-path* (lst "" ; absolute path (fab-path *goo-personal-root* "mods") (fab-path *goo-root* "local" "mods") (fab-path *goo-root* "mods"))) (dv *goo-build-root* (let ((env-root (os-val "GOO_BUILD_ROOT"))) (if (nul? env-root) "." env-root))) (dm add-src-path (relpath => ) (fab-path *goo-build-root* "src" relpath)) (dm add-goo-root-path (relpath => ) (fab-path *goo-root* relpath)) (dm add-goo-personal-root-path (relpath => ) (fab-path *goo-personal-root* relpath)) ;; TODO: GET THIS RIGHT ON WIN32 (dm add-tmp-path (relpath => ) (fab-path "" "tmp" relpath)) (dm add-build-path (builddir relpath => ) (fab-path *goo-build-root* "c" builddir relpath)) (dv *goo-extension* ".goo") (dv *gooc-extension* ".gooc") (dv *c-extension* ".c") (dv *obj-extension* ".o") (dv *exe-extension* "") (df goo-filename? (name| => ) (suffix? name *goo-extension*)) (df goo-filename (name| => ) (if (goo-filename? name) name (cat name *goo-extension*))) (df gooc-filename? (name| => ) (suffix? name *gooc-extension*)) (df gooc-filename (name| => ) (if (gooc-filename? name) name (cat name *gooc-extension*))) (df c-filename (name| => ) (cat name *c-extension*)) (df obj-filename (name| => ) (cat name *obj-extension*)) (df exe-filename (name| => ) (cat name *exe-extension*)) (export *path-separator* *goo-root* *goo-personal-root* *module-search-path* *goo-build-root* add-src-path add-build-path add-tmp-path add-goo-root-path add-goo-personal-root-path *goo-extension* *c-extension* *obj-extension* *exe-extension* c-filename goo-filename gooc-filename exe-filename obj-filename ) ;;;;======================================================================= ;;;; Low-level Filesystem Functions ;;;;======================================================================= ;;;; These functions all rely on C primitives in prt.c. (dl %file-mtime) (dl %file-type) (dl %file-exists?) ;;; Return the last modification time of a file in seconds (relative to the ;;; Goo epoch) as a floating point number. (dm file-mtime (filename| => ) (%fb (%file-mtime (%su filename)))) ;;; Return true if and only if a file (or a directory, etc.) exists with ;;; the given name. (df file-exists? (filename| => ) (%file-exists? (%su filename))) ;;; Return 'file, 'directory or some other symbol, depending on the type ;;; of the file. (df file-type (filename| => ) (%file-type (%su filename))) ;;; Create a directory with the given name. The parent directory must ;;; already exist, and must contain no item with the given name. (dl %create-directory) (df create-directory (filename|) (%create-directory (%su filename))) (dm file-copy (src| dst|) (with-port (src-port (open src)) (with-port (dst-port (open dst)) (rep loop () (let ((c (get src-port))) (unless (eof-object? c) (put dst-port c) (loop))))))) (dl %compile) (dl %load) (df so-load (name) (%load (%su name))) (export file-mtime file-exists? file-type file-copy create-directory so-load %load %compile ) ;;;;======================================================================= ;;;; Pathname Component Functions ;;;;======================================================================= ;;;; Slightly *less* whimpy versions of Common LISP pathnames and ;;;; Dylan locators. These allow you to work with hierarchical, ;;;; structured pathnames in a reasonably portable fashion. ;;; Given a pathname, split it into a list of individual directories, etc. ;;; Three special values are returned as symbols: ;;; root -> This path starts in the root directory ;;; up -> Go up a directory ;;; current -> Remain in the current directory ;;; Volume labels, drive letters, and other non-path information should ;;; be stored in a single tagged list at the head. For example: ;;; C:\a\c.txt -> ((drive "C:") root "a" "c.txt") ;;; ;;; Note that the hierarchical portion of this pathname (everything but the ;;; label) must be non-nul at all times. ;;; ;;; Please port this code to other platforms as needed. ;;; TODO - Unix version should handle '//' in the middle of pathnames ;;; by reducing it to a single slash, as does the kernel. (dc ()) (df pathname-error (msg| args|...) (sig (new condition-message msg condition-arguments (as args)))) (df pathname-to-components (pathname| => ) (when (nul? pathname) (pathname-error "Can't convert nul an pathname to components.")) (when (== (last pathname) (elt *path-separator* 0)) (set pathname (sub pathname 0 (- (len pathname) 1)))) (map (fun (component) (cond ((= component "") 'root) ((= component "..") 'up) ((= component ".") 'current) (#t component))) (split pathname (elt *path-separator* 0)))) ;;; Reassemble components created by the above function. (df components-to-pathname (components| => ) (when (nul? components) (pathname-error "Can't convert nul components to a pathname.")) (join (map (fun (component) (cond ((== component 'root) "") ((== component 'up) "..") ((== component 'current) ".") (#t component))) components) *path-separator*)) ;;; Get any leading directory label. (df label-components (components| => ) (if (isa? (head components) ) (lst (head components)) '())) ;;; Get rid of any leading directory label, etc. (df hierarchical-components (components| => ) (def result (if (isa? (head components) ) (tail components) components)) (when (nul? result) (pathname-error "Hierarchical portion of %= must not be nul." components)) result) ;;; Return the last item in a list of components. (df components-last (components| => ) (def last (elt components (- (len components) 1))) (when (isa? last ) (pathname-error "No filename in %=." components)) last) ;;; Return all but the last item of a bunch of components. ;;; Do some magic to handle cases like 'foo.txt' => './' ;;; If you call this function enough times, you are eventually ;;; guaranteed to get components list ending in root, up or current. ;;; Requires the last item to be a string. (df components-basename (components| => ) (def label (label-components components)) (def hier (hierarchical-components components)) (def count (len hier)) (def last (components-last hier)) (unless (isa? last ) (pathname-error "Can't compute basename of %=." components)) (if (== count 1) (cat label '(current)) (cat label (sub hier 0 (- count 1))))) ;;; Calculate the parent directory of a pathname. (df components-parent-directory (components| => ) (def last (components-last components)) (cond ((isa? last ) (components-basename components)) ((== last 'root) (pathname-error "Can't calculate parent of root directory.")) (#t (cat components '(up))))) (export pathname-to-components components-to-pathname label-components hierarchical-components components-last components-basename components-parent-directory) ;;;;======================================================================= ;;;; High-level Functions ;;;;======================================================================= ;;;; These operate directly on filenames. ;;; Find the parent directory of the current filename. (df parent-directory (name| => ) (def components (pathname-to-components name)) (components-to-pathname (components-parent-directory components))) (dc ( )) (df directory-error (msg| name|) (sig (new file-opening-error-filename name condition-message msg condition-arguments (lst name)))) ;;; Make sure that the named directory exists. (df probe-directory (name|) (def components (pathname-to-components name)) (def label (label-components components)) (def hier (hierarchical-components components)) (rep ensure ((c hier)) (def n (components-to-pathname (cat label c))) (cond ((file-exists? n) (unless (== (file-type n) 'directory) (directory-error "%s is not a directory.\n" n))) ((isa? (components-last c) ) (ensure (components-basename c)) (create-directory n)) (#t (directory-error "Don't know how to create the directory %s.\n" n)))) #f) (export parent-directory probe-directory) (df find-goo-file-at (fname| path| => (t? )) (def base-file (fab-path path fname)) (def goo-file (goo-filename base-file)) (def gooc-file (gooc-filename base-file)) (def goo-found (file-exists? goo-file)) (def gooc-found (file-exists? gooc-file)) (cond ((and (goo-filename? base-file) goo-found) goo-file) ((and (gooc-filename? base-file) gooc-found) gooc-file) ((and goo-found gooc-found) (if (> (file-mtime goo-file) (file-mtime gooc-file)) goo-file gooc-file)) (gooc-found gooc-file) (goo-found goo-file) (#t #f))) (df find-goo-file-in-path (fname| search-paths| => (t? )) (esc return (for ((path search-paths)) (def file (find-goo-file-at fname path)) (when file (return file))) #f)) (export find-goo-file-at find-goo-file-in-path) goo-0.155/src/goo/types.goo0100644000175000017500000001557507542215073015160 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) ;;; TYPE PROTOCOL (exported ;; 3.9 TYPES ;; (dc ()) isa? ;; (dg isa? (x| t| => )) subtype? ;; (dg subtype? (t1| t2| => )) ;; 3.9.1 SINGLETONS ;; (dc ()) type-object ;; (dg type-object (x| => )) (df t= (x)) ;; 3.9.2 SUBCLASS ;; (dc ()) type-class ;; (dg type-class (x| => )) (df t< (x)) ;; 3.9.3 UNION ;; (dc ()) union-elts ;; (dp union-elts (x| => )) (df t+ (args|...)) ;; 3.9.3 PRODUCT ;; (dc ()) product-elts ;; (dp product-elts ( => )) t* ;; (df t* (args|...)) ;; 3.9.4 CLASSES ;; (dc ()) class-name ;; (dg class-name (x| => )) class-parents ;; (dg class-parents (x| => )) class-ancestors ;; (dg class-ancestors (x| => )) class-direct-props ;; (dg class-direct-props (x| => )) class-props ;; (dg class-props (x| => )) class-children ;; (dg class-children (x| => )) (df t? (x)) ;;; BOTTOM (dc ()) $bot ) ;; FIXME: should union-elts really be instead of and also ;; fix compiler to automatically copy optionals. (df t+ (args|...) (new union-elts (@opts-as-lst args))) (df t= (x) (new type-object x)) (df t< (x) (new type-class x)) (df t? (x) (t+ x (t= #f))) (need-implementation as len 2nd any? all2?) (dv $bot (new )) ;;; TYPE PROTOCOL ;;; SUBTYPE? (dg subtype? (t1| t2| => )) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) #t) (dm subtype? (t1| t2| => ) #t) (dm subtype? (t1| t2| => ) #t) (dm subtype? (t1| t2| => ) (@all? (fun (t) (@subtype? t t2)) (%union-elts t1))) (dm subtype? (t1| t2| => ) (@any? (fun (t) (@subtype? t1 t)) (%union-elts t2))) ;; disambiguate the case where there are two unions. (dm subtype? (t1| t2| => ) (@all? (fun (t) (@subtype? t t2)) (%union-elts t1))) (dm subtype? (t1| t2| => ) (@subclass? t1 t2)) (dm subtype? (t1| t2| => ) (@isa? (%type-object t1) t2)) (dm subtype? (t1| t2| => ) (@subclass? t2)) ; ???????? (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) (@singleton-isa? (%type-object t1) t2)) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) (and (@== t1 ) (@== (%type-class t2) ))) (dm subtype? (t1| t2| => ) (@subclass? (%type-class t1) (%type-class t2))) (dm subtype? (t1| t2| => ) (and (@isa? (%type-object t1) ) (@subclass? (%type-object t1) (%type-class t2)))) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) #f) (dm subtype? (t1| t2| => ) (def te*1 (%product-elts t1)) (def te*2 (%product-elts t2)) (and (@== (@tlen te*1) (@tlen te*2)) (@tall2? subtype? te*1 te*2))) (dm subtype? (t1| t2| => ) (subtype? t2)) ;;; ISA? (dg isa? (x t| => )) (dm isa? (o t| => ) (@class-isa? o t)) (dm isa? (o t| => ) (@singleton-isa? o t)) (dm isa? (o t| => ) (and (@isa? o ) (@subclass? o (%type-class t)))) (dm isa? (o u| => ) (@any? (fun (t) (@isa? o t)) (%union-elts u))) (dm isa? (o t| => ) (def te* (%product-elts t)) (and (isa? o ) (@== (@tlen o) (@tlen te*)) (@tall2? isa? o te*))) ;;; ORDER-SPECS (dg order-specs (t1| t2| arg| => (tup order| canonical-type|))) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (@tup '= t1)) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (@tup '< t1)) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (def c1 (%type-class t1)) (def c2 (%type-class t2)) (cond ((@== c1 c2) (@tup '= t1)) ((@class< c1 c2 arg) (@tup '< t1)) (#t (@tup '> t2)))) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (@tup (if (@subtype? t2) ;; TODO: THIS SEEMS WRONG (if (@== t1 ) (order-specs t2 arg) '<) '<>) t1)) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (@tup (if (@subtype? t1) ;; TODO: THIS SEEMS WRONG (if (@== t2 ) (order-specs t1 arg) '>) '<>) t2)) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (@order-specs-class t1 t2 arg)) (dm order-specs (t1| t2| arg => (tup order| canonical-type|)) (if (@subtype? t1 t2) (@tup (if (@subtype? t2 t1) '= '<) t1) (if (@subtype? t2 t1) (@tup '> t2) (@tup '<> )))) ;;; MAY-ISA?: class contains => (some? all?) instances of type (dg may-isa? (c| t| => (tup some?| all?|))) (dm may-isa? (c| t| => (tup some?| all?|)) (if (@subclass? c t) (@tup #t #t) (@tup #f #f))) (dm may-isa? (c| t| => (tup some?| all?|)) (@tup (@may-isa? (%class-of (%type-object t)) c) #f)) (dm may-isa? (c| t| => (tup some?| all?|)) (def class? (@subtype? c )) (@tup class? (and class? (@== (%type-class c) )))) (dm may-isa? (c| t| => (tup some?| all?|)) (rep loop ((some? #f) (all? #f) (elts (%union-elts t))) (if (@nul? elts) (@tup some? all?) (let ((elt-some-all? (@may-isa? c (@head elts))) (elt-some? (@telt elt-some-all? 0)) (elt-all? (@telt elt-some-all? 1))) (loop (or elt-some? some?) (or elt-all? all?) (@tail elts)))))) (dm may-isa? (c| t| => (tup some?| all?|)) (def tup? (@== c )) (def some? (and tup? (@tany? (fun (t) (@telt (may-isa? t) 1)) (%product-elts t)))) (tup tup? some?)) (export isa? subtype? may-isa? order-specs $bot ) goo-0.155/src/goo/user.goo0100644000175000017500000000013707745062570014765 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/eval) (use goo/x) goo-0.155/src/goo/x.goo0100644000175000017500000000043607745064341014256 0ustar vomjomvomjom(use goo/boot) (use goo/fun) (dg to-c (x)) (dm to-c (x|) (%iu x)) (dm to-c (x|) (%fu x)) (dm to-c (x|) (%su x)) (dm to-c (x|) (%cu x)) (dm to-c (x|) (%bu x)) (dm to-c (x|) (%lu x)) (export %ib %fb %sb %cb %bb %lb to-c c-expr c-ment) goo-0.155/src/goo/bignum/0040755000175000017500000000000007756746026014573 5ustar vomjomvomjomgoo-0.155/src/goo/bignum/CVS/0040755000175000017500000000000007756746026015226 5ustar vomjomvomjomgoo-0.155/src/goo/bignum/CVS/Root0100644000175000017500000000003307756746026016065 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/goo/bignum/CVS/Repository0100644000175000017500000000002307756746026017320 0ustar vomjomvomjomgoo/src/goo/bignum goo-0.155/src/goo/bignum/CVS/Entries0100644000175000017500000000012107756746026016551 0ustar vomjomvomjom/%gmp.c/1.3/Mon Oct 14 06:13:53 2002// /gmp.goo/1.4/Wed Nov 19 19:50:49 2003// D goo-0.155/src/goo/bignum/%gmp.c0100644000175000017500000001312107552460241015544 0ustar vomjomvomjom#include #include #include "grt.h" #define MODN(name) YgooSbignumSgmpYP##name #define iu(tint) (((PINT)(tint)) >> TAG_BITS) EXT(Ytup,"goo/boot","tup"); EXT(YLbignumG,"goo/bignum/gmp",""); static mp_limb_t dummy_limb; static inline mpz_init_zero(mpz_ptr z) { z->_mp_size = 0; z->_mp_alloc = 0; z->_mp_d = &dummy_limb; } // checks if the mpz will fit in a GOO fixnum (long - 2 tag bits) static inline int mpz_fits_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t data = z->_mp_d[0]; return (size == 0 || (size == 1 && data <= MAX_GOO_FIXNUM) || (size == -1 && data <= - (mp_limb_t) MIN_GOO_FIXNUM)); } static inline int rawint_fits_fixnum(PINT x) { return (x <= MAX_GOO_FIXNUM && x >= MIN_GOO_FIXNUM); } // returns a GOO integer // assumes you already checked that it fits static inline P mpz_to_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t low_limb = z->_mp_d[0]; if (size > 0) return (P)tag((P)(PINT)low_limb, int_tag); else if (size < 0) return (P)tag((P)(PINT)-(long)low_limb, int_tag); else return (P)tag(0, int_tag); } static inline P mpz_to_bignum(mpz_ptr p) { P* obj = (P*)allocate(sizeof(P)+sizeof(__mpz_struct)); YPobject_class_setter(YLbignumG, obj); mpz_ptr newp = (mpz_ptr)(obj+1); *newp = *p; return obj; } static inline mpz_ptr bignum_to_mpz(P obj) { return (mpz_ptr)(((P*)obj)+1); } // this should only be used internally, as most functions assume bignums // cannot be in the range of fixnums P MODN(fixnum_to_bignum) (P num) { mpz_t mpz; mpz_init_set_si(mpz, (long)iu(num)); return mpz_to_bignum(mpz); } P MODN(rawint_to_goo) (PINT num) { if(rawint_fits_fixnum(num)) return YPib((P)num); else { mpz_t mpz; mpz_init_zero(mpz); mpz_init_set_si(mpz, num); return mpz_to_bignum(mpz); } } P mpz_to_goo(mpz_ptr result) { if(mpz_fits_fixnum(result)) return mpz_to_fixnum(result); else return mpz_to_bignum(result); } #define DEFINE_B_B(name, fun) \ P MODN(name) (P op1, P op2) \ { \ mpz_t z; \ mpz_init_zero(z); \ fun (z, bignum_to_mpz(op1), bignum_to_mpz(op2)); \ return mpz_to_goo(z); \ } #define DEFINE_B_I(name, fun) \ P MODN(name) (P op1, P op2) \ { \ mpz_t z; \ mpz_init_zero(z); \ fun (z, bignum_to_mpz(op1), (long)iu(op2)); \ return mpz_to_goo(z); \ } #define DEFINE_B(name, fun) \ P MODN(name) (P op) \ { \ mpz_t z; \ mpz_init_zero(z); \ fun (z, bignum_to_mpz(op)); \ return mpz_to_goo(z); \ } /* Addition, subtraction, multiplication */ // define the functions DEFINE_B_B(add_b_b, mpz_add) // special case necessary for add and subtract as there is no function // which operates on signed ints. P MODN(add_b_i) (P op1, P op2) { mpz_t z; mpz_init_zero(z); if (op2 >= 0) mpz_add_ui(z, bignum_to_mpz(op1), iu(op2)); else mpz_sub_ui(z, bignum_to_mpz(op1), -iu(op2)); return mpz_to_goo(z); } DEFINE_B_B(sub_b_b, mpz_sub) P MODN(sub_b_i) (P op1, P op2) { mpz_t z; mpz_init_zero(z); if (op2 >= 0) mpz_sub_ui(z, bignum_to_mpz(op1), iu(op2)); else mpz_add_ui(z, bignum_to_mpz(op1), -iu(op2)); return mpz_to_goo(z); } P MODN(sub_i_b) (P op1, P op2) { mpz_t z; mpz_init_zero(z); if (op1 >= 0) mpz_sub_ui(z, bignum_to_mpz(op2), iu(op1)); else mpz_add_ui(z, bignum_to_mpz(op2), -iu(op1)); mpz_neg(z, z); return mpz_to_goo(z); } DEFINE_B_B(mul_b_b, mpz_mul) DEFINE_B_I(mul_b_i, mpz_mul_si) DEFINE_B(neg_b, mpz_neg) // cannot call these with negative shifts DEFINE_B_I(rsh_b_i, mpz_fdiv_q_2exp) //DEFINE_B_I(lsh_b_i, mpz_mul_2exp) P MODN(lsh_b_i) (P op1, P op2) { mpz_t z; mpz_init_zero(z); mpz_mul_2exp (z, bignum_to_mpz(op1), iu(op2)); return mpz_to_goo(z); } /* comparison */ P MODN(cmp_b_b) (P op1, P op2) { return YPib((P)mpz_cmp(bignum_to_mpz(op1), bignum_to_mpz(op2))); } P MODN(sgn_b) (P op) { return YPib((P)mpz_sgn(bignum_to_mpz(op))); } P MODN(oddp_b) (P op) { return YPbb((P)mpz_odd_p(bignum_to_mpz(op))); } /* bit fiddling */ DEFINE_B_B(and_b_b, mpz_and) DEFINE_B_B(ior_b_b, mpz_ior) DEFINE_B_B(xor_b_b, mpz_xor) DEFINE_B(com_b, mpz_com) P MODN(bitQ_b_i) (P op, P index) { return YPbb(mpz_tstbit(bignum_to_mpz(op), iu(index))); } /* division */ DEFINE_B_B(tdiv_q_b_b, mpz_tdiv_q) DEFINE_B_B(tdiv_r_b_b, mpz_tdiv_r) P MODN(tdiv_qr_b_b) (P op1, P op2) { mpz_t q, r; mpz_init_zero(q); mpz_init_zero(r); mpz_tdiv_qr(q, r, bignum_to_mpz(op1), bignum_to_mpz(op2)); return XXCALLN(1, Ytup, 2, mpz_to_goo(q), mpz_to_goo(r)); } // the remainder will always be smaller than the divisor, and that fits // in a goo-int, so the result must fit in a goo-int P MODN(tdiv_r_b_i) (P op1, P op2) { long r; mpz_ptr op1m = bignum_to_mpz(op1); PINT d = (op2 > 0)?iu(op2):-iu(op2); r = mpz_tdiv_ui(op1m, d); if(mpz_sgn(op1m) < 0) r = -r; return (P)tag((P)r, int_tag); } P MODN(tdiv_q_b_i) (P op1, P op2) { mpz_t q; mpz_init_zero(q); PINT d = (op2 > 0)?iu(op2):-iu(op2); mpz_tdiv_q_ui(q, bignum_to_mpz(op1), d); if(op2<0) mpz_neg(q,q); return mpz_to_goo(q); } P MODN(tdiv_qr_b_i) (P op1, P op2) { mpz_t q; long r; mpz_ptr op1m = bignum_to_mpz(op1); mpz_init_zero(q); PINT d = (op2 > 0)?iu(op2):-iu(op2); r = mpz_tdiv_q_ui(q, op1m, d); if(mpz_sgn(op1m) < 0) r = -r; if(op2<0) mpz_neg(q,q); return XXCALLN(1, Ytup, 2, mpz_to_goo(q), tag((P)r, int_tag)); } /* powers */ // only works with positive exponent DEFINE_B_I(pow_b_i, mpz_pow_ui) static void *gmp_realloc(void *ptr, size_t old, size_t new) { if(ptr == &dummy_limb) return GC_realloc(NULL, new); else return GC_realloc(ptr, new); } static void do_nothing_free(void *ptr, size_t size) { //...do nothing } P MODN(gmp_initialize) () { mp_set_memory_functions(GC_malloc, gmp_realloc, do_nothing_free); } goo-0.155/src/goo/bignum/gmp.goo0100644000175000017500000002247507756744631016073 0ustar vomjomvomjom(use goo/boot) (use goo/fun) (use goo/mag) (use goo/math) (use/library gmp) #{ #include #include #include "grt.h" #define iu(tint) (((PINT)(tint)) >> TAG_BITS) EXT(Ytup,"goo/boot","tup"); EXT(YLbignumG,"goo/bignum/gmp",""); static mp_limb_t dummy_limb; static inline mpz_init_zero(mpz_ptr z) { z->_mp_size = 0; z->_mp_alloc = 0; z->_mp_d = &dummy_limb; } // checks if the mpz will fit in a GOO fixnum (long - 2 tag bits) static inline int mpz_fits_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t data = z->_mp_d[0]; return (size == 0 || (size == 1 && data <= MAX_GOO_FIXNUM) || (size == -1 && data <= - (mp_limb_t) MIN_GOO_FIXNUM)); } static inline int rawint_fits_fixnum(PINT x) { return (x <= MAX_GOO_FIXNUM && x >= MIN_GOO_FIXNUM); } // returns a GOO integer // assumes you already checked that it fits static inline P mpz_to_fixnum(mpz_ptr z) { mp_size_t size = z->_mp_size; mp_limb_t low_limb = z->_mp_d[0]; if (size > 0) return (P)tag((P)(PINT)low_limb, int_tag); else if (size < 0) return (P)tag((P)(PINT)-(long)low_limb, int_tag); else return (P)tag(0, int_tag); } static inline P mpz_to_bignum(mpz_ptr p) { P* obj = (P*)allocate(sizeof(P)+sizeof(__mpz_struct)); YPobject_class_setter(YLbignumG, obj); mpz_ptr newp = (mpz_ptr)(obj+1); *newp = *p; return obj; } static inline mpz_ptr bignum_to_mpz(P obj) { return (mpz_ptr)(((P*)obj)+1); } // this should only be used internally, as most functions assume bignums // cannot be in the range of fixnums static inline P fixnum_to_bignum (P num) { mpz_t mpz; mpz_init_set_si(mpz, (long)iu(num)); return mpz_to_bignum(mpz); } static inline P rawint_to_goo (PINT num) { if(rawint_fits_fixnum(num)) return YPib((P)num); else { mpz_t mpz; mpz_init_zero(mpz); mpz_init_set_si(mpz, num); return mpz_to_bignum(mpz); } } static inline P mpz_to_goo(mpz_ptr result) { if(mpz_fits_fixnum(result)) return mpz_to_fixnum(result); else return mpz_to_bignum(result); } #define DEFINE_B_B(name, fun) \ static inline P name (P op1, P op2) \ { \ mpz_t z; \ mpz_init_zero(z); \ fun (z, bignum_to_mpz(op1), bignum_to_mpz(op2)); \ return mpz_to_goo(z); \ } #define DEFINE_B_I(name, fun) \ static inline P name (P op1, P op2) \ { \ mpz_t z; \ mpz_init_zero(z); \ fun (z, bignum_to_mpz(op1), (long)iu(op2)); \ return mpz_to_goo(z); \ } #define DEFINE_B(name, fun) \ static inline P name (P op) \ { \ mpz_t z; \ mpz_init_zero(z); \ fun (z, bignum_to_mpz(op)); \ return mpz_to_goo(z); \ } /* Addition, subtraction, multiplication */ // define the functions DEFINE_B_B(add_b_b, mpz_add) // special case necessary for add and subtract as there is no function // which operates on signed ints. static inline P add_b_i (P op1, P op2) { mpz_t z; mpz_init_zero(z); if (op2 >= 0) mpz_add_ui(z, bignum_to_mpz(op1), iu(op2)); else mpz_sub_ui(z, bignum_to_mpz(op1), -iu(op2)); return mpz_to_goo(z); } DEFINE_B_B(sub_b_b, mpz_sub) static inline P sub_b_i (P op1, P op2) { mpz_t z; mpz_init_zero(z); if (op2 >= 0) mpz_sub_ui(z, bignum_to_mpz(op1), iu(op2)); else mpz_add_ui(z, bignum_to_mpz(op1), -iu(op2)); return mpz_to_goo(z); } static inline P sub_i_b (P op1, P op2) { mpz_t z; mpz_init_zero(z); if (op1 >= 0) mpz_sub_ui(z, bignum_to_mpz(op2), iu(op1)); else mpz_add_ui(z, bignum_to_mpz(op2), -iu(op1)); mpz_neg(z, z); return mpz_to_goo(z); } DEFINE_B_B(mul_b_b, mpz_mul) DEFINE_B_I(mul_b_i, mpz_mul_si) DEFINE_B(neg_b, mpz_neg) // cannot call these with negative shifts DEFINE_B_I(rsh_b_i, mpz_fdiv_q_2exp) //DEFINE_B_I(lsh_b_i, mpz_mul_2exp) P lsh_b_i (P op1, P op2) { mpz_t z; mpz_init_zero(z); mpz_mul_2exp (z, bignum_to_mpz(op1), iu(op2)); return mpz_to_goo(z); } /* comparison */ P cmp_b_b (P op1, P op2) { return YPib((P)mpz_cmp(bignum_to_mpz(op1), bignum_to_mpz(op2))); } P sgn_b (P op) { return YPib((P)mpz_sgn(bignum_to_mpz(op))); } P oddp_b (P op) { return YPbb((P)mpz_odd_p(bignum_to_mpz(op))); } /* bit fiddling */ DEFINE_B_B(and_b_b, mpz_and) DEFINE_B_B(ior_b_b, mpz_ior) DEFINE_B_B(xor_b_b, mpz_xor) DEFINE_B(com_b, mpz_com) P bitQ_b_i (P op, P index) { return YPbb(mpz_tstbit(bignum_to_mpz(op), iu(index))); } /* division */ DEFINE_B_B(tdiv_q_b_b, mpz_tdiv_q) DEFINE_B_B(tdiv_r_b_b, mpz_tdiv_r) P tdiv_qr_b_b (P op1, P op2) { mpz_t q, r; mpz_init_zero(q); mpz_init_zero(r); mpz_tdiv_qr(q, r, bignum_to_mpz(op1), bignum_to_mpz(op2)); return XXCALLN(1, Ytup, 2, mpz_to_goo(q), mpz_to_goo(r)); } // the remainder will always be smaller than the divisor, and that fits // in a goo-int, so the result must fit in a goo-int P tdiv_r_b_i (P op1, P op2) { long r; mpz_ptr op1m = bignum_to_mpz(op1); PINT d = (op2 > 0)?iu(op2):-iu(op2); r = mpz_tdiv_ui(op1m, d); if(mpz_sgn(op1m) < 0) r = -r; return (P)tag((P)r, int_tag); } P tdiv_q_b_i (P op1, P op2) { mpz_t q; mpz_init_zero(q); PINT d = (op2 > 0)?iu(op2):-iu(op2); mpz_tdiv_q_ui(q, bignum_to_mpz(op1), d); if(op2<0) mpz_neg(q,q); return mpz_to_goo(q); } P tdiv_qr_b_i (P op1, P op2) { mpz_t q; long r; mpz_ptr op1m = bignum_to_mpz(op1); mpz_init_zero(q); PINT d = (op2 > 0)?iu(op2):-iu(op2); r = mpz_tdiv_q_ui(q, op1m, d); if(mpz_sgn(op1m) < 0) r = -r; if(op2<0) mpz_neg(q,q); return XXCALLN(1, Ytup, 2, mpz_to_goo(q), tag((P)r, int_tag)); } /* powers */ // only works with positive exponent DEFINE_B_I(pow_b_i, mpz_pow_ui) static void *gmp_realloc(void *ptr, size_t old, size_t new) { if(ptr == &dummy_limb) return GC_realloc(NULL, new); else return GC_realloc(ptr, new); } static void do_nothing_free(void *ptr, size_t size) { //...do nothing } P gmp_initialize () { mp_set_memory_functions(GC_malloc, gmp_realloc, do_nothing_free); } } ;; setup the memory allocation stuff for the gmp library (df gmp-initialize () #{ gmp_initialize(); }) (gmp-initialize) (dm (+ inline) (x| y| => ) #eg{ add_b_b(x, y); }) (dm (+ inline) (x| y| => ) #eg{ add_b_i x y); }) (dm (+ inline) (x| y| => ) #eg{ add_b_i y x); }) (dm (- inline) (x| y| => ) #eg{ sub_b_b x y); }) (dm (- inline) (x| y| => ) #eg{ sub_b_i x y); }) (dm (- inline) (x| y| => ) #eg{ sub_i_b x y); }) (dm (* inline) (x| y| => ) #eg{ mul_b_b x y); }) (dm (* inline) (x| y| => ) #eg{ mul_b_i x y); }) (dm (* inline) (x| y| => ) #eg{ mul_b_i y x); }) (dm (>> inline) (x| a| => ) (if (> a 0) #eg{ rsh_b_i x a); } #eg{ lsh_b_i x (- 0 a); }))) ;;does >>> even make sense? ;;(dm (>>> inline) (x| a| => ) ;; (%ib (%i>>> (%iu x) (%iu a)))) (dm (<< inline) (x| a| => ) (if (> a 0) #eg{ lsh_b_i x a); } #eg{ rsh_b_i x (- 0 a); }))) ;; can use this shortcut because bignums always have greater ;; magnitude than fixnums, so y > 0 => x < y (dm (< inline) (x| y| => ) (%eq? #eg{ sgn_b y); } 1)) (dm (< inline) (x| y| => ) (%bb (%eq? #eg{ sgn_b x); } -1))) (dm (< inline) (x| y| => ) (%bb (%eq? #eg{ cmp_b_b x y); } -1))) (dm (== inline) (x| y| => ) (%bb (%eq? #eg{ cmp_b_b x y); } 0))) (dm (#| inline) (x| y| => ) #eg{ ior_b_b x y); }) (dm (#| inline) (x| y| => ) #eg{ ior_b_b (%fixnum_to_bignum x); } y)) (dm (#| inline) (x| y| => ) #eg{ ior_b_b x (%fixnum_to_bignum y); })) (dm (^ inline) (x| y| => ) #eg{ xor_b_b x y); }) (dm (^ inline) (x| y| => ) #eg{ xor_b_b (%fixnum_to_bignum x); } y)) (dm (^ inline) (x| y| => ) #eg{ xor_b_b x (%fixnum_to_bignum y); })) (dm (& inline) (x| y| => ) #eg{ and_b_b x y); }) (dm (& inline) (x| y| => ) #eg{ and_b_b (%fixnum_to_bignum x); } y)) (dm (& inline) (x| y| => ) #eg{ and_b_b x (%fixnum_to_bignum y); })) (dm (~ inline) (x| => ) #eg{ com_b x); }) (dm (bit? inline) (o| x| => ) #eg{ bit?_b_i o x); }) (dm (even? inline) (x| => ) (not (odd? x))) (dm (odd? inline) (x| => ) #eg{ oddp_b x); }) ;;(dm (/ inline) (x| y| => ) ;; (arithmetic-error "No int divide, consider trunc/")) (dm trunc/ (x| y| => (tup quo| rem|)) #eg{ tdiv_qr_b_b x y); }) (dm trunc/ (x| y| => (tup quo| rem|)) #eg{ tdiv_qr_b_i x y); }) (dm trunc/ (x| y| => (tup quo| rem|)) (tup 0 x)) ;; (dm mod (x| y| => ) (dm pow (x| n| => ) (if (< n 0) (/ 1 #eg{ pow_b_i x (neg n); })) #eg{ pow_b_i x n); })) ;; these override the methods in math.goo (dm (+ inline) (x| y| => ) #eg{ rawint_to_goo (%i+ (%iu x); } (%iu y)))) (dm (- inline) (x| y| => ) #eg{ rawint_to_goo (%i- (%iu x); } (%iu y)))) (dm (* inline) (x| y| => ) #eg{ mul_b_i (%fixnum_to_bignum x); } y)) (dm pow (x| n| => ) #eg{ pow_b_i (%fixnum_to_bignum x); } n)) (dm (<< inline) (x| a| => ) (def bx #eg{ fixnum_to_bignum x); }) (if (> a 0) #eg{ lsh_b_i bx a); } #eg{ rsh_b_i bx (- 0 a); }))) goo-0.155/src/goo/cols/0040755000175000017500000000000007756746026014252 5ustar vomjomvomjomgoo-0.155/src/goo/cols/CVS/0040755000175000017500000000000007756746026014705 5ustar vomjomvomjomgoo-0.155/src/goo/cols/CVS/Root0100644000175000017500000000003307756746026015544 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/goo/cols/CVS/Repository0100644000175000017500000000002107756746026016775 0ustar vomjomvomjomgoo/src/goo/cols goo-0.155/src/goo/cols/CVS/Entries0100644000175000017500000000130207756746026016232 0ustar vomjomvomjom/col.goo/1.21/Tue Jan 14 22:10:06 2003// /colx.goo/1.12/Mon Sep 30 21:10:49 2002// /cycle.goo/1.11/Wed Sep 11 21:32:54 2002// /flat.goo/1.10/Wed Sep 11 21:32:54 2002// /lst.goo/1.18/Tue Jan 14 22:10:06 2003// /map.goo/1.12/Wed Sep 11 21:32:54 2002// /opts.goo/1.10/Mon Sep 30 21:10:49 2002// /range.goo/1.12/Thu Sep 19 00:28:43 2002// /rep.goo/1.8/Mon Sep 30 21:10:49 2002// /seq.goo/1.23/Mon Sep 30 21:10:49 2002// /seqx.goo/1.14/Thu Sep 19 00:28:43 2002// /step.goo/1.10/Wed Sep 11 21:32:54 2002// /str.goo/1.23/Mon Oct 14 06:14:58 2002// /tab.goo/1.21/Tue Jan 14 22:10:06 2003// /tup.goo/1.8/Mon Sep 30 21:10:49 2002// /vec.goo/1.19/Thu Sep 19 00:28:43 2002// /zip.goo/1.12/Thu Sep 19 00:28:43 2002// D goo-0.155/src/goo/cols/col.goo0100644000175000017500000001372407611105276015523 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/math) (exported (dg len (x| => )) (dg elt (x| k| => )) (dg elt-or (x| k| default| => )) (dg elt-type (x| => )) (dg elt-default (x| => )) (dg key-type (x| => )) (dg key-test (x| => )) (dg elts (x| keys| => )) (dg nul? (x| => )) (dg nul ((x (t< )) => )) (dv empty? nul?) ;; TODO: DEPRECATED (dv empty nul) ;; TODO: DEPRECATED (dg add (x| y| => )) (dg dup (x| => )) (dg fab ((t (t< )) s| => )) (dg col ((t (t< )) key-vals|...)) (dg fabs ((x (t< )) elts|... => )) (dg fill (x| val| => )) (dg any? (f| x| => )) (dg all? (f| x| => )) (dg fold (combine| init| x| => )) (dg fold+ (combine| x| => )) (dg find-or (f| x| default => )) (dg find (f| x| => )) (dg del (x| key| => )) (dg zap (x| => )) (dg do (f| x|)) (dg mem? (x| y| => )) (dg keys (c| => )) (dg items (c| => )) (dg col-res-type (c| => )) ;; 3.7.1 ENUMERATION PROTOCOL (dc ()) (dg enum (x| => )) (dg fin? (e| => )) (dg nxt (e| => )) (dg now (e| => )) (dg now-setter (v| e|)) (dg now-key (e| => )) ;; Deprecated (dg do-keyed (f| x|)) (dg map-keyed (f| x| => )) (dg map (f| x| => )) ;; Undocumented (dg fab-into (x| y| => )) (dg fab-fill! (x| y => )) (dg low-elt (x| k| => )) (dg fab-elt-setter (v| x| k|)) (dg col-res (c| x| => )) ) ;;;;!! Implementation (dm enum (x| => ) x) ;;;; Creation protocol (dm as ((t (t< )) x| => ) (if (== (class-of x) t) x (fab-into (fab t (len x)) x))) (dm dup (x| => ) (fab-into (fab (class-of x) (len x)) x)) ;; no need to duplicate immutable collections (dm dup (x| => ) x) ;;;; Collection protocol default implementation (dm len (x| => ) (rep count ((e (enum x)) (i 0)) (if (fin? e) i (count (nxt e) (+ i 1))))) (dm elt-type (x| => ) ) (dm key-type (x| => ) ) (dm key-test (x| => ) ==) ;; required: elt ;; required: elt-setter (dm nul? (c| => ) (= (len c) 0)) (dm nul ((c (t< )) => ) (fab c 0)) (dm elt-default (x| => ) #f) ;; required: fab (dm fab-into (dst| src| => ) (rep in ((ss (enum src))) (if (fin? ss) dst (seq (set (fab-elt dst (now-key ss)) (now ss)) (in (nxt ss)))))) (dm fabs (c|(t< ) objects|... => ) (fab-into (fab c (len objects)) objects)) (dm fab-fill! (dst| src => ) (rep in ((ds (enum dst))) (if (fin? ds) dst (seq (set (fab-elt dst (now-key ds)) src) (in (nxt ds)))))) (dm fill (dst| val => ) (fab-fill! (dup dst) val)) (dm any? (test| c| => ) (rep fnd ((e (enum c))) (if (fin? e) #f (or (as-log (test (now e))) (fnd (nxt e)))))) (dm all? (test| c| => ) (rep fnd ((e (enum c))) (or (fin? e) (and (test (now e)) (fnd (nxt e)))))) (dm fold (combine| init c| => ) (rep red ((res init) (e (enum c))) (if (fin? e) res (red (combine res (now e)) (nxt e))))) (dm fold+ (combine| c| => ) (def e (enum c)) (def init (now e)) (rep red ((res init) (e (nxt e))) (if (fin? e) res (red (combine res (now e)) (nxt e))))) (dc ()) (dv $elt-default (new )) (dm find-or (f| c| default => ) (rep fnd ((e (enum c))) (if (fin? e) default (if (f (now e)) (now-key e) (fnd (nxt e)))))) (dm find (f| c| => ) (def val (find-or f c $elt-default)) (if (== val $elt-default) (range-error c f) val)) ;;; (dm del (x| key| => ) ...) (dm zap (x| => ) (nul (class-of x))) (dm do (f| c|) (rep lop ((e (enum c))) (unless (fin? e) (f (now e)) (lop (nxt e))))) (dm map (f| c| => ) (rep con ((res (fab 0)) (e (enum c))) (if (fin? e) (col-res c res) (seq (set (fab-elt res (now-key e)) (f (now e))) (con res (nxt e)))))) (dm do-keyed (f| c|) (rep lop ((e (enum c))) (unless (fin? e) (f (now-key e) (now e)) (lop (nxt e))))) (dm map-keyed (f| c| => ) (rep con ((res (fab 0)) (e (enum c))) (if (fin? e) (col-res c res) (let ((key (now-key e))) (set (fab-elt res key) (f key (now e))) (con res (nxt e)))))) (dm keys (c| => ) (rep con ((res '()) (e (enum c))) (if (fin? e) (rev! res) (con (add res (now-key e)) (nxt e))))) (dm items (c| => ) (rep con ((res '()) (e (enum c))) (if (fin? e) (rev! res) (con (add res (tup (now-key e) (now e))) (nxt e))))) (dm mem? (c| x => ) (any? (fun (y) (== y x)) c)) (dm col-res-type (c| => ) (class-of c)) ;;;; Undocumented (dm col-res (c| x| => ) (as (col-res-type c) x)) (dv $eq-nul '(eq-nul)) (dm = (c1| c2| => ) (and (= (len c1) (len c2)) (rep eq ((e1 (enum c1))) (if (fin? e1) #t (and (= (now e1) (elt-or c2 (now-key e1) $eq-nul)) (eq (nxt e1))))))) (dm (elt inline) (c| key| => ) (def val (elt-or c key $elt-default)) (if (== val $elt-default) (range-error c key) val)) ;; get this from list.goo (need-implementation add into) goo-0.155/src/goo/cols/colx.goo0100644000175000017500000000263307546136731015717 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/math) (use goo/cols/col) (pub dg elt-setter (v| x| (k ))) (pub dg into (x| y| => )) (pub dg add! (c| x => )) (pub dg elt! (c| k f|)) (pub dg del! (c| x => )) (pub dg zap! (c| => )) (pub dg len-setter (new-len| c|)) (pub dg len/fill-setter (new-len| c| default)) (pub dg fill! (c| x => )) (pub dg low-elt-setter (v| x| k|)) ;; NEEDED FOR FAB-INTO (dm (fab-elt-setter inline) (value c| key => ) (set (elt c key) value)) (dm (low-elt-setter inline) (value c| key => ) (set (elt c key) value)) ;; TODO: REMOVE PERHAPS? (dm add! (c| x => ) (add c x)) (dv $not-found '("not found")) (dm elt! (c| k f|) (def x (elt-or c k $not-found)) (if (== x $not-found) (set (elt c k) (f)) x)) (dm del! (c| x => ) (del c x)) (dm zap! (c| => ) (zap c)) (dm fill! (dst| val => ) (rep in ((ds (enum dst))) (if (fin? ds) dst (seq (set (now ds) val) (in (nxt ds)))))) (dm into (dst| src| => ) (rep in ((ss (enum src))) (if (fin? ss) dst (seq (set (elt dst (now-key ss)) (now ss)) (in (nxt ss)))))) goo-0.155/src/goo/cols/cycle.goo0100644000175000017500000000154407537733206016051 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/math) (use goo/cols/col) (use goo/cols/seq) (exported ;; represents infinite repeating series (dc ()) (dg cycle (e|... => ))) (dp cycle-elts ( => )) (dm cycle (e|... => ) (new cycle-elts (as e))) (dc ()) (dp! %key ( => ) 0) (dp %len ( => )) (dp %dat ( => )) (dm enum (x| => ) (new %dat x %len (len x))) (dm fin? (e| => ) #f) (dm nxt (e| => ) (renew e %key (mod (+ (%key e) 1) (%len e)) ;; %dat (%dat e) )) (dm now (e| => ) (elt (cycle-elts (%dat e)) (%key e))) goo-0.155/src/goo/cols/flat.goo0100644000175000017500000000153207537733206015675 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/math) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) ;; 3.7.6 FLAT SEQUENCES ;;;;!! Interface (exported ;; (dc ()) ) ;;;;!! Implementation (dc ()) (dp %dat ( => )) (dp! %key ( => ) 0) (dm enum (x| => ) (new %dat x)) (dm fin? (e| => ) (== (%key e) (len (%dat e)))) (dm nxt (e| => ) (renew e %key (+ (%key e) 1) ;; %dat (%dat e) )) (dm now (e| => ) (low-elt (%dat e) (%key e))) (dm now-setter (v| e|) (set (low-elt (%dat e) (%key e)) v)) (dm now-key (e| => ) (%key e)) goo-0.155/src/goo/cols/lst.goo0100644000175000017500000001323707611105276015547 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/seqx) ;; 3.7.5 LISTS ;;;;!! Interface (exported ;; defined in boot head head-setter tail tail-setter nil ;; Alias for (dv ) (dg lst (elts|... => )) (dg lst* (elts|... => )) ;; Alias for list (dv list lst) (dg pair (x| y| => )) ;; undocumented (dg assqn (x l| pos| => )) (dg assq (x l| => )) def-list ) ;;;;!! Implementation ;;;; Collection protocol (dm len (x| => ) (rep sum (((count ) 0) ((x ) x)) (if (nul? x) count (sum (+ count 1) (tail x))))) (dm elt-or (x| key| default => ) (rep fnd (((count ) 0) ((x ) x)) (if (nul? x) default (if (== count key) (head x) (fnd (+ count 1) (tail x)))))) (dm elt-setter (z x| key|) (rep fnd (((count ) 0) ((x ) x)) (if (nul? x) (range-error x key) (if (== count key) (set (head x) z) (fnd (+ count 1) (tail x)))))) (dm (nul? inline) (c| => ) (== c (nul (class-of c)))) (dm (nul inline) ((c (t= )) => ) '()) (dm fab ((t (t< )) s| => ) (rep fab ((i| s) (res| (nul t))) (if (> i 0) (fab (- i 1) (new t tail res)) res))) (dm fabs ((c (t< )) objects|... => ) (rep build ((index| (- (len objects) 1)) (result| (nul c))) (if (< index 0) result (build (- index 1) (new c head (elt objects index) tail result))))) (dm lst* (args|... => ) (def m (1- (len args))) (rep cons ((i| (1- m)) (r| [args m])) (if (< i 0) r (cons (1- i) (new head [args i] tail r))))) ;;;; Iteration protocol for lists (dc ()) (dp! %dat ( => )) (dp! %key ( => ) 0) (dm enum (x| => ) (new %dat x)) (dm fin? (e| => ) (nul? (%dat e))) (dm nxt (e| => ) (renew e %key (+ (%key e) 1) %dat (tail (%dat e)))) (dm now (e| => ) (head (%dat e))) (dm now-setter (v| e|) (set (head (%dat e)) v)) (dm now-key (e| => ) (%key e)) ;;;; Sequence protocol (dm add (c| x => ) (pair x c)) (dm last (x| => ) (rep fnd ((x x) (px x)) (if (nul? x) (head px) (fnd (tail x) x)))) (dm rev! (c| => ) (rep loop ((l c) (r (nul (class-of c)))) (if (nul? l) r (let ((t (tail l))) (set (tail l) r) (loop t l))))) (dm cat! (x| more|... => ) (loc ((connect (x| y| => ) ;; connect x to y and return the last elem of the list (if (nul? y) x (seq (set (tail x) y) (rep find-tail ((p| y)) (if (nul? (tail p)) p (find-tail (tail p)))))))) (def result (lst #f)) (def cur result) ;; TODO: MERGE WITH NEXT LINE? (set cur (connect cur (as x))) (for ((x more)) (set cur (connect cur (as x)))) (tail result))) ;;;; List protocol (dm lst (objects|... => ) (app fabs objects)) (dm pair (h t| => ) (new head h tail t)) (dm push! (c| x => ) (pair x c)) (dm pop! (c| => (tup new-c| value|)) (tup (tail c) (head c))) ;;; TODO: BUBBLE SORT YUCK! (dm sort-by! (items| test| => ) (rep loop ((tmp #f)) (if (== tmp (head items)) items (rep bub ((tmp (head items)) (prev items) (next (tail items))) (if (nul? next) (loop tmp) (bub (if (test (head next) (head prev)) (let ((tmp (head prev))) (set (head prev) (head next)) (set (head next) tmp)) tmp) (tail prev) (tail next))))))) ;;;; Misc other stuff (dm to-str (x| => ) (cat "(" (vals-to-str x) ")")) ;;;; Not documented ;; TODO: CHANGE ORDER OF ARGS LIKE MEM? (dm assq (x l| => ) (if (nul? l) #f (if (== x (head (head l))) (head l) (assq x (tail l))))) (dm assqn (x l| pos| => ) (if (nul? l) #f (if (== x (elt (head l) pos)) (head l) (assqn x (tail l) pos)))) ;; (ct (dv cat-sym make-sym)) (ds def-list (,name (,@supers)) (let ((class (cat-sym "<" name ">")) ($nul (cat-sym "$" name "-nul"))) `(seq (dc ,class ( ,@supers)) (dv ,$nul (new ,class)) (df ,name (h t) (new ,class head h tail t)) (dm nul ((e (t= ,class)) => ,class) ,$nul)))) (dm line-of (x) #f) (dc ()) (dp line-of ( => (t? )) #f) (def-list line-pah ()) (dv ) (df line-pair (h t l) (new head h tail t line-of l)) (df line-list (l elts|...) (rep fab ((r (nul )) (i (- (len elts) 1))) (if (< i 0) r (fab (line-pair (elt elts i) r l) (- i 1))))) (dm line-list-of (ctx| src| => ) (rep copy ((l (line-of ctx)) (src src)) (if (and (isa? src ) (not (nul? src))) (let ((h (head src)) (t (tail src))) (line-pair (copy (or (line-of h) l) h) (copy (or (line-of t) l) t) l)) src))) (dm line-list-of (ctx src => ) src) (export line-of line-pair line-list line-list-of) goo-0.155/src/goo/cols/map.goo0100644000175000017500000000045207537733206015524 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/math) (use goo/types) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/lst) ;; 3.7.2 MAPS ;;;;!! Interface (exported (dc ()) ) goo-0.155/src/goo/cols/opts.goo0100644000175000017500000000123507546136731015734 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/math) (use goo/types) (use goo/cols/col) (use goo/cols/seq) (use goo/cols/flat) ;; 3.7.5 OPTIONALS ;;;;!! Interface (exported ) ;;;;!! Implementation ;;;; Collection protocol (dm col-res-type (c| => ) ) (dm (len inline) (x| => ) (@olen x)) (dm elt-or (x| i| default => ) (range-check x i) (@oelt x i)) ;; TODO: LOW-ELT (dm to-str (x| => ) (cat "$$opts(" (vals-to-str x) ")")) ;;;; Undocumented (dm (low-elt inline) (x| i| => ) (@oelt x i)) goo-0.155/src/goo/cols/range.goo0100644000175000017500000000352007542215073016033 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/functional) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/cols/col) (use goo/cols/seq) ;; 3.7.6 RANGES ;;;;!! Interface (exported ;; represents series of numbers (dc ()) (dg range (from| done?| lim| => )) (dg range-by (from| done?| lim| nxt| => )) (dg from (from| => )) (dg below (from| => )) ) ;; TODO: FEWER PROPS (dp range-from ( => ) 0) (dp range-in? ( => ) <) (dp range-lim ( => (t? )) #f) (dp range-nxt ( => ) 1+) (dm fab ((c (t= )) s| => ) (range 0 < s 1+)) (dm range (from| in?| lim| => ) (new range-from from range-in? in? range-lim lim)) (dm range-by (from| in?| lim| nxt| => ) (new range-from from range-in? in? range-lim lim range-nxt nxt)) (dm from (from| => ) (new range-from from range-in? (always #t))) (dm below (lim| => ) (new range-lim lim)) (dm col-res-type (x| => ) ) (dc ()) (dp %dat ( => )) (dp! %val ( => )) (dp! %key ( => )) (dm enum (x| => ) (new %dat x %val (range-from x) %key 0)) (dm fin? (e| => ) (def c (%dat e)) (not ((range-in? c) (%val e) (range-lim c)))) (dm nxt (e| => ) (renew e %val ((range-nxt (%dat e)) (%val e)) %key (+ (%key e) 1) )) (dm now (e| => ) (%val e)) (dm now-key (e| => ) (%key e)) goo-0.155/src/goo/cols/rep.goo0100644000175000017500000000243007546136731015533 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/cols/col) (use goo/cols/seq) (use goo/cols/flat) ;; 3.7.6.1 REPEATED'S ;;;;!! Interface (exported ;; Defined in boot rep-len rep-fab rep-fill! (dg rep-into! (d| s => )) rep-nul rep-elt rep-elt-setter ) (df (rep-nul inline) () %rnul) (df (rep-len inline) (x| => ) (%ib (%rlen x))) (df rep-fill! (x| val => ) (def s (rep-len x)) (rep fill ((i 0)) (when (< i s) (set (rep-elt x i) val) (fill (+ i 1)))) x) (dm rep-into! (d| s| => ) (def l (min (rep-len d) (rep-len s))) (rep into ((i 0)) (when (< i l) (set (rep-elt d i) (rep-elt s i)) (into (+ i 1)))) d) (dm rep-into! (d| s| => ) (def l (min (rep-len d) (len s))) (rep into ((i 0) (e (enum s))) (when (< i l) (set (rep-elt d i) (now e)) (into (+ i 1) (nxt e)))) d) (df (rep-fab inline) (s| fill => ) (%rep (%iu s) fill)) (df (rep-elt inline) (x| i| => ) (%relt x (%iu i))) (df (rep-elt-setter inline) (z x| i|) (set (%relt x (%iu i)) z)) goo-0.155/src/goo/cols/seq.goo0100644000175000017500000002244207546136731015542 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/types) (use goo/cols/col) (df @t? (x| => ) (new union-elts (@lst x (new type-object #f)))) ;;;;!! Interface (exported ;; defined in boot ;; == (elt x 0) (dg 1st (x| => )) ;; == (elt x 1) (dg 2nd (x| => )) ;; in types ;; == (elt x 2) (dg 3rd (x| => )) ;; == (elt x (- (len x) 1)) (dg last (x| => )) ;; finds position of v in x else returns false. (dg pos (x| v| => (@t? ))) ;; finds position of y in x else returns false. (dg finds (x| y| => (@t? ))) (dg do2 (f| x| y|)) (dg do3 (f| x| y| z|)) (dg map2 (f| x| y| => )) (dg any2? (test| x| y| => )) (dg all2? (test| x| y| => )) ;; returns reversed sequence. (dg rev (x| => )) ;; returns concatenated sequences. (dg cat (x| more|... => )) ;; returns two sequences concatenated. (dg cat2 (x| y| => )) ;; push/pops elements nondestructively (dg push (l| x| => )) (dg pop (l| => (tup new-col| value|))) ;; subsequence of x between from and below. (dg sub (x| from| below| => )) (dg sub* (x| from| => )) ;; inserts e into x below index before (dg ins (x| e| before| => )) ;; returns new sequence with elements corresponding to those where test ;; returns non-false. (dg pick (test| x| => )) ;; returns new sequence with elements corresponding to those where test ;; returns non-false. (dg reject (test| x| => )) ;; returns sequence with all v's deleted from x. (dg del-vals (x| v| => )) ;; returns sequence with all duplicates removed. (dg del-dups (x| => )) ;; sorts a sequence (dg sort (x| => )) (dg sort-by (x| test| => )) ;; returns true if sequence s begins/ends with sequence begin/end (dg suffix? (s| suffix| => )) (dg prefix? (s| prefix| => )) (dg repeat (s| n| => )) ;;; Split 'str' apart on occurrences of 'sep' (similar to Perl). (dg split (s| sep => )) ;;; Join each sequence in 'ss' with 'sep' (similar to Perl). (dg join (ss| sep| => )) ;; UNDOCUMENTED: (df range-check (x| i|)) (df range-check? (x| i|)) ;; (df range-error (x| i|)) (dg vals-to-str (s| => )) (dg do-key-vals (fn| key-vals|)) ) ;;;;!! Implementation ;;;; Collection protocol (dm key-type (x| => ) ) ;;;; Sequence protocol (dm 1st (x| => ) (elt x 0)) (dm 2nd (x| => ) (elt x 1)) (dm 3rd (x| => ) (elt x 2)) (dm map (f| c| => ) (rep con ((res '()) (e (enum c))) (if (fin? e) (col-res c (rev! res)) (con (add res (f (now e))) (nxt e))))) (dm map-keyed (f| c| => ) (rep con ((res '()) (e (enum c))) (if (fin? e) (col-res c (rev! res)) (con (add res (f (now-key e) (now e))) (nxt e))))) (dm do2 (f| x| y|) (rep lop ((ex (enum x)) (ey (enum y))) (unless (or (fin? ex) (fin? ey)) (f (now ex) (now ey)) (lop (nxt ex) (nxt ey))))) (dm do3 (f| x| y| z|) (rep lop ((ex (enum x)) (ey (enum y)) (ez (enum z))) (unless (or (fin? ex) (fin? ey) (fin? ez)) (f (now ex) (now ey) (now ez)) (lop (nxt ex) (nxt ey) (nxt ez))))) (dm map2 (f| x| y| => ) (rep con ((res '()) (ex (enum x)) (ey (enum y))) (if (or (fin? ex) (fin? ey)) (col-res x (rev! res)) (con (add res (f (now ex) (now ey))) (nxt ex) (nxt ey))))) (dm any2? (test| x| y| => ) (rep fnd ((ex (enum x)) (ey (enum y))) (if (or (fin? ex) (fin? ey)) #f (or (as-log (test (now ex) (now ey))) (fnd (nxt ex) (nxt ey)))))) (dm all2? (test| x| y| => ) (rep fnd ((ex (enum x)) (ey (enum y))) (or (fin? ex) (fin? ey) (and (test (now ex) (now ey)) (fnd (nxt ex) (nxt ey)))))) (dm = (c1| c2| => ) (rep eq ((e1 (enum c1)) (e2 (enum c2))) (if (fin? e1) (fin? e2) (and (= (now e1) (now e2)) (eq (nxt e1) (nxt e2)))))) ;; TODO: SHOULD USE BACKWARD ITERATION PROTOCOL??? (dm last (x| => ) (elt x (- (len x) 1))) (dm pos (x| v => (@t? )) (find-or (fun (a) (== v a)) x #f)) (dm finds ((x ) (y ) => (@t? )) (rep outer ((xsi 0)) (if (< xsi (+ (- (len x) (len y)) 1)) (rep inner ((xi xsi) (yi 0)) (if (and (< xi (len x)) (< yi (len y))) (if (== (elt x xi) (elt y yi)) (inner (+ xi 1) (+ yi 1)) (outer (+ xsi 1))) xsi)) #f))) (dm rev (x| => ) (rep con ((seq '()) (e (enum x))) (if (fin? e) (col-res x seq) (con (add seq (now e)) (nxt e))))) ;; required: rev! (dm cat (x| ss|... => ) (fold cat2 x ss)) (dm cat2 (x| y| => ) (rep con-x ((seq '()) (ex (enum x))) (if (fin? ex) (rep con-y ((seq seq) (ey (enum y))) (if (fin? ey) (col-res x (rev! seq)) (con-y (add seq (now ey)) (nxt ey)))) (con-x (add seq (now ex)) (nxt ex))))) (dm sub (x| from| below| => ) (rep con-x ((seq '()) ((i ) 0) (e (enum x))) (if (fin? e) (col-res x (rev! seq)) (con-x (if (if (>= i from) (< i below)) (add seq (now e)) seq) (+ i 1) (nxt e))))) (dm sub* (x| from| => ) (sub x from (len x))) (dm push (l| x| => ) (ins l x 0)) (dm pop (l| => (tup new-col| value|)) (tup (sub l 1 (len l)) (elt l 0))) (dm pick (test| x| => ) (rep con ((seq '()) (e (enum x))) (if (fin? e) (col-res x (rev! seq)) (let ((v (now e))) (con (if (test v) (add seq v) seq) (nxt e)))))) (dm reject (test| x| => ) (pick (fun (x) (not (test x))) x)) (dm del (x| key| => ) (cat (sub x 0 key) (sub x (+ key 1) (len x)))) (dm del-vals (s| x => ) (reject (fun (e) (== e x)) s)) (dm del-dups (x| => ) (col-res x (rev! (fold (fun (s e) (if (mem? s e) s (pair e s))) '() x)))) (dm ins (x| v| before| => ) (rep copy ((r '()) (i 0) (e (enum x))) (if (= i before) (copy (pair v r) (+ i 1) e) (if (fin? e) (col-res x (rev! r)) (copy (pair (now e) r) (+ i 1) (nxt e)))))) ;; TODO: PERHAPS THIS SHOULD BE THE AS MET INSTEAD (dm elts (x| keys| => ) (rep copy ((r '()) (e (enum x)) (i 0) (keys (enum (sort keys)))) (cond ((fin? keys) (col-res x (rev! r))) ((fin? e) (range-error x i)) (#t (let ((key (now keys))) (cond ((= i key) (copy (pair (now e) r) (nxt e) (+ i 1) (nxt keys))) ((isa? key ) (copy r (nxt e) (+ i 1) keys)) (#t (range-error x key)))))))) (dm sort (x| => ) (sort-by x <)) ;; declaration in vec. should be fine, but we don't want any circularities in here. (dm sort-by (A| test| => ) (sort-by! (dup A) test)) ;;;; Undocumented (dm keys (d| => ) (below (len d))) (df (range-check inline) (x| i|) (when (or (< i 0) (>= i (len x))) (range-error x i))) (df (range-check? inline) (x| i|) (and (>= i 0) (< i (len x)))) (dm add (x| e => ) (ins x e 0)) (dm add-new (c| x => ) (unless (mem? c x) (add c x)) c) (dm vals-to-str (s| => ) (fold (fun (s e) (cat s (if (nul? s) "" " ") (to-str e))) "" s)) (dm do-key-vals (fn| key-vals|) (rep rep ((e (enum key-vals))) (unless (fin? e) (def key (now e)) (def nxts (nxt e)) (def val (and (not (fin? e)) (now e))) (fn key val) (rep (nxt e))))) (dm col (t|(t< ) key-vals|...) (def x (fab t (1st (trunc/ (len key-vals) 2)))) (do-key-vals (fun (key val) (set (fab-elt x key) val)) key-vals) x) (dm suffix? (s| end| => ) (= (sub s (- (len s) (len end)) (len s)) end)) (dm prefix? (s| begin| => ) (= (sub s 0 (len begin)) begin)) ;;; Build a sequence containing the specified number of cat'd sequences. (dm repeat (s| n| => ) (if (<= n 0) (nul (class-of s)) (cat2 s (repeat s (- n 1))))) ;;; Split 'str' apart on occurrences of 'sep' (similar to Perl). ;;; TODO - Add a method. (dm split (s| sep => ) (def match (pos s sep)) (if (== match #f) (lst s) (pair (sub s 0 match) (split (sub s (+ match 1) (len s)) sep)))) ;;; Join each sequence in 'ss' with 'sep' (similar to Perl). (dm join (ss| sep| => ) (if (nul? ss) (nul (class-of sep)) (fold (fun (x y) (cat x sep y)) (elt ss 0) (sub ss 1 (len ss))))) ;; from range.goo (need-implementation below sort-by!) goo-0.155/src/goo/cols/seqx.goo0100644000175000017500000000737307542215073015731 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/types) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (exported ;; returns destructively reversed sequence. (dg rev! (x| => )) ;; returns destructively concatenated sequences. (dg cat! (x| more|... => )) (dg push! (l| x| => )) (dg pop! (l| => (tup new-col| value|))) ;; replaces subsequence in range between from and below of dst with ;; contents of src. (dg sub-setter (dst| src| from| below|)) (dg sub*-setter (dst| src| from|)) ;; inserts e into x below index before (dg ins! (x| e| before| => )) ;; returns sequence with all v's deleted from x. (dg del-vals! (x| v| => )) ;; returns sequence with all duplicates removed. (dg del-dups! (x| => )) (dg sort! (x| => )) (dg sort-by! (x| test| => )) ;; deprecated (dg alter (dst| src| from| below| => )) ) ;; TODO: REMOVE PERHAPS? (dm rev! (x| => ) (rev x)) (dm cat! (x| more|... => ) (app cat more)) (dm push! (l| x| => ) (push l x)) (dm pop! (l| => (tup new-col| value|)) (pop l)) (dm ins! (x| v| before| => ) (ins x v before)) (dm del-vals! (x| v| => ) (del-vals x v)) (dm del-dups! (x| => ) (del-dups x)) (dm into (dst| src| => ) (rep in ((ed (enum dst)) (es (enum src))) (if (or (fin? es) (fin? ed)) dst (seq (set (now ed) (now es)) (in (nxt ed) (nxt es)))))) (dm sub-setter (src| dst| from| below| => ) (def dst-len| (len dst)) (def src-len| (len src)) (def del-len| (- below from)) (if (= del-len src-len);; Can modify in place? (rep find ((d (enum dst)) (i 0)) (if (= i from) (rep in ((d d) (s (enum src))) (if (fin? s) dst (seq (set (now d) (now s)) (in (nxt d) (nxt s))))) (find (nxt d) (+ i 1)))) ;; Don't know if dst is stretchy so we have to create a new one (let ((new-len (+ (- dst-len del-len) src-len)) (ndst (fab (class-of dst) new-len))) (rep copy ((nd (enum ndst)) (d (enum dst)) (i 0)) (if (= i from) (rep insert ((nd nd) (s (enum src))) (if (fin? s) (rep skip ((d d) (i from)) (if (= i below) (rep onto ((nd nd) (d d) (i below)) (if (= i dst-len) ndst (seq (set (now nd) (now d)) (onto (nxt nd) (nxt d) (+ i 1))))) (skip (nxt d) (+ i 1)))) (seq (set (now nd) (now s)) (insert (nxt nd) (nxt s))))) (seq (set (now nd) (now d)) (copy (nxt nd) (nxt d) (+ i 1)))))))) (dm sub*-setter (src| dst| from| => ) (set (sub dst from (len dst)) src)) (dm sort! (items| => ) (sort-by! items <)) ;; vec.goo now provides a quicksort, so do not use the horrible list bubble-sort ;;(dm sort-by! (items| test| => ) ;; (col-res items (sort-by! (as items) test))) ;; TODO: DEPRECATED (dm alter (dst| src| from| below| => ) (rep in ((d (enum dst)) (s (enum src))) (if (or (fin? d) (fin? s)) dst (seq (set (now d) (now s)) (in (nxt d) (nxt s)))))) goo-0.155/src/goo/cols/step.goo0100644000175000017500000000234207537733206015722 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/math) (use goo/cols/col) (use goo/cols/seq) ;;;;!! Interface (exported (dc ()) (dg first-then (first| then|)) (dc ()) (dg each (f|)) ) ;;;;!! Implementation ;;;; STEP (dp step-first ( => )) (dp step-then ( => )) ;;;; Collection iteration protocol (dm first-then (first| then| => ) (new step-first first step-then then)) (dc ()) (dp %dat ( => )) (dp! %first? ( => ) #t) (dm enum (x| => ) (new %dat x)) (dm fin? (e| => ) #f) (dm nxt (e| => ) (renew e %first? #f ;; %dat (%dat e) )) (dm now (e| => ) (if (%first? e) ((step-first (%dat e))) ((step-then (%dat e))))) ;;;; EACH (dp each-fun ( => )) (dc ()) (dp %dat ( => )) (dm enum (x| => ) (new %dat x)) (dm fin? (e| => ) #f) (dm nxt (e| => ) e) (dm now (e| => ) ((each-fun (%dat e)))) goo-0.155/src/goo/cols/str.goo0100644000175000017500000001712307552460342015555 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/lst) (use goo/cols/vec) (exported (dg str (objects|...)) (dg char->ascii (char| => )) (dv ascii-whitespaces #f) (dv ascii-limit #f) (dg str-to-num (string| => (t? ))) ;; S48 (dg num-to-str-base (num| radix| => )) (dg num-to-str (num| => )) (dv *print-base* 10) ) ;;; STRING (dm nul ((c (t= )) => ) %snul) (dm elt-default (x| => ) #\space) (dm elt-type (x| => ) ) (dm fab ((x (t= )) s| => ) (%str (%iu s) (%cu #\space))) (dm str (objects|...) (fabs objects)) (dm (len inline) (x| => ) (%ib (%slen x))) (dm (low-elt inline) (x| i| => ) (%cb (%selt x (%iu i)))) (dm (fab-elt-setter inline) (z| x| i|) (set (%selt x (%iu i)) (%cu z))) (dm elt-or (x| i| default => ) ;; TODO: TIGHTEN RET TYPE (if (range-check? x i) (%cb (%selt x (%iu i))) ;; TODO: USE LOW-ELT default)) ;; (dm elt-setter (z| x| i|) ;; (range-check x i) ;; (set (%selt x (%iu i)) (%cu z))) ;; TODO: USE LOW-ELT (dm to-str (x| => ) x) (dm add (s| c| => ) (cat (to-str c) s)) ;;; ASCII -- S48 (dv ascii-limit 128) (dv ascii-chars| (let ((ascii-chars (fill! (fab ascii-limit) #f)) (init (fun (i s) (rep loop ((i i) (j 0)) (unless (= j (len s)) (set (elt ascii-chars i) (elt s j)) (loop (+ i 1) (+ j 1))))))) (init 9 "\t") ;; tab (init 10 "\n") ;; newline (init 12 "\f") ;; page (init 13 "\r") ;; carriage return (init 32 " !\"#$%&'()*+,-./0123456789:;<=>?") (init 64 "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_") (init 96 "`abcdefghijklmnopqrstuvwxyz{|}~") ascii-chars)) (dm ascii->char (n| => ) (or (elt ascii-chars n) (error "not a standard character's ASCII code: %=" n))) (dm char->integer (char| => ) (as char)) (dm integer->char (n| => ) (as n)) (dv (native-chars ) (let ((end259 (len ascii-chars))) (rep loop ((i 0) (least #f) (greatest #f)) (if (= i end259) (let ((v (fill! (fab (+ (- greatest least) 1)) #f))) (rep loop ((i 0)) (if (= i end259) (lst least v) (let ((c (elt ascii-chars i))) (if c (set (elt v (- (char->integer c) least)) i)) (loop (+ i 1)))))) (let ((c (elt ascii-chars i))) (if c (let ((n (char->integer c))) (loop (+ i 1) (if least (min least n) n) (if greatest (max greatest n) n))) (loop (+ i 1) least greatest))))))) (dm char->ascii (char| => ) (or (elt (head (tail native-chars)) (- (char->integer char) (head native-chars))) (error "not a standard character: %=" char))) (dv ascii-whitespaces '(32 10 9 12 13)) (dv ascii-digits| (let ((chars (fill! (fab ascii-limit) #f))) (rep loop ((i (char->ascii #\0)) (x 0)) (unless (> x 9) (set (elt chars i) x) (loop (+ i 1) (+ x 1)))) (rep loop ((i (char->ascii #\a)) (x 10)) (unless (> x 15) (set (elt chars i) x) (loop (+ i 1) (+ x 1)))) (rep loop ((i (char->ascii #\A)) (x 10)) (unless (> x 15) (set (elt chars i) x) (loop (+ i 1) (+ x 1)))) chars)) (dm to-digit-base (digit| => (t? )) (elt ascii-digits (char->ascii digit))) (dm digit-base? (x| radix| => (t? )) (let ((dig (to-digit-base x))) (and dig (< dig radix) dig))) (dm str-to-num (string| => (t? )) ;; S48 (def s 1) (def d 0) (def n 0) (def i 0) (def scale 1) (def length (len string)) (def seen-decimal-point? #f) (def radix 10) (loc ((match (char) (if (and (< i length) (= (elt string i) char)) (seq (set i (+ i 1)) #t) #f)) (match-digit! (_) (esc return (loc ((fail!! () (return #f))) (if (>= i length) (fail!!)) (def char (elt string i)) (if (= char #\.) (if seen-decimal-point? (error "str-to-num: Two decimal points: %=" string) (seq (set seen-decimal-point? #t) (set i (+ i 1)) (if (>= i length) (fail!!)) (set char (elt string i))))) (set d (digit-base? char radix)) (unless d (fail!!)) (set i (+ i 1)) (if seen-decimal-point? (set scale (* scale radix))) #t))) (looking-at-alpha? () (and (< i length) (alpha? (elt string i))))) ;; Now we get to use all this matching machinery (and (or (match #\+) (and (match #\-) (set s -1)) (if (match #\#) (or (and (match #\b) (set radix 2)) (and (match #\o) (set radix 8)) (and (match #\d) (set radix 10)) (and (match #\x) (set radix 16))) #t)) (and (match-digit! d) (set n d)) (rep loop () (if (and (match-digit! d) (set n (+ (* n radix) d))) (loop) #t)) (= i length) ;; consumed all chars (let ((f (if (== 1 scale) (* s n) (* (as s) (/ (as n) (as scale)))))) (if seen-decimal-point? f (trunc f)))))) (dv $digit-to-char "0123456789abcdefghijklmnopqrstuvwxyz") (ddv *print-base* 10) (dv epsilon 0.000001) (dm num-to-str-base (num| radix| => ) (def s (if (< num 0) -1 1)) (def digit-list (rep loop ((digit-list '()) (num (* num s))) (if (= num 0) digit-list (let ((digit (elt $digit-to-char (rem num radix)))) (loop (pair digit digit-list) (1st (trunc/ num radix))))))) (as (if (< s 0) (pair #\- digit-list) (if (= num 0) "0" digit-list)))) (dm num-to-str (num| => ) (num-to-str-base num *print-base*)) (dm num-to-str-base (num| radix| => ) (def s (if (< num 0) -1 +1)) (def p (* num s)) (def string "") (def e (rep loop ((p p) (e 0)) (def i (trunc p)) (if (< (- p i) epsilon) (seq (set string (num-to-str-base i radix)) e) (loop (* p radix) (+ e 1))))) (def length (len string)) (set string (if (= e 0) (cat string ".0") (if (= e length) (cat "0." string) (if (< e length) (cat (sub string 0 (- length e)) "." (sub string (- length e) length)) (cat (sub "0.0000000000000" 0 (+ (- e length) 2)) string))))) (if (< s 0) (cat "-" string) string)) (dm num-to-str (num| => ) (num-to-str-base num *print-base*)) ;;; SYMBOL (dm (as inline) ((_ (t= )) s| => ) (sym-name s)) (dm (as inline) ((_ (t= )) s| => ) (fab-sym s) ;; (def sym (elt symbols s)) ;; (if (== sym nul) ;; (set (elt symbols s) sym) ;; sym) ) (dm (< inline) (x| y| => ) (< (sym-name x) (sym-name y))) (dm to-str (x| => ) (sym-name x)) goo-0.155/src/goo/cols/tab.goo0100644000175000017500000005037607611105276015520 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/packer) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/map) (use goo/cols/seq) (use goo/cols/seqx) (use goo/cols/flat) (use goo/cols/rep) (use goo/cols/tup) (use goo/cols/lst) (use goo/cols/str) ;;; TABLES ;; Is 1 million big enough? ;; (dv *max-prime-for-table* 1000000) ;; ;; List of the first number in each prime pair ;; (dv *twin-primes* (compute-twin-primes *max-prime-for-table*)) (exported (dc ( )) (dc ()) ;; Factor to grow by (dp tab-growth-factor ( => ) 2.0) ;; When to grow or shrink (percentage of table size) (dp tab-growth-threshold ( => ) 0.8) (dp tab-shrink-threshold ( => ) 0.5) ) (dc ()) ;; Number of filled and vacant elements (dp! %vacated ( => ) 0) ;; Modulus values for primary and secondary hash (dp %primary-modulus ( => )) (dp %secondary-modulus ( => )) ;; Number of buckets and number of elements in each bucket (dp %n-buckets ( => )) (dp %bucket-depth ( => )) ;; The actual table data representation (dp! %data ( => )) ;; GC state ;; (dp %gc-state ( => )) (dp! %count ( => ) 0) (dp! %vector ( => )) (exported (dg tab-hash (x| => )) ;; (dv $permanent-hash-state #f) ;; (df tab-gc-state ()) (dg id-hash (x)) (dc ()) (df case-insensitive-string-hash (x| => )) (df case-insensitive-string-equal (x| y| => )) ) (dv *twin-primes* (as '(3 5 11 17 29 41 47 59 71 101 107 137 149 167 179 191 197 227 239 269 281 311 347 419 431 461 521 569 599 617 641 659 809 839 881 1019 1049 1091 1151 1229 1277 1319 1367 1427 1481 1607 1667 1721 1787 1871 1931 1997 2081 2141 2207 2267 2339 2549 2657 2729 2801 2969 3119 3251 3359 3461 3557 3671 3767 3917 4019 4127 4241 4421 4547 4721 4931 5099 5231 5417 5639 5849 6089 6269 6449 6659 6827 7127 7307 7547 7757 8009 8219 8429 8819 9041 9281 9629 9929 10271 10529 10859 11159 11447 11777 12107 12539 12917 13337 13679 14081 14447 14867 15269 15731 16139 16631 17189 17657 18119 18911 19421 19961 20477 21011 21557 22109 22697 23291 23909 24917 25577 26249 26951 27689 28409 29129 29879 30839 31721 32531 33347 34211 35081 36011 36929 37991 39041 40037 41141 42179 43319 44531 45821 47057 48311 49529 50891 52181 53549 54917 56477 57899 59357 60887 62927 64577 66359 68111 69827 71711 73607 75539 77477 79559 81551 83639 85817 88001 90371 92639 95087 97499 99989 102497 105227 108011 110729 113537 116531 119549 122597 125789 128939 132329 135647 139121 142607 146297 149969 153887 157769 161729 166301 170537 174929 179381 183917 188831 193601 198461 203429 208589 213947 219311 224909 230561 236477 242447 248639 254927 261431 268517 275321 282239 289841 297467 304979 312617 320561 328589 336827 345461 354251 363149 372269 381629 391217 401309 411527 422087 432659 443561 454709 466181 478067 490031 502499 515087 527981 541361 555041 569081 583337 598049 613007 628679 644489 660617 677231 694259 711707 729557 747827 766541 785777 805499 825827 846749 868121 889871 912449 935591 959207 983327))) ;; TODO: SIZE FILL N-BUCKETS BUCKET-DEPTH PRIMARY-MODULUS SECONDARY-MODULUS (df fab-tab-vec (size| fill-value n-buckets| bucket-depth| primary-modulus| secondary-modulus| => ) (def v (new %n-buckets n-buckets %bucket-depth bucket-depth %primary-modulus primary-modulus %secondary-modulus secondary-modulus)) (set (%data v) (rep-fab size fill-value)) v) (df @fill! (x| fill) (rep-fill! (%data x) fill)) ;; (dl (@velt inline) (vector| index| => ) ;; TODO: DM (dl @velt (vector| index| => ) ;; TODO: DM ;; (elt (%data vector) index) (%relt (%data vector) (%iu index))) ;; (dl (@velt-setter inline) (new-value vector| index| => ) (dl @velt-setter (new-value vector| index| => ) ;; (set (elt (%data vector) index) new-value) (set (%relt (%data vector) (%iu index)) new-value)) (dm clr! (vector| fill-value) (@fill! vector fill-value) (set (%vacated vector) 0)) (dv *debug-tables?* #f) ;; (df trace (port msg (args ...)) ;; (and *debug-tables?* (app msg port msg args)))) (dm key-test (_| => ) ==) (dm tab-hash (_| => ) id-hash) (dv $nul-cell-marker '("nul cell")) (dv $vacated-cell-marker '("vacated cell")) (dm fab ((type (t< )) size| => ) ;; (trace out "FAB %= SIZE %=\n" type size) (def (tup n-buckets bucket-depth) (choose-table-geometry size)) (def table (new type)) (set (%vector table) (fab-tab-vec (* n-buckets (* bucket-depth 2)) $nul-cell-marker n-buckets bucket-depth n-buckets (- n-buckets 2))) table) ;; (ds with-hash (((tup ,bucket-index ,bucket-offset) (,table ,key)) ,@body) ;; `(let ((test-function (key-test ,table)) ;; (hash-function (tab-hash ,table)) ;; ((hash ) (hash-function ,key)) ;; (vector (%vector table)) ;; (,bucket-index (mod hash (%primary-modulus vector))) ;; (,bucket-offset (+ (mod hash (%secondary-modulus vector)) 1))) ;; ,@body)) (dm elt-or (table| key default => ) (def test-function (key-test table)) (def vector (%vector table)) (def n-buckets (%n-buckets vector)) (def bucket-depth (%bucket-depth vector)) (def hash| ((tab-hash table) key)) (def bucket-index (mod hash (%primary-modulus vector))) (def bucket-offset (+ (mod hash (%secondary-modulus vector)) 1)) ;; Search each bucket (rep outer ((bucket-index bucket-index) (probes 0)) (if (< probes n-buckets) (let ((index (* bucket-index (* bucket-depth 2)))) (rep inner ((i 0) (raw-index index)) (if (< i bucket-depth) (let ((this-key (@velt vector raw-index))) (cond ((== this-key $nul-cell-marker) default) ((test-function key this-key) (@velt vector (+ raw-index bucket-depth))) (#t (inner (+ i 1) (+ raw-index 1))))) ;; Not in this bucket try the next one (outer (mod- bucket-index bucket-offset n-buckets) (+ probes 1))))) ;; Table totally full??? That's not right (internal-error "The table is totally full this shouldn't happen")))) (dm elt-setter (value table| key => ) ;; (trace out "PUT COUNT %= val %=\n" (%count table) value) (def vector (%vector table)) (if (>= (%count table) (* (* (%n-buckets vector) (%bucket-depth vector)) (tab-growth-threshold table))) ;; Grow the table if it's too full (set vector (%vector (grow-table table))) (if (> (+ (%count table) (%vacated vector)) (* (* (%n-buckets vector) (%bucket-depth vector)) (tab-growth-threshold table))) ;; Rehash when there are too many vacated elements (set vector (%vector (rehash-table table))))) (def test-function (key-test table)) (def bucket-depth (%bucket-depth vector)) (def n-buckets (%n-buckets vector)) (def hash| ((tab-hash table) key)) (def bucket-index (mod hash (%primary-modulus vector))) (def bucket-offset (+ (mod hash (%secondary-modulus vector)) 1)) ;; Search each bucket (rep outer ((bucket-index bucket-index) (probes| 0)) (if (< probes n-buckets) (let ((index (* bucket-index (* bucket-depth 2)))) ;; (trace out "LOOKING AT %=\n" index) (rep inner ((vacancy-index #f) (i| 0) (raw-index| index)) (if (< i bucket-depth) (let ((this-key (@velt vector raw-index))) (cond ;; end of chain and not found ((== this-key $nul-cell-marker) (def index (if vacancy-index ;; use a vacant cell if you found one (seq (decf (%vacated vector)) vacancy-index) ;; use this cell raw-index)) ;; (trace out "FOUND NUL CELL @ %d\n" ;; raw-index) (set (@velt vector index) key) (set (@velt vector (+ index bucket-depth)) value) (incf (%count table)) value) ((== this-key $vacated-cell-marker) ;; remember vacancy ;; N.B. Only record the _first_ vacant cell (inner (or vacancy-index raw-index) (+ i 1) (+ raw-index 1))) ;; key already in table update value ((test-function key this-key) (set (@velt vector (+ raw-index bucket-depth)) value) ;; (trace out "FOUND KEY @ %d\n" raw-index) value) (#t (inner vacancy-index (+ i 1) (+ raw-index 1))))) ;; Not in this bucket try the next one (outer (mod- bucket-index bucket-offset n-buckets) (+ probes 1))))) ;; Table totally full??? That's not right (internal-error "The table is totally full this shouldn't happen")))) (dm del (x| key => ) (del! (dup x) key)) (dm del! (table| key => ) (def test-function (key-test table)) (def vector (%vector table)) (def n-buckets (%n-buckets vector)) (def bucket-depth (%bucket-depth vector)) (def hash| ((tab-hash table) key)) (def bucket-index (mod hash (%primary-modulus vector))) (def bucket-offset (+ (mod hash (%secondary-modulus vector)) 1)) ;; Search each bucket (rep outer ((bucket-index bucket-index) (probes| 0)) (if (< probes n-buckets) (let ((index| (* bucket-index (* bucket-depth 2)))) ;; (trace out "LOOKING AT %=\n" index) (rep inner ((i| 0) (raw-index| index)) (if (< i bucket-depth) (let ((this-key (@velt vector raw-index))) (cond ((== this-key $nul-cell-marker) #f) ;; N.B. Don't look at already vacated cells along ;; the collision chain ((and (~== this-key $vacated-cell-marker) (test-function key this-key)) (set (@velt vector raw-index) $vacated-cell-marker) ;; In a GC-ed environment clear the value cell too! (decf (%count table)) (incf (%vacated vector)) #t) (#t (inner (+ i 1) (+ raw-index 1))))) ;; Not in this bucket try the next one (outer (mod- bucket-index bucket-offset n-buckets) (+ probes 1))))) ;; Table totally full??? That's not right (internal-error "The table is totally full this shouldn't happen"))) table) (dm do-keyed (function| table|) (def vector (%vector table)) (def n-buckets (%n-buckets vector)) (def depth (%bucket-depth vector)) (rep outer ((b| 0)) (when (< b n-buckets) (rep inner ((i| 0)) (when (< i depth) (def key (@velt vector (+ i (* b (* depth 2))))) (unless (or (== key $nul-cell-marker) (== key $vacated-cell-marker)) ;; (trace out "B %= I %=\n" b i) (def index (+ i (+ (* b (* depth 2)) depth))) (function key (@velt vector index))) (inner (+ i 1)))) (outer (+ b 1))))) (dm do (function| table|) (def vector (%vector table)) (def n-buckets (%n-buckets vector)) (def depth (%bucket-depth vector)) (rep outer ((b| 0)) (when (< b n-buckets) (rep inner ((i| 0)) (when (< i depth) (def key (@velt vector (+ i (* b (* depth 2))))) (unless (or (== key $nul-cell-marker) (== key $vacated-cell-marker)) (def index (+ i (+ (* b (* depth 2)) depth))) (function (@velt vector index))) (inner (+ i 1)))) (outer (+ b 1))))) (dm zap! (table| => ) (clr! (%vector table) $nul-cell-marker) (set (%count table) 0) table) (dm len (table| => ) (%count table)) (dc ()) (dp! @vec ( => )) (dp! @buc ( => )) (dp! @idx ( => )) (dp @fin? ( => ) #f) (dv $fin-enum (new @fin? #t)) (dm enum (table| => ) (if (= (len table) 0) $fin-enum (let ((vector (%vector table)) (n-buckets (%n-buckets vector)) (depth (%bucket-depth vector))) (rep outer ((b| 0)) (if (< b n-buckets) (rep inner ((i| 0)) (if (< i depth) (let ((key (@velt vector (+ i (* b (* depth 2)))))) (if (or (== key $nul-cell-marker) (== key $vacated-cell-marker)) (inner (+ i 1)) (new @vec vector @buc b @idx i))) (outer (+ b 1)))) $fin-enum))))) (dm nxt (e| => ) (def vector (@vec e)) (def n-buckets (%n-buckets vector)) (def depth (%bucket-depth vector)) (def bucket (@buc e)) (def index (@idx e)) (rep outer ((b| bucket) (first? #t)) (if (< b n-buckets) (rep inner ((i| (if first? (+ index 1) 0))) (if (< i depth) (let ((key (@velt vector (+ i (* b (* depth 2)))))) (if (or (== key $nul-cell-marker) (== key $vacated-cell-marker)) (inner (+ i 1)) (renew e @vec vector @buc b @idx i))) (outer (+ b 1) #f))) $fin-enum))) (dm fin? (e| => ) (@fin? e)) (dm now-key (e| => ) (def vector (@vec e)) (def depth (%bucket-depth vector)) (@velt vector (+ (@idx e) (* (@buc e) (* depth 2))))) (dm now (e| => ) (def vector (@vec e)) (def depth (%bucket-depth vector)) (@velt vector (+ (@idx e) (+ depth (* (@buc e) (* depth 2)))))) (dm now-setter (value e|) (def vector (@vec e)) (def index (@idx e)) (def depth (%bucket-depth vector)) (set (@velt vector (+ index (+ depth (* (@buc e) (* depth 2))))) value)) ;;; Internal functions (dm tab-keys (table| => ) (packing () (do-keyed (fun (k v) (pack k)) table))) (dm grow-table (table| => ) ;; (let ((vec (%vector table))) ;; (trace out "GROWING TABLE %= %= OF %=\n" (object-name table) ;; (%count table) (* (%n-buckets vec) (%bucket-depth vec)))) (def vector (%vector table)) (def (tup new-n-buckets new-bucket-depth) (choose-table-geometry (floor (* (* (%n-buckets vector) (%bucket-depth vector)) (tab-growth-factor table))))) (def new-vector (fab-tab-vec (* new-n-buckets (* new-bucket-depth 2)) $nul-cell-marker new-n-buckets new-bucket-depth new-n-buckets (- new-n-buckets 2))) ;; (trace out "OLD DATA %=\n" (%data (%vector table))) (copy-to-new-vector table new-vector) (set (%vector table) new-vector) ;; (trace out "NEW DATA %=\n" (%data (%vector table))) ;;--- It would be nice to be able to deallocate the old vector table) (dm rehash-table (table| => ) (def vector (%vector table)) (def new-vector (fab-tab-vec (* (%n-buckets vector) (* (%bucket-depth vector) 2)) $nul-cell-marker (%n-buckets vector) (%bucket-depth vector) (%primary-modulus vector) (%secondary-modulus vector))) (copy-to-new-vector table new-vector) (set (%vector table) new-vector) table) (df choose-table-geometry (capacity| => (tup n-buckets| bucket-depth|)) ;;--- These numbers are completely arbitrary and need to be tuned up (esc return (def depth (cond ((< capacity 2000) 1) ((< capacity 5000) 2) ((< capacity 15000) 4) ((< capacity 50000) 8) ((< capacity 250000) 16) (#t 32))) (do (fun ((p )) (when (> p (1st (ceil/ capacity depth))) (return (tup (+ p 2) depth)))) *twin-primes*) (internal-error "Not enough primes to compute new table size"))) (dm copy-to-new-vector (table| new-vector) (do-keyed (fun (k v) (def test-function (key-test table)) (def new-n-buckets (%n-buckets new-vector)) (def new-bucket-depth (%bucket-depth new-vector)) (def new-primary-modulus (%primary-modulus new-vector)) (def new-secondary-modulus (%secondary-modulus new-vector)) (def hash| ((tab-hash table) k)) (def new-bucket-index (mod hash new-primary-modulus)) (def new-bucket-offset (+ (mod hash new-secondary-modulus) 1)) ;; (trace out "VISITING (%= %=)\n" k v) ;; Search each bucket (rep outer ((new-bucket-index new-bucket-index) (probes| 0)) (if (< probes new-n-buckets) (let ((bucket-start (* new-bucket-index (* new-bucket-depth 2)))) (rep inner ((i| 0) (index| bucket-start)) (if (< i new-bucket-depth) (let ((this-key (@velt new-vector index))) (if (== this-key $nul-cell-marker) ;; (trace out "COPYING TO (%= %=) %=\n" k v index) (seq (set (@velt new-vector index) k) (set (@velt new-vector (+ index new-bucket-depth)) v)) (inner (+ i 1) (+ index 1)))) ;; No room in this bucket try the next one (outer (mod- new-bucket-index new-bucket-offset new-n-buckets) (+ probes 1))))) ;; Table totally full??? That's not right (internal-error "The table is totally full this shouldn't happen")))) table)) ;;; HASHING FUNCTIONS ;; TODO: SOME STORY FOR REHASHING ON GC MOVEMENT ;; (df tab-gc-state () $permanent-hash-state) (dm id-hash (x) (address-of x)) (dm id-hash (x|) (if x 131 149)) ;; TODO: CHECK FOR CORRECTNESS (df rot (x| a| => ) (| (>> x a) (<< x a))) (dm id-hash (x|) ;; Offset it so that 0 doesn't hash to 0 (abs (+ (- (rot x 15) x) 31))) (dm id-hash (x|) (id-hash (as x))) (dm id-hash (x|) (+ (flo-bits x) 89)) (dm id-hash (x|) (rep loop ((t-enum (enum x)) (cur-hash 0)) (when (not (fin? t-enum)) (def cur-elem (now t-enum)) (loop (nxt t-enum) (+ (* cur-hash 31) (id-hash cur-elem))) ) cur-hash ) ) (dm key-type (x| => ) ) (dm elt-type (x| => ) ) (df case-insensitive-string-hash (x| => ) (def e (len x)) (rep loop ((i| 0) (hash| 0)) (if (< i e) (loop (+ i 1) (mod (+ (<< hash 6) (& (as (low-elt x i)) #x9f)) 970747)) hash))) (df case-insensitive-string-equal (x| y| => ) (def sy 0) (def ey (len y)) (when (== (len x) (- ey sy)) (rep loop ((i| sy)) (or (== i ey) (let ((cx| (low-elt x (- i sy))) (cy| (low-elt y i))) (and (or (== cx cy) (== (to-lower cx) (to-lower cy))) (loop (+ i 1)))))))) (dm key-test (_| => ) case-insensitive-string-equal) (dm tab-hash (_| => ) case-insensitive-string-hash) ;;;; ;;;; SETS ;;;; (dm add! (c| x => ) (set (elt c x) #t) c) (dm mem? (c| x => ) (elt-or c x #f)) (dm elts (x| keys| => ) (def res (fab (len keys))) (do (fun (k) (set (elt res k) (elt x k))) keys) (col-res x res)) goo-0.155/src/goo/cols/tup.goo0100644000175000017500000000172507546136731015563 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/cols/col) (use goo/cols/seq) (use goo/cols/flat) ;; 3.7.6.1 TUPLES ;;;;!! Interface (exported ;; Defined in boot tup ) ;;;;!! Implementation ;;;; Collection protocol (dm (len inline) (x| => ) (%ib (%tlen x))) (dm elt-or (x| i| default => ) (if (range-check? x i) (%telt x (%iu i)) ;; TODO: LOW-ELT default)) ;; (dm elt-setter (z x| i|) ;; (range-check x i) ;; (set (%telt x (%iu i)) z)) ;; TODO: LOW-ELT (dm nul (c|(t= ) => ) %tnul) (dm (fab inline) (x|(t= ) s| => ) (%tup (%iu s) #f)) ;;;; Misc stuff (dm to-str (x| => ) (cat "#(" (vals-to-str x) ")")) ;;;; Undocumented (dm (low-elt inline) (x| i| => ) (%telt x (%iu i))) (dm (fab-elt-setter inline) (z x| i|) (set (%telt x (%iu i)) z)) goo-0.155/src/goo/cols/vec.goo0100644000175000017500000000670207542215073015521 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/types) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/seqx) (use goo/cols/lst) (use goo/cols/flat) (use goo/cols/rep) ;; 3.7.6.3 STRETCHY-VECTOR ;;;;!! Interface (exported (dc ( )) (dg vec (elts|... => )) ) ;;;;!! Implementation (dp! vec-len ( => ) 0) (dp! vec-dat ( => ) (rep-nul)) ;;;; Collection protocol (dm len (c| => ) (vec-len c)) (dm elt-or (c| i| default => ) (if (range-check? c i) (low-elt c i) default)) (dm elt-setter (z c| i|) (when (< i 0) (range-error c i)) (set (low-elt c i) z)) (dm nul ((c (t= )) => ) (new )) (dm fab ((c (t= )) s| => ) (def dat (rep-fab (power-of-two-ceil s) #f)) (new vec-len s vec-dat dat)) ;;;; Sequence protocol ;; TODO: HAVE THIS FALL OUT OF PROTOCOL (dm cat! (x| more|... => ) (for ((s more)) (for ((e s)) (add! x e))) x) (dm vec (elts|... => ) (app fabs elts)) (dm push! (c| x => ) (add! c x)) (dm pop! (c| => (tup seq| val|)) (def new-len (- (len c) 1)) (when (< new-len 0) (range-error c new-len)) (def x (low-elt c new-len)) (set (len c) new-len) (tup c x)) ;; TODO: QUESTIONABLE SYNTAX (dm to-str (x| => ) (cat "#[" (vals-to-str x) "]")) (dm add! (c| x => ) (set (low-elt c (len c)) x) c) (dm len/fill-setter (new-len| c| default) (def dat (vec-dat c)) (if (> new-len (rep-len dat)) (let ((new-data (rep-fab (power-of-two-ceil new-len) default))) (rep-into! new-data dat) (set (vec-len c) new-len) (set (vec-dat c) new-data)) (if (< new-len (len c)) (let ((old-len (len c))) (when (< new-len 0) (range-error c new-len)) (set (vec-len c) new-len) (rep fill ((i| new-len)) (and (< i old-len) (set (rep-elt dat i) default) (fill (+ i 1))))) (set (vec-len c) new-len)))) (dm len-setter (new-len| c|) (set (len/fill c (elt-default c)) new-len)) (dm zap! (c| => ) (set (len c) 0) c) (dm low-elt (x| i| => ) (rep-elt (vec-dat x) i)) (dm low-elt-setter (z x| i|) (when (>= i (len x)) (set (len x) (+ i 1))) (set (rep-elt (vec-dat x) i) z)) (dm sort-by (A| test| => ) (col-res A (sort-by! (as A) test))) (dm sort-by! (A| test| => ) (def sorted (quicksort! (as A) 0 (1- (len A)) test)) (if (== A sorted) ; (as) can return the same object, so sorted could == A sorted (into A sorted))) (dm quicksort! (A| p| r| test| => ) (if (< p r) (let ((q (partition! A p r test))) (quicksort! A p q test) (quicksort! A (1+ q) r test)) A)) (dm partition! (A| p| r| test| => ) (def x (elt A p)) (def i (1- p)) (def j (1+ r)) (rep loop () (rep j-loop () (decf j) (unless (or (test (elt A j) x) (= (elt A j) x)) (j-loop))) (rep i-loop () (incf i) (unless (not (test (elt A i) x)) (i-loop))) (if (< i j) (seq (swapf (elt A i) (elt A j)) (loop)) j))) goo-0.155/src/goo/cols/zip.goo0100644000175000017500000000173407542215073015546 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/types) (use goo/math) (use goo/cols/col) (use goo/cols/seq) (exported (dc ()) (dg zip (e|... => )) (dg unzip (z| => ))) (dp zip-dat ( => ) #()) (dm zip (e|... => ) (new zip-dat (as e))) (dm unzip (z| => ) (zip-dat z)) (dc ()) (dp zip-states ( => )) (dc ()) (dp! %enums ( => )) (dm enum (x| => ) (new %enums (map enum x))) (dm fin? (e| => ) (any? nul? (%enums e))) (dm nxt (e| => ) (renew e %enums (map nxt (%enums e)))) (dm now (e| => ) (map now (%enums e))) (dm now-setter (v| e|) (for ((ve v) (ee (%enums e))) (set (now ee) (now ve)))) (dm now-key (e| => ) (map now-key (%enums e))) goo-0.155/src/goo/io/0040755000175000017500000000000007756746026013721 5ustar vomjomvomjomgoo-0.155/src/goo/io/CVS/0040755000175000017500000000000007756746026014354 5ustar vomjomvomjomgoo-0.155/src/goo/io/CVS/Root0100644000175000017500000000003307756746026015213 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/goo/io/CVS/Repository0100644000175000017500000000001707756746026016451 0ustar vomjomvomjomgoo/src/goo/io goo-0.155/src/goo/io/CVS/Entries0100644000175000017500000000044307756746026015706 0ustar vomjomvomjom/%net.c/1.4/Mon Oct 20 22:45:12 2003// /%port.c/1.3/Tue Jan 14 22:10:06 2003// /net.goo/1.4/Mon Oct 20 22:45:12 2003// /port.goo/1.20/Tue Jan 14 22:10:06 2003// /pretty.goo/1.2/Tue Jan 14 22:10:06 2003// /read.goo/1.29/Mon Oct 20 22:45:12 2003// /write.goo/1.45/Tue Jan 14 22:10:06 2003// D goo-0.155/src/goo/io/%net.c0100644000175000017500000002351607745062570014715 0ustar vomjomvomjom#include "grt.h" #include #include #if !defined(_MSC_VER) #include #include #else #include #endif #include #include #if !defined(_MSC_VER) #include #include #include #include #endif #define my_package YgooSioSnetYP #define sockWrap(x) YPib((P)x) #define sockUnwrap(x) ((int)YPiu(x)) #define strUnwrap(x) ((char *)YPsu(x)) #define strWrap(x) YPsb((P)x) #define intUnwrap(x) ((int)YPiu(x)) #define MAXMSG 256 #define GOOFUNC(name) P YgooSioSnetYP ## name EXT(YgooSioSportYport_handle,"goo/io/port","port-handle"); EXT(YgooSioSnetYsocket_eof,"goo/io/net","socket-eof"); EXT(YgooStypesYlen, "goo/types", "len"); EXT(YgooSmacrosYelt, "goo/macros", "elt"); #if defined(_MSC_VER) int win32_start_sockets() { static int sockets_started = 0; if(!sockets_started) { WSADATA data; if(WSAStartup(MAKEWORD(1, 1), &data) != 0) { return 0; } sockets_started = 1; } return 1; } #endif GOOFUNC(new_socket) () { int sock; #if defined(_MSC_VER) if(!win32_start_sockets()) { return YPfalse; } #endif sock = socket(AF_INET, SOCK_STREAM, 0); // default protocol. if (sock < 0) return YPfalse; return sockWrap(sock); } GOOFUNC(connect_socket) (P sockfd, P straddr, P iport) { struct sockaddr_in me, target; struct hostent *h; int rc; h = gethostbyname(strUnwrap(straddr)); if(h == NULL) { return YPfalse; } target.sin_family = h->h_addrtype; memcpy((char *) &target.sin_addr.s_addr, h->h_addr_list[0], h->h_length); target.sin_port = htons(intUnwrap(iport)); me.sin_family = AF_INET; me.sin_addr.s_addr = htonl(INADDR_ANY); me.sin_port = htons(0); rc = bind(sockUnwrap(sockfd), (struct sockaddr *) &me, sizeof(me)); if (rc < 0) { return YPfalse; } rc = connect(sockUnwrap(sockfd), (struct sockaddr *)&target, sizeof(target)); if (rc < 0) { return YPfalse; } return YPtrue; } GOOFUNC(listen_socket) (P sockfd, P iport) { struct sockaddr_in me; me.sin_family = AF_INET; me.sin_addr.s_addr = htonl(INADDR_ANY); me.sin_port = htons(intUnwrap(iport)); if (bind(sockUnwrap(sockfd), (struct sockaddr *) &me, sizeof(me)) < 0) { return YPfalse; } if(listen(sockUnwrap(sockfd), 5) == 0) return YPtrue; else return YPfalse; } GOOFUNC(accept_socket) (P sockfd) { int newsock; struct sockaddr_in dude; int dudeLen; dudeLen = sizeof(dude); newsock = accept(sockUnwrap(sockfd), (struct sockaddr *)&dude, &dudeLen); if(newsock < 0) { return YPfalse; } return sockWrap(newsock); } GOOFUNC(socket_connected) (P sockfd) { struct sockaddr_in dude; int dudeLen; int retval; dudeLen = sizeof(dude); retval = getpeername(sockUnwrap(sockfd), (struct sockaddr *)&dude, &dudeLen); if(retval < 0) { return YPfalse; } else { return YPtrue; } } GOOFUNC(read_max) (P sockfd) { char buf[1024]; int retval; retval = recv(sockUnwrap(sockfd), &buf[0], 1024, 0); if(retval == 0) { return VARREF(YgooSioSnetYsocket_eof); } else if(retval < 0) { if(errno == EAGAIN) { return YPfalse; } else { return VARREF(YgooSioSnetYsocket_eof); } } return YPsb_with_len(buf, retval); } GOOFUNC(read_socket_byte) (P sockfd) { char buf[1]; int retval; retval = recv(sockUnwrap(sockfd), &buf[0], 1, 0); if(retval == 0) { return VARREF(YgooSioSnetYsocket_eof); } else if(retval < 0) { if(errno == EAGAIN) { return YPfalse; } else { return VARREF(YgooSioSnetYsocket_eof); } } return YPcb((P)((int)buf[0])); } GOOFUNC(peek_socket_byte) (P sockfd) { char buf[1]; int retval; retval = recv(sockUnwrap(sockfd), &buf[0], 1, MSG_PEEK); if(retval == 0) { return VARREF(YgooSioSnetYsocket_eof); } else if(retval < 0) { if(errno == EAGAIN) { return YPfalse; } else { return VARREF(YgooSioSnetYsocket_eof); } } return YPcb((P)((int)buf[0])); } GOOFUNC(write_socket_byte) (P sockfd, P byte) { char buf[1]; buf[0] = YPcu(byte); if(send(sockUnwrap(sockfd), &buf[0], 1, 0) < 1) { return YPfalse; } else { return YPtrue; } } GOOFUNC(write_socket_string) (P sockfd, P str) { char *dastr; int len; dastr = (char *)YPsu(str); len = (int)YPslen(str); // I have a feeling that this should be looping... if(send(sockUnwrap(sockfd), dastr, len, 0) < len) { return YPfalse; } else { return YPtrue; } } GOOFUNC(close_socket) (P sockfd) { #if defined(_MSC_VER) closesocket(sockUnwrap(sockfd)); #else close(sockUnwrap(sockfd)); #endif return YPtrue; } GOOFUNC(make_non_blocking) (P sockfd) { int opts; int sock = sockUnwrap(sockfd); #if defined(_MSC_VER) return YPfalse; #else opts = fcntl(sock, F_GETFL); if(opts < 0) { return YPfalse; } opts |= O_NONBLOCK; if(fcntl(sock, F_SETFL, opts) < 0) { return YPfalse; } return YPtrue; #endif } #define YPtlen(a) (int)YPiu(XCALL1(1, VARREF(YgooStypesYlen), a)) #define YPtelt(a, b) XCALL2(1, VARREF(YgooSmacrosYelt), a, YPib((P)b)) GOOFUNC(select) (P readvec, P writevec, P exceptvec, P timeout) { fd_set readset, writeset, exceptset; P read_outvec, write_outvec, except_outvec, result_tup; int highest=0; struct timeval tv; int i, len, time_millis, retval; DEFCREGS(); FD_ZERO(&readset); FD_ZERO(&writeset); FD_ZERO(&exceptset); // loop over read if((readvec != YPfalse) && ((len = (int)YPtlen(readvec)) > 0)) { for(i=0; i < len; i++) { int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), YPtelt(readvec, i))); FD_SET(fd, &readset); if(fd > highest) highest=fd; } } // loop over write if((writevec != YPfalse) && ((len = (int)YPtlen(writevec)) > 0)) { for(i=0; i < len; i++) { int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), YPtelt(writevec, i))); FD_SET(fd, &writeset); if(fd > highest) highest=fd; } } // loop over except if((exceptvec != YPfalse) && ((len = (int)YPtlen(exceptvec)) > 0)) { for(i=0; i < len; i++) { int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), YPtelt(exceptvec, i))); FD_SET(fd, &exceptset); if(fd > highest) highest=fd; } } if(timeout != YPfalse) { INTFLO x; x.i = (PINT)YPfu(timeout); tv.tv_sec = (unsigned long)x.f; tv.tv_usec = (unsigned long)((x.f - (float)tv.tv_sec) * 1000000.0); // time_millis = intUnwrap(timeout); // tv.tv_sec = time_millis / 1000; // tv.tv_usec = (time_millis % 1000) * 1000; retval = select(highest+1, &readset, &writeset, &exceptset, &tv); } else { retval = select(highest+1, &readset, &writeset, &exceptset, NULL); } if(retval < 0) { printf("Something's real bad wrong... in my pants!\n"); return YPfalse; } // loop over read if((readvec != YPfalse) && ((len = (int)YPtlen(readvec)) > 0)) { int numSet = 0, idxTup=0; // Find how many there are in this guy. for(i=0; i < len; i++) { int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), YPtelt(readvec, i))); if(FD_ISSET(fd, &readset)) numSet++; } // Create a tup and fill it up. // Note the inefficiency with which I punish the infidels who would dare attempt // to do things in a non-blocking fashion! They will pay!!! read_outvec = YPPtfab((P)numSet, (P)0); for(i=0; i < len; i++) { P obj_val = YPtelt(readvec, i); int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), obj_val)); if(FD_ISSET(fd, &readset)) { YPtelt_setter(obj_val, read_outvec, idxTup++); } } } else { read_outvec = YPfalse; } // loop over write if((writevec != YPfalse) && ((len = (int)YPtlen(writevec)) > 0)) { int numSet = 0, idxTup=0; // Find how many there are in this guy. for(i=0; i < len; i++) { int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), YPtelt(writevec, i))); if(FD_ISSET(fd, &writeset)) numSet++; } // Create a tup and fill it up. // Note the inefficiency with which I punish the infidels who would dare attempt // to do things in a non-blocking fashion! They will pay!!! write_outvec = YPPtfab((P)numSet, (P)0); for(i=0; i < len; i++) { P obj_val = YPtelt(writevec, i); int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), obj_val)); if(FD_ISSET(fd, &writeset)) { YPtelt_setter(obj_val, write_outvec, idxTup++); } } } else { write_outvec = YPfalse; } // loop over except if((exceptvec != YPfalse) && ((len = (int)YPtlen(exceptvec)) > 0)) { int numSet = 0, idxTup=0; // Find how many there are in this guy. for(i=0; i < len; i++) { int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), YPtelt(exceptvec, i))); if(FD_ISSET(fd, &exceptset)) numSet++; } // Create a tup and fill it up. // Note the inefficiency with which I punish the infidels who would dare attempt // to do things in a non-blocking fashion! They will pay!!! except_outvec = YPPtfab((P)numSet, (P)0); for(i=0; i < len; i++) { P obj_val = YPtelt(exceptvec, i); int fd = sockUnwrap(XCALL1(1, VARREF(YgooSioSportYport_handle), obj_val)); if(FD_ISSET(fd, &exceptset)) { YPtelt_setter(obj_val, except_outvec, idxTup++); } } } else { except_outvec = YPfalse; } result_tup = YPPtfab(3, (P)0); YPtelt_setter(read_outvec, result_tup, 0); YPtelt_setter(write_outvec, result_tup, 1); YPtelt_setter(except_outvec, result_tup, 2); return result_tup; } goo-0.155/src/goo/io/%port.c0100644000175000017500000000404507611105276015100 0ustar vomjomvomjom/* Copyright 2002, Jonathan Bachrach. See file TERMS. */ #include extern P Yfile_opening_error; P YgooSioSportYPopen_in_file (P name) { FILE* fd = fopen((PSTR)name, "r"); if (fd == NULL) XXCALL1(1, Yfile_opening_error, YPsb((PSTR)name)); return (P)YPlb(fd); } P YgooSioSportYPopen_out_file (P name) { FILE* fd = fopen((PSTR)name, "w"); if (fd == NULL) XXCALL1(1, Yfile_opening_error, YPsb((PSTR)name)); return (P)YPlb(fd); } P YgooSioSportYPclose_in_port (P s) { fclose((FILE*)YPlu(s)); return YPfalse; } P YgooSioSportYPclose_out_port (P s) { fclose((FILE*)YPlu(s)); return YPfalse; } P YgooSioSportYPnewline (P s) { fputc('\n', (FILE*)YPlu(s)); #ifdef WIN32 if ((FILE*)YPlu(s) == stdout) fflush(stdout); #endif return YPfalse; } P YgooSioSportYPforce_out (P s) { fflush((FILE*)YPlu(s)); return YPfalse; } P YgooSioSportYPput (P s, P x) { fputc((PCHR)(PINT)x, (FILE*)YPlu(s)); #ifdef WIN32 if ((FILE*)YPlu(s) == stdout && (((PCHR)(PINT)x) == '\n')) fflush(stdout); #endif return YPfalse; } P YgooSioSportYPputs (P s, P x) { if(x==NULL) fputs("NULL", (FILE*)YPlu(s)); else fputs((PSTR)x, (FILE*)YPlu(s)); #ifdef WIN32 if ((FILE*)YPlu(s) == stdout) fflush(stdout); #endif return YPfalse; } P YgooSioSportYPget (P s) { return (P)(PINT)fgetc((FILE*)YPlu(s)); } P YgooSioSportYPpeek (P s) { PINT c = fgetc((FILE*)YPlu(s)); ungetc(c, (FILE*)YPlu(s)); return (P)c; } P YgooSioSportYPreadyQ (P s) { int res; #ifdef WIN32 fd_set rfds; FD_ZERO(&rfds); FD_SET(fileno((FILE*)YPlu(s)), &rfds); res = select(1, &rfds, NULL, NULL, NULL); #else res = 1; #endif return((P)(PINT)res); } #define MAXSTRSIZ 1000 char strbuf[MAXSTRSIZ]; PSTR YgooSioSportYPgets (FILE* s) { char *str; fgets(strbuf, MAXSTRSIZ, (FILE*)YPlu(s)); str = (char*)allocate_atomic(strlen(strbuf) + 1); strcpy(str, strbuf); return str; } PPORT YgooSioSportYPcurrent_in_port (void) { return (PPORT)YPlb(stdin); } PPORT YgooSioSportYPcurrent_out_port (void) { return (PPORT)YPlb(stdout); } goo-0.155/src/goo/io/net.goo0100644000175000017500000000755207745062570015214 0ustar vomjomvomjom(use goo) (use goo/boot) (use goo/macros) (use goo/types) (use goo/math) (use goo/io/port) (use goo/io/%net.c) (dl %new-socket) (dl %connect-socket) (dl %listen-socket) (dl %accept-socket) (dl %read-socket-byte) (dl %read-max) (dl %peek-socket-byte) (dl %write-socket-byte) (dl %write-socket-string) (dl %close-socket) (dl %socket-connected) (dl %make-non-blocking) (dl %select) (dv socket-eof (gensym)) (dc ()) (dc ()) (dc ()) (dc ()) (dp in-port ( => )) (dp out-port ( => )) (dp socket-in-eof ( => ) #f) (dm connect-socket (host| port|) (def sockfd (%new-socket)) (if (%connect-socket sockfd host port) (seq (def sock (new )) (def in-sock (new )) (def out-sock (new )) (set (port-handle in-sock) sockfd) (set (port-handle out-sock) sockfd) (set (port-handle sock) sockfd) (set (in-port sock) in-sock) (set (out-port sock) out-sock) sock ) (seq (%close-socket sockfd) #f ) ) ) (dm listen-socket (port| => (t? )) (def sockfd (%new-socket)) (if (%listen-socket sockfd port) (seq (def sock (new )) (set (port-handle sock) sockfd) sock ) (seq (%close-socket sockfd) #f ) ) ) (dm accept-socket (sock| => (t? )) (def sockfd (%accept-socket (port-handle sock))) (when sockfd (def sock (new )) (def in-sock (new )) (def out-sock (new )) (set (port-handle in-sock) sockfd) (set (port-handle out-sock) sockfd) (set (port-handle sock) sockfd) (set (in-port sock) in-sock) (set (out-port sock) out-sock) sock ) ) (dm close (port|) (%close-socket (port-handle (in-port port))) ) (dm get (port| => ) (def b (%read-socket-byte (port-handle port))) (cond ((== b socket-eof) (set (socket-in-eof port) #t) (eof-object) ) ((== b #f) #f ;; Nothing right now? ) (#t b) ) ) ;; Likes to return a string, #f if there's nothing there right now (EAGAIN), ;; or (eof-object) on eof. (dm get-max (port| => ) (def s (%read-max (port-handle port))) (cond ((== s socket-eof) (set (socket-in-eof port) #t) (eof-object) ) ((== s #f) #f ;; Nothing right now? ) (#t s) ) ) (dm peek (port| => ) (def b (%peek-socket-byte (port-handle port))) (cond ((== b socket-eof) (set (socket-in-eof port) #t) (eof-object) ) ((== b #f) #f ;; Nothing right now? ) (#t b) ) ) (dm put (port| c|) (%write-socket-byte (port-handle port) c) ) (dm puts (port| s|) (%write-socket-string (port-handle port) s) ) ;; Eh, we should select... but I'm too lazy right now (dm ready? (port| => ) #t ) ;; WHO ARE YOU TO DOUBT THE ALMIGHTY NAGLE?! (dm force-out (port|) #f ) (dm eof? (port| => ) (socket-in-eof port) ) (dm make-non-blocking (port| => ) (%make-non-blocking (port-handle port)) ) (dm select (read-ports|(t? ) write-ports|(t? ) except-ports|(t? ) wait-in-secs|(t? )) (%select read-ports write-ports except-ports wait-in-ms) ) (export connect-socket in-port out-port eof? select accept-socket listen-socket get-max make-non-blocking ) goo-0.155/src/goo/io/port.goo0100644000175000017500000001031407611105276015371 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/types) (use goo/cols/col) (use goo/cols/colx) (use goo/cols/seq) (use goo/cols/seqx) (use goo/cols/vec) (use goo/io/%port.c) (dl %current-out-port) (dl %current-in-port) (dl %open-in-file) (dl %open-out-file ) (dl %close-out-port) (dl %close-in-port) (dl %put) (dl %puts) (dl %force-out) (dl %ready?) (dl %get) (dl %newline) (dl %peek) (dl %ready) (exported (dc ()) (dg open ((t (t< )) name| => )) (dg close (x|)) with-port (dc ()) (dp! port-line ( => ) 1) (dg get (port| => )) (dg gets (port|) => ) (dg peek (port| => )) (dg ready? (port| => )) (dc ()) (dg newline (port|)) (dg force-out (port|)) (dg put (port| c|)) (dg puts (port| s|)) (dc ()) (dp port-filename ( => ) "") (dp port-handle ( => )) ) (dm close (port|) #f) (exported (dc ( )) (dc ( )) (dv in #f) (dv out #f) (dc ())) (dp! port-guts ( => ) "") (exported (dg port-contents (port| => )) (dc ( )) (dp! port-index ( => ) 0) (dc ( )) port-to-str) (dm gets (port| => ) (rep loop ((res '()) (c (get port))) (if (or (eof-object? c) (== c #\newline)) (as (rev! res)) (loop (pair c res) (get port))))) (dm open (t|(t= ) filename| => ) (new port-filename filename port-handle (%open-in-file (%su filename)))) (dm open (t|(t= ) filename| => ) (new port-filename filename port-handle (%open-out-file (%su filename)))) (dm close (port|) (%close-in-port (port-handle port))) (dm close (port|) (%close-out-port (port-handle port))) (ds with-port ((,name ,port) ,@body) `(let ((,name #f)) (fin (seq (set ,name ,port) ,@body) (and ,name (close ,name))))) (dv in (new port-filename "in" port-handle (%current-in-port))) (dv out (new port-filename "out" port-handle (%current-out-port))) (dm get (port| => ) (def c (%cb (%get (port-handle port)))) (when (== c #\newline) (incf (port-line port))) c) (dm peek (port| => ) (%cb (%peek (port-handle port)))) (dm ready? (port| => ) (%bb (%ready? (port-handle port)))) (dm newline (port|) (put port #\newline)) (dm force-out (port|) (%force-out (port-handle port))) (dm put (port| c|) (%put (port-handle port) (%cu c))) (dm puts (port| s|) (%puts (port-handle port) (%su s))) ;;; STR-PORT IMPLEMENTATION (dm port-contents (port| => ) (as (port-guts port))) (dm open ((t (t= )) dat| => ) (new port-guts dat)) ;; VERY INEFFICIENT (dm open ((t (t= )) dat| => ) (new port-guts (as dat))) ;; TODO: EOF OBJECT MUST BE A CHR (dm peek (port| => ) (if (>= (port-index port) (len (port-guts port))) (eof-object) (elt (port-guts port) (port-index port)))) (dm get (port| => ) (if (>= (port-index port) (len (port-guts port))) (eof-object) (let ((res (elt (port-guts port) (port-index port)))) (incf (port-index port)) res))) (dm ready? (port| => ) #t) (dm put (port| c|) (set (port-guts port) (add! (port-guts port) c))) (dm puts (port| s|) (set (port-guts port) (cat! (port-guts port) s))) (ds port-to-str (,name ,@body) `(let ((,name (open ""))) ,@body (port-contents ,name))) goo-0.155/src/goo/io/pretty.goo0100644000175000017500000002214707611105276015743 0ustar vomjomvomjom(use goo) (use goo/class) (use goo/cols/lst) (use goo/io/write) (dm lst* (args|... => ) (def m (1- (len args))) (rep cons ((i| (1- m)) (r| [args m])) (if (< i 0) r (cons (1- i) (new head [args i] tail r))))) (dc ()) (d. (t+ )) (def-list doc-cons ()) (dc ()) (dp doc-n ( => )) (dp! doc-nest ( => )) (dc ()) (dp doc-break ( => )) (dc ()) (dp! doc-group ( => )) (dg to-doc (x => )) (export to-doc) (d. docnil (nul )) (df nest (i x) (new doc-n i doc-nest x)) (d. break (new doc-break " ")) (df break-with (s) (new doc-break s)) (df group (d) (new doc-group d)) (df doc-em (x|...) (app fabs x)) (df doc-sep-em (x|... => ) (rep cons ((r docnil) (i (1- (len x))) (f? #t)) (if (< i 0) r (let ((nxt (if f? r (doc-cons break r)))) (cons (doc-cons [x i] nxt) (1- i) #f))))) (export nest break break-with group doc-em doc-sep-em) (dm binop (left| op| right| => ) (group (nest 2 (doc-sep-em (group (doc-sep-em left op)) right)))) (dc ()) (dc ()) (dc ()) (dp sdoc-string ( => )) (dp sdoc-text ( => )) (dc ()) (dp sdoc-n ( => )) (dp sdoc-line ( => )) (dv snil (new )) (dm sdoc-to-str (s| => ) "") (dm sdoc-to-str (s| => ) (cat (sdoc-string s) (sdoc-to-str (sdoc-text s)))) (dm sdoc-to-str (s| => ) (cat "\n" (repeat " " (sdoc-n s)) (sdoc-to-str (sdoc-line s)))) (dv ) (dm fits? (w| x|) (cond ((< w 0) #f) ((nul? x) #t) (#t (let ((x0 (head x))) (fits-on? w [x0 0] [x0 1] [x0 2] (tail x)))))) (dm fits-on? (w| i| m| d| r|) (if (== d docnil) (fits? w r) (fits? w (lst* (tup i m (head d)) (tup i m (tail d)) r)))) (dm fits-on? (w| i| m| d| r|) (fits? w (lst* (tup (+ i (doc-n d)) m (doc-nest d)) r))) (dm fits-on? (w| i| m| d| r|) (fits? (- w (len d)) r)) (dm fits-on? (w| i| m| d| r|) (or (== m 'break) (fits? (- w (len (doc-break d))) r))) (dm fits-on? (w| i| m| d| r|) (fits? w (lst* (tup i 'flat (doc-group d)) r))) (dm format-on (w| k| i| m| d| r| => ) (if (== d docnil) (format w k r) (format w k (lst* (tup i m (head d)) (tup i m (tail d)) r)))) (dm format-on (w| k| i| m| d| r| => ) (format w k (pair (tup (+ i (doc-n d)) m (doc-nest d)) r))) (dm format-on (w| k| i| m| d| r| => ) (new sdoc-string d sdoc-text (format w (+ k (len d)) r))) (dm format-on (w| k| i| m| d| r| => ) (if (== m 'flat) (new sdoc-string (doc-break d) sdoc-text (format w (+ k (len (doc-break d))) r)) (new sdoc-n i sdoc-line (format w i r)))) (dm format-on (w| k| i| m| d| r| => ) (if (fits? (- w k) (pair (tup i 'flat (doc-group d)) r)) (format w k (pair (tup i 'flat (doc-group d)) r)) (format w k (pair (tup i 'break (doc-group d)) r)))) (dm format (w| k| x| => ) (if (nul? x) snil (let ((x0 (head x))) (format-on w k [x0 0] [x0 1] [x0 2] (tail x))))) (dm pretty (p| w| d|) (def sdoc (format w 0 (lst (tup 0 'flat (group d))))) (def str (sdoc-to-str sdoc)) (msg p "%s\n" str)) (export sdoc-to-str format pretty) (dv test (binop "a" "==" "b")) (dv expr1 (binop "a" "<<" "2")) (dv expr2 (binop "a" "+" "b")) (df ifthen (c e1 e2) (group (doc-sep-em (group (nest 2 (doc-sep-em "if" c))) (group (nest 2 (doc-sep-em "then" e1))) (group (nest 2 (doc-sep-em "else" e2)))))) (dv doc (ifthen test expr1 expr2)) ;; (pretty out 100 doc) #/ (dm write-to-string (x => ) (port-to-str port (write port x))) (dm write (port| x) (pretty port $max-int (to-doc x))) (dm emit (out| x|) (puts out (to-str x))) (dm writeln (port| x) (write port x) (newline port)) (dm msg (port| message| arguments|...) (def found-percent? #f) (def argument-index| 0) (def num-arguments (len arguments)) (loc ((arg (char| class| => ) (def current-index argument-index) (set argument-index (+ argument-index 1)) (assert (< current-index num-arguments) "Too few arguments for msg string %=: %=" message arguments) (def argument (elt arguments current-index)) (assert (or (== class ) (isa? argument class)) "Msg argument for directive '%%%c' not of class %t: %=" char class argument) argument)) (do (fun ((c )) (if found-percent? (seq (case (to-upper c) ((#\D) (puts port (num-to-str (arg c )))) ((#\B) (puts port (num-to-str (arg c ) 2))) ((#\O) (puts port (num-to-str (arg c ) 8))) ((#\X) (puts port (num-to-str (arg c ) 16))) ((#\C) (put port (arg c ))) ((#\S) (emit port (arg c ))) ((#\=) (write port (arg c ))) ((#\T) (write port (arg c ))) ((#\%) (put port #\%)) (#t (error "Invalid msg directive '%s' in \"%s\"" c message))) (set found-percent? #f)) (if (== c #\%) (set found-percent? #t) (put port c)))) message)) (assert (not found-percent?) "Incomplete msg directive in \"%s\"" message)) (dm post (message| arguments|...) (app msg out message arguments)) ;;; PARTIAL EVALUATOR FOR MSG ;;; TODO: SHOULD GO AWAY WHEN REAL PARTIAL EVALUATION IS WORKING ;;; TODO: SHOULD PROBABLY BE CT-ALSO BUT THEN AST-EVAL KICKS IN (df pe-msg (port-expr message| args|) (def found-percent? #f) (def arg-index| 0) (def num-args (len args)) (def chars (fab 0)) (def port (gensym)) (def exprs (packing (loc ((maybe-pack-chars () (unless (nul? chars) (pack `(puts ,port ,(as chars))) (zap! chars))) (arg (char| => ) (maybe-pack-chars) (def current-index arg-index) (set arg-index (+ arg-index 1)) (assert (< current-index num-args) "Too few arguments for msg string %=: %=" message args) (elt args current-index))) (do (fun ((c )) (if found-percent? (seq (case (to-upper c) ((#\D) (pack `(puts ,port (num-to-str ,(arg c))))) ((#\B) (pack `(puts ,port (num-to-str ,(arg c) 2)))) ((#\O) (pack `(puts ,port (num-to-str ,(arg c) 8)))) ((#\X) (pack `(puts ,port (num-to-str ,(arg c) 16)))) ((#\C) (pack `(put ,port ,(arg c )))) ((#\S) (pack `(emit ,port ,(arg c)))) ((#\=) (pack `(write ,port ,(arg c)))) ((#\T) (pack `(write ,port ,(arg c)))) ((#\%) (add! chars #\%)) (#t (error "Invalid msg directive '%s' in \"%s\"" c message))) (set found-percent? #f)) (if (== c #\%) (set found-percent? #t) (add! chars c)))) message) (maybe-pack-chars)))) (assert (not found-percent?) "Incomplete msg directive in \"%s\"" message) `(let ((,port ,port-expr)) ,@exprs)) (ds msg* (,port ,message ,@args) (if (isa? message ) (pe-msg port message args) `(msg ,port ,message ,@args))) ;; (ds msg* (,port ,message ,@args) ;; `(msg ,port ,message ,@args)) (df msg-to-str (message| arguments|... => ) (with-port (port (open "")) (app msg port message arguments) (port-contents port))) (df say (port| args|...) ;; (puts port (fold cat "" (map to-str args))) ;; (for ((arg args)) ;; (puts port (to-str arg))) ;; TODO: MOVE UPWARD WHEN COMPILER SMARTER (def lim (len args)) (rep loop ((i 0)) (unless (== i lim) (puts port (to-str (low-elt args i))) (loop (+ i 1))))) ;; (set *debug-tables?* #t) (export msg pe-msg msg* msg-to-str write writeln post write-to-string *max-print-length* *max-print-depth* say) /# goo-0.155/src/goo/io/read.goo0100644000175000017500000003343407745062570015337 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/conditions) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/math) (use goo/io/port) (use goo/cols) (use goo/cols/lst) ;; READ (dm read (port| => ) ;; (put out #\a) (newline out) (rep loop () (def form (sub-read port)) (if (not (reader-token? form)) form (if (== form $close-paren) (warn "discarding extraneous right parenthesis") (loop)) ;; (reading-error port (tail form)) ))) (dm read-from-string (x| => ) (with-port (port (open x)) (read port))) (dm sub-read-carefully (port| => ) ;; (put out #\b) (newline out) (def form (sub-read port)) (if (eof-object? form) (reading-error port "unexpected end of file") (if (reader-token? form) (reading-error port (tail form)) form))) (dc ()) (dp token-message ( => )) (dm make-reader-token (message => ) (new token-message message)) (dm reader-token? (form => ) (isa? form )) (dv $close-paren (make-reader-token "unexpected right parenthesis")) (dv $close-bracket (make-reader-token "unexpected right bracket")) (dv $close-curly (make-reader-token "unexpected right curly")) ;; Main dispatch (dm sub-read (port| => ) ;; (put out #\c) (newline out) (def c (get port)) (if (eof-object? c) (seq;; (put out #\m) (put out c) (newline out) c ) ((elt *read-dispatch-vector* (char->ascii c)) c port))) (dv *read-dispatch-vector* (fill! (fab ascii-limit) (fun (c port) (reading-error port "illegal character read" c)))) (dv *read-terminating?-vector* (fill! (fab ascii-limit) #t)) (dm set-standard-syntax! (char| terminating? reader) (set (elt *read-dispatch-vector* (char->ascii char)) reader) (set (elt *read-terminating?-vector* (char->ascii char)) terminating?)) (let ((sub-read-whitespace (fun (c port) (sub-read port)))) (do (fun (c) (set (elt *read-dispatch-vector* c) sub-read-whitespace)) ascii-whitespaces)) (df flush-whitespace (port|) (def c (peek port)) (if (mem? ascii-whitespaces (char->ascii c)) (seq (get port) (flush-whitespace port)) c)) (df read-delimited-list (endchar| port|) (def retlist nil) (rep loop ((c (flush-whitespace port))) (if (== c endchar) (seq (get port) (rev retlist)) (seq (opf retlist (pair (read port) _)) (loop (flush-whitespace port)))))) (df sub-read-constituent (c port) ;; (put out #\h) (newline out) (parse-token (sub-read-token c port) port)) (let ((str10496 (cat "!$%&*+-./0123456789:<=>?@^_~ABCDEFGHIJKLM" "NOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))) (do (fun (c) (set-standard-syntax! c #f sub-read-constituent)) str10496)) ;; Usual read macros (dm set-standard-read-macro! (char| terminating? proc|) (set-standard-syntax! char terminating? proc)) (dm get-standard-read-macro (char|) (elt *read-dispatch-vector* (char->ascii char))) (dm sub-read-vertical (c| port| => ) (parse-token "|" port)) (set-standard-read-macro! #\| #t sub-read-vertical) (dm sub-read-backslash (c| port| => ) (parse-token "\\" port)) (set-standard-read-macro! #\\ #t sub-read-backslash) (dv $vert-sym (as "|")) (dv $vert-proxy (lst "vert-proxy")) (df sub-read-list-eof-error (port|) (reading-error port "end of file inside list -- unbalanced parentheses")) (dm sub-read-list (c| p| => ) ;; (put out #\d) (newline out) (def line (port-line p)) (def form (sub-read p)) (cond ((eof-object? form) (sub-read-list-eof-error p)) ((== form $close-paren) '()) (#t (rep read-next ((c| c) (prev form) (line line) (form (sub-read p))) (def prev (if (== prev $vert-proxy) $vert-sym prev)) (cond ((eof-object? form) (sub-read-list-eof-error p)) ((== form $close-paren) (line-list line prev)) ((== form $vert-sym) (let ((next (sub-read-carefully p))) (line-pair (line-pair prev (line-list line next) line) (sub-read-list c p) line))) (#t (line-pair prev (read-next c form (port-line p) (sub-read p)) line))))))) (dm sub-read-seq (c| e port| => ) (def form (sub-read port)) (if (eof-object? form) (reading-error port "end of file inside list -- unbalanced parentheses") (if (== form e) '() (pair form (sub-read-seq c e port))))) (dm sub-read-brackets (c| port| => ) (def form (sub-read-seq c $close-bracket port)) (case (len form) ((2) `(elt ,(1st form) ,(2nd form))) ((3) (if (== (3rd form) '*) `(sub* ,(1st form) ,(2nd form)) `(sub ,(1st form) ,(2nd form) ,(3rd form)))) (#t (reading-error port "invalid [ ... ] form")))) (dv bs-sym (as "\\")) (dm sub-read-curlies (c| port| => ) (def forms (sub-read-seq c $close-curly port)) (def slash-index (pos forms bs-sym)) (if slash-index `(fun ,(sub forms 0 slash-index) ,@(sub* forms (+ slash-index 1))) `(seq ,@forms))) (set-standard-read-macro! #\( #t sub-read-list) (set-standard-read-macro! #\) #t (fun (c port) $close-paren)) (set-standard-read-macro! #\{ #t sub-read-curlies) (set-standard-read-macro! #\} #t (fun (c port) $close-curly)) (set-standard-read-macro! #\[ #t sub-read-brackets) (set-standard-read-macro! #\] #t (fun (c port) $close-bracket)) (set-standard-read-macro! #\' #t (fun (c port) (lst 'quote (sub-read-carefully port)))) (set-standard-read-macro! #\` #t (fun (c port) (lst 'quasiquote (sub-read-carefully port)))) (set-standard-read-macro! #\, #t (fun (c port) (def next (peek port)) (def keyword (if (eof-object? next) (reading-error port "end of file after ,") (if (= next #\@) (seq (get port) 'unquote-splicing) 'unquote))) (lst keyword (sub-read-carefully port)))) (dv $string-escape-chars (let ((vec (fill! (fab ascii-limit) #f))) (set (elt vec (as #\t)) #\tab) (set (elt vec (as #\f)) #\page) (set (elt vec (as #\r)) #\return) (set (elt vec (as #\n)) #\newline) (as vec))) (df read-string-literal (c port) ;; (put out #\g) (newline out) (rep loop ((l '()) (i 0)) (def c (get port)) (if (eof-object? c) (reading-error port "end of file within a string") (if (= c #\\) (let ((c (get port))) (if (eof-object? c) (reading-error port "end of file within a string") (if (or (= c #\\) (= c #\")) (loop (pair c l) (+ i 1)) (let ((ec (elt $string-escape-chars (as c)))) (if ec (loop (pair ec l) (+ i 1)) (reading-error port "invalid escaped character in string" c)))))) (if (= c #\") (reverse-list->string l i) (loop (pair c l) (+ i 1))))))) (set-standard-read-macro! #\" #t read-string-literal) (set-standard-read-macro! #\; #t (fun (c port) (gobble-line port) (sub-read port))) (dm gobble-line (port|) (rep loop () (def c (get port)) (if (eof-object? c) c (if (= c #\newline) #f (loop))))) (dv *sharp-macros* '()) (dm define-sharp-macro (c proc) (set *sharp-macros* (pair (lst c proc) *sharp-macros*))) (set-standard-read-macro! #\# #f (fun (c port) (def c (peek port)) (def c (if (eof-object? c) (reading-error port "end of file after #") (to-lower c))) (def probe (assq c *sharp-macros*)) (if probe ((head (tail probe)) c port) (reading-error port "unknown # syntax" c)))) (define-sharp-macro #\f (fun (c port) (get port) #f)) (define-sharp-macro #\t (fun (c port) (get port) #t)) (define-sharp-macro #\| (fun (c port) (get port) $vert-proxy)) (df gobble-nested-comment (port|) (rep loop ((found-slash? #f)) (def c (get port)) (if (eof-object? c) c (case c ((#\/) (loop #t)) ((#\#) (if found-slash? #f (loop #f))) (#t (loop #f)))))) (define-sharp-macro #\/ (fun (c port) (gobble-nested-comment port) (sub-read port))) (df read-long-string-literal (c port|) (get port) ;; skip double quote (rep loop ((l '()) (i 0) (q? #f)) (def c (get port)) (if (eof-object? c) (reading-error port "end of file within a long string") (case c ((#\") (loop (pair c l) (+ i 1) #t)) ((#\#) (if q? (reverse-list->string (tail l) (- i 1)) (loop (pair c l) (+ i 1) #f))) (#t (loop (pair c l) (+ i 1) #f)))))) (define-sharp-macro #\" read-long-string-literal) (dm parse-c-inline (s|) (def port (open s)) (def buf (fab 0)) (rep loop ((str '()) (res '())) (def c (get port)) (if (eof-object? c) (rev! (add res (as (rev! str)))) (case c ((#\$ #\@) (def val (if (= c #\$) (read port) `(to-c ,(read port)))) (loop '() (add (add res (as (rev! str))) val))) (#t (loop (add str c) res)))))) (df read-c-inline-literal (start end form port|) (get port) ;; skip curly (rep loop ((l '()) (i 0) (d 1)) (def c (get port)) (if (eof-object? c) (reading-error port "end of file within c-inline") (case c ((start) (loop (pair c l) (+ i 1) (+ d 1))) ((end) (if (= d 1) `(,form ,@(parse-c-inline (reverse-list->string l i))) (loop (pair c l) (+ i 1) (- d 1)))) (#t (loop (pair c l) (+ i 1) d)))))) (df read-c-statement-literal (c port|) (read-c-inline-literal #\{ #\} 'c-ment port)) (define-sharp-macro #\{ read-c-statement-literal) (df read-c-expression-literal (ce port|) (get port) (def c (get port)) (def inline (read-c-inline-literal #\{ #\} 'c-expr port)) (if (= c #\g) inline `(,(cat-sym '% (fabs c) 'b) ,inline))) (define-sharp-macro #\e read-c-expression-literal) ;; TODO: ASSQ (dv $char-long-names '((tab #\tab) (page #\page) (return #\return) (newline #\newline) (space #\space))) (define-sharp-macro #\\ (fun (c port) (get port) (def c (peek port)) (if (eof-object? c) (reading-error port "end of file after #\\") (if (alpha? c) (let ((name (sub-read-carefully port))) (if (= (len (as name)) 1) c (let ((temp (assq name $char-long-names))) (if temp (head (tail temp));; Goo => syntax (reading-error port "unknown #\\ name" name))))) (get port))))) (define-sharp-macro #\( (fun (c port) (get port) (as (sub-read-list c port)))) (define-sharp-macro #\[ (fun (c port) (get port) (as (sub-read-seq c $close-bracket port)))) (let ((number-sharp-macro (fun (c port) (def string (sub-read-token #\# port)) (or (str-to-num string) (reading-error port "unsupported number syntax" string))))) (do (fun (c) (define-sharp-macro c number-sharp-macro)) '(#\b #\o #\d #\x #/ #\i #\e /#))) ;; Tokens (dm sub-read-token (c| port| => ) ;; (put out #\e) (put out c) (newline out) (rep loop ((l (lst (preferred-case c))) (n 1)) (def c (peek port)) (if (or (eof-object? c) (elt *read-terminating?-vector* (char->ascii c))) (reverse-list->string l n) (loop (pair (preferred-case (get port)) l) (+ n 1))))) ;; TODO: MEM? WITH TEST (dm parse-token (string| port| => ) ;; (put out #\f) (newline out) (if (let ((c (elt string 0))) (or (digit? c) (= c #\+) (= c #\-) (= c #\.))) (let ((maybe-number (str-to-num string))) (if maybe-number maybe-number (if (any? (fun (x) (= string x)) $strange-symbol-names) (as string) (if (= string ".") (as string) (reading-error port "unsupported number syntax" string))))) (seq ;; (put out #\n) (newline out) (as string)))) ;; (let ((vert-pos (pos string #\|))) ;; (if (and vert-pos (> (len string) 1)) ;; typed variable? ;; (if (= vert-pos 0) ;; (reading-error port "Vertical bar at beginning of symbol" string) ;; `(,(as (sub string 0 vert-pos)) ;; ,(as (sub string (+ vert-pos 1) (len string))))) ;; (seq ;; (put out #\n) (newline out) ;; (as string)))) (dv $strange-symbol-names '("+" "-" "..." "1st" "2nd" "3rd" ;; Seq Support "1+" "1-" ;; Only for S&ICP support "->")) ;; Only for JAR's thesis (dv preferred-case (if (= (elt (as 't) 0) #\T) to-upper to-lower)) ;; Reader errors (dm reading-error (port| message| irritants|...) (error (cat message ": %=") ;; was: app(...) (cat irritants (lst port)))) (dm warn (string| irritants-and-port|...) ;; TODO: TURN BACK ON ;; (app sig string irritants-and-port) #f ) ;; msg-string: string, ;; msg-arguments: irritants-and-port (dm reverse-list->string (l| n| => ) (as (rev! l))) (export read-delimited-list set-standard-read-macro! get-standard-read-macro $char-long-names read read-from-string) goo-0.155/src/goo/io/write.goo0100644000175000017500000003167007611105276015547 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo/boot) (use goo/fun) (use goo/class) (use goo/macros) (use goo/packer) (use goo/types) (use goo/any) (use goo/log) (use goo/chr) (use goo/mag) (use goo/math) (use goo/io/port) (use goo/cols) (use goo/conditions) (use goo/io/read) (use goo/packer) (use goo/late-macros) (ddv *max-print-depth* 4) (ddv *max-print-length* 12) (dm as-binding-name (name) (as name)) (dm do-emit (port| x| d| recur|) (puts port x)) (dm do-emit (port| x| d| recur|) (put port x)) (dm do-emit (port| x d| recur|) (recurring-write port x d recur)) (dm emit (port| x) (rep recur ((x x) (d -1)) (if (>= d *max-print-depth*) (puts port "*") (do-emit port x (+ d 1) recur)))) (dm write-to-string (x => ) (port-to-str port (write port x))) (dm write (port| x) (rep recur ((x x) (d -1)) (if (>= d *max-print-depth*) (puts port "*") (recurring-write port x (+ d 1) recur)))) (dm writeln (port| x) (write port x) (newline port)) (dm recurring-write (port| x| d| recur|) (if (nul? x) (puts port "()") (write-list port x d recur))) (dm recurring-write (port| x| d| recur|) (def prefix (cat "$$" (as (class-name (class-of x))) "(")) (write-flat port prefix x ")" d recur)) (dm recurring-write (port| x| d| recur|) (write-flat port "#(" x ")" d recur)) (dm recurring-write (port| x| d| recur|) (write-flat port "#[" x "]" d recur)) (dm recurring-write (port| x| d| recur|) (write-map port x d recur)) (dm recurring-write (port| x| d| recur|) (if x (write-boolean port 't) (write-boolean port 'f))) (dm recurring-write (port| x| d| recur|) (puts port (as x))) (dm recurring-write (port| x| d| recur|) (puts port "&0x") (puts port (num-to-str-base (%ib (%lu x)) 16))) (dm recurring-write (port| x| d| recur|) (if (== x ) (puts port (as-binding-name "")) (write-number port x))) (dm recurring-write (port| x| d| recur|) (write-string-literal port x)) (dm recurring-write (port| x| d| recur|) (write-char-literal port x)) (dm write-boolean (port| mumble) (put port #\#) (write port mumble)) (dm write-number (port| x|) (puts port (num-to-str x))) (dm write-char-literal (port| x) (def probe (character-name x)) (puts port "#\\") (if probe (write port probe) (put port x))) (dm character-name (char| => ) (def assoc (assqn char $char-long-names 1)) (and assoc (1st assoc))) (dm write-string-literal (port| x) (put port #\") (def len (len x)) (rep loop ((i 0)) (if (= i len) (put port #\") (let ((c (elt x i))) (if (or (= c #\\) (= c #\")) (put port #\\)) (put port c) (loop (+ i 1)))))) (dm write-list (port| x| d| recur|) (if (quotation? x) (seq (put port #\') (recur (head (tail x)) d)) (seq (put port #\() (recur (head x) d) (rep loop ((l (tail x)) (n 1)) (unless (nul? l) (if (>= n *max-print-length*) (puts port " ...") (seq (put port #\space) (recur (head l) d) (loop (tail l) (+ n 1)))))) (put port #\) )))) (dm quotation? (x => ) (and (isa? x ) (== (head x) 'quote) (isa? (tail x) ) (nul? (tail (tail x))))) (dm write-flat (port| prefix| x| suffix| d| recur|) (puts port prefix) (def z (len x)) (when (> z 0) (recur (elt x 0) d) (rep loop ((i 1)) (if (>= i *max-print-length*) (puts port " ...") (unless (>= i z) (put port #\space) (recur (elt x i) d) (loop (+ i 1)))))) (puts port suffix)) (dm write-map (port| x| d| recur|) (puts port "#<") (emit port (class-name (class-of x))) (esc blow (for (((tup key val) x) (i (from 0))) (when (>= i *max-print-length*) (puts port " ...") (blow #f)) (put port #\space) (recur key d) (puts port ": ") (recur val d))) (put port #\>)) (dm recurring-write (port| x| d| recur|) (msg port "#{File-in-port %s %d}" (port-filename x) (port-line x))) (dm recurring-write (port| x| d| recur|) (msg port "#{File-out-port %s}" (port-filename x))) (dm recurring-write (port| x| d| recur|) (puts port "#{In-port}")) (dm recurring-write (port| x| d| recur|) (puts port "#{Out-port}")) ;; TODO: CHANGE C IMPLEMENTATION (dm write-params (port| x| recur|) (def names (fun-names x)) (put port #\() (def names (fun-names x)) (for ((i (from 0)) (spec (fun-specs x)) (first? (first-then (op #t) (op #f)))) (unless first? (put port #\space)) (if (nul? names) (write-type port spec) (seq (msg port "(%s " (as (elt names i))) (write-type port spec) (put port #\))))) (def value (fun-val x)) (unless (or (not value) (== value )) (msg port " => ") (write-value-type port value)) (put port #\))) (dm write-fun-guts (port| x| name| recur|) (puts port "#{") (puts port name) (def name (fun-name x)) (and name (seq (put port #\space) (puts port (as name)))) (put port #\space) (write-params port x recur) (puts port "}")) (dm recurring-write (port| x| d| recur|) (write-fun-guts port x "Gen" recur)) (dm recurring-write (port| x| d| recur|) (write-fun-guts port x "Met" recur)) (dm recurring-write (port| x| d| recur|) (msg out "" (src-loc-line x) (src-loc-file x))) (dm recurring-write (port| x| d| recur|) (puts port "#{Class ") (puts port (as (class-name x))) (puts port " ") (recur (map class-name (class-parents x)) d) (puts port "}")) (dm recurring-write (port| x| d| recur|) (puts port "#{T= ") (recur (type-object x) d) (puts port "}")) (dm recurring-write (port| x| d| recur|) (puts port "#{T< ") (write-type port (type-class x)) (puts port "}")) (dm recurring-write (port| x| d| recur|) (puts port "#{T+") (do (fun (t) (put port #\space) (write-type port t)) (union-elts x)) (puts port "}")) (dm recurring-write (port| x| d| recur|) (puts port "#{T*") (do (fun (t) (put port #\space) (write-type port t)) (product-elts x)) (puts port "}")) (dm write-value-type (port| x|) (puts port "(tup") (do (fun (t) (put port #\space) (write-type port t)) (product-elts x)) (puts port ")")) (dm write-value-type (port| x) (write-type port x)) (dm recurring-write-type (port| x| d| recur|) (puts port (as (class-name x)))) (dm recurring-write-type (port| x d| recur|) (recurring-write port x d recur)) (dm write-type (port| x) (rep recur ((x x) (d 0)) (recurring-write-type port x d recur))) (dm recurring-write (port| x| d| recur|) (puts port "#{Prop ") (recur (prop-getter x) d) (puts port "}")) (dm recurring-write (port| x d| recur|) (puts port "#{") (emit port (class-name (class-of x))) (esc blow (without-prop-unbound-errors (for ((prop (props-of x)) (i (from 0))) (when (>= i *max-print-length*) (puts port " ...") (blow #f)) (def getter (prop-getter prop)) (put port #\space) (emit port (fun-name getter)) (puts port ": ") (recur (getter x) d)))) (puts port "}")) (dm recurring-write (port| (x (t= (eof-object))) d| recur|) (puts port "#{End-of-file}")) (dm msg (port| message| arguments|...) (def found-percent? #f) (def argument-index| 0) (def num-arguments (len arguments)) (loc ((arg (char| class| => ) (def current-index argument-index) (set argument-index (+ argument-index 1)) (assert (< current-index num-arguments) "Too few arguments for msg string %=: %=" message arguments) (def argument (elt arguments current-index)) (assert (or (== class ) (isa? argument class)) "Msg argument for directive '%%%c' not of class %t: %=" char class argument) argument)) (do (fun ((c )) (if found-percent? (seq (case (to-upper c) ((#\D) (puts port (num-to-str (arg c )))) ((#\B) (puts port (num-to-str (arg c ) 2))) ((#\O) (puts port (num-to-str (arg c ) 8))) ((#\X) (puts port (num-to-str (arg c ) 16))) ((#\C) (put port (arg c ))) ((#\S) (emit port (arg c ))) ((#\=) (write port (arg c ))) ((#\T) (write-type port (arg c ))) ((#\%) (put port #\%)) (#t (error "Invalid msg directive '%s' in \"%s\"" c message))) (set found-percent? #f)) (if (== c #\%) (set found-percent? #t) (put port c)))) message)) (assert (not found-percent?) "Incomplete msg directive in \"%s\"" message)) (dm post (message| arguments|...) (app msg out message arguments)) ;;; PARTIAL EVALUATOR FOR MSG ;;; TODO: SHOULD GO AWAY WHEN REAL PARTIAL EVALUATION IS WORKING ;;; TODO: SHOULD PROBABLY BE CT-ALSO BUT THEN AST-EVAL KICKS IN (df pe-msg (port-expr message| args|) (def found-percent? #f) (def arg-index| 0) (def num-args (len args)) (def chars (fab 0)) (def port (gensym)) (def exprs (packing (loc ((maybe-pack-chars () (unless (nul? chars) (pack `(puts ,port ,(as chars))) (zap! chars))) (arg (char| => ) (maybe-pack-chars) (def current-index arg-index) (set arg-index (+ arg-index 1)) (assert (< current-index num-args) "Too few arguments for msg string %=: %=" message args) (elt args current-index))) (do (fun ((c )) (if found-percent? (seq (case (to-upper c) ((#\D) (pack `(puts ,port (num-to-str ,(arg c))))) ((#\B) (pack `(puts ,port (num-to-str ,(arg c) 2)))) ((#\O) (pack `(puts ,port (num-to-str ,(arg c) 8)))) ((#\X) (pack `(puts ,port (num-to-str ,(arg c) 16)))) ((#\C) (pack `(put ,port ,(arg c )))) ((#\S) (pack `(emit ,port ,(arg c)))) ((#\=) (pack `(write ,port ,(arg c)))) ((#\T) (pack `(write-type ,port ,(arg c)))) ((#\%) (add! chars #\%)) (#t (error "Invalid msg directive '%s' in \"%s\"" c message))) (set found-percent? #f)) (if (== c #\%) (set found-percent? #t) (add! chars c)))) message) (maybe-pack-chars)))) (assert (not found-percent?) "Incomplete msg directive in \"%s\"" message) `(let ((,port ,port-expr)) ,@exprs)) (ds msg* (,port ,message ,@args) (if (isa? message ) (pe-msg port message args) `(msg ,port ,message ,@args))) ;; (ds msg* (,port ,message ,@args) ;; `(msg ,port ,message ,@args)) (df msg-to-str (message| arguments|... => ) (with-port (port (open "")) (app msg port message arguments) (port-contents port))) (df say (port| args|...) ;; (puts port (fold cat "" (map to-str args))) ;; (for ((arg args)) ;; (puts port (to-str arg))) ;; TODO: MOVE UPWARD WHEN COMPILER SMARTER (def lim (len args)) (rep loop ((i 0)) (unless (== i lim) (puts port (to-str (low-elt args i))) (loop (+ i 1))))) ;; (set *debug-tables?* #t) (export msg pe-msg msg* msg-to-str emit write write-type writeln post write-to-string recurring-write *max-print-length* *max-print-depth* say) goo-0.155/src/samurui/0040755000175000017500000000000007756746030014206 5ustar vomjomvomjomgoo-0.155/src/samurui/CVS/0040755000175000017500000000000007756746030014641 5ustar vomjomvomjomgoo-0.155/src/samurui/CVS/Root0100644000175000017500000000003307756746027015506 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/samurui/CVS/Repository0100644000175000017500000000002007756746027016736 0ustar vomjomvomjomgoo/src/samurui goo-0.155/src/samurui/CVS/Entries0100644000175000017500000000144107756746030016172 0ustar vomjomvomjom/autogtk.goo/1.1/Tue Jul 2 04:31:09 2002// /badge.goo/1.3/Tue Oct 1 22:20:43 2002// /extrinsic.goo/1.3/Tue Feb 11 22:55:18 2003// /graph.goo/1.8/Tue Oct 1 22:20:43 2002// /graphtest.goo/1.4/Thu Oct 3 21:52:08 2002// /gtk.goo/1.6/Fri Oct 4 22:23:51 2002// /gtk.swig.c/1.5/Fri Oct 4 22:23:51 2002// /gtkcallbacks.goo/1.2/Fri Jul 19 21:45:27 2002// /hobar.goo/1.4/Tue Oct 1 22:20:43 2002// /intrinsic.goo/1.3/Tue Feb 11 22:55:18 2003// /samurui.goo/1.13/Tue Feb 11 22:55:18 2003// /starburst.goo/1.5/Tue Oct 1 22:20:43 2002// /starbursttest.goo/1.6/Tue Oct 1 22:20:43 2002// /test.goo/1.4/Thu Oct 3 21:52:08 2002// /test2.goo/1.4/Thu Oct 3 21:52:08 2002// /test3.goo/1.3/Fri Oct 4 22:23:51 2002// /treegoo.c/1.4/Tue Oct 1 22:20:43 2002// /treegoo.h/1.1/Mon Aug 12 18:56:13 2002// D/core//// goo-0.155/src/samurui/autogtk.goo0100644000175000017500000000014107510226215016345 0ustar vomjomvomjom(use samurui/gtkbinding) (use goo/system) (so-load "/home/ai2/sombrero/code/swiggtk/googtk.so") goo-0.155/src/samurui/badge.goo0100644000175000017500000001250207546417673015760 0ustar vomjomvomjom;; Provides an abstraction layer for lightweight widgets and stuff... (use goo) (use samurui/samurui) (use samurui/gtk.swig) ;; Badges are containers. Badges hold badge-lines... (Brilliant, no?) (dc ()) (dp! badge-offset-x ( => ) 0) (dp! badge-offset-y ( => ) 0) (dp! badge-lines ( => ) (vec)) (dp! badge-max-width ( => ) 100) (dp! badge-color ( => (t? )) #f) (dc ()) (dc ()) (dc ()) (dp! bar-axis-source ( => )) (dp! bar-max-val ( => ) 100) (dp! bar-min-val ( => ) 0) (dp! bar-height ( => ) 10) ;; (dp! bar-show-label ( => #f)) (dp! bar-color ( => (t? )) #f) (dm suggest-badge (vcol| => (t? )) #f ) (dm render-badge (widget| badge| vcol| node| owner-x| owner-y|) ;; Calculate badge height (def badge-height (fold+ + (map (fun (line) (calculate-badge-height badge line)) (badge-lines badge)))) (def badge-x (+ owner-x (badge-offset-x badge))) (def badge-y (+ owner-y (badge-offset-y badge))) (def left-x (- badge-x (div (badge-max-width badge) 2))) ;; Draw the backing box (draw-rect widget (rect left-x badge-y (badge-max-width badge) badge-height) #t (badge-color badge)) ;; Loop over the lines, rendering them (rep loop ((line-enum (enum (badge-lines badge))) (cur-y badge-y)) (unless (fin? line-enum) (def da-now (now line-enum)) (loop (nxt line-enum) (+ cur-y (render-badge-line widget badge da-now vcol node left-x cur-y))) ) ) ) ;; Return the height of the line. (This is a bit redundant...) (dg render-badge-line (widget| badge| line| vcol| node| ul-x| ul-y| => )) (dg calculate-badge-height (badge| line| => )) (dm render-badge-line (widget| badge| line| vcol| node| ul-x| ul-y| => ) (def da-val (1st (node-out-edges vcol (bar-axis-source line) node))) (def bar-range (- (bar-max-val line) (bar-min-val line))) (def percent-wide (/ (as (- da-val (bar-min-val line))) (as bar-range))) (def pix-wide (round (* (badge-max-width badge) percent-wide))) (draw-rect widget (rect ul-x ul-y pix-wide (bar-height line)) #t (bar-color line)) (bar-height line) ) (dm calculate-badge-height (badge| line| => ) (bar-height line) ) (dc ()) (dp! label-text-stream ( => ) (vec)) (dp! label-color ( => (t? )) #f) (dm label-badge (label-text| c|) (def lab (new )) (set (label-text-stream lab) (split label-text (1st "!"))) (set (label-color lab) c) lab ) (dv *label-space-above* 2) (dv *label-space-below* 2) (dv *label-space-left* 2) (dm calc-string-for-node (line| vcol| node|) (rep loop ((text-part-enum (enum (label-text-stream line))) (str-so-far "") (is-axis #f)) (unless (fin? text-part-enum) (def cur-part (now text-part-enum)) (loop (nxt text-part-enum) (cat str-so-far (if is-axis (axis-to-str vcol cur-part node) cur-part)) (not is-axis)) ) str-so-far ) ) (dm render-badge-line (widget| badge| line| vcol| node| ul-x| ul-y| => ) (def da-str (calc-string-for-node line vcol node)) (draw-string widget (get-default-samurui-font) (+ ul-x *label-space-left*) (+ (+ ul-y *label-space-above*) (font-ascent *default-samurui-font*)) da-str (label-color line)) (+ (+ *label-space-above* *label-space-below*) (font-height (get-default-samurui-font))) ) (dm calculate-badge-height (badge| line| => ) (+ (+ *label-space-above* *label-space-below*) (font-height (get-default-samurui-font))) ) (export badge-offset-x badge-offset-x-setter badge-offset-y badge-offset-y-setter badge-lines badge-lines-setter badge-max-width badge-max-width-setter badge-color badge-color-setter ) (export ) (export bar-axis-source bar-axis-source-setter bar-max-val bar-max-val-setter bar-min-val bar-min-val-setter bar-height bar-height-setter bar-color bar-color-setter ) (export label-badge ) (export suggest-badge render-badge render-badge-line calculate-badge-height )goo-0.155/src/samurui/extrinsic.goo0100644000175000017500000001374307622277526016732 0ustar vomjomvomjom(use goo) (use samurui/samurui) (use samurui/intrinsic) ;; for the lightweight stuff, should be refactored out ;; Extrinsic rendering... mapping properties of an object into cartesian space. ;; -- although, ideally, the coordinate space should be transformable, but ;; let's leave that up to decorating lenses... ;; Extrinsic gets a rendering surface. (idrawmodel-ext ( (if (mem? attribs 'extrinsic) 1000 1) ) () ) (dp! ext-fundamental-axis ( => ) #f) (dp! ext-root-node ( => ) #f) (dp! ext-x-axis ( => ) #f) (dp! ext-y-axis ( => ) #f) (dp! ext-x-min ( => ) 0.0) (dp! ext-x-max ( => ) 1.0) (dp! ext-y-min ( => ) 0.0) (dp! ext-y-max ( => ) 1.0) (dp! ext-lenses ( => ) (vec)) (dp! ext-wrapped ( => (t? )) #f) (dp! ext-master ( => (t? )) #f) (dp! ext-item-renderer ( => (t? )) (new )) (dm method-fold (methods initial-data) (def cur-val initial-data) (do (fun (method) (set cur-val (method cur-val)) ) methods) cur-val ) (dm repaint-widget (ext|) (def renderer (ext-item-renderer ext)) (def scale-x (/ (as (gui-width ext)) (as (- (ext-x-max ext) (ext-x-min ext))))) (def scale-y (/ (as (gui-height ext)) (as (- (ext-y-max ext) (ext-y-min ext))))) ;; (post "Scales x: %= y: %=\n" scale-x scale-y) ;; (post "Fundamental axis is: %=\n" (ext-fundamental-axis ext)) ;; (post "Painting with nodes: %=\n" (node-out-edges (ext-wrapped ext) (ext-fundamental-axis ext) (ext-root-node ext))) (do (fun (item) ;; Get the point from the visi-col (def init-point (point (* scale-x (1st (node-out-edges (ext-wrapped ext) (ext-x-axis ext) item))) (* scale-y (1st (node-out-edges (ext-wrapped ext) (ext-y-axis ext) item))))) ;; Transform with global lenses (def actual-point (method-fold (ext-lenses ext) init-point)) ;; Render (draw-lightweight ext actual-point renderer item) ) (node-out-edges (ext-wrapped ext) (ext-fundamental-axis ext) (ext-root-node ext)) ) (invalidate-all ext) ) (dm find-node (ext| test-point|) (def found-node #f) (def renderer (ext-item-renderer ext)) (def scale-x (/ (as (gui-width ext)) (as (- (ext-x-max ext) (ext-x-min ext))))) (def scale-y (/ (as (gui-height ext)) (as (- (ext-y-max ext) (ext-y-min ext))))) (do (fun (item) ;; Get the point from the visi-col (def init-point (point (* scale-x (1st (node-out-edges (ext-wrapped ext) (ext-x-axis ext) item))) (* scale-y (1st (node-out-edges (ext-wrapped ext) (ext-y-axis ext) item))))) ;; Transform with global lenses (def actual-point (method-fold (ext-lenses ext) init-point)) (when (point-in-lightweight renderer item actual-point test-point) (set found-node item) ) ) (node-out-edges (ext-wrapped ext) (ext-fundamental-axis ext) (ext-root-node ext)) ) found-node ) (dm bind (ext| info| => (tup )) (tup ;; -- Rebinder -- (fun (new-obj) ;; Detach from current if applicable (when (ext-wrapped ext) ;; um... nop for now ) ;; (set (ext-wrapped ext) ((getter info) new-obj)) (set (ext-root-node ext) (get-start-node (ext-wrapped ext))) (do (fun (attr) (when (isa? attr ) (post "Processing attribute pair: %=\n" attr) (case-by (1st attr) = (('fundamental) (set (ext-fundamental-axis ext) (as (2nd attr))) ) (('x) (set (ext-x-axis ext) (as (2nd attr))) ) (('y) (set (ext-y-axis ext) (as (2nd attr))) ) ) ) ) (attrs ext) ) ) ;; -- Refresher -- (fun () (repaint-widget ext) ) ;; -- Free / Cleanup -- (fun () ) ) ) (dm bind-master (ext| master| => ) (set (ext-master ext) master) #t ) (dm mouse-press (widget| x| y| button| time|) (def clicked-node (find-node widget (point x y))) (when (and (ext-master widget) clicked-node (node-browsable (ext-wrapped widget) clicked-node)) (master-update-slaves (ext-master widget) clicked-node) ) (repaint-widget widget) ) (dm mouse-release (widget| x| y| button| time|) ) (dm mouse-move (widget| x| y| state|) ) (export ext-fundamental-axis ext-fundamental-axis-setter ext-root-node ext-root-node-setter ext-x-axis ext-x-axis-setter ext-y-axis ext-y-axis-setter ext-x-min ext-x-min-setter ext-y-min ext-y-min-setter ext-x-max ext-x-max-setter ext-y-max ext-y-max-setter ext-lenses ext-lenses-setter ext-wrapped ext-wrapped-setter ext-master ext-master-setter ext-item-renderer ext-item-renderer-setter )goo-0.155/src/samurui/graph.goo0100644000175000017500000005045707546417673016032 0ustar vomjomvomjom; (load "/home/ai2/sombrero/cvs/goo/src/samurui/graph.goo" 'goo/user) (use goo) (use samurui/samurui) (use samurui/gtk.swig) (use samurui/badge) (use samurui/gtkcallbacks) (use goo/random) ;; All of the code currently in this file is basically a direct conversion ;; of the relevant touchgraph code into goo, with minimal idiom conversions. ;; Eg, the conversion is much like a naive robot would do, except in a few cases ;; where rampant laziness dictated that it was much easier to do it closer to the ;; right way. But still, don't be surprised if things seem to side-effect based ;; when there's no good reason to do it that way... (dc ()) (dc ()) (dp! node-x ( => ) 0.0) (dp! node-y ( => ) 0.0) (dp! node-dx ( => ) 0.0) (dp! node-dy ( => ) 0.0) (dp! node-drawx ( => ) 0.0) (dp! node-drawy ( => ) 0.0) (dp! node-width ( => ) 0) ;; cached when drawn (dp! node-height ( => ) 0) ;; cached when drawn (dp! node-fixed ( => ) #f) (dp! node-just-made-local ( => ) #f) (dp! node-repulsion ( => ) 100.0) (dp! node-obj ( => )) (dm node-rect (node| => ) (rect-around (floor (node-drawx node)) (floor (node-drawy node)) (+ 2 (1st (trunc/ (node-width node) 2))) (+ 2 (node-height node))) ) (dc ()) (dp! edge-to ( => )) (dp! edge-from ( => )) (dp! edge-length ( => ) 40.0) (dc ()) (dp! damper ( => ) 1.0) (dp! damping ( => ) #f) (dp! drag-node ( => (t? )) #f) (dp! max-motion ( => ) 0.0) (dp! motion-ratio ( => ) 0.0) (dp! rigidity ( => ) 1.0) (dm relax-edges (tgl| vis-edges) (do (fun (edge) (def vx (- (node-x (edge-to edge)) (node-x (edge-from edge)))) (def vy (- (node-y (edge-to edge)) (node-y (edge-from edge)))) (def len (sqrt (+ (* vx vx) (* vy vy)))) (def dx (* vx (rigidity tgl))) (def dy (* vy (rigidity tgl))) (set dx (/ dx (* (edge-length edge) 100.0))) (set dy (/ dy (* (edge-length edge) 100.0))) (if (or (node-just-made-local (edge-to edge)) (not (node-just-made-local (edge-from edge)))) (seq (set (node-dx (edge-to edge)) (- (node-dx (edge-to edge)) (* dx len))) (set (node-dy (edge-to edge)) (- (node-dy (edge-to edge)) (* dy len))) ) (seq (set (node-dx (edge-to edge)) (- (node-dx (edge-to edge)) (* dx (/ len 10.0)))) (set (node-dy (edge-to edge)) (- (node-dy (edge-to edge)) (* dy (/ len 10.0)))) ) ) (if (or (node-just-made-local (edge-from edge)) (not (node-just-made-local (edge-to edge)))) (seq (set (node-dx (edge-from edge)) (+ (node-dx (edge-from edge)) (* dx len))) (set (node-dy (edge-from edge)) (+ (node-dy (edge-from edge)) (* dy len))) ) (seq (set (node-dx (edge-from edge)) (+ (node-dx (edge-from edge)) (* dx (/ len 10.0)))) (set (node-dy (edge-from edge)) (+ (node-dy (edge-from edge)) (* dy (/ len 10.0)))) ) ) ) vis-edges) ) (dm for-each-pair (func nodes) (do (fun (node1) (do (fun (node2) (unless (== node1 node2) (func node1 node2) ) ) nodes) ) nodes) ) (dm avoid-labels (tgl| vis-nodes) (for-each-pair (fun (node1 node2) (def dx 0.0) (def dy 0.0) (def vx (- (node-x node1) (node-x node2))) (def vy (- (node-y node1) (node-y node2))) (def len (+ (* vx vx) (* vy vy))) (if (== len 0.0) (seq (set dx (random-unit)) ;; 0.0 -> 1.0 (set dy (random-unit)) ;; 0.0 -> 1.0 ) (seq (set dx (/ vx len)) (set dy (/ vy len)) ) ) (def repSum (* (node-repulsion node1) (/ (node-repulsion node2) 100.0))) (if (or (node-just-made-local node1) (not (node-just-made-local node2))) (seq (set (node-dx node1) (+ (node-dx node1) (* (* dx repSum) (rigidity tgl)))) (set (node-dy node1) (+ (node-dy node1) (* (* dy repSum) (rigidity tgl)))) ) (seq (set (node-dx node1) (+ (node-dx node1) (* (* dx repSum) (/ (rigidity tgl) 10.0)))) (set (node-dy node1) (+ (node-dy node1) (* (* dy repSum) (/ (rigidity tgl) 10.0)))) ) ) (if (or (node-just-made-local node2) (not (node-just-made-local node1))) (seq (set (node-dx node2) (- (node-dx node2) (* (* dx repSum) (rigidity tgl)))) (set (node-dy node2) (- (node-dy node2) (* (* dy repSum) (rigidity tgl)))) ) (seq (set (node-dx node2) (- (node-dx node2) (* (* dx repSum) (/ (rigidity tgl) 10.0)))) (set (node-dy node2) (- (node-dy node2) (* (* dy repSum) (/ (rigidity tgl) 10.0)))) ) ) ) vis-nodes) ) (dm move-nodes (tgl| vis-nodes) (def maxMotion 0.0) (def lastMaxMotion (max-motion tgl)) (do (fun (node) (def dx (node-dx node)) (def dy (node-dy node)) (set dx (* dx (damper tgl))) (set dy (* dy (damper tgl))) (set (node-dx node) (/ dx 2.0)) (set (node-dy node) (/ dy 2.0)) (def dist-moved (sqrt (+ (* dx dx) (* dy dy)))) (when (and (not (node-fixed node)) (not (== node (drag-node tgl)))) (set (node-x node) (+ (node-x node) (max -30.0 (min 30.0 dx)))) (set (node-y node) (+ (node-y node) (max -30.0 (min 30.0 dy)))) ) (set maxMotion (max dist-moved maxMotion)) ) vis-nodes) (if (< 0.0 maxMotion) (set (motion-ratio tgl) (/ lastMaxMotion (- maxMotion 1.0))) (set (motion-ratio tgl) 0.0)) (set (max-motion tgl) maxMotion) (damp tgl vis-nodes) ) (dm damp (tgl| vis-nodes) (when (and (damping tgl) (<= (motion-ratio tgl) 0.001)) (cond ((and (or (< (max-motion tgl) 0.2) (and (> (max-motion tgl) 1.0) (< (damper tgl) 0.9))) (> (damper tgl) 0.01)) (set (damper tgl) (- (damper tgl) 0.01))) ((and (< (max-motion tgl) 0.4) (> (damper tgl) 0.003)) (set (damper tgl) (- (damper tgl) 0.003))) ((> (damper tgl) 0.0001) (set (damper tgl) (- (damper tgl) 0.001))) ) ) (when (and (< (max-motion tgl) 0.001) (damping tgl)) (set (damper tgl) 0.0) ) ) (dm relax (tgl| vis-nodes vis-edges) (rep loop ((i 0)) (when (< i 10) (relax-edges tgl vis-edges) (avoid-labels tgl vis-nodes) (move-nodes tgl vis-nodes) (loop (+ i 1)) ) ) ; repaint ) (df tick-fdg (fdg) (when (enable-anim fdg) (relax (layout fdg) (graph-nodes fdg) (graph-edges fdg)) ) (repaint-graph fdg) ) (idrawmodel ;; (gtk_timeout_add 500 ;; (gtk_getGtkFunctionCallback) ;; (goo_safeCreateCallback tick-fdg imagebox)) (gtk_idle_add (gtk_getGtkFunctionCallback) (goo_safeCreateCallback tick-fdg imagebox)) ) (dp! wrapped ( => (t? )) #f) (dp! graph-nodes ( => ) (vec)) (dp! graph-edges ( => ) (vec)) (dp! lenses ( => ) (vec)) (dp! unlenses ( => ) (vec)) (dp! layout ( => ) (new )) (dp! drag-node-off-x ( => ) 0) (dp! drag-node-off-y ( => ) 0) (dp! selected-node ( => (t? )) #f) (dp! graph-badge ( => (t? )) #f) (dp! post-node-renderers ( => ) (vec)) (dp! enable-anim ( => ) #t) (dp! fdg-master ( => (t? )) #f) (dm bind-master (fdg| master| => ) (set (fdg-master fdg) master) #t ) (dm find-graph-node (fdg| node) (esc found-it (do (fun (gn) (when (== (node-obj gn) node) (found-it gn))) (graph-nodes fdg)) (msg out "Unable to locate graph node %=\n" node) ) ) (dm graph-control-add-post-draw (fdg| func) (add! (post-node-renderers fdg) func) ) (dm graph-control-remove-post-draw (fdg| func) (del! (post-node-renderers fdg) func) ) (dm graph-control-enable-anim (fdg| should-enable) (set (enable-anim fdg) should-enable) ) (dm graph-control-clear-graph (fdg|) (set (graph-nodes fdg) (vec)) (set (graph-edges fdg) (vec)) ) (dm graph-control-clear-edges (fdg|) (set (graph-edges fdg) (vec)) ) (dm graph-control-fix-node (fdg| unode) (def gnode (find-graph-node fdg unode)) (set (node-fixed gnode) #t) ) (dm graph-control-get-node-pos (fdg| unode => ) (def gnode (find-graph-node fdg unode)) (point (node-x gnode) (node-y gnode)) ) (dm graph-control-draw-line (fdg| l| c|) (def p1 (point-to-draw-space fdg (line-p1 l))) (def p2 (point-to-draw-space fdg (line-p2 l))) (draw-line fdg (round (point-x p1)) (round (point-y p1)) (round (point-x p2)) (round (point-y p2)) c) ) (dm bind (fdg| info| => (tup )) (tup ;; -- Rebinder -- (fun (new-obj) ;; Detach from current if applicable (when (wrapped fdg) ;; um... nop for now ) ;; (set (wrapped fdg) ((getter info) new-obj)) (register-node-add-notification (wrapped fdg) (fun (node) (def gn (new )) (set (node-obj gn) node) (add! (graph-nodes fdg) gn) )) (register-edge-add-notification (wrapped fdg) (fun (from to axis) (def ge (new )) (set (edge-from ge) (find-graph-node fdg from)) (set (edge-to ge) (find-graph-node fdg to)) ;; Only add it if both nodes are valid (when (and (edge-from ge) (edge-to ge)) (add! (graph-edges fdg) ge)) )) (add! (lenses fdg) (fun (p) (point (+ (point-x p) (1st (trunc/ (gui-width fdg) 2))) (+ (point-y p) (1st (trunc/ (gui-height fdg) 2)))) ) ) (add! (unlenses fdg) (fun (p) (point (- (point-x p) (1st (trunc/ (gui-width fdg) 2))) (- (point-y p) (1st (trunc/ (gui-height fdg) 2)))) ) ) (set (graph-badge fdg) (suggest-badge (wrapped fdg))) ;; Set up the graph-control handle thing (graph-control-is (wrapped fdg) fdg) ;; At some point we should traverse the existing collection... (populate-graph fdg (get-start-node (wrapped fdg))) ) ;; -- Refresher -- (fun () ;; When we update the rebinder code... update this too by using a common method or something... ) ;; -- Free / Cleanup -- (fun () ) ) ) (dm find-or-create-node (fdg| node| => ) (or (find-graph-node fdg node) (let ((gnode (new ))) (set (node-obj gnode) node) (add! (graph-nodes fdg) gnode) gnode)) ) (dm populate-graph (fdg| start-node|) ;; Add the current node if it's not there yet (def start-graph-node (find-or-create-node fdg start-node)) ;; Iterate over its edges (do (fun (new-node) ;; Recurse (populate-graph fdg new-node) ;; Add the edge (def ge (new )) (set (edge-from ge) start-graph-node) (set (edge-to ge) (find-graph-node fdg new-node)) ;; Only add it if both nodes are valid (when (and (edge-from ge) (edge-to ge)) (add! (graph-edges fdg) ge)) ) (node-out-edges (wrapped fdg) "implicit" start-node) ) ) (dv c_background (color 255 255 255)) (dv c_node (color 192 64 64)) (dv c_label (color 255 192 255)) (dv c_edge (color 64 192 64)) (dm method-fold (methods initial-data) (def cur-val initial-data) (do (fun (method) (set cur-val (method cur-val)) ) methods) cur-val ) (dm point-to-draw-space (fdg| p| => ) (method-fold (lenses fdg) p) ) (dm update-draw-positions (fdg|) (do (fun (node) (def draw-point (method-fold (lenses fdg) (point (node-x node) (node-y node)))) (set (node-drawx node) (point-x draw-point)) (set (node-drawy node) (point-y draw-point)) ) (graph-nodes fdg) ) ) (dm update-pos-from-draw (fdg| node|) (def draw-point (point (node-drawx node) (node-drawy node))) (def true-point (method-fold (unlenses fdg) draw-point)) (set (node-x node) (point-x true-point)) (set (node-y node) (point-y true-point)) ) (dm find-node (fdg| x| y| => (t? )) ;; Don't use an 'esc' because we want them to get the one they can see in case of ;; overlap, which would be the last one painted. (def da-node #f) (def p (point x y)) (do (fun (node) (if (point-in-rect p (node-rect node)) (set da-node node)) ) (graph-nodes fdg) ) da-node ) (dm repaint-graph (fdg|) (update-draw-positions fdg) ;; Clear background (draw-rect fdg (rect 0 0 (gui-width fdg) (gui-height fdg)) #t c_background) ;; Pre-Paint ;; (do (fun (node) ;; (pre-paint-node node fdg) ;; ) ;; (graph-nodes fdg) ;; ) (when (graph-badge fdg) (do (fun (node) (when node (render-badge fdg (graph-badge fdg) (wrapped fdg) (node-obj node) (round (node-drawx node)) (round (node-drawy node))))) (graph-nodes fdg)) ) ;; Edges (do (fun (edge) (paint-edge edge fdg) ) (graph-edges fdg) ) ;; Nodes (do (fun (node) (paint-node node fdg) ) (graph-nodes fdg) ) ;; Post-Paint (unless (empty? (post-node-renderers fdg)) ;; hard-code for 1 post node renderer for the time being (set render-func (1st (post-node-renderers fdg))) (do (fun (node) (render-func fdg (node-obj node))) (graph-nodes fdg)) ) (invalidate-all fdg) ) (dm pre-paint-node (node widget) ) (dm paint-node (node widget) ;; Intentional naivete : this should be rectified once things are working. ;; (def my-font (font font-lucida)) (def my-font (get-default-samurui-font)) (def label (node-label (wrapped widget) (node-obj node))) ;; widget is an fdg (def s-w (string-width my-font label)) (def s-h (string-height my-font label)) (set (node-width node) s-w) (set (node-height node) s-h) (def node-rect (rect-around (floor (node-drawx node)) (floor (node-drawy node)) (+ 2 (1st (trunc/ s-w 2))) (+ 2 s-h))) (draw-rect widget node-rect #t c_node) (draw-string widget my-font (+ 2 (rect-x node-rect)) (+ (+ 2 (rect-y node-rect)) (font-ascent my-font)) label c_label) ;; (free my-font) ) (dm post-paint-node (gnode widget) ) (dm paint-edge (edge widget) (def tx (floor (node-drawx (edge-to edge)))) (def ty (floor (node-drawy (edge-to edge)))) (def fx (floor (node-drawx (edge-from edge)))) (def fy (floor (node-drawy (edge-from edge)))) (def dx (abs (- tx fx))) (def dy (abs (- ty fy))) (if (> dx dy) (seq (draw-line widget fx (- fy 3) tx ty c_edge) (draw-line widget fx (+ fy 3) tx ty c_edge) ) (seq (draw-line widget (- fx 3) fy tx ty c_edge) (draw-line widget (+ fx 3) fy tx ty c_edge) ) ) ) (dm node-clicked (node widget) ) (dm mouse-press ((widget ) (x ) (y ) (button ) (time )) (case button ((1) (def da-node (find-node widget x y)) (set (drag-node (layout widget)) da-node) (when da-node (set (drag-node-off-x widget) (- (floor (node-drawx da-node)) x)) (set (drag-node-off-y widget) (- (floor (node-drawy da-node)) y)) (when (and (and (fdg-master widget) da-node) (node-browsable (wrapped widget) (node-obj da-node))) (master-update-slaves (fdg-master widget) (node-obj da-node)) ) ) ) ((2) ) ((3) (def da-node (find-node widget x y)) (when da-node (def da-menu (gimme-menu (node-obj da-node))) (popup da-menu button 0) ) ) ) ) (dm mouse-release ((widget ) (x ) (y ) (button ) (time )) (case button ((1) (when (drag-node (layout widget)) (set (selected-node widget) (drag-node (layout widget))) (set (drag-node (layout widget)) #f) ) (repaint-graph widget) ) ((2) ) ((3) ) ) ) (dm mouse-move ((widget ) (x ) (y ) (state )) (when (drag-node (layout widget)) (def da-node (drag-node (layout widget))) (set (node-drawx da-node) (as (+ x (drag-node-off-x widget)))) (set (node-drawy da-node) (as (+ y (drag-node-off-y widget)))) (update-pos-from-draw widget da-node) (repaint-graph widget) ) ) (dm graph-control-is (vc| fdg) ) (export graph-control-is graph-control-add-post-draw graph-control-remove-post-draw graph-control-fix-node graph-control-get-node-pos graph-control-draw-line graph-control-clear-graph graph-control-clear-edges graph-control-enable-anim )goo-0.155/src/samurui/graphtest.goo0100644000175000017500000000342307547136010016701 0ustar vomjomvomjom(use goo) (use samurui/samurui) (use samurui/gtk.swig) (use samurui/graph) (dc ()) (dc ()) (iprop da-str "DaString") (dm hold (s|) (def o (new )) (set (da-str o) s) o ) (dm to-str (h| => ) (da-str h) ) (iprop tree-nodes "Tree Nodes") (dv my-app (new )) (set (tree-nodes my-app) (visi-wrap-col (vec (hold "Apples") (hold "Bananas") (hold "Pears" ) (vec (hold "Cows") (hold "Pigs") (hold "Ducks")) (vec (vec (hold "Spaceships") (hold "Monkeys") (hold "Dogs") (vec (hold "Enterprise") (hold "Endeavor") (hold "Challenger")) (vec (hold "Soup") (hold "Crackers")) (hold "Zoos")) (hold "Kings") (hold "Queens") (hold "Pawns")) ))) (imodel "Current String" da-str ) (imodel (attr (columns (master bob (attr tree-nodes fill)) (slave bob) ) fill) ) ;;(imodel ;; "The String" ;; da-str ;; ) (gtk_init_easy) (present my-app) (gtk_main)goo-0.155/src/samurui/gtk.goo0100644000175000017500000047466407547412367015524 0ustar vomjomvomjom(use goo) (use goo/boot) (use samurui/gtk.swig.c) (use/library gtk-x11-2.0) (seq (dv G_SIGNAL_RUN_FIRST #f) (export G_SIGNAL_RUN_FIRST) (dv G_SIGNAL_RUN_LAST #f) (export G_SIGNAL_RUN_LAST) (dv G_SIGNAL_RUN_CLEANUP #f) (export G_SIGNAL_RUN_CLEANUP) (dv G_SIGNAL_NO_RECURSE #f) (export G_SIGNAL_NO_RECURSE) (dv G_SIGNAL_DETAILED #f) (export G_SIGNAL_DETAILED) (dv G_SIGNAL_ACTION #f) (export G_SIGNAL_ACTION) (dv G_SIGNAL_NO_HOOKS #f) (export G_SIGNAL_NO_HOOKS) (dv G_CONNECT_AFTER #f) (export G_CONNECT_AFTER) (dv G_CONNECT_SWAPPED #f) (export G_CONNECT_SWAPPED) (dv g_signal_connect_data #f) (export g_signal_connect_data) (dv g_signal_connect #f) (export g_signal_connect) (dv g_object_class_install_property #f) (export g_object_class_install_property) (dv g_object_class_find_property #f) (export g_object_class_find_property) (dv g_object_class_list_properties #f) (export g_object_class_list_properties) (dv g_object_newv #f) (export g_object_newv) (dv g_object_set_property #f) (export g_object_set_property) (dv g_object_get_property #f) (export g_object_get_property) (dv g_object_freeze_notify #f) (export g_object_freeze_notify) (dv g_object_notify #f) (export g_object_notify) (dv g_object_thaw_notify #f) (export g_object_thaw_notify) (dv g_object_ref #f) (export g_object_ref) (dv g_object_unref #f) (export g_object_unref) (dv g_object_add_weak_pointer #f) (export g_object_add_weak_pointer) (dv g_object_remove_weak_pointer #f) (export g_object_remove_weak_pointer) (dv g_object_get_data #f) (export g_object_get_data) (dv g_object_set_data #f) (export g_object_set_data) (dv g_object_set_data_full #f) (export g_object_set_data_full) (dv g_object_steal_data #f) (export g_object_steal_data) (dv g_object_watch_closure #f) (export g_object_watch_closure) (dv g_cclosure_new_object #f) (export g_cclosure_new_object) (dv g_cclosure_new_object_swap #f) (export g_cclosure_new_object_swap) (dv g_closure_new_object #f) (export g_closure_new_object) (dv g_value_set_object #f) (export g_value_set_object) (dv g_value_get_object #f) (export g_value_get_object) (dv g_value_dup_object #f) (export g_value_dup_object) (dv g_signal_connect_object #f) (export g_signal_connect_object) (dv GDK_LSB_FIRST #f) (export GDK_LSB_FIRST) (dv GDK_MSB_FIRST #f) (export GDK_MSB_FIRST) (dv GDK_SHIFT_MASK #f) (export GDK_SHIFT_MASK) (dv GDK_LOCK_MASK #f) (export GDK_LOCK_MASK) (dv GDK_CONTROL_MASK #f) (export GDK_CONTROL_MASK) (dv GDK_MOD1_MASK #f) (export GDK_MOD1_MASK) (dv GDK_MOD2_MASK #f) (export GDK_MOD2_MASK) (dv GDK_MOD3_MASK #f) (export GDK_MOD3_MASK) (dv GDK_MOD4_MASK #f) (export GDK_MOD4_MASK) (dv GDK_MOD5_MASK #f) (export GDK_MOD5_MASK) (dv GDK_BUTTON1_MASK #f) (export GDK_BUTTON1_MASK) (dv GDK_BUTTON2_MASK #f) (export GDK_BUTTON2_MASK) (dv GDK_BUTTON3_MASK #f) (export GDK_BUTTON3_MASK) ) (seq (dv GDK_BUTTON4_MASK #f) (export GDK_BUTTON4_MASK) (dv GDK_BUTTON5_MASK #f) (export GDK_BUTTON5_MASK) (dv GDK_RELEASE_MASK #f) (export GDK_RELEASE_MASK) (dv GDK_MODIFIER_MASK #f) (export GDK_MODIFIER_MASK) (dv GDK_INPUT_READ #f) (export GDK_INPUT_READ) (dv GDK_INPUT_WRITE #f) (export GDK_INPUT_WRITE) (dv GDK_INPUT_EXCEPTION #f) (export GDK_INPUT_EXCEPTION) (dv GDK_OK #f) (export GDK_OK) (dv GDK_ERROR #f) (export GDK_ERROR) (dv GDK_ERROR_PARAM #f) (export GDK_ERROR_PARAM) (dv GDK_ERROR_FILE #f) (export GDK_ERROR_FILE) (dv GDK_ERROR_MEM #f) (export GDK_ERROR_MEM) (dv GDK_GRAB_SUCCESS #f) (export GDK_GRAB_SUCCESS) (dv GDK_GRAB_ALREADY_GRABBED #f) (export GDK_GRAB_ALREADY_GRABBED) (dv GDK_GRAB_INVALID_TIME #f) (export GDK_GRAB_INVALID_TIME) (dv GDK_GRAB_NOT_VIEWABLE #f) (export GDK_GRAB_NOT_VIEWABLE) (dv GDK_GRAB_FROZEN #f) (export GDK_GRAB_FROZEN) (dv _GdkRectangle_x_set #f) (export _GdkRectangle_x_set) (dv _GdkRectangle_x_get #f) (export _GdkRectangle_x_get) (dv _GdkRectangle_y_set #f) (export _GdkRectangle_y_set) (dv _GdkRectangle_y_get #f) (export _GdkRectangle_y_get) (dv _GdkRectangle_width_set #f) (export _GdkRectangle_width_set) (dv _GdkRectangle_width_get #f) (export _GdkRectangle_width_get) (dv _GdkRectangle_height_set #f) (export _GdkRectangle_height_set) (dv _GdkRectangle_height_get #f) (export _GdkRectangle_height_get) (dv new__GdkRectangle #f) (export new__GdkRectangle) (dv delete__GdkRectangle #f) (export delete__GdkRectangle) (dv gdk_rgb_find_color #f) (export gdk_rgb_find_color) (dv GDK_RGB_DITHER_NONE #f) (export GDK_RGB_DITHER_NONE) (dv GDK_RGB_DITHER_NORMAL #f) (export GDK_RGB_DITHER_NORMAL) (dv GDK_RGB_DITHER_MAX #f) (export GDK_RGB_DITHER_MAX) (dv gdk_draw_rgb_image #f) (export gdk_draw_rgb_image) (dv gdk_draw_rgb_image_dithalign #f) (export gdk_draw_rgb_image_dithalign) (dv gdk_draw_rgb_32_image #f) (export gdk_draw_rgb_32_image) (dv gdk_draw_rgb_32_image_dithalign #f) (export gdk_draw_rgb_32_image_dithalign) (dv gdk_draw_gray_image #f) (export gdk_draw_gray_image) (dv gdk_draw_indexed_image #f) (export gdk_draw_indexed_image) (dv gdk_rgb_cmap_new #f) (export gdk_rgb_cmap_new) (dv gdk_rgb_cmap_free #f) (export gdk_rgb_cmap_free) (dv gdk_rgb_ditherable #f) (export gdk_rgb_ditherable) (dv gdk_rgb_set_verbose #f) (export gdk_rgb_set_verbose) (dv gdk_rgb_set_install #f) (export gdk_rgb_set_install) (dv gdk_rgb_set_min_colors #f) (export gdk_rgb_set_min_colors) (dv gdk_rgb_get_colormap #f) (export gdk_rgb_get_colormap) (dv gdk_rgb_get_visual #f) (export gdk_rgb_get_visual) (dv GDK_EXTENSION_EVENTS_NONE #f) (export GDK_EXTENSION_EVENTS_NONE) (dv GDK_EXTENSION_EVENTS_ALL #f) (export GDK_EXTENSION_EVENTS_ALL) (dv GDK_EXTENSION_EVENTS_CURSOR #f) (export GDK_EXTENSION_EVENTS_CURSOR) (dv GDK_SOURCE_MOUSE #f) (export GDK_SOURCE_MOUSE) (dv GDK_SOURCE_PEN #f) (export GDK_SOURCE_PEN) ) (seq (dv GDK_SOURCE_ERASER #f) (export GDK_SOURCE_ERASER) (dv GDK_SOURCE_CURSOR #f) (export GDK_SOURCE_CURSOR) (dv GDK_MODE_DISABLED #f) (export GDK_MODE_DISABLED) (dv GDK_MODE_SCREEN #f) (export GDK_MODE_SCREEN) (dv GDK_MODE_WINDOW #f) (export GDK_MODE_WINDOW) (dv GDK_AXIS_IGNORE #f) (export GDK_AXIS_IGNORE) (dv GDK_AXIS_X #f) (export GDK_AXIS_X) (dv GDK_AXIS_Y #f) (export GDK_AXIS_Y) (dv GDK_AXIS_PRESSURE #f) (export GDK_AXIS_PRESSURE) (dv GDK_AXIS_XTILT #f) (export GDK_AXIS_XTILT) (dv GDK_AXIS_YTILT #f) (export GDK_AXIS_YTILT) (dv GDK_AXIS_WHEEL #f) (export GDK_AXIS_WHEEL) (dv GDK_AXIS_LAST #f) (export GDK_AXIS_LAST) (dv gdk_device_get_type #f) (export gdk_device_get_type) (dv gdk_devices_list #f) (export gdk_devices_list) (dv gdk_device_set_source #f) (export gdk_device_set_source) (dv gdk_device_set_mode #f) (export gdk_device_set_mode) (dv gdk_device_set_key #f) (export gdk_device_set_key) (dv gdk_device_set_axis_use #f) (export gdk_device_set_axis_use) (dv gdk_device_get_state #f) (export gdk_device_get_state) (dv gdk_device_get_history #f) (export gdk_device_get_history) (dv gdk_device_free_history #f) (export gdk_device_free_history) (dv gdk_device_get_axis #f) (export gdk_device_get_axis) (dv gdk_input_set_extension_events #f) (export gdk_input_set_extension_events) (dv gdk_device_get_core_pointer #f) (export gdk_device_get_core_pointer) (dv GTK_ANCHOR_CENTER #f) (export GTK_ANCHOR_CENTER) (dv GTK_ANCHOR_NORTH #f) (export GTK_ANCHOR_NORTH) (dv GTK_ANCHOR_NORTH_WEST #f) (export GTK_ANCHOR_NORTH_WEST) (dv GTK_ANCHOR_NORTH_EAST #f) (export GTK_ANCHOR_NORTH_EAST) (dv GTK_ANCHOR_SOUTH #f) (export GTK_ANCHOR_SOUTH) (dv GTK_ANCHOR_SOUTH_WEST #f) (export GTK_ANCHOR_SOUTH_WEST) (dv GTK_ANCHOR_SOUTH_EAST #f) (export GTK_ANCHOR_SOUTH_EAST) (dv GTK_ANCHOR_WEST #f) (export GTK_ANCHOR_WEST) (dv GTK_ANCHOR_EAST #f) (export GTK_ANCHOR_EAST) (dv GTK_ANCHOR_N #f) (export GTK_ANCHOR_N) (dv GTK_ANCHOR_NW #f) (export GTK_ANCHOR_NW) (dv GTK_ANCHOR_NE #f) (export GTK_ANCHOR_NE) (dv GTK_ANCHOR_S #f) (export GTK_ANCHOR_S) (dv GTK_ANCHOR_SW #f) (export GTK_ANCHOR_SW) (dv GTK_ANCHOR_SE #f) (export GTK_ANCHOR_SE) (dv GTK_ANCHOR_W #f) (export GTK_ANCHOR_W) (dv GTK_ANCHOR_E #f) (export GTK_ANCHOR_E) (dv GTK_ARROW_UP #f) (export GTK_ARROW_UP) (dv GTK_ARROW_DOWN #f) (export GTK_ARROW_DOWN) (dv GTK_ARROW_LEFT #f) (export GTK_ARROW_LEFT) (dv GTK_ARROW_RIGHT #f) (export GTK_ARROW_RIGHT) (dv GTK_EXPAND #f) (export GTK_EXPAND) (dv GTK_SHRINK #f) (export GTK_SHRINK) (dv GTK_FILL #f) (export GTK_FILL) (dv GTK_BUTTONBOX_DEFAULT_STYLE #f) (export GTK_BUTTONBOX_DEFAULT_STYLE) ) (seq (dv GTK_BUTTONBOX_SPREAD #f) (export GTK_BUTTONBOX_SPREAD) (dv GTK_BUTTONBOX_EDGE #f) (export GTK_BUTTONBOX_EDGE) (dv GTK_BUTTONBOX_START #f) (export GTK_BUTTONBOX_START) (dv GTK_BUTTONBOX_END #f) (export GTK_BUTTONBOX_END) (dv GTK_CURVE_TYPE_LINEAR #f) (export GTK_CURVE_TYPE_LINEAR) (dv GTK_CURVE_TYPE_SPLINE #f) (export GTK_CURVE_TYPE_SPLINE) (dv GTK_CURVE_TYPE_FREE #f) (export GTK_CURVE_TYPE_FREE) (dv GTK_DELETE_CHARS #f) (export GTK_DELETE_CHARS) (dv GTK_DELETE_WORD_ENDS #f) (export GTK_DELETE_WORD_ENDS) (dv GTK_DELETE_WORDS #f) (export GTK_DELETE_WORDS) (dv GTK_DELETE_DISPLAY_LINES #f) (export GTK_DELETE_DISPLAY_LINES) (dv GTK_DELETE_DISPLAY_LINE_ENDS #f) (export GTK_DELETE_DISPLAY_LINE_ENDS) (dv GTK_DELETE_PARAGRAPH_ENDS #f) (export GTK_DELETE_PARAGRAPH_ENDS) (dv GTK_DELETE_PARAGRAPHS #f) (export GTK_DELETE_PARAGRAPHS) (dv GTK_DELETE_WHITESPACE #f) (export GTK_DELETE_WHITESPACE) (dv GTK_DIR_TAB_FORWARD #f) (export GTK_DIR_TAB_FORWARD) (dv GTK_DIR_TAB_BACKWARD #f) (export GTK_DIR_TAB_BACKWARD) (dv GTK_DIR_UP #f) (export GTK_DIR_UP) (dv GTK_DIR_DOWN #f) (export GTK_DIR_DOWN) (dv GTK_DIR_LEFT #f) (export GTK_DIR_LEFT) (dv GTK_DIR_RIGHT #f) (export GTK_DIR_RIGHT) (dv GTK_EXPANDER_COLLAPSED #f) (export GTK_EXPANDER_COLLAPSED) (dv GTK_EXPANDER_SEMI_COLLAPSED #f) (export GTK_EXPANDER_SEMI_COLLAPSED) (dv GTK_EXPANDER_SEMI_EXPANDED #f) (export GTK_EXPANDER_SEMI_EXPANDED) (dv GTK_EXPANDER_EXPANDED #f) (export GTK_EXPANDER_EXPANDED) (dv GTK_ICON_SIZE_INVALID #f) (export GTK_ICON_SIZE_INVALID) (dv GTK_ICON_SIZE_MENU #f) (export GTK_ICON_SIZE_MENU) (dv GTK_ICON_SIZE_SMALL_TOOLBAR #f) (export GTK_ICON_SIZE_SMALL_TOOLBAR) (dv GTK_ICON_SIZE_LARGE_TOOLBAR #f) (export GTK_ICON_SIZE_LARGE_TOOLBAR) (dv GTK_ICON_SIZE_BUTTON #f) (export GTK_ICON_SIZE_BUTTON) (dv GTK_ICON_SIZE_DND #f) (export GTK_ICON_SIZE_DND) (dv GTK_ICON_SIZE_DIALOG #f) (export GTK_ICON_SIZE_DIALOG) (dv GTK_SIDE_TOP #f) (export GTK_SIDE_TOP) (dv GTK_SIDE_BOTTOM #f) (export GTK_SIDE_BOTTOM) (dv GTK_SIDE_LEFT #f) (export GTK_SIDE_LEFT) (dv GTK_SIDE_RIGHT #f) (export GTK_SIDE_RIGHT) (dv GTK_TEXT_DIR_NONE #f) (export GTK_TEXT_DIR_NONE) (dv GTK_TEXT_DIR_LTR #f) (export GTK_TEXT_DIR_LTR) (dv GTK_TEXT_DIR_RTL #f) (export GTK_TEXT_DIR_RTL) (dv GTK_JUSTIFY_LEFT #f) (export GTK_JUSTIFY_LEFT) (dv GTK_JUSTIFY_RIGHT #f) (export GTK_JUSTIFY_RIGHT) (dv GTK_JUSTIFY_CENTER #f) (export GTK_JUSTIFY_CENTER) (dv GTK_JUSTIFY_FILL #f) (export GTK_JUSTIFY_FILL) (dv GTK_MATCH_ALL #f) (export GTK_MATCH_ALL) (dv GTK_MATCH_ALL_TAIL #f) (export GTK_MATCH_ALL_TAIL) (dv GTK_MATCH_HEAD #f) (export GTK_MATCH_HEAD) (dv GTK_MATCH_TAIL #f) (export GTK_MATCH_TAIL) (dv GTK_MATCH_EXACT #f) (export GTK_MATCH_EXACT) (dv GTK_MATCH_LAST #f) (export GTK_MATCH_LAST) (dv GTK_MENU_DIR_PARENT #f) (export GTK_MENU_DIR_PARENT) ) (seq (dv GTK_MENU_DIR_CHILD #f) (export GTK_MENU_DIR_CHILD) (dv GTK_MENU_DIR_NEXT #f) (export GTK_MENU_DIR_NEXT) (dv GTK_MENU_DIR_PREV #f) (export GTK_MENU_DIR_PREV) (dv GTK_PIXELS #f) (export GTK_PIXELS) (dv GTK_INCHES #f) (export GTK_INCHES) (dv GTK_CENTIMETERS #f) (export GTK_CENTIMETERS) (dv GTK_MOVEMENT_LOGICAL_POSITIONS #f) (export GTK_MOVEMENT_LOGICAL_POSITIONS) (dv GTK_MOVEMENT_VISUAL_POSITIONS #f) (export GTK_MOVEMENT_VISUAL_POSITIONS) (dv GTK_MOVEMENT_WORDS #f) (export GTK_MOVEMENT_WORDS) (dv GTK_MOVEMENT_DISPLAY_LINES #f) (export GTK_MOVEMENT_DISPLAY_LINES) (dv GTK_MOVEMENT_DISPLAY_LINE_ENDS #f) (export GTK_MOVEMENT_DISPLAY_LINE_ENDS) (dv GTK_MOVEMENT_PARAGRAPHS #f) (export GTK_MOVEMENT_PARAGRAPHS) (dv GTK_MOVEMENT_PARAGRAPH_ENDS #f) (export GTK_MOVEMENT_PARAGRAPH_ENDS) (dv GTK_MOVEMENT_PAGES #f) (export GTK_MOVEMENT_PAGES) (dv GTK_MOVEMENT_BUFFER_ENDS #f) (export GTK_MOVEMENT_BUFFER_ENDS) (dv GTK_ORIENTATION_HORIZONTAL #f) (export GTK_ORIENTATION_HORIZONTAL) (dv GTK_ORIENTATION_VERTICAL #f) (export GTK_ORIENTATION_VERTICAL) (dv GTK_CORNER_TOP_LEFT #f) (export GTK_CORNER_TOP_LEFT) (dv GTK_CORNER_BOTTOM_LEFT #f) (export GTK_CORNER_BOTTOM_LEFT) (dv GTK_CORNER_TOP_RIGHT #f) (export GTK_CORNER_TOP_RIGHT) (dv GTK_CORNER_BOTTOM_RIGHT #f) (export GTK_CORNER_BOTTOM_RIGHT) (dv GTK_PACK_START #f) (export GTK_PACK_START) (dv GTK_PACK_END #f) (export GTK_PACK_END) (dv GTK_PATH_PRIO_LOWEST #f) (export GTK_PATH_PRIO_LOWEST) (dv GTK_PATH_PRIO_GTK #f) (export GTK_PATH_PRIO_GTK) (dv GTK_PATH_PRIO_APPLICATION #f) (export GTK_PATH_PRIO_APPLICATION) (dv GTK_PATH_PRIO_THEME #f) (export GTK_PATH_PRIO_THEME) (dv GTK_PATH_PRIO_RC #f) (export GTK_PATH_PRIO_RC) (dv GTK_PATH_PRIO_HIGHEST #f) (export GTK_PATH_PRIO_HIGHEST) (dv GTK_PATH_WIDGET #f) (export GTK_PATH_WIDGET) (dv GTK_PATH_WIDGET_CLASS #f) (export GTK_PATH_WIDGET_CLASS) (dv GTK_PATH_CLASS #f) (export GTK_PATH_CLASS) (dv GTK_POLICY_ALWAYS #f) (export GTK_POLICY_ALWAYS) (dv GTK_POLICY_AUTOMATIC #f) (export GTK_POLICY_AUTOMATIC) (dv GTK_POLICY_NEVER #f) (export GTK_POLICY_NEVER) (dv GTK_POS_LEFT #f) (export GTK_POS_LEFT) (dv GTK_POS_RIGHT #f) (export GTK_POS_RIGHT) (dv GTK_POS_TOP #f) (export GTK_POS_TOP) (dv GTK_POS_BOTTOM #f) (export GTK_POS_BOTTOM) (dv GTK_PREVIEW_COLOR #f) (export GTK_PREVIEW_COLOR) (dv GTK_PREVIEW_GRAYSCALE #f) (export GTK_PREVIEW_GRAYSCALE) (dv GTK_RELIEF_NORMAL #f) (export GTK_RELIEF_NORMAL) (dv GTK_RELIEF_HALF #f) (export GTK_RELIEF_HALF) (dv GTK_RELIEF_NONE #f) (export GTK_RELIEF_NONE) (dv GTK_RESIZE_PARENT #f) (export GTK_RESIZE_PARENT) (dv GTK_RESIZE_QUEUE #f) (export GTK_RESIZE_QUEUE) (dv GTK_RESIZE_IMMEDIATE #f) (export GTK_RESIZE_IMMEDIATE) (dv GTK_RUN_FIRST #f) (export GTK_RUN_FIRST) (dv GTK_RUN_LAST #f) (export GTK_RUN_LAST) (dv GTK_RUN_BOTH #f) (export GTK_RUN_BOTH) ) (seq (dv GTK_RUN_NO_RECURSE #f) (export GTK_RUN_NO_RECURSE) (dv GTK_RUN_ACTION #f) (export GTK_RUN_ACTION) (dv GTK_RUN_NO_HOOKS #f) (export GTK_RUN_NO_HOOKS) (dv GTK_SCROLL_NONE #f) (export GTK_SCROLL_NONE) (dv GTK_SCROLL_JUMP #f) (export GTK_SCROLL_JUMP) (dv GTK_SCROLL_STEP_BACKWARD #f) (export GTK_SCROLL_STEP_BACKWARD) (dv GTK_SCROLL_STEP_FORWARD #f) (export GTK_SCROLL_STEP_FORWARD) (dv GTK_SCROLL_PAGE_BACKWARD #f) (export GTK_SCROLL_PAGE_BACKWARD) (dv GTK_SCROLL_PAGE_FORWARD #f) (export GTK_SCROLL_PAGE_FORWARD) (dv GTK_SCROLL_STEP_UP #f) (export GTK_SCROLL_STEP_UP) (dv GTK_SCROLL_STEP_DOWN #f) (export GTK_SCROLL_STEP_DOWN) (dv GTK_SCROLL_PAGE_UP #f) (export GTK_SCROLL_PAGE_UP) (dv GTK_SCROLL_PAGE_DOWN #f) (export GTK_SCROLL_PAGE_DOWN) (dv GTK_SCROLL_STEP_LEFT #f) (export GTK_SCROLL_STEP_LEFT) (dv GTK_SCROLL_STEP_RIGHT #f) (export GTK_SCROLL_STEP_RIGHT) (dv GTK_SCROLL_PAGE_LEFT #f) (export GTK_SCROLL_PAGE_LEFT) (dv GTK_SCROLL_PAGE_RIGHT #f) (export GTK_SCROLL_PAGE_RIGHT) (dv GTK_SCROLL_START #f) (export GTK_SCROLL_START) (dv GTK_SCROLL_END #f) (export GTK_SCROLL_END) (dv GTK_SELECTION_NONE #f) (export GTK_SELECTION_NONE) (dv GTK_SELECTION_SINGLE #f) (export GTK_SELECTION_SINGLE) (dv GTK_SELECTION_BROWSE #f) (export GTK_SELECTION_BROWSE) (dv GTK_SELECTION_MULTIPLE #f) (export GTK_SELECTION_MULTIPLE) (dv GTK_SELECTION_EXTENDED #f) (export GTK_SELECTION_EXTENDED) (dv GTK_SHADOW_NONE #f) (export GTK_SHADOW_NONE) (dv GTK_SHADOW_IN #f) (export GTK_SHADOW_IN) (dv GTK_SHADOW_OUT #f) (export GTK_SHADOW_OUT) (dv GTK_SHADOW_ETCHED_IN #f) (export GTK_SHADOW_ETCHED_IN) (dv GTK_SHADOW_ETCHED_OUT #f) (export GTK_SHADOW_ETCHED_OUT) (dv GTK_STATE_NORMAL #f) (export GTK_STATE_NORMAL) (dv GTK_STATE_ACTIVE #f) (export GTK_STATE_ACTIVE) (dv GTK_STATE_PRELIGHT #f) (export GTK_STATE_PRELIGHT) (dv GTK_STATE_SELECTED #f) (export GTK_STATE_SELECTED) (dv GTK_STATE_INSENSITIVE #f) (export GTK_STATE_INSENSITIVE) (dv GTK_DIRECTION_LEFT #f) (export GTK_DIRECTION_LEFT) (dv GTK_DIRECTION_RIGHT #f) (export GTK_DIRECTION_RIGHT) (dv GTK_TOP_BOTTOM #f) (export GTK_TOP_BOTTOM) (dv GTK_LEFT_RIGHT #f) (export GTK_LEFT_RIGHT) (dv GTK_TOOLBAR_ICONS #f) (export GTK_TOOLBAR_ICONS) (dv GTK_TOOLBAR_TEXT #f) (export GTK_TOOLBAR_TEXT) (dv GTK_TOOLBAR_BOTH #f) (export GTK_TOOLBAR_BOTH) (dv GTK_TOOLBAR_BOTH_HORIZ #f) (export GTK_TOOLBAR_BOTH_HORIZ) (dv GTK_UPDATE_CONTINUOUS #f) (export GTK_UPDATE_CONTINUOUS) (dv GTK_UPDATE_DISCONTINUOUS #f) (export GTK_UPDATE_DISCONTINUOUS) (dv GTK_UPDATE_DELAYED #f) (export GTK_UPDATE_DELAYED) (dv GTK_VISIBILITY_NONE #f) (export GTK_VISIBILITY_NONE) (dv GTK_VISIBILITY_PARTIAL #f) (export GTK_VISIBILITY_PARTIAL) (dv GTK_VISIBILITY_FULL #f) (export GTK_VISIBILITY_FULL) (dv GTK_WIN_POS_NONE #f) (export GTK_WIN_POS_NONE) (dv GTK_WIN_POS_CENTER #f) (export GTK_WIN_POS_CENTER) ) (seq (dv GTK_WIN_POS_MOUSE #f) (export GTK_WIN_POS_MOUSE) (dv GTK_WIN_POS_CENTER_ALWAYS #f) (export GTK_WIN_POS_CENTER_ALWAYS) (dv GTK_WIN_POS_CENTER_ON_PARENT #f) (export GTK_WIN_POS_CENTER_ON_PARENT) (dv GTK_WINDOW_TOPLEVEL #f) (export GTK_WINDOW_TOPLEVEL) (dv GTK_WINDOW_POPUP #f) (export GTK_WINDOW_POPUP) (dv GTK_WRAP_NONE #f) (export GTK_WRAP_NONE) (dv GTK_WRAP_CHAR #f) (export GTK_WRAP_CHAR) (dv GTK_WRAP_WORD #f) (export GTK_WRAP_WORD) (dv GTK_SORT_ASCENDING #f) (export GTK_SORT_ASCENDING) (dv GTK_SORT_DESCENDING #f) (export GTK_SORT_DESCENDING) (dv goo_createCallback #f) (export goo_createCallback) (dv goo_destroyCallback #f) (export goo_destroyCallback) (dv gtk_getGtkFunctionCallback #f) (export gtk_getGtkFunctionCallback) (dv gtk_getGtkCallback #f) (export gtk_getGtkCallback) (dv gtk_getGtkCallthrough #f) (export gtk_getGtkCallthrough) (dv gtk_getEventCallback #f) (export gtk_getEventCallback) (dv gtk_getBoolEventCallback #f) (export gtk_getBoolEventCallback) (dv gtk_signal_lookup #f) (export gtk_signal_lookup) (dv gtk_signal_name #f) (export gtk_signal_name) (dv gtk_signal_emit_stop #f) (export gtk_signal_emit_stop) (dv gtk_signal_connect #f) (export gtk_signal_connect) (dv gtk_signal_connect_after #f) (export gtk_signal_connect_after) (dv gtk_signal_connect_object #f) (export gtk_signal_connect_object) (dv gtk_signal_connect_object_after #f) (export gtk_signal_connect_object_after) (dv gtk_signal_disconnect #f) (export gtk_signal_disconnect) (dv gtk_signal_handler_block #f) (export gtk_signal_handler_block) (dv gtk_signal_handler_unblock #f) (export gtk_signal_handler_unblock) (dv gtk_signal_disconnect_by_func #f) (export gtk_signal_disconnect_by_func) (dv gtk_signal_disconnect_by_data #f) (export gtk_signal_disconnect_by_data) (dv gtk_signal_handler_block_by_func #f) (export gtk_signal_handler_block_by_func) (dv gtk_signal_handler_block_by_data #f) (export gtk_signal_handler_block_by_data) (dv gtk_signal_handler_unblock_by_func #f) (export gtk_signal_handler_unblock_by_func) (dv gtk_signal_handler_unblock_by_data #f) (export gtk_signal_handler_unblock_by_data) (dv gtk_signal_handler_pending #f) (export gtk_signal_handler_pending) (dv gtk_signal_handler_pending_by_func #f) (export gtk_signal_handler_pending_by_func) (dv gtk_signal_newv #f) (export gtk_signal_newv) (dv gtk_signal_emit_stop_by_name #f) (export gtk_signal_emit_stop_by_name) (dv gtk_signal_connect_object_while_alive #f) (export gtk_signal_connect_object_while_alive) (dv gtk_signal_connect_while_alive #f) (export gtk_signal_connect_while_alive) (dv gtk_signal_connect_full #f) (export gtk_signal_connect_full) (dv gtk_signal_emitv #f) (export gtk_signal_emitv) (dv gtk_signal_emitv_by_name #f) (export gtk_signal_emitv_by_name) (dv gtk_signal_compat_matched #f) (export gtk_signal_compat_matched) (dv GTK_ACCEL_VISIBLE #f) (export GTK_ACCEL_VISIBLE) (dv GTK_ACCEL_LOCKED #f) (export GTK_ACCEL_LOCKED) (dv GTK_ACCEL_MASK #f) (export GTK_ACCEL_MASK) (dv gtk_accel_group_get_type #f) (export gtk_accel_group_get_type) (dv gtk_accel_group_new #f) (export gtk_accel_group_new) (dv gtk_accel_group_lock #f) (export gtk_accel_group_lock) (dv gtk_accel_group_unlock #f) (export gtk_accel_group_unlock) ) (seq (dv gtk_accel_group_connect #f) (export gtk_accel_group_connect) (dv gtk_accel_group_connect_by_path #f) (export gtk_accel_group_connect_by_path) (dv gtk_accel_group_disconnect #f) (export gtk_accel_group_disconnect) (dv gtk_accel_group_disconnect_key #f) (export gtk_accel_group_disconnect_key) (dv _gtk_accel_group_attach #f) (export _gtk_accel_group_attach) (dv _gtk_accel_group_detach #f) (export _gtk_accel_group_detach) (dv gtk_accel_groups_activate #f) (export gtk_accel_groups_activate) (dv gtk_accel_groups_from_object #f) (export gtk_accel_groups_from_object) (dv gtk_accel_group_find #f) (export gtk_accel_group_find) (dv gtk_accel_group_from_accel_closure #f) (export gtk_accel_group_from_accel_closure) (dv gtk_accelerator_valid #f) (export gtk_accelerator_valid) (dv gtk_accelerator_parse #f) (export gtk_accelerator_parse) (dv gtk_accelerator_name #f) (export gtk_accelerator_name) (dv gtk_accelerator_set_default_mod_mask #f) (export gtk_accelerator_set_default_mod_mask) (dv gtk_accelerator_get_default_mod_mask #f) (export gtk_accelerator_get_default_mod_mask) (dv _GtkWidget_object_set #f) (export _GtkWidget_object_set) (dv _GtkWidget_object_get #f) (export _GtkWidget_object_get) (dv _GtkWidget_private_flags_set #f) (export _GtkWidget_private_flags_set) (dv _GtkWidget_private_flags_get #f) (export _GtkWidget_private_flags_get) (dv _GtkWidget_state_set #f) (export _GtkWidget_state_set) (dv _GtkWidget_state_get #f) (export _GtkWidget_state_get) (dv _GtkWidget_saved_state_set #f) (export _GtkWidget_saved_state_set) (dv _GtkWidget_saved_state_get #f) (export _GtkWidget_saved_state_get) (dv _GtkWidget_name_set #f) (export _GtkWidget_name_set) (dv _GtkWidget_name_get #f) (export _GtkWidget_name_get) (dv _GtkWidget_style_set #f) (export _GtkWidget_style_set) (dv _GtkWidget_style_get #f) (export _GtkWidget_style_get) (dv _GtkWidget_requisition_set #f) (export _GtkWidget_requisition_set) (dv _GtkWidget_requisition_get #f) (export _GtkWidget_requisition_get) (dv _GtkWidget_allocation_set #f) (export _GtkWidget_allocation_set) (dv _GtkWidget_allocation_get #f) (export _GtkWidget_allocation_get) (dv _GtkWidget_window_set #f) (export _GtkWidget_window_set) (dv _GtkWidget_window_get #f) (export _GtkWidget_window_get) (dv _GtkWidget_parent_set #f) (export _GtkWidget_parent_set) (dv _GtkWidget_parent_get #f) (export _GtkWidget_parent_get) (dv new__GtkWidget #f) (export new__GtkWidget) (dv delete__GtkWidget #f) (export delete__GtkWidget) (dv gtk_widget_ref #f) (export gtk_widget_ref) (dv gtk_widget_unref #f) (export gtk_widget_unref) (dv gtk_widget_destroy #f) (export gtk_widget_destroy) (dv gtk_widget_destroyed #f) (export gtk_widget_destroyed) (dv gtk_widget_unparent #f) (export gtk_widget_unparent) (dv gtk_widget_show #f) (export gtk_widget_show) (dv gtk_widget_show_now #f) (export gtk_widget_show_now) (dv gtk_widget_hide #f) (export gtk_widget_hide) (dv gtk_widget_show_all #f) (export gtk_widget_show_all) (dv gtk_widget_hide_all #f) (export gtk_widget_hide_all) (dv gtk_widget_map #f) (export gtk_widget_map) (dv gtk_widget_unmap #f) (export gtk_widget_unmap) (dv gtk_widget_realize #f) (export gtk_widget_realize) ) (seq (dv gtk_widget_unrealize #f) (export gtk_widget_unrealize) (dv gtk_widget_queue_draw #f) (export gtk_widget_queue_draw) (dv gtk_widget_queue_draw_area #f) (export gtk_widget_queue_draw_area) (dv gtk_widget_queue_resize #f) (export gtk_widget_queue_resize) (dv gtk_widget_size_request #f) (export gtk_widget_size_request) (dv gtk_widget_size_allocate #f) (export gtk_widget_size_allocate) (dv gtk_widget_get_child_requisition #f) (export gtk_widget_get_child_requisition) (dv gtk_widget_add_accelerator #f) (export gtk_widget_add_accelerator) (dv gtk_widget_remove_accelerator #f) (export gtk_widget_remove_accelerator) (dv gtk_widget_list_accel_closures #f) (export gtk_widget_list_accel_closures) (dv gtk_widget_mnemonic_activate #f) (export gtk_widget_mnemonic_activate) (dv gtk_widget_event #f) (export gtk_widget_event) (dv gtk_widget_send_expose #f) (export gtk_widget_send_expose) (dv gtk_widget_activate #f) (export gtk_widget_activate) (dv gtk_widget_set_scroll_adjustments #f) (export gtk_widget_set_scroll_adjustments) (dv gtk_widget_reparent #f) (export gtk_widget_reparent) (dv gtk_widget_intersect #f) (export gtk_widget_intersect) (dv gtk_widget_region_intersect #f) (export gtk_widget_region_intersect) (dv gtk_widget_freeze_child_notify #f) (export gtk_widget_freeze_child_notify) (dv gtk_widget_child_notify #f) (export gtk_widget_child_notify) (dv gtk_widget_thaw_child_notify #f) (export gtk_widget_thaw_child_notify) (dv gtk_widget_is_focus #f) (export gtk_widget_is_focus) (dv gtk_widget_grab_focus #f) (export gtk_widget_grab_focus) (dv gtk_widget_grab_default #f) (export gtk_widget_grab_default) (dv gtk_widget_set_name #f) (export gtk_widget_set_name) (dv gtk_widget_get_name #f) (export gtk_widget_get_name) (dv gtk_widget_set_state #f) (export gtk_widget_set_state) (dv gtk_widget_set_sensitive #f) (export gtk_widget_set_sensitive) (dv gtk_widget_set_app_paintable #f) (export gtk_widget_set_app_paintable) (dv gtk_widget_set_double_buffered #f) (export gtk_widget_set_double_buffered) (dv gtk_widget_set_redraw_on_allocate #f) (export gtk_widget_set_redraw_on_allocate) (dv gtk_widget_set_parent #f) (export gtk_widget_set_parent) (dv gtk_widget_set_parent_window #f) (export gtk_widget_set_parent_window) (dv gtk_widget_set_child_visible #f) (export gtk_widget_set_child_visible) (dv gtk_widget_get_child_visible #f) (export gtk_widget_get_child_visible) (dv gtk_widget_get_parent #f) (export gtk_widget_get_parent) (dv gtk_widget_get_parent_window #f) (export gtk_widget_get_parent_window) (dv gtk_widget_child_focus #f) (export gtk_widget_child_focus) (dv gtk_widget_set_size_request #f) (export gtk_widget_set_size_request) (dv gtk_widget_get_size_request #f) (export gtk_widget_get_size_request) (dv gtk_widget_set_events #f) (export gtk_widget_set_events) (dv gtk_widget_add_events #f) (export gtk_widget_add_events) (dv gtk_widget_set_extension_events #f) (export gtk_widget_set_extension_events) (dv gtk_widget_get_extension_events #f) (export gtk_widget_get_extension_events) (dv gtk_widget_get_toplevel #f) (export gtk_widget_get_toplevel) (dv gtk_widget_get_ancestor #f) (export gtk_widget_get_ancestor) (dv gtk_widget_get_colormap #f) (export gtk_widget_get_colormap) (dv gtk_widget_get_visual #f) (export gtk_widget_get_visual) (dv gtk_widget_get_settings #f) (export gtk_widget_get_settings) (dv gtk_widget_get_accessible #f) (export gtk_widget_get_accessible) ) (seq (dv gtk_widget_set_colormap #f) (export gtk_widget_set_colormap) (dv gtk_widget_get_events #f) (export gtk_widget_get_events) (dv gtk_widget_get_pointer #f) (export gtk_widget_get_pointer) (dv gtk_widget_is_ancestor #f) (export gtk_widget_is_ancestor) (dv gtk_widget_translate_coordinates #f) (export gtk_widget_translate_coordinates) (dv gtk_widget_hide_on_delete #f) (export gtk_widget_hide_on_delete) (dv gtk_widget_set_style #f) (export gtk_widget_set_style) (dv gtk_widget_ensure_style #f) (export gtk_widget_ensure_style) (dv gtk_widget_get_style #f) (export gtk_widget_get_style) (dv gtk_widget_modify_style #f) (export gtk_widget_modify_style) (dv gtk_widget_get_modifier_style #f) (export gtk_widget_get_modifier_style) (dv gtk_widget_modify_fg #f) (export gtk_widget_modify_fg) (dv gtk_widget_modify_bg #f) (export gtk_widget_modify_bg) (dv gtk_widget_modify_text #f) (export gtk_widget_modify_text) (dv gtk_widget_modify_base #f) (export gtk_widget_modify_base) (dv gtk_widget_modify_font #f) (export gtk_widget_modify_font) (dv gtk_widget_create_pango_context #f) (export gtk_widget_create_pango_context) (dv gtk_widget_get_pango_context #f) (export gtk_widget_get_pango_context) (dv gtk_widget_create_pango_layout #f) (export gtk_widget_create_pango_layout) (dv gtk_widget_render_icon #f) (export gtk_widget_render_icon) (dv gtk_widget_set_composite_name #f) (export gtk_widget_set_composite_name) (dv gtk_widget_get_composite_name #f) (export gtk_widget_get_composite_name) (dv gtk_widget_reset_rc_styles #f) (export gtk_widget_reset_rc_styles) (dv gtk_widget_push_colormap #f) (export gtk_widget_push_colormap) (dv gtk_widget_push_composite_child #f) (export gtk_widget_push_composite_child) (dv gtk_widget_pop_composite_child #f) (export gtk_widget_pop_composite_child) (dv gtk_widget_pop_colormap #f) (export gtk_widget_pop_colormap) (dv gtk_widget_class_install_style_property #f) (export gtk_widget_class_install_style_property) (dv gtk_widget_style_get_property #f) (export gtk_widget_style_get_property) (dv gtk_widget_set_default_colormap #f) (export gtk_widget_set_default_colormap) (dv gtk_widget_get_default_style #f) (export gtk_widget_get_default_style) (dv gtk_widget_get_default_colormap #f) (export gtk_widget_get_default_colormap) (dv gtk_widget_get_default_visual #f) (export gtk_widget_get_default_visual) (dv gtk_widget_set_direction #f) (export gtk_widget_set_direction) (dv gtk_widget_get_direction #f) (export gtk_widget_get_direction) (dv gtk_widget_set_default_direction #f) (export gtk_widget_set_default_direction) (dv gtk_widget_get_default_direction #f) (export gtk_widget_get_default_direction) (dv gtk_widget_shape_combine_mask #f) (export gtk_widget_shape_combine_mask) (dv gtk_widget_reset_shapes #f) (export gtk_widget_reset_shapes) (dv gtk_widget_path #f) (export gtk_widget_path) (dv gtk_widget_class_path #f) (export gtk_widget_class_path) (dv gtk_requisition_copy #f) (export gtk_requisition_copy) (dv gtk_requisition_free #f) (export gtk_requisition_free) (dv _GdkColor_pixel_set #f) (export _GdkColor_pixel_set) (dv _GdkColor_pixel_get #f) (export _GdkColor_pixel_get) (dv _GdkColor_red_set #f) (export _GdkColor_red_set) (dv _GdkColor_red_get #f) (export _GdkColor_red_get) (dv _GdkColor_green_set #f) (export _GdkColor_green_set) (dv _GdkColor_green_get #f) (export _GdkColor_green_get) (dv _GdkColor_blue_set #f) (export _GdkColor_blue_set) ) (seq (dv _GdkColor_blue_get #f) (export _GdkColor_blue_get) (dv new__GdkColor #f) (export new__GdkColor) (dv delete__GdkColor #f) (export delete__GdkColor) (dv gdk_colormap_new #f) (export gdk_colormap_new) (dv gdk_colormap_get_system #f) (export gdk_colormap_get_system) (dv gdk_colormap_alloc_colors #f) (export gdk_colormap_alloc_colors) (dv gdk_colormap_alloc_color #f) (export gdk_colormap_alloc_color) (dv gdk_colormap_free_colors #f) (export gdk_colormap_free_colors) (dv gdk_colormap_query_color #f) (export gdk_colormap_query_color) (dv gdk_colormap_get_visual #f) (export gdk_colormap_get_visual) (dv gdk_color_copy #f) (export gdk_color_copy) (dv gdk_color_free #f) (export gdk_color_free) (dv gdk_color_parse #f) (export gdk_color_parse) (dv gdk_color_hash #f) (export gdk_color_hash) (dv gdk_color_equal #f) (export gdk_color_equal) (dv gdk_color_get_type #f) (export gdk_color_get_type) (dv gdk_drawable_get_size #f) (export gdk_drawable_get_size) (dv gdk_drawable_set_colormap #f) (export gdk_drawable_set_colormap) (dv gdk_drawable_get_colormap #f) (export gdk_drawable_get_colormap) (dv gdk_drawable_get_visual #f) (export gdk_drawable_get_visual) (dv gdk_drawable_get_depth #f) (export gdk_drawable_get_depth) (dv gdk_draw_point #f) (export gdk_draw_point) (dv gdk_draw_line #f) (export gdk_draw_line) (dv gdk_draw_rectangle #f) (export gdk_draw_rectangle) (dv gdk_draw_arc #f) (export gdk_draw_arc) (dv gdk_draw_polygon #f) (export gdk_draw_polygon) (dv gdk_draw_drawable #f) (export gdk_draw_drawable) (dv gdk_draw_image #f) (export gdk_draw_image) (dv gdk_draw_points #f) (export gdk_draw_points) (dv gdk_draw_segments #f) (export gdk_draw_segments) (dv gdk_draw_lines #f) (export gdk_draw_lines) (dv gdk_draw_glyphs #f) (export gdk_draw_glyphs) (dv gdk_draw_layout_line #f) (export gdk_draw_layout_line) (dv gdk_draw_layout #f) (export gdk_draw_layout) (dv gdk_draw_layout_line_with_colors #f) (export gdk_draw_layout_line_with_colors) (dv gdk_draw_layout_with_colors #f) (export gdk_draw_layout_with_colors) (dv gdk_drawable_get_image #f) (export gdk_drawable_get_image) (dv gdk_drawable_get_clip_region #f) (export gdk_drawable_get_clip_region) (dv gdk_drawable_get_visible_region #f) (export gdk_drawable_get_visible_region) (dv gdk_draw_string #f) (export gdk_draw_string) (dv gdk_draw_text #f) (export gdk_draw_text) (dv gdk_draw_text_wc #f) (export gdk_draw_text_wc) (dv GDK_FONT_FONT #f) (export GDK_FONT_FONT) (dv GDK_FONT_FONTSET #f) (export GDK_FONT_FONTSET) (dv _GdkFont_type_set #f) (export _GdkFont_type_set) (dv _GdkFont_type_get #f) (export _GdkFont_type_get) (dv _GdkFont_ascent_set #f) (export _GdkFont_ascent_set) (dv _GdkFont_ascent_get #f) (export _GdkFont_ascent_get) (dv _GdkFont_descent_set #f) (export _GdkFont_descent_set) (dv _GdkFont_descent_get #f) (export _GdkFont_descent_get) ) (seq (dv new__GdkFont #f) (export new__GdkFont) (dv delete__GdkFont #f) (export delete__GdkFont) (dv gdk_font_get_type #f) (export gdk_font_get_type) (dv gdk_font_load #f) (export gdk_font_load) (dv gdk_fontset_load #f) (export gdk_fontset_load) (dv gdk_font_from_description #f) (export gdk_font_from_description) (dv gdk_font_ref #f) (export gdk_font_ref) (dv gdk_font_unref #f) (export gdk_font_unref) (dv gdk_font_id #f) (export gdk_font_id) (dv gdk_font_equal #f) (export gdk_font_equal) (dv gdk_string_width #f) (export gdk_string_width) (dv gdk_text_width #f) (export gdk_text_width) (dv gdk_text_width_wc #f) (export gdk_text_width_wc) (dv gdk_char_width #f) (export gdk_char_width) (dv gdk_char_width_wc #f) (export gdk_char_width_wc) (dv gdk_string_measure #f) (export gdk_string_measure) (dv gdk_text_measure #f) (export gdk_text_measure) (dv gdk_char_measure #f) (export gdk_char_measure) (dv gdk_string_height #f) (export gdk_string_height) (dv gdk_text_height #f) (export gdk_text_height) (dv gdk_char_height #f) (export gdk_char_height) (dv gdk_text_extents #f) (export gdk_text_extents) (dv gdk_text_extents_wc #f) (export gdk_text_extents_wc) (dv gdk_string_extents #f) (export gdk_string_extents) (dv GDK_FILTER_CONTINUE #f) (export GDK_FILTER_CONTINUE) (dv GDK_FILTER_TRANSLATE #f) (export GDK_FILTER_TRANSLATE) (dv GDK_FILTER_REMOVE #f) (export GDK_FILTER_REMOVE) (dv GDK_NOTHING #f) (export GDK_NOTHING) (dv GDK_DELETE #f) (export GDK_DELETE) (dv GDK_DESTROY #f) (export GDK_DESTROY) (dv GDK_EXPOSE #f) (export GDK_EXPOSE) (dv GDK_MOTION_NOTIFY #f) (export GDK_MOTION_NOTIFY) (dv GDK_BUTTON_PRESS #f) (export GDK_BUTTON_PRESS) (dv GDK_2BUTTON_PRESS #f) (export GDK_2BUTTON_PRESS) (dv GDK_3BUTTON_PRESS #f) (export GDK_3BUTTON_PRESS) (dv GDK_BUTTON_RELEASE #f) (export GDK_BUTTON_RELEASE) (dv GDK_KEY_PRESS #f) (export GDK_KEY_PRESS) (dv GDK_KEY_RELEASE #f) (export GDK_KEY_RELEASE) (dv GDK_ENTER_NOTIFY #f) (export GDK_ENTER_NOTIFY) (dv GDK_LEAVE_NOTIFY #f) (export GDK_LEAVE_NOTIFY) (dv GDK_FOCUS_CHANGE #f) (export GDK_FOCUS_CHANGE) (dv GDK_CONFIGURE #f) (export GDK_CONFIGURE) (dv GDK_MAP #f) (export GDK_MAP) (dv GDK_UNMAP #f) (export GDK_UNMAP) (dv GDK_PROPERTY_NOTIFY #f) (export GDK_PROPERTY_NOTIFY) (dv GDK_SELECTION_CLEAR #f) (export GDK_SELECTION_CLEAR) (dv GDK_SELECTION_REQUEST #f) (export GDK_SELECTION_REQUEST) (dv GDK_SELECTION_NOTIFY #f) (export GDK_SELECTION_NOTIFY) (dv GDK_PROXIMITY_IN #f) (export GDK_PROXIMITY_IN) (dv GDK_PROXIMITY_OUT #f) (export GDK_PROXIMITY_OUT) ) (seq (dv GDK_DRAG_ENTER #f) (export GDK_DRAG_ENTER) (dv GDK_DRAG_LEAVE #f) (export GDK_DRAG_LEAVE) (dv GDK_DRAG_MOTION #f) (export GDK_DRAG_MOTION) (dv GDK_DRAG_STATUS #f) (export GDK_DRAG_STATUS) (dv GDK_DROP_START #f) (export GDK_DROP_START) (dv GDK_DROP_FINISHED #f) (export GDK_DROP_FINISHED) (dv GDK_CLIENT_EVENT #f) (export GDK_CLIENT_EVENT) (dv GDK_VISIBILITY_NOTIFY #f) (export GDK_VISIBILITY_NOTIFY) (dv GDK_NO_EXPOSE #f) (export GDK_NO_EXPOSE) (dv GDK_SCROLL #f) (export GDK_SCROLL) (dv GDK_WINDOW_STATE #f) (export GDK_WINDOW_STATE) (dv GDK_SETTING #f) (export GDK_SETTING) (dv GDK_EXPOSURE_MASK #f) (export GDK_EXPOSURE_MASK) (dv GDK_POINTER_MOTION_MASK #f) (export GDK_POINTER_MOTION_MASK) (dv GDK_POINTER_MOTION_HINT_MASK #f) (export GDK_POINTER_MOTION_HINT_MASK) (dv GDK_BUTTON_MOTION_MASK #f) (export GDK_BUTTON_MOTION_MASK) (dv GDK_BUTTON1_MOTION_MASK #f) (export GDK_BUTTON1_MOTION_MASK) (dv GDK_BUTTON2_MOTION_MASK #f) (export GDK_BUTTON2_MOTION_MASK) (dv GDK_BUTTON3_MOTION_MASK #f) (export GDK_BUTTON3_MOTION_MASK) (dv GDK_BUTTON_PRESS_MASK #f) (export GDK_BUTTON_PRESS_MASK) (dv GDK_BUTTON_RELEASE_MASK #f) (export GDK_BUTTON_RELEASE_MASK) (dv GDK_KEY_PRESS_MASK #f) (export GDK_KEY_PRESS_MASK) (dv GDK_KEY_RELEASE_MASK #f) (export GDK_KEY_RELEASE_MASK) (dv GDK_ENTER_NOTIFY_MASK #f) (export GDK_ENTER_NOTIFY_MASK) (dv GDK_LEAVE_NOTIFY_MASK #f) (export GDK_LEAVE_NOTIFY_MASK) (dv GDK_FOCUS_CHANGE_MASK #f) (export GDK_FOCUS_CHANGE_MASK) (dv GDK_STRUCTURE_MASK #f) (export GDK_STRUCTURE_MASK) (dv GDK_PROPERTY_CHANGE_MASK #f) (export GDK_PROPERTY_CHANGE_MASK) (dv GDK_VISIBILITY_NOTIFY_MASK #f) (export GDK_VISIBILITY_NOTIFY_MASK) (dv GDK_PROXIMITY_IN_MASK #f) (export GDK_PROXIMITY_IN_MASK) (dv GDK_PROXIMITY_OUT_MASK #f) (export GDK_PROXIMITY_OUT_MASK) (dv GDK_SUBSTRUCTURE_MASK #f) (export GDK_SUBSTRUCTURE_MASK) (dv GDK_SCROLL_MASK #f) (export GDK_SCROLL_MASK) (dv GDK_ALL_EVENTS_MASK #f) (export GDK_ALL_EVENTS_MASK) (dv GDK_VISIBILITY_UNOBSCURED #f) (export GDK_VISIBILITY_UNOBSCURED) (dv GDK_VISIBILITY_PARTIAL #f) (export GDK_VISIBILITY_PARTIAL) (dv GDK_VISIBILITY_FULLY_OBSCURED #f) (export GDK_VISIBILITY_FULLY_OBSCURED) (dv GDK_SCROLL_UP #f) (export GDK_SCROLL_UP) (dv GDK_SCROLL_DOWN #f) (export GDK_SCROLL_DOWN) (dv GDK_SCROLL_LEFT #f) (export GDK_SCROLL_LEFT) (dv GDK_SCROLL_RIGHT #f) (export GDK_SCROLL_RIGHT) (dv GDK_NOTIFY_ANCESTOR #f) (export GDK_NOTIFY_ANCESTOR) (dv GDK_NOTIFY_VIRTUAL #f) (export GDK_NOTIFY_VIRTUAL) (dv GDK_NOTIFY_INFERIOR #f) (export GDK_NOTIFY_INFERIOR) (dv GDK_NOTIFY_NONLINEAR #f) (export GDK_NOTIFY_NONLINEAR) (dv GDK_NOTIFY_NONLINEAR_VIRTUAL #f) (export GDK_NOTIFY_NONLINEAR_VIRTUAL) (dv GDK_NOTIFY_UNKNOWN #f) (export GDK_NOTIFY_UNKNOWN) (dv GDK_CROSSING_NORMAL #f) (export GDK_CROSSING_NORMAL) (dv GDK_CROSSING_GRAB #f) (export GDK_CROSSING_GRAB) (dv GDK_CROSSING_UNGRAB #f) (export GDK_CROSSING_UNGRAB) ) (seq (dv GDK_PROPERTY_NEW_VALUE #f) (export GDK_PROPERTY_NEW_VALUE) (dv GDK_PROPERTY_DELETE #f) (export GDK_PROPERTY_DELETE) (dv GDK_WINDOW_STATE_WITHDRAWN #f) (export GDK_WINDOW_STATE_WITHDRAWN) (dv GDK_WINDOW_STATE_ICONIFIED #f) (export GDK_WINDOW_STATE_ICONIFIED) (dv GDK_WINDOW_STATE_MAXIMIZED #f) (export GDK_WINDOW_STATE_MAXIMIZED) (dv GDK_WINDOW_STATE_STICKY #f) (export GDK_WINDOW_STATE_STICKY) (dv GDK_SETTING_ACTION_NEW #f) (export GDK_SETTING_ACTION_NEW) (dv GDK_SETTING_ACTION_CHANGED #f) (export GDK_SETTING_ACTION_CHANGED) (dv GDK_SETTING_ACTION_DELETED #f) (export GDK_SETTING_ACTION_DELETED) (dv _GdkEventAny_type_set #f) (export _GdkEventAny_type_set) (dv _GdkEventAny_type_get #f) (export _GdkEventAny_type_get) (dv _GdkEventAny_window_set #f) (export _GdkEventAny_window_set) (dv _GdkEventAny_window_get #f) (export _GdkEventAny_window_get) (dv _GdkEventAny_send_event_set #f) (export _GdkEventAny_send_event_set) (dv _GdkEventAny_send_event_get #f) (export _GdkEventAny_send_event_get) (dv new__GdkEventAny #f) (export new__GdkEventAny) (dv delete__GdkEventAny #f) (export delete__GdkEventAny) (dv _GdkEventExpose_type_set #f) (export _GdkEventExpose_type_set) (dv _GdkEventExpose_type_get #f) (export _GdkEventExpose_type_get) (dv _GdkEventExpose_window_set #f) (export _GdkEventExpose_window_set) (dv _GdkEventExpose_window_get #f) (export _GdkEventExpose_window_get) (dv _GdkEventExpose_send_event_set #f) (export _GdkEventExpose_send_event_set) (dv _GdkEventExpose_send_event_get #f) (export _GdkEventExpose_send_event_get) (dv _GdkEventExpose_area_set #f) (export _GdkEventExpose_area_set) (dv _GdkEventExpose_area_get #f) (export _GdkEventExpose_area_get) (dv _GdkEventExpose_region_set #f) (export _GdkEventExpose_region_set) (dv _GdkEventExpose_region_get #f) (export _GdkEventExpose_region_get) (dv _GdkEventExpose_count_set #f) (export _GdkEventExpose_count_set) (dv _GdkEventExpose_count_get #f) (export _GdkEventExpose_count_get) (dv new__GdkEventExpose #f) (export new__GdkEventExpose) (dv delete__GdkEventExpose #f) (export delete__GdkEventExpose) (dv _GdkEventVisibility_type_set #f) (export _GdkEventVisibility_type_set) (dv _GdkEventVisibility_type_get #f) (export _GdkEventVisibility_type_get) (dv _GdkEventVisibility_window_set #f) (export _GdkEventVisibility_window_set) (dv _GdkEventVisibility_window_get #f) (export _GdkEventVisibility_window_get) (dv _GdkEventVisibility_send_event_set #f) (export _GdkEventVisibility_send_event_set) (dv _GdkEventVisibility_send_event_get #f) (export _GdkEventVisibility_send_event_get) (dv _GdkEventVisibility_state_set #f) (export _GdkEventVisibility_state_set) (dv _GdkEventVisibility_state_get #f) (export _GdkEventVisibility_state_get) (dv new__GdkEventVisibility #f) (export new__GdkEventVisibility) (dv delete__GdkEventVisibility #f) (export delete__GdkEventVisibility) (dv _GdkEventMotion_type_set #f) (export _GdkEventMotion_type_set) (dv _GdkEventMotion_type_get #f) (export _GdkEventMotion_type_get) (dv _GdkEventMotion_window_set #f) (export _GdkEventMotion_window_set) (dv _GdkEventMotion_window_get #f) (export _GdkEventMotion_window_get) (dv _GdkEventMotion_send_event_set #f) (export _GdkEventMotion_send_event_set) (dv _GdkEventMotion_send_event_get #f) (export _GdkEventMotion_send_event_get) (dv _GdkEventMotion_time_set #f) (export _GdkEventMotion_time_set) (dv _GdkEventMotion_time_get #f) (export _GdkEventMotion_time_get) (dv _GdkEventMotion_x_set #f) (export _GdkEventMotion_x_set) ) (seq (dv _GdkEventMotion_x_get #f) (export _GdkEventMotion_x_get) (dv _GdkEventMotion_y_set #f) (export _GdkEventMotion_y_set) (dv _GdkEventMotion_y_get #f) (export _GdkEventMotion_y_get) (dv _GdkEventMotion_axes_set #f) (export _GdkEventMotion_axes_set) (dv _GdkEventMotion_axes_get #f) (export _GdkEventMotion_axes_get) (dv _GdkEventMotion_state_set #f) (export _GdkEventMotion_state_set) (dv _GdkEventMotion_state_get #f) (export _GdkEventMotion_state_get) (dv _GdkEventMotion_is_hint_set #f) (export _GdkEventMotion_is_hint_set) (dv _GdkEventMotion_is_hint_get #f) (export _GdkEventMotion_is_hint_get) (dv _GdkEventMotion_device_set #f) (export _GdkEventMotion_device_set) (dv _GdkEventMotion_device_get #f) (export _GdkEventMotion_device_get) (dv _GdkEventMotion_x_root_set #f) (export _GdkEventMotion_x_root_set) (dv _GdkEventMotion_x_root_get #f) (export _GdkEventMotion_x_root_get) (dv _GdkEventMotion_y_root_set #f) (export _GdkEventMotion_y_root_set) (dv _GdkEventMotion_y_root_get #f) (export _GdkEventMotion_y_root_get) (dv new__GdkEventMotion #f) (export new__GdkEventMotion) (dv delete__GdkEventMotion #f) (export delete__GdkEventMotion) (dv _GdkEventButton_type_set #f) (export _GdkEventButton_type_set) (dv _GdkEventButton_type_get #f) (export _GdkEventButton_type_get) (dv _GdkEventButton_window_set #f) (export _GdkEventButton_window_set) (dv _GdkEventButton_window_get #f) (export _GdkEventButton_window_get) (dv _GdkEventButton_send_event_set #f) (export _GdkEventButton_send_event_set) (dv _GdkEventButton_send_event_get #f) (export _GdkEventButton_send_event_get) (dv _GdkEventButton_time_set #f) (export _GdkEventButton_time_set) (dv _GdkEventButton_time_get #f) (export _GdkEventButton_time_get) (dv _GdkEventButton_x_set #f) (export _GdkEventButton_x_set) (dv _GdkEventButton_x_get #f) (export _GdkEventButton_x_get) (dv _GdkEventButton_y_set #f) (export _GdkEventButton_y_set) (dv _GdkEventButton_y_get #f) (export _GdkEventButton_y_get) (dv _GdkEventButton_axes_set #f) (export _GdkEventButton_axes_set) (dv _GdkEventButton_axes_get #f) (export _GdkEventButton_axes_get) (dv _GdkEventButton_state_set #f) (export _GdkEventButton_state_set) (dv _GdkEventButton_state_get #f) (export _GdkEventButton_state_get) (dv _GdkEventButton_button_set #f) (export _GdkEventButton_button_set) (dv _GdkEventButton_button_get #f) (export _GdkEventButton_button_get) (dv _GdkEventButton_device_set #f) (export _GdkEventButton_device_set) (dv _GdkEventButton_device_get #f) (export _GdkEventButton_device_get) (dv _GdkEventButton_x_root_set #f) (export _GdkEventButton_x_root_set) (dv _GdkEventButton_x_root_get #f) (export _GdkEventButton_x_root_get) (dv _GdkEventButton_y_root_set #f) (export _GdkEventButton_y_root_set) (dv _GdkEventButton_y_root_get #f) (export _GdkEventButton_y_root_get) (dv new__GdkEventButton #f) (export new__GdkEventButton) (dv delete__GdkEventButton #f) (export delete__GdkEventButton) (dv _GdkEventScroll_type_set #f) (export _GdkEventScroll_type_set) (dv _GdkEventScroll_type_get #f) (export _GdkEventScroll_type_get) (dv _GdkEventScroll_window_set #f) (export _GdkEventScroll_window_set) (dv _GdkEventScroll_window_get #f) (export _GdkEventScroll_window_get) (dv _GdkEventScroll_send_event_set #f) (export _GdkEventScroll_send_event_set) (dv _GdkEventScroll_send_event_get #f) (export _GdkEventScroll_send_event_get) (dv _GdkEventScroll_time_set #f) (export _GdkEventScroll_time_set) ) (seq (dv _GdkEventScroll_time_get #f) (export _GdkEventScroll_time_get) (dv _GdkEventScroll_x_set #f) (export _GdkEventScroll_x_set) (dv _GdkEventScroll_x_get #f) (export _GdkEventScroll_x_get) (dv _GdkEventScroll_y_set #f) (export _GdkEventScroll_y_set) (dv _GdkEventScroll_y_get #f) (export _GdkEventScroll_y_get) (dv _GdkEventScroll_state_set #f) (export _GdkEventScroll_state_set) (dv _GdkEventScroll_state_get #f) (export _GdkEventScroll_state_get) (dv _GdkEventScroll_direction_set #f) (export _GdkEventScroll_direction_set) (dv _GdkEventScroll_direction_get #f) (export _GdkEventScroll_direction_get) (dv _GdkEventScroll_device_set #f) (export _GdkEventScroll_device_set) (dv _GdkEventScroll_device_get #f) (export _GdkEventScroll_device_get) (dv _GdkEventScroll_x_root_set #f) (export _GdkEventScroll_x_root_set) (dv _GdkEventScroll_x_root_get #f) (export _GdkEventScroll_x_root_get) (dv _GdkEventScroll_y_root_set #f) (export _GdkEventScroll_y_root_set) (dv _GdkEventScroll_y_root_get #f) (export _GdkEventScroll_y_root_get) (dv new__GdkEventScroll #f) (export new__GdkEventScroll) (dv delete__GdkEventScroll #f) (export delete__GdkEventScroll) (dv _GdkEventKey_type_set #f) (export _GdkEventKey_type_set) (dv _GdkEventKey_type_get #f) (export _GdkEventKey_type_get) (dv _GdkEventKey_window_set #f) (export _GdkEventKey_window_set) (dv _GdkEventKey_window_get #f) (export _GdkEventKey_window_get) (dv _GdkEventKey_send_event_set #f) (export _GdkEventKey_send_event_set) (dv _GdkEventKey_send_event_get #f) (export _GdkEventKey_send_event_get) (dv _GdkEventKey_time_set #f) (export _GdkEventKey_time_set) (dv _GdkEventKey_time_get #f) (export _GdkEventKey_time_get) (dv _GdkEventKey_state_set #f) (export _GdkEventKey_state_set) (dv _GdkEventKey_state_get #f) (export _GdkEventKey_state_get) (dv _GdkEventKey_keyval_set #f) (export _GdkEventKey_keyval_set) (dv _GdkEventKey_keyval_get #f) (export _GdkEventKey_keyval_get) (dv _GdkEventKey_length_set #f) (export _GdkEventKey_length_set) (dv _GdkEventKey_length_get #f) (export _GdkEventKey_length_get) (dv _GdkEventKey_string_set #f) (export _GdkEventKey_string_set) (dv _GdkEventKey_string_get #f) (export _GdkEventKey_string_get) (dv _GdkEventKey_hardware_keycode_set #f) (export _GdkEventKey_hardware_keycode_set) (dv _GdkEventKey_hardware_keycode_get #f) (export _GdkEventKey_hardware_keycode_get) (dv _GdkEventKey_group_set #f) (export _GdkEventKey_group_set) (dv _GdkEventKey_group_get #f) (export _GdkEventKey_group_get) (dv new__GdkEventKey #f) (export new__GdkEventKey) (dv delete__GdkEventKey #f) (export delete__GdkEventKey) (dv _GdkEventCrossing_type_set #f) (export _GdkEventCrossing_type_set) (dv _GdkEventCrossing_type_get #f) (export _GdkEventCrossing_type_get) (dv _GdkEventCrossing_window_set #f) (export _GdkEventCrossing_window_set) (dv _GdkEventCrossing_window_get #f) (export _GdkEventCrossing_window_get) (dv _GdkEventCrossing_send_event_set #f) (export _GdkEventCrossing_send_event_set) (dv _GdkEventCrossing_send_event_get #f) (export _GdkEventCrossing_send_event_get) (dv _GdkEventCrossing_subwindow_set #f) (export _GdkEventCrossing_subwindow_set) (dv _GdkEventCrossing_subwindow_get #f) (export _GdkEventCrossing_subwindow_get) (dv _GdkEventCrossing_time_set #f) (export _GdkEventCrossing_time_set) (dv _GdkEventCrossing_time_get #f) (export _GdkEventCrossing_time_get) (dv _GdkEventCrossing_x_set #f) (export _GdkEventCrossing_x_set) ) (seq (dv _GdkEventCrossing_x_get #f) (export _GdkEventCrossing_x_get) (dv _GdkEventCrossing_y_set #f) (export _GdkEventCrossing_y_set) (dv _GdkEventCrossing_y_get #f) (export _GdkEventCrossing_y_get) (dv _GdkEventCrossing_x_root_set #f) (export _GdkEventCrossing_x_root_set) (dv _GdkEventCrossing_x_root_get #f) (export _GdkEventCrossing_x_root_get) (dv _GdkEventCrossing_y_root_set #f) (export _GdkEventCrossing_y_root_set) (dv _GdkEventCrossing_y_root_get #f) (export _GdkEventCrossing_y_root_get) (dv _GdkEventCrossing_mode_set #f) (export _GdkEventCrossing_mode_set) (dv _GdkEventCrossing_mode_get #f) (export _GdkEventCrossing_mode_get) (dv _GdkEventCrossing_detail_set #f) (export _GdkEventCrossing_detail_set) (dv _GdkEventCrossing_detail_get #f) (export _GdkEventCrossing_detail_get) (dv _GdkEventCrossing_focus_set #f) (export _GdkEventCrossing_focus_set) (dv _GdkEventCrossing_focus_get #f) (export _GdkEventCrossing_focus_get) (dv _GdkEventCrossing_state_set #f) (export _GdkEventCrossing_state_set) (dv _GdkEventCrossing_state_get #f) (export _GdkEventCrossing_state_get) (dv new__GdkEventCrossing #f) (export new__GdkEventCrossing) (dv delete__GdkEventCrossing #f) (export delete__GdkEventCrossing) (dv _GdkEventFocus_type_set #f) (export _GdkEventFocus_type_set) (dv _GdkEventFocus_type_get #f) (export _GdkEventFocus_type_get) (dv _GdkEventFocus_window_set #f) (export _GdkEventFocus_window_set) (dv _GdkEventFocus_window_get #f) (export _GdkEventFocus_window_get) (dv _GdkEventFocus_send_event_set #f) (export _GdkEventFocus_send_event_set) (dv _GdkEventFocus_send_event_get #f) (export _GdkEventFocus_send_event_get) (dv _GdkEventFocus_in_set #f) (export _GdkEventFocus_in_set) (dv _GdkEventFocus_in_get #f) (export _GdkEventFocus_in_get) (dv new__GdkEventFocus #f) (export new__GdkEventFocus) (dv delete__GdkEventFocus #f) (export delete__GdkEventFocus) (dv _GdkEventConfigure_type_set #f) (export _GdkEventConfigure_type_set) (dv _GdkEventConfigure_type_get #f) (export _GdkEventConfigure_type_get) (dv _GdkEventConfigure_window_set #f) (export _GdkEventConfigure_window_set) (dv _GdkEventConfigure_window_get #f) (export _GdkEventConfigure_window_get) (dv _GdkEventConfigure_send_event_set #f) (export _GdkEventConfigure_send_event_set) (dv _GdkEventConfigure_send_event_get #f) (export _GdkEventConfigure_send_event_get) (dv _GdkEventConfigure_x_set #f) (export _GdkEventConfigure_x_set) (dv _GdkEventConfigure_x_get #f) (export _GdkEventConfigure_x_get) (dv _GdkEventConfigure_y_set #f) (export _GdkEventConfigure_y_set) (dv _GdkEventConfigure_y_get #f) (export _GdkEventConfigure_y_get) (dv _GdkEventConfigure_width_set #f) (export _GdkEventConfigure_width_set) (dv _GdkEventConfigure_width_get #f) (export _GdkEventConfigure_width_get) (dv _GdkEventConfigure_height_set #f) (export _GdkEventConfigure_height_set) (dv _GdkEventConfigure_height_get #f) (export _GdkEventConfigure_height_get) (dv new__GdkEventConfigure #f) (export new__GdkEventConfigure) (dv delete__GdkEventConfigure #f) (export delete__GdkEventConfigure) (dv _GdkEventProperty_type_set #f) (export _GdkEventProperty_type_set) (dv _GdkEventProperty_type_get #f) (export _GdkEventProperty_type_get) (dv _GdkEventProperty_window_set #f) (export _GdkEventProperty_window_set) (dv _GdkEventProperty_window_get #f) (export _GdkEventProperty_window_get) (dv _GdkEventProperty_send_event_set #f) (export _GdkEventProperty_send_event_set) (dv _GdkEventProperty_send_event_get #f) (export _GdkEventProperty_send_event_get) (dv _GdkEventProperty_atom_set #f) (export _GdkEventProperty_atom_set) ) (seq (dv _GdkEventProperty_atom_get #f) (export _GdkEventProperty_atom_get) (dv _GdkEventProperty_time_set #f) (export _GdkEventProperty_time_set) (dv _GdkEventProperty_time_get #f) (export _GdkEventProperty_time_get) (dv _GdkEventProperty_state_set #f) (export _GdkEventProperty_state_set) (dv _GdkEventProperty_state_get #f) (export _GdkEventProperty_state_get) (dv new__GdkEventProperty #f) (export new__GdkEventProperty) (dv delete__GdkEventProperty #f) (export delete__GdkEventProperty) (dv _GdkEventSelection_type_set #f) (export _GdkEventSelection_type_set) (dv _GdkEventSelection_type_get #f) (export _GdkEventSelection_type_get) (dv _GdkEventSelection_window_set #f) (export _GdkEventSelection_window_set) (dv _GdkEventSelection_window_get #f) (export _GdkEventSelection_window_get) (dv _GdkEventSelection_send_event_set #f) (export _GdkEventSelection_send_event_set) (dv _GdkEventSelection_send_event_get #f) (export _GdkEventSelection_send_event_get) (dv _GdkEventSelection_selection_set #f) (export _GdkEventSelection_selection_set) (dv _GdkEventSelection_selection_get #f) (export _GdkEventSelection_selection_get) (dv _GdkEventSelection_target_set #f) (export _GdkEventSelection_target_set) (dv _GdkEventSelection_target_get #f) (export _GdkEventSelection_target_get) (dv _GdkEventSelection_property_set #f) (export _GdkEventSelection_property_set) (dv _GdkEventSelection_property_get #f) (export _GdkEventSelection_property_get) (dv _GdkEventSelection_time_set #f) (export _GdkEventSelection_time_set) (dv _GdkEventSelection_time_get #f) (export _GdkEventSelection_time_get) (dv _GdkEventSelection_requestor_set #f) (export _GdkEventSelection_requestor_set) (dv _GdkEventSelection_requestor_get #f) (export _GdkEventSelection_requestor_get) (dv new__GdkEventSelection #f) (export new__GdkEventSelection) (dv delete__GdkEventSelection #f) (export delete__GdkEventSelection) (dv _GdkEventProximity_type_set #f) (export _GdkEventProximity_type_set) (dv _GdkEventProximity_type_get #f) (export _GdkEventProximity_type_get) (dv _GdkEventProximity_window_set #f) (export _GdkEventProximity_window_set) (dv _GdkEventProximity_window_get #f) (export _GdkEventProximity_window_get) (dv _GdkEventProximity_send_event_set #f) (export _GdkEventProximity_send_event_set) (dv _GdkEventProximity_send_event_get #f) (export _GdkEventProximity_send_event_get) (dv _GdkEventProximity_time_set #f) (export _GdkEventProximity_time_set) (dv _GdkEventProximity_time_get #f) (export _GdkEventProximity_time_get) (dv _GdkEventProximity_device_set #f) (export _GdkEventProximity_device_set) (dv _GdkEventProximity_device_get #f) (export _GdkEventProximity_device_get) (dv new__GdkEventProximity #f) (export new__GdkEventProximity) (dv delete__GdkEventProximity #f) (export delete__GdkEventProximity) (dv _GdkEventClient_type_set #f) (export _GdkEventClient_type_set) (dv _GdkEventClient_type_get #f) (export _GdkEventClient_type_get) (dv _GdkEventClient_window_set #f) (export _GdkEventClient_window_set) (dv _GdkEventClient_window_get #f) (export _GdkEventClient_window_get) (dv _GdkEventClient_send_event_set #f) (export _GdkEventClient_send_event_set) (dv _GdkEventClient_send_event_get #f) (export _GdkEventClient_send_event_get) (dv _GdkEventClient_message_type_set #f) (export _GdkEventClient_message_type_set) (dv _GdkEventClient_message_type_get #f) (export _GdkEventClient_message_type_get) (dv _GdkEventClient_data_format_set #f) (export _GdkEventClient_data_format_set) (dv _GdkEventClient_data_format_get #f) (export _GdkEventClient_data_format_get) (dv _GdkEventClient_data_get #f) (export _GdkEventClient_data_get) (dv new__GdkEventClient #f) (export new__GdkEventClient) (dv delete__GdkEventClient #f) (export delete__GdkEventClient) ) (seq (dv _GdkEventClient_data_b_set #f) (export _GdkEventClient_data_b_set) (dv _GdkEventClient_data_b_get #f) (export _GdkEventClient_data_b_get) (dv _GdkEventClient_data_s_set #f) (export _GdkEventClient_data_s_set) (dv _GdkEventClient_data_s_get #f) (export _GdkEventClient_data_s_get) (dv _GdkEventClient_data_l_set #f) (export _GdkEventClient_data_l_set) (dv _GdkEventClient_data_l_get #f) (export _GdkEventClient_data_l_get) (dv new__GdkEventClient_data #f) (export new__GdkEventClient_data) (dv delete__GdkEventClient_data #f) (export delete__GdkEventClient_data) (dv _GdkEventSetting_type_set #f) (export _GdkEventSetting_type_set) (dv _GdkEventSetting_type_get #f) (export _GdkEventSetting_type_get) (dv _GdkEventSetting_window_set #f) (export _GdkEventSetting_window_set) (dv _GdkEventSetting_window_get #f) (export _GdkEventSetting_window_get) (dv _GdkEventSetting_send_event_set #f) (export _GdkEventSetting_send_event_set) (dv _GdkEventSetting_send_event_get #f) (export _GdkEventSetting_send_event_get) (dv _GdkEventSetting_action_set #f) (export _GdkEventSetting_action_set) (dv _GdkEventSetting_action_get #f) (export _GdkEventSetting_action_get) (dv _GdkEventSetting_name_set #f) (export _GdkEventSetting_name_set) (dv _GdkEventSetting_name_get #f) (export _GdkEventSetting_name_get) (dv new__GdkEventSetting #f) (export new__GdkEventSetting) (dv delete__GdkEventSetting #f) (export delete__GdkEventSetting) (dv _GdkEventWindowState_type_set #f) (export _GdkEventWindowState_type_set) (dv _GdkEventWindowState_type_get #f) (export _GdkEventWindowState_type_get) (dv _GdkEventWindowState_window_set #f) (export _GdkEventWindowState_window_set) (dv _GdkEventWindowState_window_get #f) (export _GdkEventWindowState_window_get) (dv _GdkEventWindowState_send_event_set #f) (export _GdkEventWindowState_send_event_set) (dv _GdkEventWindowState_send_event_get #f) (export _GdkEventWindowState_send_event_get) (dv _GdkEventWindowState_changed_mask_set #f) (export _GdkEventWindowState_changed_mask_set) (dv _GdkEventWindowState_changed_mask_get #f) (export _GdkEventWindowState_changed_mask_get) (dv _GdkEventWindowState_new_window_state_set #f) (export _GdkEventWindowState_new_window_state_set) (dv _GdkEventWindowState_new_window_state_get #f) (export _GdkEventWindowState_new_window_state_get) (dv new__GdkEventWindowState #f) (export new__GdkEventWindowState) (dv delete__GdkEventWindowState #f) (export delete__GdkEventWindowState) (dv _GdkEventDND_type_set #f) (export _GdkEventDND_type_set) (dv _GdkEventDND_type_get #f) (export _GdkEventDND_type_get) (dv _GdkEventDND_window_set #f) (export _GdkEventDND_window_set) (dv _GdkEventDND_window_get #f) (export _GdkEventDND_window_get) (dv _GdkEventDND_send_event_set #f) (export _GdkEventDND_send_event_set) (dv _GdkEventDND_send_event_get #f) (export _GdkEventDND_send_event_get) (dv _GdkEventDND_context_set #f) (export _GdkEventDND_context_set) (dv _GdkEventDND_context_get #f) (export _GdkEventDND_context_get) (dv _GdkEventDND_time_set #f) (export _GdkEventDND_time_set) (dv _GdkEventDND_time_get #f) (export _GdkEventDND_time_get) (dv _GdkEventDND_x_root_set #f) (export _GdkEventDND_x_root_set) (dv _GdkEventDND_x_root_get #f) (export _GdkEventDND_x_root_get) (dv _GdkEventDND_y_root_set #f) (export _GdkEventDND_y_root_set) (dv _GdkEventDND_y_root_get #f) (export _GdkEventDND_y_root_get) (dv new__GdkEventDND #f) (export new__GdkEventDND) (dv delete__GdkEventDND #f) (export delete__GdkEventDND) (dv gdk_event_get_type #f) (export gdk_event_get_type) (dv gdk_events_pending #f) (export gdk_events_pending) ) (seq (dv gdk_event_get #f) (export gdk_event_get) (dv gdk_event_peek #f) (export gdk_event_peek) (dv gdk_event_get_graphics_expose #f) (export gdk_event_get_graphics_expose) (dv gdk_event_put #f) (export gdk_event_put) (dv gdk_event_copy #f) (export gdk_event_copy) (dv gdk_event_free #f) (export gdk_event_free) (dv gdk_event_get_time #f) (export gdk_event_get_time) (dv gdk_event_get_state #f) (export gdk_event_get_state) (dv gdk_event_get_coords #f) (export gdk_event_get_coords) (dv gdk_event_get_root_coords #f) (export gdk_event_get_root_coords) (dv gdk_event_get_axis #f) (export gdk_event_get_axis) (dv gdk_event_handler_set #f) (export gdk_event_handler_set) (dv gdk_set_show_events #f) (export gdk_set_show_events) (dv gdk_get_show_events #f) (export gdk_get_show_events) (dv gdk_add_client_message_filter #f) (export gdk_add_client_message_filter) (dv gdk_setting_get #f) (export gdk_setting_get) (dv GDK_CAP_NOT_LAST #f) (export GDK_CAP_NOT_LAST) (dv GDK_CAP_BUTT #f) (export GDK_CAP_BUTT) (dv GDK_CAP_ROUND #f) (export GDK_CAP_ROUND) (dv GDK_CAP_PROJECTING #f) (export GDK_CAP_PROJECTING) (dv GDK_SOLID #f) (export GDK_SOLID) (dv GDK_TILED #f) (export GDK_TILED) (dv GDK_STIPPLED #f) (export GDK_STIPPLED) (dv GDK_OPAQUE_STIPPLED #f) (export GDK_OPAQUE_STIPPLED) (dv GDK_COPY #f) (export GDK_COPY) (dv GDK_INVERT #f) (export GDK_INVERT) (dv GDK_XOR #f) (export GDK_XOR) (dv GDK_CLEAR #f) (export GDK_CLEAR) (dv GDK_AND #f) (export GDK_AND) (dv GDK_AND_REVERSE #f) (export GDK_AND_REVERSE) (dv GDK_AND_INVERT #f) (export GDK_AND_INVERT) (dv GDK_NOOP #f) (export GDK_NOOP) (dv GDK_OR #f) (export GDK_OR) (dv GDK_EQUIV #f) (export GDK_EQUIV) (dv GDK_OR_REVERSE #f) (export GDK_OR_REVERSE) (dv GDK_COPY_INVERT #f) (export GDK_COPY_INVERT) (dv GDK_OR_INVERT #f) (export GDK_OR_INVERT) (dv GDK_NAND #f) (export GDK_NAND) (dv GDK_NOR #f) (export GDK_NOR) (dv GDK_SET #f) (export GDK_SET) (dv GDK_JOIN_MITER #f) (export GDK_JOIN_MITER) (dv GDK_JOIN_ROUND #f) (export GDK_JOIN_ROUND) (dv GDK_JOIN_BEVEL #f) (export GDK_JOIN_BEVEL) (dv GDK_LINE_SOLID #f) (export GDK_LINE_SOLID) (dv GDK_LINE_ON_OFF_DASH #f) (export GDK_LINE_ON_OFF_DASH) (dv GDK_LINE_DOUBLE_DASH #f) (export GDK_LINE_DOUBLE_DASH) (dv GDK_CLIP_BY_CHILDREN #f) (export GDK_CLIP_BY_CHILDREN) (dv GDK_INCLUDE_INFERIORS #f) (export GDK_INCLUDE_INFERIORS) (dv GDK_GC_FOREGROUND #f) (export GDK_GC_FOREGROUND) (dv GDK_GC_BACKGROUND #f) (export GDK_GC_BACKGROUND) ) (seq (dv GDK_GC_FONT #f) (export GDK_GC_FONT) (dv GDK_GC_FUNCTION #f) (export GDK_GC_FUNCTION) (dv GDK_GC_FILL #f) (export GDK_GC_FILL) (dv GDK_GC_TILE #f) (export GDK_GC_TILE) (dv GDK_GC_STIPPLE #f) (export GDK_GC_STIPPLE) (dv GDK_GC_CLIP_MASK #f) (export GDK_GC_CLIP_MASK) (dv GDK_GC_SUBWINDOW #f) (export GDK_GC_SUBWINDOW) (dv GDK_GC_TS_X_ORIGIN #f) (export GDK_GC_TS_X_ORIGIN) (dv GDK_GC_TS_Y_ORIGIN #f) (export GDK_GC_TS_Y_ORIGIN) (dv GDK_GC_CLIP_X_ORIGIN #f) (export GDK_GC_CLIP_X_ORIGIN) (dv GDK_GC_CLIP_Y_ORIGIN #f) (export GDK_GC_CLIP_Y_ORIGIN) (dv GDK_GC_EXPOSURES #f) (export GDK_GC_EXPOSURES) (dv GDK_GC_LINE_WIDTH #f) (export GDK_GC_LINE_WIDTH) (dv GDK_GC_LINE_STYLE #f) (export GDK_GC_LINE_STYLE) (dv GDK_GC_CAP_STYLE #f) (export GDK_GC_CAP_STYLE) (dv GDK_GC_JOIN_STYLE #f) (export GDK_GC_JOIN_STYLE) (dv gdk_gc_get_type #f) (export gdk_gc_get_type) (dv gdk_gc_new #f) (export gdk_gc_new) (dv gdk_gc_new_with_values #f) (export gdk_gc_new_with_values) (dv gdk_gc_get_values #f) (export gdk_gc_get_values) (dv gdk_gc_set_values #f) (export gdk_gc_set_values) (dv gdk_gc_set_foreground #f) (export gdk_gc_set_foreground) (dv gdk_gc_set_background #f) (export gdk_gc_set_background) (dv gdk_gc_set_function #f) (export gdk_gc_set_function) (dv gdk_gc_set_fill #f) (export gdk_gc_set_fill) (dv gdk_gc_set_tile #f) (export gdk_gc_set_tile) (dv gdk_gc_set_stipple #f) (export gdk_gc_set_stipple) (dv gdk_gc_set_ts_origin #f) (export gdk_gc_set_ts_origin) (dv gdk_gc_set_clip_origin #f) (export gdk_gc_set_clip_origin) (dv gdk_gc_set_clip_mask #f) (export gdk_gc_set_clip_mask) (dv gdk_gc_set_clip_rectangle #f) (export gdk_gc_set_clip_rectangle) (dv gdk_gc_set_clip_region #f) (export gdk_gc_set_clip_region) (dv gdk_gc_set_subwindow #f) (export gdk_gc_set_subwindow) (dv gdk_gc_set_exposures #f) (export gdk_gc_set_exposures) (dv gdk_gc_set_line_attributes #f) (export gdk_gc_set_line_attributes) (dv gdk_gc_set_dashes #f) (export gdk_gc_set_dashes) (dv gdk_gc_offset #f) (export gdk_gc_offset) (dv gdk_gc_copy #f) (export gdk_gc_copy) (dv gdk_gc_set_colormap #f) (export gdk_gc_set_colormap) (dv gdk_gc_get_colormap #f) (export gdk_gc_get_colormap) (dv gdk_gc_set_rgb_fg_color #f) (export gdk_gc_set_rgb_fg_color) (dv gdk_gc_set_rgb_bg_color #f) (export gdk_gc_set_rgb_bg_color) (dv GDK_IMAGE_NORMAL #f) (export GDK_IMAGE_NORMAL) (dv GDK_IMAGE_SHARED #f) (export GDK_IMAGE_SHARED) (dv GDK_IMAGE_FASTEST #f) (export GDK_IMAGE_FASTEST) (dv gdk_image_new #f) (export gdk_image_new) (dv gdk_image_put_pixel #f) (export gdk_image_put_pixel) (dv gdk_image_get_pixel #f) (export gdk_image_get_pixel) (dv gdk_image_set_colormap #f) (export gdk_image_set_colormap) (dv gdk_image_get_colormap #f) (export gdk_image_get_colormap) ) (seq (dv gdk_set_locale #f) (export gdk_set_locale) (dv gdk_get_program_class #f) (export gdk_get_program_class) (dv gdk_set_program_class #f) (export gdk_set_program_class) (dv gdk_error_trap_push #f) (export gdk_error_trap_push) (dv gdk_error_trap_pop #f) (export gdk_error_trap_pop) (dv gdk_get_display #f) (export gdk_get_display) (dv gdk_pointer_grab #f) (export gdk_pointer_grab) (dv gdk_pointer_ungrab #f) (export gdk_pointer_ungrab) (dv gdk_keyboard_grab #f) (export gdk_keyboard_grab) (dv gdk_keyboard_ungrab #f) (export gdk_keyboard_ungrab) (dv gdk_pointer_is_grabbed #f) (export gdk_pointer_is_grabbed) (dv gdk_screen_width #f) (export gdk_screen_width) (dv gdk_screen_height #f) (export gdk_screen_height) (dv gdk_screen_width_mm #f) (export gdk_screen_width_mm) (dv gdk_screen_height_mm #f) (export gdk_screen_height_mm) (dv gdk_flush #f) (export gdk_flush) (dv gdk_beep #f) (export gdk_beep) (dv gdk_set_double_click_time #f) (export gdk_set_double_click_time) (dv gdk_rectangle_intersect #f) (export gdk_rectangle_intersect) (dv gdk_rectangle_union #f) (export gdk_rectangle_union) (dv gdk_rectangle_get_type #f) (export gdk_rectangle_get_type) (dv gdk_wcstombs #f) (export gdk_wcstombs) (dv gdk_mbstowcs #f) (export gdk_mbstowcs) (dv gdk_event_send_clientmessage_toall #f) (export gdk_event_send_clientmessage_toall) (dv gdk_event_send_client_message #f) (export gdk_event_send_client_message) (dv gdk_threads_enter #f) (export gdk_threads_enter) (dv gdk_threads_leave #f) (export gdk_threads_leave) (dv gdk_threads_init #f) (export gdk_threads_init) (dv gdk_pixbuf_render_threshold_alpha #f) (export gdk_pixbuf_render_threshold_alpha) (dv gdk_pixbuf_render_to_drawable #f) (export gdk_pixbuf_render_to_drawable) (dv gdk_pixbuf_render_to_drawable_alpha #f) (export gdk_pixbuf_render_to_drawable_alpha) (dv gdk_pixbuf_render_pixmap_and_mask_for_colormap #f) (export gdk_pixbuf_render_pixmap_and_mask_for_colormap) (dv gdk_pixbuf_render_pixmap_and_mask #f) (export gdk_pixbuf_render_pixmap_and_mask) (dv gdk_pixbuf_get_from_drawable #f) (export gdk_pixbuf_get_from_drawable) (dv gdk_pixbuf_get_from_image #f) (export gdk_pixbuf_get_from_image) (dv gdk_pixmap_new #f) (export gdk_pixmap_new) (dv gdk_bitmap_create_from_data #f) (export gdk_bitmap_create_from_data) (dv gdk_pixmap_create_from_data #f) (export gdk_pixmap_create_from_data) (dv gdk_pixmap_create_from_xpm #f) (export gdk_pixmap_create_from_xpm) (dv gdk_pixmap_colormap_create_from_xpm #f) (export gdk_pixmap_colormap_create_from_xpm) (dv gdk_pixmap_create_from_xpm_d #f) (export gdk_pixmap_create_from_xpm_d) (dv gdk_pixmap_colormap_create_from_xpm_d #f) (export gdk_pixmap_colormap_create_from_xpm_d) (dv gdk_pixmap_foreign_new #f) (export gdk_pixmap_foreign_new) (dv gdk_pixmap_lookup #f) (export gdk_pixmap_lookup) (dv GDK_VISUAL_STATIC_GRAY #f) (export GDK_VISUAL_STATIC_GRAY) (dv GDK_VISUAL_GRAYSCALE #f) (export GDK_VISUAL_GRAYSCALE) (dv GDK_VISUAL_STATIC_COLOR #f) (export GDK_VISUAL_STATIC_COLOR) (dv GDK_VISUAL_PSEUDO_COLOR #f) (export GDK_VISUAL_PSEUDO_COLOR) (dv GDK_VISUAL_TRUE_COLOR #f) (export GDK_VISUAL_TRUE_COLOR) (dv GDK_VISUAL_DIRECT_COLOR #f) (export GDK_VISUAL_DIRECT_COLOR) ) (seq (dv gdk_visual_get_type #f) (export gdk_visual_get_type) (dv gdk_visual_get_best_depth #f) (export gdk_visual_get_best_depth) (dv gdk_visual_get_best_type #f) (export gdk_visual_get_best_type) (dv gdk_visual_get_system #f) (export gdk_visual_get_system) (dv gdk_visual_get_best #f) (export gdk_visual_get_best) (dv gdk_visual_get_best_with_depth #f) (export gdk_visual_get_best_with_depth) (dv gdk_visual_get_best_with_type #f) (export gdk_visual_get_best_with_type) (dv gdk_visual_get_best_with_both #f) (export gdk_visual_get_best_with_both) (dv gdk_query_depths #f) (export gdk_query_depths) (dv gdk_query_visual_types #f) (export gdk_query_visual_types) (dv gdk_list_visuals #f) (export gdk_list_visuals) (dv GDK_INPUT_OUTPUT #f) (export GDK_INPUT_OUTPUT) (dv GDK_INPUT_ONLY #f) (export GDK_INPUT_ONLY) (dv GDK_WINDOW_ROOT #f) (export GDK_WINDOW_ROOT) (dv GDK_WINDOW_TOPLEVEL #f) (export GDK_WINDOW_TOPLEVEL) (dv GDK_WINDOW_CHILD #f) (export GDK_WINDOW_CHILD) (dv GDK_WINDOW_DIALOG #f) (export GDK_WINDOW_DIALOG) (dv GDK_WINDOW_TEMP #f) (export GDK_WINDOW_TEMP) (dv GDK_WINDOW_FOREIGN #f) (export GDK_WINDOW_FOREIGN) (dv GDK_WA_TITLE #f) (export GDK_WA_TITLE) (dv GDK_WA_X #f) (export GDK_WA_X) (dv GDK_WA_Y #f) (export GDK_WA_Y) (dv GDK_WA_CURSOR #f) (export GDK_WA_CURSOR) (dv GDK_WA_COLORMAP #f) (export GDK_WA_COLORMAP) (dv GDK_WA_VISUAL #f) (export GDK_WA_VISUAL) (dv GDK_WA_WMCLASS #f) (export GDK_WA_WMCLASS) (dv GDK_WA_NOREDIR #f) (export GDK_WA_NOREDIR) (dv GDK_HINT_POS #f) (export GDK_HINT_POS) (dv GDK_HINT_MIN_SIZE #f) (export GDK_HINT_MIN_SIZE) (dv GDK_HINT_MAX_SIZE #f) (export GDK_HINT_MAX_SIZE) (dv GDK_HINT_BASE_SIZE #f) (export GDK_HINT_BASE_SIZE) (dv GDK_HINT_ASPECT #f) (export GDK_HINT_ASPECT) (dv GDK_HINT_RESIZE_INC #f) (export GDK_HINT_RESIZE_INC) (dv GDK_HINT_WIN_GRAVITY #f) (export GDK_HINT_WIN_GRAVITY) (dv GDK_HINT_USER_POS #f) (export GDK_HINT_USER_POS) (dv GDK_HINT_USER_SIZE #f) (export GDK_HINT_USER_SIZE) (dv GDK_WINDOW_TYPE_HINT_NORMAL #f) (export GDK_WINDOW_TYPE_HINT_NORMAL) (dv GDK_WINDOW_TYPE_HINT_DIALOG #f) (export GDK_WINDOW_TYPE_HINT_DIALOG) (dv GDK_WINDOW_TYPE_HINT_MENU #f) (export GDK_WINDOW_TYPE_HINT_MENU) (dv GDK_WINDOW_TYPE_HINT_TOOLBAR #f) (export GDK_WINDOW_TYPE_HINT_TOOLBAR) (dv GDK_DECOR_ALL #f) (export GDK_DECOR_ALL) (dv GDK_DECOR_BORDER #f) (export GDK_DECOR_BORDER) (dv GDK_DECOR_RESIZEH #f) (export GDK_DECOR_RESIZEH) (dv GDK_DECOR_TITLE #f) (export GDK_DECOR_TITLE) (dv GDK_DECOR_MENU #f) (export GDK_DECOR_MENU) (dv GDK_DECOR_MINIMIZE #f) (export GDK_DECOR_MINIMIZE) (dv GDK_DECOR_MAXIMIZE #f) (export GDK_DECOR_MAXIMIZE) (dv GDK_FUNC_ALL #f) (export GDK_FUNC_ALL) (dv GDK_FUNC_RESIZE #f) (export GDK_FUNC_RESIZE) (dv GDK_FUNC_MOVE #f) (export GDK_FUNC_MOVE) ) (seq (dv GDK_FUNC_MINIMIZE #f) (export GDK_FUNC_MINIMIZE) (dv GDK_FUNC_MAXIMIZE #f) (export GDK_FUNC_MAXIMIZE) (dv GDK_FUNC_CLOSE #f) (export GDK_FUNC_CLOSE) (dv GDK_GRAVITY_NORTH_WEST #f) (export GDK_GRAVITY_NORTH_WEST) (dv GDK_GRAVITY_NORTH #f) (export GDK_GRAVITY_NORTH) (dv GDK_GRAVITY_NORTH_EAST #f) (export GDK_GRAVITY_NORTH_EAST) (dv GDK_GRAVITY_WEST #f) (export GDK_GRAVITY_WEST) (dv GDK_GRAVITY_CENTER #f) (export GDK_GRAVITY_CENTER) (dv GDK_GRAVITY_EAST #f) (export GDK_GRAVITY_EAST) (dv GDK_GRAVITY_SOUTH_WEST #f) (export GDK_GRAVITY_SOUTH_WEST) (dv GDK_GRAVITY_SOUTH #f) (export GDK_GRAVITY_SOUTH) (dv GDK_GRAVITY_SOUTH_EAST #f) (export GDK_GRAVITY_SOUTH_EAST) (dv GDK_GRAVITY_STATIC #f) (export GDK_GRAVITY_STATIC) (dv GDK_WINDOW_EDGE_NORTH_WEST #f) (export GDK_WINDOW_EDGE_NORTH_WEST) (dv GDK_WINDOW_EDGE_NORTH #f) (export GDK_WINDOW_EDGE_NORTH) (dv GDK_WINDOW_EDGE_NORTH_EAST #f) (export GDK_WINDOW_EDGE_NORTH_EAST) (dv GDK_WINDOW_EDGE_WEST #f) (export GDK_WINDOW_EDGE_WEST) (dv GDK_WINDOW_EDGE_EAST #f) (export GDK_WINDOW_EDGE_EAST) (dv GDK_WINDOW_EDGE_SOUTH_WEST #f) (export GDK_WINDOW_EDGE_SOUTH_WEST) (dv GDK_WINDOW_EDGE_SOUTH #f) (export GDK_WINDOW_EDGE_SOUTH) (dv GDK_WINDOW_EDGE_SOUTH_EAST #f) (export GDK_WINDOW_EDGE_SOUTH_EAST) (dv gdk_window_new #f) (export gdk_window_new) (dv gdk_window_destroy #f) (export gdk_window_destroy) (dv gdk_window_get_window_type #f) (export gdk_window_get_window_type) (dv gdk_window_at_pointer #f) (export gdk_window_at_pointer) (dv gdk_window_show #f) (export gdk_window_show) (dv gdk_window_hide #f) (export gdk_window_hide) (dv gdk_window_withdraw #f) (export gdk_window_withdraw) (dv gdk_window_show_unraised #f) (export gdk_window_show_unraised) (dv gdk_window_move #f) (export gdk_window_move) (dv gdk_window_resize #f) (export gdk_window_resize) (dv gdk_window_move_resize #f) (export gdk_window_move_resize) (dv gdk_window_reparent #f) (export gdk_window_reparent) (dv gdk_window_clear #f) (export gdk_window_clear) (dv gdk_window_clear_area #f) (export gdk_window_clear_area) (dv gdk_window_clear_area_e #f) (export gdk_window_clear_area_e) (dv gdk_window_raise #f) (export gdk_window_raise) (dv gdk_window_lower #f) (export gdk_window_lower) (dv gdk_window_focus #f) (export gdk_window_focus) (dv gdk_window_set_user_data #f) (export gdk_window_set_user_data) (dv gdk_window_set_override_redirect #f) (export gdk_window_set_override_redirect) (dv gdk_window_add_filter #f) (export gdk_window_add_filter) (dv gdk_window_remove_filter #f) (export gdk_window_remove_filter) (dv gdk_window_scroll #f) (export gdk_window_scroll) (dv gdk_window_shape_combine_mask #f) (export gdk_window_shape_combine_mask) (dv gdk_window_shape_combine_region #f) (export gdk_window_shape_combine_region) (dv gdk_window_set_child_shapes #f) (export gdk_window_set_child_shapes) (dv gdk_window_merge_child_shapes #f) (export gdk_window_merge_child_shapes) (dv gdk_window_is_visible #f) (export gdk_window_is_visible) (dv gdk_window_is_viewable #f) (export gdk_window_is_viewable) ) (seq (dv gdk_window_get_state #f) (export gdk_window_get_state) (dv gdk_window_set_static_gravities #f) (export gdk_window_set_static_gravities) (dv gdk_window_foreign_new #f) (export gdk_window_foreign_new) (dv gdk_window_lookup #f) (export gdk_window_lookup) (dv gdk_window_set_type_hint #f) (export gdk_window_set_type_hint) (dv gdk_window_set_modal_hint #f) (export gdk_window_set_modal_hint) (dv gdk_window_set_geometry_hints #f) (export gdk_window_set_geometry_hints) (dv gdk_set_sm_client_id #f) (export gdk_set_sm_client_id) (dv gdk_window_begin_paint_rect #f) (export gdk_window_begin_paint_rect) (dv gdk_window_begin_paint_region #f) (export gdk_window_begin_paint_region) (dv gdk_window_end_paint #f) (export gdk_window_end_paint) (dv gdk_window_set_title #f) (export gdk_window_set_title) (dv gdk_window_set_role #f) (export gdk_window_set_role) (dv gdk_window_set_transient_for #f) (export gdk_window_set_transient_for) (dv gdk_window_set_background #f) (export gdk_window_set_background) (dv gdk_window_set_back_pixmap #f) (export gdk_window_set_back_pixmap) (dv gdk_window_set_cursor #f) (export gdk_window_set_cursor) (dv gdk_window_get_user_data #f) (export gdk_window_get_user_data) (dv gdk_window_get_geometry #f) (export gdk_window_get_geometry) (dv gdk_window_get_position #f) (export gdk_window_get_position) (dv gdk_window_get_origin #f) (export gdk_window_get_origin) (dv gdk_window_get_root_origin #f) (export gdk_window_get_root_origin) (dv gdk_window_get_frame_extents #f) (export gdk_window_get_frame_extents) (dv gdk_window_get_pointer #f) (export gdk_window_get_pointer) (dv gdk_window_get_parent #f) (export gdk_window_get_parent) (dv gdk_window_get_toplevel #f) (export gdk_window_get_toplevel) (dv gdk_window_get_children #f) (export gdk_window_get_children) (dv gdk_window_peek_children #f) (export gdk_window_peek_children) (dv gdk_window_get_events #f) (export gdk_window_get_events) (dv gdk_window_set_events #f) (export gdk_window_set_events) (dv gdk_window_set_icon_list #f) (export gdk_window_set_icon_list) (dv gdk_window_set_icon #f) (export gdk_window_set_icon) (dv gdk_window_set_icon_name #f) (export gdk_window_set_icon_name) (dv gdk_window_set_group #f) (export gdk_window_set_group) (dv gdk_window_set_decorations #f) (export gdk_window_set_decorations) (dv gdk_window_get_decorations #f) (export gdk_window_get_decorations) (dv gdk_window_set_functions #f) (export gdk_window_set_functions) (dv gdk_window_get_toplevels #f) (export gdk_window_get_toplevels) (dv gdk_window_iconify #f) (export gdk_window_iconify) (dv gdk_window_deiconify #f) (export gdk_window_deiconify) (dv gdk_window_stick #f) (export gdk_window_stick) (dv gdk_window_unstick #f) (export gdk_window_unstick) (dv gdk_window_maximize #f) (export gdk_window_maximize) (dv gdk_window_unmaximize #f) (export gdk_window_unmaximize) (dv gdk_window_register_dnd #f) (export gdk_window_register_dnd) (dv gdk_window_begin_resize_drag #f) (export gdk_window_begin_resize_drag) (dv gdk_window_begin_move_drag #f) (export gdk_window_begin_move_drag) (dv gdk_window_invalidate_rect #f) (export gdk_window_invalidate_rect) (dv gdk_window_invalidate_region #f) (export gdk_window_invalidate_region) (dv gdk_window_invalidate_maybe_recurse #f) (export gdk_window_invalidate_maybe_recurse) ) (seq (dv gdk_window_get_update_area #f) (export gdk_window_get_update_area) (dv gdk_window_freeze_updates #f) (export gdk_window_freeze_updates) (dv gdk_window_thaw_updates #f) (export gdk_window_thaw_updates) (dv gdk_window_process_all_updates #f) (export gdk_window_process_all_updates) (dv gdk_window_process_updates #f) (export gdk_window_process_updates) (dv gdk_window_set_debug_updates #f) (export gdk_window_set_debug_updates) (dv gdk_window_constrain_size #f) (export gdk_window_constrain_size) (dv gdk_window_get_internal_paint_info #f) (export gdk_window_get_internal_paint_info) (dv gdk_set_pointer_hooks #f) (export gdk_set_pointer_hooks) (dv gdk_get_default_root_window #f) (export gdk_get_default_root_window) (dv gtk_accel_label_new #f) (export gtk_accel_label_new) (dv gtk_accel_label_get_accel_widget #f) (export gtk_accel_label_get_accel_widget) (dv gtk_accel_label_get_accel_width #f) (export gtk_accel_label_get_accel_width) (dv gtk_accel_label_set_accel_widget #f) (export gtk_accel_label_set_accel_widget) (dv gtk_accel_label_set_accel_closure #f) (export gtk_accel_label_set_accel_closure) (dv gtk_accel_label_refetch #f) (export gtk_accel_label_refetch) (dv gtk_adjustment_new #f) (export gtk_adjustment_new) (dv gtk_adjustment_changed #f) (export gtk_adjustment_changed) (dv gtk_adjustment_value_changed #f) (export gtk_adjustment_value_changed) (dv gtk_adjustment_clamp_page #f) (export gtk_adjustment_clamp_page) (dv gtk_adjustment_get_value #f) (export gtk_adjustment_get_value) (dv gtk_adjustment_set_value #f) (export gtk_adjustment_set_value) (dv gtk_alignment_new #f) (export gtk_alignment_new) (dv gtk_alignment_set #f) (export gtk_alignment_set) (dv gtk_arrow_new #f) (export gtk_arrow_new) (dv gtk_arrow_set #f) (export gtk_arrow_set) (dv gtk_aspect_frame_new #f) (export gtk_aspect_frame_new) (dv gtk_aspect_frame_set #f) (export gtk_aspect_frame_set) (dv gtk_bin_get_child #f) (export gtk_bin_get_child) (dv gtk_button_box_get_layout #f) (export gtk_button_box_get_layout) (dv gtk_button_box_set_layout #f) (export gtk_button_box_set_layout) (dv gtk_button_box_set_child_secondary #f) (export gtk_button_box_set_child_secondary) (dv gtk_box_pack_start #f) (export gtk_box_pack_start) (dv gtk_box_pack_end #f) (export gtk_box_pack_end) (dv gtk_box_pack_start_defaults #f) (export gtk_box_pack_start_defaults) (dv gtk_box_pack_end_defaults #f) (export gtk_box_pack_end_defaults) (dv gtk_box_set_homogeneous #f) (export gtk_box_set_homogeneous) (dv gtk_box_get_homogeneous #f) (export gtk_box_get_homogeneous) (dv gtk_box_set_spacing #f) (export gtk_box_set_spacing) (dv gtk_box_get_spacing #f) (export gtk_box_get_spacing) (dv gtk_box_reorder_child #f) (export gtk_box_reorder_child) (dv gtk_box_query_child_packing #f) (export gtk_box_query_child_packing) (dv gtk_box_set_child_packing #f) (export gtk_box_set_child_packing) (dv gtk_button_get_type #f) (export gtk_button_get_type) (dv gtk_button_new #f) (export gtk_button_new) (dv gtk_button_new_with_label #f) (export gtk_button_new_with_label) (dv gtk_button_new_from_stock #f) (export gtk_button_new_from_stock) (dv gtk_button_new_with_mnemonic #f) (export gtk_button_new_with_mnemonic) (dv gtk_button_pressed #f) (export gtk_button_pressed) (dv gtk_button_released #f) (export gtk_button_released) ) (seq (dv gtk_button_clicked #f) (export gtk_button_clicked) (dv gtk_button_enter #f) (export gtk_button_enter) (dv gtk_button_leave #f) (export gtk_button_leave) (dv gtk_button_set_relief #f) (export gtk_button_set_relief) (dv gtk_button_get_relief #f) (export gtk_button_get_relief) (dv gtk_button_set_label #f) (export gtk_button_set_label) (dv gtk_button_get_label #f) (export gtk_button_get_label) (dv gtk_button_set_use_underline #f) (export gtk_button_set_use_underline) (dv gtk_button_get_use_underline #f) (export gtk_button_get_use_underline) (dv gtk_button_set_use_stock #f) (export gtk_button_set_use_stock) (dv gtk_button_get_use_stock #f) (export gtk_button_get_use_stock) (dv GTK_CALENDAR_SHOW_HEADING #f) (export GTK_CALENDAR_SHOW_HEADING) (dv GTK_CALENDAR_SHOW_DAY_NAMES #f) (export GTK_CALENDAR_SHOW_DAY_NAMES) (dv GTK_CALENDAR_NO_MONTH_CHANGE #f) (export GTK_CALENDAR_NO_MONTH_CHANGE) (dv GTK_CALENDAR_SHOW_WEEK_NUMBERS #f) (export GTK_CALENDAR_SHOW_WEEK_NUMBERS) (dv GTK_CALENDAR_WEEK_START_MONDAY #f) (export GTK_CALENDAR_WEEK_START_MONDAY) (dv gtk_calendar_new #f) (export gtk_calendar_new) (dv gtk_calendar_select_month #f) (export gtk_calendar_select_month) (dv gtk_calendar_select_day #f) (export gtk_calendar_select_day) (dv gtk_calendar_mark_day #f) (export gtk_calendar_mark_day) (dv gtk_calendar_unmark_day #f) (export gtk_calendar_unmark_day) (dv gtk_calendar_clear_marks #f) (export gtk_calendar_clear_marks) (dv gtk_calendar_display_options #f) (export gtk_calendar_display_options) (dv gtk_calendar_get_date #f) (export gtk_calendar_get_date) (dv gtk_calendar_freeze #f) (export gtk_calendar_freeze) (dv gtk_calendar_thaw #f) (export gtk_calendar_thaw) (dv gtk_cell_renderer_text_get_type #f) (export gtk_cell_renderer_text_get_type) (dv gtk_cell_renderer_text_new #f) (export gtk_cell_renderer_text_new) (dv gtk_cell_renderer_text_set_fixed_height_from_font #f) (export gtk_cell_renderer_text_set_fixed_height_from_font) (dv gtk_check_button_new #f) (export gtk_check_button_new) (dv gtk_check_button_new_with_label #f) (export gtk_check_button_new_with_label) (dv gtk_check_button_new_with_mnemonic #f) (export gtk_check_button_new_with_mnemonic) (dv _gtk_check_button_get_props #f) (export _gtk_check_button_get_props) (dv gtk_check_menu_item_new #f) (export gtk_check_menu_item_new) (dv gtk_check_menu_item_new_with_label #f) (export gtk_check_menu_item_new_with_label) (dv gtk_check_menu_item_new_with_mnemonic #f) (export gtk_check_menu_item_new_with_mnemonic) (dv gtk_check_menu_item_set_active #f) (export gtk_check_menu_item_set_active) (dv gtk_check_menu_item_get_active #f) (export gtk_check_menu_item_get_active) (dv gtk_check_menu_item_toggled #f) (export gtk_check_menu_item_toggled) (dv gtk_check_menu_item_set_inconsistent #f) (export gtk_check_menu_item_set_inconsistent) (dv gtk_check_menu_item_get_inconsistent #f) (export gtk_check_menu_item_get_inconsistent) (dv GTK_CLIST_IN_DRAG #f) (export GTK_CLIST_IN_DRAG) (dv GTK_CLIST_ROW_HEIGHT_SET #f) (export GTK_CLIST_ROW_HEIGHT_SET) (dv GTK_CLIST_SHOW_TITLES #f) (export GTK_CLIST_SHOW_TITLES) (dv GTK_CLIST_ADD_MODE #f) (export GTK_CLIST_ADD_MODE) (dv GTK_CLIST_AUTO_SORT #f) (export GTK_CLIST_AUTO_SORT) (dv GTK_CLIST_AUTO_RESIZE_BLOCKED #f) (export GTK_CLIST_AUTO_RESIZE_BLOCKED) (dv GTK_CLIST_REORDERABLE #f) (export GTK_CLIST_REORDERABLE) (dv GTK_CLIST_USE_DRAG_ICONS #f) (export GTK_CLIST_USE_DRAG_ICONS) (dv GTK_CLIST_DRAW_DRAG_LINE #f) (export GTK_CLIST_DRAW_DRAG_LINE) ) (seq (dv GTK_CLIST_DRAW_DRAG_RECT #f) (export GTK_CLIST_DRAW_DRAG_RECT) (dv GTK_CELL_EMPTY #f) (export GTK_CELL_EMPTY) (dv GTK_CELL_TEXT #f) (export GTK_CELL_TEXT) (dv GTK_CELL_PIXMAP #f) (export GTK_CELL_PIXMAP) (dv GTK_CELL_PIXTEXT #f) (export GTK_CELL_PIXTEXT) (dv GTK_CELL_WIDGET #f) (export GTK_CELL_WIDGET) (dv GTK_CLIST_DRAG_NONE #f) (export GTK_CLIST_DRAG_NONE) (dv GTK_CLIST_DRAG_BEFORE #f) (export GTK_CLIST_DRAG_BEFORE) (dv GTK_CLIST_DRAG_INTO #f) (export GTK_CLIST_DRAG_INTO) (dv GTK_CLIST_DRAG_AFTER #f) (export GTK_CLIST_DRAG_AFTER) (dv GTK_BUTTON_IGNORED #f) (export GTK_BUTTON_IGNORED) (dv GTK_BUTTON_SELECTS #f) (export GTK_BUTTON_SELECTS) (dv GTK_BUTTON_DRAGS #f) (export GTK_BUTTON_DRAGS) (dv GTK_BUTTON_EXPANDS #f) (export GTK_BUTTON_EXPANDS) (dv gtk_clist_new #f) (export gtk_clist_new) (dv gtk_clist_new_with_titles #f) (export gtk_clist_new_with_titles) (dv gtk_clist_set_hadjustment #f) (export gtk_clist_set_hadjustment) (dv gtk_clist_set_vadjustment #f) (export gtk_clist_set_vadjustment) (dv gtk_clist_get_hadjustment #f) (export gtk_clist_get_hadjustment) (dv gtk_clist_get_vadjustment #f) (export gtk_clist_get_vadjustment) (dv gtk_clist_set_shadow_type #f) (export gtk_clist_set_shadow_type) (dv gtk_clist_set_selection_mode #f) (export gtk_clist_set_selection_mode) (dv gtk_clist_set_reorderable #f) (export gtk_clist_set_reorderable) (dv gtk_clist_set_use_drag_icons #f) (export gtk_clist_set_use_drag_icons) (dv gtk_clist_set_button_actions #f) (export gtk_clist_set_button_actions) (dv gtk_clist_freeze #f) (export gtk_clist_freeze) (dv gtk_clist_thaw #f) (export gtk_clist_thaw) (dv gtk_clist_column_titles_show #f) (export gtk_clist_column_titles_show) (dv gtk_clist_column_titles_hide #f) (export gtk_clist_column_titles_hide) (dv gtk_clist_column_title_active #f) (export gtk_clist_column_title_active) (dv gtk_clist_column_title_passive #f) (export gtk_clist_column_title_passive) (dv gtk_clist_column_titles_active #f) (export gtk_clist_column_titles_active) (dv gtk_clist_column_titles_passive #f) (export gtk_clist_column_titles_passive) (dv gtk_clist_set_column_title #f) (export gtk_clist_set_column_title) (dv gtk_clist_get_column_title #f) (export gtk_clist_get_column_title) (dv gtk_clist_set_column_widget #f) (export gtk_clist_set_column_widget) (dv gtk_clist_get_column_widget #f) (export gtk_clist_get_column_widget) (dv gtk_clist_set_column_justification #f) (export gtk_clist_set_column_justification) (dv gtk_clist_set_column_visibility #f) (export gtk_clist_set_column_visibility) (dv gtk_clist_set_column_resizeable #f) (export gtk_clist_set_column_resizeable) (dv gtk_clist_set_column_auto_resize #f) (export gtk_clist_set_column_auto_resize) (dv gtk_clist_columns_autosize #f) (export gtk_clist_columns_autosize) (dv gtk_clist_optimal_column_width #f) (export gtk_clist_optimal_column_width) (dv gtk_clist_set_column_width #f) (export gtk_clist_set_column_width) (dv gtk_clist_set_column_min_width #f) (export gtk_clist_set_column_min_width) (dv gtk_clist_set_column_max_width #f) (export gtk_clist_set_column_max_width) (dv gtk_clist_set_row_height #f) (export gtk_clist_set_row_height) (dv gtk_clist_moveto #f) (export gtk_clist_moveto) (dv gtk_clist_row_is_visible #f) (export gtk_clist_row_is_visible) (dv gtk_clist_get_cell_type #f) (export gtk_clist_get_cell_type) ) (seq (dv gtk_clist_set_text #f) (export gtk_clist_set_text) (dv gtk_clist_get_text #f) (export gtk_clist_get_text) (dv gtk_clist_set_pixmap #f) (export gtk_clist_set_pixmap) (dv gtk_clist_get_pixmap #f) (export gtk_clist_get_pixmap) (dv gtk_clist_set_pixtext #f) (export gtk_clist_set_pixtext) (dv gtk_clist_get_pixtext #f) (export gtk_clist_get_pixtext) (dv gtk_clist_set_foreground #f) (export gtk_clist_set_foreground) (dv gtk_clist_set_background #f) (export gtk_clist_set_background) (dv gtk_clist_set_cell_style #f) (export gtk_clist_set_cell_style) (dv gtk_clist_get_cell_style #f) (export gtk_clist_get_cell_style) (dv gtk_clist_set_row_style #f) (export gtk_clist_set_row_style) (dv gtk_clist_get_row_style #f) (export gtk_clist_get_row_style) (dv gtk_clist_set_shift #f) (export gtk_clist_set_shift) (dv gtk_clist_set_selectable #f) (export gtk_clist_set_selectable) (dv gtk_clist_get_selectable #f) (export gtk_clist_get_selectable) (dv gtk_clist_prepend #f) (export gtk_clist_prepend) (dv gtk_clist_append #f) (export gtk_clist_append) (dv gtk_clist_insert #f) (export gtk_clist_insert) (dv gtk_clist_remove #f) (export gtk_clist_remove) (dv gtk_clist_set_row_data #f) (export gtk_clist_set_row_data) (dv gtk_clist_set_row_data_full #f) (export gtk_clist_set_row_data_full) (dv gtk_clist_get_row_data #f) (export gtk_clist_get_row_data) (dv gtk_clist_find_row_from_data #f) (export gtk_clist_find_row_from_data) (dv gtk_clist_select_row #f) (export gtk_clist_select_row) (dv gtk_clist_unselect_row #f) (export gtk_clist_unselect_row) (dv gtk_clist_undo_selection #f) (export gtk_clist_undo_selection) (dv gtk_clist_clear #f) (export gtk_clist_clear) (dv gtk_clist_get_selection_info #f) (export gtk_clist_get_selection_info) (dv gtk_clist_select_all #f) (export gtk_clist_select_all) (dv gtk_clist_unselect_all #f) (export gtk_clist_unselect_all) (dv gtk_clist_swap_rows #f) (export gtk_clist_swap_rows) (dv gtk_clist_row_move #f) (export gtk_clist_row_move) (dv gtk_clist_set_compare_func #f) (export gtk_clist_set_compare_func) (dv gtk_clist_set_sort_column #f) (export gtk_clist_set_sort_column) (dv gtk_clist_set_sort_type #f) (export gtk_clist_set_sort_type) (dv gtk_clist_sort #f) (export gtk_clist_sort) (dv gtk_clist_set_auto_sort #f) (export gtk_clist_set_auto_sort) (dv gtk_color_selection_new #f) (export gtk_color_selection_new) (dv gtk_color_selection_get_has_opacity_control #f) (export gtk_color_selection_get_has_opacity_control) (dv gtk_color_selection_set_has_opacity_control #f) (export gtk_color_selection_set_has_opacity_control) (dv gtk_color_selection_get_has_palette #f) (export gtk_color_selection_get_has_palette) (dv gtk_color_selection_set_has_palette #f) (export gtk_color_selection_set_has_palette) (dv gtk_color_selection_set_current_color #f) (export gtk_color_selection_set_current_color) (dv gtk_color_selection_set_current_alpha #f) (export gtk_color_selection_set_current_alpha) (dv gtk_color_selection_get_current_color #f) (export gtk_color_selection_get_current_color) (dv gtk_color_selection_get_current_alpha #f) (export gtk_color_selection_get_current_alpha) (dv gtk_color_selection_set_previous_color #f) (export gtk_color_selection_set_previous_color) (dv gtk_color_selection_set_previous_alpha #f) (export gtk_color_selection_set_previous_alpha) (dv gtk_color_selection_get_previous_color #f) (export gtk_color_selection_get_previous_color) (dv gtk_color_selection_get_previous_alpha #f) (export gtk_color_selection_get_previous_alpha) ) (seq (dv gtk_color_selection_is_adjusting #f) (export gtk_color_selection_is_adjusting) (dv gtk_color_selection_palette_from_string #f) (export gtk_color_selection_palette_from_string) (dv gtk_color_selection_palette_to_string #f) (export gtk_color_selection_palette_to_string) (dv gtk_color_selection_set_change_palette_hook #f) (export gtk_color_selection_set_change_palette_hook) (dv gtk_color_selection_dialog_new #f) (export gtk_color_selection_dialog_new) (dv gtk_combo_new #f) (export gtk_combo_new) (dv gtk_combo_set_value_in_list #f) (export gtk_combo_set_value_in_list) (dv gtk_combo_set_use_arrows #f) (export gtk_combo_set_use_arrows) (dv gtk_combo_set_use_arrows_always #f) (export gtk_combo_set_use_arrows_always) (dv gtk_combo_set_case_sensitive #f) (export gtk_combo_set_case_sensitive) (dv gtk_combo_set_item_string #f) (export gtk_combo_set_item_string) (dv gtk_combo_set_popdown_strings #f) (export gtk_combo_set_popdown_strings) (dv gtk_combo_disable_activate #f) (export gtk_combo_disable_activate) (dv gtk_container_get_type #f) (export gtk_container_get_type) (dv gtk_container_set_border_width #f) (export gtk_container_set_border_width) (dv gtk_container_get_border_width #f) (export gtk_container_get_border_width) (dv gtk_container_add #f) (export gtk_container_add) (dv gtk_container_remove #f) (export gtk_container_remove) (dv gtk_container_set_resize_mode #f) (export gtk_container_set_resize_mode) (dv gtk_container_get_resize_mode #f) (export gtk_container_get_resize_mode) (dv gtk_container_check_resize #f) (export gtk_container_check_resize) (dv gtk_container_foreach #f) (export gtk_container_foreach) (dv GTK_CTREE_POS_BEFORE #f) (export GTK_CTREE_POS_BEFORE) (dv GTK_CTREE_POS_AS_CHILD #f) (export GTK_CTREE_POS_AS_CHILD) (dv GTK_CTREE_POS_AFTER #f) (export GTK_CTREE_POS_AFTER) (dv GTK_CTREE_LINES_NONE #f) (export GTK_CTREE_LINES_NONE) (dv GTK_CTREE_LINES_SOLID #f) (export GTK_CTREE_LINES_SOLID) (dv GTK_CTREE_LINES_DOTTED #f) (export GTK_CTREE_LINES_DOTTED) (dv GTK_CTREE_LINES_TABBED #f) (export GTK_CTREE_LINES_TABBED) (dv GTK_CTREE_EXPANDER_NONE #f) (export GTK_CTREE_EXPANDER_NONE) (dv GTK_CTREE_EXPANDER_SQUARE #f) (export GTK_CTREE_EXPANDER_SQUARE) (dv GTK_CTREE_EXPANDER_TRIANGLE #f) (export GTK_CTREE_EXPANDER_TRIANGLE) (dv GTK_CTREE_EXPANDER_CIRCULAR #f) (export GTK_CTREE_EXPANDER_CIRCULAR) (dv GTK_CTREE_EXPANSION_EXPAND #f) (export GTK_CTREE_EXPANSION_EXPAND) (dv GTK_CTREE_EXPANSION_EXPAND_RECURSIVE #f) (export GTK_CTREE_EXPANSION_EXPAND_RECURSIVE) (dv GTK_CTREE_EXPANSION_COLLAPSE #f) (export GTK_CTREE_EXPANSION_COLLAPSE) (dv GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE #f) (export GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE) (dv GTK_CTREE_EXPANSION_TOGGLE #f) (export GTK_CTREE_EXPANSION_TOGGLE) (dv GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE #f) (export GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE) (dv gtk_ctree_new_with_titles #f) (export gtk_ctree_new_with_titles) (dv gtk_ctree_new #f) (export gtk_ctree_new) (dv gtk_ctree_insert_node #f) (export gtk_ctree_insert_node) (dv gtk_ctree_remove_node #f) (export gtk_ctree_remove_node) (dv gtk_ctree_insert_gnode #f) (export gtk_ctree_insert_gnode) (dv gtk_ctree_export_to_gnode #f) (export gtk_ctree_export_to_gnode) (dv gtk_ctree_post_recursive #f) (export gtk_ctree_post_recursive) (dv gtk_ctree_post_recursive_to_depth #f) (export gtk_ctree_post_recursive_to_depth) (dv gtk_ctree_pre_recursive #f) (export gtk_ctree_pre_recursive) (dv gtk_ctree_pre_recursive_to_depth #f) (export gtk_ctree_pre_recursive_to_depth) (dv gtk_ctree_is_viewable #f) (export gtk_ctree_is_viewable) ) (seq (dv gtk_ctree_last #f) (export gtk_ctree_last) (dv gtk_ctree_find_node_ptr #f) (export gtk_ctree_find_node_ptr) (dv gtk_ctree_node_nth #f) (export gtk_ctree_node_nth) (dv gtk_ctree_find #f) (export gtk_ctree_find) (dv gtk_ctree_is_ancestor #f) (export gtk_ctree_is_ancestor) (dv gtk_ctree_find_by_row_data #f) (export gtk_ctree_find_by_row_data) (dv gtk_ctree_find_all_by_row_data #f) (export gtk_ctree_find_all_by_row_data) (dv gtk_ctree_find_by_row_data_custom #f) (export gtk_ctree_find_by_row_data_custom) (dv gtk_ctree_find_all_by_row_data_custom #f) (export gtk_ctree_find_all_by_row_data_custom) (dv gtk_ctree_is_hot_spot #f) (export gtk_ctree_is_hot_spot) (dv gtk_ctree_move #f) (export gtk_ctree_move) (dv gtk_ctree_expand #f) (export gtk_ctree_expand) (dv gtk_ctree_expand_recursive #f) (export gtk_ctree_expand_recursive) (dv gtk_ctree_expand_to_depth #f) (export gtk_ctree_expand_to_depth) (dv gtk_ctree_collapse #f) (export gtk_ctree_collapse) (dv gtk_ctree_collapse_recursive #f) (export gtk_ctree_collapse_recursive) (dv gtk_ctree_collapse_to_depth #f) (export gtk_ctree_collapse_to_depth) (dv gtk_ctree_toggle_expansion #f) (export gtk_ctree_toggle_expansion) (dv gtk_ctree_toggle_expansion_recursive #f) (export gtk_ctree_toggle_expansion_recursive) (dv gtk_ctree_select #f) (export gtk_ctree_select) (dv gtk_ctree_select_recursive #f) (export gtk_ctree_select_recursive) (dv gtk_ctree_unselect #f) (export gtk_ctree_unselect) (dv gtk_ctree_unselect_recursive #f) (export gtk_ctree_unselect_recursive) (dv gtk_ctree_real_select_recursive #f) (export gtk_ctree_real_select_recursive) (dv gtk_ctree_node_set_text #f) (export gtk_ctree_node_set_text) (dv gtk_ctree_node_set_pixmap #f) (export gtk_ctree_node_set_pixmap) (dv gtk_ctree_node_set_pixtext #f) (export gtk_ctree_node_set_pixtext) (dv gtk_ctree_set_node_info #f) (export gtk_ctree_set_node_info) (dv gtk_ctree_node_set_shift #f) (export gtk_ctree_node_set_shift) (dv gtk_ctree_node_set_selectable #f) (export gtk_ctree_node_set_selectable) (dv gtk_ctree_node_get_selectable #f) (export gtk_ctree_node_get_selectable) (dv gtk_ctree_node_get_cell_type #f) (export gtk_ctree_node_get_cell_type) (dv gtk_ctree_node_get_text #f) (export gtk_ctree_node_get_text) (dv gtk_ctree_node_get_pixmap #f) (export gtk_ctree_node_get_pixmap) (dv gtk_ctree_node_get_pixtext #f) (export gtk_ctree_node_get_pixtext) (dv gtk_ctree_get_node_info #f) (export gtk_ctree_get_node_info) (dv gtk_ctree_node_set_row_style #f) (export gtk_ctree_node_set_row_style) (dv gtk_ctree_node_get_row_style #f) (export gtk_ctree_node_get_row_style) (dv gtk_ctree_node_set_cell_style #f) (export gtk_ctree_node_set_cell_style) (dv gtk_ctree_node_get_cell_style #f) (export gtk_ctree_node_get_cell_style) (dv gtk_ctree_node_set_foreground #f) (export gtk_ctree_node_set_foreground) (dv gtk_ctree_node_set_background #f) (export gtk_ctree_node_set_background) (dv gtk_ctree_node_set_row_data #f) (export gtk_ctree_node_set_row_data) (dv gtk_ctree_node_set_row_data_full #f) (export gtk_ctree_node_set_row_data_full) (dv gtk_ctree_node_get_row_data #f) (export gtk_ctree_node_get_row_data) (dv gtk_ctree_node_moveto #f) (export gtk_ctree_node_moveto) (dv gtk_ctree_node_is_visible #f) (export gtk_ctree_node_is_visible) (dv gtk_ctree_set_indent #f) (export gtk_ctree_set_indent) (dv gtk_ctree_set_spacing #f) (export gtk_ctree_set_spacing) (dv gtk_ctree_set_show_stub #f) (export gtk_ctree_set_show_stub) ) (seq (dv gtk_ctree_set_line_style #f) (export gtk_ctree_set_line_style) (dv gtk_ctree_set_expander_style #f) (export gtk_ctree_set_expander_style) (dv gtk_ctree_set_drag_compare_func #f) (export gtk_ctree_set_drag_compare_func) (dv gtk_ctree_sort_node #f) (export gtk_ctree_sort_node) (dv gtk_ctree_sort_recursive #f) (export gtk_ctree_sort_recursive) (dv gtk_curve_new #f) (export gtk_curve_new) (dv gtk_curve_reset #f) (export gtk_curve_reset) (dv gtk_curve_set_gamma #f) (export gtk_curve_set_gamma) (dv gtk_curve_set_range #f) (export gtk_curve_set_range) (dv gtk_curve_get_vector #f) (export gtk_curve_get_vector) (dv gtk_curve_set_vector #f) (export gtk_curve_set_vector) (dv gtk_curve_set_curve_type #f) (export gtk_curve_set_curve_type) (dv GTK_DIALOG_MODAL #f) (export GTK_DIALOG_MODAL) (dv GTK_DIALOG_DESTROY_WITH_PARENT #f) (export GTK_DIALOG_DESTROY_WITH_PARENT) (dv GTK_DIALOG_NO_SEPARATOR #f) (export GTK_DIALOG_NO_SEPARATOR) (dv GTK_RESPONSE_NONE #f) (export GTK_RESPONSE_NONE) (dv GTK_RESPONSE_REJECT #f) (export GTK_RESPONSE_REJECT) (dv GTK_RESPONSE_ACCEPT #f) (export GTK_RESPONSE_ACCEPT) (dv GTK_RESPONSE_DELETE_EVENT #f) (export GTK_RESPONSE_DELETE_EVENT) (dv GTK_RESPONSE_OK #f) (export GTK_RESPONSE_OK) (dv GTK_RESPONSE_CANCEL #f) (export GTK_RESPONSE_CANCEL) (dv GTK_RESPONSE_CLOSE #f) (export GTK_RESPONSE_CLOSE) (dv GTK_RESPONSE_YES #f) (export GTK_RESPONSE_YES) (dv GTK_RESPONSE_NO #f) (export GTK_RESPONSE_NO) (dv GTK_RESPONSE_APPLY #f) (export GTK_RESPONSE_APPLY) (dv GTK_RESPONSE_HELP #f) (export GTK_RESPONSE_HELP) (dv gtk_dialog_new #f) (export gtk_dialog_new) (dv gtk_dialog_add_action_widget #f) (export gtk_dialog_add_action_widget) (dv gtk_dialog_add_button #f) (export gtk_dialog_add_button) (dv gtk_dialog_set_response_sensitive #f) (export gtk_dialog_set_response_sensitive) (dv gtk_dialog_set_default_response #f) (export gtk_dialog_set_default_response) (dv gtk_dialog_set_has_separator #f) (export gtk_dialog_set_has_separator) (dv gtk_dialog_get_has_separator #f) (export gtk_dialog_get_has_separator) (dv gtk_dialog_response #f) (export gtk_dialog_response) (dv gtk_dialog_run #f) (export gtk_dialog_run) (dv gtk_drawing_area_new #f) (export gtk_drawing_area_new) (dv gtk_editable_select_region #f) (export gtk_editable_select_region) (dv gtk_editable_get_selection_bounds #f) (export gtk_editable_get_selection_bounds) (dv gtk_editable_insert_text #f) (export gtk_editable_insert_text) (dv gtk_editable_delete_text #f) (export gtk_editable_delete_text) (dv gtk_editable_get_chars #f) (export gtk_editable_get_chars) (dv gtk_editable_cut_clipboard #f) (export gtk_editable_cut_clipboard) (dv gtk_editable_copy_clipboard #f) (export gtk_editable_copy_clipboard) (dv gtk_editable_paste_clipboard #f) (export gtk_editable_paste_clipboard) (dv gtk_editable_delete_selection #f) (export gtk_editable_delete_selection) (dv gtk_editable_set_position #f) (export gtk_editable_set_position) (dv gtk_editable_get_position #f) (export gtk_editable_get_position) (dv gtk_editable_set_editable #f) (export gtk_editable_set_editable) (dv gtk_editable_get_editable #f) (export gtk_editable_get_editable) (dv gtk_entry_new #f) (export gtk_entry_new) ) (seq (dv gtk_entry_set_visibility #f) (export gtk_entry_set_visibility) (dv gtk_entry_get_visibility #f) (export gtk_entry_get_visibility) (dv gtk_entry_set_invisible_char #f) (export gtk_entry_set_invisible_char) (dv gtk_entry_get_invisible_char #f) (export gtk_entry_get_invisible_char) (dv gtk_entry_set_has_frame #f) (export gtk_entry_set_has_frame) (dv gtk_entry_get_has_frame #f) (export gtk_entry_get_has_frame) (dv gtk_entry_set_max_length #f) (export gtk_entry_set_max_length) (dv gtk_entry_get_max_length #f) (export gtk_entry_get_max_length) (dv gtk_entry_set_activates_default #f) (export gtk_entry_set_activates_default) (dv gtk_entry_get_activates_default #f) (export gtk_entry_get_activates_default) (dv gtk_entry_set_width_chars #f) (export gtk_entry_set_width_chars) (dv gtk_entry_get_width_chars #f) (export gtk_entry_get_width_chars) (dv gtk_entry_set_text #f) (export gtk_entry_set_text) (dv gtk_entry_get_text #f) (export gtk_entry_get_text) (dv gtk_entry_get_layout #f) (export gtk_entry_get_layout) (dv gtk_entry_get_layout_offsets #f) (export gtk_entry_get_layout_offsets) (dv gtk_event_box_new #f) (export gtk_event_box_new) (dv gtk_file_selection_new #f) (export gtk_file_selection_new) (dv gtk_file_selection_set_filename #f) (export gtk_file_selection_set_filename) (dv gtk_file_selection_get_filename #f) (export gtk_file_selection_get_filename) (dv gtk_file_selection_complete #f) (export gtk_file_selection_complete) (dv gtk_file_selection_show_fileop_buttons #f) (export gtk_file_selection_show_fileop_buttons) (dv gtk_file_selection_hide_fileop_buttons #f) (export gtk_file_selection_hide_fileop_buttons) (dv gtk_fixed_new #f) (export gtk_fixed_new) (dv gtk_fixed_put #f) (export gtk_fixed_put) (dv gtk_fixed_move #f) (export gtk_fixed_move) (dv gtk_fixed_set_has_window #f) (export gtk_fixed_set_has_window) (dv gtk_fixed_get_has_window #f) (export gtk_fixed_get_has_window) (dv gtk_font_selection_new #f) (export gtk_font_selection_new) (dv gtk_font_selection_get_font_name #f) (export gtk_font_selection_get_font_name) (dv gtk_font_selection_set_font_name #f) (export gtk_font_selection_set_font_name) (dv gtk_font_selection_get_preview_text #f) (export gtk_font_selection_get_preview_text) (dv gtk_font_selection_set_preview_text #f) (export gtk_font_selection_set_preview_text) (dv gtk_font_selection_dialog_get_type #f) (export gtk_font_selection_dialog_get_type) (dv gtk_font_selection_dialog_new #f) (export gtk_font_selection_dialog_new) (dv gtk_font_selection_dialog_get_font_name #f) (export gtk_font_selection_dialog_get_font_name) (dv gtk_font_selection_dialog_set_font_name #f) (export gtk_font_selection_dialog_set_font_name) (dv gtk_font_selection_dialog_get_preview_text #f) (export gtk_font_selection_dialog_get_preview_text) (dv gtk_font_selection_dialog_set_preview_text #f) (export gtk_font_selection_dialog_set_preview_text) (dv gtk_frame_new #f) (export gtk_frame_new) (dv gtk_frame_set_label #f) (export gtk_frame_set_label) (dv gtk_frame_get_label #f) (export gtk_frame_get_label) (dv gtk_frame_set_label_widget #f) (export gtk_frame_set_label_widget) (dv gtk_frame_get_label_widget #f) (export gtk_frame_get_label_widget) (dv gtk_frame_set_label_align #f) (export gtk_frame_set_label_align) (dv gtk_frame_get_label_align #f) (export gtk_frame_get_label_align) (dv gtk_frame_set_shadow_type #f) (export gtk_frame_set_shadow_type) (dv gtk_frame_get_shadow_type #f) (export gtk_frame_get_shadow_type) (dv gtk_gamma_curve_new #f) (export gtk_gamma_curve_new) (dv gtk_handle_box_new #f) (export gtk_handle_box_new) ) (seq (dv gtk_handle_box_set_shadow_type #f) (export gtk_handle_box_set_shadow_type) (dv gtk_handle_box_get_shadow_type #f) (export gtk_handle_box_get_shadow_type) (dv gtk_handle_box_set_handle_position #f) (export gtk_handle_box_set_handle_position) (dv gtk_handle_box_get_handle_position #f) (export gtk_handle_box_get_handle_position) (dv gtk_handle_box_set_snap_edge #f) (export gtk_handle_box_set_snap_edge) (dv gtk_handle_box_get_snap_edge #f) (export gtk_handle_box_get_snap_edge) (dv gtk_hbutton_box_new #f) (export gtk_hbutton_box_new) (dv gtk_hbox_new #f) (export gtk_hbox_new) (dv gtk_hpaned_new #f) (export gtk_hpaned_new) (dv gtk_hruler_new #f) (export gtk_hruler_new) (dv gtk_hscale_new #f) (export gtk_hscale_new) (dv gtk_hscale_new_with_range #f) (export gtk_hscale_new_with_range) (dv gtk_hscrollbar_new #f) (export gtk_hscrollbar_new) (dv GTK_IMAGE_EMPTY #f) (export GTK_IMAGE_EMPTY) (dv GTK_IMAGE_PIXMAP #f) (export GTK_IMAGE_PIXMAP) (dv GTK_IMAGE_IMAGE #f) (export GTK_IMAGE_IMAGE) (dv GTK_IMAGE_PIXBUF #f) (export GTK_IMAGE_PIXBUF) (dv GTK_IMAGE_STOCK #f) (export GTK_IMAGE_STOCK) (dv GTK_IMAGE_ICON_SET #f) (export GTK_IMAGE_ICON_SET) (dv GTK_IMAGE_ANIMATION #f) (export GTK_IMAGE_ANIMATION) (dv gtk_image_new #f) (export gtk_image_new) (dv gtk_image_new_from_pixmap #f) (export gtk_image_new_from_pixmap) (dv gtk_image_new_from_image #f) (export gtk_image_new_from_image) (dv gtk_image_new_from_file #f) (export gtk_image_new_from_file) (dv gtk_image_new_from_pixbuf #f) (export gtk_image_new_from_pixbuf) (dv gtk_image_new_from_stock #f) (export gtk_image_new_from_stock) (dv gtk_image_new_from_icon_set #f) (export gtk_image_new_from_icon_set) (dv gtk_image_new_from_animation #f) (export gtk_image_new_from_animation) (dv gtk_image_set_from_pixmap #f) (export gtk_image_set_from_pixmap) (dv gtk_image_set_from_image #f) (export gtk_image_set_from_image) (dv gtk_image_set_from_file #f) (export gtk_image_set_from_file) (dv gtk_image_set_from_pixbuf #f) (export gtk_image_set_from_pixbuf) (dv gtk_image_set_from_stock #f) (export gtk_image_set_from_stock) (dv gtk_image_set_from_icon_set #f) (export gtk_image_set_from_icon_set) (dv gtk_image_set_from_animation #f) (export gtk_image_set_from_animation) (dv gtk_image_get_storage_type #f) (export gtk_image_get_storage_type) (dv gtk_image_get_pixmap #f) (export gtk_image_get_pixmap) (dv gtk_image_get_image #f) (export gtk_image_get_image) (dv gtk_image_get_pixbuf #f) (export gtk_image_get_pixbuf) (dv gtk_image_get_stock #f) (export gtk_image_get_stock) (dv gtk_image_get_icon_set #f) (export gtk_image_get_icon_set) (dv gtk_image_get_animation #f) (export gtk_image_get_animation) (dv gtk_input_dialog_new #f) (export gtk_input_dialog_new) (dv gtk_item_select #f) (export gtk_item_select) (dv gtk_item_deselect #f) (export gtk_item_deselect) (dv gtk_item_toggle #f) (export gtk_item_toggle) (dv gtk_item_factory_new #f) (export gtk_item_factory_new) (dv gtk_item_factory_construct #f) (export gtk_item_factory_construct) (dv gtk_item_factory_add_foreign #f) (export gtk_item_factory_add_foreign) (dv gtk_item_factory_from_widget #f) (export gtk_item_factory_from_widget) ) (seq (dv gtk_item_factory_path_from_widget #f) (export gtk_item_factory_path_from_widget) (dv gtk_item_factory_get_item #f) (export gtk_item_factory_get_item) (dv gtk_item_factory_get_widget #f) (export gtk_item_factory_get_widget) (dv gtk_item_factory_get_widget_by_action #f) (export gtk_item_factory_get_widget_by_action) (dv gtk_item_factory_get_item_by_action #f) (export gtk_item_factory_get_item_by_action) (dv gtk_item_factory_create_item #f) (export gtk_item_factory_create_item) (dv gtk_item_factory_create_items #f) (export gtk_item_factory_create_items) (dv gtk_item_factory_delete_item #f) (export gtk_item_factory_delete_item) (dv gtk_item_factory_delete_entry #f) (export gtk_item_factory_delete_entry) (dv gtk_item_factory_delete_entries #f) (export gtk_item_factory_delete_entries) (dv gtk_item_factory_popup #f) (export gtk_item_factory_popup) (dv gtk_item_factory_popup_with_data #f) (export gtk_item_factory_popup_with_data) (dv gtk_item_factory_popup_data #f) (export gtk_item_factory_popup_data) (dv gtk_item_factory_popup_data_from_widget #f) (export gtk_item_factory_popup_data_from_widget) (dv gtk_item_factory_set_translate_func #f) (export gtk_item_factory_set_translate_func) (dv gtk_label_new #f) (export gtk_label_new) (dv gtk_label_new_with_mnemonic #f) (export gtk_label_new_with_mnemonic) (dv gtk_label_set_text #f) (export gtk_label_set_text) (dv gtk_label_get_text #f) (export gtk_label_get_text) (dv gtk_label_set_attributes #f) (export gtk_label_set_attributes) (dv gtk_label_get_attributes #f) (export gtk_label_get_attributes) (dv gtk_label_set_label #f) (export gtk_label_set_label) (dv gtk_label_get_label #f) (export gtk_label_get_label) (dv gtk_label_set_markup #f) (export gtk_label_set_markup) (dv gtk_label_set_use_markup #f) (export gtk_label_set_use_markup) (dv gtk_label_get_use_markup #f) (export gtk_label_get_use_markup) (dv gtk_label_set_use_underline #f) (export gtk_label_set_use_underline) (dv gtk_label_get_use_underline #f) (export gtk_label_get_use_underline) (dv gtk_label_set_markup_with_mnemonic #f) (export gtk_label_set_markup_with_mnemonic) (dv gtk_label_get_mnemonic_keyval #f) (export gtk_label_get_mnemonic_keyval) (dv gtk_label_set_mnemonic_widget #f) (export gtk_label_set_mnemonic_widget) (dv gtk_label_get_mnemonic_widget #f) (export gtk_label_get_mnemonic_widget) (dv gtk_label_set_text_with_mnemonic #f) (export gtk_label_set_text_with_mnemonic) (dv gtk_label_set_justify #f) (export gtk_label_set_justify) (dv gtk_label_get_justify #f) (export gtk_label_get_justify) (dv gtk_label_set_pattern #f) (export gtk_label_set_pattern) (dv gtk_label_set_line_wrap #f) (export gtk_label_set_line_wrap) (dv gtk_label_get_line_wrap #f) (export gtk_label_get_line_wrap) (dv gtk_label_set_selectable #f) (export gtk_label_set_selectable) (dv gtk_label_get_selectable #f) (export gtk_label_get_selectable) (dv gtk_label_select_region #f) (export gtk_label_select_region) (dv gtk_label_get_selection_bounds #f) (export gtk_label_get_selection_bounds) (dv gtk_label_get_layout #f) (export gtk_label_get_layout) (dv gtk_label_get_layout_offsets #f) (export gtk_label_get_layout_offsets) (dv gtk_layout_new #f) (export gtk_layout_new) (dv gtk_layout_put #f) (export gtk_layout_put) (dv gtk_layout_move #f) (export gtk_layout_move) (dv gtk_layout_set_size #f) (export gtk_layout_set_size) (dv gtk_layout_get_size #f) (export gtk_layout_get_size) (dv gtk_layout_get_hadjustment #f) (export gtk_layout_get_hadjustment) ) (seq (dv gtk_layout_get_vadjustment #f) (export gtk_layout_get_vadjustment) (dv gtk_layout_set_hadjustment #f) (export gtk_layout_set_hadjustment) (dv gtk_layout_set_vadjustment #f) (export gtk_layout_set_vadjustment) (dv gtk_list_new #f) (export gtk_list_new) (dv gtk_list_insert_items #f) (export gtk_list_insert_items) (dv gtk_list_append_items #f) (export gtk_list_append_items) (dv gtk_list_prepend_items #f) (export gtk_list_prepend_items) (dv gtk_list_remove_items #f) (export gtk_list_remove_items) (dv gtk_list_remove_items_no_unref #f) (export gtk_list_remove_items_no_unref) (dv gtk_list_clear_items #f) (export gtk_list_clear_items) (dv gtk_list_select_item #f) (export gtk_list_select_item) (dv gtk_list_unselect_item #f) (export gtk_list_unselect_item) (dv gtk_list_select_child #f) (export gtk_list_select_child) (dv gtk_list_unselect_child #f) (export gtk_list_unselect_child) (dv gtk_list_child_position #f) (export gtk_list_child_position) (dv gtk_list_set_selection_mode #f) (export gtk_list_set_selection_mode) (dv gtk_list_extend_selection #f) (export gtk_list_extend_selection) (dv gtk_list_start_selection #f) (export gtk_list_start_selection) (dv gtk_list_end_selection #f) (export gtk_list_end_selection) (dv gtk_list_select_all #f) (export gtk_list_select_all) (dv gtk_list_unselect_all #f) (export gtk_list_unselect_all) (dv gtk_list_scroll_horizontal #f) (export gtk_list_scroll_horizontal) (dv gtk_list_scroll_vertical #f) (export gtk_list_scroll_vertical) (dv gtk_list_toggle_add_mode #f) (export gtk_list_toggle_add_mode) (dv gtk_list_toggle_focus_row #f) (export gtk_list_toggle_focus_row) (dv gtk_list_toggle_row #f) (export gtk_list_toggle_row) (dv gtk_list_undo_selection #f) (export gtk_list_undo_selection) (dv gtk_list_end_drag_selection #f) (export gtk_list_end_drag_selection) (dv gtk_list_item_new #f) (export gtk_list_item_new) (dv gtk_list_item_new_with_label #f) (export gtk_list_item_new_with_label) (dv gtk_list_item_select #f) (export gtk_list_item_select) (dv gtk_list_item_deselect #f) (export gtk_list_item_deselect) (dv gtk_init #f) (export gtk_init) (dv gtk_init_easy #f) (export gtk_init_easy) (dv gtk_events_pending #f) (export gtk_events_pending) (dv gtk_main #f) (export gtk_main) (dv gtk_main_level #f) (export gtk_main_level) (dv gtk_main_quit #f) (export gtk_main_quit) (dv gtk_main_iteration #f) (export gtk_main_iteration) (dv gtk_main_iteration_do #f) (export gtk_main_iteration_do) (dv gtk_grab_add #f) (export gtk_grab_add) (dv gtk_grab_get_current #f) (export gtk_grab_get_current) (dv gtk_grab_remove #f) (export gtk_grab_remove) (dv gtk_init_add #f) (export gtk_init_add) (dv gtk_quit_add_destroy #f) (export gtk_quit_add_destroy) (dv gtk_quit_add #f) (export gtk_quit_add) (dv gtk_quit_add_full #f) (export gtk_quit_add_full) (dv gtk_quit_remove #f) (export gtk_quit_remove) (dv gtk_quit_remove_by_data #f) (export gtk_quit_remove_by_data) (dv gtk_timeout_add #f) (export gtk_timeout_add) ) (seq (dv gtk_timeout_add_full #f) (export gtk_timeout_add_full) (dv gtk_timeout_remove #f) (export gtk_timeout_remove) (dv gtk_idle_add #f) (export gtk_idle_add) (dv gtk_idle_add_priority #f) (export gtk_idle_add_priority) (dv gtk_idle_add_full #f) (export gtk_idle_add_full) (dv gtk_idle_remove #f) (export gtk_idle_remove) (dv gtk_idle_remove_by_data #f) (export gtk_idle_remove_by_data) (dv gtk_input_add_full #f) (export gtk_input_add_full) (dv gtk_input_remove #f) (export gtk_input_remove) (dv gtk_get_current_event #f) (export gtk_get_current_event) (dv gtk_get_current_event_time #f) (export gtk_get_current_event_time) (dv gtk_get_current_event_state #f) (export gtk_get_current_event_state) (dv gtk_get_event_widget #f) (export gtk_get_event_widget) (dv gtk_menu_new #f) (export gtk_menu_new) (dv gtk_menu_popup #f) (export gtk_menu_popup) (dv gtk_menu_reposition #f) (export gtk_menu_reposition) (dv gtk_menu_popdown #f) (export gtk_menu_popdown) (dv gtk_menu_get_active #f) (export gtk_menu_get_active) (dv gtk_menu_set_active #f) (export gtk_menu_set_active) (dv gtk_menu_set_accel_group #f) (export gtk_menu_set_accel_group) (dv gtk_menu_get_accel_group #f) (export gtk_menu_get_accel_group) (dv gtk_menu_set_accel_path #f) (export gtk_menu_set_accel_path) (dv gtk_menu_attach_to_widget #f) (export gtk_menu_attach_to_widget) (dv gtk_menu_detach #f) (export gtk_menu_detach) (dv gtk_menu_get_attach_widget #f) (export gtk_menu_get_attach_widget) (dv gtk_menu_set_tearoff_state #f) (export gtk_menu_set_tearoff_state) (dv gtk_menu_get_tearoff_state #f) (export gtk_menu_get_tearoff_state) (dv gtk_menu_set_title #f) (export gtk_menu_set_title) (dv gtk_menu_get_title #f) (export gtk_menu_get_title) (dv gtk_menu_reorder_child #f) (export gtk_menu_reorder_child) (dv gtk_menu_bar_new #f) (export gtk_menu_bar_new) (dv gtk_menu_item_new #f) (export gtk_menu_item_new) (dv gtk_menu_item_new_with_label #f) (export gtk_menu_item_new_with_label) (dv gtk_menu_item_new_with_mnemonic #f) (export gtk_menu_item_new_with_mnemonic) (dv gtk_menu_item_set_submenu #f) (export gtk_menu_item_set_submenu) (dv gtk_menu_item_get_submenu #f) (export gtk_menu_item_get_submenu) (dv gtk_menu_item_remove_submenu #f) (export gtk_menu_item_remove_submenu) (dv _gtk_menu_item_set_placement #f) (export _gtk_menu_item_set_placement) (dv gtk_menu_item_select #f) (export gtk_menu_item_select) (dv gtk_menu_item_deselect #f) (export gtk_menu_item_deselect) (dv gtk_menu_item_activate #f) (export gtk_menu_item_activate) (dv gtk_menu_item_toggle_size_request #f) (export gtk_menu_item_toggle_size_request) (dv gtk_menu_item_toggle_size_allocate #f) (export gtk_menu_item_toggle_size_allocate) (dv gtk_menu_item_set_right_justified #f) (export gtk_menu_item_set_right_justified) (dv gtk_menu_item_get_right_justified #f) (export gtk_menu_item_get_right_justified) (dv gtk_menu_item_set_accel_path #f) (export gtk_menu_item_set_accel_path) (dv gtk_menu_shell_append #f) (export gtk_menu_shell_append) (dv gtk_menu_shell_prepend #f) (export gtk_menu_shell_prepend) (dv gtk_menu_shell_insert #f) (export gtk_menu_shell_insert) (dv gtk_menu_shell_deactivate #f) (export gtk_menu_shell_deactivate) ) (seq (dv gtk_menu_shell_select_item #f) (export gtk_menu_shell_select_item) (dv gtk_menu_shell_deselect #f) (export gtk_menu_shell_deselect) (dv gtk_menu_shell_activate_item #f) (export gtk_menu_shell_activate_item) (dv gtk_misc_get_type #f) (export gtk_misc_get_type) (dv gtk_misc_set_alignment #f) (export gtk_misc_set_alignment) (dv gtk_misc_get_alignment #f) (export gtk_misc_get_alignment) (dv gtk_misc_set_padding #f) (export gtk_misc_set_padding) (dv gtk_misc_get_padding #f) (export gtk_misc_get_padding) (dv gtk_notebook_new #f) (export gtk_notebook_new) (dv gtk_notebook_append_page #f) (export gtk_notebook_append_page) (dv gtk_notebook_append_page_menu #f) (export gtk_notebook_append_page_menu) (dv gtk_notebook_prepend_page #f) (export gtk_notebook_prepend_page) (dv gtk_notebook_prepend_page_menu #f) (export gtk_notebook_prepend_page_menu) (dv gtk_notebook_insert_page #f) (export gtk_notebook_insert_page) (dv gtk_notebook_insert_page_menu #f) (export gtk_notebook_insert_page_menu) (dv gtk_notebook_remove_page #f) (export gtk_notebook_remove_page) (dv gtk_notebook_get_current_page #f) (export gtk_notebook_get_current_page) (dv gtk_notebook_get_nth_page #f) (export gtk_notebook_get_nth_page) (dv gtk_notebook_page_num #f) (export gtk_notebook_page_num) (dv gtk_notebook_set_current_page #f) (export gtk_notebook_set_current_page) (dv gtk_notebook_next_page #f) (export gtk_notebook_next_page) (dv gtk_notebook_prev_page #f) (export gtk_notebook_prev_page) (dv gtk_notebook_set_show_border #f) (export gtk_notebook_set_show_border) (dv gtk_notebook_get_show_border #f) (export gtk_notebook_get_show_border) (dv gtk_notebook_set_show_tabs #f) (export gtk_notebook_set_show_tabs) (dv gtk_notebook_get_show_tabs #f) (export gtk_notebook_get_show_tabs) (dv gtk_notebook_set_tab_pos #f) (export gtk_notebook_set_tab_pos) (dv gtk_notebook_get_tab_pos #f) (export gtk_notebook_get_tab_pos) (dv gtk_notebook_set_homogeneous_tabs #f) (export gtk_notebook_set_homogeneous_tabs) (dv gtk_notebook_set_tab_border #f) (export gtk_notebook_set_tab_border) (dv gtk_notebook_set_tab_hborder #f) (export gtk_notebook_set_tab_hborder) (dv gtk_notebook_set_tab_vborder #f) (export gtk_notebook_set_tab_vborder) (dv gtk_notebook_set_scrollable #f) (export gtk_notebook_set_scrollable) (dv gtk_notebook_get_scrollable #f) (export gtk_notebook_get_scrollable) (dv gtk_notebook_popup_enable #f) (export gtk_notebook_popup_enable) (dv gtk_notebook_popup_disable #f) (export gtk_notebook_popup_disable) (dv gtk_notebook_get_tab_label #f) (export gtk_notebook_get_tab_label) (dv gtk_notebook_set_tab_label #f) (export gtk_notebook_set_tab_label) (dv gtk_notebook_set_tab_label_text #f) (export gtk_notebook_set_tab_label_text) (dv gtk_notebook_get_tab_label_text #f) (export gtk_notebook_get_tab_label_text) (dv gtk_notebook_get_menu_label #f) (export gtk_notebook_get_menu_label) (dv gtk_notebook_set_menu_label #f) (export gtk_notebook_set_menu_label) (dv gtk_notebook_set_menu_label_text #f) (export gtk_notebook_set_menu_label_text) (dv gtk_notebook_get_menu_label_text #f) (export gtk_notebook_get_menu_label_text) (dv gtk_notebook_query_tab_label_packing #f) (export gtk_notebook_query_tab_label_packing) (dv gtk_notebook_set_tab_label_packing #f) (export gtk_notebook_set_tab_label_packing) (dv gtk_notebook_reorder_child #f) (export gtk_notebook_reorder_child) (dv gtk_option_menu_new #f) (export gtk_option_menu_new) (dv gtk_option_menu_get_menu #f) (export gtk_option_menu_get_menu) (dv gtk_option_menu_set_menu #f) (export gtk_option_menu_set_menu) ) (seq (dv gtk_option_menu_remove_menu #f) (export gtk_option_menu_remove_menu) (dv gtk_option_menu_get_history #f) (export gtk_option_menu_get_history) (dv gtk_option_menu_set_history #f) (export gtk_option_menu_set_history) (dv gtk_paned_add1 #f) (export gtk_paned_add1) (dv gtk_paned_add2 #f) (export gtk_paned_add2) (dv gtk_paned_pack1 #f) (export gtk_paned_pack1) (dv gtk_paned_pack2 #f) (export gtk_paned_pack2) (dv gtk_paned_get_position #f) (export gtk_paned_get_position) (dv gtk_paned_set_position #f) (export gtk_paned_set_position) (dv gtk_pixmap_new #f) (export gtk_pixmap_new) (dv gtk_pixmap_set #f) (export gtk_pixmap_set) (dv gtk_pixmap_get #f) (export gtk_pixmap_get) (dv gtk_pixmap_set_build_insensitive #f) (export gtk_pixmap_set_build_insensitive) (dv gtk_plug_construct #f) (export gtk_plug_construct) (dv gtk_plug_new #f) (export gtk_plug_new) (dv gtk_plug_get_id #f) (export gtk_plug_get_id) (dv gtk_preview_uninit #f) (export gtk_preview_uninit) (dv gtk_preview_new #f) (export gtk_preview_new) (dv gtk_preview_size #f) (export gtk_preview_size) (dv gtk_preview_put #f) (export gtk_preview_put) (dv gtk_preview_draw_row #f) (export gtk_preview_draw_row) (dv gtk_preview_set_expand #f) (export gtk_preview_set_expand) (dv gtk_preview_set_gamma #f) (export gtk_preview_set_gamma) (dv gtk_preview_set_color_cube #f) (export gtk_preview_set_color_cube) (dv gtk_preview_set_install_cmap #f) (export gtk_preview_set_install_cmap) (dv gtk_preview_set_reserved #f) (export gtk_preview_set_reserved) (dv gtk_preview_set_dither #f) (export gtk_preview_set_dither) (dv gtk_progress_set_show_text #f) (export gtk_progress_set_show_text) (dv gtk_progress_set_text_alignment #f) (export gtk_progress_set_text_alignment) (dv gtk_progress_set_format_string #f) (export gtk_progress_set_format_string) (dv gtk_progress_set_adjustment #f) (export gtk_progress_set_adjustment) (dv gtk_progress_configure #f) (export gtk_progress_configure) (dv gtk_progress_set_percentage #f) (export gtk_progress_set_percentage) (dv gtk_progress_set_value #f) (export gtk_progress_set_value) (dv gtk_progress_get_value #f) (export gtk_progress_get_value) (dv gtk_progress_set_activity_mode #f) (export gtk_progress_set_activity_mode) (dv gtk_progress_get_current_text #f) (export gtk_progress_get_current_text) (dv gtk_progress_get_text_from_value #f) (export gtk_progress_get_text_from_value) (dv gtk_progress_get_current_percentage #f) (export gtk_progress_get_current_percentage) (dv gtk_progress_get_percentage_from_value #f) (export gtk_progress_get_percentage_from_value) (dv GTK_PROGRESS_CONTINUOUS #f) (export GTK_PROGRESS_CONTINUOUS) (dv GTK_PROGRESS_DISCRETE #f) (export GTK_PROGRESS_DISCRETE) (dv GTK_PROGRESS_LEFT_TO_RIGHT #f) (export GTK_PROGRESS_LEFT_TO_RIGHT) (dv GTK_PROGRESS_RIGHT_TO_LEFT #f) (export GTK_PROGRESS_RIGHT_TO_LEFT) (dv GTK_PROGRESS_BOTTOM_TO_TOP #f) (export GTK_PROGRESS_BOTTOM_TO_TOP) (dv GTK_PROGRESS_TOP_TO_BOTTOM #f) (export GTK_PROGRESS_TOP_TO_BOTTOM) (dv gtk_progress_bar_new #f) (export gtk_progress_bar_new) (dv gtk_progress_bar_pulse #f) (export gtk_progress_bar_pulse) (dv gtk_progress_bar_set_text #f) (export gtk_progress_bar_set_text) (dv gtk_progress_bar_set_fraction #f) (export gtk_progress_bar_set_fraction) ) (seq (dv gtk_progress_bar_set_pulse_step #f) (export gtk_progress_bar_set_pulse_step) (dv gtk_progress_bar_set_orientation #f) (export gtk_progress_bar_set_orientation) (dv gtk_progress_bar_get_text #f) (export gtk_progress_bar_get_text) (dv gtk_progress_bar_get_fraction #f) (export gtk_progress_bar_get_fraction) (dv gtk_progress_bar_get_pulse_step #f) (export gtk_progress_bar_get_pulse_step) (dv gtk_progress_bar_get_orientation #f) (export gtk_progress_bar_get_orientation) (dv gtk_radio_button_new #f) (export gtk_radio_button_new) (dv gtk_radio_button_new_from_widget #f) (export gtk_radio_button_new_from_widget) (dv gtk_radio_button_new_with_label #f) (export gtk_radio_button_new_with_label) (dv gtk_radio_button_new_with_label_from_widget #f) (export gtk_radio_button_new_with_label_from_widget) (dv gtk_radio_button_new_with_mnemonic #f) (export gtk_radio_button_new_with_mnemonic) (dv gtk_radio_button_new_with_mnemonic_from_widget #f) (export gtk_radio_button_new_with_mnemonic_from_widget) (dv gtk_radio_button_get_group #f) (export gtk_radio_button_get_group) (dv gtk_radio_button_set_group #f) (export gtk_radio_button_set_group) (dv gtk_radio_menu_item_new #f) (export gtk_radio_menu_item_new) (dv gtk_radio_menu_item_new_with_label #f) (export gtk_radio_menu_item_new_with_label) (dv gtk_radio_menu_item_new_with_mnemonic #f) (export gtk_radio_menu_item_new_with_mnemonic) (dv gtk_radio_menu_item_get_group #f) (export gtk_radio_menu_item_get_group) (dv gtk_radio_menu_item_set_group #f) (export gtk_radio_menu_item_set_group) (dv gtk_range_set_update_policy #f) (export gtk_range_set_update_policy) (dv gtk_range_get_update_policy #f) (export gtk_range_get_update_policy) (dv gtk_range_set_adjustment #f) (export gtk_range_set_adjustment) (dv gtk_range_get_adjustment #f) (export gtk_range_get_adjustment) (dv gtk_range_set_inverted #f) (export gtk_range_set_inverted) (dv gtk_range_get_inverted #f) (export gtk_range_get_inverted) (dv gtk_range_set_increments #f) (export gtk_range_set_increments) (dv gtk_range_set_range #f) (export gtk_range_set_range) (dv gtk_range_set_value #f) (export gtk_range_set_value) (dv gtk_range_get_value #f) (export gtk_range_get_value) (dv gtk_ruler_set_metric #f) (export gtk_ruler_set_metric) (dv gtk_ruler_set_range #f) (export gtk_ruler_set_range) (dv gtk_ruler_draw_ticks #f) (export gtk_ruler_draw_ticks) (dv gtk_ruler_draw_pos #f) (export gtk_ruler_draw_pos) (dv gtk_ruler_get_metric #f) (export gtk_ruler_get_metric) (dv gtk_ruler_get_range #f) (export gtk_ruler_get_range) (dv gtk_scale_set_digits #f) (export gtk_scale_set_digits) (dv gtk_scale_get_digits #f) (export gtk_scale_get_digits) (dv gtk_scale_set_draw_value #f) (export gtk_scale_set_draw_value) (dv gtk_scale_get_draw_value #f) (export gtk_scale_get_draw_value) (dv gtk_scale_set_value_pos #f) (export gtk_scale_set_value_pos) (dv gtk_scale_get_value_pos #f) (export gtk_scale_get_value_pos) (dv _gtk_scale_get_value_size #f) (export _gtk_scale_get_value_size) (dv _gtk_scale_format_value #f) (export _gtk_scale_format_value) (dv gtk_scrolled_window_new #f) (export gtk_scrolled_window_new) (dv gtk_scrolled_window_set_hadjustment #f) (export gtk_scrolled_window_set_hadjustment) (dv gtk_scrolled_window_set_vadjustment #f) (export gtk_scrolled_window_set_vadjustment) (dv gtk_scrolled_window_get_hadjustment #f) (export gtk_scrolled_window_get_hadjustment) (dv gtk_scrolled_window_get_vadjustment #f) (export gtk_scrolled_window_get_vadjustment) (dv gtk_scrolled_window_set_policy #f) (export gtk_scrolled_window_set_policy) (dv gtk_scrolled_window_get_policy #f) (export gtk_scrolled_window_get_policy) ) (seq (dv gtk_scrolled_window_set_placement #f) (export gtk_scrolled_window_set_placement) (dv gtk_scrolled_window_get_placement #f) (export gtk_scrolled_window_get_placement) (dv gtk_scrolled_window_set_shadow_type #f) (export gtk_scrolled_window_set_shadow_type) (dv gtk_scrolled_window_get_shadow_type #f) (export gtk_scrolled_window_get_shadow_type) (dv gtk_scrolled_window_add_with_viewport #f) (export gtk_scrolled_window_add_with_viewport) (dv gtk_socket_new #f) (export gtk_socket_new) (dv gtk_socket_add_id #f) (export gtk_socket_add_id) (dv gtk_socket_get_id #f) (export gtk_socket_get_id) (dv GTK_UPDATE_ALWAYS #f) (export GTK_UPDATE_ALWAYS) (dv GTK_UPDATE_IF_VALID #f) (export GTK_UPDATE_IF_VALID) (dv GTK_SPIN_STEP_FORWARD #f) (export GTK_SPIN_STEP_FORWARD) (dv GTK_SPIN_STEP_BACKWARD #f) (export GTK_SPIN_STEP_BACKWARD) (dv GTK_SPIN_PAGE_FORWARD #f) (export GTK_SPIN_PAGE_FORWARD) (dv GTK_SPIN_PAGE_BACKWARD #f) (export GTK_SPIN_PAGE_BACKWARD) (dv GTK_SPIN_HOME #f) (export GTK_SPIN_HOME) (dv GTK_SPIN_END #f) (export GTK_SPIN_END) (dv GTK_SPIN_USER_DEFINED #f) (export GTK_SPIN_USER_DEFINED) (dv gtk_spin_button_configure #f) (export gtk_spin_button_configure) (dv gtk_spin_button_new #f) (export gtk_spin_button_new) (dv gtk_spin_button_new_with_range #f) (export gtk_spin_button_new_with_range) (dv gtk_spin_button_set_adjustment #f) (export gtk_spin_button_set_adjustment) (dv gtk_spin_button_get_adjustment #f) (export gtk_spin_button_get_adjustment) (dv gtk_spin_button_set_digits #f) (export gtk_spin_button_set_digits) (dv gtk_spin_button_get_digits #f) (export gtk_spin_button_get_digits) (dv gtk_spin_button_set_increments #f) (export gtk_spin_button_set_increments) (dv gtk_spin_button_get_increments #f) (export gtk_spin_button_get_increments) (dv gtk_spin_button_set_range #f) (export gtk_spin_button_set_range) (dv gtk_spin_button_get_range #f) (export gtk_spin_button_get_range) (dv gtk_spin_button_get_value #f) (export gtk_spin_button_get_value) (dv gtk_spin_button_get_value_as_int #f) (export gtk_spin_button_get_value_as_int) (dv gtk_spin_button_set_value #f) (export gtk_spin_button_set_value) (dv gtk_spin_button_set_update_policy #f) (export gtk_spin_button_set_update_policy) (dv gtk_spin_button_get_update_policy #f) (export gtk_spin_button_get_update_policy) (dv gtk_spin_button_set_numeric #f) (export gtk_spin_button_set_numeric) (dv gtk_spin_button_get_numeric #f) (export gtk_spin_button_get_numeric) (dv gtk_spin_button_spin #f) (export gtk_spin_button_spin) (dv gtk_spin_button_set_wrap #f) (export gtk_spin_button_set_wrap) (dv gtk_spin_button_get_wrap #f) (export gtk_spin_button_get_wrap) (dv gtk_spin_button_set_snap_to_ticks #f) (export gtk_spin_button_set_snap_to_ticks) (dv gtk_spin_button_get_snap_to_ticks #f) (export gtk_spin_button_get_snap_to_ticks) (dv gtk_spin_button_update #f) (export gtk_spin_button_update) (dv gtk_statusbar_new #f) (export gtk_statusbar_new) (dv gtk_statusbar_get_context_id #f) (export gtk_statusbar_get_context_id) (dv gtk_statusbar_push #f) (export gtk_statusbar_push) (dv gtk_statusbar_pop #f) (export gtk_statusbar_pop) (dv gtk_statusbar_remove #f) (export gtk_statusbar_remove) (dv gtk_statusbar_set_has_resize_grip #f) (export gtk_statusbar_set_has_resize_grip) (dv gtk_statusbar_get_has_resize_grip #f) (export gtk_statusbar_get_has_resize_grip) (dv _GtkStyle_parent_instance_set #f) (export _GtkStyle_parent_instance_set) (dv _GtkStyle_parent_instance_get #f) (export _GtkStyle_parent_instance_get) ) (seq (dv _GtkStyle_fg_get #f) (export _GtkStyle_fg_get) (dv _GtkStyle_bg_get #f) (export _GtkStyle_bg_get) (dv _GtkStyle_light_get #f) (export _GtkStyle_light_get) (dv _GtkStyle_dark_get #f) (export _GtkStyle_dark_get) (dv _GtkStyle_mid_get #f) (export _GtkStyle_mid_get) (dv _GtkStyle_text_get #f) (export _GtkStyle_text_get) (dv _GtkStyle_base_get #f) (export _GtkStyle_base_get) (dv _GtkStyle_text_aa_get #f) (export _GtkStyle_text_aa_get) (dv _GtkStyle_black_set #f) (export _GtkStyle_black_set) (dv _GtkStyle_black_get #f) (export _GtkStyle_black_get) (dv _GtkStyle_white_set #f) (export _GtkStyle_white_set) (dv _GtkStyle_white_get #f) (export _GtkStyle_white_get) (dv _GtkStyle_font_desc_set #f) (export _GtkStyle_font_desc_set) (dv _GtkStyle_font_desc_get #f) (export _GtkStyle_font_desc_get) (dv _GtkStyle_xthickness_set #f) (export _GtkStyle_xthickness_set) (dv _GtkStyle_xthickness_get #f) (export _GtkStyle_xthickness_get) (dv _GtkStyle_ythickness_set #f) (export _GtkStyle_ythickness_set) (dv _GtkStyle_ythickness_get #f) (export _GtkStyle_ythickness_get) (dv _GtkStyle_fg_gc_get #f) (export _GtkStyle_fg_gc_get) (dv _GtkStyle_bg_gc_get #f) (export _GtkStyle_bg_gc_get) (dv _GtkStyle_light_gc_get #f) (export _GtkStyle_light_gc_get) (dv _GtkStyle_dark_gc_get #f) (export _GtkStyle_dark_gc_get) (dv _GtkStyle_mid_gc_get #f) (export _GtkStyle_mid_gc_get) (dv _GtkStyle_text_gc_get #f) (export _GtkStyle_text_gc_get) (dv _GtkStyle_base_gc_get #f) (export _GtkStyle_base_gc_get) (dv _GtkStyle_text_aa_gc_get #f) (export _GtkStyle_text_aa_gc_get) (dv _GtkStyle_black_gc_set #f) (export _GtkStyle_black_gc_set) (dv _GtkStyle_black_gc_get #f) (export _GtkStyle_black_gc_get) (dv _GtkStyle_white_gc_set #f) (export _GtkStyle_white_gc_set) (dv _GtkStyle_white_gc_get #f) (export _GtkStyle_white_gc_get) (dv _GtkStyle_bg_pixmap_get #f) (export _GtkStyle_bg_pixmap_get) (dv new__GtkStyle #f) (export new__GtkStyle) (dv delete__GtkStyle #f) (export delete__GtkStyle) (dv gtk_style_new #f) (export gtk_style_new) (dv gtk_style_copy #f) (export gtk_style_copy) (dv gtk_style_attach #f) (export gtk_style_attach) (dv gtk_style_detach #f) (export gtk_style_detach) (dv gtk_style_set_background #f) (export gtk_style_set_background) (dv gtk_style_apply_default_background #f) (export gtk_style_apply_default_background) (dv gtk_style_lookup_icon_set #f) (export gtk_style_lookup_icon_set) (dv gtk_style_render_icon #f) (export gtk_style_render_icon) (dv gtk_paint_hline #f) (export gtk_paint_hline) (dv gtk_paint_vline #f) (export gtk_paint_vline) (dv gtk_paint_shadow #f) (export gtk_paint_shadow) (dv gtk_paint_polygon #f) (export gtk_paint_polygon) (dv gtk_paint_arrow #f) (export gtk_paint_arrow) (dv gtk_paint_diamond #f) (export gtk_paint_diamond) (dv gtk_paint_box #f) (export gtk_paint_box) (dv gtk_paint_flat_box #f) (export gtk_paint_flat_box) (dv gtk_paint_check #f) (export gtk_paint_check) ) (seq (dv gtk_paint_option #f) (export gtk_paint_option) (dv gtk_paint_tab #f) (export gtk_paint_tab) (dv gtk_paint_shadow_gap #f) (export gtk_paint_shadow_gap) (dv gtk_paint_box_gap #f) (export gtk_paint_box_gap) (dv gtk_paint_extension #f) (export gtk_paint_extension) (dv gtk_paint_focus #f) (export gtk_paint_focus) (dv gtk_paint_slider #f) (export gtk_paint_slider) (dv gtk_paint_handle #f) (export gtk_paint_handle) (dv gtk_paint_expander #f) (export gtk_paint_expander) (dv gtk_paint_layout #f) (export gtk_paint_layout) (dv gtk_paint_resize_grip #f) (export gtk_paint_resize_grip) (dv gtk_border_copy #f) (export gtk_border_copy) (dv gtk_border_free #f) (export gtk_border_free) (dv gtk_table_new #f) (export gtk_table_new) (dv gtk_table_resize #f) (export gtk_table_resize) (dv gtk_table_attach #f) (export gtk_table_attach) (dv gtk_table_attach_defaults #f) (export gtk_table_attach_defaults) (dv gtk_table_set_row_spacing #f) (export gtk_table_set_row_spacing) (dv gtk_table_get_row_spacing #f) (export gtk_table_get_row_spacing) (dv gtk_table_set_col_spacing #f) (export gtk_table_set_col_spacing) (dv gtk_table_get_col_spacing #f) (export gtk_table_get_col_spacing) (dv gtk_table_set_row_spacings #f) (export gtk_table_set_row_spacings) (dv gtk_table_get_default_row_spacing #f) (export gtk_table_get_default_row_spacing) (dv gtk_table_set_col_spacings #f) (export gtk_table_set_col_spacings) (dv gtk_table_get_default_col_spacing #f) (export gtk_table_get_default_col_spacing) (dv gtk_table_set_homogeneous #f) (export gtk_table_set_homogeneous) (dv gtk_table_get_homogeneous #f) (export gtk_table_get_homogeneous) (dv gtk_tearoff_menu_item_new #f) (export gtk_tearoff_menu_item_new) (dv gtk_text_buffer_get_type #f) (export gtk_text_buffer_get_type) (dv gtk_text_buffer_new #f) (export gtk_text_buffer_new) (dv gtk_text_buffer_get_line_count #f) (export gtk_text_buffer_get_line_count) (dv gtk_text_buffer_get_char_count #f) (export gtk_text_buffer_get_char_count) (dv gtk_text_buffer_get_tag_table #f) (export gtk_text_buffer_get_tag_table) (dv gtk_text_buffer_set_text #f) (export gtk_text_buffer_set_text) (dv gtk_text_buffer_insert #f) (export gtk_text_buffer_insert) (dv gtk_text_buffer_insert_at_cursor #f) (export gtk_text_buffer_insert_at_cursor) (dv gtk_text_buffer_insert_interactive #f) (export gtk_text_buffer_insert_interactive) (dv gtk_text_buffer_insert_interactive_at_cursor #f) (export gtk_text_buffer_insert_interactive_at_cursor) (dv gtk_text_buffer_insert_range #f) (export gtk_text_buffer_insert_range) (dv gtk_text_buffer_insert_range_interactive #f) (export gtk_text_buffer_insert_range_interactive) (dv gtk_text_buffer_delete #f) (export gtk_text_buffer_delete) (dv gtk_text_buffer_delete_interactive #f) (export gtk_text_buffer_delete_interactive) (dv gtk_text_buffer_get_text #f) (export gtk_text_buffer_get_text) (dv gtk_text_buffer_get_slice #f) (export gtk_text_buffer_get_slice) (dv gtk_text_buffer_insert_pixbuf #f) (export gtk_text_buffer_insert_pixbuf) (dv gtk_text_buffer_insert_child_anchor #f) (export gtk_text_buffer_insert_child_anchor) (dv gtk_text_buffer_create_child_anchor #f) (export gtk_text_buffer_create_child_anchor) (dv gtk_text_buffer_create_mark #f) (export gtk_text_buffer_create_mark) (dv gtk_text_buffer_move_mark #f) (export gtk_text_buffer_move_mark) (dv gtk_text_buffer_delete_mark #f) (export gtk_text_buffer_delete_mark) ) (seq (dv gtk_text_buffer_get_mark #f) (export gtk_text_buffer_get_mark) (dv gtk_text_buffer_move_mark_by_name #f) (export gtk_text_buffer_move_mark_by_name) (dv gtk_text_buffer_delete_mark_by_name #f) (export gtk_text_buffer_delete_mark_by_name) (dv gtk_text_buffer_get_insert #f) (export gtk_text_buffer_get_insert) (dv gtk_text_buffer_get_selection_bound #f) (export gtk_text_buffer_get_selection_bound) (dv gtk_text_buffer_place_cursor #f) (export gtk_text_buffer_place_cursor) (dv gtk_text_buffer_apply_tag #f) (export gtk_text_buffer_apply_tag) (dv gtk_text_buffer_remove_tag #f) (export gtk_text_buffer_remove_tag) (dv gtk_text_buffer_apply_tag_by_name #f) (export gtk_text_buffer_apply_tag_by_name) (dv gtk_text_buffer_remove_tag_by_name #f) (export gtk_text_buffer_remove_tag_by_name) (dv gtk_text_buffer_remove_all_tags #f) (export gtk_text_buffer_remove_all_tags) (dv gtk_text_buffer_get_iter_at_line_offset #f) (export gtk_text_buffer_get_iter_at_line_offset) (dv gtk_text_buffer_get_iter_at_line_index #f) (export gtk_text_buffer_get_iter_at_line_index) (dv gtk_text_buffer_get_iter_at_offset #f) (export gtk_text_buffer_get_iter_at_offset) (dv gtk_text_buffer_get_iter_at_line #f) (export gtk_text_buffer_get_iter_at_line) (dv gtk_text_buffer_get_start_iter #f) (export gtk_text_buffer_get_start_iter) (dv gtk_text_buffer_get_end_iter #f) (export gtk_text_buffer_get_end_iter) (dv gtk_text_buffer_get_bounds #f) (export gtk_text_buffer_get_bounds) (dv gtk_text_buffer_get_iter_at_mark #f) (export gtk_text_buffer_get_iter_at_mark) (dv gtk_text_buffer_get_iter_at_child_anchor #f) (export gtk_text_buffer_get_iter_at_child_anchor) (dv gtk_text_buffer_get_modified #f) (export gtk_text_buffer_get_modified) (dv gtk_text_buffer_set_modified #f) (export gtk_text_buffer_set_modified) (dv gtk_text_buffer_add_selection_clipboard #f) (export gtk_text_buffer_add_selection_clipboard) (dv gtk_text_buffer_remove_selection_clipboard #f) (export gtk_text_buffer_remove_selection_clipboard) (dv gtk_text_buffer_cut_clipboard #f) (export gtk_text_buffer_cut_clipboard) (dv gtk_text_buffer_copy_clipboard #f) (export gtk_text_buffer_copy_clipboard) (dv gtk_text_buffer_paste_clipboard #f) (export gtk_text_buffer_paste_clipboard) (dv gtk_text_buffer_get_selection_bounds #f) (export gtk_text_buffer_get_selection_bounds) (dv gtk_text_buffer_delete_selection #f) (export gtk_text_buffer_delete_selection) (dv gtk_text_buffer_begin_user_action #f) (export gtk_text_buffer_begin_user_action) (dv gtk_text_buffer_end_user_action #f) (export gtk_text_buffer_end_user_action) (dv GTK_TEXT_WINDOW_PRIVATE #f) (export GTK_TEXT_WINDOW_PRIVATE) (dv GTK_TEXT_WINDOW_WIDGET #f) (export GTK_TEXT_WINDOW_WIDGET) (dv GTK_TEXT_WINDOW_TEXT #f) (export GTK_TEXT_WINDOW_TEXT) (dv GTK_TEXT_WINDOW_LEFT #f) (export GTK_TEXT_WINDOW_LEFT) (dv GTK_TEXT_WINDOW_RIGHT #f) (export GTK_TEXT_WINDOW_RIGHT) (dv GTK_TEXT_WINDOW_TOP #f) (export GTK_TEXT_WINDOW_TOP) (dv GTK_TEXT_WINDOW_BOTTOM #f) (export GTK_TEXT_WINDOW_BOTTOM) (dv gtk_text_view_get_type #f) (export gtk_text_view_get_type) (dv gtk_text_view_new #f) (export gtk_text_view_new) (dv gtk_text_view_new_with_buffer #f) (export gtk_text_view_new_with_buffer) (dv gtk_text_view_set_buffer #f) (export gtk_text_view_set_buffer) (dv gtk_text_view_get_buffer #f) (export gtk_text_view_get_buffer) (dv gtk_text_view_scroll_to_iter #f) (export gtk_text_view_scroll_to_iter) (dv gtk_text_view_scroll_to_mark #f) (export gtk_text_view_scroll_to_mark) (dv gtk_text_view_scroll_mark_onscreen #f) (export gtk_text_view_scroll_mark_onscreen) (dv gtk_text_view_move_mark_onscreen #f) (export gtk_text_view_move_mark_onscreen) (dv gtk_text_view_place_cursor_onscreen #f) (export gtk_text_view_place_cursor_onscreen) (dv gtk_text_view_get_visible_rect #f) (export gtk_text_view_get_visible_rect) (dv gtk_text_view_set_cursor_visible #f) (export gtk_text_view_set_cursor_visible) ) (seq (dv gtk_text_view_get_cursor_visible #f) (export gtk_text_view_get_cursor_visible) (dv gtk_text_view_get_iter_location #f) (export gtk_text_view_get_iter_location) (dv gtk_text_view_get_iter_at_location #f) (export gtk_text_view_get_iter_at_location) (dv gtk_text_view_get_line_yrange #f) (export gtk_text_view_get_line_yrange) (dv gtk_text_view_get_line_at_y #f) (export gtk_text_view_get_line_at_y) (dv gtk_text_view_buffer_to_window_coords #f) (export gtk_text_view_buffer_to_window_coords) (dv gtk_text_view_window_to_buffer_coords #f) (export gtk_text_view_window_to_buffer_coords) (dv gtk_text_view_get_window #f) (export gtk_text_view_get_window) (dv gtk_text_view_get_window_type #f) (export gtk_text_view_get_window_type) (dv gtk_text_view_set_border_window_size #f) (export gtk_text_view_set_border_window_size) (dv gtk_text_view_get_border_window_size #f) (export gtk_text_view_get_border_window_size) (dv gtk_text_view_forward_display_line #f) (export gtk_text_view_forward_display_line) (dv gtk_text_view_backward_display_line #f) (export gtk_text_view_backward_display_line) (dv gtk_text_view_forward_display_line_end #f) (export gtk_text_view_forward_display_line_end) (dv gtk_text_view_backward_display_line_start #f) (export gtk_text_view_backward_display_line_start) (dv gtk_text_view_starts_display_line #f) (export gtk_text_view_starts_display_line) (dv gtk_text_view_move_visually #f) (export gtk_text_view_move_visually) (dv gtk_text_view_add_child_at_anchor #f) (export gtk_text_view_add_child_at_anchor) (dv gtk_text_view_add_child_in_window #f) (export gtk_text_view_add_child_in_window) (dv gtk_text_view_move_child #f) (export gtk_text_view_move_child) (dv gtk_text_view_set_wrap_mode #f) (export gtk_text_view_set_wrap_mode) (dv gtk_text_view_get_wrap_mode #f) (export gtk_text_view_get_wrap_mode) (dv gtk_text_view_set_editable #f) (export gtk_text_view_set_editable) (dv gtk_text_view_get_editable #f) (export gtk_text_view_get_editable) (dv gtk_text_view_set_pixels_above_lines #f) (export gtk_text_view_set_pixels_above_lines) (dv gtk_text_view_get_pixels_above_lines #f) (export gtk_text_view_get_pixels_above_lines) (dv gtk_text_view_set_pixels_below_lines #f) (export gtk_text_view_set_pixels_below_lines) (dv gtk_text_view_get_pixels_below_lines #f) (export gtk_text_view_get_pixels_below_lines) (dv gtk_text_view_set_pixels_inside_wrap #f) (export gtk_text_view_set_pixels_inside_wrap) (dv gtk_text_view_get_pixels_inside_wrap #f) (export gtk_text_view_get_pixels_inside_wrap) (dv gtk_text_view_set_justification #f) (export gtk_text_view_set_justification) (dv gtk_text_view_get_justification #f) (export gtk_text_view_get_justification) (dv gtk_text_view_set_left_margin #f) (export gtk_text_view_set_left_margin) (dv gtk_text_view_get_left_margin #f) (export gtk_text_view_get_left_margin) (dv gtk_text_view_set_right_margin #f) (export gtk_text_view_set_right_margin) (dv gtk_text_view_get_right_margin #f) (export gtk_text_view_get_right_margin) (dv gtk_text_view_set_indent #f) (export gtk_text_view_set_indent) (dv gtk_text_view_get_indent #f) (export gtk_text_view_get_indent) (dv gtk_text_view_set_tabs #f) (export gtk_text_view_set_tabs) (dv gtk_text_view_get_tabs #f) (export gtk_text_view_get_tabs) (dv gtk_text_view_get_default_attributes #f) (export gtk_text_view_get_default_attributes) (dv gtk_tips_query_new #f) (export gtk_tips_query_new) (dv gtk_tips_query_start_query #f) (export gtk_tips_query_start_query) (dv gtk_tips_query_stop_query #f) (export gtk_tips_query_stop_query) (dv gtk_tips_query_set_caller #f) (export gtk_tips_query_set_caller) (dv gtk_tips_query_set_labels #f) (export gtk_tips_query_set_labels) (dv gtk_toggle_button_new #f) (export gtk_toggle_button_new) (dv gtk_toggle_button_new_with_label #f) (export gtk_toggle_button_new_with_label) (dv gtk_toggle_button_new_with_mnemonic #f) (export gtk_toggle_button_new_with_mnemonic) (dv gtk_toggle_button_set_mode #f) (export gtk_toggle_button_set_mode) ) (seq (dv gtk_toggle_button_get_mode #f) (export gtk_toggle_button_get_mode) (dv gtk_toggle_button_set_active #f) (export gtk_toggle_button_set_active) (dv gtk_toggle_button_get_active #f) (export gtk_toggle_button_get_active) (dv gtk_toggle_button_toggled #f) (export gtk_toggle_button_toggled) (dv gtk_toggle_button_set_inconsistent #f) (export gtk_toggle_button_set_inconsistent) (dv gtk_toggle_button_get_inconsistent #f) (export gtk_toggle_button_get_inconsistent) (dv GTK_TOOLBAR_CHILD_SPACE #f) (export GTK_TOOLBAR_CHILD_SPACE) (dv GTK_TOOLBAR_CHILD_BUTTON #f) (export GTK_TOOLBAR_CHILD_BUTTON) (dv GTK_TOOLBAR_CHILD_TOGGLEBUTTON #f) (export GTK_TOOLBAR_CHILD_TOGGLEBUTTON) (dv GTK_TOOLBAR_CHILD_RADIOBUTTON #f) (export GTK_TOOLBAR_CHILD_RADIOBUTTON) (dv GTK_TOOLBAR_CHILD_WIDGET #f) (export GTK_TOOLBAR_CHILD_WIDGET) (dv GTK_TOOLBAR_SPACE_EMPTY #f) (export GTK_TOOLBAR_SPACE_EMPTY) (dv GTK_TOOLBAR_SPACE_LINE #f) (export GTK_TOOLBAR_SPACE_LINE) (dv gtk_toolbar_new #f) (export gtk_toolbar_new) (dv gtk_toolbar_append_item #f) (export gtk_toolbar_append_item) (dv gtk_toolbar_prepend_item #f) (export gtk_toolbar_prepend_item) (dv gtk_toolbar_insert_item #f) (export gtk_toolbar_insert_item) (dv gtk_toolbar_insert_stock #f) (export gtk_toolbar_insert_stock) (dv gtk_toolbar_append_space #f) (export gtk_toolbar_append_space) (dv gtk_toolbar_prepend_space #f) (export gtk_toolbar_prepend_space) (dv gtk_toolbar_insert_space #f) (export gtk_toolbar_insert_space) (dv gtk_toolbar_remove_space #f) (export gtk_toolbar_remove_space) (dv gtk_toolbar_append_element #f) (export gtk_toolbar_append_element) (dv gtk_toolbar_prepend_element #f) (export gtk_toolbar_prepend_element) (dv gtk_toolbar_insert_element #f) (export gtk_toolbar_insert_element) (dv gtk_toolbar_append_widget #f) (export gtk_toolbar_append_widget) (dv gtk_toolbar_prepend_widget #f) (export gtk_toolbar_prepend_widget) (dv gtk_toolbar_insert_widget #f) (export gtk_toolbar_insert_widget) (dv gtk_toolbar_set_orientation #f) (export gtk_toolbar_set_orientation) (dv gtk_toolbar_set_style #f) (export gtk_toolbar_set_style) (dv gtk_toolbar_set_icon_size #f) (export gtk_toolbar_set_icon_size) (dv gtk_toolbar_set_tooltips #f) (export gtk_toolbar_set_tooltips) (dv gtk_toolbar_unset_style #f) (export gtk_toolbar_unset_style) (dv gtk_toolbar_unset_icon_size #f) (export gtk_toolbar_unset_icon_size) (dv gtk_toolbar_get_orientation #f) (export gtk_toolbar_get_orientation) (dv gtk_toolbar_get_style #f) (export gtk_toolbar_get_style) (dv gtk_toolbar_get_icon_size #f) (export gtk_toolbar_get_icon_size) (dv gtk_toolbar_get_tooltips #f) (export gtk_toolbar_get_tooltips) (dv gtk_tooltips_new #f) (export gtk_tooltips_new) (dv gtk_tooltips_enable #f) (export gtk_tooltips_enable) (dv gtk_tooltips_disable #f) (export gtk_tooltips_disable) (dv gtk_tooltips_set_tip #f) (export gtk_tooltips_set_tip) (dv gtk_tooltips_data_get #f) (export gtk_tooltips_data_get) (dv gtk_tooltips_force_window #f) (export gtk_tooltips_force_window) (dv GTK_TREE_VIEW_LINE #f) (export GTK_TREE_VIEW_LINE) (dv GTK_TREE_VIEW_ITEM #f) (export GTK_TREE_VIEW_ITEM) (dv gtk_tree_new #f) (export gtk_tree_new) (dv gtk_tree_append #f) (export gtk_tree_append) (dv gtk_tree_prepend #f) (export gtk_tree_prepend) (dv gtk_tree_insert #f) (export gtk_tree_insert) ) (seq (dv gtk_tree_remove_items #f) (export gtk_tree_remove_items) (dv gtk_tree_clear_items #f) (export gtk_tree_clear_items) (dv gtk_tree_select_item #f) (export gtk_tree_select_item) (dv gtk_tree_unselect_item #f) (export gtk_tree_unselect_item) (dv gtk_tree_select_child #f) (export gtk_tree_select_child) (dv gtk_tree_unselect_child #f) (export gtk_tree_unselect_child) (dv gtk_tree_child_position #f) (export gtk_tree_child_position) (dv gtk_tree_set_selection_mode #f) (export gtk_tree_set_selection_mode) (dv gtk_tree_set_view_mode #f) (export gtk_tree_set_view_mode) (dv gtk_tree_set_view_lines #f) (export gtk_tree_set_view_lines) (dv gtk_tree_item_new #f) (export gtk_tree_item_new) (dv gtk_tree_item_new_with_label #f) (export gtk_tree_item_new_with_label) (dv gtk_tree_item_set_subtree #f) (export gtk_tree_item_set_subtree) (dv gtk_tree_item_remove_subtree #f) (export gtk_tree_item_remove_subtree) (dv gtk_tree_item_select #f) (export gtk_tree_item_select) (dv gtk_tree_item_deselect #f) (export gtk_tree_item_deselect) (dv gtk_tree_item_expand #f) (export gtk_tree_item_expand) (dv gtk_tree_item_collapse #f) (export gtk_tree_item_collapse) (dv gtk_tree_selection_get_type #f) (export gtk_tree_selection_get_type) (dv gtk_tree_selection_set_mode #f) (export gtk_tree_selection_set_mode) (dv gtk_tree_selection_get_mode #f) (export gtk_tree_selection_get_mode) (dv gtk_tree_selection_set_select_function #f) (export gtk_tree_selection_set_select_function) (dv gtk_tree_selection_get_user_data #f) (export gtk_tree_selection_get_user_data) (dv gtk_tree_selection_get_tree_view #f) (export gtk_tree_selection_get_tree_view) (dv gtk_tree_selection_get_selected #f) (export gtk_tree_selection_get_selected) (dv gtk_tree_selection_selected_foreach #f) (export gtk_tree_selection_selected_foreach) (dv gtk_tree_selection_select_path #f) (export gtk_tree_selection_select_path) (dv gtk_tree_selection_unselect_path #f) (export gtk_tree_selection_unselect_path) (dv gtk_tree_selection_select_iter #f) (export gtk_tree_selection_select_iter) (dv gtk_tree_selection_unselect_iter #f) (export gtk_tree_selection_unselect_iter) (dv gtk_tree_selection_path_is_selected #f) (export gtk_tree_selection_path_is_selected) (dv gtk_tree_selection_iter_is_selected #f) (export gtk_tree_selection_iter_is_selected) (dv gtk_tree_selection_select_all #f) (export gtk_tree_selection_select_all) (dv gtk_tree_selection_unselect_all #f) (export gtk_tree_selection_unselect_all) (dv gtk_tree_selection_select_range #f) (export gtk_tree_selection_select_range) (dv GTK_TREE_VIEW_DROP_BEFORE #f) (export GTK_TREE_VIEW_DROP_BEFORE) (dv GTK_TREE_VIEW_DROP_AFTER #f) (export GTK_TREE_VIEW_DROP_AFTER) (dv GTK_TREE_VIEW_DROP_INTO_OR_BEFORE #f) (export GTK_TREE_VIEW_DROP_INTO_OR_BEFORE) (dv GTK_TREE_VIEW_DROP_INTO_OR_AFTER #f) (export GTK_TREE_VIEW_DROP_INTO_OR_AFTER) (dv gtk_tree_view_get_type #f) (export gtk_tree_view_get_type) (dv gtk_tree_view_new #f) (export gtk_tree_view_new) (dv gtk_tree_view_new_with_model #f) (export gtk_tree_view_new_with_model) (dv gtk_tree_view_get_model #f) (export gtk_tree_view_get_model) (dv gtk_tree_view_set_model #f) (export gtk_tree_view_set_model) (dv gtk_tree_view_get_selection #f) (export gtk_tree_view_get_selection) (dv gtk_tree_view_get_hadjustment #f) (export gtk_tree_view_get_hadjustment) (dv gtk_tree_view_set_hadjustment #f) (export gtk_tree_view_set_hadjustment) (dv gtk_tree_view_get_vadjustment #f) (export gtk_tree_view_get_vadjustment) (dv gtk_tree_view_set_vadjustment #f) (export gtk_tree_view_set_vadjustment) (dv gtk_tree_view_get_headers_visible #f) (export gtk_tree_view_get_headers_visible) ) (seq (dv gtk_tree_view_set_headers_visible #f) (export gtk_tree_view_set_headers_visible) (dv gtk_tree_view_columns_autosize #f) (export gtk_tree_view_columns_autosize) (dv gtk_tree_view_set_headers_clickable #f) (export gtk_tree_view_set_headers_clickable) (dv gtk_tree_view_set_rules_hint #f) (export gtk_tree_view_set_rules_hint) (dv gtk_tree_view_get_rules_hint #f) (export gtk_tree_view_get_rules_hint) (dv gtk_tree_view_append_column #f) (export gtk_tree_view_append_column) (dv gtk_tree_view_remove_column #f) (export gtk_tree_view_remove_column) (dv gtk_tree_view_move_column_after #f) (export gtk_tree_view_move_column_after) (dv gtk_tree_view_set_expander_column #f) (export gtk_tree_view_set_expander_column) (dv gtk_tree_view_get_expander_column #f) (export gtk_tree_view_get_expander_column) (dv gtk_tree_view_scroll_to_point #f) (export gtk_tree_view_scroll_to_point) (dv gtk_tree_view_scroll_to_cell #f) (export gtk_tree_view_scroll_to_cell) (dv gtk_tree_view_row_activated #f) (export gtk_tree_view_row_activated) (dv gtk_tree_view_expand_all #f) (export gtk_tree_view_expand_all) (dv gtk_tree_view_collapse_all #f) (export gtk_tree_view_collapse_all) (dv gtk_tree_view_expand_row #f) (export gtk_tree_view_expand_row) (dv gtk_tree_view_collapse_row #f) (export gtk_tree_view_collapse_row) (dv gtk_tree_view_row_expanded #f) (export gtk_tree_view_row_expanded) (dv gtk_tree_view_set_reorderable #f) (export gtk_tree_view_set_reorderable) (dv gtk_tree_view_get_reorderable #f) (export gtk_tree_view_get_reorderable) (dv gtk_tree_view_set_cursor #f) (export gtk_tree_view_set_cursor) (dv gtk_tree_view_get_cursor #f) (export gtk_tree_view_get_cursor) (dv gtk_tree_view_get_bin_window #f) (export gtk_tree_view_get_bin_window) (dv gtk_tree_view_get_path_at_pos #f) (export gtk_tree_view_get_path_at_pos) (dv gtk_tree_view_get_cell_area #f) (export gtk_tree_view_get_cell_area) (dv gtk_tree_view_get_background_area #f) (export gtk_tree_view_get_background_area) (dv gtk_tree_view_get_visible_rect #f) (export gtk_tree_view_get_visible_rect) (dv gtk_tree_view_widget_to_tree_coords #f) (export gtk_tree_view_widget_to_tree_coords) (dv gtk_tree_view_tree_to_widget_coords #f) (export gtk_tree_view_tree_to_widget_coords) (dv gtk_tree_view_set_drag_dest_row #f) (export gtk_tree_view_set_drag_dest_row) (dv gtk_tree_view_get_drag_dest_row #f) (export gtk_tree_view_get_drag_dest_row) (dv gtk_tree_view_get_dest_row_at_pos #f) (export gtk_tree_view_get_dest_row_at_pos) (dv gtk_tree_view_create_row_drag_icon #f) (export gtk_tree_view_create_row_drag_icon) (dv gtk_tree_view_get_search_column #f) (export gtk_tree_view_get_search_column) (dv gtk_tree_view_set_search_column #f) (export gtk_tree_view_set_search_column) (dv gtk_tree_view_get_search_equal_func #f) (export gtk_tree_view_get_search_equal_func) (dv gtk_tree_view_set_search_equal_func #f) (export gtk_tree_view_set_search_equal_func) (dv GTK_TREE_VIEW_COLUMN_GROW_ONLY #f) (export GTK_TREE_VIEW_COLUMN_GROW_ONLY) (dv GTK_TREE_VIEW_COLUMN_AUTOSIZE #f) (export GTK_TREE_VIEW_COLUMN_AUTOSIZE) (dv GTK_TREE_VIEW_COLUMN_FIXED #f) (export GTK_TREE_VIEW_COLUMN_FIXED) (dv gtk_tree_view_column_get_type #f) (export gtk_tree_view_column_get_type) (dv gtk_tree_view_column_new #f) (export gtk_tree_view_column_new) (dv gtk_tree_view_column_pack_start #f) (export gtk_tree_view_column_pack_start) (dv gtk_tree_view_column_pack_end #f) (export gtk_tree_view_column_pack_end) (dv gtk_tree_view_column_clear #f) (export gtk_tree_view_column_clear) (dv gtk_tree_view_column_get_cell_renderers #f) (export gtk_tree_view_column_get_cell_renderers) (dv gtk_tree_view_column_add_attribute #f) (export gtk_tree_view_column_add_attribute) (dv gtk_tree_view_column_set_cell_data_func #f) (export gtk_tree_view_column_set_cell_data_func) (dv gtk_tree_view_column_clear_attributes #f) (export gtk_tree_view_column_clear_attributes) (dv gtk_tree_view_column_set_spacing #f) (export gtk_tree_view_column_set_spacing) ) (seq (dv gtk_tree_view_column_get_spacing #f) (export gtk_tree_view_column_get_spacing) (dv gtk_tree_view_column_set_visible #f) (export gtk_tree_view_column_set_visible) (dv gtk_tree_view_column_get_visible #f) (export gtk_tree_view_column_get_visible) (dv gtk_tree_view_column_set_resizable #f) (export gtk_tree_view_column_set_resizable) (dv gtk_tree_view_column_get_resizable #f) (export gtk_tree_view_column_get_resizable) (dv gtk_tree_view_column_set_sizing #f) (export gtk_tree_view_column_set_sizing) (dv gtk_tree_view_column_get_sizing #f) (export gtk_tree_view_column_get_sizing) (dv gtk_tree_view_column_get_width #f) (export gtk_tree_view_column_get_width) (dv gtk_tree_view_column_get_fixed_width #f) (export gtk_tree_view_column_get_fixed_width) (dv gtk_tree_view_column_set_fixed_width #f) (export gtk_tree_view_column_set_fixed_width) (dv gtk_tree_view_column_set_min_width #f) (export gtk_tree_view_column_set_min_width) (dv gtk_tree_view_column_get_min_width #f) (export gtk_tree_view_column_get_min_width) (dv gtk_tree_view_column_set_max_width #f) (export gtk_tree_view_column_set_max_width) (dv gtk_tree_view_column_get_max_width #f) (export gtk_tree_view_column_get_max_width) (dv gtk_tree_view_column_clicked #f) (export gtk_tree_view_column_clicked) (dv gtk_tree_view_column_set_title #f) (export gtk_tree_view_column_set_title) (dv gtk_tree_view_column_get_title #f) (export gtk_tree_view_column_get_title) (dv gtk_tree_view_column_set_clickable #f) (export gtk_tree_view_column_set_clickable) (dv gtk_tree_view_column_get_clickable #f) (export gtk_tree_view_column_get_clickable) (dv gtk_tree_view_column_set_widget #f) (export gtk_tree_view_column_set_widget) (dv gtk_tree_view_column_get_widget #f) (export gtk_tree_view_column_get_widget) (dv gtk_tree_view_column_set_alignment #f) (export gtk_tree_view_column_set_alignment) (dv gtk_tree_view_column_get_alignment #f) (export gtk_tree_view_column_get_alignment) (dv gtk_tree_view_column_set_reorderable #f) (export gtk_tree_view_column_set_reorderable) (dv gtk_tree_view_column_get_reorderable #f) (export gtk_tree_view_column_get_reorderable) (dv gtk_tree_view_column_set_sort_column_id #f) (export gtk_tree_view_column_set_sort_column_id) (dv gtk_tree_view_column_get_sort_column_id #f) (export gtk_tree_view_column_get_sort_column_id) (dv gtk_tree_view_column_set_sort_indicator #f) (export gtk_tree_view_column_set_sort_indicator) (dv gtk_tree_view_column_get_sort_indicator #f) (export gtk_tree_view_column_get_sort_indicator) (dv gtk_tree_view_column_set_sort_order #f) (export gtk_tree_view_column_set_sort_order) (dv gtk_tree_view_column_get_sort_order #f) (export gtk_tree_view_column_get_sort_order) (dv gtk_tree_view_column_cell_set_cell_data #f) (export gtk_tree_view_column_cell_set_cell_data) (dv gtk_tree_view_column_cell_get_size #f) (export gtk_tree_view_column_cell_get_size) (dv gtk_tree_view_column_cell_is_visible #f) (export gtk_tree_view_column_cell_is_visible) (dv gtk_vbutton_box_new #f) (export gtk_vbutton_box_new) (dv gtk_vbox_new #f) (export gtk_vbox_new) (dv gtk_viewport_new #f) (export gtk_viewport_new) (dv gtk_viewport_get_hadjustment #f) (export gtk_viewport_get_hadjustment) (dv gtk_viewport_get_vadjustment #f) (export gtk_viewport_get_vadjustment) (dv gtk_viewport_set_hadjustment #f) (export gtk_viewport_set_hadjustment) (dv gtk_viewport_set_vadjustment #f) (export gtk_viewport_set_vadjustment) (dv gtk_viewport_set_shadow_type #f) (export gtk_viewport_set_shadow_type) (dv gtk_viewport_get_shadow_type #f) (export gtk_viewport_get_shadow_type) (dv gtk_vscrollbar_new #f) (export gtk_vscrollbar_new) (dv gtk_vseparator_new #f) (export gtk_vseparator_new) (dv gtk_window_new #f) (export gtk_window_new) (dv gtk_tree_goo_selection_get_node #f) (export gtk_tree_goo_selection_get_node) (dv gtk_tree_goo_new #f) (export gtk_tree_goo_new) (dv gtk_tree_goo_refresh #f) (export gtk_tree_goo_refresh) ) (dl init_me) (init_me) goo-0.155/src/samurui/gtk.swig.c0100644000175000017500001102163007547412367016111 0ustar vomjomvomjom/* -*- buffer-read-only: t -*- vi: set ro: */ /* ---------------------------------------------------------------------------- * This file was automatically generated by SWIG (http://www.swig.org). * Version 1.3.10u-20020104-1225 * * This file is not intended to be easily readable and contains a number of * coding conventions designed to improve portability and efficiency. Do not make * changes to this file unless you know what you are doing--modify the SWIG * interface file instead. * ----------------------------------------------------------------------------- */ /* Implementation : GOO */ #include "grt.h" static void load_module_dl (void); EXT(YLanyG,"goo/boot",""); EXT(YLintG,"goo/boot",""); EXT(YLfloG, "goo/boot", ""); EXT(YLstrG, "goo/boot", ""); EXT(YLlocG, "goo/boot", ""); EXT(YLchrG, "goo/boot", ""); EXT(YLtupG, "goo/boot", ""); extern P YOisaQ(P, P); static P multi_argout(P outsofar, P curout) { P newvec; int masked; DEFCREGS(); if(outsofar == NULL) return curout; // it's a vector if it's an address and the type matches // (sadly, strings can be addresses too...) masked = ((((int)outsofar)&tag_mask) == adr_tag); if(masked && (YOisaQ(outsofar, VARREF(YLtupG)) != YPfalse)) { // VECTOR already! int len, i; len = (int)YPtlen(outsofar); newvec = YPPtfab((P)(len + 1), (P)0); for(i=0; i < len; i++) { YPtelt_setter(YPtelt(outsofar, i), newvec, i); } YPtelt_setter(curout, newvec, i); } else // not a vector. so stick the current guy and us in! { newvec = YPPtfab((P)2, (P)0); YPtelt_setter(outsofar, newvec, 0); YPtelt_setter(curout, newvec, 1); } return newvec; } #define GTK_ENABLE_BROKEN #include EXT(YsamuruiSgtkYgUsignalUrunUfirst,"samurui/gtk","G_SIGNAL_RUN_FIRST"); EXT(YsamuruiSgtkYgUsignalUrunUlast,"samurui/gtk","G_SIGNAL_RUN_LAST"); EXT(YsamuruiSgtkYgUsignalUrunUcleanup,"samurui/gtk","G_SIGNAL_RUN_CLEANUP"); EXT(YsamuruiSgtkYgUsignalUnoUrecurse,"samurui/gtk","G_SIGNAL_NO_RECURSE"); EXT(YsamuruiSgtkYgUsignalUdetailed,"samurui/gtk","G_SIGNAL_DETAILED"); EXT(YsamuruiSgtkYgUsignalUaction,"samurui/gtk","G_SIGNAL_ACTION"); EXT(YsamuruiSgtkYgUsignalUnoUhooks,"samurui/gtk","G_SIGNAL_NO_HOOKS"); EXT(YsamuruiSgtkYgUconnectUafter,"samurui/gtk","G_CONNECT_AFTER"); EXT(YsamuruiSgtkYgUconnectUswapped,"samurui/gtk","G_CONNECT_SWAPPED"); #undef g_signal_connect gulong g_signal_connect(gpointer instance, gchar *detailed_signal, GCallback c_handler, gpointer data) { g_signal_connect_data ((instance), (detailed_signal), (c_handler), (data), NULL, (GConnectFlags) 0); } EXT(YsamuruiSgtkYgdkUlsbUfirst,"samurui/gtk","GDK_LSB_FIRST"); EXT(YsamuruiSgtkYgdkUmsbUfirst,"samurui/gtk","GDK_MSB_FIRST"); EXT(YsamuruiSgtkYgdkUshiftUmask,"samurui/gtk","GDK_SHIFT_MASK"); EXT(YsamuruiSgtkYgdkUlockUmask,"samurui/gtk","GDK_LOCK_MASK"); EXT(YsamuruiSgtkYgdkUcontrolUmask,"samurui/gtk","GDK_CONTROL_MASK"); EXT(YsamuruiSgtkYgdkUmod1Umask,"samurui/gtk","GDK_MOD1_MASK"); EXT(YsamuruiSgtkYgdkUmod2Umask,"samurui/gtk","GDK_MOD2_MASK"); EXT(YsamuruiSgtkYgdkUmod3Umask,"samurui/gtk","GDK_MOD3_MASK"); EXT(YsamuruiSgtkYgdkUmod4Umask,"samurui/gtk","GDK_MOD4_MASK"); EXT(YsamuruiSgtkYgdkUmod5Umask,"samurui/gtk","GDK_MOD5_MASK"); EXT(YsamuruiSgtkYgdkUbutton1Umask,"samurui/gtk","GDK_BUTTON1_MASK"); EXT(YsamuruiSgtkYgdkUbutton2Umask,"samurui/gtk","GDK_BUTTON2_MASK"); EXT(YsamuruiSgtkYgdkUbutton3Umask,"samurui/gtk","GDK_BUTTON3_MASK"); EXT(YsamuruiSgtkYgdkUbutton4Umask,"samurui/gtk","GDK_BUTTON4_MASK"); EXT(YsamuruiSgtkYgdkUbutton5Umask,"samurui/gtk","GDK_BUTTON5_MASK"); EXT(YsamuruiSgtkYgdkUreleaseUmask,"samurui/gtk","GDK_RELEASE_MASK"); EXT(YsamuruiSgtkYgdkUmodifierUmask,"samurui/gtk","GDK_MODIFIER_MASK"); EXT(YsamuruiSgtkYgdkUinputUread,"samurui/gtk","GDK_INPUT_READ"); EXT(YsamuruiSgtkYgdkUinputUwrite,"samurui/gtk","GDK_INPUT_WRITE"); EXT(YsamuruiSgtkYgdkUinputUexception,"samurui/gtk","GDK_INPUT_EXCEPTION"); EXT(YsamuruiSgtkYgdkUok,"samurui/gtk","GDK_OK"); EXT(YsamuruiSgtkYgdkUerror,"samurui/gtk","GDK_ERROR"); EXT(YsamuruiSgtkYgdkUerrorUparam,"samurui/gtk","GDK_ERROR_PARAM"); EXT(YsamuruiSgtkYgdkUerrorUfile,"samurui/gtk","GDK_ERROR_FILE"); EXT(YsamuruiSgtkYgdkUerrorUmem,"samurui/gtk","GDK_ERROR_MEM"); EXT(YsamuruiSgtkYgdkUgrabUsuccess,"samurui/gtk","GDK_GRAB_SUCCESS"); EXT(YsamuruiSgtkYgdkUgrabUalreadyUgrabbed,"samurui/gtk","GDK_GRAB_ALREADY_GRABBED"); EXT(YsamuruiSgtkYgdkUgrabUinvalidUtime,"samurui/gtk","GDK_GRAB_INVALID_TIME"); EXT(YsamuruiSgtkYgdkUgrabUnotUviewable,"samurui/gtk","GDK_GRAB_NOT_VIEWABLE"); EXT(YsamuruiSgtkYgdkUgrabUfrozen,"samurui/gtk","GDK_GRAB_FROZEN"); EXT(YsamuruiSgtkYgdkUrgbUditherUnone,"samurui/gtk","GDK_RGB_DITHER_NONE"); EXT(YsamuruiSgtkYgdkUrgbUditherUnormal,"samurui/gtk","GDK_RGB_DITHER_NORMAL"); EXT(YsamuruiSgtkYgdkUrgbUditherUmax,"samurui/gtk","GDK_RGB_DITHER_MAX"); EXT(YsamuruiSgtkYgdkUextensionUeventsUnone,"samurui/gtk","GDK_EXTENSION_EVENTS_NONE"); EXT(YsamuruiSgtkYgdkUextensionUeventsUall,"samurui/gtk","GDK_EXTENSION_EVENTS_ALL"); EXT(YsamuruiSgtkYgdkUextensionUeventsUcursor,"samurui/gtk","GDK_EXTENSION_EVENTS_CURSOR"); EXT(YsamuruiSgtkYgdkUsourceUmouse,"samurui/gtk","GDK_SOURCE_MOUSE"); EXT(YsamuruiSgtkYgdkUsourceUpen,"samurui/gtk","GDK_SOURCE_PEN"); EXT(YsamuruiSgtkYgdkUsourceUeraser,"samurui/gtk","GDK_SOURCE_ERASER"); EXT(YsamuruiSgtkYgdkUsourceUcursor,"samurui/gtk","GDK_SOURCE_CURSOR"); EXT(YsamuruiSgtkYgdkUmodeUdisabled,"samurui/gtk","GDK_MODE_DISABLED"); EXT(YsamuruiSgtkYgdkUmodeUscreen,"samurui/gtk","GDK_MODE_SCREEN"); EXT(YsamuruiSgtkYgdkUmodeUwindow,"samurui/gtk","GDK_MODE_WINDOW"); EXT(YsamuruiSgtkYgdkUaxisUignore,"samurui/gtk","GDK_AXIS_IGNORE"); EXT(YsamuruiSgtkYgdkUaxisUx,"samurui/gtk","GDK_AXIS_X"); EXT(YsamuruiSgtkYgdkUaxisUy,"samurui/gtk","GDK_AXIS_Y"); EXT(YsamuruiSgtkYgdkUaxisUpressure,"samurui/gtk","GDK_AXIS_PRESSURE"); EXT(YsamuruiSgtkYgdkUaxisUxtilt,"samurui/gtk","GDK_AXIS_XTILT"); EXT(YsamuruiSgtkYgdkUaxisUytilt,"samurui/gtk","GDK_AXIS_YTILT"); EXT(YsamuruiSgtkYgdkUaxisUwheel,"samurui/gtk","GDK_AXIS_WHEEL"); EXT(YsamuruiSgtkYgdkUaxisUlast,"samurui/gtk","GDK_AXIS_LAST"); EXT(YsamuruiSgtkYgtkUanchorUcenter,"samurui/gtk","GTK_ANCHOR_CENTER"); EXT(YsamuruiSgtkYgtkUanchorUnorth,"samurui/gtk","GTK_ANCHOR_NORTH"); EXT(YsamuruiSgtkYgtkUanchorUnorthUwest,"samurui/gtk","GTK_ANCHOR_NORTH_WEST"); EXT(YsamuruiSgtkYgtkUanchorUnorthUeast,"samurui/gtk","GTK_ANCHOR_NORTH_EAST"); EXT(YsamuruiSgtkYgtkUanchorUsouth,"samurui/gtk","GTK_ANCHOR_SOUTH"); EXT(YsamuruiSgtkYgtkUanchorUsouthUwest,"samurui/gtk","GTK_ANCHOR_SOUTH_WEST"); EXT(YsamuruiSgtkYgtkUanchorUsouthUeast,"samurui/gtk","GTK_ANCHOR_SOUTH_EAST"); EXT(YsamuruiSgtkYgtkUanchorUwest,"samurui/gtk","GTK_ANCHOR_WEST"); EXT(YsamuruiSgtkYgtkUanchorUeast,"samurui/gtk","GTK_ANCHOR_EAST"); EXT(YsamuruiSgtkYgtkUanchorUn,"samurui/gtk","GTK_ANCHOR_N"); EXT(YsamuruiSgtkYgtkUanchorUnw,"samurui/gtk","GTK_ANCHOR_NW"); EXT(YsamuruiSgtkYgtkUanchorUne,"samurui/gtk","GTK_ANCHOR_NE"); EXT(YsamuruiSgtkYgtkUanchorUs,"samurui/gtk","GTK_ANCHOR_S"); EXT(YsamuruiSgtkYgtkUanchorUsw,"samurui/gtk","GTK_ANCHOR_SW"); EXT(YsamuruiSgtkYgtkUanchorUse,"samurui/gtk","GTK_ANCHOR_SE"); EXT(YsamuruiSgtkYgtkUanchorUw,"samurui/gtk","GTK_ANCHOR_W"); EXT(YsamuruiSgtkYgtkUanchorUe,"samurui/gtk","GTK_ANCHOR_E"); EXT(YsamuruiSgtkYgtkUarrowUup,"samurui/gtk","GTK_ARROW_UP"); EXT(YsamuruiSgtkYgtkUarrowUdown,"samurui/gtk","GTK_ARROW_DOWN"); EXT(YsamuruiSgtkYgtkUarrowUleft,"samurui/gtk","GTK_ARROW_LEFT"); EXT(YsamuruiSgtkYgtkUarrowUright,"samurui/gtk","GTK_ARROW_RIGHT"); EXT(YsamuruiSgtkYgtkUexpand,"samurui/gtk","GTK_EXPAND"); EXT(YsamuruiSgtkYgtkUshrink,"samurui/gtk","GTK_SHRINK"); EXT(YsamuruiSgtkYgtkUfill,"samurui/gtk","GTK_FILL"); EXT(YsamuruiSgtkYgtkUbuttonboxUdefaultUstyle,"samurui/gtk","GTK_BUTTONBOX_DEFAULT_STYLE"); EXT(YsamuruiSgtkYgtkUbuttonboxUspread,"samurui/gtk","GTK_BUTTONBOX_SPREAD"); EXT(YsamuruiSgtkYgtkUbuttonboxUedge,"samurui/gtk","GTK_BUTTONBOX_EDGE"); EXT(YsamuruiSgtkYgtkUbuttonboxUstart,"samurui/gtk","GTK_BUTTONBOX_START"); EXT(YsamuruiSgtkYgtkUbuttonboxUend,"samurui/gtk","GTK_BUTTONBOX_END"); EXT(YsamuruiSgtkYgtkUcurveUtypeUlinear,"samurui/gtk","GTK_CURVE_TYPE_LINEAR"); EXT(YsamuruiSgtkYgtkUcurveUtypeUspline,"samurui/gtk","GTK_CURVE_TYPE_SPLINE"); EXT(YsamuruiSgtkYgtkUcurveUtypeUfree,"samurui/gtk","GTK_CURVE_TYPE_FREE"); EXT(YsamuruiSgtkYgtkUdeleteUchars,"samurui/gtk","GTK_DELETE_CHARS"); EXT(YsamuruiSgtkYgtkUdeleteUwordUends,"samurui/gtk","GTK_DELETE_WORD_ENDS"); EXT(YsamuruiSgtkYgtkUdeleteUwords,"samurui/gtk","GTK_DELETE_WORDS"); EXT(YsamuruiSgtkYgtkUdeleteUdisplayUlines,"samurui/gtk","GTK_DELETE_DISPLAY_LINES"); EXT(YsamuruiSgtkYgtkUdeleteUdisplayUlineUends,"samurui/gtk","GTK_DELETE_DISPLAY_LINE_ENDS"); EXT(YsamuruiSgtkYgtkUdeleteUparagraphUends,"samurui/gtk","GTK_DELETE_PARAGRAPH_ENDS"); EXT(YsamuruiSgtkYgtkUdeleteUparagraphs,"samurui/gtk","GTK_DELETE_PARAGRAPHS"); EXT(YsamuruiSgtkYgtkUdeleteUwhitespace,"samurui/gtk","GTK_DELETE_WHITESPACE"); EXT(YsamuruiSgtkYgtkUdirUtabUforward,"samurui/gtk","GTK_DIR_TAB_FORWARD"); EXT(YsamuruiSgtkYgtkUdirUtabUbackward,"samurui/gtk","GTK_DIR_TAB_BACKWARD"); EXT(YsamuruiSgtkYgtkUdirUup,"samurui/gtk","GTK_DIR_UP"); EXT(YsamuruiSgtkYgtkUdirUdown,"samurui/gtk","GTK_DIR_DOWN"); EXT(YsamuruiSgtkYgtkUdirUleft,"samurui/gtk","GTK_DIR_LEFT"); EXT(YsamuruiSgtkYgtkUdirUright,"samurui/gtk","GTK_DIR_RIGHT"); EXT(YsamuruiSgtkYgtkUexpanderUcollapsed,"samurui/gtk","GTK_EXPANDER_COLLAPSED"); EXT(YsamuruiSgtkYgtkUexpanderUsemiUcollapsed,"samurui/gtk","GTK_EXPANDER_SEMI_COLLAPSED"); EXT(YsamuruiSgtkYgtkUexpanderUsemiUexpanded,"samurui/gtk","GTK_EXPANDER_SEMI_EXPANDED"); EXT(YsamuruiSgtkYgtkUexpanderUexpanded,"samurui/gtk","GTK_EXPANDER_EXPANDED"); EXT(YsamuruiSgtkYgtkUiconUsizeUinvalid,"samurui/gtk","GTK_ICON_SIZE_INVALID"); EXT(YsamuruiSgtkYgtkUiconUsizeUmenu,"samurui/gtk","GTK_ICON_SIZE_MENU"); EXT(YsamuruiSgtkYgtkUiconUsizeUsmallUtoolbar,"samurui/gtk","GTK_ICON_SIZE_SMALL_TOOLBAR"); EXT(YsamuruiSgtkYgtkUiconUsizeUlargeUtoolbar,"samurui/gtk","GTK_ICON_SIZE_LARGE_TOOLBAR"); EXT(YsamuruiSgtkYgtkUiconUsizeUbutton,"samurui/gtk","GTK_ICON_SIZE_BUTTON"); EXT(YsamuruiSgtkYgtkUiconUsizeUdnd,"samurui/gtk","GTK_ICON_SIZE_DND"); EXT(YsamuruiSgtkYgtkUiconUsizeUdialog,"samurui/gtk","GTK_ICON_SIZE_DIALOG"); EXT(YsamuruiSgtkYgtkUsideUtop,"samurui/gtk","GTK_SIDE_TOP"); EXT(YsamuruiSgtkYgtkUsideUbottom,"samurui/gtk","GTK_SIDE_BOTTOM"); EXT(YsamuruiSgtkYgtkUsideUleft,"samurui/gtk","GTK_SIDE_LEFT"); EXT(YsamuruiSgtkYgtkUsideUright,"samurui/gtk","GTK_SIDE_RIGHT"); EXT(YsamuruiSgtkYgtkUtextUdirUnone,"samurui/gtk","GTK_TEXT_DIR_NONE"); EXT(YsamuruiSgtkYgtkUtextUdirUltr,"samurui/gtk","GTK_TEXT_DIR_LTR"); EXT(YsamuruiSgtkYgtkUtextUdirUrtl,"samurui/gtk","GTK_TEXT_DIR_RTL"); EXT(YsamuruiSgtkYgtkUjustifyUleft,"samurui/gtk","GTK_JUSTIFY_LEFT"); EXT(YsamuruiSgtkYgtkUjustifyUright,"samurui/gtk","GTK_JUSTIFY_RIGHT"); EXT(YsamuruiSgtkYgtkUjustifyUcenter,"samurui/gtk","GTK_JUSTIFY_CENTER"); EXT(YsamuruiSgtkYgtkUjustifyUfill,"samurui/gtk","GTK_JUSTIFY_FILL"); EXT(YsamuruiSgtkYgtkUmatchUall,"samurui/gtk","GTK_MATCH_ALL"); EXT(YsamuruiSgtkYgtkUmatchUallUtail,"samurui/gtk","GTK_MATCH_ALL_TAIL"); EXT(YsamuruiSgtkYgtkUmatchUhead,"samurui/gtk","GTK_MATCH_HEAD"); EXT(YsamuruiSgtkYgtkUmatchUtail,"samurui/gtk","GTK_MATCH_TAIL"); EXT(YsamuruiSgtkYgtkUmatchUexact,"samurui/gtk","GTK_MATCH_EXACT"); EXT(YsamuruiSgtkYgtkUmatchUlast,"samurui/gtk","GTK_MATCH_LAST"); EXT(YsamuruiSgtkYgtkUmenuUdirUparent,"samurui/gtk","GTK_MENU_DIR_PARENT"); EXT(YsamuruiSgtkYgtkUmenuUdirUchild,"samurui/gtk","GTK_MENU_DIR_CHILD"); EXT(YsamuruiSgtkYgtkUmenuUdirUnext,"samurui/gtk","GTK_MENU_DIR_NEXT"); EXT(YsamuruiSgtkYgtkUmenuUdirUprev,"samurui/gtk","GTK_MENU_DIR_PREV"); EXT(YsamuruiSgtkYgtkUpixels,"samurui/gtk","GTK_PIXELS"); EXT(YsamuruiSgtkYgtkUinches,"samurui/gtk","GTK_INCHES"); EXT(YsamuruiSgtkYgtkUcentimeters,"samurui/gtk","GTK_CENTIMETERS"); EXT(YsamuruiSgtkYgtkUmovementUlogicalUpositions,"samurui/gtk","GTK_MOVEMENT_LOGICAL_POSITIONS"); EXT(YsamuruiSgtkYgtkUmovementUvisualUpositions,"samurui/gtk","GTK_MOVEMENT_VISUAL_POSITIONS"); EXT(YsamuruiSgtkYgtkUmovementUwords,"samurui/gtk","GTK_MOVEMENT_WORDS"); EXT(YsamuruiSgtkYgtkUmovementUdisplayUlines,"samurui/gtk","GTK_MOVEMENT_DISPLAY_LINES"); EXT(YsamuruiSgtkYgtkUmovementUdisplayUlineUends,"samurui/gtk","GTK_MOVEMENT_DISPLAY_LINE_ENDS"); EXT(YsamuruiSgtkYgtkUmovementUparagraphs,"samurui/gtk","GTK_MOVEMENT_PARAGRAPHS"); EXT(YsamuruiSgtkYgtkUmovementUparagraphUends,"samurui/gtk","GTK_MOVEMENT_PARAGRAPH_ENDS"); EXT(YsamuruiSgtkYgtkUmovementUpages,"samurui/gtk","GTK_MOVEMENT_PAGES"); EXT(YsamuruiSgtkYgtkUmovementUbufferUends,"samurui/gtk","GTK_MOVEMENT_BUFFER_ENDS"); EXT(YsamuruiSgtkYgtkUorientationUhorizontal,"samurui/gtk","GTK_ORIENTATION_HORIZONTAL"); EXT(YsamuruiSgtkYgtkUorientationUvertical,"samurui/gtk","GTK_ORIENTATION_VERTICAL"); EXT(YsamuruiSgtkYgtkUcornerUtopUleft,"samurui/gtk","GTK_CORNER_TOP_LEFT"); EXT(YsamuruiSgtkYgtkUcornerUbottomUleft,"samurui/gtk","GTK_CORNER_BOTTOM_LEFT"); EXT(YsamuruiSgtkYgtkUcornerUtopUright,"samurui/gtk","GTK_CORNER_TOP_RIGHT"); EXT(YsamuruiSgtkYgtkUcornerUbottomUright,"samurui/gtk","GTK_CORNER_BOTTOM_RIGHT"); EXT(YsamuruiSgtkYgtkUpackUstart,"samurui/gtk","GTK_PACK_START"); EXT(YsamuruiSgtkYgtkUpackUend,"samurui/gtk","GTK_PACK_END"); EXT(YsamuruiSgtkYgtkUpathUprioUlowest,"samurui/gtk","GTK_PATH_PRIO_LOWEST"); EXT(YsamuruiSgtkYgtkUpathUprioUgtk,"samurui/gtk","GTK_PATH_PRIO_GTK"); EXT(YsamuruiSgtkYgtkUpathUprioUapplication,"samurui/gtk","GTK_PATH_PRIO_APPLICATION"); EXT(YsamuruiSgtkYgtkUpathUprioUtheme,"samurui/gtk","GTK_PATH_PRIO_THEME"); EXT(YsamuruiSgtkYgtkUpathUprioUrc,"samurui/gtk","GTK_PATH_PRIO_RC"); EXT(YsamuruiSgtkYgtkUpathUprioUhighest,"samurui/gtk","GTK_PATH_PRIO_HIGHEST"); EXT(YsamuruiSgtkYgtkUpathUwidget,"samurui/gtk","GTK_PATH_WIDGET"); EXT(YsamuruiSgtkYgtkUpathUwidgetUclass,"samurui/gtk","GTK_PATH_WIDGET_CLASS"); EXT(YsamuruiSgtkYgtkUpathUclass,"samurui/gtk","GTK_PATH_CLASS"); EXT(YsamuruiSgtkYgtkUpolicyUalways,"samurui/gtk","GTK_POLICY_ALWAYS"); EXT(YsamuruiSgtkYgtkUpolicyUautomatic,"samurui/gtk","GTK_POLICY_AUTOMATIC"); EXT(YsamuruiSgtkYgtkUpolicyUnever,"samurui/gtk","GTK_POLICY_NEVER"); EXT(YsamuruiSgtkYgtkUposUleft,"samurui/gtk","GTK_POS_LEFT"); EXT(YsamuruiSgtkYgtkUposUright,"samurui/gtk","GTK_POS_RIGHT"); EXT(YsamuruiSgtkYgtkUposUtop,"samurui/gtk","GTK_POS_TOP"); EXT(YsamuruiSgtkYgtkUposUbottom,"samurui/gtk","GTK_POS_BOTTOM"); EXT(YsamuruiSgtkYgtkUpreviewUcolor,"samurui/gtk","GTK_PREVIEW_COLOR"); EXT(YsamuruiSgtkYgtkUpreviewUgrayscale,"samurui/gtk","GTK_PREVIEW_GRAYSCALE"); EXT(YsamuruiSgtkYgtkUreliefUnormal,"samurui/gtk","GTK_RELIEF_NORMAL"); EXT(YsamuruiSgtkYgtkUreliefUhalf,"samurui/gtk","GTK_RELIEF_HALF"); EXT(YsamuruiSgtkYgtkUreliefUnone,"samurui/gtk","GTK_RELIEF_NONE"); EXT(YsamuruiSgtkYgtkUresizeUparent,"samurui/gtk","GTK_RESIZE_PARENT"); EXT(YsamuruiSgtkYgtkUresizeUqueue,"samurui/gtk","GTK_RESIZE_QUEUE"); EXT(YsamuruiSgtkYgtkUresizeUimmediate,"samurui/gtk","GTK_RESIZE_IMMEDIATE"); EXT(YsamuruiSgtkYgtkUrunUfirst,"samurui/gtk","GTK_RUN_FIRST"); EXT(YsamuruiSgtkYgtkUrunUlast,"samurui/gtk","GTK_RUN_LAST"); EXT(YsamuruiSgtkYgtkUrunUboth,"samurui/gtk","GTK_RUN_BOTH"); EXT(YsamuruiSgtkYgtkUrunUnoUrecurse,"samurui/gtk","GTK_RUN_NO_RECURSE"); EXT(YsamuruiSgtkYgtkUrunUaction,"samurui/gtk","GTK_RUN_ACTION"); EXT(YsamuruiSgtkYgtkUrunUnoUhooks,"samurui/gtk","GTK_RUN_NO_HOOKS"); EXT(YsamuruiSgtkYgtkUscrollUnone,"samurui/gtk","GTK_SCROLL_NONE"); EXT(YsamuruiSgtkYgtkUscrollUjump,"samurui/gtk","GTK_SCROLL_JUMP"); EXT(YsamuruiSgtkYgtkUscrollUstepUbackward,"samurui/gtk","GTK_SCROLL_STEP_BACKWARD"); EXT(YsamuruiSgtkYgtkUscrollUstepUforward,"samurui/gtk","GTK_SCROLL_STEP_FORWARD"); EXT(YsamuruiSgtkYgtkUscrollUpageUbackward,"samurui/gtk","GTK_SCROLL_PAGE_BACKWARD"); EXT(YsamuruiSgtkYgtkUscrollUpageUforward,"samurui/gtk","GTK_SCROLL_PAGE_FORWARD"); EXT(YsamuruiSgtkYgtkUscrollUstepUup,"samurui/gtk","GTK_SCROLL_STEP_UP"); EXT(YsamuruiSgtkYgtkUscrollUstepUdown,"samurui/gtk","GTK_SCROLL_STEP_DOWN"); EXT(YsamuruiSgtkYgtkUscrollUpageUup,"samurui/gtk","GTK_SCROLL_PAGE_UP"); EXT(YsamuruiSgtkYgtkUscrollUpageUdown,"samurui/gtk","GTK_SCROLL_PAGE_DOWN"); EXT(YsamuruiSgtkYgtkUscrollUstepUleft,"samurui/gtk","GTK_SCROLL_STEP_LEFT"); EXT(YsamuruiSgtkYgtkUscrollUstepUright,"samurui/gtk","GTK_SCROLL_STEP_RIGHT"); EXT(YsamuruiSgtkYgtkUscrollUpageUleft,"samurui/gtk","GTK_SCROLL_PAGE_LEFT"); EXT(YsamuruiSgtkYgtkUscrollUpageUright,"samurui/gtk","GTK_SCROLL_PAGE_RIGHT"); EXT(YsamuruiSgtkYgtkUscrollUstart,"samurui/gtk","GTK_SCROLL_START"); EXT(YsamuruiSgtkYgtkUscrollUend,"samurui/gtk","GTK_SCROLL_END"); EXT(YsamuruiSgtkYgtkUselectionUnone,"samurui/gtk","GTK_SELECTION_NONE"); EXT(YsamuruiSgtkYgtkUselectionUsingle,"samurui/gtk","GTK_SELECTION_SINGLE"); EXT(YsamuruiSgtkYgtkUselectionUbrowse,"samurui/gtk","GTK_SELECTION_BROWSE"); EXT(YsamuruiSgtkYgtkUselectionUmultiple,"samurui/gtk","GTK_SELECTION_MULTIPLE"); EXT(YsamuruiSgtkYgtkUselectionUextended,"samurui/gtk","GTK_SELECTION_EXTENDED"); EXT(YsamuruiSgtkYgtkUshadowUnone,"samurui/gtk","GTK_SHADOW_NONE"); EXT(YsamuruiSgtkYgtkUshadowUin,"samurui/gtk","GTK_SHADOW_IN"); EXT(YsamuruiSgtkYgtkUshadowUout,"samurui/gtk","GTK_SHADOW_OUT"); EXT(YsamuruiSgtkYgtkUshadowUetchedUin,"samurui/gtk","GTK_SHADOW_ETCHED_IN"); EXT(YsamuruiSgtkYgtkUshadowUetchedUout,"samurui/gtk","GTK_SHADOW_ETCHED_OUT"); EXT(YsamuruiSgtkYgtkUstateUnormal,"samurui/gtk","GTK_STATE_NORMAL"); EXT(YsamuruiSgtkYgtkUstateUactive,"samurui/gtk","GTK_STATE_ACTIVE"); EXT(YsamuruiSgtkYgtkUstateUprelight,"samurui/gtk","GTK_STATE_PRELIGHT"); EXT(YsamuruiSgtkYgtkUstateUselected,"samurui/gtk","GTK_STATE_SELECTED"); EXT(YsamuruiSgtkYgtkUstateUinsensitive,"samurui/gtk","GTK_STATE_INSENSITIVE"); EXT(YsamuruiSgtkYgtkUdirectionUleft,"samurui/gtk","GTK_DIRECTION_LEFT"); EXT(YsamuruiSgtkYgtkUdirectionUright,"samurui/gtk","GTK_DIRECTION_RIGHT"); EXT(YsamuruiSgtkYgtkUtopUbottom,"samurui/gtk","GTK_TOP_BOTTOM"); EXT(YsamuruiSgtkYgtkUleftUright,"samurui/gtk","GTK_LEFT_RIGHT"); EXT(YsamuruiSgtkYgtkUtoolbarUicons,"samurui/gtk","GTK_TOOLBAR_ICONS"); EXT(YsamuruiSgtkYgtkUtoolbarUtext,"samurui/gtk","GTK_TOOLBAR_TEXT"); EXT(YsamuruiSgtkYgtkUtoolbarUboth,"samurui/gtk","GTK_TOOLBAR_BOTH"); EXT(YsamuruiSgtkYgtkUtoolbarUbothUhoriz,"samurui/gtk","GTK_TOOLBAR_BOTH_HORIZ"); EXT(YsamuruiSgtkYgtkUupdateUcontinuous,"samurui/gtk","GTK_UPDATE_CONTINUOUS"); EXT(YsamuruiSgtkYgtkUupdateUdiscontinuous,"samurui/gtk","GTK_UPDATE_DISCONTINUOUS"); EXT(YsamuruiSgtkYgtkUupdateUdelayed,"samurui/gtk","GTK_UPDATE_DELAYED"); EXT(YsamuruiSgtkYgtkUvisibilityUnone,"samurui/gtk","GTK_VISIBILITY_NONE"); EXT(YsamuruiSgtkYgtkUvisibilityUpartial,"samurui/gtk","GTK_VISIBILITY_PARTIAL"); EXT(YsamuruiSgtkYgtkUvisibilityUfull,"samurui/gtk","GTK_VISIBILITY_FULL"); EXT(YsamuruiSgtkYgtkUwinUposUnone,"samurui/gtk","GTK_WIN_POS_NONE"); EXT(YsamuruiSgtkYgtkUwinUposUcenter,"samurui/gtk","GTK_WIN_POS_CENTER"); EXT(YsamuruiSgtkYgtkUwinUposUmouse,"samurui/gtk","GTK_WIN_POS_MOUSE"); EXT(YsamuruiSgtkYgtkUwinUposUcenterUalways,"samurui/gtk","GTK_WIN_POS_CENTER_ALWAYS"); EXT(YsamuruiSgtkYgtkUwinUposUcenterUonUparent,"samurui/gtk","GTK_WIN_POS_CENTER_ON_PARENT"); EXT(YsamuruiSgtkYgtkUwindowUtoplevel,"samurui/gtk","GTK_WINDOW_TOPLEVEL"); EXT(YsamuruiSgtkYgtkUwindowUpopup,"samurui/gtk","GTK_WINDOW_POPUP"); EXT(YsamuruiSgtkYgtkUwrapUnone,"samurui/gtk","GTK_WRAP_NONE"); EXT(YsamuruiSgtkYgtkUwrapUchar,"samurui/gtk","GTK_WRAP_CHAR"); EXT(YsamuruiSgtkYgtkUwrapUword,"samurui/gtk","GTK_WRAP_WORD"); EXT(YsamuruiSgtkYgtkUsortUascending,"samurui/gtk","GTK_SORT_ASCENDING"); EXT(YsamuruiSgtkYgtkUsortUdescending,"samurui/gtk","GTK_SORT_DESCENDING"); struct GooCallback { P func; P data; }; struct GooCallback *goo_createCallback(P func, P data) { struct GooCallback *callback; callback = (struct GooCallback *)malloc(sizeof(struct GooCallback)); callback->func = func; callback->data = data; return callback; } void goo_destroyCallback(struct GooCallback *callback) { free(callback); } int magicGtkFunctionCallback(gpointer data) { DEFCREGS(); struct GooCallback *callback = (struct GooCallback *)data; XCALL1(0, callback->func, callback->data); return 1; } void magicGtkCallback(GtkWidget *widget, gpointer data) { DEFCREGS(); struct GooCallback *callback = (struct GooCallback *)data; XCALL1(0, callback->func, callback->data); } void magicGtkCallthrough(GtkWidget *widget, gpointer data) { DEFCREGS(); struct GooCallback *callback = (struct GooCallback *)data; XCALL2(0, callback->func, YPlb((P)widget), callback->data); } void magicEventCallback(GtkWidget *widget, gpointer event, gpointer data) { DEFCREGS(); P _widget, _event; struct GooCallback *callback = (struct GooCallback *)data; _widget = (P)YPlb((P)widget); _event = (P)YPlb((P)event); XCALL3(0, callback->func, callback->data, _widget, _event); } int magicBoolEventCallback(GtkWidget *widget, gpointer event, gpointer data) { DEFCREGS(); P _widget, _event; struct GooCallback *callback = (struct GooCallback *)data; _widget = (P)YPlb((P)widget); _event = (P)YPlb((P)event); return (XCALL3(0, callback->func, callback->data, _widget, _event) == YPtrue); } void *gtk_getGtkFunctionCallback(void) { return magicGtkFunctionCallback; } void *gtk_getGtkCallback(void) { return magicGtkCallback; } void *gtk_getGtkCallthrough(void) { return magicGtkCallthrough; } void *gtk_getEventCallback(void) { return magicEventCallback; } void *gtk_getBoolEventCallback(void) { return magicBoolEventCallback; } #undef gtk_signal_lookup guint gtk_signal_lookup(gchar *name, GType itype) { return g_signal_lookup(name, itype); } #undef gtk_signal_name gchar *gtk_signal_name(guint id) { return g_signal_name(id); } #undef gtk_signal_emit_stop void gtk_signal_emit_stop(gpointer object,guint id) { g_signal_stop_emission(object, id, 0); } #undef gtk_signal_connect gulong gtk_signal_connect(GtkObject *object, gchar *name, GtkSignalFunc func, gpointer data) { return gtk_signal_connect_full((object), (name), (func), 0, (data), 0, 0, 0); } #undef gtk_signal_connect_after gulong gtk_signal_connect_after(GtkObject *object,gchar *name,GtkSignalFunc func,gpointer data) { return gtk_signal_connect_full((object), (name), (func), 0, (data), 0, 0, 1); } #undef gtk_signal_connect_object gulong gtk_signal_connect_object(GtkObject *object,gchar *name,GtkSignalFunc func,gpointer dataobj) { return gtk_signal_connect_full((object), (name), (func), 0, (dataobj), 0, 1, 0); } #undef gtk_signal_connect_object_after gulong gtk_signal_connect_object_after(GtkObject *object,gchar *name,GtkSignalFunc func,gpointer dataobj) { return gtk_signal_connect_full((object), (name), (func), 0, (dataobj), 0, 1, 1); } #undef gtk_signal_disconnect void gtk_signal_disconnect(gpointer object,gulong id) { g_signal_handler_disconnect((object), (id)); } #undef gtk_signal_handler_block void gtk_signal_handler_block(gpointer object,gulong id) { g_signal_handler_block((object), (id)); } #undef gtk_signal_handler_unblock void gtk_signal_handler_unblock(gpointer object,gulong id) { g_signal_handler_unblock((object), (id)); } #undef gtk_signal_disconnect_by_func void gtk_signal_disconnect_by_func(GtkObject *object,GtkSignalFunc func,gpointer data) { gtk_signal_compat_matched((object), (func), (data), G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA, 0); } #undef gtk_signal_disconnect_by_data void gtk_signal_disconnect_by_data(GtkObject *object,gpointer data) { gtk_signal_compat_matched((object), 0, (data), G_SIGNAL_MATCH_DATA, 0); } #undef gtk_signal_handler_block_by_func void gtk_signal_handler_block_by_func(GtkObject *object,GtkSignalFunc func,gpointer data) { gtk_signal_compat_matched((object), (func), (data), G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA, 1); } #undef gtk_signal_handler_block_by_data void gtk_signal_handler_block_by_data(GtkObject *object,gpointer data) { gtk_signal_compat_matched((object), 0, (data), G_SIGNAL_MATCH_DATA, 1); } #undef gtk_signal_handler_unblock_by_func void gtk_signal_handler_unblock_by_func(GtkObject *object,GtkSignalFunc func,gpointer data) { gtk_signal_compat_matched((object), (func), (data), G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA, 2); } #undef gtk_signal_handler_unblock_by_data void gtk_signal_handler_unblock_by_data(GtkObject *object,gpointer data) { gtk_signal_compat_matched((object), 0, (data), G_SIGNAL_MATCH_DATA, 2); } #undef gtk_signal_handler_pending gboolean gtk_signal_handler_pending(GtkObject *object,guint id,gboolean may_be_blocked) { return g_signal_has_handler_pending ((object), (id), 0, (may_be_blocked)); } #undef gtk_signal_handler_pending_by_func gulong gtk_signal_handler_pending_by_func(GtkObject *object,guint signal_id,gboolean may_be_blocked,GtkSignalFunc func,gpointer data) { return (g_signal_handler_find ((object), G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA | ((may_be_blocked) ? 0 : G_SIGNAL_MATCH_UNBLOCKED), (signal_id), 0, 0, (func), (data)) != 0); } EXT(YsamuruiSgtkYgtkUaccelUvisible,"samurui/gtk","GTK_ACCEL_VISIBLE"); EXT(YsamuruiSgtkYgtkUaccelUlocked,"samurui/gtk","GTK_ACCEL_LOCKED"); EXT(YsamuruiSgtkYgtkUaccelUmask,"samurui/gtk","GTK_ACCEL_MASK"); EXT(YsamuruiScoreSgeomYpoint_x, "samurui/core/geom", "point-x"); EXT(YsamuruiScoreSgeomYpoint_y, "samurui/core/geom", "point-y"); EXT(YsamuruiSgtkYgdkUfontUfont,"samurui/gtk","GDK_FONT_FONT"); EXT(YsamuruiSgtkYgdkUfontUfontset,"samurui/gtk","GDK_FONT_FONTSET"); EXT(YsamuruiSgtkYgdkUfilterUcontinue,"samurui/gtk","GDK_FILTER_CONTINUE"); EXT(YsamuruiSgtkYgdkUfilterUtranslate,"samurui/gtk","GDK_FILTER_TRANSLATE"); EXT(YsamuruiSgtkYgdkUfilterUremove,"samurui/gtk","GDK_FILTER_REMOVE"); EXT(YsamuruiSgtkYgdkUnothing,"samurui/gtk","GDK_NOTHING"); EXT(YsamuruiSgtkYgdkUdelete,"samurui/gtk","GDK_DELETE"); EXT(YsamuruiSgtkYgdkUdestroy,"samurui/gtk","GDK_DESTROY"); EXT(YsamuruiSgtkYgdkUexpose,"samurui/gtk","GDK_EXPOSE"); EXT(YsamuruiSgtkYgdkUmotionUnotify,"samurui/gtk","GDK_MOTION_NOTIFY"); EXT(YsamuruiSgtkYgdkUbuttonUpress,"samurui/gtk","GDK_BUTTON_PRESS"); EXT(YsamuruiSgtkYgdkU2buttonUpress,"samurui/gtk","GDK_2BUTTON_PRESS"); EXT(YsamuruiSgtkYgdkU3buttonUpress,"samurui/gtk","GDK_3BUTTON_PRESS"); EXT(YsamuruiSgtkYgdkUbuttonUrelease,"samurui/gtk","GDK_BUTTON_RELEASE"); EXT(YsamuruiSgtkYgdkUkeyUpress,"samurui/gtk","GDK_KEY_PRESS"); EXT(YsamuruiSgtkYgdkUkeyUrelease,"samurui/gtk","GDK_KEY_RELEASE"); EXT(YsamuruiSgtkYgdkUenterUnotify,"samurui/gtk","GDK_ENTER_NOTIFY"); EXT(YsamuruiSgtkYgdkUleaveUnotify,"samurui/gtk","GDK_LEAVE_NOTIFY"); EXT(YsamuruiSgtkYgdkUfocusUchange,"samurui/gtk","GDK_FOCUS_CHANGE"); EXT(YsamuruiSgtkYgdkUconfigure,"samurui/gtk","GDK_CONFIGURE"); EXT(YsamuruiSgtkYgdkUmap,"samurui/gtk","GDK_MAP"); EXT(YsamuruiSgtkYgdkUunmap,"samurui/gtk","GDK_UNMAP"); EXT(YsamuruiSgtkYgdkUpropertyUnotify,"samurui/gtk","GDK_PROPERTY_NOTIFY"); EXT(YsamuruiSgtkYgdkUselectionUclear,"samurui/gtk","GDK_SELECTION_CLEAR"); EXT(YsamuruiSgtkYgdkUselectionUrequest,"samurui/gtk","GDK_SELECTION_REQUEST"); EXT(YsamuruiSgtkYgdkUselectionUnotify,"samurui/gtk","GDK_SELECTION_NOTIFY"); EXT(YsamuruiSgtkYgdkUproximityUin,"samurui/gtk","GDK_PROXIMITY_IN"); EXT(YsamuruiSgtkYgdkUproximityUout,"samurui/gtk","GDK_PROXIMITY_OUT"); EXT(YsamuruiSgtkYgdkUdragUenter,"samurui/gtk","GDK_DRAG_ENTER"); EXT(YsamuruiSgtkYgdkUdragUleave,"samurui/gtk","GDK_DRAG_LEAVE"); EXT(YsamuruiSgtkYgdkUdragUmotion,"samurui/gtk","GDK_DRAG_MOTION"); EXT(YsamuruiSgtkYgdkUdragUstatus,"samurui/gtk","GDK_DRAG_STATUS"); EXT(YsamuruiSgtkYgdkUdropUstart,"samurui/gtk","GDK_DROP_START"); EXT(YsamuruiSgtkYgdkUdropUfinished,"samurui/gtk","GDK_DROP_FINISHED"); EXT(YsamuruiSgtkYgdkUclientUevent,"samurui/gtk","GDK_CLIENT_EVENT"); EXT(YsamuruiSgtkYgdkUvisibilityUnotify,"samurui/gtk","GDK_VISIBILITY_NOTIFY"); EXT(YsamuruiSgtkYgdkUnoUexpose,"samurui/gtk","GDK_NO_EXPOSE"); EXT(YsamuruiSgtkYgdkUscroll,"samurui/gtk","GDK_SCROLL"); EXT(YsamuruiSgtkYgdkUwindowUstate,"samurui/gtk","GDK_WINDOW_STATE"); EXT(YsamuruiSgtkYgdkUsetting,"samurui/gtk","GDK_SETTING"); EXT(YsamuruiSgtkYgdkUexposureUmask,"samurui/gtk","GDK_EXPOSURE_MASK"); EXT(YsamuruiSgtkYgdkUpointerUmotionUmask,"samurui/gtk","GDK_POINTER_MOTION_MASK"); EXT(YsamuruiSgtkYgdkUpointerUmotionUhintUmask,"samurui/gtk","GDK_POINTER_MOTION_HINT_MASK"); EXT(YsamuruiSgtkYgdkUbuttonUmotionUmask,"samurui/gtk","GDK_BUTTON_MOTION_MASK"); EXT(YsamuruiSgtkYgdkUbutton1UmotionUmask,"samurui/gtk","GDK_BUTTON1_MOTION_MASK"); EXT(YsamuruiSgtkYgdkUbutton2UmotionUmask,"samurui/gtk","GDK_BUTTON2_MOTION_MASK"); EXT(YsamuruiSgtkYgdkUbutton3UmotionUmask,"samurui/gtk","GDK_BUTTON3_MOTION_MASK"); EXT(YsamuruiSgtkYgdkUbuttonUpressUmask,"samurui/gtk","GDK_BUTTON_PRESS_MASK"); EXT(YsamuruiSgtkYgdkUbuttonUreleaseUmask,"samurui/gtk","GDK_BUTTON_RELEASE_MASK"); EXT(YsamuruiSgtkYgdkUkeyUpressUmask,"samurui/gtk","GDK_KEY_PRESS_MASK"); EXT(YsamuruiSgtkYgdkUkeyUreleaseUmask,"samurui/gtk","GDK_KEY_RELEASE_MASK"); EXT(YsamuruiSgtkYgdkUenterUnotifyUmask,"samurui/gtk","GDK_ENTER_NOTIFY_MASK"); EXT(YsamuruiSgtkYgdkUleaveUnotifyUmask,"samurui/gtk","GDK_LEAVE_NOTIFY_MASK"); EXT(YsamuruiSgtkYgdkUfocusUchangeUmask,"samurui/gtk","GDK_FOCUS_CHANGE_MASK"); EXT(YsamuruiSgtkYgdkUstructureUmask,"samurui/gtk","GDK_STRUCTURE_MASK"); EXT(YsamuruiSgtkYgdkUpropertyUchangeUmask,"samurui/gtk","GDK_PROPERTY_CHANGE_MASK"); EXT(YsamuruiSgtkYgdkUvisibilityUnotifyUmask,"samurui/gtk","GDK_VISIBILITY_NOTIFY_MASK"); EXT(YsamuruiSgtkYgdkUproximityUinUmask,"samurui/gtk","GDK_PROXIMITY_IN_MASK"); EXT(YsamuruiSgtkYgdkUproximityUoutUmask,"samurui/gtk","GDK_PROXIMITY_OUT_MASK"); EXT(YsamuruiSgtkYgdkUsubstructureUmask,"samurui/gtk","GDK_SUBSTRUCTURE_MASK"); EXT(YsamuruiSgtkYgdkUscrollUmask,"samurui/gtk","GDK_SCROLL_MASK"); EXT(YsamuruiSgtkYgdkUallUeventsUmask,"samurui/gtk","GDK_ALL_EVENTS_MASK"); EXT(YsamuruiSgtkYgdkUvisibilityUunobscured,"samurui/gtk","GDK_VISIBILITY_UNOBSCURED"); EXT(YsamuruiSgtkYgdkUvisibilityUpartial,"samurui/gtk","GDK_VISIBILITY_PARTIAL"); EXT(YsamuruiSgtkYgdkUvisibilityUfullyUobscured,"samurui/gtk","GDK_VISIBILITY_FULLY_OBSCURED"); EXT(YsamuruiSgtkYgdkUscrollUup,"samurui/gtk","GDK_SCROLL_UP"); EXT(YsamuruiSgtkYgdkUscrollUdown,"samurui/gtk","GDK_SCROLL_DOWN"); EXT(YsamuruiSgtkYgdkUscrollUleft,"samurui/gtk","GDK_SCROLL_LEFT"); EXT(YsamuruiSgtkYgdkUscrollUright,"samurui/gtk","GDK_SCROLL_RIGHT"); EXT(YsamuruiSgtkYgdkUnotifyUancestor,"samurui/gtk","GDK_NOTIFY_ANCESTOR"); EXT(YsamuruiSgtkYgdkUnotifyUvirtual,"samurui/gtk","GDK_NOTIFY_VIRTUAL"); EXT(YsamuruiSgtkYgdkUnotifyUinferior,"samurui/gtk","GDK_NOTIFY_INFERIOR"); EXT(YsamuruiSgtkYgdkUnotifyUnonlinear,"samurui/gtk","GDK_NOTIFY_NONLINEAR"); EXT(YsamuruiSgtkYgdkUnotifyUnonlinearUvirtual,"samurui/gtk","GDK_NOTIFY_NONLINEAR_VIRTUAL"); EXT(YsamuruiSgtkYgdkUnotifyUunknown,"samurui/gtk","GDK_NOTIFY_UNKNOWN"); EXT(YsamuruiSgtkYgdkUcrossingUnormal,"samurui/gtk","GDK_CROSSING_NORMAL"); EXT(YsamuruiSgtkYgdkUcrossingUgrab,"samurui/gtk","GDK_CROSSING_GRAB"); EXT(YsamuruiSgtkYgdkUcrossingUungrab,"samurui/gtk","GDK_CROSSING_UNGRAB"); EXT(YsamuruiSgtkYgdkUpropertyUnewUvalue,"samurui/gtk","GDK_PROPERTY_NEW_VALUE"); EXT(YsamuruiSgtkYgdkUpropertyUdelete,"samurui/gtk","GDK_PROPERTY_DELETE"); EXT(YsamuruiSgtkYgdkUwindowUstateUwithdrawn,"samurui/gtk","GDK_WINDOW_STATE_WITHDRAWN"); EXT(YsamuruiSgtkYgdkUwindowUstateUiconified,"samurui/gtk","GDK_WINDOW_STATE_ICONIFIED"); EXT(YsamuruiSgtkYgdkUwindowUstateUmaximized,"samurui/gtk","GDK_WINDOW_STATE_MAXIMIZED"); EXT(YsamuruiSgtkYgdkUwindowUstateUsticky,"samurui/gtk","GDK_WINDOW_STATE_STICKY"); EXT(YsamuruiSgtkYgdkUsettingUactionUnew,"samurui/gtk","GDK_SETTING_ACTION_NEW"); EXT(YsamuruiSgtkYgdkUsettingUactionUchanged,"samurui/gtk","GDK_SETTING_ACTION_CHANGED"); EXT(YsamuruiSgtkYgdkUsettingUactionUdeleted,"samurui/gtk","GDK_SETTING_ACTION_DELETED"); typedef union { char b[20]; short s[10]; long l[5]; } _GdkEventClient_data; EXT(YsamuruiSgtkYgdkUcapUnotUlast,"samurui/gtk","GDK_CAP_NOT_LAST"); EXT(YsamuruiSgtkYgdkUcapUbutt,"samurui/gtk","GDK_CAP_BUTT"); EXT(YsamuruiSgtkYgdkUcapUround,"samurui/gtk","GDK_CAP_ROUND"); EXT(YsamuruiSgtkYgdkUcapUprojecting,"samurui/gtk","GDK_CAP_PROJECTING"); EXT(YsamuruiSgtkYgdkUsolid,"samurui/gtk","GDK_SOLID"); EXT(YsamuruiSgtkYgdkUtiled,"samurui/gtk","GDK_TILED"); EXT(YsamuruiSgtkYgdkUstippled,"samurui/gtk","GDK_STIPPLED"); EXT(YsamuruiSgtkYgdkUopaqueUstippled,"samurui/gtk","GDK_OPAQUE_STIPPLED"); EXT(YsamuruiSgtkYgdkUcopy,"samurui/gtk","GDK_COPY"); EXT(YsamuruiSgtkYgdkUinvert,"samurui/gtk","GDK_INVERT"); EXT(YsamuruiSgtkYgdkUxor,"samurui/gtk","GDK_XOR"); EXT(YsamuruiSgtkYgdkUclear,"samurui/gtk","GDK_CLEAR"); EXT(YsamuruiSgtkYgdkUand,"samurui/gtk","GDK_AND"); EXT(YsamuruiSgtkYgdkUandUreverse,"samurui/gtk","GDK_AND_REVERSE"); EXT(YsamuruiSgtkYgdkUandUinvert,"samurui/gtk","GDK_AND_INVERT"); EXT(YsamuruiSgtkYgdkUnoop,"samurui/gtk","GDK_NOOP"); EXT(YsamuruiSgtkYgdkUor,"samurui/gtk","GDK_OR"); EXT(YsamuruiSgtkYgdkUequiv,"samurui/gtk","GDK_EQUIV"); EXT(YsamuruiSgtkYgdkUorUreverse,"samurui/gtk","GDK_OR_REVERSE"); EXT(YsamuruiSgtkYgdkUcopyUinvert,"samurui/gtk","GDK_COPY_INVERT"); EXT(YsamuruiSgtkYgdkUorUinvert,"samurui/gtk","GDK_OR_INVERT"); EXT(YsamuruiSgtkYgdkUnand,"samurui/gtk","GDK_NAND"); EXT(YsamuruiSgtkYgdkUnor,"samurui/gtk","GDK_NOR"); EXT(YsamuruiSgtkYgdkUset,"samurui/gtk","GDK_SET"); EXT(YsamuruiSgtkYgdkUjoinUmiter,"samurui/gtk","GDK_JOIN_MITER"); EXT(YsamuruiSgtkYgdkUjoinUround,"samurui/gtk","GDK_JOIN_ROUND"); EXT(YsamuruiSgtkYgdkUjoinUbevel,"samurui/gtk","GDK_JOIN_BEVEL"); EXT(YsamuruiSgtkYgdkUlineUsolid,"samurui/gtk","GDK_LINE_SOLID"); EXT(YsamuruiSgtkYgdkUlineUonUoffUdash,"samurui/gtk","GDK_LINE_ON_OFF_DASH"); EXT(YsamuruiSgtkYgdkUlineUdoubleUdash,"samurui/gtk","GDK_LINE_DOUBLE_DASH"); EXT(YsamuruiSgtkYgdkUclipUbyUchildren,"samurui/gtk","GDK_CLIP_BY_CHILDREN"); EXT(YsamuruiSgtkYgdkUincludeUinferiors,"samurui/gtk","GDK_INCLUDE_INFERIORS"); EXT(YsamuruiSgtkYgdkUgcUforeground,"samurui/gtk","GDK_GC_FOREGROUND"); EXT(YsamuruiSgtkYgdkUgcUbackground,"samurui/gtk","GDK_GC_BACKGROUND"); EXT(YsamuruiSgtkYgdkUgcUfont,"samurui/gtk","GDK_GC_FONT"); EXT(YsamuruiSgtkYgdkUgcUfunction,"samurui/gtk","GDK_GC_FUNCTION"); EXT(YsamuruiSgtkYgdkUgcUfill,"samurui/gtk","GDK_GC_FILL"); EXT(YsamuruiSgtkYgdkUgcUtile,"samurui/gtk","GDK_GC_TILE"); EXT(YsamuruiSgtkYgdkUgcUstipple,"samurui/gtk","GDK_GC_STIPPLE"); EXT(YsamuruiSgtkYgdkUgcUclipUmask,"samurui/gtk","GDK_GC_CLIP_MASK"); EXT(YsamuruiSgtkYgdkUgcUsubwindow,"samurui/gtk","GDK_GC_SUBWINDOW"); EXT(YsamuruiSgtkYgdkUgcUtsUxUorigin,"samurui/gtk","GDK_GC_TS_X_ORIGIN"); EXT(YsamuruiSgtkYgdkUgcUtsUyUorigin,"samurui/gtk","GDK_GC_TS_Y_ORIGIN"); EXT(YsamuruiSgtkYgdkUgcUclipUxUorigin,"samurui/gtk","GDK_GC_CLIP_X_ORIGIN"); EXT(YsamuruiSgtkYgdkUgcUclipUyUorigin,"samurui/gtk","GDK_GC_CLIP_Y_ORIGIN"); EXT(YsamuruiSgtkYgdkUgcUexposures,"samurui/gtk","GDK_GC_EXPOSURES"); EXT(YsamuruiSgtkYgdkUgcUlineUwidth,"samurui/gtk","GDK_GC_LINE_WIDTH"); EXT(YsamuruiSgtkYgdkUgcUlineUstyle,"samurui/gtk","GDK_GC_LINE_STYLE"); EXT(YsamuruiSgtkYgdkUgcUcapUstyle,"samurui/gtk","GDK_GC_CAP_STYLE"); EXT(YsamuruiSgtkYgdkUgcUjoinUstyle,"samurui/gtk","GDK_GC_JOIN_STYLE"); EXT(YsamuruiSgtkYgdkUimageUnormal,"samurui/gtk","GDK_IMAGE_NORMAL"); EXT(YsamuruiSgtkYgdkUimageUshared,"samurui/gtk","GDK_IMAGE_SHARED"); EXT(YsamuruiSgtkYgdkUimageUfastest,"samurui/gtk","GDK_IMAGE_FASTEST"); EXT(YsamuruiSgtkYgdkUvisualUstaticUgray,"samurui/gtk","GDK_VISUAL_STATIC_GRAY"); EXT(YsamuruiSgtkYgdkUvisualUgrayscale,"samurui/gtk","GDK_VISUAL_GRAYSCALE"); EXT(YsamuruiSgtkYgdkUvisualUstaticUcolor,"samurui/gtk","GDK_VISUAL_STATIC_COLOR"); EXT(YsamuruiSgtkYgdkUvisualUpseudoUcolor,"samurui/gtk","GDK_VISUAL_PSEUDO_COLOR"); EXT(YsamuruiSgtkYgdkUvisualUtrueUcolor,"samurui/gtk","GDK_VISUAL_TRUE_COLOR"); EXT(YsamuruiSgtkYgdkUvisualUdirectUcolor,"samurui/gtk","GDK_VISUAL_DIRECT_COLOR"); EXT(YsamuruiSgtkYgdkUinputUoutput,"samurui/gtk","GDK_INPUT_OUTPUT"); EXT(YsamuruiSgtkYgdkUinputUonly,"samurui/gtk","GDK_INPUT_ONLY"); EXT(YsamuruiSgtkYgdkUwindowUroot,"samurui/gtk","GDK_WINDOW_ROOT"); EXT(YsamuruiSgtkYgdkUwindowUtoplevel,"samurui/gtk","GDK_WINDOW_TOPLEVEL"); EXT(YsamuruiSgtkYgdkUwindowUchild,"samurui/gtk","GDK_WINDOW_CHILD"); EXT(YsamuruiSgtkYgdkUwindowUdialog,"samurui/gtk","GDK_WINDOW_DIALOG"); EXT(YsamuruiSgtkYgdkUwindowUtemp,"samurui/gtk","GDK_WINDOW_TEMP"); EXT(YsamuruiSgtkYgdkUwindowUforeign,"samurui/gtk","GDK_WINDOW_FOREIGN"); EXT(YsamuruiSgtkYgdkUwaUtitle,"samurui/gtk","GDK_WA_TITLE"); EXT(YsamuruiSgtkYgdkUwaUx,"samurui/gtk","GDK_WA_X"); EXT(YsamuruiSgtkYgdkUwaUy,"samurui/gtk","GDK_WA_Y"); EXT(YsamuruiSgtkYgdkUwaUcursor,"samurui/gtk","GDK_WA_CURSOR"); EXT(YsamuruiSgtkYgdkUwaUcolormap,"samurui/gtk","GDK_WA_COLORMAP"); EXT(YsamuruiSgtkYgdkUwaUvisual,"samurui/gtk","GDK_WA_VISUAL"); EXT(YsamuruiSgtkYgdkUwaUwmclass,"samurui/gtk","GDK_WA_WMCLASS"); EXT(YsamuruiSgtkYgdkUwaUnoredir,"samurui/gtk","GDK_WA_NOREDIR"); EXT(YsamuruiSgtkYgdkUhintUpos,"samurui/gtk","GDK_HINT_POS"); EXT(YsamuruiSgtkYgdkUhintUminUsize,"samurui/gtk","GDK_HINT_MIN_SIZE"); EXT(YsamuruiSgtkYgdkUhintUmaxUsize,"samurui/gtk","GDK_HINT_MAX_SIZE"); EXT(YsamuruiSgtkYgdkUhintUbaseUsize,"samurui/gtk","GDK_HINT_BASE_SIZE"); EXT(YsamuruiSgtkYgdkUhintUaspect,"samurui/gtk","GDK_HINT_ASPECT"); EXT(YsamuruiSgtkYgdkUhintUresizeUinc,"samurui/gtk","GDK_HINT_RESIZE_INC"); EXT(YsamuruiSgtkYgdkUhintUwinUgravity,"samurui/gtk","GDK_HINT_WIN_GRAVITY"); EXT(YsamuruiSgtkYgdkUhintUuserUpos,"samurui/gtk","GDK_HINT_USER_POS"); EXT(YsamuruiSgtkYgdkUhintUuserUsize,"samurui/gtk","GDK_HINT_USER_SIZE"); EXT(YsamuruiSgtkYgdkUwindowUtypeUhintUnormal,"samurui/gtk","GDK_WINDOW_TYPE_HINT_NORMAL"); EXT(YsamuruiSgtkYgdkUwindowUtypeUhintUdialog,"samurui/gtk","GDK_WINDOW_TYPE_HINT_DIALOG"); EXT(YsamuruiSgtkYgdkUwindowUtypeUhintUmenu,"samurui/gtk","GDK_WINDOW_TYPE_HINT_MENU"); EXT(YsamuruiSgtkYgdkUwindowUtypeUhintUtoolbar,"samurui/gtk","GDK_WINDOW_TYPE_HINT_TOOLBAR"); EXT(YsamuruiSgtkYgdkUdecorUall,"samurui/gtk","GDK_DECOR_ALL"); EXT(YsamuruiSgtkYgdkUdecorUborder,"samurui/gtk","GDK_DECOR_BORDER"); EXT(YsamuruiSgtkYgdkUdecorUresizeh,"samurui/gtk","GDK_DECOR_RESIZEH"); EXT(YsamuruiSgtkYgdkUdecorUtitle,"samurui/gtk","GDK_DECOR_TITLE"); EXT(YsamuruiSgtkYgdkUdecorUmenu,"samurui/gtk","GDK_DECOR_MENU"); EXT(YsamuruiSgtkYgdkUdecorUminimize,"samurui/gtk","GDK_DECOR_MINIMIZE"); EXT(YsamuruiSgtkYgdkUdecorUmaximize,"samurui/gtk","GDK_DECOR_MAXIMIZE"); EXT(YsamuruiSgtkYgdkUfuncUall,"samurui/gtk","GDK_FUNC_ALL"); EXT(YsamuruiSgtkYgdkUfuncUresize,"samurui/gtk","GDK_FUNC_RESIZE"); EXT(YsamuruiSgtkYgdkUfuncUmove,"samurui/gtk","GDK_FUNC_MOVE"); EXT(YsamuruiSgtkYgdkUfuncUminimize,"samurui/gtk","GDK_FUNC_MINIMIZE"); EXT(YsamuruiSgtkYgdkUfuncUmaximize,"samurui/gtk","GDK_FUNC_MAXIMIZE"); EXT(YsamuruiSgtkYgdkUfuncUclose,"samurui/gtk","GDK_FUNC_CLOSE"); EXT(YsamuruiSgtkYgdkUgravityUnorthUwest,"samurui/gtk","GDK_GRAVITY_NORTH_WEST"); EXT(YsamuruiSgtkYgdkUgravityUnorth,"samurui/gtk","GDK_GRAVITY_NORTH"); EXT(YsamuruiSgtkYgdkUgravityUnorthUeast,"samurui/gtk","GDK_GRAVITY_NORTH_EAST"); EXT(YsamuruiSgtkYgdkUgravityUwest,"samurui/gtk","GDK_GRAVITY_WEST"); EXT(YsamuruiSgtkYgdkUgravityUcenter,"samurui/gtk","GDK_GRAVITY_CENTER"); EXT(YsamuruiSgtkYgdkUgravityUeast,"samurui/gtk","GDK_GRAVITY_EAST"); EXT(YsamuruiSgtkYgdkUgravityUsouthUwest,"samurui/gtk","GDK_GRAVITY_SOUTH_WEST"); EXT(YsamuruiSgtkYgdkUgravityUsouth,"samurui/gtk","GDK_GRAVITY_SOUTH"); EXT(YsamuruiSgtkYgdkUgravityUsouthUeast,"samurui/gtk","GDK_GRAVITY_SOUTH_EAST"); EXT(YsamuruiSgtkYgdkUgravityUstatic,"samurui/gtk","GDK_GRAVITY_STATIC"); EXT(YsamuruiSgtkYgdkUwindowUedgeUnorthUwest,"samurui/gtk","GDK_WINDOW_EDGE_NORTH_WEST"); EXT(YsamuruiSgtkYgdkUwindowUedgeUnorth,"samurui/gtk","GDK_WINDOW_EDGE_NORTH"); EXT(YsamuruiSgtkYgdkUwindowUedgeUnorthUeast,"samurui/gtk","GDK_WINDOW_EDGE_NORTH_EAST"); EXT(YsamuruiSgtkYgdkUwindowUedgeUwest,"samurui/gtk","GDK_WINDOW_EDGE_WEST"); EXT(YsamuruiSgtkYgdkUwindowUedgeUeast,"samurui/gtk","GDK_WINDOW_EDGE_EAST"); EXT(YsamuruiSgtkYgdkUwindowUedgeUsouthUwest,"samurui/gtk","GDK_WINDOW_EDGE_SOUTH_WEST"); EXT(YsamuruiSgtkYgdkUwindowUedgeUsouth,"samurui/gtk","GDK_WINDOW_EDGE_SOUTH"); EXT(YsamuruiSgtkYgdkUwindowUedgeUsouthUeast,"samurui/gtk","GDK_WINDOW_EDGE_SOUTH_EAST"); EXT(YsamuruiSgtkYgtkUcalendarUshowUheading,"samurui/gtk","GTK_CALENDAR_SHOW_HEADING"); EXT(YsamuruiSgtkYgtkUcalendarUshowUdayUnames,"samurui/gtk","GTK_CALENDAR_SHOW_DAY_NAMES"); EXT(YsamuruiSgtkYgtkUcalendarUnoUmonthUchange,"samurui/gtk","GTK_CALENDAR_NO_MONTH_CHANGE"); EXT(YsamuruiSgtkYgtkUcalendarUshowUweekUnumbers,"samurui/gtk","GTK_CALENDAR_SHOW_WEEK_NUMBERS"); EXT(YsamuruiSgtkYgtkUcalendarUweekUstartUmonday,"samurui/gtk","GTK_CALENDAR_WEEK_START_MONDAY"); EXT(YsamuruiSgtkYgtkUclistUinUdrag,"samurui/gtk","GTK_CLIST_IN_DRAG"); EXT(YsamuruiSgtkYgtkUclistUrowUheightUset,"samurui/gtk","GTK_CLIST_ROW_HEIGHT_SET"); EXT(YsamuruiSgtkYgtkUclistUshowUtitles,"samurui/gtk","GTK_CLIST_SHOW_TITLES"); EXT(YsamuruiSgtkYgtkUclistUaddUmode,"samurui/gtk","GTK_CLIST_ADD_MODE"); EXT(YsamuruiSgtkYgtkUclistUautoUsort,"samurui/gtk","GTK_CLIST_AUTO_SORT"); EXT(YsamuruiSgtkYgtkUclistUautoUresizeUblocked,"samurui/gtk","GTK_CLIST_AUTO_RESIZE_BLOCKED"); EXT(YsamuruiSgtkYgtkUclistUreorderable,"samurui/gtk","GTK_CLIST_REORDERABLE"); EXT(YsamuruiSgtkYgtkUclistUuseUdragUicons,"samurui/gtk","GTK_CLIST_USE_DRAG_ICONS"); EXT(YsamuruiSgtkYgtkUclistUdrawUdragUline,"samurui/gtk","GTK_CLIST_DRAW_DRAG_LINE"); EXT(YsamuruiSgtkYgtkUclistUdrawUdragUrect,"samurui/gtk","GTK_CLIST_DRAW_DRAG_RECT"); EXT(YsamuruiSgtkYgtkUcellUempty,"samurui/gtk","GTK_CELL_EMPTY"); EXT(YsamuruiSgtkYgtkUcellUtext,"samurui/gtk","GTK_CELL_TEXT"); EXT(YsamuruiSgtkYgtkUcellUpixmap,"samurui/gtk","GTK_CELL_PIXMAP"); EXT(YsamuruiSgtkYgtkUcellUpixtext,"samurui/gtk","GTK_CELL_PIXTEXT"); EXT(YsamuruiSgtkYgtkUcellUwidget,"samurui/gtk","GTK_CELL_WIDGET"); EXT(YsamuruiSgtkYgtkUclistUdragUnone,"samurui/gtk","GTK_CLIST_DRAG_NONE"); EXT(YsamuruiSgtkYgtkUclistUdragUbefore,"samurui/gtk","GTK_CLIST_DRAG_BEFORE"); EXT(YsamuruiSgtkYgtkUclistUdragUinto,"samurui/gtk","GTK_CLIST_DRAG_INTO"); EXT(YsamuruiSgtkYgtkUclistUdragUafter,"samurui/gtk","GTK_CLIST_DRAG_AFTER"); EXT(YsamuruiSgtkYgtkUbuttonUignored,"samurui/gtk","GTK_BUTTON_IGNORED"); EXT(YsamuruiSgtkYgtkUbuttonUselects,"samurui/gtk","GTK_BUTTON_SELECTS"); EXT(YsamuruiSgtkYgtkUbuttonUdrags,"samurui/gtk","GTK_BUTTON_DRAGS"); EXT(YsamuruiSgtkYgtkUbuttonUexpands,"samurui/gtk","GTK_BUTTON_EXPANDS"); EXT(YsamuruiSgtkYgtkUctreeUposUbefore,"samurui/gtk","GTK_CTREE_POS_BEFORE"); EXT(YsamuruiSgtkYgtkUctreeUposUasUchild,"samurui/gtk","GTK_CTREE_POS_AS_CHILD"); EXT(YsamuruiSgtkYgtkUctreeUposUafter,"samurui/gtk","GTK_CTREE_POS_AFTER"); EXT(YsamuruiSgtkYgtkUctreeUlinesUnone,"samurui/gtk","GTK_CTREE_LINES_NONE"); EXT(YsamuruiSgtkYgtkUctreeUlinesUsolid,"samurui/gtk","GTK_CTREE_LINES_SOLID"); EXT(YsamuruiSgtkYgtkUctreeUlinesUdotted,"samurui/gtk","GTK_CTREE_LINES_DOTTED"); EXT(YsamuruiSgtkYgtkUctreeUlinesUtabbed,"samurui/gtk","GTK_CTREE_LINES_TABBED"); EXT(YsamuruiSgtkYgtkUctreeUexpanderUnone,"samurui/gtk","GTK_CTREE_EXPANDER_NONE"); EXT(YsamuruiSgtkYgtkUctreeUexpanderUsquare,"samurui/gtk","GTK_CTREE_EXPANDER_SQUARE"); EXT(YsamuruiSgtkYgtkUctreeUexpanderUtriangle,"samurui/gtk","GTK_CTREE_EXPANDER_TRIANGLE"); EXT(YsamuruiSgtkYgtkUctreeUexpanderUcircular,"samurui/gtk","GTK_CTREE_EXPANDER_CIRCULAR"); EXT(YsamuruiSgtkYgtkUctreeUexpansionUexpand,"samurui/gtk","GTK_CTREE_EXPANSION_EXPAND"); EXT(YsamuruiSgtkYgtkUctreeUexpansionUexpandUrecursive,"samurui/gtk","GTK_CTREE_EXPANSION_EXPAND_RECURSIVE"); EXT(YsamuruiSgtkYgtkUctreeUexpansionUcollapse,"samurui/gtk","GTK_CTREE_EXPANSION_COLLAPSE"); EXT(YsamuruiSgtkYgtkUctreeUexpansionUcollapseUrecursive,"samurui/gtk","GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE"); EXT(YsamuruiSgtkYgtkUctreeUexpansionUtoggle,"samurui/gtk","GTK_CTREE_EXPANSION_TOGGLE"); EXT(YsamuruiSgtkYgtkUctreeUexpansionUtoggleUrecursive,"samurui/gtk","GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE"); EXT(YsamuruiSgtkYgtkUdialogUmodal,"samurui/gtk","GTK_DIALOG_MODAL"); EXT(YsamuruiSgtkYgtkUdialogUdestroyUwithUparent,"samurui/gtk","GTK_DIALOG_DESTROY_WITH_PARENT"); EXT(YsamuruiSgtkYgtkUdialogUnoUseparator,"samurui/gtk","GTK_DIALOG_NO_SEPARATOR"); EXT(YsamuruiSgtkYgtkUresponseUnone,"samurui/gtk","GTK_RESPONSE_NONE"); EXT(YsamuruiSgtkYgtkUresponseUreject,"samurui/gtk","GTK_RESPONSE_REJECT"); EXT(YsamuruiSgtkYgtkUresponseUaccept,"samurui/gtk","GTK_RESPONSE_ACCEPT"); EXT(YsamuruiSgtkYgtkUresponseUdeleteUevent,"samurui/gtk","GTK_RESPONSE_DELETE_EVENT"); EXT(YsamuruiSgtkYgtkUresponseUok,"samurui/gtk","GTK_RESPONSE_OK"); EXT(YsamuruiSgtkYgtkUresponseUcancel,"samurui/gtk","GTK_RESPONSE_CANCEL"); EXT(YsamuruiSgtkYgtkUresponseUclose,"samurui/gtk","GTK_RESPONSE_CLOSE"); EXT(YsamuruiSgtkYgtkUresponseUyes,"samurui/gtk","GTK_RESPONSE_YES"); EXT(YsamuruiSgtkYgtkUresponseUno,"samurui/gtk","GTK_RESPONSE_NO"); EXT(YsamuruiSgtkYgtkUresponseUapply,"samurui/gtk","GTK_RESPONSE_APPLY"); EXT(YsamuruiSgtkYgtkUresponseUhelp,"samurui/gtk","GTK_RESPONSE_HELP"); EXT(YsamuruiSgtkYgtkUimageUempty,"samurui/gtk","GTK_IMAGE_EMPTY"); EXT(YsamuruiSgtkYgtkUimageUpixmap,"samurui/gtk","GTK_IMAGE_PIXMAP"); EXT(YsamuruiSgtkYgtkUimageUimage,"samurui/gtk","GTK_IMAGE_IMAGE"); EXT(YsamuruiSgtkYgtkUimageUpixbuf,"samurui/gtk","GTK_IMAGE_PIXBUF"); EXT(YsamuruiSgtkYgtkUimageUstock,"samurui/gtk","GTK_IMAGE_STOCK"); EXT(YsamuruiSgtkYgtkUimageUiconUset,"samurui/gtk","GTK_IMAGE_ICON_SET"); EXT(YsamuruiSgtkYgtkUimageUanimation,"samurui/gtk","GTK_IMAGE_ANIMATION"); void gtk_init_easy(void) { char **argv, **cargv; int argc = 1; argv = malloc(1 * sizeof(char *)); argv[0] = strdup("magic"); cargv = argv; gtk_init(&argc, &cargv); free(argv[0]); free(argv); } EXT(YsamuruiSgtkYgtkUprogressUcontinuous,"samurui/gtk","GTK_PROGRESS_CONTINUOUS"); EXT(YsamuruiSgtkYgtkUprogressUdiscrete,"samurui/gtk","GTK_PROGRESS_DISCRETE"); EXT(YsamuruiSgtkYgtkUprogressUleftUtoUright,"samurui/gtk","GTK_PROGRESS_LEFT_TO_RIGHT"); EXT(YsamuruiSgtkYgtkUprogressUrightUtoUleft,"samurui/gtk","GTK_PROGRESS_RIGHT_TO_LEFT"); EXT(YsamuruiSgtkYgtkUprogressUbottomUtoUtop,"samurui/gtk","GTK_PROGRESS_BOTTOM_TO_TOP"); EXT(YsamuruiSgtkYgtkUprogressUtopUtoUbottom,"samurui/gtk","GTK_PROGRESS_TOP_TO_BOTTOM"); EXT(YsamuruiSgtkYgtkUupdateUalways,"samurui/gtk","GTK_UPDATE_ALWAYS"); EXT(YsamuruiSgtkYgtkUupdateUifUvalid,"samurui/gtk","GTK_UPDATE_IF_VALID"); EXT(YsamuruiSgtkYgtkUspinUstepUforward,"samurui/gtk","GTK_SPIN_STEP_FORWARD"); EXT(YsamuruiSgtkYgtkUspinUstepUbackward,"samurui/gtk","GTK_SPIN_STEP_BACKWARD"); EXT(YsamuruiSgtkYgtkUspinUpageUforward,"samurui/gtk","GTK_SPIN_PAGE_FORWARD"); EXT(YsamuruiSgtkYgtkUspinUpageUbackward,"samurui/gtk","GTK_SPIN_PAGE_BACKWARD"); EXT(YsamuruiSgtkYgtkUspinUhome,"samurui/gtk","GTK_SPIN_HOME"); EXT(YsamuruiSgtkYgtkUspinUend,"samurui/gtk","GTK_SPIN_END"); EXT(YsamuruiSgtkYgtkUspinUuserUdefined,"samurui/gtk","GTK_SPIN_USER_DEFINED"); EXT(YsamuruiSgtkYgtkUtextUwindowUprivate,"samurui/gtk","GTK_TEXT_WINDOW_PRIVATE"); EXT(YsamuruiSgtkYgtkUtextUwindowUwidget,"samurui/gtk","GTK_TEXT_WINDOW_WIDGET"); EXT(YsamuruiSgtkYgtkUtextUwindowUtext,"samurui/gtk","GTK_TEXT_WINDOW_TEXT"); EXT(YsamuruiSgtkYgtkUtextUwindowUleft,"samurui/gtk","GTK_TEXT_WINDOW_LEFT"); EXT(YsamuruiSgtkYgtkUtextUwindowUright,"samurui/gtk","GTK_TEXT_WINDOW_RIGHT"); EXT(YsamuruiSgtkYgtkUtextUwindowUtop,"samurui/gtk","GTK_TEXT_WINDOW_TOP"); EXT(YsamuruiSgtkYgtkUtextUwindowUbottom,"samurui/gtk","GTK_TEXT_WINDOW_BOTTOM"); EXT(YsamuruiSgtkYgtkUtoolbarUchildUspace,"samurui/gtk","GTK_TOOLBAR_CHILD_SPACE"); EXT(YsamuruiSgtkYgtkUtoolbarUchildUbutton,"samurui/gtk","GTK_TOOLBAR_CHILD_BUTTON"); EXT(YsamuruiSgtkYgtkUtoolbarUchildUtogglebutton,"samurui/gtk","GTK_TOOLBAR_CHILD_TOGGLEBUTTON"); EXT(YsamuruiSgtkYgtkUtoolbarUchildUradiobutton,"samurui/gtk","GTK_TOOLBAR_CHILD_RADIOBUTTON"); EXT(YsamuruiSgtkYgtkUtoolbarUchildUwidget,"samurui/gtk","GTK_TOOLBAR_CHILD_WIDGET"); EXT(YsamuruiSgtkYgtkUtoolbarUspaceUempty,"samurui/gtk","GTK_TOOLBAR_SPACE_EMPTY"); EXT(YsamuruiSgtkYgtkUtoolbarUspaceUline,"samurui/gtk","GTK_TOOLBAR_SPACE_LINE"); EXT(YsamuruiSgtkYgtkUtreeUviewUline,"samurui/gtk","GTK_TREE_VIEW_LINE"); EXT(YsamuruiSgtkYgtkUtreeUviewUitem,"samurui/gtk","GTK_TREE_VIEW_ITEM"); EXT(YsamuruiSgtkYgtkUtreeUviewUdropUbefore,"samurui/gtk","GTK_TREE_VIEW_DROP_BEFORE"); EXT(YsamuruiSgtkYgtkUtreeUviewUdropUafter,"samurui/gtk","GTK_TREE_VIEW_DROP_AFTER"); EXT(YsamuruiSgtkYgtkUtreeUviewUdropUintoUorUbefore,"samurui/gtk","GTK_TREE_VIEW_DROP_INTO_OR_BEFORE"); EXT(YsamuruiSgtkYgtkUtreeUviewUdropUintoUorUafter,"samurui/gtk","GTK_TREE_VIEW_DROP_INTO_OR_AFTER"); EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgrowUonly,"samurui/gtk","GTK_TREE_VIEW_COLUMN_GROW_ONLY"); EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUautosize,"samurui/gtk","GTK_TREE_VIEW_COLUMN_AUTOSIZE"); EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUfixed,"samurui/gtk","GTK_TREE_VIEW_COLUMN_FIXED"); #include "treegoo.h" EXT(YsamuruiSgtkYgUsignalUconnectUdata,"samurui/gtk","g_signal_connect_data"); FUNFOR(YsamuruiSgtkYgUsignalUconnectUdata); FUNCODEDEF(YsamuruiSgtkYgUsignalUconnectUdata) { P instance_, detailed_signal_, c_handler_, data_, destroy_data_, connect_flags_; gpointer arg1 ; gchar *arg2 ; GCallback arg3 ; gpointer arg4 ; GClosureNotify arg5 ; int arg6 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(instance_, 0); { arg1 = (gpointer )YPlu(instance_); } ARG(detailed_signal_, 1); { arg2 = (char *)YPsu(detailed_signal_); } ARG(c_handler_, 2); { arg3 = (GCallback )YPlu(c_handler_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } ARG(destroy_data_, 4); { arg5 = (GClosureNotify )YPlu(destroy_data_); } ARG(connect_flags_, 5); { arg6 = (int)YPiu(connect_flags_); } result = (gulong )g_signal_connect_data(arg1,arg2,arg3,arg4,arg5,(GConnectFlags )arg6); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUsignalUconnect,"samurui/gtk","g_signal_connect"); FUNFOR(YsamuruiSgtkYgUsignalUconnect); FUNCODEDEF(YsamuruiSgtkYgUsignalUconnect) { P instance_, detailed_signal_, c_handler_, data_; gpointer arg1 ; gchar *arg2 ; GCallback arg3 ; gpointer arg4 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(instance_, 0); { arg1 = (gpointer )YPlu(instance_); } ARG(detailed_signal_, 1); { arg2 = (char *)YPsu(detailed_signal_); } ARG(c_handler_, 2); { arg3 = (GCallback )YPlu(c_handler_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } result = (gulong )g_signal_connect(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUclassUinstallUproperty,"samurui/gtk","g_object_class_install_property"); FUNFOR(YsamuruiSgtkYgUobjectUclassUinstallUproperty); FUNCODEDEF(YsamuruiSgtkYgUobjectUclassUinstallUproperty) { P oclass_, property_id_, pspec_; GObjectClass *arg1 ; guint arg2 ; GParamSpec *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(oclass_, 0); { arg1 = (GObjectClass *)YPlu(oclass_); } ARG(property_id_, 1); { arg2 = (unsigned)YPiu(property_id_); } ARG(pspec_, 2); { arg3 = (GParamSpec *)YPlu(pspec_); } g_object_class_install_property(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUclassUfindUproperty,"samurui/gtk","g_object_class_find_property"); FUNFOR(YsamuruiSgtkYgUobjectUclassUfindUproperty); FUNCODEDEF(YsamuruiSgtkYgUobjectUclassUfindUproperty) { P oclass_, property_name_; GObjectClass *arg1 ; gchar *arg2 ; GParamSpec *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(oclass_, 0); { arg1 = (GObjectClass *)YPlu(oclass_); } ARG(property_name_, 1); { arg2 = (char *)YPsu(property_name_); } result = (GParamSpec *)g_object_class_find_property(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUclassUlistUproperties,"samurui/gtk","g_object_class_list_properties"); FUNFOR(YsamuruiSgtkYgUobjectUclassUlistUproperties); FUNCODEDEF(YsamuruiSgtkYgUobjectUclassUlistUproperties) { P oclass_, n_properties_; GObjectClass *arg1 ; guint *arg2 ; GParamSpec **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(oclass_, 0); { arg1 = (GObjectClass *)YPlu(oclass_); } ARG(n_properties_, 1); { arg2 = (guint *)YPlu(n_properties_); } result = (GParamSpec **)g_object_class_list_properties(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUnewv,"samurui/gtk","g_object_newv"); FUNFOR(YsamuruiSgtkYgUobjectUnewv); FUNCODEDEF(YsamuruiSgtkYgUobjectUnewv) { P object_type_, n_parameters_, parameters_; GType arg1 ; guint arg2 ; GParameter *arg3 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_type_, 0); { arg1 = (unsigned long)YPiu(object_type_); } ARG(n_parameters_, 1); { arg2 = (unsigned)YPiu(n_parameters_); } ARG(parameters_, 2); { arg3 = (GParameter *)YPlu(parameters_); } result = (gpointer )g_object_newv(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUsetUproperty,"samurui/gtk","g_object_set_property"); FUNFOR(YsamuruiSgtkYgUobjectUsetUproperty); FUNCODEDEF(YsamuruiSgtkYgUobjectUsetUproperty) { P object_, property_name_, value_; GObject *arg1 ; gchar *arg2 ; GValue *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(property_name_, 1); { arg2 = (char *)YPsu(property_name_); } ARG(value_, 2); { arg3 = (GValue *)YPlu(value_); } g_object_set_property(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUgetUproperty,"samurui/gtk","g_object_get_property"); FUNFOR(YsamuruiSgtkYgUobjectUgetUproperty); FUNCODEDEF(YsamuruiSgtkYgUobjectUgetUproperty) { P object_, property_name_, value_; GObject *arg1 ; gchar *arg2 ; GValue *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(property_name_, 1); { arg2 = (char *)YPsu(property_name_); } ARG(value_, 2); { arg3 = (GValue *)YPlu(value_); } g_object_get_property(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUfreezeUnotify,"samurui/gtk","g_object_freeze_notify"); FUNFOR(YsamuruiSgtkYgUobjectUfreezeUnotify); FUNCODEDEF(YsamuruiSgtkYgUobjectUfreezeUnotify) { P object_; GObject *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } g_object_freeze_notify(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUnotify,"samurui/gtk","g_object_notify"); FUNFOR(YsamuruiSgtkYgUobjectUnotify); FUNCODEDEF(YsamuruiSgtkYgUobjectUnotify) { P object_, property_name_; GObject *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(property_name_, 1); { arg2 = (char *)YPsu(property_name_); } g_object_notify(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUthawUnotify,"samurui/gtk","g_object_thaw_notify"); FUNFOR(YsamuruiSgtkYgUobjectUthawUnotify); FUNCODEDEF(YsamuruiSgtkYgUobjectUthawUnotify) { P object_; GObject *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } g_object_thaw_notify(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUref,"samurui/gtk","g_object_ref"); FUNFOR(YsamuruiSgtkYgUobjectUref); FUNCODEDEF(YsamuruiSgtkYgUobjectUref) { P object_; gpointer arg1 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (gpointer )YPlu(object_); } result = (gpointer )g_object_ref(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUunref,"samurui/gtk","g_object_unref"); FUNFOR(YsamuruiSgtkYgUobjectUunref); FUNCODEDEF(YsamuruiSgtkYgUobjectUunref) { P object_; gpointer arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (gpointer )YPlu(object_); } g_object_unref(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUaddUweakUpointer,"samurui/gtk","g_object_add_weak_pointer"); FUNFOR(YsamuruiSgtkYgUobjectUaddUweakUpointer); FUNCODEDEF(YsamuruiSgtkYgUobjectUaddUweakUpointer) { P object_, weak_pointer_location_; GObject *arg1 ; gpointer *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(weak_pointer_location_, 1); { arg2 = (gpointer *)YPlu(weak_pointer_location_); } g_object_add_weak_pointer(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUremoveUweakUpointer,"samurui/gtk","g_object_remove_weak_pointer"); FUNFOR(YsamuruiSgtkYgUobjectUremoveUweakUpointer); FUNCODEDEF(YsamuruiSgtkYgUobjectUremoveUweakUpointer) { P object_, weak_pointer_location_; GObject *arg1 ; gpointer *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(weak_pointer_location_, 1); { arg2 = (gpointer *)YPlu(weak_pointer_location_); } g_object_remove_weak_pointer(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUgetUdata,"samurui/gtk","g_object_get_data"); FUNFOR(YsamuruiSgtkYgUobjectUgetUdata); FUNCODEDEF(YsamuruiSgtkYgUobjectUgetUdata) { P object_, key_; GObject *arg1 ; gchar *arg2 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(key_, 1); { arg2 = (char *)YPsu(key_); } result = (gpointer )g_object_get_data(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUsetUdata,"samurui/gtk","g_object_set_data"); FUNFOR(YsamuruiSgtkYgUobjectUsetUdata); FUNCODEDEF(YsamuruiSgtkYgUobjectUsetUdata) { P object_, key_, data_; GObject *arg1 ; gchar *arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(key_, 1); { arg2 = (char *)YPsu(key_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } g_object_set_data(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUsetUdataUfull,"samurui/gtk","g_object_set_data_full"); FUNFOR(YsamuruiSgtkYgUobjectUsetUdataUfull); FUNCODEDEF(YsamuruiSgtkYgUobjectUsetUdataUfull) { P object_, key_, data_, destroy_; GObject *arg1 ; gchar *arg2 ; gpointer arg3 ; GDestroyNotify arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(key_, 1); { arg2 = (char *)YPsu(key_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(destroy_, 3); { arg4 = (GDestroyNotify )YPlu(destroy_); } g_object_set_data_full(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUstealUdata,"samurui/gtk","g_object_steal_data"); FUNFOR(YsamuruiSgtkYgUobjectUstealUdata); FUNCODEDEF(YsamuruiSgtkYgUobjectUstealUdata) { P object_, key_; GObject *arg1 ; gchar *arg2 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(key_, 1); { arg2 = (char *)YPsu(key_); } result = (gpointer )g_object_steal_data(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUobjectUwatchUclosure,"samurui/gtk","g_object_watch_closure"); FUNFOR(YsamuruiSgtkYgUobjectUwatchUclosure); FUNCODEDEF(YsamuruiSgtkYgUobjectUwatchUclosure) { P object_, closure_; GObject *arg1 ; GClosure *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(closure_, 1); { arg2 = (GClosure *)YPlu(closure_); } g_object_watch_closure(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUcclosureUnewUobject,"samurui/gtk","g_cclosure_new_object"); FUNFOR(YsamuruiSgtkYgUcclosureUnewUobject); FUNCODEDEF(YsamuruiSgtkYgUcclosureUnewUobject) { P callback_func_, object_; GCallback arg1 ; GObject *arg2 ; GClosure *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(callback_func_, 0); { arg1 = (GCallback )YPlu(callback_func_); } ARG(object_, 1); { arg2 = (GObject *)YPlu(object_); } result = (GClosure *)g_cclosure_new_object(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUcclosureUnewUobjectUswap,"samurui/gtk","g_cclosure_new_object_swap"); FUNFOR(YsamuruiSgtkYgUcclosureUnewUobjectUswap); FUNCODEDEF(YsamuruiSgtkYgUcclosureUnewUobjectUswap) { P callback_func_, object_; GCallback arg1 ; GObject *arg2 ; GClosure *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(callback_func_, 0); { arg1 = (GCallback )YPlu(callback_func_); } ARG(object_, 1); { arg2 = (GObject *)YPlu(object_); } result = (GClosure *)g_cclosure_new_object_swap(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUclosureUnewUobject,"samurui/gtk","g_closure_new_object"); FUNFOR(YsamuruiSgtkYgUclosureUnewUobject); FUNCODEDEF(YsamuruiSgtkYgUclosureUnewUobject) { P sizeof_closure_, object_; guint arg1 ; GObject *arg2 ; GClosure *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(sizeof_closure_, 0); { arg1 = (unsigned)YPiu(sizeof_closure_); } ARG(object_, 1); { arg2 = (GObject *)YPlu(object_); } result = (GClosure *)g_closure_new_object(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUvalueUsetUobject,"samurui/gtk","g_value_set_object"); FUNFOR(YsamuruiSgtkYgUvalueUsetUobject); FUNCODEDEF(YsamuruiSgtkYgUvalueUsetUobject) { P value_, v_object_; GValue *arg1 ; gpointer arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(value_, 0); { arg1 = (GValue *)YPlu(value_); } ARG(v_object_, 1); { arg2 = (gpointer )YPlu(v_object_); } g_value_set_object(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUvalueUgetUobject,"samurui/gtk","g_value_get_object"); FUNFOR(YsamuruiSgtkYgUvalueUgetUobject); FUNCODEDEF(YsamuruiSgtkYgUvalueUgetUobject) { P value_; GValue *arg1 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(value_, 0); { arg1 = (GValue *)YPlu(value_); } result = (gpointer )g_value_get_object(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUvalueUdupUobject,"samurui/gtk","g_value_dup_object"); FUNFOR(YsamuruiSgtkYgUvalueUdupUobject); FUNCODEDEF(YsamuruiSgtkYgUvalueUdupUobject) { P value_; GValue *arg1 ; GObject *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(value_, 0); { arg1 = (GValue *)YPlu(value_); } result = (GObject *)g_value_dup_object(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgUsignalUconnectUobject,"samurui/gtk","g_signal_connect_object"); FUNFOR(YsamuruiSgtkYgUsignalUconnectUobject); FUNCODEDEF(YsamuruiSgtkYgUsignalUconnectUobject) { P instance_, detailed_signal_, c_handler_, gobject_, connect_flags_; gpointer arg1 ; gchar *arg2 ; GCallback arg3 ; gpointer arg4 ; int arg5 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(instance_, 0); { arg1 = (gpointer )YPlu(instance_); } ARG(detailed_signal_, 1); { arg2 = (char *)YPsu(detailed_signal_); } ARG(c_handler_, 2); { arg3 = (GCallback )YPlu(c_handler_); } ARG(gobject_, 3); { arg4 = (gpointer )YPlu(gobject_); } ARG(connect_flags_, 4); { arg5 = (int)YPiu(connect_flags_); } result = (guint )g_signal_connect_object(arg1,arg2,arg3,arg4,(GConnectFlags )arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUxUset,"samurui/gtk","_GdkRectangle_x_set"); FUNFOR(YsamuruiSgtkYUgdkrectangleUxUset); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUxUset) { P self_, x_; struct _GdkRectangle *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } if (arg1) arg1->x = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUxUget,"samurui/gtk","_GdkRectangle_x_get"); FUNFOR(YsamuruiSgtkYUgdkrectangleUxUget); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUxUget) { P self_; struct _GdkRectangle *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } result = (gint ) (arg1->x); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUyUset,"samurui/gtk","_GdkRectangle_y_set"); FUNFOR(YsamuruiSgtkYUgdkrectangleUyUset); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUyUset) { P self_, y_; struct _GdkRectangle *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } ARG(y_, 1); { arg2 = (signed)YPiu(y_); } if (arg1) arg1->y = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUyUget,"samurui/gtk","_GdkRectangle_y_get"); FUNFOR(YsamuruiSgtkYUgdkrectangleUyUget); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUyUget) { P self_; struct _GdkRectangle *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } result = (gint ) (arg1->y); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUwidthUset,"samurui/gtk","_GdkRectangle_width_set"); FUNFOR(YsamuruiSgtkYUgdkrectangleUwidthUset); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUwidthUset) { P self_, width_; struct _GdkRectangle *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } ARG(width_, 1); { arg2 = (signed)YPiu(width_); } if (arg1) arg1->width = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUwidthUget,"samurui/gtk","_GdkRectangle_width_get"); FUNFOR(YsamuruiSgtkYUgdkrectangleUwidthUget); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUwidthUget) { P self_; struct _GdkRectangle *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } result = (gint ) (arg1->width); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUheightUset,"samurui/gtk","_GdkRectangle_height_set"); FUNFOR(YsamuruiSgtkYUgdkrectangleUheightUset); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUheightUset) { P self_, height_; struct _GdkRectangle *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } ARG(height_, 1); { arg2 = (signed)YPiu(height_); } if (arg1) arg1->height = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkrectangleUheightUget,"samurui/gtk","_GdkRectangle_height_get"); FUNFOR(YsamuruiSgtkYUgdkrectangleUheightUget); FUNCODEDEF(YsamuruiSgtkYUgdkrectangleUheightUget) { P self_; struct _GdkRectangle *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } result = (gint ) (arg1->height); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkrectangle,"samurui/gtk","new__GdkRectangle"); FUNFOR(YsamuruiSgtkYnewUUgdkrectangle); FUNCODEDEF(YsamuruiSgtkYnewUUgdkrectangle) { struct _GdkRectangle *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkRectangle *)(struct _GdkRectangle *) calloc(1, sizeof(struct _GdkRectangle)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkrectangle,"samurui/gtk","delete__GdkRectangle"); FUNFOR(YsamuruiSgtkYdeleteUUgdkrectangle); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkrectangle) { P self_; struct _GdkRectangle *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkRectangle *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUfindUcolor,"samurui/gtk","gdk_rgb_find_color"); FUNFOR(YsamuruiSgtkYgdkUrgbUfindUcolor); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUfindUcolor) { P colormap_, color_; GdkColormap *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gdk_rgb_find_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUrgbUimage,"samurui/gtk","gdk_draw_rgb_image"); FUNFOR(YsamuruiSgtkYgdkUdrawUrgbUimage); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUrgbUimage) { P drawable_, gc_, x_, y_, width_, height_, dith_, rgb_buf_, rowstride_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; int arg7 ; guchar *arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(width_, 4); { arg5 = (signed)YPiu(width_); } ARG(height_, 5); { arg6 = (signed)YPiu(height_); } ARG(dith_, 6); { arg7 = (int)YPiu(dith_); } ARG(rgb_buf_, 7); { arg8 = (guchar *)YPlu(rgb_buf_); } ARG(rowstride_, 8); { arg9 = (signed)YPiu(rowstride_); } gdk_draw_rgb_image(arg1,arg2,arg3,arg4,arg5,arg6,(GdkRgbDither )arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUrgbUimageUdithalign,"samurui/gtk","gdk_draw_rgb_image_dithalign"); FUNFOR(YsamuruiSgtkYgdkUdrawUrgbUimageUdithalign); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUrgbUimageUdithalign) { P drawable_, gc_, x_, y_, width_, height_, dith_, rgb_buf_, rowstride_, xdith_, ydith_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; int arg7 ; guchar *arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(width_, 4); { arg5 = (signed)YPiu(width_); } ARG(height_, 5); { arg6 = (signed)YPiu(height_); } ARG(dith_, 6); { arg7 = (int)YPiu(dith_); } ARG(rgb_buf_, 7); { arg8 = (guchar *)YPlu(rgb_buf_); } ARG(rowstride_, 8); { arg9 = (signed)YPiu(rowstride_); } ARG(xdith_, 9); { arg10 = (signed)YPiu(xdith_); } ARG(ydith_, 10); { arg11 = (signed)YPiu(ydith_); } gdk_draw_rgb_image_dithalign(arg1,arg2,arg3,arg4,arg5,arg6,(GdkRgbDither )arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUrgbU32Uimage,"samurui/gtk","gdk_draw_rgb_32_image"); FUNFOR(YsamuruiSgtkYgdkUdrawUrgbU32Uimage); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUrgbU32Uimage) { P drawable_, gc_, x_, y_, width_, height_, dith_, buf_, rowstride_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; int arg7 ; guchar *arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(width_, 4); { arg5 = (signed)YPiu(width_); } ARG(height_, 5); { arg6 = (signed)YPiu(height_); } ARG(dith_, 6); { arg7 = (int)YPiu(dith_); } ARG(buf_, 7); { arg8 = (guchar *)YPlu(buf_); } ARG(rowstride_, 8); { arg9 = (signed)YPiu(rowstride_); } gdk_draw_rgb_32_image(arg1,arg2,arg3,arg4,arg5,arg6,(GdkRgbDither )arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUrgbU32UimageUdithalign,"samurui/gtk","gdk_draw_rgb_32_image_dithalign"); FUNFOR(YsamuruiSgtkYgdkUdrawUrgbU32UimageUdithalign); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUrgbU32UimageUdithalign) { P drawable_, gc_, x_, y_, width_, height_, dith_, buf_, rowstride_, xdith_, ydith_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; int arg7 ; guchar *arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(width_, 4); { arg5 = (signed)YPiu(width_); } ARG(height_, 5); { arg6 = (signed)YPiu(height_); } ARG(dith_, 6); { arg7 = (int)YPiu(dith_); } ARG(buf_, 7); { arg8 = (guchar *)YPlu(buf_); } ARG(rowstride_, 8); { arg9 = (signed)YPiu(rowstride_); } ARG(xdith_, 9); { arg10 = (signed)YPiu(xdith_); } ARG(ydith_, 10); { arg11 = (signed)YPiu(ydith_); } gdk_draw_rgb_32_image_dithalign(arg1,arg2,arg3,arg4,arg5,arg6,(GdkRgbDither )arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUgrayUimage,"samurui/gtk","gdk_draw_gray_image"); FUNFOR(YsamuruiSgtkYgdkUdrawUgrayUimage); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUgrayUimage) { P drawable_, gc_, x_, y_, width_, height_, dith_, buf_, rowstride_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; int arg7 ; guchar *arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(width_, 4); { arg5 = (signed)YPiu(width_); } ARG(height_, 5); { arg6 = (signed)YPiu(height_); } ARG(dith_, 6); { arg7 = (int)YPiu(dith_); } ARG(buf_, 7); { arg8 = (guchar *)YPlu(buf_); } ARG(rowstride_, 8); { arg9 = (signed)YPiu(rowstride_); } gdk_draw_gray_image(arg1,arg2,arg3,arg4,arg5,arg6,(GdkRgbDither )arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUindexedUimage,"samurui/gtk","gdk_draw_indexed_image"); FUNFOR(YsamuruiSgtkYgdkUdrawUindexedUimage); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUindexedUimage) { P drawable_, gc_, x_, y_, width_, height_, dith_, buf_, rowstride_, cmap_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; int arg7 ; guchar *arg8 ; gint arg9 ; GdkRgbCmap *arg10 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(width_, 4); { arg5 = (signed)YPiu(width_); } ARG(height_, 5); { arg6 = (signed)YPiu(height_); } ARG(dith_, 6); { arg7 = (int)YPiu(dith_); } ARG(buf_, 7); { arg8 = (guchar *)YPlu(buf_); } ARG(rowstride_, 8); { arg9 = (signed)YPiu(rowstride_); } ARG(cmap_, 9); { arg10 = (GdkRgbCmap *)YPlu(cmap_); } gdk_draw_indexed_image(arg1,arg2,arg3,arg4,arg5,arg6,(GdkRgbDither )arg7,arg8,arg9,arg10); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUcmapUnew,"samurui/gtk","gdk_rgb_cmap_new"); FUNFOR(YsamuruiSgtkYgdkUrgbUcmapUnew); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUcmapUnew) { P colors_, n_colors_; guint32 *arg1 ; gint arg2 ; GdkRgbCmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colors_, 0); { arg1 = (guint32 *)YPlu(colors_); } ARG(n_colors_, 1); { arg2 = (signed)YPiu(n_colors_); } result = (GdkRgbCmap *)gdk_rgb_cmap_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUcmapUfree,"samurui/gtk","gdk_rgb_cmap_free"); FUNFOR(YsamuruiSgtkYgdkUrgbUcmapUfree); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUcmapUfree) { P cmap_; GdkRgbCmap *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(cmap_, 0); { arg1 = (GdkRgbCmap *)YPlu(cmap_); } gdk_rgb_cmap_free(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUditherable,"samurui/gtk","gdk_rgb_ditherable"); FUNFOR(YsamuruiSgtkYgdkUrgbUditherable); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUditherable) { gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gboolean )gdk_rgb_ditherable(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUsetUverbose,"samurui/gtk","gdk_rgb_set_verbose"); FUNFOR(YsamuruiSgtkYgdkUrgbUsetUverbose); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUsetUverbose) { P verbose_; gboolean arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(verbose_, 0); { arg1 = (signed)YPiu(verbose_); } gdk_rgb_set_verbose(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUsetUinstall,"samurui/gtk","gdk_rgb_set_install"); FUNFOR(YsamuruiSgtkYgdkUrgbUsetUinstall); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUsetUinstall) { P install_; gboolean arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(install_, 0); { arg1 = (signed)YPiu(install_); } gdk_rgb_set_install(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUsetUminUcolors,"samurui/gtk","gdk_rgb_set_min_colors"); FUNFOR(YsamuruiSgtkYgdkUrgbUsetUminUcolors); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUsetUminUcolors) { P min_colors_; gint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(min_colors_, 0); { arg1 = (signed)YPiu(min_colors_); } gdk_rgb_set_min_colors(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUgetUcolormap,"samurui/gtk","gdk_rgb_get_colormap"); FUNFOR(YsamuruiSgtkYgdkUrgbUgetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUgetUcolormap) { GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkColormap *)gdk_rgb_get_colormap(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrgbUgetUvisual,"samurui/gtk","gdk_rgb_get_visual"); FUNFOR(YsamuruiSgtkYgdkUrgbUgetUvisual); FUNCODEDEF(YsamuruiSgtkYgdkUrgbUgetUvisual) { GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkVisual *)gdk_rgb_get_visual(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUgetUtype,"samurui/gtk","gdk_device_get_type"); FUNFOR(YsamuruiSgtkYgdkUdeviceUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_device_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdevicesUlist,"samurui/gtk","gdk_devices_list"); FUNFOR(YsamuruiSgtkYgdkUdevicesUlist); FUNCODEDEF(YsamuruiSgtkYgdkUdevicesUlist) { GList *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GList *)gdk_devices_list(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUsetUsource,"samurui/gtk","gdk_device_set_source"); FUNFOR(YsamuruiSgtkYgdkUdeviceUsetUsource); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUsetUsource) { P device_, source_; GdkDevice *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(source_, 1); { arg2 = (int)YPiu(source_); } gdk_device_set_source(arg1,(GdkInputSource )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUsetUmode,"samurui/gtk","gdk_device_set_mode"); FUNFOR(YsamuruiSgtkYgdkUdeviceUsetUmode); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUsetUmode) { P device_, mode_; GdkDevice *arg1 ; int arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } result = (gboolean )gdk_device_set_mode(arg1,(GdkInputMode )arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUsetUkey,"samurui/gtk","gdk_device_set_key"); FUNFOR(YsamuruiSgtkYgdkUdeviceUsetUkey); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUsetUkey) { P device_, index_, keyval_, modifiers_; GdkDevice *arg1 ; guint arg2 ; guint arg3 ; int arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(index_, 1); { arg2 = (unsigned)YPiu(index_); } ARG(keyval_, 2); { arg3 = (unsigned)YPiu(keyval_); } ARG(modifiers_, 3); { arg4 = (int)YPiu(modifiers_); } gdk_device_set_key(arg1,arg2,arg3,(GdkModifierType )arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUsetUaxisUuse,"samurui/gtk","gdk_device_set_axis_use"); FUNFOR(YsamuruiSgtkYgdkUdeviceUsetUaxisUuse); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUsetUaxisUuse) { P device_, index_, use_; GdkDevice *arg1 ; guint arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(index_, 1); { arg2 = (unsigned)YPiu(index_); } ARG(use_, 2); { arg3 = (int)YPiu(use_); } gdk_device_set_axis_use(arg1,arg2,(GdkAxisUse )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUgetUstate,"samurui/gtk","gdk_device_get_state"); FUNFOR(YsamuruiSgtkYgdkUdeviceUgetUstate); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUgetUstate) { P device_, window_, axes_, mask_; GdkDevice *arg1 ; GdkWindow *arg2 ; gdouble *arg3 ; GdkModifierType *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(axes_, 2); { arg3 = (gdouble *)YPlu(axes_); } ARG(mask_, 3); { arg4 = (GdkModifierType *)YPlu(mask_); } gdk_device_get_state(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUgetUhistory,"samurui/gtk","gdk_device_get_history"); FUNFOR(YsamuruiSgtkYgdkUdeviceUgetUhistory); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUgetUhistory) { P device_, window_, start_, stop_, events_, n_events_; GdkDevice *arg1 ; GdkWindow *arg2 ; guint32 arg3 ; guint32 arg4 ; GdkTimeCoord ***arg5 ; gint *arg6 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(start_, 2); { arg3 = (unsigned)YPiu(start_); } ARG(stop_, 3); { arg4 = (unsigned)YPiu(stop_); } ARG(events_, 4); { arg5 = (GdkTimeCoord ***)YPlu(events_); } ARG(n_events_, 5); { arg6 = (gint *)YPlu(n_events_); } result = (gboolean )gdk_device_get_history(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUfreeUhistory,"samurui/gtk","gdk_device_free_history"); FUNFOR(YsamuruiSgtkYgdkUdeviceUfreeUhistory); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUfreeUhistory) { P events_, n_events_; GdkTimeCoord **arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(events_, 0); { arg1 = (GdkTimeCoord **)YPlu(events_); } ARG(n_events_, 1); { arg2 = (signed)YPiu(n_events_); } gdk_device_free_history(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUgetUaxis,"samurui/gtk","gdk_device_get_axis"); FUNFOR(YsamuruiSgtkYgdkUdeviceUgetUaxis); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUgetUaxis) { P device_, axes_, use_, value_; GdkDevice *arg1 ; gdouble *arg2 ; int arg3 ; gdouble *arg4 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(device_, 0); { arg1 = (GdkDevice *)YPlu(device_); } ARG(axes_, 1); { arg2 = (gdouble *)YPlu(axes_); } ARG(use_, 2); { arg3 = (int)YPiu(use_); } ARG(value_, 3); { arg4 = (gdouble *)YPlu(value_); } result = (gboolean )gdk_device_get_axis(arg1,arg2,(GdkAxisUse )arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUinputUsetUextensionUevents,"samurui/gtk","gdk_input_set_extension_events"); FUNFOR(YsamuruiSgtkYgdkUinputUsetUextensionUevents); FUNCODEDEF(YsamuruiSgtkYgdkUinputUsetUextensionUevents) { P window_, mask_, mode_; GdkWindow *arg1 ; gint arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(mask_, 1); { arg2 = (signed)YPiu(mask_); } ARG(mode_, 2); { arg3 = (int)YPiu(mode_); } gdk_input_set_extension_events(arg1,arg2,(GdkExtensionMode )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdeviceUgetUcoreUpointer,"samurui/gtk","gdk_device_get_core_pointer"); FUNFOR(YsamuruiSgtkYgdkUdeviceUgetUcoreUpointer); FUNCODEDEF(YsamuruiSgtkYgdkUdeviceUgetUcoreUpointer) { GdkDevice *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkDevice *)gdk_device_get_core_pointer(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgooUcreatecallback,"samurui/gtk","goo_createCallback"); FUNFOR(YsamuruiSgtkYgooUcreatecallback); FUNCODEDEF(YsamuruiSgtkYgooUcreatecallback) { P func_, data_; P arg1 ; P arg2 ; struct GooCallback *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(func_, 0); { arg1 = func_; } ARG(data_, 1); { arg2 = data_; } result = (struct GooCallback *)goo_createCallback(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgooUdestroycallback,"samurui/gtk","goo_destroyCallback"); FUNFOR(YsamuruiSgtkYgooUdestroycallback); FUNCODEDEF(YsamuruiSgtkYgooUdestroycallback) { P callback_; struct GooCallback *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(callback_, 0); { arg1 = (struct GooCallback *)YPlu(callback_); } goo_destroyCallback(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetgtkfunctioncallback,"samurui/gtk","gtk_getGtkFunctionCallback"); FUNFOR(YsamuruiSgtkYgtkUgetgtkfunctioncallback); FUNCODEDEF(YsamuruiSgtkYgtkUgetgtkfunctioncallback) { void *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (void *)gtk_getGtkFunctionCallback(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetgtkcallback,"samurui/gtk","gtk_getGtkCallback"); FUNFOR(YsamuruiSgtkYgtkUgetgtkcallback); FUNCODEDEF(YsamuruiSgtkYgtkUgetgtkcallback) { void *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (void *)gtk_getGtkCallback(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetgtkcallthrough,"samurui/gtk","gtk_getGtkCallthrough"); FUNFOR(YsamuruiSgtkYgtkUgetgtkcallthrough); FUNCODEDEF(YsamuruiSgtkYgtkUgetgtkcallthrough) { void *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (void *)gtk_getGtkCallthrough(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgeteventcallback,"samurui/gtk","gtk_getEventCallback"); FUNFOR(YsamuruiSgtkYgtkUgeteventcallback); FUNCODEDEF(YsamuruiSgtkYgtkUgeteventcallback) { void *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (void *)gtk_getEventCallback(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetbooleventcallback,"samurui/gtk","gtk_getBoolEventCallback"); FUNFOR(YsamuruiSgtkYgtkUgetbooleventcallback); FUNCODEDEF(YsamuruiSgtkYgtkUgetbooleventcallback) { void *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (void *)gtk_getBoolEventCallback(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUlookup,"samurui/gtk","gtk_signal_lookup"); FUNFOR(YsamuruiSgtkYgtkUsignalUlookup); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUlookup) { P name_, itype_; gchar *arg1 ; GType arg2 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(name_, 0); { arg1 = (char *)YPsu(name_); } ARG(itype_, 1); { arg2 = (unsigned long)YPiu(itype_); } result = (guint )gtk_signal_lookup(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUname,"samurui/gtk","gtk_signal_name"); FUNFOR(YsamuruiSgtkYgtkUsignalUname); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUname) { P id_; guint arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(id_, 0); { arg1 = (unsigned)YPiu(id_); } result = (gchar *)gtk_signal_name(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUemitUstop,"samurui/gtk","gtk_signal_emit_stop"); FUNFOR(YsamuruiSgtkYgtkUsignalUemitUstop); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUemitUstop) { P object_, id_; gpointer arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (gpointer )YPlu(object_); } ARG(id_, 1); { arg2 = (unsigned)YPiu(id_); } gtk_signal_emit_stop(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnect,"samurui/gtk","gtk_signal_connect"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnect); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnect) { P object_, name_, func_, data_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; gpointer arg4 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } result = (gulong )gtk_signal_connect(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnectUafter,"samurui/gtk","gtk_signal_connect_after"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnectUafter); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnectUafter) { P object_, name_, func_, data_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; gpointer arg4 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } result = (gulong )gtk_signal_connect_after(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnectUobject,"samurui/gtk","gtk_signal_connect_object"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnectUobject); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnectUobject) { P object_, name_, func_, dataobj_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; gpointer arg4 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(dataobj_, 3); { arg4 = (gpointer )YPlu(dataobj_); } result = (gulong )gtk_signal_connect_object(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnectUobjectUafter,"samurui/gtk","gtk_signal_connect_object_after"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnectUobjectUafter); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnectUobjectUafter) { P object_, name_, func_, dataobj_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; gpointer arg4 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(dataobj_, 3); { arg4 = (gpointer )YPlu(dataobj_); } result = (gulong )gtk_signal_connect_object_after(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUdisconnect,"samurui/gtk","gtk_signal_disconnect"); FUNFOR(YsamuruiSgtkYgtkUsignalUdisconnect); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUdisconnect) { P object_, id_; gpointer arg1 ; gulong arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (gpointer )YPlu(object_); } ARG(id_, 1); { arg2 = (unsigned long)YPiu(id_); } gtk_signal_disconnect(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUblock,"samurui/gtk","gtk_signal_handler_block"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUblock); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUblock) { P object_, id_; gpointer arg1 ; gulong arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (gpointer )YPlu(object_); } ARG(id_, 1); { arg2 = (unsigned long)YPiu(id_); } gtk_signal_handler_block(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUunblock,"samurui/gtk","gtk_signal_handler_unblock"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUunblock); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUunblock) { P object_, id_; gpointer arg1 ; gulong arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (gpointer )YPlu(object_); } ARG(id_, 1); { arg2 = (unsigned long)YPiu(id_); } gtk_signal_handler_unblock(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUdisconnectUbyUfunc,"samurui/gtk","gtk_signal_disconnect_by_func"); FUNFOR(YsamuruiSgtkYgtkUsignalUdisconnectUbyUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUdisconnectUbyUfunc) { P object_, func_, data_; GtkObject *arg1 ; GtkSignalFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(func_, 1); { arg2 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gtk_signal_disconnect_by_func(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUdisconnectUbyUdata,"samurui/gtk","gtk_signal_disconnect_by_data"); FUNFOR(YsamuruiSgtkYgtkUsignalUdisconnectUbyUdata); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUdisconnectUbyUdata) { P object_, data_; GtkObject *arg1 ; gpointer arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } gtk_signal_disconnect_by_data(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUfunc,"samurui/gtk","gtk_signal_handler_block_by_func"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUfunc) { P object_, func_, data_; GtkObject *arg1 ; GtkSignalFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(func_, 1); { arg2 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gtk_signal_handler_block_by_func(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUdata,"samurui/gtk","gtk_signal_handler_block_by_data"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUdata); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUdata) { P object_, data_; GtkObject *arg1 ; gpointer arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } gtk_signal_handler_block_by_data(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUfunc,"samurui/gtk","gtk_signal_handler_unblock_by_func"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUfunc) { P object_, func_, data_; GtkObject *arg1 ; GtkSignalFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(func_, 1); { arg2 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gtk_signal_handler_unblock_by_func(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUdata,"samurui/gtk","gtk_signal_handler_unblock_by_data"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUdata); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUdata) { P object_, data_; GtkObject *arg1 ; gpointer arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } gtk_signal_handler_unblock_by_data(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUpending,"samurui/gtk","gtk_signal_handler_pending"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUpending); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUpending) { P object_, id_, may_be_blocked_; GtkObject *arg1 ; guint arg2 ; gboolean arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(id_, 1); { arg2 = (unsigned)YPiu(id_); } ARG(may_be_blocked_, 2); { arg3 = (signed)YPiu(may_be_blocked_); } result = (gboolean )gtk_signal_handler_pending(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUhandlerUpendingUbyUfunc,"samurui/gtk","gtk_signal_handler_pending_by_func"); FUNFOR(YsamuruiSgtkYgtkUsignalUhandlerUpendingUbyUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUhandlerUpendingUbyUfunc) { P object_, signal_id_, may_be_blocked_, func_, data_; GtkObject *arg1 ; guint arg2 ; gboolean arg3 ; GtkSignalFunc arg4 ; gpointer arg5 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(signal_id_, 1); { arg2 = (unsigned)YPiu(signal_id_); } ARG(may_be_blocked_, 2); { arg3 = (signed)YPiu(may_be_blocked_); } ARG(func_, 3); { arg4 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 4); { arg5 = (gpointer )YPlu(data_); } result = (gulong )gtk_signal_handler_pending_by_func(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUnewv,"samurui/gtk","gtk_signal_newv"); FUNFOR(YsamuruiSgtkYgtkUsignalUnewv); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUnewv) { P name_, signal_flags_, object_type_, function_offset_, marshaller_, return_val_, n_args_, args_; gchar *arg1 ; int arg2 ; GtkType arg3 ; guint arg4 ; GtkSignalMarshaller arg5 ; GtkType arg6 ; guint arg7 ; GtkType *arg8 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(name_, 0); { arg1 = (char *)YPsu(name_); } ARG(signal_flags_, 1); { arg2 = (int)YPiu(signal_flags_); } ARG(object_type_, 2); { arg3 = (unsigned long)YPiu(object_type_); } ARG(function_offset_, 3); { arg4 = (unsigned)YPiu(function_offset_); } ARG(marshaller_, 4); { arg5 = (GtkSignalMarshaller )YPlu(marshaller_); } ARG(return_val_, 5); { arg6 = (unsigned long)YPiu(return_val_); } ARG(n_args_, 6); { arg7 = (unsigned)YPiu(n_args_); } ARG(args_, 7); { arg8 = (GtkType *)YPlu(args_); } result = (guint )gtk_signal_newv(arg1,(GtkSignalRunType )arg2,arg3,arg4,arg5,arg6,arg7,arg8); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUemitUstopUbyUname,"samurui/gtk","gtk_signal_emit_stop_by_name"); FUNFOR(YsamuruiSgtkYgtkUsignalUemitUstopUbyUname); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUemitUstopUbyUname) { P object_, name_; GtkObject *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } gtk_signal_emit_stop_by_name(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnectUobjectUwhileUalive,"samurui/gtk","gtk_signal_connect_object_while_alive"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnectUobjectUwhileUalive); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnectUobjectUwhileUalive) { P object_, signal_, func_, alive_object_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; GtkObject *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(signal_, 1); { arg2 = (char *)YPsu(signal_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(alive_object_, 3); { arg4 = (GtkObject *)YPlu(alive_object_); } gtk_signal_connect_object_while_alive(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnectUwhileUalive,"samurui/gtk","gtk_signal_connect_while_alive"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnectUwhileUalive); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnectUwhileUalive) { P object_, signal_, func_, func_data_, alive_object_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; gpointer arg4 ; GtkObject *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(signal_, 1); { arg2 = (char *)YPsu(signal_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(func_data_, 3); { arg4 = (gpointer )YPlu(func_data_); } ARG(alive_object_, 4); { arg5 = (GtkObject *)YPlu(alive_object_); } gtk_signal_connect_while_alive(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUconnectUfull,"samurui/gtk","gtk_signal_connect_full"); FUNFOR(YsamuruiSgtkYgtkUsignalUconnectUfull); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUconnectUfull) { P object_, name_, func_, unsupported_, data_, destroy_func_, object_signal_, after_; GtkObject *arg1 ; gchar *arg2 ; GtkSignalFunc arg3 ; GtkCallbackMarshal arg4 ; gpointer arg5 ; GtkDestroyNotify arg6 ; gint arg7 ; gint arg8 ; gulong result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(func_, 2); { arg3 = (GtkSignalFunc )YPlu(func_); } ARG(unsupported_, 3); { arg4 = (GtkCallbackMarshal )YPlu(unsupported_); } ARG(data_, 4); { arg5 = (gpointer )YPlu(data_); } ARG(destroy_func_, 5); { arg6 = (GtkDestroyNotify )YPlu(destroy_func_); } ARG(object_signal_, 6); { arg7 = (signed)YPiu(object_signal_); } ARG(after_, 7); { arg8 = (signed)YPiu(after_); } result = (gulong )gtk_signal_connect_full(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUemitv,"samurui/gtk","gtk_signal_emitv"); FUNFOR(YsamuruiSgtkYgtkUsignalUemitv); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUemitv) { P object_, signal_id_, args_; GtkObject *arg1 ; guint arg2 ; GtkArg *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(signal_id_, 1); { arg2 = (unsigned)YPiu(signal_id_); } ARG(args_, 2); { arg3 = (GtkArg *)YPlu(args_); } gtk_signal_emitv(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUemitvUbyUname,"samurui/gtk","gtk_signal_emitv_by_name"); FUNFOR(YsamuruiSgtkYgtkUsignalUemitvUbyUname); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUemitvUbyUname) { P object_, name_, args_; GtkObject *arg1 ; gchar *arg2 ; GtkArg *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(args_, 2); { arg3 = (GtkArg *)YPlu(args_); } gtk_signal_emitv_by_name(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsignalUcompatUmatched,"samurui/gtk","gtk_signal_compat_matched"); FUNFOR(YsamuruiSgtkYgtkUsignalUcompatUmatched); FUNCODEDEF(YsamuruiSgtkYgtkUsignalUcompatUmatched) { P object_, func_, data_, match_, action_; GtkObject *arg1 ; GtkSignalFunc arg2 ; gpointer arg3 ; GSignalMatchType arg4 ; guint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GtkObject *)YPlu(object_); } ARG(func_, 1); { arg2 = (GtkSignalFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(match_, 3); { arg4 = (unsigned long)YPiu(match_); } ARG(action_, 4); { arg5 = (unsigned)YPiu(action_); } gtk_signal_compat_matched(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUgetUtype,"samurui/gtk","gtk_accel_group_get_type"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gtk_accel_group_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUnew,"samurui/gtk","gtk_accel_group_new"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUnew); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUnew) { GtkAccelGroup *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkAccelGroup *)gtk_accel_group_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUlock,"samurui/gtk","gtk_accel_group_lock"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUlock); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUlock) { P accel_group_; GtkAccelGroup *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } gtk_accel_group_lock(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUunlock,"samurui/gtk","gtk_accel_group_unlock"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUunlock); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUunlock) { P accel_group_; GtkAccelGroup *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } gtk_accel_group_unlock(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUconnect,"samurui/gtk","gtk_accel_group_connect"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUconnect); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUconnect) { P accel_group_, accel_key_, accel_mods_, accel_flags_, closure_; GtkAccelGroup *arg1 ; guint arg2 ; int arg3 ; int arg4 ; GClosure *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(accel_key_, 1); { arg2 = (unsigned)YPiu(accel_key_); } ARG(accel_mods_, 2); { arg3 = (int)YPiu(accel_mods_); } ARG(accel_flags_, 3); { arg4 = (int)YPiu(accel_flags_); } ARG(closure_, 4); { arg5 = (GClosure *)YPlu(closure_); } gtk_accel_group_connect(arg1,arg2,(GdkModifierType )arg3,(GtkAccelFlags )arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUconnectUbyUpath,"samurui/gtk","gtk_accel_group_connect_by_path"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUconnectUbyUpath); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUconnectUbyUpath) { P accel_group_, accel_path_, closure_; GtkAccelGroup *arg1 ; gchar *arg2 ; GClosure *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(accel_path_, 1); { arg2 = (char *)YPsu(accel_path_); } ARG(closure_, 2); { arg3 = (GClosure *)YPlu(closure_); } gtk_accel_group_connect_by_path(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUdisconnect,"samurui/gtk","gtk_accel_group_disconnect"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUdisconnect); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUdisconnect) { P accel_group_, closure_; GtkAccelGroup *arg1 ; GClosure *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(closure_, 1); { arg2 = (GClosure *)YPlu(closure_); } result = (gboolean )gtk_accel_group_disconnect(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUdisconnectUkey,"samurui/gtk","gtk_accel_group_disconnect_key"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUdisconnectUkey); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUdisconnectUkey) { P accel_group_, accel_key_, accel_mods_; GtkAccelGroup *arg1 ; guint arg2 ; int arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(accel_key_, 1); { arg2 = (unsigned)YPiu(accel_key_); } ARG(accel_mods_, 2); { arg3 = (int)YPiu(accel_mods_); } result = (gboolean )gtk_accel_group_disconnect_key(arg1,arg2,(GdkModifierType )arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkUaccelUgroupUattach,"samurui/gtk","_gtk_accel_group_attach"); FUNFOR(YsamuruiSgtkYUgtkUaccelUgroupUattach); FUNCODEDEF(YsamuruiSgtkYUgtkUaccelUgroupUattach) { P accel_group_, object_; GtkAccelGroup *arg1 ; GObject *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(object_, 1); { arg2 = (GObject *)YPlu(object_); } _gtk_accel_group_attach(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkUaccelUgroupUdetach,"samurui/gtk","_gtk_accel_group_detach"); FUNFOR(YsamuruiSgtkYUgtkUaccelUgroupUdetach); FUNCODEDEF(YsamuruiSgtkYUgtkUaccelUgroupUdetach) { P accel_group_, object_; GtkAccelGroup *arg1 ; GObject *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(object_, 1); { arg2 = (GObject *)YPlu(object_); } _gtk_accel_group_detach(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupsUactivate,"samurui/gtk","gtk_accel_groups_activate"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupsUactivate); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupsUactivate) { P object_, accel_key_, accel_mods_; GObject *arg1 ; guint arg2 ; int arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } ARG(accel_key_, 1); { arg2 = (unsigned)YPiu(accel_key_); } ARG(accel_mods_, 2); { arg3 = (int)YPiu(accel_mods_); } result = (gboolean )gtk_accel_groups_activate(arg1,arg2,(GdkModifierType )arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupsUfromUobject,"samurui/gtk","gtk_accel_groups_from_object"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupsUfromUobject); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupsUfromUobject) { P object_; GObject *arg1 ; GSList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(object_, 0); { arg1 = (GObject *)YPlu(object_); } result = (GSList *)gtk_accel_groups_from_object(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUfind,"samurui/gtk","gtk_accel_group_find"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUfind); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUfind) { P accel_group_, find_func_, data_; GtkAccelGroup *arg1 ; gboolean (*arg2)() ; gpointer arg3 ; GtkAccelKey *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_group_, 0); { arg1 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(find_func_, 1); { arg2 = (gboolean (*)(GtkAccelKey *,GClosure *,gpointer ))YPlu(find_func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } result = (GtkAccelKey *)gtk_accel_group_find(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUgroupUfromUaccelUclosure,"samurui/gtk","gtk_accel_group_from_accel_closure"); FUNFOR(YsamuruiSgtkYgtkUaccelUgroupUfromUaccelUclosure); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUgroupUfromUaccelUclosure) { P closure_; GClosure *arg1 ; GtkAccelGroup *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(closure_, 0); { arg1 = (GClosure *)YPlu(closure_); } result = (GtkAccelGroup *)gtk_accel_group_from_accel_closure(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUacceleratorUvalid,"samurui/gtk","gtk_accelerator_valid"); FUNFOR(YsamuruiSgtkYgtkUacceleratorUvalid); FUNCODEDEF(YsamuruiSgtkYgtkUacceleratorUvalid) { P keyval_, modifiers_; guint arg1 ; int arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(keyval_, 0); { arg1 = (unsigned)YPiu(keyval_); } ARG(modifiers_, 1); { arg2 = (int)YPiu(modifiers_); } result = (gboolean )gtk_accelerator_valid(arg1,(GdkModifierType )arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUacceleratorUparse,"samurui/gtk","gtk_accelerator_parse"); FUNFOR(YsamuruiSgtkYgtkUacceleratorUparse); FUNCODEDEF(YsamuruiSgtkYgtkUacceleratorUparse) { P accelerator_, accelerator_key_, accelerator_mods_; gchar *arg1 ; guint *arg2 ; GdkModifierType *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accelerator_, 0); { arg1 = (char *)YPsu(accelerator_); } ARG(accelerator_key_, 1); { arg2 = (guint *)YPlu(accelerator_key_); } ARG(accelerator_mods_, 2); { arg3 = (GdkModifierType *)YPlu(accelerator_mods_); } gtk_accelerator_parse(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUacceleratorUname,"samurui/gtk","gtk_accelerator_name"); FUNFOR(YsamuruiSgtkYgtkUacceleratorUname); FUNCODEDEF(YsamuruiSgtkYgtkUacceleratorUname) { P accelerator_key_, accelerator_mods_; guint arg1 ; int arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accelerator_key_, 0); { arg1 = (unsigned)YPiu(accelerator_key_); } ARG(accelerator_mods_, 1); { arg2 = (int)YPiu(accelerator_mods_); } result = (gchar *)gtk_accelerator_name(arg1,(GdkModifierType )arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUacceleratorUsetUdefaultUmodUmask,"samurui/gtk","gtk_accelerator_set_default_mod_mask"); FUNFOR(YsamuruiSgtkYgtkUacceleratorUsetUdefaultUmodUmask); FUNCODEDEF(YsamuruiSgtkYgtkUacceleratorUsetUdefaultUmodUmask) { P default_mod_mask_; int arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(default_mod_mask_, 0); { arg1 = (int)YPiu(default_mod_mask_); } gtk_accelerator_set_default_mod_mask((GdkModifierType )arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUacceleratorUgetUdefaultUmodUmask,"samurui/gtk","gtk_accelerator_get_default_mod_mask"); FUNFOR(YsamuruiSgtkYgtkUacceleratorUgetUdefaultUmodUmask); FUNCODEDEF(YsamuruiSgtkYgtkUacceleratorUgetUdefaultUmodUmask) { guint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (guint )gtk_accelerator_get_default_mod_mask(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUobjectUset,"samurui/gtk","_GtkWidget_object_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUobjectUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUobjectUset) { P self_, object_; struct _GtkWidget *arg1 ; GtkObject *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(object_, 1); { arg2 = (GtkObject *)YPlu(object_); } if (arg1) arg1->object = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUobjectUget,"samurui/gtk","_GtkWidget_object_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUobjectUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUobjectUget) { P self_; struct _GtkWidget *arg1 ; GtkObject *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (GtkObject *)& (arg1->object); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUprivateUflagsUset,"samurui/gtk","_GtkWidget_private_flags_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUprivateUflagsUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUprivateUflagsUset) { P self_, private_flags_; struct _GtkWidget *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(private_flags_, 1); { arg2 = (unsigned short)YPiu(private_flags_); } if (arg1) arg1->private_flags = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUprivateUflagsUget,"samurui/gtk","_GtkWidget_private_flags_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUprivateUflagsUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUprivateUflagsUget) { P self_; struct _GtkWidget *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (guint16 ) (arg1->private_flags); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUstateUset,"samurui/gtk","_GtkWidget_state_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUstateUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUstateUset) { P self_, state_; struct _GtkWidget *arg1 ; guint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned char)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUstateUget,"samurui/gtk","_GtkWidget_state_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUstateUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUstateUget) { P self_; struct _GtkWidget *arg1 ; guint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (guint8 ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUsavedUstateUset,"samurui/gtk","_GtkWidget_saved_state_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUsavedUstateUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUsavedUstateUset) { P self_, saved_state_; struct _GtkWidget *arg1 ; guint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(saved_state_, 1); { arg2 = (unsigned char)YPiu(saved_state_); } if (arg1) arg1->saved_state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUsavedUstateUget,"samurui/gtk","_GtkWidget_saved_state_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUsavedUstateUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUsavedUstateUget) { P self_; struct _GtkWidget *arg1 ; guint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (guint8 ) (arg1->saved_state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUnameUset,"samurui/gtk","_GtkWidget_name_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUnameUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUnameUset) { P self_, name_; struct _GtkWidget *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } { if (arg1->name) free(arg1->name); arg1->name = (char *) malloc(strlen(arg2)+1); strcpy(arg1->name,arg2); } { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUnameUget,"samurui/gtk","_GtkWidget_name_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUnameUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUnameUget) { P self_; struct _GtkWidget *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (gchar *) (arg1->name); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUstyleUset,"samurui/gtk","_GtkWidget_style_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUstyleUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUstyleUset) { P self_, style_; struct _GtkWidget *arg1 ; GtkStyle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(style_, 1); { arg2 = (GtkStyle *)YPlu(style_); } if (arg1) arg1->style = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUstyleUget,"samurui/gtk","_GtkWidget_style_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUstyleUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUstyleUget) { P self_; struct _GtkWidget *arg1 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (GtkStyle *) (arg1->style); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUrequisitionUset,"samurui/gtk","_GtkWidget_requisition_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUrequisitionUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUrequisitionUset) { P self_, requisition_; struct _GtkWidget *arg1 ; GtkRequisition *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(requisition_, 1); { arg2 = (GtkRequisition *)YPlu(requisition_); } if (arg1) arg1->requisition = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUrequisitionUget,"samurui/gtk","_GtkWidget_requisition_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUrequisitionUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUrequisitionUget) { P self_; struct _GtkWidget *arg1 ; GtkRequisition *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (GtkRequisition *)& (arg1->requisition); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUallocationUset,"samurui/gtk","_GtkWidget_allocation_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUallocationUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUallocationUset) { P self_, allocation_; struct _GtkWidget *arg1 ; GtkAllocation *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(allocation_, 1); { arg2 = (GtkAllocation *)YPlu(allocation_); } if (arg1) arg1->allocation = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUallocationUget,"samurui/gtk","_GtkWidget_allocation_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUallocationUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUallocationUget) { P self_; struct _GtkWidget *arg1 ; GtkAllocation *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (GtkAllocation *)& (arg1->allocation); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUwindowUset,"samurui/gtk","_GtkWidget_window_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUwindowUset) { P self_, window_; struct _GtkWidget *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUwindowUget,"samurui/gtk","_GtkWidget_window_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUwindowUget) { P self_; struct _GtkWidget *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUparentUset,"samurui/gtk","_GtkWidget_parent_set"); FUNFOR(YsamuruiSgtkYUgtkwidgetUparentUset); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUparentUset) { P self_, parent_; struct _GtkWidget *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } ARG(parent_, 1); { arg2 = (GtkWidget *)YPlu(parent_); } if (arg1) arg1->parent = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkwidgetUparentUget,"samurui/gtk","_GtkWidget_parent_get"); FUNFOR(YsamuruiSgtkYUgtkwidgetUparentUget); FUNCODEDEF(YsamuruiSgtkYUgtkwidgetUparentUget) { P self_; struct _GtkWidget *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } result = (GtkWidget *) (arg1->parent); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgtkwidget,"samurui/gtk","new__GtkWidget"); FUNFOR(YsamuruiSgtkYnewUUgtkwidget); FUNCODEDEF(YsamuruiSgtkYnewUUgtkwidget) { struct _GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GtkWidget *)(struct _GtkWidget *) calloc(1, sizeof(struct _GtkWidget)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgtkwidget,"samurui/gtk","delete__GtkWidget"); FUNFOR(YsamuruiSgtkYdeleteUUgtkwidget); FUNCODEDEF(YsamuruiSgtkYdeleteUUgtkwidget) { P self_; struct _GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkWidget *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUref,"samurui/gtk","gtk_widget_ref"); FUNFOR(YsamuruiSgtkYgtkUwidgetUref); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUref) { P widget_; GtkWidget *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkWidget *)gtk_widget_ref(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUunref,"samurui/gtk","gtk_widget_unref"); FUNFOR(YsamuruiSgtkYgtkUwidgetUunref); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUunref) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_unref(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUdestroy,"samurui/gtk","gtk_widget_destroy"); FUNFOR(YsamuruiSgtkYgtkUwidgetUdestroy); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUdestroy) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_destroy(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUdestroyed,"samurui/gtk","gtk_widget_destroyed"); FUNFOR(YsamuruiSgtkYgtkUwidgetUdestroyed); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUdestroyed) { P widget_, widget_pointer_; GtkWidget *arg1 ; GtkWidget **arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(widget_pointer_, 1); { arg2 = (GtkWidget **)YPlu(widget_pointer_); } gtk_widget_destroyed(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUunparent,"samurui/gtk","gtk_widget_unparent"); FUNFOR(YsamuruiSgtkYgtkUwidgetUunparent); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUunparent) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_unparent(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUshow,"samurui/gtk","gtk_widget_show"); FUNFOR(YsamuruiSgtkYgtkUwidgetUshow); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUshow) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_show(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUshowUnow,"samurui/gtk","gtk_widget_show_now"); FUNFOR(YsamuruiSgtkYgtkUwidgetUshowUnow); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUshowUnow) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_show_now(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUhide,"samurui/gtk","gtk_widget_hide"); FUNFOR(YsamuruiSgtkYgtkUwidgetUhide); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUhide) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_hide(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUshowUall,"samurui/gtk","gtk_widget_show_all"); FUNFOR(YsamuruiSgtkYgtkUwidgetUshowUall); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUshowUall) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_show_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUhideUall,"samurui/gtk","gtk_widget_hide_all"); FUNFOR(YsamuruiSgtkYgtkUwidgetUhideUall); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUhideUall) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_hide_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmap,"samurui/gtk","gtk_widget_map"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmap) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_map(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUunmap,"samurui/gtk","gtk_widget_unmap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUunmap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUunmap) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_unmap(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUrealize,"samurui/gtk","gtk_widget_realize"); FUNFOR(YsamuruiSgtkYgtkUwidgetUrealize); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUrealize) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_realize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUunrealize,"samurui/gtk","gtk_widget_unrealize"); FUNFOR(YsamuruiSgtkYgtkUwidgetUunrealize); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUunrealize) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_unrealize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUqueueUdraw,"samurui/gtk","gtk_widget_queue_draw"); FUNFOR(YsamuruiSgtkYgtkUwidgetUqueueUdraw); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUqueueUdraw) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_queue_draw(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUqueueUdrawUarea,"samurui/gtk","gtk_widget_queue_draw_area"); FUNFOR(YsamuruiSgtkYgtkUwidgetUqueueUdrawUarea); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUqueueUdrawUarea) { P widget_, x_, y_, width_, height_; GtkWidget *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(width_, 3); { arg4 = (signed)YPiu(width_); } ARG(height_, 4); { arg5 = (signed)YPiu(height_); } gtk_widget_queue_draw_area(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUqueueUresize,"samurui/gtk","gtk_widget_queue_resize"); FUNFOR(YsamuruiSgtkYgtkUwidgetUqueueUresize); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUqueueUresize) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_queue_resize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsizeUrequest,"samurui/gtk","gtk_widget_size_request"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsizeUrequest); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsizeUrequest) { P widget_, requisition_; GtkWidget *arg1 ; GtkRequisition *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(requisition_, 1); { arg2 = (GtkRequisition *)YPlu(requisition_); } gtk_widget_size_request(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsizeUallocate,"samurui/gtk","gtk_widget_size_allocate"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsizeUallocate); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsizeUallocate) { P widget_, allocation_; GtkWidget *arg1 ; GtkAllocation *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(allocation_, 1); { arg2 = (GtkAllocation *)YPlu(allocation_); } gtk_widget_size_allocate(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUchildUrequisition,"samurui/gtk","gtk_widget_get_child_requisition"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUchildUrequisition); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUchildUrequisition) { P widget_, requisition_; GtkWidget *arg1 ; GtkRequisition *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(requisition_, 1); { arg2 = (GtkRequisition *)YPlu(requisition_); } gtk_widget_get_child_requisition(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUaddUaccelerator,"samurui/gtk","gtk_widget_add_accelerator"); FUNFOR(YsamuruiSgtkYgtkUwidgetUaddUaccelerator); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUaddUaccelerator) { P widget_, accel_signal_, accel_group_, accel_key_, accel_mods_, accel_flags_; GtkWidget *arg1 ; gchar *arg2 ; GtkAccelGroup *arg3 ; guint arg4 ; guint arg5 ; int arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(accel_signal_, 1); { arg2 = (char *)YPsu(accel_signal_); } ARG(accel_group_, 2); { arg3 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(accel_key_, 3); { arg4 = (unsigned)YPiu(accel_key_); } ARG(accel_mods_, 4); { arg5 = (unsigned)YPiu(accel_mods_); } ARG(accel_flags_, 5); { arg6 = (int)YPiu(accel_flags_); } gtk_widget_add_accelerator(arg1,arg2,arg3,arg4,arg5,(GtkAccelFlags )arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUremoveUaccelerator,"samurui/gtk","gtk_widget_remove_accelerator"); FUNFOR(YsamuruiSgtkYgtkUwidgetUremoveUaccelerator); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUremoveUaccelerator) { P widget_, accel_group_, accel_key_, accel_mods_; GtkWidget *arg1 ; GtkAccelGroup *arg2 ; guint arg3 ; guint arg4 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(accel_group_, 1); { arg2 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(accel_key_, 2); { arg3 = (unsigned)YPiu(accel_key_); } ARG(accel_mods_, 3); { arg4 = (unsigned)YPiu(accel_mods_); } result = (gboolean )gtk_widget_remove_accelerator(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUlistUaccelUclosures,"samurui/gtk","gtk_widget_list_accel_closures"); FUNFOR(YsamuruiSgtkYgtkUwidgetUlistUaccelUclosures); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUlistUaccelUclosures) { P widget_; GtkWidget *arg1 ; GList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GList *)gtk_widget_list_accel_closures(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmnemonicUactivate,"samurui/gtk","gtk_widget_mnemonic_activate"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmnemonicUactivate); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmnemonicUactivate) { P widget_, group_cycling_; GtkWidget *arg1 ; gboolean arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(group_cycling_, 1); { arg2 = (signed)YPiu(group_cycling_); } result = (gboolean )gtk_widget_mnemonic_activate(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUevent,"samurui/gtk","gtk_widget_event"); FUNFOR(YsamuruiSgtkYgtkUwidgetUevent); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUevent) { P widget_, event_; GtkWidget *arg1 ; GdkEvent *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(event_, 1); { arg2 = (GdkEvent *)YPlu(event_); } result = (gboolean )gtk_widget_event(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsendUexpose,"samurui/gtk","gtk_widget_send_expose"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsendUexpose); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsendUexpose) { P widget_, event_; GtkWidget *arg1 ; GdkEvent *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(event_, 1); { arg2 = (GdkEvent *)YPlu(event_); } result = (gint )gtk_widget_send_expose(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUactivate,"samurui/gtk","gtk_widget_activate"); FUNFOR(YsamuruiSgtkYgtkUwidgetUactivate); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUactivate) { P widget_; GtkWidget *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gboolean )gtk_widget_activate(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUscrollUadjustments,"samurui/gtk","gtk_widget_set_scroll_adjustments"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUscrollUadjustments); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUscrollUadjustments) { P widget_, hadjustment_, vadjustment_; GtkWidget *arg1 ; GtkAdjustment *arg2 ; GtkAdjustment *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(hadjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(hadjustment_); } ARG(vadjustment_, 2); { arg3 = (GtkAdjustment *)YPlu(vadjustment_); } result = (gboolean )gtk_widget_set_scroll_adjustments(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUreparent,"samurui/gtk","gtk_widget_reparent"); FUNFOR(YsamuruiSgtkYgtkUwidgetUreparent); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUreparent) { P widget_, new_parent_; GtkWidget *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(new_parent_, 1); { arg2 = (GtkWidget *)YPlu(new_parent_); } gtk_widget_reparent(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUintersect,"samurui/gtk","gtk_widget_intersect"); FUNFOR(YsamuruiSgtkYgtkUwidgetUintersect); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUintersect) { P widget_, area_, intersection_; GtkWidget *arg1 ; GdkRectangle *arg2 ; GdkRectangle *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(area_, 1); { arg2 = (GdkRectangle *)YPlu(area_); } ARG(intersection_, 2); { arg3 = (GdkRectangle *)YPlu(intersection_); } result = (gboolean )gtk_widget_intersect(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUregionUintersect,"samurui/gtk","gtk_widget_region_intersect"); FUNFOR(YsamuruiSgtkYgtkUwidgetUregionUintersect); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUregionUintersect) { P widget_, region_; GtkWidget *arg1 ; GdkRegion *arg2 ; GdkRegion *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(region_, 1); { arg2 = (GdkRegion *)YPlu(region_); } result = (GdkRegion *)gtk_widget_region_intersect(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUfreezeUchildUnotify,"samurui/gtk","gtk_widget_freeze_child_notify"); FUNFOR(YsamuruiSgtkYgtkUwidgetUfreezeUchildUnotify); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUfreezeUchildUnotify) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_freeze_child_notify(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUchildUnotify,"samurui/gtk","gtk_widget_child_notify"); FUNFOR(YsamuruiSgtkYgtkUwidgetUchildUnotify); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUchildUnotify) { P widget_, child_property_; GtkWidget *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(child_property_, 1); { arg2 = (char *)YPsu(child_property_); } gtk_widget_child_notify(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUthawUchildUnotify,"samurui/gtk","gtk_widget_thaw_child_notify"); FUNFOR(YsamuruiSgtkYgtkUwidgetUthawUchildUnotify); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUthawUchildUnotify) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_thaw_child_notify(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUisUfocus,"samurui/gtk","gtk_widget_is_focus"); FUNFOR(YsamuruiSgtkYgtkUwidgetUisUfocus); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUisUfocus) { P widget_; GtkWidget *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gboolean )gtk_widget_is_focus(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgrabUfocus,"samurui/gtk","gtk_widget_grab_focus"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgrabUfocus); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgrabUfocus) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_grab_focus(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgrabUdefault,"samurui/gtk","gtk_widget_grab_default"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgrabUdefault); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgrabUdefault) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_grab_default(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUname,"samurui/gtk","gtk_widget_set_name"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUname); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUname) { P widget_, name_; GtkWidget *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } gtk_widget_set_name(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUname,"samurui/gtk","gtk_widget_get_name"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUname); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUname) { P widget_; GtkWidget *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gchar *)gtk_widget_get_name(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUstate,"samurui/gtk","gtk_widget_set_state"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUstate); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUstate) { P widget_, state_; GtkWidget *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(state_, 1); { arg2 = (int)YPiu(state_); } gtk_widget_set_state(arg1,(GtkStateType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUsensitive,"samurui/gtk","gtk_widget_set_sensitive"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUsensitive); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUsensitive) { P widget_, sensitive_; GtkWidget *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(sensitive_, 1); { arg2 = (signed)YPiu(sensitive_); } gtk_widget_set_sensitive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUappUpaintable,"samurui/gtk","gtk_widget_set_app_paintable"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUappUpaintable); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUappUpaintable) { P widget_, app_paintable_; GtkWidget *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(app_paintable_, 1); { arg2 = (signed)YPiu(app_paintable_); } gtk_widget_set_app_paintable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUdoubleUbuffered,"samurui/gtk","gtk_widget_set_double_buffered"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUdoubleUbuffered); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUdoubleUbuffered) { P widget_, double_buffered_; GtkWidget *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(double_buffered_, 1); { arg2 = (signed)YPiu(double_buffered_); } gtk_widget_set_double_buffered(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUredrawUonUallocate,"samurui/gtk","gtk_widget_set_redraw_on_allocate"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUredrawUonUallocate); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUredrawUonUallocate) { P widget_, redraw_on_allocate_; GtkWidget *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(redraw_on_allocate_, 1); { arg2 = (signed)YPiu(redraw_on_allocate_); } gtk_widget_set_redraw_on_allocate(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUparent,"samurui/gtk","gtk_widget_set_parent"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUparent); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUparent) { P widget_, parent_; GtkWidget *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(parent_, 1); { arg2 = (GtkWidget *)YPlu(parent_); } gtk_widget_set_parent(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUparentUwindow,"samurui/gtk","gtk_widget_set_parent_window"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUparentUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUparentUwindow) { P widget_, parent_window_; GtkWidget *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(parent_window_, 1); { arg2 = (GdkWindow *)YPlu(parent_window_); } gtk_widget_set_parent_window(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUchildUvisible,"samurui/gtk","gtk_widget_set_child_visible"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUchildUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUchildUvisible) { P widget_, is_visible_; GtkWidget *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(is_visible_, 1); { arg2 = (signed)YPiu(is_visible_); } gtk_widget_set_child_visible(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUchildUvisible,"samurui/gtk","gtk_widget_get_child_visible"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUchildUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUchildUvisible) { P widget_; GtkWidget *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gboolean )gtk_widget_get_child_visible(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUparent,"samurui/gtk","gtk_widget_get_parent"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUparent); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUparent) { P widget_; GtkWidget *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkWidget *)gtk_widget_get_parent(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUparentUwindow,"samurui/gtk","gtk_widget_get_parent_window"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUparentUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUparentUwindow) { P widget_; GtkWidget *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GdkWindow *)gtk_widget_get_parent_window(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUchildUfocus,"samurui/gtk","gtk_widget_child_focus"); FUNFOR(YsamuruiSgtkYgtkUwidgetUchildUfocus); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUchildUfocus) { P widget_, direction_; GtkWidget *arg1 ; int arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(direction_, 1); { arg2 = (int)YPiu(direction_); } result = (gboolean )gtk_widget_child_focus(arg1,(GtkDirectionType )arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUsizeUrequest,"samurui/gtk","gtk_widget_set_size_request"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUsizeUrequest); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUsizeUrequest) { P widget_, width_, height_; GtkWidget *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(width_, 1); { arg2 = (signed)YPiu(width_); } ARG(height_, 2); { arg3 = (signed)YPiu(height_); } gtk_widget_set_size_request(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUsizeUrequest,"samurui/gtk","gtk_widget_get_size_request"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUsizeUrequest); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUsizeUrequest) { P widget_; GtkWidget *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_get_size_request(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUevents,"samurui/gtk","gtk_widget_set_events"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUevents); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUevents) { P widget_, events_; GtkWidget *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(events_, 1); { arg2 = (signed)YPiu(events_); } gtk_widget_set_events(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUaddUevents,"samurui/gtk","gtk_widget_add_events"); FUNFOR(YsamuruiSgtkYgtkUwidgetUaddUevents); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUaddUevents) { P widget_, events_; GtkWidget *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(events_, 1); { arg2 = (signed)YPiu(events_); } gtk_widget_add_events(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUextensionUevents,"samurui/gtk","gtk_widget_set_extension_events"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUextensionUevents); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUextensionUevents) { P widget_, mode_; GtkWidget *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } gtk_widget_set_extension_events(arg1,(GdkExtensionMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUextensionUevents,"samurui/gtk","gtk_widget_get_extension_events"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUextensionUevents); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUextensionUevents) { P widget_; GtkWidget *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (int )gtk_widget_get_extension_events(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUtoplevel,"samurui/gtk","gtk_widget_get_toplevel"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUtoplevel); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUtoplevel) { P widget_; GtkWidget *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkWidget *)gtk_widget_get_toplevel(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUancestor,"samurui/gtk","gtk_widget_get_ancestor"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUancestor); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUancestor) { P widget_, widget_type_; GtkWidget *arg1 ; GtkType arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(widget_type_, 1); { arg2 = (unsigned long)YPiu(widget_type_); } result = (GtkWidget *)gtk_widget_get_ancestor(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUcolormap,"samurui/gtk","gtk_widget_get_colormap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUcolormap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUcolormap) { P widget_; GtkWidget *arg1 ; GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GdkColormap *)gtk_widget_get_colormap(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUvisual,"samurui/gtk","gtk_widget_get_visual"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUvisual); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUvisual) { P widget_; GtkWidget *arg1 ; GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GdkVisual *)gtk_widget_get_visual(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUsettings,"samurui/gtk","gtk_widget_get_settings"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUsettings); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUsettings) { P widget_; GtkWidget *arg1 ; GtkSettings *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkSettings *)gtk_widget_get_settings(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUaccessible,"samurui/gtk","gtk_widget_get_accessible"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUaccessible); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUaccessible) { P widget_; GtkWidget *arg1 ; AtkObject *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (AtkObject *)gtk_widget_get_accessible(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUcolormap,"samurui/gtk","gtk_widget_set_colormap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUcolormap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUcolormap) { P widget_, colormap_; GtkWidget *arg1 ; GdkColormap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } gtk_widget_set_colormap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUevents,"samurui/gtk","gtk_widget_get_events"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUevents); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUevents) { P widget_; GtkWidget *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gint )gtk_widget_get_events(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUpointer,"samurui/gtk","gtk_widget_get_pointer"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUpointer); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUpointer) { P widget_; GtkWidget *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_get_pointer(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUisUancestor,"samurui/gtk","gtk_widget_is_ancestor"); FUNFOR(YsamuruiSgtkYgtkUwidgetUisUancestor); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUisUancestor) { P widget_, ancestor_; GtkWidget *arg1 ; GtkWidget *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(ancestor_, 1); { arg2 = (GtkWidget *)YPlu(ancestor_); } result = (gboolean )gtk_widget_is_ancestor(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUtranslateUcoordinates,"samurui/gtk","gtk_widget_translate_coordinates"); FUNFOR(YsamuruiSgtkYgtkUwidgetUtranslateUcoordinates); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUtranslateUcoordinates) { P src_widget_, dest_widget_, src_x_, src_y_, dest_x_, dest_y_; GtkWidget *arg1 ; GtkWidget *arg2 ; gint arg3 ; gint arg4 ; gint *arg5 ; gint *arg6 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(src_widget_, 0); { arg1 = (GtkWidget *)YPlu(src_widget_); } ARG(dest_widget_, 1); { arg2 = (GtkWidget *)YPlu(dest_widget_); } ARG(src_x_, 2); { arg3 = (signed)YPiu(src_x_); } ARG(src_y_, 3); { arg4 = (signed)YPiu(src_y_); } ARG(dest_x_, 4); { arg5 = (gint *)YPlu(dest_x_); } ARG(dest_y_, 5); { arg6 = (gint *)YPlu(dest_y_); } result = (gboolean )gtk_widget_translate_coordinates(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUhideUonUdelete,"samurui/gtk","gtk_widget_hide_on_delete"); FUNFOR(YsamuruiSgtkYgtkUwidgetUhideUonUdelete); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUhideUonUdelete) { P widget_; GtkWidget *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gboolean )gtk_widget_hide_on_delete(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUstyle,"samurui/gtk","gtk_widget_set_style"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUstyle) { P widget_, style_; GtkWidget *arg1 ; GtkStyle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(style_, 1); { arg2 = (GtkStyle *)YPlu(style_); } gtk_widget_set_style(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUensureUstyle,"samurui/gtk","gtk_widget_ensure_style"); FUNFOR(YsamuruiSgtkYgtkUwidgetUensureUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUensureUstyle) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_ensure_style(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUstyle,"samurui/gtk","gtk_widget_get_style"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUstyle) { P widget_; GtkWidget *arg1 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkStyle *)gtk_widget_get_style(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmodifyUstyle,"samurui/gtk","gtk_widget_modify_style"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmodifyUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmodifyUstyle) { P widget_, style_; GtkWidget *arg1 ; GtkRcStyle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(style_, 1); { arg2 = (GtkRcStyle *)YPlu(style_); } gtk_widget_modify_style(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUmodifierUstyle,"samurui/gtk","gtk_widget_get_modifier_style"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUmodifierUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUmodifierUstyle) { P widget_; GtkWidget *arg1 ; GtkRcStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkRcStyle *)gtk_widget_get_modifier_style(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmodifyUfg,"samurui/gtk","gtk_widget_modify_fg"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmodifyUfg); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmodifyUfg) { P widget_, state_, color_; GtkWidget *arg1 ; int arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(state_, 1); { arg2 = (int)YPiu(state_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_widget_modify_fg(arg1,(GtkStateType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmodifyUbg,"samurui/gtk","gtk_widget_modify_bg"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmodifyUbg); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmodifyUbg) { P widget_, state_, color_; GtkWidget *arg1 ; int arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(state_, 1); { arg2 = (int)YPiu(state_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_widget_modify_bg(arg1,(GtkStateType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmodifyUtext,"samurui/gtk","gtk_widget_modify_text"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmodifyUtext); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmodifyUtext) { P widget_, state_, color_; GtkWidget *arg1 ; int arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(state_, 1); { arg2 = (int)YPiu(state_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_widget_modify_text(arg1,(GtkStateType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmodifyUbase,"samurui/gtk","gtk_widget_modify_base"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmodifyUbase); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmodifyUbase) { P widget_, state_, color_; GtkWidget *arg1 ; int arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(state_, 1); { arg2 = (int)YPiu(state_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_widget_modify_base(arg1,(GtkStateType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUmodifyUfont,"samurui/gtk","gtk_widget_modify_font"); FUNFOR(YsamuruiSgtkYgtkUwidgetUmodifyUfont); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUmodifyUfont) { P widget_, font_desc_; GtkWidget *arg1 ; PangoFontDescription *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(font_desc_, 1); { arg2 = (PangoFontDescription *)YPlu(font_desc_); } gtk_widget_modify_font(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUcreateUpangoUcontext,"samurui/gtk","gtk_widget_create_pango_context"); FUNFOR(YsamuruiSgtkYgtkUwidgetUcreateUpangoUcontext); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUcreateUpangoUcontext) { P widget_; GtkWidget *arg1 ; PangoContext *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (PangoContext *)gtk_widget_create_pango_context(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUpangoUcontext,"samurui/gtk","gtk_widget_get_pango_context"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUpangoUcontext); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUpangoUcontext) { P widget_; GtkWidget *arg1 ; PangoContext *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (PangoContext *)gtk_widget_get_pango_context(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUcreateUpangoUlayout,"samurui/gtk","gtk_widget_create_pango_layout"); FUNFOR(YsamuruiSgtkYgtkUwidgetUcreateUpangoUlayout); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUcreateUpangoUlayout) { P widget_, text_; GtkWidget *arg1 ; gchar *arg2 ; PangoLayout *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } result = (PangoLayout *)gtk_widget_create_pango_layout(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUrenderUicon,"samurui/gtk","gtk_widget_render_icon"); FUNFOR(YsamuruiSgtkYgtkUwidgetUrenderUicon); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUrenderUicon) { P widget_, stock_id_, size_, detail_; GtkWidget *arg1 ; gchar *arg2 ; int arg3 ; gchar *arg4 ; GdkPixbuf *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(stock_id_, 1); { arg2 = (char *)YPsu(stock_id_); } ARG(size_, 2); { arg3 = (int)YPiu(size_); } ARG(detail_, 3); { arg4 = (char *)YPsu(detail_); } result = (GdkPixbuf *)gtk_widget_render_icon(arg1,arg2,(GtkIconSize )arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUcompositeUname,"samurui/gtk","gtk_widget_set_composite_name"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUcompositeUname); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUcompositeUname) { P widget_, name_; GtkWidget *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } gtk_widget_set_composite_name(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUcompositeUname,"samurui/gtk","gtk_widget_get_composite_name"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUcompositeUname); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUcompositeUname) { P widget_; GtkWidget *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gchar *)gtk_widget_get_composite_name(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUresetUrcUstyles,"samurui/gtk","gtk_widget_reset_rc_styles"); FUNFOR(YsamuruiSgtkYgtkUwidgetUresetUrcUstyles); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUresetUrcUstyles) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_reset_rc_styles(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUpushUcolormap,"samurui/gtk","gtk_widget_push_colormap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUpushUcolormap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUpushUcolormap) { P cmap_; GdkColormap *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(cmap_, 0); { arg1 = (GdkColormap *)YPlu(cmap_); } gtk_widget_push_colormap(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUpushUcompositeUchild,"samurui/gtk","gtk_widget_push_composite_child"); FUNFOR(YsamuruiSgtkYgtkUwidgetUpushUcompositeUchild); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUpushUcompositeUchild) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_widget_push_composite_child(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUpopUcompositeUchild,"samurui/gtk","gtk_widget_pop_composite_child"); FUNFOR(YsamuruiSgtkYgtkUwidgetUpopUcompositeUchild); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUpopUcompositeUchild) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_widget_pop_composite_child(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUpopUcolormap,"samurui/gtk","gtk_widget_pop_colormap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUpopUcolormap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUpopUcolormap) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_widget_pop_colormap(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUclassUinstallUstyleUproperty,"samurui/gtk","gtk_widget_class_install_style_property"); FUNFOR(YsamuruiSgtkYgtkUwidgetUclassUinstallUstyleUproperty); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUclassUinstallUstyleUproperty) { P klass_, pspec_; GtkWidgetClass *arg1 ; GParamSpec *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(klass_, 0); { arg1 = (GtkWidgetClass *)YPlu(klass_); } ARG(pspec_, 1); { arg2 = (GParamSpec *)YPlu(pspec_); } gtk_widget_class_install_style_property(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUstyleUgetUproperty,"samurui/gtk","gtk_widget_style_get_property"); FUNFOR(YsamuruiSgtkYgtkUwidgetUstyleUgetUproperty); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUstyleUgetUproperty) { P widget_, property_name_, value_; GtkWidget *arg1 ; gchar *arg2 ; GValue *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(property_name_, 1); { arg2 = (char *)YPsu(property_name_); } ARG(value_, 2); { arg3 = (GValue *)YPlu(value_); } gtk_widget_style_get_property(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUdefaultUcolormap,"samurui/gtk","gtk_widget_set_default_colormap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUdefaultUcolormap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUdefaultUcolormap) { P colormap_; GdkColormap *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } gtk_widget_set_default_colormap(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUdefaultUstyle,"samurui/gtk","gtk_widget_get_default_style"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUdefaultUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUstyle) { GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkStyle *)gtk_widget_get_default_style(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUdefaultUcolormap,"samurui/gtk","gtk_widget_get_default_colormap"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUdefaultUcolormap); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUcolormap) { GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkColormap *)gtk_widget_get_default_colormap(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUdefaultUvisual,"samurui/gtk","gtk_widget_get_default_visual"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUdefaultUvisual); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUvisual) { GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkVisual *)gtk_widget_get_default_visual(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUdirection,"samurui/gtk","gtk_widget_set_direction"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUdirection); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUdirection) { P widget_, dir_; GtkWidget *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(dir_, 1); { arg2 = (int)YPiu(dir_); } gtk_widget_set_direction(arg1,(GtkTextDirection )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUdirection,"samurui/gtk","gtk_widget_get_direction"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUdirection); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUdirection) { P widget_; GtkWidget *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (int )gtk_widget_get_direction(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUsetUdefaultUdirection,"samurui/gtk","gtk_widget_set_default_direction"); FUNFOR(YsamuruiSgtkYgtkUwidgetUsetUdefaultUdirection); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUsetUdefaultUdirection) { P dir_; int arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dir_, 0); { arg1 = (int)YPiu(dir_); } gtk_widget_set_default_direction((GtkTextDirection )arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUgetUdefaultUdirection,"samurui/gtk","gtk_widget_get_default_direction"); FUNFOR(YsamuruiSgtkYgtkUwidgetUgetUdefaultUdirection); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUdirection) { int result; P retval = (P)YPib((P)0); LINK_STACK(); result = (int )gtk_widget_get_default_direction(); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUshapeUcombineUmask,"samurui/gtk","gtk_widget_shape_combine_mask"); FUNFOR(YsamuruiSgtkYgtkUwidgetUshapeUcombineUmask); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUshapeUcombineUmask) { P widget_, shape_mask_, offset_x_, offset_y_; GtkWidget *arg1 ; GdkBitmap *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(shape_mask_, 1); { arg2 = (GdkBitmap *)YPlu(shape_mask_); } ARG(offset_x_, 2); { arg3 = (signed)YPiu(offset_x_); } ARG(offset_y_, 3); { arg4 = (signed)YPiu(offset_y_); } gtk_widget_shape_combine_mask(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUresetUshapes,"samurui/gtk","gtk_widget_reset_shapes"); FUNFOR(YsamuruiSgtkYgtkUwidgetUresetUshapes); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUresetUshapes) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_widget_reset_shapes(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUpath,"samurui/gtk","gtk_widget_path"); FUNFOR(YsamuruiSgtkYgtkUwidgetUpath); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUpath) { P widget_, path_length_, path_, path_reversed_; GtkWidget *arg1 ; guint *arg2 ; gchar **arg3 ; gchar **arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(path_length_, 1); { arg2 = (guint *)YPlu(path_length_); } ARG(path_, 2); { arg3 = (gchar **)YPlu(path_); } ARG(path_reversed_, 3); { arg4 = (gchar **)YPlu(path_reversed_); } gtk_widget_path(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwidgetUclassUpath,"samurui/gtk","gtk_widget_class_path"); FUNFOR(YsamuruiSgtkYgtkUwidgetUclassUpath); FUNCODEDEF(YsamuruiSgtkYgtkUwidgetUclassUpath) { P widget_, path_length_, path_, path_reversed_; GtkWidget *arg1 ; guint *arg2 ; gchar **arg3 ; gchar **arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } ARG(path_length_, 1); { arg2 = (guint *)YPlu(path_length_); } ARG(path_, 2); { arg3 = (gchar **)YPlu(path_); } ARG(path_reversed_, 3); { arg4 = (gchar **)YPlu(path_reversed_); } gtk_widget_class_path(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrequisitionUcopy,"samurui/gtk","gtk_requisition_copy"); FUNFOR(YsamuruiSgtkYgtkUrequisitionUcopy); FUNCODEDEF(YsamuruiSgtkYgtkUrequisitionUcopy) { P requisition_; GtkRequisition *arg1 ; GtkRequisition *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(requisition_, 0); { arg1 = (GtkRequisition *)YPlu(requisition_); } result = (GtkRequisition *)gtk_requisition_copy(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrequisitionUfree,"samurui/gtk","gtk_requisition_free"); FUNFOR(YsamuruiSgtkYgtkUrequisitionUfree); FUNCODEDEF(YsamuruiSgtkYgtkUrequisitionUfree) { P requisition_; GtkRequisition *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(requisition_, 0); { arg1 = (GtkRequisition *)YPlu(requisition_); } gtk_requisition_free(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUpixelUset,"samurui/gtk","_GdkColor_pixel_set"); FUNFOR(YsamuruiSgtkYUgdkcolorUpixelUset); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUpixelUset) { P self_, pixel_; struct _GdkColor *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } ARG(pixel_, 1); { arg2 = (unsigned)YPiu(pixel_); } if (arg1) arg1->pixel = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUpixelUget,"samurui/gtk","_GdkColor_pixel_get"); FUNFOR(YsamuruiSgtkYUgdkcolorUpixelUget); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUpixelUget) { P self_; struct _GdkColor *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } result = (guint32 ) (arg1->pixel); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUredUset,"samurui/gtk","_GdkColor_red_set"); FUNFOR(YsamuruiSgtkYUgdkcolorUredUset); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUredUset) { P self_, red_; struct _GdkColor *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } ARG(red_, 1); { arg2 = (unsigned short)YPiu(red_); } if (arg1) arg1->red = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUredUget,"samurui/gtk","_GdkColor_red_get"); FUNFOR(YsamuruiSgtkYUgdkcolorUredUget); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUredUget) { P self_; struct _GdkColor *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } result = (guint16 ) (arg1->red); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUgreenUset,"samurui/gtk","_GdkColor_green_set"); FUNFOR(YsamuruiSgtkYUgdkcolorUgreenUset); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUgreenUset) { P self_, green_; struct _GdkColor *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } ARG(green_, 1); { arg2 = (unsigned short)YPiu(green_); } if (arg1) arg1->green = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUgreenUget,"samurui/gtk","_GdkColor_green_get"); FUNFOR(YsamuruiSgtkYUgdkcolorUgreenUget); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUgreenUget) { P self_; struct _GdkColor *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } result = (guint16 ) (arg1->green); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUblueUset,"samurui/gtk","_GdkColor_blue_set"); FUNFOR(YsamuruiSgtkYUgdkcolorUblueUset); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUblueUset) { P self_, blue_; struct _GdkColor *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } ARG(blue_, 1); { arg2 = (unsigned short)YPiu(blue_); } if (arg1) arg1->blue = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkcolorUblueUget,"samurui/gtk","_GdkColor_blue_get"); FUNFOR(YsamuruiSgtkYUgdkcolorUblueUget); FUNCODEDEF(YsamuruiSgtkYUgdkcolorUblueUget) { P self_; struct _GdkColor *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } result = (guint16 ) (arg1->blue); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkcolor,"samurui/gtk","new__GdkColor"); FUNFOR(YsamuruiSgtkYnewUUgdkcolor); FUNCODEDEF(YsamuruiSgtkYnewUUgdkcolor) { struct _GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkColor *)(struct _GdkColor *) calloc(1, sizeof(struct _GdkColor)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkcolor,"samurui/gtk","delete__GdkColor"); FUNFOR(YsamuruiSgtkYdeleteUUgdkcolor); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkcolor) { P self_; struct _GdkColor *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkColor *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUnew,"samurui/gtk","gdk_colormap_new"); FUNFOR(YsamuruiSgtkYgdkUcolormapUnew); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUnew) { P visual_, allocate_; GdkVisual *arg1 ; gboolean arg2 ; GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(visual_, 0); { arg1 = (GdkVisual *)YPlu(visual_); } ARG(allocate_, 1); { arg2 = (signed)YPiu(allocate_); } result = (GdkColormap *)gdk_colormap_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUgetUsystem,"samurui/gtk","gdk_colormap_get_system"); FUNFOR(YsamuruiSgtkYgdkUcolormapUgetUsystem); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUgetUsystem) { GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkColormap *)gdk_colormap_get_system(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUallocUcolors,"samurui/gtk","gdk_colormap_alloc_colors"); FUNFOR(YsamuruiSgtkYgdkUcolormapUallocUcolors); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUallocUcolors) { P colormap_, colors_, writeable_, best_match_, success_; GdkColormap *arg1 ; GdkColor *arg2 ; gint arg3 ; gboolean arg4 ; gboolean arg5 ; gboolean *arg6 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } ARG(colors_, 1); { int i; arg3 = (int)YPtlen(colors_); arg2 = (GdkColor *)malloc(arg3 * sizeof(GdkColor )); for(i=0; i < arg3; i++) { arg2[i] = *((GdkColor *)YPlu(YPtelt(colors_, i))); } } ARG(writeable_, 2); { arg4 = (signed)YPiu(writeable_); } ARG(best_match_, 3); { arg5 = (signed)YPiu(best_match_); } ARG(success_, 4); { arg6 = (gboolean *)YPlu(success_); } result = (gint )gdk_colormap_alloc_colors(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPib((P)((int)result)); } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUallocUcolor,"samurui/gtk","gdk_colormap_alloc_color"); FUNFOR(YsamuruiSgtkYgdkUcolormapUallocUcolor); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUallocUcolor) { P colormap_, color_, writeable_, best_match_; GdkColormap *arg1 ; GdkColor *arg2 ; gboolean arg3 ; gboolean arg4 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } ARG(writeable_, 2); { arg3 = (signed)YPiu(writeable_); } ARG(best_match_, 3); { arg4 = (signed)YPiu(best_match_); } result = (gboolean )gdk_colormap_alloc_color(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUfreeUcolors,"samurui/gtk","gdk_colormap_free_colors"); FUNFOR(YsamuruiSgtkYgdkUcolormapUfreeUcolors); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUfreeUcolors) { P colormap_, colors_; GdkColormap *arg1 ; GdkColor *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } ARG(colors_, 1); { int i; arg3 = (int)YPtlen(colors_); arg2 = (GdkColor *)malloc(arg3 * sizeof(GdkColor )); for(i=0; i < arg3; i++) { arg2[i] = *((GdkColor *)YPlu(YPtelt(colors_, i))); } } gdk_colormap_free_colors(arg1,arg2,arg3); { // do nothing! it's a void! } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUqueryUcolor,"samurui/gtk","gdk_colormap_query_color"); FUNFOR(YsamuruiSgtkYgdkUcolormapUqueryUcolor); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUqueryUcolor) { P colormap_, pixel_, result_; GdkColormap *arg1 ; gulong arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } ARG(pixel_, 1); { arg2 = (unsigned long)YPiu(pixel_); } ARG(result_, 2); { arg3 = (GdkColor *)YPlu(result_); } gdk_colormap_query_color(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolormapUgetUvisual,"samurui/gtk","gdk_colormap_get_visual"); FUNFOR(YsamuruiSgtkYgdkUcolormapUgetUvisual); FUNCODEDEF(YsamuruiSgtkYgdkUcolormapUgetUvisual) { P colormap_; GdkColormap *arg1 ; GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colormap_, 0); { arg1 = (GdkColormap *)YPlu(colormap_); } result = (GdkVisual *)gdk_colormap_get_visual(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolorUcopy,"samurui/gtk","gdk_color_copy"); FUNFOR(YsamuruiSgtkYgdkUcolorUcopy); FUNCODEDEF(YsamuruiSgtkYgdkUcolorUcopy) { P color_; GdkColor *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(color_, 0); { arg1 = (GdkColor *)YPlu(color_); } result = (GdkColor *)gdk_color_copy(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolorUfree,"samurui/gtk","gdk_color_free"); FUNFOR(YsamuruiSgtkYgdkUcolorUfree); FUNCODEDEF(YsamuruiSgtkYgdkUcolorUfree) { P color_; GdkColor *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(color_, 0); { arg1 = (GdkColor *)YPlu(color_); } gdk_color_free(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolorUparse,"samurui/gtk","gdk_color_parse"); FUNFOR(YsamuruiSgtkYgdkUcolorUparse); FUNCODEDEF(YsamuruiSgtkYgdkUcolorUparse) { P spec_, color_; gchar *arg1 ; GdkColor *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spec_, 0); { arg1 = (char *)YPsu(spec_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } result = (gint )gdk_color_parse(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolorUhash,"samurui/gtk","gdk_color_hash"); FUNFOR(YsamuruiSgtkYgdkUcolorUhash); FUNCODEDEF(YsamuruiSgtkYgdkUcolorUhash) { P colora_; GdkColor *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colora_, 0); { arg1 = (GdkColor *)YPlu(colora_); } result = (guint )gdk_color_hash(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolorUequal,"samurui/gtk","gdk_color_equal"); FUNFOR(YsamuruiSgtkYgdkUcolorUequal); FUNCODEDEF(YsamuruiSgtkYgdkUcolorUequal) { P colora_, colorb_; GdkColor *arg1 ; GdkColor *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colora_, 0); { arg1 = (GdkColor *)YPlu(colora_); } ARG(colorb_, 1); { arg2 = (GdkColor *)YPlu(colorb_); } result = (gboolean )gdk_color_equal(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcolorUgetUtype,"samurui/gtk","gdk_color_get_type"); FUNFOR(YsamuruiSgtkYgdkUcolorUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUcolorUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_color_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUsize,"samurui/gtk","gdk_drawable_get_size"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUsize); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUsize) { P drawable_; GdkDrawable *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } gdk_drawable_get_size(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUsetUcolormap,"samurui/gtk","gdk_drawable_set_colormap"); FUNFOR(YsamuruiSgtkYgdkUdrawableUsetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUsetUcolormap) { P drawable_, colormap_; GdkDrawable *arg1 ; GdkColormap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } gdk_drawable_set_colormap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUcolormap,"samurui/gtk","gdk_drawable_get_colormap"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUcolormap) { P drawable_; GdkDrawable *arg1 ; GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } result = (GdkColormap *)gdk_drawable_get_colormap(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUvisual,"samurui/gtk","gdk_drawable_get_visual"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUvisual); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUvisual) { P drawable_; GdkDrawable *arg1 ; GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } result = (GdkVisual *)gdk_drawable_get_visual(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUdepth,"samurui/gtk","gdk_drawable_get_depth"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUdepth); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUdepth) { P drawable_; GdkDrawable *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } result = (gint )gdk_drawable_get_depth(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUpoint,"samurui/gtk","gdk_draw_point"); FUNFOR(YsamuruiSgtkYgdkUdrawUpoint); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUpoint) { P drawable_, gc_, x_, y_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gdk_draw_point(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUline,"samurui/gtk","gdk_draw_line"); FUNFOR(YsamuruiSgtkYgdkUdrawUline); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUline) { P drawable_, gc_, x1_, y1_, x2_, y2_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x1_, 2); { arg3 = (signed)YPiu(x1_); } ARG(y1_, 3); { arg4 = (signed)YPiu(y1_); } ARG(x2_, 4); { arg5 = (signed)YPiu(x2_); } ARG(y2_, 5); { arg6 = (signed)YPiu(y2_); } gdk_draw_line(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUrectangle,"samurui/gtk","gdk_draw_rectangle"); FUNFOR(YsamuruiSgtkYgdkUdrawUrectangle); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUrectangle) { P drawable_, gc_, filled_, x_, y_, width_, height_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; gint arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(filled_, 2); { arg3 = (signed)YPiu(filled_); } ARG(x_, 3); { arg4 = (signed)YPiu(x_); } ARG(y_, 4); { arg5 = (signed)YPiu(y_); } ARG(width_, 5); { arg6 = (signed)YPiu(width_); } ARG(height_, 6); { arg7 = (signed)YPiu(height_); } gdk_draw_rectangle(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUarc,"samurui/gtk","gdk_draw_arc"); FUNFOR(YsamuruiSgtkYgdkUdrawUarc); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUarc) { P drawable_, gc_, filled_, x_, y_, width_, height_, angle1_, angle2_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(filled_, 2); { arg3 = (signed)YPiu(filled_); } ARG(x_, 3); { arg4 = (signed)YPiu(x_); } ARG(y_, 4); { arg5 = (signed)YPiu(y_); } ARG(width_, 5); { arg6 = (signed)YPiu(width_); } ARG(height_, 6); { arg7 = (signed)YPiu(height_); } ARG(angle1_, 7); { arg8 = (signed)YPiu(angle1_); } ARG(angle2_, 8); { arg9 = (signed)YPiu(angle2_); } gdk_draw_arc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUpolygon,"samurui/gtk","gdk_draw_polygon"); FUNFOR(YsamuruiSgtkYgdkUdrawUpolygon); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUpolygon) { P drawable_, gc_, filled_, points_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; GdkPoint *arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(filled_, 2); { arg3 = (signed)YPiu(filled_); } ARG(points_, 3); { int i; arg5 = (int)YPtlen(points_); arg4 = (char *)malloc(arg5 * sizeof(GdkPoint)); for(i=0; i < arg5; i++) { // current point... P cur = YPtelt(points_, i); arg4[i].x = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_x), cur)); arg4[i].y = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_y), cur)); } } gdk_draw_polygon(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } { if(arg4) free(arg4); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUdrawable,"samurui/gtk","gdk_draw_drawable"); FUNFOR(YsamuruiSgtkYgdkUdrawUdrawable); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUdrawable) { P drawable_, gc_, src_, xsrc_, ysrc_, xdest_, ydest_, width_, height_; GdkDrawable *arg1 ; GdkGC *arg2 ; GdkDrawable *arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(src_, 2); { arg3 = (GdkDrawable *)YPlu(src_); } ARG(xsrc_, 3); { arg4 = (signed)YPiu(xsrc_); } ARG(ysrc_, 4); { arg5 = (signed)YPiu(ysrc_); } ARG(xdest_, 5); { arg6 = (signed)YPiu(xdest_); } ARG(ydest_, 6); { arg7 = (signed)YPiu(ydest_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } gdk_draw_drawable(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUimage,"samurui/gtk","gdk_draw_image"); FUNFOR(YsamuruiSgtkYgdkUdrawUimage); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUimage) { P drawable_, gc_, image_, xsrc_, ysrc_, xdest_, ydest_, width_, height_; GdkDrawable *arg1 ; GdkGC *arg2 ; GdkImage *arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(image_, 2); { arg3 = (GdkImage *)YPlu(image_); } ARG(xsrc_, 3); { arg4 = (signed)YPiu(xsrc_); } ARG(ysrc_, 4); { arg5 = (signed)YPiu(ysrc_); } ARG(xdest_, 5); { arg6 = (signed)YPiu(xdest_); } ARG(ydest_, 6); { arg7 = (signed)YPiu(ydest_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } gdk_draw_image(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUpoints,"samurui/gtk","gdk_draw_points"); FUNFOR(YsamuruiSgtkYgdkUdrawUpoints); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUpoints) { P drawable_, gc_, points_; GdkDrawable *arg1 ; GdkGC *arg2 ; GdkPoint *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(points_, 2); { int i; arg4 = (int)YPtlen(points_); arg3 = (char *)malloc(arg4 * sizeof(GdkPoint)); for(i=0; i < arg4; i++) { // current point... P cur = YPtelt(points_, i); arg3[i].x = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_x), cur)); arg3[i].y = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_y), cur)); } } gdk_draw_points(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUsegments,"samurui/gtk","gdk_draw_segments"); FUNFOR(YsamuruiSgtkYgdkUdrawUsegments); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUsegments) { P drawable_, gc_, segs_, nsegs_; GdkDrawable *arg1 ; GdkGC *arg2 ; GdkSegment *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(segs_, 2); { arg3 = (GdkSegment *)YPlu(segs_); } ARG(nsegs_, 3); { arg4 = (signed)YPiu(nsegs_); } gdk_draw_segments(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUlines,"samurui/gtk","gdk_draw_lines"); FUNFOR(YsamuruiSgtkYgdkUdrawUlines); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUlines) { P drawable_, gc_, points_; GdkDrawable *arg1 ; GdkGC *arg2 ; GdkPoint *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(points_, 2); { int i; arg4 = (int)YPtlen(points_); arg3 = (char *)malloc(arg4 * sizeof(GdkPoint)); for(i=0; i < arg4; i++) { // current point... P cur = YPtelt(points_, i); arg3[i].x = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_x), cur)); arg3[i].y = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_y), cur)); } } gdk_draw_lines(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUglyphs,"samurui/gtk","gdk_draw_glyphs"); FUNFOR(YsamuruiSgtkYgdkUdrawUglyphs); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUglyphs) { P drawable_, gc_, font_, x_, y_, glyphs_; GdkDrawable *arg1 ; GdkGC *arg2 ; PangoFont *arg3 ; gint arg4 ; gint arg5 ; PangoGlyphString *arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(font_, 2); { arg3 = (PangoFont *)YPlu(font_); } ARG(x_, 3); { arg4 = (signed)YPiu(x_); } ARG(y_, 4); { arg5 = (signed)YPiu(y_); } ARG(glyphs_, 5); { arg6 = (PangoGlyphString *)YPlu(glyphs_); } gdk_draw_glyphs(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUlayoutUline,"samurui/gtk","gdk_draw_layout_line"); FUNFOR(YsamuruiSgtkYgdkUdrawUlayoutUline); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUlayoutUline) { P drawable_, gc_, x_, y_, line_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; PangoLayoutLine *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(line_, 4); { arg5 = (PangoLayoutLine *)YPlu(line_); } gdk_draw_layout_line(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUlayout,"samurui/gtk","gdk_draw_layout"); FUNFOR(YsamuruiSgtkYgdkUdrawUlayout); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUlayout) { P drawable_, gc_, x_, y_, layout_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; PangoLayout *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(layout_, 4); { arg5 = (PangoLayout *)YPlu(layout_); } gdk_draw_layout(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUlayoutUlineUwithUcolors,"samurui/gtk","gdk_draw_layout_line_with_colors"); FUNFOR(YsamuruiSgtkYgdkUdrawUlayoutUlineUwithUcolors); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUlayoutUlineUwithUcolors) { P drawable_, gc_, x_, y_, line_, foreground_, background_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; PangoLayoutLine *arg5 ; GdkColor *arg6 ; GdkColor *arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(line_, 4); { arg5 = (PangoLayoutLine *)YPlu(line_); } ARG(foreground_, 5); { arg6 = (GdkColor *)YPlu(foreground_); } ARG(background_, 6); { arg7 = (GdkColor *)YPlu(background_); } gdk_draw_layout_line_with_colors(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUlayoutUwithUcolors,"samurui/gtk","gdk_draw_layout_with_colors"); FUNFOR(YsamuruiSgtkYgdkUdrawUlayoutUwithUcolors); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUlayoutUwithUcolors) { P drawable_, gc_, x_, y_, layout_, foreground_, background_; GdkDrawable *arg1 ; GdkGC *arg2 ; gint arg3 ; gint arg4 ; PangoLayout *arg5 ; GdkColor *arg6 ; GdkColor *arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 1); { arg2 = (GdkGC *)YPlu(gc_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(layout_, 4); { arg5 = (PangoLayout *)YPlu(layout_); } ARG(foreground_, 5); { arg6 = (GdkColor *)YPlu(foreground_); } ARG(background_, 6); { arg7 = (GdkColor *)YPlu(background_); } gdk_draw_layout_with_colors(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUimage,"samurui/gtk","gdk_drawable_get_image"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUimage); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUimage) { P drawable_, x_, y_, width_, height_; GdkDrawable *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; GdkImage *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(width_, 3); { arg4 = (signed)YPiu(width_); } ARG(height_, 4); { arg5 = (signed)YPiu(height_); } result = (GdkImage *)gdk_drawable_get_image(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUclipUregion,"samurui/gtk","gdk_drawable_get_clip_region"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUclipUregion); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUclipUregion) { P drawable_; GdkDrawable *arg1 ; GdkRegion *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } result = (GdkRegion *)gdk_drawable_get_clip_region(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawableUgetUvisibleUregion,"samurui/gtk","gdk_drawable_get_visible_region"); FUNFOR(YsamuruiSgtkYgdkUdrawableUgetUvisibleUregion); FUNCODEDEF(YsamuruiSgtkYgdkUdrawableUgetUvisibleUregion) { P drawable_; GdkDrawable *arg1 ; GdkRegion *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } result = (GdkRegion *)gdk_drawable_get_visible_region(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUstring,"samurui/gtk","gdk_draw_string"); FUNFOR(YsamuruiSgtkYgdkUdrawUstring); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUstring) { P drawable_, font_, gc_, x_, y_, string_; GdkDrawable *arg1 ; GdkFont *arg2 ; GdkGC *arg3 ; gint arg4 ; gint arg5 ; gchar *arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(font_, 1); { arg2 = (GdkFont *)YPlu(font_); } ARG(gc_, 2); { arg3 = (GdkGC *)YPlu(gc_); } ARG(x_, 3); { arg4 = (signed)YPiu(x_); } ARG(y_, 4); { arg5 = (signed)YPiu(y_); } ARG(string_, 5); { arg6 = (char *)YPsu(string_); } gdk_draw_string(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUtext,"samurui/gtk","gdk_draw_text"); FUNFOR(YsamuruiSgtkYgdkUdrawUtext); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUtext) { P drawable_, font_, gc_, x_, y_, text_, text_length_; GdkDrawable *arg1 ; GdkFont *arg2 ; GdkGC *arg3 ; gint arg4 ; gint arg5 ; gchar *arg6 ; gint arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(font_, 1); { arg2 = (GdkFont *)YPlu(font_); } ARG(gc_, 2); { arg3 = (GdkGC *)YPlu(gc_); } ARG(x_, 3); { arg4 = (signed)YPiu(x_); } ARG(y_, 4); { arg5 = (signed)YPiu(y_); } ARG(text_, 5); { arg6 = (char *)YPsu(text_); } ARG(text_length_, 6); { arg7 = (signed)YPiu(text_length_); } gdk_draw_text(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUdrawUtextUwc,"samurui/gtk","gdk_draw_text_wc"); FUNFOR(YsamuruiSgtkYgdkUdrawUtextUwc); FUNCODEDEF(YsamuruiSgtkYgdkUdrawUtextUwc) { P drawable_, font_, gc_, x_, y_, text_, text_length_; GdkDrawable *arg1 ; GdkFont *arg2 ; GdkGC *arg3 ; gint arg4 ; gint arg5 ; GdkWChar *arg6 ; gint arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(font_, 1); { arg2 = (GdkFont *)YPlu(font_); } ARG(gc_, 2); { arg3 = (GdkGC *)YPlu(gc_); } ARG(x_, 3); { arg4 = (signed)YPiu(x_); } ARG(y_, 4); { arg5 = (signed)YPiu(y_); } ARG(text_, 5); { arg6 = (GdkWChar *)YPlu(text_); } ARG(text_length_, 6); { arg7 = (signed)YPiu(text_length_); } gdk_draw_text_wc(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkfontUtypeUset,"samurui/gtk","_GdkFont_type_set"); FUNFOR(YsamuruiSgtkYUgdkfontUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkfontUtypeUset) { P self_, type_; struct _GdkFont *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkFontType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkfontUtypeUget,"samurui/gtk","_GdkFont_type_get"); FUNFOR(YsamuruiSgtkYUgdkfontUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkfontUtypeUget) { P self_; struct _GdkFont *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkfontUascentUset,"samurui/gtk","_GdkFont_ascent_set"); FUNFOR(YsamuruiSgtkYUgdkfontUascentUset); FUNCODEDEF(YsamuruiSgtkYUgdkfontUascentUset) { P self_, ascent_; struct _GdkFont *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } ARG(ascent_, 1); { arg2 = (signed)YPiu(ascent_); } if (arg1) arg1->ascent = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkfontUascentUget,"samurui/gtk","_GdkFont_ascent_get"); FUNFOR(YsamuruiSgtkYUgdkfontUascentUget); FUNCODEDEF(YsamuruiSgtkYUgdkfontUascentUget) { P self_; struct _GdkFont *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } result = (gint ) (arg1->ascent); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkfontUdescentUset,"samurui/gtk","_GdkFont_descent_set"); FUNFOR(YsamuruiSgtkYUgdkfontUdescentUset); FUNCODEDEF(YsamuruiSgtkYUgdkfontUdescentUset) { P self_, descent_; struct _GdkFont *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } ARG(descent_, 1); { arg2 = (signed)YPiu(descent_); } if (arg1) arg1->descent = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkfontUdescentUget,"samurui/gtk","_GdkFont_descent_get"); FUNFOR(YsamuruiSgtkYUgdkfontUdescentUget); FUNCODEDEF(YsamuruiSgtkYUgdkfontUdescentUget) { P self_; struct _GdkFont *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } result = (gint ) (arg1->descent); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkfont,"samurui/gtk","new__GdkFont"); FUNFOR(YsamuruiSgtkYnewUUgdkfont); FUNCODEDEF(YsamuruiSgtkYnewUUgdkfont) { struct _GdkFont *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkFont *)(struct _GdkFont *) calloc(1, sizeof(struct _GdkFont)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkfont,"samurui/gtk","delete__GdkFont"); FUNFOR(YsamuruiSgtkYdeleteUUgdkfont); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkfont) { P self_; struct _GdkFont *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkFont *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUgetUtype,"samurui/gtk","gdk_font_get_type"); FUNFOR(YsamuruiSgtkYgdkUfontUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUfontUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_font_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUload,"samurui/gtk","gdk_font_load"); FUNFOR(YsamuruiSgtkYgdkUfontUload); FUNCODEDEF(YsamuruiSgtkYgdkUfontUload) { P font_name_; gchar *arg1 ; GdkFont *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_name_, 0); { arg1 = (char *)YPsu(font_name_); } result = (GdkFont *)gdk_font_load(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontsetUload,"samurui/gtk","gdk_fontset_load"); FUNFOR(YsamuruiSgtkYgdkUfontsetUload); FUNCODEDEF(YsamuruiSgtkYgdkUfontsetUload) { P fontset_name_; gchar *arg1 ; GdkFont *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fontset_name_, 0); { arg1 = (char *)YPsu(fontset_name_); } result = (GdkFont *)gdk_fontset_load(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUfromUdescription,"samurui/gtk","gdk_font_from_description"); FUNFOR(YsamuruiSgtkYgdkUfontUfromUdescription); FUNCODEDEF(YsamuruiSgtkYgdkUfontUfromUdescription) { P font_desc_; PangoFontDescription *arg1 ; GdkFont *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_desc_, 0); { arg1 = (PangoFontDescription *)YPlu(font_desc_); } result = (GdkFont *)gdk_font_from_description(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUref,"samurui/gtk","gdk_font_ref"); FUNFOR(YsamuruiSgtkYgdkUfontUref); FUNCODEDEF(YsamuruiSgtkYgdkUfontUref) { P font_; GdkFont *arg1 ; GdkFont *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } result = (GdkFont *)gdk_font_ref(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUunref,"samurui/gtk","gdk_font_unref"); FUNFOR(YsamuruiSgtkYgdkUfontUunref); FUNCODEDEF(YsamuruiSgtkYgdkUfontUunref) { P font_; GdkFont *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } gdk_font_unref(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUid,"samurui/gtk","gdk_font_id"); FUNFOR(YsamuruiSgtkYgdkUfontUid); FUNCODEDEF(YsamuruiSgtkYgdkUfontUid) { P font_; GdkFont *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } result = (gint )gdk_font_id(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUfontUequal,"samurui/gtk","gdk_font_equal"); FUNFOR(YsamuruiSgtkYgdkUfontUequal); FUNCODEDEF(YsamuruiSgtkYgdkUfontUequal) { P fonta_, fontb_; GdkFont *arg1 ; GdkFont *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fonta_, 0); { arg1 = (GdkFont *)YPlu(fonta_); } ARG(fontb_, 1); { arg2 = (GdkFont *)YPlu(fontb_); } result = (gboolean )gdk_font_equal(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUstringUwidth,"samurui/gtk","gdk_string_width"); FUNFOR(YsamuruiSgtkYgdkUstringUwidth); FUNCODEDEF(YsamuruiSgtkYgdkUstringUwidth) { P font_, string_; GdkFont *arg1 ; gchar *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(string_, 1); { arg2 = (char *)YPsu(string_); } result = (gint )gdk_string_width(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUtextUwidth,"samurui/gtk","gdk_text_width"); FUNFOR(YsamuruiSgtkYgdkUtextUwidth); FUNCODEDEF(YsamuruiSgtkYgdkUtextUwidth) { P font_, text_, text_length_; GdkFont *arg1 ; gchar *arg2 ; gint arg3 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(text_length_, 2); { arg3 = (signed)YPiu(text_length_); } result = (gint )gdk_text_width(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUtextUwidthUwc,"samurui/gtk","gdk_text_width_wc"); FUNFOR(YsamuruiSgtkYgdkUtextUwidthUwc); FUNCODEDEF(YsamuruiSgtkYgdkUtextUwidthUwc) { P font_, text_, text_length_; GdkFont *arg1 ; GdkWChar *arg2 ; gint arg3 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(text_, 1); { arg2 = (GdkWChar *)YPlu(text_); } ARG(text_length_, 2); { arg3 = (signed)YPiu(text_length_); } result = (gint )gdk_text_width_wc(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcharUwidth,"samurui/gtk","gdk_char_width"); FUNFOR(YsamuruiSgtkYgdkUcharUwidth); FUNCODEDEF(YsamuruiSgtkYgdkUcharUwidth) { P font_, character_; GdkFont *arg1 ; gchar arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(character_, 1); { arg2 = (char)YPiu(character_); } result = (gint )gdk_char_width(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcharUwidthUwc,"samurui/gtk","gdk_char_width_wc"); FUNFOR(YsamuruiSgtkYgdkUcharUwidthUwc); FUNCODEDEF(YsamuruiSgtkYgdkUcharUwidthUwc) { P font_, character_; GdkFont *arg1 ; GdkWChar arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(character_, 1); { arg2 = (unsigned)YPiu(character_); } result = (gint )gdk_char_width_wc(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUstringUmeasure,"samurui/gtk","gdk_string_measure"); FUNFOR(YsamuruiSgtkYgdkUstringUmeasure); FUNCODEDEF(YsamuruiSgtkYgdkUstringUmeasure) { P font_, string_; GdkFont *arg1 ; gchar *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(string_, 1); { arg2 = (char *)YPsu(string_); } result = (gint )gdk_string_measure(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUtextUmeasure,"samurui/gtk","gdk_text_measure"); FUNFOR(YsamuruiSgtkYgdkUtextUmeasure); FUNCODEDEF(YsamuruiSgtkYgdkUtextUmeasure) { P font_, text_, text_length_; GdkFont *arg1 ; gchar *arg2 ; gint arg3 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(text_length_, 2); { arg3 = (signed)YPiu(text_length_); } result = (gint )gdk_text_measure(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcharUmeasure,"samurui/gtk","gdk_char_measure"); FUNFOR(YsamuruiSgtkYgdkUcharUmeasure); FUNCODEDEF(YsamuruiSgtkYgdkUcharUmeasure) { P font_, character_; GdkFont *arg1 ; gchar arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(character_, 1); { arg2 = (char)YPiu(character_); } result = (gint )gdk_char_measure(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUstringUheight,"samurui/gtk","gdk_string_height"); FUNFOR(YsamuruiSgtkYgdkUstringUheight); FUNCODEDEF(YsamuruiSgtkYgdkUstringUheight) { P font_, string_; GdkFont *arg1 ; gchar *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(string_, 1); { arg2 = (char *)YPsu(string_); } result = (gint )gdk_string_height(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUtextUheight,"samurui/gtk","gdk_text_height"); FUNFOR(YsamuruiSgtkYgdkUtextUheight); FUNCODEDEF(YsamuruiSgtkYgdkUtextUheight) { P font_, text_, text_length_; GdkFont *arg1 ; gchar *arg2 ; gint arg3 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(text_length_, 2); { arg3 = (signed)YPiu(text_length_); } result = (gint )gdk_text_height(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUcharUheight,"samurui/gtk","gdk_char_height"); FUNFOR(YsamuruiSgtkYgdkUcharUheight); FUNCODEDEF(YsamuruiSgtkYgdkUcharUheight) { P font_, character_; GdkFont *arg1 ; gchar arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(character_, 1); { arg2 = (char)YPiu(character_); } result = (gint )gdk_char_height(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUtextUextents,"samurui/gtk","gdk_text_extents"); FUNFOR(YsamuruiSgtkYgdkUtextUextents); FUNCODEDEF(YsamuruiSgtkYgdkUtextUextents) { P font_, text_, text_length_, lbearing_, rbearing_, ascent_, descent_; GdkFont *arg1 ; gchar *arg2 ; gint arg3 ; gint *arg4 ; gint *arg5 ; gint *arg6 ; gint *arg7 ; gint *arg8 ; int actualint6 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg6 = &actualint6; } { // ignoring int *OUTPUT for $input arg6 $result $arg 6 } ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(text_length_, 2); { arg3 = (signed)YPiu(text_length_); } ARG(lbearing_, 3); { arg4 = (gint *)YPlu(lbearing_); } ARG(rbearing_, 4); { arg5 = (gint *)YPlu(rbearing_); } ARG(ascent_, 5); { arg7 = (gint *)YPlu(ascent_); } ARG(descent_, 6); { arg8 = (gint *)YPlu(descent_); } gdk_text_extents(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg6); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUtextUextentsUwc,"samurui/gtk","gdk_text_extents_wc"); FUNFOR(YsamuruiSgtkYgdkUtextUextentsUwc); FUNCODEDEF(YsamuruiSgtkYgdkUtextUextentsUwc) { P font_, text_, text_length_, lbearing_, rbearing_, ascent_, descent_; GdkFont *arg1 ; GdkWChar *arg2 ; gint arg3 ; gint *arg4 ; gint *arg5 ; gint *arg6 ; gint *arg7 ; gint *arg8 ; int actualint6 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg6 = &actualint6; } { // ignoring int *OUTPUT for $input arg6 $result $arg 6 } ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(text_, 1); { arg2 = (GdkWChar *)YPlu(text_); } ARG(text_length_, 2); { arg3 = (signed)YPiu(text_length_); } ARG(lbearing_, 3); { arg4 = (gint *)YPlu(lbearing_); } ARG(rbearing_, 4); { arg5 = (gint *)YPlu(rbearing_); } ARG(ascent_, 5); { arg7 = (gint *)YPlu(ascent_); } ARG(descent_, 6); { arg8 = (gint *)YPlu(descent_); } gdk_text_extents_wc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg6); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUstringUextents,"samurui/gtk","gdk_string_extents"); FUNFOR(YsamuruiSgtkYgdkUstringUextents); FUNCODEDEF(YsamuruiSgtkYgdkUstringUextents) { P font_, string_, lbearing_, rbearing_, ascent_, descent_; GdkFont *arg1 ; gchar *arg2 ; gint *arg3 ; gint *arg4 ; gint *arg5 ; gint *arg6 ; gint *arg7 ; int actualint5 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg5 = &actualint5; } { // ignoring int *OUTPUT for $input arg5 $result $arg 5 } ARG(font_, 0); { arg1 = (GdkFont *)YPlu(font_); } ARG(string_, 1); { arg2 = (char *)YPsu(string_); } ARG(lbearing_, 2); { arg3 = (gint *)YPlu(lbearing_); } ARG(rbearing_, 3); { arg4 = (gint *)YPlu(rbearing_); } ARG(ascent_, 4); { arg6 = (gint *)YPlu(ascent_); } ARG(descent_, 5); { arg7 = (gint *)YPlu(descent_); } gdk_string_extents(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg5); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventanyUtypeUset,"samurui/gtk","_GdkEventAny_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventanyUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventanyUtypeUset) { P self_, type_; struct _GdkEventAny *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventanyUtypeUget,"samurui/gtk","_GdkEventAny_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventanyUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventanyUtypeUget) { P self_; struct _GdkEventAny *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventanyUwindowUset,"samurui/gtk","_GdkEventAny_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventanyUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventanyUwindowUset) { P self_, window_; struct _GdkEventAny *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventanyUwindowUget,"samurui/gtk","_GdkEventAny_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventanyUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventanyUwindowUget) { P self_; struct _GdkEventAny *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventanyUsendUeventUset,"samurui/gtk","_GdkEventAny_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventanyUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventanyUsendUeventUset) { P self_, send_event_; struct _GdkEventAny *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventanyUsendUeventUget,"samurui/gtk","_GdkEventAny_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventanyUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventanyUsendUeventUget) { P self_; struct _GdkEventAny *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventany,"samurui/gtk","new__GdkEventAny"); FUNFOR(YsamuruiSgtkYnewUUgdkeventany); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventany) { struct _GdkEventAny *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventAny *)(struct _GdkEventAny *) calloc(1, sizeof(struct _GdkEventAny)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventany,"samurui/gtk","delete__GdkEventAny"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventany); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventany) { P self_; struct _GdkEventAny *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventAny *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUtypeUset,"samurui/gtk","_GdkEventExpose_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUtypeUset) { P self_, type_; struct _GdkEventExpose *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUtypeUget,"samurui/gtk","_GdkEventExpose_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUtypeUget) { P self_; struct _GdkEventExpose *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUwindowUset,"samurui/gtk","_GdkEventExpose_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUwindowUset) { P self_, window_; struct _GdkEventExpose *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUwindowUget,"samurui/gtk","_GdkEventExpose_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUwindowUget) { P self_; struct _GdkEventExpose *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUsendUeventUset,"samurui/gtk","_GdkEventExpose_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUsendUeventUset) { P self_, send_event_; struct _GdkEventExpose *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUsendUeventUget,"samurui/gtk","_GdkEventExpose_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUsendUeventUget) { P self_; struct _GdkEventExpose *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUareaUset,"samurui/gtk","_GdkEventExpose_area_set"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUareaUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUareaUset) { P self_, area_; struct _GdkEventExpose *arg1 ; GdkRectangle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } ARG(area_, 1); { arg2 = (GdkRectangle *)YPlu(area_); } if (arg1) arg1->area = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUareaUget,"samurui/gtk","_GdkEventExpose_area_get"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUareaUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUareaUget) { P self_; struct _GdkEventExpose *arg1 ; GdkRectangle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } result = (GdkRectangle *)& (arg1->area); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUregionUset,"samurui/gtk","_GdkEventExpose_region_set"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUregionUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUregionUset) { P self_, region_; struct _GdkEventExpose *arg1 ; GdkRegion *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } ARG(region_, 1); { arg2 = (GdkRegion *)YPlu(region_); } if (arg1) arg1->region = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUregionUget,"samurui/gtk","_GdkEventExpose_region_get"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUregionUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUregionUget) { P self_; struct _GdkEventExpose *arg1 ; GdkRegion *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } result = (GdkRegion *) (arg1->region); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUcountUset,"samurui/gtk","_GdkEventExpose_count_set"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUcountUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUcountUset) { P self_, count_; struct _GdkEventExpose *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } ARG(count_, 1); { arg2 = (signed)YPiu(count_); } if (arg1) arg1->count = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventexposeUcountUget,"samurui/gtk","_GdkEventExpose_count_get"); FUNFOR(YsamuruiSgtkYUgdkeventexposeUcountUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventexposeUcountUget) { P self_; struct _GdkEventExpose *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } result = (gint ) (arg1->count); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventexpose,"samurui/gtk","new__GdkEventExpose"); FUNFOR(YsamuruiSgtkYnewUUgdkeventexpose); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventexpose) { struct _GdkEventExpose *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventExpose *)(struct _GdkEventExpose *) calloc(1, sizeof(struct _GdkEventExpose)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventexpose,"samurui/gtk","delete__GdkEventExpose"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventexpose); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventexpose) { P self_; struct _GdkEventExpose *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventExpose *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUtypeUset,"samurui/gtk","_GdkEventVisibility_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUtypeUset) { P self_, type_; struct _GdkEventVisibility *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUtypeUget,"samurui/gtk","_GdkEventVisibility_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUtypeUget) { P self_; struct _GdkEventVisibility *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUwindowUset,"samurui/gtk","_GdkEventVisibility_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUwindowUset) { P self_, window_; struct _GdkEventVisibility *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUwindowUget,"samurui/gtk","_GdkEventVisibility_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUwindowUget) { P self_; struct _GdkEventVisibility *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUset,"samurui/gtk","_GdkEventVisibility_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUset) { P self_, send_event_; struct _GdkEventVisibility *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUget,"samurui/gtk","_GdkEventVisibility_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUget) { P self_; struct _GdkEventVisibility *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUstateUset,"samurui/gtk","_GdkEventVisibility_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUstateUset) { P self_, state_; struct _GdkEventVisibility *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } ARG(state_, 1); { arg2 = (int)YPiu(state_); } if (arg1) arg1->state = (GdkVisibilityState )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventvisibilityUstateUget,"samurui/gtk","_GdkEventVisibility_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventvisibilityUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventvisibilityUstateUget) { P self_; struct _GdkEventVisibility *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } result = (int ) (arg1->state); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventvisibility,"samurui/gtk","new__GdkEventVisibility"); FUNFOR(YsamuruiSgtkYnewUUgdkeventvisibility); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventvisibility) { struct _GdkEventVisibility *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventVisibility *)(struct _GdkEventVisibility *) calloc(1, sizeof(struct _GdkEventVisibility)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventvisibility,"samurui/gtk","delete__GdkEventVisibility"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventvisibility); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventvisibility) { P self_; struct _GdkEventVisibility *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventVisibility *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUtypeUset,"samurui/gtk","_GdkEventMotion_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUtypeUset) { P self_, type_; struct _GdkEventMotion *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUtypeUget,"samurui/gtk","_GdkEventMotion_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUtypeUget) { P self_; struct _GdkEventMotion *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUwindowUset,"samurui/gtk","_GdkEventMotion_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUwindowUset) { P self_, window_; struct _GdkEventMotion *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUwindowUget,"samurui/gtk","_GdkEventMotion_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUwindowUget) { P self_; struct _GdkEventMotion *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUsendUeventUset,"samurui/gtk","_GdkEventMotion_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUsendUeventUset) { P self_, send_event_; struct _GdkEventMotion *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUsendUeventUget,"samurui/gtk","_GdkEventMotion_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUsendUeventUget) { P self_; struct _GdkEventMotion *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUtimeUset,"samurui/gtk","_GdkEventMotion_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUtimeUset) { P self_, time_; struct _GdkEventMotion *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUtimeUget,"samurui/gtk","_GdkEventMotion_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUtimeUget) { P self_; struct _GdkEventMotion *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUxUset,"samurui/gtk","_GdkEventMotion_x_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUxUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUxUset) { P self_, x_; struct _GdkEventMotion *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(x_, 1); { arg2 = (double)((float)YPfu(x_)); } if (arg1) arg1->x = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUxUget,"samurui/gtk","_GdkEventMotion_x_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUxUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUxUget) { P self_; struct _GdkEventMotion *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gdouble ) (arg1->x); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUyUset,"samurui/gtk","_GdkEventMotion_y_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUyUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUyUset) { P self_, y_; struct _GdkEventMotion *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(y_, 1); { arg2 = (double)((float)YPfu(y_)); } if (arg1) arg1->y = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUyUget,"samurui/gtk","_GdkEventMotion_y_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUyUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUyUget) { P self_; struct _GdkEventMotion *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gdouble ) (arg1->y); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUaxesUset,"samurui/gtk","_GdkEventMotion_axes_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUaxesUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUaxesUset) { P self_, axes_; struct _GdkEventMotion *arg1 ; gdouble *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(axes_, 1); { arg2 = (gdouble *)YPlu(axes_); } if (arg1) arg1->axes = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUaxesUget,"samurui/gtk","_GdkEventMotion_axes_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUaxesUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUaxesUget) { P self_; struct _GdkEventMotion *arg1 ; gdouble *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gdouble *) (arg1->axes); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUstateUset,"samurui/gtk","_GdkEventMotion_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUstateUset) { P self_, state_; struct _GdkEventMotion *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUstateUget,"samurui/gtk","_GdkEventMotion_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUstateUget) { P self_; struct _GdkEventMotion *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (guint ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUisUhintUset,"samurui/gtk","_GdkEventMotion_is_hint_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUisUhintUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUisUhintUset) { P self_, is_hint_; struct _GdkEventMotion *arg1 ; gint16 *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(is_hint_, 1); { arg2 = (gint16 *)YPlu(is_hint_); } if (arg1) arg1->is_hint = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUisUhintUget,"samurui/gtk","_GdkEventMotion_is_hint_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUisUhintUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUisUhintUget) { P self_; struct _GdkEventMotion *arg1 ; gint16 *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gint16 *)& (arg1->is_hint); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUdeviceUset,"samurui/gtk","_GdkEventMotion_device_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUdeviceUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUdeviceUset) { P self_, device_; struct _GdkEventMotion *arg1 ; GdkDevice *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(device_, 1); { arg2 = (GdkDevice *)YPlu(device_); } if (arg1) arg1->device = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUdeviceUget,"samurui/gtk","_GdkEventMotion_device_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUdeviceUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUdeviceUget) { P self_; struct _GdkEventMotion *arg1 ; GdkDevice *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (GdkDevice *) (arg1->device); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUxUrootUset,"samurui/gtk","_GdkEventMotion_x_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUxUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUxUrootUset) { P self_, x_root_; struct _GdkEventMotion *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(x_root_, 1); { arg2 = (double)((float)YPfu(x_root_)); } if (arg1) arg1->x_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUxUrootUget,"samurui/gtk","_GdkEventMotion_x_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUxUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUxUrootUget) { P self_; struct _GdkEventMotion *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gdouble ) (arg1->x_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUyUrootUset,"samurui/gtk","_GdkEventMotion_y_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUyUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUyUrootUset) { P self_, y_root_; struct _GdkEventMotion *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } ARG(y_root_, 1); { arg2 = (double)((float)YPfu(y_root_)); } if (arg1) arg1->y_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventmotionUyUrootUget,"samurui/gtk","_GdkEventMotion_y_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventmotionUyUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventmotionUyUrootUget) { P self_; struct _GdkEventMotion *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } result = (gdouble ) (arg1->y_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventmotion,"samurui/gtk","new__GdkEventMotion"); FUNFOR(YsamuruiSgtkYnewUUgdkeventmotion); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventmotion) { struct _GdkEventMotion *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventMotion *)(struct _GdkEventMotion *) calloc(1, sizeof(struct _GdkEventMotion)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventmotion,"samurui/gtk","delete__GdkEventMotion"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventmotion); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventmotion) { P self_; struct _GdkEventMotion *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventMotion *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUtypeUset,"samurui/gtk","_GdkEventButton_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUtypeUset) { P self_, type_; struct _GdkEventButton *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUtypeUget,"samurui/gtk","_GdkEventButton_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUtypeUget) { P self_; struct _GdkEventButton *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUwindowUset,"samurui/gtk","_GdkEventButton_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUwindowUset) { P self_, window_; struct _GdkEventButton *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUwindowUget,"samurui/gtk","_GdkEventButton_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUwindowUget) { P self_; struct _GdkEventButton *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUsendUeventUset,"samurui/gtk","_GdkEventButton_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUsendUeventUset) { P self_, send_event_; struct _GdkEventButton *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUsendUeventUget,"samurui/gtk","_GdkEventButton_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUsendUeventUget) { P self_; struct _GdkEventButton *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUtimeUset,"samurui/gtk","_GdkEventButton_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUtimeUset) { P self_, time_; struct _GdkEventButton *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUtimeUget,"samurui/gtk","_GdkEventButton_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUtimeUget) { P self_; struct _GdkEventButton *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUxUset,"samurui/gtk","_GdkEventButton_x_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUxUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUxUset) { P self_, x_; struct _GdkEventButton *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(x_, 1); { arg2 = (double)((float)YPfu(x_)); } if (arg1) arg1->x = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUxUget,"samurui/gtk","_GdkEventButton_x_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUxUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUxUget) { P self_; struct _GdkEventButton *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (gdouble ) (arg1->x); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUyUset,"samurui/gtk","_GdkEventButton_y_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUyUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUyUset) { P self_, y_; struct _GdkEventButton *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(y_, 1); { arg2 = (double)((float)YPfu(y_)); } if (arg1) arg1->y = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUyUget,"samurui/gtk","_GdkEventButton_y_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUyUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUyUget) { P self_; struct _GdkEventButton *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (gdouble ) (arg1->y); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUaxesUset,"samurui/gtk","_GdkEventButton_axes_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUaxesUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUaxesUset) { P self_, axes_; struct _GdkEventButton *arg1 ; gdouble *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(axes_, 1); { arg2 = (gdouble *)YPlu(axes_); } if (arg1) arg1->axes = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUaxesUget,"samurui/gtk","_GdkEventButton_axes_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUaxesUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUaxesUget) { P self_; struct _GdkEventButton *arg1 ; gdouble *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (gdouble *) (arg1->axes); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUstateUset,"samurui/gtk","_GdkEventButton_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUstateUset) { P self_, state_; struct _GdkEventButton *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUstateUget,"samurui/gtk","_GdkEventButton_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUstateUget) { P self_; struct _GdkEventButton *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (guint ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUbuttonUset,"samurui/gtk","_GdkEventButton_button_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUbuttonUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUbuttonUset) { P self_, button_; struct _GdkEventButton *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(button_, 1); { arg2 = (unsigned)YPiu(button_); } if (arg1) arg1->button = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUbuttonUget,"samurui/gtk","_GdkEventButton_button_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUbuttonUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUbuttonUget) { P self_; struct _GdkEventButton *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (guint ) (arg1->button); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUdeviceUset,"samurui/gtk","_GdkEventButton_device_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUdeviceUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUdeviceUset) { P self_, device_; struct _GdkEventButton *arg1 ; GdkDevice *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(device_, 1); { arg2 = (GdkDevice *)YPlu(device_); } if (arg1) arg1->device = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUdeviceUget,"samurui/gtk","_GdkEventButton_device_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUdeviceUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUdeviceUget) { P self_; struct _GdkEventButton *arg1 ; GdkDevice *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (GdkDevice *) (arg1->device); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUxUrootUset,"samurui/gtk","_GdkEventButton_x_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUxUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUxUrootUset) { P self_, x_root_; struct _GdkEventButton *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(x_root_, 1); { arg2 = (double)((float)YPfu(x_root_)); } if (arg1) arg1->x_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUxUrootUget,"samurui/gtk","_GdkEventButton_x_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUxUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUxUrootUget) { P self_; struct _GdkEventButton *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (gdouble ) (arg1->x_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUyUrootUset,"samurui/gtk","_GdkEventButton_y_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUyUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUyUrootUset) { P self_, y_root_; struct _GdkEventButton *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } ARG(y_root_, 1); { arg2 = (double)((float)YPfu(y_root_)); } if (arg1) arg1->y_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventbuttonUyUrootUget,"samurui/gtk","_GdkEventButton_y_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventbuttonUyUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventbuttonUyUrootUget) { P self_; struct _GdkEventButton *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } result = (gdouble ) (arg1->y_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventbutton,"samurui/gtk","new__GdkEventButton"); FUNFOR(YsamuruiSgtkYnewUUgdkeventbutton); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventbutton) { struct _GdkEventButton *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventButton *)(struct _GdkEventButton *) calloc(1, sizeof(struct _GdkEventButton)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventbutton,"samurui/gtk","delete__GdkEventButton"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventbutton); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventbutton) { P self_; struct _GdkEventButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventButton *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUtypeUset,"samurui/gtk","_GdkEventScroll_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUtypeUset) { P self_, type_; struct _GdkEventScroll *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUtypeUget,"samurui/gtk","_GdkEventScroll_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUtypeUget) { P self_; struct _GdkEventScroll *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUwindowUset,"samurui/gtk","_GdkEventScroll_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUwindowUset) { P self_, window_; struct _GdkEventScroll *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUwindowUget,"samurui/gtk","_GdkEventScroll_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUwindowUget) { P self_; struct _GdkEventScroll *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUsendUeventUset,"samurui/gtk","_GdkEventScroll_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUsendUeventUset) { P self_, send_event_; struct _GdkEventScroll *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUsendUeventUget,"samurui/gtk","_GdkEventScroll_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUsendUeventUget) { P self_; struct _GdkEventScroll *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUtimeUset,"samurui/gtk","_GdkEventScroll_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUtimeUset) { P self_, time_; struct _GdkEventScroll *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUtimeUget,"samurui/gtk","_GdkEventScroll_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUtimeUget) { P self_; struct _GdkEventScroll *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUxUset,"samurui/gtk","_GdkEventScroll_x_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUxUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUxUset) { P self_, x_; struct _GdkEventScroll *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(x_, 1); { arg2 = (double)((float)YPfu(x_)); } if (arg1) arg1->x = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUxUget,"samurui/gtk","_GdkEventScroll_x_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUxUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUxUget) { P self_; struct _GdkEventScroll *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (gdouble ) (arg1->x); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUyUset,"samurui/gtk","_GdkEventScroll_y_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUyUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUyUset) { P self_, y_; struct _GdkEventScroll *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(y_, 1); { arg2 = (double)((float)YPfu(y_)); } if (arg1) arg1->y = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUyUget,"samurui/gtk","_GdkEventScroll_y_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUyUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUyUget) { P self_; struct _GdkEventScroll *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (gdouble ) (arg1->y); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUstateUset,"samurui/gtk","_GdkEventScroll_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUstateUset) { P self_, state_; struct _GdkEventScroll *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUstateUget,"samurui/gtk","_GdkEventScroll_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUstateUget) { P self_; struct _GdkEventScroll *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (guint ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUdirectionUset,"samurui/gtk","_GdkEventScroll_direction_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUdirectionUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUdirectionUset) { P self_, direction_; struct _GdkEventScroll *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(direction_, 1); { arg2 = (int)YPiu(direction_); } if (arg1) arg1->direction = (GdkScrollDirection )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUdirectionUget,"samurui/gtk","_GdkEventScroll_direction_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUdirectionUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUdirectionUget) { P self_; struct _GdkEventScroll *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (int ) (arg1->direction); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUdeviceUset,"samurui/gtk","_GdkEventScroll_device_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUdeviceUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUdeviceUset) { P self_, device_; struct _GdkEventScroll *arg1 ; GdkDevice *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(device_, 1); { arg2 = (GdkDevice *)YPlu(device_); } if (arg1) arg1->device = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUdeviceUget,"samurui/gtk","_GdkEventScroll_device_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUdeviceUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUdeviceUget) { P self_; struct _GdkEventScroll *arg1 ; GdkDevice *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (GdkDevice *) (arg1->device); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUxUrootUset,"samurui/gtk","_GdkEventScroll_x_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUxUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUxUrootUset) { P self_, x_root_; struct _GdkEventScroll *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(x_root_, 1); { arg2 = (double)((float)YPfu(x_root_)); } if (arg1) arg1->x_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUxUrootUget,"samurui/gtk","_GdkEventScroll_x_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUxUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUxUrootUget) { P self_; struct _GdkEventScroll *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (gdouble ) (arg1->x_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUyUrootUset,"samurui/gtk","_GdkEventScroll_y_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUyUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUyUrootUset) { P self_, y_root_; struct _GdkEventScroll *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } ARG(y_root_, 1); { arg2 = (double)((float)YPfu(y_root_)); } if (arg1) arg1->y_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventscrollUyUrootUget,"samurui/gtk","_GdkEventScroll_y_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventscrollUyUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventscrollUyUrootUget) { P self_; struct _GdkEventScroll *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } result = (gdouble ) (arg1->y_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventscroll,"samurui/gtk","new__GdkEventScroll"); FUNFOR(YsamuruiSgtkYnewUUgdkeventscroll); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventscroll) { struct _GdkEventScroll *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventScroll *)(struct _GdkEventScroll *) calloc(1, sizeof(struct _GdkEventScroll)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventscroll,"samurui/gtk","delete__GdkEventScroll"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventscroll); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventscroll) { P self_; struct _GdkEventScroll *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventScroll *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUtypeUset,"samurui/gtk","_GdkEventKey_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUtypeUset) { P self_, type_; struct _GdkEventKey *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUtypeUget,"samurui/gtk","_GdkEventKey_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUtypeUget) { P self_; struct _GdkEventKey *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUwindowUset,"samurui/gtk","_GdkEventKey_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUwindowUset) { P self_, window_; struct _GdkEventKey *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUwindowUget,"samurui/gtk","_GdkEventKey_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUwindowUget) { P self_; struct _GdkEventKey *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUsendUeventUset,"samurui/gtk","_GdkEventKey_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUsendUeventUset) { P self_, send_event_; struct _GdkEventKey *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUsendUeventUget,"samurui/gtk","_GdkEventKey_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUsendUeventUget) { P self_; struct _GdkEventKey *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUtimeUset,"samurui/gtk","_GdkEventKey_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUtimeUset) { P self_, time_; struct _GdkEventKey *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUtimeUget,"samurui/gtk","_GdkEventKey_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUtimeUget) { P self_; struct _GdkEventKey *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUstateUset,"samurui/gtk","_GdkEventKey_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUstateUset) { P self_, state_; struct _GdkEventKey *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUstateUget,"samurui/gtk","_GdkEventKey_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUstateUget) { P self_; struct _GdkEventKey *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (guint ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUkeyvalUset,"samurui/gtk","_GdkEventKey_keyval_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUkeyvalUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUkeyvalUset) { P self_, keyval_; struct _GdkEventKey *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(keyval_, 1); { arg2 = (unsigned)YPiu(keyval_); } if (arg1) arg1->keyval = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUkeyvalUget,"samurui/gtk","_GdkEventKey_keyval_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUkeyvalUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUkeyvalUget) { P self_; struct _GdkEventKey *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (guint ) (arg1->keyval); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUlengthUset,"samurui/gtk","_GdkEventKey_length_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUlengthUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUlengthUset) { P self_, length_; struct _GdkEventKey *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(length_, 1); { arg2 = (signed)YPiu(length_); } if (arg1) arg1->length = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUlengthUget,"samurui/gtk","_GdkEventKey_length_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUlengthUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUlengthUget) { P self_; struct _GdkEventKey *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (gint ) (arg1->length); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUstringUset,"samurui/gtk","_GdkEventKey_string_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUstringUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUstringUset) { P self_, string_; struct _GdkEventKey *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(string_, 1); { arg2 = (char *)YPsu(string_); } { if (arg1->string) free(arg1->string); arg1->string = (char *) malloc(strlen(arg2)+1); strcpy(arg1->string,arg2); } { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUstringUget,"samurui/gtk","_GdkEventKey_string_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUstringUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUstringUget) { P self_; struct _GdkEventKey *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (gchar *) (arg1->string); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUset,"samurui/gtk","_GdkEventKey_hardware_keycode_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUset) { P self_, hardware_keycode_; struct _GdkEventKey *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(hardware_keycode_, 1); { arg2 = (unsigned short)YPiu(hardware_keycode_); } if (arg1) arg1->hardware_keycode = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUget,"samurui/gtk","_GdkEventKey_hardware_keycode_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUget) { P self_; struct _GdkEventKey *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (guint16 ) (arg1->hardware_keycode); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUgroupUset,"samurui/gtk","_GdkEventKey_group_set"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUgroupUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUgroupUset) { P self_, group_; struct _GdkEventKey *arg1 ; guint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } ARG(group_, 1); { arg2 = (unsigned char)YPiu(group_); } if (arg1) arg1->group = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventkeyUgroupUget,"samurui/gtk","_GdkEventKey_group_get"); FUNFOR(YsamuruiSgtkYUgdkeventkeyUgroupUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventkeyUgroupUget) { P self_; struct _GdkEventKey *arg1 ; guint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } result = (guint8 ) (arg1->group); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventkey,"samurui/gtk","new__GdkEventKey"); FUNFOR(YsamuruiSgtkYnewUUgdkeventkey); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventkey) { struct _GdkEventKey *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventKey *)(struct _GdkEventKey *) calloc(1, sizeof(struct _GdkEventKey)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventkey,"samurui/gtk","delete__GdkEventKey"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventkey); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventkey) { P self_; struct _GdkEventKey *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventKey *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUtypeUset,"samurui/gtk","_GdkEventCrossing_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUtypeUset) { P self_, type_; struct _GdkEventCrossing *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUtypeUget,"samurui/gtk","_GdkEventCrossing_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUtypeUget) { P self_; struct _GdkEventCrossing *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUwindowUset,"samurui/gtk","_GdkEventCrossing_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUwindowUset) { P self_, window_; struct _GdkEventCrossing *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUwindowUget,"samurui/gtk","_GdkEventCrossing_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUwindowUget) { P self_; struct _GdkEventCrossing *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUsendUeventUset,"samurui/gtk","_GdkEventCrossing_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUsendUeventUset) { P self_, send_event_; struct _GdkEventCrossing *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUsendUeventUget,"samurui/gtk","_GdkEventCrossing_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUsendUeventUget) { P self_; struct _GdkEventCrossing *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUsubwindowUset,"samurui/gtk","_GdkEventCrossing_subwindow_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUsubwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUsubwindowUset) { P self_, subwindow_; struct _GdkEventCrossing *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(subwindow_, 1); { arg2 = (GdkWindow *)YPlu(subwindow_); } if (arg1) arg1->subwindow = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUsubwindowUget,"samurui/gtk","_GdkEventCrossing_subwindow_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUsubwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUsubwindowUget) { P self_; struct _GdkEventCrossing *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (GdkWindow *) (arg1->subwindow); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUtimeUset,"samurui/gtk","_GdkEventCrossing_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUtimeUset) { P self_, time_; struct _GdkEventCrossing *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUtimeUget,"samurui/gtk","_GdkEventCrossing_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUtimeUget) { P self_; struct _GdkEventCrossing *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUxUset,"samurui/gtk","_GdkEventCrossing_x_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUxUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUxUset) { P self_, x_; struct _GdkEventCrossing *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(x_, 1); { arg2 = (double)((float)YPfu(x_)); } if (arg1) arg1->x = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUxUget,"samurui/gtk","_GdkEventCrossing_x_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUxUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUxUget) { P self_; struct _GdkEventCrossing *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (gdouble ) (arg1->x); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUyUset,"samurui/gtk","_GdkEventCrossing_y_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUyUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUyUset) { P self_, y_; struct _GdkEventCrossing *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(y_, 1); { arg2 = (double)((float)YPfu(y_)); } if (arg1) arg1->y = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUyUget,"samurui/gtk","_GdkEventCrossing_y_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUyUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUyUget) { P self_; struct _GdkEventCrossing *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (gdouble ) (arg1->y); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUxUrootUset,"samurui/gtk","_GdkEventCrossing_x_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUxUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUxUrootUset) { P self_, x_root_; struct _GdkEventCrossing *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(x_root_, 1); { arg2 = (double)((float)YPfu(x_root_)); } if (arg1) arg1->x_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUxUrootUget,"samurui/gtk","_GdkEventCrossing_x_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUxUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUxUrootUget) { P self_; struct _GdkEventCrossing *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (gdouble ) (arg1->x_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUyUrootUset,"samurui/gtk","_GdkEventCrossing_y_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUyUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUyUrootUset) { P self_, y_root_; struct _GdkEventCrossing *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(y_root_, 1); { arg2 = (double)((float)YPfu(y_root_)); } if (arg1) arg1->y_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUyUrootUget,"samurui/gtk","_GdkEventCrossing_y_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUyUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUyUrootUget) { P self_; struct _GdkEventCrossing *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (gdouble ) (arg1->y_root); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUmodeUset,"samurui/gtk","_GdkEventCrossing_mode_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUmodeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUmodeUset) { P self_, mode_; struct _GdkEventCrossing *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } if (arg1) arg1->mode = (GdkCrossingMode )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUmodeUget,"samurui/gtk","_GdkEventCrossing_mode_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUmodeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUmodeUget) { P self_; struct _GdkEventCrossing *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (int ) (arg1->mode); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUdetailUset,"samurui/gtk","_GdkEventCrossing_detail_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUdetailUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUdetailUset) { P self_, detail_; struct _GdkEventCrossing *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(detail_, 1); { arg2 = (int)YPiu(detail_); } if (arg1) arg1->detail = (GdkNotifyType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUdetailUget,"samurui/gtk","_GdkEventCrossing_detail_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUdetailUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUdetailUget) { P self_; struct _GdkEventCrossing *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (int ) (arg1->detail); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUfocusUset,"samurui/gtk","_GdkEventCrossing_focus_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUfocusUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUfocusUset) { P self_, focus_; struct _GdkEventCrossing *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(focus_, 1); { arg2 = (signed)YPiu(focus_); } if (arg1) arg1->focus = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUfocusUget,"samurui/gtk","_GdkEventCrossing_focus_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUfocusUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUfocusUget) { P self_; struct _GdkEventCrossing *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (gboolean ) (arg1->focus); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUstateUset,"samurui/gtk","_GdkEventCrossing_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUstateUset) { P self_, state_; struct _GdkEventCrossing *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventcrossingUstateUget,"samurui/gtk","_GdkEventCrossing_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventcrossingUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventcrossingUstateUget) { P self_; struct _GdkEventCrossing *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } result = (guint ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventcrossing,"samurui/gtk","new__GdkEventCrossing"); FUNFOR(YsamuruiSgtkYnewUUgdkeventcrossing); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventcrossing) { struct _GdkEventCrossing *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventCrossing *)(struct _GdkEventCrossing *) calloc(1, sizeof(struct _GdkEventCrossing)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventcrossing,"samurui/gtk","delete__GdkEventCrossing"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventcrossing); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventcrossing) { P self_; struct _GdkEventCrossing *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventCrossing *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUtypeUset,"samurui/gtk","_GdkEventFocus_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUtypeUset) { P self_, type_; struct _GdkEventFocus *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUtypeUget,"samurui/gtk","_GdkEventFocus_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUtypeUget) { P self_; struct _GdkEventFocus *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUwindowUset,"samurui/gtk","_GdkEventFocus_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUwindowUset) { P self_, window_; struct _GdkEventFocus *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUwindowUget,"samurui/gtk","_GdkEventFocus_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUwindowUget) { P self_; struct _GdkEventFocus *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUsendUeventUset,"samurui/gtk","_GdkEventFocus_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUsendUeventUset) { P self_, send_event_; struct _GdkEventFocus *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUsendUeventUget,"samurui/gtk","_GdkEventFocus_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUsendUeventUget) { P self_; struct _GdkEventFocus *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUinUset,"samurui/gtk","_GdkEventFocus_in_set"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUinUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUinUset) { P self_, in_; struct _GdkEventFocus *arg1 ; gint16 *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } ARG(in_, 1); { arg2 = (gint16 *)YPlu(in_); } if (arg1) arg1->in = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventfocusUinUget,"samurui/gtk","_GdkEventFocus_in_get"); FUNFOR(YsamuruiSgtkYUgdkeventfocusUinUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventfocusUinUget) { P self_; struct _GdkEventFocus *arg1 ; gint16 *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } result = (gint16 *)& (arg1->in); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventfocus,"samurui/gtk","new__GdkEventFocus"); FUNFOR(YsamuruiSgtkYnewUUgdkeventfocus); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventfocus) { struct _GdkEventFocus *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventFocus *)(struct _GdkEventFocus *) calloc(1, sizeof(struct _GdkEventFocus)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventfocus,"samurui/gtk","delete__GdkEventFocus"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventfocus); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventfocus) { P self_; struct _GdkEventFocus *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventFocus *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUtypeUset,"samurui/gtk","_GdkEventConfigure_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUtypeUset) { P self_, type_; struct _GdkEventConfigure *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUtypeUget,"samurui/gtk","_GdkEventConfigure_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUtypeUget) { P self_; struct _GdkEventConfigure *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUwindowUset,"samurui/gtk","_GdkEventConfigure_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUwindowUset) { P self_, window_; struct _GdkEventConfigure *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUwindowUget,"samurui/gtk","_GdkEventConfigure_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUwindowUget) { P self_; struct _GdkEventConfigure *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUsendUeventUset,"samurui/gtk","_GdkEventConfigure_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUsendUeventUset) { P self_, send_event_; struct _GdkEventConfigure *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUsendUeventUget,"samurui/gtk","_GdkEventConfigure_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUsendUeventUget) { P self_; struct _GdkEventConfigure *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUxUset,"samurui/gtk","_GdkEventConfigure_x_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUxUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUxUset) { P self_, x_; struct _GdkEventConfigure *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } if (arg1) arg1->x = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUxUget,"samurui/gtk","_GdkEventConfigure_x_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUxUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUxUget) { P self_; struct _GdkEventConfigure *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (gint ) (arg1->x); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUyUset,"samurui/gtk","_GdkEventConfigure_y_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUyUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUyUset) { P self_, y_; struct _GdkEventConfigure *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(y_, 1); { arg2 = (signed)YPiu(y_); } if (arg1) arg1->y = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUyUget,"samurui/gtk","_GdkEventConfigure_y_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUyUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUyUget) { P self_; struct _GdkEventConfigure *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (gint ) (arg1->y); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUwidthUset,"samurui/gtk","_GdkEventConfigure_width_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUwidthUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUwidthUset) { P self_, width_; struct _GdkEventConfigure *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(width_, 1); { arg2 = (signed)YPiu(width_); } if (arg1) arg1->width = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUwidthUget,"samurui/gtk","_GdkEventConfigure_width_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUwidthUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUwidthUget) { P self_; struct _GdkEventConfigure *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (gint ) (arg1->width); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUheightUset,"samurui/gtk","_GdkEventConfigure_height_set"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUheightUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUheightUset) { P self_, height_; struct _GdkEventConfigure *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } ARG(height_, 1); { arg2 = (signed)YPiu(height_); } if (arg1) arg1->height = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventconfigureUheightUget,"samurui/gtk","_GdkEventConfigure_height_get"); FUNFOR(YsamuruiSgtkYUgdkeventconfigureUheightUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventconfigureUheightUget) { P self_; struct _GdkEventConfigure *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } result = (gint ) (arg1->height); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventconfigure,"samurui/gtk","new__GdkEventConfigure"); FUNFOR(YsamuruiSgtkYnewUUgdkeventconfigure); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventconfigure) { struct _GdkEventConfigure *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventConfigure *)(struct _GdkEventConfigure *) calloc(1, sizeof(struct _GdkEventConfigure)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventconfigure,"samurui/gtk","delete__GdkEventConfigure"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventconfigure); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventconfigure) { P self_; struct _GdkEventConfigure *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventConfigure *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUtypeUset,"samurui/gtk","_GdkEventProperty_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUtypeUset) { P self_, type_; struct _GdkEventProperty *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUtypeUget,"samurui/gtk","_GdkEventProperty_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUtypeUget) { P self_; struct _GdkEventProperty *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUwindowUset,"samurui/gtk","_GdkEventProperty_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUwindowUset) { P self_, window_; struct _GdkEventProperty *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUwindowUget,"samurui/gtk","_GdkEventProperty_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUwindowUget) { P self_; struct _GdkEventProperty *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUsendUeventUset,"samurui/gtk","_GdkEventProperty_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUsendUeventUset) { P self_, send_event_; struct _GdkEventProperty *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUsendUeventUget,"samurui/gtk","_GdkEventProperty_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUsendUeventUget) { P self_; struct _GdkEventProperty *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUatomUset,"samurui/gtk","_GdkEventProperty_atom_set"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUatomUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUatomUset) { P self_, atom_; struct _GdkEventProperty *arg1 ; GdkAtom arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } ARG(atom_, 1); { arg2 = (GdkAtom )YPlu(atom_); } if (arg1) arg1->atom = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUatomUget,"samurui/gtk","_GdkEventProperty_atom_get"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUatomUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUatomUget) { P self_; struct _GdkEventProperty *arg1 ; GdkAtom result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } result = (GdkAtom ) (arg1->atom); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUtimeUset,"samurui/gtk","_GdkEventProperty_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUtimeUset) { P self_, time_; struct _GdkEventProperty *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUtimeUget,"samurui/gtk","_GdkEventProperty_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUtimeUget) { P self_; struct _GdkEventProperty *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUstateUset,"samurui/gtk","_GdkEventProperty_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUstateUset) { P self_, state_; struct _GdkEventProperty *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } ARG(state_, 1); { arg2 = (unsigned)YPiu(state_); } if (arg1) arg1->state = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventpropertyUstateUget,"samurui/gtk","_GdkEventProperty_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventpropertyUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventpropertyUstateUget) { P self_; struct _GdkEventProperty *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } result = (guint ) (arg1->state); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventproperty,"samurui/gtk","new__GdkEventProperty"); FUNFOR(YsamuruiSgtkYnewUUgdkeventproperty); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventproperty) { struct _GdkEventProperty *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventProperty *)(struct _GdkEventProperty *) calloc(1, sizeof(struct _GdkEventProperty)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventproperty,"samurui/gtk","delete__GdkEventProperty"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventproperty); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventproperty) { P self_; struct _GdkEventProperty *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProperty *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUtypeUset,"samurui/gtk","_GdkEventSelection_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUtypeUset) { P self_, type_; struct _GdkEventSelection *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUtypeUget,"samurui/gtk","_GdkEventSelection_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUtypeUget) { P self_; struct _GdkEventSelection *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUwindowUset,"samurui/gtk","_GdkEventSelection_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUwindowUset) { P self_, window_; struct _GdkEventSelection *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUwindowUget,"samurui/gtk","_GdkEventSelection_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUwindowUget) { P self_; struct _GdkEventSelection *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUsendUeventUset,"samurui/gtk","_GdkEventSelection_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUsendUeventUset) { P self_, send_event_; struct _GdkEventSelection *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUsendUeventUget,"samurui/gtk","_GdkEventSelection_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUsendUeventUget) { P self_; struct _GdkEventSelection *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUselectionUset,"samurui/gtk","_GdkEventSelection_selection_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUselectionUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUselectionUset) { P self_, selection_; struct _GdkEventSelection *arg1 ; GdkAtom arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(selection_, 1); { arg2 = (GdkAtom )YPlu(selection_); } if (arg1) arg1->selection = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUselectionUget,"samurui/gtk","_GdkEventSelection_selection_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUselectionUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUselectionUget) { P self_; struct _GdkEventSelection *arg1 ; GdkAtom result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (GdkAtom ) (arg1->selection); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUtargetUset,"samurui/gtk","_GdkEventSelection_target_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUtargetUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUtargetUset) { P self_, target_; struct _GdkEventSelection *arg1 ; GdkAtom arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(target_, 1); { arg2 = (GdkAtom )YPlu(target_); } if (arg1) arg1->target = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUtargetUget,"samurui/gtk","_GdkEventSelection_target_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUtargetUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUtargetUget) { P self_; struct _GdkEventSelection *arg1 ; GdkAtom result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (GdkAtom ) (arg1->target); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUpropertyUset,"samurui/gtk","_GdkEventSelection_property_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUpropertyUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUpropertyUset) { P self_, property_; struct _GdkEventSelection *arg1 ; GdkAtom arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(property_, 1); { arg2 = (GdkAtom )YPlu(property_); } if (arg1) arg1->property = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUpropertyUget,"samurui/gtk","_GdkEventSelection_property_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUpropertyUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUpropertyUget) { P self_; struct _GdkEventSelection *arg1 ; GdkAtom result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (GdkAtom ) (arg1->property); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUtimeUset,"samurui/gtk","_GdkEventSelection_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUtimeUset) { P self_, time_; struct _GdkEventSelection *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUtimeUget,"samurui/gtk","_GdkEventSelection_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUtimeUget) { P self_; struct _GdkEventSelection *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUrequestorUset,"samurui/gtk","_GdkEventSelection_requestor_set"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUrequestorUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUrequestorUset) { P self_, requestor_; struct _GdkEventSelection *arg1 ; GdkNativeWindow arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } ARG(requestor_, 1); { arg2 = (GdkNativeWindow )YPlu(requestor_); } if (arg1) arg1->requestor = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventselectionUrequestorUget,"samurui/gtk","_GdkEventSelection_requestor_get"); FUNFOR(YsamuruiSgtkYUgdkeventselectionUrequestorUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventselectionUrequestorUget) { P self_; struct _GdkEventSelection *arg1 ; GdkNativeWindow result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } result = (GdkNativeWindow ) (arg1->requestor); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventselection,"samurui/gtk","new__GdkEventSelection"); FUNFOR(YsamuruiSgtkYnewUUgdkeventselection); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventselection) { struct _GdkEventSelection *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventSelection *)(struct _GdkEventSelection *) calloc(1, sizeof(struct _GdkEventSelection)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventselection,"samurui/gtk","delete__GdkEventSelection"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventselection); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventselection) { P self_; struct _GdkEventSelection *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSelection *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUtypeUset,"samurui/gtk","_GdkEventProximity_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUtypeUset) { P self_, type_; struct _GdkEventProximity *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUtypeUget,"samurui/gtk","_GdkEventProximity_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUtypeUget) { P self_; struct _GdkEventProximity *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUwindowUset,"samurui/gtk","_GdkEventProximity_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUwindowUset) { P self_, window_; struct _GdkEventProximity *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUwindowUget,"samurui/gtk","_GdkEventProximity_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUwindowUget) { P self_; struct _GdkEventProximity *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUsendUeventUset,"samurui/gtk","_GdkEventProximity_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUsendUeventUset) { P self_, send_event_; struct _GdkEventProximity *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUsendUeventUget,"samurui/gtk","_GdkEventProximity_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUsendUeventUget) { P self_; struct _GdkEventProximity *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUtimeUset,"samurui/gtk","_GdkEventProximity_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUtimeUset) { P self_, time_; struct _GdkEventProximity *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUtimeUget,"samurui/gtk","_GdkEventProximity_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUtimeUget) { P self_; struct _GdkEventProximity *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUdeviceUset,"samurui/gtk","_GdkEventProximity_device_set"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUdeviceUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUdeviceUset) { P self_, device_; struct _GdkEventProximity *arg1 ; GdkDevice *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } ARG(device_, 1); { arg2 = (GdkDevice *)YPlu(device_); } if (arg1) arg1->device = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventproximityUdeviceUget,"samurui/gtk","_GdkEventProximity_device_get"); FUNFOR(YsamuruiSgtkYUgdkeventproximityUdeviceUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventproximityUdeviceUget) { P self_; struct _GdkEventProximity *arg1 ; GdkDevice *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } result = (GdkDevice *) (arg1->device); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventproximity,"samurui/gtk","new__GdkEventProximity"); FUNFOR(YsamuruiSgtkYnewUUgdkeventproximity); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventproximity) { struct _GdkEventProximity *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventProximity *)(struct _GdkEventProximity *) calloc(1, sizeof(struct _GdkEventProximity)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventproximity,"samurui/gtk","delete__GdkEventProximity"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventproximity); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventproximity) { P self_; struct _GdkEventProximity *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventProximity *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUtypeUset,"samurui/gtk","_GdkEventClient_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUtypeUset) { P self_, type_; struct _GdkEventClient *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUtypeUget,"samurui/gtk","_GdkEventClient_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUtypeUget) { P self_; struct _GdkEventClient *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUwindowUset,"samurui/gtk","_GdkEventClient_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUwindowUset) { P self_, window_; struct _GdkEventClient *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUwindowUget,"samurui/gtk","_GdkEventClient_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUwindowUget) { P self_; struct _GdkEventClient *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUsendUeventUset,"samurui/gtk","_GdkEventClient_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUsendUeventUset) { P self_, send_event_; struct _GdkEventClient *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUsendUeventUget,"samurui/gtk","_GdkEventClient_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUsendUeventUget) { P self_; struct _GdkEventClient *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUmessageUtypeUset,"samurui/gtk","_GdkEventClient_message_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUmessageUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUmessageUtypeUset) { P self_, message_type_; struct _GdkEventClient *arg1 ; GdkAtom arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } ARG(message_type_, 1); { arg2 = (GdkAtom )YPlu(message_type_); } if (arg1) arg1->message_type = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUmessageUtypeUget,"samurui/gtk","_GdkEventClient_message_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUmessageUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUmessageUtypeUget) { P self_; struct _GdkEventClient *arg1 ; GdkAtom result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } result = (GdkAtom ) (arg1->message_type); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUformatUset,"samurui/gtk","_GdkEventClient_data_format_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUformatUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUformatUset) { P self_, data_format_; struct _GdkEventClient *arg1 ; gushort arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } ARG(data_format_, 1); { arg2 = (unsigned short)YPiu(data_format_); } if (arg1) arg1->data_format = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUformatUget,"samurui/gtk","_GdkEventClient_data_format_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUformatUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUformatUget) { P self_; struct _GdkEventClient *arg1 ; gushort result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } result = (gushort ) (arg1->data_format); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUget,"samurui/gtk","_GdkEventClient_data_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUget) { P self_; struct _GdkEventClient *arg1 ; _GdkEventClient_data *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } result = (_GdkEventClient_data *)& (arg1->data); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventclient,"samurui/gtk","new__GdkEventClient"); FUNFOR(YsamuruiSgtkYnewUUgdkeventclient); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventclient) { struct _GdkEventClient *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventClient *)(struct _GdkEventClient *) calloc(1, sizeof(struct _GdkEventClient)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventclient,"samurui/gtk","delete__GdkEventClient"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventclient); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventclient) { P self_; struct _GdkEventClient *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventClient *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUbUset,"samurui/gtk","_GdkEventClient_data_b_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUbUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUbUset) { P self_, b_; _GdkEventClient_data *arg1 ; char *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } ARG(b_, 1); { int i; arg2 = (char *)malloc(20 * sizeof(char)); for(i=0; i < 20; i++) { arg2[i] = (char)YPcu(YPtelt(b_, i)); } } { int i; for(i=0; i < 20; i++) { arg1->b[i] = arg2[i]; } } { // do nothing! it's a void! } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUbUget,"samurui/gtk","_GdkEventClient_data_b_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUbUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUbUget) { P self_; _GdkEventClient_data *arg1 ; char *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } result = (char *)(char *) (arg1->b); { retval = YPPsfab((P)strlen(result), (P)0); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUsUset,"samurui/gtk","_GdkEventClient_data_s_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUsUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUsUset) { P self_, s_; _GdkEventClient_data *arg1 ; short *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } ARG(s_, 1); { int i; arg2 = (short *)malloc(10 * sizeof(short)); for(i=0; i < 10; i++) { arg2[i] = (short)YPiu(YPtelt(s_, i)); } } { int i; for(i=0; i < 10; i++) { arg1->s[i] = arg2[i]; } } { // do nothing! it's a void! } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUsUget,"samurui/gtk","_GdkEventClient_data_s_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUsUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUsUget) { P self_; _GdkEventClient_data *arg1 ; short *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } result = (short *)(short *) (arg1->s); { int i; retval = YPPtfab((P)10, (P)0); for(i=0; i < 10; i++) { YPtelt_setter((P)YPib((P)((int)result[i])), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUlUset,"samurui/gtk","_GdkEventClient_data_l_set"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUlUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUlUset) { P self_, l_; _GdkEventClient_data *arg1 ; long *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } ARG(l_, 1); { int i; arg2 = (long *)malloc(5 * sizeof(long)); for(i=0; i < 5; i++) { arg2[i] = (long)YPiu(YPtelt(l_, i)); } } { int i; for(i=0; i < 5; i++) { arg1->l[i] = arg2[i]; } } { // do nothing! it's a void! } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventclientUdataUlUget,"samurui/gtk","_GdkEventClient_data_l_get"); FUNFOR(YsamuruiSgtkYUgdkeventclientUdataUlUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventclientUdataUlUget) { P self_; _GdkEventClient_data *arg1 ; long *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } result = (long *)(long *) (arg1->l); { int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPib((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventclientUdata,"samurui/gtk","new__GdkEventClient_data"); FUNFOR(YsamuruiSgtkYnewUUgdkeventclientUdata); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventclientUdata) { _GdkEventClient_data *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (_GdkEventClient_data *)(_GdkEventClient_data *) calloc(1, sizeof(_GdkEventClient_data)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventclientUdata,"samurui/gtk","delete__GdkEventClient_data"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventclientUdata); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventclientUdata) { P self_; _GdkEventClient_data *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (_GdkEventClient_data *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUtypeUset,"samurui/gtk","_GdkEventSetting_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUtypeUset) { P self_, type_; struct _GdkEventSetting *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUtypeUget,"samurui/gtk","_GdkEventSetting_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUtypeUget) { P self_; struct _GdkEventSetting *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUwindowUset,"samurui/gtk","_GdkEventSetting_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUwindowUset) { P self_, window_; struct _GdkEventSetting *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUwindowUget,"samurui/gtk","_GdkEventSetting_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUwindowUget) { P self_; struct _GdkEventSetting *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUsendUeventUset,"samurui/gtk","_GdkEventSetting_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUsendUeventUset) { P self_, send_event_; struct _GdkEventSetting *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUsendUeventUget,"samurui/gtk","_GdkEventSetting_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUsendUeventUget) { P self_; struct _GdkEventSetting *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUactionUset,"samurui/gtk","_GdkEventSetting_action_set"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUactionUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUactionUset) { P self_, action_; struct _GdkEventSetting *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } ARG(action_, 1); { arg2 = (int)YPiu(action_); } if (arg1) arg1->action = (GdkSettingAction )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUactionUget,"samurui/gtk","_GdkEventSetting_action_get"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUactionUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUactionUget) { P self_; struct _GdkEventSetting *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } result = (int ) (arg1->action); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUnameUset,"samurui/gtk","_GdkEventSetting_name_set"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUnameUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUnameUset) { P self_, name_; struct _GdkEventSetting *arg1 ; char *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } { if (arg1->name) free(arg1->name); arg1->name = (char *) malloc(strlen(arg2)+1); strcpy(arg1->name,arg2); } { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventsettingUnameUget,"samurui/gtk","_GdkEventSetting_name_get"); FUNFOR(YsamuruiSgtkYUgdkeventsettingUnameUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventsettingUnameUget) { P self_; struct _GdkEventSetting *arg1 ; char *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } result = (char *) (arg1->name); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventsetting,"samurui/gtk","new__GdkEventSetting"); FUNFOR(YsamuruiSgtkYnewUUgdkeventsetting); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventsetting) { struct _GdkEventSetting *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventSetting *)(struct _GdkEventSetting *) calloc(1, sizeof(struct _GdkEventSetting)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventsetting,"samurui/gtk","delete__GdkEventSetting"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventsetting); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventsetting) { P self_; struct _GdkEventSetting *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventSetting *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUtypeUset,"samurui/gtk","_GdkEventWindowState_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUtypeUset) { P self_, type_; struct _GdkEventWindowState *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUtypeUget,"samurui/gtk","_GdkEventWindowState_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUtypeUget) { P self_; struct _GdkEventWindowState *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUwindowUset,"samurui/gtk","_GdkEventWindowState_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUwindowUset) { P self_, window_; struct _GdkEventWindowState *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUwindowUget,"samurui/gtk","_GdkEventWindowState_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUwindowUget) { P self_; struct _GdkEventWindowState *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUset,"samurui/gtk","_GdkEventWindowState_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUset) { P self_, send_event_; struct _GdkEventWindowState *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUget,"samurui/gtk","_GdkEventWindowState_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUget) { P self_; struct _GdkEventWindowState *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUset,"samurui/gtk","_GdkEventWindowState_changed_mask_set"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUset) { P self_, changed_mask_; struct _GdkEventWindowState *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } ARG(changed_mask_, 1); { arg2 = (int)YPiu(changed_mask_); } if (arg1) arg1->changed_mask = (GdkWindowState )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUget,"samurui/gtk","_GdkEventWindowState_changed_mask_get"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUget) { P self_; struct _GdkEventWindowState *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } result = (int ) (arg1->changed_mask); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUset,"samurui/gtk","_GdkEventWindowState_new_window_state_set"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUset) { P self_, new_window_state_; struct _GdkEventWindowState *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } ARG(new_window_state_, 1); { arg2 = (int)YPiu(new_window_state_); } if (arg1) arg1->new_window_state = (GdkWindowState )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUget,"samurui/gtk","_GdkEventWindowState_new_window_state_get"); FUNFOR(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUget) { P self_; struct _GdkEventWindowState *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } result = (int ) (arg1->new_window_state); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventwindowstate,"samurui/gtk","new__GdkEventWindowState"); FUNFOR(YsamuruiSgtkYnewUUgdkeventwindowstate); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventwindowstate) { struct _GdkEventWindowState *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventWindowState *)(struct _GdkEventWindowState *) calloc(1, sizeof(struct _GdkEventWindowState)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventwindowstate,"samurui/gtk","delete__GdkEventWindowState"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventwindowstate); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventwindowstate) { P self_; struct _GdkEventWindowState *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventWindowState *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUtypeUset,"samurui/gtk","_GdkEventDND_type_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUtypeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUtypeUset) { P self_, type_; struct _GdkEventDND *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } if (arg1) arg1->type = (GdkEventType )arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUtypeUget,"samurui/gtk","_GdkEventDND_type_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUtypeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUtypeUget) { P self_; struct _GdkEventDND *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (int ) (arg1->type); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUwindowUset,"samurui/gtk","_GdkEventDND_window_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUwindowUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUwindowUset) { P self_, window_; struct _GdkEventDND *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } if (arg1) arg1->window = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUwindowUget,"samurui/gtk","_GdkEventDND_window_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUwindowUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUwindowUget) { P self_; struct _GdkEventDND *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (GdkWindow *) (arg1->window); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUsendUeventUset,"samurui/gtk","_GdkEventDND_send_event_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUsendUeventUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUsendUeventUset) { P self_, send_event_; struct _GdkEventDND *arg1 ; gint8 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(send_event_, 1); { arg2 = (signed)YPiu(send_event_); } if (arg1) arg1->send_event = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUsendUeventUget,"samurui/gtk","_GdkEventDND_send_event_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUsendUeventUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUsendUeventUget) { P self_; struct _GdkEventDND *arg1 ; gint8 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (gint8 ) (arg1->send_event); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUcontextUset,"samurui/gtk","_GdkEventDND_context_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUcontextUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUcontextUset) { P self_, context_; struct _GdkEventDND *arg1 ; GdkDragContext *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(context_, 1); { arg2 = (GdkDragContext *)YPlu(context_); } if (arg1) arg1->context = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUcontextUget,"samurui/gtk","_GdkEventDND_context_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUcontextUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUcontextUget) { P self_; struct _GdkEventDND *arg1 ; GdkDragContext *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (GdkDragContext *) (arg1->context); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUtimeUset,"samurui/gtk","_GdkEventDND_time_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUtimeUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUtimeUset) { P self_, time_; struct _GdkEventDND *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(time_, 1); { arg2 = (unsigned)YPiu(time_); } if (arg1) arg1->time = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUtimeUget,"samurui/gtk","_GdkEventDND_time_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUtimeUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUtimeUget) { P self_; struct _GdkEventDND *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (guint32 ) (arg1->time); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUxUrootUset,"samurui/gtk","_GdkEventDND_x_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUxUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUxUrootUset) { P self_, x_root_; struct _GdkEventDND *arg1 ; gshort arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(x_root_, 1); { arg2 = (short)YPiu(x_root_); } if (arg1) arg1->x_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUxUrootUget,"samurui/gtk","_GdkEventDND_x_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUxUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUxUrootUget) { P self_; struct _GdkEventDND *arg1 ; gshort result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (gshort ) (arg1->x_root); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUyUrootUset,"samurui/gtk","_GdkEventDND_y_root_set"); FUNFOR(YsamuruiSgtkYUgdkeventdndUyUrootUset); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUyUrootUset) { P self_, y_root_; struct _GdkEventDND *arg1 ; gshort arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } ARG(y_root_, 1); { arg2 = (short)YPiu(y_root_); } if (arg1) arg1->y_root = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgdkeventdndUyUrootUget,"samurui/gtk","_GdkEventDND_y_root_get"); FUNFOR(YsamuruiSgtkYUgdkeventdndUyUrootUget); FUNCODEDEF(YsamuruiSgtkYUgdkeventdndUyUrootUget) { P self_; struct _GdkEventDND *arg1 ; gshort result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } result = (gshort ) (arg1->y_root); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgdkeventdnd,"samurui/gtk","new__GdkEventDND"); FUNFOR(YsamuruiSgtkYnewUUgdkeventdnd); FUNCODEDEF(YsamuruiSgtkYnewUUgdkeventdnd) { struct _GdkEventDND *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GdkEventDND *)(struct _GdkEventDND *) calloc(1, sizeof(struct _GdkEventDND)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgdkeventdnd,"samurui/gtk","delete__GdkEventDND"); FUNFOR(YsamuruiSgtkYdeleteUUgdkeventdnd); FUNCODEDEF(YsamuruiSgtkYdeleteUUgdkeventdnd) { P self_; struct _GdkEventDND *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GdkEventDND *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUtype,"samurui/gtk","gdk_event_get_type"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_event_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventsUpending,"samurui/gtk","gdk_events_pending"); FUNFOR(YsamuruiSgtkYgdkUeventsUpending); FUNCODEDEF(YsamuruiSgtkYgdkUeventsUpending) { gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gboolean )gdk_events_pending(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUget,"samurui/gtk","gdk_event_get"); FUNFOR(YsamuruiSgtkYgdkUeventUget); FUNCODEDEF(YsamuruiSgtkYgdkUeventUget) { GdkEvent *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkEvent *)gdk_event_get(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUpeek,"samurui/gtk","gdk_event_peek"); FUNFOR(YsamuruiSgtkYgdkUeventUpeek); FUNCODEDEF(YsamuruiSgtkYgdkUeventUpeek) { GdkEvent *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkEvent *)gdk_event_peek(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUgraphicsUexpose,"samurui/gtk","gdk_event_get_graphics_expose"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUgraphicsUexpose); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUgraphicsUexpose) { P window_; GdkWindow *arg1 ; GdkEvent *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GdkEvent *)gdk_event_get_graphics_expose(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUput,"samurui/gtk","gdk_event_put"); FUNFOR(YsamuruiSgtkYgdkUeventUput); FUNCODEDEF(YsamuruiSgtkYgdkUeventUput) { P event_; GdkEvent *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } gdk_event_put(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUcopy,"samurui/gtk","gdk_event_copy"); FUNFOR(YsamuruiSgtkYgdkUeventUcopy); FUNCODEDEF(YsamuruiSgtkYgdkUeventUcopy) { P event_; GdkEvent *arg1 ; GdkEvent *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } result = (GdkEvent *)gdk_event_copy(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUfree,"samurui/gtk","gdk_event_free"); FUNFOR(YsamuruiSgtkYgdkUeventUfree); FUNCODEDEF(YsamuruiSgtkYgdkUeventUfree) { P event_; GdkEvent *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } gdk_event_free(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUtime,"samurui/gtk","gdk_event_get_time"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUtime); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUtime) { P event_; GdkEvent *arg1 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } result = (guint32 )gdk_event_get_time(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUstate,"samurui/gtk","gdk_event_get_state"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUstate); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUstate) { P event_, state_; GdkEvent *arg1 ; GdkModifierType *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } ARG(state_, 1); { arg2 = (GdkModifierType *)YPlu(state_); } result = (gboolean )gdk_event_get_state(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUcoords,"samurui/gtk","gdk_event_get_coords"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUcoords); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUcoords) { P event_, x_win_, y_win_; GdkEvent *arg1 ; gdouble *arg2 ; gdouble *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } ARG(x_win_, 1); { arg2 = (gdouble *)YPlu(x_win_); } ARG(y_win_, 2); { arg3 = (gdouble *)YPlu(y_win_); } result = (gboolean )gdk_event_get_coords(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUrootUcoords,"samurui/gtk","gdk_event_get_root_coords"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUrootUcoords); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUrootUcoords) { P event_, x_root_, y_root_; GdkEvent *arg1 ; gdouble *arg2 ; gdouble *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } ARG(x_root_, 1); { arg2 = (gdouble *)YPlu(x_root_); } ARG(y_root_, 2); { arg3 = (gdouble *)YPlu(y_root_); } result = (gboolean )gdk_event_get_root_coords(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUgetUaxis,"samurui/gtk","gdk_event_get_axis"); FUNFOR(YsamuruiSgtkYgdkUeventUgetUaxis); FUNCODEDEF(YsamuruiSgtkYgdkUeventUgetUaxis) { P event_, axis_use_, value_; GdkEvent *arg1 ; int arg2 ; gdouble *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } ARG(axis_use_, 1); { arg2 = (int)YPiu(axis_use_); } ARG(value_, 2); { arg3 = (gdouble *)YPlu(value_); } result = (gboolean )gdk_event_get_axis(arg1,(GdkAxisUse )arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUhandlerUset,"samurui/gtk","gdk_event_handler_set"); FUNFOR(YsamuruiSgtkYgdkUeventUhandlerUset); FUNCODEDEF(YsamuruiSgtkYgdkUeventUhandlerUset) { P func_, data_, notify_; GdkEventFunc arg1 ; gpointer arg2 ; GDestroyNotify arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(func_, 0); { arg1 = (GdkEventFunc )YPlu(func_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } ARG(notify_, 2); { arg3 = (GDestroyNotify )YPlu(notify_); } gdk_event_handler_set(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsetUshowUevents,"samurui/gtk","gdk_set_show_events"); FUNFOR(YsamuruiSgtkYgdkUsetUshowUevents); FUNCODEDEF(YsamuruiSgtkYgdkUsetUshowUevents) { P show_events_; gboolean arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(show_events_, 0); { arg1 = (signed)YPiu(show_events_); } gdk_set_show_events(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgetUshowUevents,"samurui/gtk","gdk_get_show_events"); FUNFOR(YsamuruiSgtkYgdkUgetUshowUevents); FUNCODEDEF(YsamuruiSgtkYgdkUgetUshowUevents) { gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gboolean )gdk_get_show_events(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUaddUclientUmessageUfilter,"samurui/gtk","gdk_add_client_message_filter"); FUNFOR(YsamuruiSgtkYgdkUaddUclientUmessageUfilter); FUNCODEDEF(YsamuruiSgtkYgdkUaddUclientUmessageUfilter) { P message_type_, func_, data_; GdkAtom arg1 ; GdkFilterFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(message_type_, 0); { arg1 = (GdkAtom )YPlu(message_type_); } ARG(func_, 1); { arg2 = (GdkFilterFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gdk_add_client_message_filter(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsettingUget,"samurui/gtk","gdk_setting_get"); FUNFOR(YsamuruiSgtkYgdkUsettingUget); FUNCODEDEF(YsamuruiSgtkYgdkUsettingUget) { P name_, value_; gchar *arg1 ; GValue *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(name_, 0); { arg1 = (char *)YPsu(name_); } ARG(value_, 1); { arg2 = (GValue *)YPlu(value_); } result = (gboolean )gdk_setting_get(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUgetUtype,"samurui/gtk","gdk_gc_get_type"); FUNFOR(YsamuruiSgtkYgdkUgcUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUgcUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_gc_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUnew,"samurui/gtk","gdk_gc_new"); FUNFOR(YsamuruiSgtkYgdkUgcUnew); FUNCODEDEF(YsamuruiSgtkYgdkUgcUnew) { P drawable_; GdkDrawable *arg1 ; GdkGC *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } result = (GdkGC *)gdk_gc_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUnewUwithUvalues,"samurui/gtk","gdk_gc_new_with_values"); FUNFOR(YsamuruiSgtkYgdkUgcUnewUwithUvalues); FUNCODEDEF(YsamuruiSgtkYgdkUgcUnewUwithUvalues) { P drawable_, values_, values_mask_; GdkDrawable *arg1 ; GdkGCValues *arg2 ; int arg3 ; GdkGC *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(drawable_, 0); { arg1 = (GdkDrawable *)YPlu(drawable_); } ARG(values_, 1); { arg2 = (GdkGCValues *)YPlu(values_); } ARG(values_mask_, 2); { arg3 = (int)YPiu(values_mask_); } result = (GdkGC *)gdk_gc_new_with_values(arg1,arg2,(GdkGCValuesMask )arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUgetUvalues,"samurui/gtk","gdk_gc_get_values"); FUNFOR(YsamuruiSgtkYgdkUgcUgetUvalues); FUNCODEDEF(YsamuruiSgtkYgdkUgcUgetUvalues) { P gc_, values_; GdkGC *arg1 ; GdkGCValues *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(values_, 1); { arg2 = (GdkGCValues *)YPlu(values_); } gdk_gc_get_values(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUvalues,"samurui/gtk","gdk_gc_set_values"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUvalues); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUvalues) { P gc_, values_, values_mask_; GdkGC *arg1 ; GdkGCValues *arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(values_, 1); { arg2 = (GdkGCValues *)YPlu(values_); } ARG(values_mask_, 2); { arg3 = (int)YPiu(values_mask_); } gdk_gc_set_values(arg1,arg2,(GdkGCValuesMask )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUforeground,"samurui/gtk","gdk_gc_set_foreground"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUforeground); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUforeground) { P gc_, color_; GdkGC *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gdk_gc_set_foreground(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUbackground,"samurui/gtk","gdk_gc_set_background"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUbackground); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUbackground) { P gc_, color_; GdkGC *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gdk_gc_set_background(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUfunction,"samurui/gtk","gdk_gc_set_function"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUfunction); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUfunction) { P gc_, function_; GdkGC *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(function_, 1); { arg2 = (int)YPiu(function_); } gdk_gc_set_function(arg1,(GdkFunction )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUfill,"samurui/gtk","gdk_gc_set_fill"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUfill); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUfill) { P gc_, fill_; GdkGC *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(fill_, 1); { arg2 = (int)YPiu(fill_); } gdk_gc_set_fill(arg1,(GdkFill )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUtile,"samurui/gtk","gdk_gc_set_tile"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUtile); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUtile) { P gc_, tile_; GdkGC *arg1 ; GdkPixmap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(tile_, 1); { arg2 = (GdkPixmap *)YPlu(tile_); } gdk_gc_set_tile(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUstipple,"samurui/gtk","gdk_gc_set_stipple"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUstipple); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUstipple) { P gc_, stipple_; GdkGC *arg1 ; GdkPixmap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(stipple_, 1); { arg2 = (GdkPixmap *)YPlu(stipple_); } gdk_gc_set_stipple(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUtsUorigin,"samurui/gtk","gdk_gc_set_ts_origin"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUtsUorigin); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUtsUorigin) { P gc_, x_, y_; GdkGC *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } gdk_gc_set_ts_origin(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUclipUorigin,"samurui/gtk","gdk_gc_set_clip_origin"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUclipUorigin); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUclipUorigin) { P gc_, x_, y_; GdkGC *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } gdk_gc_set_clip_origin(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUclipUmask,"samurui/gtk","gdk_gc_set_clip_mask"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUclipUmask); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUclipUmask) { P gc_, mask_; GdkGC *arg1 ; GdkBitmap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(mask_, 1); { arg2 = (GdkBitmap *)YPlu(mask_); } gdk_gc_set_clip_mask(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUclipUrectangle,"samurui/gtk","gdk_gc_set_clip_rectangle"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUclipUrectangle); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUclipUrectangle) { P gc_, rectangle_; GdkGC *arg1 ; GdkRectangle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(rectangle_, 1); { arg2 = (GdkRectangle *)YPlu(rectangle_); } gdk_gc_set_clip_rectangle(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUclipUregion,"samurui/gtk","gdk_gc_set_clip_region"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUclipUregion); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUclipUregion) { P gc_, region_; GdkGC *arg1 ; GdkRegion *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(region_, 1); { arg2 = (GdkRegion *)YPlu(region_); } gdk_gc_set_clip_region(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUsubwindow,"samurui/gtk","gdk_gc_set_subwindow"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUsubwindow); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUsubwindow) { P gc_, mode_; GdkGC *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } gdk_gc_set_subwindow(arg1,(GdkSubwindowMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUexposures,"samurui/gtk","gdk_gc_set_exposures"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUexposures); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUexposures) { P gc_, exposures_; GdkGC *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(exposures_, 1); { arg2 = (signed)YPiu(exposures_); } gdk_gc_set_exposures(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUlineUattributes,"samurui/gtk","gdk_gc_set_line_attributes"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUlineUattributes); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUlineUattributes) { P gc_, line_width_, line_style_, cap_style_, join_style_; GdkGC *arg1 ; gint arg2 ; int arg3 ; int arg4 ; int arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(line_width_, 1); { arg2 = (signed)YPiu(line_width_); } ARG(line_style_, 2); { arg3 = (int)YPiu(line_style_); } ARG(cap_style_, 3); { arg4 = (int)YPiu(cap_style_); } ARG(join_style_, 4); { arg5 = (int)YPiu(join_style_); } gdk_gc_set_line_attributes(arg1,arg2,(GdkLineStyle )arg3,(GdkCapStyle )arg4,(GdkJoinStyle )arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUdashes,"samurui/gtk","gdk_gc_set_dashes"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUdashes); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUdashes) { P gc_, dash_offset_, dash_list_; GdkGC *arg1 ; gint arg2 ; gint8 *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(dash_offset_, 1); { arg2 = (signed)YPiu(dash_offset_); } ARG(dash_list_, 2); { int i; arg4 = (int)YPtlen(dash_list_); arg3 = (char *)malloc(arg4 * sizeof(char)); for(i=0; i < arg4; i++) { arg3[i] = (char)YPiu(YPtelt(dash_list_, i)); } } gdk_gc_set_dashes(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUoffset,"samurui/gtk","gdk_gc_offset"); FUNFOR(YsamuruiSgtkYgdkUgcUoffset); FUNCODEDEF(YsamuruiSgtkYgdkUgcUoffset) { P gc_, x_offset_, y_offset_; GdkGC *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(x_offset_, 1); { arg2 = (signed)YPiu(x_offset_); } ARG(y_offset_, 2); { arg3 = (signed)YPiu(y_offset_); } gdk_gc_offset(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUcopy,"samurui/gtk","gdk_gc_copy"); FUNFOR(YsamuruiSgtkYgdkUgcUcopy); FUNCODEDEF(YsamuruiSgtkYgdkUgcUcopy) { P dst_gc_, src_gc_; GdkGC *arg1 ; GdkGC *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dst_gc_, 0); { arg1 = (GdkGC *)YPlu(dst_gc_); } ARG(src_gc_, 1); { arg2 = (GdkGC *)YPlu(src_gc_); } gdk_gc_copy(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUcolormap,"samurui/gtk","gdk_gc_set_colormap"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUcolormap) { P gc_, colormap_; GdkGC *arg1 ; GdkColormap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } gdk_gc_set_colormap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUgetUcolormap,"samurui/gtk","gdk_gc_get_colormap"); FUNFOR(YsamuruiSgtkYgdkUgcUgetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUgcUgetUcolormap) { P gc_; GdkGC *arg1 ; GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } result = (GdkColormap *)gdk_gc_get_colormap(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUrgbUfgUcolor,"samurui/gtk","gdk_gc_set_rgb_fg_color"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUrgbUfgUcolor); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUrgbUfgUcolor) { P gc_, color_; GdkGC *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gdk_gc_set_rgb_fg_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgcUsetUrgbUbgUcolor,"samurui/gtk","gdk_gc_set_rgb_bg_color"); FUNFOR(YsamuruiSgtkYgdkUgcUsetUrgbUbgUcolor); FUNCODEDEF(YsamuruiSgtkYgdkUgcUsetUrgbUbgUcolor) { P gc_, color_; GdkGC *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gc_, 0); { arg1 = (GdkGC *)YPlu(gc_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gdk_gc_set_rgb_bg_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUimageUnew,"samurui/gtk","gdk_image_new"); FUNFOR(YsamuruiSgtkYgdkUimageUnew); FUNCODEDEF(YsamuruiSgtkYgdkUimageUnew) { P type_, visual_, width_, height_; int arg1 ; GdkVisual *arg2 ; gint arg3 ; gint arg4 ; GdkImage *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(type_, 0); { arg1 = (int)YPiu(type_); } ARG(visual_, 1); { arg2 = (GdkVisual *)YPlu(visual_); } ARG(width_, 2); { arg3 = (signed)YPiu(width_); } ARG(height_, 3); { arg4 = (signed)YPiu(height_); } result = (GdkImage *)gdk_image_new((GdkImageType )arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUimageUputUpixel,"samurui/gtk","gdk_image_put_pixel"); FUNFOR(YsamuruiSgtkYgdkUimageUputUpixel); FUNCODEDEF(YsamuruiSgtkYgdkUimageUputUpixel) { P image_, x_, y_, pixel_; GdkImage *arg1 ; gint arg2 ; gint arg3 ; guint32 arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GdkImage *)YPlu(image_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(pixel_, 3); { arg4 = (unsigned)YPiu(pixel_); } gdk_image_put_pixel(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUimageUgetUpixel,"samurui/gtk","gdk_image_get_pixel"); FUNFOR(YsamuruiSgtkYgdkUimageUgetUpixel); FUNCODEDEF(YsamuruiSgtkYgdkUimageUgetUpixel) { P image_, x_, y_; GdkImage *arg1 ; gint arg2 ; gint arg3 ; guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GdkImage *)YPlu(image_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } result = (guint32 )gdk_image_get_pixel(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUimageUsetUcolormap,"samurui/gtk","gdk_image_set_colormap"); FUNFOR(YsamuruiSgtkYgdkUimageUsetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUimageUsetUcolormap) { P image_, colormap_; GdkImage *arg1 ; GdkColormap *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GdkImage *)YPlu(image_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } gdk_image_set_colormap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUimageUgetUcolormap,"samurui/gtk","gdk_image_get_colormap"); FUNFOR(YsamuruiSgtkYgdkUimageUgetUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUimageUgetUcolormap) { P image_; GdkImage *arg1 ; GdkColormap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GdkImage *)YPlu(image_); } result = (GdkColormap *)gdk_image_get_colormap(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsetUlocale,"samurui/gtk","gdk_set_locale"); FUNFOR(YsamuruiSgtkYgdkUsetUlocale); FUNCODEDEF(YsamuruiSgtkYgdkUsetUlocale) { gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gchar *)gdk_set_locale(); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgetUprogramUclass,"samurui/gtk","gdk_get_program_class"); FUNFOR(YsamuruiSgtkYgdkUgetUprogramUclass); FUNCODEDEF(YsamuruiSgtkYgdkUgetUprogramUclass) { char *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (char *)gdk_get_program_class(); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsetUprogramUclass,"samurui/gtk","gdk_set_program_class"); FUNFOR(YsamuruiSgtkYgdkUsetUprogramUclass); FUNCODEDEF(YsamuruiSgtkYgdkUsetUprogramUclass) { P program_class_; char *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(program_class_, 0); { arg1 = (char *)YPsu(program_class_); } gdk_set_program_class(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUerrorUtrapUpush,"samurui/gtk","gdk_error_trap_push"); FUNFOR(YsamuruiSgtkYgdkUerrorUtrapUpush); FUNCODEDEF(YsamuruiSgtkYgdkUerrorUtrapUpush) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_error_trap_push(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUerrorUtrapUpop,"samurui/gtk","gdk_error_trap_pop"); FUNFOR(YsamuruiSgtkYgdkUerrorUtrapUpop); FUNCODEDEF(YsamuruiSgtkYgdkUerrorUtrapUpop) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gdk_error_trap_pop(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgetUdisplay,"samurui/gtk","gdk_get_display"); FUNFOR(YsamuruiSgtkYgdkUgetUdisplay); FUNCODEDEF(YsamuruiSgtkYgdkUgetUdisplay) { gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gchar *)gdk_get_display(); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpointerUgrab,"samurui/gtk","gdk_pointer_grab"); FUNFOR(YsamuruiSgtkYgdkUpointerUgrab); FUNCODEDEF(YsamuruiSgtkYgdkUpointerUgrab) { P window_, owner_events_, event_mask_, confine_to_, cursor_, time_; GdkWindow *arg1 ; gboolean arg2 ; int arg3 ; GdkWindow *arg4 ; GdkCursor *arg5 ; guint32 arg6 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(owner_events_, 1); { arg2 = (signed)YPiu(owner_events_); } ARG(event_mask_, 2); { arg3 = (int)YPiu(event_mask_); } ARG(confine_to_, 3); { arg4 = (GdkWindow *)YPlu(confine_to_); } ARG(cursor_, 4); { arg5 = (GdkCursor *)YPlu(cursor_); } ARG(time_, 5); { arg6 = (unsigned)YPiu(time_); } result = (int )gdk_pointer_grab(arg1,arg2,(GdkEventMask )arg3,arg4,arg5,arg6); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpointerUungrab,"samurui/gtk","gdk_pointer_ungrab"); FUNFOR(YsamuruiSgtkYgdkUpointerUungrab); FUNCODEDEF(YsamuruiSgtkYgdkUpointerUungrab) { P time_; guint32 arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(time_, 0); { arg1 = (unsigned)YPiu(time_); } gdk_pointer_ungrab(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUkeyboardUgrab,"samurui/gtk","gdk_keyboard_grab"); FUNFOR(YsamuruiSgtkYgdkUkeyboardUgrab); FUNCODEDEF(YsamuruiSgtkYgdkUkeyboardUgrab) { P window_, owner_events_, time_; GdkWindow *arg1 ; gboolean arg2 ; guint32 arg3 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(owner_events_, 1); { arg2 = (signed)YPiu(owner_events_); } ARG(time_, 2); { arg3 = (unsigned)YPiu(time_); } result = (int )gdk_keyboard_grab(arg1,arg2,arg3); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUkeyboardUungrab,"samurui/gtk","gdk_keyboard_ungrab"); FUNFOR(YsamuruiSgtkYgdkUkeyboardUungrab); FUNCODEDEF(YsamuruiSgtkYgdkUkeyboardUungrab) { P time_; guint32 arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(time_, 0); { arg1 = (unsigned)YPiu(time_); } gdk_keyboard_ungrab(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpointerUisUgrabbed,"samurui/gtk","gdk_pointer_is_grabbed"); FUNFOR(YsamuruiSgtkYgdkUpointerUisUgrabbed); FUNCODEDEF(YsamuruiSgtkYgdkUpointerUisUgrabbed) { gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gboolean )gdk_pointer_is_grabbed(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUscreenUwidth,"samurui/gtk","gdk_screen_width"); FUNFOR(YsamuruiSgtkYgdkUscreenUwidth); FUNCODEDEF(YsamuruiSgtkYgdkUscreenUwidth) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gdk_screen_width(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUscreenUheight,"samurui/gtk","gdk_screen_height"); FUNFOR(YsamuruiSgtkYgdkUscreenUheight); FUNCODEDEF(YsamuruiSgtkYgdkUscreenUheight) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gdk_screen_height(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUscreenUwidthUmm,"samurui/gtk","gdk_screen_width_mm"); FUNFOR(YsamuruiSgtkYgdkUscreenUwidthUmm); FUNCODEDEF(YsamuruiSgtkYgdkUscreenUwidthUmm) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gdk_screen_width_mm(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUscreenUheightUmm,"samurui/gtk","gdk_screen_height_mm"); FUNFOR(YsamuruiSgtkYgdkUscreenUheightUmm); FUNCODEDEF(YsamuruiSgtkYgdkUscreenUheightUmm) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gdk_screen_height_mm(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUflush,"samurui/gtk","gdk_flush"); FUNFOR(YsamuruiSgtkYgdkUflush); FUNCODEDEF(YsamuruiSgtkYgdkUflush) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_flush(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUbeep,"samurui/gtk","gdk_beep"); FUNFOR(YsamuruiSgtkYgdkUbeep); FUNCODEDEF(YsamuruiSgtkYgdkUbeep) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_beep(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsetUdoubleUclickUtime,"samurui/gtk","gdk_set_double_click_time"); FUNFOR(YsamuruiSgtkYgdkUsetUdoubleUclickUtime); FUNCODEDEF(YsamuruiSgtkYgdkUsetUdoubleUclickUtime) { P msec_; guint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(msec_, 0); { arg1 = (unsigned)YPiu(msec_); } gdk_set_double_click_time(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrectangleUintersect,"samurui/gtk","gdk_rectangle_intersect"); FUNFOR(YsamuruiSgtkYgdkUrectangleUintersect); FUNCODEDEF(YsamuruiSgtkYgdkUrectangleUintersect) { P src1_, src2_, dest_; GdkRectangle *arg1 ; GdkRectangle *arg2 ; GdkRectangle *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(src1_, 0); { arg1 = (GdkRectangle *)YPlu(src1_); } ARG(src2_, 1); { arg2 = (GdkRectangle *)YPlu(src2_); } ARG(dest_, 2); { arg3 = (GdkRectangle *)YPlu(dest_); } result = (gboolean )gdk_rectangle_intersect(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrectangleUunion,"samurui/gtk","gdk_rectangle_union"); FUNFOR(YsamuruiSgtkYgdkUrectangleUunion); FUNCODEDEF(YsamuruiSgtkYgdkUrectangleUunion) { P src1_, src2_, dest_; GdkRectangle *arg1 ; GdkRectangle *arg2 ; GdkRectangle *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(src1_, 0); { arg1 = (GdkRectangle *)YPlu(src1_); } ARG(src2_, 1); { arg2 = (GdkRectangle *)YPlu(src2_); } ARG(dest_, 2); { arg3 = (GdkRectangle *)YPlu(dest_); } gdk_rectangle_union(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUrectangleUgetUtype,"samurui/gtk","gdk_rectangle_get_type"); FUNFOR(YsamuruiSgtkYgdkUrectangleUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUrectangleUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_rectangle_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwcstombs,"samurui/gtk","gdk_wcstombs"); FUNFOR(YsamuruiSgtkYgdkUwcstombs); FUNCODEDEF(YsamuruiSgtkYgdkUwcstombs) { P src_; GdkWChar *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(src_, 0); { arg1 = (GdkWChar *)YPlu(src_); } result = (gchar *)gdk_wcstombs(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUmbstowcs,"samurui/gtk","gdk_mbstowcs"); FUNFOR(YsamuruiSgtkYgdkUmbstowcs); FUNCODEDEF(YsamuruiSgtkYgdkUmbstowcs) { P dest_, src_, dest_max_; GdkWChar *arg1 ; gchar *arg2 ; gint arg3 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dest_, 0); { arg1 = (GdkWChar *)YPlu(dest_); } ARG(src_, 1); { arg2 = (char *)YPsu(src_); } ARG(dest_max_, 2); { arg3 = (signed)YPiu(dest_max_); } result = (gint )gdk_mbstowcs(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUsendUclientmessageUtoall,"samurui/gtk","gdk_event_send_clientmessage_toall"); FUNFOR(YsamuruiSgtkYgdkUeventUsendUclientmessageUtoall); FUNCODEDEF(YsamuruiSgtkYgdkUeventUsendUclientmessageUtoall) { P event_; GdkEvent *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } gdk_event_send_clientmessage_toall(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUeventUsendUclientUmessage,"samurui/gtk","gdk_event_send_client_message"); FUNFOR(YsamuruiSgtkYgdkUeventUsendUclientUmessage); FUNCODEDEF(YsamuruiSgtkYgdkUeventUsendUclientUmessage) { P event_, xid_; GdkEvent *arg1 ; guint32 arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } ARG(xid_, 1); { arg2 = (unsigned)YPiu(xid_); } result = (gboolean )gdk_event_send_client_message(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUthreadsUenter,"samurui/gtk","gdk_threads_enter"); FUNFOR(YsamuruiSgtkYgdkUthreadsUenter); FUNCODEDEF(YsamuruiSgtkYgdkUthreadsUenter) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_threads_enter(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUthreadsUleave,"samurui/gtk","gdk_threads_leave"); FUNFOR(YsamuruiSgtkYgdkUthreadsUleave); FUNCODEDEF(YsamuruiSgtkYgdkUthreadsUleave) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_threads_leave(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUthreadsUinit,"samurui/gtk","gdk_threads_init"); FUNFOR(YsamuruiSgtkYgdkUthreadsUinit); FUNCODEDEF(YsamuruiSgtkYgdkUthreadsUinit) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_threads_init(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUrenderUthresholdUalpha,"samurui/gtk","gdk_pixbuf_render_threshold_alpha"); FUNFOR(YsamuruiSgtkYgdkUpixbufUrenderUthresholdUalpha); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUrenderUthresholdUalpha) { P pixbuf_, bitmap_, src_x_, src_y_, dest_x_, dest_y_, width_, height_, alpha_threshold_; GdkPixbuf *arg1 ; GdkBitmap *arg2 ; int arg3 ; int arg4 ; int arg5 ; int arg6 ; int arg7 ; int arg8 ; int arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixbuf_, 0); { arg1 = (GdkPixbuf *)YPlu(pixbuf_); } ARG(bitmap_, 1); { arg2 = (GdkBitmap *)YPlu(bitmap_); } ARG(src_x_, 2); { arg3 = (signed)YPiu(src_x_); } ARG(src_y_, 3); { arg4 = (signed)YPiu(src_y_); } ARG(dest_x_, 4); { arg5 = (signed)YPiu(dest_x_); } ARG(dest_y_, 5); { arg6 = (signed)YPiu(dest_y_); } ARG(width_, 6); { arg7 = (signed)YPiu(width_); } ARG(height_, 7); { arg8 = (signed)YPiu(height_); } ARG(alpha_threshold_, 8); { arg9 = (signed)YPiu(alpha_threshold_); } gdk_pixbuf_render_threshold_alpha(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawable,"samurui/gtk","gdk_pixbuf_render_to_drawable"); FUNFOR(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawable); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawable) { P pixbuf_, drawable_, gc_, src_x_, src_y_, dest_x_, dest_y_, width_, height_, dither_, x_dither_, y_dither_; GdkPixbuf *arg1 ; GdkDrawable *arg2 ; GdkGC *arg3 ; int arg4 ; int arg5 ; int arg6 ; int arg7 ; int arg8 ; int arg9 ; int arg10 ; int arg11 ; int arg12 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixbuf_, 0); { arg1 = (GdkPixbuf *)YPlu(pixbuf_); } ARG(drawable_, 1); { arg2 = (GdkDrawable *)YPlu(drawable_); } ARG(gc_, 2); { arg3 = (GdkGC *)YPlu(gc_); } ARG(src_x_, 3); { arg4 = (signed)YPiu(src_x_); } ARG(src_y_, 4); { arg5 = (signed)YPiu(src_y_); } ARG(dest_x_, 5); { arg6 = (signed)YPiu(dest_x_); } ARG(dest_y_, 6); { arg7 = (signed)YPiu(dest_y_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } ARG(dither_, 9); { arg10 = (int)YPiu(dither_); } ARG(x_dither_, 10); { arg11 = (signed)YPiu(x_dither_); } ARG(y_dither_, 11); { arg12 = (signed)YPiu(y_dither_); } gdk_pixbuf_render_to_drawable(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,(GdkRgbDither )arg10,arg11,arg12); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawableUalpha,"samurui/gtk","gdk_pixbuf_render_to_drawable_alpha"); FUNFOR(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawableUalpha); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawableUalpha) { P pixbuf_, drawable_, src_x_, src_y_, dest_x_, dest_y_, width_, height_, alpha_mode_, alpha_threshold_, dither_, x_dither_, y_dither_; GdkPixbuf *arg1 ; GdkDrawable *arg2 ; int arg3 ; int arg4 ; int arg5 ; int arg6 ; int arg7 ; int arg8 ; GdkPixbufAlphaMode arg9 ; int arg10 ; int arg11 ; int arg12 ; int arg13 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixbuf_, 0); { arg1 = (GdkPixbuf *)YPlu(pixbuf_); } ARG(drawable_, 1); { arg2 = (GdkDrawable *)YPlu(drawable_); } ARG(src_x_, 2); { arg3 = (signed)YPiu(src_x_); } ARG(src_y_, 3); { arg4 = (signed)YPiu(src_y_); } ARG(dest_x_, 4); { arg5 = (signed)YPiu(dest_x_); } ARG(dest_y_, 5); { arg6 = (signed)YPiu(dest_y_); } ARG(width_, 6); { arg7 = (signed)YPiu(width_); } ARG(height_, 7); { arg8 = (signed)YPiu(height_); } ARG(alpha_mode_, 8); { arg9 = (signed)YPiu(alpha_mode_); } ARG(alpha_threshold_, 9); { arg10 = (signed)YPiu(alpha_threshold_); } ARG(dither_, 10); { arg11 = (int)YPiu(dither_); } ARG(x_dither_, 11); { arg12 = (signed)YPiu(x_dither_); } ARG(y_dither_, 12); { arg13 = (signed)YPiu(y_dither_); } gdk_pixbuf_render_to_drawable_alpha(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(GdkRgbDither )arg11,arg12,arg13); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmaskUforUcolormap,"samurui/gtk","gdk_pixbuf_render_pixmap_and_mask_for_colormap"); FUNFOR(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmaskUforUcolormap); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmaskUforUcolormap) { P pixbuf_, colormap_, pixmap_return_, mask_return_, alpha_threshold_; GdkPixbuf *arg1 ; GdkColormap *arg2 ; GdkPixmap **arg3 ; GdkBitmap **arg4 ; int arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixbuf_, 0); { arg1 = (GdkPixbuf *)YPlu(pixbuf_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } ARG(pixmap_return_, 2); { arg3 = (GdkPixmap **)YPlu(pixmap_return_); } ARG(mask_return_, 3); { arg4 = (GdkBitmap **)YPlu(mask_return_); } ARG(alpha_threshold_, 4); { arg5 = (signed)YPiu(alpha_threshold_); } gdk_pixbuf_render_pixmap_and_mask_for_colormap(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmask,"samurui/gtk","gdk_pixbuf_render_pixmap_and_mask"); FUNFOR(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmask); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmask) { P pixbuf_, pixmap_return_, mask_return_, alpha_threshold_; GdkPixbuf *arg1 ; GdkPixmap **arg2 ; GdkBitmap **arg3 ; int arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixbuf_, 0); { arg1 = (GdkPixbuf *)YPlu(pixbuf_); } ARG(pixmap_return_, 1); { arg2 = (GdkPixmap **)YPlu(pixmap_return_); } ARG(mask_return_, 2); { arg3 = (GdkBitmap **)YPlu(mask_return_); } ARG(alpha_threshold_, 3); { arg4 = (signed)YPiu(alpha_threshold_); } gdk_pixbuf_render_pixmap_and_mask(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUgetUfromUdrawable,"samurui/gtk","gdk_pixbuf_get_from_drawable"); FUNFOR(YsamuruiSgtkYgdkUpixbufUgetUfromUdrawable); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUgetUfromUdrawable) { P dest_, src_, cmap_, src_x_, src_y_, dest_x_, dest_y_, width_, height_; GdkPixbuf *arg1 ; GdkDrawable *arg2 ; GdkColormap *arg3 ; int arg4 ; int arg5 ; int arg6 ; int arg7 ; int arg8 ; int arg9 ; GdkPixbuf *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dest_, 0); { arg1 = (GdkPixbuf *)YPlu(dest_); } ARG(src_, 1); { arg2 = (GdkDrawable *)YPlu(src_); } ARG(cmap_, 2); { arg3 = (GdkColormap *)YPlu(cmap_); } ARG(src_x_, 3); { arg4 = (signed)YPiu(src_x_); } ARG(src_y_, 4); { arg5 = (signed)YPiu(src_y_); } ARG(dest_x_, 5); { arg6 = (signed)YPiu(dest_x_); } ARG(dest_y_, 6); { arg7 = (signed)YPiu(dest_y_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } result = (GdkPixbuf *)gdk_pixbuf_get_from_drawable(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixbufUgetUfromUimage,"samurui/gtk","gdk_pixbuf_get_from_image"); FUNFOR(YsamuruiSgtkYgdkUpixbufUgetUfromUimage); FUNCODEDEF(YsamuruiSgtkYgdkUpixbufUgetUfromUimage) { P dest_, src_, cmap_, src_x_, src_y_, dest_x_, dest_y_, width_, height_; GdkPixbuf *arg1 ; GdkImage *arg2 ; GdkColormap *arg3 ; int arg4 ; int arg5 ; int arg6 ; int arg7 ; int arg8 ; int arg9 ; GdkPixbuf *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dest_, 0); { arg1 = (GdkPixbuf *)YPlu(dest_); } ARG(src_, 1); { arg2 = (GdkImage *)YPlu(src_); } ARG(cmap_, 2); { arg3 = (GdkColormap *)YPlu(cmap_); } ARG(src_x_, 3); { arg4 = (signed)YPiu(src_x_); } ARG(src_y_, 4); { arg5 = (signed)YPiu(src_y_); } ARG(dest_x_, 5); { arg6 = (signed)YPiu(dest_x_); } ARG(dest_y_, 6); { arg7 = (signed)YPiu(dest_y_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } result = (GdkPixbuf *)gdk_pixbuf_get_from_image(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUnew,"samurui/gtk","gdk_pixmap_new"); FUNFOR(YsamuruiSgtkYgdkUpixmapUnew); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUnew) { P window_, width_, height_, depth_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(width_, 1); { arg2 = (signed)YPiu(width_); } ARG(height_, 2); { arg3 = (signed)YPiu(height_); } ARG(depth_, 3); { arg4 = (signed)YPiu(depth_); } result = (GdkPixmap *)gdk_pixmap_new(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUbitmapUcreateUfromUdata,"samurui/gtk","gdk_bitmap_create_from_data"); FUNFOR(YsamuruiSgtkYgdkUbitmapUcreateUfromUdata); FUNCODEDEF(YsamuruiSgtkYgdkUbitmapUcreateUfromUdata) { P window_, data_, width_, height_; GdkWindow *arg1 ; gchar *arg2 ; gint arg3 ; gint arg4 ; GdkBitmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(data_, 1); { arg2 = (char *)YPsu(data_); } ARG(width_, 2); { arg3 = (signed)YPiu(width_); } ARG(height_, 3); { arg4 = (signed)YPiu(height_); } result = (GdkBitmap *)gdk_bitmap_create_from_data(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUcreateUfromUdata,"samurui/gtk","gdk_pixmap_create_from_data"); FUNFOR(YsamuruiSgtkYgdkUpixmapUcreateUfromUdata); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUcreateUfromUdata) { P window_, data_, width_, height_, depth_, fg_, bg_; GdkWindow *arg1 ; gchar *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; GdkColor *arg6 ; GdkColor *arg7 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(data_, 1); { arg2 = (char *)YPsu(data_); } ARG(width_, 2); { arg3 = (signed)YPiu(width_); } ARG(height_, 3); { arg4 = (signed)YPiu(height_); } ARG(depth_, 4); { arg5 = (signed)YPiu(depth_); } ARG(fg_, 5); { arg6 = (GdkColor *)YPlu(fg_); } ARG(bg_, 6); { arg7 = (GdkColor *)YPlu(bg_); } result = (GdkPixmap *)gdk_pixmap_create_from_data(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpm,"samurui/gtk","gdk_pixmap_create_from_xpm"); FUNFOR(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpm); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpm) { P window_, mask_, transparent_color_, filename_; GdkWindow *arg1 ; GdkBitmap **arg2 ; GdkColor *arg3 ; gchar *arg4 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(mask_, 1); { arg2 = (GdkBitmap **)YPlu(mask_); } ARG(transparent_color_, 2); { arg3 = (GdkColor *)YPlu(transparent_color_); } ARG(filename_, 3); { arg4 = (char *)YPsu(filename_); } result = (GdkPixmap *)gdk_pixmap_create_from_xpm(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpm,"samurui/gtk","gdk_pixmap_colormap_create_from_xpm"); FUNFOR(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpm); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpm) { P window_, colormap_, mask_, transparent_color_, filename_; GdkWindow *arg1 ; GdkColormap *arg2 ; GdkBitmap **arg3 ; GdkColor *arg4 ; gchar *arg5 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } ARG(mask_, 2); { arg3 = (GdkBitmap **)YPlu(mask_); } ARG(transparent_color_, 3); { arg4 = (GdkColor *)YPlu(transparent_color_); } ARG(filename_, 4); { arg5 = (char *)YPsu(filename_); } result = (GdkPixmap *)gdk_pixmap_colormap_create_from_xpm(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpmUd,"samurui/gtk","gdk_pixmap_create_from_xpm_d"); FUNFOR(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpmUd); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpmUd) { P window_, mask_, transparent_color_, data_; GdkWindow *arg1 ; GdkBitmap **arg2 ; GdkColor *arg3 ; gchar **arg4 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(mask_, 1); { arg2 = (GdkBitmap **)YPlu(mask_); } ARG(transparent_color_, 2); { arg3 = (GdkColor *)YPlu(transparent_color_); } ARG(data_, 3); { arg4 = (gchar **)YPlu(data_); } result = (GdkPixmap *)gdk_pixmap_create_from_xpm_d(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpmUd,"samurui/gtk","gdk_pixmap_colormap_create_from_xpm_d"); FUNFOR(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpmUd); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpmUd) { P window_, colormap_, mask_, transparent_color_, data_; GdkWindow *arg1 ; GdkColormap *arg2 ; GdkBitmap **arg3 ; GdkColor *arg4 ; gchar **arg5 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(colormap_, 1); { arg2 = (GdkColormap *)YPlu(colormap_); } ARG(mask_, 2); { arg3 = (GdkBitmap **)YPlu(mask_); } ARG(transparent_color_, 3); { arg4 = (GdkColor *)YPlu(transparent_color_); } ARG(data_, 4); { arg5 = (gchar **)YPlu(data_); } result = (GdkPixmap *)gdk_pixmap_colormap_create_from_xpm_d(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUforeignUnew,"samurui/gtk","gdk_pixmap_foreign_new"); FUNFOR(YsamuruiSgtkYgdkUpixmapUforeignUnew); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUforeignUnew) { P anid_; GdkNativeWindow arg1 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(anid_, 0); { arg1 = (GdkNativeWindow )YPlu(anid_); } result = (GdkPixmap *)gdk_pixmap_foreign_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUpixmapUlookup,"samurui/gtk","gdk_pixmap_lookup"); FUNFOR(YsamuruiSgtkYgdkUpixmapUlookup); FUNCODEDEF(YsamuruiSgtkYgdkUpixmapUlookup) { P anid_; GdkNativeWindow arg1 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(anid_, 0); { arg1 = (GdkNativeWindow )YPlu(anid_); } result = (GdkPixmap *)gdk_pixmap_lookup(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUtype,"samurui/gtk","gdk_visual_get_type"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUtype); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gdk_visual_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUbestUdepth,"samurui/gtk","gdk_visual_get_best_depth"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUbestUdepth); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUbestUdepth) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gdk_visual_get_best_depth(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUbestUtype,"samurui/gtk","gdk_visual_get_best_type"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUbestUtype); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUbestUtype) { int result; P retval = (P)YPib((P)0); LINK_STACK(); result = (int )gdk_visual_get_best_type(); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUsystem,"samurui/gtk","gdk_visual_get_system"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUsystem); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUsystem) { GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkVisual *)gdk_visual_get_system(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUbest,"samurui/gtk","gdk_visual_get_best"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUbest); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUbest) { GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkVisual *)gdk_visual_get_best(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUbestUwithUdepth,"samurui/gtk","gdk_visual_get_best_with_depth"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUbestUwithUdepth); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUbestUwithUdepth) { P depth_; gint arg1 ; GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(depth_, 0); { arg1 = (signed)YPiu(depth_); } result = (GdkVisual *)gdk_visual_get_best_with_depth(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUbestUwithUtype,"samurui/gtk","gdk_visual_get_best_with_type"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUbestUwithUtype); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUbestUwithUtype) { P visual_type_; int arg1 ; GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(visual_type_, 0); { arg1 = (int)YPiu(visual_type_); } result = (GdkVisual *)gdk_visual_get_best_with_type((GdkVisualType )arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUvisualUgetUbestUwithUboth,"samurui/gtk","gdk_visual_get_best_with_both"); FUNFOR(YsamuruiSgtkYgdkUvisualUgetUbestUwithUboth); FUNCODEDEF(YsamuruiSgtkYgdkUvisualUgetUbestUwithUboth) { P depth_, visual_type_; gint arg1 ; int arg2 ; GdkVisual *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(depth_, 0); { arg1 = (signed)YPiu(depth_); } ARG(visual_type_, 1); { arg2 = (int)YPiu(visual_type_); } result = (GdkVisual *)gdk_visual_get_best_with_both(arg1,(GdkVisualType )arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUqueryUdepths,"samurui/gtk","gdk_query_depths"); FUNFOR(YsamuruiSgtkYgdkUqueryUdepths); FUNCODEDEF(YsamuruiSgtkYgdkUqueryUdepths) { P depths_, count_; gint **arg1 ; gint *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(depths_, 0); { arg1 = (gint **)YPlu(depths_); } ARG(count_, 1); { arg2 = (gint *)YPlu(count_); } gdk_query_depths(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUqueryUvisualUtypes,"samurui/gtk","gdk_query_visual_types"); FUNFOR(YsamuruiSgtkYgdkUqueryUvisualUtypes); FUNCODEDEF(YsamuruiSgtkYgdkUqueryUvisualUtypes) { P visual_types_, count_; GdkVisualType **arg1 ; gint *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(visual_types_, 0); { arg1 = (GdkVisualType **)YPlu(visual_types_); } ARG(count_, 1); { arg2 = (gint *)YPlu(count_); } gdk_query_visual_types(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUlistUvisuals,"samurui/gtk","gdk_list_visuals"); FUNFOR(YsamuruiSgtkYgdkUlistUvisuals); FUNCODEDEF(YsamuruiSgtkYgdkUlistUvisuals) { GList *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GList *)gdk_list_visuals(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUnew,"samurui/gtk","gdk_window_new"); FUNFOR(YsamuruiSgtkYgdkUwindowUnew); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUnew) { P parent_, attributes_, attributes_mask_; GdkWindow *arg1 ; GdkWindowAttr *arg2 ; gint arg3 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(parent_, 0); { arg1 = (GdkWindow *)YPlu(parent_); } ARG(attributes_, 1); { arg2 = (GdkWindowAttr *)YPlu(attributes_); } ARG(attributes_mask_, 2); { arg3 = (signed)YPiu(attributes_mask_); } result = (GdkWindow *)gdk_window_new(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUdestroy,"samurui/gtk","gdk_window_destroy"); FUNFOR(YsamuruiSgtkYgdkUwindowUdestroy); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUdestroy) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_destroy(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUwindowUtype,"samurui/gtk","gdk_window_get_window_type"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUwindowUtype); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUwindowUtype) { P window_; GdkWindow *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (int )gdk_window_get_window_type(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUatUpointer,"samurui/gtk","gdk_window_at_pointer"); FUNFOR(YsamuruiSgtkYgdkUwindowUatUpointer); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUatUpointer) { P win_x_, win_y_; gint *arg1 ; gint *arg2 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(win_x_, 0); { arg1 = (gint *)YPlu(win_x_); } ARG(win_y_, 1); { arg2 = (gint *)YPlu(win_y_); } result = (GdkWindow *)gdk_window_at_pointer(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUshow,"samurui/gtk","gdk_window_show"); FUNFOR(YsamuruiSgtkYgdkUwindowUshow); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUshow) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_show(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUhide,"samurui/gtk","gdk_window_hide"); FUNFOR(YsamuruiSgtkYgdkUwindowUhide); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUhide) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_hide(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUwithdraw,"samurui/gtk","gdk_window_withdraw"); FUNFOR(YsamuruiSgtkYgdkUwindowUwithdraw); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUwithdraw) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_withdraw(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUshowUunraised,"samurui/gtk","gdk_window_show_unraised"); FUNFOR(YsamuruiSgtkYgdkUwindowUshowUunraised); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUshowUunraised) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_show_unraised(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUmove,"samurui/gtk","gdk_window_move"); FUNFOR(YsamuruiSgtkYgdkUwindowUmove); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUmove) { P window_, x_, y_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } gdk_window_move(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUresize,"samurui/gtk","gdk_window_resize"); FUNFOR(YsamuruiSgtkYgdkUwindowUresize); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUresize) { P window_, width_, height_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(width_, 1); { arg2 = (signed)YPiu(width_); } ARG(height_, 2); { arg3 = (signed)YPiu(height_); } gdk_window_resize(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUmoveUresize,"samurui/gtk","gdk_window_move_resize"); FUNFOR(YsamuruiSgtkYgdkUwindowUmoveUresize); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUmoveUresize) { P window_, x_, y_, width_, height_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(width_, 3); { arg4 = (signed)YPiu(width_); } ARG(height_, 4); { arg5 = (signed)YPiu(height_); } gdk_window_move_resize(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUreparent,"samurui/gtk","gdk_window_reparent"); FUNFOR(YsamuruiSgtkYgdkUwindowUreparent); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUreparent) { P window_, new_parent_, x_, y_; GdkWindow *arg1 ; GdkWindow *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(new_parent_, 1); { arg2 = (GdkWindow *)YPlu(new_parent_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gdk_window_reparent(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUclear,"samurui/gtk","gdk_window_clear"); FUNFOR(YsamuruiSgtkYgdkUwindowUclear); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUclear) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_clear(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUclearUarea,"samurui/gtk","gdk_window_clear_area"); FUNFOR(YsamuruiSgtkYgdkUwindowUclearUarea); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUclearUarea) { P window_, x_, y_, width_, height_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(width_, 3); { arg4 = (signed)YPiu(width_); } ARG(height_, 4); { arg5 = (signed)YPiu(height_); } gdk_window_clear_area(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUclearUareaUe,"samurui/gtk","gdk_window_clear_area_e"); FUNFOR(YsamuruiSgtkYgdkUwindowUclearUareaUe); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUclearUareaUe) { P window_, x_, y_, width_, height_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(width_, 3); { arg4 = (signed)YPiu(width_); } ARG(height_, 4); { arg5 = (signed)YPiu(height_); } gdk_window_clear_area_e(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUraise,"samurui/gtk","gdk_window_raise"); FUNFOR(YsamuruiSgtkYgdkUwindowUraise); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUraise) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_raise(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUlower,"samurui/gtk","gdk_window_lower"); FUNFOR(YsamuruiSgtkYgdkUwindowUlower); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUlower) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_lower(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUfocus,"samurui/gtk","gdk_window_focus"); FUNFOR(YsamuruiSgtkYgdkUwindowUfocus); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUfocus) { P window_, timestamp_; GdkWindow *arg1 ; guint32 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(timestamp_, 1); { arg2 = (unsigned)YPiu(timestamp_); } gdk_window_focus(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUuserUdata,"samurui/gtk","gdk_window_set_user_data"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUuserUdata); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUuserUdata) { P window_, user_data_; GdkWindow *arg1 ; gpointer arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(user_data_, 1); { arg2 = (gpointer )YPlu(user_data_); } gdk_window_set_user_data(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUoverrideUredirect,"samurui/gtk","gdk_window_set_override_redirect"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUoverrideUredirect); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUoverrideUredirect) { P window_, override_redirect_; GdkWindow *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(override_redirect_, 1); { arg2 = (signed)YPiu(override_redirect_); } gdk_window_set_override_redirect(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUaddUfilter,"samurui/gtk","gdk_window_add_filter"); FUNFOR(YsamuruiSgtkYgdkUwindowUaddUfilter); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUaddUfilter) { P window_, function_, data_; GdkWindow *arg1 ; GdkFilterFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(function_, 1); { arg2 = (GdkFilterFunc )YPlu(function_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gdk_window_add_filter(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUremoveUfilter,"samurui/gtk","gdk_window_remove_filter"); FUNFOR(YsamuruiSgtkYgdkUwindowUremoveUfilter); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUremoveUfilter) { P window_, function_, data_; GdkWindow *arg1 ; GdkFilterFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(function_, 1); { arg2 = (GdkFilterFunc )YPlu(function_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gdk_window_remove_filter(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUscroll,"samurui/gtk","gdk_window_scroll"); FUNFOR(YsamuruiSgtkYgdkUwindowUscroll); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUscroll) { P window_, dx_, dy_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(dx_, 1); { arg2 = (signed)YPiu(dx_); } ARG(dy_, 2); { arg3 = (signed)YPiu(dy_); } gdk_window_scroll(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUshapeUcombineUmask,"samurui/gtk","gdk_window_shape_combine_mask"); FUNFOR(YsamuruiSgtkYgdkUwindowUshapeUcombineUmask); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUshapeUcombineUmask) { P window_, mask_, x_, y_; GdkWindow *arg1 ; GdkBitmap *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(mask_, 1); { arg2 = (GdkBitmap *)YPlu(mask_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gdk_window_shape_combine_mask(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUshapeUcombineUregion,"samurui/gtk","gdk_window_shape_combine_region"); FUNFOR(YsamuruiSgtkYgdkUwindowUshapeUcombineUregion); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUshapeUcombineUregion) { P window_, shape_region_, offset_x_, offset_y_; GdkWindow *arg1 ; GdkRegion *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(shape_region_, 1); { arg2 = (GdkRegion *)YPlu(shape_region_); } ARG(offset_x_, 2); { arg3 = (signed)YPiu(offset_x_); } ARG(offset_y_, 3); { arg4 = (signed)YPiu(offset_y_); } gdk_window_shape_combine_region(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUchildUshapes,"samurui/gtk","gdk_window_set_child_shapes"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUchildUshapes); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUchildUshapes) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_set_child_shapes(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUmergeUchildUshapes,"samurui/gtk","gdk_window_merge_child_shapes"); FUNFOR(YsamuruiSgtkYgdkUwindowUmergeUchildUshapes); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUmergeUchildUshapes) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_merge_child_shapes(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUisUvisible,"samurui/gtk","gdk_window_is_visible"); FUNFOR(YsamuruiSgtkYgdkUwindowUisUvisible); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUisUvisible) { P window_; GdkWindow *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (gboolean )gdk_window_is_visible(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUisUviewable,"samurui/gtk","gdk_window_is_viewable"); FUNFOR(YsamuruiSgtkYgdkUwindowUisUviewable); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUisUviewable) { P window_; GdkWindow *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (gboolean )gdk_window_is_viewable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUstate,"samurui/gtk","gdk_window_get_state"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUstate); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUstate) { P window_; GdkWindow *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (int )gdk_window_get_state(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUstaticUgravities,"samurui/gtk","gdk_window_set_static_gravities"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUstaticUgravities); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUstaticUgravities) { P window_, use_static_; GdkWindow *arg1 ; gboolean arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(use_static_, 1); { arg2 = (signed)YPiu(use_static_); } result = (gboolean )gdk_window_set_static_gravities(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUforeignUnew,"samurui/gtk","gdk_window_foreign_new"); FUNFOR(YsamuruiSgtkYgdkUwindowUforeignUnew); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUforeignUnew) { P anid_; GdkNativeWindow arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(anid_, 0); { arg1 = (GdkNativeWindow )YPlu(anid_); } result = (GdkWindow *)gdk_window_foreign_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUlookup,"samurui/gtk","gdk_window_lookup"); FUNFOR(YsamuruiSgtkYgdkUwindowUlookup); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUlookup) { P anid_; GdkNativeWindow arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(anid_, 0); { arg1 = (GdkNativeWindow )YPlu(anid_); } result = (GdkWindow *)gdk_window_lookup(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUtypeUhint,"samurui/gtk","gdk_window_set_type_hint"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUtypeUhint); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUtypeUhint) { P window_, hint_; GdkWindow *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(hint_, 1); { arg2 = (int)YPiu(hint_); } gdk_window_set_type_hint(arg1,(GdkWindowTypeHint )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUmodalUhint,"samurui/gtk","gdk_window_set_modal_hint"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUmodalUhint); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUmodalUhint) { P window_, modal_; GdkWindow *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(modal_, 1); { arg2 = (signed)YPiu(modal_); } gdk_window_set_modal_hint(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUgeometryUhints,"samurui/gtk","gdk_window_set_geometry_hints"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUgeometryUhints); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUgeometryUhints) { P window_, geometry_, geom_mask_; GdkWindow *arg1 ; GdkGeometry *arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(geometry_, 1); { arg2 = (GdkGeometry *)YPlu(geometry_); } ARG(geom_mask_, 2); { arg3 = (int)YPiu(geom_mask_); } gdk_window_set_geometry_hints(arg1,arg2,(GdkWindowHints )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsetUsmUclientUid,"samurui/gtk","gdk_set_sm_client_id"); FUNFOR(YsamuruiSgtkYgdkUsetUsmUclientUid); FUNCODEDEF(YsamuruiSgtkYgdkUsetUsmUclientUid) { P sm_client_id_; gchar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(sm_client_id_, 0); { arg1 = (char *)YPsu(sm_client_id_); } gdk_set_sm_client_id(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUbeginUpaintUrect,"samurui/gtk","gdk_window_begin_paint_rect"); FUNFOR(YsamuruiSgtkYgdkUwindowUbeginUpaintUrect); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUbeginUpaintUrect) { P window_, rectangle_; GdkWindow *arg1 ; GdkRectangle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(rectangle_, 1); { arg2 = (GdkRectangle *)YPlu(rectangle_); } gdk_window_begin_paint_rect(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUbeginUpaintUregion,"samurui/gtk","gdk_window_begin_paint_region"); FUNFOR(YsamuruiSgtkYgdkUwindowUbeginUpaintUregion); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUbeginUpaintUregion) { P window_, region_; GdkWindow *arg1 ; GdkRegion *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(region_, 1); { arg2 = (GdkRegion *)YPlu(region_); } gdk_window_begin_paint_region(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUendUpaint,"samurui/gtk","gdk_window_end_paint"); FUNFOR(YsamuruiSgtkYgdkUwindowUendUpaint); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUendUpaint) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_end_paint(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUtitle,"samurui/gtk","gdk_window_set_title"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUtitle); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUtitle) { P window_, title_; GdkWindow *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(title_, 1); { arg2 = (char *)YPsu(title_); } gdk_window_set_title(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUrole,"samurui/gtk","gdk_window_set_role"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUrole); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUrole) { P window_, role_; GdkWindow *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(role_, 1); { arg2 = (char *)YPsu(role_); } gdk_window_set_role(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUtransientUfor,"samurui/gtk","gdk_window_set_transient_for"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUtransientUfor); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUtransientUfor) { P window_, parent_; GdkWindow *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(parent_, 1); { arg2 = (GdkWindow *)YPlu(parent_); } gdk_window_set_transient_for(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUbackground,"samurui/gtk","gdk_window_set_background"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUbackground); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUbackground) { P window_, color_; GdkWindow *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gdk_window_set_background(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUbackUpixmap,"samurui/gtk","gdk_window_set_back_pixmap"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUbackUpixmap); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUbackUpixmap) { P window_, pixmap_, parent_relative_; GdkWindow *arg1 ; GdkPixmap *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(pixmap_, 1); { arg2 = (GdkPixmap *)YPlu(pixmap_); } ARG(parent_relative_, 2); { arg3 = (signed)YPiu(parent_relative_); } gdk_window_set_back_pixmap(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUcursor,"samurui/gtk","gdk_window_set_cursor"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUcursor); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUcursor) { P window_, cursor_; GdkWindow *arg1 ; GdkCursor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(cursor_, 1); { arg2 = (GdkCursor *)YPlu(cursor_); } gdk_window_set_cursor(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUuserUdata,"samurui/gtk","gdk_window_get_user_data"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUuserUdata); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUuserUdata) { P window_, data_; GdkWindow *arg1 ; gpointer *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(data_, 1); { arg2 = (gpointer *)YPlu(data_); } gdk_window_get_user_data(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUgeometry,"samurui/gtk","gdk_window_get_geometry"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUgeometry); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUgeometry) { P window_, depth_; GdkWindow *arg1 ; gint *arg2 ; gint *arg3 ; gint *arg4 ; gint *arg5 ; gint *arg6 ; int actualint2 ; int actualint3 ; int actualint4 ; int actualint5 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { arg4 = &actualint4; } { arg5 = &actualint5; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(depth_, 1); { arg6 = (gint *)YPlu(depth_); } gdk_window_get_geometry(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg4); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg5); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUposition,"samurui/gtk","gdk_window_get_position"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUposition); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUposition) { P window_; GdkWindow *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_get_position(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUorigin,"samurui/gtk","gdk_window_get_origin"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUorigin); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUorigin) { P window_; GdkWindow *arg1 ; gint *arg2 ; gint *arg3 ; gint result; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (gint )gdk_window_get_origin(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUrootUorigin,"samurui/gtk","gdk_window_get_root_origin"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUrootUorigin); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUrootUorigin) { P window_; GdkWindow *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_get_root_origin(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUframeUextents,"samurui/gtk","gdk_window_get_frame_extents"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUframeUextents); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUframeUextents) { P window_, rect_; GdkWindow *arg1 ; GdkRectangle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(rect_, 1); { arg2 = (GdkRectangle *)YPlu(rect_); } gdk_window_get_frame_extents(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUpointer,"samurui/gtk","gdk_window_get_pointer"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUpointer); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUpointer) { P window_; GdkWindow *arg1 ; gint *arg2 ; gint *arg3 ; GdkModifierType *arg4 ; GdkWindow *result; int actualint2 ; int actualint3 ; int actualint4 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { arg4 = &actualint4; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GdkWindow *)gdk_window_get_pointer(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg4); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUparent,"samurui/gtk","gdk_window_get_parent"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUparent); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUparent) { P window_; GdkWindow *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GdkWindow *)gdk_window_get_parent(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUtoplevel,"samurui/gtk","gdk_window_get_toplevel"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUtoplevel); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUtoplevel) { P window_; GdkWindow *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GdkWindow *)gdk_window_get_toplevel(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUchildren,"samurui/gtk","gdk_window_get_children"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUchildren); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUchildren) { P window_; GdkWindow *arg1 ; GList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GList *)gdk_window_get_children(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUpeekUchildren,"samurui/gtk","gdk_window_peek_children"); FUNFOR(YsamuruiSgtkYgdkUwindowUpeekUchildren); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUpeekUchildren) { P window_; GdkWindow *arg1 ; GList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GList *)gdk_window_peek_children(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUevents,"samurui/gtk","gdk_window_get_events"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUevents); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUevents) { P window_; GdkWindow *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (int )gdk_window_get_events(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUevents,"samurui/gtk","gdk_window_set_events"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUevents); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUevents) { P window_, event_mask_; GdkWindow *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(event_mask_, 1); { arg2 = (int)YPiu(event_mask_); } gdk_window_set_events(arg1,(GdkEventMask )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUiconUlist,"samurui/gtk","gdk_window_set_icon_list"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUiconUlist); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUiconUlist) { P window_, pixbufs_; GdkWindow *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(pixbufs_, 1); { arg2 = (GList *)YPlu(pixbufs_); } gdk_window_set_icon_list(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUicon,"samurui/gtk","gdk_window_set_icon"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUicon); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUicon) { P window_, icon_window_, pixmap_, mask_; GdkWindow *arg1 ; GdkWindow *arg2 ; GdkPixmap *arg3 ; GdkBitmap *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(icon_window_, 1); { arg2 = (GdkWindow *)YPlu(icon_window_); } ARG(pixmap_, 2); { arg3 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 3); { arg4 = (GdkBitmap *)YPlu(mask_); } gdk_window_set_icon(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUiconUname,"samurui/gtk","gdk_window_set_icon_name"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUiconUname); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUiconUname) { P window_, name_; GdkWindow *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } gdk_window_set_icon_name(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUgroup,"samurui/gtk","gdk_window_set_group"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUgroup); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUgroup) { P window_, leader_; GdkWindow *arg1 ; GdkWindow *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(leader_, 1); { arg2 = (GdkWindow *)YPlu(leader_); } gdk_window_set_group(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUdecorations,"samurui/gtk","gdk_window_set_decorations"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUdecorations); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUdecorations) { P window_, decorations_; GdkWindow *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(decorations_, 1); { arg2 = (int)YPiu(decorations_); } gdk_window_set_decorations(arg1,(GdkWMDecoration )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUdecorations,"samurui/gtk","gdk_window_get_decorations"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUdecorations); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUdecorations) { P window_, decorations_; GdkWindow *arg1 ; GdkWMDecoration *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(decorations_, 1); { arg2 = (GdkWMDecoration *)YPlu(decorations_); } result = (gboolean )gdk_window_get_decorations(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUfunctions,"samurui/gtk","gdk_window_set_functions"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUfunctions); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUfunctions) { P window_, functions_; GdkWindow *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(functions_, 1); { arg2 = (int)YPiu(functions_); } gdk_window_set_functions(arg1,(GdkWMFunction )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUtoplevels,"samurui/gtk","gdk_window_get_toplevels"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUtoplevels); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUtoplevels) { GList *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GList *)gdk_window_get_toplevels(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUiconify,"samurui/gtk","gdk_window_iconify"); FUNFOR(YsamuruiSgtkYgdkUwindowUiconify); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUiconify) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_iconify(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUdeiconify,"samurui/gtk","gdk_window_deiconify"); FUNFOR(YsamuruiSgtkYgdkUwindowUdeiconify); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUdeiconify) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_deiconify(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUstick,"samurui/gtk","gdk_window_stick"); FUNFOR(YsamuruiSgtkYgdkUwindowUstick); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUstick) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_stick(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUunstick,"samurui/gtk","gdk_window_unstick"); FUNFOR(YsamuruiSgtkYgdkUwindowUunstick); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUunstick) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_unstick(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUmaximize,"samurui/gtk","gdk_window_maximize"); FUNFOR(YsamuruiSgtkYgdkUwindowUmaximize); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUmaximize) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_maximize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUunmaximize,"samurui/gtk","gdk_window_unmaximize"); FUNFOR(YsamuruiSgtkYgdkUwindowUunmaximize); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUunmaximize) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_unmaximize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUregisterUdnd,"samurui/gtk","gdk_window_register_dnd"); FUNFOR(YsamuruiSgtkYgdkUwindowUregisterUdnd); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUregisterUdnd) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_register_dnd(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUbeginUresizeUdrag,"samurui/gtk","gdk_window_begin_resize_drag"); FUNFOR(YsamuruiSgtkYgdkUwindowUbeginUresizeUdrag); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUbeginUresizeUdrag) { P window_, edge_, button_, root_x_, root_y_, timestamp_; GdkWindow *arg1 ; int arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; guint32 arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(edge_, 1); { arg2 = (int)YPiu(edge_); } ARG(button_, 2); { arg3 = (signed)YPiu(button_); } ARG(root_x_, 3); { arg4 = (signed)YPiu(root_x_); } ARG(root_y_, 4); { arg5 = (signed)YPiu(root_y_); } ARG(timestamp_, 5); { arg6 = (unsigned)YPiu(timestamp_); } gdk_window_begin_resize_drag(arg1,(GdkWindowEdge )arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUbeginUmoveUdrag,"samurui/gtk","gdk_window_begin_move_drag"); FUNFOR(YsamuruiSgtkYgdkUwindowUbeginUmoveUdrag); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUbeginUmoveUdrag) { P window_, button_, root_x_, root_y_, timestamp_; GdkWindow *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; guint32 arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(button_, 1); { arg2 = (signed)YPiu(button_); } ARG(root_x_, 2); { arg3 = (signed)YPiu(root_x_); } ARG(root_y_, 3); { arg4 = (signed)YPiu(root_y_); } ARG(timestamp_, 4); { arg5 = (unsigned)YPiu(timestamp_); } gdk_window_begin_move_drag(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUinvalidateUrect,"samurui/gtk","gdk_window_invalidate_rect"); FUNFOR(YsamuruiSgtkYgdkUwindowUinvalidateUrect); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUinvalidateUrect) { P window_, rect_, invalidate_children_; GdkWindow *arg1 ; GdkRectangle *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(rect_, 1); { arg2 = (GdkRectangle *)YPlu(rect_); } ARG(invalidate_children_, 2); { arg3 = (signed)YPiu(invalidate_children_); } gdk_window_invalidate_rect(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUinvalidateUregion,"samurui/gtk","gdk_window_invalidate_region"); FUNFOR(YsamuruiSgtkYgdkUwindowUinvalidateUregion); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUinvalidateUregion) { P window_, region_, invalidate_children_; GdkWindow *arg1 ; GdkRegion *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(region_, 1); { arg2 = (GdkRegion *)YPlu(region_); } ARG(invalidate_children_, 2); { arg3 = (signed)YPiu(invalidate_children_); } gdk_window_invalidate_region(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUinvalidateUmaybeUrecurse,"samurui/gtk","gdk_window_invalidate_maybe_recurse"); FUNFOR(YsamuruiSgtkYgdkUwindowUinvalidateUmaybeUrecurse); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUinvalidateUmaybeUrecurse) { P window_, region_, child_func_, user_data_; GdkWindow *arg1 ; GdkRegion *arg2 ; gboolean (*arg3)() ; gpointer arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(region_, 1); { arg2 = (GdkRegion *)YPlu(region_); } ARG(child_func_, 2); { arg3 = (gboolean (*)(GdkWindow *,gpointer ))YPlu(child_func_); } ARG(user_data_, 3); { arg4 = (gpointer )YPlu(user_data_); } gdk_window_invalidate_maybe_recurse(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUupdateUarea,"samurui/gtk","gdk_window_get_update_area"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUupdateUarea); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUupdateUarea) { P window_; GdkWindow *arg1 ; GdkRegion *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } result = (GdkRegion *)gdk_window_get_update_area(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUfreezeUupdates,"samurui/gtk","gdk_window_freeze_updates"); FUNFOR(YsamuruiSgtkYgdkUwindowUfreezeUupdates); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUfreezeUupdates) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_freeze_updates(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUthawUupdates,"samurui/gtk","gdk_window_thaw_updates"); FUNFOR(YsamuruiSgtkYgdkUwindowUthawUupdates); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUthawUupdates) { P window_; GdkWindow *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } gdk_window_thaw_updates(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUprocessUallUupdates,"samurui/gtk","gdk_window_process_all_updates"); FUNFOR(YsamuruiSgtkYgdkUwindowUprocessUallUupdates); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUprocessUallUupdates) { P retval = (P)YPib((P)0); LINK_STACK(); gdk_window_process_all_updates(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUprocessUupdates,"samurui/gtk","gdk_window_process_updates"); FUNFOR(YsamuruiSgtkYgdkUwindowUprocessUupdates); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUprocessUupdates) { P window_, update_children_; GdkWindow *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(update_children_, 1); { arg2 = (signed)YPiu(update_children_); } gdk_window_process_updates(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUsetUdebugUupdates,"samurui/gtk","gdk_window_set_debug_updates"); FUNFOR(YsamuruiSgtkYgdkUwindowUsetUdebugUupdates); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUsetUdebugUupdates) { P setting_; gboolean arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(setting_, 0); { arg1 = (signed)YPiu(setting_); } gdk_window_set_debug_updates(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUconstrainUsize,"samurui/gtk","gdk_window_constrain_size"); FUNFOR(YsamuruiSgtkYgdkUwindowUconstrainUsize); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUconstrainUsize) { P geometry_, flags_, width_, height_, new_width_, new_height_; GdkGeometry *arg1 ; guint arg2 ; gint arg3 ; gint arg4 ; gint *arg5 ; gint *arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(geometry_, 0); { arg1 = (GdkGeometry *)YPlu(geometry_); } ARG(flags_, 1); { arg2 = (unsigned)YPiu(flags_); } ARG(width_, 2); { arg3 = (signed)YPiu(width_); } ARG(height_, 3); { arg4 = (signed)YPiu(height_); } ARG(new_width_, 4); { arg5 = (gint *)YPlu(new_width_); } ARG(new_height_, 5); { arg6 = (gint *)YPlu(new_height_); } gdk_window_constrain_size(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUwindowUgetUinternalUpaintUinfo,"samurui/gtk","gdk_window_get_internal_paint_info"); FUNFOR(YsamuruiSgtkYgdkUwindowUgetUinternalUpaintUinfo); FUNCODEDEF(YsamuruiSgtkYgdkUwindowUgetUinternalUpaintUinfo) { P window_, real_drawable_, x_offset_, y_offset_; GdkWindow *arg1 ; GdkDrawable **arg2 ; gint *arg3 ; gint *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(window_, 0); { arg1 = (GdkWindow *)YPlu(window_); } ARG(real_drawable_, 1); { arg2 = (GdkDrawable **)YPlu(real_drawable_); } ARG(x_offset_, 2); { arg3 = (gint *)YPlu(x_offset_); } ARG(y_offset_, 3); { arg4 = (gint *)YPlu(y_offset_); } gdk_window_get_internal_paint_info(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUsetUpointerUhooks,"samurui/gtk","gdk_set_pointer_hooks"); FUNFOR(YsamuruiSgtkYgdkUsetUpointerUhooks); FUNCODEDEF(YsamuruiSgtkYgdkUsetUpointerUhooks) { P new_hooks_; GdkPointerHooks *arg1 ; GdkPointerHooks *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(new_hooks_, 0); { arg1 = (GdkPointerHooks *)YPlu(new_hooks_); } result = (GdkPointerHooks *)gdk_set_pointer_hooks(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgdkUgetUdefaultUrootUwindow,"samurui/gtk","gdk_get_default_root_window"); FUNFOR(YsamuruiSgtkYgdkUgetUdefaultUrootUwindow); FUNCODEDEF(YsamuruiSgtkYgdkUgetUdefaultUrootUwindow) { GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkWindow *)gdk_get_default_root_window(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUlabelUnew,"samurui/gtk","gtk_accel_label_new"); FUNFOR(YsamuruiSgtkYgtkUaccelUlabelUnew); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUlabelUnew) { P string_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(string_, 0); { arg1 = (char *)YPsu(string_); } result = (GtkWidget *)gtk_accel_label_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidget,"samurui/gtk","gtk_accel_label_get_accel_widget"); FUNFOR(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidget) { P accel_label_; GtkAccelLabel *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_label_, 0); { arg1 = (GtkAccelLabel *)YPlu(accel_label_); } result = (GtkWidget *)gtk_accel_label_get_accel_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidth,"samurui/gtk","gtk_accel_label_get_accel_width"); FUNFOR(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidth) { P accel_label_; GtkAccelLabel *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_label_, 0); { arg1 = (GtkAccelLabel *)YPlu(accel_label_); } result = (guint )gtk_accel_label_get_accel_width(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUwidget,"samurui/gtk","gtk_accel_label_set_accel_widget"); FUNFOR(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUwidget) { P accel_label_, accel_widget_; GtkAccelLabel *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_label_, 0); { arg1 = (GtkAccelLabel *)YPlu(accel_label_); } ARG(accel_widget_, 1); { arg2 = (GtkWidget *)YPlu(accel_widget_); } gtk_accel_label_set_accel_widget(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUclosure,"samurui/gtk","gtk_accel_label_set_accel_closure"); FUNFOR(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUclosure); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUclosure) { P accel_label_, closure_; GtkAccelLabel *arg1 ; GClosure *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_label_, 0); { arg1 = (GtkAccelLabel *)YPlu(accel_label_); } ARG(closure_, 1); { arg2 = (GClosure *)YPlu(closure_); } gtk_accel_label_set_accel_closure(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaccelUlabelUrefetch,"samurui/gtk","gtk_accel_label_refetch"); FUNFOR(YsamuruiSgtkYgtkUaccelUlabelUrefetch); FUNCODEDEF(YsamuruiSgtkYgtkUaccelUlabelUrefetch) { P accel_label_; GtkAccelLabel *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_label_, 0); { arg1 = (GtkAccelLabel *)YPlu(accel_label_); } result = (gboolean )gtk_accel_label_refetch(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUadjustmentUnew,"samurui/gtk","gtk_adjustment_new"); FUNFOR(YsamuruiSgtkYgtkUadjustmentUnew); FUNCODEDEF(YsamuruiSgtkYgtkUadjustmentUnew) { P value_, lower_, upper_, step_increment_, page_increment_, page_size_; gdouble arg1 ; gdouble arg2 ; gdouble arg3 ; gdouble arg4 ; gdouble arg5 ; gdouble arg6 ; GtkObject *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(value_, 0); { arg1 = (double)((float)YPfu(value_)); } ARG(lower_, 1); { arg2 = (double)((float)YPfu(lower_)); } ARG(upper_, 2); { arg3 = (double)((float)YPfu(upper_)); } ARG(step_increment_, 3); { arg4 = (double)((float)YPfu(step_increment_)); } ARG(page_increment_, 4); { arg5 = (double)((float)YPfu(page_increment_)); } ARG(page_size_, 5); { arg6 = (double)((float)YPfu(page_size_)); } result = (GtkObject *)gtk_adjustment_new(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUadjustmentUchanged,"samurui/gtk","gtk_adjustment_changed"); FUNFOR(YsamuruiSgtkYgtkUadjustmentUchanged); FUNCODEDEF(YsamuruiSgtkYgtkUadjustmentUchanged) { P adjustment_; GtkAdjustment *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } gtk_adjustment_changed(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUadjustmentUvalueUchanged,"samurui/gtk","gtk_adjustment_value_changed"); FUNFOR(YsamuruiSgtkYgtkUadjustmentUvalueUchanged); FUNCODEDEF(YsamuruiSgtkYgtkUadjustmentUvalueUchanged) { P adjustment_; GtkAdjustment *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } gtk_adjustment_value_changed(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUadjustmentUclampUpage,"samurui/gtk","gtk_adjustment_clamp_page"); FUNFOR(YsamuruiSgtkYgtkUadjustmentUclampUpage); FUNCODEDEF(YsamuruiSgtkYgtkUadjustmentUclampUpage) { P adjustment_, lower_, upper_; GtkAdjustment *arg1 ; gdouble arg2 ; gdouble arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } ARG(lower_, 1); { arg2 = (double)((float)YPfu(lower_)); } ARG(upper_, 2); { arg3 = (double)((float)YPfu(upper_)); } gtk_adjustment_clamp_page(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUadjustmentUgetUvalue,"samurui/gtk","gtk_adjustment_get_value"); FUNFOR(YsamuruiSgtkYgtkUadjustmentUgetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUadjustmentUgetUvalue) { P adjustment_; GtkAdjustment *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } result = (gdouble )gtk_adjustment_get_value(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUadjustmentUsetUvalue,"samurui/gtk","gtk_adjustment_set_value"); FUNFOR(YsamuruiSgtkYgtkUadjustmentUsetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUadjustmentUsetUvalue) { P adjustment_, value_; GtkAdjustment *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } gtk_adjustment_set_value(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUalignmentUnew,"samurui/gtk","gtk_alignment_new"); FUNFOR(YsamuruiSgtkYgtkUalignmentUnew); FUNCODEDEF(YsamuruiSgtkYgtkUalignmentUnew) { P xalign_, yalign_, xscale_, yscale_; gfloat arg1 ; gfloat arg2 ; gfloat arg3 ; gfloat arg4 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(xalign_, 0); { arg1 = (float)YPfu(xalign_); } ARG(yalign_, 1); { arg2 = (float)YPfu(yalign_); } ARG(xscale_, 2); { arg3 = (float)YPfu(xscale_); } ARG(yscale_, 3); { arg4 = (float)YPfu(yscale_); } result = (GtkWidget *)gtk_alignment_new(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUalignmentUset,"samurui/gtk","gtk_alignment_set"); FUNFOR(YsamuruiSgtkYgtkUalignmentUset); FUNCODEDEF(YsamuruiSgtkYgtkUalignmentUset) { P alignment_, xalign_, yalign_, xscale_, yscale_; GtkAlignment *arg1 ; gfloat arg2 ; gfloat arg3 ; gfloat arg4 ; gfloat arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(alignment_, 0); { arg1 = (GtkAlignment *)YPlu(alignment_); } ARG(xalign_, 1); { arg2 = (float)YPfu(xalign_); } ARG(yalign_, 2); { arg3 = (float)YPfu(yalign_); } ARG(xscale_, 3); { arg4 = (float)YPfu(xscale_); } ARG(yscale_, 4); { arg5 = (float)YPfu(yscale_); } gtk_alignment_set(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUarrowUnew,"samurui/gtk","gtk_arrow_new"); FUNFOR(YsamuruiSgtkYgtkUarrowUnew); FUNCODEDEF(YsamuruiSgtkYgtkUarrowUnew) { P arrow_type_, shadow_type_; int arg1 ; int arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(arrow_type_, 0); { arg1 = (int)YPiu(arrow_type_); } ARG(shadow_type_, 1); { arg2 = (int)YPiu(shadow_type_); } result = (GtkWidget *)gtk_arrow_new((GtkArrowType )arg1,(GtkShadowType )arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUarrowUset,"samurui/gtk","gtk_arrow_set"); FUNFOR(YsamuruiSgtkYgtkUarrowUset); FUNCODEDEF(YsamuruiSgtkYgtkUarrowUset) { P arrow_, arrow_type_, shadow_type_; GtkArrow *arg1 ; int arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(arrow_, 0); { arg1 = (GtkArrow *)YPlu(arrow_); } ARG(arrow_type_, 1); { arg2 = (int)YPiu(arrow_type_); } ARG(shadow_type_, 2); { arg3 = (int)YPiu(shadow_type_); } gtk_arrow_set(arg1,(GtkArrowType )arg2,(GtkShadowType )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaspectUframeUnew,"samurui/gtk","gtk_aspect_frame_new"); FUNFOR(YsamuruiSgtkYgtkUaspectUframeUnew); FUNCODEDEF(YsamuruiSgtkYgtkUaspectUframeUnew) { P label_, xalign_, yalign_, ratio_, obey_child_; gchar *arg1 ; gfloat arg2 ; gfloat arg3 ; gfloat arg4 ; gboolean arg5 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } ARG(xalign_, 1); { arg2 = (float)YPfu(xalign_); } ARG(yalign_, 2); { arg3 = (float)YPfu(yalign_); } ARG(ratio_, 3); { arg4 = (float)YPfu(ratio_); } ARG(obey_child_, 4); { arg5 = (signed)YPiu(obey_child_); } result = (GtkWidget *)gtk_aspect_frame_new(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUaspectUframeUset,"samurui/gtk","gtk_aspect_frame_set"); FUNFOR(YsamuruiSgtkYgtkUaspectUframeUset); FUNCODEDEF(YsamuruiSgtkYgtkUaspectUframeUset) { P aspect_frame_, xalign_, yalign_, ratio_, obey_child_; GtkAspectFrame *arg1 ; gfloat arg2 ; gfloat arg3 ; gfloat arg4 ; gboolean arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(aspect_frame_, 0); { arg1 = (GtkAspectFrame *)YPlu(aspect_frame_); } ARG(xalign_, 1); { arg2 = (float)YPfu(xalign_); } ARG(yalign_, 2); { arg3 = (float)YPfu(yalign_); } ARG(ratio_, 3); { arg4 = (float)YPfu(ratio_); } ARG(obey_child_, 4); { arg5 = (signed)YPiu(obey_child_); } gtk_aspect_frame_set(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbinUgetUchild,"samurui/gtk","gtk_bin_get_child"); FUNFOR(YsamuruiSgtkYgtkUbinUgetUchild); FUNCODEDEF(YsamuruiSgtkYgtkUbinUgetUchild) { P bin_; GtkBin *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(bin_, 0); { arg1 = (GtkBin *)YPlu(bin_); } result = (GtkWidget *)gtk_bin_get_child(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUboxUgetUlayout,"samurui/gtk","gtk_button_box_get_layout"); FUNFOR(YsamuruiSgtkYgtkUbuttonUboxUgetUlayout); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUboxUgetUlayout) { P widget_; GtkButtonBox *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkButtonBox *)YPlu(widget_); } result = (int )gtk_button_box_get_layout(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUboxUsetUlayout,"samurui/gtk","gtk_button_box_set_layout"); FUNFOR(YsamuruiSgtkYgtkUbuttonUboxUsetUlayout); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUboxUsetUlayout) { P widget_, layout_style_; GtkButtonBox *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkButtonBox *)YPlu(widget_); } ARG(layout_style_, 1); { arg2 = (int)YPiu(layout_style_); } gtk_button_box_set_layout(arg1,(GtkButtonBoxStyle )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUboxUsetUchildUsecondary,"samurui/gtk","gtk_button_box_set_child_secondary"); FUNFOR(YsamuruiSgtkYgtkUbuttonUboxUsetUchildUsecondary); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUboxUsetUchildUsecondary) { P widget_, child_, is_secondary_; GtkButtonBox *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkButtonBox *)YPlu(widget_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(is_secondary_, 2); { arg3 = (signed)YPiu(is_secondary_); } gtk_button_box_set_child_secondary(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUpackUstart,"samurui/gtk","gtk_box_pack_start"); FUNFOR(YsamuruiSgtkYgtkUboxUpackUstart); FUNCODEDEF(YsamuruiSgtkYgtkUboxUpackUstart) { P box_, child_, expand_, fill_, padding_; GtkBox *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; gboolean arg4 ; guint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(expand_, 2); { arg3 = (signed)YPiu(expand_); } ARG(fill_, 3); { arg4 = (signed)YPiu(fill_); } ARG(padding_, 4); { arg5 = (unsigned)YPiu(padding_); } gtk_box_pack_start(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUpackUend,"samurui/gtk","gtk_box_pack_end"); FUNFOR(YsamuruiSgtkYgtkUboxUpackUend); FUNCODEDEF(YsamuruiSgtkYgtkUboxUpackUend) { P box_, child_, expand_, fill_, padding_; GtkBox *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; gboolean arg4 ; guint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(expand_, 2); { arg3 = (signed)YPiu(expand_); } ARG(fill_, 3); { arg4 = (signed)YPiu(fill_); } ARG(padding_, 4); { arg5 = (unsigned)YPiu(padding_); } gtk_box_pack_end(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUpackUstartUdefaults,"samurui/gtk","gtk_box_pack_start_defaults"); FUNFOR(YsamuruiSgtkYgtkUboxUpackUstartUdefaults); FUNCODEDEF(YsamuruiSgtkYgtkUboxUpackUstartUdefaults) { P box_, widget_; GtkBox *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } gtk_box_pack_start_defaults(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUpackUendUdefaults,"samurui/gtk","gtk_box_pack_end_defaults"); FUNFOR(YsamuruiSgtkYgtkUboxUpackUendUdefaults); FUNCODEDEF(YsamuruiSgtkYgtkUboxUpackUendUdefaults) { P box_, widget_; GtkBox *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } gtk_box_pack_end_defaults(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUsetUhomogeneous,"samurui/gtk","gtk_box_set_homogeneous"); FUNFOR(YsamuruiSgtkYgtkUboxUsetUhomogeneous); FUNCODEDEF(YsamuruiSgtkYgtkUboxUsetUhomogeneous) { P box_, homogeneous_; GtkBox *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(homogeneous_, 1); { arg2 = (signed)YPiu(homogeneous_); } gtk_box_set_homogeneous(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUgetUhomogeneous,"samurui/gtk","gtk_box_get_homogeneous"); FUNFOR(YsamuruiSgtkYgtkUboxUgetUhomogeneous); FUNCODEDEF(YsamuruiSgtkYgtkUboxUgetUhomogeneous) { P box_; GtkBox *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } result = (gboolean )gtk_box_get_homogeneous(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUsetUspacing,"samurui/gtk","gtk_box_set_spacing"); FUNFOR(YsamuruiSgtkYgtkUboxUsetUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUboxUsetUspacing) { P box_, spacing_; GtkBox *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(spacing_, 1); { arg2 = (signed)YPiu(spacing_); } gtk_box_set_spacing(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUgetUspacing,"samurui/gtk","gtk_box_get_spacing"); FUNFOR(YsamuruiSgtkYgtkUboxUgetUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUboxUgetUspacing) { P box_; GtkBox *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } result = (gint )gtk_box_get_spacing(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUreorderUchild,"samurui/gtk","gtk_box_reorder_child"); FUNFOR(YsamuruiSgtkYgtkUboxUreorderUchild); FUNCODEDEF(YsamuruiSgtkYgtkUboxUreorderUchild) { P box_, child_, position_; GtkBox *arg1 ; GtkWidget *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(position_, 2); { arg3 = (signed)YPiu(position_); } gtk_box_reorder_child(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUqueryUchildUpacking,"samurui/gtk","gtk_box_query_child_packing"); FUNFOR(YsamuruiSgtkYgtkUboxUqueryUchildUpacking); FUNCODEDEF(YsamuruiSgtkYgtkUboxUqueryUchildUpacking) { P box_, child_, expand_, fill_, padding_, pack_type_; GtkBox *arg1 ; GtkWidget *arg2 ; gboolean *arg3 ; gboolean *arg4 ; guint *arg5 ; GtkPackType *arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(expand_, 2); { arg3 = (gboolean *)YPlu(expand_); } ARG(fill_, 3); { arg4 = (gboolean *)YPlu(fill_); } ARG(padding_, 4); { arg5 = (guint *)YPlu(padding_); } ARG(pack_type_, 5); { arg6 = (GtkPackType *)YPlu(pack_type_); } gtk_box_query_child_packing(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUboxUsetUchildUpacking,"samurui/gtk","gtk_box_set_child_packing"); FUNFOR(YsamuruiSgtkYgtkUboxUsetUchildUpacking); FUNCODEDEF(YsamuruiSgtkYgtkUboxUsetUchildUpacking) { P box_, child_, expand_, fill_, padding_, pack_type_; GtkBox *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; gboolean arg4 ; guint arg5 ; int arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(box_, 0); { arg1 = (GtkBox *)YPlu(box_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(expand_, 2); { arg3 = (signed)YPiu(expand_); } ARG(fill_, 3); { arg4 = (signed)YPiu(fill_); } ARG(padding_, 4); { arg5 = (unsigned)YPiu(padding_); } ARG(pack_type_, 5); { arg6 = (int)YPiu(pack_type_); } gtk_box_set_child_packing(arg1,arg2,arg3,arg4,arg5,(GtkPackType )arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUgetUtype,"samurui/gtk","gtk_button_get_type"); FUNFOR(YsamuruiSgtkYgtkUbuttonUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_button_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUnew,"samurui/gtk","gtk_button_new"); FUNFOR(YsamuruiSgtkYgtkUbuttonUnew); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_button_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUnewUwithUlabel,"samurui/gtk","gtk_button_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUbuttonUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_button_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUnewUfromUstock,"samurui/gtk","gtk_button_new_from_stock"); FUNFOR(YsamuruiSgtkYgtkUbuttonUnewUfromUstock); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUnewUfromUstock) { P stock_id_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(stock_id_, 0); { arg1 = (char *)YPsu(stock_id_); } result = (GtkWidget *)gtk_button_new_from_stock(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUnewUwithUmnemonic,"samurui/gtk","gtk_button_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUbuttonUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUnewUwithUmnemonic) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_button_new_with_mnemonic(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUpressed,"samurui/gtk","gtk_button_pressed"); FUNFOR(YsamuruiSgtkYgtkUbuttonUpressed); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUpressed) { P button_; GtkButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } gtk_button_pressed(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUreleased,"samurui/gtk","gtk_button_released"); FUNFOR(YsamuruiSgtkYgtkUbuttonUreleased); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUreleased) { P button_; GtkButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } gtk_button_released(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUclicked,"samurui/gtk","gtk_button_clicked"); FUNFOR(YsamuruiSgtkYgtkUbuttonUclicked); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUclicked) { P button_; GtkButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } gtk_button_clicked(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUenter,"samurui/gtk","gtk_button_enter"); FUNFOR(YsamuruiSgtkYgtkUbuttonUenter); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUenter) { P button_; GtkButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } gtk_button_enter(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUleave,"samurui/gtk","gtk_button_leave"); FUNFOR(YsamuruiSgtkYgtkUbuttonUleave); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUleave) { P button_; GtkButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } gtk_button_leave(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUsetUrelief,"samurui/gtk","gtk_button_set_relief"); FUNFOR(YsamuruiSgtkYgtkUbuttonUsetUrelief); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUsetUrelief) { P button_, newstyle_; GtkButton *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } ARG(newstyle_, 1); { arg2 = (int)YPiu(newstyle_); } gtk_button_set_relief(arg1,(GtkReliefStyle )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUgetUrelief,"samurui/gtk","gtk_button_get_relief"); FUNFOR(YsamuruiSgtkYgtkUbuttonUgetUrelief); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUgetUrelief) { P button_; GtkButton *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } result = (int )gtk_button_get_relief(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUsetUlabel,"samurui/gtk","gtk_button_set_label"); FUNFOR(YsamuruiSgtkYgtkUbuttonUsetUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUsetUlabel) { P button_, label_; GtkButton *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } gtk_button_set_label(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUgetUlabel,"samurui/gtk","gtk_button_get_label"); FUNFOR(YsamuruiSgtkYgtkUbuttonUgetUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUgetUlabel) { P button_; GtkButton *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } result = (gchar *)gtk_button_get_label(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUsetUuseUunderline,"samurui/gtk","gtk_button_set_use_underline"); FUNFOR(YsamuruiSgtkYgtkUbuttonUsetUuseUunderline); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUsetUuseUunderline) { P button_, use_underline_; GtkButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } ARG(use_underline_, 1); { arg2 = (signed)YPiu(use_underline_); } gtk_button_set_use_underline(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUgetUuseUunderline,"samurui/gtk","gtk_button_get_use_underline"); FUNFOR(YsamuruiSgtkYgtkUbuttonUgetUuseUunderline); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUgetUuseUunderline) { P button_; GtkButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } result = (gboolean )gtk_button_get_use_underline(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUsetUuseUstock,"samurui/gtk","gtk_button_set_use_stock"); FUNFOR(YsamuruiSgtkYgtkUbuttonUsetUuseUstock); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUsetUuseUstock) { P button_, use_stock_; GtkButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } ARG(use_stock_, 1); { arg2 = (signed)YPiu(use_stock_); } gtk_button_set_use_stock(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUbuttonUgetUuseUstock,"samurui/gtk","gtk_button_get_use_stock"); FUNFOR(YsamuruiSgtkYgtkUbuttonUgetUuseUstock); FUNCODEDEF(YsamuruiSgtkYgtkUbuttonUgetUuseUstock) { P button_; GtkButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(button_, 0); { arg1 = (GtkButton *)YPlu(button_); } result = (gboolean )gtk_button_get_use_stock(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUnew,"samurui/gtk","gtk_calendar_new"); FUNFOR(YsamuruiSgtkYgtkUcalendarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_calendar_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUselectUmonth,"samurui/gtk","gtk_calendar_select_month"); FUNFOR(YsamuruiSgtkYgtkUcalendarUselectUmonth); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUselectUmonth) { P calendar_, month_, year_; GtkCalendar *arg1 ; guint arg2 ; guint arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } ARG(month_, 1); { arg2 = (unsigned)YPiu(month_); } ARG(year_, 2); { arg3 = (unsigned)YPiu(year_); } result = (gboolean )gtk_calendar_select_month(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUselectUday,"samurui/gtk","gtk_calendar_select_day"); FUNFOR(YsamuruiSgtkYgtkUcalendarUselectUday); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUselectUday) { P calendar_, day_; GtkCalendar *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } ARG(day_, 1); { arg2 = (unsigned)YPiu(day_); } gtk_calendar_select_day(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUmarkUday,"samurui/gtk","gtk_calendar_mark_day"); FUNFOR(YsamuruiSgtkYgtkUcalendarUmarkUday); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUmarkUday) { P calendar_, day_; GtkCalendar *arg1 ; guint arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } ARG(day_, 1); { arg2 = (unsigned)YPiu(day_); } result = (gboolean )gtk_calendar_mark_day(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUunmarkUday,"samurui/gtk","gtk_calendar_unmark_day"); FUNFOR(YsamuruiSgtkYgtkUcalendarUunmarkUday); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUunmarkUday) { P calendar_, day_; GtkCalendar *arg1 ; guint arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } ARG(day_, 1); { arg2 = (unsigned)YPiu(day_); } result = (gboolean )gtk_calendar_unmark_day(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUclearUmarks,"samurui/gtk","gtk_calendar_clear_marks"); FUNFOR(YsamuruiSgtkYgtkUcalendarUclearUmarks); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUclearUmarks) { P calendar_; GtkCalendar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } gtk_calendar_clear_marks(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUdisplayUoptions,"samurui/gtk","gtk_calendar_display_options"); FUNFOR(YsamuruiSgtkYgtkUcalendarUdisplayUoptions); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUdisplayUoptions) { P calendar_, flags_; GtkCalendar *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } ARG(flags_, 1); { arg2 = (int)YPiu(flags_); } gtk_calendar_display_options(arg1,(GtkCalendarDisplayOptions )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUgetUdate,"samurui/gtk","gtk_calendar_get_date"); FUNFOR(YsamuruiSgtkYgtkUcalendarUgetUdate); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUgetUdate) { P calendar_, year_, month_, day_; GtkCalendar *arg1 ; guint *arg2 ; guint *arg3 ; guint *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } ARG(year_, 1); { arg2 = (guint *)YPlu(year_); } ARG(month_, 2); { arg3 = (guint *)YPlu(month_); } ARG(day_, 3); { arg4 = (guint *)YPlu(day_); } gtk_calendar_get_date(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUfreeze,"samurui/gtk","gtk_calendar_freeze"); FUNFOR(YsamuruiSgtkYgtkUcalendarUfreeze); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUfreeze) { P calendar_; GtkCalendar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } gtk_calendar_freeze(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcalendarUthaw,"samurui/gtk","gtk_calendar_thaw"); FUNFOR(YsamuruiSgtkYgtkUcalendarUthaw); FUNCODEDEF(YsamuruiSgtkYgtkUcalendarUthaw) { P calendar_; GtkCalendar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(calendar_, 0); { arg1 = (GtkCalendar *)YPlu(calendar_); } gtk_calendar_thaw(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcellUrendererUtextUgetUtype,"samurui/gtk","gtk_cell_renderer_text_get_type"); FUNFOR(YsamuruiSgtkYgtkUcellUrendererUtextUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUcellUrendererUtextUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_cell_renderer_text_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcellUrendererUtextUnew,"samurui/gtk","gtk_cell_renderer_text_new"); FUNFOR(YsamuruiSgtkYgtkUcellUrendererUtextUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcellUrendererUtextUnew) { GtkCellRenderer *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkCellRenderer *)gtk_cell_renderer_text_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcellUrendererUtextUsetUfixedUheightUfromUfont,"samurui/gtk","gtk_cell_renderer_text_set_fixed_height_from_font"); FUNFOR(YsamuruiSgtkYgtkUcellUrendererUtextUsetUfixedUheightUfromUfont); FUNCODEDEF(YsamuruiSgtkYgtkUcellUrendererUtextUsetUfixedUheightUfromUfont) { P renderer_, number_of_rows_; GtkCellRendererText *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(renderer_, 0); { arg1 = (GtkCellRendererText *)YPlu(renderer_); } ARG(number_of_rows_, 1); { arg2 = (signed)YPiu(number_of_rows_); } gtk_cell_renderer_text_set_fixed_height_from_font(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUbuttonUnew,"samurui/gtk","gtk_check_button_new"); FUNFOR(YsamuruiSgtkYgtkUcheckUbuttonUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUbuttonUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_check_button_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUlabel,"samurui/gtk","gtk_check_button_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_check_button_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUmnemonic,"samurui/gtk","gtk_check_button_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUmnemonic) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_check_button_new_with_mnemonic(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkUcheckUbuttonUgetUprops,"samurui/gtk","_gtk_check_button_get_props"); FUNFOR(YsamuruiSgtkYUgtkUcheckUbuttonUgetUprops); FUNCODEDEF(YsamuruiSgtkYUgtkUcheckUbuttonUgetUprops) { P check_button_, indicator_size_, indicator_spacing_; GtkCheckButton *arg1 ; gint *arg2 ; gint *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(check_button_, 0); { arg1 = (GtkCheckButton *)YPlu(check_button_); } ARG(indicator_size_, 1); { arg2 = (gint *)YPlu(indicator_size_); } ARG(indicator_spacing_, 2); { arg3 = (gint *)YPlu(indicator_spacing_); } _gtk_check_button_get_props(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUnew,"samurui/gtk","gtk_check_menu_item_new"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_check_menu_item_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUlabel,"samurui/gtk","gtk_check_menu_item_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_check_menu_item_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUmnemonic,"samurui/gtk","gtk_check_menu_item_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUmnemonic) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_check_menu_item_new_with_mnemonic(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUactive,"samurui/gtk","gtk_check_menu_item_set_active"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUactive); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUactive) { P check_menu_item_, is_active_; GtkCheckMenuItem *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(check_menu_item_, 0); { arg1 = (GtkCheckMenuItem *)YPlu(check_menu_item_); } ARG(is_active_, 1); { arg2 = (signed)YPiu(is_active_); } gtk_check_menu_item_set_active(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUactive,"samurui/gtk","gtk_check_menu_item_get_active"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUactive); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUactive) { P check_menu_item_; GtkCheckMenuItem *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(check_menu_item_, 0); { arg1 = (GtkCheckMenuItem *)YPlu(check_menu_item_); } result = (gboolean )gtk_check_menu_item_get_active(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUtoggled,"samurui/gtk","gtk_check_menu_item_toggled"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUtoggled); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUtoggled) { P check_menu_item_; GtkCheckMenuItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(check_menu_item_, 0); { arg1 = (GtkCheckMenuItem *)YPlu(check_menu_item_); } gtk_check_menu_item_toggled(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUinconsistent,"samurui/gtk","gtk_check_menu_item_set_inconsistent"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUinconsistent); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUinconsistent) { P check_menu_item_, setting_; GtkCheckMenuItem *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(check_menu_item_, 0); { arg1 = (GtkCheckMenuItem *)YPlu(check_menu_item_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_check_menu_item_set_inconsistent(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUinconsistent,"samurui/gtk","gtk_check_menu_item_get_inconsistent"); FUNFOR(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUinconsistent); FUNCODEDEF(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUinconsistent) { P check_menu_item_; GtkCheckMenuItem *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(check_menu_item_, 0); { arg1 = (GtkCheckMenuItem *)YPlu(check_menu_item_); } result = (gboolean )gtk_check_menu_item_get_inconsistent(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUnew,"samurui/gtk","gtk_clist_new"); FUNFOR(YsamuruiSgtkYgtkUclistUnew); FUNCODEDEF(YsamuruiSgtkYgtkUclistUnew) { P columns_; gint arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(columns_, 0); { arg1 = (signed)YPiu(columns_); } result = (GtkWidget *)gtk_clist_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUnewUwithUtitles,"samurui/gtk","gtk_clist_new_with_titles"); FUNFOR(YsamuruiSgtkYgtkUclistUnewUwithUtitles); FUNCODEDEF(YsamuruiSgtkYgtkUclistUnewUwithUtitles) { P columns_, titles_; gint arg1 ; gchar **arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(columns_, 0); { arg1 = (signed)YPiu(columns_); } ARG(titles_, 1); { int i, len; len = (int)YPtlen(titles_); arg2 = (char **)malloc((len + 1) * sizeof(char *)); for(i=0; i < len; i++) { arg2[i] = (char *)YPsu(YPtelt(titles_, i)); } arg2[i] = NULL; } result = (GtkWidget *)gtk_clist_new_with_titles(arg1,arg2); { retval = (P)YPlb((P)result); } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUhadjustment,"samurui/gtk","gtk_clist_set_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUhadjustment) { P clist_, adjustment_; GtkCList *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_clist_set_hadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUvadjustment,"samurui/gtk","gtk_clist_set_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUvadjustment) { P clist_, adjustment_; GtkCList *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_clist_set_vadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUhadjustment,"samurui/gtk","gtk_clist_get_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUhadjustment) { P clist_; GtkCList *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } result = (GtkAdjustment *)gtk_clist_get_hadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUvadjustment,"samurui/gtk","gtk_clist_get_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUvadjustment) { P clist_; GtkCList *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } result = (GtkAdjustment *)gtk_clist_get_vadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUshadowUtype,"samurui/gtk","gtk_clist_set_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUshadowUtype) { P clist_, type_; GtkCList *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_clist_set_shadow_type(arg1,(GtkShadowType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUselectionUmode,"samurui/gtk","gtk_clist_set_selection_mode"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUselectionUmode); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUselectionUmode) { P clist_, mode_; GtkCList *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } gtk_clist_set_selection_mode(arg1,(GtkSelectionMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUreorderable,"samurui/gtk","gtk_clist_set_reorderable"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUreorderable); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUreorderable) { P clist_, reorderable_; GtkCList *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(reorderable_, 1); { arg2 = (signed)YPiu(reorderable_); } gtk_clist_set_reorderable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUuseUdragUicons,"samurui/gtk","gtk_clist_set_use_drag_icons"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUuseUdragUicons); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUuseUdragUicons) { P clist_, use_icons_; GtkCList *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(use_icons_, 1); { arg2 = (signed)YPiu(use_icons_); } gtk_clist_set_use_drag_icons(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUbuttonUactions,"samurui/gtk","gtk_clist_set_button_actions"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUbuttonUactions); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUbuttonUactions) { P clist_, button_, button_actions_; GtkCList *arg1 ; guint arg2 ; guint8 arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(button_, 1); { arg2 = (unsigned)YPiu(button_); } ARG(button_actions_, 2); { arg3 = (unsigned char)YPiu(button_actions_); } gtk_clist_set_button_actions(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUfreeze,"samurui/gtk","gtk_clist_freeze"); FUNFOR(YsamuruiSgtkYgtkUclistUfreeze); FUNCODEDEF(YsamuruiSgtkYgtkUclistUfreeze) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_freeze(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUthaw,"samurui/gtk","gtk_clist_thaw"); FUNFOR(YsamuruiSgtkYgtkUclistUthaw); FUNCODEDEF(YsamuruiSgtkYgtkUclistUthaw) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_thaw(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnUtitlesUshow,"samurui/gtk","gtk_clist_column_titles_show"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnUtitlesUshow); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUshow) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_column_titles_show(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnUtitlesUhide,"samurui/gtk","gtk_clist_column_titles_hide"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnUtitlesUhide); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUhide) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_column_titles_hide(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnUtitleUactive,"samurui/gtk","gtk_clist_column_title_active"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnUtitleUactive); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnUtitleUactive) { P clist_, column_; GtkCList *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } gtk_clist_column_title_active(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnUtitleUpassive,"samurui/gtk","gtk_clist_column_title_passive"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnUtitleUpassive); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnUtitleUpassive) { P clist_, column_; GtkCList *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } gtk_clist_column_title_passive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnUtitlesUactive,"samurui/gtk","gtk_clist_column_titles_active"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnUtitlesUactive); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUactive) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_column_titles_active(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnUtitlesUpassive,"samurui/gtk","gtk_clist_column_titles_passive"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnUtitlesUpassive); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUpassive) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_column_titles_passive(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUtitle,"samurui/gtk","gtk_clist_set_column_title"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUtitle); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUtitle) { P clist_, column_, title_; GtkCList *arg1 ; gint arg2 ; gchar *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(title_, 2); { arg3 = (char *)YPsu(title_); } gtk_clist_set_column_title(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUcolumnUtitle,"samurui/gtk","gtk_clist_get_column_title"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUcolumnUtitle); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUcolumnUtitle) { P clist_, column_; GtkCList *arg1 ; gint arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } result = (gchar *)gtk_clist_get_column_title(arg1,arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUwidget,"samurui/gtk","gtk_clist_set_column_widget"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUwidget) { P clist_, column_, widget_; GtkCList *arg1 ; gint arg2 ; GtkWidget *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(widget_, 2); { arg3 = (GtkWidget *)YPlu(widget_); } gtk_clist_set_column_widget(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUcolumnUwidget,"samurui/gtk","gtk_clist_get_column_widget"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUcolumnUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUcolumnUwidget) { P clist_, column_; GtkCList *arg1 ; gint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } result = (GtkWidget *)gtk_clist_get_column_widget(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUjustification,"samurui/gtk","gtk_clist_set_column_justification"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUjustification); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUjustification) { P clist_, column_, justification_; GtkCList *arg1 ; gint arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(justification_, 2); { arg3 = (int)YPiu(justification_); } gtk_clist_set_column_justification(arg1,arg2,(GtkJustification )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUvisibility,"samurui/gtk","gtk_clist_set_column_visibility"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUvisibility); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUvisibility) { P clist_, column_, visible_; GtkCList *arg1 ; gint arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(visible_, 2); { arg3 = (signed)YPiu(visible_); } gtk_clist_set_column_visibility(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUresizeable,"samurui/gtk","gtk_clist_set_column_resizeable"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUresizeable); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUresizeable) { P clist_, column_, resizeable_; GtkCList *arg1 ; gint arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(resizeable_, 2); { arg3 = (signed)YPiu(resizeable_); } gtk_clist_set_column_resizeable(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUautoUresize,"samurui/gtk","gtk_clist_set_column_auto_resize"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUautoUresize); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUautoUresize) { P clist_, column_, auto_resize_; GtkCList *arg1 ; gint arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(auto_resize_, 2); { arg3 = (signed)YPiu(auto_resize_); } gtk_clist_set_column_auto_resize(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUcolumnsUautosize,"samurui/gtk","gtk_clist_columns_autosize"); FUNFOR(YsamuruiSgtkYgtkUclistUcolumnsUautosize); FUNCODEDEF(YsamuruiSgtkYgtkUclistUcolumnsUautosize) { P clist_; GtkCList *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } result = (gint )gtk_clist_columns_autosize(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUoptimalUcolumnUwidth,"samurui/gtk","gtk_clist_optimal_column_width"); FUNFOR(YsamuruiSgtkYgtkUclistUoptimalUcolumnUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUclistUoptimalUcolumnUwidth) { P clist_, column_; GtkCList *arg1 ; gint arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } result = (gint )gtk_clist_optimal_column_width(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUwidth,"samurui/gtk","gtk_clist_set_column_width"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUwidth) { P clist_, column_, width_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(width_, 2); { arg3 = (signed)YPiu(width_); } gtk_clist_set_column_width(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUminUwidth,"samurui/gtk","gtk_clist_set_column_min_width"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUminUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUminUwidth) { P clist_, column_, min_width_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(min_width_, 2); { arg3 = (signed)YPiu(min_width_); } gtk_clist_set_column_min_width(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcolumnUmaxUwidth,"samurui/gtk","gtk_clist_set_column_max_width"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcolumnUmaxUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcolumnUmaxUwidth) { P clist_, column_, max_width_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } ARG(max_width_, 2); { arg3 = (signed)YPiu(max_width_); } gtk_clist_set_column_max_width(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUrowUheight,"samurui/gtk","gtk_clist_set_row_height"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUrowUheight); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUrowUheight) { P clist_, height_; GtkCList *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(height_, 1); { arg2 = (unsigned)YPiu(height_); } gtk_clist_set_row_height(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUmoveto,"samurui/gtk","gtk_clist_moveto"); FUNFOR(YsamuruiSgtkYgtkUclistUmoveto); FUNCODEDEF(YsamuruiSgtkYgtkUclistUmoveto) { P clist_, row_, column_, row_align_, col_align_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gfloat arg4 ; gfloat arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(row_align_, 3); { arg4 = (float)YPfu(row_align_); } ARG(col_align_, 4); { arg5 = (float)YPfu(col_align_); } gtk_clist_moveto(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUrowUisUvisible,"samurui/gtk","gtk_clist_row_is_visible"); FUNFOR(YsamuruiSgtkYgtkUclistUrowUisUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUclistUrowUisUvisible) { P clist_, row_; GtkCList *arg1 ; gint arg2 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } result = (int )gtk_clist_row_is_visible(arg1,arg2); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUcellUtype,"samurui/gtk","gtk_clist_get_cell_type"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUcellUtype); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUcellUtype) { P clist_, row_, column_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } result = (int )gtk_clist_get_cell_type(arg1,arg2,arg3); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUtext,"samurui/gtk","gtk_clist_set_text"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUtext) { P clist_, row_, column_, text_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gchar *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } gtk_clist_set_text(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUtext,"samurui/gtk","gtk_clist_get_text"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUtext) { P clist_, row_, column_, text_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gchar **arg4 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (gchar **)YPlu(text_); } result = (gint )gtk_clist_get_text(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUpixmap,"samurui/gtk","gtk_clist_set_pixmap"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUpixmap) { P clist_, row_, column_, pixmap_, mask_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; GdkPixmap *arg4 ; GdkBitmap *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(pixmap_, 3); { arg4 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 4); { arg5 = (GdkBitmap *)YPlu(mask_); } gtk_clist_set_pixmap(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUpixmap,"samurui/gtk","gtk_clist_get_pixmap"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUpixmap) { P clist_, row_, column_, pixmap_, mask_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; GdkPixmap **arg4 ; GdkBitmap **arg5 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(pixmap_, 3); { arg4 = (GdkPixmap **)YPlu(pixmap_); } ARG(mask_, 4); { arg5 = (GdkBitmap **)YPlu(mask_); } result = (gint )gtk_clist_get_pixmap(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUpixtext,"samurui/gtk","gtk_clist_set_pixtext"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUpixtext); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUpixtext) { P clist_, row_, column_, text_, spacing_, pixmap_, mask_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gchar *arg4 ; guint8 arg5 ; GdkPixmap *arg6 ; GdkBitmap *arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } ARG(spacing_, 4); { arg5 = (unsigned char)YPiu(spacing_); } ARG(pixmap_, 5); { arg6 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 6); { arg7 = (GdkBitmap *)YPlu(mask_); } gtk_clist_set_pixtext(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUpixtext,"samurui/gtk","gtk_clist_get_pixtext"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUpixtext); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUpixtext) { P clist_, row_, column_, text_, spacing_, pixmap_, mask_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gchar **arg4 ; guint8 *arg5 ; GdkPixmap **arg6 ; GdkBitmap **arg7 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (gchar **)YPlu(text_); } ARG(spacing_, 4); { arg5 = (guint8 *)YPlu(spacing_); } ARG(pixmap_, 5); { arg6 = (GdkPixmap **)YPlu(pixmap_); } ARG(mask_, 6); { arg7 = (GdkBitmap **)YPlu(mask_); } result = (gint )gtk_clist_get_pixtext(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUforeground,"samurui/gtk","gtk_clist_set_foreground"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUforeground); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUforeground) { P clist_, row_, color_; GtkCList *arg1 ; gint arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_clist_set_foreground(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUbackground,"samurui/gtk","gtk_clist_set_background"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUbackground); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUbackground) { P clist_, row_, color_; GtkCList *arg1 ; gint arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_clist_set_background(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcellUstyle,"samurui/gtk","gtk_clist_set_cell_style"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcellUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcellUstyle) { P clist_, row_, column_, style_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; GtkStyle *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(style_, 3); { arg4 = (GtkStyle *)YPlu(style_); } gtk_clist_set_cell_style(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUcellUstyle,"samurui/gtk","gtk_clist_get_cell_style"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUcellUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUcellUstyle) { P clist_, row_, column_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } result = (GtkStyle *)gtk_clist_get_cell_style(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUrowUstyle,"samurui/gtk","gtk_clist_set_row_style"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUrowUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUrowUstyle) { P clist_, row_, style_; GtkCList *arg1 ; gint arg2 ; GtkStyle *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(style_, 2); { arg3 = (GtkStyle *)YPlu(style_); } gtk_clist_set_row_style(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUrowUstyle,"samurui/gtk","gtk_clist_get_row_style"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUrowUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUrowUstyle) { P clist_, row_; GtkCList *arg1 ; gint arg2 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } result = (GtkStyle *)gtk_clist_get_row_style(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUshift,"samurui/gtk","gtk_clist_set_shift"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUshift); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUshift) { P clist_, row_, column_, vertical_, horizontal_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(vertical_, 3); { arg4 = (signed)YPiu(vertical_); } ARG(horizontal_, 4); { arg5 = (signed)YPiu(horizontal_); } gtk_clist_set_shift(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUselectable,"samurui/gtk","gtk_clist_set_selectable"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUselectable); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUselectable) { P clist_, row_, selectable_; GtkCList *arg1 ; gint arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(selectable_, 2); { arg3 = (signed)YPiu(selectable_); } gtk_clist_set_selectable(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUselectable,"samurui/gtk","gtk_clist_get_selectable"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUselectable); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUselectable) { P clist_, row_; GtkCList *arg1 ; gint arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } result = (gboolean )gtk_clist_get_selectable(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUprepend,"samurui/gtk","gtk_clist_prepend"); FUNFOR(YsamuruiSgtkYgtkUclistUprepend); FUNCODEDEF(YsamuruiSgtkYgtkUclistUprepend) { P clist_, text_; GtkCList *arg1 ; gchar **arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(text_, 1); { int i, len; len = (int)YPtlen(text_); arg2 = (char **)malloc((len + 1) * sizeof(char *)); for(i=0; i < len; i++) { arg2[i] = (char *)YPsu(YPtelt(text_, i)); } arg2[i] = NULL; } result = (gint )gtk_clist_prepend(arg1,arg2); { retval = (P)YPib((P)((int)result)); } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUappend,"samurui/gtk","gtk_clist_append"); FUNFOR(YsamuruiSgtkYgtkUclistUappend); FUNCODEDEF(YsamuruiSgtkYgtkUclistUappend) { P clist_, text_; GtkCList *arg1 ; gchar **arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(text_, 1); { int i, len; len = (int)YPtlen(text_); arg2 = (char **)malloc((len + 1) * sizeof(char *)); for(i=0; i < len; i++) { arg2[i] = (char *)YPsu(YPtelt(text_, i)); } arg2[i] = NULL; } result = (gint )gtk_clist_append(arg1,arg2); { retval = (P)YPib((P)((int)result)); } { if(arg2) free(arg2); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUinsert,"samurui/gtk","gtk_clist_insert"); FUNFOR(YsamuruiSgtkYgtkUclistUinsert); FUNCODEDEF(YsamuruiSgtkYgtkUclistUinsert) { P clist_, row_, text_; GtkCList *arg1 ; gint arg2 ; gchar **arg3 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(text_, 2); { int i, len; len = (int)YPtlen(text_); arg3 = (char **)malloc((len + 1) * sizeof(char *)); for(i=0; i < len; i++) { arg3[i] = (char *)YPsu(YPtelt(text_, i)); } arg3[i] = NULL; } result = (gint )gtk_clist_insert(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUremove,"samurui/gtk","gtk_clist_remove"); FUNFOR(YsamuruiSgtkYgtkUclistUremove); FUNCODEDEF(YsamuruiSgtkYgtkUclistUremove) { P clist_, row_; GtkCList *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } gtk_clist_remove(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUrowUdata,"samurui/gtk","gtk_clist_set_row_data"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUrowUdata); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUrowUdata) { P clist_, row_, data_; GtkCList *arg1 ; gint arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gtk_clist_set_row_data(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUrowUdataUfull,"samurui/gtk","gtk_clist_set_row_data_full"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUrowUdataUfull); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUrowUdataUfull) { P clist_, row_, data_, destroy_; GtkCList *arg1 ; gint arg2 ; gpointer arg3 ; GtkDestroyNotify arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(destroy_, 3); { arg4 = (GtkDestroyNotify )YPlu(destroy_); } gtk_clist_set_row_data_full(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUrowUdata,"samurui/gtk","gtk_clist_get_row_data"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUrowUdata); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUrowUdata) { P clist_, row_; GtkCList *arg1 ; gint arg2 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } result = (gpointer )gtk_clist_get_row_data(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUfindUrowUfromUdata,"samurui/gtk","gtk_clist_find_row_from_data"); FUNFOR(YsamuruiSgtkYgtkUclistUfindUrowUfromUdata); FUNCODEDEF(YsamuruiSgtkYgtkUclistUfindUrowUfromUdata) { P clist_, data_; GtkCList *arg1 ; gpointer arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } result = (gint )gtk_clist_find_row_from_data(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUselectUrow,"samurui/gtk","gtk_clist_select_row"); FUNFOR(YsamuruiSgtkYgtkUclistUselectUrow); FUNCODEDEF(YsamuruiSgtkYgtkUclistUselectUrow) { P clist_, row_, column_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } gtk_clist_select_row(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUunselectUrow,"samurui/gtk","gtk_clist_unselect_row"); FUNFOR(YsamuruiSgtkYgtkUclistUunselectUrow); FUNCODEDEF(YsamuruiSgtkYgtkUclistUunselectUrow) { P clist_, row_, column_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row_, 1); { arg2 = (signed)YPiu(row_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } gtk_clist_unselect_row(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUundoUselection,"samurui/gtk","gtk_clist_undo_selection"); FUNFOR(YsamuruiSgtkYgtkUclistUundoUselection); FUNCODEDEF(YsamuruiSgtkYgtkUclistUundoUselection) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_undo_selection(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUclear,"samurui/gtk","gtk_clist_clear"); FUNFOR(YsamuruiSgtkYgtkUclistUclear); FUNCODEDEF(YsamuruiSgtkYgtkUclistUclear) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_clear(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUgetUselectionUinfo,"samurui/gtk","gtk_clist_get_selection_info"); FUNFOR(YsamuruiSgtkYgtkUclistUgetUselectionUinfo); FUNCODEDEF(YsamuruiSgtkYgtkUclistUgetUselectionUinfo) { P clist_, x_, y_, row_, column_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; gint *arg4 ; gint *arg5 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(row_, 3); { arg4 = (gint *)YPlu(row_); } ARG(column_, 4); { arg5 = (gint *)YPlu(column_); } result = (gint )gtk_clist_get_selection_info(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUselectUall,"samurui/gtk","gtk_clist_select_all"); FUNFOR(YsamuruiSgtkYgtkUclistUselectUall); FUNCODEDEF(YsamuruiSgtkYgtkUclistUselectUall) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_select_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUunselectUall,"samurui/gtk","gtk_clist_unselect_all"); FUNFOR(YsamuruiSgtkYgtkUclistUunselectUall); FUNCODEDEF(YsamuruiSgtkYgtkUclistUunselectUall) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_unselect_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUswapUrows,"samurui/gtk","gtk_clist_swap_rows"); FUNFOR(YsamuruiSgtkYgtkUclistUswapUrows); FUNCODEDEF(YsamuruiSgtkYgtkUclistUswapUrows) { P clist_, row1_, row2_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(row1_, 1); { arg2 = (signed)YPiu(row1_); } ARG(row2_, 2); { arg3 = (signed)YPiu(row2_); } gtk_clist_swap_rows(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUrowUmove,"samurui/gtk","gtk_clist_row_move"); FUNFOR(YsamuruiSgtkYgtkUclistUrowUmove); FUNCODEDEF(YsamuruiSgtkYgtkUclistUrowUmove) { P clist_, source_row_, dest_row_; GtkCList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(source_row_, 1); { arg2 = (signed)YPiu(source_row_); } ARG(dest_row_, 2); { arg3 = (signed)YPiu(dest_row_); } gtk_clist_row_move(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUcompareUfunc,"samurui/gtk","gtk_clist_set_compare_func"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUcompareUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUcompareUfunc) { P clist_, cmp_func_; GtkCList *arg1 ; GtkCListCompareFunc arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(cmp_func_, 1); { arg2 = (GtkCListCompareFunc )YPlu(cmp_func_); } gtk_clist_set_compare_func(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUsortUcolumn,"samurui/gtk","gtk_clist_set_sort_column"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUsortUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUsortUcolumn) { P clist_, column_; GtkCList *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } gtk_clist_set_sort_column(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUsortUtype,"samurui/gtk","gtk_clist_set_sort_type"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUsortUtype); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUsortUtype) { P clist_, sort_type_; GtkCList *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(sort_type_, 1); { arg2 = (int)YPiu(sort_type_); } gtk_clist_set_sort_type(arg1,(GtkSortType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsort,"samurui/gtk","gtk_clist_sort"); FUNFOR(YsamuruiSgtkYgtkUclistUsort); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsort) { P clist_; GtkCList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } gtk_clist_sort(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUclistUsetUautoUsort,"samurui/gtk","gtk_clist_set_auto_sort"); FUNFOR(YsamuruiSgtkYgtkUclistUsetUautoUsort); FUNCODEDEF(YsamuruiSgtkYgtkUclistUsetUautoUsort) { P clist_, auto_sort_; GtkCList *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(clist_, 0); { arg1 = (GtkCList *)YPlu(clist_); } ARG(auto_sort_, 1); { arg2 = (signed)YPiu(auto_sort_); } gtk_clist_set_auto_sort(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUnew,"samurui/gtk","gtk_color_selection_new"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_color_selection_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUopacityUcontrol,"samurui/gtk","gtk_color_selection_get_has_opacity_control"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUopacityUcontrol); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUopacityUcontrol) { P colorsel_; GtkColorSelection *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } result = (gboolean )gtk_color_selection_get_has_opacity_control(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUopacityUcontrol,"samurui/gtk","gtk_color_selection_set_has_opacity_control"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUopacityUcontrol); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUopacityUcontrol) { P colorsel_, has_opacity_; GtkColorSelection *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(has_opacity_, 1); { arg2 = (signed)YPiu(has_opacity_); } gtk_color_selection_set_has_opacity_control(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUpalette,"samurui/gtk","gtk_color_selection_get_has_palette"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUpalette); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUpalette) { P colorsel_; GtkColorSelection *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } result = (gboolean )gtk_color_selection_get_has_palette(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUpalette,"samurui/gtk","gtk_color_selection_set_has_palette"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUpalette); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUpalette) { P colorsel_, has_palette_; GtkColorSelection *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(has_palette_, 1); { arg2 = (signed)YPiu(has_palette_); } gtk_color_selection_set_has_palette(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUcolor,"samurui/gtk","gtk_color_selection_set_current_color"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUcolor); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUcolor) { P colorsel_, color_; GtkColorSelection *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gtk_color_selection_set_current_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUalpha,"samurui/gtk","gtk_color_selection_set_current_alpha"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUalpha); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUalpha) { P colorsel_, alpha_; GtkColorSelection *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(alpha_, 1); { arg2 = (unsigned short)YPiu(alpha_); } gtk_color_selection_set_current_alpha(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUcolor,"samurui/gtk","gtk_color_selection_get_current_color"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUcolor); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUcolor) { P colorsel_, color_; GtkColorSelection *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gtk_color_selection_get_current_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUalpha,"samurui/gtk","gtk_color_selection_get_current_alpha"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUalpha); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUalpha) { P colorsel_; GtkColorSelection *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } result = (guint16 )gtk_color_selection_get_current_alpha(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUcolor,"samurui/gtk","gtk_color_selection_set_previous_color"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUcolor); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUcolor) { P colorsel_, color_; GtkColorSelection *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gtk_color_selection_set_previous_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUalpha,"samurui/gtk","gtk_color_selection_set_previous_alpha"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUalpha); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUalpha) { P colorsel_, alpha_; GtkColorSelection *arg1 ; guint16 arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(alpha_, 1); { arg2 = (unsigned short)YPiu(alpha_); } gtk_color_selection_set_previous_alpha(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUcolor,"samurui/gtk","gtk_color_selection_get_previous_color"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUcolor); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUcolor) { P colorsel_, color_; GtkColorSelection *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } ARG(color_, 1); { arg2 = (GdkColor *)YPlu(color_); } gtk_color_selection_get_previous_color(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUalpha,"samurui/gtk","gtk_color_selection_get_previous_alpha"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUalpha); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUalpha) { P colorsel_; GtkColorSelection *arg1 ; guint16 result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } result = (guint16 )gtk_color_selection_get_previous_alpha(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUisUadjusting,"samurui/gtk","gtk_color_selection_is_adjusting"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUisUadjusting); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUisUadjusting) { P colorsel_; GtkColorSelection *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colorsel_, 0); { arg1 = (GtkColorSelection *)YPlu(colorsel_); } result = (gboolean )gtk_color_selection_is_adjusting(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUpaletteUfromUstring,"samurui/gtk","gtk_color_selection_palette_from_string"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUpaletteUfromUstring); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUpaletteUfromUstring) { P str_, colors_, n_colors_; gchar *arg1 ; GdkColor **arg2 ; gint *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(str_, 0); { arg1 = (char *)YPsu(str_); } ARG(colors_, 1); { arg2 = (GdkColor **)YPlu(colors_); } ARG(n_colors_, 2); { arg3 = (gint *)YPlu(n_colors_); } result = (gboolean )gtk_color_selection_palette_from_string(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUpaletteUtoUstring,"samurui/gtk","gtk_color_selection_palette_to_string"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUpaletteUtoUstring); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUpaletteUtoUstring) { P colors_, n_colors_; GdkColor *arg1 ; gint arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(colors_, 0); { arg1 = (GdkColor *)YPlu(colors_); } ARG(n_colors_, 1); { arg2 = (signed)YPiu(n_colors_); } result = (gchar *)gtk_color_selection_palette_to_string(arg1,arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUsetUchangeUpaletteUhook,"samurui/gtk","gtk_color_selection_set_change_palette_hook"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUsetUchangeUpaletteUhook); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUsetUchangeUpaletteUhook) { P func_; GtkColorSelectionChangePaletteFunc arg1 ; GtkColorSelectionChangePaletteFunc result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(func_, 0); { arg1 = (GtkColorSelectionChangePaletteFunc )YPlu(func_); } result = (GtkColorSelectionChangePaletteFunc )gtk_color_selection_set_change_palette_hook(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcolorUselectionUdialogUnew,"samurui/gtk","gtk_color_selection_dialog_new"); FUNFOR(YsamuruiSgtkYgtkUcolorUselectionUdialogUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcolorUselectionUdialogUnew) { P title_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(title_, 0); { arg1 = (char *)YPsu(title_); } result = (GtkWidget *)gtk_color_selection_dialog_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUnew,"samurui/gtk","gtk_combo_new"); FUNFOR(YsamuruiSgtkYgtkUcomboUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_combo_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUsetUvalueUinUlist,"samurui/gtk","gtk_combo_set_value_in_list"); FUNFOR(YsamuruiSgtkYgtkUcomboUsetUvalueUinUlist); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUsetUvalueUinUlist) { P combo_, val_, ok_if_empty_; GtkCombo *arg1 ; gboolean arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } ARG(val_, 1); { arg2 = (signed)YPiu(val_); } ARG(ok_if_empty_, 2); { arg3 = (signed)YPiu(ok_if_empty_); } gtk_combo_set_value_in_list(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUsetUuseUarrows,"samurui/gtk","gtk_combo_set_use_arrows"); FUNFOR(YsamuruiSgtkYgtkUcomboUsetUuseUarrows); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUsetUuseUarrows) { P combo_, val_; GtkCombo *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } ARG(val_, 1); { arg2 = (signed)YPiu(val_); } gtk_combo_set_use_arrows(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUsetUuseUarrowsUalways,"samurui/gtk","gtk_combo_set_use_arrows_always"); FUNFOR(YsamuruiSgtkYgtkUcomboUsetUuseUarrowsUalways); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUsetUuseUarrowsUalways) { P combo_, val_; GtkCombo *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } ARG(val_, 1); { arg2 = (signed)YPiu(val_); } gtk_combo_set_use_arrows_always(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUsetUcaseUsensitive,"samurui/gtk","gtk_combo_set_case_sensitive"); FUNFOR(YsamuruiSgtkYgtkUcomboUsetUcaseUsensitive); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUsetUcaseUsensitive) { P combo_, val_; GtkCombo *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } ARG(val_, 1); { arg2 = (signed)YPiu(val_); } gtk_combo_set_case_sensitive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUsetUitemUstring,"samurui/gtk","gtk_combo_set_item_string"); FUNFOR(YsamuruiSgtkYgtkUcomboUsetUitemUstring); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUsetUitemUstring) { P combo_, item_, item_value_; GtkCombo *arg1 ; GtkItem *arg2 ; gchar *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } ARG(item_, 1); { arg2 = (GtkItem *)YPlu(item_); } ARG(item_value_, 2); { arg3 = (char *)YPsu(item_value_); } gtk_combo_set_item_string(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUsetUpopdownUstrings,"samurui/gtk","gtk_combo_set_popdown_strings"); FUNFOR(YsamuruiSgtkYgtkUcomboUsetUpopdownUstrings); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUsetUpopdownUstrings) { P combo_, strings_; GtkCombo *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } ARG(strings_, 1); { arg2 = (GList *)YPlu(strings_); } gtk_combo_set_popdown_strings(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcomboUdisableUactivate,"samurui/gtk","gtk_combo_disable_activate"); FUNFOR(YsamuruiSgtkYgtkUcomboUdisableUactivate); FUNCODEDEF(YsamuruiSgtkYgtkUcomboUdisableUactivate) { P combo_; GtkCombo *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(combo_, 0); { arg1 = (GtkCombo *)YPlu(combo_); } gtk_combo_disable_activate(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUgetUtype,"samurui/gtk","gtk_container_get_type"); FUNFOR(YsamuruiSgtkYgtkUcontainerUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_container_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUsetUborderUwidth,"samurui/gtk","gtk_container_set_border_width"); FUNFOR(YsamuruiSgtkYgtkUcontainerUsetUborderUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUsetUborderUwidth) { P container_, border_width_; GtkContainer *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } ARG(border_width_, 1); { arg2 = (unsigned)YPiu(border_width_); } gtk_container_set_border_width(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUgetUborderUwidth,"samurui/gtk","gtk_container_get_border_width"); FUNFOR(YsamuruiSgtkYgtkUcontainerUgetUborderUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUgetUborderUwidth) { P container_; GtkContainer *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } result = (guint )gtk_container_get_border_width(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUadd,"samurui/gtk","gtk_container_add"); FUNFOR(YsamuruiSgtkYgtkUcontainerUadd); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUadd) { P container_, widget_; GtkContainer *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } gtk_container_add(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUremove,"samurui/gtk","gtk_container_remove"); FUNFOR(YsamuruiSgtkYgtkUcontainerUremove); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUremove) { P container_, widget_; GtkContainer *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } gtk_container_remove(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUsetUresizeUmode,"samurui/gtk","gtk_container_set_resize_mode"); FUNFOR(YsamuruiSgtkYgtkUcontainerUsetUresizeUmode); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUsetUresizeUmode) { P container_, resize_mode_; GtkContainer *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } ARG(resize_mode_, 1); { arg2 = (int)YPiu(resize_mode_); } gtk_container_set_resize_mode(arg1,(GtkResizeMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUgetUresizeUmode,"samurui/gtk","gtk_container_get_resize_mode"); FUNFOR(YsamuruiSgtkYgtkUcontainerUgetUresizeUmode); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUgetUresizeUmode) { P container_; GtkContainer *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } result = (int )gtk_container_get_resize_mode(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUcheckUresize,"samurui/gtk","gtk_container_check_resize"); FUNFOR(YsamuruiSgtkYgtkUcontainerUcheckUresize); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUcheckUresize) { P container_; GtkContainer *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } gtk_container_check_resize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcontainerUforeach,"samurui/gtk","gtk_container_foreach"); FUNFOR(YsamuruiSgtkYgtkUcontainerUforeach); FUNCODEDEF(YsamuruiSgtkYgtkUcontainerUforeach) { P container_, callback_, callback_data_; GtkContainer *arg1 ; GtkCallback arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_, 0); { arg1 = (GtkContainer *)YPlu(container_); } ARG(callback_, 1); { arg2 = (GtkCallback )YPlu(callback_); } ARG(callback_data_, 2); { arg3 = (gpointer )YPlu(callback_data_); } gtk_container_foreach(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnewUwithUtitles,"samurui/gtk","gtk_ctree_new_with_titles"); FUNFOR(YsamuruiSgtkYgtkUctreeUnewUwithUtitles); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnewUwithUtitles) { P columns_, tree_column_, titles_; gint arg1 ; gint arg2 ; gchar **arg3 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(columns_, 0); { arg1 = (signed)YPiu(columns_); } ARG(tree_column_, 1); { arg2 = (signed)YPiu(tree_column_); } ARG(titles_, 2); { int i, len; len = (int)YPtlen(titles_); arg3 = (char **)malloc((len + 1) * sizeof(char *)); for(i=0; i < len; i++) { arg3[i] = (char *)YPsu(YPtelt(titles_, i)); } arg3[i] = NULL; } result = (GtkWidget *)gtk_ctree_new_with_titles(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnew,"samurui/gtk","gtk_ctree_new"); FUNFOR(YsamuruiSgtkYgtkUctreeUnew); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnew) { P columns_, tree_column_; gint arg1 ; gint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(columns_, 0); { arg1 = (signed)YPiu(columns_); } ARG(tree_column_, 1); { arg2 = (signed)YPiu(tree_column_); } result = (GtkWidget *)gtk_ctree_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUinsertUnode,"samurui/gtk","gtk_ctree_insert_node"); FUNFOR(YsamuruiSgtkYgtkUctreeUinsertUnode); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUinsertUnode) { P ctree_, parent_, sibling_, text_, spacing_, pixmap_closed_, mask_closed_, pixmap_opened_, mask_opened_, is_leaf_, expanded_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeNode *arg3 ; gchar **arg4 ; guint8 arg5 ; GdkPixmap *arg6 ; GdkBitmap *arg7 ; GdkPixmap *arg8 ; GdkBitmap *arg9 ; gboolean arg10 ; gboolean arg11 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(parent_, 1); { arg2 = (GtkCTreeNode *)YPlu(parent_); } ARG(sibling_, 2); { arg3 = (GtkCTreeNode *)YPlu(sibling_); } ARG(text_, 3); { int i, len; len = (int)YPtlen(text_); arg4 = (char **)malloc((len + 1) * sizeof(char *)); for(i=0; i < len; i++) { arg4[i] = (char *)YPsu(YPtelt(text_, i)); } arg4[i] = NULL; } ARG(spacing_, 4); { arg5 = (unsigned char)YPiu(spacing_); } ARG(pixmap_closed_, 5); { arg6 = (GdkPixmap *)YPlu(pixmap_closed_); } ARG(mask_closed_, 6); { arg7 = (GdkBitmap *)YPlu(mask_closed_); } ARG(pixmap_opened_, 7); { arg8 = (GdkPixmap *)YPlu(pixmap_opened_); } ARG(mask_opened_, 8); { arg9 = (GdkBitmap *)YPlu(mask_opened_); } ARG(is_leaf_, 9); { arg10 = (signed)YPiu(is_leaf_); } ARG(expanded_, 10); { arg11 = (signed)YPiu(expanded_); } result = (GtkCTreeNode *)gtk_ctree_insert_node(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { retval = (P)YPlb((P)result); } { if(arg4) free(arg4); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUremoveUnode,"samurui/gtk","gtk_ctree_remove_node"); FUNFOR(YsamuruiSgtkYgtkUctreeUremoveUnode); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUremoveUnode) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_remove_node(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUinsertUgnode,"samurui/gtk","gtk_ctree_insert_gnode"); FUNFOR(YsamuruiSgtkYgtkUctreeUinsertUgnode); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUinsertUgnode) { P ctree_, parent_, sibling_, gnode_, func_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeNode *arg3 ; GNode *arg4 ; GtkCTreeGNodeFunc arg5 ; gpointer arg6 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(parent_, 1); { arg2 = (GtkCTreeNode *)YPlu(parent_); } ARG(sibling_, 2); { arg3 = (GtkCTreeNode *)YPlu(sibling_); } ARG(gnode_, 3); { arg4 = (GNode *)YPlu(gnode_); } ARG(func_, 4); { arg5 = (GtkCTreeGNodeFunc )YPlu(func_); } ARG(data_, 5); { arg6 = (gpointer )YPlu(data_); } result = (GtkCTreeNode *)gtk_ctree_insert_gnode(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUexportUtoUgnode,"samurui/gtk","gtk_ctree_export_to_gnode"); FUNFOR(YsamuruiSgtkYgtkUctreeUexportUtoUgnode); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUexportUtoUgnode) { P ctree_, parent_, sibling_, node_, func_, data_; GtkCTree *arg1 ; GNode *arg2 ; GNode *arg3 ; GtkCTreeNode *arg4 ; GtkCTreeGNodeFunc arg5 ; gpointer arg6 ; GNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(parent_, 1); { arg2 = (GNode *)YPlu(parent_); } ARG(sibling_, 2); { arg3 = (GNode *)YPlu(sibling_); } ARG(node_, 3); { arg4 = (GtkCTreeNode *)YPlu(node_); } ARG(func_, 4); { arg5 = (GtkCTreeGNodeFunc )YPlu(func_); } ARG(data_, 5); { arg6 = (gpointer )YPlu(data_); } result = (GNode *)gtk_ctree_export_to_gnode(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUpostUrecursive,"samurui/gtk","gtk_ctree_post_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUpostUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUpostUrecursive) { P ctree_, node_, func_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeFunc arg3 ; gpointer arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(func_, 2); { arg3 = (GtkCTreeFunc )YPlu(func_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } gtk_ctree_post_recursive(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUpostUrecursiveUtoUdepth,"samurui/gtk","gtk_ctree_post_recursive_to_depth"); FUNFOR(YsamuruiSgtkYgtkUctreeUpostUrecursiveUtoUdepth); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUpostUrecursiveUtoUdepth) { P ctree_, node_, depth_, func_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; GtkCTreeFunc arg4 ; gpointer arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(depth_, 2); { arg3 = (signed)YPiu(depth_); } ARG(func_, 3); { arg4 = (GtkCTreeFunc )YPlu(func_); } ARG(data_, 4); { arg5 = (gpointer )YPlu(data_); } gtk_ctree_post_recursive_to_depth(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUpreUrecursive,"samurui/gtk","gtk_ctree_pre_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUpreUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUpreUrecursive) { P ctree_, node_, func_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeFunc arg3 ; gpointer arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(func_, 2); { arg3 = (GtkCTreeFunc )YPlu(func_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } gtk_ctree_pre_recursive(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUpreUrecursiveUtoUdepth,"samurui/gtk","gtk_ctree_pre_recursive_to_depth"); FUNFOR(YsamuruiSgtkYgtkUctreeUpreUrecursiveUtoUdepth); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUpreUrecursiveUtoUdepth) { P ctree_, node_, depth_, func_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; GtkCTreeFunc arg4 ; gpointer arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(depth_, 2); { arg3 = (signed)YPiu(depth_); } ARG(func_, 3); { arg4 = (GtkCTreeFunc )YPlu(func_); } ARG(data_, 4); { arg5 = (gpointer )YPlu(data_); } gtk_ctree_pre_recursive_to_depth(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUisUviewable,"samurui/gtk","gtk_ctree_is_viewable"); FUNFOR(YsamuruiSgtkYgtkUctreeUisUviewable); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUisUviewable) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } result = (gboolean )gtk_ctree_is_viewable(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUlast,"samurui/gtk","gtk_ctree_last"); FUNFOR(YsamuruiSgtkYgtkUctreeUlast); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUlast) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } result = (GtkCTreeNode *)gtk_ctree_last(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUfindUnodeUptr,"samurui/gtk","gtk_ctree_find_node_ptr"); FUNFOR(YsamuruiSgtkYgtkUctreeUfindUnodeUptr); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUfindUnodeUptr) { P ctree_, ctree_row_; GtkCTree *arg1 ; GtkCTreeRow *arg2 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(ctree_row_, 1); { arg2 = (GtkCTreeRow *)YPlu(ctree_row_); } result = (GtkCTreeNode *)gtk_ctree_find_node_ptr(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUnth,"samurui/gtk","gtk_ctree_node_nth"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUnth); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUnth) { P ctree_, row_; GtkCTree *arg1 ; guint arg2 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(row_, 1); { arg2 = (unsigned)YPiu(row_); } result = (GtkCTreeNode *)gtk_ctree_node_nth(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUfind,"samurui/gtk","gtk_ctree_find"); FUNFOR(YsamuruiSgtkYgtkUctreeUfind); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUfind) { P ctree_, node_, child_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeNode *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(child_, 2); { arg3 = (GtkCTreeNode *)YPlu(child_); } result = (gboolean )gtk_ctree_find(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUisUancestor,"samurui/gtk","gtk_ctree_is_ancestor"); FUNFOR(YsamuruiSgtkYgtkUctreeUisUancestor); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUisUancestor) { P ctree_, node_, child_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeNode *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(child_, 2); { arg3 = (GtkCTreeNode *)YPlu(child_); } result = (gboolean )gtk_ctree_is_ancestor(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdata,"samurui/gtk","gtk_ctree_find_by_row_data"); FUNFOR(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdata); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdata) { P ctree_, node_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer arg3 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } result = (GtkCTreeNode *)gtk_ctree_find_by_row_data(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdata,"samurui/gtk","gtk_ctree_find_all_by_row_data"); FUNFOR(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdata); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdata) { P ctree_, node_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer arg3 ; GList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } result = (GList *)gtk_ctree_find_all_by_row_data(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdataUcustom,"samurui/gtk","gtk_ctree_find_by_row_data_custom"); FUNFOR(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdataUcustom); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdataUcustom) { P ctree_, node_, data_, func_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer arg3 ; GCompareFunc arg4 ; GtkCTreeNode *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(func_, 3); { arg4 = (GCompareFunc )YPlu(func_); } result = (GtkCTreeNode *)gtk_ctree_find_by_row_data_custom(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdataUcustom,"samurui/gtk","gtk_ctree_find_all_by_row_data_custom"); FUNFOR(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdataUcustom); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdataUcustom) { P ctree_, node_, data_, func_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer arg3 ; GCompareFunc arg4 ; GList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(func_, 3); { arg4 = (GCompareFunc )YPlu(func_); } result = (GList *)gtk_ctree_find_all_by_row_data_custom(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUisUhotUspot,"samurui/gtk","gtk_ctree_is_hot_spot"); FUNFOR(YsamuruiSgtkYgtkUctreeUisUhotUspot); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUisUhotUspot) { P ctree_, x_, y_; GtkCTree *arg1 ; gint arg2 ; gint arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } result = (gboolean )gtk_ctree_is_hot_spot(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUmove,"samurui/gtk","gtk_ctree_move"); FUNFOR(YsamuruiSgtkYgtkUctreeUmove); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUmove) { P ctree_, node_, new_parent_, new_sibling_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkCTreeNode *arg3 ; GtkCTreeNode *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(new_parent_, 2); { arg3 = (GtkCTreeNode *)YPlu(new_parent_); } ARG(new_sibling_, 3); { arg4 = (GtkCTreeNode *)YPlu(new_sibling_); } gtk_ctree_move(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUexpand,"samurui/gtk","gtk_ctree_expand"); FUNFOR(YsamuruiSgtkYgtkUctreeUexpand); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUexpand) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_expand(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUexpandUrecursive,"samurui/gtk","gtk_ctree_expand_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUexpandUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUexpandUrecursive) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_expand_recursive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUexpandUtoUdepth,"samurui/gtk","gtk_ctree_expand_to_depth"); FUNFOR(YsamuruiSgtkYgtkUctreeUexpandUtoUdepth); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUexpandUtoUdepth) { P ctree_, node_, depth_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(depth_, 2); { arg3 = (signed)YPiu(depth_); } gtk_ctree_expand_to_depth(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUcollapse,"samurui/gtk","gtk_ctree_collapse"); FUNFOR(YsamuruiSgtkYgtkUctreeUcollapse); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUcollapse) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_collapse(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUcollapseUrecursive,"samurui/gtk","gtk_ctree_collapse_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUcollapseUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUcollapseUrecursive) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_collapse_recursive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUcollapseUtoUdepth,"samurui/gtk","gtk_ctree_collapse_to_depth"); FUNFOR(YsamuruiSgtkYgtkUctreeUcollapseUtoUdepth); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUcollapseUtoUdepth) { P ctree_, node_, depth_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(depth_, 2); { arg3 = (signed)YPiu(depth_); } gtk_ctree_collapse_to_depth(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUtoggleUexpansion,"samurui/gtk","gtk_ctree_toggle_expansion"); FUNFOR(YsamuruiSgtkYgtkUctreeUtoggleUexpansion); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUtoggleUexpansion) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_toggle_expansion(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUtoggleUexpansionUrecursive,"samurui/gtk","gtk_ctree_toggle_expansion_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUtoggleUexpansionUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUtoggleUexpansionUrecursive) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_toggle_expansion_recursive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUselect,"samurui/gtk","gtk_ctree_select"); FUNFOR(YsamuruiSgtkYgtkUctreeUselect); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUselect) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_select(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUselectUrecursive,"samurui/gtk","gtk_ctree_select_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUselectUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUselectUrecursive) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_select_recursive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUunselect,"samurui/gtk","gtk_ctree_unselect"); FUNFOR(YsamuruiSgtkYgtkUctreeUunselect); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUunselect) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_unselect(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUunselectUrecursive,"samurui/gtk","gtk_ctree_unselect_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUunselectUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUunselectUrecursive) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_unselect_recursive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUrealUselectUrecursive,"samurui/gtk","gtk_ctree_real_select_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUrealUselectUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUrealUselectUrecursive) { P ctree_, node_, state_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(state_, 2); { arg3 = (signed)YPiu(state_); } gtk_ctree_real_select_recursive(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUtext,"samurui/gtk","gtk_ctree_node_set_text"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUtext) { P ctree_, node_, column_, text_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; gchar *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } gtk_ctree_node_set_text(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUpixmap,"samurui/gtk","gtk_ctree_node_set_pixmap"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUpixmap) { P ctree_, node_, column_, pixmap_, mask_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; GdkPixmap *arg4 ; GdkBitmap *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(pixmap_, 3); { arg4 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 4); { arg5 = (GdkBitmap *)YPlu(mask_); } gtk_ctree_node_set_pixmap(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUpixtext,"samurui/gtk","gtk_ctree_node_set_pixtext"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUpixtext); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUpixtext) { P ctree_, node_, column_, text_, spacing_, pixmap_, mask_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; gchar *arg4 ; guint8 arg5 ; GdkPixmap *arg6 ; GdkBitmap *arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } ARG(spacing_, 4); { arg5 = (unsigned char)YPiu(spacing_); } ARG(pixmap_, 5); { arg6 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 6); { arg7 = (GdkBitmap *)YPlu(mask_); } gtk_ctree_node_set_pixtext(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUnodeUinfo,"samurui/gtk","gtk_ctree_set_node_info"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUnodeUinfo); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUnodeUinfo) { P ctree_, node_, text_, spacing_, pixmap_closed_, mask_closed_, pixmap_opened_, mask_opened_, is_leaf_, expanded_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gchar *arg3 ; guint8 arg4 ; GdkPixmap *arg5 ; GdkBitmap *arg6 ; GdkPixmap *arg7 ; GdkBitmap *arg8 ; gboolean arg9 ; gboolean arg10 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(text_, 2); { arg3 = (char *)YPsu(text_); } ARG(spacing_, 3); { arg4 = (unsigned char)YPiu(spacing_); } ARG(pixmap_closed_, 4); { arg5 = (GdkPixmap *)YPlu(pixmap_closed_); } ARG(mask_closed_, 5); { arg6 = (GdkBitmap *)YPlu(mask_closed_); } ARG(pixmap_opened_, 6); { arg7 = (GdkPixmap *)YPlu(pixmap_opened_); } ARG(mask_opened_, 7); { arg8 = (GdkBitmap *)YPlu(mask_opened_); } ARG(is_leaf_, 8); { arg9 = (signed)YPiu(is_leaf_); } ARG(expanded_, 9); { arg10 = (signed)YPiu(expanded_); } gtk_ctree_set_node_info(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUshift,"samurui/gtk","gtk_ctree_node_set_shift"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUshift); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUshift) { P ctree_, node_, column_, vertical_, horizontal_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(vertical_, 3); { arg4 = (signed)YPiu(vertical_); } ARG(horizontal_, 4); { arg5 = (signed)YPiu(horizontal_); } gtk_ctree_node_set_shift(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUselectable,"samurui/gtk","gtk_ctree_node_set_selectable"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUselectable); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUselectable) { P ctree_, node_, selectable_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(selectable_, 2); { arg3 = (signed)YPiu(selectable_); } gtk_ctree_node_set_selectable(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUselectable,"samurui/gtk","gtk_ctree_node_get_selectable"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUselectable); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUselectable) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } result = (gboolean )gtk_ctree_node_get_selectable(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUtype,"samurui/gtk","gtk_ctree_node_get_cell_type"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUtype); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUtype) { P ctree_, node_, column_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } result = (int )gtk_ctree_node_get_cell_type(arg1,arg2,arg3); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUtext,"samurui/gtk","gtk_ctree_node_get_text"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUtext) { P ctree_, node_, column_, text_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; gchar **arg4 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (gchar **)YPlu(text_); } result = (gboolean )gtk_ctree_node_get_text(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUpixmap,"samurui/gtk","gtk_ctree_node_get_pixmap"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUpixmap) { P ctree_, node_, column_, pixmap_, mask_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; GdkPixmap **arg4 ; GdkBitmap **arg5 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(pixmap_, 3); { arg4 = (GdkPixmap **)YPlu(pixmap_); } ARG(mask_, 4); { arg5 = (GdkBitmap **)YPlu(mask_); } result = (gboolean )gtk_ctree_node_get_pixmap(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUpixtext,"samurui/gtk","gtk_ctree_node_get_pixtext"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUpixtext); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUpixtext) { P ctree_, node_, column_, text_, spacing_, pixmap_, mask_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; gchar **arg4 ; guint8 *arg5 ; GdkPixmap **arg6 ; GdkBitmap **arg7 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(text_, 3); { arg4 = (gchar **)YPlu(text_); } ARG(spacing_, 4); { arg5 = (guint8 *)YPlu(spacing_); } ARG(pixmap_, 5); { arg6 = (GdkPixmap **)YPlu(pixmap_); } ARG(mask_, 6); { arg7 = (GdkBitmap **)YPlu(mask_); } result = (gboolean )gtk_ctree_node_get_pixtext(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUgetUnodeUinfo,"samurui/gtk","gtk_ctree_get_node_info"); FUNFOR(YsamuruiSgtkYgtkUctreeUgetUnodeUinfo); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUgetUnodeUinfo) { P ctree_, node_, text_, spacing_, pixmap_closed_, mask_closed_, pixmap_opened_, mask_opened_, is_leaf_, expanded_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gchar **arg3 ; guint8 *arg4 ; GdkPixmap **arg5 ; GdkBitmap **arg6 ; GdkPixmap **arg7 ; GdkBitmap **arg8 ; gboolean *arg9 ; gboolean *arg10 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(text_, 2); { arg3 = (gchar **)YPlu(text_); } ARG(spacing_, 3); { arg4 = (guint8 *)YPlu(spacing_); } ARG(pixmap_closed_, 4); { arg5 = (GdkPixmap **)YPlu(pixmap_closed_); } ARG(mask_closed_, 5); { arg6 = (GdkBitmap **)YPlu(mask_closed_); } ARG(pixmap_opened_, 6); { arg7 = (GdkPixmap **)YPlu(pixmap_opened_); } ARG(mask_opened_, 7); { arg8 = (GdkBitmap **)YPlu(mask_opened_); } ARG(is_leaf_, 8); { arg9 = (gboolean *)YPlu(is_leaf_); } ARG(expanded_, 9); { arg10 = (gboolean *)YPlu(expanded_); } result = (gboolean )gtk_ctree_get_node_info(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUstyle,"samurui/gtk","gtk_ctree_node_set_row_style"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUstyle) { P ctree_, node_, style_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkStyle *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(style_, 2); { arg3 = (GtkStyle *)YPlu(style_); } gtk_ctree_node_set_row_style(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUstyle,"samurui/gtk","gtk_ctree_node_get_row_style"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUstyle) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } result = (GtkStyle *)gtk_ctree_node_get_row_style(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUcellUstyle,"samurui/gtk","gtk_ctree_node_set_cell_style"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUcellUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUcellUstyle) { P ctree_, node_, column_, style_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; GtkStyle *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(style_, 3); { arg4 = (GtkStyle *)YPlu(style_); } gtk_ctree_node_set_cell_style(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUstyle,"samurui/gtk","gtk_ctree_node_get_cell_style"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUstyle) { P ctree_, node_, column_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } result = (GtkStyle *)gtk_ctree_node_get_cell_style(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUforeground,"samurui/gtk","gtk_ctree_node_set_foreground"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUforeground); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUforeground) { P ctree_, node_, color_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_ctree_node_set_foreground(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUbackground,"samurui/gtk","gtk_ctree_node_set_background"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUbackground); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUbackground) { P ctree_, node_, color_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; GdkColor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(color_, 2); { arg3 = (GdkColor *)YPlu(color_); } gtk_ctree_node_set_background(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdata,"samurui/gtk","gtk_ctree_node_set_row_data"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdata); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdata) { P ctree_, node_, data_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gtk_ctree_node_set_row_data(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdataUfull,"samurui/gtk","gtk_ctree_node_set_row_data_full"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdataUfull); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdataUfull) { P ctree_, node_, data_, destroy_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer arg3 ; GtkDestroyNotify arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(destroy_, 3); { arg4 = (GtkDestroyNotify )YPlu(destroy_); } gtk_ctree_node_set_row_data_full(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUdata,"samurui/gtk","gtk_ctree_node_get_row_data"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUdata); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUdata) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } result = (gpointer )gtk_ctree_node_get_row_data(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUmoveto,"samurui/gtk","gtk_ctree_node_moveto"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUmoveto); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUmoveto) { P ctree_, node_, column_, row_align_, col_align_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; gint arg3 ; gfloat arg4 ; gfloat arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } ARG(column_, 2); { arg3 = (signed)YPiu(column_); } ARG(row_align_, 3); { arg4 = (float)YPfu(row_align_); } ARG(col_align_, 4); { arg5 = (float)YPfu(col_align_); } gtk_ctree_node_moveto(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUnodeUisUvisible,"samurui/gtk","gtk_ctree_node_is_visible"); FUNFOR(YsamuruiSgtkYgtkUctreeUnodeUisUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUnodeUisUvisible) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } result = (int )gtk_ctree_node_is_visible(arg1,arg2); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUindent,"samurui/gtk","gtk_ctree_set_indent"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUindent); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUindent) { P ctree_, indent_; GtkCTree *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(indent_, 1); { arg2 = (signed)YPiu(indent_); } gtk_ctree_set_indent(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUspacing,"samurui/gtk","gtk_ctree_set_spacing"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUspacing) { P ctree_, spacing_; GtkCTree *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(spacing_, 1); { arg2 = (signed)YPiu(spacing_); } gtk_ctree_set_spacing(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUshowUstub,"samurui/gtk","gtk_ctree_set_show_stub"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUshowUstub); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUshowUstub) { P ctree_, show_stub_; GtkCTree *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(show_stub_, 1); { arg2 = (signed)YPiu(show_stub_); } gtk_ctree_set_show_stub(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUlineUstyle,"samurui/gtk","gtk_ctree_set_line_style"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUlineUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUlineUstyle) { P ctree_, line_style_; GtkCTree *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(line_style_, 1); { arg2 = (int)YPiu(line_style_); } gtk_ctree_set_line_style(arg1,(GtkCTreeLineStyle )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUexpanderUstyle,"samurui/gtk","gtk_ctree_set_expander_style"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUexpanderUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUexpanderUstyle) { P ctree_, expander_style_; GtkCTree *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(expander_style_, 1); { arg2 = (int)YPiu(expander_style_); } gtk_ctree_set_expander_style(arg1,(GtkCTreeExpanderStyle )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsetUdragUcompareUfunc,"samurui/gtk","gtk_ctree_set_drag_compare_func"); FUNFOR(YsamuruiSgtkYgtkUctreeUsetUdragUcompareUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsetUdragUcompareUfunc) { P ctree_, cmp_func_; GtkCTree *arg1 ; GtkCTreeCompareDragFunc arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(cmp_func_, 1); { arg2 = (GtkCTreeCompareDragFunc )YPlu(cmp_func_); } gtk_ctree_set_drag_compare_func(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsortUnode,"samurui/gtk","gtk_ctree_sort_node"); FUNFOR(YsamuruiSgtkYgtkUctreeUsortUnode); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsortUnode) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_sort_node(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUctreeUsortUrecursive,"samurui/gtk","gtk_ctree_sort_recursive"); FUNFOR(YsamuruiSgtkYgtkUctreeUsortUrecursive); FUNCODEDEF(YsamuruiSgtkYgtkUctreeUsortUrecursive) { P ctree_, node_; GtkCTree *arg1 ; GtkCTreeNode *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ctree_, 0); { arg1 = (GtkCTree *)YPlu(ctree_); } ARG(node_, 1); { arg2 = (GtkCTreeNode *)YPlu(node_); } gtk_ctree_sort_recursive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUnew,"samurui/gtk","gtk_curve_new"); FUNFOR(YsamuruiSgtkYgtkUcurveUnew); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_curve_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUreset,"samurui/gtk","gtk_curve_reset"); FUNFOR(YsamuruiSgtkYgtkUcurveUreset); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUreset) { P curve_; GtkCurve *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(curve_, 0); { arg1 = (GtkCurve *)YPlu(curve_); } gtk_curve_reset(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUsetUgamma,"samurui/gtk","gtk_curve_set_gamma"); FUNFOR(YsamuruiSgtkYgtkUcurveUsetUgamma); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUsetUgamma) { P curve_, gamma_; GtkCurve *arg1 ; gfloat arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(curve_, 0); { arg1 = (GtkCurve *)YPlu(curve_); } ARG(gamma_, 1); { arg2 = (float)YPfu(gamma_); } gtk_curve_set_gamma(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUsetUrange,"samurui/gtk","gtk_curve_set_range"); FUNFOR(YsamuruiSgtkYgtkUcurveUsetUrange); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUsetUrange) { P curve_, min_x_, max_x_, min_y_, max_y_; GtkCurve *arg1 ; gfloat arg2 ; gfloat arg3 ; gfloat arg4 ; gfloat arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(curve_, 0); { arg1 = (GtkCurve *)YPlu(curve_); } ARG(min_x_, 1); { arg2 = (float)YPfu(min_x_); } ARG(max_x_, 2); { arg3 = (float)YPfu(max_x_); } ARG(min_y_, 3); { arg4 = (float)YPfu(min_y_); } ARG(max_y_, 4); { arg5 = (float)YPfu(max_y_); } gtk_curve_set_range(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUgetUvector,"samurui/gtk","gtk_curve_get_vector"); FUNFOR(YsamuruiSgtkYgtkUcurveUgetUvector); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUgetUvector) { P curve_, veclen_; GtkCurve *arg1 ; int arg2 ; gfloat *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(curve_, 0); { arg1 = (GtkCurve *)YPlu(curve_); } ARG(veclen_, 1); { int i; arg2 = (int)YPtlen(veclen_); arg3 = (float *)malloc(arg2 * sizeof(float)); for(i=0; i < arg2; i++) { arg3[i] = (float)YPfu(YPtelt(veclen_, i)); } } gtk_curve_get_vector(arg1,arg2,arg3); { // do nothing! it's a void! } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUsetUvector,"samurui/gtk","gtk_curve_set_vector"); FUNFOR(YsamuruiSgtkYgtkUcurveUsetUvector); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUsetUvector) { P curve_, veclen_; GtkCurve *arg1 ; int arg2 ; gfloat *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(curve_, 0); { arg1 = (GtkCurve *)YPlu(curve_); } ARG(veclen_, 1); { int i; arg2 = (int)YPtlen(veclen_); arg3 = (float *)malloc(arg2 * sizeof(float)); for(i=0; i < arg2; i++) { arg3[i] = (float)YPfu(YPtelt(veclen_, i)); } } gtk_curve_set_vector(arg1,arg2,arg3); { // do nothing! it's a void! } { if(arg3) free(arg3); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUcurveUsetUcurveUtype,"samurui/gtk","gtk_curve_set_curve_type"); FUNFOR(YsamuruiSgtkYgtkUcurveUsetUcurveUtype); FUNCODEDEF(YsamuruiSgtkYgtkUcurveUsetUcurveUtype) { P curve_, type_; GtkCurve *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(curve_, 0); { arg1 = (GtkCurve *)YPlu(curve_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_curve_set_curve_type(arg1,(GtkCurveType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUnew,"samurui/gtk","gtk_dialog_new"); FUNFOR(YsamuruiSgtkYgtkUdialogUnew); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_dialog_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUaddUactionUwidget,"samurui/gtk","gtk_dialog_add_action_widget"); FUNFOR(YsamuruiSgtkYgtkUdialogUaddUactionUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUaddUactionUwidget) { P dialog_, child_, response_id_; GtkDialog *arg1 ; GtkWidget *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(response_id_, 2); { arg3 = (signed)YPiu(response_id_); } gtk_dialog_add_action_widget(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUaddUbutton,"samurui/gtk","gtk_dialog_add_button"); FUNFOR(YsamuruiSgtkYgtkUdialogUaddUbutton); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUaddUbutton) { P dialog_, button_text_, response_id_; GtkDialog *arg1 ; gchar *arg2 ; gint arg3 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } ARG(button_text_, 1); { arg2 = (char *)YPsu(button_text_); } ARG(response_id_, 2); { arg3 = (signed)YPiu(response_id_); } result = (GtkWidget *)gtk_dialog_add_button(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUsetUresponseUsensitive,"samurui/gtk","gtk_dialog_set_response_sensitive"); FUNFOR(YsamuruiSgtkYgtkUdialogUsetUresponseUsensitive); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUsetUresponseUsensitive) { P dialog_, response_id_, setting_; GtkDialog *arg1 ; gint arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } ARG(response_id_, 1); { arg2 = (signed)YPiu(response_id_); } ARG(setting_, 2); { arg3 = (signed)YPiu(setting_); } gtk_dialog_set_response_sensitive(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUsetUdefaultUresponse,"samurui/gtk","gtk_dialog_set_default_response"); FUNFOR(YsamuruiSgtkYgtkUdialogUsetUdefaultUresponse); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUsetUdefaultUresponse) { P dialog_, response_id_; GtkDialog *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } ARG(response_id_, 1); { arg2 = (signed)YPiu(response_id_); } gtk_dialog_set_default_response(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUsetUhasUseparator,"samurui/gtk","gtk_dialog_set_has_separator"); FUNFOR(YsamuruiSgtkYgtkUdialogUsetUhasUseparator); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUsetUhasUseparator) { P dialog_, setting_; GtkDialog *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_dialog_set_has_separator(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUgetUhasUseparator,"samurui/gtk","gtk_dialog_get_has_separator"); FUNFOR(YsamuruiSgtkYgtkUdialogUgetUhasUseparator); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUgetUhasUseparator) { P dialog_; GtkDialog *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } result = (gboolean )gtk_dialog_get_has_separator(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUresponse,"samurui/gtk","gtk_dialog_response"); FUNFOR(YsamuruiSgtkYgtkUdialogUresponse); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUresponse) { P dialog_, response_id_; GtkDialog *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } ARG(response_id_, 1); { arg2 = (signed)YPiu(response_id_); } gtk_dialog_response(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdialogUrun,"samurui/gtk","gtk_dialog_run"); FUNFOR(YsamuruiSgtkYgtkUdialogUrun); FUNCODEDEF(YsamuruiSgtkYgtkUdialogUrun) { P dialog_; GtkDialog *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(dialog_, 0); { arg1 = (GtkDialog *)YPlu(dialog_); } result = (gint )gtk_dialog_run(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUdrawingUareaUnew,"samurui/gtk","gtk_drawing_area_new"); FUNFOR(YsamuruiSgtkYgtkUdrawingUareaUnew); FUNCODEDEF(YsamuruiSgtkYgtkUdrawingUareaUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_drawing_area_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUselectUregion,"samurui/gtk","gtk_editable_select_region"); FUNFOR(YsamuruiSgtkYgtkUeditableUselectUregion); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUselectUregion) { P editable_, start_, end_; GtkEditable *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(start_, 1); { arg2 = (signed)YPiu(start_); } ARG(end_, 2); { arg3 = (signed)YPiu(end_); } gtk_editable_select_region(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUgetUselectionUbounds,"samurui/gtk","gtk_editable_get_selection_bounds"); FUNFOR(YsamuruiSgtkYgtkUeditableUgetUselectionUbounds); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUgetUselectionUbounds) { P editable_, start_, end_; GtkEditable *arg1 ; gint *arg2 ; gint *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(start_, 1); { arg2 = (gint *)YPlu(start_); } ARG(end_, 2); { arg3 = (gint *)YPlu(end_); } result = (gboolean )gtk_editable_get_selection_bounds(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUinsertUtext,"samurui/gtk","gtk_editable_insert_text"); FUNFOR(YsamuruiSgtkYgtkUeditableUinsertUtext); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUinsertUtext) { P editable_, new_text_, new_text_length_, position_; GtkEditable *arg1 ; gchar *arg2 ; gint arg3 ; gint *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(new_text_, 1); { arg2 = (char *)YPsu(new_text_); } ARG(new_text_length_, 2); { arg3 = (signed)YPiu(new_text_length_); } ARG(position_, 3); { arg4 = (gint *)YPlu(position_); } gtk_editable_insert_text(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUdeleteUtext,"samurui/gtk","gtk_editable_delete_text"); FUNFOR(YsamuruiSgtkYgtkUeditableUdeleteUtext); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUdeleteUtext) { P editable_, start_pos_, end_pos_; GtkEditable *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(start_pos_, 1); { arg2 = (signed)YPiu(start_pos_); } ARG(end_pos_, 2); { arg3 = (signed)YPiu(end_pos_); } gtk_editable_delete_text(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUgetUchars,"samurui/gtk","gtk_editable_get_chars"); FUNFOR(YsamuruiSgtkYgtkUeditableUgetUchars); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUgetUchars) { P editable_, start_pos_, end_pos_; GtkEditable *arg1 ; gint arg2 ; gint arg3 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(start_pos_, 1); { arg2 = (signed)YPiu(start_pos_); } ARG(end_pos_, 2); { arg3 = (signed)YPiu(end_pos_); } result = (gchar *)gtk_editable_get_chars(arg1,arg2,arg3); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUcutUclipboard,"samurui/gtk","gtk_editable_cut_clipboard"); FUNFOR(YsamuruiSgtkYgtkUeditableUcutUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUcutUclipboard) { P editable_; GtkEditable *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } gtk_editable_cut_clipboard(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUcopyUclipboard,"samurui/gtk","gtk_editable_copy_clipboard"); FUNFOR(YsamuruiSgtkYgtkUeditableUcopyUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUcopyUclipboard) { P editable_; GtkEditable *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } gtk_editable_copy_clipboard(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUpasteUclipboard,"samurui/gtk","gtk_editable_paste_clipboard"); FUNFOR(YsamuruiSgtkYgtkUeditableUpasteUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUpasteUclipboard) { P editable_; GtkEditable *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } gtk_editable_paste_clipboard(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUdeleteUselection,"samurui/gtk","gtk_editable_delete_selection"); FUNFOR(YsamuruiSgtkYgtkUeditableUdeleteUselection); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUdeleteUselection) { P editable_; GtkEditable *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } gtk_editable_delete_selection(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUsetUposition,"samurui/gtk","gtk_editable_set_position"); FUNFOR(YsamuruiSgtkYgtkUeditableUsetUposition); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUsetUposition) { P editable_, position_; GtkEditable *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(position_, 1); { arg2 = (signed)YPiu(position_); } gtk_editable_set_position(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUgetUposition,"samurui/gtk","gtk_editable_get_position"); FUNFOR(YsamuruiSgtkYgtkUeditableUgetUposition); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUgetUposition) { P editable_; GtkEditable *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } result = (gint )gtk_editable_get_position(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUsetUeditable,"samurui/gtk","gtk_editable_set_editable"); FUNFOR(YsamuruiSgtkYgtkUeditableUsetUeditable); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUsetUeditable) { P editable_, is_editable_; GtkEditable *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } ARG(is_editable_, 1); { arg2 = (signed)YPiu(is_editable_); } gtk_editable_set_editable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeditableUgetUeditable,"samurui/gtk","gtk_editable_get_editable"); FUNFOR(YsamuruiSgtkYgtkUeditableUgetUeditable); FUNCODEDEF(YsamuruiSgtkYgtkUeditableUgetUeditable) { P editable_; GtkEditable *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(editable_, 0); { arg1 = (GtkEditable *)YPlu(editable_); } result = (gboolean )gtk_editable_get_editable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUnew,"samurui/gtk","gtk_entry_new"); FUNFOR(YsamuruiSgtkYgtkUentryUnew); FUNCODEDEF(YsamuruiSgtkYgtkUentryUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_entry_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUvisibility,"samurui/gtk","gtk_entry_set_visibility"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUvisibility); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUvisibility) { P entry_, visible_; GtkEntry *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(visible_, 1); { arg2 = (signed)YPiu(visible_); } gtk_entry_set_visibility(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUvisibility,"samurui/gtk","gtk_entry_get_visibility"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUvisibility); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUvisibility) { P entry_; GtkEntry *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gboolean )gtk_entry_get_visibility(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUinvisibleUchar,"samurui/gtk","gtk_entry_set_invisible_char"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUinvisibleUchar); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUinvisibleUchar) { P entry_, ch_; GtkEntry *arg1 ; gunichar arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(ch_, 1); { arg2 = (unsigned)YPiu(ch_); } gtk_entry_set_invisible_char(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUinvisibleUchar,"samurui/gtk","gtk_entry_get_invisible_char"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUinvisibleUchar); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUinvisibleUchar) { P entry_; GtkEntry *arg1 ; gunichar result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gunichar )gtk_entry_get_invisible_char(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUhasUframe,"samurui/gtk","gtk_entry_set_has_frame"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUhasUframe); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUhasUframe) { P entry_, setting_; GtkEntry *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_entry_set_has_frame(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUhasUframe,"samurui/gtk","gtk_entry_get_has_frame"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUhasUframe); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUhasUframe) { P entry_; GtkEntry *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gboolean )gtk_entry_get_has_frame(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUmaxUlength,"samurui/gtk","gtk_entry_set_max_length"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUmaxUlength); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUmaxUlength) { P entry_, max_; GtkEntry *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(max_, 1); { arg2 = (signed)YPiu(max_); } gtk_entry_set_max_length(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUmaxUlength,"samurui/gtk","gtk_entry_get_max_length"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUmaxUlength); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUmaxUlength) { P entry_; GtkEntry *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gint )gtk_entry_get_max_length(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUactivatesUdefault,"samurui/gtk","gtk_entry_set_activates_default"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUactivatesUdefault); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUactivatesUdefault) { P entry_, setting_; GtkEntry *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_entry_set_activates_default(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUactivatesUdefault,"samurui/gtk","gtk_entry_get_activates_default"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUactivatesUdefault); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUactivatesUdefault) { P entry_; GtkEntry *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gboolean )gtk_entry_get_activates_default(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUwidthUchars,"samurui/gtk","gtk_entry_set_width_chars"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUwidthUchars); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUwidthUchars) { P entry_, n_chars_; GtkEntry *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(n_chars_, 1); { arg2 = (signed)YPiu(n_chars_); } gtk_entry_set_width_chars(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUwidthUchars,"samurui/gtk","gtk_entry_get_width_chars"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUwidthUchars); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUwidthUchars) { P entry_; GtkEntry *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gint )gtk_entry_get_width_chars(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUsetUtext,"samurui/gtk","gtk_entry_set_text"); FUNFOR(YsamuruiSgtkYgtkUentryUsetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUentryUsetUtext) { P entry_, text_; GtkEntry *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } gtk_entry_set_text(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUtext,"samurui/gtk","gtk_entry_get_text"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUtext) { P entry_; GtkEntry *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (gchar *)gtk_entry_get_text(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUlayout,"samurui/gtk","gtk_entry_get_layout"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUlayout); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUlayout) { P entry_; GtkEntry *arg1 ; PangoLayout *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } result = (PangoLayout *)gtk_entry_get_layout(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUentryUgetUlayoutUoffsets,"samurui/gtk","gtk_entry_get_layout_offsets"); FUNFOR(YsamuruiSgtkYgtkUentryUgetUlayoutUoffsets); FUNCODEDEF(YsamuruiSgtkYgtkUentryUgetUlayoutUoffsets) { P entry_; GtkEntry *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(entry_, 0); { arg1 = (GtkEntry *)YPlu(entry_); } gtk_entry_get_layout_offsets(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeventUboxUnew,"samurui/gtk","gtk_event_box_new"); FUNFOR(YsamuruiSgtkYgtkUeventUboxUnew); FUNCODEDEF(YsamuruiSgtkYgtkUeventUboxUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_event_box_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfileUselectionUnew,"samurui/gtk","gtk_file_selection_new"); FUNFOR(YsamuruiSgtkYgtkUfileUselectionUnew); FUNCODEDEF(YsamuruiSgtkYgtkUfileUselectionUnew) { P title_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(title_, 0); { arg1 = (char *)YPsu(title_); } result = (GtkWidget *)gtk_file_selection_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfileUselectionUsetUfilename,"samurui/gtk","gtk_file_selection_set_filename"); FUNFOR(YsamuruiSgtkYgtkUfileUselectionUsetUfilename); FUNCODEDEF(YsamuruiSgtkYgtkUfileUselectionUsetUfilename) { P filesel_, filename_; GtkFileSelection *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(filesel_, 0); { arg1 = (GtkFileSelection *)YPlu(filesel_); } ARG(filename_, 1); { arg2 = (char *)YPsu(filename_); } gtk_file_selection_set_filename(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfileUselectionUgetUfilename,"samurui/gtk","gtk_file_selection_get_filename"); FUNFOR(YsamuruiSgtkYgtkUfileUselectionUgetUfilename); FUNCODEDEF(YsamuruiSgtkYgtkUfileUselectionUgetUfilename) { P filesel_; GtkFileSelection *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(filesel_, 0); { arg1 = (GtkFileSelection *)YPlu(filesel_); } result = (gchar *)gtk_file_selection_get_filename(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfileUselectionUcomplete,"samurui/gtk","gtk_file_selection_complete"); FUNFOR(YsamuruiSgtkYgtkUfileUselectionUcomplete); FUNCODEDEF(YsamuruiSgtkYgtkUfileUselectionUcomplete) { P filesel_, pattern_; GtkFileSelection *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(filesel_, 0); { arg1 = (GtkFileSelection *)YPlu(filesel_); } ARG(pattern_, 1); { arg2 = (char *)YPsu(pattern_); } gtk_file_selection_complete(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfileUselectionUshowUfileopUbuttons,"samurui/gtk","gtk_file_selection_show_fileop_buttons"); FUNFOR(YsamuruiSgtkYgtkUfileUselectionUshowUfileopUbuttons); FUNCODEDEF(YsamuruiSgtkYgtkUfileUselectionUshowUfileopUbuttons) { P filesel_; GtkFileSelection *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(filesel_, 0); { arg1 = (GtkFileSelection *)YPlu(filesel_); } gtk_file_selection_show_fileop_buttons(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfileUselectionUhideUfileopUbuttons,"samurui/gtk","gtk_file_selection_hide_fileop_buttons"); FUNFOR(YsamuruiSgtkYgtkUfileUselectionUhideUfileopUbuttons); FUNCODEDEF(YsamuruiSgtkYgtkUfileUselectionUhideUfileopUbuttons) { P filesel_; GtkFileSelection *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(filesel_, 0); { arg1 = (GtkFileSelection *)YPlu(filesel_); } gtk_file_selection_hide_fileop_buttons(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfixedUnew,"samurui/gtk","gtk_fixed_new"); FUNFOR(YsamuruiSgtkYgtkUfixedUnew); FUNCODEDEF(YsamuruiSgtkYgtkUfixedUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_fixed_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfixedUput,"samurui/gtk","gtk_fixed_put"); FUNFOR(YsamuruiSgtkYgtkUfixedUput); FUNCODEDEF(YsamuruiSgtkYgtkUfixedUput) { P fixed_, widget_, x_, y_; GtkFixed *arg1 ; GtkWidget *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fixed_, 0); { arg1 = (GtkFixed *)YPlu(fixed_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gtk_fixed_put(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfixedUmove,"samurui/gtk","gtk_fixed_move"); FUNFOR(YsamuruiSgtkYgtkUfixedUmove); FUNCODEDEF(YsamuruiSgtkYgtkUfixedUmove) { P fixed_, widget_, x_, y_; GtkFixed *arg1 ; GtkWidget *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fixed_, 0); { arg1 = (GtkFixed *)YPlu(fixed_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gtk_fixed_move(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfixedUsetUhasUwindow,"samurui/gtk","gtk_fixed_set_has_window"); FUNFOR(YsamuruiSgtkYgtkUfixedUsetUhasUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUfixedUsetUhasUwindow) { P fixed_, has_window_; GtkFixed *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fixed_, 0); { arg1 = (GtkFixed *)YPlu(fixed_); } ARG(has_window_, 1); { arg2 = (signed)YPiu(has_window_); } gtk_fixed_set_has_window(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfixedUgetUhasUwindow,"samurui/gtk","gtk_fixed_get_has_window"); FUNFOR(YsamuruiSgtkYgtkUfixedUgetUhasUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUfixedUgetUhasUwindow) { P fixed_; GtkFixed *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fixed_, 0); { arg1 = (GtkFixed *)YPlu(fixed_); } result = (gboolean )gtk_fixed_get_has_window(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUnew,"samurui/gtk","gtk_font_selection_new"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUnew); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_font_selection_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUgetUfontUname,"samurui/gtk","gtk_font_selection_get_font_name"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUgetUfontUname); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUgetUfontUname) { P fontsel_; GtkFontSelection *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fontsel_, 0); { arg1 = (GtkFontSelection *)YPlu(fontsel_); } result = (gchar *)gtk_font_selection_get_font_name(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUsetUfontUname,"samurui/gtk","gtk_font_selection_set_font_name"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUsetUfontUname); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUsetUfontUname) { P fontsel_, fontname_; GtkFontSelection *arg1 ; gchar *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fontsel_, 0); { arg1 = (GtkFontSelection *)YPlu(fontsel_); } ARG(fontname_, 1); { arg2 = (char *)YPsu(fontname_); } result = (gboolean )gtk_font_selection_set_font_name(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUgetUpreviewUtext,"samurui/gtk","gtk_font_selection_get_preview_text"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUgetUpreviewUtext); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUgetUpreviewUtext) { P fontsel_; GtkFontSelection *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fontsel_, 0); { arg1 = (GtkFontSelection *)YPlu(fontsel_); } result = (gchar *)gtk_font_selection_get_preview_text(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUsetUpreviewUtext,"samurui/gtk","gtk_font_selection_set_preview_text"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUsetUpreviewUtext); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUsetUpreviewUtext) { P fontsel_, text_; GtkFontSelection *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fontsel_, 0); { arg1 = (GtkFontSelection *)YPlu(fontsel_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } gtk_font_selection_set_preview_text(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUtype,"samurui/gtk","gtk_font_selection_dialog_get_type"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_font_selection_dialog_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUdialogUnew,"samurui/gtk","gtk_font_selection_dialog_new"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUdialogUnew); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUdialogUnew) { P title_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(title_, 0); { arg1 = (char *)YPsu(title_); } result = (GtkWidget *)gtk_font_selection_dialog_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUfontUname,"samurui/gtk","gtk_font_selection_dialog_get_font_name"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUfontUname); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUfontUname) { P fsd_; GtkFontSelectionDialog *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fsd_, 0); { arg1 = (GtkFontSelectionDialog *)YPlu(fsd_); } result = (gchar *)gtk_font_selection_dialog_get_font_name(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUfontUname,"samurui/gtk","gtk_font_selection_dialog_set_font_name"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUfontUname); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUfontUname) { P fsd_, fontname_; GtkFontSelectionDialog *arg1 ; gchar *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fsd_, 0); { arg1 = (GtkFontSelectionDialog *)YPlu(fsd_); } ARG(fontname_, 1); { arg2 = (char *)YPsu(fontname_); } result = (gboolean )gtk_font_selection_dialog_set_font_name(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUpreviewUtext,"samurui/gtk","gtk_font_selection_dialog_get_preview_text"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUpreviewUtext); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUpreviewUtext) { P fsd_; GtkFontSelectionDialog *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fsd_, 0); { arg1 = (GtkFontSelectionDialog *)YPlu(fsd_); } result = (gchar *)gtk_font_selection_dialog_get_preview_text(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUpreviewUtext,"samurui/gtk","gtk_font_selection_dialog_set_preview_text"); FUNFOR(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUpreviewUtext); FUNCODEDEF(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUpreviewUtext) { P fsd_, text_; GtkFontSelectionDialog *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(fsd_, 0); { arg1 = (GtkFontSelectionDialog *)YPlu(fsd_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } gtk_font_selection_dialog_set_preview_text(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUnew,"samurui/gtk","gtk_frame_new"); FUNFOR(YsamuruiSgtkYgtkUframeUnew); FUNCODEDEF(YsamuruiSgtkYgtkUframeUnew) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_frame_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUsetUlabel,"samurui/gtk","gtk_frame_set_label"); FUNFOR(YsamuruiSgtkYgtkUframeUsetUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUframeUsetUlabel) { P frame_, label_; GtkFrame *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } gtk_frame_set_label(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUgetUlabel,"samurui/gtk","gtk_frame_get_label"); FUNFOR(YsamuruiSgtkYgtkUframeUgetUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUframeUgetUlabel) { P frame_; GtkFrame *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } result = (gchar *)gtk_frame_get_label(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUsetUlabelUwidget,"samurui/gtk","gtk_frame_set_label_widget"); FUNFOR(YsamuruiSgtkYgtkUframeUsetUlabelUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUframeUsetUlabelUwidget) { P frame_, label_widget_; GtkFrame *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } ARG(label_widget_, 1); { arg2 = (GtkWidget *)YPlu(label_widget_); } gtk_frame_set_label_widget(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUgetUlabelUwidget,"samurui/gtk","gtk_frame_get_label_widget"); FUNFOR(YsamuruiSgtkYgtkUframeUgetUlabelUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUframeUgetUlabelUwidget) { P frame_; GtkFrame *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } result = (GtkWidget *)gtk_frame_get_label_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUsetUlabelUalign,"samurui/gtk","gtk_frame_set_label_align"); FUNFOR(YsamuruiSgtkYgtkUframeUsetUlabelUalign); FUNCODEDEF(YsamuruiSgtkYgtkUframeUsetUlabelUalign) { P frame_, xalign_, yalign_; GtkFrame *arg1 ; gfloat arg2 ; gfloat arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } ARG(xalign_, 1); { arg2 = (float)YPfu(xalign_); } ARG(yalign_, 2); { arg3 = (float)YPfu(yalign_); } gtk_frame_set_label_align(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUgetUlabelUalign,"samurui/gtk","gtk_frame_get_label_align"); FUNFOR(YsamuruiSgtkYgtkUframeUgetUlabelUalign); FUNCODEDEF(YsamuruiSgtkYgtkUframeUgetUlabelUalign) { P frame_, xalign_, yalign_; GtkFrame *arg1 ; gfloat *arg2 ; gfloat *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } ARG(xalign_, 1); { arg2 = (gfloat *)YPlu(xalign_); } ARG(yalign_, 2); { arg3 = (gfloat *)YPlu(yalign_); } gtk_frame_get_label_align(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUsetUshadowUtype,"samurui/gtk","gtk_frame_set_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUframeUsetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUframeUsetUshadowUtype) { P frame_, type_; GtkFrame *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_frame_set_shadow_type(arg1,(GtkShadowType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUframeUgetUshadowUtype,"samurui/gtk","gtk_frame_get_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUframeUgetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUframeUgetUshadowUtype) { P frame_; GtkFrame *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(frame_, 0); { arg1 = (GtkFrame *)YPlu(frame_); } result = (int )gtk_frame_get_shadow_type(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgammaUcurveUnew,"samurui/gtk","gtk_gamma_curve_new"); FUNFOR(YsamuruiSgtkYgtkUgammaUcurveUnew); FUNCODEDEF(YsamuruiSgtkYgtkUgammaUcurveUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_gamma_curve_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUnew,"samurui/gtk","gtk_handle_box_new"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_handle_box_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUsetUshadowUtype,"samurui/gtk","gtk_handle_box_set_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUsetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUsetUshadowUtype) { P handle_box_, type_; GtkHandleBox *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(handle_box_, 0); { arg1 = (GtkHandleBox *)YPlu(handle_box_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_handle_box_set_shadow_type(arg1,(GtkShadowType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUgetUshadowUtype,"samurui/gtk","gtk_handle_box_get_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUgetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUgetUshadowUtype) { P handle_box_; GtkHandleBox *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(handle_box_, 0); { arg1 = (GtkHandleBox *)YPlu(handle_box_); } result = (int )gtk_handle_box_get_shadow_type(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUsetUhandleUposition,"samurui/gtk","gtk_handle_box_set_handle_position"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUsetUhandleUposition); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUsetUhandleUposition) { P handle_box_, position_; GtkHandleBox *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(handle_box_, 0); { arg1 = (GtkHandleBox *)YPlu(handle_box_); } ARG(position_, 1); { arg2 = (int)YPiu(position_); } gtk_handle_box_set_handle_position(arg1,(GtkPositionType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUgetUhandleUposition,"samurui/gtk","gtk_handle_box_get_handle_position"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUgetUhandleUposition); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUgetUhandleUposition) { P handle_box_; GtkHandleBox *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(handle_box_, 0); { arg1 = (GtkHandleBox *)YPlu(handle_box_); } result = (int )gtk_handle_box_get_handle_position(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUsetUsnapUedge,"samurui/gtk","gtk_handle_box_set_snap_edge"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUsetUsnapUedge); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUsetUsnapUedge) { P handle_box_, edge_; GtkHandleBox *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(handle_box_, 0); { arg1 = (GtkHandleBox *)YPlu(handle_box_); } ARG(edge_, 1); { arg2 = (int)YPiu(edge_); } gtk_handle_box_set_snap_edge(arg1,(GtkPositionType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhandleUboxUgetUsnapUedge,"samurui/gtk","gtk_handle_box_get_snap_edge"); FUNFOR(YsamuruiSgtkYgtkUhandleUboxUgetUsnapUedge); FUNCODEDEF(YsamuruiSgtkYgtkUhandleUboxUgetUsnapUedge) { P handle_box_; GtkHandleBox *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(handle_box_, 0); { arg1 = (GtkHandleBox *)YPlu(handle_box_); } result = (int )gtk_handle_box_get_snap_edge(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhbuttonUboxUnew,"samurui/gtk","gtk_hbutton_box_new"); FUNFOR(YsamuruiSgtkYgtkUhbuttonUboxUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhbuttonUboxUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_hbutton_box_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhboxUnew,"samurui/gtk","gtk_hbox_new"); FUNFOR(YsamuruiSgtkYgtkUhboxUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhboxUnew) { P homogeneous_, spacing_; gboolean arg1 ; gint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(homogeneous_, 0); { arg1 = (signed)YPiu(homogeneous_); } ARG(spacing_, 1); { arg2 = (signed)YPiu(spacing_); } result = (GtkWidget *)gtk_hbox_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhpanedUnew,"samurui/gtk","gtk_hpaned_new"); FUNFOR(YsamuruiSgtkYgtkUhpanedUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhpanedUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_hpaned_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhrulerUnew,"samurui/gtk","gtk_hruler_new"); FUNFOR(YsamuruiSgtkYgtkUhrulerUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhrulerUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_hruler_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhscaleUnew,"samurui/gtk","gtk_hscale_new"); FUNFOR(YsamuruiSgtkYgtkUhscaleUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhscaleUnew) { P adjustment_; GtkAdjustment *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } result = (GtkWidget *)gtk_hscale_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhscaleUnewUwithUrange,"samurui/gtk","gtk_hscale_new_with_range"); FUNFOR(YsamuruiSgtkYgtkUhscaleUnewUwithUrange); FUNCODEDEF(YsamuruiSgtkYgtkUhscaleUnewUwithUrange) { P min_, max_, step_; gdouble arg1 ; gdouble arg2 ; gdouble arg3 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(min_, 0); { arg1 = (double)((float)YPfu(min_)); } ARG(max_, 1); { arg2 = (double)((float)YPfu(max_)); } ARG(step_, 2); { arg3 = (double)((float)YPfu(step_)); } result = (GtkWidget *)gtk_hscale_new_with_range(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUhscrollbarUnew,"samurui/gtk","gtk_hscrollbar_new"); FUNFOR(YsamuruiSgtkYgtkUhscrollbarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUhscrollbarUnew) { P adjustment_; GtkAdjustment *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } result = (GtkWidget *)gtk_hscrollbar_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnew,"samurui/gtk","gtk_image_new"); FUNFOR(YsamuruiSgtkYgtkUimageUnew); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_image_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUpixmap,"samurui/gtk","gtk_image_new_from_pixmap"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUpixmap) { P pixmap_, mask_; GdkPixmap *arg1 ; GdkBitmap *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixmap_, 0); { arg1 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 1); { arg2 = (GdkBitmap *)YPlu(mask_); } result = (GtkWidget *)gtk_image_new_from_pixmap(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUimage,"samurui/gtk","gtk_image_new_from_image"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUimage); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUimage) { P image_, mask_; GdkImage *arg1 ; GdkBitmap *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GdkImage *)YPlu(image_); } ARG(mask_, 1); { arg2 = (GdkBitmap *)YPlu(mask_); } result = (GtkWidget *)gtk_image_new_from_image(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUfile,"samurui/gtk","gtk_image_new_from_file"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUfile); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUfile) { P filename_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(filename_, 0); { arg1 = (char *)YPsu(filename_); } result = (GtkWidget *)gtk_image_new_from_file(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUpixbuf,"samurui/gtk","gtk_image_new_from_pixbuf"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUpixbuf); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUpixbuf) { P pixbuf_; GdkPixbuf *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixbuf_, 0); { arg1 = (GdkPixbuf *)YPlu(pixbuf_); } result = (GtkWidget *)gtk_image_new_from_pixbuf(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUstock,"samurui/gtk","gtk_image_new_from_stock"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUstock); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUstock) { P stock_id_, size_; gchar *arg1 ; int arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(stock_id_, 0); { arg1 = (char *)YPsu(stock_id_); } ARG(size_, 1); { arg2 = (int)YPiu(size_); } result = (GtkWidget *)gtk_image_new_from_stock(arg1,(GtkIconSize )arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUiconUset,"samurui/gtk","gtk_image_new_from_icon_set"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUiconUset); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUiconUset) { P icon_set_, size_; GtkIconSet *arg1 ; int arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(icon_set_, 0); { arg1 = (GtkIconSet *)YPlu(icon_set_); } ARG(size_, 1); { arg2 = (int)YPiu(size_); } result = (GtkWidget *)gtk_image_new_from_icon_set(arg1,(GtkIconSize )arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUnewUfromUanimation,"samurui/gtk","gtk_image_new_from_animation"); FUNFOR(YsamuruiSgtkYgtkUimageUnewUfromUanimation); FUNCODEDEF(YsamuruiSgtkYgtkUimageUnewUfromUanimation) { P animation_; GdkPixbufAnimation *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(animation_, 0); { arg1 = (GdkPixbufAnimation *)YPlu(animation_); } result = (GtkWidget *)gtk_image_new_from_animation(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUpixmap,"samurui/gtk","gtk_image_set_from_pixmap"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUpixmap) { P image_, pixmap_, mask_; GtkImage *arg1 ; GdkPixmap *arg2 ; GdkBitmap *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(pixmap_, 1); { arg2 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 2); { arg3 = (GdkBitmap *)YPlu(mask_); } gtk_image_set_from_pixmap(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUimage,"samurui/gtk","gtk_image_set_from_image"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUimage); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUimage) { P image_, gdk_image_, mask_; GtkImage *arg1 ; GdkImage *arg2 ; GdkBitmap *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(gdk_image_, 1); { arg2 = (GdkImage *)YPlu(gdk_image_); } ARG(mask_, 2); { arg3 = (GdkBitmap *)YPlu(mask_); } gtk_image_set_from_image(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUfile,"samurui/gtk","gtk_image_set_from_file"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUfile); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUfile) { P image_, filename_; GtkImage *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(filename_, 1); { arg2 = (char *)YPsu(filename_); } gtk_image_set_from_file(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUpixbuf,"samurui/gtk","gtk_image_set_from_pixbuf"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUpixbuf); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUpixbuf) { P image_, pixbuf_; GtkImage *arg1 ; GdkPixbuf *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(pixbuf_, 1); { arg2 = (GdkPixbuf *)YPlu(pixbuf_); } gtk_image_set_from_pixbuf(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUstock,"samurui/gtk","gtk_image_set_from_stock"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUstock); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUstock) { P image_, stock_id_, size_; GtkImage *arg1 ; gchar *arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(stock_id_, 1); { arg2 = (char *)YPsu(stock_id_); } ARG(size_, 2); { arg3 = (int)YPiu(size_); } gtk_image_set_from_stock(arg1,arg2,(GtkIconSize )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUiconUset,"samurui/gtk","gtk_image_set_from_icon_set"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUiconUset); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUiconUset) { P image_, icon_set_, size_; GtkImage *arg1 ; GtkIconSet *arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(icon_set_, 1); { arg2 = (GtkIconSet *)YPlu(icon_set_); } ARG(size_, 2); { arg3 = (int)YPiu(size_); } gtk_image_set_from_icon_set(arg1,arg2,(GtkIconSize )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUsetUfromUanimation,"samurui/gtk","gtk_image_set_from_animation"); FUNFOR(YsamuruiSgtkYgtkUimageUsetUfromUanimation); FUNCODEDEF(YsamuruiSgtkYgtkUimageUsetUfromUanimation) { P image_, animation_; GtkImage *arg1 ; GdkPixbufAnimation *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(animation_, 1); { arg2 = (GdkPixbufAnimation *)YPlu(animation_); } gtk_image_set_from_animation(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUstorageUtype,"samurui/gtk","gtk_image_get_storage_type"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUstorageUtype); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUstorageUtype) { P image_; GtkImage *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } result = (int )gtk_image_get_storage_type(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUpixmap,"samurui/gtk","gtk_image_get_pixmap"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUpixmap); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUpixmap) { P image_, pixmap_, mask_; GtkImage *arg1 ; GdkPixmap **arg2 ; GdkBitmap **arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(pixmap_, 1); { arg2 = (GdkPixmap **)YPlu(pixmap_); } ARG(mask_, 2); { arg3 = (GdkBitmap **)YPlu(mask_); } gtk_image_get_pixmap(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUimage,"samurui/gtk","gtk_image_get_image"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUimage); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUimage) { P image_, gdk_image_, mask_; GtkImage *arg1 ; GdkImage **arg2 ; GdkBitmap **arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(gdk_image_, 1); { arg2 = (GdkImage **)YPlu(gdk_image_); } ARG(mask_, 2); { arg3 = (GdkBitmap **)YPlu(mask_); } gtk_image_get_image(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUpixbuf,"samurui/gtk","gtk_image_get_pixbuf"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUpixbuf); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUpixbuf) { P image_; GtkImage *arg1 ; GdkPixbuf *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } result = (GdkPixbuf *)gtk_image_get_pixbuf(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUstock,"samurui/gtk","gtk_image_get_stock"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUstock); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUstock) { P image_, stock_id_, size_; GtkImage *arg1 ; gchar **arg2 ; GtkIconSize *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(stock_id_, 1); { arg2 = (gchar **)YPlu(stock_id_); } ARG(size_, 2); { arg3 = (GtkIconSize *)YPlu(size_); } gtk_image_get_stock(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUiconUset,"samurui/gtk","gtk_image_get_icon_set"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUiconUset); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUiconUset) { P image_, icon_set_, size_; GtkImage *arg1 ; GtkIconSet **arg2 ; GtkIconSize *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } ARG(icon_set_, 1); { arg2 = (GtkIconSet **)YPlu(icon_set_); } ARG(size_, 2); { arg3 = (GtkIconSize *)YPlu(size_); } gtk_image_get_icon_set(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUimageUgetUanimation,"samurui/gtk","gtk_image_get_animation"); FUNFOR(YsamuruiSgtkYgtkUimageUgetUanimation); FUNCODEDEF(YsamuruiSgtkYgtkUimageUgetUanimation) { P image_; GtkImage *arg1 ; GdkPixbufAnimation *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(image_, 0); { arg1 = (GtkImage *)YPlu(image_); } result = (GdkPixbufAnimation *)gtk_image_get_animation(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUinputUdialogUnew,"samurui/gtk","gtk_input_dialog_new"); FUNFOR(YsamuruiSgtkYgtkUinputUdialogUnew); FUNCODEDEF(YsamuruiSgtkYgtkUinputUdialogUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_input_dialog_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUselect,"samurui/gtk","gtk_item_select"); FUNFOR(YsamuruiSgtkYgtkUitemUselect); FUNCODEDEF(YsamuruiSgtkYgtkUitemUselect) { P item_; GtkItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(item_, 0); { arg1 = (GtkItem *)YPlu(item_); } gtk_item_select(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUdeselect,"samurui/gtk","gtk_item_deselect"); FUNFOR(YsamuruiSgtkYgtkUitemUdeselect); FUNCODEDEF(YsamuruiSgtkYgtkUitemUdeselect) { P item_; GtkItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(item_, 0); { arg1 = (GtkItem *)YPlu(item_); } gtk_item_deselect(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUtoggle,"samurui/gtk","gtk_item_toggle"); FUNFOR(YsamuruiSgtkYgtkUitemUtoggle); FUNCODEDEF(YsamuruiSgtkYgtkUitemUtoggle) { P item_; GtkItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(item_, 0); { arg1 = (GtkItem *)YPlu(item_); } gtk_item_toggle(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUnew,"samurui/gtk","gtk_item_factory_new"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUnew); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUnew) { P container_type_, path_, accel_group_; GtkType arg1 ; gchar *arg2 ; GtkAccelGroup *arg3 ; GtkItemFactory *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(container_type_, 0); { arg1 = (unsigned long)YPiu(container_type_); } ARG(path_, 1); { arg2 = (char *)YPsu(path_); } ARG(accel_group_, 2); { arg3 = (GtkAccelGroup *)YPlu(accel_group_); } result = (GtkItemFactory *)gtk_item_factory_new(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUconstruct,"samurui/gtk","gtk_item_factory_construct"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUconstruct); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUconstruct) { P ifactory_, container_type_, path_, accel_group_; GtkItemFactory *arg1 ; GtkType arg2 ; gchar *arg3 ; GtkAccelGroup *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(container_type_, 1); { arg2 = (unsigned long)YPiu(container_type_); } ARG(path_, 2); { arg3 = (char *)YPsu(path_); } ARG(accel_group_, 3); { arg4 = (GtkAccelGroup *)YPlu(accel_group_); } gtk_item_factory_construct(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUaddUforeign,"samurui/gtk","gtk_item_factory_add_foreign"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUaddUforeign); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUaddUforeign) { P accel_widget_, full_path_, accel_group_, keyval_, modifiers_; GtkWidget *arg1 ; gchar *arg2 ; GtkAccelGroup *arg3 ; guint arg4 ; int arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(accel_widget_, 0); { arg1 = (GtkWidget *)YPlu(accel_widget_); } ARG(full_path_, 1); { arg2 = (char *)YPsu(full_path_); } ARG(accel_group_, 2); { arg3 = (GtkAccelGroup *)YPlu(accel_group_); } ARG(keyval_, 3); { arg4 = (unsigned)YPiu(keyval_); } ARG(modifiers_, 4); { arg5 = (int)YPiu(modifiers_); } gtk_item_factory_add_foreign(arg1,arg2,arg3,arg4,(GdkModifierType )arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUfromUwidget,"samurui/gtk","gtk_item_factory_from_widget"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUfromUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUfromUwidget) { P widget_; GtkWidget *arg1 ; GtkItemFactory *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkItemFactory *)gtk_item_factory_from_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUpathUfromUwidget,"samurui/gtk","gtk_item_factory_path_from_widget"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUpathUfromUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUpathUfromUwidget) { P widget_; GtkWidget *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gchar *)gtk_item_factory_path_from_widget(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUgetUitem,"samurui/gtk","gtk_item_factory_get_item"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUgetUitem); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUgetUitem) { P ifactory_, path_; GtkItemFactory *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(path_, 1); { arg2 = (char *)YPsu(path_); } result = (GtkWidget *)gtk_item_factory_get_item(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUgetUwidget,"samurui/gtk","gtk_item_factory_get_widget"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUgetUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUgetUwidget) { P ifactory_, path_; GtkItemFactory *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(path_, 1); { arg2 = (char *)YPsu(path_); } result = (GtkWidget *)gtk_item_factory_get_widget(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUgetUwidgetUbyUaction,"samurui/gtk","gtk_item_factory_get_widget_by_action"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUgetUwidgetUbyUaction); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUgetUwidgetUbyUaction) { P ifactory_, action_; GtkItemFactory *arg1 ; guint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(action_, 1); { arg2 = (unsigned)YPiu(action_); } result = (GtkWidget *)gtk_item_factory_get_widget_by_action(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUgetUitemUbyUaction,"samurui/gtk","gtk_item_factory_get_item_by_action"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUgetUitemUbyUaction); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUgetUitemUbyUaction) { P ifactory_, action_; GtkItemFactory *arg1 ; guint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(action_, 1); { arg2 = (unsigned)YPiu(action_); } result = (GtkWidget *)gtk_item_factory_get_item_by_action(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUcreateUitem,"samurui/gtk","gtk_item_factory_create_item"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUcreateUitem); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUcreateUitem) { P ifactory_, entry_, callback_data_, callback_type_; GtkItemFactory *arg1 ; GtkItemFactoryEntry *arg2 ; gpointer arg3 ; guint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(entry_, 1); { arg2 = (GtkItemFactoryEntry *)YPlu(entry_); } ARG(callback_data_, 2); { arg3 = (gpointer )YPlu(callback_data_); } ARG(callback_type_, 3); { arg4 = (unsigned)YPiu(callback_type_); } gtk_item_factory_create_item(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUcreateUitems,"samurui/gtk","gtk_item_factory_create_items"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUcreateUitems); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUcreateUitems) { P ifactory_, n_entries_, entries_, callback_data_; GtkItemFactory *arg1 ; guint arg2 ; GtkItemFactoryEntry *arg3 ; gpointer arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(n_entries_, 1); { arg2 = (unsigned)YPiu(n_entries_); } ARG(entries_, 2); { arg3 = (GtkItemFactoryEntry *)YPlu(entries_); } ARG(callback_data_, 3); { arg4 = (gpointer )YPlu(callback_data_); } gtk_item_factory_create_items(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUdeleteUitem,"samurui/gtk","gtk_item_factory_delete_item"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUdeleteUitem); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUdeleteUitem) { P ifactory_, path_; GtkItemFactory *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(path_, 1); { arg2 = (char *)YPsu(path_); } gtk_item_factory_delete_item(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentry,"samurui/gtk","gtk_item_factory_delete_entry"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentry); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentry) { P ifactory_, entry_; GtkItemFactory *arg1 ; GtkItemFactoryEntry *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(entry_, 1); { arg2 = (GtkItemFactoryEntry *)YPlu(entry_); } gtk_item_factory_delete_entry(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentries,"samurui/gtk","gtk_item_factory_delete_entries"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentries); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentries) { P ifactory_, n_entries_, entries_; GtkItemFactory *arg1 ; guint arg2 ; GtkItemFactoryEntry *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(n_entries_, 1); { arg2 = (unsigned)YPiu(n_entries_); } ARG(entries_, 2); { arg3 = (GtkItemFactoryEntry *)YPlu(entries_); } gtk_item_factory_delete_entries(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUpopup,"samurui/gtk","gtk_item_factory_popup"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUpopup); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUpopup) { P ifactory_, x_, y_, mouse_button_, time_; GtkItemFactory *arg1 ; guint arg2 ; guint arg3 ; guint arg4 ; guint32 arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(x_, 1); { arg2 = (unsigned)YPiu(x_); } ARG(y_, 2); { arg3 = (unsigned)YPiu(y_); } ARG(mouse_button_, 3); { arg4 = (unsigned)YPiu(mouse_button_); } ARG(time_, 4); { arg5 = (unsigned)YPiu(time_); } gtk_item_factory_popup(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUpopupUwithUdata,"samurui/gtk","gtk_item_factory_popup_with_data"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUpopupUwithUdata); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUpopupUwithUdata) { P ifactory_, popup_data_, destroy_, x_, y_, mouse_button_, time_; GtkItemFactory *arg1 ; gpointer arg2 ; GtkDestroyNotify arg3 ; guint arg4 ; guint arg5 ; guint arg6 ; guint32 arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(popup_data_, 1); { arg2 = (gpointer )YPlu(popup_data_); } ARG(destroy_, 2); { arg3 = (GtkDestroyNotify )YPlu(destroy_); } ARG(x_, 3); { arg4 = (unsigned)YPiu(x_); } ARG(y_, 4); { arg5 = (unsigned)YPiu(y_); } ARG(mouse_button_, 5); { arg6 = (unsigned)YPiu(mouse_button_); } ARG(time_, 6); { arg7 = (unsigned)YPiu(time_); } gtk_item_factory_popup_with_data(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUpopupUdata,"samurui/gtk","gtk_item_factory_popup_data"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUpopupUdata); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUpopupUdata) { P ifactory_; GtkItemFactory *arg1 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } result = (gpointer )gtk_item_factory_popup_data(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUpopupUdataUfromUwidget,"samurui/gtk","gtk_item_factory_popup_data_from_widget"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUpopupUdataUfromUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUpopupUdataUfromUwidget) { P widget_; GtkWidget *arg1 ; gpointer result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (gpointer )gtk_item_factory_popup_data_from_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUitemUfactoryUsetUtranslateUfunc,"samurui/gtk","gtk_item_factory_set_translate_func"); FUNFOR(YsamuruiSgtkYgtkUitemUfactoryUsetUtranslateUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUitemUfactoryUsetUtranslateUfunc) { P ifactory_, func_, data_, notify_; GtkItemFactory *arg1 ; GtkTranslateFunc arg2 ; gpointer arg3 ; GtkDestroyNotify arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ifactory_, 0); { arg1 = (GtkItemFactory *)YPlu(ifactory_); } ARG(func_, 1); { arg2 = (GtkTranslateFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(notify_, 3); { arg4 = (GtkDestroyNotify )YPlu(notify_); } gtk_item_factory_set_translate_func(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUnew,"samurui/gtk","gtk_label_new"); FUNFOR(YsamuruiSgtkYgtkUlabelUnew); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUnew) { P str_; char *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(str_, 0); { arg1 = (char *)YPsu(str_); } result = (GtkWidget *)gtk_label_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUnewUwithUmnemonic,"samurui/gtk","gtk_label_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUlabelUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUnewUwithUmnemonic) { P str_; char *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(str_, 0); { arg1 = (char *)YPsu(str_); } result = (GtkWidget *)gtk_label_new_with_mnemonic(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUtext,"samurui/gtk","gtk_label_set_text"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUtext) { P label_, str_; GtkLabel *arg1 ; char *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(str_, 1); { arg2 = (char *)YPsu(str_); } gtk_label_set_text(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUtext,"samurui/gtk","gtk_label_get_text"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUtext) { P label_; GtkLabel *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (gchar *)gtk_label_get_text(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUattributes,"samurui/gtk","gtk_label_set_attributes"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUattributes); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUattributes) { P label_, attrs_; GtkLabel *arg1 ; PangoAttrList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(attrs_, 1); { arg2 = (PangoAttrList *)YPlu(attrs_); } gtk_label_set_attributes(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUattributes,"samurui/gtk","gtk_label_get_attributes"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUattributes); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUattributes) { P label_; GtkLabel *arg1 ; PangoAttrList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (PangoAttrList *)gtk_label_get_attributes(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUlabel,"samurui/gtk","gtk_label_set_label"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUlabel) { P label_, str_; GtkLabel *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(str_, 1); { arg2 = (char *)YPsu(str_); } gtk_label_set_label(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUlabel,"samurui/gtk","gtk_label_get_label"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUlabel) { P label_; GtkLabel *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (gchar *)gtk_label_get_label(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUmarkup,"samurui/gtk","gtk_label_set_markup"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUmarkup); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUmarkup) { P label_, str_; GtkLabel *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(str_, 1); { arg2 = (char *)YPsu(str_); } gtk_label_set_markup(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUuseUmarkup,"samurui/gtk","gtk_label_set_use_markup"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUuseUmarkup); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUuseUmarkup) { P label_, setting_; GtkLabel *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_label_set_use_markup(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUuseUmarkup,"samurui/gtk","gtk_label_get_use_markup"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUuseUmarkup); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUuseUmarkup) { P label_; GtkLabel *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (gboolean )gtk_label_get_use_markup(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUuseUunderline,"samurui/gtk","gtk_label_set_use_underline"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUuseUunderline); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUuseUunderline) { P label_, setting_; GtkLabel *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_label_set_use_underline(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUuseUunderline,"samurui/gtk","gtk_label_get_use_underline"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUuseUunderline); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUuseUunderline) { P label_; GtkLabel *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (gboolean )gtk_label_get_use_underline(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUmarkupUwithUmnemonic,"samurui/gtk","gtk_label_set_markup_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUmarkupUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUmarkupUwithUmnemonic) { P label_, str_; GtkLabel *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(str_, 1); { arg2 = (char *)YPsu(str_); } gtk_label_set_markup_with_mnemonic(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUmnemonicUkeyval,"samurui/gtk","gtk_label_get_mnemonic_keyval"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUmnemonicUkeyval); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUmnemonicUkeyval) { P label_; GtkLabel *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (guint )gtk_label_get_mnemonic_keyval(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUmnemonicUwidget,"samurui/gtk","gtk_label_set_mnemonic_widget"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUmnemonicUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUmnemonicUwidget) { P label_, widget_; GtkLabel *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } gtk_label_set_mnemonic_widget(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUmnemonicUwidget,"samurui/gtk","gtk_label_get_mnemonic_widget"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUmnemonicUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUmnemonicUwidget) { P label_; GtkLabel *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (GtkWidget *)gtk_label_get_mnemonic_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUtextUwithUmnemonic,"samurui/gtk","gtk_label_set_text_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUtextUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUtextUwithUmnemonic) { P label_, str_; GtkLabel *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(str_, 1); { arg2 = (char *)YPsu(str_); } gtk_label_set_text_with_mnemonic(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUjustify,"samurui/gtk","gtk_label_set_justify"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUjustify); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUjustify) { P label_, jtype_; GtkLabel *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(jtype_, 1); { arg2 = (int)YPiu(jtype_); } gtk_label_set_justify(arg1,(GtkJustification )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUjustify,"samurui/gtk","gtk_label_get_justify"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUjustify); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUjustify) { P label_; GtkLabel *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (int )gtk_label_get_justify(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUpattern,"samurui/gtk","gtk_label_set_pattern"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUpattern); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUpattern) { P label_, pattern_; GtkLabel *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(pattern_, 1); { arg2 = (char *)YPsu(pattern_); } gtk_label_set_pattern(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUlineUwrap,"samurui/gtk","gtk_label_set_line_wrap"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUlineUwrap); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUlineUwrap) { P label_, wrap_; GtkLabel *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(wrap_, 1); { arg2 = (signed)YPiu(wrap_); } gtk_label_set_line_wrap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUlineUwrap,"samurui/gtk","gtk_label_get_line_wrap"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUlineUwrap); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUlineUwrap) { P label_; GtkLabel *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (gboolean )gtk_label_get_line_wrap(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUsetUselectable,"samurui/gtk","gtk_label_set_selectable"); FUNFOR(YsamuruiSgtkYgtkUlabelUsetUselectable); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUsetUselectable) { P label_, setting_; GtkLabel *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_label_set_selectable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUselectable,"samurui/gtk","gtk_label_get_selectable"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUselectable); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUselectable) { P label_; GtkLabel *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (gboolean )gtk_label_get_selectable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUselectUregion,"samurui/gtk","gtk_label_select_region"); FUNFOR(YsamuruiSgtkYgtkUlabelUselectUregion); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUselectUregion) { P label_, start_offset_, end_offset_; GtkLabel *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(start_offset_, 1); { arg2 = (signed)YPiu(start_offset_); } ARG(end_offset_, 2); { arg3 = (signed)YPiu(end_offset_); } gtk_label_select_region(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUselectionUbounds,"samurui/gtk","gtk_label_get_selection_bounds"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUselectionUbounds); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUselectionUbounds) { P label_, start_, end_; GtkLabel *arg1 ; gint *arg2 ; gint *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } ARG(start_, 1); { arg2 = (gint *)YPlu(start_); } ARG(end_, 2); { arg3 = (gint *)YPlu(end_); } result = (gboolean )gtk_label_get_selection_bounds(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUlayout,"samurui/gtk","gtk_label_get_layout"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUlayout); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUlayout) { P label_; GtkLabel *arg1 ; PangoLayout *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } result = (PangoLayout *)gtk_label_get_layout(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlabelUgetUlayoutUoffsets,"samurui/gtk","gtk_label_get_layout_offsets"); FUNFOR(YsamuruiSgtkYgtkUlabelUgetUlayoutUoffsets); FUNCODEDEF(YsamuruiSgtkYgtkUlabelUgetUlayoutUoffsets) { P label_; GtkLabel *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(label_, 0); { arg1 = (GtkLabel *)YPlu(label_); } gtk_label_get_layout_offsets(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUnew,"samurui/gtk","gtk_layout_new"); FUNFOR(YsamuruiSgtkYgtkUlayoutUnew); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUnew) { P hadjustment_, vadjustment_; GtkAdjustment *arg1 ; GtkAdjustment *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(hadjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(hadjustment_); } ARG(vadjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(vadjustment_); } result = (GtkWidget *)gtk_layout_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUput,"samurui/gtk","gtk_layout_put"); FUNFOR(YsamuruiSgtkYgtkUlayoutUput); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUput) { P layout_, child_widget_, x_, y_; GtkLayout *arg1 ; GtkWidget *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } ARG(child_widget_, 1); { arg2 = (GtkWidget *)YPlu(child_widget_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gtk_layout_put(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUmove,"samurui/gtk","gtk_layout_move"); FUNFOR(YsamuruiSgtkYgtkUlayoutUmove); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUmove) { P layout_, child_widget_, x_, y_; GtkLayout *arg1 ; GtkWidget *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } ARG(child_widget_, 1); { arg2 = (GtkWidget *)YPlu(child_widget_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gtk_layout_move(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUsetUsize,"samurui/gtk","gtk_layout_set_size"); FUNFOR(YsamuruiSgtkYgtkUlayoutUsetUsize); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUsetUsize) { P layout_, width_, height_; GtkLayout *arg1 ; guint arg2 ; guint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } ARG(width_, 1); { arg2 = (unsigned)YPiu(width_); } ARG(height_, 2); { arg3 = (unsigned)YPiu(height_); } gtk_layout_set_size(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUgetUsize,"samurui/gtk","gtk_layout_get_size"); FUNFOR(YsamuruiSgtkYgtkUlayoutUgetUsize); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUgetUsize) { P layout_, width_, height_; GtkLayout *arg1 ; guint *arg2 ; guint *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } ARG(width_, 1); { arg2 = (guint *)YPlu(width_); } ARG(height_, 2); { arg3 = (guint *)YPlu(height_); } gtk_layout_get_size(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUgetUhadjustment,"samurui/gtk","gtk_layout_get_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUlayoutUgetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUgetUhadjustment) { P layout_; GtkLayout *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } result = (GtkAdjustment *)gtk_layout_get_hadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUgetUvadjustment,"samurui/gtk","gtk_layout_get_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUlayoutUgetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUgetUvadjustment) { P layout_; GtkLayout *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } result = (GtkAdjustment *)gtk_layout_get_vadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUsetUhadjustment,"samurui/gtk","gtk_layout_set_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUlayoutUsetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUsetUhadjustment) { P layout_, adjustment_; GtkLayout *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_layout_set_hadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlayoutUsetUvadjustment,"samurui/gtk","gtk_layout_set_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUlayoutUsetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUlayoutUsetUvadjustment) { P layout_, adjustment_; GtkLayout *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(layout_, 0); { arg1 = (GtkLayout *)YPlu(layout_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_layout_set_vadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUnew,"samurui/gtk","gtk_list_new"); FUNFOR(YsamuruiSgtkYgtkUlistUnew); FUNCODEDEF(YsamuruiSgtkYgtkUlistUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_list_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUinsertUitems,"samurui/gtk","gtk_list_insert_items"); FUNFOR(YsamuruiSgtkYgtkUlistUinsertUitems); FUNCODEDEF(YsamuruiSgtkYgtkUlistUinsertUitems) { P list_, items_, position_; GtkList *arg1 ; GList *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(items_, 1); { arg2 = (GList *)YPlu(items_); } ARG(position_, 2); { arg3 = (signed)YPiu(position_); } gtk_list_insert_items(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUappendUitems,"samurui/gtk","gtk_list_append_items"); FUNFOR(YsamuruiSgtkYgtkUlistUappendUitems); FUNCODEDEF(YsamuruiSgtkYgtkUlistUappendUitems) { P list_, items_; GtkList *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(items_, 1); { arg2 = (GList *)YPlu(items_); } gtk_list_append_items(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUprependUitems,"samurui/gtk","gtk_list_prepend_items"); FUNFOR(YsamuruiSgtkYgtkUlistUprependUitems); FUNCODEDEF(YsamuruiSgtkYgtkUlistUprependUitems) { P list_, items_; GtkList *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(items_, 1); { arg2 = (GList *)YPlu(items_); } gtk_list_prepend_items(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUremoveUitems,"samurui/gtk","gtk_list_remove_items"); FUNFOR(YsamuruiSgtkYgtkUlistUremoveUitems); FUNCODEDEF(YsamuruiSgtkYgtkUlistUremoveUitems) { P list_, items_; GtkList *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(items_, 1); { arg2 = (GList *)YPlu(items_); } gtk_list_remove_items(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUremoveUitemsUnoUunref,"samurui/gtk","gtk_list_remove_items_no_unref"); FUNFOR(YsamuruiSgtkYgtkUlistUremoveUitemsUnoUunref); FUNCODEDEF(YsamuruiSgtkYgtkUlistUremoveUitemsUnoUunref) { P list_, items_; GtkList *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(items_, 1); { arg2 = (GList *)YPlu(items_); } gtk_list_remove_items_no_unref(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUclearUitems,"samurui/gtk","gtk_list_clear_items"); FUNFOR(YsamuruiSgtkYgtkUlistUclearUitems); FUNCODEDEF(YsamuruiSgtkYgtkUlistUclearUitems) { P list_, start_, end_; GtkList *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(start_, 1); { arg2 = (signed)YPiu(start_); } ARG(end_, 2); { arg3 = (signed)YPiu(end_); } gtk_list_clear_items(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUselectUitem,"samurui/gtk","gtk_list_select_item"); FUNFOR(YsamuruiSgtkYgtkUlistUselectUitem); FUNCODEDEF(YsamuruiSgtkYgtkUlistUselectUitem) { P list_, item_; GtkList *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(item_, 1); { arg2 = (signed)YPiu(item_); } gtk_list_select_item(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUunselectUitem,"samurui/gtk","gtk_list_unselect_item"); FUNFOR(YsamuruiSgtkYgtkUlistUunselectUitem); FUNCODEDEF(YsamuruiSgtkYgtkUlistUunselectUitem) { P list_, item_; GtkList *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(item_, 1); { arg2 = (signed)YPiu(item_); } gtk_list_unselect_item(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUselectUchild,"samurui/gtk","gtk_list_select_child"); FUNFOR(YsamuruiSgtkYgtkUlistUselectUchild); FUNCODEDEF(YsamuruiSgtkYgtkUlistUselectUchild) { P list_, child_; GtkList *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_list_select_child(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUunselectUchild,"samurui/gtk","gtk_list_unselect_child"); FUNFOR(YsamuruiSgtkYgtkUlistUunselectUchild); FUNCODEDEF(YsamuruiSgtkYgtkUlistUunselectUchild) { P list_, child_; GtkList *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_list_unselect_child(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUchildUposition,"samurui/gtk","gtk_list_child_position"); FUNFOR(YsamuruiSgtkYgtkUlistUchildUposition); FUNCODEDEF(YsamuruiSgtkYgtkUlistUchildUposition) { P list_, child_; GtkList *arg1 ; GtkWidget *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (gint )gtk_list_child_position(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUsetUselectionUmode,"samurui/gtk","gtk_list_set_selection_mode"); FUNFOR(YsamuruiSgtkYgtkUlistUsetUselectionUmode); FUNCODEDEF(YsamuruiSgtkYgtkUlistUsetUselectionUmode) { P list_, mode_; GtkList *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } gtk_list_set_selection_mode(arg1,(GtkSelectionMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUextendUselection,"samurui/gtk","gtk_list_extend_selection"); FUNFOR(YsamuruiSgtkYgtkUlistUextendUselection); FUNCODEDEF(YsamuruiSgtkYgtkUlistUextendUselection) { P list_, scroll_type_, position_, auto_start_selection_; GtkList *arg1 ; int arg2 ; gfloat arg3 ; gboolean arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(scroll_type_, 1); { arg2 = (int)YPiu(scroll_type_); } ARG(position_, 2); { arg3 = (float)YPfu(position_); } ARG(auto_start_selection_, 3); { arg4 = (signed)YPiu(auto_start_selection_); } gtk_list_extend_selection(arg1,(GtkScrollType )arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUstartUselection,"samurui/gtk","gtk_list_start_selection"); FUNFOR(YsamuruiSgtkYgtkUlistUstartUselection); FUNCODEDEF(YsamuruiSgtkYgtkUlistUstartUselection) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_start_selection(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUendUselection,"samurui/gtk","gtk_list_end_selection"); FUNFOR(YsamuruiSgtkYgtkUlistUendUselection); FUNCODEDEF(YsamuruiSgtkYgtkUlistUendUselection) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_end_selection(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUselectUall,"samurui/gtk","gtk_list_select_all"); FUNFOR(YsamuruiSgtkYgtkUlistUselectUall); FUNCODEDEF(YsamuruiSgtkYgtkUlistUselectUall) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_select_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUunselectUall,"samurui/gtk","gtk_list_unselect_all"); FUNFOR(YsamuruiSgtkYgtkUlistUunselectUall); FUNCODEDEF(YsamuruiSgtkYgtkUlistUunselectUall) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_unselect_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUscrollUhorizontal,"samurui/gtk","gtk_list_scroll_horizontal"); FUNFOR(YsamuruiSgtkYgtkUlistUscrollUhorizontal); FUNCODEDEF(YsamuruiSgtkYgtkUlistUscrollUhorizontal) { P list_, scroll_type_, position_; GtkList *arg1 ; int arg2 ; gfloat arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(scroll_type_, 1); { arg2 = (int)YPiu(scroll_type_); } ARG(position_, 2); { arg3 = (float)YPfu(position_); } gtk_list_scroll_horizontal(arg1,(GtkScrollType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUscrollUvertical,"samurui/gtk","gtk_list_scroll_vertical"); FUNFOR(YsamuruiSgtkYgtkUlistUscrollUvertical); FUNCODEDEF(YsamuruiSgtkYgtkUlistUscrollUvertical) { P list_, scroll_type_, position_; GtkList *arg1 ; int arg2 ; gfloat arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(scroll_type_, 1); { arg2 = (int)YPiu(scroll_type_); } ARG(position_, 2); { arg3 = (float)YPfu(position_); } gtk_list_scroll_vertical(arg1,(GtkScrollType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUtoggleUaddUmode,"samurui/gtk","gtk_list_toggle_add_mode"); FUNFOR(YsamuruiSgtkYgtkUlistUtoggleUaddUmode); FUNCODEDEF(YsamuruiSgtkYgtkUlistUtoggleUaddUmode) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_toggle_add_mode(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUtoggleUfocusUrow,"samurui/gtk","gtk_list_toggle_focus_row"); FUNFOR(YsamuruiSgtkYgtkUlistUtoggleUfocusUrow); FUNCODEDEF(YsamuruiSgtkYgtkUlistUtoggleUfocusUrow) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_toggle_focus_row(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUtoggleUrow,"samurui/gtk","gtk_list_toggle_row"); FUNFOR(YsamuruiSgtkYgtkUlistUtoggleUrow); FUNCODEDEF(YsamuruiSgtkYgtkUlistUtoggleUrow) { P list_, item_; GtkList *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } ARG(item_, 1); { arg2 = (GtkWidget *)YPlu(item_); } gtk_list_toggle_row(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUundoUselection,"samurui/gtk","gtk_list_undo_selection"); FUNFOR(YsamuruiSgtkYgtkUlistUundoUselection); FUNCODEDEF(YsamuruiSgtkYgtkUlistUundoUselection) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_undo_selection(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUendUdragUselection,"samurui/gtk","gtk_list_end_drag_selection"); FUNFOR(YsamuruiSgtkYgtkUlistUendUdragUselection); FUNCODEDEF(YsamuruiSgtkYgtkUlistUendUdragUselection) { P list_; GtkList *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_, 0); { arg1 = (GtkList *)YPlu(list_); } gtk_list_end_drag_selection(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUitemUnew,"samurui/gtk","gtk_list_item_new"); FUNFOR(YsamuruiSgtkYgtkUlistUitemUnew); FUNCODEDEF(YsamuruiSgtkYgtkUlistUitemUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_list_item_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUitemUnewUwithUlabel,"samurui/gtk","gtk_list_item_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUlistUitemUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUlistUitemUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_list_item_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUitemUselect,"samurui/gtk","gtk_list_item_select"); FUNFOR(YsamuruiSgtkYgtkUlistUitemUselect); FUNCODEDEF(YsamuruiSgtkYgtkUlistUitemUselect) { P list_item_; GtkListItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_item_, 0); { arg1 = (GtkListItem *)YPlu(list_item_); } gtk_list_item_select(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUlistUitemUdeselect,"samurui/gtk","gtk_list_item_deselect"); FUNFOR(YsamuruiSgtkYgtkUlistUitemUdeselect); FUNCODEDEF(YsamuruiSgtkYgtkUlistUitemUdeselect) { P list_item_; GtkListItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(list_item_, 0); { arg1 = (GtkListItem *)YPlu(list_item_); } gtk_list_item_deselect(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUinit,"samurui/gtk","gtk_init"); FUNFOR(YsamuruiSgtkYgtkUinit); FUNCODEDEF(YsamuruiSgtkYgtkUinit) { P argc_, argv_; int *arg1 ; char ***arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(argc_, 0); { arg1 = (int *)YPlu(argc_); } ARG(argv_, 1); { arg2 = (char ***)YPlu(argv_); } gtk_init(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUinitUeasy,"samurui/gtk","gtk_init_easy"); FUNFOR(YsamuruiSgtkYgtkUinitUeasy); FUNCODEDEF(YsamuruiSgtkYgtkUinitUeasy) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_init_easy(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUeventsUpending,"samurui/gtk","gtk_events_pending"); FUNFOR(YsamuruiSgtkYgtkUeventsUpending); FUNCODEDEF(YsamuruiSgtkYgtkUeventsUpending) { gint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gint )gtk_events_pending(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmain,"samurui/gtk","gtk_main"); FUNFOR(YsamuruiSgtkYgtkUmain); FUNCODEDEF(YsamuruiSgtkYgtkUmain) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_main(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmainUlevel,"samurui/gtk","gtk_main_level"); FUNFOR(YsamuruiSgtkYgtkUmainUlevel); FUNCODEDEF(YsamuruiSgtkYgtkUmainUlevel) { guint result; P retval = (P)YPib((P)0); LINK_STACK(); result = (guint )gtk_main_level(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmainUquit,"samurui/gtk","gtk_main_quit"); FUNFOR(YsamuruiSgtkYgtkUmainUquit); FUNCODEDEF(YsamuruiSgtkYgtkUmainUquit) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_main_quit(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmainUiteration,"samurui/gtk","gtk_main_iteration"); FUNFOR(YsamuruiSgtkYgtkUmainUiteration); FUNCODEDEF(YsamuruiSgtkYgtkUmainUiteration) { gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); result = (gboolean )gtk_main_iteration(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmainUiterationUdo,"samurui/gtk","gtk_main_iteration_do"); FUNFOR(YsamuruiSgtkYgtkUmainUiterationUdo); FUNCODEDEF(YsamuruiSgtkYgtkUmainUiterationUdo) { P blocking_; gboolean arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(blocking_, 0); { arg1 = (signed)YPiu(blocking_); } result = (gboolean )gtk_main_iteration_do(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgrabUadd,"samurui/gtk","gtk_grab_add"); FUNFOR(YsamuruiSgtkYgtkUgrabUadd); FUNCODEDEF(YsamuruiSgtkYgtkUgrabUadd) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_grab_add(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgrabUgetUcurrent,"samurui/gtk","gtk_grab_get_current"); FUNFOR(YsamuruiSgtkYgtkUgrabUgetUcurrent); FUNCODEDEF(YsamuruiSgtkYgtkUgrabUgetUcurrent) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_grab_get_current(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgrabUremove,"samurui/gtk","gtk_grab_remove"); FUNFOR(YsamuruiSgtkYgtkUgrabUremove); FUNCODEDEF(YsamuruiSgtkYgtkUgrabUremove) { P widget_; GtkWidget *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } gtk_grab_remove(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUinitUadd,"samurui/gtk","gtk_init_add"); FUNFOR(YsamuruiSgtkYgtkUinitUadd); FUNCODEDEF(YsamuruiSgtkYgtkUinitUadd) { P function_, data_; GtkFunction arg1 ; gpointer arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(function_, 0); { arg1 = (GtkFunction )YPlu(function_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } gtk_init_add(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUquitUaddUdestroy,"samurui/gtk","gtk_quit_add_destroy"); FUNFOR(YsamuruiSgtkYgtkUquitUaddUdestroy); FUNCODEDEF(YsamuruiSgtkYgtkUquitUaddUdestroy) { P main_level_, object_; guint arg1 ; GtkObject *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(main_level_, 0); { arg1 = (unsigned)YPiu(main_level_); } ARG(object_, 1); { arg2 = (GtkObject *)YPlu(object_); } gtk_quit_add_destroy(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUquitUadd,"samurui/gtk","gtk_quit_add"); FUNFOR(YsamuruiSgtkYgtkUquitUadd); FUNCODEDEF(YsamuruiSgtkYgtkUquitUadd) { P main_level_, function_, data_; guint arg1 ; GtkFunction arg2 ; gpointer arg3 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(main_level_, 0); { arg1 = (unsigned)YPiu(main_level_); } ARG(function_, 1); { arg2 = (GtkFunction )YPlu(function_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } result = (guint )gtk_quit_add(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUquitUaddUfull,"samurui/gtk","gtk_quit_add_full"); FUNFOR(YsamuruiSgtkYgtkUquitUaddUfull); FUNCODEDEF(YsamuruiSgtkYgtkUquitUaddUfull) { P main_level_, function_, marshal_, data_, destroy_; guint arg1 ; GtkFunction arg2 ; GtkCallbackMarshal arg3 ; gpointer arg4 ; GtkDestroyNotify arg5 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(main_level_, 0); { arg1 = (unsigned)YPiu(main_level_); } ARG(function_, 1); { arg2 = (GtkFunction )YPlu(function_); } ARG(marshal_, 2); { arg3 = (GtkCallbackMarshal )YPlu(marshal_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } ARG(destroy_, 4); { arg5 = (GtkDestroyNotify )YPlu(destroy_); } result = (guint )gtk_quit_add_full(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUquitUremove,"samurui/gtk","gtk_quit_remove"); FUNFOR(YsamuruiSgtkYgtkUquitUremove); FUNCODEDEF(YsamuruiSgtkYgtkUquitUremove) { P quit_handler_id_; guint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(quit_handler_id_, 0); { arg1 = (unsigned)YPiu(quit_handler_id_); } gtk_quit_remove(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUquitUremoveUbyUdata,"samurui/gtk","gtk_quit_remove_by_data"); FUNFOR(YsamuruiSgtkYgtkUquitUremoveUbyUdata); FUNCODEDEF(YsamuruiSgtkYgtkUquitUremoveUbyUdata) { P data_; gpointer arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(data_, 0); { arg1 = (gpointer )YPlu(data_); } gtk_quit_remove_by_data(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtimeoutUadd,"samurui/gtk","gtk_timeout_add"); FUNFOR(YsamuruiSgtkYgtkUtimeoutUadd); FUNCODEDEF(YsamuruiSgtkYgtkUtimeoutUadd) { P interval_, function_, data_; guint32 arg1 ; GtkFunction arg2 ; gpointer arg3 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(interval_, 0); { arg1 = (unsigned)YPiu(interval_); } ARG(function_, 1); { arg2 = (GtkFunction )YPlu(function_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } result = (guint )gtk_timeout_add(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtimeoutUaddUfull,"samurui/gtk","gtk_timeout_add_full"); FUNFOR(YsamuruiSgtkYgtkUtimeoutUaddUfull); FUNCODEDEF(YsamuruiSgtkYgtkUtimeoutUaddUfull) { P interval_, function_, marshal_, data_, destroy_; guint32 arg1 ; GtkFunction arg2 ; GtkCallbackMarshal arg3 ; gpointer arg4 ; GtkDestroyNotify arg5 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(interval_, 0); { arg1 = (unsigned)YPiu(interval_); } ARG(function_, 1); { arg2 = (GtkFunction )YPlu(function_); } ARG(marshal_, 2); { arg3 = (GtkCallbackMarshal )YPlu(marshal_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } ARG(destroy_, 4); { arg5 = (GtkDestroyNotify )YPlu(destroy_); } result = (guint )gtk_timeout_add_full(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtimeoutUremove,"samurui/gtk","gtk_timeout_remove"); FUNFOR(YsamuruiSgtkYgtkUtimeoutUremove); FUNCODEDEF(YsamuruiSgtkYgtkUtimeoutUremove) { P timeout_handler_id_; guint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(timeout_handler_id_, 0); { arg1 = (unsigned)YPiu(timeout_handler_id_); } gtk_timeout_remove(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUidleUadd,"samurui/gtk","gtk_idle_add"); FUNFOR(YsamuruiSgtkYgtkUidleUadd); FUNCODEDEF(YsamuruiSgtkYgtkUidleUadd) { P function_, data_; GtkFunction arg1 ; gpointer arg2 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(function_, 0); { arg1 = (GtkFunction )YPlu(function_); } ARG(data_, 1); { arg2 = (gpointer )YPlu(data_); } result = (guint )gtk_idle_add(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUidleUaddUpriority,"samurui/gtk","gtk_idle_add_priority"); FUNFOR(YsamuruiSgtkYgtkUidleUaddUpriority); FUNCODEDEF(YsamuruiSgtkYgtkUidleUaddUpriority) { P priority_, function_, data_; gint arg1 ; GtkFunction arg2 ; gpointer arg3 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(priority_, 0); { arg1 = (signed)YPiu(priority_); } ARG(function_, 1); { arg2 = (GtkFunction )YPlu(function_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } result = (guint )gtk_idle_add_priority(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUidleUaddUfull,"samurui/gtk","gtk_idle_add_full"); FUNFOR(YsamuruiSgtkYgtkUidleUaddUfull); FUNCODEDEF(YsamuruiSgtkYgtkUidleUaddUfull) { P priority_, function_, marshal_, data_, destroy_; gint arg1 ; GtkFunction arg2 ; GtkCallbackMarshal arg3 ; gpointer arg4 ; GtkDestroyNotify arg5 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(priority_, 0); { arg1 = (signed)YPiu(priority_); } ARG(function_, 1); { arg2 = (GtkFunction )YPlu(function_); } ARG(marshal_, 2); { arg3 = (GtkCallbackMarshal )YPlu(marshal_); } ARG(data_, 3); { arg4 = (gpointer )YPlu(data_); } ARG(destroy_, 4); { arg5 = (GtkDestroyNotify )YPlu(destroy_); } result = (guint )gtk_idle_add_full(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUidleUremove,"samurui/gtk","gtk_idle_remove"); FUNFOR(YsamuruiSgtkYgtkUidleUremove); FUNCODEDEF(YsamuruiSgtkYgtkUidleUremove) { P idle_handler_id_; guint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(idle_handler_id_, 0); { arg1 = (unsigned)YPiu(idle_handler_id_); } gtk_idle_remove(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUidleUremoveUbyUdata,"samurui/gtk","gtk_idle_remove_by_data"); FUNFOR(YsamuruiSgtkYgtkUidleUremoveUbyUdata); FUNCODEDEF(YsamuruiSgtkYgtkUidleUremoveUbyUdata) { P data_; gpointer arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(data_, 0); { arg1 = (gpointer )YPlu(data_); } gtk_idle_remove_by_data(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUinputUaddUfull,"samurui/gtk","gtk_input_add_full"); FUNFOR(YsamuruiSgtkYgtkUinputUaddUfull); FUNCODEDEF(YsamuruiSgtkYgtkUinputUaddUfull) { P source_, condition_, function_, marshal_, data_, destroy_; gint arg1 ; int arg2 ; GdkInputFunction arg3 ; GtkCallbackMarshal arg4 ; gpointer arg5 ; GtkDestroyNotify arg6 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(source_, 0); { arg1 = (signed)YPiu(source_); } ARG(condition_, 1); { arg2 = (int)YPiu(condition_); } ARG(function_, 2); { arg3 = (GdkInputFunction )YPlu(function_); } ARG(marshal_, 3); { arg4 = (GtkCallbackMarshal )YPlu(marshal_); } ARG(data_, 4); { arg5 = (gpointer )YPlu(data_); } ARG(destroy_, 5); { arg6 = (GtkDestroyNotify )YPlu(destroy_); } result = (guint )gtk_input_add_full(arg1,(GdkInputCondition )arg2,arg3,arg4,arg5,arg6); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUinputUremove,"samurui/gtk","gtk_input_remove"); FUNFOR(YsamuruiSgtkYgtkUinputUremove); FUNCODEDEF(YsamuruiSgtkYgtkUinputUremove) { P input_handler_id_; guint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(input_handler_id_, 0); { arg1 = (unsigned)YPiu(input_handler_id_); } gtk_input_remove(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetUcurrentUevent,"samurui/gtk","gtk_get_current_event"); FUNFOR(YsamuruiSgtkYgtkUgetUcurrentUevent); FUNCODEDEF(YsamuruiSgtkYgtkUgetUcurrentUevent) { GdkEvent *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GdkEvent *)gtk_get_current_event(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetUcurrentUeventUtime,"samurui/gtk","gtk_get_current_event_time"); FUNFOR(YsamuruiSgtkYgtkUgetUcurrentUeventUtime); FUNCODEDEF(YsamuruiSgtkYgtkUgetUcurrentUeventUtime) { guint32 result; P retval = (P)YPib((P)0); LINK_STACK(); result = (guint32 )gtk_get_current_event_time(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetUcurrentUeventUstate,"samurui/gtk","gtk_get_current_event_state"); FUNFOR(YsamuruiSgtkYgtkUgetUcurrentUeventUstate); FUNCODEDEF(YsamuruiSgtkYgtkUgetUcurrentUeventUstate) { P state_; GdkModifierType *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(state_, 0); { arg1 = (GdkModifierType *)YPlu(state_); } result = (gboolean )gtk_get_current_event_state(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUgetUeventUwidget,"samurui/gtk","gtk_get_event_widget"); FUNFOR(YsamuruiSgtkYgtkUgetUeventUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUgetUeventUwidget) { P event_; GdkEvent *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(event_, 0); { arg1 = (GdkEvent *)YPlu(event_); } result = (GtkWidget *)gtk_get_event_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUnew,"samurui/gtk","gtk_menu_new"); FUNFOR(YsamuruiSgtkYgtkUmenuUnew); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_menu_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUpopup,"samurui/gtk","gtk_menu_popup"); FUNFOR(YsamuruiSgtkYgtkUmenuUpopup); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUpopup) { P menu_, parent_menu_shell_, parent_menu_item_, func_, data_, button_, activate_time_; GtkMenu *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; GtkMenuPositionFunc arg4 ; gpointer arg5 ; guint arg6 ; guint32 arg7 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(parent_menu_shell_, 1); { arg2 = (GtkWidget *)YPlu(parent_menu_shell_); } ARG(parent_menu_item_, 2); { arg3 = (GtkWidget *)YPlu(parent_menu_item_); } ARG(func_, 3); { arg4 = (GtkMenuPositionFunc )YPlu(func_); } ARG(data_, 4); { arg5 = (gpointer )YPlu(data_); } ARG(button_, 5); { arg6 = (unsigned)YPiu(button_); } ARG(activate_time_, 6); { arg7 = (unsigned)YPiu(activate_time_); } gtk_menu_popup(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUreposition,"samurui/gtk","gtk_menu_reposition"); FUNFOR(YsamuruiSgtkYgtkUmenuUreposition); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUreposition) { P menu_; GtkMenu *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } gtk_menu_reposition(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUpopdown,"samurui/gtk","gtk_menu_popdown"); FUNFOR(YsamuruiSgtkYgtkUmenuUpopdown); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUpopdown) { P menu_; GtkMenu *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } gtk_menu_popdown(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUgetUactive,"samurui/gtk","gtk_menu_get_active"); FUNFOR(YsamuruiSgtkYgtkUmenuUgetUactive); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUgetUactive) { P menu_; GtkMenu *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } result = (GtkWidget *)gtk_menu_get_active(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUsetUactive,"samurui/gtk","gtk_menu_set_active"); FUNFOR(YsamuruiSgtkYgtkUmenuUsetUactive); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUsetUactive) { P menu_, index_; GtkMenu *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(index_, 1); { arg2 = (unsigned)YPiu(index_); } gtk_menu_set_active(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUsetUaccelUgroup,"samurui/gtk","gtk_menu_set_accel_group"); FUNFOR(YsamuruiSgtkYgtkUmenuUsetUaccelUgroup); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUsetUaccelUgroup) { P menu_, accel_group_; GtkMenu *arg1 ; GtkAccelGroup *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(accel_group_, 1); { arg2 = (GtkAccelGroup *)YPlu(accel_group_); } gtk_menu_set_accel_group(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUgetUaccelUgroup,"samurui/gtk","gtk_menu_get_accel_group"); FUNFOR(YsamuruiSgtkYgtkUmenuUgetUaccelUgroup); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUgetUaccelUgroup) { P menu_; GtkMenu *arg1 ; GtkAccelGroup *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } result = (GtkAccelGroup *)gtk_menu_get_accel_group(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUsetUaccelUpath,"samurui/gtk","gtk_menu_set_accel_path"); FUNFOR(YsamuruiSgtkYgtkUmenuUsetUaccelUpath); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUsetUaccelUpath) { P menu_, accel_path_; GtkMenu *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(accel_path_, 1); { arg2 = (char *)YPsu(accel_path_); } gtk_menu_set_accel_path(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUattachUtoUwidget,"samurui/gtk","gtk_menu_attach_to_widget"); FUNFOR(YsamuruiSgtkYgtkUmenuUattachUtoUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUattachUtoUwidget) { P menu_, attach_widget_, detacher_; GtkMenu *arg1 ; GtkWidget *arg2 ; GtkMenuDetachFunc arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(attach_widget_, 1); { arg2 = (GtkWidget *)YPlu(attach_widget_); } ARG(detacher_, 2); { arg3 = (GtkMenuDetachFunc )YPlu(detacher_); } gtk_menu_attach_to_widget(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUdetach,"samurui/gtk","gtk_menu_detach"); FUNFOR(YsamuruiSgtkYgtkUmenuUdetach); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUdetach) { P menu_; GtkMenu *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } gtk_menu_detach(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUgetUattachUwidget,"samurui/gtk","gtk_menu_get_attach_widget"); FUNFOR(YsamuruiSgtkYgtkUmenuUgetUattachUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUgetUattachUwidget) { P menu_; GtkMenu *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } result = (GtkWidget *)gtk_menu_get_attach_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUsetUtearoffUstate,"samurui/gtk","gtk_menu_set_tearoff_state"); FUNFOR(YsamuruiSgtkYgtkUmenuUsetUtearoffUstate); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUsetUtearoffUstate) { P menu_, torn_off_; GtkMenu *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(torn_off_, 1); { arg2 = (signed)YPiu(torn_off_); } gtk_menu_set_tearoff_state(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUgetUtearoffUstate,"samurui/gtk","gtk_menu_get_tearoff_state"); FUNFOR(YsamuruiSgtkYgtkUmenuUgetUtearoffUstate); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUgetUtearoffUstate) { P menu_; GtkMenu *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } result = (gboolean )gtk_menu_get_tearoff_state(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUsetUtitle,"samurui/gtk","gtk_menu_set_title"); FUNFOR(YsamuruiSgtkYgtkUmenuUsetUtitle); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUsetUtitle) { P menu_, title_; GtkMenu *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(title_, 1); { arg2 = (char *)YPsu(title_); } gtk_menu_set_title(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUgetUtitle,"samurui/gtk","gtk_menu_get_title"); FUNFOR(YsamuruiSgtkYgtkUmenuUgetUtitle); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUgetUtitle) { P menu_; GtkMenu *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } result = (gchar *)gtk_menu_get_title(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUreorderUchild,"samurui/gtk","gtk_menu_reorder_child"); FUNFOR(YsamuruiSgtkYgtkUmenuUreorderUchild); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUreorderUchild) { P menu_, child_, position_; GtkMenu *arg1 ; GtkWidget *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_, 0); { arg1 = (GtkMenu *)YPlu(menu_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(position_, 2); { arg3 = (signed)YPiu(position_); } gtk_menu_reorder_child(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUbarUnew,"samurui/gtk","gtk_menu_bar_new"); FUNFOR(YsamuruiSgtkYgtkUmenuUbarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUbarUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_menu_bar_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUnew,"samurui/gtk","gtk_menu_item_new"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUnew); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_menu_item_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUnewUwithUlabel,"samurui/gtk","gtk_menu_item_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_menu_item_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUnewUwithUmnemonic,"samurui/gtk","gtk_menu_item_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUnewUwithUmnemonic) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_menu_item_new_with_mnemonic(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUsetUsubmenu,"samurui/gtk","gtk_menu_item_set_submenu"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUsetUsubmenu); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUsetUsubmenu) { P menu_item_, submenu_; GtkMenuItem *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } ARG(submenu_, 1); { arg2 = (GtkWidget *)YPlu(submenu_); } gtk_menu_item_set_submenu(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUgetUsubmenu,"samurui/gtk","gtk_menu_item_get_submenu"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUgetUsubmenu); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUgetUsubmenu) { P menu_item_; GtkMenuItem *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } result = (GtkWidget *)gtk_menu_item_get_submenu(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUremoveUsubmenu,"samurui/gtk","gtk_menu_item_remove_submenu"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUremoveUsubmenu); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUremoveUsubmenu) { P menu_item_; GtkMenuItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } gtk_menu_item_remove_submenu(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkUmenuUitemUsetUplacement,"samurui/gtk","_gtk_menu_item_set_placement"); FUNFOR(YsamuruiSgtkYUgtkUmenuUitemUsetUplacement); FUNCODEDEF(YsamuruiSgtkYUgtkUmenuUitemUsetUplacement) { P menu_item_, placement_; GtkMenuItem *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } ARG(placement_, 1); { arg2 = (int)YPiu(placement_); } _gtk_menu_item_set_placement(arg1,(GtkSubmenuPlacement )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUselect,"samurui/gtk","gtk_menu_item_select"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUselect); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUselect) { P menu_item_; GtkMenuItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } gtk_menu_item_select(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUdeselect,"samurui/gtk","gtk_menu_item_deselect"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUdeselect); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUdeselect) { P menu_item_; GtkMenuItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } gtk_menu_item_deselect(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUactivate,"samurui/gtk","gtk_menu_item_activate"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUactivate); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUactivate) { P menu_item_; GtkMenuItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } gtk_menu_item_activate(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUrequest,"samurui/gtk","gtk_menu_item_toggle_size_request"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUrequest); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUrequest) { P menu_item_, requisition_; GtkMenuItem *arg1 ; gint *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } ARG(requisition_, 1); { arg2 = (gint *)YPlu(requisition_); } gtk_menu_item_toggle_size_request(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUallocate,"samurui/gtk","gtk_menu_item_toggle_size_allocate"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUallocate); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUallocate) { P menu_item_, allocation_; GtkMenuItem *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } ARG(allocation_, 1); { arg2 = (signed)YPiu(allocation_); } gtk_menu_item_toggle_size_allocate(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUsetUrightUjustified,"samurui/gtk","gtk_menu_item_set_right_justified"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUsetUrightUjustified); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUsetUrightUjustified) { P menu_item_, right_justified_; GtkMenuItem *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } ARG(right_justified_, 1); { arg2 = (signed)YPiu(right_justified_); } gtk_menu_item_set_right_justified(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUgetUrightUjustified,"samurui/gtk","gtk_menu_item_get_right_justified"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUgetUrightUjustified); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUgetUrightUjustified) { P menu_item_; GtkMenuItem *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } result = (gboolean )gtk_menu_item_get_right_justified(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUitemUsetUaccelUpath,"samurui/gtk","gtk_menu_item_set_accel_path"); FUNFOR(YsamuruiSgtkYgtkUmenuUitemUsetUaccelUpath); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUitemUsetUaccelUpath) { P menu_item_, accel_path_; GtkMenuItem *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_item_, 0); { arg1 = (GtkMenuItem *)YPlu(menu_item_); } ARG(accel_path_, 1); { arg2 = (char *)YPsu(accel_path_); } gtk_menu_item_set_accel_path(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUappend,"samurui/gtk","gtk_menu_shell_append"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUappend); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUappend) { P menu_shell_, child_; GtkMenuShell *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_menu_shell_append(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUprepend,"samurui/gtk","gtk_menu_shell_prepend"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUprepend); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUprepend) { P menu_shell_, child_; GtkMenuShell *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_menu_shell_prepend(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUinsert,"samurui/gtk","gtk_menu_shell_insert"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUinsert); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUinsert) { P menu_shell_, child_, position_; GtkMenuShell *arg1 ; GtkWidget *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(position_, 2); { arg3 = (signed)YPiu(position_); } gtk_menu_shell_insert(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUdeactivate,"samurui/gtk","gtk_menu_shell_deactivate"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUdeactivate); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUdeactivate) { P menu_shell_; GtkMenuShell *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } gtk_menu_shell_deactivate(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUselectUitem,"samurui/gtk","gtk_menu_shell_select_item"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUselectUitem); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUselectUitem) { P menu_shell_, menu_item_; GtkMenuShell *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } ARG(menu_item_, 1); { arg2 = (GtkWidget *)YPlu(menu_item_); } gtk_menu_shell_select_item(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUdeselect,"samurui/gtk","gtk_menu_shell_deselect"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUdeselect); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUdeselect) { P menu_shell_; GtkMenuShell *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } gtk_menu_shell_deselect(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmenuUshellUactivateUitem,"samurui/gtk","gtk_menu_shell_activate_item"); FUNFOR(YsamuruiSgtkYgtkUmenuUshellUactivateUitem); FUNCODEDEF(YsamuruiSgtkYgtkUmenuUshellUactivateUitem) { P menu_shell_, menu_item_, force_deactivate_; GtkMenuShell *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(menu_shell_, 0); { arg1 = (GtkMenuShell *)YPlu(menu_shell_); } ARG(menu_item_, 1); { arg2 = (GtkWidget *)YPlu(menu_item_); } ARG(force_deactivate_, 2); { arg3 = (signed)YPiu(force_deactivate_); } gtk_menu_shell_activate_item(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmiscUgetUtype,"samurui/gtk","gtk_misc_get_type"); FUNFOR(YsamuruiSgtkYgtkUmiscUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUmiscUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_misc_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmiscUsetUalignment,"samurui/gtk","gtk_misc_set_alignment"); FUNFOR(YsamuruiSgtkYgtkUmiscUsetUalignment); FUNCODEDEF(YsamuruiSgtkYgtkUmiscUsetUalignment) { P misc_, xalign_, yalign_; GtkMisc *arg1 ; gfloat arg2 ; gfloat arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(misc_, 0); { arg1 = (GtkMisc *)YPlu(misc_); } ARG(xalign_, 1); { arg2 = (float)YPfu(xalign_); } ARG(yalign_, 2); { arg3 = (float)YPfu(yalign_); } gtk_misc_set_alignment(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmiscUgetUalignment,"samurui/gtk","gtk_misc_get_alignment"); FUNFOR(YsamuruiSgtkYgtkUmiscUgetUalignment); FUNCODEDEF(YsamuruiSgtkYgtkUmiscUgetUalignment) { P misc_, xalign_, yalign_; GtkMisc *arg1 ; gfloat *arg2 ; gfloat *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(misc_, 0); { arg1 = (GtkMisc *)YPlu(misc_); } ARG(xalign_, 1); { arg2 = (gfloat *)YPlu(xalign_); } ARG(yalign_, 2); { arg3 = (gfloat *)YPlu(yalign_); } gtk_misc_get_alignment(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmiscUsetUpadding,"samurui/gtk","gtk_misc_set_padding"); FUNFOR(YsamuruiSgtkYgtkUmiscUsetUpadding); FUNCODEDEF(YsamuruiSgtkYgtkUmiscUsetUpadding) { P misc_, xpad_, ypad_; GtkMisc *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(misc_, 0); { arg1 = (GtkMisc *)YPlu(misc_); } ARG(xpad_, 1); { arg2 = (signed)YPiu(xpad_); } ARG(ypad_, 2); { arg3 = (signed)YPiu(ypad_); } gtk_misc_set_padding(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUmiscUgetUpadding,"samurui/gtk","gtk_misc_get_padding"); FUNFOR(YsamuruiSgtkYgtkUmiscUgetUpadding); FUNCODEDEF(YsamuruiSgtkYgtkUmiscUgetUpadding) { P misc_, xpad_, ypad_; GtkMisc *arg1 ; gint *arg2 ; gint *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(misc_, 0); { arg1 = (GtkMisc *)YPlu(misc_); } ARG(xpad_, 1); { arg2 = (gint *)YPlu(xpad_); } ARG(ypad_, 2); { arg3 = (gint *)YPlu(ypad_); } gtk_misc_get_padding(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUnew,"samurui/gtk","gtk_notebook_new"); FUNFOR(YsamuruiSgtkYgtkUnotebookUnew); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_notebook_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUappendUpage,"samurui/gtk","gtk_notebook_append_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUappendUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUappendUpage) { P notebook_, child_, tab_label_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } gtk_notebook_append_page(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUappendUpageUmenu,"samurui/gtk","gtk_notebook_append_page_menu"); FUNFOR(YsamuruiSgtkYgtkUnotebookUappendUpageUmenu); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUappendUpageUmenu) { P notebook_, child_, tab_label_, menu_label_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; GtkWidget *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } ARG(menu_label_, 3); { arg4 = (GtkWidget *)YPlu(menu_label_); } gtk_notebook_append_page_menu(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUprependUpage,"samurui/gtk","gtk_notebook_prepend_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUprependUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUprependUpage) { P notebook_, child_, tab_label_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } gtk_notebook_prepend_page(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUprependUpageUmenu,"samurui/gtk","gtk_notebook_prepend_page_menu"); FUNFOR(YsamuruiSgtkYgtkUnotebookUprependUpageUmenu); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUprependUpageUmenu) { P notebook_, child_, tab_label_, menu_label_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; GtkWidget *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } ARG(menu_label_, 3); { arg4 = (GtkWidget *)YPlu(menu_label_); } gtk_notebook_prepend_page_menu(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUinsertUpage,"samurui/gtk","gtk_notebook_insert_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUinsertUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUinsertUpage) { P notebook_, child_, tab_label_, position_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } ARG(position_, 3); { arg4 = (signed)YPiu(position_); } gtk_notebook_insert_page(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUinsertUpageUmenu,"samurui/gtk","gtk_notebook_insert_page_menu"); FUNFOR(YsamuruiSgtkYgtkUnotebookUinsertUpageUmenu); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUinsertUpageUmenu) { P notebook_, child_, tab_label_, menu_label_, position_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; GtkWidget *arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } ARG(menu_label_, 3); { arg4 = (GtkWidget *)YPlu(menu_label_); } ARG(position_, 4); { arg5 = (signed)YPiu(position_); } gtk_notebook_insert_page_menu(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUremoveUpage,"samurui/gtk","gtk_notebook_remove_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUremoveUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUremoveUpage) { P notebook_, page_num_; GtkNotebook *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(page_num_, 1); { arg2 = (signed)YPiu(page_num_); } gtk_notebook_remove_page(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUcurrentUpage,"samurui/gtk","gtk_notebook_get_current_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUcurrentUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUcurrentUpage) { P notebook_; GtkNotebook *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } result = (gint )gtk_notebook_get_current_page(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUnthUpage,"samurui/gtk","gtk_notebook_get_nth_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUnthUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUnthUpage) { P notebook_, page_num_; GtkNotebook *arg1 ; gint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(page_num_, 1); { arg2 = (signed)YPiu(page_num_); } result = (GtkWidget *)gtk_notebook_get_nth_page(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUpageUnum,"samurui/gtk","gtk_notebook_page_num"); FUNFOR(YsamuruiSgtkYgtkUnotebookUpageUnum); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUpageUnum) { P notebook_, child_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (gint )gtk_notebook_page_num(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUcurrentUpage,"samurui/gtk","gtk_notebook_set_current_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUcurrentUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUcurrentUpage) { P notebook_, page_num_; GtkNotebook *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(page_num_, 1); { arg2 = (signed)YPiu(page_num_); } gtk_notebook_set_current_page(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUnextUpage,"samurui/gtk","gtk_notebook_next_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUnextUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUnextUpage) { P notebook_; GtkNotebook *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } gtk_notebook_next_page(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUprevUpage,"samurui/gtk","gtk_notebook_prev_page"); FUNFOR(YsamuruiSgtkYgtkUnotebookUprevUpage); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUprevUpage) { P notebook_; GtkNotebook *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } gtk_notebook_prev_page(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUshowUborder,"samurui/gtk","gtk_notebook_set_show_border"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUshowUborder); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUshowUborder) { P notebook_, show_border_; GtkNotebook *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(show_border_, 1); { arg2 = (signed)YPiu(show_border_); } gtk_notebook_set_show_border(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUshowUborder,"samurui/gtk","gtk_notebook_get_show_border"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUshowUborder); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUshowUborder) { P notebook_; GtkNotebook *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } result = (gboolean )gtk_notebook_get_show_border(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUshowUtabs,"samurui/gtk","gtk_notebook_set_show_tabs"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUshowUtabs); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUshowUtabs) { P notebook_, show_tabs_; GtkNotebook *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(show_tabs_, 1); { arg2 = (signed)YPiu(show_tabs_); } gtk_notebook_set_show_tabs(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUshowUtabs,"samurui/gtk","gtk_notebook_get_show_tabs"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUshowUtabs); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUshowUtabs) { P notebook_; GtkNotebook *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } result = (gboolean )gtk_notebook_get_show_tabs(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUpos,"samurui/gtk","gtk_notebook_set_tab_pos"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUpos); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUpos) { P notebook_, pos_; GtkNotebook *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(pos_, 1); { arg2 = (int)YPiu(pos_); } gtk_notebook_set_tab_pos(arg1,(GtkPositionType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUtabUpos,"samurui/gtk","gtk_notebook_get_tab_pos"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUtabUpos); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUtabUpos) { P notebook_; GtkNotebook *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } result = (int )gtk_notebook_get_tab_pos(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUhomogeneousUtabs,"samurui/gtk","gtk_notebook_set_homogeneous_tabs"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUhomogeneousUtabs); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUhomogeneousUtabs) { P notebook_, homogeneous_; GtkNotebook *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(homogeneous_, 1); { arg2 = (signed)YPiu(homogeneous_); } gtk_notebook_set_homogeneous_tabs(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUborder,"samurui/gtk","gtk_notebook_set_tab_border"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUborder); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUborder) { P notebook_, border_width_; GtkNotebook *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(border_width_, 1); { arg2 = (unsigned)YPiu(border_width_); } gtk_notebook_set_tab_border(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUhborder,"samurui/gtk","gtk_notebook_set_tab_hborder"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUhborder); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUhborder) { P notebook_, tab_hborder_; GtkNotebook *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(tab_hborder_, 1); { arg2 = (unsigned)YPiu(tab_hborder_); } gtk_notebook_set_tab_hborder(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUvborder,"samurui/gtk","gtk_notebook_set_tab_vborder"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUvborder); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUvborder) { P notebook_, tab_vborder_; GtkNotebook *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(tab_vborder_, 1); { arg2 = (unsigned)YPiu(tab_vborder_); } gtk_notebook_set_tab_vborder(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUscrollable,"samurui/gtk","gtk_notebook_set_scrollable"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUscrollable); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUscrollable) { P notebook_, scrollable_; GtkNotebook *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(scrollable_, 1); { arg2 = (signed)YPiu(scrollable_); } gtk_notebook_set_scrollable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUscrollable,"samurui/gtk","gtk_notebook_get_scrollable"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUscrollable); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUscrollable) { P notebook_; GtkNotebook *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } result = (gboolean )gtk_notebook_get_scrollable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUpopupUenable,"samurui/gtk","gtk_notebook_popup_enable"); FUNFOR(YsamuruiSgtkYgtkUnotebookUpopupUenable); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUpopupUenable) { P notebook_; GtkNotebook *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } gtk_notebook_popup_enable(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUpopupUdisable,"samurui/gtk","gtk_notebook_popup_disable"); FUNFOR(YsamuruiSgtkYgtkUnotebookUpopupUdisable); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUpopupUdisable) { P notebook_; GtkNotebook *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } gtk_notebook_popup_disable(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUtabUlabel,"samurui/gtk","gtk_notebook_get_tab_label"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUtabUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUtabUlabel) { P notebook_, child_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (GtkWidget *)gtk_notebook_get_tab_label(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUlabel,"samurui/gtk","gtk_notebook_set_tab_label"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUlabel) { P notebook_, child_, tab_label_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_label_, 2); { arg3 = (GtkWidget *)YPlu(tab_label_); } gtk_notebook_set_tab_label(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUtext,"samurui/gtk","gtk_notebook_set_tab_label_text"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUtext); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUtext) { P notebook_, child_, tab_text_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gchar *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(tab_text_, 2); { arg3 = (char *)YPsu(tab_text_); } gtk_notebook_set_tab_label_text(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUtabUlabelUtext,"samurui/gtk","gtk_notebook_get_tab_label_text"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUtabUlabelUtext); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUtabUlabelUtext) { P notebook_, child_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (gchar *)gtk_notebook_get_tab_label_text(arg1,arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabel,"samurui/gtk","gtk_notebook_get_menu_label"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabel) { P notebook_, child_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (GtkWidget *)gtk_notebook_get_menu_label(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabel,"samurui/gtk","gtk_notebook_set_menu_label"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabel) { P notebook_, child_, menu_label_; GtkNotebook *arg1 ; GtkWidget *arg2 ; GtkWidget *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(menu_label_, 2); { arg3 = (GtkWidget *)YPlu(menu_label_); } gtk_notebook_set_menu_label(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabelUtext,"samurui/gtk","gtk_notebook_set_menu_label_text"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabelUtext); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabelUtext) { P notebook_, child_, menu_text_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gchar *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(menu_text_, 2); { arg3 = (char *)YPsu(menu_text_); } gtk_notebook_set_menu_label_text(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabelUtext,"samurui/gtk","gtk_notebook_get_menu_label_text"); FUNFOR(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabelUtext); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabelUtext) { P notebook_, child_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (gchar *)gtk_notebook_get_menu_label_text(arg1,arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUqueryUtabUlabelUpacking,"samurui/gtk","gtk_notebook_query_tab_label_packing"); FUNFOR(YsamuruiSgtkYgtkUnotebookUqueryUtabUlabelUpacking); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUqueryUtabUlabelUpacking) { P notebook_, child_, expand_, fill_, pack_type_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gboolean *arg3 ; gboolean *arg4 ; GtkPackType *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(expand_, 2); { arg3 = (gboolean *)YPlu(expand_); } ARG(fill_, 3); { arg4 = (gboolean *)YPlu(fill_); } ARG(pack_type_, 4); { arg5 = (GtkPackType *)YPlu(pack_type_); } gtk_notebook_query_tab_label_packing(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUpacking,"samurui/gtk","gtk_notebook_set_tab_label_packing"); FUNFOR(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUpacking); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUpacking) { P notebook_, child_, expand_, fill_, pack_type_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; gboolean arg4 ; int arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(expand_, 2); { arg3 = (signed)YPiu(expand_); } ARG(fill_, 3); { arg4 = (signed)YPiu(fill_); } ARG(pack_type_, 4); { arg5 = (int)YPiu(pack_type_); } gtk_notebook_set_tab_label_packing(arg1,arg2,arg3,arg4,(GtkPackType )arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUnotebookUreorderUchild,"samurui/gtk","gtk_notebook_reorder_child"); FUNFOR(YsamuruiSgtkYgtkUnotebookUreorderUchild); FUNCODEDEF(YsamuruiSgtkYgtkUnotebookUreorderUchild) { P notebook_, child_, position_; GtkNotebook *arg1 ; GtkWidget *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(notebook_, 0); { arg1 = (GtkNotebook *)YPlu(notebook_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(position_, 2); { arg3 = (signed)YPiu(position_); } gtk_notebook_reorder_child(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUoptionUmenuUnew,"samurui/gtk","gtk_option_menu_new"); FUNFOR(YsamuruiSgtkYgtkUoptionUmenuUnew); FUNCODEDEF(YsamuruiSgtkYgtkUoptionUmenuUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_option_menu_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUoptionUmenuUgetUmenu,"samurui/gtk","gtk_option_menu_get_menu"); FUNFOR(YsamuruiSgtkYgtkUoptionUmenuUgetUmenu); FUNCODEDEF(YsamuruiSgtkYgtkUoptionUmenuUgetUmenu) { P option_menu_; GtkOptionMenu *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(option_menu_, 0); { arg1 = (GtkOptionMenu *)YPlu(option_menu_); } result = (GtkWidget *)gtk_option_menu_get_menu(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUoptionUmenuUsetUmenu,"samurui/gtk","gtk_option_menu_set_menu"); FUNFOR(YsamuruiSgtkYgtkUoptionUmenuUsetUmenu); FUNCODEDEF(YsamuruiSgtkYgtkUoptionUmenuUsetUmenu) { P option_menu_, menu_; GtkOptionMenu *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(option_menu_, 0); { arg1 = (GtkOptionMenu *)YPlu(option_menu_); } ARG(menu_, 1); { arg2 = (GtkWidget *)YPlu(menu_); } gtk_option_menu_set_menu(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUoptionUmenuUremoveUmenu,"samurui/gtk","gtk_option_menu_remove_menu"); FUNFOR(YsamuruiSgtkYgtkUoptionUmenuUremoveUmenu); FUNCODEDEF(YsamuruiSgtkYgtkUoptionUmenuUremoveUmenu) { P option_menu_; GtkOptionMenu *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(option_menu_, 0); { arg1 = (GtkOptionMenu *)YPlu(option_menu_); } gtk_option_menu_remove_menu(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUoptionUmenuUgetUhistory,"samurui/gtk","gtk_option_menu_get_history"); FUNFOR(YsamuruiSgtkYgtkUoptionUmenuUgetUhistory); FUNCODEDEF(YsamuruiSgtkYgtkUoptionUmenuUgetUhistory) { P option_menu_; GtkOptionMenu *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(option_menu_, 0); { arg1 = (GtkOptionMenu *)YPlu(option_menu_); } result = (gint )gtk_option_menu_get_history(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUoptionUmenuUsetUhistory,"samurui/gtk","gtk_option_menu_set_history"); FUNFOR(YsamuruiSgtkYgtkUoptionUmenuUsetUhistory); FUNCODEDEF(YsamuruiSgtkYgtkUoptionUmenuUsetUhistory) { P option_menu_, index_; GtkOptionMenu *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(option_menu_, 0); { arg1 = (GtkOptionMenu *)YPlu(option_menu_); } ARG(index_, 1); { arg2 = (unsigned)YPiu(index_); } gtk_option_menu_set_history(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpanedUadd1,"samurui/gtk","gtk_paned_add1"); FUNFOR(YsamuruiSgtkYgtkUpanedUadd1); FUNCODEDEF(YsamuruiSgtkYgtkUpanedUadd1) { P paned_, child_; GtkPaned *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(paned_, 0); { arg1 = (GtkPaned *)YPlu(paned_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_paned_add1(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpanedUadd2,"samurui/gtk","gtk_paned_add2"); FUNFOR(YsamuruiSgtkYgtkUpanedUadd2); FUNCODEDEF(YsamuruiSgtkYgtkUpanedUadd2) { P paned_, child_; GtkPaned *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(paned_, 0); { arg1 = (GtkPaned *)YPlu(paned_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_paned_add2(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpanedUpack1,"samurui/gtk","gtk_paned_pack1"); FUNFOR(YsamuruiSgtkYgtkUpanedUpack1); FUNCODEDEF(YsamuruiSgtkYgtkUpanedUpack1) { P paned_, child_, resize_, shrink_; GtkPaned *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; gboolean arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(paned_, 0); { arg1 = (GtkPaned *)YPlu(paned_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(resize_, 2); { arg3 = (signed)YPiu(resize_); } ARG(shrink_, 3); { arg4 = (signed)YPiu(shrink_); } gtk_paned_pack1(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpanedUpack2,"samurui/gtk","gtk_paned_pack2"); FUNFOR(YsamuruiSgtkYgtkUpanedUpack2); FUNCODEDEF(YsamuruiSgtkYgtkUpanedUpack2) { P paned_, child_, resize_, shrink_; GtkPaned *arg1 ; GtkWidget *arg2 ; gboolean arg3 ; gboolean arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(paned_, 0); { arg1 = (GtkPaned *)YPlu(paned_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(resize_, 2); { arg3 = (signed)YPiu(resize_); } ARG(shrink_, 3); { arg4 = (signed)YPiu(shrink_); } gtk_paned_pack2(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpanedUgetUposition,"samurui/gtk","gtk_paned_get_position"); FUNFOR(YsamuruiSgtkYgtkUpanedUgetUposition); FUNCODEDEF(YsamuruiSgtkYgtkUpanedUgetUposition) { P paned_; GtkPaned *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(paned_, 0); { arg1 = (GtkPaned *)YPlu(paned_); } result = (gint )gtk_paned_get_position(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpanedUsetUposition,"samurui/gtk","gtk_paned_set_position"); FUNFOR(YsamuruiSgtkYgtkUpanedUsetUposition); FUNCODEDEF(YsamuruiSgtkYgtkUpanedUsetUposition) { P paned_, position_; GtkPaned *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(paned_, 0); { arg1 = (GtkPaned *)YPlu(paned_); } ARG(position_, 1); { arg2 = (signed)YPiu(position_); } gtk_paned_set_position(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpixmapUnew,"samurui/gtk","gtk_pixmap_new"); FUNFOR(YsamuruiSgtkYgtkUpixmapUnew); FUNCODEDEF(YsamuruiSgtkYgtkUpixmapUnew) { P pixmap_, mask_; GdkPixmap *arg1 ; GdkBitmap *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixmap_, 0); { arg1 = (GdkPixmap *)YPlu(pixmap_); } ARG(mask_, 1); { arg2 = (GdkBitmap *)YPlu(mask_); } result = (GtkWidget *)gtk_pixmap_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpixmapUset,"samurui/gtk","gtk_pixmap_set"); FUNFOR(YsamuruiSgtkYgtkUpixmapUset); FUNCODEDEF(YsamuruiSgtkYgtkUpixmapUset) { P pixmap_, val_, mask_; GtkPixmap *arg1 ; GdkPixmap *arg2 ; GdkBitmap *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixmap_, 0); { arg1 = (GtkPixmap *)YPlu(pixmap_); } ARG(val_, 1); { arg2 = (GdkPixmap *)YPlu(val_); } ARG(mask_, 2); { arg3 = (GdkBitmap *)YPlu(mask_); } gtk_pixmap_set(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpixmapUget,"samurui/gtk","gtk_pixmap_get"); FUNFOR(YsamuruiSgtkYgtkUpixmapUget); FUNCODEDEF(YsamuruiSgtkYgtkUpixmapUget) { P pixmap_, val_, mask_; GtkPixmap *arg1 ; GdkPixmap **arg2 ; GdkBitmap **arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixmap_, 0); { arg1 = (GtkPixmap *)YPlu(pixmap_); } ARG(val_, 1); { arg2 = (GdkPixmap **)YPlu(val_); } ARG(mask_, 2); { arg3 = (GdkBitmap **)YPlu(mask_); } gtk_pixmap_get(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpixmapUsetUbuildUinsensitive,"samurui/gtk","gtk_pixmap_set_build_insensitive"); FUNFOR(YsamuruiSgtkYgtkUpixmapUsetUbuildUinsensitive); FUNCODEDEF(YsamuruiSgtkYgtkUpixmapUsetUbuildUinsensitive) { P pixmap_, build_; GtkPixmap *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pixmap_, 0); { arg1 = (GtkPixmap *)YPlu(pixmap_); } ARG(build_, 1); { arg2 = (signed)YPiu(build_); } gtk_pixmap_set_build_insensitive(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUplugUconstruct,"samurui/gtk","gtk_plug_construct"); FUNFOR(YsamuruiSgtkYgtkUplugUconstruct); FUNCODEDEF(YsamuruiSgtkYgtkUplugUconstruct) { P plug_, socket_id_; GtkPlug *arg1 ; GdkNativeWindow arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(plug_, 0); { arg1 = (GtkPlug *)YPlu(plug_); } ARG(socket_id_, 1); { arg2 = (GdkNativeWindow )YPlu(socket_id_); } gtk_plug_construct(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUplugUnew,"samurui/gtk","gtk_plug_new"); FUNFOR(YsamuruiSgtkYgtkUplugUnew); FUNCODEDEF(YsamuruiSgtkYgtkUplugUnew) { P socket_id_; GdkNativeWindow arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(socket_id_, 0); { arg1 = (GdkNativeWindow )YPlu(socket_id_); } result = (GtkWidget *)gtk_plug_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUplugUgetUid,"samurui/gtk","gtk_plug_get_id"); FUNFOR(YsamuruiSgtkYgtkUplugUgetUid); FUNCODEDEF(YsamuruiSgtkYgtkUplugUgetUid) { P plug_; GtkPlug *arg1 ; GdkNativeWindow result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(plug_, 0); { arg1 = (GtkPlug *)YPlu(plug_); } result = (GdkNativeWindow )gtk_plug_get_id(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUuninit,"samurui/gtk","gtk_preview_uninit"); FUNFOR(YsamuruiSgtkYgtkUpreviewUuninit); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUuninit) { P retval = (P)YPib((P)0); LINK_STACK(); gtk_preview_uninit(); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUnew,"samurui/gtk","gtk_preview_new"); FUNFOR(YsamuruiSgtkYgtkUpreviewUnew); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUnew) { P type_; int arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(type_, 0); { arg1 = (int)YPiu(type_); } result = (GtkWidget *)gtk_preview_new((GtkPreviewType )arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsize,"samurui/gtk","gtk_preview_size"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsize); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsize) { P preview_, width_, height_; GtkPreview *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(preview_, 0); { arg1 = (GtkPreview *)YPlu(preview_); } ARG(width_, 1); { arg2 = (signed)YPiu(width_); } ARG(height_, 2); { arg3 = (signed)YPiu(height_); } gtk_preview_size(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUput,"samurui/gtk","gtk_preview_put"); FUNFOR(YsamuruiSgtkYgtkUpreviewUput); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUput) { P preview_, window_, gc_, srcx_, srcy_, destx_, desty_, width_, height_; GtkPreview *arg1 ; GdkWindow *arg2 ; GdkGC *arg3 ; gint arg4 ; gint arg5 ; gint arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(preview_, 0); { arg1 = (GtkPreview *)YPlu(preview_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(gc_, 2); { arg3 = (GdkGC *)YPlu(gc_); } ARG(srcx_, 3); { arg4 = (signed)YPiu(srcx_); } ARG(srcy_, 4); { arg5 = (signed)YPiu(srcy_); } ARG(destx_, 5); { arg6 = (signed)YPiu(destx_); } ARG(desty_, 6); { arg7 = (signed)YPiu(desty_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } gtk_preview_put(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUdrawUrow,"samurui/gtk","gtk_preview_draw_row"); FUNFOR(YsamuruiSgtkYgtkUpreviewUdrawUrow); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUdrawUrow) { P preview_, data_, x_, y_, w_; GtkPreview *arg1 ; guchar *arg2 ; gint arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(preview_, 0); { arg1 = (GtkPreview *)YPlu(preview_); } ARG(data_, 1); { arg2 = (guchar *)YPlu(data_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } ARG(w_, 4); { arg5 = (signed)YPiu(w_); } gtk_preview_draw_row(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsetUexpand,"samurui/gtk","gtk_preview_set_expand"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsetUexpand); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsetUexpand) { P preview_, expand_; GtkPreview *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(preview_, 0); { arg1 = (GtkPreview *)YPlu(preview_); } ARG(expand_, 1); { arg2 = (signed)YPiu(expand_); } gtk_preview_set_expand(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsetUgamma,"samurui/gtk","gtk_preview_set_gamma"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsetUgamma); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsetUgamma) { P gamma_; double arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gamma_, 0); { arg1 = (double)((float)YPfu(gamma_)); } gtk_preview_set_gamma(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsetUcolorUcube,"samurui/gtk","gtk_preview_set_color_cube"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsetUcolorUcube); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsetUcolorUcube) { P nred_shades_, ngreen_shades_, nblue_shades_, ngray_shades_; guint arg1 ; guint arg2 ; guint arg3 ; guint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(nred_shades_, 0); { arg1 = (unsigned)YPiu(nred_shades_); } ARG(ngreen_shades_, 1); { arg2 = (unsigned)YPiu(ngreen_shades_); } ARG(nblue_shades_, 2); { arg3 = (unsigned)YPiu(nblue_shades_); } ARG(ngray_shades_, 3); { arg4 = (unsigned)YPiu(ngray_shades_); } gtk_preview_set_color_cube(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsetUinstallUcmap,"samurui/gtk","gtk_preview_set_install_cmap"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsetUinstallUcmap); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsetUinstallUcmap) { P install_cmap_; gint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(install_cmap_, 0); { arg1 = (signed)YPiu(install_cmap_); } gtk_preview_set_install_cmap(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsetUreserved,"samurui/gtk","gtk_preview_set_reserved"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsetUreserved); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsetUreserved) { P nreserved_; gint arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(nreserved_, 0); { arg1 = (signed)YPiu(nreserved_); } gtk_preview_set_reserved(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpreviewUsetUdither,"samurui/gtk","gtk_preview_set_dither"); FUNFOR(YsamuruiSgtkYgtkUpreviewUsetUdither); FUNCODEDEF(YsamuruiSgtkYgtkUpreviewUsetUdither) { P preview_, dither_; GtkPreview *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(preview_, 0); { arg1 = (GtkPreview *)YPlu(preview_); } ARG(dither_, 1); { arg2 = (int)YPiu(dither_); } gtk_preview_set_dither(arg1,(GdkRgbDither )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUshowUtext,"samurui/gtk","gtk_progress_set_show_text"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUshowUtext); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUshowUtext) { P progress_, show_text_; GtkProgress *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(show_text_, 1); { arg2 = (signed)YPiu(show_text_); } gtk_progress_set_show_text(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUtextUalignment,"samurui/gtk","gtk_progress_set_text_alignment"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUtextUalignment); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUtextUalignment) { P progress_, x_align_, y_align_; GtkProgress *arg1 ; gfloat arg2 ; gfloat arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(x_align_, 1); { arg2 = (float)YPfu(x_align_); } ARG(y_align_, 2); { arg3 = (float)YPfu(y_align_); } gtk_progress_set_text_alignment(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUformatUstring,"samurui/gtk","gtk_progress_set_format_string"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUformatUstring); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUformatUstring) { P progress_, format_; GtkProgress *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(format_, 1); { arg2 = (char *)YPsu(format_); } gtk_progress_set_format_string(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUadjustment,"samurui/gtk","gtk_progress_set_adjustment"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUadjustment) { P progress_, adjustment_; GtkProgress *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_progress_set_adjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUconfigure,"samurui/gtk","gtk_progress_configure"); FUNFOR(YsamuruiSgtkYgtkUprogressUconfigure); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUconfigure) { P progress_, value_, min_, max_; GtkProgress *arg1 ; gdouble arg2 ; gdouble arg3 ; gdouble arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } ARG(min_, 2); { arg3 = (double)((float)YPfu(min_)); } ARG(max_, 3); { arg4 = (double)((float)YPfu(max_)); } gtk_progress_configure(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUpercentage,"samurui/gtk","gtk_progress_set_percentage"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUpercentage); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUpercentage) { P progress_, percentage_; GtkProgress *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(percentage_, 1); { arg2 = (double)((float)YPfu(percentage_)); } gtk_progress_set_percentage(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUvalue,"samurui/gtk","gtk_progress_set_value"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUvalue) { P progress_, value_; GtkProgress *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } gtk_progress_set_value(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUgetUvalue,"samurui/gtk","gtk_progress_get_value"); FUNFOR(YsamuruiSgtkYgtkUprogressUgetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUgetUvalue) { P progress_; GtkProgress *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } result = (gdouble )gtk_progress_get_value(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUsetUactivityUmode,"samurui/gtk","gtk_progress_set_activity_mode"); FUNFOR(YsamuruiSgtkYgtkUprogressUsetUactivityUmode); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUsetUactivityUmode) { P progress_, activity_mode_; GtkProgress *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(activity_mode_, 1); { arg2 = (signed)YPiu(activity_mode_); } gtk_progress_set_activity_mode(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUgetUcurrentUtext,"samurui/gtk","gtk_progress_get_current_text"); FUNFOR(YsamuruiSgtkYgtkUprogressUgetUcurrentUtext); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUgetUcurrentUtext) { P progress_; GtkProgress *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } result = (gchar *)gtk_progress_get_current_text(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUgetUtextUfromUvalue,"samurui/gtk","gtk_progress_get_text_from_value"); FUNFOR(YsamuruiSgtkYgtkUprogressUgetUtextUfromUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUgetUtextUfromUvalue) { P progress_, value_; GtkProgress *arg1 ; gdouble arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } result = (gchar *)gtk_progress_get_text_from_value(arg1,arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUgetUcurrentUpercentage,"samurui/gtk","gtk_progress_get_current_percentage"); FUNFOR(YsamuruiSgtkYgtkUprogressUgetUcurrentUpercentage); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUgetUcurrentUpercentage) { P progress_; GtkProgress *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } result = (gdouble )gtk_progress_get_current_percentage(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUgetUpercentageUfromUvalue,"samurui/gtk","gtk_progress_get_percentage_from_value"); FUNFOR(YsamuruiSgtkYgtkUprogressUgetUpercentageUfromUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUgetUpercentageUfromUvalue) { P progress_, value_; GtkProgress *arg1 ; gdouble arg2 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(progress_, 0); { arg1 = (GtkProgress *)YPlu(progress_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } result = (gdouble )gtk_progress_get_percentage_from_value(arg1,arg2); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUnew,"samurui/gtk","gtk_progress_bar_new"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_progress_bar_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUpulse,"samurui/gtk","gtk_progress_bar_pulse"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUpulse); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUpulse) { P pbar_; GtkProgressBar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } gtk_progress_bar_pulse(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUsetUtext,"samurui/gtk","gtk_progress_bar_set_text"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUsetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUsetUtext) { P pbar_, text_; GtkProgressBar *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } gtk_progress_bar_set_text(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUsetUfraction,"samurui/gtk","gtk_progress_bar_set_fraction"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUsetUfraction); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUsetUfraction) { P pbar_, fraction_; GtkProgressBar *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } ARG(fraction_, 1); { arg2 = (double)((float)YPfu(fraction_)); } gtk_progress_bar_set_fraction(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUsetUpulseUstep,"samurui/gtk","gtk_progress_bar_set_pulse_step"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUsetUpulseUstep); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUsetUpulseUstep) { P pbar_, fraction_; GtkProgressBar *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } ARG(fraction_, 1); { arg2 = (double)((float)YPfu(fraction_)); } gtk_progress_bar_set_pulse_step(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUsetUorientation,"samurui/gtk","gtk_progress_bar_set_orientation"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUsetUorientation); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUsetUorientation) { P pbar_, orientation_; GtkProgressBar *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } ARG(orientation_, 1); { arg2 = (int)YPiu(orientation_); } gtk_progress_bar_set_orientation(arg1,(GtkProgressBarOrientation )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUgetUtext,"samurui/gtk","gtk_progress_bar_get_text"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUgetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUgetUtext) { P pbar_; GtkProgressBar *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } result = (gchar *)gtk_progress_bar_get_text(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUgetUfraction,"samurui/gtk","gtk_progress_bar_get_fraction"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUgetUfraction); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUgetUfraction) { P pbar_; GtkProgressBar *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } result = (gdouble )gtk_progress_bar_get_fraction(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUgetUpulseUstep,"samurui/gtk","gtk_progress_bar_get_pulse_step"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUgetUpulseUstep); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUgetUpulseUstep) { P pbar_; GtkProgressBar *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } result = (gdouble )gtk_progress_bar_get_pulse_step(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUprogressUbarUgetUorientation,"samurui/gtk","gtk_progress_bar_get_orientation"); FUNFOR(YsamuruiSgtkYgtkUprogressUbarUgetUorientation); FUNCODEDEF(YsamuruiSgtkYgtkUprogressUbarUgetUorientation) { P pbar_; GtkProgressBar *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(pbar_, 0); { arg1 = (GtkProgressBar *)YPlu(pbar_); } result = (int )gtk_progress_bar_get_orientation(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUnew,"samurui/gtk","gtk_radio_button_new"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUnew); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUnew) { P group_; GSList *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GSList *)YPlu(group_); } result = (GtkWidget *)gtk_radio_button_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUnewUfromUwidget,"samurui/gtk","gtk_radio_button_new_from_widget"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUnewUfromUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUnewUfromUwidget) { P group_; GtkRadioButton *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GtkRadioButton *)YPlu(group_); } result = (GtkWidget *)gtk_radio_button_new_from_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabel,"samurui/gtk","gtk_radio_button_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabel) { P group_, label_; GSList *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GSList *)YPlu(group_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_radio_button_new_with_label(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabelUfromUwidget,"samurui/gtk","gtk_radio_button_new_with_label_from_widget"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabelUfromUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabelUfromUwidget) { P group_, label_; GtkRadioButton *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GtkRadioButton *)YPlu(group_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_radio_button_new_with_label_from_widget(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonic,"samurui/gtk","gtk_radio_button_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonic) { P group_, label_; GSList *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GSList *)YPlu(group_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_radio_button_new_with_mnemonic(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonicUfromUwidget,"samurui/gtk","gtk_radio_button_new_with_mnemonic_from_widget"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonicUfromUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonicUfromUwidget) { P group_, label_; GtkRadioButton *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GtkRadioButton *)YPlu(group_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_radio_button_new_with_mnemonic_from_widget(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUgetUgroup,"samurui/gtk","gtk_radio_button_get_group"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUgetUgroup); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUgetUgroup) { P radio_button_; GtkRadioButton *arg1 ; GSList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(radio_button_, 0); { arg1 = (GtkRadioButton *)YPlu(radio_button_); } result = (GSList *)gtk_radio_button_get_group(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUbuttonUsetUgroup,"samurui/gtk","gtk_radio_button_set_group"); FUNFOR(YsamuruiSgtkYgtkUradioUbuttonUsetUgroup); FUNCODEDEF(YsamuruiSgtkYgtkUradioUbuttonUsetUgroup) { P radio_button_, group_; GtkRadioButton *arg1 ; GSList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(radio_button_, 0); { arg1 = (GtkRadioButton *)YPlu(radio_button_); } ARG(group_, 1); { arg2 = (GSList *)YPlu(group_); } gtk_radio_button_set_group(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUmenuUitemUnew,"samurui/gtk","gtk_radio_menu_item_new"); FUNFOR(YsamuruiSgtkYgtkUradioUmenuUitemUnew); FUNCODEDEF(YsamuruiSgtkYgtkUradioUmenuUitemUnew) { P group_; GSList *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GSList *)YPlu(group_); } result = (GtkWidget *)gtk_radio_menu_item_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUlabel,"samurui/gtk","gtk_radio_menu_item_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUlabel) { P group_, label_; GSList *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GSList *)YPlu(group_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_radio_menu_item_new_with_label(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUmnemonic,"samurui/gtk","gtk_radio_menu_item_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUmnemonic) { P group_, label_; GSList *arg1 ; gchar *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(group_, 0); { arg1 = (GSList *)YPlu(group_); } ARG(label_, 1); { arg2 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_radio_menu_item_new_with_mnemonic(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUmenuUitemUgetUgroup,"samurui/gtk","gtk_radio_menu_item_get_group"); FUNFOR(YsamuruiSgtkYgtkUradioUmenuUitemUgetUgroup); FUNCODEDEF(YsamuruiSgtkYgtkUradioUmenuUitemUgetUgroup) { P radio_menu_item_; GtkRadioMenuItem *arg1 ; GSList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(radio_menu_item_, 0); { arg1 = (GtkRadioMenuItem *)YPlu(radio_menu_item_); } result = (GSList *)gtk_radio_menu_item_get_group(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUradioUmenuUitemUsetUgroup,"samurui/gtk","gtk_radio_menu_item_set_group"); FUNFOR(YsamuruiSgtkYgtkUradioUmenuUitemUsetUgroup); FUNCODEDEF(YsamuruiSgtkYgtkUradioUmenuUitemUsetUgroup) { P radio_menu_item_, group_; GtkRadioMenuItem *arg1 ; GSList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(radio_menu_item_, 0); { arg1 = (GtkRadioMenuItem *)YPlu(radio_menu_item_); } ARG(group_, 1); { arg2 = (GSList *)YPlu(group_); } gtk_radio_menu_item_set_group(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUsetUupdateUpolicy,"samurui/gtk","gtk_range_set_update_policy"); FUNFOR(YsamuruiSgtkYgtkUrangeUsetUupdateUpolicy); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUsetUupdateUpolicy) { P range_, policy_; GtkRange *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } ARG(policy_, 1); { arg2 = (int)YPiu(policy_); } gtk_range_set_update_policy(arg1,(GtkUpdateType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUgetUupdateUpolicy,"samurui/gtk","gtk_range_get_update_policy"); FUNFOR(YsamuruiSgtkYgtkUrangeUgetUupdateUpolicy); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUgetUupdateUpolicy) { P range_; GtkRange *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } result = (int )gtk_range_get_update_policy(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUsetUadjustment,"samurui/gtk","gtk_range_set_adjustment"); FUNFOR(YsamuruiSgtkYgtkUrangeUsetUadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUsetUadjustment) { P range_, adjustment_; GtkRange *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_range_set_adjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUgetUadjustment,"samurui/gtk","gtk_range_get_adjustment"); FUNFOR(YsamuruiSgtkYgtkUrangeUgetUadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUgetUadjustment) { P range_; GtkRange *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } result = (GtkAdjustment *)gtk_range_get_adjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUsetUinverted,"samurui/gtk","gtk_range_set_inverted"); FUNFOR(YsamuruiSgtkYgtkUrangeUsetUinverted); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUsetUinverted) { P range_, setting_; GtkRange *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_range_set_inverted(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUgetUinverted,"samurui/gtk","gtk_range_get_inverted"); FUNFOR(YsamuruiSgtkYgtkUrangeUgetUinverted); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUgetUinverted) { P range_; GtkRange *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } result = (gboolean )gtk_range_get_inverted(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUsetUincrements,"samurui/gtk","gtk_range_set_increments"); FUNFOR(YsamuruiSgtkYgtkUrangeUsetUincrements); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUsetUincrements) { P range_, step_, page_; GtkRange *arg1 ; gdouble arg2 ; gdouble arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } ARG(step_, 1); { arg2 = (double)((float)YPfu(step_)); } ARG(page_, 2); { arg3 = (double)((float)YPfu(page_)); } gtk_range_set_increments(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUsetUrange,"samurui/gtk","gtk_range_set_range"); FUNFOR(YsamuruiSgtkYgtkUrangeUsetUrange); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUsetUrange) { P range_, min_, max_; GtkRange *arg1 ; gdouble arg2 ; gdouble arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } ARG(min_, 1); { arg2 = (double)((float)YPfu(min_)); } ARG(max_, 2); { arg3 = (double)((float)YPfu(max_)); } gtk_range_set_range(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUsetUvalue,"samurui/gtk","gtk_range_set_value"); FUNFOR(YsamuruiSgtkYgtkUrangeUsetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUsetUvalue) { P range_, value_; GtkRange *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } gtk_range_set_value(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrangeUgetUvalue,"samurui/gtk","gtk_range_get_value"); FUNFOR(YsamuruiSgtkYgtkUrangeUgetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUrangeUgetUvalue) { P range_; GtkRange *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(range_, 0); { arg1 = (GtkRange *)YPlu(range_); } result = (gdouble )gtk_range_get_value(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrulerUsetUmetric,"samurui/gtk","gtk_ruler_set_metric"); FUNFOR(YsamuruiSgtkYgtkUrulerUsetUmetric); FUNCODEDEF(YsamuruiSgtkYgtkUrulerUsetUmetric) { P ruler_, metric_; GtkRuler *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ruler_, 0); { arg1 = (GtkRuler *)YPlu(ruler_); } ARG(metric_, 1); { arg2 = (int)YPiu(metric_); } gtk_ruler_set_metric(arg1,(GtkMetricType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrulerUsetUrange,"samurui/gtk","gtk_ruler_set_range"); FUNFOR(YsamuruiSgtkYgtkUrulerUsetUrange); FUNCODEDEF(YsamuruiSgtkYgtkUrulerUsetUrange) { P ruler_, lower_, upper_, position_, max_size_; GtkRuler *arg1 ; gdouble arg2 ; gdouble arg3 ; gdouble arg4 ; gdouble arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ruler_, 0); { arg1 = (GtkRuler *)YPlu(ruler_); } ARG(lower_, 1); { arg2 = (double)((float)YPfu(lower_)); } ARG(upper_, 2); { arg3 = (double)((float)YPfu(upper_)); } ARG(position_, 3); { arg4 = (double)((float)YPfu(position_)); } ARG(max_size_, 4); { arg5 = (double)((float)YPfu(max_size_)); } gtk_ruler_set_range(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrulerUdrawUticks,"samurui/gtk","gtk_ruler_draw_ticks"); FUNFOR(YsamuruiSgtkYgtkUrulerUdrawUticks); FUNCODEDEF(YsamuruiSgtkYgtkUrulerUdrawUticks) { P ruler_; GtkRuler *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ruler_, 0); { arg1 = (GtkRuler *)YPlu(ruler_); } gtk_ruler_draw_ticks(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrulerUdrawUpos,"samurui/gtk","gtk_ruler_draw_pos"); FUNFOR(YsamuruiSgtkYgtkUrulerUdrawUpos); FUNCODEDEF(YsamuruiSgtkYgtkUrulerUdrawUpos) { P ruler_; GtkRuler *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ruler_, 0); { arg1 = (GtkRuler *)YPlu(ruler_); } gtk_ruler_draw_pos(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrulerUgetUmetric,"samurui/gtk","gtk_ruler_get_metric"); FUNFOR(YsamuruiSgtkYgtkUrulerUgetUmetric); FUNCODEDEF(YsamuruiSgtkYgtkUrulerUgetUmetric) { P ruler_; GtkRuler *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ruler_, 0); { arg1 = (GtkRuler *)YPlu(ruler_); } result = (int )gtk_ruler_get_metric(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUrulerUgetUrange,"samurui/gtk","gtk_ruler_get_range"); FUNFOR(YsamuruiSgtkYgtkUrulerUgetUrange); FUNCODEDEF(YsamuruiSgtkYgtkUrulerUgetUrange) { P ruler_, lower_, upper_, position_, max_size_; GtkRuler *arg1 ; gdouble *arg2 ; gdouble *arg3 ; gdouble *arg4 ; gdouble *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(ruler_, 0); { arg1 = (GtkRuler *)YPlu(ruler_); } ARG(lower_, 1); { arg2 = (gdouble *)YPlu(lower_); } ARG(upper_, 2); { arg3 = (gdouble *)YPlu(upper_); } ARG(position_, 3); { arg4 = (gdouble *)YPlu(position_); } ARG(max_size_, 4); { arg5 = (gdouble *)YPlu(max_size_); } gtk_ruler_get_range(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscaleUsetUdigits,"samurui/gtk","gtk_scale_set_digits"); FUNFOR(YsamuruiSgtkYgtkUscaleUsetUdigits); FUNCODEDEF(YsamuruiSgtkYgtkUscaleUsetUdigits) { P scale_, digits_; GtkScale *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } ARG(digits_, 1); { arg2 = (signed)YPiu(digits_); } gtk_scale_set_digits(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscaleUgetUdigits,"samurui/gtk","gtk_scale_get_digits"); FUNFOR(YsamuruiSgtkYgtkUscaleUgetUdigits); FUNCODEDEF(YsamuruiSgtkYgtkUscaleUgetUdigits) { P scale_; GtkScale *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } result = (gint )gtk_scale_get_digits(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscaleUsetUdrawUvalue,"samurui/gtk","gtk_scale_set_draw_value"); FUNFOR(YsamuruiSgtkYgtkUscaleUsetUdrawUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUscaleUsetUdrawUvalue) { P scale_, draw_value_; GtkScale *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } ARG(draw_value_, 1); { arg2 = (signed)YPiu(draw_value_); } gtk_scale_set_draw_value(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscaleUgetUdrawUvalue,"samurui/gtk","gtk_scale_get_draw_value"); FUNFOR(YsamuruiSgtkYgtkUscaleUgetUdrawUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUscaleUgetUdrawUvalue) { P scale_; GtkScale *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } result = (gboolean )gtk_scale_get_draw_value(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscaleUsetUvalueUpos,"samurui/gtk","gtk_scale_set_value_pos"); FUNFOR(YsamuruiSgtkYgtkUscaleUsetUvalueUpos); FUNCODEDEF(YsamuruiSgtkYgtkUscaleUsetUvalueUpos) { P scale_, pos_; GtkScale *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } ARG(pos_, 1); { arg2 = (int)YPiu(pos_); } gtk_scale_set_value_pos(arg1,(GtkPositionType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscaleUgetUvalueUpos,"samurui/gtk","gtk_scale_get_value_pos"); FUNFOR(YsamuruiSgtkYgtkUscaleUgetUvalueUpos); FUNCODEDEF(YsamuruiSgtkYgtkUscaleUgetUvalueUpos) { P scale_; GtkScale *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } result = (int )gtk_scale_get_value_pos(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkUscaleUgetUvalueUsize,"samurui/gtk","_gtk_scale_get_value_size"); FUNFOR(YsamuruiSgtkYUgtkUscaleUgetUvalueUsize); FUNCODEDEF(YsamuruiSgtkYUgtkUscaleUgetUvalueUsize) { P scale_; GtkScale *arg1 ; gint *arg2 ; gint *arg3 ; int actualint2 ; int actualint3 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg2 = &actualint2; } { arg3 = &actualint3; } { // ignoring int *OUTPUT for $input arg2 $result $arg 2 } ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } _gtk_scale_get_value_size(arg1,arg2,arg3); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg2); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkUscaleUformatUvalue,"samurui/gtk","_gtk_scale_format_value"); FUNFOR(YsamuruiSgtkYUgtkUscaleUformatUvalue); FUNCODEDEF(YsamuruiSgtkYUgtkUscaleUformatUvalue) { P scale_, value_; GtkScale *arg1 ; gdouble arg2 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scale_, 0); { arg1 = (GtkScale *)YPlu(scale_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } result = (gchar *)_gtk_scale_format_value(arg1,arg2); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUnew,"samurui/gtk","gtk_scrolled_window_new"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUnew); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUnew) { P hadjustment_, vadjustment_; GtkAdjustment *arg1 ; GtkAdjustment *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(hadjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(hadjustment_); } ARG(vadjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(vadjustment_); } result = (GtkWidget *)gtk_scrolled_window_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUsetUhadjustment,"samurui/gtk","gtk_scrolled_window_set_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUsetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUsetUhadjustment) { P scrolled_window_, hadjustment_; GtkScrolledWindow *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(hadjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(hadjustment_); } gtk_scrolled_window_set_hadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUsetUvadjustment,"samurui/gtk","gtk_scrolled_window_set_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUsetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUsetUvadjustment) { P scrolled_window_, hadjustment_; GtkScrolledWindow *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(hadjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(hadjustment_); } gtk_scrolled_window_set_vadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUgetUhadjustment,"samurui/gtk","gtk_scrolled_window_get_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUgetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUgetUhadjustment) { P scrolled_window_; GtkScrolledWindow *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } result = (GtkAdjustment *)gtk_scrolled_window_get_hadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUgetUvadjustment,"samurui/gtk","gtk_scrolled_window_get_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUgetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUgetUvadjustment) { P scrolled_window_; GtkScrolledWindow *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } result = (GtkAdjustment *)gtk_scrolled_window_get_vadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUsetUpolicy,"samurui/gtk","gtk_scrolled_window_set_policy"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUsetUpolicy); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUsetUpolicy) { P scrolled_window_, hscrollbar_policy_, vscrollbar_policy_; GtkScrolledWindow *arg1 ; int arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(hscrollbar_policy_, 1); { arg2 = (int)YPiu(hscrollbar_policy_); } ARG(vscrollbar_policy_, 2); { arg3 = (int)YPiu(vscrollbar_policy_); } gtk_scrolled_window_set_policy(arg1,(GtkPolicyType )arg2,(GtkPolicyType )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUgetUpolicy,"samurui/gtk","gtk_scrolled_window_get_policy"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUgetUpolicy); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUgetUpolicy) { P scrolled_window_, hscrollbar_policy_, vscrollbar_policy_; GtkScrolledWindow *arg1 ; GtkPolicyType *arg2 ; GtkPolicyType *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(hscrollbar_policy_, 1); { arg2 = (GtkPolicyType *)YPlu(hscrollbar_policy_); } ARG(vscrollbar_policy_, 2); { arg3 = (GtkPolicyType *)YPlu(vscrollbar_policy_); } gtk_scrolled_window_get_policy(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUsetUplacement,"samurui/gtk","gtk_scrolled_window_set_placement"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUsetUplacement); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUsetUplacement) { P scrolled_window_, window_placement_; GtkScrolledWindow *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(window_placement_, 1); { arg2 = (int)YPiu(window_placement_); } gtk_scrolled_window_set_placement(arg1,(GtkCornerType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUgetUplacement,"samurui/gtk","gtk_scrolled_window_get_placement"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUgetUplacement); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUgetUplacement) { P scrolled_window_; GtkScrolledWindow *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } result = (int )gtk_scrolled_window_get_placement(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUsetUshadowUtype,"samurui/gtk","gtk_scrolled_window_set_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUsetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUsetUshadowUtype) { P scrolled_window_, type_; GtkScrolledWindow *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_scrolled_window_set_shadow_type(arg1,(GtkShadowType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUgetUshadowUtype,"samurui/gtk","gtk_scrolled_window_get_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUgetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUgetUshadowUtype) { P scrolled_window_; GtkScrolledWindow *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } result = (int )gtk_scrolled_window_get_shadow_type(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUscrolledUwindowUaddUwithUviewport,"samurui/gtk","gtk_scrolled_window_add_with_viewport"); FUNFOR(YsamuruiSgtkYgtkUscrolledUwindowUaddUwithUviewport); FUNCODEDEF(YsamuruiSgtkYgtkUscrolledUwindowUaddUwithUviewport) { P scrolled_window_, child_; GtkScrolledWindow *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(scrolled_window_, 0); { arg1 = (GtkScrolledWindow *)YPlu(scrolled_window_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } gtk_scrolled_window_add_with_viewport(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsocketUnew,"samurui/gtk","gtk_socket_new"); FUNFOR(YsamuruiSgtkYgtkUsocketUnew); FUNCODEDEF(YsamuruiSgtkYgtkUsocketUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_socket_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsocketUaddUid,"samurui/gtk","gtk_socket_add_id"); FUNFOR(YsamuruiSgtkYgtkUsocketUaddUid); FUNCODEDEF(YsamuruiSgtkYgtkUsocketUaddUid) { P socket_, window_id_; GtkSocket *arg1 ; GdkNativeWindow arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(socket_, 0); { arg1 = (GtkSocket *)YPlu(socket_); } ARG(window_id_, 1); { arg2 = (GdkNativeWindow )YPlu(window_id_); } gtk_socket_add_id(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUsocketUgetUid,"samurui/gtk","gtk_socket_get_id"); FUNFOR(YsamuruiSgtkYgtkUsocketUgetUid); FUNCODEDEF(YsamuruiSgtkYgtkUsocketUgetUid) { P socket_; GtkSocket *arg1 ; GdkNativeWindow result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(socket_, 0); { arg1 = (GtkSocket *)YPlu(socket_); } result = (GdkNativeWindow )gtk_socket_get_id(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUconfigure,"samurui/gtk","gtk_spin_button_configure"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUconfigure); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUconfigure) { P spin_button_, adjustment_, climb_rate_, digits_; GtkSpinButton *arg1 ; GtkAdjustment *arg2 ; gdouble arg3 ; guint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } ARG(climb_rate_, 2); { arg3 = (double)((float)YPfu(climb_rate_)); } ARG(digits_, 3); { arg4 = (unsigned)YPiu(digits_); } gtk_spin_button_configure(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUnew,"samurui/gtk","gtk_spin_button_new"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUnew); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUnew) { P adjustment_, climb_rate_, digits_; GtkAdjustment *arg1 ; gdouble arg2 ; guint arg3 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } ARG(climb_rate_, 1); { arg2 = (double)((float)YPfu(climb_rate_)); } ARG(digits_, 2); { arg3 = (unsigned)YPiu(digits_); } result = (GtkWidget *)gtk_spin_button_new(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUnewUwithUrange,"samurui/gtk","gtk_spin_button_new_with_range"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUnewUwithUrange); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUnewUwithUrange) { P min_, max_, step_; gdouble arg1 ; gdouble arg2 ; gdouble arg3 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(min_, 0); { arg1 = (double)((float)YPfu(min_)); } ARG(max_, 1); { arg2 = (double)((float)YPfu(max_)); } ARG(step_, 2); { arg3 = (double)((float)YPfu(step_)); } result = (GtkWidget *)gtk_spin_button_new_with_range(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUadjustment,"samurui/gtk","gtk_spin_button_set_adjustment"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUadjustment) { P spin_button_, adjustment_; GtkSpinButton *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_spin_button_set_adjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUadjustment,"samurui/gtk","gtk_spin_button_get_adjustment"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUadjustment) { P spin_button_; GtkSpinButton *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (GtkAdjustment *)gtk_spin_button_get_adjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUdigits,"samurui/gtk","gtk_spin_button_set_digits"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUdigits); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUdigits) { P spin_button_, digits_; GtkSpinButton *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(digits_, 1); { arg2 = (unsigned)YPiu(digits_); } gtk_spin_button_set_digits(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUdigits,"samurui/gtk","gtk_spin_button_get_digits"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUdigits); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUdigits) { P spin_button_; GtkSpinButton *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (guint )gtk_spin_button_get_digits(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUincrements,"samurui/gtk","gtk_spin_button_set_increments"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUincrements); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUincrements) { P spin_button_, step_, page_; GtkSpinButton *arg1 ; gdouble arg2 ; gdouble arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(step_, 1); { arg2 = (double)((float)YPfu(step_)); } ARG(page_, 2); { arg3 = (double)((float)YPfu(page_)); } gtk_spin_button_set_increments(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUincrements,"samurui/gtk","gtk_spin_button_get_increments"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUincrements); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUincrements) { P spin_button_, step_, page_; GtkSpinButton *arg1 ; gdouble *arg2 ; gdouble *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(step_, 1); { arg2 = (gdouble *)YPlu(step_); } ARG(page_, 2); { arg3 = (gdouble *)YPlu(page_); } gtk_spin_button_get_increments(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUrange,"samurui/gtk","gtk_spin_button_set_range"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUrange); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUrange) { P spin_button_, min_, max_; GtkSpinButton *arg1 ; gdouble arg2 ; gdouble arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(min_, 1); { arg2 = (double)((float)YPfu(min_)); } ARG(max_, 2); { arg3 = (double)((float)YPfu(max_)); } gtk_spin_button_set_range(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUrange,"samurui/gtk","gtk_spin_button_get_range"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUrange); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUrange) { P spin_button_, min_, max_; GtkSpinButton *arg1 ; gdouble *arg2 ; gdouble *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(min_, 1); { arg2 = (gdouble *)YPlu(min_); } ARG(max_, 2); { arg3 = (gdouble *)YPlu(max_); } gtk_spin_button_get_range(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUvalue,"samurui/gtk","gtk_spin_button_get_value"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUvalue) { P spin_button_; GtkSpinButton *arg1 ; gdouble result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (gdouble )gtk_spin_button_get_value(arg1); { float t = (float)result; retval = (P)YPfb((P)FLOINT((PFLO)t)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUvalueUasUint,"samurui/gtk","gtk_spin_button_get_value_as_int"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUvalueUasUint); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUvalueUasUint) { P spin_button_; GtkSpinButton *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (gint )gtk_spin_button_get_value_as_int(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUvalue,"samurui/gtk","gtk_spin_button_set_value"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUvalue); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUvalue) { P spin_button_, value_; GtkSpinButton *arg1 ; gdouble arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(value_, 1); { arg2 = (double)((float)YPfu(value_)); } gtk_spin_button_set_value(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUupdateUpolicy,"samurui/gtk","gtk_spin_button_set_update_policy"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUupdateUpolicy); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUupdateUpolicy) { P spin_button_, policy_; GtkSpinButton *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(policy_, 1); { arg2 = (int)YPiu(policy_); } gtk_spin_button_set_update_policy(arg1,(GtkSpinButtonUpdatePolicy )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUupdateUpolicy,"samurui/gtk","gtk_spin_button_get_update_policy"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUupdateUpolicy); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUupdateUpolicy) { P spin_button_; GtkSpinButton *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (int )gtk_spin_button_get_update_policy(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUnumeric,"samurui/gtk","gtk_spin_button_set_numeric"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUnumeric); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUnumeric) { P spin_button_, numeric_; GtkSpinButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(numeric_, 1); { arg2 = (signed)YPiu(numeric_); } gtk_spin_button_set_numeric(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUnumeric,"samurui/gtk","gtk_spin_button_get_numeric"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUnumeric); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUnumeric) { P spin_button_; GtkSpinButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (gboolean )gtk_spin_button_get_numeric(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUspin,"samurui/gtk","gtk_spin_button_spin"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUspin); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUspin) { P spin_button_, direction_, increment_; GtkSpinButton *arg1 ; int arg2 ; gdouble arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(direction_, 1); { arg2 = (int)YPiu(direction_); } ARG(increment_, 2); { arg3 = (double)((float)YPfu(increment_)); } gtk_spin_button_spin(arg1,(GtkSpinType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUwrap,"samurui/gtk","gtk_spin_button_set_wrap"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUwrap); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUwrap) { P spin_button_, wrap_; GtkSpinButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(wrap_, 1); { arg2 = (signed)YPiu(wrap_); } gtk_spin_button_set_wrap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUwrap,"samurui/gtk","gtk_spin_button_get_wrap"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUwrap); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUwrap) { P spin_button_; GtkSpinButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (gboolean )gtk_spin_button_get_wrap(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUsetUsnapUtoUticks,"samurui/gtk","gtk_spin_button_set_snap_to_ticks"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUsetUsnapUtoUticks); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUsetUsnapUtoUticks) { P spin_button_, snap_to_ticks_; GtkSpinButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } ARG(snap_to_ticks_, 1); { arg2 = (signed)YPiu(snap_to_ticks_); } gtk_spin_button_set_snap_to_ticks(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUgetUsnapUtoUticks,"samurui/gtk","gtk_spin_button_get_snap_to_ticks"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUgetUsnapUtoUticks); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUgetUsnapUtoUticks) { P spin_button_; GtkSpinButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } result = (gboolean )gtk_spin_button_get_snap_to_ticks(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUspinUbuttonUupdate,"samurui/gtk","gtk_spin_button_update"); FUNFOR(YsamuruiSgtkYgtkUspinUbuttonUupdate); FUNCODEDEF(YsamuruiSgtkYgtkUspinUbuttonUupdate) { P spin_button_; GtkSpinButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(spin_button_, 0); { arg1 = (GtkSpinButton *)YPlu(spin_button_); } gtk_spin_button_update(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUnew,"samurui/gtk","gtk_statusbar_new"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_statusbar_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUgetUcontextUid,"samurui/gtk","gtk_statusbar_get_context_id"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUgetUcontextUid); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUgetUcontextUid) { P statusbar_, context_description_; GtkStatusbar *arg1 ; gchar *arg2 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(statusbar_, 0); { arg1 = (GtkStatusbar *)YPlu(statusbar_); } ARG(context_description_, 1); { arg2 = (char *)YPsu(context_description_); } result = (guint )gtk_statusbar_get_context_id(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUpush,"samurui/gtk","gtk_statusbar_push"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUpush); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUpush) { P statusbar_, context_id_, text_; GtkStatusbar *arg1 ; guint arg2 ; gchar *arg3 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(statusbar_, 0); { arg1 = (GtkStatusbar *)YPlu(statusbar_); } ARG(context_id_, 1); { arg2 = (unsigned)YPiu(context_id_); } ARG(text_, 2); { arg3 = (char *)YPsu(text_); } result = (guint )gtk_statusbar_push(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUpop,"samurui/gtk","gtk_statusbar_pop"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUpop); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUpop) { P statusbar_, context_id_; GtkStatusbar *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(statusbar_, 0); { arg1 = (GtkStatusbar *)YPlu(statusbar_); } ARG(context_id_, 1); { arg2 = (unsigned)YPiu(context_id_); } gtk_statusbar_pop(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUremove,"samurui/gtk","gtk_statusbar_remove"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUremove); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUremove) { P statusbar_, context_id_, message_id_; GtkStatusbar *arg1 ; guint arg2 ; guint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(statusbar_, 0); { arg1 = (GtkStatusbar *)YPlu(statusbar_); } ARG(context_id_, 1); { arg2 = (unsigned)YPiu(context_id_); } ARG(message_id_, 2); { arg3 = (unsigned)YPiu(message_id_); } gtk_statusbar_remove(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUsetUhasUresizeUgrip,"samurui/gtk","gtk_statusbar_set_has_resize_grip"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUsetUhasUresizeUgrip); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUsetUhasUresizeUgrip) { P statusbar_, setting_; GtkStatusbar *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(statusbar_, 0); { arg1 = (GtkStatusbar *)YPlu(statusbar_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_statusbar_set_has_resize_grip(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstatusbarUgetUhasUresizeUgrip,"samurui/gtk","gtk_statusbar_get_has_resize_grip"); FUNFOR(YsamuruiSgtkYgtkUstatusbarUgetUhasUresizeUgrip); FUNCODEDEF(YsamuruiSgtkYgtkUstatusbarUgetUhasUresizeUgrip) { P statusbar_; GtkStatusbar *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(statusbar_, 0); { arg1 = (GtkStatusbar *)YPlu(statusbar_); } result = (gboolean )gtk_statusbar_get_has_resize_grip(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUparentUinstanceUset,"samurui/gtk","_GtkStyle_parent_instance_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUparentUinstanceUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUparentUinstanceUset) { P self_, parent_instance_; struct _GtkStyle *arg1 ; GObject *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(parent_instance_, 1); { arg2 = (GObject *)YPlu(parent_instance_); } if (arg1) arg1->parent_instance = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUparentUinstanceUget,"samurui/gtk","_GtkStyle_parent_instance_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUparentUinstanceUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUparentUinstanceUget) { P self_; struct _GtkStyle *arg1 ; GObject *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GObject *)& (arg1->parent_instance); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUfgUget,"samurui/gtk","_GtkStyle_fg_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUfgUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUfgUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->fg); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUbgUget,"samurui/gtk","_GtkStyle_bg_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUbgUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUbgUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->bg); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUlightUget,"samurui/gtk","_GtkStyle_light_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUlightUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUlightUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->light); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUdarkUget,"samurui/gtk","_GtkStyle_dark_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUdarkUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUdarkUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->dark); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUmidUget,"samurui/gtk","_GtkStyle_mid_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUmidUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUmidUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->mid); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUtextUget,"samurui/gtk","_GtkStyle_text_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUtextUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUtextUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->text); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUbaseUget,"samurui/gtk","_GtkStyle_base_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUbaseUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUbaseUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->base); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUtextUaaUget,"samurui/gtk","_GtkStyle_text_aa_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUtextUaaUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUtextUaaUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)(GdkColor *) (arg1->text_aa); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)&result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUblackUset,"samurui/gtk","_GtkStyle_black_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUblackUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUblackUset) { P self_, black_; struct _GtkStyle *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(black_, 1); { arg2 = (GdkColor *)YPlu(black_); } if (arg1) arg1->black = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUblackUget,"samurui/gtk","_GtkStyle_black_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUblackUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUblackUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)& (arg1->black); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUwhiteUset,"samurui/gtk","_GtkStyle_white_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUwhiteUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUwhiteUset) { P self_, white_; struct _GtkStyle *arg1 ; GdkColor *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(white_, 1); { arg2 = (GdkColor *)YPlu(white_); } if (arg1) arg1->white = *arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUwhiteUget,"samurui/gtk","_GtkStyle_white_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUwhiteUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUwhiteUget) { P self_; struct _GtkStyle *arg1 ; GdkColor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkColor *)& (arg1->white); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUfontUdescUset,"samurui/gtk","_GtkStyle_font_desc_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUfontUdescUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUfontUdescUset) { P self_, font_desc_; struct _GtkStyle *arg1 ; PangoFontDescription *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(font_desc_, 1); { arg2 = (PangoFontDescription *)YPlu(font_desc_); } if (arg1) arg1->font_desc = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUfontUdescUget,"samurui/gtk","_GtkStyle_font_desc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUfontUdescUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUfontUdescUget) { P self_; struct _GtkStyle *arg1 ; PangoFontDescription *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (PangoFontDescription *) (arg1->font_desc); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUxthicknessUset,"samurui/gtk","_GtkStyle_xthickness_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUxthicknessUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUxthicknessUset) { P self_, xthickness_; struct _GtkStyle *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(xthickness_, 1); { arg2 = (signed)YPiu(xthickness_); } if (arg1) arg1->xthickness = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUxthicknessUget,"samurui/gtk","_GtkStyle_xthickness_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUxthicknessUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUxthicknessUget) { P self_; struct _GtkStyle *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (gint ) (arg1->xthickness); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUythicknessUset,"samurui/gtk","_GtkStyle_ythickness_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUythicknessUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUythicknessUset) { P self_, ythickness_; struct _GtkStyle *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(ythickness_, 1); { arg2 = (signed)YPiu(ythickness_); } if (arg1) arg1->ythickness = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUythicknessUget,"samurui/gtk","_GtkStyle_ythickness_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUythicknessUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUythicknessUget) { P self_; struct _GtkStyle *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (gint ) (arg1->ythickness); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUfgUgcUget,"samurui/gtk","_GtkStyle_fg_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUfgUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUfgUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->fg_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUbgUgcUget,"samurui/gtk","_GtkStyle_bg_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUbgUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUbgUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->bg_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUlightUgcUget,"samurui/gtk","_GtkStyle_light_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUlightUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUlightUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->light_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUdarkUgcUget,"samurui/gtk","_GtkStyle_dark_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUdarkUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUdarkUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->dark_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUmidUgcUget,"samurui/gtk","_GtkStyle_mid_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUmidUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUmidUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->mid_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUtextUgcUget,"samurui/gtk","_GtkStyle_text_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUtextUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUtextUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->text_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUbaseUgcUget,"samurui/gtk","_GtkStyle_base_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUbaseUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUbaseUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->base_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUtextUaaUgcUget,"samurui/gtk","_GtkStyle_text_aa_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUtextUaaUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUtextUaaUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC **)(GdkGC **) (arg1->text_aa_gc); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUblackUgcUset,"samurui/gtk","_GtkStyle_black_gc_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUblackUgcUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUblackUgcUset) { P self_, black_gc_; struct _GtkStyle *arg1 ; GdkGC *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(black_gc_, 1); { arg2 = (GdkGC *)YPlu(black_gc_); } if (arg1) arg1->black_gc = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUblackUgcUget,"samurui/gtk","_GtkStyle_black_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUblackUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUblackUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC *) (arg1->black_gc); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUwhiteUgcUset,"samurui/gtk","_GtkStyle_white_gc_set"); FUNFOR(YsamuruiSgtkYUgtkstyleUwhiteUgcUset); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUwhiteUgcUset) { P self_, white_gc_; struct _GtkStyle *arg1 ; GdkGC *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } ARG(white_gc_, 1); { arg2 = (GdkGC *)YPlu(white_gc_); } if (arg1) arg1->white_gc = arg2; { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUwhiteUgcUget,"samurui/gtk","_GtkStyle_white_gc_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUwhiteUgcUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUwhiteUgcUget) { P self_; struct _GtkStyle *arg1 ; GdkGC *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkGC *) (arg1->white_gc); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYUgtkstyleUbgUpixmapUget,"samurui/gtk","_GtkStyle_bg_pixmap_get"); FUNFOR(YsamuruiSgtkYUgtkstyleUbgUpixmapUget); FUNCODEDEF(YsamuruiSgtkYUgtkstyleUbgUpixmapUget) { P self_; struct _GtkStyle *arg1 ; GdkPixmap **result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } result = (GdkPixmap **)(GdkPixmap **) (arg1->bg_pixmap); { // SWIGTYPE [] int i; retval = YPPtfab((P)5, (P)0); for(i=0; i < 5; i++) { YPtelt_setter((P)YPlb((P)result[i]), retval, i); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYnewUUgtkstyle,"samurui/gtk","new__GtkStyle"); FUNFOR(YsamuruiSgtkYnewUUgtkstyle); FUNCODEDEF(YsamuruiSgtkYnewUUgtkstyle) { struct _GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (struct _GtkStyle *)(struct _GtkStyle *) calloc(1, sizeof(struct _GtkStyle)); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYdeleteUUgtkstyle,"samurui/gtk","delete__GtkStyle"); FUNFOR(YsamuruiSgtkYdeleteUUgtkstyle); FUNCODEDEF(YsamuruiSgtkYdeleteUUgtkstyle) { P self_; struct _GtkStyle *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(self_, 0); { arg1 = (struct _GtkStyle *)YPlu(self_); } free((char *) arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUnew,"samurui/gtk","gtk_style_new"); FUNFOR(YsamuruiSgtkYgtkUstyleUnew); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUnew) { GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkStyle *)gtk_style_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUcopy,"samurui/gtk","gtk_style_copy"); FUNFOR(YsamuruiSgtkYgtkUstyleUcopy); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUcopy) { P style_; GtkStyle *arg1 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } result = (GtkStyle *)gtk_style_copy(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUattach,"samurui/gtk","gtk_style_attach"); FUNFOR(YsamuruiSgtkYgtkUstyleUattach); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUattach) { P style_, window_; GtkStyle *arg1 ; GdkWindow *arg2 ; GtkStyle *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } result = (GtkStyle *)gtk_style_attach(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUdetach,"samurui/gtk","gtk_style_detach"); FUNFOR(YsamuruiSgtkYgtkUstyleUdetach); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUdetach) { P style_; GtkStyle *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } gtk_style_detach(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUsetUbackground,"samurui/gtk","gtk_style_set_background"); FUNFOR(YsamuruiSgtkYgtkUstyleUsetUbackground); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUsetUbackground) { P style_, window_, state_type_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } gtk_style_set_background(arg1,arg2,(GtkStateType )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUapplyUdefaultUbackground,"samurui/gtk","gtk_style_apply_default_background"); FUNFOR(YsamuruiSgtkYgtkUstyleUapplyUdefaultUbackground); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUapplyUdefaultUbackground) { P style_, window_, set_bg_, state_type_, area_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; gboolean arg3 ; int arg4 ; GdkRectangle *arg5 ; gint arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(set_bg_, 2); { arg3 = (signed)YPiu(set_bg_); } ARG(state_type_, 3); { arg4 = (int)YPiu(state_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(x_, 5); { arg6 = (signed)YPiu(x_); } ARG(y_, 6); { arg7 = (signed)YPiu(y_); } ARG(width_, 7); { arg8 = (signed)YPiu(width_); } ARG(height_, 8); { arg9 = (signed)YPiu(height_); } gtk_style_apply_default_background(arg1,arg2,arg3,(GtkStateType )arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUlookupUiconUset,"samurui/gtk","gtk_style_lookup_icon_set"); FUNFOR(YsamuruiSgtkYgtkUstyleUlookupUiconUset); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUlookupUiconUset) { P style_, stock_id_; GtkStyle *arg1 ; gchar *arg2 ; GtkIconSet *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(stock_id_, 1); { arg2 = (char *)YPsu(stock_id_); } result = (GtkIconSet *)gtk_style_lookup_icon_set(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUstyleUrenderUicon,"samurui/gtk","gtk_style_render_icon"); FUNFOR(YsamuruiSgtkYgtkUstyleUrenderUicon); FUNCODEDEF(YsamuruiSgtkYgtkUstyleUrenderUicon) { P style_, source_, direction_, state_, size_, widget_, detail_; GtkStyle *arg1 ; GtkIconSource *arg2 ; int arg3 ; int arg4 ; int arg5 ; GtkWidget *arg6 ; gchar *arg7 ; GdkPixbuf *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(source_, 1); { arg2 = (GtkIconSource *)YPlu(source_); } ARG(direction_, 2); { arg3 = (int)YPiu(direction_); } ARG(state_, 3); { arg4 = (int)YPiu(state_); } ARG(size_, 4); { arg5 = (int)YPiu(size_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } result = (GdkPixbuf *)gtk_style_render_icon(arg1,arg2,(GtkTextDirection )arg3,(GtkStateType )arg4,(GtkIconSize )arg5,arg6,arg7); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUhline,"samurui/gtk","gtk_paint_hline"); FUNFOR(YsamuruiSgtkYgtkUpaintUhline); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUhline) { P style_, window_, state_type_, area_, widget_, detail_, x1_, x2_, y_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; GdkRectangle *arg4 ; GtkWidget *arg5 ; gchar *arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(area_, 3); { arg4 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 4); { arg5 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 5); { arg6 = (char *)YPsu(detail_); } ARG(x1_, 6); { arg7 = (signed)YPiu(x1_); } ARG(x2_, 7); { arg8 = (signed)YPiu(x2_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } gtk_paint_hline(arg1,arg2,(GtkStateType )arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUvline,"samurui/gtk","gtk_paint_vline"); FUNFOR(YsamuruiSgtkYgtkUpaintUvline); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUvline) { P style_, window_, state_type_, area_, widget_, detail_, y1_, y2_, x_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; GdkRectangle *arg4 ; GtkWidget *arg5 ; gchar *arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(area_, 3); { arg4 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 4); { arg5 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 5); { arg6 = (char *)YPsu(detail_); } ARG(y1_, 6); { arg7 = (signed)YPiu(y1_); } ARG(y2_, 7); { arg8 = (signed)YPiu(y2_); } ARG(x_, 8); { arg9 = (signed)YPiu(x_); } gtk_paint_vline(arg1,arg2,(GtkStateType )arg3,arg4,arg5,arg6,arg7,arg8,arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUshadow,"samurui/gtk","gtk_paint_shadow"); FUNFOR(YsamuruiSgtkYgtkUpaintUshadow); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUshadow) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_shadow(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUpolygon,"samurui/gtk","gtk_paint_polygon"); FUNFOR(YsamuruiSgtkYgtkUpaintUpolygon); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUpolygon) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, points_, fill_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; GdkPoint *arg8 ; gint arg9 ; gboolean arg10 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(points_, 7); { int i; arg9 = (int)YPtlen(points_); arg8 = (char *)malloc(arg9 * sizeof(GdkPoint)); for(i=0; i < arg9; i++) { // current point... P cur = YPtelt(points_, i); arg8[i].x = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_x), cur)); arg8[i].y = (int)YPiu(CALL1(1, VARREF(YsamuruiScoreSgeomYpoint_y), cur)); } } ARG(fill_, 8); { arg10 = (signed)YPiu(fill_); } gtk_paint_polygon(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10); { // do nothing! it's a void! } { if(arg8) free(arg8); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUarrow,"samurui/gtk","gtk_paint_arrow"); FUNFOR(YsamuruiSgtkYgtkUpaintUarrow); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUarrow) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, arrow_type_, fill_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; int arg8 ; gboolean arg9 ; gint arg10 ; gint arg11 ; gint arg12 ; gint arg13 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(arrow_type_, 7); { arg8 = (int)YPiu(arrow_type_); } ARG(fill_, 8); { arg9 = (signed)YPiu(fill_); } ARG(x_, 9); { arg10 = (signed)YPiu(x_); } ARG(y_, 10); { arg11 = (signed)YPiu(y_); } ARG(width_, 11); { arg12 = (signed)YPiu(width_); } ARG(height_, 12); { arg13 = (signed)YPiu(height_); } gtk_paint_arrow(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,(GtkArrowType )arg8,arg9,arg10,arg11,arg12,arg13); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUdiamond,"samurui/gtk","gtk_paint_diamond"); FUNFOR(YsamuruiSgtkYgtkUpaintUdiamond); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUdiamond) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_diamond(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUbox,"samurui/gtk","gtk_paint_box"); FUNFOR(YsamuruiSgtkYgtkUpaintUbox); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUbox) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_box(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUflatUbox,"samurui/gtk","gtk_paint_flat_box"); FUNFOR(YsamuruiSgtkYgtkUpaintUflatUbox); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUflatUbox) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_flat_box(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUcheck,"samurui/gtk","gtk_paint_check"); FUNFOR(YsamuruiSgtkYgtkUpaintUcheck); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUcheck) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_check(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUoption,"samurui/gtk","gtk_paint_option"); FUNFOR(YsamuruiSgtkYgtkUpaintUoption); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUoption) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_option(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUtab,"samurui/gtk","gtk_paint_tab"); FUNFOR(YsamuruiSgtkYgtkUpaintUtab); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUtab) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_tab(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUshadowUgap,"samurui/gtk","gtk_paint_shadow_gap"); FUNFOR(YsamuruiSgtkYgtkUpaintUshadowUgap); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUshadowUgap) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_, gap_side_, gap_x_, gap_width_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; int arg12 ; gint arg13 ; gint arg14 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } ARG(gap_side_, 11); { arg12 = (int)YPiu(gap_side_); } ARG(gap_x_, 12); { arg13 = (signed)YPiu(gap_x_); } ARG(gap_width_, 13); { arg14 = (signed)YPiu(gap_width_); } gtk_paint_shadow_gap(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(GtkPositionType )arg12,arg13,arg14); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUboxUgap,"samurui/gtk","gtk_paint_box_gap"); FUNFOR(YsamuruiSgtkYgtkUpaintUboxUgap); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUboxUgap) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_, gap_side_, gap_x_, gap_width_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; int arg12 ; gint arg13 ; gint arg14 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } ARG(gap_side_, 11); { arg12 = (int)YPiu(gap_side_); } ARG(gap_x_, 12); { arg13 = (signed)YPiu(gap_x_); } ARG(gap_width_, 13); { arg14 = (signed)YPiu(gap_width_); } gtk_paint_box_gap(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(GtkPositionType )arg12,arg13,arg14); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUextension,"samurui/gtk","gtk_paint_extension"); FUNFOR(YsamuruiSgtkYgtkUpaintUextension); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUextension) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_, gap_side_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; int arg12 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } ARG(gap_side_, 11); { arg12 = (int)YPiu(gap_side_); } gtk_paint_extension(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(GtkPositionType )arg12); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUfocus,"samurui/gtk","gtk_paint_focus"); FUNFOR(YsamuruiSgtkYgtkUpaintUfocus); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUfocus) { P style_, window_, state_type_, area_, widget_, detail_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; GdkRectangle *arg4 ; GtkWidget *arg5 ; gchar *arg6 ; gint arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(area_, 3); { arg4 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 4); { arg5 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 5); { arg6 = (char *)YPsu(detail_); } ARG(x_, 6); { arg7 = (signed)YPiu(x_); } ARG(y_, 7); { arg8 = (signed)YPiu(y_); } ARG(width_, 8); { arg9 = (signed)YPiu(width_); } ARG(height_, 9); { arg10 = (signed)YPiu(height_); } gtk_paint_focus(arg1,arg2,(GtkStateType )arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUslider,"samurui/gtk","gtk_paint_slider"); FUNFOR(YsamuruiSgtkYgtkUpaintUslider); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUslider) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_, orientation_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; int arg12 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } ARG(orientation_, 11); { arg12 = (int)YPiu(orientation_); } gtk_paint_slider(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(GtkOrientation )arg12); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUhandle,"samurui/gtk","gtk_paint_handle"); FUNFOR(YsamuruiSgtkYgtkUpaintUhandle); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUhandle) { P style_, window_, state_type_, shadow_type_, area_, widget_, detail_, x_, y_, width_, height_, orientation_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; int arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; int arg12 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(shadow_type_, 3); { arg4 = (int)YPiu(shadow_type_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } ARG(orientation_, 11); { arg12 = (int)YPiu(orientation_); } gtk_paint_handle(arg1,arg2,(GtkStateType )arg3,(GtkShadowType )arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(GtkOrientation )arg12); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUexpander,"samurui/gtk","gtk_paint_expander"); FUNFOR(YsamuruiSgtkYgtkUpaintUexpander); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUexpander) { P style_, window_, state_type_, area_, widget_, detail_, x_, y_, expander_style_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; GdkRectangle *arg4 ; GtkWidget *arg5 ; gchar *arg6 ; gint arg7 ; gint arg8 ; int arg9 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(area_, 3); { arg4 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 4); { arg5 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 5); { arg6 = (char *)YPsu(detail_); } ARG(x_, 6); { arg7 = (signed)YPiu(x_); } ARG(y_, 7); { arg8 = (signed)YPiu(y_); } ARG(expander_style_, 8); { arg9 = (int)YPiu(expander_style_); } gtk_paint_expander(arg1,arg2,(GtkStateType )arg3,arg4,arg5,arg6,arg7,arg8,(GtkExpanderStyle )arg9); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUlayout,"samurui/gtk","gtk_paint_layout"); FUNFOR(YsamuruiSgtkYgtkUpaintUlayout); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUlayout) { P style_, window_, state_type_, use_text_, area_, widget_, detail_, x_, y_, layout_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; gboolean arg4 ; GdkRectangle *arg5 ; GtkWidget *arg6 ; gchar *arg7 ; gint arg8 ; gint arg9 ; PangoLayout *arg10 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(use_text_, 3); { arg4 = (signed)YPiu(use_text_); } ARG(area_, 4); { arg5 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 5); { arg6 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 6); { arg7 = (char *)YPsu(detail_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(layout_, 9); { arg10 = (PangoLayout *)YPlu(layout_); } gtk_paint_layout(arg1,arg2,(GtkStateType )arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUpaintUresizeUgrip,"samurui/gtk","gtk_paint_resize_grip"); FUNFOR(YsamuruiSgtkYgtkUpaintUresizeUgrip); FUNCODEDEF(YsamuruiSgtkYgtkUpaintUresizeUgrip) { P style_, window_, state_type_, area_, widget_, detail_, edge_, x_, y_, width_, height_; GtkStyle *arg1 ; GdkWindow *arg2 ; int arg3 ; GdkRectangle *arg4 ; GtkWidget *arg5 ; gchar *arg6 ; int arg7 ; gint arg8 ; gint arg9 ; gint arg10 ; gint arg11 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(style_, 0); { arg1 = (GtkStyle *)YPlu(style_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } ARG(state_type_, 2); { arg3 = (int)YPiu(state_type_); } ARG(area_, 3); { arg4 = (GdkRectangle *)YPlu(area_); } ARG(widget_, 4); { arg5 = (GtkWidget *)YPlu(widget_); } ARG(detail_, 5); { arg6 = (char *)YPsu(detail_); } ARG(edge_, 6); { arg7 = (int)YPiu(edge_); } ARG(x_, 7); { arg8 = (signed)YPiu(x_); } ARG(y_, 8); { arg9 = (signed)YPiu(y_); } ARG(width_, 9); { arg10 = (signed)YPiu(width_); } ARG(height_, 10); { arg11 = (signed)YPiu(height_); } gtk_paint_resize_grip(arg1,arg2,(GtkStateType )arg3,arg4,arg5,arg6,(GdkWindowEdge )arg7,arg8,arg9,arg10,arg11); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUborderUcopy,"samurui/gtk","gtk_border_copy"); FUNFOR(YsamuruiSgtkYgtkUborderUcopy); FUNCODEDEF(YsamuruiSgtkYgtkUborderUcopy) { P border_; GtkBorder *arg1 ; GtkBorder *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(border_, 0); { arg1 = (GtkBorder *)YPlu(border_); } result = (GtkBorder *)gtk_border_copy(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUborderUfree,"samurui/gtk","gtk_border_free"); FUNFOR(YsamuruiSgtkYgtkUborderUfree); FUNCODEDEF(YsamuruiSgtkYgtkUborderUfree) { P border_; GtkBorder *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(border_, 0); { arg1 = (GtkBorder *)YPlu(border_); } gtk_border_free(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUnew,"samurui/gtk","gtk_table_new"); FUNFOR(YsamuruiSgtkYgtkUtableUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtableUnew) { P rows_, columns_, homogeneous_; guint arg1 ; guint arg2 ; gboolean arg3 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(rows_, 0); { arg1 = (unsigned)YPiu(rows_); } ARG(columns_, 1); { arg2 = (unsigned)YPiu(columns_); } ARG(homogeneous_, 2); { arg3 = (signed)YPiu(homogeneous_); } result = (GtkWidget *)gtk_table_new(arg1,arg2,arg3); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUresize,"samurui/gtk","gtk_table_resize"); FUNFOR(YsamuruiSgtkYgtkUtableUresize); FUNCODEDEF(YsamuruiSgtkYgtkUtableUresize) { P table_, rows_, columns_; GtkTable *arg1 ; guint arg2 ; guint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(rows_, 1); { arg2 = (unsigned)YPiu(rows_); } ARG(columns_, 2); { arg3 = (unsigned)YPiu(columns_); } gtk_table_resize(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUattach,"samurui/gtk","gtk_table_attach"); FUNFOR(YsamuruiSgtkYgtkUtableUattach); FUNCODEDEF(YsamuruiSgtkYgtkUtableUattach) { P table_, child_, left_attach_, right_attach_, top_attach_, bottom_attach_, xoptions_, yoptions_, xpadding_, ypadding_; GtkTable *arg1 ; GtkWidget *arg2 ; guint arg3 ; guint arg4 ; guint arg5 ; guint arg6 ; int arg7 ; int arg8 ; guint arg9 ; guint arg10 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(left_attach_, 2); { arg3 = (unsigned)YPiu(left_attach_); } ARG(right_attach_, 3); { arg4 = (unsigned)YPiu(right_attach_); } ARG(top_attach_, 4); { arg5 = (unsigned)YPiu(top_attach_); } ARG(bottom_attach_, 5); { arg6 = (unsigned)YPiu(bottom_attach_); } ARG(xoptions_, 6); { arg7 = (int)YPiu(xoptions_); } ARG(yoptions_, 7); { arg8 = (int)YPiu(yoptions_); } ARG(xpadding_, 8); { arg9 = (unsigned)YPiu(xpadding_); } ARG(ypadding_, 9); { arg10 = (unsigned)YPiu(ypadding_); } gtk_table_attach(arg1,arg2,arg3,arg4,arg5,arg6,(GtkAttachOptions )arg7,(GtkAttachOptions )arg8,arg9,arg10); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUattachUdefaults,"samurui/gtk","gtk_table_attach_defaults"); FUNFOR(YsamuruiSgtkYgtkUtableUattachUdefaults); FUNCODEDEF(YsamuruiSgtkYgtkUtableUattachUdefaults) { P table_, widget_, left_attach_, right_attach_, top_attach_, bottom_attach_; GtkTable *arg1 ; GtkWidget *arg2 ; guint arg3 ; guint arg4 ; guint arg5 ; guint arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(left_attach_, 2); { arg3 = (unsigned)YPiu(left_attach_); } ARG(right_attach_, 3); { arg4 = (unsigned)YPiu(right_attach_); } ARG(top_attach_, 4); { arg5 = (unsigned)YPiu(top_attach_); } ARG(bottom_attach_, 5); { arg6 = (unsigned)YPiu(bottom_attach_); } gtk_table_attach_defaults(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUsetUrowUspacing,"samurui/gtk","gtk_table_set_row_spacing"); FUNFOR(YsamuruiSgtkYgtkUtableUsetUrowUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtableUsetUrowUspacing) { P table_, row_, spacing_; GtkTable *arg1 ; guint arg2 ; guint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(row_, 1); { arg2 = (unsigned)YPiu(row_); } ARG(spacing_, 2); { arg3 = (unsigned)YPiu(spacing_); } gtk_table_set_row_spacing(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUgetUrowUspacing,"samurui/gtk","gtk_table_get_row_spacing"); FUNFOR(YsamuruiSgtkYgtkUtableUgetUrowUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtableUgetUrowUspacing) { P table_, row_; GtkTable *arg1 ; guint arg2 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(row_, 1); { arg2 = (unsigned)YPiu(row_); } result = (guint )gtk_table_get_row_spacing(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUsetUcolUspacing,"samurui/gtk","gtk_table_set_col_spacing"); FUNFOR(YsamuruiSgtkYgtkUtableUsetUcolUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtableUsetUcolUspacing) { P table_, column_, spacing_; GtkTable *arg1 ; guint arg2 ; guint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(column_, 1); { arg2 = (unsigned)YPiu(column_); } ARG(spacing_, 2); { arg3 = (unsigned)YPiu(spacing_); } gtk_table_set_col_spacing(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUgetUcolUspacing,"samurui/gtk","gtk_table_get_col_spacing"); FUNFOR(YsamuruiSgtkYgtkUtableUgetUcolUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtableUgetUcolUspacing) { P table_, column_; GtkTable *arg1 ; guint arg2 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(column_, 1); { arg2 = (unsigned)YPiu(column_); } result = (guint )gtk_table_get_col_spacing(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUsetUrowUspacings,"samurui/gtk","gtk_table_set_row_spacings"); FUNFOR(YsamuruiSgtkYgtkUtableUsetUrowUspacings); FUNCODEDEF(YsamuruiSgtkYgtkUtableUsetUrowUspacings) { P table_, spacing_; GtkTable *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(spacing_, 1); { arg2 = (unsigned)YPiu(spacing_); } gtk_table_set_row_spacings(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUgetUdefaultUrowUspacing,"samurui/gtk","gtk_table_get_default_row_spacing"); FUNFOR(YsamuruiSgtkYgtkUtableUgetUdefaultUrowUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtableUgetUdefaultUrowUspacing) { P table_; GtkTable *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } result = (guint )gtk_table_get_default_row_spacing(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUsetUcolUspacings,"samurui/gtk","gtk_table_set_col_spacings"); FUNFOR(YsamuruiSgtkYgtkUtableUsetUcolUspacings); FUNCODEDEF(YsamuruiSgtkYgtkUtableUsetUcolUspacings) { P table_, spacing_; GtkTable *arg1 ; guint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(spacing_, 1); { arg2 = (unsigned)YPiu(spacing_); } gtk_table_set_col_spacings(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUgetUdefaultUcolUspacing,"samurui/gtk","gtk_table_get_default_col_spacing"); FUNFOR(YsamuruiSgtkYgtkUtableUgetUdefaultUcolUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtableUgetUdefaultUcolUspacing) { P table_; GtkTable *arg1 ; guint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } result = (guint )gtk_table_get_default_col_spacing(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUsetUhomogeneous,"samurui/gtk","gtk_table_set_homogeneous"); FUNFOR(YsamuruiSgtkYgtkUtableUsetUhomogeneous); FUNCODEDEF(YsamuruiSgtkYgtkUtableUsetUhomogeneous) { P table_, homogeneous_; GtkTable *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } ARG(homogeneous_, 1); { arg2 = (signed)YPiu(homogeneous_); } gtk_table_set_homogeneous(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtableUgetUhomogeneous,"samurui/gtk","gtk_table_get_homogeneous"); FUNFOR(YsamuruiSgtkYgtkUtableUgetUhomogeneous); FUNCODEDEF(YsamuruiSgtkYgtkUtableUgetUhomogeneous) { P table_; GtkTable *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTable *)YPlu(table_); } result = (gboolean )gtk_table_get_homogeneous(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtearoffUmenuUitemUnew,"samurui/gtk","gtk_tearoff_menu_item_new"); FUNFOR(YsamuruiSgtkYgtkUtearoffUmenuUitemUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtearoffUmenuUitemUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_tearoff_menu_item_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUtype,"samurui/gtk","gtk_text_buffer_get_type"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUtype) { GType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GType )gtk_text_buffer_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUnew,"samurui/gtk","gtk_text_buffer_new"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUnew) { P table_; GtkTextTagTable *arg1 ; GtkTextBuffer *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(table_, 0); { arg1 = (GtkTextTagTable *)YPlu(table_); } result = (GtkTextBuffer *)gtk_text_buffer_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUlineUcount,"samurui/gtk","gtk_text_buffer_get_line_count"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUlineUcount); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUlineUcount) { P buffer_; GtkTextBuffer *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (gint )gtk_text_buffer_get_line_count(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUcharUcount,"samurui/gtk","gtk_text_buffer_get_char_count"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUcharUcount); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUcharUcount) { P buffer_; GtkTextBuffer *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (gint )gtk_text_buffer_get_char_count(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUtagUtable,"samurui/gtk","gtk_text_buffer_get_tag_table"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUtagUtable); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUtagUtable) { P buffer_; GtkTextBuffer *arg1 ; GtkTextTagTable *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (GtkTextTagTable *)gtk_text_buffer_get_tag_table(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUsetUtext,"samurui/gtk","gtk_text_buffer_set_text"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUsetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUsetUtext) { P buffer_, text_, len_; GtkTextBuffer *arg1 ; gchar *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(len_, 2); { arg3 = (signed)YPiu(len_); } gtk_text_buffer_set_text(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsert,"samurui/gtk","gtk_text_buffer_insert"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsert); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsert) { P buffer_, iter_, text_, len_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; gchar *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(text_, 2); { arg3 = (char *)YPsu(text_); } ARG(len_, 3); { arg4 = (signed)YPiu(len_); } gtk_text_buffer_insert(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUatUcursor,"samurui/gtk","gtk_text_buffer_insert_at_cursor"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUatUcursor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUatUcursor) { P buffer_, text_, len_; GtkTextBuffer *arg1 ; gchar *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(len_, 2); { arg3 = (signed)YPiu(len_); } gtk_text_buffer_insert_at_cursor(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractive,"samurui/gtk","gtk_text_buffer_insert_interactive"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractive); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractive) { P buffer_, iter_, text_, len_, default_editable_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; gchar *arg3 ; gint arg4 ; gboolean arg5 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(text_, 2); { arg3 = (char *)YPsu(text_); } ARG(len_, 3); { arg4 = (signed)YPiu(len_); } ARG(default_editable_, 4); { arg5 = (signed)YPiu(default_editable_); } result = (gboolean )gtk_text_buffer_insert_interactive(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractiveUatUcursor,"samurui/gtk","gtk_text_buffer_insert_interactive_at_cursor"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractiveUatUcursor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractiveUatUcursor) { P buffer_, text_, len_, default_editable_; GtkTextBuffer *arg1 ; gchar *arg2 ; gint arg3 ; gboolean arg4 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(len_, 2); { arg3 = (signed)YPiu(len_); } ARG(default_editable_, 3); { arg4 = (signed)YPiu(default_editable_); } result = (gboolean )gtk_text_buffer_insert_interactive_at_cursor(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUrange,"samurui/gtk","gtk_text_buffer_insert_range"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUrange); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUrange) { P buffer_, iter_, start_, end_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; GtkTextIter *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(start_, 2); { arg3 = (GtkTextIter *)YPlu(start_); } ARG(end_, 3); { arg4 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_insert_range(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUrangeUinteractive,"samurui/gtk","gtk_text_buffer_insert_range_interactive"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUrangeUinteractive); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUrangeUinteractive) { P buffer_, iter_, start_, end_, default_editable_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; GtkTextIter *arg4 ; gboolean arg5 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(start_, 2); { arg3 = (GtkTextIter *)YPlu(start_); } ARG(end_, 3); { arg4 = (GtkTextIter *)YPlu(end_); } ARG(default_editable_, 4); { arg5 = (signed)YPiu(default_editable_); } result = (gboolean )gtk_text_buffer_insert_range_interactive(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUdelete,"samurui/gtk","gtk_text_buffer_delete"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUdelete); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUdelete) { P buffer_, start_, end_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_, 1); { arg2 = (GtkTextIter *)YPlu(start_); } ARG(end_, 2); { arg3 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_delete(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUdeleteUinteractive,"samurui/gtk","gtk_text_buffer_delete_interactive"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUdeleteUinteractive); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUdeleteUinteractive) { P buffer_, start_iter_, end_iter_, default_editable_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; gboolean arg4 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_iter_, 1); { arg2 = (GtkTextIter *)YPlu(start_iter_); } ARG(end_iter_, 2); { arg3 = (GtkTextIter *)YPlu(end_iter_); } ARG(default_editable_, 3); { arg4 = (signed)YPiu(default_editable_); } result = (gboolean )gtk_text_buffer_delete_interactive(arg1,arg2,arg3,arg4); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUtext,"samurui/gtk","gtk_text_buffer_get_text"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUtext); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUtext) { P buffer_, start_, end_, include_hidden_chars_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; gboolean arg4 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_, 1); { arg2 = (GtkTextIter *)YPlu(start_); } ARG(end_, 2); { arg3 = (GtkTextIter *)YPlu(end_); } ARG(include_hidden_chars_, 3); { arg4 = (signed)YPiu(include_hidden_chars_); } result = (gchar *)gtk_text_buffer_get_text(arg1,arg2,arg3,arg4); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUslice,"samurui/gtk","gtk_text_buffer_get_slice"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUslice); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUslice) { P buffer_, start_, end_, include_hidden_chars_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; gboolean arg4 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_, 1); { arg2 = (GtkTextIter *)YPlu(start_); } ARG(end_, 2); { arg3 = (GtkTextIter *)YPlu(end_); } ARG(include_hidden_chars_, 3); { arg4 = (signed)YPiu(include_hidden_chars_); } result = (gchar *)gtk_text_buffer_get_slice(arg1,arg2,arg3,arg4); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUpixbuf,"samurui/gtk","gtk_text_buffer_insert_pixbuf"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUpixbuf); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUpixbuf) { P buffer_, iter_, pixbuf_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GdkPixbuf *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(pixbuf_, 2); { arg3 = (GdkPixbuf *)YPlu(pixbuf_); } gtk_text_buffer_insert_pixbuf(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUinsertUchildUanchor,"samurui/gtk","gtk_text_buffer_insert_child_anchor"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUinsertUchildUanchor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUinsertUchildUanchor) { P buffer_, iter_, anchor_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextChildAnchor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(anchor_, 2); { arg3 = (GtkTextChildAnchor *)YPlu(anchor_); } gtk_text_buffer_insert_child_anchor(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUcreateUchildUanchor,"samurui/gtk","gtk_text_buffer_create_child_anchor"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUcreateUchildUanchor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUcreateUchildUanchor) { P buffer_, iter_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextChildAnchor *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } result = (GtkTextChildAnchor *)gtk_text_buffer_create_child_anchor(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUcreateUmark,"samurui/gtk","gtk_text_buffer_create_mark"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUcreateUmark); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUcreateUmark) { P buffer_, mark_name_, where_, left_gravity_; GtkTextBuffer *arg1 ; gchar *arg2 ; GtkTextIter *arg3 ; gboolean arg4 ; GtkTextMark *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(mark_name_, 1); { arg2 = (char *)YPsu(mark_name_); } ARG(where_, 2); { arg3 = (GtkTextIter *)YPlu(where_); } ARG(left_gravity_, 3); { arg4 = (signed)YPiu(left_gravity_); } result = (GtkTextMark *)gtk_text_buffer_create_mark(arg1,arg2,arg3,arg4); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUmoveUmark,"samurui/gtk","gtk_text_buffer_move_mark"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUmoveUmark); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUmoveUmark) { P buffer_, mark_, where_; GtkTextBuffer *arg1 ; GtkTextMark *arg2 ; GtkTextIter *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(mark_, 1); { arg2 = (GtkTextMark *)YPlu(mark_); } ARG(where_, 2); { arg3 = (GtkTextIter *)YPlu(where_); } gtk_text_buffer_move_mark(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUdeleteUmark,"samurui/gtk","gtk_text_buffer_delete_mark"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUdeleteUmark); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUdeleteUmark) { P buffer_, mark_; GtkTextBuffer *arg1 ; GtkTextMark *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(mark_, 1); { arg2 = (GtkTextMark *)YPlu(mark_); } gtk_text_buffer_delete_mark(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUmark,"samurui/gtk","gtk_text_buffer_get_mark"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUmark); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUmark) { P buffer_, name_; GtkTextBuffer *arg1 ; gchar *arg2 ; GtkTextMark *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } result = (GtkTextMark *)gtk_text_buffer_get_mark(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUmoveUmarkUbyUname,"samurui/gtk","gtk_text_buffer_move_mark_by_name"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUmoveUmarkUbyUname); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUmoveUmarkUbyUname) { P buffer_, name_, where_; GtkTextBuffer *arg1 ; gchar *arg2 ; GtkTextIter *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(where_, 2); { arg3 = (GtkTextIter *)YPlu(where_); } gtk_text_buffer_move_mark_by_name(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUdeleteUmarkUbyUname,"samurui/gtk","gtk_text_buffer_delete_mark_by_name"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUdeleteUmarkUbyUname); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUdeleteUmarkUbyUname) { P buffer_, name_; GtkTextBuffer *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } gtk_text_buffer_delete_mark_by_name(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUinsert,"samurui/gtk","gtk_text_buffer_get_insert"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUinsert); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUinsert) { P buffer_; GtkTextBuffer *arg1 ; GtkTextMark *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (GtkTextMark *)gtk_text_buffer_get_insert(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbound,"samurui/gtk","gtk_text_buffer_get_selection_bound"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbound); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbound) { P buffer_; GtkTextBuffer *arg1 ; GtkTextMark *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (GtkTextMark *)gtk_text_buffer_get_selection_bound(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUplaceUcursor,"samurui/gtk","gtk_text_buffer_place_cursor"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUplaceUcursor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUplaceUcursor) { P buffer_, where_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(where_, 1); { arg2 = (GtkTextIter *)YPlu(where_); } gtk_text_buffer_place_cursor(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUapplyUtag,"samurui/gtk","gtk_text_buffer_apply_tag"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUapplyUtag); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUapplyUtag) { P buffer_, tag_, start_, end_; GtkTextBuffer *arg1 ; GtkTextTag *arg2 ; GtkTextIter *arg3 ; GtkTextIter *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(tag_, 1); { arg2 = (GtkTextTag *)YPlu(tag_); } ARG(start_, 2); { arg3 = (GtkTextIter *)YPlu(start_); } ARG(end_, 3); { arg4 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_apply_tag(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUremoveUtag,"samurui/gtk","gtk_text_buffer_remove_tag"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUremoveUtag); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUremoveUtag) { P buffer_, tag_, start_, end_; GtkTextBuffer *arg1 ; GtkTextTag *arg2 ; GtkTextIter *arg3 ; GtkTextIter *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(tag_, 1); { arg2 = (GtkTextTag *)YPlu(tag_); } ARG(start_, 2); { arg3 = (GtkTextIter *)YPlu(start_); } ARG(end_, 3); { arg4 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_remove_tag(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUapplyUtagUbyUname,"samurui/gtk","gtk_text_buffer_apply_tag_by_name"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUapplyUtagUbyUname); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUapplyUtagUbyUname) { P buffer_, name_, start_, end_; GtkTextBuffer *arg1 ; gchar *arg2 ; GtkTextIter *arg3 ; GtkTextIter *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(start_, 2); { arg3 = (GtkTextIter *)YPlu(start_); } ARG(end_, 3); { arg4 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_apply_tag_by_name(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUremoveUtagUbyUname,"samurui/gtk","gtk_text_buffer_remove_tag_by_name"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUremoveUtagUbyUname); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUremoveUtagUbyUname) { P buffer_, name_, start_, end_; GtkTextBuffer *arg1 ; gchar *arg2 ; GtkTextIter *arg3 ; GtkTextIter *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(name_, 1); { arg2 = (char *)YPsu(name_); } ARG(start_, 2); { arg3 = (GtkTextIter *)YPlu(start_); } ARG(end_, 3); { arg4 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_remove_tag_by_name(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUremoveUallUtags,"samurui/gtk","gtk_text_buffer_remove_all_tags"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUremoveUallUtags); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUremoveUallUtags) { P buffer_, start_, end_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_, 1); { arg2 = (GtkTextIter *)YPlu(start_); } ARG(end_, 2); { arg3 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_remove_all_tags(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUoffset,"samurui/gtk","gtk_text_buffer_get_iter_at_line_offset"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUoffset); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUoffset) { P buffer_, iter_, line_number_, char_offset_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(line_number_, 2); { arg3 = (signed)YPiu(line_number_); } ARG(char_offset_, 3); { arg4 = (signed)YPiu(char_offset_); } gtk_text_buffer_get_iter_at_line_offset(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUindex,"samurui/gtk","gtk_text_buffer_get_iter_at_line_index"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUindex); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUindex) { P buffer_, iter_, line_number_, byte_index_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(line_number_, 2); { arg3 = (signed)YPiu(line_number_); } ARG(byte_index_, 3); { arg4 = (signed)YPiu(byte_index_); } gtk_text_buffer_get_iter_at_line_index(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUoffset,"samurui/gtk","gtk_text_buffer_get_iter_at_offset"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUoffset); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUoffset) { P buffer_, iter_, char_offset_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(char_offset_, 2); { arg3 = (signed)YPiu(char_offset_); } gtk_text_buffer_get_iter_at_offset(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUline,"samurui/gtk","gtk_text_buffer_get_iter_at_line"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUline); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUline) { P buffer_, iter_, line_number_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(line_number_, 2); { arg3 = (signed)YPiu(line_number_); } gtk_text_buffer_get_iter_at_line(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUstartUiter,"samurui/gtk","gtk_text_buffer_get_start_iter"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUstartUiter); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUstartUiter) { P buffer_, iter_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } gtk_text_buffer_get_start_iter(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUendUiter,"samurui/gtk","gtk_text_buffer_get_end_iter"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUendUiter); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUendUiter) { P buffer_, iter_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } gtk_text_buffer_get_end_iter(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUbounds,"samurui/gtk","gtk_text_buffer_get_bounds"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUbounds); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUbounds) { P buffer_, start_, end_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_, 1); { arg2 = (GtkTextIter *)YPlu(start_); } ARG(end_, 2); { arg3 = (GtkTextIter *)YPlu(end_); } gtk_text_buffer_get_bounds(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUmark,"samurui/gtk","gtk_text_buffer_get_iter_at_mark"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUmark); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUmark) { P buffer_, iter_, mark_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextMark *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(mark_, 2); { arg3 = (GtkTextMark *)YPlu(mark_); } gtk_text_buffer_get_iter_at_mark(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUchildUanchor,"samurui/gtk","gtk_text_buffer_get_iter_at_child_anchor"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUchildUanchor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUchildUanchor) { P buffer_, iter_, anchor_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextChildAnchor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(anchor_, 2); { arg3 = (GtkTextChildAnchor *)YPlu(anchor_); } gtk_text_buffer_get_iter_at_child_anchor(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUmodified,"samurui/gtk","gtk_text_buffer_get_modified"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUmodified); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUmodified) { P buffer_; GtkTextBuffer *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (gboolean )gtk_text_buffer_get_modified(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUsetUmodified,"samurui/gtk","gtk_text_buffer_set_modified"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUsetUmodified); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUsetUmodified) { P buffer_, setting_; GtkTextBuffer *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_text_buffer_set_modified(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUaddUselectionUclipboard,"samurui/gtk","gtk_text_buffer_add_selection_clipboard"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUaddUselectionUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUaddUselectionUclipboard) { P buffer_, clipboard_; GtkTextBuffer *arg1 ; GtkClipboard *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(clipboard_, 1); { arg2 = (GtkClipboard *)YPlu(clipboard_); } gtk_text_buffer_add_selection_clipboard(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUremoveUselectionUclipboard,"samurui/gtk","gtk_text_buffer_remove_selection_clipboard"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUremoveUselectionUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUremoveUselectionUclipboard) { P buffer_, clipboard_; GtkTextBuffer *arg1 ; GtkClipboard *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(clipboard_, 1); { arg2 = (GtkClipboard *)YPlu(clipboard_); } gtk_text_buffer_remove_selection_clipboard(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUcutUclipboard,"samurui/gtk","gtk_text_buffer_cut_clipboard"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUcutUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUcutUclipboard) { P buffer_, clipboard_, default_editable_; GtkTextBuffer *arg1 ; GtkClipboard *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(clipboard_, 1); { arg2 = (GtkClipboard *)YPlu(clipboard_); } ARG(default_editable_, 2); { arg3 = (signed)YPiu(default_editable_); } gtk_text_buffer_cut_clipboard(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUcopyUclipboard,"samurui/gtk","gtk_text_buffer_copy_clipboard"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUcopyUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUcopyUclipboard) { P buffer_, clipboard_; GtkTextBuffer *arg1 ; GtkClipboard *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(clipboard_, 1); { arg2 = (GtkClipboard *)YPlu(clipboard_); } gtk_text_buffer_copy_clipboard(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUpasteUclipboard,"samurui/gtk","gtk_text_buffer_paste_clipboard"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUpasteUclipboard); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUpasteUclipboard) { P buffer_, clipboard_, override_location_, default_editable_; GtkTextBuffer *arg1 ; GtkClipboard *arg2 ; GtkTextIter *arg3 ; gboolean arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(clipboard_, 1); { arg2 = (GtkClipboard *)YPlu(clipboard_); } ARG(override_location_, 2); { arg3 = (GtkTextIter *)YPlu(override_location_); } ARG(default_editable_, 3); { arg4 = (signed)YPiu(default_editable_); } gtk_text_buffer_paste_clipboard(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbounds,"samurui/gtk","gtk_text_buffer_get_selection_bounds"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbounds); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbounds) { P buffer_, start_, end_; GtkTextBuffer *arg1 ; GtkTextIter *arg2 ; GtkTextIter *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(start_, 1); { arg2 = (GtkTextIter *)YPlu(start_); } ARG(end_, 2); { arg3 = (GtkTextIter *)YPlu(end_); } result = (gboolean )gtk_text_buffer_get_selection_bounds(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUdeleteUselection,"samurui/gtk","gtk_text_buffer_delete_selection"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUdeleteUselection); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUdeleteUselection) { P buffer_, interactive_, default_editable_; GtkTextBuffer *arg1 ; gboolean arg2 ; gboolean arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } ARG(interactive_, 1); { arg2 = (signed)YPiu(interactive_); } ARG(default_editable_, 2); { arg3 = (signed)YPiu(default_editable_); } result = (gboolean )gtk_text_buffer_delete_selection(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUbeginUuserUaction,"samurui/gtk","gtk_text_buffer_begin_user_action"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUbeginUuserUaction); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUbeginUuserUaction) { P buffer_; GtkTextBuffer *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } gtk_text_buffer_begin_user_action(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUbufferUendUuserUaction,"samurui/gtk","gtk_text_buffer_end_user_action"); FUNFOR(YsamuruiSgtkYgtkUtextUbufferUendUuserUaction); FUNCODEDEF(YsamuruiSgtkYgtkUtextUbufferUendUuserUaction) { P buffer_; GtkTextBuffer *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } gtk_text_buffer_end_user_action(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUtype,"samurui/gtk","gtk_text_view_get_type"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_text_view_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUnew,"samurui/gtk","gtk_text_view_new"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_text_view_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUnewUwithUbuffer,"samurui/gtk","gtk_text_view_new_with_buffer"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUnewUwithUbuffer); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUnewUwithUbuffer) { P buffer_; GtkTextBuffer *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(buffer_, 0); { arg1 = (GtkTextBuffer *)YPlu(buffer_); } result = (GtkWidget *)gtk_text_view_new_with_buffer(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUbuffer,"samurui/gtk","gtk_text_view_set_buffer"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUbuffer); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUbuffer) { P text_view_, buffer_; GtkTextView *arg1 ; GtkTextBuffer *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(buffer_, 1); { arg2 = (GtkTextBuffer *)YPlu(buffer_); } gtk_text_view_set_buffer(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUbuffer,"samurui/gtk","gtk_text_view_get_buffer"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUbuffer); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUbuffer) { P text_view_; GtkTextView *arg1 ; GtkTextBuffer *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (GtkTextBuffer *)gtk_text_view_get_buffer(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUscrollUtoUiter,"samurui/gtk","gtk_text_view_scroll_to_iter"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUscrollUtoUiter); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUscrollUtoUiter) { P text_view_, iter_, within_margin_, use_align_, xalign_, yalign_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gdouble arg3 ; gboolean arg4 ; gdouble arg5 ; gdouble arg6 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(within_margin_, 2); { arg3 = (double)((float)YPfu(within_margin_)); } ARG(use_align_, 3); { arg4 = (signed)YPiu(use_align_); } ARG(xalign_, 4); { arg5 = (double)((float)YPfu(xalign_)); } ARG(yalign_, 5); { arg6 = (double)((float)YPfu(yalign_)); } result = (gboolean )gtk_text_view_scroll_to_iter(arg1,arg2,arg3,arg4,arg5,arg6); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUscrollUtoUmark,"samurui/gtk","gtk_text_view_scroll_to_mark"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUscrollUtoUmark); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUscrollUtoUmark) { P text_view_, mark_, within_margin_, use_align_, xalign_, yalign_; GtkTextView *arg1 ; GtkTextMark *arg2 ; gdouble arg3 ; gboolean arg4 ; gdouble arg5 ; gdouble arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(mark_, 1); { arg2 = (GtkTextMark *)YPlu(mark_); } ARG(within_margin_, 2); { arg3 = (double)((float)YPfu(within_margin_)); } ARG(use_align_, 3); { arg4 = (signed)YPiu(use_align_); } ARG(xalign_, 4); { arg5 = (double)((float)YPfu(xalign_)); } ARG(yalign_, 5); { arg6 = (double)((float)YPfu(yalign_)); } gtk_text_view_scroll_to_mark(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUscrollUmarkUonscreen,"samurui/gtk","gtk_text_view_scroll_mark_onscreen"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUscrollUmarkUonscreen); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUscrollUmarkUonscreen) { P text_view_, mark_; GtkTextView *arg1 ; GtkTextMark *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(mark_, 1); { arg2 = (GtkTextMark *)YPlu(mark_); } gtk_text_view_scroll_mark_onscreen(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUmoveUmarkUonscreen,"samurui/gtk","gtk_text_view_move_mark_onscreen"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUmoveUmarkUonscreen); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUmoveUmarkUonscreen) { P text_view_, mark_; GtkTextView *arg1 ; GtkTextMark *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(mark_, 1); { arg2 = (GtkTextMark *)YPlu(mark_); } result = (gboolean )gtk_text_view_move_mark_onscreen(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUplaceUcursorUonscreen,"samurui/gtk","gtk_text_view_place_cursor_onscreen"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUplaceUcursorUonscreen); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUplaceUcursorUonscreen) { P text_view_; GtkTextView *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gboolean )gtk_text_view_place_cursor_onscreen(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUvisibleUrect,"samurui/gtk","gtk_text_view_get_visible_rect"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUvisibleUrect); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUvisibleUrect) { P text_view_, visible_rect_; GtkTextView *arg1 ; GdkRectangle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(visible_rect_, 1); { arg2 = (GdkRectangle *)YPlu(visible_rect_); } gtk_text_view_get_visible_rect(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUcursorUvisible,"samurui/gtk","gtk_text_view_set_cursor_visible"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUcursorUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUcursorUvisible) { P text_view_, setting_; GtkTextView *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_text_view_set_cursor_visible(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUcursorUvisible,"samurui/gtk","gtk_text_view_get_cursor_visible"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUcursorUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUcursorUvisible) { P text_view_; GtkTextView *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gboolean )gtk_text_view_get_cursor_visible(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUiterUlocation,"samurui/gtk","gtk_text_view_get_iter_location"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUiterUlocation); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUiterUlocation) { P text_view_, iter_, location_; GtkTextView *arg1 ; GtkTextIter *arg2 ; GdkRectangle *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(location_, 2); { arg3 = (GdkRectangle *)YPlu(location_); } gtk_text_view_get_iter_location(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUiterUatUlocation,"samurui/gtk","gtk_text_view_get_iter_at_location"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUiterUatUlocation); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUiterUatUlocation) { P text_view_, iter_, x_, y_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(x_, 2); { arg3 = (signed)YPiu(x_); } ARG(y_, 3); { arg4 = (signed)YPiu(y_); } gtk_text_view_get_iter_at_location(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUlineUyrange,"samurui/gtk","gtk_text_view_get_line_yrange"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUlineUyrange); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUlineUyrange) { P text_view_, iter_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gint *arg3 ; gint *arg4 ; int actualint3 ; int actualint4 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg3 = &actualint3; } { arg4 = &actualint4; } { // ignoring int *OUTPUT for $input arg3 $result $arg 3 } ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } gtk_text_view_get_line_yrange(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg3); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg4); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUlineUatUy,"samurui/gtk","gtk_text_view_get_line_at_y"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUlineUatUy); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUlineUatUy) { P text_view_, target_iter_, y_, line_top_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gint arg3 ; gint *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(target_iter_, 1); { arg2 = (GtkTextIter *)YPlu(target_iter_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(line_top_, 3); { arg4 = (gint *)YPlu(line_top_); } gtk_text_view_get_line_at_y(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUbufferUtoUwindowUcoords,"samurui/gtk","gtk_text_view_buffer_to_window_coords"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUbufferUtoUwindowUcoords); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUbufferUtoUwindowUcoords) { P text_view_, win_, buffer_x_, buffer_y_, window_x_, window_y_; GtkTextView *arg1 ; int arg2 ; gint arg3 ; gint arg4 ; gint *arg5 ; gint *arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(win_, 1); { arg2 = (int)YPiu(win_); } ARG(buffer_x_, 2); { arg3 = (signed)YPiu(buffer_x_); } ARG(buffer_y_, 3); { arg4 = (signed)YPiu(buffer_y_); } ARG(window_x_, 4); { arg5 = (gint *)YPlu(window_x_); } ARG(window_y_, 5); { arg6 = (gint *)YPlu(window_y_); } gtk_text_view_buffer_to_window_coords(arg1,(GtkTextWindowType )arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUwindowUtoUbufferUcoords,"samurui/gtk","gtk_text_view_window_to_buffer_coords"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUwindowUtoUbufferUcoords); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUwindowUtoUbufferUcoords) { P text_view_, win_, window_x_, window_y_, buffer_x_, buffer_y_; GtkTextView *arg1 ; int arg2 ; gint arg3 ; gint arg4 ; gint *arg5 ; gint *arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(win_, 1); { arg2 = (int)YPiu(win_); } ARG(window_x_, 2); { arg3 = (signed)YPiu(window_x_); } ARG(window_y_, 3); { arg4 = (signed)YPiu(window_y_); } ARG(buffer_x_, 4); { arg5 = (gint *)YPlu(buffer_x_); } ARG(buffer_y_, 5); { arg6 = (gint *)YPlu(buffer_y_); } gtk_text_view_window_to_buffer_coords(arg1,(GtkTextWindowType )arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUwindow,"samurui/gtk","gtk_text_view_get_window"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUwindow) { P text_view_, win_; GtkTextView *arg1 ; int arg2 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(win_, 1); { arg2 = (int)YPiu(win_); } result = (GdkWindow *)gtk_text_view_get_window(arg1,(GtkTextWindowType )arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUwindowUtype,"samurui/gtk","gtk_text_view_get_window_type"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUwindowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUwindowUtype) { P text_view_, window_; GtkTextView *arg1 ; GdkWindow *arg2 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(window_, 1); { arg2 = (GdkWindow *)YPlu(window_); } result = (int )gtk_text_view_get_window_type(arg1,arg2); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUborderUwindowUsize,"samurui/gtk","gtk_text_view_set_border_window_size"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUborderUwindowUsize); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUborderUwindowUsize) { P text_view_, type_, size_; GtkTextView *arg1 ; int arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } ARG(size_, 2); { arg3 = (signed)YPiu(size_); } gtk_text_view_set_border_window_size(arg1,(GtkTextWindowType )arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUborderUwindowUsize,"samurui/gtk","gtk_text_view_get_border_window_size"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUborderUwindowUsize); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUborderUwindowUsize) { P text_view_, type_; GtkTextView *arg1 ; int arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } result = (gint )gtk_text_view_get_border_window_size(arg1,(GtkTextWindowType )arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUline,"samurui/gtk","gtk_text_view_forward_display_line"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUline); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUline) { P text_view_, iter_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } result = (gboolean )gtk_text_view_forward_display_line(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUline,"samurui/gtk","gtk_text_view_backward_display_line"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUline); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUline) { P text_view_, iter_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } result = (gboolean )gtk_text_view_backward_display_line(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUlineUend,"samurui/gtk","gtk_text_view_forward_display_line_end"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUlineUend); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUlineUend) { P text_view_, iter_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } result = (gboolean )gtk_text_view_forward_display_line_end(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUlineUstart,"samurui/gtk","gtk_text_view_backward_display_line_start"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUlineUstart); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUlineUstart) { P text_view_, iter_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } result = (gboolean )gtk_text_view_backward_display_line_start(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUstartsUdisplayUline,"samurui/gtk","gtk_text_view_starts_display_line"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUstartsUdisplayUline); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUstartsUdisplayUline) { P text_view_, iter_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } result = (gboolean )gtk_text_view_starts_display_line(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUmoveUvisually,"samurui/gtk","gtk_text_view_move_visually"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUmoveUvisually); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUmoveUvisually) { P text_view_, iter_, count_; GtkTextView *arg1 ; GtkTextIter *arg2 ; gint arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(iter_, 1); { arg2 = (GtkTextIter *)YPlu(iter_); } ARG(count_, 2); { arg3 = (signed)YPiu(count_); } result = (gboolean )gtk_text_view_move_visually(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUaddUchildUatUanchor,"samurui/gtk","gtk_text_view_add_child_at_anchor"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUaddUchildUatUanchor); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUaddUchildUatUanchor) { P text_view_, child_, anchor_; GtkTextView *arg1 ; GtkWidget *arg2 ; GtkTextChildAnchor *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(anchor_, 2); { arg3 = (GtkTextChildAnchor *)YPlu(anchor_); } gtk_text_view_add_child_at_anchor(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUaddUchildUinUwindow,"samurui/gtk","gtk_text_view_add_child_in_window"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUaddUchildUinUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUaddUchildUinUwindow) { P text_view_, child_, which_window_, xpos_, ypos_; GtkTextView *arg1 ; GtkWidget *arg2 ; int arg3 ; gint arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(which_window_, 2); { arg3 = (int)YPiu(which_window_); } ARG(xpos_, 3); { arg4 = (signed)YPiu(xpos_); } ARG(ypos_, 4); { arg5 = (signed)YPiu(ypos_); } gtk_text_view_add_child_in_window(arg1,arg2,(GtkTextWindowType )arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUmoveUchild,"samurui/gtk","gtk_text_view_move_child"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUmoveUchild); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUmoveUchild) { P text_view_, child_, xpos_, ypos_; GtkTextView *arg1 ; GtkWidget *arg2 ; gint arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } ARG(xpos_, 2); { arg3 = (signed)YPiu(xpos_); } ARG(ypos_, 3); { arg4 = (signed)YPiu(ypos_); } gtk_text_view_move_child(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUwrapUmode,"samurui/gtk","gtk_text_view_set_wrap_mode"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUwrapUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUwrapUmode) { P text_view_, wrap_mode_; GtkTextView *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(wrap_mode_, 1); { arg2 = (int)YPiu(wrap_mode_); } gtk_text_view_set_wrap_mode(arg1,(GtkWrapMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUwrapUmode,"samurui/gtk","gtk_text_view_get_wrap_mode"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUwrapUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUwrapUmode) { P text_view_; GtkTextView *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (int )gtk_text_view_get_wrap_mode(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUeditable,"samurui/gtk","gtk_text_view_set_editable"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUeditable); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUeditable) { P text_view_, setting_; GtkTextView *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_text_view_set_editable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUeditable,"samurui/gtk","gtk_text_view_get_editable"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUeditable); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUeditable) { P text_view_; GtkTextView *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gboolean )gtk_text_view_get_editable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUaboveUlines,"samurui/gtk","gtk_text_view_set_pixels_above_lines"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUaboveUlines); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUaboveUlines) { P text_view_, pixels_above_lines_; GtkTextView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(pixels_above_lines_, 1); { arg2 = (signed)YPiu(pixels_above_lines_); } gtk_text_view_set_pixels_above_lines(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUaboveUlines,"samurui/gtk","gtk_text_view_get_pixels_above_lines"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUaboveUlines); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUaboveUlines) { P text_view_; GtkTextView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gint )gtk_text_view_get_pixels_above_lines(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUbelowUlines,"samurui/gtk","gtk_text_view_set_pixels_below_lines"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUbelowUlines); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUbelowUlines) { P text_view_, pixels_below_lines_; GtkTextView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(pixels_below_lines_, 1); { arg2 = (signed)YPiu(pixels_below_lines_); } gtk_text_view_set_pixels_below_lines(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUbelowUlines,"samurui/gtk","gtk_text_view_get_pixels_below_lines"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUbelowUlines); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUbelowUlines) { P text_view_; GtkTextView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gint )gtk_text_view_get_pixels_below_lines(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUinsideUwrap,"samurui/gtk","gtk_text_view_set_pixels_inside_wrap"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUinsideUwrap); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUinsideUwrap) { P text_view_, pixels_inside_wrap_; GtkTextView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(pixels_inside_wrap_, 1); { arg2 = (signed)YPiu(pixels_inside_wrap_); } gtk_text_view_set_pixels_inside_wrap(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUinsideUwrap,"samurui/gtk","gtk_text_view_get_pixels_inside_wrap"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUinsideUwrap); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUinsideUwrap) { P text_view_; GtkTextView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gint )gtk_text_view_get_pixels_inside_wrap(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUjustification,"samurui/gtk","gtk_text_view_set_justification"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUjustification); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUjustification) { P text_view_, justification_; GtkTextView *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(justification_, 1); { arg2 = (int)YPiu(justification_); } gtk_text_view_set_justification(arg1,(GtkJustification )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUjustification,"samurui/gtk","gtk_text_view_get_justification"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUjustification); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUjustification) { P text_view_; GtkTextView *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (int )gtk_text_view_get_justification(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUleftUmargin,"samurui/gtk","gtk_text_view_set_left_margin"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUleftUmargin); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUleftUmargin) { P text_view_, left_margin_; GtkTextView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(left_margin_, 1); { arg2 = (signed)YPiu(left_margin_); } gtk_text_view_set_left_margin(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUleftUmargin,"samurui/gtk","gtk_text_view_get_left_margin"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUleftUmargin); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUleftUmargin) { P text_view_; GtkTextView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gint )gtk_text_view_get_left_margin(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUrightUmargin,"samurui/gtk","gtk_text_view_set_right_margin"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUrightUmargin); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUrightUmargin) { P text_view_, right_margin_; GtkTextView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(right_margin_, 1); { arg2 = (signed)YPiu(right_margin_); } gtk_text_view_set_right_margin(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUrightUmargin,"samurui/gtk","gtk_text_view_get_right_margin"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUrightUmargin); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUrightUmargin) { P text_view_; GtkTextView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gint )gtk_text_view_get_right_margin(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUindent,"samurui/gtk","gtk_text_view_set_indent"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUindent); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUindent) { P text_view_, indent_; GtkTextView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(indent_, 1); { arg2 = (signed)YPiu(indent_); } gtk_text_view_set_indent(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUindent,"samurui/gtk","gtk_text_view_get_indent"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUindent); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUindent) { P text_view_; GtkTextView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (gint )gtk_text_view_get_indent(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUsetUtabs,"samurui/gtk","gtk_text_view_set_tabs"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUsetUtabs); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUsetUtabs) { P text_view_, tabs_; GtkTextView *arg1 ; PangoTabArray *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } ARG(tabs_, 1); { arg2 = (PangoTabArray *)YPlu(tabs_); } gtk_text_view_set_tabs(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUtabs,"samurui/gtk","gtk_text_view_get_tabs"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUtabs); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUtabs) { P text_view_; GtkTextView *arg1 ; PangoTabArray *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (PangoTabArray *)gtk_text_view_get_tabs(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtextUviewUgetUdefaultUattributes,"samurui/gtk","gtk_text_view_get_default_attributes"); FUNFOR(YsamuruiSgtkYgtkUtextUviewUgetUdefaultUattributes); FUNCODEDEF(YsamuruiSgtkYgtkUtextUviewUgetUdefaultUattributes) { P text_view_; GtkTextView *arg1 ; GtkTextAttributes *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(text_view_, 0); { arg1 = (GtkTextView *)YPlu(text_view_); } result = (GtkTextAttributes *)gtk_text_view_get_default_attributes(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtipsUqueryUnew,"samurui/gtk","gtk_tips_query_new"); FUNFOR(YsamuruiSgtkYgtkUtipsUqueryUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtipsUqueryUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_tips_query_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtipsUqueryUstartUquery,"samurui/gtk","gtk_tips_query_start_query"); FUNFOR(YsamuruiSgtkYgtkUtipsUqueryUstartUquery); FUNCODEDEF(YsamuruiSgtkYgtkUtipsUqueryUstartUquery) { P tips_query_; GtkTipsQuery *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tips_query_, 0); { arg1 = (GtkTipsQuery *)YPlu(tips_query_); } gtk_tips_query_start_query(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtipsUqueryUstopUquery,"samurui/gtk","gtk_tips_query_stop_query"); FUNFOR(YsamuruiSgtkYgtkUtipsUqueryUstopUquery); FUNCODEDEF(YsamuruiSgtkYgtkUtipsUqueryUstopUquery) { P tips_query_; GtkTipsQuery *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tips_query_, 0); { arg1 = (GtkTipsQuery *)YPlu(tips_query_); } gtk_tips_query_stop_query(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtipsUqueryUsetUcaller,"samurui/gtk","gtk_tips_query_set_caller"); FUNFOR(YsamuruiSgtkYgtkUtipsUqueryUsetUcaller); FUNCODEDEF(YsamuruiSgtkYgtkUtipsUqueryUsetUcaller) { P tips_query_, caller_; GtkTipsQuery *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tips_query_, 0); { arg1 = (GtkTipsQuery *)YPlu(tips_query_); } ARG(caller_, 1); { arg2 = (GtkWidget *)YPlu(caller_); } gtk_tips_query_set_caller(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtipsUqueryUsetUlabels,"samurui/gtk","gtk_tips_query_set_labels"); FUNFOR(YsamuruiSgtkYgtkUtipsUqueryUsetUlabels); FUNCODEDEF(YsamuruiSgtkYgtkUtipsUqueryUsetUlabels) { P tips_query_, label_inactive_, label_no_tip_; GtkTipsQuery *arg1 ; gchar *arg2 ; gchar *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tips_query_, 0); { arg1 = (GtkTipsQuery *)YPlu(tips_query_); } ARG(label_inactive_, 1); { arg2 = (char *)YPsu(label_inactive_); } ARG(label_no_tip_, 2); { arg3 = (char *)YPsu(label_no_tip_); } gtk_tips_query_set_labels(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUnew,"samurui/gtk","gtk_toggle_button_new"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_toggle_button_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUlabel,"samurui/gtk","gtk_toggle_button_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_toggle_button_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUmnemonic,"samurui/gtk","gtk_toggle_button_new_with_mnemonic"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUmnemonic); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUmnemonic) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_toggle_button_new_with_mnemonic(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUsetUmode,"samurui/gtk","gtk_toggle_button_set_mode"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUsetUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUsetUmode) { P toggle_button_, draw_indicator_; GtkToggleButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } ARG(draw_indicator_, 1); { arg2 = (signed)YPiu(draw_indicator_); } gtk_toggle_button_set_mode(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUgetUmode,"samurui/gtk","gtk_toggle_button_get_mode"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUgetUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUgetUmode) { P toggle_button_; GtkToggleButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } result = (gboolean )gtk_toggle_button_get_mode(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUsetUactive,"samurui/gtk","gtk_toggle_button_set_active"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUsetUactive); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUsetUactive) { P toggle_button_, is_active_; GtkToggleButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } ARG(is_active_, 1); { arg2 = (signed)YPiu(is_active_); } gtk_toggle_button_set_active(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUgetUactive,"samurui/gtk","gtk_toggle_button_get_active"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUgetUactive); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUgetUactive) { P toggle_button_; GtkToggleButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } result = (gboolean )gtk_toggle_button_get_active(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUtoggled,"samurui/gtk","gtk_toggle_button_toggled"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUtoggled); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUtoggled) { P toggle_button_; GtkToggleButton *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } gtk_toggle_button_toggled(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUsetUinconsistent,"samurui/gtk","gtk_toggle_button_set_inconsistent"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUsetUinconsistent); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUsetUinconsistent) { P toggle_button_, setting_; GtkToggleButton *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_toggle_button_set_inconsistent(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoggleUbuttonUgetUinconsistent,"samurui/gtk","gtk_toggle_button_get_inconsistent"); FUNFOR(YsamuruiSgtkYgtkUtoggleUbuttonUgetUinconsistent); FUNCODEDEF(YsamuruiSgtkYgtkUtoggleUbuttonUgetUinconsistent) { P toggle_button_; GtkToggleButton *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toggle_button_, 0); { arg1 = (GtkToggleButton *)YPlu(toggle_button_); } result = (gboolean )gtk_toggle_button_get_inconsistent(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUnew,"samurui/gtk","gtk_toolbar_new"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_toolbar_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUappendUitem,"samurui/gtk","gtk_toolbar_append_item"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUappendUitem); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUappendUitem) { P toolbar_, text_, tooltip_text_, tooltip_private_text_, icon_, callback_, user_data_; GtkToolbar *arg1 ; char *arg2 ; char *arg3 ; char *arg4 ; GtkWidget *arg5 ; GtkSignalFunc arg6 ; gpointer arg7 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } ARG(icon_, 4); { arg5 = (GtkWidget *)YPlu(icon_); } ARG(callback_, 5); { arg6 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 6); { arg7 = (gpointer )YPlu(user_data_); } result = (GtkWidget *)gtk_toolbar_append_item(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUprependUitem,"samurui/gtk","gtk_toolbar_prepend_item"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUprependUitem); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUprependUitem) { P toolbar_, text_, tooltip_text_, tooltip_private_text_, icon_, callback_, user_data_; GtkToolbar *arg1 ; char *arg2 ; char *arg3 ; char *arg4 ; GtkWidget *arg5 ; GtkSignalFunc arg6 ; gpointer arg7 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } ARG(icon_, 4); { arg5 = (GtkWidget *)YPlu(icon_); } ARG(callback_, 5); { arg6 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 6); { arg7 = (gpointer )YPlu(user_data_); } result = (GtkWidget *)gtk_toolbar_prepend_item(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUinsertUitem,"samurui/gtk","gtk_toolbar_insert_item"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUinsertUitem); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUinsertUitem) { P toolbar_, text_, tooltip_text_, tooltip_private_text_, icon_, callback_, user_data_, position_; GtkToolbar *arg1 ; char *arg2 ; char *arg3 ; char *arg4 ; GtkWidget *arg5 ; GtkSignalFunc arg6 ; gpointer arg7 ; gint arg8 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(text_, 1); { arg2 = (char *)YPsu(text_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } ARG(icon_, 4); { arg5 = (GtkWidget *)YPlu(icon_); } ARG(callback_, 5); { arg6 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 6); { arg7 = (gpointer )YPlu(user_data_); } ARG(position_, 7); { arg8 = (signed)YPiu(position_); } result = (GtkWidget *)gtk_toolbar_insert_item(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUinsertUstock,"samurui/gtk","gtk_toolbar_insert_stock"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUinsertUstock); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUinsertUstock) { P toolbar_, stock_id_, tooltip_text_, tooltip_private_text_, callback_, user_data_, position_; GtkToolbar *arg1 ; gchar *arg2 ; char *arg3 ; char *arg4 ; GtkSignalFunc arg5 ; gpointer arg6 ; gint arg7 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(stock_id_, 1); { arg2 = (char *)YPsu(stock_id_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } ARG(callback_, 4); { arg5 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 5); { arg6 = (gpointer )YPlu(user_data_); } ARG(position_, 6); { arg7 = (signed)YPiu(position_); } result = (GtkWidget *)gtk_toolbar_insert_stock(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUappendUspace,"samurui/gtk","gtk_toolbar_append_space"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUappendUspace); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUappendUspace) { P toolbar_; GtkToolbar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } gtk_toolbar_append_space(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUprependUspace,"samurui/gtk","gtk_toolbar_prepend_space"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUprependUspace); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUprependUspace) { P toolbar_; GtkToolbar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } gtk_toolbar_prepend_space(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUinsertUspace,"samurui/gtk","gtk_toolbar_insert_space"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUinsertUspace); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUinsertUspace) { P toolbar_, position_; GtkToolbar *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(position_, 1); { arg2 = (signed)YPiu(position_); } gtk_toolbar_insert_space(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUremoveUspace,"samurui/gtk","gtk_toolbar_remove_space"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUremoveUspace); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUremoveUspace) { P toolbar_, position_; GtkToolbar *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(position_, 1); { arg2 = (signed)YPiu(position_); } gtk_toolbar_remove_space(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUappendUelement,"samurui/gtk","gtk_toolbar_append_element"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUappendUelement); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUappendUelement) { P toolbar_, type_, widget_, text_, tooltip_text_, tooltip_private_text_, icon_, callback_, user_data_; GtkToolbar *arg1 ; int arg2 ; GtkWidget *arg3 ; char *arg4 ; char *arg5 ; char *arg6 ; GtkWidget *arg7 ; GtkSignalFunc arg8 ; gpointer arg9 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } ARG(widget_, 2); { arg3 = (GtkWidget *)YPlu(widget_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } ARG(tooltip_text_, 4); { arg5 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 5); { arg6 = (char *)YPsu(tooltip_private_text_); } ARG(icon_, 6); { arg7 = (GtkWidget *)YPlu(icon_); } ARG(callback_, 7); { arg8 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 8); { arg9 = (gpointer )YPlu(user_data_); } result = (GtkWidget *)gtk_toolbar_append_element(arg1,(GtkToolbarChildType )arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUprependUelement,"samurui/gtk","gtk_toolbar_prepend_element"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUprependUelement); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUprependUelement) { P toolbar_, type_, widget_, text_, tooltip_text_, tooltip_private_text_, icon_, callback_, user_data_; GtkToolbar *arg1 ; int arg2 ; GtkWidget *arg3 ; char *arg4 ; char *arg5 ; char *arg6 ; GtkWidget *arg7 ; GtkSignalFunc arg8 ; gpointer arg9 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } ARG(widget_, 2); { arg3 = (GtkWidget *)YPlu(widget_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } ARG(tooltip_text_, 4); { arg5 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 5); { arg6 = (char *)YPsu(tooltip_private_text_); } ARG(icon_, 6); { arg7 = (GtkWidget *)YPlu(icon_); } ARG(callback_, 7); { arg8 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 8); { arg9 = (gpointer )YPlu(user_data_); } result = (GtkWidget *)gtk_toolbar_prepend_element(arg1,(GtkToolbarChildType )arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUinsertUelement,"samurui/gtk","gtk_toolbar_insert_element"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUinsertUelement); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUinsertUelement) { P toolbar_, type_, widget_, text_, tooltip_text_, tooltip_private_text_, icon_, callback_, user_data_, position_; GtkToolbar *arg1 ; int arg2 ; GtkWidget *arg3 ; char *arg4 ; char *arg5 ; char *arg6 ; GtkWidget *arg7 ; GtkSignalFunc arg8 ; gpointer arg9 ; gint arg10 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } ARG(widget_, 2); { arg3 = (GtkWidget *)YPlu(widget_); } ARG(text_, 3); { arg4 = (char *)YPsu(text_); } ARG(tooltip_text_, 4); { arg5 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 5); { arg6 = (char *)YPsu(tooltip_private_text_); } ARG(icon_, 6); { arg7 = (GtkWidget *)YPlu(icon_); } ARG(callback_, 7); { arg8 = (GtkSignalFunc )YPlu(callback_); } ARG(user_data_, 8); { arg9 = (gpointer )YPlu(user_data_); } ARG(position_, 9); { arg10 = (signed)YPiu(position_); } result = (GtkWidget *)gtk_toolbar_insert_element(arg1,(GtkToolbarChildType )arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUappendUwidget,"samurui/gtk","gtk_toolbar_append_widget"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUappendUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUappendUwidget) { P toolbar_, widget_, tooltip_text_, tooltip_private_text_; GtkToolbar *arg1 ; GtkWidget *arg2 ; char *arg3 ; char *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } gtk_toolbar_append_widget(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUprependUwidget,"samurui/gtk","gtk_toolbar_prepend_widget"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUprependUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUprependUwidget) { P toolbar_, widget_, tooltip_text_, tooltip_private_text_; GtkToolbar *arg1 ; GtkWidget *arg2 ; char *arg3 ; char *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } gtk_toolbar_prepend_widget(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUinsertUwidget,"samurui/gtk","gtk_toolbar_insert_widget"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUinsertUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUinsertUwidget) { P toolbar_, widget_, tooltip_text_, tooltip_private_text_, position_; GtkToolbar *arg1 ; GtkWidget *arg2 ; char *arg3 ; char *arg4 ; gint arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(tooltip_text_, 2); { arg3 = (char *)YPsu(tooltip_text_); } ARG(tooltip_private_text_, 3); { arg4 = (char *)YPsu(tooltip_private_text_); } ARG(position_, 4); { arg5 = (signed)YPiu(position_); } gtk_toolbar_insert_widget(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUsetUorientation,"samurui/gtk","gtk_toolbar_set_orientation"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUsetUorientation); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUsetUorientation) { P toolbar_, orientation_; GtkToolbar *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(orientation_, 1); { arg2 = (int)YPiu(orientation_); } gtk_toolbar_set_orientation(arg1,(GtkOrientation )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUsetUstyle,"samurui/gtk","gtk_toolbar_set_style"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUsetUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUsetUstyle) { P toolbar_, style_; GtkToolbar *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(style_, 1); { arg2 = (int)YPiu(style_); } gtk_toolbar_set_style(arg1,(GtkToolbarStyle )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUsetUiconUsize,"samurui/gtk","gtk_toolbar_set_icon_size"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUsetUiconUsize); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUsetUiconUsize) { P toolbar_, icon_size_; GtkToolbar *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(icon_size_, 1); { arg2 = (int)YPiu(icon_size_); } gtk_toolbar_set_icon_size(arg1,(GtkIconSize )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUsetUtooltips,"samurui/gtk","gtk_toolbar_set_tooltips"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUsetUtooltips); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUsetUtooltips) { P toolbar_, enable_; GtkToolbar *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } ARG(enable_, 1); { arg2 = (signed)YPiu(enable_); } gtk_toolbar_set_tooltips(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUunsetUstyle,"samurui/gtk","gtk_toolbar_unset_style"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUunsetUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUunsetUstyle) { P toolbar_; GtkToolbar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } gtk_toolbar_unset_style(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUunsetUiconUsize,"samurui/gtk","gtk_toolbar_unset_icon_size"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUunsetUiconUsize); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUunsetUiconUsize) { P toolbar_; GtkToolbar *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } gtk_toolbar_unset_icon_size(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUgetUorientation,"samurui/gtk","gtk_toolbar_get_orientation"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUgetUorientation); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUgetUorientation) { P toolbar_; GtkToolbar *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } result = (int )gtk_toolbar_get_orientation(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUgetUstyle,"samurui/gtk","gtk_toolbar_get_style"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUgetUstyle); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUgetUstyle) { P toolbar_; GtkToolbar *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } result = (int )gtk_toolbar_get_style(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUgetUiconUsize,"samurui/gtk","gtk_toolbar_get_icon_size"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUgetUiconUsize); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUgetUiconUsize) { P toolbar_; GtkToolbar *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } result = (int )gtk_toolbar_get_icon_size(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtoolbarUgetUtooltips,"samurui/gtk","gtk_toolbar_get_tooltips"); FUNFOR(YsamuruiSgtkYgtkUtoolbarUgetUtooltips); FUNCODEDEF(YsamuruiSgtkYgtkUtoolbarUgetUtooltips) { P toolbar_; GtkToolbar *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(toolbar_, 0); { arg1 = (GtkToolbar *)YPlu(toolbar_); } result = (gboolean )gtk_toolbar_get_tooltips(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtooltipsUnew,"samurui/gtk","gtk_tooltips_new"); FUNFOR(YsamuruiSgtkYgtkUtooltipsUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtooltipsUnew) { GtkTooltips *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkTooltips *)gtk_tooltips_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtooltipsUenable,"samurui/gtk","gtk_tooltips_enable"); FUNFOR(YsamuruiSgtkYgtkUtooltipsUenable); FUNCODEDEF(YsamuruiSgtkYgtkUtooltipsUenable) { P tooltips_; GtkTooltips *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tooltips_, 0); { arg1 = (GtkTooltips *)YPlu(tooltips_); } gtk_tooltips_enable(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtooltipsUdisable,"samurui/gtk","gtk_tooltips_disable"); FUNFOR(YsamuruiSgtkYgtkUtooltipsUdisable); FUNCODEDEF(YsamuruiSgtkYgtkUtooltipsUdisable) { P tooltips_; GtkTooltips *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tooltips_, 0); { arg1 = (GtkTooltips *)YPlu(tooltips_); } gtk_tooltips_disable(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtooltipsUsetUtip,"samurui/gtk","gtk_tooltips_set_tip"); FUNFOR(YsamuruiSgtkYgtkUtooltipsUsetUtip); FUNCODEDEF(YsamuruiSgtkYgtkUtooltipsUsetUtip) { P tooltips_, widget_, tip_text_, tip_private_; GtkTooltips *arg1 ; GtkWidget *arg2 ; gchar *arg3 ; gchar *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tooltips_, 0); { arg1 = (GtkTooltips *)YPlu(tooltips_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } ARG(tip_text_, 2); { arg3 = (char *)YPsu(tip_text_); } ARG(tip_private_, 3); { arg4 = (char *)YPsu(tip_private_); } gtk_tooltips_set_tip(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtooltipsUdataUget,"samurui/gtk","gtk_tooltips_data_get"); FUNFOR(YsamuruiSgtkYgtkUtooltipsUdataUget); FUNCODEDEF(YsamuruiSgtkYgtkUtooltipsUdataUget) { P widget_; GtkWidget *arg1 ; GtkTooltipsData *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(widget_, 0); { arg1 = (GtkWidget *)YPlu(widget_); } result = (GtkTooltipsData *)gtk_tooltips_data_get(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtooltipsUforceUwindow,"samurui/gtk","gtk_tooltips_force_window"); FUNFOR(YsamuruiSgtkYgtkUtooltipsUforceUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUtooltipsUforceUwindow) { P tooltips_; GtkTooltips *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tooltips_, 0); { arg1 = (GtkTooltips *)YPlu(tooltips_); } gtk_tooltips_force_window(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUnew,"samurui/gtk","gtk_tree_new"); FUNFOR(YsamuruiSgtkYgtkUtreeUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_tree_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUappend,"samurui/gtk","gtk_tree_append"); FUNFOR(YsamuruiSgtkYgtkUtreeUappend); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUappend) { P tree_, tree_item_; GtkTree *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(tree_item_, 1); { arg2 = (GtkWidget *)YPlu(tree_item_); } gtk_tree_append(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUprepend,"samurui/gtk","gtk_tree_prepend"); FUNFOR(YsamuruiSgtkYgtkUtreeUprepend); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUprepend) { P tree_, tree_item_; GtkTree *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(tree_item_, 1); { arg2 = (GtkWidget *)YPlu(tree_item_); } gtk_tree_prepend(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUinsert,"samurui/gtk","gtk_tree_insert"); FUNFOR(YsamuruiSgtkYgtkUtreeUinsert); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUinsert) { P tree_, tree_item_, position_; GtkTree *arg1 ; GtkWidget *arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(tree_item_, 1); { arg2 = (GtkWidget *)YPlu(tree_item_); } ARG(position_, 2); { arg3 = (signed)YPiu(position_); } gtk_tree_insert(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUremoveUitems,"samurui/gtk","gtk_tree_remove_items"); FUNFOR(YsamuruiSgtkYgtkUtreeUremoveUitems); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUremoveUitems) { P tree_, items_; GtkTree *arg1 ; GList *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(items_, 1); { arg2 = (GList *)YPlu(items_); } gtk_tree_remove_items(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUclearUitems,"samurui/gtk","gtk_tree_clear_items"); FUNFOR(YsamuruiSgtkYgtkUtreeUclearUitems); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUclearUitems) { P tree_, start_, end_; GtkTree *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(start_, 1); { arg2 = (signed)YPiu(start_); } ARG(end_, 2); { arg3 = (signed)YPiu(end_); } gtk_tree_clear_items(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectUitem,"samurui/gtk","gtk_tree_select_item"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectUitem); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectUitem) { P tree_, item_; GtkTree *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(item_, 1); { arg2 = (signed)YPiu(item_); } gtk_tree_select_item(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUunselectUitem,"samurui/gtk","gtk_tree_unselect_item"); FUNFOR(YsamuruiSgtkYgtkUtreeUunselectUitem); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUunselectUitem) { P tree_, item_; GtkTree *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(item_, 1); { arg2 = (signed)YPiu(item_); } gtk_tree_unselect_item(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectUchild,"samurui/gtk","gtk_tree_select_child"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectUchild); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectUchild) { P tree_, tree_item_; GtkTree *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(tree_item_, 1); { arg2 = (GtkWidget *)YPlu(tree_item_); } gtk_tree_select_child(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUunselectUchild,"samurui/gtk","gtk_tree_unselect_child"); FUNFOR(YsamuruiSgtkYgtkUtreeUunselectUchild); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUunselectUchild) { P tree_, tree_item_; GtkTree *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(tree_item_, 1); { arg2 = (GtkWidget *)YPlu(tree_item_); } gtk_tree_unselect_child(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUchildUposition,"samurui/gtk","gtk_tree_child_position"); FUNFOR(YsamuruiSgtkYgtkUtreeUchildUposition); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUchildUposition) { P tree_, child_; GtkTree *arg1 ; GtkWidget *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(child_, 1); { arg2 = (GtkWidget *)YPlu(child_); } result = (gint )gtk_tree_child_position(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUsetUselectionUmode,"samurui/gtk","gtk_tree_set_selection_mode"); FUNFOR(YsamuruiSgtkYgtkUtreeUsetUselectionUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUsetUselectionUmode) { P tree_, mode_; GtkTree *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } gtk_tree_set_selection_mode(arg1,(GtkSelectionMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUsetUviewUmode,"samurui/gtk","gtk_tree_set_view_mode"); FUNFOR(YsamuruiSgtkYgtkUtreeUsetUviewUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUsetUviewUmode) { P tree_, mode_; GtkTree *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(mode_, 1); { arg2 = (int)YPiu(mode_); } gtk_tree_set_view_mode(arg1,(GtkTreeViewMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUsetUviewUlines,"samurui/gtk","gtk_tree_set_view_lines"); FUNFOR(YsamuruiSgtkYgtkUtreeUsetUviewUlines); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUsetUviewUlines) { P tree_, flag_; GtkTree *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_, 0); { arg1 = (GtkTree *)YPlu(tree_); } ARG(flag_, 1); { arg2 = (signed)YPiu(flag_); } gtk_tree_set_view_lines(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUnew,"samurui/gtk","gtk_tree_item_new"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_tree_item_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUnewUwithUlabel,"samurui/gtk","gtk_tree_item_new_with_label"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUnewUwithUlabel); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUnewUwithUlabel) { P label_; gchar *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(label_, 0); { arg1 = (char *)YPsu(label_); } result = (GtkWidget *)gtk_tree_item_new_with_label(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUsetUsubtree,"samurui/gtk","gtk_tree_item_set_subtree"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUsetUsubtree); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUsetUsubtree) { P tree_item_, subtree_; GtkTreeItem *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_item_, 0); { arg1 = (GtkTreeItem *)YPlu(tree_item_); } ARG(subtree_, 1); { arg2 = (GtkWidget *)YPlu(subtree_); } gtk_tree_item_set_subtree(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUremoveUsubtree,"samurui/gtk","gtk_tree_item_remove_subtree"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUremoveUsubtree); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUremoveUsubtree) { P tree_item_; GtkTreeItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_item_, 0); { arg1 = (GtkTreeItem *)YPlu(tree_item_); } gtk_tree_item_remove_subtree(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUselect,"samurui/gtk","gtk_tree_item_select"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUselect); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUselect) { P tree_item_; GtkTreeItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_item_, 0); { arg1 = (GtkTreeItem *)YPlu(tree_item_); } gtk_tree_item_select(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUdeselect,"samurui/gtk","gtk_tree_item_deselect"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUdeselect); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUdeselect) { P tree_item_; GtkTreeItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_item_, 0); { arg1 = (GtkTreeItem *)YPlu(tree_item_); } gtk_tree_item_deselect(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUexpand,"samurui/gtk","gtk_tree_item_expand"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUexpand); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUexpand) { P tree_item_; GtkTreeItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_item_, 0); { arg1 = (GtkTreeItem *)YPlu(tree_item_); } gtk_tree_item_expand(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUitemUcollapse,"samurui/gtk","gtk_tree_item_collapse"); FUNFOR(YsamuruiSgtkYgtkUtreeUitemUcollapse); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUitemUcollapse) { P tree_item_; GtkTreeItem *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_item_, 0); { arg1 = (GtkTreeItem *)YPlu(tree_item_); } gtk_tree_item_collapse(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUgetUtype,"samurui/gtk","gtk_tree_selection_get_type"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_tree_selection_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUsetUmode,"samurui/gtk","gtk_tree_selection_set_mode"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUsetUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUsetUmode) { P selection_, type_; GtkTreeSelection *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_tree_selection_set_mode(arg1,(GtkSelectionMode )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUgetUmode,"samurui/gtk","gtk_tree_selection_get_mode"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUgetUmode); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUgetUmode) { P selection_; GtkTreeSelection *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } result = (int )gtk_tree_selection_get_mode(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUsetUselectUfunction,"samurui/gtk","gtk_tree_selection_set_select_function"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUsetUselectUfunction); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUsetUselectUfunction) { P selection_, func_, data_, destroy_; GtkTreeSelection *arg1 ; GtkTreeSelectionFunc arg2 ; gpointer arg3 ; GtkDestroyNotify arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(func_, 1); { arg2 = (GtkTreeSelectionFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } ARG(destroy_, 3); { arg4 = (GtkDestroyNotify )YPlu(destroy_); } gtk_tree_selection_set_select_function(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUgetUuserUdata,"samurui/gtk","gtk_tree_selection_get_user_data"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUgetUuserUdata); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUgetUuserUdata) { P selection_; GtkTreeSelection *arg1 ; P result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } result = gtk_tree_selection_get_user_data(arg1); { retval = result; } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUgetUtreeUview,"samurui/gtk","gtk_tree_selection_get_tree_view"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUgetUtreeUview); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUgetUtreeUview) { P selection_; GtkTreeSelection *arg1 ; GtkTreeView *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } result = (GtkTreeView *)gtk_tree_selection_get_tree_view(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUgetUselected,"samurui/gtk","gtk_tree_selection_get_selected"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUgetUselected); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUgetUselected) { P selection_, model_, iter_; GtkTreeSelection *arg1 ; GtkTreeModel **arg2 ; GtkTreeIter *arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(model_, 1); { arg2 = (GtkTreeModel **)YPlu(model_); } ARG(iter_, 2); { arg3 = (GtkTreeIter *)YPlu(iter_); } result = (gboolean )gtk_tree_selection_get_selected(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUselectedUforeach,"samurui/gtk","gtk_tree_selection_selected_foreach"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUselectedUforeach); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUselectedUforeach) { P selection_, func_, data_; GtkTreeSelection *arg1 ; GtkTreeSelectionForeachFunc arg2 ; gpointer arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(func_, 1); { arg2 = (GtkTreeSelectionForeachFunc )YPlu(func_); } ARG(data_, 2); { arg3 = (gpointer )YPlu(data_); } gtk_tree_selection_selected_foreach(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUselectUpath,"samurui/gtk","gtk_tree_selection_select_path"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUselectUpath); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUselectUpath) { P selection_, path_; GtkTreeSelection *arg1 ; GtkTreePath *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } gtk_tree_selection_select_path(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUunselectUpath,"samurui/gtk","gtk_tree_selection_unselect_path"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUunselectUpath); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUunselectUpath) { P selection_, path_; GtkTreeSelection *arg1 ; GtkTreePath *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } gtk_tree_selection_unselect_path(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUselectUiter,"samurui/gtk","gtk_tree_selection_select_iter"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUselectUiter); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUselectUiter) { P selection_, iter_; GtkTreeSelection *arg1 ; GtkTreeIter *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(iter_, 1); { arg2 = (GtkTreeIter *)YPlu(iter_); } gtk_tree_selection_select_iter(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUunselectUiter,"samurui/gtk","gtk_tree_selection_unselect_iter"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUunselectUiter); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUunselectUiter) { P selection_, iter_; GtkTreeSelection *arg1 ; GtkTreeIter *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(iter_, 1); { arg2 = (GtkTreeIter *)YPlu(iter_); } gtk_tree_selection_unselect_iter(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUpathUisUselected,"samurui/gtk","gtk_tree_selection_path_is_selected"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUpathUisUselected); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUpathUisUselected) { P selection_, path_; GtkTreeSelection *arg1 ; GtkTreePath *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } result = (gboolean )gtk_tree_selection_path_is_selected(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUiterUisUselected,"samurui/gtk","gtk_tree_selection_iter_is_selected"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUiterUisUselected); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUiterUisUselected) { P selection_, iter_; GtkTreeSelection *arg1 ; GtkTreeIter *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(iter_, 1); { arg2 = (GtkTreeIter *)YPlu(iter_); } result = (gboolean )gtk_tree_selection_iter_is_selected(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUselectUall,"samurui/gtk","gtk_tree_selection_select_all"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUselectUall); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUselectUall) { P selection_; GtkTreeSelection *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } gtk_tree_selection_select_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUunselectUall,"samurui/gtk","gtk_tree_selection_unselect_all"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUunselectUall); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUunselectUall) { P selection_; GtkTreeSelection *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } gtk_tree_selection_unselect_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUselectionUselectUrange,"samurui/gtk","gtk_tree_selection_select_range"); FUNFOR(YsamuruiSgtkYgtkUtreeUselectionUselectUrange); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUselectionUselectUrange) { P selection_, start_path_, end_path_; GtkTreeSelection *arg1 ; GtkTreePath *arg2 ; GtkTreePath *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(selection_, 0); { arg1 = (GtkTreeSelection *)YPlu(selection_); } ARG(start_path_, 1); { arg2 = (GtkTreePath *)YPlu(start_path_); } ARG(end_path_, 2); { arg3 = (GtkTreePath *)YPlu(end_path_); } gtk_tree_selection_select_range(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUtype,"samurui/gtk","gtk_tree_view_get_type"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_tree_view_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUnew,"samurui/gtk","gtk_tree_view_new"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_tree_view_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUnewUwithUmodel,"samurui/gtk","gtk_tree_view_new_with_model"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUnewUwithUmodel); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUnewUwithUmodel) { P model_; GtkTreeModel *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(model_, 0); { arg1 = (GtkTreeModel *)YPlu(model_); } result = (GtkWidget *)gtk_tree_view_new_with_model(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUmodel,"samurui/gtk","gtk_tree_view_get_model"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUmodel); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUmodel) { P tree_view_; GtkTreeView *arg1 ; GtkTreeModel *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GtkTreeModel *)gtk_tree_view_get_model(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUmodel,"samurui/gtk","gtk_tree_view_set_model"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUmodel); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUmodel) { P tree_view_, model_; GtkTreeView *arg1 ; GtkTreeModel *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(model_, 1); { arg2 = (GtkTreeModel *)YPlu(model_); } gtk_tree_view_set_model(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUselection,"samurui/gtk","gtk_tree_view_get_selection"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUselection); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUselection) { P tree_view_; GtkTreeView *arg1 ; GtkTreeSelection *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GtkTreeSelection *)gtk_tree_view_get_selection(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUhadjustment,"samurui/gtk","gtk_tree_view_get_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUhadjustment) { P tree_view_; GtkTreeView *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GtkAdjustment *)gtk_tree_view_get_hadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUhadjustment,"samurui/gtk","gtk_tree_view_set_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUhadjustment) { P tree_view_, adjustment_; GtkTreeView *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_tree_view_set_hadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUvadjustment,"samurui/gtk","gtk_tree_view_get_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUvadjustment) { P tree_view_; GtkTreeView *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GtkAdjustment *)gtk_tree_view_get_vadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUvadjustment,"samurui/gtk","gtk_tree_view_set_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUvadjustment) { P tree_view_, adjustment_; GtkTreeView *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_tree_view_set_vadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUheadersUvisible,"samurui/gtk","gtk_tree_view_get_headers_visible"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUheadersUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUheadersUvisible) { P tree_view_; GtkTreeView *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (gboolean )gtk_tree_view_get_headers_visible(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUvisible,"samurui/gtk","gtk_tree_view_set_headers_visible"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUvisible) { P tree_view_, headers_visible_; GtkTreeView *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(headers_visible_, 1); { arg2 = (signed)YPiu(headers_visible_); } gtk_tree_view_set_headers_visible(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnsUautosize,"samurui/gtk","gtk_tree_view_columns_autosize"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnsUautosize); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnsUautosize) { P tree_view_; GtkTreeView *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } gtk_tree_view_columns_autosize(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUclickable,"samurui/gtk","gtk_tree_view_set_headers_clickable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUclickable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUclickable) { P tree_view_, setting_; GtkTreeView *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_tree_view_set_headers_clickable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUrulesUhint,"samurui/gtk","gtk_tree_view_set_rules_hint"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUrulesUhint); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUrulesUhint) { P tree_view_, setting_; GtkTreeView *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_tree_view_set_rules_hint(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUrulesUhint,"samurui/gtk","gtk_tree_view_get_rules_hint"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUrulesUhint); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUrulesUhint) { P tree_view_; GtkTreeView *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (gboolean )gtk_tree_view_get_rules_hint(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUappendUcolumn,"samurui/gtk","gtk_tree_view_append_column"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUappendUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUappendUcolumn) { P tree_view_, column_; GtkTreeView *arg1 ; GtkTreeViewColumn *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(column_, 1); { arg2 = (GtkTreeViewColumn *)YPlu(column_); } result = (gint )gtk_tree_view_append_column(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUremoveUcolumn,"samurui/gtk","gtk_tree_view_remove_column"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUremoveUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUremoveUcolumn) { P tree_view_, column_; GtkTreeView *arg1 ; GtkTreeViewColumn *arg2 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(column_, 1); { arg2 = (GtkTreeViewColumn *)YPlu(column_); } result = (gint )gtk_tree_view_remove_column(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUmoveUcolumnUafter,"samurui/gtk","gtk_tree_view_move_column_after"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUmoveUcolumnUafter); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUmoveUcolumnUafter) { P tree_view_, column_, base_column_; GtkTreeView *arg1 ; GtkTreeViewColumn *arg2 ; GtkTreeViewColumn *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(column_, 1); { arg2 = (GtkTreeViewColumn *)YPlu(column_); } ARG(base_column_, 2); { arg3 = (GtkTreeViewColumn *)YPlu(base_column_); } gtk_tree_view_move_column_after(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUexpanderUcolumn,"samurui/gtk","gtk_tree_view_set_expander_column"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUexpanderUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUexpanderUcolumn) { P tree_view_, column_; GtkTreeView *arg1 ; GtkTreeViewColumn *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(column_, 1); { arg2 = (GtkTreeViewColumn *)YPlu(column_); } gtk_tree_view_set_expander_column(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUexpanderUcolumn,"samurui/gtk","gtk_tree_view_get_expander_column"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUexpanderUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUexpanderUcolumn) { P tree_view_; GtkTreeView *arg1 ; GtkTreeViewColumn *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GtkTreeViewColumn *)gtk_tree_view_get_expander_column(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUpoint,"samurui/gtk","gtk_tree_view_scroll_to_point"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUpoint); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUpoint) { P tree_view_, tree_x_, tree_y_; GtkTreeView *arg1 ; gint arg2 ; gint arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(tree_x_, 1); { arg2 = (signed)YPiu(tree_x_); } ARG(tree_y_, 2); { arg3 = (signed)YPiu(tree_y_); } gtk_tree_view_scroll_to_point(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUcell,"samurui/gtk","gtk_tree_view_scroll_to_cell"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUcell); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUcell) { P tree_view_, path_, column_, use_align_, row_align_, col_align_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; GtkTreeViewColumn *arg3 ; gboolean arg4 ; gfloat arg5 ; gfloat arg6 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(column_, 2); { arg3 = (GtkTreeViewColumn *)YPlu(column_); } ARG(use_align_, 3); { arg4 = (signed)YPiu(use_align_); } ARG(row_align_, 4); { arg5 = (float)YPfu(row_align_); } ARG(col_align_, 5); { arg6 = (float)YPfu(col_align_); } gtk_tree_view_scroll_to_cell(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUrowUactivated,"samurui/gtk","gtk_tree_view_row_activated"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUrowUactivated); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUrowUactivated) { P tree_view_, path_, column_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; GtkTreeViewColumn *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(column_, 2); { arg3 = (GtkTreeViewColumn *)YPlu(column_); } gtk_tree_view_row_activated(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUexpandUall,"samurui/gtk","gtk_tree_view_expand_all"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUexpandUall); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUexpandUall) { P tree_view_; GtkTreeView *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } gtk_tree_view_expand_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcollapseUall,"samurui/gtk","gtk_tree_view_collapse_all"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcollapseUall); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcollapseUall) { P tree_view_; GtkTreeView *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } gtk_tree_view_collapse_all(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUexpandUrow,"samurui/gtk","gtk_tree_view_expand_row"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUexpandUrow); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUexpandUrow) { P tree_view_, path_, open_all_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; gboolean arg3 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(open_all_, 2); { arg3 = (signed)YPiu(open_all_); } result = (gboolean )gtk_tree_view_expand_row(arg1,arg2,arg3); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcollapseUrow,"samurui/gtk","gtk_tree_view_collapse_row"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcollapseUrow); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcollapseUrow) { P tree_view_, path_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } result = (gboolean )gtk_tree_view_collapse_row(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUrowUexpanded,"samurui/gtk","gtk_tree_view_row_expanded"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUrowUexpanded); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUrowUexpanded) { P tree_view_, path_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } result = (gboolean )gtk_tree_view_row_expanded(arg1,arg2); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUreorderable,"samurui/gtk","gtk_tree_view_set_reorderable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUreorderable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUreorderable) { P tree_view_, reorderable_; GtkTreeView *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(reorderable_, 1); { arg2 = (signed)YPiu(reorderable_); } gtk_tree_view_set_reorderable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUreorderable,"samurui/gtk","gtk_tree_view_get_reorderable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUreorderable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUreorderable) { P tree_view_; GtkTreeView *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (gboolean )gtk_tree_view_get_reorderable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUcursor,"samurui/gtk","gtk_tree_view_set_cursor"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUcursor); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUcursor) { P tree_view_, path_, focus_column_, start_editing_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; GtkTreeViewColumn *arg3 ; gboolean arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(focus_column_, 2); { arg3 = (GtkTreeViewColumn *)YPlu(focus_column_); } ARG(start_editing_, 3); { arg4 = (signed)YPiu(start_editing_); } gtk_tree_view_set_cursor(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUcursor,"samurui/gtk","gtk_tree_view_get_cursor"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUcursor); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUcursor) { P tree_view_, path_, focus_column_; GtkTreeView *arg1 ; GtkTreePath **arg2 ; GtkTreeViewColumn **arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath **)YPlu(path_); } ARG(focus_column_, 2); { arg3 = (GtkTreeViewColumn **)YPlu(focus_column_); } gtk_tree_view_get_cursor(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUbinUwindow,"samurui/gtk","gtk_tree_view_get_bin_window"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUbinUwindow); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUbinUwindow) { P tree_view_; GtkTreeView *arg1 ; GdkWindow *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GdkWindow *)gtk_tree_view_get_bin_window(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUpathUatUpos,"samurui/gtk","gtk_tree_view_get_path_at_pos"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUpathUatUpos); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUpathUatUpos) { P tree_view_, x_, y_, path_, column_, cell_x_, cell_y_; GtkTreeView *arg1 ; gint arg2 ; gint arg3 ; GtkTreePath **arg4 ; GtkTreeViewColumn **arg5 ; gint *arg6 ; gint *arg7 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(x_, 1); { arg2 = (signed)YPiu(x_); } ARG(y_, 2); { arg3 = (signed)YPiu(y_); } ARG(path_, 3); { arg4 = (GtkTreePath **)YPlu(path_); } ARG(column_, 4); { arg5 = (GtkTreeViewColumn **)YPlu(column_); } ARG(cell_x_, 5); { arg6 = (gint *)YPlu(cell_x_); } ARG(cell_y_, 6); { arg7 = (gint *)YPlu(cell_y_); } result = (gboolean )gtk_tree_view_get_path_at_pos(arg1,arg2,arg3,arg4,arg5,arg6,arg7); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUcellUarea,"samurui/gtk","gtk_tree_view_get_cell_area"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUcellUarea); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUcellUarea) { P tree_view_, path_, column_, rect_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; GtkTreeViewColumn *arg3 ; GdkRectangle *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(column_, 2); { arg3 = (GtkTreeViewColumn *)YPlu(column_); } ARG(rect_, 3); { arg4 = (GdkRectangle *)YPlu(rect_); } gtk_tree_view_get_cell_area(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUbackgroundUarea,"samurui/gtk","gtk_tree_view_get_background_area"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUbackgroundUarea); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUbackgroundUarea) { P tree_view_, path_, column_, rect_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; GtkTreeViewColumn *arg3 ; GdkRectangle *arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(column_, 2); { arg3 = (GtkTreeViewColumn *)YPlu(column_); } ARG(rect_, 3); { arg4 = (GdkRectangle *)YPlu(rect_); } gtk_tree_view_get_background_area(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUvisibleUrect,"samurui/gtk","gtk_tree_view_get_visible_rect"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUvisibleUrect); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUvisibleUrect) { P tree_view_, visible_rect_; GtkTreeView *arg1 ; GdkRectangle *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(visible_rect_, 1); { arg2 = (GdkRectangle *)YPlu(visible_rect_); } gtk_tree_view_get_visible_rect(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUwidgetUtoUtreeUcoords,"samurui/gtk","gtk_tree_view_widget_to_tree_coords"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUwidgetUtoUtreeUcoords); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUwidgetUtoUtreeUcoords) { P tree_view_, wx_, wy_, tx_, ty_; GtkTreeView *arg1 ; gint arg2 ; gint arg3 ; gint *arg4 ; gint *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(wx_, 1); { arg2 = (signed)YPiu(wx_); } ARG(wy_, 2); { arg3 = (signed)YPiu(wy_); } ARG(tx_, 3); { arg4 = (gint *)YPlu(tx_); } ARG(ty_, 4); { arg5 = (gint *)YPlu(ty_); } gtk_tree_view_widget_to_tree_coords(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUtreeUtoUwidgetUcoords,"samurui/gtk","gtk_tree_view_tree_to_widget_coords"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUtreeUtoUwidgetUcoords); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUtreeUtoUwidgetUcoords) { P tree_view_, tx_, ty_, wx_, wy_; GtkTreeView *arg1 ; gint arg2 ; gint arg3 ; gint *arg4 ; gint *arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(tx_, 1); { arg2 = (signed)YPiu(tx_); } ARG(ty_, 2); { arg3 = (signed)YPiu(ty_); } ARG(wx_, 3); { arg4 = (gint *)YPlu(wx_); } ARG(wy_, 4); { arg5 = (gint *)YPlu(wy_); } gtk_tree_view_tree_to_widget_coords(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUdragUdestUrow,"samurui/gtk","gtk_tree_view_set_drag_dest_row"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUdragUdestUrow); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUdragUdestUrow) { P tree_view_, path_, pos_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; int arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } ARG(pos_, 2); { arg3 = (int)YPiu(pos_); } gtk_tree_view_set_drag_dest_row(arg1,arg2,(GtkTreeViewDropPosition )arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUdragUdestUrow,"samurui/gtk","gtk_tree_view_get_drag_dest_row"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUdragUdestUrow); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUdragUdestUrow) { P tree_view_, path_, pos_; GtkTreeView *arg1 ; GtkTreePath **arg2 ; GtkTreeViewDropPosition *arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath **)YPlu(path_); } ARG(pos_, 2); { arg3 = (GtkTreeViewDropPosition *)YPlu(pos_); } gtk_tree_view_get_drag_dest_row(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUdestUrowUatUpos,"samurui/gtk","gtk_tree_view_get_dest_row_at_pos"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUdestUrowUatUpos); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUdestUrowUatUpos) { P tree_view_, drag_x_, drag_y_, path_, pos_; GtkTreeView *arg1 ; gint arg2 ; gint arg3 ; GtkTreePath **arg4 ; GtkTreeViewDropPosition *arg5 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(drag_x_, 1); { arg2 = (signed)YPiu(drag_x_); } ARG(drag_y_, 2); { arg3 = (signed)YPiu(drag_y_); } ARG(path_, 3); { arg4 = (GtkTreePath **)YPlu(path_); } ARG(pos_, 4); { arg5 = (GtkTreeViewDropPosition *)YPlu(pos_); } result = (gboolean )gtk_tree_view_get_dest_row_at_pos(arg1,arg2,arg3,arg4,arg5); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcreateUrowUdragUicon,"samurui/gtk","gtk_tree_view_create_row_drag_icon"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcreateUrowUdragUicon); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcreateUrowUdragUicon) { P tree_view_, path_; GtkTreeView *arg1 ; GtkTreePath *arg2 ; GdkPixmap *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(path_, 1); { arg2 = (GtkTreePath *)YPlu(path_); } result = (GdkPixmap *)gtk_tree_view_create_row_drag_icon(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUcolumn,"samurui/gtk","gtk_tree_view_get_search_column"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUcolumn) { P tree_view_; GtkTreeView *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (gint )gtk_tree_view_get_search_column(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUcolumn,"samurui/gtk","gtk_tree_view_set_search_column"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUcolumn); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUcolumn) { P tree_view_, column_; GtkTreeView *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(column_, 1); { arg2 = (signed)YPiu(column_); } gtk_tree_view_set_search_column(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUequalUfunc,"samurui/gtk","gtk_tree_view_get_search_equal_func"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUequalUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUequalUfunc) { P tree_view_; GtkTreeView *arg1 ; GtkTreeViewSearchEqualFunc result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } result = (GtkTreeViewSearchEqualFunc )gtk_tree_view_get_search_equal_func(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUequalUfunc,"samurui/gtk","gtk_tree_view_set_search_equal_func"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUequalUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUequalUfunc) { P tree_view_, search_equal_func_, search_user_data_, search_destroy_; GtkTreeView *arg1 ; GtkTreeViewSearchEqualFunc arg2 ; gpointer arg3 ; GtkDestroyNotify arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_view_, 0); { arg1 = (GtkTreeView *)YPlu(tree_view_); } ARG(search_equal_func_, 1); { arg2 = (GtkTreeViewSearchEqualFunc )YPlu(search_equal_func_); } ARG(search_user_data_, 2); { arg3 = (gpointer )YPlu(search_user_data_); } ARG(search_destroy_, 3); { arg4 = (GtkDestroyNotify )YPlu(search_destroy_); } gtk_tree_view_set_search_equal_func(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtype,"samurui/gtk","gtk_tree_view_column_get_type"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtype); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtype) { GtkType result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkType )gtk_tree_view_column_get_type(); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUnew,"samurui/gtk","gtk_tree_view_column_new"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUnew) { GtkTreeViewColumn *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkTreeViewColumn *)gtk_tree_view_column_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUstart,"samurui/gtk","gtk_tree_view_column_pack_start"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUstart); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUstart) { P tree_column_, cell_, expand_; GtkTreeViewColumn *arg1 ; GtkCellRenderer *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(cell_, 1); { arg2 = (GtkCellRenderer *)YPlu(cell_); } ARG(expand_, 2); { arg3 = (signed)YPiu(expand_); } gtk_tree_view_column_pack_start(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUend,"samurui/gtk","gtk_tree_view_column_pack_end"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUend); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUend) { P tree_column_, cell_, expand_; GtkTreeViewColumn *arg1 ; GtkCellRenderer *arg2 ; gboolean arg3 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(cell_, 1); { arg2 = (GtkCellRenderer *)YPlu(cell_); } ARG(expand_, 2); { arg3 = (signed)YPiu(expand_); } gtk_tree_view_column_pack_end(arg1,arg2,arg3); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUclear,"samurui/gtk","gtk_tree_view_column_clear"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUclear); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUclear) { P tree_column_; GtkTreeViewColumn *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } gtk_tree_view_column_clear(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUcellUrenderers,"samurui/gtk","gtk_tree_view_column_get_cell_renderers"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUcellUrenderers); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUcellUrenderers) { P tree_column_; GtkTreeViewColumn *arg1 ; GList *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (GList *)gtk_tree_view_column_get_cell_renderers(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUaddUattribute,"samurui/gtk","gtk_tree_view_column_add_attribute"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUaddUattribute); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUaddUattribute) { P tree_column_, cell_renderer_, attribute_, column_; GtkTreeViewColumn *arg1 ; GtkCellRenderer *arg2 ; gchar *arg3 ; gint arg4 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(cell_renderer_, 1); { arg2 = (GtkCellRenderer *)YPlu(cell_renderer_); } ARG(attribute_, 2); { arg3 = (char *)YPsu(attribute_); } ARG(column_, 3); { arg4 = (signed)YPiu(column_); } gtk_tree_view_column_add_attribute(arg1,arg2,arg3,arg4); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUcellUdataUfunc,"samurui/gtk","gtk_tree_view_column_set_cell_data_func"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUcellUdataUfunc); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUcellUdataUfunc) { P tree_column_, cell_renderer_, func_, func_data_, destroy_; GtkTreeViewColumn *arg1 ; GtkCellRenderer *arg2 ; GtkTreeCellDataFunc arg3 ; gpointer arg4 ; GtkDestroyNotify arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(cell_renderer_, 1); { arg2 = (GtkCellRenderer *)YPlu(cell_renderer_); } ARG(func_, 2); { arg3 = (GtkTreeCellDataFunc )YPlu(func_); } ARG(func_data_, 3); { arg4 = (gpointer )YPlu(func_data_); } ARG(destroy_, 4); { arg5 = (GtkDestroyNotify )YPlu(destroy_); } gtk_tree_view_column_set_cell_data_func(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUclearUattributes,"samurui/gtk","gtk_tree_view_column_clear_attributes"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUclearUattributes); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUclearUattributes) { P tree_column_, cell_renderer_; GtkTreeViewColumn *arg1 ; GtkCellRenderer *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(cell_renderer_, 1); { arg2 = (GtkCellRenderer *)YPlu(cell_renderer_); } gtk_tree_view_column_clear_attributes(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUspacing,"samurui/gtk","gtk_tree_view_column_set_spacing"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUspacing) { P tree_column_, spacing_; GtkTreeViewColumn *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(spacing_, 1); { arg2 = (signed)YPiu(spacing_); } gtk_tree_view_column_set_spacing(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUspacing,"samurui/gtk","gtk_tree_view_column_get_spacing"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUspacing); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUspacing) { P tree_column_; GtkTreeViewColumn *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gint )gtk_tree_view_column_get_spacing(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUvisible,"samurui/gtk","gtk_tree_view_column_set_visible"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUvisible) { P tree_column_, visible_; GtkTreeViewColumn *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(visible_, 1); { arg2 = (signed)YPiu(visible_); } gtk_tree_view_column_set_visible(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUvisible,"samurui/gtk","gtk_tree_view_column_get_visible"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUvisible) { P tree_column_; GtkTreeViewColumn *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gboolean )gtk_tree_view_column_get_visible(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUresizable,"samurui/gtk","gtk_tree_view_column_set_resizable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUresizable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUresizable) { P tree_column_, resizable_; GtkTreeViewColumn *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(resizable_, 1); { arg2 = (signed)YPiu(resizable_); } gtk_tree_view_column_set_resizable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUresizable,"samurui/gtk","gtk_tree_view_column_get_resizable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUresizable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUresizable) { P tree_column_; GtkTreeViewColumn *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gboolean )gtk_tree_view_column_get_resizable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsizing,"samurui/gtk","gtk_tree_view_column_set_sizing"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsizing); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsizing) { P tree_column_, type_; GtkTreeViewColumn *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_tree_view_column_set_sizing(arg1,(GtkTreeViewColumnSizing )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsizing,"samurui/gtk","gtk_tree_view_column_get_sizing"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsizing); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsizing) { P tree_column_; GtkTreeViewColumn *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (int )gtk_tree_view_column_get_sizing(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidth,"samurui/gtk","gtk_tree_view_column_get_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidth) { P tree_column_; GtkTreeViewColumn *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gint )gtk_tree_view_column_get_width(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUfixedUwidth,"samurui/gtk","gtk_tree_view_column_get_fixed_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUfixedUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUfixedUwidth) { P tree_column_; GtkTreeViewColumn *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gint )gtk_tree_view_column_get_fixed_width(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUfixedUwidth,"samurui/gtk","gtk_tree_view_column_set_fixed_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUfixedUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUfixedUwidth) { P tree_column_, fixed_width_; GtkTreeViewColumn *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(fixed_width_, 1); { arg2 = (signed)YPiu(fixed_width_); } gtk_tree_view_column_set_fixed_width(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUminUwidth,"samurui/gtk","gtk_tree_view_column_set_min_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUminUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUminUwidth) { P tree_column_, min_width_; GtkTreeViewColumn *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(min_width_, 1); { arg2 = (signed)YPiu(min_width_); } gtk_tree_view_column_set_min_width(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUminUwidth,"samurui/gtk","gtk_tree_view_column_get_min_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUminUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUminUwidth) { P tree_column_; GtkTreeViewColumn *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gint )gtk_tree_view_column_get_min_width(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUmaxUwidth,"samurui/gtk","gtk_tree_view_column_set_max_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUmaxUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUmaxUwidth) { P tree_column_, max_width_; GtkTreeViewColumn *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(max_width_, 1); { arg2 = (signed)YPiu(max_width_); } gtk_tree_view_column_set_max_width(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUmaxUwidth,"samurui/gtk","gtk_tree_view_column_get_max_width"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUmaxUwidth); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUmaxUwidth) { P tree_column_; GtkTreeViewColumn *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gint )gtk_tree_view_column_get_max_width(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUclicked,"samurui/gtk","gtk_tree_view_column_clicked"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUclicked); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUclicked) { P tree_column_; GtkTreeViewColumn *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } gtk_tree_view_column_clicked(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUtitle,"samurui/gtk","gtk_tree_view_column_set_title"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUtitle); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUtitle) { P tree_column_, title_; GtkTreeViewColumn *arg1 ; gchar *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(title_, 1); { arg2 = (char *)YPsu(title_); } gtk_tree_view_column_set_title(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtitle,"samurui/gtk","gtk_tree_view_column_get_title"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtitle); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtitle) { P tree_column_; GtkTreeViewColumn *arg1 ; gchar *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gchar *)gtk_tree_view_column_get_title(arg1); { if(result == NULL) { retval = (P)YPsb((P)""); } else { retval = (P)YPsb((P)result); } } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUclickable,"samurui/gtk","gtk_tree_view_column_set_clickable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUclickable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUclickable) { P tree_column_, clickable_; GtkTreeViewColumn *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(clickable_, 1); { arg2 = (signed)YPiu(clickable_); } gtk_tree_view_column_set_clickable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUclickable,"samurui/gtk","gtk_tree_view_column_get_clickable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUclickable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUclickable) { P tree_column_; GtkTreeViewColumn *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gboolean )gtk_tree_view_column_get_clickable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUwidget,"samurui/gtk","gtk_tree_view_column_set_widget"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUwidget) { P tree_column_, widget_; GtkTreeViewColumn *arg1 ; GtkWidget *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(widget_, 1); { arg2 = (GtkWidget *)YPlu(widget_); } gtk_tree_view_column_set_widget(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidget,"samurui/gtk","gtk_tree_view_column_get_widget"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidget); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidget) { P tree_column_; GtkTreeViewColumn *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (GtkWidget *)gtk_tree_view_column_get_widget(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUalignment,"samurui/gtk","gtk_tree_view_column_set_alignment"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUalignment); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUalignment) { P tree_column_, xalign_; GtkTreeViewColumn *arg1 ; gfloat arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(xalign_, 1); { arg2 = (float)YPfu(xalign_); } gtk_tree_view_column_set_alignment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUalignment,"samurui/gtk","gtk_tree_view_column_get_alignment"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUalignment); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUalignment) { P tree_column_; GtkTreeViewColumn *arg1 ; gfloat result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gfloat )gtk_tree_view_column_get_alignment(arg1); { retval = (P)YPfb((P)FLOINT((PFLO)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUreorderable,"samurui/gtk","gtk_tree_view_column_set_reorderable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUreorderable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUreorderable) { P tree_column_, reorderable_; GtkTreeViewColumn *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(reorderable_, 1); { arg2 = (signed)YPiu(reorderable_); } gtk_tree_view_column_set_reorderable(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUreorderable,"samurui/gtk","gtk_tree_view_column_get_reorderable"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUreorderable); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUreorderable) { P tree_column_; GtkTreeViewColumn *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gboolean )gtk_tree_view_column_get_reorderable(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUcolumnUid,"samurui/gtk","gtk_tree_view_column_set_sort_column_id"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUcolumnUid); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUcolumnUid) { P tree_column_, sort_column_id_; GtkTreeViewColumn *arg1 ; gint arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(sort_column_id_, 1); { arg2 = (signed)YPiu(sort_column_id_); } gtk_tree_view_column_set_sort_column_id(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUcolumnUid,"samurui/gtk","gtk_tree_view_column_get_sort_column_id"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUcolumnUid); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUcolumnUid) { P tree_column_; GtkTreeViewColumn *arg1 ; gint result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gint )gtk_tree_view_column_get_sort_column_id(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUindicator,"samurui/gtk","gtk_tree_view_column_set_sort_indicator"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUindicator); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUindicator) { P tree_column_, setting_; GtkTreeViewColumn *arg1 ; gboolean arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(setting_, 1); { arg2 = (signed)YPiu(setting_); } gtk_tree_view_column_set_sort_indicator(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUindicator,"samurui/gtk","gtk_tree_view_column_get_sort_indicator"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUindicator); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUindicator) { P tree_column_; GtkTreeViewColumn *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gboolean )gtk_tree_view_column_get_sort_indicator(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUorder,"samurui/gtk","gtk_tree_view_column_set_sort_order"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUorder); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUorder) { P tree_column_, order_; GtkTreeViewColumn *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(order_, 1); { arg2 = (int)YPiu(order_); } gtk_tree_view_column_set_sort_order(arg1,(GtkSortType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUorder,"samurui/gtk","gtk_tree_view_column_get_sort_order"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUorder); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUorder) { P tree_column_; GtkTreeViewColumn *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (int )gtk_tree_view_column_get_sort_order(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUsetUcellUdata,"samurui/gtk","gtk_tree_view_column_cell_set_cell_data"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUsetUcellUdata); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUsetUcellUdata) { P tree_column_, tree_model_, iter_, is_expander_, is_expanded_; GtkTreeViewColumn *arg1 ; GtkTreeModel *arg2 ; GtkTreeIter *arg3 ; gboolean arg4 ; gboolean arg5 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(tree_model_, 1); { arg2 = (GtkTreeModel *)YPlu(tree_model_); } ARG(iter_, 2); { arg3 = (GtkTreeIter *)YPlu(iter_); } ARG(is_expander_, 3); { arg4 = (signed)YPiu(is_expander_); } ARG(is_expanded_, 4); { arg5 = (signed)YPiu(is_expanded_); } gtk_tree_view_column_cell_set_cell_data(arg1,arg2,arg3,arg4,arg5); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUgetUsize,"samurui/gtk","gtk_tree_view_column_cell_get_size"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUgetUsize); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUgetUsize) { P tree_column_, cell_area_, x_offset_, y_offset_; GtkTreeViewColumn *arg1 ; GdkRectangle *arg2 ; gint *arg3 ; gint *arg4 ; gint *arg5 ; gint *arg6 ; int actualint5 ; int actualint6 ; P retval = (P)YPib((P)0); LINK_STACK(); { arg5 = &actualint5; } { arg6 = &actualint6; } { // ignoring int *OUTPUT for $input arg5 $result $arg 5 } ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } ARG(cell_area_, 1); { arg2 = (GdkRectangle *)YPlu(cell_area_); } ARG(x_offset_, 2); { arg3 = (gint *)YPlu(x_offset_); } ARG(y_offset_, 3); { arg4 = (gint *)YPlu(y_offset_); } gtk_tree_view_column_cell_get_size(arg1,arg2,arg3,arg4,arg5,arg6); { // do nothing! it's a void! } { P val = (P)YPib((P)*arg5); retval = multi_argout(retval, val); } { P val = (P)YPib((P)*arg6); retval = multi_argout(retval, val); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUisUvisible,"samurui/gtk","gtk_tree_view_column_cell_is_visible"); FUNFOR(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUisUvisible); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUisUvisible) { P tree_column_; GtkTreeViewColumn *arg1 ; gboolean result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_column_, 0); { arg1 = (GtkTreeViewColumn *)YPlu(tree_column_); } result = (gboolean )gtk_tree_view_column_cell_is_visible(arg1); { retval = (P)YPib((P)((int)result)); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUvbuttonUboxUnew,"samurui/gtk","gtk_vbutton_box_new"); FUNFOR(YsamuruiSgtkYgtkUvbuttonUboxUnew); FUNCODEDEF(YsamuruiSgtkYgtkUvbuttonUboxUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_vbutton_box_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUvboxUnew,"samurui/gtk","gtk_vbox_new"); FUNFOR(YsamuruiSgtkYgtkUvboxUnew); FUNCODEDEF(YsamuruiSgtkYgtkUvboxUnew) { P homogeneous_, spacing_; gboolean arg1 ; gint arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(homogeneous_, 0); { arg1 = (signed)YPiu(homogeneous_); } ARG(spacing_, 1); { arg2 = (signed)YPiu(spacing_); } result = (GtkWidget *)gtk_vbox_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUnew,"samurui/gtk","gtk_viewport_new"); FUNFOR(YsamuruiSgtkYgtkUviewportUnew); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUnew) { P hadjustment_, vadjustment_; GtkAdjustment *arg1 ; GtkAdjustment *arg2 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(hadjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(hadjustment_); } ARG(vadjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(vadjustment_); } result = (GtkWidget *)gtk_viewport_new(arg1,arg2); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUgetUhadjustment,"samurui/gtk","gtk_viewport_get_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUviewportUgetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUgetUhadjustment) { P viewport_; GtkViewport *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(viewport_, 0); { arg1 = (GtkViewport *)YPlu(viewport_); } result = (GtkAdjustment *)gtk_viewport_get_hadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUgetUvadjustment,"samurui/gtk","gtk_viewport_get_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUviewportUgetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUgetUvadjustment) { P viewport_; GtkViewport *arg1 ; GtkAdjustment *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(viewport_, 0); { arg1 = (GtkViewport *)YPlu(viewport_); } result = (GtkAdjustment *)gtk_viewport_get_vadjustment(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUsetUhadjustment,"samurui/gtk","gtk_viewport_set_hadjustment"); FUNFOR(YsamuruiSgtkYgtkUviewportUsetUhadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUsetUhadjustment) { P viewport_, adjustment_; GtkViewport *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(viewport_, 0); { arg1 = (GtkViewport *)YPlu(viewport_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_viewport_set_hadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUsetUvadjustment,"samurui/gtk","gtk_viewport_set_vadjustment"); FUNFOR(YsamuruiSgtkYgtkUviewportUsetUvadjustment); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUsetUvadjustment) { P viewport_, adjustment_; GtkViewport *arg1 ; GtkAdjustment *arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(viewport_, 0); { arg1 = (GtkViewport *)YPlu(viewport_); } ARG(adjustment_, 1); { arg2 = (GtkAdjustment *)YPlu(adjustment_); } gtk_viewport_set_vadjustment(arg1,arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUsetUshadowUtype,"samurui/gtk","gtk_viewport_set_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUviewportUsetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUsetUshadowUtype) { P viewport_, type_; GtkViewport *arg1 ; int arg2 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(viewport_, 0); { arg1 = (GtkViewport *)YPlu(viewport_); } ARG(type_, 1); { arg2 = (int)YPiu(type_); } gtk_viewport_set_shadow_type(arg1,(GtkShadowType )arg2); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUviewportUgetUshadowUtype,"samurui/gtk","gtk_viewport_get_shadow_type"); FUNFOR(YsamuruiSgtkYgtkUviewportUgetUshadowUtype); FUNCODEDEF(YsamuruiSgtkYgtkUviewportUgetUshadowUtype) { P viewport_; GtkViewport *arg1 ; int result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(viewport_, 0); { arg1 = (GtkViewport *)YPlu(viewport_); } result = (int )gtk_viewport_get_shadow_type(arg1); { retval = (P)YPib((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUvscrollbarUnew,"samurui/gtk","gtk_vscrollbar_new"); FUNFOR(YsamuruiSgtkYgtkUvscrollbarUnew); FUNCODEDEF(YsamuruiSgtkYgtkUvscrollbarUnew) { P adjustment_; GtkAdjustment *arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(adjustment_, 0); { arg1 = (GtkAdjustment *)YPlu(adjustment_); } result = (GtkWidget *)gtk_vscrollbar_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUvseparatorUnew,"samurui/gtk","gtk_vseparator_new"); FUNFOR(YsamuruiSgtkYgtkUvseparatorUnew); FUNCODEDEF(YsamuruiSgtkYgtkUvseparatorUnew) { GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); result = (GtkWidget *)gtk_vseparator_new(); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUwindowUnew,"samurui/gtk","gtk_window_new"); FUNFOR(YsamuruiSgtkYgtkUwindowUnew); FUNCODEDEF(YsamuruiSgtkYgtkUwindowUnew) { P type_; int arg1 ; GtkWidget *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(type_, 0); { arg1 = (int)YPiu(type_); } result = (GtkWidget *)gtk_window_new((GtkWindowType )arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUgooUselectionUgetUnode,"samurui/gtk","gtk_tree_goo_selection_get_node"); FUNFOR(YsamuruiSgtkYgtkUtreeUgooUselectionUgetUnode); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUgooUselectionUgetUnode) { P sel_; GtkTreeSelection *arg1 ; P result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(sel_, 0); { arg1 = (GtkTreeSelection *)YPlu(sel_); } result = gtk_tree_goo_selection_get_node(arg1); { retval = result; } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUgooUnew,"samurui/gtk","gtk_tree_goo_new"); FUNFOR(YsamuruiSgtkYgtkUtreeUgooUnew); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUgooUnew) { P gtv_; P arg1 ; GtkTreeGoo *result; P retval = (P)YPib((P)0); LINK_STACK(); ARG(gtv_, 0); { arg1 = gtv_; } result = (GtkTreeGoo *)gtk_tree_goo_new(arg1); { retval = (P)YPlb((P)result); } UNLINK_STACK(); QRET(retval); } EXT(YsamuruiSgtkYgtkUtreeUgooUrefresh,"samurui/gtk","gtk_tree_goo_refresh"); FUNFOR(YsamuruiSgtkYgtkUtreeUgooUrefresh); FUNCODEDEF(YsamuruiSgtkYgtkUtreeUgooUrefresh) { P tree_goo_; GtkTreeGoo *arg1 ; P retval = (P)YPib((P)0); LINK_STACK(); ARG(tree_goo_, 0); { arg1 = (GtkTreeGoo *)YPlu(tree_goo_); } gtk_tree_goo_refresh(arg1); { // do nothing! it's a void! } UNLINK_STACK(); QRET(retval); } #ifdef __cplusplus extern "C" { #endif #ifdef __cplusplus } #endif P YsamuruiSgtkYinitUme(void) { load_module_dl(); } static void load_module_dl (void) { DEFCREGS(); static int need_init = 1; if(!need_init) return; VARSET(YsamuruiSgtkYgUsignalUrunUfirst,(P)YPib((P)G_SIGNAL_RUN_FIRST)); VARSET(YsamuruiSgtkYgUsignalUrunUlast,(P)YPib((P)G_SIGNAL_RUN_LAST)); VARSET(YsamuruiSgtkYgUsignalUrunUcleanup,(P)YPib((P)G_SIGNAL_RUN_CLEANUP)); VARSET(YsamuruiSgtkYgUsignalUnoUrecurse,(P)YPib((P)G_SIGNAL_NO_RECURSE)); VARSET(YsamuruiSgtkYgUsignalUdetailed,(P)YPib((P)G_SIGNAL_DETAILED)); VARSET(YsamuruiSgtkYgUsignalUaction,(P)YPib((P)G_SIGNAL_ACTION)); VARSET(YsamuruiSgtkYgUsignalUnoUhooks,(P)YPib((P)G_SIGNAL_NO_HOOKS)); VARSET(YsamuruiSgtkYgUconnectUafter,(P)YPib((P)G_CONNECT_AFTER)); VARSET(YsamuruiSgtkYgUconnectUswapped,(P)YPib((P)G_CONNECT_SWAPPED)); { P methodSig, methodDef; P methodName = YPPsym((P)"g_signal_connect_data"); P lit_arg_0 = YPPsym((P)"instance"); P lit_arg_1 = YPPsym((P)"detailed_signal"); P lit_arg_2 = YPPsym((P)"c_handler"); P lit_arg_3 = YPPsym((P)"data"); P lit_arg_4 = YPPsym((P)"destroy_data"); P lit_arg_5 = YPPsym((P)"connect_flags"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUsignalUconnectUdata), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUsignalUconnectUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_signal_connect"); P lit_arg_0 = YPPsym((P)"instance"); P lit_arg_1 = YPPsym((P)"detailed_signal"); P lit_arg_2 = YPPsym((P)"c_handler"); P lit_arg_3 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUsignalUconnect), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUsignalUconnect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_class_install_property"); P lit_arg_0 = YPPsym((P)"oclass"); P lit_arg_1 = YPPsym((P)"property_id"); P lit_arg_2 = YPPsym((P)"pspec"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUclassUinstallUproperty), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUclassUinstallUproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_class_find_property"); P lit_arg_0 = YPPsym((P)"oclass"); P lit_arg_1 = YPPsym((P)"property_name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUclassUfindUproperty), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUclassUfindUproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_class_list_properties"); P lit_arg_0 = YPPsym((P)"oclass"); P lit_arg_1 = YPPsym((P)"n_properties"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUclassUlistUproperties), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUclassUlistUproperties, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_newv"); P lit_arg_0 = YPPsym((P)"object_type"); P lit_arg_1 = YPPsym((P)"n_parameters"); P lit_arg_2 = YPPsym((P)"parameters"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUnewv), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUnewv, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_set_property"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"property_name"); P lit_arg_2 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUsetUproperty), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUsetUproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_get_property"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"property_name"); P lit_arg_2 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUgetUproperty), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUgetUproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_freeze_notify"); P lit_arg_0 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUfreezeUnotify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUfreezeUnotify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_notify"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"property_name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUnotify), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUnotify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_thaw_notify"); P lit_arg_0 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUthawUnotify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUthawUnotify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_ref"); P lit_arg_0 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUref), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_unref"); P lit_arg_0 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUunref), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUunref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_add_weak_pointer"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"weak_pointer_location"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUaddUweakUpointer), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUaddUweakUpointer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_remove_weak_pointer"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"weak_pointer_location"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUremoveUweakUpointer), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUremoveUweakUpointer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_get_data"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"key"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUgetUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUgetUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_set_data"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"key"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUsetUdata), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUsetUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_set_data_full"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"key"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUsetUdataUfull), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUsetUdataUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_steal_data"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"key"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUstealUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUstealUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_object_watch_closure"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"closure"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUobjectUwatchUclosure), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUobjectUwatchUclosure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_cclosure_new_object"); P lit_arg_0 = YPPsym((P)"callback_func"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUcclosureUnewUobject), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUcclosureUnewUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_cclosure_new_object_swap"); P lit_arg_0 = YPPsym((P)"callback_func"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUcclosureUnewUobjectUswap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUcclosureUnewUobjectUswap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_closure_new_object"); P lit_arg_0 = YPPsym((P)"sizeof_closure"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUclosureUnewUobject), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUclosureUnewUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_value_set_object"); P lit_arg_0 = YPPsym((P)"value"); P lit_arg_1 = YPPsym((P)"v_object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUvalueUsetUobject), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUvalueUsetUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_value_get_object"); P lit_arg_0 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUvalueUgetUobject), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUvalueUgetUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_value_dup_object"); P lit_arg_0 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUvalueUdupUobject), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUvalueUdupUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"g_signal_connect_object"); P lit_arg_0 = YPPsym((P)"instance"); P lit_arg_1 = YPPsym((P)"detailed_signal"); P lit_arg_2 = YPPsym((P)"c_handler"); P lit_arg_3 = YPPsym((P)"gobject"); P lit_arg_4 = YPPsym((P)"connect_flags"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgUsignalUconnectUobject), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgUsignalUconnectUobject, methodDef); } VARSET(YsamuruiSgtkYgdkUlsbUfirst,(P)YPib((P)GDK_LSB_FIRST)); VARSET(YsamuruiSgtkYgdkUmsbUfirst,(P)YPib((P)GDK_MSB_FIRST)); VARSET(YsamuruiSgtkYgdkUshiftUmask,(P)YPib((P)GDK_SHIFT_MASK)); VARSET(YsamuruiSgtkYgdkUlockUmask,(P)YPib((P)GDK_LOCK_MASK)); VARSET(YsamuruiSgtkYgdkUcontrolUmask,(P)YPib((P)GDK_CONTROL_MASK)); VARSET(YsamuruiSgtkYgdkUmod1Umask,(P)YPib((P)GDK_MOD1_MASK)); VARSET(YsamuruiSgtkYgdkUmod2Umask,(P)YPib((P)GDK_MOD2_MASK)); VARSET(YsamuruiSgtkYgdkUmod3Umask,(P)YPib((P)GDK_MOD3_MASK)); VARSET(YsamuruiSgtkYgdkUmod4Umask,(P)YPib((P)GDK_MOD4_MASK)); VARSET(YsamuruiSgtkYgdkUmod5Umask,(P)YPib((P)GDK_MOD5_MASK)); VARSET(YsamuruiSgtkYgdkUbutton1Umask,(P)YPib((P)GDK_BUTTON1_MASK)); VARSET(YsamuruiSgtkYgdkUbutton2Umask,(P)YPib((P)GDK_BUTTON2_MASK)); VARSET(YsamuruiSgtkYgdkUbutton3Umask,(P)YPib((P)GDK_BUTTON3_MASK)); VARSET(YsamuruiSgtkYgdkUbutton4Umask,(P)YPib((P)GDK_BUTTON4_MASK)); VARSET(YsamuruiSgtkYgdkUbutton5Umask,(P)YPib((P)GDK_BUTTON5_MASK)); VARSET(YsamuruiSgtkYgdkUreleaseUmask,(P)YPib((P)GDK_RELEASE_MASK)); VARSET(YsamuruiSgtkYgdkUmodifierUmask,(P)YPib((P)GDK_MODIFIER_MASK)); VARSET(YsamuruiSgtkYgdkUinputUread,(P)YPib((P)GDK_INPUT_READ)); VARSET(YsamuruiSgtkYgdkUinputUwrite,(P)YPib((P)GDK_INPUT_WRITE)); VARSET(YsamuruiSgtkYgdkUinputUexception,(P)YPib((P)GDK_INPUT_EXCEPTION)); VARSET(YsamuruiSgtkYgdkUok,(P)YPib((P)GDK_OK)); VARSET(YsamuruiSgtkYgdkUerror,(P)YPib((P)GDK_ERROR)); VARSET(YsamuruiSgtkYgdkUerrorUparam,(P)YPib((P)GDK_ERROR_PARAM)); VARSET(YsamuruiSgtkYgdkUerrorUfile,(P)YPib((P)GDK_ERROR_FILE)); VARSET(YsamuruiSgtkYgdkUerrorUmem,(P)YPib((P)GDK_ERROR_MEM)); VARSET(YsamuruiSgtkYgdkUgrabUsuccess,(P)YPib((P)GDK_GRAB_SUCCESS)); VARSET(YsamuruiSgtkYgdkUgrabUalreadyUgrabbed,(P)YPib((P)GDK_GRAB_ALREADY_GRABBED)); VARSET(YsamuruiSgtkYgdkUgrabUinvalidUtime,(P)YPib((P)GDK_GRAB_INVALID_TIME)); VARSET(YsamuruiSgtkYgdkUgrabUnotUviewable,(P)YPib((P)GDK_GRAB_NOT_VIEWABLE)); VARSET(YsamuruiSgtkYgdkUgrabUfrozen,(P)YPib((P)GDK_GRAB_FROZEN)); { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_x_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUxUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUxUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_x_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUxUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUxUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_y_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_y_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_width_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUwidthUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUwidthUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_width_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUwidthUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUwidthUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_height_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUheightUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUheightUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkRectangle_height_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkrectangleUheightUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkrectangleUheightUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkRectangle"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkrectangle), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkrectangle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkRectangle"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkrectangle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkrectangle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_find_color"); P lit_arg_0 = YPPsym((P)"colormap"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUfindUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUfindUcolor, methodDef); } VARSET(YsamuruiSgtkYgdkUrgbUditherUnone,(P)YPib((P)GDK_RGB_DITHER_NONE)); VARSET(YsamuruiSgtkYgdkUrgbUditherUnormal,(P)YPib((P)GDK_RGB_DITHER_NORMAL)); VARSET(YsamuruiSgtkYgdkUrgbUditherUmax,(P)YPib((P)GDK_RGB_DITHER_MAX)); { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_rgb_image"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"width"); P lit_arg_5 = YPPsym((P)"height"); P lit_arg_6 = YPPsym((P)"dith"); P lit_arg_7 = YPPsym((P)"rgb_buf"); P lit_arg_8 = YPPsym((P)"rowstride"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUrgbUimage), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUrgbUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_rgb_image_dithalign"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"width"); P lit_arg_5 = YPPsym((P)"height"); P lit_arg_6 = YPPsym((P)"dith"); P lit_arg_7 = YPPsym((P)"rgb_buf"); P lit_arg_8 = YPPsym((P)"rowstride"); P lit_arg_9 = YPPsym((P)"xdith"); P lit_arg_10 = YPPsym((P)"ydith"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUrgbUimageUdithalign), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUrgbUimageUdithalign, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_rgb_32_image"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"width"); P lit_arg_5 = YPPsym((P)"height"); P lit_arg_6 = YPPsym((P)"dith"); P lit_arg_7 = YPPsym((P)"buf"); P lit_arg_8 = YPPsym((P)"rowstride"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUrgbU32Uimage), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUrgbU32Uimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_rgb_32_image_dithalign"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"width"); P lit_arg_5 = YPPsym((P)"height"); P lit_arg_6 = YPPsym((P)"dith"); P lit_arg_7 = YPPsym((P)"buf"); P lit_arg_8 = YPPsym((P)"rowstride"); P lit_arg_9 = YPPsym((P)"xdith"); P lit_arg_10 = YPPsym((P)"ydith"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUrgbU32UimageUdithalign), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUrgbU32UimageUdithalign, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_gray_image"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"width"); P lit_arg_5 = YPPsym((P)"height"); P lit_arg_6 = YPPsym((P)"dith"); P lit_arg_7 = YPPsym((P)"buf"); P lit_arg_8 = YPPsym((P)"rowstride"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUgrayUimage), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUgrayUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_indexed_image"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"width"); P lit_arg_5 = YPPsym((P)"height"); P lit_arg_6 = YPPsym((P)"dith"); P lit_arg_7 = YPPsym((P)"buf"); P lit_arg_8 = YPPsym((P)"rowstride"); P lit_arg_9 = YPPsym((P)"cmap"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)10), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUindexedUimage), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUindexedUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_cmap_new"); P lit_arg_0 = YPPsym((P)"colors"); P lit_arg_1 = YPPsym((P)"n_colors"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUcmapUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUcmapUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_cmap_free"); P lit_arg_0 = YPPsym((P)"cmap"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUcmapUfree), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUcmapUfree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_ditherable"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUditherable), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUditherable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_set_verbose"); P lit_arg_0 = YPPsym((P)"verbose"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUsetUverbose), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUsetUverbose, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_set_install"); P lit_arg_0 = YPPsym((P)"install"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUsetUinstall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUsetUinstall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_set_min_colors"); P lit_arg_0 = YPPsym((P)"min_colors"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUsetUminUcolors), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUsetUminUcolors, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_get_colormap"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUgetUcolormap), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUgetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rgb_get_visual"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrgbUgetUvisual), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrgbUgetUvisual, methodDef); } VARSET(YsamuruiSgtkYgdkUextensionUeventsUnone,(P)YPib((P)GDK_EXTENSION_EVENTS_NONE)); VARSET(YsamuruiSgtkYgdkUextensionUeventsUall,(P)YPib((P)GDK_EXTENSION_EVENTS_ALL)); VARSET(YsamuruiSgtkYgdkUextensionUeventsUcursor,(P)YPib((P)GDK_EXTENSION_EVENTS_CURSOR)); VARSET(YsamuruiSgtkYgdkUsourceUmouse,(P)YPib((P)GDK_SOURCE_MOUSE)); VARSET(YsamuruiSgtkYgdkUsourceUpen,(P)YPib((P)GDK_SOURCE_PEN)); VARSET(YsamuruiSgtkYgdkUsourceUeraser,(P)YPib((P)GDK_SOURCE_ERASER)); VARSET(YsamuruiSgtkYgdkUsourceUcursor,(P)YPib((P)GDK_SOURCE_CURSOR)); VARSET(YsamuruiSgtkYgdkUmodeUdisabled,(P)YPib((P)GDK_MODE_DISABLED)); VARSET(YsamuruiSgtkYgdkUmodeUscreen,(P)YPib((P)GDK_MODE_SCREEN)); VARSET(YsamuruiSgtkYgdkUmodeUwindow,(P)YPib((P)GDK_MODE_WINDOW)); VARSET(YsamuruiSgtkYgdkUaxisUignore,(P)YPib((P)GDK_AXIS_IGNORE)); VARSET(YsamuruiSgtkYgdkUaxisUx,(P)YPib((P)GDK_AXIS_X)); VARSET(YsamuruiSgtkYgdkUaxisUy,(P)YPib((P)GDK_AXIS_Y)); VARSET(YsamuruiSgtkYgdkUaxisUpressure,(P)YPib((P)GDK_AXIS_PRESSURE)); VARSET(YsamuruiSgtkYgdkUaxisUxtilt,(P)YPib((P)GDK_AXIS_XTILT)); VARSET(YsamuruiSgtkYgdkUaxisUytilt,(P)YPib((P)GDK_AXIS_YTILT)); VARSET(YsamuruiSgtkYgdkUaxisUwheel,(P)YPib((P)GDK_AXIS_WHEEL)); VARSET(YsamuruiSgtkYgdkUaxisUlast,(P)YPib((P)GDK_AXIS_LAST)); { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_devices_list"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdevicesUlist), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdevicesUlist, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_set_source"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"source"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUsetUsource), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUsetUsource, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_set_mode"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUsetUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUsetUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_set_key"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"index"); P lit_arg_2 = YPPsym((P)"keyval"); P lit_arg_3 = YPPsym((P)"modifiers"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUsetUkey), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUsetUkey, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_set_axis_use"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"index"); P lit_arg_2 = YPPsym((P)"use"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUsetUaxisUuse), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUsetUaxisUuse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_get_state"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"axes"); P lit_arg_3 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUgetUstate), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUgetUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_get_history"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"stop"); P lit_arg_4 = YPPsym((P)"events"); P lit_arg_5 = YPPsym((P)"n_events"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUgetUhistory), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUgetUhistory, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_free_history"); P lit_arg_0 = YPPsym((P)"events"); P lit_arg_1 = YPPsym((P)"n_events"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUfreeUhistory), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUfreeUhistory, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_get_axis"); P lit_arg_0 = YPPsym((P)"device"); P lit_arg_1 = YPPsym((P)"axes"); P lit_arg_2 = YPPsym((P)"use"); P lit_arg_3 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUgetUaxis), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUgetUaxis, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_input_set_extension_events"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"mask"); P lit_arg_2 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUinputUsetUextensionUevents), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUinputUsetUextensionUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_device_get_core_pointer"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdeviceUgetUcoreUpointer), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdeviceUgetUcoreUpointer, methodDef); } VARSET(YsamuruiSgtkYgtkUanchorUcenter,(P)YPib((P)GTK_ANCHOR_CENTER)); VARSET(YsamuruiSgtkYgtkUanchorUnorth,(P)YPib((P)GTK_ANCHOR_NORTH)); VARSET(YsamuruiSgtkYgtkUanchorUnorthUwest,(P)YPib((P)GTK_ANCHOR_NORTH_WEST)); VARSET(YsamuruiSgtkYgtkUanchorUnorthUeast,(P)YPib((P)GTK_ANCHOR_NORTH_EAST)); VARSET(YsamuruiSgtkYgtkUanchorUsouth,(P)YPib((P)GTK_ANCHOR_SOUTH)); VARSET(YsamuruiSgtkYgtkUanchorUsouthUwest,(P)YPib((P)GTK_ANCHOR_SOUTH_WEST)); VARSET(YsamuruiSgtkYgtkUanchorUsouthUeast,(P)YPib((P)GTK_ANCHOR_SOUTH_EAST)); VARSET(YsamuruiSgtkYgtkUanchorUwest,(P)YPib((P)GTK_ANCHOR_WEST)); VARSET(YsamuruiSgtkYgtkUanchorUeast,(P)YPib((P)GTK_ANCHOR_EAST)); VARSET(YsamuruiSgtkYgtkUanchorUn,(P)YPib((P)GTK_ANCHOR_N)); VARSET(YsamuruiSgtkYgtkUanchorUnw,(P)YPib((P)GTK_ANCHOR_NW)); VARSET(YsamuruiSgtkYgtkUanchorUne,(P)YPib((P)GTK_ANCHOR_NE)); VARSET(YsamuruiSgtkYgtkUanchorUs,(P)YPib((P)GTK_ANCHOR_S)); VARSET(YsamuruiSgtkYgtkUanchorUsw,(P)YPib((P)GTK_ANCHOR_SW)); VARSET(YsamuruiSgtkYgtkUanchorUse,(P)YPib((P)GTK_ANCHOR_SE)); VARSET(YsamuruiSgtkYgtkUanchorUw,(P)YPib((P)GTK_ANCHOR_W)); VARSET(YsamuruiSgtkYgtkUanchorUe,(P)YPib((P)GTK_ANCHOR_E)); VARSET(YsamuruiSgtkYgtkUarrowUup,(P)YPib((P)GTK_ARROW_UP)); VARSET(YsamuruiSgtkYgtkUarrowUdown,(P)YPib((P)GTK_ARROW_DOWN)); VARSET(YsamuruiSgtkYgtkUarrowUleft,(P)YPib((P)GTK_ARROW_LEFT)); VARSET(YsamuruiSgtkYgtkUarrowUright,(P)YPib((P)GTK_ARROW_RIGHT)); VARSET(YsamuruiSgtkYgtkUexpand,(P)YPib((P)GTK_EXPAND)); VARSET(YsamuruiSgtkYgtkUshrink,(P)YPib((P)GTK_SHRINK)); VARSET(YsamuruiSgtkYgtkUfill,(P)YPib((P)GTK_FILL)); VARSET(YsamuruiSgtkYgtkUbuttonboxUdefaultUstyle,(P)YPib((P)GTK_BUTTONBOX_DEFAULT_STYLE)); VARSET(YsamuruiSgtkYgtkUbuttonboxUspread,(P)YPib((P)GTK_BUTTONBOX_SPREAD)); VARSET(YsamuruiSgtkYgtkUbuttonboxUedge,(P)YPib((P)GTK_BUTTONBOX_EDGE)); VARSET(YsamuruiSgtkYgtkUbuttonboxUstart,(P)YPib((P)GTK_BUTTONBOX_START)); VARSET(YsamuruiSgtkYgtkUbuttonboxUend,(P)YPib((P)GTK_BUTTONBOX_END)); VARSET(YsamuruiSgtkYgtkUcurveUtypeUlinear,(P)YPib((P)GTK_CURVE_TYPE_LINEAR)); VARSET(YsamuruiSgtkYgtkUcurveUtypeUspline,(P)YPib((P)GTK_CURVE_TYPE_SPLINE)); VARSET(YsamuruiSgtkYgtkUcurveUtypeUfree,(P)YPib((P)GTK_CURVE_TYPE_FREE)); VARSET(YsamuruiSgtkYgtkUdeleteUchars,(P)YPib((P)GTK_DELETE_CHARS)); VARSET(YsamuruiSgtkYgtkUdeleteUwordUends,(P)YPib((P)GTK_DELETE_WORD_ENDS)); VARSET(YsamuruiSgtkYgtkUdeleteUwords,(P)YPib((P)GTK_DELETE_WORDS)); VARSET(YsamuruiSgtkYgtkUdeleteUdisplayUlines,(P)YPib((P)GTK_DELETE_DISPLAY_LINES)); VARSET(YsamuruiSgtkYgtkUdeleteUdisplayUlineUends,(P)YPib((P)GTK_DELETE_DISPLAY_LINE_ENDS)); VARSET(YsamuruiSgtkYgtkUdeleteUparagraphUends,(P)YPib((P)GTK_DELETE_PARAGRAPH_ENDS)); VARSET(YsamuruiSgtkYgtkUdeleteUparagraphs,(P)YPib((P)GTK_DELETE_PARAGRAPHS)); VARSET(YsamuruiSgtkYgtkUdeleteUwhitespace,(P)YPib((P)GTK_DELETE_WHITESPACE)); VARSET(YsamuruiSgtkYgtkUdirUtabUforward,(P)YPib((P)GTK_DIR_TAB_FORWARD)); VARSET(YsamuruiSgtkYgtkUdirUtabUbackward,(P)YPib((P)GTK_DIR_TAB_BACKWARD)); VARSET(YsamuruiSgtkYgtkUdirUup,(P)YPib((P)GTK_DIR_UP)); VARSET(YsamuruiSgtkYgtkUdirUdown,(P)YPib((P)GTK_DIR_DOWN)); VARSET(YsamuruiSgtkYgtkUdirUleft,(P)YPib((P)GTK_DIR_LEFT)); VARSET(YsamuruiSgtkYgtkUdirUright,(P)YPib((P)GTK_DIR_RIGHT)); VARSET(YsamuruiSgtkYgtkUexpanderUcollapsed,(P)YPib((P)GTK_EXPANDER_COLLAPSED)); VARSET(YsamuruiSgtkYgtkUexpanderUsemiUcollapsed,(P)YPib((P)GTK_EXPANDER_SEMI_COLLAPSED)); VARSET(YsamuruiSgtkYgtkUexpanderUsemiUexpanded,(P)YPib((P)GTK_EXPANDER_SEMI_EXPANDED)); VARSET(YsamuruiSgtkYgtkUexpanderUexpanded,(P)YPib((P)GTK_EXPANDER_EXPANDED)); VARSET(YsamuruiSgtkYgtkUiconUsizeUinvalid,(P)YPib((P)GTK_ICON_SIZE_INVALID)); VARSET(YsamuruiSgtkYgtkUiconUsizeUmenu,(P)YPib((P)GTK_ICON_SIZE_MENU)); VARSET(YsamuruiSgtkYgtkUiconUsizeUsmallUtoolbar,(P)YPib((P)GTK_ICON_SIZE_SMALL_TOOLBAR)); VARSET(YsamuruiSgtkYgtkUiconUsizeUlargeUtoolbar,(P)YPib((P)GTK_ICON_SIZE_LARGE_TOOLBAR)); VARSET(YsamuruiSgtkYgtkUiconUsizeUbutton,(P)YPib((P)GTK_ICON_SIZE_BUTTON)); VARSET(YsamuruiSgtkYgtkUiconUsizeUdnd,(P)YPib((P)GTK_ICON_SIZE_DND)); VARSET(YsamuruiSgtkYgtkUiconUsizeUdialog,(P)YPib((P)GTK_ICON_SIZE_DIALOG)); VARSET(YsamuruiSgtkYgtkUsideUtop,(P)YPib((P)GTK_SIDE_TOP)); VARSET(YsamuruiSgtkYgtkUsideUbottom,(P)YPib((P)GTK_SIDE_BOTTOM)); VARSET(YsamuruiSgtkYgtkUsideUleft,(P)YPib((P)GTK_SIDE_LEFT)); VARSET(YsamuruiSgtkYgtkUsideUright,(P)YPib((P)GTK_SIDE_RIGHT)); VARSET(YsamuruiSgtkYgtkUtextUdirUnone,(P)YPib((P)GTK_TEXT_DIR_NONE)); VARSET(YsamuruiSgtkYgtkUtextUdirUltr,(P)YPib((P)GTK_TEXT_DIR_LTR)); VARSET(YsamuruiSgtkYgtkUtextUdirUrtl,(P)YPib((P)GTK_TEXT_DIR_RTL)); VARSET(YsamuruiSgtkYgtkUjustifyUleft,(P)YPib((P)GTK_JUSTIFY_LEFT)); VARSET(YsamuruiSgtkYgtkUjustifyUright,(P)YPib((P)GTK_JUSTIFY_RIGHT)); VARSET(YsamuruiSgtkYgtkUjustifyUcenter,(P)YPib((P)GTK_JUSTIFY_CENTER)); VARSET(YsamuruiSgtkYgtkUjustifyUfill,(P)YPib((P)GTK_JUSTIFY_FILL)); VARSET(YsamuruiSgtkYgtkUmatchUall,(P)YPib((P)GTK_MATCH_ALL)); VARSET(YsamuruiSgtkYgtkUmatchUallUtail,(P)YPib((P)GTK_MATCH_ALL_TAIL)); VARSET(YsamuruiSgtkYgtkUmatchUhead,(P)YPib((P)GTK_MATCH_HEAD)); VARSET(YsamuruiSgtkYgtkUmatchUtail,(P)YPib((P)GTK_MATCH_TAIL)); VARSET(YsamuruiSgtkYgtkUmatchUexact,(P)YPib((P)GTK_MATCH_EXACT)); VARSET(YsamuruiSgtkYgtkUmatchUlast,(P)YPib((P)GTK_MATCH_LAST)); VARSET(YsamuruiSgtkYgtkUmenuUdirUparent,(P)YPib((P)GTK_MENU_DIR_PARENT)); VARSET(YsamuruiSgtkYgtkUmenuUdirUchild,(P)YPib((P)GTK_MENU_DIR_CHILD)); VARSET(YsamuruiSgtkYgtkUmenuUdirUnext,(P)YPib((P)GTK_MENU_DIR_NEXT)); VARSET(YsamuruiSgtkYgtkUmenuUdirUprev,(P)YPib((P)GTK_MENU_DIR_PREV)); VARSET(YsamuruiSgtkYgtkUpixels,(P)YPib((P)GTK_PIXELS)); VARSET(YsamuruiSgtkYgtkUinches,(P)YPib((P)GTK_INCHES)); VARSET(YsamuruiSgtkYgtkUcentimeters,(P)YPib((P)GTK_CENTIMETERS)); VARSET(YsamuruiSgtkYgtkUmovementUlogicalUpositions,(P)YPib((P)GTK_MOVEMENT_LOGICAL_POSITIONS)); VARSET(YsamuruiSgtkYgtkUmovementUvisualUpositions,(P)YPib((P)GTK_MOVEMENT_VISUAL_POSITIONS)); VARSET(YsamuruiSgtkYgtkUmovementUwords,(P)YPib((P)GTK_MOVEMENT_WORDS)); VARSET(YsamuruiSgtkYgtkUmovementUdisplayUlines,(P)YPib((P)GTK_MOVEMENT_DISPLAY_LINES)); VARSET(YsamuruiSgtkYgtkUmovementUdisplayUlineUends,(P)YPib((P)GTK_MOVEMENT_DISPLAY_LINE_ENDS)); VARSET(YsamuruiSgtkYgtkUmovementUparagraphs,(P)YPib((P)GTK_MOVEMENT_PARAGRAPHS)); VARSET(YsamuruiSgtkYgtkUmovementUparagraphUends,(P)YPib((P)GTK_MOVEMENT_PARAGRAPH_ENDS)); VARSET(YsamuruiSgtkYgtkUmovementUpages,(P)YPib((P)GTK_MOVEMENT_PAGES)); VARSET(YsamuruiSgtkYgtkUmovementUbufferUends,(P)YPib((P)GTK_MOVEMENT_BUFFER_ENDS)); VARSET(YsamuruiSgtkYgtkUorientationUhorizontal,(P)YPib((P)GTK_ORIENTATION_HORIZONTAL)); VARSET(YsamuruiSgtkYgtkUorientationUvertical,(P)YPib((P)GTK_ORIENTATION_VERTICAL)); VARSET(YsamuruiSgtkYgtkUcornerUtopUleft,(P)YPib((P)GTK_CORNER_TOP_LEFT)); VARSET(YsamuruiSgtkYgtkUcornerUbottomUleft,(P)YPib((P)GTK_CORNER_BOTTOM_LEFT)); VARSET(YsamuruiSgtkYgtkUcornerUtopUright,(P)YPib((P)GTK_CORNER_TOP_RIGHT)); VARSET(YsamuruiSgtkYgtkUcornerUbottomUright,(P)YPib((P)GTK_CORNER_BOTTOM_RIGHT)); VARSET(YsamuruiSgtkYgtkUpackUstart,(P)YPib((P)GTK_PACK_START)); VARSET(YsamuruiSgtkYgtkUpackUend,(P)YPib((P)GTK_PACK_END)); VARSET(YsamuruiSgtkYgtkUpathUprioUlowest,(P)YPib((P)GTK_PATH_PRIO_LOWEST)); VARSET(YsamuruiSgtkYgtkUpathUprioUgtk,(P)YPib((P)GTK_PATH_PRIO_GTK)); VARSET(YsamuruiSgtkYgtkUpathUprioUapplication,(P)YPib((P)GTK_PATH_PRIO_APPLICATION)); VARSET(YsamuruiSgtkYgtkUpathUprioUtheme,(P)YPib((P)GTK_PATH_PRIO_THEME)); VARSET(YsamuruiSgtkYgtkUpathUprioUrc,(P)YPib((P)GTK_PATH_PRIO_RC)); VARSET(YsamuruiSgtkYgtkUpathUprioUhighest,(P)YPib((P)GTK_PATH_PRIO_HIGHEST)); VARSET(YsamuruiSgtkYgtkUpathUwidget,(P)YPib((P)GTK_PATH_WIDGET)); VARSET(YsamuruiSgtkYgtkUpathUwidgetUclass,(P)YPib((P)GTK_PATH_WIDGET_CLASS)); VARSET(YsamuruiSgtkYgtkUpathUclass,(P)YPib((P)GTK_PATH_CLASS)); VARSET(YsamuruiSgtkYgtkUpolicyUalways,(P)YPib((P)GTK_POLICY_ALWAYS)); VARSET(YsamuruiSgtkYgtkUpolicyUautomatic,(P)YPib((P)GTK_POLICY_AUTOMATIC)); VARSET(YsamuruiSgtkYgtkUpolicyUnever,(P)YPib((P)GTK_POLICY_NEVER)); VARSET(YsamuruiSgtkYgtkUposUleft,(P)YPib((P)GTK_POS_LEFT)); VARSET(YsamuruiSgtkYgtkUposUright,(P)YPib((P)GTK_POS_RIGHT)); VARSET(YsamuruiSgtkYgtkUposUtop,(P)YPib((P)GTK_POS_TOP)); VARSET(YsamuruiSgtkYgtkUposUbottom,(P)YPib((P)GTK_POS_BOTTOM)); VARSET(YsamuruiSgtkYgtkUpreviewUcolor,(P)YPib((P)GTK_PREVIEW_COLOR)); VARSET(YsamuruiSgtkYgtkUpreviewUgrayscale,(P)YPib((P)GTK_PREVIEW_GRAYSCALE)); VARSET(YsamuruiSgtkYgtkUreliefUnormal,(P)YPib((P)GTK_RELIEF_NORMAL)); VARSET(YsamuruiSgtkYgtkUreliefUhalf,(P)YPib((P)GTK_RELIEF_HALF)); VARSET(YsamuruiSgtkYgtkUreliefUnone,(P)YPib((P)GTK_RELIEF_NONE)); VARSET(YsamuruiSgtkYgtkUresizeUparent,(P)YPib((P)GTK_RESIZE_PARENT)); VARSET(YsamuruiSgtkYgtkUresizeUqueue,(P)YPib((P)GTK_RESIZE_QUEUE)); VARSET(YsamuruiSgtkYgtkUresizeUimmediate,(P)YPib((P)GTK_RESIZE_IMMEDIATE)); VARSET(YsamuruiSgtkYgtkUrunUfirst,(P)YPib((P)GTK_RUN_FIRST)); VARSET(YsamuruiSgtkYgtkUrunUlast,(P)YPib((P)GTK_RUN_LAST)); VARSET(YsamuruiSgtkYgtkUrunUboth,(P)YPib((P)GTK_RUN_BOTH)); VARSET(YsamuruiSgtkYgtkUrunUnoUrecurse,(P)YPib((P)GTK_RUN_NO_RECURSE)); VARSET(YsamuruiSgtkYgtkUrunUaction,(P)YPib((P)GTK_RUN_ACTION)); VARSET(YsamuruiSgtkYgtkUrunUnoUhooks,(P)YPib((P)GTK_RUN_NO_HOOKS)); VARSET(YsamuruiSgtkYgtkUscrollUnone,(P)YPib((P)GTK_SCROLL_NONE)); VARSET(YsamuruiSgtkYgtkUscrollUjump,(P)YPib((P)GTK_SCROLL_JUMP)); VARSET(YsamuruiSgtkYgtkUscrollUstepUbackward,(P)YPib((P)GTK_SCROLL_STEP_BACKWARD)); VARSET(YsamuruiSgtkYgtkUscrollUstepUforward,(P)YPib((P)GTK_SCROLL_STEP_FORWARD)); VARSET(YsamuruiSgtkYgtkUscrollUpageUbackward,(P)YPib((P)GTK_SCROLL_PAGE_BACKWARD)); VARSET(YsamuruiSgtkYgtkUscrollUpageUforward,(P)YPib((P)GTK_SCROLL_PAGE_FORWARD)); VARSET(YsamuruiSgtkYgtkUscrollUstepUup,(P)YPib((P)GTK_SCROLL_STEP_UP)); VARSET(YsamuruiSgtkYgtkUscrollUstepUdown,(P)YPib((P)GTK_SCROLL_STEP_DOWN)); VARSET(YsamuruiSgtkYgtkUscrollUpageUup,(P)YPib((P)GTK_SCROLL_PAGE_UP)); VARSET(YsamuruiSgtkYgtkUscrollUpageUdown,(P)YPib((P)GTK_SCROLL_PAGE_DOWN)); VARSET(YsamuruiSgtkYgtkUscrollUstepUleft,(P)YPib((P)GTK_SCROLL_STEP_LEFT)); VARSET(YsamuruiSgtkYgtkUscrollUstepUright,(P)YPib((P)GTK_SCROLL_STEP_RIGHT)); VARSET(YsamuruiSgtkYgtkUscrollUpageUleft,(P)YPib((P)GTK_SCROLL_PAGE_LEFT)); VARSET(YsamuruiSgtkYgtkUscrollUpageUright,(P)YPib((P)GTK_SCROLL_PAGE_RIGHT)); VARSET(YsamuruiSgtkYgtkUscrollUstart,(P)YPib((P)GTK_SCROLL_START)); VARSET(YsamuruiSgtkYgtkUscrollUend,(P)YPib((P)GTK_SCROLL_END)); VARSET(YsamuruiSgtkYgtkUselectionUnone,(P)YPib((P)GTK_SELECTION_NONE)); VARSET(YsamuruiSgtkYgtkUselectionUsingle,(P)YPib((P)GTK_SELECTION_SINGLE)); VARSET(YsamuruiSgtkYgtkUselectionUbrowse,(P)YPib((P)GTK_SELECTION_BROWSE)); VARSET(YsamuruiSgtkYgtkUselectionUmultiple,(P)YPib((P)GTK_SELECTION_MULTIPLE)); VARSET(YsamuruiSgtkYgtkUselectionUextended,(P)YPib((P)GTK_SELECTION_EXTENDED)); VARSET(YsamuruiSgtkYgtkUshadowUnone,(P)YPib((P)GTK_SHADOW_NONE)); VARSET(YsamuruiSgtkYgtkUshadowUin,(P)YPib((P)GTK_SHADOW_IN)); VARSET(YsamuruiSgtkYgtkUshadowUout,(P)YPib((P)GTK_SHADOW_OUT)); VARSET(YsamuruiSgtkYgtkUshadowUetchedUin,(P)YPib((P)GTK_SHADOW_ETCHED_IN)); VARSET(YsamuruiSgtkYgtkUshadowUetchedUout,(P)YPib((P)GTK_SHADOW_ETCHED_OUT)); VARSET(YsamuruiSgtkYgtkUstateUnormal,(P)YPib((P)GTK_STATE_NORMAL)); VARSET(YsamuruiSgtkYgtkUstateUactive,(P)YPib((P)GTK_STATE_ACTIVE)); VARSET(YsamuruiSgtkYgtkUstateUprelight,(P)YPib((P)GTK_STATE_PRELIGHT)); VARSET(YsamuruiSgtkYgtkUstateUselected,(P)YPib((P)GTK_STATE_SELECTED)); VARSET(YsamuruiSgtkYgtkUstateUinsensitive,(P)YPib((P)GTK_STATE_INSENSITIVE)); VARSET(YsamuruiSgtkYgtkUdirectionUleft,(P)YPib((P)GTK_DIRECTION_LEFT)); VARSET(YsamuruiSgtkYgtkUdirectionUright,(P)YPib((P)GTK_DIRECTION_RIGHT)); VARSET(YsamuruiSgtkYgtkUtopUbottom,(P)YPib((P)GTK_TOP_BOTTOM)); VARSET(YsamuruiSgtkYgtkUleftUright,(P)YPib((P)GTK_LEFT_RIGHT)); VARSET(YsamuruiSgtkYgtkUtoolbarUicons,(P)YPib((P)GTK_TOOLBAR_ICONS)); VARSET(YsamuruiSgtkYgtkUtoolbarUtext,(P)YPib((P)GTK_TOOLBAR_TEXT)); VARSET(YsamuruiSgtkYgtkUtoolbarUboth,(P)YPib((P)GTK_TOOLBAR_BOTH)); VARSET(YsamuruiSgtkYgtkUtoolbarUbothUhoriz,(P)YPib((P)GTK_TOOLBAR_BOTH_HORIZ)); VARSET(YsamuruiSgtkYgtkUupdateUcontinuous,(P)YPib((P)GTK_UPDATE_CONTINUOUS)); VARSET(YsamuruiSgtkYgtkUupdateUdiscontinuous,(P)YPib((P)GTK_UPDATE_DISCONTINUOUS)); VARSET(YsamuruiSgtkYgtkUupdateUdelayed,(P)YPib((P)GTK_UPDATE_DELAYED)); VARSET(YsamuruiSgtkYgtkUvisibilityUnone,(P)YPib((P)GTK_VISIBILITY_NONE)); VARSET(YsamuruiSgtkYgtkUvisibilityUpartial,(P)YPib((P)GTK_VISIBILITY_PARTIAL)); VARSET(YsamuruiSgtkYgtkUvisibilityUfull,(P)YPib((P)GTK_VISIBILITY_FULL)); VARSET(YsamuruiSgtkYgtkUwinUposUnone,(P)YPib((P)GTK_WIN_POS_NONE)); VARSET(YsamuruiSgtkYgtkUwinUposUcenter,(P)YPib((P)GTK_WIN_POS_CENTER)); VARSET(YsamuruiSgtkYgtkUwinUposUmouse,(P)YPib((P)GTK_WIN_POS_MOUSE)); VARSET(YsamuruiSgtkYgtkUwinUposUcenterUalways,(P)YPib((P)GTK_WIN_POS_CENTER_ALWAYS)); VARSET(YsamuruiSgtkYgtkUwinUposUcenterUonUparent,(P)YPib((P)GTK_WIN_POS_CENTER_ON_PARENT)); VARSET(YsamuruiSgtkYgtkUwindowUtoplevel,(P)YPib((P)GTK_WINDOW_TOPLEVEL)); VARSET(YsamuruiSgtkYgtkUwindowUpopup,(P)YPib((P)GTK_WINDOW_POPUP)); VARSET(YsamuruiSgtkYgtkUwrapUnone,(P)YPib((P)GTK_WRAP_NONE)); VARSET(YsamuruiSgtkYgtkUwrapUchar,(P)YPib((P)GTK_WRAP_CHAR)); VARSET(YsamuruiSgtkYgtkUwrapUword,(P)YPib((P)GTK_WRAP_WORD)); VARSET(YsamuruiSgtkYgtkUsortUascending,(P)YPib((P)GTK_SORT_ASCENDING)); VARSET(YsamuruiSgtkYgtkUsortUdescending,(P)YPib((P)GTK_SORT_DESCENDING)); { P methodSig, methodDef; P methodName = YPPsym((P)"goo_createCallback"); P lit_arg_0 = YPPsym((P)"func"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLanyG),VARREF(YLanyG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgooUcreatecallback), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgooUcreatecallback, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"goo_destroyCallback"); P lit_arg_0 = YPPsym((P)"callback"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgooUdestroycallback), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgooUdestroycallback, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_getGtkFunctionCallback"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetgtkfunctioncallback), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetgtkfunctioncallback, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_getGtkCallback"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetgtkcallback), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetgtkcallback, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_getGtkCallthrough"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetgtkcallthrough), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetgtkcallthrough, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_getEventCallback"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgeteventcallback), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgeteventcallback, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_getBoolEventCallback"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetbooleventcallback), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetbooleventcallback, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_lookup"); P lit_arg_0 = YPPsym((P)"name"); P lit_arg_1 = YPPsym((P)"itype"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUlookup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUlookup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_name"); P lit_arg_0 = YPPsym((P)"id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUname), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_emit_stop"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUemitUstop), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUemitUstop, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnect), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect_after"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnectUafter), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnectUafter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect_object"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"dataobj"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnectUobject), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnectUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect_object_after"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"dataobj"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnectUobjectUafter), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnectUobjectUafter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_disconnect"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUdisconnect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUdisconnect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_block"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUblock), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUblock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_unblock"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUunblock), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUunblock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_disconnect_by_func"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUdisconnectUbyUfunc), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUdisconnectUbyUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_disconnect_by_data"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUdisconnectUbyUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUdisconnectUbyUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_block_by_func"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUfunc), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_block_by_data"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUblockUbyUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_unblock_by_func"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUfunc), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_unblock_by_data"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUunblockUbyUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_pending"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"id"); P lit_arg_2 = YPPsym((P)"may_be_blocked"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUpending), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUpending, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_handler_pending_by_func"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"signal_id"); P lit_arg_2 = YPPsym((P)"may_be_blocked"); P lit_arg_3 = YPPsym((P)"func"); P lit_arg_4 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUhandlerUpendingUbyUfunc), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUhandlerUpendingUbyUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_newv"); P lit_arg_0 = YPPsym((P)"name"); P lit_arg_1 = YPPsym((P)"signal_flags"); P lit_arg_2 = YPPsym((P)"object_type"); P lit_arg_3 = YPPsym((P)"function_offset"); P lit_arg_4 = YPPsym((P)"marshaller"); P lit_arg_5 = YPPsym((P)"return_val"); P lit_arg_6 = YPPsym((P)"n_args"); P lit_arg_7 = YPPsym((P)"args"); methodSig = YPfab_sig(YPPlist(8,VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)8), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUnewv), methodSig, LITREF(methodName), YPPlist(8,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUnewv, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_emit_stop_by_name"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUemitUstopUbyUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUemitUstopUbyUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect_object_while_alive"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"signal"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"alive_object"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnectUobjectUwhileUalive), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnectUobjectUwhileUalive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect_while_alive"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"signal"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"func_data"); P lit_arg_4 = YPPsym((P)"alive_object"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnectUwhileUalive), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnectUwhileUalive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_connect_full"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"unsupported"); P lit_arg_4 = YPPsym((P)"data"); P lit_arg_5 = YPPsym((P)"destroy_func"); P lit_arg_6 = YPPsym((P)"object_signal"); P lit_arg_7 = YPPsym((P)"after"); methodSig = YPfab_sig(YPPlist(8,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)8), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUconnectUfull), methodSig, LITREF(methodName), YPPlist(8,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUconnectUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_emitv"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"signal_id"); P lit_arg_2 = YPPsym((P)"args"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUemitv), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUemitv, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_emitv_by_name"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"args"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUemitvUbyUname), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUemitvUbyUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_signal_compat_matched"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"match"); P lit_arg_4 = YPPsym((P)"action"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsignalUcompatUmatched), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsignalUcompatUmatched, methodDef); } VARSET(YsamuruiSgtkYgtkUaccelUvisible,(P)YPib((P)GTK_ACCEL_VISIBLE)); VARSET(YsamuruiSgtkYgtkUaccelUlocked,(P)YPib((P)GTK_ACCEL_LOCKED)); VARSET(YsamuruiSgtkYgtkUaccelUmask,(P)YPib((P)GTK_ACCEL_MASK)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_lock"); P lit_arg_0 = YPPsym((P)"accel_group"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUlock), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUlock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_unlock"); P lit_arg_0 = YPPsym((P)"accel_group"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUunlock), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUunlock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_connect"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"accel_key"); P lit_arg_2 = YPPsym((P)"accel_mods"); P lit_arg_3 = YPPsym((P)"accel_flags"); P lit_arg_4 = YPPsym((P)"closure"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUconnect), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUconnect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_connect_by_path"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"accel_path"); P lit_arg_2 = YPPsym((P)"closure"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUconnectUbyUpath), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUconnectUbyUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_disconnect"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"closure"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUdisconnect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUdisconnect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_disconnect_key"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"accel_key"); P lit_arg_2 = YPPsym((P)"accel_mods"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUdisconnectUkey), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUdisconnectUkey, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_gtk_accel_group_attach"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkUaccelUgroupUattach), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkUaccelUgroupUattach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_gtk_accel_group_detach"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkUaccelUgroupUdetach), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkUaccelUgroupUdetach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_groups_activate"); P lit_arg_0 = YPPsym((P)"object"); P lit_arg_1 = YPPsym((P)"accel_key"); P lit_arg_2 = YPPsym((P)"accel_mods"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupsUactivate), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupsUactivate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_groups_from_object"); P lit_arg_0 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupsUfromUobject), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupsUfromUobject, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_find"); P lit_arg_0 = YPPsym((P)"accel_group"); P lit_arg_1 = YPPsym((P)"find_func"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUfind), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUfind, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_group_from_accel_closure"); P lit_arg_0 = YPPsym((P)"closure"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUgroupUfromUaccelUclosure), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUgroupUfromUaccelUclosure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accelerator_valid"); P lit_arg_0 = YPPsym((P)"keyval"); P lit_arg_1 = YPPsym((P)"modifiers"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUacceleratorUvalid), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUacceleratorUvalid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accelerator_parse"); P lit_arg_0 = YPPsym((P)"accelerator"); P lit_arg_1 = YPPsym((P)"accelerator_key"); P lit_arg_2 = YPPsym((P)"accelerator_mods"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUacceleratorUparse), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUacceleratorUparse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accelerator_name"); P lit_arg_0 = YPPsym((P)"accelerator_key"); P lit_arg_1 = YPPsym((P)"accelerator_mods"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUacceleratorUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUacceleratorUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accelerator_set_default_mod_mask"); P lit_arg_0 = YPPsym((P)"default_mod_mask"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUacceleratorUsetUdefaultUmodUmask), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUacceleratorUsetUdefaultUmodUmask, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accelerator_get_default_mod_mask"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUacceleratorUgetUdefaultUmodUmask), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUacceleratorUgetUdefaultUmodUmask, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_object_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUobjectUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUobjectUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_object_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUobjectUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUobjectUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_private_flags_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"private_flags"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUprivateUflagsUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUprivateUflagsUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_private_flags_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUprivateUflagsUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUprivateUflagsUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_saved_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"saved_state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUsavedUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUsavedUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_saved_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUsavedUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUsavedUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_name_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUnameUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUnameUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_name_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUnameUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUnameUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_style_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUstyleUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUstyleUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_style_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUstyleUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUstyleUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_requisition_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"requisition"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUrequisitionUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUrequisitionUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_requisition_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUrequisitionUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUrequisitionUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_allocation_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"allocation"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUallocationUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUallocationUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_allocation_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUallocationUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUallocationUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_parent_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"parent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUparentUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUparentUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkWidget_parent_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkwidgetUparentUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkwidgetUparentUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GtkWidget"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgtkwidget), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgtkwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GtkWidget"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgtkwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgtkwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_ref"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUref), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_unref"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUunref), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUunref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_destroy"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUdestroy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUdestroy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_destroyed"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"widget_pointer"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUdestroyed), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUdestroyed, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_unparent"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUunparent), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUunparent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_show"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUshow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUshow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_show_now"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUshowUnow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUshowUnow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_hide"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUhide), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUhide, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_show_all"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUshowUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUshowUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_hide_all"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUhideUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUhideUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_map"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_unmap"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUunmap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUunmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_realize"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUrealize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUrealize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_unrealize"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUunrealize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUunrealize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_queue_draw"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUqueueUdraw), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUqueueUdraw, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_queue_draw_area"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"width"); P lit_arg_4 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUqueueUdrawUarea), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUqueueUdrawUarea, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_queue_resize"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUqueueUresize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUqueueUresize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_size_request"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"requisition"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsizeUrequest), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsizeUrequest, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_size_allocate"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"allocation"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsizeUallocate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsizeUallocate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_child_requisition"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"requisition"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUchildUrequisition), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUchildUrequisition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_add_accelerator"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"accel_signal"); P lit_arg_2 = YPPsym((P)"accel_group"); P lit_arg_3 = YPPsym((P)"accel_key"); P lit_arg_4 = YPPsym((P)"accel_mods"); P lit_arg_5 = YPPsym((P)"accel_flags"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUaddUaccelerator), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUaddUaccelerator, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_remove_accelerator"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"accel_group"); P lit_arg_2 = YPPsym((P)"accel_key"); P lit_arg_3 = YPPsym((P)"accel_mods"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUremoveUaccelerator), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUremoveUaccelerator, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_list_accel_closures"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUlistUaccelUclosures), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUlistUaccelUclosures, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_mnemonic_activate"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"group_cycling"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmnemonicUactivate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmnemonicUactivate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_event"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUevent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUevent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_send_expose"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsendUexpose), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsendUexpose, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_activate"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUactivate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUactivate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_scroll_adjustments"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"hadjustment"); P lit_arg_2 = YPPsym((P)"vadjustment"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUscrollUadjustments), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUscrollUadjustments, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_reparent"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"new_parent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUreparent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUreparent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_intersect"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"area"); P lit_arg_2 = YPPsym((P)"intersection"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUintersect), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUintersect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_region_intersect"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"region"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUregionUintersect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUregionUintersect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_freeze_child_notify"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUfreezeUchildUnotify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUfreezeUchildUnotify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_child_notify"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"child_property"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUchildUnotify), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUchildUnotify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_thaw_child_notify"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUthawUchildUnotify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUthawUchildUnotify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_is_focus"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUisUfocus), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUisUfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_grab_focus"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgrabUfocus), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgrabUfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_grab_default"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgrabUdefault), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgrabUdefault, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_name"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_name"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUname), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_state"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUstate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_sensitive"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"sensitive"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUsensitive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUsensitive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_app_paintable"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"app_paintable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUappUpaintable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUappUpaintable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_double_buffered"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"double_buffered"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUdoubleUbuffered), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUdoubleUbuffered, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_redraw_on_allocate"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"redraw_on_allocate"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUredrawUonUallocate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUredrawUonUallocate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_parent"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"parent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUparent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUparent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_parent_window"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"parent_window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUparentUwindow), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUparentUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_child_visible"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"is_visible"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUchildUvisible), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUchildUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_child_visible"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUchildUvisible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUchildUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_parent"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUparent), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUparent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_parent_window"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUparentUwindow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUparentUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_child_focus"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"direction"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUchildUfocus), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUchildUfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_size_request"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"width"); P lit_arg_2 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUsizeUrequest), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUsizeUrequest, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_size_request"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUsizeUrequest), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUsizeUrequest, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_events"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"events"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUevents), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_add_events"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"events"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUaddUevents), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUaddUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_extension_events"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUextensionUevents), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUextensionUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_extension_events"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUextensionUevents), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUextensionUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_toplevel"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUtoplevel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUtoplevel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_ancestor"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"widget_type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUancestor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUancestor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_colormap"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUcolormap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_visual"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUvisual), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUvisual, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_settings"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUsettings), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUsettings, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_accessible"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUaccessible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUaccessible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_colormap"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"colormap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUcolormap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_events"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUevents), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_pointer"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUpointer), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUpointer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_is_ancestor"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"ancestor"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUisUancestor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUisUancestor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_translate_coordinates"); P lit_arg_0 = YPPsym((P)"src_widget"); P lit_arg_1 = YPPsym((P)"dest_widget"); P lit_arg_2 = YPPsym((P)"src_x"); P lit_arg_3 = YPPsym((P)"src_y"); P lit_arg_4 = YPPsym((P)"dest_x"); P lit_arg_5 = YPPsym((P)"dest_y"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUtranslateUcoordinates), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUtranslateUcoordinates, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_hide_on_delete"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUhideUonUdelete), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUhideUonUdelete, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_style"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_ensure_style"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUensureUstyle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUensureUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_style"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUstyle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_modify_style"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmodifyUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmodifyUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_modifier_style"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUmodifierUstyle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUmodifierUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_modify_fg"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"state"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmodifyUfg), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmodifyUfg, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_modify_bg"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"state"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmodifyUbg), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmodifyUbg, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_modify_text"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"state"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmodifyUtext), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmodifyUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_modify_base"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"state"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmodifyUbase), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmodifyUbase, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_modify_font"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"font_desc"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUmodifyUfont), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUmodifyUfont, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_create_pango_context"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUcreateUpangoUcontext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUcreateUpangoUcontext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_pango_context"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUpangoUcontext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUpangoUcontext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_create_pango_layout"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUcreateUpangoUlayout), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUcreateUpangoUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_render_icon"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"stock_id"); P lit_arg_2 = YPPsym((P)"size"); P lit_arg_3 = YPPsym((P)"detail"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUrenderUicon), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUrenderUicon, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_composite_name"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUcompositeUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUcompositeUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_composite_name"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUcompositeUname), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUcompositeUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_reset_rc_styles"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUresetUrcUstyles), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUresetUrcUstyles, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_push_colormap"); P lit_arg_0 = YPPsym((P)"cmap"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUpushUcolormap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUpushUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_push_composite_child"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUpushUcompositeUchild), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUpushUcompositeUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_pop_composite_child"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUpopUcompositeUchild), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUpopUcompositeUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_pop_colormap"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUpopUcolormap), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUpopUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_class_install_style_property"); P lit_arg_0 = YPPsym((P)"klass"); P lit_arg_1 = YPPsym((P)"pspec"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUclassUinstallUstyleUproperty), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUclassUinstallUstyleUproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_style_get_property"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"property_name"); P lit_arg_2 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUstyleUgetUproperty), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUstyleUgetUproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_default_colormap"); P lit_arg_0 = YPPsym((P)"colormap"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUdefaultUcolormap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUdefaultUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_default_style"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUstyle), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUdefaultUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_default_colormap"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUcolormap), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUdefaultUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_default_visual"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUvisual), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUdefaultUvisual, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_direction"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"dir"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUdirection), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUdirection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_direction"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUdirection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUdirection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_set_default_direction"); P lit_arg_0 = YPPsym((P)"dir"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUsetUdefaultUdirection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUsetUdefaultUdirection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_get_default_direction"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUgetUdefaultUdirection), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUgetUdefaultUdirection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_shape_combine_mask"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"shape_mask"); P lit_arg_2 = YPPsym((P)"offset_x"); P lit_arg_3 = YPPsym((P)"offset_y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUshapeUcombineUmask), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUshapeUcombineUmask, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_reset_shapes"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUresetUshapes), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUresetUshapes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_path"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"path_length"); P lit_arg_2 = YPPsym((P)"path"); P lit_arg_3 = YPPsym((P)"path_reversed"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUpath), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_widget_class_path"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"path_length"); P lit_arg_2 = YPPsym((P)"path"); P lit_arg_3 = YPPsym((P)"path_reversed"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwidgetUclassUpath), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwidgetUclassUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_requisition_copy"); P lit_arg_0 = YPPsym((P)"requisition"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrequisitionUcopy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrequisitionUcopy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_requisition_free"); P lit_arg_0 = YPPsym((P)"requisition"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrequisitionUfree), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrequisitionUfree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_pixel_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"pixel"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUpixelUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUpixelUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_pixel_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUpixelUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUpixelUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_red_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"red"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUredUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUredUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_red_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUredUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUredUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_green_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"green"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUgreenUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUgreenUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_green_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUgreenUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUgreenUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_blue_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"blue"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUblueUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUblueUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkColor_blue_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkcolorUblueUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkcolorUblueUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkColor"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkcolor), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkColor"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkcolor), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_new"); P lit_arg_0 = YPPsym((P)"visual"); P lit_arg_1 = YPPsym((P)"allocate"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_get_system"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUgetUsystem), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUgetUsystem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_alloc_colors"); P lit_arg_0 = YPPsym((P)"colormap"); P lit_arg_1 = YPPsym((P)"colors"); P lit_arg_2 = YPPsym((P)"writeable"); P lit_arg_3 = YPPsym((P)"best_match"); P lit_arg_4 = YPPsym((P)"success"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLtupG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUallocUcolors), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUallocUcolors, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_alloc_color"); P lit_arg_0 = YPPsym((P)"colormap"); P lit_arg_1 = YPPsym((P)"color"); P lit_arg_2 = YPPsym((P)"writeable"); P lit_arg_3 = YPPsym((P)"best_match"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUallocUcolor), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUallocUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_free_colors"); P lit_arg_0 = YPPsym((P)"colormap"); P lit_arg_1 = YPPsym((P)"colors"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUfreeUcolors), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUfreeUcolors, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_query_color"); P lit_arg_0 = YPPsym((P)"colormap"); P lit_arg_1 = YPPsym((P)"pixel"); P lit_arg_2 = YPPsym((P)"result"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUqueryUcolor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUqueryUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_colormap_get_visual"); P lit_arg_0 = YPPsym((P)"colormap"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolormapUgetUvisual), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolormapUgetUvisual, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_color_copy"); P lit_arg_0 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolorUcopy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolorUcopy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_color_free"); P lit_arg_0 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolorUfree), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolorUfree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_color_parse"); P lit_arg_0 = YPPsym((P)"spec"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolorUparse), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolorUparse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_color_hash"); P lit_arg_0 = YPPsym((P)"colora"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolorUhash), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolorUhash, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_color_equal"); P lit_arg_0 = YPPsym((P)"colora"); P lit_arg_1 = YPPsym((P)"colorb"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolorUequal), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolorUequal, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_color_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcolorUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcolorUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_size"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUsize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_set_colormap"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"colormap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUsetUcolormap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUsetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_colormap"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUcolormap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_visual"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUvisual), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUvisual, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_depth"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUdepth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_point"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUpoint), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUpoint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_line"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x1"); P lit_arg_3 = YPPsym((P)"y1"); P lit_arg_4 = YPPsym((P)"x2"); P lit_arg_5 = YPPsym((P)"y2"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUline), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_rectangle"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"filled"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"width"); P lit_arg_6 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUrectangle), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUrectangle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_arc"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"filled"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"width"); P lit_arg_6 = YPPsym((P)"height"); P lit_arg_7 = YPPsym((P)"angle1"); P lit_arg_8 = YPPsym((P)"angle2"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUarc), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUarc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_polygon"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"filled"); P lit_arg_3 = YPPsym((P)"points"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLtupG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUpolygon), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUpolygon, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_drawable"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"src"); P lit_arg_3 = YPPsym((P)"xsrc"); P lit_arg_4 = YPPsym((P)"ysrc"); P lit_arg_5 = YPPsym((P)"xdest"); P lit_arg_6 = YPPsym((P)"ydest"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUdrawable), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUdrawable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_image"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"image"); P lit_arg_3 = YPPsym((P)"xsrc"); P lit_arg_4 = YPPsym((P)"ysrc"); P lit_arg_5 = YPPsym((P)"xdest"); P lit_arg_6 = YPPsym((P)"ydest"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUimage), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_points"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"points"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUpoints), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUpoints, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_segments"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"segs"); P lit_arg_3 = YPPsym((P)"nsegs"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUsegments), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUsegments, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_lines"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"points"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUlines), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUlines, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_glyphs"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"font"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"glyphs"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUglyphs), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUglyphs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_layout_line"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"line"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUlayoutUline), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUlayoutUline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_layout"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"layout"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUlayout), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_layout_line_with_colors"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"line"); P lit_arg_5 = YPPsym((P)"foreground"); P lit_arg_6 = YPPsym((P)"background"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUlayoutUlineUwithUcolors), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUlayoutUlineUwithUcolors, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_layout_with_colors"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"gc"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"layout"); P lit_arg_5 = YPPsym((P)"foreground"); P lit_arg_6 = YPPsym((P)"background"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUlayoutUwithUcolors), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUlayoutUwithUcolors, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_image"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"width"); P lit_arg_4 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUimage), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_clip_region"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUclipUregion), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUclipUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_drawable_get_visible_region"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawableUgetUvisibleUregion), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawableUgetUvisibleUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_string"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"font"); P lit_arg_2 = YPPsym((P)"gc"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"string"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLstrG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUstring), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUstring, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_text"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"font"); P lit_arg_2 = YPPsym((P)"gc"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"text"); P lit_arg_6 = YPPsym((P)"text_length"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUtext), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_draw_text_wc"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"font"); P lit_arg_2 = YPPsym((P)"gc"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"text"); P lit_arg_6 = YPPsym((P)"text_length"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUdrawUtextUwc), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUdrawUtextUwc, methodDef); } VARSET(YsamuruiSgtkYgdkUfontUfont,(P)YPib((P)GDK_FONT_FONT)); VARSET(YsamuruiSgtkYgdkUfontUfontset,(P)YPib((P)GDK_FONT_FONTSET)); { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkFont_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkfontUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkfontUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkFont_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkfontUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkfontUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkFont_ascent_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"ascent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkfontUascentUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkfontUascentUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkFont_ascent_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkfontUascentUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkfontUascentUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkFont_descent_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"descent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkfontUdescentUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkfontUdescentUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkFont_descent_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkfontUdescentUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkfontUdescentUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkFont"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkfont), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkfont, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkFont"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkfont), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkfont, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_load"); P lit_arg_0 = YPPsym((P)"font_name"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUload), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUload, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_fontset_load"); P lit_arg_0 = YPPsym((P)"fontset_name"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontsetUload), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontsetUload, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_from_description"); P lit_arg_0 = YPPsym((P)"font_desc"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUfromUdescription), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUfromUdescription, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_ref"); P lit_arg_0 = YPPsym((P)"font"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUref), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_unref"); P lit_arg_0 = YPPsym((P)"font"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUunref), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUunref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_id"); P lit_arg_0 = YPPsym((P)"font"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUid), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_font_equal"); P lit_arg_0 = YPPsym((P)"fonta"); P lit_arg_1 = YPPsym((P)"fontb"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUfontUequal), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUfontUequal, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_string_width"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"string"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUstringUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUstringUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_text_width"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"text_length"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUtextUwidth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUtextUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_text_width_wc"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"text_length"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUtextUwidthUwc), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUtextUwidthUwc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_char_width"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"character"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcharUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcharUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_char_width_wc"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"character"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcharUwidthUwc), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcharUwidthUwc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_string_measure"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"string"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUstringUmeasure), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUstringUmeasure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_text_measure"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"text_length"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUtextUmeasure), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUtextUmeasure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_char_measure"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"character"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcharUmeasure), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcharUmeasure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_string_height"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"string"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUstringUheight), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUstringUheight, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_text_height"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"text_length"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUtextUheight), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUtextUheight, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_char_height"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"character"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUcharUheight), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUcharUheight, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_text_extents"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"text_length"); P lit_arg_3 = YPPsym((P)"lbearing"); P lit_arg_4 = YPPsym((P)"rbearing"); P lit_arg_5 = YPPsym((P)"ascent"); P lit_arg_6 = YPPsym((P)"descent"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUtextUextents), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUtextUextents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_text_extents_wc"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"text_length"); P lit_arg_3 = YPPsym((P)"lbearing"); P lit_arg_4 = YPPsym((P)"rbearing"); P lit_arg_5 = YPPsym((P)"ascent"); P lit_arg_6 = YPPsym((P)"descent"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUtextUextentsUwc), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUtextUextentsUwc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_string_extents"); P lit_arg_0 = YPPsym((P)"font"); P lit_arg_1 = YPPsym((P)"string"); P lit_arg_2 = YPPsym((P)"lbearing"); P lit_arg_3 = YPPsym((P)"rbearing"); P lit_arg_4 = YPPsym((P)"ascent"); P lit_arg_5 = YPPsym((P)"descent"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUstringUextents), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUstringUextents, methodDef); } VARSET(YsamuruiSgtkYgdkUfilterUcontinue,(P)YPib((P)GDK_FILTER_CONTINUE)); VARSET(YsamuruiSgtkYgdkUfilterUtranslate,(P)YPib((P)GDK_FILTER_TRANSLATE)); VARSET(YsamuruiSgtkYgdkUfilterUremove,(P)YPib((P)GDK_FILTER_REMOVE)); VARSET(YsamuruiSgtkYgdkUnothing,(P)YPib((P)GDK_NOTHING)); VARSET(YsamuruiSgtkYgdkUdelete,(P)YPib((P)GDK_DELETE)); VARSET(YsamuruiSgtkYgdkUdestroy,(P)YPib((P)GDK_DESTROY)); VARSET(YsamuruiSgtkYgdkUexpose,(P)YPib((P)GDK_EXPOSE)); VARSET(YsamuruiSgtkYgdkUmotionUnotify,(P)YPib((P)GDK_MOTION_NOTIFY)); VARSET(YsamuruiSgtkYgdkUbuttonUpress,(P)YPib((P)GDK_BUTTON_PRESS)); VARSET(YsamuruiSgtkYgdkU2buttonUpress,(P)YPib((P)GDK_2BUTTON_PRESS)); VARSET(YsamuruiSgtkYgdkU3buttonUpress,(P)YPib((P)GDK_3BUTTON_PRESS)); VARSET(YsamuruiSgtkYgdkUbuttonUrelease,(P)YPib((P)GDK_BUTTON_RELEASE)); VARSET(YsamuruiSgtkYgdkUkeyUpress,(P)YPib((P)GDK_KEY_PRESS)); VARSET(YsamuruiSgtkYgdkUkeyUrelease,(P)YPib((P)GDK_KEY_RELEASE)); VARSET(YsamuruiSgtkYgdkUenterUnotify,(P)YPib((P)GDK_ENTER_NOTIFY)); VARSET(YsamuruiSgtkYgdkUleaveUnotify,(P)YPib((P)GDK_LEAVE_NOTIFY)); VARSET(YsamuruiSgtkYgdkUfocusUchange,(P)YPib((P)GDK_FOCUS_CHANGE)); VARSET(YsamuruiSgtkYgdkUconfigure,(P)YPib((P)GDK_CONFIGURE)); VARSET(YsamuruiSgtkYgdkUmap,(P)YPib((P)GDK_MAP)); VARSET(YsamuruiSgtkYgdkUunmap,(P)YPib((P)GDK_UNMAP)); VARSET(YsamuruiSgtkYgdkUpropertyUnotify,(P)YPib((P)GDK_PROPERTY_NOTIFY)); VARSET(YsamuruiSgtkYgdkUselectionUclear,(P)YPib((P)GDK_SELECTION_CLEAR)); VARSET(YsamuruiSgtkYgdkUselectionUrequest,(P)YPib((P)GDK_SELECTION_REQUEST)); VARSET(YsamuruiSgtkYgdkUselectionUnotify,(P)YPib((P)GDK_SELECTION_NOTIFY)); VARSET(YsamuruiSgtkYgdkUproximityUin,(P)YPib((P)GDK_PROXIMITY_IN)); VARSET(YsamuruiSgtkYgdkUproximityUout,(P)YPib((P)GDK_PROXIMITY_OUT)); VARSET(YsamuruiSgtkYgdkUdragUenter,(P)YPib((P)GDK_DRAG_ENTER)); VARSET(YsamuruiSgtkYgdkUdragUleave,(P)YPib((P)GDK_DRAG_LEAVE)); VARSET(YsamuruiSgtkYgdkUdragUmotion,(P)YPib((P)GDK_DRAG_MOTION)); VARSET(YsamuruiSgtkYgdkUdragUstatus,(P)YPib((P)GDK_DRAG_STATUS)); VARSET(YsamuruiSgtkYgdkUdropUstart,(P)YPib((P)GDK_DROP_START)); VARSET(YsamuruiSgtkYgdkUdropUfinished,(P)YPib((P)GDK_DROP_FINISHED)); VARSET(YsamuruiSgtkYgdkUclientUevent,(P)YPib((P)GDK_CLIENT_EVENT)); VARSET(YsamuruiSgtkYgdkUvisibilityUnotify,(P)YPib((P)GDK_VISIBILITY_NOTIFY)); VARSET(YsamuruiSgtkYgdkUnoUexpose,(P)YPib((P)GDK_NO_EXPOSE)); VARSET(YsamuruiSgtkYgdkUscroll,(P)YPib((P)GDK_SCROLL)); VARSET(YsamuruiSgtkYgdkUwindowUstate,(P)YPib((P)GDK_WINDOW_STATE)); VARSET(YsamuruiSgtkYgdkUsetting,(P)YPib((P)GDK_SETTING)); VARSET(YsamuruiSgtkYgdkUexposureUmask,(P)YPib((P)GDK_EXPOSURE_MASK)); VARSET(YsamuruiSgtkYgdkUpointerUmotionUmask,(P)YPib((P)GDK_POINTER_MOTION_MASK)); VARSET(YsamuruiSgtkYgdkUpointerUmotionUhintUmask,(P)YPib((P)GDK_POINTER_MOTION_HINT_MASK)); VARSET(YsamuruiSgtkYgdkUbuttonUmotionUmask,(P)YPib((P)GDK_BUTTON_MOTION_MASK)); VARSET(YsamuruiSgtkYgdkUbutton1UmotionUmask,(P)YPib((P)GDK_BUTTON1_MOTION_MASK)); VARSET(YsamuruiSgtkYgdkUbutton2UmotionUmask,(P)YPib((P)GDK_BUTTON2_MOTION_MASK)); VARSET(YsamuruiSgtkYgdkUbutton3UmotionUmask,(P)YPib((P)GDK_BUTTON3_MOTION_MASK)); VARSET(YsamuruiSgtkYgdkUbuttonUpressUmask,(P)YPib((P)GDK_BUTTON_PRESS_MASK)); VARSET(YsamuruiSgtkYgdkUbuttonUreleaseUmask,(P)YPib((P)GDK_BUTTON_RELEASE_MASK)); VARSET(YsamuruiSgtkYgdkUkeyUpressUmask,(P)YPib((P)GDK_KEY_PRESS_MASK)); VARSET(YsamuruiSgtkYgdkUkeyUreleaseUmask,(P)YPib((P)GDK_KEY_RELEASE_MASK)); VARSET(YsamuruiSgtkYgdkUenterUnotifyUmask,(P)YPib((P)GDK_ENTER_NOTIFY_MASK)); VARSET(YsamuruiSgtkYgdkUleaveUnotifyUmask,(P)YPib((P)GDK_LEAVE_NOTIFY_MASK)); VARSET(YsamuruiSgtkYgdkUfocusUchangeUmask,(P)YPib((P)GDK_FOCUS_CHANGE_MASK)); VARSET(YsamuruiSgtkYgdkUstructureUmask,(P)YPib((P)GDK_STRUCTURE_MASK)); VARSET(YsamuruiSgtkYgdkUpropertyUchangeUmask,(P)YPib((P)GDK_PROPERTY_CHANGE_MASK)); VARSET(YsamuruiSgtkYgdkUvisibilityUnotifyUmask,(P)YPib((P)GDK_VISIBILITY_NOTIFY_MASK)); VARSET(YsamuruiSgtkYgdkUproximityUinUmask,(P)YPib((P)GDK_PROXIMITY_IN_MASK)); VARSET(YsamuruiSgtkYgdkUproximityUoutUmask,(P)YPib((P)GDK_PROXIMITY_OUT_MASK)); VARSET(YsamuruiSgtkYgdkUsubstructureUmask,(P)YPib((P)GDK_SUBSTRUCTURE_MASK)); VARSET(YsamuruiSgtkYgdkUscrollUmask,(P)YPib((P)GDK_SCROLL_MASK)); VARSET(YsamuruiSgtkYgdkUallUeventsUmask,(P)YPib((P)GDK_ALL_EVENTS_MASK)); VARSET(YsamuruiSgtkYgdkUvisibilityUunobscured,(P)YPib((P)GDK_VISIBILITY_UNOBSCURED)); VARSET(YsamuruiSgtkYgdkUvisibilityUpartial,(P)YPib((P)GDK_VISIBILITY_PARTIAL)); VARSET(YsamuruiSgtkYgdkUvisibilityUfullyUobscured,(P)YPib((P)GDK_VISIBILITY_FULLY_OBSCURED)); VARSET(YsamuruiSgtkYgdkUscrollUup,(P)YPib((P)GDK_SCROLL_UP)); VARSET(YsamuruiSgtkYgdkUscrollUdown,(P)YPib((P)GDK_SCROLL_DOWN)); VARSET(YsamuruiSgtkYgdkUscrollUleft,(P)YPib((P)GDK_SCROLL_LEFT)); VARSET(YsamuruiSgtkYgdkUscrollUright,(P)YPib((P)GDK_SCROLL_RIGHT)); VARSET(YsamuruiSgtkYgdkUnotifyUancestor,(P)YPib((P)GDK_NOTIFY_ANCESTOR)); VARSET(YsamuruiSgtkYgdkUnotifyUvirtual,(P)YPib((P)GDK_NOTIFY_VIRTUAL)); VARSET(YsamuruiSgtkYgdkUnotifyUinferior,(P)YPib((P)GDK_NOTIFY_INFERIOR)); VARSET(YsamuruiSgtkYgdkUnotifyUnonlinear,(P)YPib((P)GDK_NOTIFY_NONLINEAR)); VARSET(YsamuruiSgtkYgdkUnotifyUnonlinearUvirtual,(P)YPib((P)GDK_NOTIFY_NONLINEAR_VIRTUAL)); VARSET(YsamuruiSgtkYgdkUnotifyUunknown,(P)YPib((P)GDK_NOTIFY_UNKNOWN)); VARSET(YsamuruiSgtkYgdkUcrossingUnormal,(P)YPib((P)GDK_CROSSING_NORMAL)); VARSET(YsamuruiSgtkYgdkUcrossingUgrab,(P)YPib((P)GDK_CROSSING_GRAB)); VARSET(YsamuruiSgtkYgdkUcrossingUungrab,(P)YPib((P)GDK_CROSSING_UNGRAB)); VARSET(YsamuruiSgtkYgdkUpropertyUnewUvalue,(P)YPib((P)GDK_PROPERTY_NEW_VALUE)); VARSET(YsamuruiSgtkYgdkUpropertyUdelete,(P)YPib((P)GDK_PROPERTY_DELETE)); VARSET(YsamuruiSgtkYgdkUwindowUstateUwithdrawn,(P)YPib((P)GDK_WINDOW_STATE_WITHDRAWN)); VARSET(YsamuruiSgtkYgdkUwindowUstateUiconified,(P)YPib((P)GDK_WINDOW_STATE_ICONIFIED)); VARSET(YsamuruiSgtkYgdkUwindowUstateUmaximized,(P)YPib((P)GDK_WINDOW_STATE_MAXIMIZED)); VARSET(YsamuruiSgtkYgdkUwindowUstateUsticky,(P)YPib((P)GDK_WINDOW_STATE_STICKY)); VARSET(YsamuruiSgtkYgdkUsettingUactionUnew,(P)YPib((P)GDK_SETTING_ACTION_NEW)); VARSET(YsamuruiSgtkYgdkUsettingUactionUchanged,(P)YPib((P)GDK_SETTING_ACTION_CHANGED)); VARSET(YsamuruiSgtkYgdkUsettingUactionUdeleted,(P)YPib((P)GDK_SETTING_ACTION_DELETED)); { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventAny_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventanyUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventanyUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventAny_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventanyUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventanyUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventAny_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventanyUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventanyUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventAny_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventanyUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventanyUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventAny_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventanyUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventanyUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventAny_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventanyUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventanyUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventAny"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventany), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventany, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventAny"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventany), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventany, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_area_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"area"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUareaUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUareaUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_area_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUareaUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUareaUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_region_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"region"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUregionUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUregionUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_region_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUregionUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUregionUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_count_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"count"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUcountUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUcountUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventExpose_count_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventexposeUcountUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventexposeUcountUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventExpose"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventexpose), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventexpose, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventExpose"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventexpose), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventexpose, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventVisibility_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventvisibilityUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventvisibilityUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventVisibility"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventvisibility), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventvisibility, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventVisibility"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventvisibility), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventvisibility, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_x_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUxUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUxUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_x_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUxUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUxUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_y_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_y_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_axes_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"axes"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUaxesUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUaxesUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_axes_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUaxesUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUaxesUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_is_hint_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"is_hint"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUisUhintUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUisUhintUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_is_hint_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUisUhintUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUisUhintUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_device_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"device"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUdeviceUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUdeviceUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_device_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUdeviceUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUdeviceUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_x_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUxUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUxUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_x_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUxUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUxUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_y_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUyUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUyUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventMotion_y_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventmotionUyUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventmotionUyUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventMotion"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventmotion), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventmotion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventMotion"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventmotion), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventmotion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_x_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUxUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUxUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_x_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUxUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUxUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_y_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_y_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_axes_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"axes"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUaxesUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUaxesUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_axes_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUaxesUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUaxesUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_button_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUbuttonUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUbuttonUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_button_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUbuttonUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUbuttonUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_device_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"device"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUdeviceUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUdeviceUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_device_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUdeviceUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUdeviceUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_x_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUxUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUxUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_x_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUxUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUxUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_y_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUyUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUyUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventButton_y_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventbuttonUyUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventbuttonUyUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventButton"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventbutton), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventbutton, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventButton"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventbutton), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventbutton, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_x_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUxUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUxUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_x_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUxUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUxUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_y_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_y_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_direction_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"direction"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUdirectionUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUdirectionUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_direction_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUdirectionUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUdirectionUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_device_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"device"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUdeviceUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUdeviceUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_device_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUdeviceUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUdeviceUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_x_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUxUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUxUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_x_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUxUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUxUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_y_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUyUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUyUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventScroll_y_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventscrollUyUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventscrollUyUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventScroll"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventscroll), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventscroll, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventScroll"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventscroll), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventscroll, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_keyval_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"keyval"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUkeyvalUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUkeyvalUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_keyval_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUkeyvalUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUkeyvalUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_length_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"length"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUlengthUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUlengthUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_length_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUlengthUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUlengthUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_string_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"string"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUstringUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUstringUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_string_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUstringUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUstringUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_hardware_keycode_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"hardware_keycode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_hardware_keycode_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUhardwareUkeycodeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_group_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"group"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUgroupUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUgroupUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventKey_group_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventkeyUgroupUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventkeyUgroupUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventKey"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventkey), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventkey, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventKey"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventkey), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventkey, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_subwindow_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"subwindow"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUsubwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUsubwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_subwindow_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUsubwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUsubwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_x_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUxUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUxUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_x_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUxUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUxUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_y_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_y_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_x_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUxUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUxUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_x_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUxUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUxUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_y_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUyUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUyUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_y_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUyUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUyUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_mode_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUmodeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUmodeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_mode_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUmodeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUmodeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_detail_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"detail"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUdetailUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUdetailUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_detail_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUdetailUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUdetailUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_focus_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"focus"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUfocusUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUfocusUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_focus_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUfocusUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUfocusUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventCrossing_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventcrossingUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventcrossingUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventCrossing"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventcrossing), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventcrossing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventCrossing"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventcrossing), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventcrossing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_in_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"in"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUinUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUinUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventFocus_in_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventfocusUinUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventfocusUinUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventFocus"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventfocus), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventFocus"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventfocus), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_x_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUxUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUxUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_x_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUxUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUxUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_y_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_y_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_width_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUwidthUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUwidthUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_width_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUwidthUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUwidthUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_height_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUheightUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUheightUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventConfigure_height_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventconfigureUheightUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventconfigureUheightUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventConfigure"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventconfigure), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventconfigure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventConfigure"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventconfigure), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventconfigure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_atom_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"atom"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUatomUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUatomUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_atom_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUatomUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUatomUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProperty_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventpropertyUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventpropertyUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventProperty"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventproperty), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventProperty"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventproperty), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventproperty, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_selection_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"selection"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUselectionUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUselectionUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_selection_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUselectionUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUselectionUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_target_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"target"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUtargetUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUtargetUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_target_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUtargetUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUtargetUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_property_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"property"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUpropertyUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUpropertyUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_property_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUpropertyUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUpropertyUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_requestor_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"requestor"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUrequestorUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUrequestorUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSelection_requestor_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventselectionUrequestorUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventselectionUrequestorUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventSelection"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventselection), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventSelection"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_device_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"device"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUdeviceUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUdeviceUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventProximity_device_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventproximityUdeviceUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventproximityUdeviceUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventProximity"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventproximity), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventproximity, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventProximity"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventproximity), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventproximity, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_message_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"message_type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUmessageUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUmessageUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_message_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUmessageUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUmessageUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_format_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"data_format"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUformatUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUformatUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_format_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUformatUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUformatUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventClient"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventclient), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventclient, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventClient"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventclient), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventclient, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_b_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"b"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUbUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUbUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_b_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUbUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUbUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_s_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"s"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUsUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUsUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_s_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUsUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUsUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_l_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"l"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUlUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUlUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventClient_data_l_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventclientUdataUlUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventclientUdataUlUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventClient_data"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventclientUdata), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventclientUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventClient_data"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventclientUdata), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventclientUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_action_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"action"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUactionUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUactionUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_action_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUactionUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUactionUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_name_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUnameUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUnameUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventSetting_name_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventsettingUnameUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventsettingUnameUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventSetting"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventsetting), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventsetting, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventSetting"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventsetting), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventsetting, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_changed_mask_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"changed_mask"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_changed_mask_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUchangedUmaskUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_new_window_state_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"new_window_state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventWindowState_new_window_state_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventwindowstateUnewUwindowUstateUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventWindowState"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventwindowstate), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventwindowstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventWindowState"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventwindowstate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventwindowstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_type_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUtypeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUtypeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_type_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUtypeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUtypeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_window_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUwindowUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUwindowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_window_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUwindowUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUwindowUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_send_event_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"send_event"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUsendUeventUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUsendUeventUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_send_event_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUsendUeventUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUsendUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_context_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"context"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUcontextUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUcontextUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_context_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUcontextUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUcontextUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_time_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUtimeUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUtimeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_time_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUtimeUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUtimeUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_x_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"x_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUxUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUxUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_x_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUxUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUxUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_y_root_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"y_root"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUyUrootUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUyUrootUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GdkEventDND_y_root_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgdkeventdndUyUrootUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgdkeventdndUyUrootUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GdkEventDND"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgdkeventdnd), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgdkeventdnd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GdkEventDND"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgdkeventdnd), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgdkeventdnd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_events_pending"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventsUpending), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventsUpending, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUget), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_peek"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUpeek), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUpeek, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_graphics_expose"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUgraphicsUexpose), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUgraphicsUexpose, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_put"); P lit_arg_0 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUput), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUput, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_copy"); P lit_arg_0 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUcopy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUcopy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_free"); P lit_arg_0 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUfree), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUfree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_time"); P lit_arg_0 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUtime), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUtime, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_state"); P lit_arg_0 = YPPsym((P)"event"); P lit_arg_1 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUstate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_coords"); P lit_arg_0 = YPPsym((P)"event"); P lit_arg_1 = YPPsym((P)"x_win"); P lit_arg_2 = YPPsym((P)"y_win"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUcoords), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUcoords, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_root_coords"); P lit_arg_0 = YPPsym((P)"event"); P lit_arg_1 = YPPsym((P)"x_root"); P lit_arg_2 = YPPsym((P)"y_root"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUrootUcoords), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUrootUcoords, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_get_axis"); P lit_arg_0 = YPPsym((P)"event"); P lit_arg_1 = YPPsym((P)"axis_use"); P lit_arg_2 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUgetUaxis), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUgetUaxis, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_handler_set"); P lit_arg_0 = YPPsym((P)"func"); P lit_arg_1 = YPPsym((P)"data"); P lit_arg_2 = YPPsym((P)"notify"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUhandlerUset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUhandlerUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_set_show_events"); P lit_arg_0 = YPPsym((P)"show_events"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsetUshowUevents), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsetUshowUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_get_show_events"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgetUshowUevents), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgetUshowUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_add_client_message_filter"); P lit_arg_0 = YPPsym((P)"message_type"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUaddUclientUmessageUfilter), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUaddUclientUmessageUfilter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_setting_get"); P lit_arg_0 = YPPsym((P)"name"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsettingUget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsettingUget, methodDef); } VARSET(YsamuruiSgtkYgdkUcapUnotUlast,(P)YPib((P)GDK_CAP_NOT_LAST)); VARSET(YsamuruiSgtkYgdkUcapUbutt,(P)YPib((P)GDK_CAP_BUTT)); VARSET(YsamuruiSgtkYgdkUcapUround,(P)YPib((P)GDK_CAP_ROUND)); VARSET(YsamuruiSgtkYgdkUcapUprojecting,(P)YPib((P)GDK_CAP_PROJECTING)); VARSET(YsamuruiSgtkYgdkUsolid,(P)YPib((P)GDK_SOLID)); VARSET(YsamuruiSgtkYgdkUtiled,(P)YPib((P)GDK_TILED)); VARSET(YsamuruiSgtkYgdkUstippled,(P)YPib((P)GDK_STIPPLED)); VARSET(YsamuruiSgtkYgdkUopaqueUstippled,(P)YPib((P)GDK_OPAQUE_STIPPLED)); VARSET(YsamuruiSgtkYgdkUcopy,(P)YPib((P)GDK_COPY)); VARSET(YsamuruiSgtkYgdkUinvert,(P)YPib((P)GDK_INVERT)); VARSET(YsamuruiSgtkYgdkUxor,(P)YPib((P)GDK_XOR)); VARSET(YsamuruiSgtkYgdkUclear,(P)YPib((P)GDK_CLEAR)); VARSET(YsamuruiSgtkYgdkUand,(P)YPib((P)GDK_AND)); VARSET(YsamuruiSgtkYgdkUandUreverse,(P)YPib((P)GDK_AND_REVERSE)); VARSET(YsamuruiSgtkYgdkUandUinvert,(P)YPib((P)GDK_AND_INVERT)); VARSET(YsamuruiSgtkYgdkUnoop,(P)YPib((P)GDK_NOOP)); VARSET(YsamuruiSgtkYgdkUor,(P)YPib((P)GDK_OR)); VARSET(YsamuruiSgtkYgdkUequiv,(P)YPib((P)GDK_EQUIV)); VARSET(YsamuruiSgtkYgdkUorUreverse,(P)YPib((P)GDK_OR_REVERSE)); VARSET(YsamuruiSgtkYgdkUcopyUinvert,(P)YPib((P)GDK_COPY_INVERT)); VARSET(YsamuruiSgtkYgdkUorUinvert,(P)YPib((P)GDK_OR_INVERT)); VARSET(YsamuruiSgtkYgdkUnand,(P)YPib((P)GDK_NAND)); VARSET(YsamuruiSgtkYgdkUnor,(P)YPib((P)GDK_NOR)); VARSET(YsamuruiSgtkYgdkUset,(P)YPib((P)GDK_SET)); VARSET(YsamuruiSgtkYgdkUjoinUmiter,(P)YPib((P)GDK_JOIN_MITER)); VARSET(YsamuruiSgtkYgdkUjoinUround,(P)YPib((P)GDK_JOIN_ROUND)); VARSET(YsamuruiSgtkYgdkUjoinUbevel,(P)YPib((P)GDK_JOIN_BEVEL)); VARSET(YsamuruiSgtkYgdkUlineUsolid,(P)YPib((P)GDK_LINE_SOLID)); VARSET(YsamuruiSgtkYgdkUlineUonUoffUdash,(P)YPib((P)GDK_LINE_ON_OFF_DASH)); VARSET(YsamuruiSgtkYgdkUlineUdoubleUdash,(P)YPib((P)GDK_LINE_DOUBLE_DASH)); VARSET(YsamuruiSgtkYgdkUclipUbyUchildren,(P)YPib((P)GDK_CLIP_BY_CHILDREN)); VARSET(YsamuruiSgtkYgdkUincludeUinferiors,(P)YPib((P)GDK_INCLUDE_INFERIORS)); VARSET(YsamuruiSgtkYgdkUgcUforeground,(P)YPib((P)GDK_GC_FOREGROUND)); VARSET(YsamuruiSgtkYgdkUgcUbackground,(P)YPib((P)GDK_GC_BACKGROUND)); VARSET(YsamuruiSgtkYgdkUgcUfont,(P)YPib((P)GDK_GC_FONT)); VARSET(YsamuruiSgtkYgdkUgcUfunction,(P)YPib((P)GDK_GC_FUNCTION)); VARSET(YsamuruiSgtkYgdkUgcUfill,(P)YPib((P)GDK_GC_FILL)); VARSET(YsamuruiSgtkYgdkUgcUtile,(P)YPib((P)GDK_GC_TILE)); VARSET(YsamuruiSgtkYgdkUgcUstipple,(P)YPib((P)GDK_GC_STIPPLE)); VARSET(YsamuruiSgtkYgdkUgcUclipUmask,(P)YPib((P)GDK_GC_CLIP_MASK)); VARSET(YsamuruiSgtkYgdkUgcUsubwindow,(P)YPib((P)GDK_GC_SUBWINDOW)); VARSET(YsamuruiSgtkYgdkUgcUtsUxUorigin,(P)YPib((P)GDK_GC_TS_X_ORIGIN)); VARSET(YsamuruiSgtkYgdkUgcUtsUyUorigin,(P)YPib((P)GDK_GC_TS_Y_ORIGIN)); VARSET(YsamuruiSgtkYgdkUgcUclipUxUorigin,(P)YPib((P)GDK_GC_CLIP_X_ORIGIN)); VARSET(YsamuruiSgtkYgdkUgcUclipUyUorigin,(P)YPib((P)GDK_GC_CLIP_Y_ORIGIN)); VARSET(YsamuruiSgtkYgdkUgcUexposures,(P)YPib((P)GDK_GC_EXPOSURES)); VARSET(YsamuruiSgtkYgdkUgcUlineUwidth,(P)YPib((P)GDK_GC_LINE_WIDTH)); VARSET(YsamuruiSgtkYgdkUgcUlineUstyle,(P)YPib((P)GDK_GC_LINE_STYLE)); VARSET(YsamuruiSgtkYgdkUgcUcapUstyle,(P)YPib((P)GDK_GC_CAP_STYLE)); VARSET(YsamuruiSgtkYgdkUgcUjoinUstyle,(P)YPib((P)GDK_GC_JOIN_STYLE)); { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_new"); P lit_arg_0 = YPPsym((P)"drawable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_new_with_values"); P lit_arg_0 = YPPsym((P)"drawable"); P lit_arg_1 = YPPsym((P)"values"); P lit_arg_2 = YPPsym((P)"values_mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUnewUwithUvalues), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUnewUwithUvalues, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_get_values"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"values"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUgetUvalues), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUgetUvalues, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_values"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"values"); P lit_arg_2 = YPPsym((P)"values_mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUvalues), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUvalues, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_foreground"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUforeground), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUforeground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_background"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUbackground), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUbackground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_function"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"function"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUfunction), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUfunction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_fill"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"fill"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUfill), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUfill, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_tile"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"tile"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUtile), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUtile, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_stipple"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"stipple"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUstipple), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUstipple, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_ts_origin"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUtsUorigin), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUtsUorigin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_clip_origin"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUclipUorigin), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUclipUorigin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_clip_mask"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUclipUmask), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUclipUmask, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_clip_rectangle"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"rectangle"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUclipUrectangle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUclipUrectangle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_clip_region"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"region"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUclipUregion), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUclipUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_subwindow"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUsubwindow), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUsubwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_exposures"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"exposures"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUexposures), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUexposures, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_line_attributes"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"line_width"); P lit_arg_2 = YPPsym((P)"line_style"); P lit_arg_3 = YPPsym((P)"cap_style"); P lit_arg_4 = YPPsym((P)"join_style"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUlineUattributes), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUlineUattributes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_dashes"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"dash_offset"); P lit_arg_2 = YPPsym((P)"dash_list"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLtupG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUdashes), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUdashes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_offset"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"x_offset"); P lit_arg_2 = YPPsym((P)"y_offset"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUoffset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUoffset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_copy"); P lit_arg_0 = YPPsym((P)"dst_gc"); P lit_arg_1 = YPPsym((P)"src_gc"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUcopy), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUcopy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_colormap"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"colormap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUcolormap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_get_colormap"); P lit_arg_0 = YPPsym((P)"gc"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUgetUcolormap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUgetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_rgb_fg_color"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUrgbUfgUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUrgbUfgUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_gc_set_rgb_bg_color"); P lit_arg_0 = YPPsym((P)"gc"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgcUsetUrgbUbgUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgcUsetUrgbUbgUcolor, methodDef); } VARSET(YsamuruiSgtkYgdkUimageUnormal,(P)YPib((P)GDK_IMAGE_NORMAL)); VARSET(YsamuruiSgtkYgdkUimageUshared,(P)YPib((P)GDK_IMAGE_SHARED)); VARSET(YsamuruiSgtkYgdkUimageUfastest,(P)YPib((P)GDK_IMAGE_FASTEST)); { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_image_new"); P lit_arg_0 = YPPsym((P)"type"); P lit_arg_1 = YPPsym((P)"visual"); P lit_arg_2 = YPPsym((P)"width"); P lit_arg_3 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUimageUnew), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUimageUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_image_put_pixel"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"pixel"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUimageUputUpixel), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUimageUputUpixel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_image_get_pixel"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUimageUgetUpixel), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUimageUgetUpixel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_image_set_colormap"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"colormap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUimageUsetUcolormap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUimageUsetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_image_get_colormap"); P lit_arg_0 = YPPsym((P)"image"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUimageUgetUcolormap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUimageUgetUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_set_locale"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsetUlocale), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsetUlocale, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_get_program_class"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgetUprogramUclass), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgetUprogramUclass, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_set_program_class"); P lit_arg_0 = YPPsym((P)"program_class"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsetUprogramUclass), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsetUprogramUclass, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_error_trap_push"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUerrorUtrapUpush), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUerrorUtrapUpush, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_error_trap_pop"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUerrorUtrapUpop), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUerrorUtrapUpop, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_get_display"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgetUdisplay), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgetUdisplay, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pointer_grab"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"owner_events"); P lit_arg_2 = YPPsym((P)"event_mask"); P lit_arg_3 = YPPsym((P)"confine_to"); P lit_arg_4 = YPPsym((P)"cursor"); P lit_arg_5 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpointerUgrab), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpointerUgrab, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pointer_ungrab"); P lit_arg_0 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpointerUungrab), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpointerUungrab, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_keyboard_grab"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"owner_events"); P lit_arg_2 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUkeyboardUgrab), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUkeyboardUgrab, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_keyboard_ungrab"); P lit_arg_0 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUkeyboardUungrab), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUkeyboardUungrab, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pointer_is_grabbed"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpointerUisUgrabbed), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpointerUisUgrabbed, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_screen_width"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUscreenUwidth), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUscreenUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_screen_height"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUscreenUheight), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUscreenUheight, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_screen_width_mm"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUscreenUwidthUmm), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUscreenUwidthUmm, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_screen_height_mm"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUscreenUheightUmm), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUscreenUheightUmm, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_flush"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUflush), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUflush, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_beep"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUbeep), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUbeep, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_set_double_click_time"); P lit_arg_0 = YPPsym((P)"msec"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsetUdoubleUclickUtime), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsetUdoubleUclickUtime, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rectangle_intersect"); P lit_arg_0 = YPPsym((P)"src1"); P lit_arg_1 = YPPsym((P)"src2"); P lit_arg_2 = YPPsym((P)"dest"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrectangleUintersect), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrectangleUintersect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rectangle_union"); P lit_arg_0 = YPPsym((P)"src1"); P lit_arg_1 = YPPsym((P)"src2"); P lit_arg_2 = YPPsym((P)"dest"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrectangleUunion), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrectangleUunion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_rectangle_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUrectangleUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUrectangleUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_wcstombs"); P lit_arg_0 = YPPsym((P)"src"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwcstombs), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwcstombs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_mbstowcs"); P lit_arg_0 = YPPsym((P)"dest"); P lit_arg_1 = YPPsym((P)"src"); P lit_arg_2 = YPPsym((P)"dest_max"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUmbstowcs), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUmbstowcs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_send_clientmessage_toall"); P lit_arg_0 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUsendUclientmessageUtoall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUsendUclientmessageUtoall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_event_send_client_message"); P lit_arg_0 = YPPsym((P)"event"); P lit_arg_1 = YPPsym((P)"xid"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUeventUsendUclientUmessage), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUeventUsendUclientUmessage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_threads_enter"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUthreadsUenter), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUthreadsUenter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_threads_leave"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUthreadsUleave), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUthreadsUleave, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_threads_init"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUthreadsUinit), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUthreadsUinit, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_render_threshold_alpha"); P lit_arg_0 = YPPsym((P)"pixbuf"); P lit_arg_1 = YPPsym((P)"bitmap"); P lit_arg_2 = YPPsym((P)"src_x"); P lit_arg_3 = YPPsym((P)"src_y"); P lit_arg_4 = YPPsym((P)"dest_x"); P lit_arg_5 = YPPsym((P)"dest_y"); P lit_arg_6 = YPPsym((P)"width"); P lit_arg_7 = YPPsym((P)"height"); P lit_arg_8 = YPPsym((P)"alpha_threshold"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUrenderUthresholdUalpha), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUrenderUthresholdUalpha, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_render_to_drawable"); P lit_arg_0 = YPPsym((P)"pixbuf"); P lit_arg_1 = YPPsym((P)"drawable"); P lit_arg_2 = YPPsym((P)"gc"); P lit_arg_3 = YPPsym((P)"src_x"); P lit_arg_4 = YPPsym((P)"src_y"); P lit_arg_5 = YPPsym((P)"dest_x"); P lit_arg_6 = YPPsym((P)"dest_y"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); P lit_arg_9 = YPPsym((P)"dither"); P lit_arg_10 = YPPsym((P)"x_dither"); P lit_arg_11 = YPPsym((P)"y_dither"); methodSig = YPfab_sig(YPPlist(12,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)12), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawable), methodSig, LITREF(methodName), YPPlist(12,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_render_to_drawable_alpha"); P lit_arg_0 = YPPsym((P)"pixbuf"); P lit_arg_1 = YPPsym((P)"drawable"); P lit_arg_2 = YPPsym((P)"src_x"); P lit_arg_3 = YPPsym((P)"src_y"); P lit_arg_4 = YPPsym((P)"dest_x"); P lit_arg_5 = YPPsym((P)"dest_y"); P lit_arg_6 = YPPsym((P)"width"); P lit_arg_7 = YPPsym((P)"height"); P lit_arg_8 = YPPsym((P)"alpha_mode"); P lit_arg_9 = YPPsym((P)"alpha_threshold"); P lit_arg_10 = YPPsym((P)"dither"); P lit_arg_11 = YPPsym((P)"x_dither"); P lit_arg_12 = YPPsym((P)"y_dither"); methodSig = YPfab_sig(YPPlist(13,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)13), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawableUalpha), methodSig, LITREF(methodName), YPPlist(13,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11),LITREF(lit_arg_12) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUrenderUtoUdrawableUalpha, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_render_pixmap_and_mask_for_colormap"); P lit_arg_0 = YPPsym((P)"pixbuf"); P lit_arg_1 = YPPsym((P)"colormap"); P lit_arg_2 = YPPsym((P)"pixmap_return"); P lit_arg_3 = YPPsym((P)"mask_return"); P lit_arg_4 = YPPsym((P)"alpha_threshold"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmaskUforUcolormap), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmaskUforUcolormap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_render_pixmap_and_mask"); P lit_arg_0 = YPPsym((P)"pixbuf"); P lit_arg_1 = YPPsym((P)"pixmap_return"); P lit_arg_2 = YPPsym((P)"mask_return"); P lit_arg_3 = YPPsym((P)"alpha_threshold"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmask), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUrenderUpixmapUandUmask, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_get_from_drawable"); P lit_arg_0 = YPPsym((P)"dest"); P lit_arg_1 = YPPsym((P)"src"); P lit_arg_2 = YPPsym((P)"cmap"); P lit_arg_3 = YPPsym((P)"src_x"); P lit_arg_4 = YPPsym((P)"src_y"); P lit_arg_5 = YPPsym((P)"dest_x"); P lit_arg_6 = YPPsym((P)"dest_y"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUgetUfromUdrawable), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUgetUfromUdrawable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixbuf_get_from_image"); P lit_arg_0 = YPPsym((P)"dest"); P lit_arg_1 = YPPsym((P)"src"); P lit_arg_2 = YPPsym((P)"cmap"); P lit_arg_3 = YPPsym((P)"src_x"); P lit_arg_4 = YPPsym((P)"src_y"); P lit_arg_5 = YPPsym((P)"dest_x"); P lit_arg_6 = YPPsym((P)"dest_y"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixbufUgetUfromUimage), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixbufUgetUfromUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_new"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"width"); P lit_arg_2 = YPPsym((P)"height"); P lit_arg_3 = YPPsym((P)"depth"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUnew), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_bitmap_create_from_data"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"data"); P lit_arg_2 = YPPsym((P)"width"); P lit_arg_3 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUbitmapUcreateUfromUdata), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUbitmapUcreateUfromUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_create_from_data"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"data"); P lit_arg_2 = YPPsym((P)"width"); P lit_arg_3 = YPPsym((P)"height"); P lit_arg_4 = YPPsym((P)"depth"); P lit_arg_5 = YPPsym((P)"fg"); P lit_arg_6 = YPPsym((P)"bg"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUcreateUfromUdata), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUcreateUfromUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_create_from_xpm"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"mask"); P lit_arg_2 = YPPsym((P)"transparent_color"); P lit_arg_3 = YPPsym((P)"filename"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpm), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpm, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_colormap_create_from_xpm"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"colormap"); P lit_arg_2 = YPPsym((P)"mask"); P lit_arg_3 = YPPsym((P)"transparent_color"); P lit_arg_4 = YPPsym((P)"filename"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)5), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpm), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpm, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_create_from_xpm_d"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"mask"); P lit_arg_2 = YPPsym((P)"transparent_color"); P lit_arg_3 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpmUd), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUcreateUfromUxpmUd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_colormap_create_from_xpm_d"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"colormap"); P lit_arg_2 = YPPsym((P)"mask"); P lit_arg_3 = YPPsym((P)"transparent_color"); P lit_arg_4 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpmUd), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUcolormapUcreateUfromUxpmUd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_foreign_new"); P lit_arg_0 = YPPsym((P)"anid"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUforeignUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUforeignUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_pixmap_lookup"); P lit_arg_0 = YPPsym((P)"anid"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUpixmapUlookup), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUpixmapUlookup, methodDef); } VARSET(YsamuruiSgtkYgdkUvisualUstaticUgray,(P)YPib((P)GDK_VISUAL_STATIC_GRAY)); VARSET(YsamuruiSgtkYgdkUvisualUgrayscale,(P)YPib((P)GDK_VISUAL_GRAYSCALE)); VARSET(YsamuruiSgtkYgdkUvisualUstaticUcolor,(P)YPib((P)GDK_VISUAL_STATIC_COLOR)); VARSET(YsamuruiSgtkYgdkUvisualUpseudoUcolor,(P)YPib((P)GDK_VISUAL_PSEUDO_COLOR)); VARSET(YsamuruiSgtkYgdkUvisualUtrueUcolor,(P)YPib((P)GDK_VISUAL_TRUE_COLOR)); VARSET(YsamuruiSgtkYgdkUvisualUdirectUcolor,(P)YPib((P)GDK_VISUAL_DIRECT_COLOR)); { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_best_depth"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUbestUdepth), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUbestUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_best_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUbestUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUbestUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_system"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUsystem), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUsystem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_best"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUbest), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUbest, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_best_with_depth"); P lit_arg_0 = YPPsym((P)"depth"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUbestUwithUdepth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUbestUwithUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_best_with_type"); P lit_arg_0 = YPPsym((P)"visual_type"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUbestUwithUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUbestUwithUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_visual_get_best_with_both"); P lit_arg_0 = YPPsym((P)"depth"); P lit_arg_1 = YPPsym((P)"visual_type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUvisualUgetUbestUwithUboth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUvisualUgetUbestUwithUboth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_query_depths"); P lit_arg_0 = YPPsym((P)"depths"); P lit_arg_1 = YPPsym((P)"count"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUqueryUdepths), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUqueryUdepths, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_query_visual_types"); P lit_arg_0 = YPPsym((P)"visual_types"); P lit_arg_1 = YPPsym((P)"count"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUqueryUvisualUtypes), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUqueryUvisualUtypes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_list_visuals"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUlistUvisuals), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUlistUvisuals, methodDef); } VARSET(YsamuruiSgtkYgdkUinputUoutput,(P)YPib((P)GDK_INPUT_OUTPUT)); VARSET(YsamuruiSgtkYgdkUinputUonly,(P)YPib((P)GDK_INPUT_ONLY)); VARSET(YsamuruiSgtkYgdkUwindowUroot,(P)YPib((P)GDK_WINDOW_ROOT)); VARSET(YsamuruiSgtkYgdkUwindowUtoplevel,(P)YPib((P)GDK_WINDOW_TOPLEVEL)); VARSET(YsamuruiSgtkYgdkUwindowUchild,(P)YPib((P)GDK_WINDOW_CHILD)); VARSET(YsamuruiSgtkYgdkUwindowUdialog,(P)YPib((P)GDK_WINDOW_DIALOG)); VARSET(YsamuruiSgtkYgdkUwindowUtemp,(P)YPib((P)GDK_WINDOW_TEMP)); VARSET(YsamuruiSgtkYgdkUwindowUforeign,(P)YPib((P)GDK_WINDOW_FOREIGN)); VARSET(YsamuruiSgtkYgdkUwaUtitle,(P)YPib((P)GDK_WA_TITLE)); VARSET(YsamuruiSgtkYgdkUwaUx,(P)YPib((P)GDK_WA_X)); VARSET(YsamuruiSgtkYgdkUwaUy,(P)YPib((P)GDK_WA_Y)); VARSET(YsamuruiSgtkYgdkUwaUcursor,(P)YPib((P)GDK_WA_CURSOR)); VARSET(YsamuruiSgtkYgdkUwaUcolormap,(P)YPib((P)GDK_WA_COLORMAP)); VARSET(YsamuruiSgtkYgdkUwaUvisual,(P)YPib((P)GDK_WA_VISUAL)); VARSET(YsamuruiSgtkYgdkUwaUwmclass,(P)YPib((P)GDK_WA_WMCLASS)); VARSET(YsamuruiSgtkYgdkUwaUnoredir,(P)YPib((P)GDK_WA_NOREDIR)); VARSET(YsamuruiSgtkYgdkUhintUpos,(P)YPib((P)GDK_HINT_POS)); VARSET(YsamuruiSgtkYgdkUhintUminUsize,(P)YPib((P)GDK_HINT_MIN_SIZE)); VARSET(YsamuruiSgtkYgdkUhintUmaxUsize,(P)YPib((P)GDK_HINT_MAX_SIZE)); VARSET(YsamuruiSgtkYgdkUhintUbaseUsize,(P)YPib((P)GDK_HINT_BASE_SIZE)); VARSET(YsamuruiSgtkYgdkUhintUaspect,(P)YPib((P)GDK_HINT_ASPECT)); VARSET(YsamuruiSgtkYgdkUhintUresizeUinc,(P)YPib((P)GDK_HINT_RESIZE_INC)); VARSET(YsamuruiSgtkYgdkUhintUwinUgravity,(P)YPib((P)GDK_HINT_WIN_GRAVITY)); VARSET(YsamuruiSgtkYgdkUhintUuserUpos,(P)YPib((P)GDK_HINT_USER_POS)); VARSET(YsamuruiSgtkYgdkUhintUuserUsize,(P)YPib((P)GDK_HINT_USER_SIZE)); VARSET(YsamuruiSgtkYgdkUwindowUtypeUhintUnormal,(P)YPib((P)GDK_WINDOW_TYPE_HINT_NORMAL)); VARSET(YsamuruiSgtkYgdkUwindowUtypeUhintUdialog,(P)YPib((P)GDK_WINDOW_TYPE_HINT_DIALOG)); VARSET(YsamuruiSgtkYgdkUwindowUtypeUhintUmenu,(P)YPib((P)GDK_WINDOW_TYPE_HINT_MENU)); VARSET(YsamuruiSgtkYgdkUwindowUtypeUhintUtoolbar,(P)YPib((P)GDK_WINDOW_TYPE_HINT_TOOLBAR)); VARSET(YsamuruiSgtkYgdkUdecorUall,(P)YPib((P)GDK_DECOR_ALL)); VARSET(YsamuruiSgtkYgdkUdecorUborder,(P)YPib((P)GDK_DECOR_BORDER)); VARSET(YsamuruiSgtkYgdkUdecorUresizeh,(P)YPib((P)GDK_DECOR_RESIZEH)); VARSET(YsamuruiSgtkYgdkUdecorUtitle,(P)YPib((P)GDK_DECOR_TITLE)); VARSET(YsamuruiSgtkYgdkUdecorUmenu,(P)YPib((P)GDK_DECOR_MENU)); VARSET(YsamuruiSgtkYgdkUdecorUminimize,(P)YPib((P)GDK_DECOR_MINIMIZE)); VARSET(YsamuruiSgtkYgdkUdecorUmaximize,(P)YPib((P)GDK_DECOR_MAXIMIZE)); VARSET(YsamuruiSgtkYgdkUfuncUall,(P)YPib((P)GDK_FUNC_ALL)); VARSET(YsamuruiSgtkYgdkUfuncUresize,(P)YPib((P)GDK_FUNC_RESIZE)); VARSET(YsamuruiSgtkYgdkUfuncUmove,(P)YPib((P)GDK_FUNC_MOVE)); VARSET(YsamuruiSgtkYgdkUfuncUminimize,(P)YPib((P)GDK_FUNC_MINIMIZE)); VARSET(YsamuruiSgtkYgdkUfuncUmaximize,(P)YPib((P)GDK_FUNC_MAXIMIZE)); VARSET(YsamuruiSgtkYgdkUfuncUclose,(P)YPib((P)GDK_FUNC_CLOSE)); VARSET(YsamuruiSgtkYgdkUgravityUnorthUwest,(P)YPib((P)GDK_GRAVITY_NORTH_WEST)); VARSET(YsamuruiSgtkYgdkUgravityUnorth,(P)YPib((P)GDK_GRAVITY_NORTH)); VARSET(YsamuruiSgtkYgdkUgravityUnorthUeast,(P)YPib((P)GDK_GRAVITY_NORTH_EAST)); VARSET(YsamuruiSgtkYgdkUgravityUwest,(P)YPib((P)GDK_GRAVITY_WEST)); VARSET(YsamuruiSgtkYgdkUgravityUcenter,(P)YPib((P)GDK_GRAVITY_CENTER)); VARSET(YsamuruiSgtkYgdkUgravityUeast,(P)YPib((P)GDK_GRAVITY_EAST)); VARSET(YsamuruiSgtkYgdkUgravityUsouthUwest,(P)YPib((P)GDK_GRAVITY_SOUTH_WEST)); VARSET(YsamuruiSgtkYgdkUgravityUsouth,(P)YPib((P)GDK_GRAVITY_SOUTH)); VARSET(YsamuruiSgtkYgdkUgravityUsouthUeast,(P)YPib((P)GDK_GRAVITY_SOUTH_EAST)); VARSET(YsamuruiSgtkYgdkUgravityUstatic,(P)YPib((P)GDK_GRAVITY_STATIC)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUnorthUwest,(P)YPib((P)GDK_WINDOW_EDGE_NORTH_WEST)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUnorth,(P)YPib((P)GDK_WINDOW_EDGE_NORTH)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUnorthUeast,(P)YPib((P)GDK_WINDOW_EDGE_NORTH_EAST)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUwest,(P)YPib((P)GDK_WINDOW_EDGE_WEST)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUeast,(P)YPib((P)GDK_WINDOW_EDGE_EAST)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUsouthUwest,(P)YPib((P)GDK_WINDOW_EDGE_SOUTH_WEST)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUsouth,(P)YPib((P)GDK_WINDOW_EDGE_SOUTH)); VARSET(YsamuruiSgtkYgdkUwindowUedgeUsouthUeast,(P)YPib((P)GDK_WINDOW_EDGE_SOUTH_EAST)); { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_new"); P lit_arg_0 = YPPsym((P)"parent"); P lit_arg_1 = YPPsym((P)"attributes"); P lit_arg_2 = YPPsym((P)"attributes_mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUnew), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_destroy"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUdestroy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUdestroy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_window_type"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUwindowUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUwindowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_at_pointer"); P lit_arg_0 = YPPsym((P)"win_x"); P lit_arg_1 = YPPsym((P)"win_y"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUatUpointer), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUatUpointer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_show"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUshow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUshow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_hide"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUhide), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUhide, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_withdraw"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUwithdraw), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUwithdraw, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_show_unraised"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUshowUunraised), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUshowUunraised, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_move"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUmove), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUmove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_resize"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"width"); P lit_arg_2 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUresize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUresize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_move_resize"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"width"); P lit_arg_4 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUmoveUresize), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUmoveUresize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_reparent"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"new_parent"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUreparent), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUreparent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_clear"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUclear), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUclear, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_clear_area"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"width"); P lit_arg_4 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUclearUarea), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUclearUarea, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_clear_area_e"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"width"); P lit_arg_4 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUclearUareaUe), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUclearUareaUe, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_raise"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUraise), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUraise, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_lower"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUlower), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUlower, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_focus"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"timestamp"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUfocus), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_user_data"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"user_data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUuserUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUuserUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_override_redirect"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"override_redirect"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUoverrideUredirect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUoverrideUredirect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_add_filter"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUaddUfilter), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUaddUfilter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_remove_filter"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUremoveUfilter), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUremoveUfilter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_scroll"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"dx"); P lit_arg_2 = YPPsym((P)"dy"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUscroll), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUscroll, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_shape_combine_mask"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"mask"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUshapeUcombineUmask), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUshapeUcombineUmask, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_shape_combine_region"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"shape_region"); P lit_arg_2 = YPPsym((P)"offset_x"); P lit_arg_3 = YPPsym((P)"offset_y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUshapeUcombineUregion), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUshapeUcombineUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_child_shapes"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUchildUshapes), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUchildUshapes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_merge_child_shapes"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUmergeUchildUshapes), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUmergeUchildUshapes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_is_visible"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUisUvisible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUisUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_is_viewable"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUisUviewable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUisUviewable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_state"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUstate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_static_gravities"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"use_static"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUstaticUgravities), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUstaticUgravities, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_foreign_new"); P lit_arg_0 = YPPsym((P)"anid"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUforeignUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUforeignUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_lookup"); P lit_arg_0 = YPPsym((P)"anid"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUlookup), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUlookup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_type_hint"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"hint"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUtypeUhint), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUtypeUhint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_modal_hint"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"modal"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUmodalUhint), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUmodalUhint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_geometry_hints"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"geometry"); P lit_arg_2 = YPPsym((P)"geom_mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUgeometryUhints), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUgeometryUhints, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_set_sm_client_id"); P lit_arg_0 = YPPsym((P)"sm_client_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsetUsmUclientUid), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsetUsmUclientUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_begin_paint_rect"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"rectangle"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUbeginUpaintUrect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUbeginUpaintUrect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_begin_paint_region"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"region"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUbeginUpaintUregion), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUbeginUpaintUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_end_paint"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUendUpaint), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUendUpaint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_title"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUtitle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_role"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"role"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUrole), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUrole, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_transient_for"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"parent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUtransientUfor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUtransientUfor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_background"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUbackground), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUbackground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_back_pixmap"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"pixmap"); P lit_arg_2 = YPPsym((P)"parent_relative"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUbackUpixmap), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUbackUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_cursor"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"cursor"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUcursor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUcursor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_user_data"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUuserUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUuserUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_geometry"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"depth"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUgeometry), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUgeometry, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_position"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUposition), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_origin"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUorigin), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUorigin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_root_origin"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUrootUorigin), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUrootUorigin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_frame_extents"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"rect"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUframeUextents), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUframeUextents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_pointer"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUpointer), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUpointer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_parent"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUparent), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUparent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_toplevel"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUtoplevel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUtoplevel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_children"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUchildren), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUchildren, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_peek_children"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUpeekUchildren), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUpeekUchildren, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_events"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUevents), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_events"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"event_mask"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUevents), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUevents, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_icon_list"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"pixbufs"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUiconUlist), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUiconUlist, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_icon"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"icon_window"); P lit_arg_2 = YPPsym((P)"pixmap"); P lit_arg_3 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUicon), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUicon, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_icon_name"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUiconUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUiconUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_group"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"leader"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUgroup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_decorations"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"decorations"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUdecorations), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUdecorations, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_decorations"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"decorations"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUdecorations), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUdecorations, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_functions"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"functions"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUfunctions), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUfunctions, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_toplevels"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUtoplevels), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUtoplevels, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_iconify"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUiconify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUiconify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_deiconify"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUdeiconify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUdeiconify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_stick"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUstick), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUstick, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_unstick"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUunstick), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUunstick, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_maximize"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUmaximize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUmaximize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_unmaximize"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUunmaximize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUunmaximize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_register_dnd"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUregisterUdnd), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUregisterUdnd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_begin_resize_drag"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"edge"); P lit_arg_2 = YPPsym((P)"button"); P lit_arg_3 = YPPsym((P)"root_x"); P lit_arg_4 = YPPsym((P)"root_y"); P lit_arg_5 = YPPsym((P)"timestamp"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUbeginUresizeUdrag), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUbeginUresizeUdrag, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_begin_move_drag"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"button"); P lit_arg_2 = YPPsym((P)"root_x"); P lit_arg_3 = YPPsym((P)"root_y"); P lit_arg_4 = YPPsym((P)"timestamp"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUbeginUmoveUdrag), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUbeginUmoveUdrag, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_invalidate_rect"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"rect"); P lit_arg_2 = YPPsym((P)"invalidate_children"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUinvalidateUrect), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUinvalidateUrect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_invalidate_region"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"region"); P lit_arg_2 = YPPsym((P)"invalidate_children"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUinvalidateUregion), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUinvalidateUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_invalidate_maybe_recurse"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"region"); P lit_arg_2 = YPPsym((P)"child_func"); P lit_arg_3 = YPPsym((P)"user_data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUinvalidateUmaybeUrecurse), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUinvalidateUmaybeUrecurse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_update_area"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUupdateUarea), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUupdateUarea, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_freeze_updates"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUfreezeUupdates), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUfreezeUupdates, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_thaw_updates"); P lit_arg_0 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUthawUupdates), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUthawUupdates, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_process_all_updates"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUprocessUallUupdates), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUprocessUallUupdates, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_process_updates"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"update_children"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUprocessUupdates), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUprocessUupdates, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_set_debug_updates"); P lit_arg_0 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUsetUdebugUupdates), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUsetUdebugUupdates, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_constrain_size"); P lit_arg_0 = YPPsym((P)"geometry"); P lit_arg_1 = YPPsym((P)"flags"); P lit_arg_2 = YPPsym((P)"width"); P lit_arg_3 = YPPsym((P)"height"); P lit_arg_4 = YPPsym((P)"new_width"); P lit_arg_5 = YPPsym((P)"new_height"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUconstrainUsize), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUconstrainUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_window_get_internal_paint_info"); P lit_arg_0 = YPPsym((P)"window"); P lit_arg_1 = YPPsym((P)"real_drawable"); P lit_arg_2 = YPPsym((P)"x_offset"); P lit_arg_3 = YPPsym((P)"y_offset"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUwindowUgetUinternalUpaintUinfo), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUwindowUgetUinternalUpaintUinfo, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_set_pointer_hooks"); P lit_arg_0 = YPPsym((P)"new_hooks"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUsetUpointerUhooks), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUsetUpointerUhooks, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gdk_get_default_root_window"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgdkUgetUdefaultUrootUwindow), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgdkUgetUdefaultUrootUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_label_new"); P lit_arg_0 = YPPsym((P)"string"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUlabelUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUlabelUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_label_get_accel_widget"); P lit_arg_0 = YPPsym((P)"accel_label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_label_get_accel_width"); P lit_arg_0 = YPPsym((P)"accel_label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUlabelUgetUaccelUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_label_set_accel_widget"); P lit_arg_0 = YPPsym((P)"accel_label"); P lit_arg_1 = YPPsym((P)"accel_widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_label_set_accel_closure"); P lit_arg_0 = YPPsym((P)"accel_label"); P lit_arg_1 = YPPsym((P)"closure"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUclosure), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUlabelUsetUaccelUclosure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_accel_label_refetch"); P lit_arg_0 = YPPsym((P)"accel_label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaccelUlabelUrefetch), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaccelUlabelUrefetch, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_adjustment_new"); P lit_arg_0 = YPPsym((P)"value"); P lit_arg_1 = YPPsym((P)"lower"); P lit_arg_2 = YPPsym((P)"upper"); P lit_arg_3 = YPPsym((P)"step_increment"); P lit_arg_4 = YPPsym((P)"page_increment"); P lit_arg_5 = YPPsym((P)"page_size"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)6), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUadjustmentUnew), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUadjustmentUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_adjustment_changed"); P lit_arg_0 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUadjustmentUchanged), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUadjustmentUchanged, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_adjustment_value_changed"); P lit_arg_0 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUadjustmentUvalueUchanged), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUadjustmentUvalueUchanged, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_adjustment_clamp_page"); P lit_arg_0 = YPPsym((P)"adjustment"); P lit_arg_1 = YPPsym((P)"lower"); P lit_arg_2 = YPPsym((P)"upper"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUadjustmentUclampUpage), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUadjustmentUclampUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_adjustment_get_value"); P lit_arg_0 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUadjustmentUgetUvalue), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUadjustmentUgetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_adjustment_set_value"); P lit_arg_0 = YPPsym((P)"adjustment"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUadjustmentUsetUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUadjustmentUsetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_alignment_new"); P lit_arg_0 = YPPsym((P)"xalign"); P lit_arg_1 = YPPsym((P)"yalign"); P lit_arg_2 = YPPsym((P)"xscale"); P lit_arg_3 = YPPsym((P)"yscale"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUalignmentUnew), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUalignmentUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_alignment_set"); P lit_arg_0 = YPPsym((P)"alignment"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); P lit_arg_3 = YPPsym((P)"xscale"); P lit_arg_4 = YPPsym((P)"yscale"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUalignmentUset), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUalignmentUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_arrow_new"); P lit_arg_0 = YPPsym((P)"arrow_type"); P lit_arg_1 = YPPsym((P)"shadow_type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUarrowUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUarrowUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_arrow_set"); P lit_arg_0 = YPPsym((P)"arrow"); P lit_arg_1 = YPPsym((P)"arrow_type"); P lit_arg_2 = YPPsym((P)"shadow_type"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUarrowUset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUarrowUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_aspect_frame_new"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); P lit_arg_3 = YPPsym((P)"ratio"); P lit_arg_4 = YPPsym((P)"obey_child"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLstrG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaspectUframeUnew), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaspectUframeUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_aspect_frame_set"); P lit_arg_0 = YPPsym((P)"aspect_frame"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); P lit_arg_3 = YPPsym((P)"ratio"); P lit_arg_4 = YPPsym((P)"obey_child"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUaspectUframeUset), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUaspectUframeUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_bin_get_child"); P lit_arg_0 = YPPsym((P)"bin"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbinUgetUchild), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbinUgetUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_box_get_layout"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUboxUgetUlayout), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUboxUgetUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_box_set_layout"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"layout_style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUboxUsetUlayout), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUboxUsetUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_box_set_child_secondary"); P lit_arg_0 = YPPsym((P)"widget"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"is_secondary"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUboxUsetUchildUsecondary), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUboxUsetUchildUsecondary, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_pack_start"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"expand"); P lit_arg_3 = YPPsym((P)"fill"); P lit_arg_4 = YPPsym((P)"padding"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUpackUstart), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUpackUstart, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_pack_end"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"expand"); P lit_arg_3 = YPPsym((P)"fill"); P lit_arg_4 = YPPsym((P)"padding"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUpackUend), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUpackUend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_pack_start_defaults"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUpackUstartUdefaults), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUpackUstartUdefaults, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_pack_end_defaults"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUpackUendUdefaults), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUpackUendUdefaults, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_set_homogeneous"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"homogeneous"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUsetUhomogeneous), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUsetUhomogeneous, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_get_homogeneous"); P lit_arg_0 = YPPsym((P)"box"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUgetUhomogeneous), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUgetUhomogeneous, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_set_spacing"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUsetUspacing), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUsetUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_get_spacing"); P lit_arg_0 = YPPsym((P)"box"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUgetUspacing), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUgetUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_reorder_child"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUreorderUchild), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUreorderUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_query_child_packing"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"expand"); P lit_arg_3 = YPPsym((P)"fill"); P lit_arg_4 = YPPsym((P)"padding"); P lit_arg_5 = YPPsym((P)"pack_type"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUqueryUchildUpacking), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUqueryUchildUpacking, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_box_set_child_packing"); P lit_arg_0 = YPPsym((P)"box"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"expand"); P lit_arg_3 = YPPsym((P)"fill"); P lit_arg_4 = YPPsym((P)"padding"); P lit_arg_5 = YPPsym((P)"pack_type"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUboxUsetUchildUpacking), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUboxUsetUchildUpacking, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_new_from_stock"); P lit_arg_0 = YPPsym((P)"stock_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUnewUfromUstock), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUnewUfromUstock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_pressed"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUpressed), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUpressed, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_released"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUreleased), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUreleased, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_clicked"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUclicked), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUclicked, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_enter"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUenter), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUenter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_leave"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUleave), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUleave, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_set_relief"); P lit_arg_0 = YPPsym((P)"button"); P lit_arg_1 = YPPsym((P)"newstyle"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUsetUrelief), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUsetUrelief, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_get_relief"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUgetUrelief), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUgetUrelief, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_set_label"); P lit_arg_0 = YPPsym((P)"button"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUsetUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUsetUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_get_label"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUgetUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUgetUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_set_use_underline"); P lit_arg_0 = YPPsym((P)"button"); P lit_arg_1 = YPPsym((P)"use_underline"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUsetUuseUunderline), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUsetUuseUunderline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_get_use_underline"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUgetUuseUunderline), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUgetUuseUunderline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_set_use_stock"); P lit_arg_0 = YPPsym((P)"button"); P lit_arg_1 = YPPsym((P)"use_stock"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUsetUuseUstock), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUsetUuseUstock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_button_get_use_stock"); P lit_arg_0 = YPPsym((P)"button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUbuttonUgetUuseUstock), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUbuttonUgetUuseUstock, methodDef); } VARSET(YsamuruiSgtkYgtkUcalendarUshowUheading,(P)YPib((P)GTK_CALENDAR_SHOW_HEADING)); VARSET(YsamuruiSgtkYgtkUcalendarUshowUdayUnames,(P)YPib((P)GTK_CALENDAR_SHOW_DAY_NAMES)); VARSET(YsamuruiSgtkYgtkUcalendarUnoUmonthUchange,(P)YPib((P)GTK_CALENDAR_NO_MONTH_CHANGE)); VARSET(YsamuruiSgtkYgtkUcalendarUshowUweekUnumbers,(P)YPib((P)GTK_CALENDAR_SHOW_WEEK_NUMBERS)); VARSET(YsamuruiSgtkYgtkUcalendarUweekUstartUmonday,(P)YPib((P)GTK_CALENDAR_WEEK_START_MONDAY)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_select_month"); P lit_arg_0 = YPPsym((P)"calendar"); P lit_arg_1 = YPPsym((P)"month"); P lit_arg_2 = YPPsym((P)"year"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUselectUmonth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUselectUmonth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_select_day"); P lit_arg_0 = YPPsym((P)"calendar"); P lit_arg_1 = YPPsym((P)"day"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUselectUday), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUselectUday, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_mark_day"); P lit_arg_0 = YPPsym((P)"calendar"); P lit_arg_1 = YPPsym((P)"day"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUmarkUday), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUmarkUday, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_unmark_day"); P lit_arg_0 = YPPsym((P)"calendar"); P lit_arg_1 = YPPsym((P)"day"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUunmarkUday), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUunmarkUday, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_clear_marks"); P lit_arg_0 = YPPsym((P)"calendar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUclearUmarks), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUclearUmarks, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_display_options"); P lit_arg_0 = YPPsym((P)"calendar"); P lit_arg_1 = YPPsym((P)"flags"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUdisplayUoptions), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUdisplayUoptions, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_get_date"); P lit_arg_0 = YPPsym((P)"calendar"); P lit_arg_1 = YPPsym((P)"year"); P lit_arg_2 = YPPsym((P)"month"); P lit_arg_3 = YPPsym((P)"day"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUgetUdate), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUgetUdate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_freeze"); P lit_arg_0 = YPPsym((P)"calendar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUfreeze), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUfreeze, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_calendar_thaw"); P lit_arg_0 = YPPsym((P)"calendar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcalendarUthaw), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcalendarUthaw, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_cell_renderer_text_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcellUrendererUtextUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcellUrendererUtextUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_cell_renderer_text_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcellUrendererUtextUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcellUrendererUtextUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_cell_renderer_text_set_fixed_height_from_font"); P lit_arg_0 = YPPsym((P)"renderer"); P lit_arg_1 = YPPsym((P)"number_of_rows"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcellUrendererUtextUsetUfixedUheightUfromUfont), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcellUrendererUtextUsetUfixedUheightUfromUfont, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_button_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUbuttonUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUbuttonUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_button_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_button_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUbuttonUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_gtk_check_button_get_props"); P lit_arg_0 = YPPsym((P)"check_button"); P lit_arg_1 = YPPsym((P)"indicator_size"); P lit_arg_2 = YPPsym((P)"indicator_spacing"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkUcheckUbuttonUgetUprops), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkUcheckUbuttonUgetUprops, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_set_active"); P lit_arg_0 = YPPsym((P)"check_menu_item"); P lit_arg_1 = YPPsym((P)"is_active"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUactive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_get_active"); P lit_arg_0 = YPPsym((P)"check_menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUactive), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_toggled"); P lit_arg_0 = YPPsym((P)"check_menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUtoggled), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUtoggled, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_set_inconsistent"); P lit_arg_0 = YPPsym((P)"check_menu_item"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUinconsistent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUsetUinconsistent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_check_menu_item_get_inconsistent"); P lit_arg_0 = YPPsym((P)"check_menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUinconsistent), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcheckUmenuUitemUgetUinconsistent, methodDef); } VARSET(YsamuruiSgtkYgtkUclistUinUdrag,(P)YPib((P)GTK_CLIST_IN_DRAG)); VARSET(YsamuruiSgtkYgtkUclistUrowUheightUset,(P)YPib((P)GTK_CLIST_ROW_HEIGHT_SET)); VARSET(YsamuruiSgtkYgtkUclistUshowUtitles,(P)YPib((P)GTK_CLIST_SHOW_TITLES)); VARSET(YsamuruiSgtkYgtkUclistUaddUmode,(P)YPib((P)GTK_CLIST_ADD_MODE)); VARSET(YsamuruiSgtkYgtkUclistUautoUsort,(P)YPib((P)GTK_CLIST_AUTO_SORT)); VARSET(YsamuruiSgtkYgtkUclistUautoUresizeUblocked,(P)YPib((P)GTK_CLIST_AUTO_RESIZE_BLOCKED)); VARSET(YsamuruiSgtkYgtkUclistUreorderable,(P)YPib((P)GTK_CLIST_REORDERABLE)); VARSET(YsamuruiSgtkYgtkUclistUuseUdragUicons,(P)YPib((P)GTK_CLIST_USE_DRAG_ICONS)); VARSET(YsamuruiSgtkYgtkUclistUdrawUdragUline,(P)YPib((P)GTK_CLIST_DRAW_DRAG_LINE)); VARSET(YsamuruiSgtkYgtkUclistUdrawUdragUrect,(P)YPib((P)GTK_CLIST_DRAW_DRAG_RECT)); VARSET(YsamuruiSgtkYgtkUcellUempty,(P)YPib((P)GTK_CELL_EMPTY)); VARSET(YsamuruiSgtkYgtkUcellUtext,(P)YPib((P)GTK_CELL_TEXT)); VARSET(YsamuruiSgtkYgtkUcellUpixmap,(P)YPib((P)GTK_CELL_PIXMAP)); VARSET(YsamuruiSgtkYgtkUcellUpixtext,(P)YPib((P)GTK_CELL_PIXTEXT)); VARSET(YsamuruiSgtkYgtkUcellUwidget,(P)YPib((P)GTK_CELL_WIDGET)); VARSET(YsamuruiSgtkYgtkUclistUdragUnone,(P)YPib((P)GTK_CLIST_DRAG_NONE)); VARSET(YsamuruiSgtkYgtkUclistUdragUbefore,(P)YPib((P)GTK_CLIST_DRAG_BEFORE)); VARSET(YsamuruiSgtkYgtkUclistUdragUinto,(P)YPib((P)GTK_CLIST_DRAG_INTO)); VARSET(YsamuruiSgtkYgtkUclistUdragUafter,(P)YPib((P)GTK_CLIST_DRAG_AFTER)); VARSET(YsamuruiSgtkYgtkUbuttonUignored,(P)YPib((P)GTK_BUTTON_IGNORED)); VARSET(YsamuruiSgtkYgtkUbuttonUselects,(P)YPib((P)GTK_BUTTON_SELECTS)); VARSET(YsamuruiSgtkYgtkUbuttonUdrags,(P)YPib((P)GTK_BUTTON_DRAGS)); VARSET(YsamuruiSgtkYgtkUbuttonUexpands,(P)YPib((P)GTK_BUTTON_EXPANDS)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_new"); P lit_arg_0 = YPPsym((P)"columns"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_new_with_titles"); P lit_arg_0 = YPPsym((P)"columns"); P lit_arg_1 = YPPsym((P)"titles"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUnewUwithUtitles), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUnewUwithUtitles, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_hadjustment"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUhadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_vadjustment"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUvadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_hadjustment"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUhadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_vadjustment"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUvadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_shadow_type"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUshadowUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_selection_mode"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUselectionUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUselectionUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_reorderable"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"reorderable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUreorderable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUreorderable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_use_drag_icons"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"use_icons"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUuseUdragUicons), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUuseUdragUicons, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_button_actions"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"button"); P lit_arg_2 = YPPsym((P)"button_actions"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUbuttonUactions), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUbuttonUactions, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_freeze"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUfreeze), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUfreeze, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_thaw"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUthaw), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUthaw, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_column_titles_show"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUshow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnUtitlesUshow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_column_titles_hide"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUhide), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnUtitlesUhide, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_column_title_active"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnUtitleUactive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnUtitleUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_column_title_passive"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnUtitleUpassive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnUtitleUpassive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_column_titles_active"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUactive), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnUtitlesUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_column_titles_passive"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnUtitlesUpassive), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnUtitlesUpassive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_title"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLstrG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUtitle), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_column_title"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUcolumnUtitle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUcolumnUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_widget"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUwidget), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_column_widget"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUcolumnUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUcolumnUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_justification"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"justification"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUjustification), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUjustification, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_visibility"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"visible"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUvisibility), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUvisibility, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_resizeable"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"resizeable"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUresizeable), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUresizeable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_auto_resize"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"auto_resize"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUautoUresize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUautoUresize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_columns_autosize"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUcolumnsUautosize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUcolumnsUautosize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_optimal_column_width"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUoptimalUcolumnUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUoptimalUcolumnUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_width"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"width"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUwidth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_min_width"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"min_width"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUminUwidth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUminUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_column_max_width"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"max_width"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcolumnUmaxUwidth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcolumnUmaxUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_row_height"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUrowUheight), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUrowUheight, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_moveto"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"row_align"); P lit_arg_4 = YPPsym((P)"col_align"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUmoveto), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUmoveto, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_row_is_visible"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUrowUisUvisible), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUrowUisUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_cell_type"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUcellUtype), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUcellUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_text"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUtext), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_text"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUtext), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_pixmap"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"pixmap"); P lit_arg_4 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUpixmap), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_pixmap"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"pixmap"); P lit_arg_4 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUpixmap), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_pixtext"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"spacing"); P lit_arg_5 = YPPsym((P)"pixmap"); P lit_arg_6 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUpixtext), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUpixtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_pixtext"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"spacing"); P lit_arg_5 = YPPsym((P)"pixmap"); P lit_arg_6 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUpixtext), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUpixtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_foreground"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUforeground), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUforeground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_background"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUbackground), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUbackground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_cell_style"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcellUstyle), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcellUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_cell_style"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUcellUstyle), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUcellUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_row_style"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUrowUstyle), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUrowUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_row_style"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUrowUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUrowUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_shift"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"vertical"); P lit_arg_4 = YPPsym((P)"horizontal"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUshift), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUshift, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_selectable"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"selectable"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUselectable), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUselectable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_selectable"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUselectable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUselectable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_prepend"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUprepend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUprepend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_append"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUappend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUappend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_insert"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLtupG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUinsert), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUinsert, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_remove"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUremove), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_row_data"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUrowUdata), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUrowUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_row_data_full"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUrowUdataUfull), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUrowUdataUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_row_data"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUrowUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUrowUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_find_row_from_data"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUfindUrowUfromUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUfindUrowUfromUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_select_row"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUselectUrow), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUselectUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_unselect_row"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUunselectUrow), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUunselectUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_undo_selection"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUundoUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUundoUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_clear"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUclear), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUclear, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_get_selection_info"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"row"); P lit_arg_4 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUgetUselectionUinfo), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUgetUselectionUinfo, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_select_all"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUselectUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUselectUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_unselect_all"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUunselectUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUunselectUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_swap_rows"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"row1"); P lit_arg_2 = YPPsym((P)"row2"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUswapUrows), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUswapUrows, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_row_move"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"source_row"); P lit_arg_2 = YPPsym((P)"dest_row"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUrowUmove), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUrowUmove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_compare_func"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"cmp_func"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUcompareUfunc), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUcompareUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_sort_column"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUsortUcolumn), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUsortUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_sort_type"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"sort_type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUsortUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUsortUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_sort"); P lit_arg_0 = YPPsym((P)"clist"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsort), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsort, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_clist_set_auto_sort"); P lit_arg_0 = YPPsym((P)"clist"); P lit_arg_1 = YPPsym((P)"auto_sort"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUclistUsetUautoUsort), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUclistUsetUautoUsort, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_get_has_opacity_control"); P lit_arg_0 = YPPsym((P)"colorsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUopacityUcontrol), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUopacityUcontrol, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_has_opacity_control"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"has_opacity"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUopacityUcontrol), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUopacityUcontrol, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_get_has_palette"); P lit_arg_0 = YPPsym((P)"colorsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUpalette), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUgetUhasUpalette, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_has_palette"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"has_palette"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUpalette), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUhasUpalette, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_current_color"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_current_alpha"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"alpha"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUalpha), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUcurrentUalpha, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_get_current_color"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_get_current_alpha"); P lit_arg_0 = YPPsym((P)"colorsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUalpha), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUgetUcurrentUalpha, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_previous_color"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_previous_alpha"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"alpha"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUalpha), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUpreviousUalpha, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_get_previous_color"); P lit_arg_0 = YPPsym((P)"colorsel"); P lit_arg_1 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUcolor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUcolor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_get_previous_alpha"); P lit_arg_0 = YPPsym((P)"colorsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUalpha), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUgetUpreviousUalpha, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_is_adjusting"); P lit_arg_0 = YPPsym((P)"colorsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUisUadjusting), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUisUadjusting, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_palette_from_string"); P lit_arg_0 = YPPsym((P)"str"); P lit_arg_1 = YPPsym((P)"colors"); P lit_arg_2 = YPPsym((P)"n_colors"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUpaletteUfromUstring), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUpaletteUfromUstring, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_palette_to_string"); P lit_arg_0 = YPPsym((P)"colors"); P lit_arg_1 = YPPsym((P)"n_colors"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUpaletteUtoUstring), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUpaletteUtoUstring, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_set_change_palette_hook"); P lit_arg_0 = YPPsym((P)"func"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUsetUchangeUpaletteUhook), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUsetUchangeUpaletteUhook, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_color_selection_dialog_new"); P lit_arg_0 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcolorUselectionUdialogUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcolorUselectionUdialogUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_set_value_in_list"); P lit_arg_0 = YPPsym((P)"combo"); P lit_arg_1 = YPPsym((P)"val"); P lit_arg_2 = YPPsym((P)"ok_if_empty"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUsetUvalueUinUlist), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUsetUvalueUinUlist, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_set_use_arrows"); P lit_arg_0 = YPPsym((P)"combo"); P lit_arg_1 = YPPsym((P)"val"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUsetUuseUarrows), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUsetUuseUarrows, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_set_use_arrows_always"); P lit_arg_0 = YPPsym((P)"combo"); P lit_arg_1 = YPPsym((P)"val"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUsetUuseUarrowsUalways), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUsetUuseUarrowsUalways, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_set_case_sensitive"); P lit_arg_0 = YPPsym((P)"combo"); P lit_arg_1 = YPPsym((P)"val"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUsetUcaseUsensitive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUsetUcaseUsensitive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_set_item_string"); P lit_arg_0 = YPPsym((P)"combo"); P lit_arg_1 = YPPsym((P)"item"); P lit_arg_2 = YPPsym((P)"item_value"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUsetUitemUstring), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUsetUitemUstring, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_set_popdown_strings"); P lit_arg_0 = YPPsym((P)"combo"); P lit_arg_1 = YPPsym((P)"strings"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUsetUpopdownUstrings), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUsetUpopdownUstrings, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_combo_disable_activate"); P lit_arg_0 = YPPsym((P)"combo"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcomboUdisableUactivate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcomboUdisableUactivate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_set_border_width"); P lit_arg_0 = YPPsym((P)"container"); P lit_arg_1 = YPPsym((P)"border_width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUsetUborderUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUsetUborderUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_get_border_width"); P lit_arg_0 = YPPsym((P)"container"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUgetUborderUwidth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUgetUborderUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_add"); P lit_arg_0 = YPPsym((P)"container"); P lit_arg_1 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUadd), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUadd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_remove"); P lit_arg_0 = YPPsym((P)"container"); P lit_arg_1 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUremove), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_set_resize_mode"); P lit_arg_0 = YPPsym((P)"container"); P lit_arg_1 = YPPsym((P)"resize_mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUsetUresizeUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUsetUresizeUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_get_resize_mode"); P lit_arg_0 = YPPsym((P)"container"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUgetUresizeUmode), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUgetUresizeUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_check_resize"); P lit_arg_0 = YPPsym((P)"container"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUcheckUresize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUcheckUresize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_container_foreach"); P lit_arg_0 = YPPsym((P)"container"); P lit_arg_1 = YPPsym((P)"callback"); P lit_arg_2 = YPPsym((P)"callback_data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcontainerUforeach), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcontainerUforeach, methodDef); } VARSET(YsamuruiSgtkYgtkUctreeUposUbefore,(P)YPib((P)GTK_CTREE_POS_BEFORE)); VARSET(YsamuruiSgtkYgtkUctreeUposUasUchild,(P)YPib((P)GTK_CTREE_POS_AS_CHILD)); VARSET(YsamuruiSgtkYgtkUctreeUposUafter,(P)YPib((P)GTK_CTREE_POS_AFTER)); VARSET(YsamuruiSgtkYgtkUctreeUlinesUnone,(P)YPib((P)GTK_CTREE_LINES_NONE)); VARSET(YsamuruiSgtkYgtkUctreeUlinesUsolid,(P)YPib((P)GTK_CTREE_LINES_SOLID)); VARSET(YsamuruiSgtkYgtkUctreeUlinesUdotted,(P)YPib((P)GTK_CTREE_LINES_DOTTED)); VARSET(YsamuruiSgtkYgtkUctreeUlinesUtabbed,(P)YPib((P)GTK_CTREE_LINES_TABBED)); VARSET(YsamuruiSgtkYgtkUctreeUexpanderUnone,(P)YPib((P)GTK_CTREE_EXPANDER_NONE)); VARSET(YsamuruiSgtkYgtkUctreeUexpanderUsquare,(P)YPib((P)GTK_CTREE_EXPANDER_SQUARE)); VARSET(YsamuruiSgtkYgtkUctreeUexpanderUtriangle,(P)YPib((P)GTK_CTREE_EXPANDER_TRIANGLE)); VARSET(YsamuruiSgtkYgtkUctreeUexpanderUcircular,(P)YPib((P)GTK_CTREE_EXPANDER_CIRCULAR)); VARSET(YsamuruiSgtkYgtkUctreeUexpansionUexpand,(P)YPib((P)GTK_CTREE_EXPANSION_EXPAND)); VARSET(YsamuruiSgtkYgtkUctreeUexpansionUexpandUrecursive,(P)YPib((P)GTK_CTREE_EXPANSION_EXPAND_RECURSIVE)); VARSET(YsamuruiSgtkYgtkUctreeUexpansionUcollapse,(P)YPib((P)GTK_CTREE_EXPANSION_COLLAPSE)); VARSET(YsamuruiSgtkYgtkUctreeUexpansionUcollapseUrecursive,(P)YPib((P)GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE)); VARSET(YsamuruiSgtkYgtkUctreeUexpansionUtoggle,(P)YPib((P)GTK_CTREE_EXPANSION_TOGGLE)); VARSET(YsamuruiSgtkYgtkUctreeUexpansionUtoggleUrecursive,(P)YPib((P)GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_new_with_titles"); P lit_arg_0 = YPPsym((P)"columns"); P lit_arg_1 = YPPsym((P)"tree_column"); P lit_arg_2 = YPPsym((P)"titles"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLintG),VARREF(YLtupG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnewUwithUtitles), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnewUwithUtitles, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_new"); P lit_arg_0 = YPPsym((P)"columns"); P lit_arg_1 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_insert_node"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"parent"); P lit_arg_2 = YPPsym((P)"sibling"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"spacing"); P lit_arg_5 = YPPsym((P)"pixmap_closed"); P lit_arg_6 = YPPsym((P)"mask_closed"); P lit_arg_7 = YPPsym((P)"pixmap_opened"); P lit_arg_8 = YPPsym((P)"mask_opened"); P lit_arg_9 = YPPsym((P)"is_leaf"); P lit_arg_10 = YPPsym((P)"expanded"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLtupG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUinsertUnode), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUinsertUnode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_remove_node"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUremoveUnode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUremoveUnode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_insert_gnode"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"parent"); P lit_arg_2 = YPPsym((P)"sibling"); P lit_arg_3 = YPPsym((P)"gnode"); P lit_arg_4 = YPPsym((P)"func"); P lit_arg_5 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUinsertUgnode), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUinsertUgnode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_export_to_gnode"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"parent"); P lit_arg_2 = YPPsym((P)"sibling"); P lit_arg_3 = YPPsym((P)"node"); P lit_arg_4 = YPPsym((P)"func"); P lit_arg_5 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUexportUtoUgnode), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUexportUtoUgnode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_post_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUpostUrecursive), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUpostUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_post_recursive_to_depth"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"depth"); P lit_arg_3 = YPPsym((P)"func"); P lit_arg_4 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUpostUrecursiveUtoUdepth), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUpostUrecursiveUtoUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_pre_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUpreUrecursive), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUpreUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_pre_recursive_to_depth"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"depth"); P lit_arg_3 = YPPsym((P)"func"); P lit_arg_4 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUpreUrecursiveUtoUdepth), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUpreUrecursiveUtoUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_is_viewable"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUisUviewable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUisUviewable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_last"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUlast), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUlast, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_find_node_ptr"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"ctree_row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUfindUnodeUptr), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUfindUnodeUptr, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_nth"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUnth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUnth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_find"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUfind), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUfind, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_is_ancestor"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUisUancestor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUisUancestor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_find_by_row_data"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdata), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_find_all_by_row_data"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdata), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_find_by_row_data_custom"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"func"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdataUcustom), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUfindUbyUrowUdataUcustom, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_find_all_by_row_data_custom"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"func"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdataUcustom), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUfindUallUbyUrowUdataUcustom, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_is_hot_spot"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUisUhotUspot), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUisUhotUspot, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_move"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"new_parent"); P lit_arg_3 = YPPsym((P)"new_sibling"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUmove), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUmove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_expand"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUexpand), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUexpand, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_expand_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUexpandUrecursive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUexpandUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_expand_to_depth"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"depth"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUexpandUtoUdepth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUexpandUtoUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_collapse"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUcollapse), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUcollapse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_collapse_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUcollapseUrecursive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUcollapseUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_collapse_to_depth"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"depth"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUcollapseUtoUdepth), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUcollapseUtoUdepth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_toggle_expansion"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUtoggleUexpansion), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUtoggleUexpansion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_toggle_expansion_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUtoggleUexpansionUrecursive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUtoggleUexpansionUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_select"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUselect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_select_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUselectUrecursive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUselectUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_unselect"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUunselect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUunselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_unselect_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUunselectUrecursive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUunselectUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_real_select_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUrealUselectUrecursive), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUrealUselectUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_text"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUtext), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_pixmap"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"pixmap"); P lit_arg_4 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUpixmap), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_pixtext"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"spacing"); P lit_arg_5 = YPPsym((P)"pixmap"); P lit_arg_6 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUpixtext), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUpixtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_node_info"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"text"); P lit_arg_3 = YPPsym((P)"spacing"); P lit_arg_4 = YPPsym((P)"pixmap_closed"); P lit_arg_5 = YPPsym((P)"mask_closed"); P lit_arg_6 = YPPsym((P)"pixmap_opened"); P lit_arg_7 = YPPsym((P)"mask_opened"); P lit_arg_8 = YPPsym((P)"is_leaf"); P lit_arg_9 = YPPsym((P)"expanded"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)10), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUnodeUinfo), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUnodeUinfo, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_shift"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"vertical"); P lit_arg_4 = YPPsym((P)"horizontal"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUshift), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUshift, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_selectable"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"selectable"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUselectable), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUselectable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_selectable"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUselectable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUselectable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_cell_type"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUtype), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_text"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUtext), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_pixmap"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"pixmap"); P lit_arg_4 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUpixmap), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_pixtext"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"spacing"); P lit_arg_5 = YPPsym((P)"pixmap"); P lit_arg_6 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUpixtext), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUpixtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_get_node_info"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"text"); P lit_arg_3 = YPPsym((P)"spacing"); P lit_arg_4 = YPPsym((P)"pixmap_closed"); P lit_arg_5 = YPPsym((P)"mask_closed"); P lit_arg_6 = YPPsym((P)"pixmap_opened"); P lit_arg_7 = YPPsym((P)"mask_opened"); P lit_arg_8 = YPPsym((P)"is_leaf"); P lit_arg_9 = YPPsym((P)"expanded"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)10), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUgetUnodeUinfo), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUgetUnodeUinfo, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_row_style"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUstyle), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_row_style"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_cell_style"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUcellUstyle), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUcellUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_cell_style"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUstyle), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUcellUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_foreground"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUforeground), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUforeground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_background"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"color"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUbackground), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUbackground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_row_data"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdata), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_set_row_data_full"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdataUfull), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUsetUrowUdataUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_get_row_data"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUdata), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUgetUrowUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_moveto"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"row_align"); P lit_arg_4 = YPPsym((P)"col_align"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUmoveto), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUmoveto, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_node_is_visible"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUnodeUisUvisible), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUnodeUisUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_indent"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"indent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUindent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUindent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_spacing"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUspacing), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_show_stub"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"show_stub"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUshowUstub), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUshowUstub, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_line_style"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"line_style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUlineUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUlineUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_expander_style"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"expander_style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUexpanderUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUexpanderUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_set_drag_compare_func"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"cmp_func"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsetUdragUcompareUfunc), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsetUdragUcompareUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_sort_node"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsortUnode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsortUnode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ctree_sort_recursive"); P lit_arg_0 = YPPsym((P)"ctree"); P lit_arg_1 = YPPsym((P)"node"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUctreeUsortUrecursive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUctreeUsortUrecursive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_reset"); P lit_arg_0 = YPPsym((P)"curve"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUreset), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUreset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_set_gamma"); P lit_arg_0 = YPPsym((P)"curve"); P lit_arg_1 = YPPsym((P)"gamma"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUsetUgamma), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUsetUgamma, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_set_range"); P lit_arg_0 = YPPsym((P)"curve"); P lit_arg_1 = YPPsym((P)"min_x"); P lit_arg_2 = YPPsym((P)"max_x"); P lit_arg_3 = YPPsym((P)"min_y"); P lit_arg_4 = YPPsym((P)"max_y"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUsetUrange), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUsetUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_get_vector"); P lit_arg_0 = YPPsym((P)"curve"); P lit_arg_1 = YPPsym((P)"veclen"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUgetUvector), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUgetUvector, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_set_vector"); P lit_arg_0 = YPPsym((P)"curve"); P lit_arg_1 = YPPsym((P)"veclen"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLtupG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUsetUvector), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUsetUvector, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_curve_set_curve_type"); P lit_arg_0 = YPPsym((P)"curve"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUcurveUsetUcurveUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUcurveUsetUcurveUtype, methodDef); } VARSET(YsamuruiSgtkYgtkUdialogUmodal,(P)YPib((P)GTK_DIALOG_MODAL)); VARSET(YsamuruiSgtkYgtkUdialogUdestroyUwithUparent,(P)YPib((P)GTK_DIALOG_DESTROY_WITH_PARENT)); VARSET(YsamuruiSgtkYgtkUdialogUnoUseparator,(P)YPib((P)GTK_DIALOG_NO_SEPARATOR)); VARSET(YsamuruiSgtkYgtkUresponseUnone,(P)YPib((P)GTK_RESPONSE_NONE)); VARSET(YsamuruiSgtkYgtkUresponseUreject,(P)YPib((P)GTK_RESPONSE_REJECT)); VARSET(YsamuruiSgtkYgtkUresponseUaccept,(P)YPib((P)GTK_RESPONSE_ACCEPT)); VARSET(YsamuruiSgtkYgtkUresponseUdeleteUevent,(P)YPib((P)GTK_RESPONSE_DELETE_EVENT)); VARSET(YsamuruiSgtkYgtkUresponseUok,(P)YPib((P)GTK_RESPONSE_OK)); VARSET(YsamuruiSgtkYgtkUresponseUcancel,(P)YPib((P)GTK_RESPONSE_CANCEL)); VARSET(YsamuruiSgtkYgtkUresponseUclose,(P)YPib((P)GTK_RESPONSE_CLOSE)); VARSET(YsamuruiSgtkYgtkUresponseUyes,(P)YPib((P)GTK_RESPONSE_YES)); VARSET(YsamuruiSgtkYgtkUresponseUno,(P)YPib((P)GTK_RESPONSE_NO)); VARSET(YsamuruiSgtkYgtkUresponseUapply,(P)YPib((P)GTK_RESPONSE_APPLY)); VARSET(YsamuruiSgtkYgtkUresponseUhelp,(P)YPib((P)GTK_RESPONSE_HELP)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_add_action_widget"); P lit_arg_0 = YPPsym((P)"dialog"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"response_id"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUaddUactionUwidget), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUaddUactionUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_add_button"); P lit_arg_0 = YPPsym((P)"dialog"); P lit_arg_1 = YPPsym((P)"button_text"); P lit_arg_2 = YPPsym((P)"response_id"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUaddUbutton), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUaddUbutton, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_set_response_sensitive"); P lit_arg_0 = YPPsym((P)"dialog"); P lit_arg_1 = YPPsym((P)"response_id"); P lit_arg_2 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUsetUresponseUsensitive), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUsetUresponseUsensitive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_set_default_response"); P lit_arg_0 = YPPsym((P)"dialog"); P lit_arg_1 = YPPsym((P)"response_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUsetUdefaultUresponse), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUsetUdefaultUresponse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_set_has_separator"); P lit_arg_0 = YPPsym((P)"dialog"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUsetUhasUseparator), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUsetUhasUseparator, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_get_has_separator"); P lit_arg_0 = YPPsym((P)"dialog"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUgetUhasUseparator), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUgetUhasUseparator, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_response"); P lit_arg_0 = YPPsym((P)"dialog"); P lit_arg_1 = YPPsym((P)"response_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUresponse), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUresponse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_dialog_run"); P lit_arg_0 = YPPsym((P)"dialog"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdialogUrun), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdialogUrun, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_drawing_area_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUdrawingUareaUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUdrawingUareaUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_select_region"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUselectUregion), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUselectUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_get_selection_bounds"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUgetUselectionUbounds), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUgetUselectionUbounds, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_insert_text"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"new_text"); P lit_arg_2 = YPPsym((P)"new_text_length"); P lit_arg_3 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUinsertUtext), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUinsertUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_delete_text"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"start_pos"); P lit_arg_2 = YPPsym((P)"end_pos"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUdeleteUtext), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUdeleteUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_get_chars"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"start_pos"); P lit_arg_2 = YPPsym((P)"end_pos"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUgetUchars), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUgetUchars, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_cut_clipboard"); P lit_arg_0 = YPPsym((P)"editable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUcutUclipboard), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUcutUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_copy_clipboard"); P lit_arg_0 = YPPsym((P)"editable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUcopyUclipboard), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUcopyUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_paste_clipboard"); P lit_arg_0 = YPPsym((P)"editable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUpasteUclipboard), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUpasteUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_delete_selection"); P lit_arg_0 = YPPsym((P)"editable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUdeleteUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUdeleteUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_set_position"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUsetUposition), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUsetUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_get_position"); P lit_arg_0 = YPPsym((P)"editable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUgetUposition), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUgetUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_set_editable"); P lit_arg_0 = YPPsym((P)"editable"); P lit_arg_1 = YPPsym((P)"is_editable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUsetUeditable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUsetUeditable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_editable_get_editable"); P lit_arg_0 = YPPsym((P)"editable"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeditableUgetUeditable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeditableUgetUeditable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_visibility"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"visible"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUvisibility), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUvisibility, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_visibility"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUvisibility), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUvisibility, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_invisible_char"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"ch"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUinvisibleUchar), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUinvisibleUchar, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_invisible_char"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUinvisibleUchar), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUinvisibleUchar, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_has_frame"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUhasUframe), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUhasUframe, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_has_frame"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUhasUframe), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUhasUframe, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_max_length"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"max"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUmaxUlength), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUmaxUlength, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_max_length"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUmaxUlength), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUmaxUlength, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_activates_default"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUactivatesUdefault), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUactivatesUdefault, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_activates_default"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUactivatesUdefault), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUactivatesUdefault, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_width_chars"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"n_chars"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUwidthUchars), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUwidthUchars, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_width_chars"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUwidthUchars), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUwidthUchars, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_set_text"); P lit_arg_0 = YPPsym((P)"entry"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUsetUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUsetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_text"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUtext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_layout"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUlayout), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_entry_get_layout_offsets"); P lit_arg_0 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUentryUgetUlayoutUoffsets), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUentryUgetUlayoutUoffsets, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_event_box_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeventUboxUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeventUboxUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_file_selection_new"); P lit_arg_0 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfileUselectionUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfileUselectionUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_file_selection_set_filename"); P lit_arg_0 = YPPsym((P)"filesel"); P lit_arg_1 = YPPsym((P)"filename"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfileUselectionUsetUfilename), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfileUselectionUsetUfilename, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_file_selection_get_filename"); P lit_arg_0 = YPPsym((P)"filesel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfileUselectionUgetUfilename), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfileUselectionUgetUfilename, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_file_selection_complete"); P lit_arg_0 = YPPsym((P)"filesel"); P lit_arg_1 = YPPsym((P)"pattern"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfileUselectionUcomplete), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfileUselectionUcomplete, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_file_selection_show_fileop_buttons"); P lit_arg_0 = YPPsym((P)"filesel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfileUselectionUshowUfileopUbuttons), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfileUselectionUshowUfileopUbuttons, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_file_selection_hide_fileop_buttons"); P lit_arg_0 = YPPsym((P)"filesel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfileUselectionUhideUfileopUbuttons), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfileUselectionUhideUfileopUbuttons, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_fixed_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfixedUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfixedUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_fixed_put"); P lit_arg_0 = YPPsym((P)"fixed"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfixedUput), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfixedUput, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_fixed_move"); P lit_arg_0 = YPPsym((P)"fixed"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfixedUmove), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfixedUmove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_fixed_set_has_window"); P lit_arg_0 = YPPsym((P)"fixed"); P lit_arg_1 = YPPsym((P)"has_window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfixedUsetUhasUwindow), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfixedUsetUhasUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_fixed_get_has_window"); P lit_arg_0 = YPPsym((P)"fixed"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfixedUgetUhasUwindow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfixedUgetUhasUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_get_font_name"); P lit_arg_0 = YPPsym((P)"fontsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUgetUfontUname), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUgetUfontUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_set_font_name"); P lit_arg_0 = YPPsym((P)"fontsel"); P lit_arg_1 = YPPsym((P)"fontname"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUsetUfontUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUsetUfontUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_get_preview_text"); P lit_arg_0 = YPPsym((P)"fontsel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUgetUpreviewUtext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUgetUpreviewUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_set_preview_text"); P lit_arg_0 = YPPsym((P)"fontsel"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUsetUpreviewUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUsetUpreviewUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_dialog_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_dialog_new"); P lit_arg_0 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUdialogUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUdialogUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_dialog_get_font_name"); P lit_arg_0 = YPPsym((P)"fsd"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUfontUname), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUfontUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_dialog_set_font_name"); P lit_arg_0 = YPPsym((P)"fsd"); P lit_arg_1 = YPPsym((P)"fontname"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUfontUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUfontUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_dialog_get_preview_text"); P lit_arg_0 = YPPsym((P)"fsd"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUpreviewUtext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUdialogUgetUpreviewUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_font_selection_dialog_set_preview_text"); P lit_arg_0 = YPPsym((P)"fsd"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUpreviewUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUfontUselectionUdialogUsetUpreviewUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_new"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_set_label"); P lit_arg_0 = YPPsym((P)"frame"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUsetUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUsetUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_get_label"); P lit_arg_0 = YPPsym((P)"frame"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUgetUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUgetUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_set_label_widget"); P lit_arg_0 = YPPsym((P)"frame"); P lit_arg_1 = YPPsym((P)"label_widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUsetUlabelUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUsetUlabelUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_get_label_widget"); P lit_arg_0 = YPPsym((P)"frame"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUgetUlabelUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUgetUlabelUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_set_label_align"); P lit_arg_0 = YPPsym((P)"frame"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUsetUlabelUalign), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUsetUlabelUalign, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_get_label_align"); P lit_arg_0 = YPPsym((P)"frame"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUgetUlabelUalign), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUgetUlabelUalign, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_set_shadow_type"); P lit_arg_0 = YPPsym((P)"frame"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUsetUshadowUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUsetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_frame_get_shadow_type"); P lit_arg_0 = YPPsym((P)"frame"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUframeUgetUshadowUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUframeUgetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_gamma_curve_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgammaUcurveUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgammaUcurveUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_set_shadow_type"); P lit_arg_0 = YPPsym((P)"handle_box"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUsetUshadowUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUsetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_get_shadow_type"); P lit_arg_0 = YPPsym((P)"handle_box"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUgetUshadowUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUgetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_set_handle_position"); P lit_arg_0 = YPPsym((P)"handle_box"); P lit_arg_1 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUsetUhandleUposition), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUsetUhandleUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_get_handle_position"); P lit_arg_0 = YPPsym((P)"handle_box"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUgetUhandleUposition), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUgetUhandleUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_set_snap_edge"); P lit_arg_0 = YPPsym((P)"handle_box"); P lit_arg_1 = YPPsym((P)"edge"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUsetUsnapUedge), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUsetUsnapUedge, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_handle_box_get_snap_edge"); P lit_arg_0 = YPPsym((P)"handle_box"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhandleUboxUgetUsnapUedge), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhandleUboxUgetUsnapUedge, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hbutton_box_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhbuttonUboxUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhbuttonUboxUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hbox_new"); P lit_arg_0 = YPPsym((P)"homogeneous"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhboxUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhboxUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hpaned_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhpanedUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhpanedUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hruler_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhrulerUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhrulerUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hscale_new"); P lit_arg_0 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhscaleUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhscaleUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hscale_new_with_range"); P lit_arg_0 = YPPsym((P)"min"); P lit_arg_1 = YPPsym((P)"max"); P lit_arg_2 = YPPsym((P)"step"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhscaleUnewUwithUrange), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhscaleUnewUwithUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_hscrollbar_new"); P lit_arg_0 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUhscrollbarUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUhscrollbarUnew, methodDef); } VARSET(YsamuruiSgtkYgtkUimageUempty,(P)YPib((P)GTK_IMAGE_EMPTY)); VARSET(YsamuruiSgtkYgtkUimageUpixmap,(P)YPib((P)GTK_IMAGE_PIXMAP)); VARSET(YsamuruiSgtkYgtkUimageUimage,(P)YPib((P)GTK_IMAGE_IMAGE)); VARSET(YsamuruiSgtkYgtkUimageUpixbuf,(P)YPib((P)GTK_IMAGE_PIXBUF)); VARSET(YsamuruiSgtkYgtkUimageUstock,(P)YPib((P)GTK_IMAGE_STOCK)); VARSET(YsamuruiSgtkYgtkUimageUiconUset,(P)YPib((P)GTK_IMAGE_ICON_SET)); VARSET(YsamuruiSgtkYgtkUimageUanimation,(P)YPib((P)GTK_IMAGE_ANIMATION)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_pixmap"); P lit_arg_0 = YPPsym((P)"pixmap"); P lit_arg_1 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUpixmap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_image"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUimage), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_file"); P lit_arg_0 = YPPsym((P)"filename"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUfile), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUfile, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_pixbuf"); P lit_arg_0 = YPPsym((P)"pixbuf"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUpixbuf), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUpixbuf, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_stock"); P lit_arg_0 = YPPsym((P)"stock_id"); P lit_arg_1 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUstock), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUstock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_icon_set"); P lit_arg_0 = YPPsym((P)"icon_set"); P lit_arg_1 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUiconUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUiconUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_new_from_animation"); P lit_arg_0 = YPPsym((P)"animation"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUnewUfromUanimation), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUnewUfromUanimation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_pixmap"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"pixmap"); P lit_arg_2 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUpixmap), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_image"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"gdk_image"); P lit_arg_2 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUimage), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_file"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"filename"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUfile), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUfile, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_pixbuf"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"pixbuf"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUpixbuf), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUpixbuf, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_stock"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"stock_id"); P lit_arg_2 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUstock), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUstock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_icon_set"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"icon_set"); P lit_arg_2 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUiconUset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUiconUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_set_from_animation"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"animation"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUsetUfromUanimation), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUsetUfromUanimation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_storage_type"); P lit_arg_0 = YPPsym((P)"image"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUstorageUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUstorageUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_pixmap"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"pixmap"); P lit_arg_2 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUpixmap), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUpixmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_image"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"gdk_image"); P lit_arg_2 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUimage), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUimage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_pixbuf"); P lit_arg_0 = YPPsym((P)"image"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUpixbuf), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUpixbuf, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_stock"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"stock_id"); P lit_arg_2 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUstock), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUstock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_icon_set"); P lit_arg_0 = YPPsym((P)"image"); P lit_arg_1 = YPPsym((P)"icon_set"); P lit_arg_2 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUiconUset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUiconUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_image_get_animation"); P lit_arg_0 = YPPsym((P)"image"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUimageUgetUanimation), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUimageUgetUanimation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_input_dialog_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUinputUdialogUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUinputUdialogUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_select"); P lit_arg_0 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_deselect"); P lit_arg_0 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUdeselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUdeselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_toggle"); P lit_arg_0 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUtoggle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUtoggle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_new"); P lit_arg_0 = YPPsym((P)"container_type"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"accel_group"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUnew), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_construct"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"container_type"); P lit_arg_2 = YPPsym((P)"path"); P lit_arg_3 = YPPsym((P)"accel_group"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUconstruct), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUconstruct, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_add_foreign"); P lit_arg_0 = YPPsym((P)"accel_widget"); P lit_arg_1 = YPPsym((P)"full_path"); P lit_arg_2 = YPPsym((P)"accel_group"); P lit_arg_3 = YPPsym((P)"keyval"); P lit_arg_4 = YPPsym((P)"modifiers"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUaddUforeign), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUaddUforeign, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_from_widget"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUfromUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUfromUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_path_from_widget"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUpathUfromUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUpathUfromUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_get_item"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUgetUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUgetUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_get_widget"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUgetUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUgetUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_get_widget_by_action"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"action"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUgetUwidgetUbyUaction), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUgetUwidgetUbyUaction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_get_item_by_action"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"action"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUgetUitemUbyUaction), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUgetUitemUbyUaction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_create_item"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"entry"); P lit_arg_2 = YPPsym((P)"callback_data"); P lit_arg_3 = YPPsym((P)"callback_type"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUcreateUitem), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUcreateUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_create_items"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"n_entries"); P lit_arg_2 = YPPsym((P)"entries"); P lit_arg_3 = YPPsym((P)"callback_data"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUcreateUitems), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUcreateUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_delete_item"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUdeleteUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUdeleteUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_delete_entry"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"entry"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentry), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentry, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_delete_entries"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"n_entries"); P lit_arg_2 = YPPsym((P)"entries"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentries), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUdeleteUentries, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_popup"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"mouse_button"); P lit_arg_4 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUpopup), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUpopup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_popup_with_data"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"popup_data"); P lit_arg_2 = YPPsym((P)"destroy"); P lit_arg_3 = YPPsym((P)"x"); P lit_arg_4 = YPPsym((P)"y"); P lit_arg_5 = YPPsym((P)"mouse_button"); P lit_arg_6 = YPPsym((P)"time"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUpopupUwithUdata), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUpopupUwithUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_popup_data"); P lit_arg_0 = YPPsym((P)"ifactory"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUpopupUdata), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUpopupUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_popup_data_from_widget"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUpopupUdataUfromUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUpopupUdataUfromUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_item_factory_set_translate_func"); P lit_arg_0 = YPPsym((P)"ifactory"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"notify"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUitemUfactoryUsetUtranslateUfunc), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUitemUfactoryUsetUtranslateUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_new"); P lit_arg_0 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_text"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_text"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUtext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_attributes"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"attrs"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUattributes), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUattributes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_attributes"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUattributes), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUattributes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_label"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_markup"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUmarkup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUmarkup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_use_markup"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUuseUmarkup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUuseUmarkup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_use_markup"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUuseUmarkup), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUuseUmarkup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_use_underline"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUuseUunderline), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUuseUunderline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_use_underline"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUuseUunderline), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUuseUunderline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_markup_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUmarkupUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUmarkupUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_mnemonic_keyval"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUmnemonicUkeyval), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUmnemonicUkeyval, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_mnemonic_widget"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUmnemonicUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUmnemonicUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_mnemonic_widget"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUmnemonicUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUmnemonicUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_text_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"str"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUtextUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUtextUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_justify"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"jtype"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUjustify), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUjustify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_justify"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUjustify), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUjustify, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_pattern"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"pattern"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUpattern), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUpattern, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_line_wrap"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"wrap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUlineUwrap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUlineUwrap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_line_wrap"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUlineUwrap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUlineUwrap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_set_selectable"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUsetUselectable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUsetUselectable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_selectable"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUselectable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUselectable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_select_region"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"start_offset"); P lit_arg_2 = YPPsym((P)"end_offset"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUselectUregion), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUselectUregion, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_selection_bounds"); P lit_arg_0 = YPPsym((P)"label"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUselectionUbounds), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUselectionUbounds, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_layout"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUlayout), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_label_get_layout_offsets"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlabelUgetUlayoutUoffsets), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlabelUgetUlayoutUoffsets, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_new"); P lit_arg_0 = YPPsym((P)"hadjustment"); P lit_arg_1 = YPPsym((P)"vadjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_put"); P lit_arg_0 = YPPsym((P)"layout"); P lit_arg_1 = YPPsym((P)"child_widget"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUput), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUput, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_move"); P lit_arg_0 = YPPsym((P)"layout"); P lit_arg_1 = YPPsym((P)"child_widget"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUmove), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUmove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_set_size"); P lit_arg_0 = YPPsym((P)"layout"); P lit_arg_1 = YPPsym((P)"width"); P lit_arg_2 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUsetUsize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUsetUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_get_size"); P lit_arg_0 = YPPsym((P)"layout"); P lit_arg_1 = YPPsym((P)"width"); P lit_arg_2 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUgetUsize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUgetUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_get_hadjustment"); P lit_arg_0 = YPPsym((P)"layout"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUgetUhadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUgetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_get_vadjustment"); P lit_arg_0 = YPPsym((P)"layout"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUgetUvadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUgetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_set_hadjustment"); P lit_arg_0 = YPPsym((P)"layout"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUsetUhadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUsetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_layout_set_vadjustment"); P lit_arg_0 = YPPsym((P)"layout"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlayoutUsetUvadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlayoutUsetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_insert_items"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"items"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUinsertUitems), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUinsertUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_append_items"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"items"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUappendUitems), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUappendUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_prepend_items"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"items"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUprependUitems), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUprependUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_remove_items"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"items"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUremoveUitems), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUremoveUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_remove_items_no_unref"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"items"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUremoveUitemsUnoUunref), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUremoveUitemsUnoUunref, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_clear_items"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUclearUitems), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUclearUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_select_item"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUselectUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUselectUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_unselect_item"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUunselectUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUunselectUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_select_child"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUselectUchild), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUselectUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_unselect_child"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUunselectUchild), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUunselectUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_child_position"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUchildUposition), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUchildUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_set_selection_mode"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUsetUselectionUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUsetUselectionUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_extend_selection"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"scroll_type"); P lit_arg_2 = YPPsym((P)"position"); P lit_arg_3 = YPPsym((P)"auto_start_selection"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLintG),VARREF(YLfloG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUextendUselection), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUextendUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_start_selection"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUstartUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUstartUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_end_selection"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUendUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUendUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_select_all"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUselectUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUselectUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_unselect_all"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUunselectUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUunselectUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_scroll_horizontal"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"scroll_type"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUscrollUhorizontal), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUscrollUhorizontal, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_scroll_vertical"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"scroll_type"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUscrollUvertical), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUscrollUvertical, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_toggle_add_mode"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUtoggleUaddUmode), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUtoggleUaddUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_toggle_focus_row"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUtoggleUfocusUrow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUtoggleUfocusUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_toggle_row"); P lit_arg_0 = YPPsym((P)"list"); P lit_arg_1 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUtoggleUrow), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUtoggleUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_undo_selection"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUundoUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUundoUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_end_drag_selection"); P lit_arg_0 = YPPsym((P)"list"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUendUdragUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUendUdragUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_item_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUitemUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUitemUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_item_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUitemUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUitemUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_item_select"); P lit_arg_0 = YPPsym((P)"list_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUitemUselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUitemUselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_list_item_deselect"); P lit_arg_0 = YPPsym((P)"list_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUlistUitemUdeselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUlistUitemUdeselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_init"); P lit_arg_0 = YPPsym((P)"argc"); P lit_arg_1 = YPPsym((P)"argv"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUinit), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUinit, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_init_easy"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUinitUeasy), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUinitUeasy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_events_pending"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUeventsUpending), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUeventsUpending, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_main"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmain), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmain, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_main_level"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmainUlevel), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmainUlevel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_main_quit"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmainUquit), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmainUquit, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_main_iteration"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmainUiteration), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmainUiteration, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_main_iteration_do"); P lit_arg_0 = YPPsym((P)"blocking"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmainUiterationUdo), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmainUiterationUdo, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_grab_add"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgrabUadd), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgrabUadd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_grab_get_current"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgrabUgetUcurrent), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgrabUgetUcurrent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_grab_remove"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgrabUremove), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgrabUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_init_add"); P lit_arg_0 = YPPsym((P)"function"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUinitUadd), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUinitUadd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_quit_add_destroy"); P lit_arg_0 = YPPsym((P)"main_level"); P lit_arg_1 = YPPsym((P)"object"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUquitUaddUdestroy), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUquitUaddUdestroy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_quit_add"); P lit_arg_0 = YPPsym((P)"main_level"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUquitUadd), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUquitUadd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_quit_add_full"); P lit_arg_0 = YPPsym((P)"main_level"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"marshal"); P lit_arg_3 = YPPsym((P)"data"); P lit_arg_4 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUquitUaddUfull), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUquitUaddUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_quit_remove"); P lit_arg_0 = YPPsym((P)"quit_handler_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUquitUremove), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUquitUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_quit_remove_by_data"); P lit_arg_0 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUquitUremoveUbyUdata), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUquitUremoveUbyUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_timeout_add"); P lit_arg_0 = YPPsym((P)"interval"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtimeoutUadd), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtimeoutUadd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_timeout_add_full"); P lit_arg_0 = YPPsym((P)"interval"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"marshal"); P lit_arg_3 = YPPsym((P)"data"); P lit_arg_4 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtimeoutUaddUfull), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtimeoutUaddUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_timeout_remove"); P lit_arg_0 = YPPsym((P)"timeout_handler_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtimeoutUremove), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtimeoutUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_idle_add"); P lit_arg_0 = YPPsym((P)"function"); P lit_arg_1 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUidleUadd), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUidleUadd, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_idle_add_priority"); P lit_arg_0 = YPPsym((P)"priority"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUidleUaddUpriority), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUidleUaddUpriority, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_idle_add_full"); P lit_arg_0 = YPPsym((P)"priority"); P lit_arg_1 = YPPsym((P)"function"); P lit_arg_2 = YPPsym((P)"marshal"); P lit_arg_3 = YPPsym((P)"data"); P lit_arg_4 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUidleUaddUfull), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUidleUaddUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_idle_remove"); P lit_arg_0 = YPPsym((P)"idle_handler_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUidleUremove), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUidleUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_idle_remove_by_data"); P lit_arg_0 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUidleUremoveUbyUdata), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUidleUremoveUbyUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_input_add_full"); P lit_arg_0 = YPPsym((P)"source"); P lit_arg_1 = YPPsym((P)"condition"); P lit_arg_2 = YPPsym((P)"function"); P lit_arg_3 = YPPsym((P)"marshal"); P lit_arg_4 = YPPsym((P)"data"); P lit_arg_5 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUinputUaddUfull), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUinputUaddUfull, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_input_remove"); P lit_arg_0 = YPPsym((P)"input_handler_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUinputUremove), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUinputUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_get_current_event"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetUcurrentUevent), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetUcurrentUevent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_get_current_event_time"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetUcurrentUeventUtime), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetUcurrentUeventUtime, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_get_current_event_state"); P lit_arg_0 = YPPsym((P)"state"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetUcurrentUeventUstate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetUcurrentUeventUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_get_event_widget"); P lit_arg_0 = YPPsym((P)"event"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUgetUeventUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUgetUeventUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_popup"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"parent_menu_shell"); P lit_arg_2 = YPPsym((P)"parent_menu_item"); P lit_arg_3 = YPPsym((P)"func"); P lit_arg_4 = YPPsym((P)"data"); P lit_arg_5 = YPPsym((P)"button"); P lit_arg_6 = YPPsym((P)"activate_time"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)7), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUpopup), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUpopup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_reposition"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUreposition), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUreposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_popdown"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUpopdown), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUpopdown, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_get_active"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUgetUactive), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUgetUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_set_active"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"index"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUsetUactive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUsetUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_set_accel_group"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"accel_group"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUsetUaccelUgroup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUsetUaccelUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_get_accel_group"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUgetUaccelUgroup), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUgetUaccelUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_set_accel_path"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"accel_path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUsetUaccelUpath), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUsetUaccelUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_attach_to_widget"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"attach_widget"); P lit_arg_2 = YPPsym((P)"detacher"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUattachUtoUwidget), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUattachUtoUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_detach"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUdetach), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUdetach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_get_attach_widget"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUgetUattachUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUgetUattachUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_set_tearoff_state"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"torn_off"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUsetUtearoffUstate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUsetUtearoffUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_get_tearoff_state"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUgetUtearoffUstate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUgetUtearoffUstate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_set_title"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUsetUtitle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUsetUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_get_title"); P lit_arg_0 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUgetUtitle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUgetUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_reorder_child"); P lit_arg_0 = YPPsym((P)"menu"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUreorderUchild), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUreorderUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_bar_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUbarUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUbarUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_set_submenu"); P lit_arg_0 = YPPsym((P)"menu_item"); P lit_arg_1 = YPPsym((P)"submenu"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUsetUsubmenu), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUsetUsubmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_get_submenu"); P lit_arg_0 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUgetUsubmenu), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUgetUsubmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_remove_submenu"); P lit_arg_0 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUremoveUsubmenu), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUremoveUsubmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_gtk_menu_item_set_placement"); P lit_arg_0 = YPPsym((P)"menu_item"); P lit_arg_1 = YPPsym((P)"placement"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkUmenuUitemUsetUplacement), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkUmenuUitemUsetUplacement, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_select"); P lit_arg_0 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_deselect"); P lit_arg_0 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUdeselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUdeselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_activate"); P lit_arg_0 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUactivate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUactivate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_toggle_size_request"); P lit_arg_0 = YPPsym((P)"menu_item"); P lit_arg_1 = YPPsym((P)"requisition"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUrequest), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUrequest, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_toggle_size_allocate"); P lit_arg_0 = YPPsym((P)"menu_item"); P lit_arg_1 = YPPsym((P)"allocation"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUallocate), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUtoggleUsizeUallocate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_set_right_justified"); P lit_arg_0 = YPPsym((P)"menu_item"); P lit_arg_1 = YPPsym((P)"right_justified"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUsetUrightUjustified), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUsetUrightUjustified, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_get_right_justified"); P lit_arg_0 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUgetUrightUjustified), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUgetUrightUjustified, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_item_set_accel_path"); P lit_arg_0 = YPPsym((P)"menu_item"); P lit_arg_1 = YPPsym((P)"accel_path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUitemUsetUaccelUpath), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUitemUsetUaccelUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_append"); P lit_arg_0 = YPPsym((P)"menu_shell"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUappend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUappend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_prepend"); P lit_arg_0 = YPPsym((P)"menu_shell"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUprepend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUprepend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_insert"); P lit_arg_0 = YPPsym((P)"menu_shell"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUinsert), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUinsert, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_deactivate"); P lit_arg_0 = YPPsym((P)"menu_shell"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUdeactivate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUdeactivate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_select_item"); P lit_arg_0 = YPPsym((P)"menu_shell"); P lit_arg_1 = YPPsym((P)"menu_item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUselectUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUselectUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_deselect"); P lit_arg_0 = YPPsym((P)"menu_shell"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUdeselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUdeselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_menu_shell_activate_item"); P lit_arg_0 = YPPsym((P)"menu_shell"); P lit_arg_1 = YPPsym((P)"menu_item"); P lit_arg_2 = YPPsym((P)"force_deactivate"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmenuUshellUactivateUitem), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmenuUshellUactivateUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_misc_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmiscUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmiscUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_misc_set_alignment"); P lit_arg_0 = YPPsym((P)"misc"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmiscUsetUalignment), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmiscUsetUalignment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_misc_get_alignment"); P lit_arg_0 = YPPsym((P)"misc"); P lit_arg_1 = YPPsym((P)"xalign"); P lit_arg_2 = YPPsym((P)"yalign"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmiscUgetUalignment), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmiscUgetUalignment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_misc_set_padding"); P lit_arg_0 = YPPsym((P)"misc"); P lit_arg_1 = YPPsym((P)"xpad"); P lit_arg_2 = YPPsym((P)"ypad"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmiscUsetUpadding), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmiscUsetUpadding, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_misc_get_padding"); P lit_arg_0 = YPPsym((P)"misc"); P lit_arg_1 = YPPsym((P)"xpad"); P lit_arg_2 = YPPsym((P)"ypad"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUmiscUgetUpadding), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUmiscUgetUpadding, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_append_page"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUappendUpage), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUappendUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_append_page_menu"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); P lit_arg_3 = YPPsym((P)"menu_label"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUappendUpageUmenu), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUappendUpageUmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_prepend_page"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUprependUpage), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUprependUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_prepend_page_menu"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); P lit_arg_3 = YPPsym((P)"menu_label"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUprependUpageUmenu), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUprependUpageUmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_insert_page"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); P lit_arg_3 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUinsertUpage), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUinsertUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_insert_page_menu"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); P lit_arg_3 = YPPsym((P)"menu_label"); P lit_arg_4 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUinsertUpageUmenu), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUinsertUpageUmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_remove_page"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"page_num"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUremoveUpage), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUremoveUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_current_page"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUcurrentUpage), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUcurrentUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_nth_page"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"page_num"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUnthUpage), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUnthUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_page_num"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUpageUnum), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUpageUnum, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_current_page"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"page_num"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUcurrentUpage), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUcurrentUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_next_page"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUnextUpage), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUnextUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_prev_page"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUprevUpage), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUprevUpage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_show_border"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"show_border"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUshowUborder), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUshowUborder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_show_border"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUshowUborder), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUshowUborder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_show_tabs"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"show_tabs"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUshowUtabs), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUshowUtabs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_show_tabs"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUshowUtabs), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUshowUtabs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_pos"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"pos"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUpos), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_tab_pos"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUtabUpos), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUtabUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_homogeneous_tabs"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"homogeneous"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUhomogeneousUtabs), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUhomogeneousUtabs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_border"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"border_width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUborder), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUborder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_hborder"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"tab_hborder"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUhborder), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUhborder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_vborder"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"tab_vborder"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUvborder), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUvborder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_scrollable"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"scrollable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUscrollable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUscrollable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_scrollable"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUscrollable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUscrollable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_popup_enable"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUpopupUenable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUpopupUenable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_popup_disable"); P lit_arg_0 = YPPsym((P)"notebook"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUpopupUdisable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUpopupUdisable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_tab_label"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUtabUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUtabUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_label"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_label"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUlabel), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_label_text"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"tab_text"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUtext), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_tab_label_text"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUtabUlabelUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUtabUlabelUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_menu_label"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_menu_label"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"menu_label"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabel), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_menu_label_text"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"menu_text"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabelUtext), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUmenuUlabelUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_get_menu_label_text"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabelUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUgetUmenuUlabelUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_query_tab_label_packing"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"expand"); P lit_arg_3 = YPPsym((P)"fill"); P lit_arg_4 = YPPsym((P)"pack_type"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUqueryUtabUlabelUpacking), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUqueryUtabUlabelUpacking, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_set_tab_label_packing"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"expand"); P lit_arg_3 = YPPsym((P)"fill"); P lit_arg_4 = YPPsym((P)"pack_type"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUpacking), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUsetUtabUlabelUpacking, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_notebook_reorder_child"); P lit_arg_0 = YPPsym((P)"notebook"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUnotebookUreorderUchild), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUnotebookUreorderUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_option_menu_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUoptionUmenuUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUoptionUmenuUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_option_menu_get_menu"); P lit_arg_0 = YPPsym((P)"option_menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUoptionUmenuUgetUmenu), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUoptionUmenuUgetUmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_option_menu_set_menu"); P lit_arg_0 = YPPsym((P)"option_menu"); P lit_arg_1 = YPPsym((P)"menu"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUoptionUmenuUsetUmenu), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUoptionUmenuUsetUmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_option_menu_remove_menu"); P lit_arg_0 = YPPsym((P)"option_menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUoptionUmenuUremoveUmenu), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUoptionUmenuUremoveUmenu, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_option_menu_get_history"); P lit_arg_0 = YPPsym((P)"option_menu"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUoptionUmenuUgetUhistory), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUoptionUmenuUgetUhistory, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_option_menu_set_history"); P lit_arg_0 = YPPsym((P)"option_menu"); P lit_arg_1 = YPPsym((P)"index"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUoptionUmenuUsetUhistory), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUoptionUmenuUsetUhistory, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paned_add1"); P lit_arg_0 = YPPsym((P)"paned"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpanedUadd1), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpanedUadd1, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paned_add2"); P lit_arg_0 = YPPsym((P)"paned"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpanedUadd2), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpanedUadd2, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paned_pack1"); P lit_arg_0 = YPPsym((P)"paned"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"resize"); P lit_arg_3 = YPPsym((P)"shrink"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpanedUpack1), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpanedUpack1, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paned_pack2"); P lit_arg_0 = YPPsym((P)"paned"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"resize"); P lit_arg_3 = YPPsym((P)"shrink"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpanedUpack2), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpanedUpack2, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paned_get_position"); P lit_arg_0 = YPPsym((P)"paned"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpanedUgetUposition), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpanedUgetUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paned_set_position"); P lit_arg_0 = YPPsym((P)"paned"); P lit_arg_1 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpanedUsetUposition), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpanedUsetUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_pixmap_new"); P lit_arg_0 = YPPsym((P)"pixmap"); P lit_arg_1 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpixmapUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpixmapUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_pixmap_set"); P lit_arg_0 = YPPsym((P)"pixmap"); P lit_arg_1 = YPPsym((P)"val"); P lit_arg_2 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpixmapUset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpixmapUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_pixmap_get"); P lit_arg_0 = YPPsym((P)"pixmap"); P lit_arg_1 = YPPsym((P)"val"); P lit_arg_2 = YPPsym((P)"mask"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpixmapUget), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpixmapUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_pixmap_set_build_insensitive"); P lit_arg_0 = YPPsym((P)"pixmap"); P lit_arg_1 = YPPsym((P)"build"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpixmapUsetUbuildUinsensitive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpixmapUsetUbuildUinsensitive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_plug_construct"); P lit_arg_0 = YPPsym((P)"plug"); P lit_arg_1 = YPPsym((P)"socket_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUplugUconstruct), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUplugUconstruct, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_plug_new"); P lit_arg_0 = YPPsym((P)"socket_id"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUplugUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUplugUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_plug_get_id"); P lit_arg_0 = YPPsym((P)"plug"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUplugUgetUid), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUplugUgetUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_uninit"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUuninit), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUuninit, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_new"); P lit_arg_0 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_size"); P lit_arg_0 = YPPsym((P)"preview"); P lit_arg_1 = YPPsym((P)"width"); P lit_arg_2 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_put"); P lit_arg_0 = YPPsym((P)"preview"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"gc"); P lit_arg_3 = YPPsym((P)"srcx"); P lit_arg_4 = YPPsym((P)"srcy"); P lit_arg_5 = YPPsym((P)"destx"); P lit_arg_6 = YPPsym((P)"desty"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUput), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUput, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_draw_row"); P lit_arg_0 = YPPsym((P)"preview"); P lit_arg_1 = YPPsym((P)"data"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); P lit_arg_4 = YPPsym((P)"w"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUdrawUrow), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUdrawUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_set_expand"); P lit_arg_0 = YPPsym((P)"preview"); P lit_arg_1 = YPPsym((P)"expand"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsetUexpand), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsetUexpand, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_set_gamma"); P lit_arg_0 = YPPsym((P)"gamma"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLfloG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsetUgamma), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsetUgamma, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_set_color_cube"); P lit_arg_0 = YPPsym((P)"nred_shades"); P lit_arg_1 = YPPsym((P)"ngreen_shades"); P lit_arg_2 = YPPsym((P)"nblue_shades"); P lit_arg_3 = YPPsym((P)"ngray_shades"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsetUcolorUcube), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsetUcolorUcube, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_set_install_cmap"); P lit_arg_0 = YPPsym((P)"install_cmap"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsetUinstallUcmap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsetUinstallUcmap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_set_reserved"); P lit_arg_0 = YPPsym((P)"nreserved"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsetUreserved), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsetUreserved, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_preview_set_dither"); P lit_arg_0 = YPPsym((P)"preview"); P lit_arg_1 = YPPsym((P)"dither"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpreviewUsetUdither), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpreviewUsetUdither, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_show_text"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"show_text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUshowUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUshowUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_text_alignment"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"x_align"); P lit_arg_2 = YPPsym((P)"y_align"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUtextUalignment), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUtextUalignment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_format_string"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"format"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUformatUstring), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUformatUstring, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_adjustment"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_configure"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"value"); P lit_arg_2 = YPPsym((P)"min"); P lit_arg_3 = YPPsym((P)"max"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUconfigure), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUconfigure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_percentage"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"percentage"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUpercentage), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUpercentage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_value"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_get_value"); P lit_arg_0 = YPPsym((P)"progress"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUgetUvalue), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUgetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_set_activity_mode"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"activity_mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUsetUactivityUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUsetUactivityUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_get_current_text"); P lit_arg_0 = YPPsym((P)"progress"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUgetUcurrentUtext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUgetUcurrentUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_get_text_from_value"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUgetUtextUfromUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUgetUtextUfromUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_get_current_percentage"); P lit_arg_0 = YPPsym((P)"progress"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUgetUcurrentUpercentage), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUgetUcurrentUpercentage, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_get_percentage_from_value"); P lit_arg_0 = YPPsym((P)"progress"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUgetUpercentageUfromUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUgetUpercentageUfromUvalue, methodDef); } VARSET(YsamuruiSgtkYgtkUprogressUcontinuous,(P)YPib((P)GTK_PROGRESS_CONTINUOUS)); VARSET(YsamuruiSgtkYgtkUprogressUdiscrete,(P)YPib((P)GTK_PROGRESS_DISCRETE)); VARSET(YsamuruiSgtkYgtkUprogressUleftUtoUright,(P)YPib((P)GTK_PROGRESS_LEFT_TO_RIGHT)); VARSET(YsamuruiSgtkYgtkUprogressUrightUtoUleft,(P)YPib((P)GTK_PROGRESS_RIGHT_TO_LEFT)); VARSET(YsamuruiSgtkYgtkUprogressUbottomUtoUtop,(P)YPib((P)GTK_PROGRESS_BOTTOM_TO_TOP)); VARSET(YsamuruiSgtkYgtkUprogressUtopUtoUbottom,(P)YPib((P)GTK_PROGRESS_TOP_TO_BOTTOM)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_pulse"); P lit_arg_0 = YPPsym((P)"pbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUpulse), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUpulse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_set_text"); P lit_arg_0 = YPPsym((P)"pbar"); P lit_arg_1 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUsetUtext), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUsetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_set_fraction"); P lit_arg_0 = YPPsym((P)"pbar"); P lit_arg_1 = YPPsym((P)"fraction"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUsetUfraction), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUsetUfraction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_set_pulse_step"); P lit_arg_0 = YPPsym((P)"pbar"); P lit_arg_1 = YPPsym((P)"fraction"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUsetUpulseUstep), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUsetUpulseUstep, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_set_orientation"); P lit_arg_0 = YPPsym((P)"pbar"); P lit_arg_1 = YPPsym((P)"orientation"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUsetUorientation), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUsetUorientation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_get_text"); P lit_arg_0 = YPPsym((P)"pbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUgetUtext), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUgetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_get_fraction"); P lit_arg_0 = YPPsym((P)"pbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUgetUfraction), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUgetUfraction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_get_pulse_step"); P lit_arg_0 = YPPsym((P)"pbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUgetUpulseUstep), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUgetUpulseUstep, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_progress_bar_get_orientation"); P lit_arg_0 = YPPsym((P)"pbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUprogressUbarUgetUorientation), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUprogressUbarUgetUorientation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_new"); P lit_arg_0 = YPPsym((P)"group"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_new_from_widget"); P lit_arg_0 = YPPsym((P)"group"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUnewUfromUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUnewUfromUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_new_with_label"); P lit_arg_0 = YPPsym((P)"group"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_new_with_label_from_widget"); P lit_arg_0 = YPPsym((P)"group"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabelUfromUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUlabelUfromUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"group"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_new_with_mnemonic_from_widget"); P lit_arg_0 = YPPsym((P)"group"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonicUfromUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUnewUwithUmnemonicUfromUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_get_group"); P lit_arg_0 = YPPsym((P)"radio_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUgetUgroup), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUgetUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_button_set_group"); P lit_arg_0 = YPPsym((P)"radio_button"); P lit_arg_1 = YPPsym((P)"group"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUbuttonUsetUgroup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUbuttonUsetUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_menu_item_new"); P lit_arg_0 = YPPsym((P)"group"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUmenuUitemUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUmenuUitemUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_menu_item_new_with_label"); P lit_arg_0 = YPPsym((P)"group"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_menu_item_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"group"); P lit_arg_1 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUmenuUitemUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_menu_item_get_group"); P lit_arg_0 = YPPsym((P)"radio_menu_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUmenuUitemUgetUgroup), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUmenuUitemUgetUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_radio_menu_item_set_group"); P lit_arg_0 = YPPsym((P)"radio_menu_item"); P lit_arg_1 = YPPsym((P)"group"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUradioUmenuUitemUsetUgroup), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUradioUmenuUitemUsetUgroup, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_set_update_policy"); P lit_arg_0 = YPPsym((P)"range"); P lit_arg_1 = YPPsym((P)"policy"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUsetUupdateUpolicy), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUsetUupdateUpolicy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_get_update_policy"); P lit_arg_0 = YPPsym((P)"range"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUgetUupdateUpolicy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUgetUupdateUpolicy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_set_adjustment"); P lit_arg_0 = YPPsym((P)"range"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUsetUadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUsetUadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_get_adjustment"); P lit_arg_0 = YPPsym((P)"range"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUgetUadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUgetUadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_set_inverted"); P lit_arg_0 = YPPsym((P)"range"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUsetUinverted), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUsetUinverted, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_get_inverted"); P lit_arg_0 = YPPsym((P)"range"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUgetUinverted), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUgetUinverted, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_set_increments"); P lit_arg_0 = YPPsym((P)"range"); P lit_arg_1 = YPPsym((P)"step"); P lit_arg_2 = YPPsym((P)"page"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUsetUincrements), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUsetUincrements, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_set_range"); P lit_arg_0 = YPPsym((P)"range"); P lit_arg_1 = YPPsym((P)"min"); P lit_arg_2 = YPPsym((P)"max"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUsetUrange), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUsetUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_set_value"); P lit_arg_0 = YPPsym((P)"range"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUsetUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUsetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_range_get_value"); P lit_arg_0 = YPPsym((P)"range"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrangeUgetUvalue), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrangeUgetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ruler_set_metric"); P lit_arg_0 = YPPsym((P)"ruler"); P lit_arg_1 = YPPsym((P)"metric"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrulerUsetUmetric), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrulerUsetUmetric, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ruler_set_range"); P lit_arg_0 = YPPsym((P)"ruler"); P lit_arg_1 = YPPsym((P)"lower"); P lit_arg_2 = YPPsym((P)"upper"); P lit_arg_3 = YPPsym((P)"position"); P lit_arg_4 = YPPsym((P)"max_size"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrulerUsetUrange), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrulerUsetUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ruler_draw_ticks"); P lit_arg_0 = YPPsym((P)"ruler"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrulerUdrawUticks), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrulerUdrawUticks, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ruler_draw_pos"); P lit_arg_0 = YPPsym((P)"ruler"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrulerUdrawUpos), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrulerUdrawUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ruler_get_metric"); P lit_arg_0 = YPPsym((P)"ruler"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrulerUgetUmetric), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrulerUgetUmetric, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_ruler_get_range"); P lit_arg_0 = YPPsym((P)"ruler"); P lit_arg_1 = YPPsym((P)"lower"); P lit_arg_2 = YPPsym((P)"upper"); P lit_arg_3 = YPPsym((P)"position"); P lit_arg_4 = YPPsym((P)"max_size"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUrulerUgetUrange), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUrulerUgetUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scale_set_digits"); P lit_arg_0 = YPPsym((P)"scale"); P lit_arg_1 = YPPsym((P)"digits"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscaleUsetUdigits), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscaleUsetUdigits, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scale_get_digits"); P lit_arg_0 = YPPsym((P)"scale"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscaleUgetUdigits), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscaleUgetUdigits, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scale_set_draw_value"); P lit_arg_0 = YPPsym((P)"scale"); P lit_arg_1 = YPPsym((P)"draw_value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscaleUsetUdrawUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscaleUsetUdrawUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scale_get_draw_value"); P lit_arg_0 = YPPsym((P)"scale"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscaleUgetUdrawUvalue), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscaleUgetUdrawUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scale_set_value_pos"); P lit_arg_0 = YPPsym((P)"scale"); P lit_arg_1 = YPPsym((P)"pos"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscaleUsetUvalueUpos), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscaleUsetUvalueUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scale_get_value_pos"); P lit_arg_0 = YPPsym((P)"scale"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscaleUgetUvalueUpos), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscaleUgetUvalueUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_gtk_scale_get_value_size"); P lit_arg_0 = YPPsym((P)"scale"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkUscaleUgetUvalueUsize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkUscaleUgetUvalueUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_gtk_scale_format_value"); P lit_arg_0 = YPPsym((P)"scale"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkUscaleUformatUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkUscaleUformatUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_new"); P lit_arg_0 = YPPsym((P)"hadjustment"); P lit_arg_1 = YPPsym((P)"vadjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_set_hadjustment"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"hadjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUsetUhadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUsetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_set_vadjustment"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"hadjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUsetUvadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUsetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_get_hadjustment"); P lit_arg_0 = YPPsym((P)"scrolled_window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUgetUhadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUgetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_get_vadjustment"); P lit_arg_0 = YPPsym((P)"scrolled_window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUgetUvadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUgetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_set_policy"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"hscrollbar_policy"); P lit_arg_2 = YPPsym((P)"vscrollbar_policy"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUsetUpolicy), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUsetUpolicy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_get_policy"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"hscrollbar_policy"); P lit_arg_2 = YPPsym((P)"vscrollbar_policy"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUgetUpolicy), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUgetUpolicy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_set_placement"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"window_placement"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUsetUplacement), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUsetUplacement, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_get_placement"); P lit_arg_0 = YPPsym((P)"scrolled_window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUgetUplacement), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUgetUplacement, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_set_shadow_type"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUsetUshadowUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUsetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_get_shadow_type"); P lit_arg_0 = YPPsym((P)"scrolled_window"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUgetUshadowUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUgetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_scrolled_window_add_with_viewport"); P lit_arg_0 = YPPsym((P)"scrolled_window"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUscrolledUwindowUaddUwithUviewport), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUscrolledUwindowUaddUwithUviewport, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_socket_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsocketUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsocketUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_socket_add_id"); P lit_arg_0 = YPPsym((P)"socket"); P lit_arg_1 = YPPsym((P)"window_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsocketUaddUid), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsocketUaddUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_socket_get_id"); P lit_arg_0 = YPPsym((P)"socket"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUsocketUgetUid), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUsocketUgetUid, methodDef); } VARSET(YsamuruiSgtkYgtkUupdateUalways,(P)YPib((P)GTK_UPDATE_ALWAYS)); VARSET(YsamuruiSgtkYgtkUupdateUifUvalid,(P)YPib((P)GTK_UPDATE_IF_VALID)); VARSET(YsamuruiSgtkYgtkUspinUstepUforward,(P)YPib((P)GTK_SPIN_STEP_FORWARD)); VARSET(YsamuruiSgtkYgtkUspinUstepUbackward,(P)YPib((P)GTK_SPIN_STEP_BACKWARD)); VARSET(YsamuruiSgtkYgtkUspinUpageUforward,(P)YPib((P)GTK_SPIN_PAGE_FORWARD)); VARSET(YsamuruiSgtkYgtkUspinUpageUbackward,(P)YPib((P)GTK_SPIN_PAGE_BACKWARD)); VARSET(YsamuruiSgtkYgtkUspinUhome,(P)YPib((P)GTK_SPIN_HOME)); VARSET(YsamuruiSgtkYgtkUspinUend,(P)YPib((P)GTK_SPIN_END)); VARSET(YsamuruiSgtkYgtkUspinUuserUdefined,(P)YPib((P)GTK_SPIN_USER_DEFINED)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_configure"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"adjustment"); P lit_arg_2 = YPPsym((P)"climb_rate"); P lit_arg_3 = YPPsym((P)"digits"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLfloG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUconfigure), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUconfigure, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_new"); P lit_arg_0 = YPPsym((P)"adjustment"); P lit_arg_1 = YPPsym((P)"climb_rate"); P lit_arg_2 = YPPsym((P)"digits"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUnew), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_new_with_range"); P lit_arg_0 = YPPsym((P)"min"); P lit_arg_1 = YPPsym((P)"max"); P lit_arg_2 = YPPsym((P)"step"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLfloG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUnewUwithUrange), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUnewUwithUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_adjustment"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_adjustment"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_digits"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"digits"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUdigits), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUdigits, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_digits"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUdigits), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUdigits, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_increments"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"step"); P lit_arg_2 = YPPsym((P)"page"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUincrements), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUincrements, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_increments"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"step"); P lit_arg_2 = YPPsym((P)"page"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUincrements), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUincrements, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_range"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"min"); P lit_arg_2 = YPPsym((P)"max"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUrange), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_range"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"min"); P lit_arg_2 = YPPsym((P)"max"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUrange), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_value"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUvalue), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_value_as_int"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUvalueUasUint), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUvalueUasUint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_value"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"value"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUvalue), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUvalue, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_update_policy"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"policy"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUupdateUpolicy), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUupdateUpolicy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_update_policy"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUupdateUpolicy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUupdateUpolicy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_numeric"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"numeric"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUnumeric), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUnumeric, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_numeric"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUnumeric), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUnumeric, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_spin"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"direction"); P lit_arg_2 = YPPsym((P)"increment"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLfloG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUspin), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUspin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_wrap"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"wrap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUwrap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUwrap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_wrap"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUwrap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUwrap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_set_snap_to_ticks"); P lit_arg_0 = YPPsym((P)"spin_button"); P lit_arg_1 = YPPsym((P)"snap_to_ticks"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUsetUsnapUtoUticks), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUsetUsnapUtoUticks, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_get_snap_to_ticks"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUgetUsnapUtoUticks), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUgetUsnapUtoUticks, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_spin_button_update"); P lit_arg_0 = YPPsym((P)"spin_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUspinUbuttonUupdate), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUspinUbuttonUupdate, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_get_context_id"); P lit_arg_0 = YPPsym((P)"statusbar"); P lit_arg_1 = YPPsym((P)"context_description"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUgetUcontextUid), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUgetUcontextUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_push"); P lit_arg_0 = YPPsym((P)"statusbar"); P lit_arg_1 = YPPsym((P)"context_id"); P lit_arg_2 = YPPsym((P)"text"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLstrG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUpush), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUpush, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_pop"); P lit_arg_0 = YPPsym((P)"statusbar"); P lit_arg_1 = YPPsym((P)"context_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUpop), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUpop, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_remove"); P lit_arg_0 = YPPsym((P)"statusbar"); P lit_arg_1 = YPPsym((P)"context_id"); P lit_arg_2 = YPPsym((P)"message_id"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUremove), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUremove, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_set_has_resize_grip"); P lit_arg_0 = YPPsym((P)"statusbar"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUsetUhasUresizeUgrip), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUsetUhasUresizeUgrip, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_statusbar_get_has_resize_grip"); P lit_arg_0 = YPPsym((P)"statusbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstatusbarUgetUhasUresizeUgrip), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstatusbarUgetUhasUresizeUgrip, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_parent_instance_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"parent_instance"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUparentUinstanceUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUparentUinstanceUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_parent_instance_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUparentUinstanceUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUparentUinstanceUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_fg_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUfgUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUfgUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_bg_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUbgUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUbgUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_light_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUlightUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUlightUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_dark_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUdarkUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUdarkUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_mid_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUmidUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUmidUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_text_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUtextUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUtextUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_base_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUbaseUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUbaseUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_text_aa_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUtextUaaUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUtextUaaUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_black_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"black"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUblackUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUblackUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_black_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUblackUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUblackUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_white_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"white"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUwhiteUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUwhiteUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_white_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUwhiteUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUwhiteUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_font_desc_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"font_desc"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUfontUdescUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUfontUdescUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_font_desc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUfontUdescUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUfontUdescUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_xthickness_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"xthickness"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUxthicknessUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUxthicknessUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_xthickness_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUxthicknessUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUxthicknessUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_ythickness_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"ythickness"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUythicknessUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUythicknessUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_ythickness_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUythicknessUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUythicknessUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_fg_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUfgUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUfgUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_bg_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUbgUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUbgUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_light_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUlightUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUlightUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_dark_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUdarkUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUdarkUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_mid_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUmidUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUmidUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_text_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUtextUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUtextUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_base_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUbaseUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUbaseUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_text_aa_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUtextUaaUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUtextUaaUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_black_gc_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"black_gc"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUblackUgcUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUblackUgcUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_black_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUblackUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUblackUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_white_gc_set"); P lit_arg_0 = YPPsym((P)"self"); P lit_arg_1 = YPPsym((P)"white_gc"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUwhiteUgcUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUwhiteUgcUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_white_gc_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUwhiteUgcUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUwhiteUgcUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"_GtkStyle_bg_pixmap_get"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYUgtkstyleUbgUpixmapUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYUgtkstyleUbgUpixmapUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"new__GtkStyle"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYnewUUgtkstyle), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYnewUUgtkstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"delete__GtkStyle"); P lit_arg_0 = YPPsym((P)"self"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYdeleteUUgtkstyle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYdeleteUUgtkstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_copy"); P lit_arg_0 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUcopy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUcopy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_attach"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUattach), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUattach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_detach"); P lit_arg_0 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUdetach), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUdetach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_set_background"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUsetUbackground), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUsetUbackground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_apply_default_background"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"set_bg"); P lit_arg_3 = YPPsym((P)"state_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"x"); P lit_arg_6 = YPPsym((P)"y"); P lit_arg_7 = YPPsym((P)"width"); P lit_arg_8 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUapplyUdefaultUbackground), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUapplyUdefaultUbackground, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_lookup_icon_set"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"stock_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUlookupUiconUset), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUlookupUiconUset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_style_render_icon"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"source"); P lit_arg_2 = YPPsym((P)"direction"); P lit_arg_3 = YPPsym((P)"state"); P lit_arg_4 = YPPsym((P)"size"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)7), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUstyleUrenderUicon), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUstyleUrenderUicon, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_hline"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"area"); P lit_arg_4 = YPPsym((P)"widget"); P lit_arg_5 = YPPsym((P)"detail"); P lit_arg_6 = YPPsym((P)"x1"); P lit_arg_7 = YPPsym((P)"x2"); P lit_arg_8 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUhline), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUhline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_vline"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"area"); P lit_arg_4 = YPPsym((P)"widget"); P lit_arg_5 = YPPsym((P)"detail"); P lit_arg_6 = YPPsym((P)"y1"); P lit_arg_7 = YPPsym((P)"y2"); P lit_arg_8 = YPPsym((P)"x"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUvline), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUvline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_shadow"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUshadow), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUshadow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_polygon"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"points"); P lit_arg_8 = YPPsym((P)"fill"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLtupG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUpolygon), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUpolygon, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_arrow"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"arrow_type"); P lit_arg_8 = YPPsym((P)"fill"); P lit_arg_9 = YPPsym((P)"x"); P lit_arg_10 = YPPsym((P)"y"); P lit_arg_11 = YPPsym((P)"width"); P lit_arg_12 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(13,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)13), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUarrow), methodSig, LITREF(methodName), YPPlist(13,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11),LITREF(lit_arg_12) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUarrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_diamond"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUdiamond), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUdiamond, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_box"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUbox), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUbox, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_flat_box"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUflatUbox), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUflatUbox, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_check"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUcheck), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUcheck, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_option"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUoption), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUoption, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_tab"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUtab), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUtab, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_shadow_gap"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); P lit_arg_11 = YPPsym((P)"gap_side"); P lit_arg_12 = YPPsym((P)"gap_x"); P lit_arg_13 = YPPsym((P)"gap_width"); methodSig = YPfab_sig(YPPlist(14,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)14), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUshadowUgap), methodSig, LITREF(methodName), YPPlist(14,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11),LITREF(lit_arg_12),LITREF(lit_arg_13) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUshadowUgap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_box_gap"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); P lit_arg_11 = YPPsym((P)"gap_side"); P lit_arg_12 = YPPsym((P)"gap_x"); P lit_arg_13 = YPPsym((P)"gap_width"); methodSig = YPfab_sig(YPPlist(14,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)14), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUboxUgap), methodSig, LITREF(methodName), YPPlist(14,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11),LITREF(lit_arg_12),LITREF(lit_arg_13) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUboxUgap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_extension"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); P lit_arg_11 = YPPsym((P)"gap_side"); methodSig = YPfab_sig(YPPlist(12,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)12), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUextension), methodSig, LITREF(methodName), YPPlist(12,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUextension, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_focus"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"area"); P lit_arg_4 = YPPsym((P)"widget"); P lit_arg_5 = YPPsym((P)"detail"); P lit_arg_6 = YPPsym((P)"x"); P lit_arg_7 = YPPsym((P)"y"); P lit_arg_8 = YPPsym((P)"width"); P lit_arg_9 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)10), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUfocus), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUfocus, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_slider"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); P lit_arg_11 = YPPsym((P)"orientation"); methodSig = YPfab_sig(YPPlist(12,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)12), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUslider), methodSig, LITREF(methodName), YPPlist(12,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUslider, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_handle"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"shadow_type"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); P lit_arg_11 = YPPsym((P)"orientation"); methodSig = YPfab_sig(YPPlist(12,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)12), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUhandle), methodSig, LITREF(methodName), YPPlist(12,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10),LITREF(lit_arg_11) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUhandle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_expander"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"area"); P lit_arg_4 = YPPsym((P)"widget"); P lit_arg_5 = YPPsym((P)"detail"); P lit_arg_6 = YPPsym((P)"x"); P lit_arg_7 = YPPsym((P)"y"); P lit_arg_8 = YPPsym((P)"expander_style"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)9), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUexpander), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUexpander, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_layout"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"use_text"); P lit_arg_4 = YPPsym((P)"area"); P lit_arg_5 = YPPsym((P)"widget"); P lit_arg_6 = YPPsym((P)"detail"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"layout"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)10), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUlayout), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUlayout, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_paint_resize_grip"); P lit_arg_0 = YPPsym((P)"style"); P lit_arg_1 = YPPsym((P)"window"); P lit_arg_2 = YPPsym((P)"state_type"); P lit_arg_3 = YPPsym((P)"area"); P lit_arg_4 = YPPsym((P)"widget"); P lit_arg_5 = YPPsym((P)"detail"); P lit_arg_6 = YPPsym((P)"edge"); P lit_arg_7 = YPPsym((P)"x"); P lit_arg_8 = YPPsym((P)"y"); P lit_arg_9 = YPPsym((P)"width"); P lit_arg_10 = YPPsym((P)"height"); methodSig = YPfab_sig(YPPlist(11,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)11), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUpaintUresizeUgrip), methodSig, LITREF(methodName), YPPlist(11,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9),LITREF(lit_arg_10) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUpaintUresizeUgrip, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_border_copy"); P lit_arg_0 = YPPsym((P)"border"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUborderUcopy), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUborderUcopy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_border_free"); P lit_arg_0 = YPPsym((P)"border"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUborderUfree), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUborderUfree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_new"); P lit_arg_0 = YPPsym((P)"rows"); P lit_arg_1 = YPPsym((P)"columns"); P lit_arg_2 = YPPsym((P)"homogeneous"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUnew), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_resize"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"rows"); P lit_arg_2 = YPPsym((P)"columns"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUresize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUresize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_attach"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"left_attach"); P lit_arg_3 = YPPsym((P)"right_attach"); P lit_arg_4 = YPPsym((P)"top_attach"); P lit_arg_5 = YPPsym((P)"bottom_attach"); P lit_arg_6 = YPPsym((P)"xoptions"); P lit_arg_7 = YPPsym((P)"yoptions"); P lit_arg_8 = YPPsym((P)"xpadding"); P lit_arg_9 = YPPsym((P)"ypadding"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)10), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUattach), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUattach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_attach_defaults"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"left_attach"); P lit_arg_3 = YPPsym((P)"right_attach"); P lit_arg_4 = YPPsym((P)"top_attach"); P lit_arg_5 = YPPsym((P)"bottom_attach"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUattachUdefaults), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUattachUdefaults, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_set_row_spacing"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"row"); P lit_arg_2 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUsetUrowUspacing), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUsetUrowUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_get_row_spacing"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"row"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUgetUrowUspacing), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUgetUrowUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_set_col_spacing"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUsetUcolUspacing), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUsetUcolUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_get_col_spacing"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUgetUcolUspacing), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUgetUcolUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_set_row_spacings"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUsetUrowUspacings), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUsetUrowUspacings, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_get_default_row_spacing"); P lit_arg_0 = YPPsym((P)"table"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUgetUdefaultUrowUspacing), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUgetUdefaultUrowUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_set_col_spacings"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUsetUcolUspacings), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUsetUcolUspacings, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_get_default_col_spacing"); P lit_arg_0 = YPPsym((P)"table"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUgetUdefaultUcolUspacing), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUgetUdefaultUcolUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_set_homogeneous"); P lit_arg_0 = YPPsym((P)"table"); P lit_arg_1 = YPPsym((P)"homogeneous"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUsetUhomogeneous), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUsetUhomogeneous, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_table_get_homogeneous"); P lit_arg_0 = YPPsym((P)"table"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtableUgetUhomogeneous), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtableUgetUhomogeneous, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tearoff_menu_item_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtearoffUmenuUitemUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtearoffUmenuUitemUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_new"); P lit_arg_0 = YPPsym((P)"table"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_line_count"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUlineUcount), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUlineUcount, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_char_count"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUcharUcount), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUcharUcount, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_tag_table"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUtagUtable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUtagUtable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_set_text"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"len"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUsetUtext), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUsetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"text"); P lit_arg_3 = YPPsym((P)"len"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsert), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsert, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_at_cursor"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"len"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUatUcursor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUatUcursor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_interactive"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"text"); P lit_arg_3 = YPPsym((P)"len"); P lit_arg_4 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractive), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_interactive_at_cursor"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"len"); P lit_arg_3 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractiveUatUcursor), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUinteractiveUatUcursor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_range"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUrange), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_range_interactive"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"end"); P lit_arg_4 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUrangeUinteractive), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUrangeUinteractive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_delete"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUdelete), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUdelete, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_delete_interactive"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start_iter"); P lit_arg_2 = YPPsym((P)"end_iter"); P lit_arg_3 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUdeleteUinteractive), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUdeleteUinteractive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_text"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); P lit_arg_3 = YPPsym((P)"include_hidden_chars"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUtext), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUtext, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_slice"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); P lit_arg_3 = YPPsym((P)"include_hidden_chars"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUslice), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUslice, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_pixbuf"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"pixbuf"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUpixbuf), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUpixbuf, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_insert_child_anchor"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"anchor"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUinsertUchildUanchor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUinsertUchildUanchor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_create_child_anchor"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUcreateUchildUanchor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUcreateUchildUanchor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_create_mark"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"mark_name"); P lit_arg_2 = YPPsym((P)"where"); P lit_arg_3 = YPPsym((P)"left_gravity"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUcreateUmark), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUcreateUmark, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_move_mark"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"mark"); P lit_arg_2 = YPPsym((P)"where"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUmoveUmark), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUmoveUmark, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_delete_mark"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"mark"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUdeleteUmark), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUdeleteUmark, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_mark"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUmark), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUmark, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_move_mark_by_name"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"where"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUmoveUmarkUbyUname), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUmoveUmarkUbyUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_delete_mark_by_name"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"name"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUdeleteUmarkUbyUname), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUdeleteUmarkUbyUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_insert"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUinsert), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUinsert, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_selection_bound"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbound), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbound, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_place_cursor"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"where"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUplaceUcursor), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUplaceUcursor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_apply_tag"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"tag"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUapplyUtag), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUapplyUtag, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_remove_tag"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"tag"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUremoveUtag), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUremoveUtag, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_apply_tag_by_name"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUapplyUtagUbyUname), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUapplyUtagUbyUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_remove_tag_by_name"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"name"); P lit_arg_2 = YPPsym((P)"start"); P lit_arg_3 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUremoveUtagUbyUname), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUremoveUtagUbyUname, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_remove_all_tags"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUremoveUallUtags), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUremoveUallUtags, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_iter_at_line_offset"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"line_number"); P lit_arg_3 = YPPsym((P)"char_offset"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUoffset), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUoffset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_iter_at_line_index"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"line_number"); P lit_arg_3 = YPPsym((P)"byte_index"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUindex), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUlineUindex, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_iter_at_offset"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"char_offset"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUoffset), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUoffset, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_iter_at_line"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"line_number"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUline), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_start_iter"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUstartUiter), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUstartUiter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_end_iter"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUendUiter), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUendUiter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_bounds"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUbounds), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUbounds, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_iter_at_mark"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"mark"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUmark), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUmark, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_iter_at_child_anchor"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"anchor"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUchildUanchor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUiterUatUchildUanchor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_modified"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUmodified), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUmodified, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_set_modified"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUsetUmodified), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUsetUmodified, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_add_selection_clipboard"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"clipboard"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUaddUselectionUclipboard), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUaddUselectionUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_remove_selection_clipboard"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"clipboard"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUremoveUselectionUclipboard), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUremoveUselectionUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_cut_clipboard"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"clipboard"); P lit_arg_2 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUcutUclipboard), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUcutUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_copy_clipboard"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"clipboard"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUcopyUclipboard), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUcopyUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_paste_clipboard"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"clipboard"); P lit_arg_2 = YPPsym((P)"override_location"); P lit_arg_3 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUpasteUclipboard), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUpasteUclipboard, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_get_selection_bounds"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbounds), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUgetUselectionUbounds, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_delete_selection"); P lit_arg_0 = YPPsym((P)"buffer"); P lit_arg_1 = YPPsym((P)"interactive"); P lit_arg_2 = YPPsym((P)"default_editable"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUdeleteUselection), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUdeleteUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_begin_user_action"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUbeginUuserUaction), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUbeginUuserUaction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_buffer_end_user_action"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUbufferUendUuserUaction), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUbufferUendUuserUaction, methodDef); } VARSET(YsamuruiSgtkYgtkUtextUwindowUprivate,(P)YPib((P)GTK_TEXT_WINDOW_PRIVATE)); VARSET(YsamuruiSgtkYgtkUtextUwindowUwidget,(P)YPib((P)GTK_TEXT_WINDOW_WIDGET)); VARSET(YsamuruiSgtkYgtkUtextUwindowUtext,(P)YPib((P)GTK_TEXT_WINDOW_TEXT)); VARSET(YsamuruiSgtkYgtkUtextUwindowUleft,(P)YPib((P)GTK_TEXT_WINDOW_LEFT)); VARSET(YsamuruiSgtkYgtkUtextUwindowUright,(P)YPib((P)GTK_TEXT_WINDOW_RIGHT)); VARSET(YsamuruiSgtkYgtkUtextUwindowUtop,(P)YPib((P)GTK_TEXT_WINDOW_TOP)); VARSET(YsamuruiSgtkYgtkUtextUwindowUbottom,(P)YPib((P)GTK_TEXT_WINDOW_BOTTOM)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_new_with_buffer"); P lit_arg_0 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUnewUwithUbuffer), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUnewUwithUbuffer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_buffer"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"buffer"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUbuffer), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUbuffer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_buffer"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUbuffer), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUbuffer, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_scroll_to_iter"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"within_margin"); P lit_arg_3 = YPPsym((P)"use_align"); P lit_arg_4 = YPPsym((P)"xalign"); P lit_arg_5 = YPPsym((P)"yalign"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLfloG),VARREF(YLintG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)6), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUscrollUtoUiter), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUscrollUtoUiter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_scroll_to_mark"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"mark"); P lit_arg_2 = YPPsym((P)"within_margin"); P lit_arg_3 = YPPsym((P)"use_align"); P lit_arg_4 = YPPsym((P)"xalign"); P lit_arg_5 = YPPsym((P)"yalign"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLfloG),VARREF(YLintG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUscrollUtoUmark), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUscrollUtoUmark, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_scroll_mark_onscreen"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"mark"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUscrollUmarkUonscreen), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUscrollUmarkUonscreen, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_move_mark_onscreen"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"mark"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUmoveUmarkUonscreen), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUmoveUmarkUonscreen, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_place_cursor_onscreen"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUplaceUcursorUonscreen), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUplaceUcursorUonscreen, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_visible_rect"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"visible_rect"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUvisibleUrect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUvisibleUrect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_cursor_visible"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUcursorUvisible), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUcursorUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_cursor_visible"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUcursorUvisible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUcursorUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_iter_location"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"location"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUiterUlocation), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUiterUlocation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_iter_at_location"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"x"); P lit_arg_3 = YPPsym((P)"y"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUiterUatUlocation), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUiterUatUlocation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_line_yrange"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUlineUyrange), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUlineUyrange, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_line_at_y"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"target_iter"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"line_top"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUlineUatUy), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUlineUatUy, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_buffer_to_window_coords"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"win"); P lit_arg_2 = YPPsym((P)"buffer_x"); P lit_arg_3 = YPPsym((P)"buffer_y"); P lit_arg_4 = YPPsym((P)"window_x"); P lit_arg_5 = YPPsym((P)"window_y"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUbufferUtoUwindowUcoords), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUbufferUtoUwindowUcoords, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_window_to_buffer_coords"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"win"); P lit_arg_2 = YPPsym((P)"window_x"); P lit_arg_3 = YPPsym((P)"window_y"); P lit_arg_4 = YPPsym((P)"buffer_x"); P lit_arg_5 = YPPsym((P)"buffer_y"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUwindowUtoUbufferUcoords), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUwindowUtoUbufferUcoords, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_window"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"win"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUwindow), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_window_type"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"window"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUwindowUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUwindowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_border_window_size"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"type"); P lit_arg_2 = YPPsym((P)"size"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUborderUwindowUsize), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUborderUwindowUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_border_window_size"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUborderUwindowUsize), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUborderUwindowUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_forward_display_line"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUline), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_backward_display_line"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUline), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_forward_display_line_end"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUlineUend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUforwardUdisplayUlineUend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_backward_display_line_start"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUlineUstart), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUbackwardUdisplayUlineUstart, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_starts_display_line"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUstartsUdisplayUline), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUstartsUdisplayUline, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_move_visually"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"iter"); P lit_arg_2 = YPPsym((P)"count"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUmoveUvisually), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUmoveUvisually, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_add_child_at_anchor"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"anchor"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUaddUchildUatUanchor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUaddUchildUatUanchor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_add_child_in_window"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"which_window"); P lit_arg_3 = YPPsym((P)"xpos"); P lit_arg_4 = YPPsym((P)"ypos"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUaddUchildUinUwindow), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUaddUchildUinUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_move_child"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"child"); P lit_arg_2 = YPPsym((P)"xpos"); P lit_arg_3 = YPPsym((P)"ypos"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUmoveUchild), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUmoveUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_wrap_mode"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"wrap_mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUwrapUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUwrapUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_wrap_mode"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUwrapUmode), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUwrapUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_editable"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUeditable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUeditable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_editable"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUeditable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUeditable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_pixels_above_lines"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"pixels_above_lines"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUaboveUlines), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUaboveUlines, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_pixels_above_lines"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUaboveUlines), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUaboveUlines, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_pixels_below_lines"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"pixels_below_lines"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUbelowUlines), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUbelowUlines, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_pixels_below_lines"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUbelowUlines), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUbelowUlines, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_pixels_inside_wrap"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"pixels_inside_wrap"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUinsideUwrap), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUpixelsUinsideUwrap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_pixels_inside_wrap"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUinsideUwrap), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUpixelsUinsideUwrap, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_justification"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"justification"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUjustification), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUjustification, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_justification"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUjustification), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUjustification, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_left_margin"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"left_margin"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUleftUmargin), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUleftUmargin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_left_margin"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUleftUmargin), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUleftUmargin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_right_margin"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"right_margin"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUrightUmargin), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUrightUmargin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_right_margin"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUrightUmargin), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUrightUmargin, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_indent"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"indent"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUindent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUindent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_indent"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUindent), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUindent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_set_tabs"); P lit_arg_0 = YPPsym((P)"text_view"); P lit_arg_1 = YPPsym((P)"tabs"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUsetUtabs), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUsetUtabs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_tabs"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUtabs), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUtabs, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_text_view_get_default_attributes"); P lit_arg_0 = YPPsym((P)"text_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtextUviewUgetUdefaultUattributes), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtextUviewUgetUdefaultUattributes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tips_query_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtipsUqueryUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtipsUqueryUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tips_query_start_query"); P lit_arg_0 = YPPsym((P)"tips_query"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtipsUqueryUstartUquery), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtipsUqueryUstartUquery, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tips_query_stop_query"); P lit_arg_0 = YPPsym((P)"tips_query"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtipsUqueryUstopUquery), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtipsUqueryUstopUquery, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tips_query_set_caller"); P lit_arg_0 = YPPsym((P)"tips_query"); P lit_arg_1 = YPPsym((P)"caller"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtipsUqueryUsetUcaller), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtipsUqueryUsetUcaller, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tips_query_set_labels"); P lit_arg_0 = YPPsym((P)"tips_query"); P lit_arg_1 = YPPsym((P)"label_inactive"); P lit_arg_2 = YPPsym((P)"label_no_tip"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtipsUqueryUsetUlabels), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtipsUqueryUsetUlabels, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_new_with_mnemonic"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUmnemonic), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUnewUwithUmnemonic, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_set_mode"); P lit_arg_0 = YPPsym((P)"toggle_button"); P lit_arg_1 = YPPsym((P)"draw_indicator"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUsetUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUsetUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_get_mode"); P lit_arg_0 = YPPsym((P)"toggle_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUgetUmode), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUgetUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_set_active"); P lit_arg_0 = YPPsym((P)"toggle_button"); P lit_arg_1 = YPPsym((P)"is_active"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUsetUactive), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUsetUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_get_active"); P lit_arg_0 = YPPsym((P)"toggle_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUgetUactive), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUgetUactive, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_toggled"); P lit_arg_0 = YPPsym((P)"toggle_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUtoggled), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUtoggled, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_set_inconsistent"); P lit_arg_0 = YPPsym((P)"toggle_button"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUsetUinconsistent), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUsetUinconsistent, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toggle_button_get_inconsistent"); P lit_arg_0 = YPPsym((P)"toggle_button"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoggleUbuttonUgetUinconsistent), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoggleUbuttonUgetUinconsistent, methodDef); } VARSET(YsamuruiSgtkYgtkUtoolbarUchildUspace,(P)YPib((P)GTK_TOOLBAR_CHILD_SPACE)); VARSET(YsamuruiSgtkYgtkUtoolbarUchildUbutton,(P)YPib((P)GTK_TOOLBAR_CHILD_BUTTON)); VARSET(YsamuruiSgtkYgtkUtoolbarUchildUtogglebutton,(P)YPib((P)GTK_TOOLBAR_CHILD_TOGGLEBUTTON)); VARSET(YsamuruiSgtkYgtkUtoolbarUchildUradiobutton,(P)YPib((P)GTK_TOOLBAR_CHILD_RADIOBUTTON)); VARSET(YsamuruiSgtkYgtkUtoolbarUchildUwidget,(P)YPib((P)GTK_TOOLBAR_CHILD_WIDGET)); VARSET(YsamuruiSgtkYgtkUtoolbarUspaceUempty,(P)YPib((P)GTK_TOOLBAR_SPACE_EMPTY)); VARSET(YsamuruiSgtkYgtkUtoolbarUspaceUline,(P)YPib((P)GTK_TOOLBAR_SPACE_LINE)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_append_item"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); P lit_arg_4 = YPPsym((P)"icon"); P lit_arg_5 = YPPsym((P)"callback"); P lit_arg_6 = YPPsym((P)"user_data"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUappendUitem), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUappendUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_prepend_item"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); P lit_arg_4 = YPPsym((P)"icon"); P lit_arg_5 = YPPsym((P)"callback"); P lit_arg_6 = YPPsym((P)"user_data"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUprependUitem), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUprependUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_insert_item"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"text"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); P lit_arg_4 = YPPsym((P)"icon"); P lit_arg_5 = YPPsym((P)"callback"); P lit_arg_6 = YPPsym((P)"user_data"); P lit_arg_7 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(8,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)8), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUinsertUitem), methodSig, LITREF(methodName), YPPlist(8,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUinsertUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_insert_stock"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"stock_id"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); P lit_arg_4 = YPPsym((P)"callback"); P lit_arg_5 = YPPsym((P)"user_data"); P lit_arg_6 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)7), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUinsertUstock), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUinsertUstock, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_append_space"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUappendUspace), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUappendUspace, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_prepend_space"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUprependUspace), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUprependUspace, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_insert_space"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUinsertUspace), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUinsertUspace, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_remove_space"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUremoveUspace), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUremoveUspace, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_append_element"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"type"); P lit_arg_2 = YPPsym((P)"widget"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"tooltip_text"); P lit_arg_5 = YPPsym((P)"tooltip_private_text"); P lit_arg_6 = YPPsym((P)"icon"); P lit_arg_7 = YPPsym((P)"callback"); P lit_arg_8 = YPPsym((P)"user_data"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)9), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUappendUelement), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUappendUelement, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_prepend_element"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"type"); P lit_arg_2 = YPPsym((P)"widget"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"tooltip_text"); P lit_arg_5 = YPPsym((P)"tooltip_private_text"); P lit_arg_6 = YPPsym((P)"icon"); P lit_arg_7 = YPPsym((P)"callback"); P lit_arg_8 = YPPsym((P)"user_data"); methodSig = YPfab_sig(YPPlist(9,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)9), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUprependUelement), methodSig, LITREF(methodName), YPPlist(9,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUprependUelement, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_insert_element"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"type"); P lit_arg_2 = YPPsym((P)"widget"); P lit_arg_3 = YPPsym((P)"text"); P lit_arg_4 = YPPsym((P)"tooltip_text"); P lit_arg_5 = YPPsym((P)"tooltip_private_text"); P lit_arg_6 = YPPsym((P)"icon"); P lit_arg_7 = YPPsym((P)"callback"); P lit_arg_8 = YPPsym((P)"user_data"); P lit_arg_9 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(10,VARREF(YLlocG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)10), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUinsertUelement), methodSig, LITREF(methodName), YPPlist(10,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6),LITREF(lit_arg_7),LITREF(lit_arg_8),LITREF(lit_arg_9) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUinsertUelement, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_append_widget"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUappendUwidget), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUappendUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_prepend_widget"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUprependUwidget), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUprependUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_insert_widget"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"tooltip_text"); P lit_arg_3 = YPPsym((P)"tooltip_private_text"); P lit_arg_4 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUinsertUwidget), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUinsertUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_set_orientation"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"orientation"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUsetUorientation), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUsetUorientation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_set_style"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"style"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUsetUstyle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUsetUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_set_icon_size"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"icon_size"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUsetUiconUsize), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUsetUiconUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_set_tooltips"); P lit_arg_0 = YPPsym((P)"toolbar"); P lit_arg_1 = YPPsym((P)"enable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUsetUtooltips), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUsetUtooltips, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_unset_style"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUunsetUstyle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUunsetUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_unset_icon_size"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUunsetUiconUsize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUunsetUiconUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_get_orientation"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUgetUorientation), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUgetUorientation, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_get_style"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUgetUstyle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUgetUstyle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_get_icon_size"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUgetUiconUsize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUgetUiconUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_toolbar_get_tooltips"); P lit_arg_0 = YPPsym((P)"toolbar"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtoolbarUgetUtooltips), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtoolbarUgetUtooltips, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tooltips_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtooltipsUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtooltipsUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tooltips_enable"); P lit_arg_0 = YPPsym((P)"tooltips"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtooltipsUenable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtooltipsUenable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tooltips_disable"); P lit_arg_0 = YPPsym((P)"tooltips"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtooltipsUdisable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtooltipsUdisable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tooltips_set_tip"); P lit_arg_0 = YPPsym((P)"tooltips"); P lit_arg_1 = YPPsym((P)"widget"); P lit_arg_2 = YPPsym((P)"tip_text"); P lit_arg_3 = YPPsym((P)"tip_private"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLstrG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtooltipsUsetUtip), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtooltipsUsetUtip, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tooltips_data_get"); P lit_arg_0 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtooltipsUdataUget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtooltipsUdataUget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tooltips_force_window"); P lit_arg_0 = YPPsym((P)"tooltips"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtooltipsUforceUwindow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtooltipsUforceUwindow, methodDef); } VARSET(YsamuruiSgtkYgtkUtreeUviewUline,(P)YPib((P)GTK_TREE_VIEW_LINE)); VARSET(YsamuruiSgtkYgtkUtreeUviewUitem,(P)YPib((P)GTK_TREE_VIEW_ITEM)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_append"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUappend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUappend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_prepend"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUprepend), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUprepend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_insert"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"tree_item"); P lit_arg_2 = YPPsym((P)"position"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUinsert), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUinsert, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_remove_items"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"items"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUremoveUitems), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUremoveUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_clear_items"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"start"); P lit_arg_2 = YPPsym((P)"end"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUclearUitems), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUclearUitems, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_select_item"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_unselect_item"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUunselectUitem), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUunselectUitem, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_select_child"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectUchild), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_unselect_child"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUunselectUchild), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUunselectUchild, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_child_position"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"child"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUchildUposition), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUchildUposition, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_set_selection_mode"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUsetUselectionUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUsetUselectionUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_set_view_mode"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"mode"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUsetUviewUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUsetUviewUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_set_view_lines"); P lit_arg_0 = YPPsym((P)"tree"); P lit_arg_1 = YPPsym((P)"flag"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUsetUviewUlines), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUsetUviewUlines, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_new_with_label"); P lit_arg_0 = YPPsym((P)"label"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLstrG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUnewUwithUlabel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUnewUwithUlabel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_set_subtree"); P lit_arg_0 = YPPsym((P)"tree_item"); P lit_arg_1 = YPPsym((P)"subtree"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUsetUsubtree), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUsetUsubtree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_remove_subtree"); P lit_arg_0 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUremoveUsubtree), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUremoveUsubtree, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_select"); P lit_arg_0 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_deselect"); P lit_arg_0 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUdeselect), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUdeselect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_expand"); P lit_arg_0 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUexpand), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUexpand, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_item_collapse"); P lit_arg_0 = YPPsym((P)"tree_item"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUitemUcollapse), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUitemUcollapse, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_set_mode"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUsetUmode), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUsetUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_get_mode"); P lit_arg_0 = YPPsym((P)"selection"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUgetUmode), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUgetUmode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_set_select_function"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); P lit_arg_3 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUsetUselectUfunction), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUsetUselectUfunction, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_get_user_data"); P lit_arg_0 = YPPsym((P)"selection"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUgetUuserUdata), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUgetUuserUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_get_tree_view"); P lit_arg_0 = YPPsym((P)"selection"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUgetUtreeUview), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUgetUtreeUview, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_get_selected"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"model"); P lit_arg_2 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUgetUselected), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUgetUselected, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_selected_foreach"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"func"); P lit_arg_2 = YPPsym((P)"data"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUselectedUforeach), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUselectedUforeach, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_select_path"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUselectUpath), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUselectUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_unselect_path"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUunselectUpath), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUunselectUpath, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_select_iter"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUselectUiter), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUselectUiter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_unselect_iter"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUunselectUiter), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUunselectUiter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_path_is_selected"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUpathUisUselected), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUpathUisUselected, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_iter_is_selected"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"iter"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUiterUisUselected), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUiterUisUselected, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_select_all"); P lit_arg_0 = YPPsym((P)"selection"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUselectUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUselectUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_unselect_all"); P lit_arg_0 = YPPsym((P)"selection"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUunselectUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUunselectUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_selection_select_range"); P lit_arg_0 = YPPsym((P)"selection"); P lit_arg_1 = YPPsym((P)"start_path"); P lit_arg_2 = YPPsym((P)"end_path"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUselectionUselectUrange), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUselectionUselectUrange, methodDef); } VARSET(YsamuruiSgtkYgtkUtreeUviewUdropUbefore,(P)YPib((P)GTK_TREE_VIEW_DROP_BEFORE)); VARSET(YsamuruiSgtkYgtkUtreeUviewUdropUafter,(P)YPib((P)GTK_TREE_VIEW_DROP_AFTER)); VARSET(YsamuruiSgtkYgtkUtreeUviewUdropUintoUorUbefore,(P)YPib((P)GTK_TREE_VIEW_DROP_INTO_OR_BEFORE)); VARSET(YsamuruiSgtkYgtkUtreeUviewUdropUintoUorUafter,(P)YPib((P)GTK_TREE_VIEW_DROP_INTO_OR_AFTER)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_new_with_model"); P lit_arg_0 = YPPsym((P)"model"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUnewUwithUmodel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUnewUwithUmodel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_model"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUmodel), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUmodel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_model"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"model"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUmodel), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUmodel, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_selection"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUselection), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUselection, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_hadjustment"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUhadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_hadjustment"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUhadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_vadjustment"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUvadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_vadjustment"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUvadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_headers_visible"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUheadersUvisible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUheadersUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_headers_visible"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"headers_visible"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUvisible), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_columns_autosize"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnsUautosize), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnsUautosize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_headers_clickable"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUclickable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUheadersUclickable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_rules_hint"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUrulesUhint), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUrulesUhint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_rules_hint"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUrulesUhint), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUrulesUhint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_append_column"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUappendUcolumn), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUappendUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_remove_column"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUremoveUcolumn), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUremoveUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_move_column_after"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"column"); P lit_arg_2 = YPPsym((P)"base_column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUmoveUcolumnUafter), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUmoveUcolumnUafter, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_expander_column"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUexpanderUcolumn), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUexpanderUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_expander_column"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUexpanderUcolumn), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUexpanderUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_scroll_to_point"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"tree_x"); P lit_arg_2 = YPPsym((P)"tree_y"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUpoint), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUpoint, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_scroll_to_cell"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"use_align"); P lit_arg_4 = YPPsym((P)"row_align"); P lit_arg_5 = YPPsym((P)"col_align"); methodSig = YPfab_sig(YPPlist(6,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLfloG),VARREF(YLfloG) ), YPfalse, YPint((P)6), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUcell), methodSig, LITREF(methodName), YPPlist(6,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUscrollUtoUcell, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_row_activated"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUrowUactivated), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUrowUactivated, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_expand_all"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUexpandUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUexpandUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_collapse_all"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcollapseUall), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcollapseUall, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_expand_row"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"open_all"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUexpandUrow), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUexpandUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_collapse_row"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcollapseUrow), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcollapseUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_row_expanded"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUrowUexpanded), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUrowUexpanded, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_reorderable"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"reorderable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUreorderable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUreorderable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_reorderable"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUreorderable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUreorderable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_cursor"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"focus_column"); P lit_arg_3 = YPPsym((P)"start_editing"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUcursor), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUcursor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_cursor"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"focus_column"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUcursor), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUcursor, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_bin_window"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUbinUwindow), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUbinUwindow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_path_at_pos"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"x"); P lit_arg_2 = YPPsym((P)"y"); P lit_arg_3 = YPPsym((P)"path"); P lit_arg_4 = YPPsym((P)"column"); P lit_arg_5 = YPPsym((P)"cell_x"); P lit_arg_6 = YPPsym((P)"cell_y"); methodSig = YPfab_sig(YPPlist(7,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)7), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUpathUatUpos), methodSig, LITREF(methodName), YPPlist(7,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4),LITREF(lit_arg_5),LITREF(lit_arg_6) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUpathUatUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_cell_area"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"rect"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUcellUarea), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUcellUarea, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_background_area"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"column"); P lit_arg_3 = YPPsym((P)"rect"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUbackgroundUarea), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUbackgroundUarea, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_visible_rect"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"visible_rect"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUvisibleUrect), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUvisibleUrect, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_widget_to_tree_coords"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"wx"); P lit_arg_2 = YPPsym((P)"wy"); P lit_arg_3 = YPPsym((P)"tx"); P lit_arg_4 = YPPsym((P)"ty"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUwidgetUtoUtreeUcoords), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUwidgetUtoUtreeUcoords, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_tree_to_widget_coords"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"tx"); P lit_arg_2 = YPPsym((P)"ty"); P lit_arg_3 = YPPsym((P)"wx"); P lit_arg_4 = YPPsym((P)"wy"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUtreeUtoUwidgetUcoords), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUtreeUtoUwidgetUcoords, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_drag_dest_row"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"pos"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUdragUdestUrow), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUdragUdestUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_drag_dest_row"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); P lit_arg_2 = YPPsym((P)"pos"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUdragUdestUrow), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUdragUdestUrow, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_dest_row_at_pos"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"drag_x"); P lit_arg_2 = YPPsym((P)"drag_y"); P lit_arg_3 = YPPsym((P)"path"); P lit_arg_4 = YPPsym((P)"pos"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUdestUrowUatUpos), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUdestUrowUatUpos, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_create_row_drag_icon"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"path"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcreateUrowUdragUicon), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcreateUrowUdragUicon, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_search_column"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUcolumn), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_search_column"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUcolumn), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUcolumn, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_get_search_equal_func"); P lit_arg_0 = YPPsym((P)"tree_view"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUequalUfunc), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUgetUsearchUequalUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_set_search_equal_func"); P lit_arg_0 = YPPsym((P)"tree_view"); P lit_arg_1 = YPPsym((P)"search_equal_func"); P lit_arg_2 = YPPsym((P)"search_user_data"); P lit_arg_3 = YPPsym((P)"search_destroy"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUequalUfunc), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUsetUsearchUequalUfunc, methodDef); } VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgrowUonly,(P)YPib((P)GTK_TREE_VIEW_COLUMN_GROW_ONLY)); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUautosize,(P)YPib((P)GTK_TREE_VIEW_COLUMN_AUTOSIZE)); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUfixed,(P)YPib((P)GTK_TREE_VIEW_COLUMN_FIXED)); { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_type"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtype), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_pack_start"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"cell"); P lit_arg_2 = YPPsym((P)"expand"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUstart), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUstart, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_pack_end"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"cell"); P lit_arg_2 = YPPsym((P)"expand"); methodSig = YPfab_sig(YPPlist(3,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)3), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUend), methodSig, LITREF(methodName), YPPlist(3,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUpackUend, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_clear"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUclear), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUclear, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_cell_renderers"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUcellUrenderers), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUcellUrenderers, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_add_attribute"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"cell_renderer"); P lit_arg_2 = YPPsym((P)"attribute"); P lit_arg_3 = YPPsym((P)"column"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLstrG),VARREF(YLintG) ), YPfalse, YPint((P)4), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUaddUattribute), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUaddUattribute, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_cell_data_func"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"cell_renderer"); P lit_arg_2 = YPPsym((P)"func"); P lit_arg_3 = YPPsym((P)"func_data"); P lit_arg_4 = YPPsym((P)"destroy"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUcellUdataUfunc), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUcellUdataUfunc, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_clear_attributes"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"cell_renderer"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUclearUattributes), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUclearUattributes, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_spacing"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUspacing), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_spacing"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUspacing), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUspacing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_visible"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"visible"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUvisible), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_visible"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUvisible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_resizable"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"resizable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUresizable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUresizable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_resizable"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUresizable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUresizable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_sizing"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsizing), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsizing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_sizing"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsizing), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsizing, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_width"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_fixed_width"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUfixedUwidth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUfixedUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_fixed_width"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"fixed_width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUfixedUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUfixedUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_min_width"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"min_width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUminUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUminUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_min_width"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUminUwidth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUminUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_max_width"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"max_width"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUmaxUwidth), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUmaxUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_max_width"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUmaxUwidth), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUmaxUwidth, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_clicked"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUclicked), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUclicked, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_title"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"title"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLstrG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUtitle), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_title"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLstrG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtitle), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUtitle, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_clickable"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"clickable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUclickable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUclickable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_clickable"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUclickable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUclickable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_widget"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"widget"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUwidget), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_widget"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidget), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUwidget, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_alignment"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"xalign"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLfloG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUalignment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUalignment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_alignment"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLfloG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUalignment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUalignment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_reorderable"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"reorderable"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUreorderable), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUreorderable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_reorderable"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUreorderable), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUreorderable, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_sort_column_id"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"sort_column_id"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUcolumnUid), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUcolumnUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_sort_column_id"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUcolumnUid), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUcolumnUid, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_sort_indicator"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"setting"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUindicator), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUindicator, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_sort_indicator"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUindicator), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUindicator, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_set_sort_order"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"order"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUorder), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUsetUsortUorder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_get_sort_order"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUorder), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUgetUsortUorder, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_cell_set_cell_data"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"tree_model"); P lit_arg_2 = YPPsym((P)"iter"); P lit_arg_3 = YPPsym((P)"is_expander"); P lit_arg_4 = YPPsym((P)"is_expanded"); methodSig = YPfab_sig(YPPlist(5,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)5), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUsetUcellUdata), methodSig, LITREF(methodName), YPPlist(5,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3),LITREF(lit_arg_4) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUsetUcellUdata, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_cell_get_size"); P lit_arg_0 = YPPsym((P)"tree_column"); P lit_arg_1 = YPPsym((P)"cell_area"); P lit_arg_2 = YPPsym((P)"x_offset"); P lit_arg_3 = YPPsym((P)"y_offset"); methodSig = YPfab_sig(YPPlist(4,VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)4), VARREF(YLtupG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUgetUsize), methodSig, LITREF(methodName), YPPlist(4,LITREF(lit_arg_0),LITREF(lit_arg_1),LITREF(lit_arg_2),LITREF(lit_arg_3) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUgetUsize, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_view_column_cell_is_visible"); P lit_arg_0 = YPPsym((P)"tree_column"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUisUvisible), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUviewUcolumnUcellUisUvisible, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_vbutton_box_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUvbuttonUboxUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUvbuttonUboxUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_vbox_new"); P lit_arg_0 = YPPsym((P)"homogeneous"); P lit_arg_1 = YPPsym((P)"spacing"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLintG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUvboxUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUvboxUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_new"); P lit_arg_0 = YPPsym((P)"hadjustment"); P lit_arg_1 = YPPsym((P)"vadjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUnew), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_get_hadjustment"); P lit_arg_0 = YPPsym((P)"viewport"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUgetUhadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUgetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_get_vadjustment"); P lit_arg_0 = YPPsym((P)"viewport"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUgetUvadjustment), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUgetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_set_hadjustment"); P lit_arg_0 = YPPsym((P)"viewport"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUsetUhadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUsetUhadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_set_vadjustment"); P lit_arg_0 = YPPsym((P)"viewport"); P lit_arg_1 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLlocG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUsetUvadjustment), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUsetUvadjustment, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_set_shadow_type"); P lit_arg_0 = YPPsym((P)"viewport"); P lit_arg_1 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(2,VARREF(YLlocG),VARREF(YLintG) ), YPfalse, YPint((P)2), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUsetUshadowUtype), methodSig, LITREF(methodName), YPPlist(2,LITREF(lit_arg_0),LITREF(lit_arg_1) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUsetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_viewport_get_shadow_type"); P lit_arg_0 = YPPsym((P)"viewport"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLintG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUviewportUgetUshadowUtype), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUviewportUgetUshadowUtype, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_vscrollbar_new"); P lit_arg_0 = YPPsym((P)"adjustment"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUvscrollbarUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUvscrollbarUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_vseparator_new"); methodSig = YPfab_sig(YPPlist(0 ), YPfalse, YPint((P)0), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUvseparatorUnew), methodSig, LITREF(methodName), YPPlist(0 ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUvseparatorUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_window_new"); P lit_arg_0 = YPPsym((P)"type"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLintG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUwindowUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUwindowUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_goo_selection_get_node"); P lit_arg_0 = YPPsym((P)"sel"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUgooUselectionUgetUnode), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUgooUselectionUgetUnode, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_goo_new"); P lit_arg_0 = YPPsym((P)"gtv"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLanyG) ), YPfalse, YPint((P)1), VARREF(YLlocG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUgooUnew), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUgooUnew, methodDef); } { P methodSig, methodDef; P methodName = YPPsym((P)"gtk_tree_goo_refresh"); P lit_arg_0 = YPPsym((P)"tree_goo"); methodSig = YPfab_sig(YPPlist(1,VARREF(YLlocG) ), YPfalse, YPint((P)1), VARREF(YLanyG), Ynil); methodDef = YPfab_met(FUNCODEREF(YsamuruiSgtkYgtkUtreeUgooUrefresh), methodSig, LITREF(methodName), YPPlist(1,LITREF(lit_arg_0) ), YPfalse, YPfalse); VARSET(YsamuruiSgtkYgtkUtreeUgooUrefresh, methodDef); } } goo-0.155/src/samurui/gtkcallbacks.goo0100644000175000017500000000062307516104167017330 0ustar vomjomvomjom(use goo) (use samurui/gtk.swig) (dv goo-callbacks (vec)) (dv goo-callback-data (vec)) (dm goo_safeCreateCallback (a b) (add! goo-callbacks a) (add! goo-callback-data b) (goo_createCallback a b)) (dm goo_deleteCallback(a b) (set goo-callbacks (del-vals goo-callbacks a)) (set goo-callback-data (del-vals goo-callback-data b)) ) (export goo_safeCreateCallback goo_deleteCallback )goo-0.155/src/samurui/hobar.goo0100644000175000017500000002166507546417673016023 0ustar vomjomvomjom(use goo) (use samurui/samurui) ;; A HoBar display is made up of multiple HoBars stacked vertically which share a common ;; semantic dimension which is expressed across the x-axis. In some cases HoBars will be ;; used individually, in which case everything reduces to just a GUI widget that has a lot ;; of unused functionality. ;; One core example is that of a synthesizer supporting both drum beats and notes. The drum ;; HoBar can be represented as a series of boolean boxes. The 'piano' parts can be ;; represented as a staff (or a piano roll). When the two are combined together, they will share ;; a common scaling along the x-dimension so everything is synched up. In the case that one ;; scrolls, they all scroll. ;; Note that in case of scrolling, we aren't actually assuming a 1:1 mapping, My previous ;; experience in visualizations has led me to believe that visualization is sometimes most ;; useful in those cases where we don't have absolute information, but at least have some ;; information. In those cases, we want things to scroll appropriately. ;; In terms of the SamurUI model, we can think of the use of HoBars to be the parallel ;; visualizations of multiple items in a single collection. ;; Potential Uses: ;; - Drum Machine ;; - Pattern Editor ;; - Song Editor (Pattern Composition) ;; - E-mail Client ;; - Thread history navigation (idrawmodel-ext ;; Fitness evaluation ( (if (mem? attribs 'hobar) 100 1) ) ;; Init Magic ( ) ) (dp! wrapped ( => )) (dp! bars ( => ) (vec)) (dp! scale ( => ) 16) (dp! badge-space ( => ) 0) (dp! scroll-offset ( => ) 0) (dc ()) (dp! pimp ( => )) (dp! height ( => ) 32) (dp! item ( => )) (dg fab-ho (pimp| item| example-item| => )) ;; x,y are non-local coordinates. transform appropriately yourself (dg hobar-draw (hobar| widget| scale| scroll| clip|)) ;; x,y are local coordinates. no need to transform. (dg hobar-mouse-press (hobar| x| y| button|)) (dg hobar-mouse-release (hobar| x| y| button|)) (dg hobar-mouse-move (hobar| x| y| state|)) (dg hobar-item-payload (item| => )) ;; Returns: ;; - Number of items there are to display ;; - The minimum number of pixels per item required. (dg hobar-report-scale (hobar| => (tup ))) ;; ......:::::: Pimp (dm bind (pimp| info| => (tup )) (tup ;; -- Rebinder -- (fun (new-obj) ;; Detach from current if applicable (when (and (prop-bound? pimp wrapped) (wrapped pimp)) (zap! (bars pimp)) ) ;; (set (wrapped pimp) ((getter info) new-obj)) ;; Fab the bars (do (fun (item) (add! (bars pimp) (fab-ho pimp item (1st (hobar-item-payload item)))) ) (wrapped pimp)) ) ;; -- Refresher -- (fun () ;; Might need to re-fab the bars... (when (~= (len (bars pimp)) (len (wrapped pimp))) (zap! (bars pimp)) ;; Fab the bars (do (fun (item) (add! (bars pimp) (fab-ho pimp item (1st (hobar-item-payload item)))) ) (wrapped pimp)) ) (repaint-widget pimp) ) ;; -- Free / Cleanup -- (fun () ) ) ) (dm rescale (pimp|) (def avail-width (- (gui-width pimp) (badge-space pimp))) (rep loop ((ho-enum (enum (bars pimp))) (max-items 0) (min-pix avail-width)) (if (not (fin? ho-enum)) (seq (def cur-ho (now ho-enum)) (def answer (hobar-report-scale cur-ho)) (loop (nxt ho-enum) (max max-items (1st answer)) (min min-pix (2nd answer))) ) (seq (def min-req-pix (* max-items min-pix)) (set (scale pimp) (if (> min-req-pix avail-width) min-pix (div avail-width max-items) ) ) ) ) ) ) (dm repaint-widget (pimp|) ;; White it out (blank pimp) (when (< 0 (len (bars pimp))) ;; Rescale (rescale pimp) ;; Paint (rep loop ((ho-enum (enum (bars pimp))) (cur-x (badge-space pimp)) (cur-y 0)) (when (not (fin? ho-enum)) (def cur-ho (now ho-enum)) (hobar-draw cur-ho pimp (scale pimp) 0 (rect cur-x cur-y (gui-width pimp) (height cur-ho))) (loop (nxt ho-enum) cur-x (+ cur-y (height cur-ho))) ) ) ) (invalidate-all pimp) ) (dm pimp-find-ho (pimp| x| y|) (rep loop ((ho-enum (enum (bars pimp))) (cur-x x) (cur-y y)) (when (not (fin? ho-enum)) (def cur-ho (now ho-enum)) (if (< cur-y (height cur-ho)) cur-ho (loop (nxt ho-enum) cur-x (- cur-y (height cur-ho)))) ) ) ) (dm get-ho-vert-offset (hobar|) (rep loop ((ho-enum (enum (bars (pimp hobar)))) (cur-y 0)) (when (not (fin? ho-enum)) (def cur-ho (now ho-enum)) (if (== cur-ho hobar) cur-y (loop (nxt ho-enum) (+ cur-y (height cur-ho)))) ) ) ) (dm mouse-press (pimp| x| y| button| time|) (def ho (pimp-find-ho pimp x y)) (when ho (hobar-mouse-press ho x (- y (get-ho-vert-offset ho)) button) ) ) (dm mouse-release (pimp| x| y| button| time|) (def ho (pimp-find-ho pimp x y)) (when ho (hobar-mouse-release ho x (- y (get-ho-vert-offset ho)) button) ) ) (dm mouse-move (pimp| x| y| state|) (def ho (pimp-find-ho pimp x y)) (when ho (hobar-mouse-move ho x (- y (get-ho-vert-offset ho)) state) ) ) (dm hobar-invalidate (hobar|) (invalidate (pimp hobar) (rect 0 (get-ho-vert-offset hobar) (gui-width (pimp hobar)) (height hobar))) ) ;; ......:::::: BoolBox (dv c_line (color 5 5 5)) (dv c_true (color 128 192 128)) (dv c_false (color 64 96 64)) (dc ()) (dm fab-ho (pimp| item| example-item| => ) (def ho (new )) (set (pimp ho) pimp) (set (item ho) item) ho ) (dm hobar-draw (boolbox| widget| scale| scroll| clip|) (def start-idx (div scroll scale)) (def n-boxes (len (hobar-item-payload (item boolbox)))) (def end-idx (min n-boxes (+ start-idx (div (rect-w clip) scale)))) (def pix-per-box scale) (rep loop ((i-box start-idx)) (when (< i-box end-idx) (def cur-box-val (elt (hobar-item-payload (item boolbox)) i-box)) (def box-rect (rect (+ (rect-x clip) (* pix-per-box i-box)) (rect-y clip) pix-per-box (height boolbox))) (draw-rect widget box-rect #t (if cur-box-val c_true c_false)) (draw-rect widget box-rect #f c_line) (loop (+ i-box 1)) ) ) ) (dm hobar-mouse-press (boolbox| x| y| button|) (def start-idx (div (scroll-offset (pimp boolbox)) (scale (pimp boolbox)))) (def n-boxes (len (hobar-item-payload (item boolbox)))) (def pix-per-box (scale (pimp boolbox))) (def cur-idx (+ start-idx (div x pix-per-box))) (def end-idx (min n-boxes (+ start-idx (div (- (gui-width (pimp boolbox)) (badge-space (pimp boolbox))) (scale (pimp boolbox)))))) (when (<= cur-idx end-idx) (def cur-val (elt (hobar-item-payload (item boolbox)) cur-idx)) (set (elt (hobar-item-payload (item boolbox)) cur-idx) (not cur-val)) (repaint-widget (pimp boolbox)) (hobar-invalidate boolbox) ) ) (dm hobar-mouse-release (boolbox| x| y| button|) ) (dm hobar-mouse-move (boolbox| x| y| state|) ) (dm hobar-report-scale (boolbox| => (tup )) (tup (len (hobar-item-payload (item boolbox))) ;; how many items? 4) ;; Our boxes need to be at least 4 pix wide ) (export wrapped wrapped-setter bars bars-setter ) (export pimp pimp-setter height height-setter item item-setter scale scale-setter scroll-offset scroll-offset-setter badge-space badge-space-setter hobar-draw hobar-invalidate hobar-mouse-press hobar-mouse-release hobar-mouse-move hobar-report-scale fab-ho hobar-item-payload)goo-0.155/src/samurui/intrinsic.goo0100644000175000017500000000370207622277526016716 0ustar vomjomvomjom(use goo) (use samurui/samurui) ;; Intrinsic rendering... color, shape, size, (texture, transparentcy), etc. ;; Lightweight object drawing protocol. (dc ()) (dg draw-lightweight (canvas| at-point| renderer| item|)) (dg get-lightweight-dimensions (renderer| item| => )) (dc ()) (dv $pretty-blue #f) (dm map-color (renderer| item| => ) (unless $pretty-blue (set $pretty-blue (color 0 16 192)) ) $pretty-blue ) (dm draw-lightweight (canvas| at-point| renderer| item|) (draw-ellipse canvas (rect-around (floor (point-x at-point)) (floor (point-y at-point)) 4 4) #t (map-color renderer item)) ) (dm get-lightweight-dimensions (renderer| item| => ) (rect 0 0 8 8) ) (dm point-in-lightweight (renderer| item| object-point| test-point| => ) (def dx (- (point-x test-point) (point-x object-point))) (def dy (- (point-y test-point) (point-y object-point))) (> 16 (+ (* dx dx) (* dy dy))) ) ;; Mapping Techniques: ;; Explicit set mapping -- each unique value mapped to a unique shape/color ;; Range mapping -- for numeric values, map a given percentage in the range to a given ;; swath of color-space, or parametric shape morphing, etc. ;; Derived values... decorated? Statistical analyses of a set, colorize based on deviation, etc. ;; Specialized heuristics, possibly based on consuming James's quantities? ;; -- since the dimensions are explicit, we can tell when we're talking about temperature, ;; speed, etc. (export draw-lightweight get-lightweight-dimensions point-in-lightweight map-color ) goo-0.155/src/samurui/samurui.goo0100644000175000017500000004217107622277526016404 0ustar vomjomvomjom(use goo) (use goo/system) (use goo/boot) (use samurui/gtk.swig) (use samurui/treegoo.h) (use samurui/treegoo.c) (use samurui/gtkcallbacks) (use samurui/core/metadata) (use samurui/core/macros) (use samurui/core/geom) (use samurui/core/gtkwrapping) (use samurui/core/util) (use samurui/core/graphics) (use samurui/core/masterslave) (use samurui/core/renderize) (use samurui/core/constraints) (use samurui/core/menus) (use samurui/core/visicol) (use samurui/core/visiwrapcol) (use samurui/core/treeview) (use/include /usr/include/gtk-2.0) (use/include /usr/lib/gtk-2.0/include) (use/include /usr/include/atk-1.0) (use/include /usr/include/pango-1.0) (use/include /usr/X11R6/include) (use/include /usr/include/freetyp2) (use/include /usr/include/glib-2.0) (use/include /usr/lig/glib-2.0/include) ;; Todo: ;; Allow sizing hints for canvases. ; ---- ; -- ; --- Present (like presentation, not gift or here) ; -- (dm rebind-interface-model ((updaters ) (obj )) (do (fun ((updater-tup )) ((1st updater-tup) obj)) updaters ) ) (dm update-interface-model ((updaters )) (do (fun ((updater-tup )) ((2nd updater-tup)) ) updaters ) ) ; Presentation constructs a top-level window to display the object. (df kill-gtk (x) (gtk_main_quit) ) (dv *samurui-inited* #f) (df samurui-init () (unless *samurui-inited* (gtk_init_easy) (set *samurui-inited* #t) ) ) (df samurui-go () (samurui-init) (gtk_main) ) (dm present (obj) (samurui-init) (let ((window (gui-window)) (kill-gtk-cb (goo_safeCreateCallback kill-gtk 0)) (class (class-of obj)) (model (find-interface-model class root-interface (vec))) (updaters (fab 0)) ) ; set up the window for death on destroy (gtk_signal_connect (handle window) "destroy" (gtk_getGtkCallback) kill-gtk-cb) (msg out "About to add-all\n") (ad! window (renderize-model model root-interface class updaters (fab 0))) (msg out "About to rebind\n") (rebind-interface-model updaters obj) (msg out "About to update\n") (update-interface-model updaters) (msg out "About to show\n") (show window) ) ) ;; ;;;;;;;;;; ;; ;; Rectangles ;; ;; ;;;;;;;;;; ;; ; -event hooks- ; Provide default event hooks for widgets (df hook-configure-event (data widget event) (reconfigure data widget) #t ) (df hook-expose-event (data widget event) (let ((area (_GdkEventExpose_area_get event)) (r-area (new ))) (set (handle r-area) area) (repaint data r-area) ) #t ) (dg mouse-press (widget x| y| button| time|)) (dg mouse-release (widget x| y| button| time|)) (dg mouse-move (widget x| y| state|)) (df hook-mouse-press (data widget event) (mouse-press data ; data is our widget... widget is their widget! (round (_GdkEventButton_x_get event)) (round (_GdkEventButton_y_get event)) (_GdkEventButton_button_get event) (_GdkEventButton_time_get event) ) #t ) (df hook-mouse-release (data widget event) (mouse-release data ; data is our widget... widget is their widget! (round (_GdkEventButton_x_get event)) (round (_GdkEventButton_y_get event)) (_GdkEventButton_button_get event) (_GdkEventButton_time_get event) ) #t ) (df hook-mouse-move (data widget event) (let ((vRet (gdk_window_get_pointer (_GdkEventMotion_window_get event))) (x (elt vRet 1)) (y (elt vRet 2)) (state (elt vRet 3))) (mouse-move data (round x) (round y) state) ) #t ) (dm hookify ((imagebox )) (let ((hWidget (handle (paintbox imagebox))) (cb-mouse-press (goo_safeCreateCallback hook-mouse-press imagebox)) (cb-mouse-release (goo_safeCreateCallback hook-mouse-release imagebox)) (cb-mouse-move (goo_safeCreateCallback hook-mouse-move imagebox)) (cb-expose-event (goo_safeCreateCallback hook-expose-event imagebox)) (cb-configure-event (goo_safeCreateCallback hook-configure-event imagebox))) (g_signal_connect hWidget "button_press_event" (gtk_getBoolEventCallback) cb-mouse-press) (g_signal_connect hWidget "button_release_event" (gtk_getBoolEventCallback) cb-mouse-release) (g_signal_connect hWidget "motion_notify_event" (gtk_getBoolEventCallback) cb-mouse-move) (g_signal_connect hWidget "expose_event" (gtk_getBoolEventCallback) cb-expose-event) (g_signal_connect hWidget "configure_event" (gtk_getBoolEventCallback) cb-configure-event) ;; ask to receive events the drawing area doesn't normally subscribe to (gtk_widget_set_events hWidget (| (| (| (| (| (| (gtk_widget_get_events hWidget) GDK_BUTTON_PRESS_MASK) GDK_BUTTON_RELEASE_MASK) GDK_POINTER_MOTION_MASK) GDK_POINTER_MOTION_HINT_MASK) GDK_EXPOSURE_MASK) GDK_STRUCTURE_MASK)) ) ) (dm mouse-click ((widget ) (x ) (y ) (button )) #f) (dm mouse-move ((widget ) (x ) (y ) (state )) #f) ; -bindings- ; ; The task of a binding can be thought of to be similar to an enzyme. For it to ; be useful it must lock onto both the GUI object in question and the object ; that is supposed to be represented. ; ; We want: ; * The GUI state to be initialized to conform with the state of the object ; * Updates to the GUI to be reflected in the object ; * Updates to the object to be reflected in the GUI. ; ; Given that the lifetime of the enzyme and GUI object should outlive the attachment ; to the object, we want to be able to de-couple and re-couple easily and without ; creating horrible memory and resource leaks. ; ; As such, we want a binding to provide three functions once initial setup has been done ; 1: Re-bind to a new object, so that GUI actions are triggered on the right objects. ; 2: Refresh the GUI state to be in-sync with the object. ; 3: De-bind ; ; Given the design of everything, it makes sense for bindings to exist on a property-level ; granularity. (dg drawmodel-model (widget| => )) (dg drawmodel-model-setter (obj| widget|)) (dm bind (widget| info| => (tup )) (tup (fun (new-obj) (set (drawmodel-model widget) ((getter info) new-obj))) (fun ()) (fun ()) ) ) ; Constructs a binding (dm bind ((textbox ) (info ) => (tup )) (let ((cur-obj #f) (callback (fun (data widget) ;(msg out "Callback!\n") ((setter info) (gtk_entry_get_text (handle textbox)) cur-obj) ))) ; Establish our hooks into the gui object (g_signal_connect (handle textbox) "activate" (gtk_getGtkCallback) (goo_safeCreateCallback callback 0)) ; Construct the helper functions (tup ; Establish re-binder (fun (new-obj) ;(msg out "Rebinding!\n") (set cur-obj new-obj) ) ; Establish refresher (fun () ;(msg out "Refreshing!\n") (gtk_entry_set_text (handle textbox) (as ((getter info)cur-obj))) ) ; This is where we would de-bind if memory ; weren't so cheap that we don't need to ; worry about memory leaks. ; (ha ha ha, I'm funny.) ; But really, it would be a good idea to free stuff here. (fun () ; free your mind! ) ) ) ) ; Constructs a binding (dm bind ((spin ) (info ) => (tup )) (let ((cur-obj #f) (relevant-gtk-getter (if (= (type info) ) gtk_spin_button_get_value_as_int gtk_spin_button_get_value)) (callback (fun (data widget) ((setter info) (relevant-gtk-getter (handle spin)) cur-obj) ))) ; Establish our hooks into the gui object (g_signal_connect (handle spin) "value-changed" (gtk_getGtkCallback) (goo_safeCreateCallback callback 0)) ; Construct the helper functions (tup ; Establish re-binder (fun (new-obj) ;(msg out "Rebinding!\n") (set cur-obj new-obj) ) ; Establish refresher (fun () ;(msg out "Refreshing!\n") (gtk_spin_button_set_value (handle spin) (as ((getter info) cur-obj))) ) ; This is where we would de-bind if memory ; weren't so cheap that we don't need to ; worry about memory leaks. ; (ha ha ha, I'm funny.) ; But really, it would be a good idea to free stuff here. (fun () ; free your mind! ) ) ) ) ; Constructs a binding (dm bind ((toggle ) (info ) => (tup )) (let ((cur-obj #f) (callback (fun (data widget) ;(msg out "Callback!\n") ((setter info) (gtk-to-log (gtk_toggle_button_get_active (handle toggle))) cur-obj) ;;(msg out "Callback done!\n") ))) ; Establish our hooks into the gui object (g_signal_connect (handle toggle) "toggled" (gtk_getGtkCallback) (goo_safeCreateCallback callback 0)) ; Construct the helper functions (tup ; Establish re-binder (fun (new-obj) ;(msg out "Rebinding!\n") (set cur-obj new-obj) ) ; Establish refresher (fun () ;(msg out "Refreshing!\n") (gtk_toggle_button_set_active (handle toggle) (log-to-gtk ((getter info) cur-obj))) ) ; This is where we would de-bind if memory ; weren't so cheap that we don't need to ; worry about memory leaks. ; (ha ha ha, I'm funny.) ; But really, it would be a good idea to free stuff here. (fun () ; free your mind! ) ) ) ) (dm bind-master (container| master| => ) (esc found-it (do (fun (child) (when (bind-master child master) (found-it #t) ) ) (children container) ) ) ) (register-interface-model (interface-model (fun (item attribs) 1) (fun (info class updaters) (let ((textbox (gui-textbox)) (textbox-updater (bind textbox info))) (ad! updaters textbox-updater) textbox ) ) ) ) (register-interface-model (interface-model (fun (item attribs) 1) (fun (info class updaters) (let ((spinbox (gui-spinbutton (to-adjustment (constraint info)))) (spinbox-updater (bind spinbox info))) (ad! updaters spinbox-updater) spinbox ) ) ) ) (register-interface-model (interface-model (fun (item attribs) 1) (fun (info class updaters) (let ((checkbox (gui-check-button (description info))) (checkbox-updater (bind checkbox info))) (ad! updaters checkbox-updater) checkbox ) ) ) ) ;;;;;;; EXPORTS (export *default-samurui-font* get-default-samurui-font ) ;; Classes (export ) ;; Glorious functions (export interface-action interface-property interface-class-info interface-model imodel-eval imodel-payload register-interface-model has-interface-model? get-interface-model get-interface-models find-interface-model add-all! add-all-opt! find-first-class get-class-info add-property add-action get-class-actions get-all-actions find-action get-class-properties get-all-properties find-property rebind-interface-model update-interface-model kill-gtk present log-to-gtk gtk-to-log free gui-width gui-height gui-window gui-vbox gui-hbox ad! ad-opt! show show-all gui-button connect gui-check-button gui-label gui-textbox gui-menu popup gui-menu-item-label gdk-rect rect-x rect-y rect-w rect-h grow! free rect rect-around rect-to-gdk shrink! point point-in-rect ;; point-to-gdk ;; gdk-point point-x point-x-setter point-y point-y-setter circle circle-p circle-p-setter circle-r circle-r-setter line line-p1 line-p1-setter line-p2 line-p2-setter dist sqdist intersect line-point-by-param gui-paintbox gui-canvas gui-canvas-ext gdk-gc gdk-colormap color color-hsb realize fg-setter bg-setter font gui-imagebox reconfigure blank drawable get-gc hookify repaint repaint-widget mouse-click mouse-move drawable-handle draw-blit draw-rect draw-arc draw-ellipse draw-polygon draw-line draw-string draw-string-ul draw-string-center string-width string-height font-ascent font-height invalidate-all invalidate bind visi-wrap-col visi-reversablize get-start-node node-label node-weight node-browsable register-node-add-notification remove-node-add-notification register-edge-add-notification remove-edge-add-notification node-axes node-out-edges node-in-edges axis-to-str gui-treeview gimme-menu renderize-model renderize mouse-press mouse-release mouse-move ) (export name name-setter method method-setter description description-setter type type-setter getter getter-setter setter setter-setter constraint constraint-setter properties properties-setter actions actions-setter handle handle-setter attrs attrs-setter children children-setter colormap colormap-setter gc gc-setter realized-into realized-into-setter paintbox paintbox-setter canvas canvas-setter ;; wrapped ;; wrapped-setter ;; parent-hash ;; parent-hash-setter ;; collection ;; collection-setter ;; axis ;; axis-setter ;; prop-axes ;; prop-axes-setter ;; model ;; model-setter ;; children ;; children-setter bind-master master-update-slaves ) (export samurui-init samurui-go iprop ipropc iaction imodel iview idrawmodel idrawmodel-ext ) (export font-lucida ) (export drawmodel-model drawmodel-model-setter ) (export lbound lbound-setter ubound ubound-setter small-increment small-increment-setter large-increment large-increment-setter num-constraint to-adjustment )goo-0.155/src/samurui/starburst.goo0100644000175000017500000002147507546417673016760 0ustar vomjomvomjom(use goo) (use samurui/samurui) (use samurui/gtk.swig) (use samurui/gtkcallbacks) (idrawmodel ) (dp! wrapped ( => (t? )) #f) (dp! current-root ( => )) (dp! navigation-stack ( => ) (vec)) (dp! axis ( => ) "implicit") (dp! sb-master ( => (t? )) #f) (dv *up-node* (gensym)) (dm bind (sb| info| => (tup )) (tup ;; -- Rebinder -- (fun (new-obj) ;; Detach from current if applicable (when (wrapped sb) ;; um... nop for now ) ;; (set (wrapped sb) ((getter info) new-obj)) (set (current-root sb) (get-start-node (wrapped sb))) ) ;; -- Refresher -- (fun () ;; When we update the rebinder code... update this too by using a common method or something... ;; (paint-starburst sb) ) ;; -- Free / Cleanup -- (fun () ) ) ) (dm bind-master (sb| master| => ) (set (sb-master sb) master) #t ) ;; ----- Painting ---------------------------------------------------------------------- ;; So let's have the center circle, plus 3 layers of rings. (dv *starburst-colors* (vec)) (df free-starburst-colors () (do free *starburst-colors*) (set *starburst-colors* (vec)) ) (df gimme-rgb-color (r| g| b|) (def c (color r g b)) (add! *starburst-colors* c) c ) (df gimme-color (ang0| ang1| ring|) (def h (/ (/ (+ ang0 ang1) 2) 360.0)) (def s (/ (- 4.0 (as ring)) 4.0)) (def c (color-hsb h s 1.0)) (add! *starburst-colors* c) c ) (df gimme-dark-color (ang0| ang1| ring|) (def h (/ (/ (+ ang0 ang1) 2) 360.0)) (def s (/ (- 4.0 (as ring)) 4.0)) (def c (color-hsb h s 0.7)) (add! *starburst-colors* c) c ) ;; In theory we should recurse before we paint our own (df paint-ring (sb| cur-node cur-depth| cur-radius| unit-radius| min-angle| max-angle| max-depth| center-x| center-y|) (def my-rect (rect-around center-x center-y cur-radius cur-radius)) (def weight-scale (/ (- max-angle min-angle) (node-weight (wrapped sb) cur-node))) (def kids (node-out-edges (wrapped sb) (axis sb) cur-node)) ;; Recurse over kids if applicable (unless (= cur-depth max-depth) (def next-ring (+ cur-depth 1)) (def next-radius (+ cur-radius unit-radius)) (rep loop ((kid-enum (enum kids)) (base-ang min-angle)) (unless (fin? kid-enum) (def cur-kid (now kid-enum)) (def my-max-ang (+ base-ang (* weight-scale (node-weight (wrapped sb) cur-kid)))) (when (> (len (node-out-edges (wrapped sb) (axis sb) cur-kid)) 0) (paint-ring sb cur-kid next-ring next-radius unit-radius base-ang my-max-ang max-depth center-x center-y ) ) (loop (nxt kid-enum) my-max-ang) ) ) ) ;; Paint! (def my-r (rect-around center-x center-y cur-radius cur-radius)) (rep loop ((kid-enum (enum kids)) (base-ang min-angle)) (unless (fin? kid-enum) (def cur-kid (now kid-enum)) (def my-max-ang (+ base-ang (* weight-scale (node-weight (wrapped sb) cur-kid)))) (draw-arc sb my-r base-ang my-max-ang #t (gimme-color base-ang my-max-ang cur-depth)) (draw-arc sb my-r base-ang my-max-ang #f (gimme-dark-color base-ang my-max-ang cur-depth)) ;; (msg out "Arc: Ang(%= %=) Weight: %= Depth: %=\n" base-ang my-max-ang (node-weight (wrapped sb) cur-kid) cur-depth) (loop (nxt kid-enum) my-max-ang) ) ) ) (dm repaint-widget (sb|) (paint-starburst sb) ) (dm paint-starburst (sb|) (free-starburst-colors) (blank sb) (def (tup limiting-axis max-size) (if (< (gui-width sb) (gui-height sb)) (tup 'x (gui-width sb)) (tup 'y (gui-height sb)))) (def center-x (div (gui-width sb) 2)) (def center-y (div (gui-height sb) 2)) (def unit-radius (div max-size 8)) (def r0 (rect-around center-x center-y unit-radius unit-radius)) (paint-ring sb (current-root sb) 1 (* unit-radius 2) unit-radius 0.0 360.0 3 center-x center-y) (def black (gimme-rgb-color 0 0 0)) (draw-arc sb r0 0.0 360.0 #t (gimme-rgb-color 255 255 255)) (draw-arc sb r0 0.0 360.0 #f black) (draw-string-center sb (get-default-samurui-font) center-x center-y "Up" black) (invalidate-all sb) ) (dm find-node (sb| x| y|) (def (tup limiting-axis max-size) (if (< (gui-width sb) (gui-height sb)) (tup 'x (gui-width sb)) (tup 'y (gui-height sb)))) (def center-x (div (gui-width sb) 2)) (def center-y (div (gui-height sb) 2)) (def unit-radius (div max-size 8)) (def rel-x (- x center-x)) (def rel-y (- y center-y)) (def theta (atan2 (as rel-y) (as rel-x))) (def r (dist (point center-x center-y) (point x y))) (when (< theta 0) (set theta (+ theta (* 2 $pi)))) (set theta (- (* $pi 2) theta)) (def ring (floor (/ r unit-radius))) (if (= ring 0) *up-node* (seq (def angle (/ (* 180.0 theta) $pi)) ;;(msg out "Looking for thing at r: %= angle: %= ring: %=\n" r angle ring) (find-node-in-ring sb (current-root sb) 1 (* unit-radius 2) unit-radius 0.0 360.0 angle ring) ) ) ) (dm find-node-in-ring (sb| cur-node cur-depth cur-radius unit-radius min-angle max-angle actual-angle actual-ring) (esc found-it (def next-ring (+ cur-depth 1)) (def next-radius (+ cur-radius unit-radius)) (def weight-scale (/ (- max-angle min-angle) (node-weight (wrapped sb) cur-node))) (def kids (node-out-edges (wrapped sb) (axis sb) cur-node)) (rep loop ((kid-enum (enum kids)) (base-ang min-angle)) (unless (fin? kid-enum) (def cur-kid (now kid-enum)) (def my-max-ang (+ base-ang (* weight-scale (node-weight (wrapped sb) cur-kid)))) ;; Are we in the right angular range? (msg out "Considering (%= %=) %=\n" base-ang my-max-ang cur-depth) (when (and (>= actual-angle base-ang) (< actual-angle my-max-ang)) (if (< cur-depth actual-ring) ;; Recurse (seq (if (> (len (node-out-edges (wrapped sb) (axis sb) cur-kid)) 0) (found-it (find-node-in-ring sb cur-kid next-ring next-radius unit-radius base-ang my-max-ang actual-angle actual-ring )) (msg out "SCREWED\n") ) ) ;; Found it (found-it cur-kid) ) ) (loop (nxt kid-enum) my-max-ang) ) ) ) ) (df move (sb| new-node) (if (== *up-node* new-node) (move-up sb) (move-down sb new-node) ) ) (df move-down (sb| new-node) (push! (navigation-stack sb) (current-root sb)) (set (current-root sb) new-node) (paint-starburst sb) ) (df move-up (sb|) (when (not (empty? (navigation-stack sb))) (set (current-root sb) (popf (navigation-stack sb))) (paint-starburst sb) ) ) (dm mouse-press ((widget ) (x ) (y ) (button ) (time )) (case button ((1) (def da-node (find-node widget x y)) (msg out "Node is: %=\n" da-node) (when (and (and (and (sb-master widget) da-node) (~= da-node *up-node*)) (node-browsable (wrapped widget) da-node)) (master-update-slaves (sb-master widget) da-node) ) (when (and da-node (or (= *up-node* da-node) (not (node-browsable (wrapped widget) da-node)))) (move widget da-node) ) ) ((2) (paint-starburst widget) ) ((3) (paint-starburst widget) ) ) ) (dm mouse-release ((widget ) (x ) (y ) (button ) (time )) (case button ((1) ) ((2) ) ((3) ) ) ) (dm mouse-move ((widget ) (x ) (y ) (state )) )goo-0.155/src/samurui/starbursttest.goo0100644000175000017500000000426407546417673017655 0ustar vomjomvomjom(use goo) (use samurui/samurui) (use samurui/gtk.swig) (use samurui/starburst) (dc ()) ;; There is no need to actually wrap a string. Just pretend this is a more complicated class that ;; does something of value. (dc ()) (iprop da-str "DaString") (dm hold (s|) (def o (new )) (set (da-str o) s) o ) (dm to-str (h| => ) (da-str h) ) ;; Ditto on numbers. No need to wrap, but pretend there's other stuff going on. (dc ()) (ipropc da-int "DaInt" (num-constraint 0 100)) (dm hold (i|) (def o (new )) (set (da-int o) i) o ) (dm to-str (h| => ) (to-str (da-int h)) ) (iprop tree-nodes "Tree Nodes") (dv my-app (new )) (set (tree-nodes my-app) (visi-wrap-col (vec (hold "Apples") (hold "Bananas") (hold "Pears" ) (vec (hold 1) (hold 2) (hold 3)) (vec (vec (hold "Spaceships") (hold "Monkeys") (hold "Dogs") (vec (hold "Enterprise") (hold "Endeavor") (hold "Challenger")) (vec (hold "Soup") (hold "Crackers")) (hold "Zoos")) (hold "Kings") (hold "Queens") (hold "Pawns")) ))) (iview "Current Int" da-int ) (iview "Current String" da-str ) (iview (attr (columns (master bob (attr tree-nodes fill)) (slave bob) ) fill) ) (samurui-init) (present my-app) (samurui-go)goo-0.155/src/samurui/test.goo0100644000175000017500000000440307547136010015656 0ustar vomjomvomjom(use goo) (use samurui/samurui) (use samurui/gtk) ;; test.goo is a trivial drawing application. ;; the left (1st) mouse button, draws a box in the current color ;; the right (2nd) mouse button changes the color ;; the middle (3rd) mouse button writes out a string but clips it incorrectly ; ------- Simulation App Singelton ; Drawing Areas (dc ()) (idrawmodel ) (dc ()) (iprop scribble "Scribble") (dv c_red (color 255 0 0)) (dv c_lred (color 128 0 0)) (dv c_green (color 0 255 0)) (dv c_lgreen (color 0 128 0)) (dv c_blue (color 0 0 255)) (dv c_lblue (color 0 0 128)) (dv cur_color 0) (dv my_colors (tup (tup c_lred c_red) (tup c_lgreen c_green) (tup c_lblue c_blue))) (dm mouse-press ((widget ) (x ) (y ) (button ) (time )) (case button ; Draw boxes! ((1) (let ((r (rect (- x 8) (- y 8) 16 16))) (draw-rect widget r #t (1st (elt my_colors cur_color))) (shrink! r 1) (draw-rect widget r #t (2nd (elt my_colors cur_color))) (grow! r 1) (invalidate widget r) )) ; Write text confirmation number: 121749 ((2) (def my-str "Goo!") (def my-font (get-default-samurui-font)) (def ax x) (def ay (- y (font-ascent my-font))) (def inv-rect (rect ax ay (string-width my-font my-str) (string-height my-font my-str))) (draw-string widget my-font x y my-str (1st (elt my_colors cur_color))) (invalidate widget inv-rect) ) ; Change colors ((3) (incf cur_color) (when (>= cur_color (len my_colors)) (set cur_color 0) ) ) ) ) (dm mouse-release ((widget ) (x ) (y ) (button ) (time ))) (dm mouse-move ((widget ) (x ) (y ) (state )) (unless (= (& state GDK_BUTTON1_MASK) 0) (mouse-press widget x y 1 1) ) ) ; -------- Interface Models (imodel "Magic Scribble" (attr scribble fill) ) (samurui-init) (dv simhat (new )) (set (scribble simhat) (new )) (present simhat) (samurui-go)goo-0.155/src/samurui/test2.goo0100644000175000017500000000277007547136010015745 0ustar vomjomvomjom(use goo) (use samurui/samurui) (use samurui/gtk.swig) (dc ()) (dc ()) (iprop da-str "DaString") (dm hold (s|) (def o (new )) (set (da-str o) s) o ) (dm to-str (h| => ) (da-str h) ) (iprop tree-nodes "Tree Nodes") (dv my-app (new )) (set (tree-nodes my-app) (vec (hold "Apples") (hold "Bananas") (hold "Pears" ) (vec (hold "Cows") (hold "Pigs") (hold "Ducks")) (vec (vec (hold "Spaceships") (hold "Monkeys") (hold "Dogs") (vec (hold "Enterprise") (hold "Endeavor") (hold "Challenger")) (vec (hold "Soup") (hold "Crackers")) (hold "Zoos")) (hold "Kings") (hold "Queens") (hold "Pawns")) )) (imodel "Tree View Hopefully" (attr tree-nodes fill scroll) ) (samurui-init) (present my-app) (samurui-go)goo-0.155/src/samurui/test3.goo0100644000175000017500000000405707547412367015762 0ustar vomjomvomjom(use goo) (use goo/random) (use samurui/samurui) (use samurui/gtk.swig) (use samurui/gtkcallbacks) ;; This file demonstrates drawing a polygon, and animation I guess. ;; It draws a polygon whose vertices randomly drive around, centered ;; on the mouse's location. (dc ()) (df tick-dummy (dummy) (def p (elt cur-points (random 4))) (set (point-x p) (+ (point-x p) (- (random 3) 1))) (set (point-y p) (+ (point-y p) (- (random 3) 1))) (repaint-widget dummy) ) (idrawmodel ;; (gtk_idle_add (gtk_getGtkFunctionCallback) ;; (goo_safeCreateCallback tick-dummy imagebox)) ) (dc ()) (dp! scribble ( => )) (dv c_red (color 255 0 0)) (dv c_lred (color 128 0 0)) (dv cur-x 0) (dv cur-y 0) (dv cur-points (tup (point -5 -5) (point 5 -5) (point 5 5) (point -5 5))) (dm mouse-press ((widget ) (x ) (y ) (button ) (time )) ) (dm mouse-release ((widget ) (x ) (y ) (button ) (time )) ) (dm mouse-move ((widget ) (x ) (y ) (state )) (set cur-x x) (set cur-y y) (repaint-widget widget) ) (dm transform-points-by-point (points| mod-point| => ) (map (fun (p) (point (+ (point-x p) (point-x mod-point)) (+ (point-y p) (point-y mod-point)))) points) ) (dm repaint-widget (widget|) (def rel-points (transform-points-by-point cur-points (point cur-x cur-y))) (blank widget) (draw-polygon widget rel-points #t c_red) (draw-polygon widget rel-points #f c_lred) (invalidate-all widget) ) ; -------- Interface Models (imodel "Magic Polygon" (attr scribble fill) ) (samurui-init) (dv simhat (new )) (set (scribble simhat) (new )) (present simhat) ;;(samurui-go) (df moo () (while (~= (gtk_events_pending) 0) (gtk_main_iteration_do 0)) ) (export moo ) goo-0.155/src/samurui/treegoo.c0100644000175000017500000005075507546417673016034 0ustar vomjomvomjom/* gtktreestore.c * Copyright (C) 2000 Red Hat, Inc., Jonathan Blandford * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. * * You should have received a copy of the GNU Library General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include #include #include #include #include #include "treegoo.h" #define GTK_TREE_GOO_IS_SORTED(tree) (GTK_TREE_GOO (tree)->sort_column_id != -2) #define VALID_ITER(iter, tree_store) (iter!= NULL && iter->user_data != NULL && tree_store->stamp == iter->stamp) /* We need: - The 'collection' we're using [can go in the model info] - The current node [iter] - Ancestors of the current node [linked list in iter] - Indices of ourselves and our ancestors [cur node's index in its parent in iter] By maintaining a chain of ancestors we deal with that nasty thing, although there is the issue of reference counting or freeing or what not... */ /* So there's a fundamental problem with representing the backwards 'parent' edges. This can either be dealt with here, or in the actual collection view. The downside is that it requires a meta-model to be going on. The worst case scenario I can imagine is that the meta-model builds up a nearly complete alternate representation of the data in hand. The problem stems from the fact that the naive collection implementation can't reprsent back-edges simply. But a more sophisticated implementation (graph, database) presumably could implement back-edges both easily and efficiently. As such, it seems clear that the burden must lie on the collection view. Forcing a distinctness property on the nodes on the tree is not egregious. The one downside is that the collec */ /* We use the TreeIter structure like so: (stamp: as expected, sanity checking) user_data - The node we actually point to. */ static void gtk_tree_goo_init (GtkTreeGoo *tree_goo); static void gtk_tree_goo_class_init (GtkTreeGooClass *tree_goo_class); static void gtk_tree_goo_tree_model_init (GtkTreeModelIface *iface); //static void gtk_tree_goo_drag_source_init(GtkTreeDragSourceIface *iface); //static void gtk_tree_goo_drag_dest_init (GtkTreeDragDestIface *iface); //static void gtk_tree_goo_sortable_init (GtkTreeSortableIface *iface); static void gtk_tree_goo_finalize (GObject *object); static guint gtk_tree_goo_get_flags (GtkTreeModel *tree_model); static gint gtk_tree_goo_get_n_columns (GtkTreeModel *tree_model); static GType gtk_tree_goo_get_column_type (GtkTreeModel *tree_model, gint index); static gboolean gtk_tree_goo_get_iter (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreePath *path); static GtkTreePath *gtk_tree_goo_get_path (GtkTreeModel *tree_model, GtkTreeIter *iter); static void gtk_tree_goo_get_value (GtkTreeModel *tree_model, GtkTreeIter *iter, gint column, GValue *value); static gboolean gtk_tree_goo_iter_next (GtkTreeModel *tree_model, GtkTreeIter *iter); static gboolean gtk_tree_goo_iter_children (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *parent); static gboolean gtk_tree_goo_iter_has_child (GtkTreeModel *tree_model, GtkTreeIter *iter); static gint gtk_tree_goo_iter_n_children (GtkTreeModel *tree_model, GtkTreeIter *iter); static gboolean gtk_tree_goo_iter_nth_child (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *parent, gint n); static gboolean gtk_tree_goo_iter_parent (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *child); static void gtk_tree_goo_set_n_columns (GtkTreeGoo *tree_goo, gint n_columns); static void gtk_tree_goo_set_column_type (GtkTreeGoo *tree_goo, gint column, GType type); EXT(YsamuruiScoreStreeviewYgtk_tv_get_start_node, "samurui/samurui", "gtk-tv-get-start-node"); EXT(YsamuruiScoreStreeviewYgtk_tv_get_label, "samurui/samurui", "gtk-tv-get-label"); EXT(YsamuruiScoreStreeviewYgtk_tv_get_n_columns, "samurui/samurui", "gtk-tv-get-n-columns"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_children, "samurui/samurui", "gtk-tv-iter-children"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_has_child, "samurui/samurui", "gtk-tv-iter-has-child"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_n_children, "samurui/samurui", "gtk-tv-iter-n-children"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_next_child, "samurui/samurui", "gtk-tv-iter-next-child"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_nth_child, "samurui/samurui", "gtk-tv-iter-nth-child"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_parent, "samurui/samurui", "gtk-tv-iter-parent"); EXT(YsamuruiScoreStreeviewYgtk_tv_iter_has_parent, "samurui/samurui", "gtk-tv-iter-has-parent"); EXT(YsamuruiScoreStreeviewYgtk_tv_node_pos_in_parent, "samurui/samurui", "gtk-tv-node-pos-in-parent"); /* DND interfaces */ /* static gboolean gtk_tree_goo_drag_data_delete (GtkTreeDragSource *drag_source, GtkTreePath *path); static gboolean gtk_tree_goo_drag_data_get (GtkTreeDragSource *drag_source, GtkTreePath *path, GtkSelectionData *selection_data); static gboolean gtk_tree_goo_drag_data_received (GtkTreeDragDest *drag_dest, GtkTreePath *dest, GtkSelectionData *selection_data); static gboolean gtk_tree_goo_row_drop_possible (GtkTreeDragDest *drag_dest, GtkTreePath *dest_path, GtkSelectionData *selection_data); */ /* Sortable Interfaces */ /* static void gtk_tree_goo_sort (GtkTreeGoo *tree_goo); static void gtk_tree_goo_sort_iter_changed (GtkTreeGoo *tree_goo, GtkTreeIter *iter, gint column); static gboolean gtk_tree_goo_get_sort_column_id (GtkTreeSortable *sortable, gint *sort_column_id, GtkSortType *order); static void gtk_tree_goo_set_sort_column_id (GtkTreeSortable *sortable, gint sort_column_id, GtkSortType order); static void gtk_tree_goo_set_sort_func (GtkTreeSortable *sortable, gint sort_column_id, GtkTreeIterCompareFunc func, gpointer data, GtkDestroyNotify destroy); static void gtk_tree_goo_set_default_sort_func (GtkTreeSortable *sortable, GtkTreeIterCompareFunc func, gpointer data, GtkDestroyNotify destroy); static gboolean gtk_tree_goo_has_default_sort_func (GtkTreeSortable *sortable); static void validate_gnode (GNode *node); */ static GObjectClass *parent_class = NULL; GtkType gtk_tree_goo_get_type (void) { static GType tree_goo_type = 0; if (!tree_goo_type) { static const GTypeInfo tree_goo_info = { sizeof (GtkTreeGooClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) gtk_tree_goo_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (GtkTreeGoo), 0, /* n_preallocs */ (GInstanceInitFunc) gtk_tree_goo_init }; static const GInterfaceInfo tree_model_info = { (GInterfaceInitFunc) gtk_tree_goo_tree_model_init, NULL, NULL }; /* static const GInterfaceInfo drag_source_info = { (GInterfaceInitFunc) gtk_tree_goo_drag_source_init, NULL, NULL }; static const GInterfaceInfo drag_dest_info = { (GInterfaceInitFunc) gtk_tree_goo_drag_dest_init, NULL, NULL }; static const GInterfaceInfo sortable_info = { (GInterfaceInitFunc) gtk_tree_goo_sortable_init, NULL, NULL }; */ tree_goo_type = g_type_register_static (G_TYPE_OBJECT, "GtkTreeGoo", &tree_goo_info, 0); g_type_add_interface_static (tree_goo_type, GTK_TYPE_TREE_MODEL, &tree_model_info); /* g_type_add_interface_static (tree_goo_type, GTK_TYPE_TREE_DRAG_SOURCE, &drag_source_info); g_type_add_interface_static (tree_goo_type, GTK_TYPE_TREE_DRAG_DEST, &drag_dest_info); g_type_add_interface_static (tree_goo_type, GTK_TYPE_TREE_SORTABLE, &sortable_info); */ } return tree_goo_type; } static void gtk_tree_goo_class_init (GtkTreeGooClass *class) { GObjectClass *object_class; parent_class = g_type_class_peek_parent (class); object_class = (GObjectClass *) class; object_class->finalize = gtk_tree_goo_finalize; } static void gtk_tree_goo_tree_model_init (GtkTreeModelIface *iface) { iface->get_flags = gtk_tree_goo_get_flags; iface->get_n_columns = gtk_tree_goo_get_n_columns; iface->get_column_type = gtk_tree_goo_get_column_type; iface->get_iter = gtk_tree_goo_get_iter; iface->get_path = gtk_tree_goo_get_path; iface->get_value = gtk_tree_goo_get_value; iface->iter_next = gtk_tree_goo_iter_next; iface->iter_children = gtk_tree_goo_iter_children; iface->iter_has_child = gtk_tree_goo_iter_has_child; iface->iter_n_children = gtk_tree_goo_iter_n_children; iface->iter_nth_child = gtk_tree_goo_iter_nth_child; iface->iter_parent = gtk_tree_goo_iter_parent; } /* static void gtk_tree_goo_drag_source_init (GtkTreeDragSourceIface *iface) { iface->drag_data_delete = gtk_tree_goo_drag_data_delete; iface->drag_data_get = gtk_tree_goo_drag_data_get; } static void gtk_tree_goo_drag_dest_init (GtkTreeDragDestIface *iface) { iface->drag_data_received = gtk_tree_goo_drag_data_received; iface->row_drop_possible = gtk_tree_goo_row_drop_possible; } static void gtk_tree_goo_sortable_init (GtkTreeSortableIface *iface) { iface->get_sort_column_id = gtk_tree_goo_get_sort_column_id; iface->set_sort_column_id = gtk_tree_goo_set_sort_column_id; iface->set_sort_func = gtk_tree_goo_set_sort_func; iface->set_default_sort_func = gtk_tree_goo_set_default_sort_func; iface->has_default_sort_func = gtk_tree_goo_has_default_sort_func; } */ static void gtk_tree_goo_init (GtkTreeGoo *tree_goo) { /* While the odds are against us getting 0... */ do { tree_goo->stamp = g_random_int (); } while (tree_goo->stamp == 0); } // Selection magic P gtk_tree_goo_selection_get_node(GtkTreeSelection *sel) { GtkTreeIter myIter; if(!gtk_tree_selection_get_selected(sel, NULL, &myIter)) { return YPfalse; } else // we good, let's return this biyatch { return myIter.user_data; // it's a P! } } /** * gtk_tree_goo_new: * @n_columns: number of columns in the tree store * @Varargs: all #GType types for the columns, from first to last * * Creates a new tree store as with @n_columns columns each of the types passed * in. As an example, gtk_tree_goo_new (3, G_TYPE_INT, G_TYPE_STRING, * GDK_TYPE_PIXBUF); will create a new #GtkTreeGoo with three columns, of type * int, string and #GdkPixbuf respectively. * * Return value: a new #GtkTreeGoo **/ GtkTreeGoo * gtk_tree_goo_new (P gtv) { GtkTreeGoo *tree_goo; DEFCREGS(); tree_goo = GTK_TREE_GOO (g_object_new (GTK_TYPE_TREE_GOO, NULL)); tree_goo->gui_tree_view = gtv; tree_goo->root = XCALL1(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_get_start_node), tree_goo->gui_tree_view); tree_goo->n_columns = (gint)YPiu(XCALL1(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_get_n_columns), tree_goo->gui_tree_view)); return tree_goo; } void gtk_tree_goo_refresh(GtkTreeGoo *tree_goo) { /* GtkTreePath *myPath; GtkTreeIter myIter; */ DEFCREGS(); tree_goo->root = XCALL1(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_get_start_node), tree_goo->gui_tree_view); tree_goo->n_columns = (gint)YPiu(XCALL1(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_get_n_columns), tree_goo->gui_tree_view)); /* myPath = gtk_tree_path_new (); myIter.stamp = tree_goo->stamp; myIter.user_data = tree_goo->root; gtk_tree_model_row_changed((GtkTreeModel *)tree_goo, myPath, &myIter); gtk_tree_path_free(myPath); */ } static void gtk_tree_goo_finalize (GObject *object) { GtkTreeGoo *tree_goo = GTK_TREE_GOO (object); (* parent_class->finalize) (object); } /* fulfill the GtkTreeModel requirements */ /* NOTE: GtkTreeGoo::root is a GNode, that acts as the parent node. However, * it is not visible to the tree or to the user., and the path "0" refers to the * first child of GtkTreeGoo::root. */ static guint gtk_tree_goo_get_flags (GtkTreeModel *tree_model) { g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), 0); //return GTK_TREE_MODEL_ITERS_PERSIST; return 0; } static gint gtk_tree_goo_get_n_columns (GtkTreeModel *tree_model) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), 0); return tree_goo->n_columns; } static GType gtk_tree_goo_get_column_type (GtkTreeModel *tree_model, gint index) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), G_TYPE_INVALID); g_return_val_if_fail (index < GTK_TREE_GOO (tree_model)->n_columns && index >= 0, G_TYPE_INVALID); //tree_goo->columns_dirty = TRUE; //return tree_goo->column_headers[index]; return G_TYPE_STRING; } static gboolean gtk_tree_goo_get_iter (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreePath *path) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; GtkTreeIter parent; gint *indices; gint depth, i; g_return_val_if_fail (GTK_IS_TREE_GOO (tree_goo), FALSE); tree_goo->columns_dirty = TRUE; indices = gtk_tree_path_get_indices (path); depth = gtk_tree_path_get_depth (path); g_return_val_if_fail (depth > 0, FALSE); parent.stamp = tree_goo->stamp; parent.user_data = tree_goo->root; if (! gtk_tree_model_iter_nth_child (tree_model, iter, &parent, indices[0])) return FALSE; for (i = 1; i < depth; i++) { parent = *iter; if (! gtk_tree_model_iter_nth_child (tree_model, iter, &parent, indices[i])) return FALSE; } return TRUE; } static GtkTreePath * gtk_tree_goo_get_path (GtkTreeModel *tree_model, GtkTreeIter *iter) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; GtkTreePath *retval; P parent; P our_index; gint i = 0; DEFCREGS(); g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), NULL); g_return_val_if_fail (iter != NULL, NULL); g_return_val_if_fail (iter->user_data != NULL, NULL); g_return_val_if_fail (iter->stamp == GTK_TREE_GOO (tree_model)->stamp, NULL); parent = XCALL2(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_parent), tree_goo->gui_tree_view, iter->user_data); if ((parent == YPfalse) || (parent == tree_goo->root)) return gtk_tree_path_new (); if (parent == tree_goo->root) { retval = gtk_tree_path_new (); } else { GtkTreeIter tmp_iter = *iter; // Find the path to our parent tmp_iter.user_data = parent; retval = gtk_tree_goo_get_path (tree_model, &tmp_iter); } if (retval == NULL) return NULL; // Find our index our_index = XCALL3(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_node_pos_in_parent), tree_goo->gui_tree_view, iter->user_data, parent); if(our_index == YPfalse) { /* We couldn't find node, meaning it's prolly not ours */ gtk_tree_path_free (retval); return NULL; } i = (int)YPiu(our_index); gtk_tree_path_append_index (retval, i); return retval; } static void gtk_tree_goo_get_value (GtkTreeModel *tree_model, GtkTreeIter *iter, gint column, GValue *value) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; P label_value; DEFCREGS(); g_return_if_fail (GTK_IS_TREE_GOO (tree_model)); g_return_if_fail (iter != NULL); g_return_if_fail (column < GTK_TREE_GOO (tree_model)->n_columns); label_value = XCALL3(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_get_label), tree_goo->gui_tree_view, iter->user_data, YPib((P)column)); g_value_init(value, G_TYPE_STRING); g_value_set_string(value, (gchar *)YPsu(label_value)); } static gboolean gtk_tree_goo_iter_next (GtkTreeModel *tree_model, GtkTreeIter *iter) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; DEFCREGS(); g_return_val_if_fail (iter->user_data != NULL, FALSE); iter->user_data = XCALL2(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_next_child), tree_goo->gui_tree_view, iter->user_data); if(iter->user_data == YPfalse) return FALSE; else return TRUE; } // Set iterator to first child of parent if it has children, otherwise ret false. static gboolean gtk_tree_goo_iter_children (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *parent) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; P children; P pnode; DEFCREGS(); g_return_val_if_fail (parent == NULL || parent->user_data != NULL, FALSE); if (parent) pnode = parent->user_data; else pnode = tree_goo->root; children = XCALL2(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_children), tree_goo->gui_tree_view, pnode); if (children != YPfalse) { iter->stamp = GTK_TREE_GOO (tree_model)->stamp; iter->user_data = children; return TRUE; } else return FALSE; } // Does the node have kids? static gboolean gtk_tree_goo_iter_has_child (GtkTreeModel *tree_model, GtkTreeIter *iter) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; DEFCREGS(); g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), FALSE); g_return_val_if_fail (iter->stamp == GTK_TREE_GOO (tree_model)->stamp, FALSE); g_return_val_if_fail (iter->user_data != NULL, FALSE); return (XCALL2(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_has_child), tree_goo->gui_tree_view, iter->user_data) != YPfalse); } // How many kids does it have? (NULL iter => return num of toplevel) static gint gtk_tree_goo_iter_n_children (GtkTreeModel *tree_model, GtkTreeIter *iter) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; P pnode; DEFCREGS(); g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), 0); g_return_val_if_fail (iter == NULL || iter->user_data != NULL, FALSE); if (iter == NULL) pnode = tree_goo->root; else pnode = iter->user_data; return (int)YPiu(XCALL2(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_n_children), tree_goo->gui_tree_view, pnode)); } // Set iter to the nth child of parent. false on insane n static gboolean gtk_tree_goo_iter_nth_child (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *parent, gint n) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; P pnode; P child; DEFCREGS(); g_return_val_if_fail (GTK_IS_TREE_GOO (tree_model), FALSE); g_return_val_if_fail (parent == NULL || parent->user_data != NULL, FALSE); if (parent == NULL) pnode = tree_goo->root; else pnode = parent->user_data; child = XCALL3(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_nth_child), tree_goo->gui_tree_view, pnode, YPib((P)n)); if (child != YPfalse) { iter->stamp = GTK_TREE_GOO (tree_model)->stamp; iter->user_data = child; return TRUE; } else return FALSE; } static gboolean gtk_tree_goo_iter_parent (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *child) { GtkTreeGoo *tree_goo = (GtkTreeGoo *) tree_model; P parent; DEFCREGS(); g_return_val_if_fail (iter != NULL, FALSE); g_return_val_if_fail (child->user_data != NULL, FALSE); parent = XCALL2(0, VARREF(YsamuruiScoreStreeviewYgtk_tv_iter_parent), tree_goo->gui_tree_view, child->user_data); if (parent != YPfalse) { iter->user_data = parent; iter->stamp = GTK_TREE_GOO (tree_model)->stamp; return TRUE; } else return FALSE; } goo-0.155/src/samurui/treegoo.h0100644000175000017500000000453507526002315016011 0ustar vomjomvomjom/* Kludged version of treestore.h * Modified to support goo graph abstraction implementation * * Copyright (C) 2000 Red Hat, Inc., Jonathan Blandford * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. * * You should have received a copy of the GNU Library General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #ifndef __GTK_TREE_GOO_H__ #define __GTK_TREE_GOO_H__ #include //#include #include #include "grt.h" //#include "dlgrt.h" #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ #define GTK_TYPE_TREE_GOO (gtk_tree_goo_get_type ()) #define GTK_TREE_GOO(obj) (GTK_CHECK_CAST ((obj), GTK_TYPE_TREE_GOO, GtkTreeGoo)) #define GTK_TREE_GOO_CLASS(klass) (GTK_CHECK_CLASS_CAST ((klass), GTK_TYPE_TREE_GOO, GtkTreeGooClass)) #define GTK_IS_TREE_GOO(obj) (GTK_CHECK_TYPE ((obj), GTK_TYPE_TREE_GOO)) #define GTK_IS_TREE_GOO_CLASS(klass) (GTK_CHECK_CLASS_TYPE ((klass), GTK_TYPE_TREE_GOO)) #define GTK_TREE_GOO_GET_CLASS(obj) (GTK_CHECK_GET_CLASS ((obj), GTK_TYPE_TREE_GOO, GtkTreeGooClass)) typedef struct _GtkTreeGoo GtkTreeGoo; typedef struct _GtkTreeGooClass GtkTreeGooClass; struct _GtkTreeGoo { GObject parent; P gui_tree_view; P root; gint stamp; gpointer last; gint n_columns; // gint sort_column_id; // GList *sort_list; // GtkSortType order; // GType *column_headers; // GtkTreeIterCompareFunc default_sort_func; // gpointer default_sort_data; // GtkDestroyNotify default_sort_destroy; guint columns_dirty : 1; }; struct _GtkTreeGooClass { GObjectClass parent_class; }; GtkType gtk_tree_goo_get_type (void); GtkTreeGoo *gtk_tree_goo_new (); #ifdef __cplusplus } #endif /* __cplusplus */ #endif /* __GTK_TREE_GOO_H__ */ goo-0.155/src/samurui/core/0040755000175000017500000000000007756746030015136 5ustar vomjomvomjomgoo-0.155/src/samurui/core/CVS/0040755000175000017500000000000007756746030015571 5ustar vomjomvomjomgoo-0.155/src/samurui/core/CVS/Root0100644000175000017500000000003307756746030016430 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/samurui/core/CVS/Repository0100644000175000017500000000002507756746030017665 0ustar vomjomvomjomgoo/src/samurui/core goo-0.155/src/samurui/core/CVS/Entries0100644000175000017500000000111207756746030017115 0ustar vomjomvomjom/constraints.goo/1.2/Tue Oct 1 22:20:46 2002// /geom.goo/1.2/Tue Oct 1 22:20:46 2002// /graphics.goo/1.2/Tue Oct 1 22:20:46 2002// /gtkwrapping.goo/1.3/Tue Feb 11 22:56:10 2003// /macros.goo/1.5/Tue Feb 11 22:56:10 2003// /masterslave.goo/1.2/Tue Oct 1 22:20:46 2002// /menus.goo/1.2/Tue Oct 1 22:20:46 2002// /metadata.goo/1.2/Tue Oct 1 22:20:46 2002// /renderize.goo/1.2/Tue Feb 11 22:56:10 2003// /treeview.goo/1.4/Tue Feb 11 22:56:10 2003// /util.goo/1.2/Tue Jan 14 22:10:06 2003// /visicol.goo/1.1/Thu Sep 19 00:29:50 2002// /visiwrapcol.goo/1.3/Tue Feb 11 22:56:10 2003// D goo-0.155/src/samurui/core/constraints.goo0100644000175000017500000000252207546417676020221 0ustar vomjomvomjom(use goo) (use samurui/gtk.swig) (use samurui/core/metadata) ; -- ; --- Interface Constraints ; -- (dc ()) (dc ()) (dp! lbound ( => )) (dp! ubound ( => )) (dp! small-increment ( => ) 1) (dp! large-increment ( => ) 10) (dc ()) (dp! lbound ( => )) (dp! ubound ( => )) (dp! small-increment ( => ) 1.0) (dp! large-increment ( => ) 10.0) (dm num-constraint (low| high| => ) (def constraint (new )) (set (lbound constraint) low) (set (ubound constraint) high) constraint ) (dm num-constraint (low| high| => ) (def constraint (new )) (set (lbound constraint) low) (set (ubound constraint) high) constraint ) (dc ()) (export ) (export lbound lbound-setter ubound ubound-setter small-increment small-increment-setter large-increment large-increment-setter constraint constraint-setter ) (export num-constraint )goo-0.155/src/samurui/core/geom.goo0100644000175000017500000001440107546417676016600 0ustar vomjomvomjom(use goo) (dc ()) (dc ()) (dp! rect-x ( => )) (dp! rect-y ( => )) (dp! rect-w ( => )) (dp! rect-h ( => )) (dm rect (x| y| w| h| => ) (def r (new )) (set (rect-x r) x) (set (rect-y r) y) (set (rect-w r) w) (set (rect-h r) h) r ) (dm rect-around (x| y| half-width| half-vert| => ) (rect (- x half-width) (- y half-vert) (* 2 half-width) (* 2 half-vert)) ) (dm grow! ((r ) (size )) (decf (rect-x r) size) (decf (rect-y r) size) (incf (rect-w r) (* size 2)) (incf (rect-h r) (* size 2)) ) (dm shrink! ((r ) (size )) (grow! r (- 0 size)) ) (dm free ((rect )) ;; NOP now ) (dc ()) (dc ()) (dp! point-x ( => )) (dp! point-y ( => )) (dc ()) (dp! point-x ( => )) (dp! point-y ( => )) (dm point (x| y| => ) (def p (new )) (set (point-x p) x) (set (point-y p) y) p ) (dm point (x| y| => ) (def p (new )) (set (point-x p) x) (set (point-y p) y) p ) (dm point-in-rect (p| r|) (and (> (point-x p) (rect-x r)) (> (point-y p) (rect-y r)) (< (point-x p) (+ (rect-x r) (rect-w r))) (< (point-y p) (+ (rect-y r) (rect-h r))) ) ) (dc ()) (dp! circle-p ( => )) (dp! circle-r ( => )) (dm circle (x| y| r| => ) (def c (new )) (set (circle-p c) (point x y)) (set (circle-r c) r) c ) (dc ()) (dp! line-p1 ( => )) (dp! line-p2 ( => )) (dm line (p1| p2| => ) (def l (new )) (set (line-p1 l) p1) (set (line-p2 l) p2) l ) (dc ()) (dp! line-p1 ( => )) (dp! line-p2 ( => )) (dm line (p1| p2| => ) (def l (new )) (set (line-p1 l) p1) (set (line-p2 l) p2) l ) (dm dist (p1| p2| => ) (def dx (- (point-x p1) (point-x p2))) (def dy (- (point-y p1) (point-y p2))) (sqrt (+ (* dx dx) (* dy dy))) ) (dm sqdist (p1| p2| => ) (def dx (- (point-x p1) (point-x p2))) (def dy (- (point-y p1) (point-y p2))) (+ (* dx dx) (* dy dy)) ) (dm intersect (c1| c2| => ) (def d (dist (circle-p c1) (circle-p c2))) (def a (/ (+ (- (* (circle-r c1) (circle-r c1)) (* (circle-r c2) (circle-r c2))) (* d d)) (* 2 d))) (def p2 (point (+ (point-x (circle-p c1)) (/ (* a (- (point-x (circle-p c2)) (point-x (circle-p c1)))) d)) (+ (point-y (circle-p c1)) (/ (* a (- (point-y (circle-p c2)) (point-y (circle-p c1)))) d)) )) (def h (sqrt (abs (- (* (circle-r c1) (circle-r c1)) (* a a))))) (def rsx (/ (* h (- (point-y (circle-p c2)) (point-y (circle-p c1)))) d)) (def rsy (/ (* h (- (point-x (circle-p c2)) (point-x (circle-p c1)))) d)) (line (point (+ (point-x p2) rsx) (- (point-y p2) rsy)) (point (- (point-x p2) rsx) (+ (point-y p2) rsy))) ) (dm line-point-by-param (l| u| => ) (point (+ (point-x (line-p1 l)) (* u (- (point-x (line-p2 l)) (point-x (line-p1 l))))) (+ (point-y (line-p1 l)) (* u (- (point-y (line-p2 l)) (point-y (line-p1 l)))))) ) ;; Intersection of a circle and a point is returned as a vector ;; as there can be 0, 1, or 2 points of intersection. (dm intersect (c| l| => ) (def p1 (line-p1 l)) (def p2 (line-p2 l)) (def p3 (circle-p c)) (def a (+ (* (- (point-x p2) (point-x p1)) (- (point-x p2) (point-x p1))) (* (- (point-y p2) (point-y p1)) (- (point-y p2) (point-y p2))))) (def b (* 2 (+ (* (- (point-x p2) (point-x p1)) (- (point-x p1) (point-x p3))) (* (- (point-y p2) (point-y p1)) (- (point-y p1) (point-y p3)))))) (def c (fold+ + (vec (* (point-x p3) (point-x p3)) (* (point-y p3) (point-y p3)) (* (point-x p1) (point-x p1)) (* (point-y p1) (point-y p1)) (* -2 (* (point-x p3) (point-x p1))) (* -2 (* (point-y p3) (point-y p1))) (* -1 (* (circle-r c) (circle-r c)))))) (def det (- (* b b) (* (* 4 a) c))) (cond ((< det 0) ;; No intersection (vec) ) ((== det 0) ;; One point (vec (line-point-by-param l (/ (* -1 b) (* 2 a)))) ) ((> det 0) ;; Two points (def u1 (/ (+ (* -1 b) (sqrt det)) (* 2 a))) (def u2 (/ (- (* -1 b) (sqrt det)) (* 2 a))) (vec (line-point-by-param l u1) (line-point-by-param l u2)) ) ) ) (export ) (export rect-x rect-x-setter rect-y rect-y-setter rect-w rect-w-setter rect-h rect-h-setter point-x point-x-setter point-y point-y-setter circle-p circle-p-setter circle-r circle-r-setter line-p1 line-p1-setter line-p2 line-p2-setter ) (export rect rect-around grow! shrink! point point-in-rect circle line dist sqdist intersect line-point-by-param )goo-0.155/src/samurui/core/graphics.goo0100644000175000017500000004116607546417676017461 0ustar vomjomvomjom(use goo) (use samurui/gtk.swig) (use samurui/core/util) (use samurui/core/metadata) (use samurui/core/geom) (use samurui/core/gtkwrapping) ; In the GDK, a drawable area is generally going to be implemented as: ; - A GTK Drawing Area (gtk_drawing_area_new) ; - Backed by a Pixmap ; We call our widget that is a drawable backed by a paintbox a... imagebox! ; When drawing, we need a Graphics Context (gc), which has a ; Colormap. (dc ()) ; Different prefix-space because this is implementation specific (dc ()) (dc ()) (dp! colormap ( => )) ; slots (dp! gc ( => (t? )) #f) (dc ()) (dm gui-paintbox (=> ) (msg out "Constructing a paintbox...\n") (let ((paintbox (new )) (handle (gtk_drawing_area_new))) (set (handle paintbox) handle) (gtk_widget_set_size_request handle 320 200) ; SIZE!!! (gtk_widget_show handle) ; (set (gc paintbox) (gdk-gc paintbox)) (msg out "Returning paintbox...\n") paintbox ) ) ; A canvas is equivalent to a GDK Pixmap (dc ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FIX! (dm gui-canvas ((paintbox ) => ) (let ((canvas (new )) (handle (gdk_pixmap_new (_GtkWidget_window_get (handle paintbox)) 320 200 24)) ) (set (handle canvas) handle) (okie? handle "Canvas screwed") ; (set (gc canvas) (gdk-gc canvas)) (msg out "Returning canvas...\n") canvas ) ) (dm gui-canvas-ext ((paintbox ) (width ) (height ) => ) (let ((canvas (new )) (handle (gdk_pixmap_new (_GtkWidget_window_get (handle paintbox)) width height 24)) ) (set (handle canvas) handle) (okie? handle "Canvas-ext screwed") ; (set (gc canvas) (gdk-gc canvas)) (msg out "Returning canvas...\n") canvas ) ) (dm free (canvas|) ; Liquidate gc (when (and (prop-bound? canvas gc) (gc canvas)) (free (gc canvas)) ) ; Liquidate our handle (unless (= (handle canvas) NULL) (g_object_unref (handle canvas)) (set (handle canvas) NULL)) ) ; note, does not call 'drawable' generic on the passed-in drawable. ; For a canvas, which is a drawable, we do not need to use the window. (a pixmap doesn't have one!) (dm gdk-gc ((drawable ) => ) (let ((gc (new )) (handle (gdk_gc_new (drawable-handle drawable)))) (set (handle gc) handle) (set (colormap gc) (gdk-colormap)) (okie? handle "GC Screwed") gc ) ) (dm free ((gc )) ; kill our colormap (free (colormap gc)) ; Liquidate our handle (unless (= (handle gc) NULL) (g_object_unref (handle gc)) (set (handle gc) NULL)) ) ; -colors- ; So working with colors is apparently a bitch. The GdkColor structure ; holds r,g,b, and pixel fields. You fill in r,g, and b and then need ; to have your color added to a colormap. Although in true color a lot ; of this behavior is probably NOP'ed out, it probably behooves us to ; implement things properly. As such, gui-color runs into the craptastic ; problem that the objects have state and must be realized into a colormap. ; My dubious kludge is this: ; Colors will have a field that references the colormap they've been realized ; into. Before we use a color we make sure it's been realized into the ; current colormap, if it hasn't, we add it. If it's been previously realized ; into another dude, we remove the color from the colormap. This may very ; possibly yield horrible and bad behavior in somewhat simple cases, but since ; we're going to assume that we're probably going to be on true color displays ; anyways where this isn't needed, we're just playing it safe. (dm gdk-colormap ( => ) (let ((colormap (new )) (handle (gdk_colormap_new (gdk_visual_get_system) gtk_true))) (set (handle colormap) handle) (okie? handle "Colormap screwed") colormap ) ) (dc ()) (dp! realized-into ( => ) #f) ; as type ; r, g, b range from 0 to 255 (dm color ((r ) (g ) (b ) => ) (let ((color (new )) (handle (new__GdkColor))) (set (handle color) handle) (okie? handle "Color screwed") (_GdkColor_red_set handle (* r 256)) (_GdkColor_green_set handle (* g 256)) (_GdkColor_blue_set handle (* 256 b)) color ) ) (dm color-hsb (hue| saturation| brightness|) (def h (* (- hue (as (floor hue))) 6.0)) (def f (- h (as (floor h)))) (def p (* brightness (- 1.0 saturation))) (def q (* brightness (- 1.0 (* saturation f)))) (def t (* brightness (- 1.0 (* saturation (- 1.0 f))))) (case (floor h) ((0) (color (floor (+ (* brightness 255.0) 0.5)) (floor (+ (* t 255.0) 0.5)) (floor (+ (* p 255.0) 0.5))) ) ((1) (color (floor (+ (* q 255.0) 0.5)) (floor (+ (* brightness 255.0) 0.5)) (floor (+ (* p 255.0) 0.5))) ) ((2) (color (floor (+ (* p 255.0) 0.5)) (floor (+ (* brightness 255.0) 0.5)) (floor (+ (* t 255.0) 0.5))) ) ((3) (color (floor (+ (* p 255.0) 0.5)) (floor (+ (* q 255.0) 0.5)) (floor (+ (* brightness 255.0) 0.5))) ) ((4) (color (floor (+ (* t 255.0) 0.5)) (floor (+ (* p 255.0) 0.5)) (floor (+ (* brightness 255.0) 0.5))) ) ((5) (color (floor (+ (* brightness 255.0) 0.5)) (floor (+ (* p 255.0) 0.5)) (floor (+ (* q 255.0) 0.5))) ) ) ) (dm free ((color )) (delete__GdkColor (handle color)) ) (dm realize ((color ) (colormap )) ; Only have work to do if it hasn't been realized into the current colormap. (unless (= (realized-into color) colormap) ; Kill off any prior realizations (if (realized-into color) (gdk_colormap_free_colors (handle (realized-into color)) (tup (handle color)))) ; Now realize the color in (gdk_colormap_alloc_color (handle colormap) (handle color) gtk_false gtk_true) (set (realized-into color) colormap) ) ) (dm fg-setter ((color ) (gc )) (realize color (colormap gc)) (gdk_gc_set_foreground (handle gc) (handle color)) ) (dm bg-setter ((color ) (gc )) (realize color (colormap gc)) (gdk_gc_set_background (handle gc) (handle color)) ) ; Font abstraction stuff... (dc ()) (dv font-lucida "-*-lucida-medium-r-normal-*-14-*-*-*-p-*-*-1") ;; Um, so 16 point isn't available on my x-win32 ;;(dv font-lucida "-*-lucida-medium-r-normal-*-16-*-*-*-p-*-*-1") (dm font (name| => ) (def da-font (new )) (set (handle da-font) (gdk_font_load name)) da-font ) (dm free (font|) (gdk_font_unref (handle font)) (set (handle font) NULL) ) (dv *default-samurui-font* #f) (dm get-default-samurui-font () (unless *default-samurui-font* (set *default-samurui-font* (font font-lucida))) *default-samurui-font* ) ; GUI ImageBox is a composite of gui-paintbox and gui-canvas ; I was very dubious about the relation of who owns whom, so for the time being ; they're both the children of the imagebox. Of course, I've got this little ; voice telling me that the PaintBox should own the canvas, but that's much ; more likely to mask errors and cause problems down the road. ; Dammit. I don't want the handle slot here. I guess this shows that I should actually ; have the framework set up so that and its descendents are interfaces and then ; there is a GTK signature that gets mixed in... I'll wait a bit longer before refactoring ; though, as I'm sure I'll learn more. (dc ()) (dp! paintbox ( => )) (dp! canvas ( => )) (dc ()) (dm gui-imagebox (=> ) (let ((imagebox (new ))) (set (paintbox imagebox) (gui-paintbox)) (set (canvas imagebox) (gui-canvas (paintbox imagebox))) (set (handle imagebox) (handle (paintbox imagebox))) ; make the paintbox handle the default handle we use... imagebox ) ) (dm free ((imagebox )) (free (paintbox imagebox)) (free (canvas imagebox)) (set (handle imagebox) NULL) ; it belonged to the canvas anyways ) (dm reconfigure ((imagebox ) (gtk-widget )) ; Kill off the canvas (free (canvas imagebox)) (let ((width (_GdkRectangle_width_get (_GtkWidget_allocation_get (handle imagebox)))) (height (_GdkRectangle_height_get (_GtkWidget_allocation_get (handle imagebox)))) (style (_GtkWidget_style_get (handle imagebox))) ) (set (canvas imagebox) (gui-canvas-ext (paintbox imagebox) width height)) (gdk_draw_rectangle (drawable-handle (canvas imagebox)) (_GtkStyle_white_gc_get style) gtk_true 0 0 width height) ;; Don't repaint if the thing is too fricking small. (unless (or (<= width 2) (<= height 2)) (repaint-widget imagebox) ) ) ) (dm blank (imagebox|) (let ((width (_GdkRectangle_width_get (_GtkWidget_allocation_get (handle imagebox)))) (height (_GdkRectangle_height_get (_GtkWidget_allocation_get (handle imagebox)))) (style (_GtkWidget_style_get (handle imagebox))) ) (gdk_draw_rectangle (drawable-handle (canvas imagebox)) (_GtkStyle_white_gc_get style) gtk_true 0 0 width height) ) ) ; Helper accessors to get drawable's (in case the thing we need is hidden away) (dm drawable ((gui-drawable ) => ) gui-drawable ) (dm drawable ((gui-imagebox ) => ) (canvas gui-imagebox) ) (dm get-gc ((drawable ) => ) (when (not (gc drawable)) (set (gc drawable) (gdk-gc drawable)) ) (gc drawable) ) (dm get-gc ((gui-imagebox ) => ) (get-gc (canvas gui-imagebox)) ) (dm repaint ((widget ) (r )) ;;(msg out "Dummy repaint...\n") #f) (dm repaint ((imagebox ) (r )) ;;(msg out "Repainting an imagebox...\n") (draw-blit (paintbox imagebox) (canvas imagebox) (rect-x r) (rect-y r) (rect-x r) (rect-y r) (rect-w r) (rect-h r) ) ) (dm repaint-widget (imagebox|) #f ) ; -drawing- ; I think this will resolve the problem with needing a drawable-handle off of someone (dm drawable-handle ((canvas )) (handle canvas) ) (dm drawable-handle ((paintbox )) (_GtkWidget_window_get (handle paintbox)) ) (dm drawable-handle ((imagebox )) (drawable-handle (canvas imagebox)) ) ; All drawing routines take a drawable that we then call 'drawable' on to make sure we're ; grabbing the right handle out. This is important for compositions of widget and backing ; buffer such as (dm draw-blit ((target ) (source ) (sx ) (sy ) (dx ) (dy ) (w ) (h )) (gdk_draw_drawable (drawable-handle target) (handle (get-gc target)) (drawable-handle source) sx sy dx dy w h ) ) (dm draw-rect ((canvas ) (rect ) (filled ) (color )) (let ((gc (get-gc canvas))) ; Set the color (set (fg gc) color) ; Draw the rectangle (gdk_draw_rectangle (drawable-handle canvas) (handle gc) (log-to-gtk filled) (rect-x rect) (rect-y rect) (rect-w rect) (rect-h rect) ) ) ) (dm draw-polygon (canvas| points| filled| color|) (let ((gc (get-gc canvas))) ;; Set the color (set (fg gc) color) (gdk_draw_polygon (drawable-handle canvas) (handle gc) (log-to-gtk filled) points) ) ) (dm draw-arc ((canvas ) (rect ) (ang1 ) (ang2 ) (filled ) (color )) (draw-arc canvas rect (round (* 64.0 ang1)) (round (* 64.0 ang2)) filled color) ) (dm draw-arc ((canvas ) (rect ) (ang1 ) (ang2 ) (filled ) (color )) (let ((gc (get-gc canvas))) ; Set the color (set (fg gc) color) ; Draw the rectangle (gdk_draw_arc (drawable-handle canvas) (handle gc) (log-to-gtk filled) (rect-x rect) (rect-y rect) (rect-w rect) (rect-h rect) ang1 (- ang2 ang1)) ) ) (dm draw-ellipse (canvas| rect| filled| color|) (draw-arc canvas rect 0 (* 64 360) filled color) ) (dm draw-line (canvas| x1| y1| x2| y2| color|) (let ((gc (get-gc canvas))) ;; Set the color (set (fg gc) color) ;; Draw the rectangle (gdk_draw_line (drawable-handle canvas) (handle gc) x1 y1 x2 y2) ) ) (dm draw-string (canvas| font| x| y| string| color|) (let ((gc (get-gc canvas))) ;; Set the color (set (fg gc) color) ;; Draw the rectangle (gdk_draw_string (drawable-handle canvas) (handle font) (handle gc) x y string) ) ) (dm draw-string-ul (canvas| font| x| y| string| color|) (draw-string canvas font x (+ y (font-ascent font)) string color) ) (dm draw-string-center (canvas| font| x| y| string| color|) (def w (string-width font string)) (draw-string canvas font (- x (div w 2)) (+ y (div (font-ascent font) 2)) string color) ) (dm string-width (font| string| => ) (gdk_string_width (handle font) string) ) (dm string-height (font| string| => ) (gdk_string_height (handle font) string) ) (dm font-ascent (font|) (_GdkFont_ascent_get (handle font)) ) (dm font-height (font|) (+ (_GdkFont_ascent_get (handle font)) (_GdkFont_descent_get (handle font))) ) (dm invalidate-all (widget|) (invalidate widget (rect 0 0 (gui-width widget) (gui-height widget))) ) (dm invalidate ((imagebox ) (r )) (invalidate (paintbox imagebox) r) ) (dm invalidate ((window ) (r )) (def my-gdk-rect (rect-to-gdk r)) (invalidate window my-gdk-rect) (free my-gdk-rect) ) (dm invalidate ((window ) (r )) ;; (msg out "Invalidating a drawable...\n") (gdk_window_invalidate_rect (drawable-handle window) ; better not be a pixmap... (handle r) gtk_false ) ) (export ) (export colormap colormap-setter gc gc-setter realized-into realized-into-setter paintbox paintbox-setter canvas canvas-setter ) (export font-lucida *default-samurui-font* ) (export gui-paintbox gui-canvas gui-canvas-ext gdk-gc gdk-colormap color color-hsb realize fg-setter bg-setter font get-default-samurui-font gui-imagebox reconfigure blank drawable get-gc repaint repaint-widget drawable-handle draw-blit draw-rect draw-polygon draw-arc draw-ellipse draw-line draw-string draw-string-ul draw-string-center string-width string-height font-ascent font-height invalidate-all invalidate ) goo-0.155/src/samurui/core/gtkwrapping.goo0100644000175000017500000003112007622277612020170 0ustar vomjomvomjom(use goo) (use samurui/gtk.swig) (use samurui/core/util) (use samurui/core/metadata) (use samurui/core/geom) (use samurui/core/constraints) (use samurui/gtkcallbacks) ;; -- GUI Wrapper (dc ()) (dp! handle ( => )) ; - ; -- Limited GUI Wrappers ; - (dc ()) (dp! attrs ( => (t? )) #f) (dm free (gui-obj|) (unless (= (handle gui-obj) NULL) (g_object_unref (handle gui-obj)) (set (handle gui-obj) NULL) ) ) ; -- Widget stuff (dm gui-width (widget| => ) (_GdkRectangle_width_get (_GtkWidget_allocation_get (handle widget))) ) (dm gui-height (widget| => ) (_GdkRectangle_height_get (_GtkWidget_allocation_get (handle widget))) ) ; -- Containers (dc ()) (dp! children ( => ) (fab 0)) (dm free (container|) ;; Kill off the kids (do (fun (kid) (free kid)) (children container)) (zap! (children container)) ;; Kill off our own handle (unless (= (handle container) NULL) (g_object_unref (handle container)) (set (handle container) NULL) ) ) (dc ()) (dm gui-window ( => ) (let ((window (new )) (handle (gtk_window_new GTK_WINDOW_TOPLEVEL))) (set (handle window) handle) ; tweak some GTK-level settings (gtk_container_set_border_width handle 8) window ) ) (dc ()) (dm gui-scrolled-window ( => ) (def win (new )) (set (handle win) (gtk_scrolled_window_new NULL NULL)) win ) (dc ()) (dm gui-frame (label| => ) (def f (new )) (def da-frame (gtk_frame_new label)) (set (handle f) da-frame) f ) (dc ()) (dc ()) (dm gui-vbox ( => ) (let ((vbox (new )) (handle (gtk_vbox_new gtk_false 8))) (set (handle vbox) handle) ; tweak some GTK-level settings (gtk_container_set_border_width handle 8) vbox ) ) (dc ()) (dm gui-hbox ( => ) (let ((hbox (new )) (handle (gtk_hbox_new gtk_false 8))) (set (handle hbox) handle) ; tweak some GTK-level settings (gtk_container_set_border_width handle 8) hbox ) ) (dm ad! (container| item|) ;;(debugstr "Adding %= to gui-container %=.\n" item container) (gtk_container_add (handle container) (handle item)) (add! (children container) item) ) (dm rem! (container| item|) (gtk_container_remove (handle container) (handle item)) (set (children container) (del-vals (children container) item)) ) (dm ad! (container| item|) ;;(debugstr "Adding %= to gui-box %=.\n" item container) (gtk_box_pack_start (handle container) (handle item) gtk_false gtk_false 8) (add! (children container) item) ) (dm ad-opt! (container| item| opt|(t? )) (def scroll (when opt (mem? opt 'scroll))) ;; Support scrolling by throwing the item in a scrollwindow which gets placed in the dude. (if scroll (seq (def scroll-win (gui-scrolled-window)) (ad! scroll-win item) (ad! container scroll-win) ) (seq (ad! container item) ) ) ) (dm ad-opt! (container| item| opt|(t? )) (def fill (when opt (mem? opt 'fill))) ; default to false (def scroll (when opt (mem? opt 'scroll))) (when scroll (def scroll-win (gui-scrolled-window)) (ad! scroll-win item) (set item scroll-win) ) (gtk_box_pack_start (handle container) (handle item) (log-to-gtk fill) (log-to-gtk fill) 8) (add! (children container) item) ) (dm add-all-opt! (to from) (do (fun (x) (case-by x isa? (() (ad-opt! to x (attrs x)) ) (#t (ad! to x) ) ) ) from) ) ; was going to do cool iteration, then I discovered that I knew about the show_all func (dm show (widget|) (gtk_widget_show (handle widget)) ) (dm show (window|) (debugstr "Going to show %=\n" window) (gtk_widget_show_all (handle window)) ) (dm show-all (widget|) (gtk_widget_show_all (handle widget)) ) (dc ()) (dc ()) (dm gui-hpaned ( => ) (let ((hpaned (new )) (handle (gtk_hpaned_new))) (set (handle hpaned) handle) ; tweak some GTK-level settings ;;(gtk_container_set_border_width handle 8) hpaned ) ) (dm ad! (container| item|) ;;(debugstr "Adding %= to gui-paned %=.\n" item container) (case (len (children container)) ((0) (gtk_paned_pack1 (handle container) (handle item) gtk_true gtk_true) (add! (children container) item)) ((1) (gtk_paned_pack2 (handle container) (handle item) gtk_true gtk_true) (add! (children container) item)) (#t (post "Only two objects in a paned object!\n") ) ) ) (dm ad-opt! (container| item| opt|(t? )) (def fill (when opt (mem? opt 'fill))) ; default to false (def scroll (when opt (mem? opt 'scroll))) (when scroll (def scroll-win (gui-scrolled-window)) (ad! scroll-win item) (set item scroll-win) ) (case (len (children container)) ((0) (gtk_paned_pack1 (handle container) (handle item) (log-to-gtk fill) (log-to-gtk fill)) (add! (children container) item)) ((1) (gtk_paned_pack2 (handle container) (handle item) (log-to-gtk fill) (log-to-gtk fill)) (add! (children container) item)) (#t (post "Only two objects in a paned object!\n") ) ) ) (dc ()) (dp! constraint ( => )) (dm to-adjustment (constraint| => ) (def adj (new )) (set (handle adj) (gtk_adjustment_new (as (lbound constraint)) (as (lbound constraint)) (as (ubound constraint)) (as (small-increment constraint)) (as (large-increment constraint)) (as (large-increment constraint)))) (set (constraint adj) constraint) adj ) ; -- Items ;; ;;;;;; ;; ;; Button ;; ;; ;;;;;; ;; (dc ()) (dm gui-button (label| => ) (let ((button (new )) (handle (gtk_button_new_with_label label))) (set (handle button) handle) button ) ) (dm connect (button| func| val-to-pass) (gtk_signal_connect (handle button) "clicked" (gtk_getGtkCallback) (goo_safeCreateCallback func val-to-pass)) ) ;; ;;;;;;;;;;;;;;;;;;;;; ;; ;; Radio / Toggle Button ;; ;; ;;;;;;;;;;;;;;;;;;;;; ;; (dc ()) (dc ()) (dm gui-check-button (label| => ) (let ((button (new )) (handle (gtk_check_button_new_with_label label))) (set (handle button) handle) button ) ) (dm connect (button| func| val-to-pass) (gtk_signal_connect (handle button) "toggled" (gtk_getGtkCallback) (goo_safeCreateCallback func val-to-pass)) ) ;; ;;;;; ;; ;; Label ;; ;; ;;;;; ;; (dc ()) (dm gui-label (label-text| => ) (let ((label (new )) (handle (gtk_label_new label-text))) (set (handle label) handle) label ) ) ;; ;;;;;;; ;; ;; Textbox ;; ;; ;;;;;;; ;; (dc ()) (dm gui-textbox ( => ) (let ((textbox (new )) (handle (gtk_entry_new))) (set (handle textbox) handle) textbox ) ) ;; ;;;;;;;;;; ;; ;; SpinButton ;; ;; ;;;;;;;;;; ;; (dc ()) (dm gui-spinbutton (adj| => ) (def spin (new )) (set (handle spin) (gtk_spin_button_new (handle adj) (as (small-increment (constraint adj))) 0)) ;; number of digits should be a hint or something spin ) ;; ;;;; ;; ;; Menu ;; ;; ;;;; ;; (dc ()) (dm gui-menu (=> ) (def menu (new )) (def h (gtk_menu_new)) (set (handle menu) h) menu ) (dm popup (menu| button| button-time|) ;;(debugstr "Going to try and pop up a menu now...\n") (gtk_menu_popup (handle menu) NULL NULL NULL NULL button button-time) ;;(debugstr "Done trying to pop up a menu now...\n") ) ;; ;;;;;;;;;;;;;;;;; ;; ;; Menu Item : Label ;; ;; ;;;;;;;;;;;;;;;;; ;; (dc ()) (dc ()) (dm ad! (da-menu| item|) (debugstr "Adding menu item to menu.\n") (gtk_menu_shell_append (handle da-menu) (handle item)) (add! (children da-menu) item) #t ) (dm gui-menu-item-label (label-text| => ) (def mi (new )) (def h (gtk_menu_item_new_with_label label-text)) (set (handle mi) h) mi ) (dm connect (menu-item| func| val-to-pass) (gtk_signal_connect (handle menu-item) "activate" (gtk_getGtkCallback) (goo_safeCreateCallback func val-to-pass)) ) (dc ( )) (dm gdk-rect (x| y| w| h| => ) (let ((rectangle (new )) (handle (new__GdkRectangle))) ; Set the handle (set (handle rectangle) handle) (_GdkRectangle_x_set handle x) (_GdkRectangle_y_set handle y) (_GdkRectangle_width_set handle w) (_GdkRectangle_height_set handle h) rectangle ) ) (dm rect-x (r| => ) (_GdkRectangle_x_get (handle r))) (dm rect-y (r| => ) (_GdkRectangle_y_get (handle r))) (dm rect-w (r| => ) (_GdkRectangle_width_get (handle r))) (dm rect-h (r| => ) (_GdkRectangle_height_get (handle r))) (dm grow! (r| size|) (let ((hr (handle r))) (_GdkRectangle_x_set hr (- (_GdkRectangle_x_get hr) size)) (_GdkRectangle_y_set hr (- (_GdkRectangle_y_get hr) size)) (_GdkRectangle_width_set hr (+ (_GdkRectangle_width_get hr) (* size 2))) (_GdkRectangle_height_set hr (+ (_GdkRectangle_height_get hr) (* size 2))) ) ) (dm free (rect|) (delete__GdkRectangle (handle rect)) ) (dm rect-to-gdk (r| => ) (gdk-rect (rect-x r) (rect-y r) (rect-w r) (rect-h r)) ) (dc ( )) ;; (dm point-to-gdk (p| => ) ;; (gdk-point (point-x p) (point-y p))) ;; (dm gdk-point ((x ) (y ) => ) ;; (let ((p (new )) ;; (handle (new__GdkPoint))) ;; ; Set the handle ;; (set (handle p) handle) ;; (_GdkPoint_x_set handle x) ;; (_GdkPoint_y_set handle y) ;; p ;; ) ;; ) ;; (dm point-x ((p ) => ) ;; (_GdkPoint_x_get (handle p)) ;; ) ;; (dm point-y ((p ) => ) ;; (_GdkPoint_y_get (handle p)) ;; ) (dm free (point|) ) ;; (dm free ((point )) ;; (delete__GdkPoint (handle point)) ;; ) (df nop () ) (dm bind (gui-obj| info| => (tup )) (tup identity nop identity) ) (export ) (export handle handle-setter attrs attrs-setter children children-setter ) (export free gui-width gui-height gui-window gui-scrolled-window gui-frame gui-vbox gui-hbox gui-hpaned show show-all connect gui-button gui-check-button gui-spinbutton gui-label gui-textbox gui-menu popup gui-menu-item-label gdk-rect rect-to-gdk bind nop to-adjustment )goo-0.155/src/samurui/core/macros.goo0100644000175000017500000001400307622277612017120 0ustar vomjomvomjom(use goo) ; -- ; --- User Macros ; -- (ds iprop (,class ,binding ,type ,desc) `(seq (dp! ,binding (,class => ,type)) (add-property ,class (interface-property ,(as binding) ,type ,binding ,(fab-setter-name binding) ,desc)) ) ) (ds ipropc (,class ,binding ,type ,desc ,constraint) `(seq (dp! ,binding (,class => ,type)) (def da-prop (interface-property ,(as binding) ,type ,binding ,(fab-setter-name binding) ,desc)) (set (constraint da-prop) ,constraint) (add-property ,class da-prop) ) ) (ds iaction (,class ,binding ,this-name ,desc ,@body) `(seq (dm ,binding ((,this-name ,class)) ,@body) (add-action ,class (interface-action ,(as binding) ,binding ,desc)) ) ) (ds imodel (,class ,@body) `(register-interface-model ,class (interface-model (fun (x attribs) 1) (quote (,@body)))) ) (ds iview (,class ,@body) `(register-interface-model ,class (interface-model (fun (x attribs) 1) (,'quasiquote (,@body)))) ) ; Drawing areas are a recognition that no matter how many auto-magic visualization ; interfaces we provide, there will always be a need to be able to have custom ; drawing interfaces. In fact, this is how we intend to allow extension for ; auto-magic visualization. Additionally, it's hard to make a drawing program ; without something like this. ; Drawing areas are implicitly associated with a type of object to render, the assoc-class. ; Additionally, they must have an implementation class which is derived from interface-drawing-area, ; which is specified as class. If all you want to do is have a drawing widget or something equally ; inane, you can happily have the associated class and the class be the same thing. ;; Oy, now how to bind the drawer dude into interface models. The ;; associativity clearly indicates that the place of the drawing area ;; is analogous to that of the interface model. Of course, so are ;; button bindings and text bindings. My initial thought was that ;; those would be handled via the renderize generic protocol. ;; Basically there are two approaches then. The first is the renderize ;; protocol, where the idraw would also define a renderize method. The ;; problem is that we still need an inert class type (such as a ;; singelton) to dispatch on that. The alternative is to extend the ;; concept of the interface model. If we re-evaluate the current ;; implementation right now, we should consider the need to figure out ;; which of the many possible interface models to use. Possible ;; methods include allowing the interface model to carry a heuristic ;; function with it, or perhaps just an id so we can only use the ;; right-click menu. More extensive tricks such as range-constraint ;; and such could easily fit within the heuristic function model, which ;; merely leads to pre-init'ing our interface model as opposed to ;; trying to stuff the base-cases into pure-code form. The current ;; methedology uses a recursive recipe technique; We start out with the ;; interface model in list form and then process each element using ;; multi-method dispatch, which may quite possibly be another list. ;; Symbols are looked up against our registered properties and actions. ;; An alternative, hypothetical method is this. Interface models ;; consist of an evaluation function and either either a list or ;; function for the model. If the model is a list, we recursively ;; process the list in the current style. That is, strings are ;; directly transformed to labels, special symbols such as 'columns' ;; still work, and other symbols are looked up against our class ;; information so that we can find a proper interface model for them. ;; In the case the model is a function, it is expected to be a factory ;; method equivalent to our current renderize dude. Specifically, it ;; must return a gui object, and must take a class (not outrightly ;; needed, but we'll considering it future-proofing) and the list of ;; updaters that should be added to as needed. (ds idrawmodel (,assoc-class ,class ,@body) `(idrawmodel-ext ,assoc-class ,class (1) (,@body)) ) (ds idrawmodel-ext (,assoc-class ,class (,@body-a) (,@body-b)) `(seq (dc ,class ()) (dp! drawmodel-model (,class => (t? ,assoc-class)) #f) (register-interface-model ,assoc-class (interface-model (fun (item attribs) ,@body-a) (fun (info parent-class updaters) ;; -- stolen from gui-imagebox fabber... ;; need to ask how to piggy-back on someone else's fab... (let ((imagebox (new ,class))) (set (paintbox imagebox) (gui-paintbox)) (set (canvas imagebox) (gui-canvas (paintbox imagebox))) ;; make the paintbox handle the default handle we use... (set (handle imagebox) (handle (paintbox imagebox))) ;; Bind it (ad! updaters (bind imagebox info)) ;; User setup-code ,@body-b ;; Events (hookify imagebox) imagebox ) ) ) ) ) ) (export iprop ipropc iaction imodel iview idrawmodel idrawmodel-ext ) goo-0.155/src/samurui/core/masterslave.goo0100644000175000017500000001346607546417676020211 0ustar vomjomvomjom(use goo) (use samurui/core/util) (use samurui/core/metadata) (use samurui/core/gtkwrapping) (dc ()) (dp! slaves ( => ) (vec)) (dg bind-master (obj| master| => )) ;; A hack? perhaps. and maybe you smell. (dg renderize-model ((model ) (info ) (class ) (updaters ) (masters ))) ;; The master/slave thing requires some form of imodel-instantiation specific scratch space. ;; ;; Perhaps a runtime DOM-type tree is in order to store GUI configuration information... ;; ;; The goal of master/slave is of course to allow the navigation of graph/collection structures, ;; with the currently selected node displayed in the slave space. Issues include: ;; - We want the collection to be able to be wildly heterogeneous, which means that the slave area ;; must be instantiated at run-time. (This requires better cleanup code certainly.) ;; - A master must be passed in a function to invoke when the currently selected node changes. This ;; should allow the slave to be transparently updated. The only question is whether the slave should ;; be allowed to persist configuration data in some way. However, this seems clearly orthogonal ;; to the master/slave issue, as it's mainly a persistence issue that merely comes to the forefront ;; when things are reinitialized extremely frequently. ;; * The simplest solution would be to cluster them together so that the 'master' item actually could ;; have direct references to the slaves, but that would place a lot of un-needed limitations on ;; GUI design. ;; ;; When we change the object represented in a slaved area, we want to kill off the people in there. ;; This involves telling all the updaters to free, and killing off the objects in question. Since ;; we need to maintain a list of the updaters associated with an instantiated interface-model, it ;; suggests that each instantiated interface model should have a control structure with the following: ;; - List of updaters ;; - Placeholder container ;; - Interface-model container that sits in the place-holder ;; - Method to change object reference, which: ;; - Calls free on all updaters ;; - Destroys the components in the interface-model container, as well as that container ;; - Unlinks the interface-model container ;; - Generates the new interface-model, and assumes its state. ;; ;; This suggests that when it comes to creating master/slave pairs, we'll construct: ;; - A master object which maintains a list of slaves ;; - A slave object for each instantiation, as described above, which is added to the master's list. ;; To provide the master to the instantiated master block, we will define a bind-master generic. (dc ()) (dp! slave-inited ( => ) #f) (dp! slave-updaters ( => )) (dp! placeholder ( => )) (dp! active-container ( => )) (dp! slave-object ( => ) #f) (dm update-slave (slave| new-obj|) (cond ;; First time ((not (slave-inited slave)) (def model (find-interface-model (class-of new-obj) root-interface (vec))) (set (slave-updaters slave) (vec)) (set (active-container slave) (renderize-model model root-interface (class-of new-obj) (slave-updaters slave) (fab 0))) (ad-opt! (placeholder slave) (active-container slave) (attrs (placeholder slave))) (show-all (placeholder slave)) (set (slave-inited slave) #t) (set (slave-object slave) new-obj) ;; Rebind and refresh (do (fun (cur-updater) ;; Rebind ((1st cur-updater) new-obj) ;; Refresh ((2nd cur-updater)) ) (slave-updaters slave) ) ) ;; Different object, same interface ((and (slave-object slave) (= (class-of (slave-object slave)) (class-of new-obj))) ;; Just rebind and refresh (do (fun (cur-updater) ;; Rebind ((1st cur-updater) new-obj) ;; Refresh ((2nd cur-updater)) ) (slave-updaters slave) ) (set (slave-object slave) new-obj) ) ;; New object, go hard-core (#t ;; Free updaters (do (fun (cur-updater) ((3rd cur-updater)) ) (slave-updaters slave) ) ;; Destroy components (rem! (placeholder slave) (active-container slave)) ;; Do we need to free? or will the remove have implicitly unref'd down to 0 and free? ;; Get us a new interface-model and what not (def model (find-interface-model (class-of new-obj) root-interface (vec))) (set (slave-updaters slave) (vec)) (set (active-container slave) (renderize-model model root-interface (class-of new-obj) (slave-updaters slave) (fab 0))) (ad! (placeholder slave) (active-container slave)) (show-all (placeholder slave)) (set (slave-inited slave) #t) (set (slave-object slave) new-obj) ;; Rebind and refresh (do (fun (cur-updater) ;; Rebind ((1st cur-updater) new-obj) ;; Refresh ((2nd cur-updater)) ) (slave-updaters slave) ) ) ) ) (dm master-update-slaves (master| new-obj|) (when new-obj (do (fun (slave) (update-slave slave new-obj)) (slaves master) ) ) ) (export ) (export slaves slaves-setter slave-inited slave-inited-setter slave-updaters slave-updaters-setter placeholder placeholder-setter active-container active-container-setter slave-object slave-object-setter ) (export bind-master update-slave master-update-slaves renderize-model )goo-0.155/src/samurui/core/menus.goo0100644000175000017500000000207407546417676017003 0ustar vomjomvomjom(use goo) (use samurui/core/util) (use samurui/core/metadata) (use samurui/core/gtkwrapping) ; ---- ---- ; ------ Menus ------ ; ---- ---- (dv *cached-menus* (fab 0)) ;; indirection to avoid problem of statically connecting... (dv *selected-menu-object* #f) (dm gimme-menu (obj) (set *selected-menu-object* obj) (or (elt-or *cached-menus* (class-of obj) #f) (seq (def da-actions (get-all-actions (class-of obj))) (def da-menu (gui-menu)) (do (fun (act) (def da-item (gui-menu-item-label (description act))) ;; (connect da-item (method act) obj) (connect da-item (fun (x) ((method act) *selected-menu-object*)) #f) (ad! da-menu da-item) (show da-item) ) da-actions) (set (elt *cached-menus* (class-of obj)) da-menu) ;;(show-all da-menu) da-menu ) ) ) (export gimme-menu )goo-0.155/src/samurui/core/metadata.goo0100644000175000017500000001734707546417676017445 0ustar vomjomvomjom(use goo) (use goo/system) (use goo/boot) (use samurui/gtk.swig) (use samurui/core/util) (dc ()) (dc ()) (dv root-interface (new )) (dc ()) (dp! name ( => )) (dp! method ( => )) (dp! description ( => )) (dm interface-action (new-name new-method new-description => ) (let ((action (new ))) (set (name action) new-name) (set (method action) new-method) (set (description action) new-description) action ) ) (dc ()) (dp! name ( => )) (dp! type ( => )) (dp! getter ( => )) (dp! setter ( => )) (dp! description ( => )) (dp! constraint ( => (t? )) #f) (dm interface-property (new-name new-type new-getter new-setter new-description => ) (let ((property (new ))) (set (name property) new-name) (set (type property) new-type) (set (getter property) new-getter) (set (setter property) new-setter) (set (description property) new-description) property) ) ;; This seems like a bad approach. Better approaches include: ;; - Just directly using the class, but pester Jonathan to add support for the ;; required meta-data. (eventual goal) ;; - Proxy / decorate / yadda-yadda. (Halfway.) ;; - Just rename the generics for this to overlap the other dude? (dm prop-to-interface-prop (prop => ) (def new-prop (new )) (set (name new-prop) (as (fun-name (prop-getter prop)))) (set (type new-prop) (prop-type prop)) (set (getter new-prop) (prop-getter prop)) (set (setter new-prop) (prop-setter prop)) (set (description new-prop) "Native Property") new-prop ) ; Maps class of object to a vector of potential interface-models (dv interface-models (fab 0)) (dc ()) (dp! properties ( => )) (dp! actions ( => )) (dm interface-class-info ( => ) (let ((info (new ))) (set (properties info) (fab 0)) (set (actions info) (fab 0)) info ) ) ; An interface model is just a tup (dv ) (dm interface-model ((eval-func ) (factory ) => ) (tup eval-func factory) ) (dm interface-model ((eval-func ) (list ) => ) (tup eval-func list) ) (dv imodel-eval 1st) (dv imodel-payload 2nd) ; Maps class of object to object for that class (dv interface-infos (fab 0)) ; -- ; --- Macro Support Functionality ; -- (dm register-interface-model ((class ) (the-model )) (let ((models (or (elt-or interface-models class #f) (set (elt interface-models class) (fab 0))))) ; put it in the list (ad! models the-model)) ) (dm has-interface-model? ((class )) (let ((models (elt-or interface-models class #f))) models) ; Should both verify that it is non-nul and non-zero in length ) ; return an arbitrary model associated directly with the given class (dm get-interface-model (class| info| attribs|) (let ((models (elt interface-models class)) (best-score 0) (best-model #f)) (do (fun (model) (let ((cur-score ((imodel-eval model) info attribs))) (if (> cur-score best-score) (seq (set best-score cur-score) (set best-model model) ) ) ) ) models) best-model ) ) (dm get-interface-models ((class )) (let ((models (elt interface-models class))) models ) ) ; Note! We assume that the most specific set of interface models forms the complete set ; that we want to consider. An alternate implementation might mush them all together ; and then check them each out, but since there is nothing preventing someone from ; copying an interface-model (or models) down from higher in the hierarchy, this seems ; like the optimal solution. (dm find-interface-model (class| info| attribs| => (t? )) (let ((first-class (find-first-class has-interface-model? class))) (get-interface-model first-class info attribs) ) ) (dm get-class-info ((class ) => ) (let ((info (or (elt-or interface-infos class #f) (set (elt interface-infos class) (interface-class-info))))) info) ) (dm add-property ((class ) (property )) (let ((info (get-class-info class))) ; Add the property to the properties hash using its name as the key (set (elt (properties info) (name property)) property) ) ) (dm add-action ((class ) (action )) (let ((info (get-class-info class))) (set (elt (actions info) (name action)) action) ) ) ; Returns the actions directly associated with the given class. ; (Eg, does not handle ancestral actions.) (dm get-class-actions ((class ) => ) (actions (get-class-info class)) ) (dm get-all-actions ((class ) => ) (let ((actions (fab 0))) (do (fun (c) (add-all! actions (get-class-actions c)) ) (add (class-parents class) class) ) actions ) ) (dm find-action ((class ) (name ) => ) ; should be false-or (elt-or (get-all-actions class) name #f) ) (dm get-class-properties ((class ) => ) (properties (get-class-info class)) ) (dm get-all-properties ((class ) => ) (let ((properties (fab 0))) (do (fun (c) (add-all! properties (get-class-properties c)) ) (add (class-parents class) class) ; need the class in there too! ) properties ) ) (dm find-property ((class ) (name ) => (t? )) (or (elt-or (get-all-properties class) name #f) (seq ;; I like this way more than let... (def native-prop (esc found-it (do (fun (cur-prop) (when (= name (as (fun-name (prop-getter cur-prop)))) (found-it cur-prop) ) ) (class-props class)) )) (when native-prop (def new-prop (prop-to-interface-prop native-prop)) (add-property class new-prop) new-prop ) ) ) ) (export ) (export name name-setter type type-setter getter getter-setter setter setter-setter method method-setter description description-setter constraint constraint-setter properties properties-setter actions actions-setter ) (export root-interface interface-models imodel-eval imodel-payload interface-infos ) (export interface-action interface-property interface-class-info interface-model register-interface-model has-interface-model? get-interface-model get-interface-models find-interface-model get-class-info add-property add-action get-class-actions get-all-actions find-action get-class-properties get-all-properties find-property )goo-0.155/src/samurui/core/renderize.goo0100644000175000017500000001531407622277612017631 0ustar vomjomvomjom(use goo) (use samurui/core/util) (use samurui/core/metadata) (use samurui/core/gtkwrapping) (use samurui/core/masterslave) ; ---- ---- ; ------ Renderize! ------ ; ----- ----- (dm renderize-model ((model ) (info ) (class ) (updaters ) (masters )) (let ((payload (imodel-payload model))) (if (isa? payload ) (payload info class updaters) ;; Okay, it's an interface-model *list* (if (= info root-interface) (renderize payload class updaters masters (vec)) ;; Base case. Top-level. ;; This is special; it means that we're embedding an interface-model inside another ;; interface-model. As such, this calls for an updater attached to the parent that ;; will update this interface model as it changes. (let ((my-updaters (vec)) (rebind-my-updaters (fun (new-obj) (def my-obj ((getter info) new-obj)) (do (fun (updater-tup) ((1st updater-tup) my-obj) ) my-updaters)) ) (refresh-my-updaters (fun () (do (fun (updater-tup) ((2nd updater-tup))) my-updaters) )) (free-my-updaters (fun ())) ) (add! updaters (tup rebind-my-updaters refresh-my-updaters free-my-updaters)) (renderize payload (type info) my-updaters (fab 0) (vec)) ) ) ) ) ) (dm renderize ((model-list ) (class ) (updaters ) (masters ) (attribs )) (let ((renderize-this (fun (thing) (renderize thing class updaters masters attribs) ) )) (cond ;; COLUMNS ((= (1st model-list) 'columns) ;; Multiple parallel columns! ;; Create an hbox and stick everything we fab in it (let ((hbox (gui-hbox)) (comps (map renderize-this (tail model-list)))) (add-all-opt! hbox comps) hbox)) ((= (1st model-list) 'panes) ;; Horizontal Pane (let ((hpaned (gui-hpaned)) (comps (map renderize-this (tail model-list)))) (add-all-opt! hpaned comps) hpaned)) ;; MASTER ((= (1st model-list) 'master) (def m-name (as (2nd model-list))) (def master (new )) (set (elt masters m-name) master) ;; Renderize the third param. (Can be a list of just a node.) (def gui-obj (renderize (3rd model-list) class updaters masters attribs)) (bind-master gui-obj master) gui-obj ) ;; SLAVE ((= (1st model-list) 'slave) (def s-name (as (2nd model-list))) (def slave (new )) (add! (slaves (elt masters s-name)) slave) (set (placeholder slave) (gui-frame "Child...")) (placeholder slave) ) ;; Attr ((= (1st model-list) 'attr) (def da-attrs (tail (tail model-list))) (def my-comp (renderize (elt model-list 1) class updaters masters da-attrs)) (if my-comp (set (attrs my-comp) da-attrs) (post "Warning: component returned when renderizing %= was #f.\n" model-list)) my-comp ) ;; COERCE thing class-it-will-be coerce-to-func uncoerce-func ;; Coercion implicitly lets us know that we're dealing with a property. ;; To simplify things as much as possible (braindead right now), we lookup the relevant property info object, ;; then clone it, and replace the getter and setter with our own. Brilliant, no? Muahahahahahhahaha. ((= (1st model-list) 'coerce) (let ((info (find-property class (as (2nd model-list)))) (new-info (interface-property (name info) (elt model-list 2) ;; 3rd ;; wrap the getter, coercing on the way out (fun (x) ((elt model-list 3) ((getter info) x))) ;; wrap the setter, uncoercing on the way in (fun (new-val obj) ((setter info) ((elt model-list 4) new-val) obj)) (description info) ))) (renderize-model (find-interface-model (type new-info) new-info attribs) new-info class updaters masters))) ;; DEFAULT: VBOX (#t (let ((vbox (gui-vbox)) (comps (map renderize-this model-list))) (add-all-opt! vbox comps) vbox ) ) ) ) ) ;; The action renderizer needs to be imbued with an implicit 'refresh' of the object in question ;; after the action has taken places, as we are possibly altering data structures that don't ;; don't auto-notify when changes are made. (dm renderize ((act ) (class ) (updaters ) (masters ) (attribs )) (let ((button (gui-button (description act)))) (let ((cur-obj #f)) (connect button (fun (x) ;; Perform the action ((method act) cur-obj) ;; Refresh all updaters (do (fun (y) ((2nd y))) updaters) ) 0) (add! updaters (tup ;; Rebind (fun (new-obj) (set cur-obj new-obj)) ;; Refresh (fun () ) ;; Free (fun () ) ) ) ) button ) ) (dm renderize ((text ) (class ) (updaters ) (masters ) (attribs )) (gui-label text) ) (dm renderize ((sym ) (class ) (updaters ) (masters ) (attribs )) (let ((name (as sym))) ;; If it's an action, get an interface-action object and renderize on it. (cond ((find-action class name) (renderize (find-action class name) class updaters masters attribs)) ;; If it's a property, defer the model renderizing to renderize-model. ((find-property class name) (let ((info (find-property class name))) (renderize-model (find-interface-model (type info) info attribs) info class updaters masters))) ) ) ) (export renderize-model renderize )goo-0.155/src/samurui/core/treeview.goo0100644000175000017500000002047507622277612017500 0ustar vomjomvomjom(use goo) (use samurui/gtk.swig) (use samurui/core/util) (use samurui/core/metadata) (use samurui/core/macros) (use samurui/core/gtkwrapping) (use samurui/core/masterslave) (use samurui/core/visicol) (use samurui/core/visiwrapcol) (use samurui/gtkcallbacks) (dc ()) (dc ()) (dp! collection ( => )) (dp! axis ( => ) 'implicit) (dp! prop-axes ( => ) (tup)) (dp! model ( => )) (dp! columns ( => ) (vec)) (dp! column-renderer ( => )) (dp! tv-master ( => (t? )) #f) (dp! cur-root ( => (t? )) #f) (dm gui-treeview (=> ) (def gtv (new )) ; Dummy up the collection (set (collection gtv) (visi-wrap-col (vec "dummy-a" "dummy-b" "dummy-c"))) ; Model (def gtv-model (new )) (set (handle gtv-model) (gtk_tree_goo_new gtv)) (set (model gtv) gtv-model) ; TreeView (set (handle gtv) (gtk_tree_view_new_with_model (handle gtv-model))) ; Add some columns for amusement purposes (def my-renderer (gtk_cell_renderer_text_new)) (set (column-renderer gtv) my-renderer) (def column (gtk_tree_view_column_new)) (add! (columns gtv) column) (gtk_tree_view_column_set_title column "Default") (gtk_tree_view_column_pack_start column my-renderer (log-to-gtk #t)) (gtk_tree_view_column_add_attribute column my-renderer "text" 0) (gtk_tree_view_append_column (handle gtv) column) gtv ) (dm free (gtv|) (free (model gtv)) (g_object_unref (handle gtv)) ; should set to NULL... ) (dm bind-master (tv| master| => ) (set (tv-master tv) master) #t ) ; Constructs a binding ;; Rebind should update the underlying collection in the model ;; Refresh should tell the tree-view that it is getting the new / same model ;; Um, no freeing yet (dm bind ((gtv ) (info ) => (tup )) (let ((my-gtv gtv) ;; Changed callback (callback (fun (selection data) ;;Selection changed... (def selnode (gtk_tree_goo_selection_get_node selection)) (when selnode (when (tv-master gtv) (master-update-slaves (tv-master gtv) selnode)) ) ))) ; Establish our hooks into the gui object (g_signal_connect (gtk_tree_view_get_selection (handle gtv)) "changed" (gtk_getGtkCallthrough) (goo_safeCreateCallback callback 0)) ; Construct the helper functions (tup ;; --- REBIND --- (fun (new-obj) ;;(msg out "Rebinding!\n") (set (collection my-gtv) ((getter info) new-obj)) (set (cur-root my-gtv) #f) (do (fun (attr) (when (isa? attr ) (post "Processing attribute pair: %=\n" attr) (case-by (1st attr) = (('prop-axes) (set (prop-axes gtv) (tail attr)) ) ) ) ) (attrs gtv) ) (when (>= (len (prop-axes gtv)) (len (columns gtv))) (def column (gtk_tree_view_column_new)) (add! (columns gtv) column) (gtk_tree_view_column_set_title column (as (elt (prop-axes gtv) (- (len (columns gtv)) 2)))) (gtk_tree_view_column_pack_start column (column-renderer gtv) (log-to-gtk #t)) (gtk_tree_view_column_add_attribute column (column-renderer gtv) "text" (- (len (columns gtv)) 1)) (gtk_tree_view_append_column (handle gtv) column) ) ) ;; --- REFRESH --- (fun () ;(msg out "Refreshing!\n") (gtk_tree_goo_refresh (handle (model my-gtv))) ;yes this does go first (gtk_tree_view_set_model (handle my-gtv) NULL) (gtk_tree_view_set_model (handle my-gtv) (handle (model my-gtv))) ) ; This is where we would de-bind if memory ; weren't so cheap that we don't need to ; worry about memory leaks. ; (ha ha ha, I'm funny.) ; But really, it would be a good idea to free stuff here. (fun () ; free your mind! ) ) ) ) ;; /// TreeView Function Callees (dm gtk-tv-get-n-columns (gtv|) (+ 1 (len (prop-axes gtv))) ) (dm gtk-tv-get-start-node (gtv|) (def start-node (get-start-node (collection gtv))) ;; Garbage collection kludge :P (set (cur-root gtv) start-node) start-node ) (dm gtk-tv-get-label (gtv| node column|) (def my-result (if (== 0 column) ;; If it's the first column, just use the node itself. (eg, don't traverse fundamental axis) (to-str (node-label (collection gtv) node)) (seq ;; Other column -> use property axes (def prop-axis (elt (prop-axes gtv) (- column 1))) (def props (node-out-edges (collection gtv) prop-axis node)) (if (< 0 (len props)) (node-label (collection gtv) (1st props)) "") ;; nothing for us? it's okay. we just leave it blank ) ) ) my-result ) (dm gtk-tv-iter-children (gtv| node) (def kids (node-out-edges (collection gtv) (axis gtv) node)) (if (< 0 (len kids)) (1st kids) #f) ) (dm gtk-tv-iter-has-child (gtv| node => ) (def has-child (< 0 (len (node-out-edges (collection gtv) (axis gtv) node)))) ;; (msg out "%= has child: %=\n" (address-of node) has-child) has-child ) (dm gtk-tv-iter-n-children (gtv| node => ) (def num-kids (len (node-out-edges (collection gtv) (axis gtv) node))) ;; (msg out "Reporting %= kids for node %=\n" num-kids (address-of node)) num-kids ) (dm gtk-tv-iter-nth-child (gtv| node n) (def num-kids (len (node-out-edges (collection gtv) (axis gtv) node))) (if (< n num-kids) (elt (node-out-edges (collection gtv) (axis gtv) node) n) (seq (msg out "Out of bounds iter-nth-child access (%= of %=)\n" n num-kids) #f ) ) ) (dm gtk-tv-iter-next-child (gtv| node) (def parent (gtk-tv-iter-parent gtv node)) (def n (+ 1 (gtk-tv-node-pos-in-parent gtv node parent))) (def edges (node-out-edges (collection gtv) (axis gtv) parent)) (if (>= n (len edges)) (seq #f ) (elt edges n) ) ) (dm gtk-tv-iter-parent (gtv| node) (def da-parent (node-in-edges (collection gtv) (axis gtv) node)) (if (and da-parent (< 0 (len da-parent))) (seq (1st da-parent) ) (seq #f) ) ) (dm gtk-tv-iter-has-parent (gtv| node => ) (def retval (~= 0 (len (node-in-edges (collection gtv) (axis gtv) node)))) retval ) (dm gtk-tv-node-pos-in-parent (gtv| node parent => ) (pos (node-out-edges (collection gtv) (axis gtv) parent) node) ) (register-interface-model (interface-model (fun (item attribs) (if (mem? attribs 'treeview) 1000 1)) (fun (info class updaters) (def my-gtv (gui-treeview)) (def gtv-updater (bind my-gtv info)) (ad! updaters gtv-updater) my-gtv ) ) ) (export ) (export gui-treeview ) ;; ;; Must export for linking purposes ;; (export ;; gtk-tv-get-n-columns ;; gtk-tv-get-start-node ;; gtk-tv-get-label ;; gtk-tv-iter-children ;; gtk-tv-iter-has-child ;; gtk-tv-iter-n-children ;; gtk-tv-iter-nth-child ;; gtk-tv-iter-next-child ;; gtk-tv-iter-parent ;; gtk-tv-iter-has-parent ;; gtk-tv-node-pos-in-parent ;; )goo-0.155/src/samurui/core/util.goo0100644000175000017500000000372007611105276016607 0ustar vomjomvomjom(use goo) (use goo/boot) (dv gtk_true 1) (dv gtk_false 0) (dv NULL (%lb 0)) (dv null_loc NULL) ; Utility (dm add-all! (to from) (do (fun (x) (ad! to x) ) from) ) (dg add-all-opt! (to from)) (dm add-all! ((to ) (from )) (do (fun (key) (set (elt to key) (elt from key)) ) (keys from) ) ) (dm ad! (to thing) (add! to thing) ) ; Utility:Pull Out ; Takes a function that is to be tested on a class and all of its ancestors ; in an arbitrary order (basically working its way up) (dm find-first-class ((func ) (base-class ) => ) (if (func base-class) base-class (let ((queue (class-parents base-class))) (esc found-it (do (fun ((cur-class )) (if (func cur-class) (found-it cur-class) (add-all! queue (class-parents cur-class)) )) queue ) ) ) ) ) ;; I think this needlessly recreates the join function. (didn't know about it before) (dm cat-with-commas (c|) (def did-first #f) (def str-so-far "") (do (fun (cur) (when did-first (set str-so-far (cat str-so-far ", ")) ) (set str-so-far (cat str-so-far cur)) (set did-first #t) ) c ) str-so-far ) (df okie? (l| m|) (when (== l null_loc) (msg out m) (msg out "\n")) ) (ds debugstr (,@body) `(msg out ,@body) ) (dm log-to-gtk ((log ) => ) (if log gtk_true gtk_false) ) (dm gtk-to-log (gtk-val| => ) (gtk-val == gtk_true) ) (dg ad! (to thing)) (dm ad! (to thing) (add! to thing) ) (dg rem! (cont thing)) (dg ad-opt! (cont item opt|(t? ))) (export add-all! add-all-opt! ad! ad-opt! rem! find-first-class cat-with-commas okie? debugstr log-to-gtk gtk-to-log gtk_true gtk_false NULL null_loc ) goo-0.155/src/samurui/core/visicol.goo0100644000175000017500000000634507542215176017314 0ustar vomjomvomjom(use goo) (use samurui/core/util) ;;; ---- ---- ;;; ------ VisiCollections ------ ;;; ---- ---- ;;; The protocol for dealing with graphs/collections needs to be: ;;; - Relatively Simple ;;; - External to the nodes; ideally the collection should be backable by a database store, ;;; allowing user interaction with a subset of the store at a time so as to prevent massive ;;; thrash-death. ;;; - Easily reducible to efficient tree-behavior. ;;; ;;; Support for these behaviors from a node perspective should be easy/transparent. To this end: ;;; - Properties should be easily annotated to be _named_ edges. ;;; ;;; NOTE! All collections returns are treated as if they are immutable, so for efficiency purposes ;;; provides of the interface *can* expose internal reps safely. ;; ------------------------ ;; Initial Node Information - we need a way to arbitrarily decide on an initial node ;; in the case of db-backed collections. ;; ------------------------ (dc ()) ;; ---------------- ;; Node-Information ;; ---------------- (dm node-label (c node => ) (to-str node) ) (dg get-start-node (vc| => )) ;; node-weight is expected to provide information for visualizations that rely on some form of magnitude to create a useful ;; visualization. eg treemap, starburst, etc. All visualizations rely on container objects to provide the aggregate weight ;; of the things it contains, and will not traverse the sub-structure to calculate it. Eg, in the case of file-systems, ;; we expect that the visi-col will pre-calculate, or calculate on demand, the total disk usage of a given directory. (dm node-weight (c node => ) 1.0 ) (dm node-browsable (c node => ) #t ) (dg node-axes (vc| => )) (dg node-out-edges (vc| axis node => )) (dg node-in-edges (vc| axis node => )) ;;; to-call should be of the form (fun (node) ...) ;;; it is assumed you will know what collection we are talking about. ;;; [this is a dubious assumption to make, but arguably it is more ;;; efficient for the variable to be closed-over than to be passed ;;; every damn time.] (dm register-node-add-notification(c to-call) #f ) (dm remove-node-add-notification (c was-called) #f ) ;;; to-call should be of the form: (fun (from to axis) ...) ;;; it is assumed you will know what collection we are talking about. ;;; [this is a dubious assumption to make, but arguably it is more ;;; efficient for the variable to be closed-over than to be passed ;;; every damn time.] (dm register-edge-add-notification(c to-call) #f ) (dm remove-edge-add-notification (c was-called) #f ) ;; I think join can be used instead of cat-with-commads (dm axis-to-str (vc| axis node => ) (def axis-val (node-out-edges vc axis node)) (case (len axis-val) ((0) "") ((1) (to-str (1st axis-val))) (#t (cat-with-commas (map to-str axis-val))) ) ) (export ) (export node-label get-start-node node-weight node-browsable node-axes node-out-edges node-in-edges register-node-add-notification remove-node-add-notification register-edge-add-notification remove-edge-add-notification axis-to-str )goo-0.155/src/samurui/core/visiwrapcol.goo0100644000175000017500000001026407622277612020203 0ustar vomjomvomjom(use goo) (use samurui/core/visicol) ;; visi-wrap (dc ()) (dp! wrapped ( => )) (dp! parent-hash ( => ) (fab 0)) (dm visi-wrap-col (to-wrap| => ) (def vwc (new )) (set (wrapped vwc) to-wrap) vwc ) (dm get-start-node (vwc| => ) (wrapped vwc) ) ;; It's generally good to have a simple label for a given node. Note that we are not using to-str ;; because that is a function of only the node, whereas we want the collection to be the control ;; factor. The colleciton can of course defer to to-str if it is so inclined. (dm node-label (vwc| node => ) (if (and (isa? node ) (not (isa? node ))) "Collection" (to-str node) ) ) ;; Our weight is 1.0 if we are a leaf, or the sum of the weights of our children if we're a collection. ;; Of course, we're screwed if there are loops/recursion in our structure. (dm node-weight (vwc| node => ) (if (and (isa? node ) (not (isa? node ))) (fold+ + (map (fun (x) (node-weight vwc x)) node)) 1.0) ) (dm node-browsable (vwc| node => ) (not (and (isa? node ) (not (isa? node )))) ) ;; ---------------- ;; Edge-Information ;; ---------------- ;; Returns a list of the axes supported by the nodes (dm node-axes (vwc| => ) (vec "implicit") ) ;; Retrieves the edges associated with the given axis for the node. (dm node-out-edges (vwc| axis node => ) (if (and (isa? node ) (not (isa? node ))) (seq ;; Make sure the parent links are there (do (fun (x) (set (elt (parent-hash vwc) x) node)) node) ;; Now return the collection node ) (empty )) ) (dm node-in-edges (vwc| axis node => ) (def node-parent (elt-or (parent-hash vwc) node #f)) (if node-parent (tup node-parent) (empty )) ) ;; visi-wrap (dc ()) (dp! wrapped ( => )) (dm visi-reversablize (to-wrap| => ) (def vr (new )) (set (wrapped vr) to-wrap) vr ) (dm get-start-node (vr| => ) (vr-node (get-start-node (wrapped vr)) #f) ) (dc ()) (dp! wrapped ( => )) (dp! kids ( => ) (fab 0)) (dp! parent ( => (t? ))) (dm vr-node (cur-node node-parent) (def vrn (new )) (set (wrapped vrn) cur-node) (set (parent vrn) node-parent) vrn ) ;; It's generally good to have a simple label for a given node. Note that we are not using to-str ;; because that is a function of only the node, whereas we want the collection to be the control ;; factor. The colleciton can of course defer to to-str if it is so inclined. (dm node-label (vr| node| => ) (node-label (wrapped vr) (wrapped node)) ) ;; Our weight is 1.0 if we are a leaf, or the sum of the weights of our children if we're a collection. ;; Of course, we're screwed if there are loops/recursion in our structure. (dm node-weight (vr| node| => ) (node-weight (wrapped vr) (wrapped node)) ) (dm node-browsable (vr| node| => ) (node-browsable (wrapped vr) (wrapped node)) ) ;; ---------------- ;; Edge-Information ;; ---------------- ;; Returns a list of the axes supported by the nodes (dm node-axes (vr| => ) (node-axes (wrapped vr)) ) ;; Retrieves the edges associated with the given axis for the node. (dm node-out-edges (vr| axis node| => ) (or (elt-or (kids node) axis #f) (set (elt (kids node) axis) (map (fun (kid) (vr-node kid node)) (node-out-edges (wrapped vr) axis (wrapped node))))) ) (dm node-in-edges (vr| axis node| => ) (if (parent node) (tup (parent node)) (tup) ) ) (export visi-wrap-col visi-reversablize ) goo-0.155/src/tests/0040755000175000017500000000000007756746030013663 5ustar vomjomvomjomgoo-0.155/src/tests/CVS/0040755000175000017500000000000007756746030014316 5ustar vomjomvomjomgoo-0.155/src/tests/CVS/Root0100644000175000017500000000003307756746030015155 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/tests/CVS/Repository0100644000175000017500000000001607756746030016412 0ustar vomjomvomjomgoo/src/tests goo-0.155/src/tests/CVS/Entries0100644000175000017500000000050107756746030015643 0ustar vomjomvomjom/boot-tests.goo/1.4/Mon Mar 25 03:37:46 2002// /dependency.goo/1.7/Thu Sep 19 00:28:44 2002// /driver.goo/1.14/Tue Jan 14 22:10:06 2003// /language.goo/1.18/Thu Jan 16 17:54:32 2003// /read-tests.goo/1.3/Mon Mar 25 03:37:46 2002// /tst.goo/1.2/Wed Aug 1 21:15:30 2001// /write-tests.goo/1.3/Mon Mar 25 03:37:46 2002// D goo-0.155/src/tests/boot-tests.goo0100644000175000017500000000015407447515612016466 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (rev! (add '() 1)) (dm f (x|) (+ x x)) (f 2) goo-0.155/src/tests/dependency.goo0100644000175000017500000000474707542215074016510 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use tests/driver) (use eval/dependency) (test-group dep-types (test== (dependency-nul? $nul-dependency) #t) (test== (dependency-nul? $name-parse-dependency) #f) (test== (dependency-includes-all? $parse-dependencies $name-parse-dependency) #t) (let ((n-and-e (dependency-or $name-parse-dependency $expansion-parse-dependency))) (test== (dependency-includes-all? n-and-e $name-parse-dependency) #t) (test== (dependency-includes-all? n-and-e $expansion-parse-dependency) #t))) (dc ()) (dp! last-invalidation ( => ) $nul-dependency) (dp! invalidation-count ( => ) 0) (dm invalidate-dependent (self| dependable| dtype|) (set (last-invalidation self) dtype) (incf (invalidation-count self))) (test-group dep-track (def source1 (new )) (def source2 (new )) (def dest1 (new )) (def dest2 (new )) (test== (find-dependency source1 dest1) #f) (test== (find-dependency source1 dest2) #f) (log-dependency source1 dest1 $name-parse-dependency) (test= (find-dependency source1 dest1) $name-parse-dependency) (log-dependency source1 dest2 $expansion-parse-dependency) (log-dependency source1 dest2 $value-optimization-dependency) (test= (find-dependency source1 dest2) (dependency-or $expansion-parse-dependency $value-optimization-dependency)) (test== (invalidation-count dest1) 0) (test= (last-invalidation dest1) $nul-dependency) (test== (invalidation-count dest2) 0) (test= (last-invalidation dest2) $nul-dependency) (invalidate-dependents source1 $parse-dependencies) (test== (invalidation-count dest1) 1) (test= (last-invalidation dest1) $name-parse-dependency) (test== (invalidation-count dest2) 1) (test= (last-invalidation dest2) $expansion-parse-dependency) (invalidate-dependents source1 $optimizaton-dependencies) (test== (invalidation-count dest1) 1) (test== (invalidation-count dest2) 2) (test= (last-invalidation dest2) $value-optimization-dependency) (log-dependency source2 dest2 $name-parse-dependency) (test= (find-dependency source2 dest2) $name-parse-dependency) (detach-dependent dest2) (test= (find-dependency source1 dest2) #f) (test= (find-dependency source2 dest2) #f)) goo-0.155/src/tests/driver.goo0100644000175000017500000001120407611105276015646 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;; (%trace-on) ;; (%trace-off) ;;; Some of these bugs app to tests/driver, and some to tests/language, ;;; I think. ;;; ;;; BUGS ;;; ;;; 1. need element-type and generator therein (fabs 0 1) ;;; 2. fab 2 causes nyi which should be a real condition ;;; 3. warnings shouldn't result in failure ;;; 4. need way to debug object system and retest with undef? ;;; 5. need split to debug 's (use goo) (dv *tests* '()) (dm add-test (name) (set *tests* (del-dups (cat *tests* (lst name))))) (dm del-test (name) (set *tests* (del-vals *tests* name))) (dg run-tests (group-name|)) (ds test-group (,name ,@tests) (mif ((,name disabled) name) `(del-test ',name) `(seq (add-test ',name) (dm run-tests (group-name|(t= ',name)) ,@tests )))) (export add-test del-test run-tests test-group) (dv *test-trace?* #t) (dv *test-doc* #f) (export *test-trace?*) (dm do-test (group-name doc input-thunk) (dlet ((*test-doc* doc)) (when *test-trace?* (msg out " %s\n" doc)) (input-thunk))) (dc ()) (dm recurring-write (port| x| d| recur|) (write port (condition-message x))) (dm recurring-write (port| x| d| recur|) (app msg (cat (lst port (condition-message x)) (condition-arguments x)))) (dm do-test-fn (group-name doc compare input-thunk output-thunk) (dlet ((*test-doc* doc)) (when *test-trace?* (msg out " %s\n" doc)) (def input (input-thunk)) (def output (output-thunk)) (unless (compare input output) (sig (new condition-message (cat (as group-name) ": " doc " was %=, not %=") condition-arguments (list input output)))))) (dm do-test-eq (group-name doc input-thunk out-thunk) (do-test-fn group-name doc == input-thunk out-thunk)) (dm do-test-eqv (group-name doc input-thunk out-thunk) (do-test-fn group-name doc = input-thunk out-thunk)) (dm do-test-neq (group-name doc input-thunk out-thunk) (do-test-fn group-name doc ~== input-thunk out-thunk)) (dm do-test-neqv (group-name doc input-thunk out-thunk) (do-test-fn group-name doc ~= input-thunk out-thunk)) (export do-test do-test-fn do-test-eq do-test-eqv do-test-neq do-test-neqv) (ds test (,input) `(do-test group-name ,(to-str input) (fun () ,input))) (ds test= (,input ,output) `(do-test-eqv group-name ,(to-str input) (fun () ,input) (fun () ,output))) (ds test== (,input ,output) `(do-test-eq group-name ,(to-str input) (fun () ,input) (fun () ,output))) (ds test~= (,input ,output) `(do-test-neqv group-name ,(to-str input) (fun () ,input) (fun () ,output))) (ds test~== (,input ,output) `(do-test-neq group-name ,(to-str input) (fun () ,input) (fun () ,output))) (export test test= test== test~= test~==) ;; (def `(out ,@objects) ;; `(do puts (lst ,@(map (fun (x) `(to-str ,x)) objects)))) (dv *catch-test-errors* #t) (dm run-tests-in (tst => (tup errors| warnings|)) (def errors '()) (def warnings '()) (if *catch-test-errors* (esc break (try (fun (condition resume) (post "Failure: %s\n" (describe-condition condition)) (if (isa? condition ) (seq (pushf warnings (lst condition *test-doc*)) (resume #f)) (seq (pushf errors (lst condition *test-doc*)) (break #f)))) (tst))) (tst)) (tup errors warnings)) (dv *all-warnings* #f) (dv *all-errors* #f) (dm run-all-tests (=> ) (newline out) (def all-warnings '()) (def all-errors '()) (do (fun (tst) (when tst (post "Testing %=\n" tst) (def (tup errors warnings) (run-tests-in (fun () (run-tests tst)))) (set all-warnings (cat! all-warnings warnings)) (set all-errors (cat! all-errors errors)))) *tests*) (post "WARNING AND ERROR SUMMARY\n") (set *all-warnings* all-warnings) (set *all-errors* all-errors) (do (fun (c) (post "Warning: %=. Continuing...\n" (describe-condition (head c)))) (rev all-warnings)) (do (fun (c) (post "Error: %=.\n" (describe-condition (head c)))) (rev all-errors)) (post "Tautology completed with %= warnings and %= errors\n" (len all-warnings) (len all-errors)) (+ (len all-warnings) (len all-errors))) (export run-all-tests) goo-0.155/src/tests/language.goo0100644000175000017500000003725107611570730016151 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. ;;; Test code for the Goo language. ;;; ;;; See the bug list at the top of tests/driver; some things there might ;;; apply to this file instead. ;;; ;;; Also, note that the protocol-based testing code all lives here. ;;; You may want to refactor it into tests/driver if it seems general ;;; enough. (use goo) (use tests/driver) (test-group slf (test== 1 1) (test== #t #t) (test== #f #f) (test== 'a 'a) (test= '(a) '(a))) (dv $no-value #f) (test-group var (test= (dv x 1) 1) (test= x 1) (test= (set x 2) 2) (test= x 2)) (test-group ifc (test= (if #t 1 2) 1) (test= (if #f 1 2) 2) (test= (if #t 3) 3) (test= (if #f 4) #f)) (test-group fun (test (fun (x) x)) (test= ((fun (x) x) 2) 2) (test (fun ((x ...)) x)) (test= ((fun ((x ...)) x) 1 2 3) '(1 2 3)) (test (fun (x (y ...)) y)) ;; (test= ((fun (x (y ...)) y) 1 2 3) '(2 3)) ) (test-group beg (test= (seq) #f) (test= (seq 2) 2) (test= (seq 2 3) 3)) (test-group lut (test= (let ((a 1)) a) 1) (test= (let ((a 2) (b a)) a) 2)) (test-group app (test= (+ 1 2) 3) (test= ((fun (x) x) 2) 2)) (test-group iterate (test= (rep sum ((s 0) (i 5)) (if (< i 0) s (sum (+ s 1) (- i 1)))) 6)) (test-group locals (test= (loc ((f (x) (g x)) (g (y) y)) (f 1)) 1)) (test-group bind-exit (test= (esc ret (ret 1)) 1) (test= (esc ret 2) 2) (test= (esc ret ((fun (x r) (r x)) 3 ret)) 3)) (test-group protect (test= (fin 1 2) 1) (test= (let ((x 1)) (esc ret (fin (ret 1) (set x 2))) x) 2) (test= (let ((x 1)) (esc ret (fin 1 (set x 2))) x) 2)) ;; (test-group isa ;; (test (isa )) ;; (test (isa ())) ;; (test (dv Pti (isa ))) ;; (test (dv Pti2 (isa Pti))) ;; (test (dv A (isa ))) ;; (test (dv B (isa ))) ;; (test (dv C (isa A))) ;; (test (dv D (isa C))) ;; (test (dv E (isa C))) ;; (test (dv I (isa B))) ;; (test (dv J (isa (A B)))) ;; (test= (isa? C A) #t) ;; (test= (isa? C B) #f) ;; (test= (isa? D C) #t) ;; (test= (isa? E C) #t) ;; (test= (isa? I B) #t) ;; (test= (isa? J A) #t) ;; (test= (isa? J B) #t) ;; (test= (isa? J C) #f)) ;; ;; (test-group dis ;; ;; (unset f) ;; (test (dm (f (x A)) 'a)) ;; (test (dm (f (x B)) 'b)) ;; (test (dm (f (x C)) 'c)) ;; ;; (test (dv (f (x D)) 'd)) ;; ;; (test (dv (f (x E)) 'e)) ;; ;; (test (dv (f (x F)) 'f)) ;; (test= (f A) a) ;; (test= (f B) b) ;; (test= (f C) c) ;; (test= (f D) c) ;; (test= (f E) c) ;; (test= (f I) b) ;; ;; (test= (f J) ambiguous) ;; ) ;; ;; (test-group slt ;; ;; (unset x) (unset x-setter) ;; ;; (unset y) (unset y-setter) ;; ;; (unset Pt) (unset p) ;; (test (dv Pt (isa ))) ;; (test (dp x (Pt => ))) ;; (test== (x Pt) Nul) ;; (test== (set (x Pt) Pt) Pt) ;; (test== (x Pt) Pt) ;; (test (dp y (Pt => ))) ;; (test (y Pt) Pt) ;; (test (dv p (isa Pt))) ;; (test== (x p) Pt) ;; (test== (y p) Pt)) ;; (test-group cnd ...) ;;; DISPATCH ;;; FUNCTION REDEF (ds def-protocol-tests (((,var ,name)) ,@tests) `(dm test-object (,var|(t< ,name)) (let ((group-name ',name)) ,@tests))) (ds def-concrete-protocol-tests ((,var|,name) ,@tests) `(seq (def-protocol-tests (,var|,name) ,@tests) (test-group ,name (test-object ,name))))) (def-protocol-tests (x|) ;; (to-str => ) ) (def-concrete-protocol-tests (x|) (sup x) ;; lower? (x| => ) ;; upper? (x| => ) ;; to-lower (x| => ) ;; to-upper (x| => ) ;; alpha? (x| => ) ;; digit? (x| => ) ;; to-digit (digit| => ) ;; ascii->char (n| => ) ;; char->integer (char| => ) ;; integer->char (n| => ) ;; char->ascii (char| => ) ) (def-protocol-tests (x|) (sup x) (def ex (op as x _)) (test== (pos? (ex 1)) #t) (test== (pos? (ex 0)) #f) (test== (pos? (ex -1)) #f) (test== (neg? (ex 1)) #f) (test== (neg? (ex 0)) #f) (test== (neg? (ex -1)) #t) (test== (zero? (ex 1)) #f) (test== (zero? (ex 0)) #t) (test== (zero? (ex -1)) #f) (test== (< (ex 1) (ex 2)) #t) (test== (< (ex -1) (ex 0)) #t) (test== (< (ex 2) (ex 1)) #f) (test== (+ (ex 1) (ex 2)) (ex 3)) (test== (+ (ex -1) (ex 2)) (ex 1)) (test== (- (ex 1) (ex 2)) (ex -1)) (test== (- (ex 2) (ex 1)) (ex 1)) (test== (* (ex 4) (ex 8)) (ex 32)) (test== (* (ex -3) (ex 7)) (ex -21)) ;; floor (x| => ) ;; ceil (x| => ) ;; round (x| => ) ;; trunc (x| => ) ;; floor/ (real| divisor| => (tup rem|)) ;; ceil/ (real| divisor| => (tup rem|)) ;; round/ (real| divisor| => (tup rem|)) ;; trunc/ (real| divisor| => (tup rem|)) ;; modulo (real| divisor| => ) ;; remainder (real| divisor| => ) ;; neg (x| => ) ;; abs (x| => ) ;; to-str (x| => ) ) (def-concrete-protocol-tests (x|) (sup x) (test= (| 1 2) 3) (test= (| 1 1) 1) (test= (| 1 0) 1) (test= (^ 1 2) 3) (test= (^ 1 1) 0) (test= (^ 1 0) 1) (test= (& 1 2) 0) (test= (& 1 1) 1) (test= (& 1 0) 0) (test= (~ 1) -2) (test= (~ 0) -1) (test= (~ 2) -3) (test= (bit? 5 0) #t) (test= (bit? 5 1) #f) (test= (bit? 5 2) #t) (test= (even? 0) #t) (test= (even? 1) #f) (test= (even? -1) #f) (test= (even? -2) #t) (test= (odd? 0) #f) (test= (odd? 1) #t) (test= (odd? -1) #t) (test= (odd? -2) #f) (test= (<< 1 2) 4) (test= (<< 2 2) 8) (test= (<< -1 2) -4) (test= (>> 1 2) 0) ) (def-concrete-protocol-tests (x|) (sup x) ) (dm col-elt-type (x|(t< ) => ) ) (dm col-elt-type (x|(t< ) => ) ) (dm as-elt (c|(t< ) x) (as (col-elt-type c) x)) (dm fabsex (type|(t< ) ints|...) (def et (col-elt-type type)) (app fabs type (map (fun (x) (as et x)) ints))) (dm int-plus (x y) (+ (as x) (as y))) (def-protocol-tests (x|) (sup x) (def ex (op as (col-elt-type x) _)) ;; (col (t< ) x|... => ) ;; (default => ) (test (fab x 0)) ;; (col-res x y) (test== (isa? (key-type (nul x)) ) #t) (test== (isa? (elt-type (nul x)) ) #t) (test== (isa? (key-test (nul x)) ) #t) (test== (nul? (fab x 0)) #t) (test (nul x)) (test= (len (nul x)) 0) (test= (nul x) (fab x 0)) (test= (len (fab x 0)) 0) (test= (fabsex x 1 2) (fabsex x 1 2)) (test (fab x 5)) (test== (elt (fabsex x 1 2) 0) (ex 1)) (test== (elt-or (fabsex x 1 2) 2 0) 0) (test (let ((res (elts (fabsex x 1 2 3) '(0 2)))) (and (= (len res) 2) (== (elt-or res 0 #f) 1) (== (elt-or res 2 #f) 3)))) (test= (dup (fabsex x 1 2)) (fabsex x 1 2)) (test= (sort (as (keys (fabsex x 1 2 3)))) '(0 1 2)) (test= (sort-by (items (fabsex x 1 2 3)) (op < (1st _) (1st _))) (lst (tup 0 (ex 1)) (tup 1 (ex 2)) (tup 2 (ex 3)))) (test= (del (fabsex x 1 2 3) (ex 2)) (fabsex x 1 2)) (test= (zap (fabsex x 1 2 3)) '()) (test= (fill (fabsex x 1 2 3) (ex 0)) (fabsex x 0 0 0)) (test== (mem? (fabsex x 1 2) (ex 1)) #t) (test== (mem? (fabsex x 1 2) (ex 0)) #f) (test== (any? (fun (e) (= e (ex 1))) (nul x)) #f) (test== (any? (fun (e) (= e (ex 1))) (fabsex x 1)) #t) (test== (any? (fun (e) (= e (ex 1))) (fabsex x 2)) #f) (test== (any? (fun (e) (= e (ex 1))) (fabsex x 1 1 1)) #t) (test== (any? (fun (e) (= e (ex 1))) (fabsex x 1 2 3)) #t) (test== (any? (fun (e) (= e (ex 1))) (fabsex x 3 2 4)) #f) (test== (all? (fun (e) (= e (ex 1))) (nul x)) #t) (test== (all? (fun (e) (= e (ex 1))) (fabsex x 1)) #t) (test== (all? (fun (e) (= e (ex 1))) (fabsex x 2)) #f) (test== (all? (fun (e) (= e (ex 1))) (fabsex x 1 1 1)) #t) (test== (all? (fun (e) (= e (ex 1))) (fabsex x 1 2 3)) #f) (test== (all? (fun (e) (= e (ex 1))) (fabsex x 3 2 4)) #f) (test (seq (do (fun (e) e) (fabsex x 1 2)) #t)) (test= (map (fun (e) (ex (+ (as e) 1))) (fabsex x 1 2)) (fabsex x 2 3)) (test= (find (fun (x) (odd? (as x))) (fabsex x 2 3)) 1) (test= (find-or (fun (x) (odd? (as x))) (fabsex x 2 4) 0) 0) (test= (fold int-plus 0 (nul x)) 0) (test= (fold int-plus 0 (fabsex x 1)) 1) (test= (fold int-plus 0 (fabsex x 1 2)) 3) (test= (fold int-plus 0 (fabsex x 1 2 3)) 6) ;; (test= (fold+ + (nul x)) 0) ;TODO: CONDITION (test= (fold+ int-plus (fabsex x 1)) (ex 1)) (test= (fold+ int-plus (fabsex x 1 2)) 3) (test= (fold+ int-plus (fabsex x 1 2 3)) 6) ;; fip ;; what about len-setter? ) ;;(def-protocol-tests (x|) ;; (sup x) ;; add followed by mem? ;; ) (def-protocol-tests (x|) (sup x) ;; elts of non pos int keys ;; col ;; zap ) (def-concrete-protocol-tests (x|) (sup x) ;; perhaps hashing functions ;; str hashing ) (def-protocol-tests (x|) (sup x) (def ex (op as (col-elt-type x) _)) (test= (fill (fab x 4) (ex 1)) (fabsex x 1 1 1 1)) (test= (1st (fabsex x 1 2 3 4)) (ex 1)) (test= (2nd (fabsex x 1 2 3 4)) (ex 2)) (test= (3rd (fabsex x 1 2 3 4)) (ex 3)) (test= (last (fabsex x 1 2 3 4)) (ex 4)) (test= (add (fabsex x 2 3) (ex 1)) (fabsex x 1 2 3)) (test= (rev (fabsex x 1 2 3)) (fabsex x 3 2 1)) (test= (cat (fabsex x 1 2) (fabsex x 3 4)) (fabsex x 1 2 3 4)) (test= (cat (fabsex x 1 2) (fabsex x 3 4) (fabsex x 5)) (fabsex x 1 2 3 4 5)) (test= (sub (fabsex x 1 2 3 4) 0 2) (fabsex x 1 2)) (test= (sub (fabsex x 1 2 3 4) 1 3) (fabsex x 2 3)) (test= (sub* (fabsex x 1 2 3 4) 2) (fabsex x 3 4)) (test= (del-dups (fabsex x 1 2 3 4)) (fabsex x 1 2 3 4)) (test= (del-dups (fabsex x 1 2 1 1)) (fabsex x 1 2)) (test= (del-vals (fabsex x 1 2 3 4) (ex 2)) (fabsex x 1 3 4)) (test= (del-vals (fabsex x 1 2 2 3) (ex 2)) (fabsex x 1 3)) (test= (finds (fabsex x 1 2 3 4) (fabsex x 2 3)) 1) (test= (finds (fabsex x 1 2 3 4) (fabsex x 1 2 3 4)) 0) (test= (finds (fabsex x 1 2 3) (fabsex x 1 2 3 4)) #f) (test= (finds (fabsex x 1 2 3 4) (fabsex x 2 4)) #f) (test= (1st (pop (push (fabsex x 1) (ex 0)))) (fabsex x 1)) (test= (2nd (pop (push (fabsex x 1) (ex 0)))) (ex 0)) (test= (1st (pop (push (fabsex x 1 2) (ex 0)))) (fabsex x 1 2)) (test= (2nd (pop (push (fabsex x 1 2) (ex 0)))) (ex 0)) (test= (ins (fabsex x 1 2) (ex 0) 0) (fabsex x 0 1 2)) (test= (ins (fabsex x 1 2) (ex 3) 2) (fabsex x 1 2 3)) (test= (ins (fabsex x 1 2) (ex 3) 3) (fabsex x 1 2)) ;; TODO: ERROR (test= (pick odd? (fabsex x 1 2 3 4)) (fabsex x 1 3)) (test= (reject odd? (fabsex x 1 2 3 4)) (fabsex x 2 4)) (test= (sort (fabsex x 1 4 3 2)) (fabsex x 1 2 3 4)) (test= (sort-by (fabsex x 1 4 3 2) >) (fabsex x 4 3 2 1)) (test= (suffix? (fabsex x 1 2 3 4) (fabsex x 3 4)) #t) (test= (suffix? (fabsex x 1 2 3 4) (fabsex x 3 4 5)) #f) (test= (suffix? (fabsex x 1 2 3 4) (fabsex x 1 2 3 4 5)) #f) (test= (prefix? (fabsex x 1 2 3 4) (fabsex x 1 2)) #t) (test= (prefix? (fabsex x 1 2 3 4) (fabsex x 0 1 2)) #f) (test= (prefix? (fabsex x 1 2 3 4) (fabsex x 1 2 3 4 5)) #f) (test= (repeat (fabsex x 1 2) 0) (fabsex x)) (test= (repeat (fabsex x 1 2) 1) (fabsex x 1 2)) (test= (repeat (fabsex x 1 2) 2) (fabsex x 1 2 1 2)) (test= (len (split (fabsex x 1 0 2 0 3) (ex 0))) 3) (test= (join (lst (fabsex x 1 2) (fabsex x 3 4) (fabsex x 5)) (fabsex x 0)) (fabsex x 1 2 0 3 4 0 5)) (test= (join (split (fabsex x 1 2 0 3 4 0 5) (ex 0)) (fabsex x 0)) (fabsex x 1 2 0 3 4 0 5)) ;; (vals-to-str ) ) ;;; TODO: CHECK FOR MUT PROP -- TOUGH FOR LST'S (def-protocol-tests (x|) (sup x) (def ex (op as (col-elt-type x) _)) (test= (into (fabsex x 1 2) (fabsex x 2 3)) (fabsex x 2 3)) ;; (elt-setter ) ;; (elt! ) (test= (fill! (fabsex x 1 2 3) (ex 0)) (fabsex x 0 0 0)) (test= (del! (fabsex x 1 2 3) (ex 2)) (fabsex x 1 2)) (test= (zap! (fabsex x 1 2)) (fabsex x)) (test= (zap! (fabsex x 1 2)) (fabsex x)) ) (def-protocol-tests (x|) (sup x) (def ex (op as (col-elt-type x) _)) (test= (add (fabsex x 2 3) (ex 1)) (fabsex x 1 2 3)) (test= (let ((x (fabsex x 1))) (set (len x) 0) x) (fabsex x)) (test= (let ((x (fabsex x 1 2))) (set (len x) 1) x) (fabsex x 1)) (test= (let ((x (fabsex x 1 2))) (set (len/fill x (ex 0)) 3) x) (fabsex x 1 2 0)) (test= (rev! (fabsex x 1 2 3)) (fabsex x 3 2 1)) (test= (cat! (fabsex x 1 2) (fabsex x 3 4)) (fabsex x 1 2 3 4)) (test= (cat! (fabsex x 1 2) (fabsex x 3 4) (fabsex x 5)) (fabsex x 1 2 3 4 5)) (test= (1st (pop! (push! (fabsex x 1) (ex 0)))) (fabsex x 1)) (test= (2nd (pop! (push! (fabsex x 1) (ex 0)))) (ex 0)) (test= (1st (pop! (push! (fabsex x 1 2) (ex 0)))) (fabsex x 1 2)) (test= (2nd (pop! (push! (fabsex x 1 2) (ex 0)))) (ex 0)) (test= (ins! (fabsex x 1 2) (ex 0) 0) (fabsex x 0 1 2)) (test= (ins! (fabsex x 1 2) (ex 2) 3) (fabsex x 1 2 3)) (test= (ins! (fabsex x 1 3) (ex 1) 2) (fabsex x 1 2 3)) (test= (set (sub (fabsex x 1 2) 0 1) (fabsex x 0)) (fabsex x 0 2)) (test= (set (sub (fabsex x 1 2) 0 0) (fabsex x 0)) (fabsex x 0 1 2)) (test= (set (sub (fabsex x 1 2) 0 2) (fabsex x 0)) (fabsex x 0)) (test= (set (sub* (fabsex x 1 2) 1) (fabsex x 0)) (fabsex x 1 0)) (test= (del-dups! (fabsex x 1 2 3 4)) (fabsex x 1 2 3 4)) (test= (del-dups! (fabsex x 1 2 1 1)) (fabsex x 1 2)) (test= (del-vals! (fabsex x 1 2 3 4) (ex 2)) (fabsex x 1 3 4)) (test= (del-vals! (fabsex x 1 2 2 3) (ex 2)) (fabsex x 1 3)) (test= (sort! (as (keys (fabsex x 1 2 3)))) '(0 1 2)) (test= (sort-by! (items (fabsex x 1 2 3)) (op < (1st _) (1st _))) (lst (tup 0 (ex 1)) (tup 1 (ex 2)) (tup 2 (ex 3)))) ) (def-concrete-protocol-tests (x|) (sup x) ;; (assq => ) ) (def-concrete-protocol-tests (x|) (sup x) ;; (assq => ) ) (def-concrete-protocol-tests (x|) (sup x) ) (def-concrete-protocol-tests (x|) (sup x) ;; < ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ;; ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ;; ) ;; (def-protocol-tests (x|) ;; (sup x) ;; ) (def-concrete-protocol-tests (x|) (sup x) ;; ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ;; ) (def-concrete-protocol-tests (x|) ;; TODO: concrete (sup x) ;; ) (def-protocol-tests (x|) (sup x) ;; eof-object? (x| => ) ;; open (t|(t< ) dat => ) ;; close (port|) ;; with-port (,name ,port) ,@body) ;; ) (def-protocol-tests (x|) (sup x) ;; newline (port|) ;; force-out (port|) ;; put (port| c|) ;; puts (port| s|) ) (def-protocol-tests (x|) (sup x) ;; get (port| => ) ;; peek (port| => ) ;; ready? (port| => ) ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ;; file-opening-error (filename|) ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ;; port-contents (port| => ) ) (def-protocol-tests (x|) ;; TODO: concrete (sup x) ) (def-concrete-protocol-tests (x|) (sup x) ;; identity (x) x) ;; compose (fx| fy| => ) ;; rcurry (f| curried|... => ) ;; curry (f| curried|... => ) ;; always (x => ) ;; ) goo-0.155/src/tests/read-tests.goo0100644000175000017500000000047207447515612016441 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (read-from-string "1") (read-from-string "a") (read-from-string "(a)") (read-from-string "(a b)") (read-from-string "#t") (read-from-string "#f") (read-from-string "#(1)") (read-from-string "`(,a)") (read-from-string "`(,@a)") (read-from-string "\"abc\"") goo-0.155/src/tests/tst.goo0100644000175000017500000000002107332070562015157 0ustar vomjomvomjom(def (isa goo-0.155/src/tests/write-tests.goo0100644000175000017500000000044007447515612016653 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (writeln out 1) (writeln out 'a) (writeln out '(a)) (writeln out '(a b)) (writeln out #t) (writeln out #f) (writeln out #(1)) (writeln out #(1 2)) (writeln out `(,a)) (writeln out `(,@a)) (writeln out "abc") (writeln out writeln) goo-0.155/src/time/0040755000175000017500000000000007756746030013457 5ustar vomjomvomjomgoo-0.155/src/time/CVS/0040755000175000017500000000000007756746030014112 5ustar vomjomvomjomgoo-0.155/src/time/CVS/Root0100644000175000017500000000003307756746030014751 0ustar vomjomvomjom/projects/dynlangs/cvsroot goo-0.155/src/time/CVS/Repository0100644000175000017500000000001507756746030016205 0ustar vomjomvomjomgoo/src/time goo-0.155/src/time/CVS/Entries0100644000175000017500000000057007756746030015445 0ustar vomjomvomjom/%event.c/1.3/Tue Sep 3 17:20:15 2002// /%lock.c/1.3/Tue Sep 3 17:20:15 2002// /%threads.c/1.6/Tue Sep 3 18:17:08 2002// /event.c/1.3/Wed Jul 3 21:59:19 2002// /event.goo/1.9/Mon Sep 30 21:10:50 2002// /lock.goo/1.4/Tue Jan 14 22:10:06 2003// /threads.goo/1.13/Tue Jan 14 22:10:06 2003// /timer.c/1.2/Mon Mar 25 03:37:47 2002// /timer.goo/1.8/Wed Jul 3 21:59:19 2002// D goo-0.155/src/time/%event.c0100644000175000017500000000636707535167517015024 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "grt.h" #if defined(HAVE_POSIX_THREAD) #include P YtimeSeventYPevent_create (P name) { pthread_cond_t *cond = (pthread_cond_t *)allocate(sizeof(pthread_cond_t)); pthread_cond_init(cond, NULL); return (P)cond; } P YtimeSeventYPevent_reset (P handle) { return (P)pthread_cond_init((pthread_cond_t *)handle, NULL); // TODO: ???? } P YtimeSeventYPevent_pulse (P handle) { // return (P)PulseEvent((HANDLE)handle); } P YtimeSeventYPevent_signal (P handle) { return (P)pthread_cond_signal((pthread_cond_t *)handle); } P YtimeSeventYPevent_broadcast (P handle) { return (P)pthread_cond_broadcast((pthread_cond_t *)handle); } P YtimeSeventYPevent_destroy (P handle) { return (P)pthread_cond_destroy((pthread_cond_t *)handle); } P YtimeSeventYPevent_wait (P event, P lock) { return (P)pthread_cond_wait ((pthread_cond_t *)event, (pthread_mutex_t *)lock); } P YtimeSeventYPevent_wait_timed (P event, P lock, P timeout) { INTFLO x; struct timespec time; x.i = (PINT)timeout; time.tv_sec = (time_t)truncf(x.f); time.tv_nsec = (long)((x.f - time.tv_sec) * 1000000000.0); return (P)pthread_cond_timedwait ((pthread_cond_t *)event, (pthread_mutex_t *)lock, &time); } #elif defined(MSVC_THREAD) #undef PINT #include #undef PINT #define PINT long P YtimeSeventYPevent_create (P name) { HANDLE handle; handle = CreateEvent(NULL, FALSE, FALSE, (char*)name); return (P)handle; } P YtimeSeventYPevent_reset (P handle) { return (P)ResetEvent((HANDLE)handle); } P YtimeSeventYPevent_pulse (P handle) { return (P)PulseEvent((HANDLE)handle); } P YtimeSeventYPevent_signal (P handle) { return (P)SetEvent((HANDLE)handle); } P YtimeSeventYPevent_broadcast (P handle) { return (P)SetEvent((HANDLE)handle); } P YtimeSeventYPevent_destroy (P handle) { return (P)CloseHandle((HANDLE)handle); } P YtimeSeventYPevent_wait (P event, P lock) { P result; DWORD wait = 0; LeaveCriticalSection((CRITICAL_SECTION*)lock); wait = WaitForSingleObject((HANDLE)event, INFINITE); if (wait == WAIT_OBJECT_0) result = (P)1; else result = (P)0; EnterCriticalSection((CRITICAL_SECTION*)lock); return result; } P YtimeSeventYPevent_wait_timed (P event, P lock, P timeout) { P result; DWORD wait = 0; INTFLO x; x.i = (PINT)timeout; LeaveCriticalSection((CRITICAL_SECTION*)lock); wait = WaitForSingleObject((HANDLE)event, (long)(x.f * 1000)); if (wait == WAIT_OBJECT_0) result = (P)1; else result = (P)0; EnterCriticalSection((CRITICAL_SECTION*)lock); return result; } P YeventYPevent_wait (P handle, P timeout) { DWORD res = WaitForSingleObject((HANDLE)handle, (DWORD)timeout); if (res == WAIT_OBJECT_0) return (P)1; else return (P)0; } #else P YtimeSeventYPevent_create (P name) { return PNUL; } P YtimeSeventYPevent_reset (P handle) { return PNUL; } P YtimeSeventYPevent_pulse (P handle) { return PNUL; } P YtimeSeventYPevent_signal (P handle) { return PNUL; } P YtimeSeventYPevent_broadcast (P handle) { return PNUL; } P YtimeSeventYPevent_destroy (P handle) { return PNUL; } P YtimeSeventYPevent_wait (P event, P lock) { return PNUL; } P YtimeSeventYPevent_wait_timed (P event, P lock, P timeout) { return PNUL; } #endif goo-0.155/src/time/%lock.c0100644000175000017500000000317207535167517014622 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "grt.h" #if defined(HAVE_POSIX_THREAD) P YtimeSlockYPlock_create (P name) { pthread_mutex_t *mutex = (pthread_mutex_t *)allocate(sizeof(pthread_mutex_t)); pthread_mutex_init(mutex, NULL); return (P)mutex; } P YtimeSlockYPlock_lock (P handle) { return (P)pthread_mutex_lock((pthread_mutex_t *)handle); } P YtimeSlockYPlock_try_lock (P handle) { return (P)pthread_mutex_trylock((pthread_mutex_t *)handle); } P YtimeSlockYPlock_unlock (P handle) { return (P)pthread_mutex_unlock((pthread_mutex_t *)handle); } P YtimeSlockYPlock_destroy (P handle) { return (P)pthread_mutex_destroy((pthread_mutex_t *)handle); } #elif defined(MSVC_THREAD) #undef PINT #include #undef PINT #define PINT long P YtimeSlockYPlock_create (P name) { CRITICAL_SECTION* cs = (CRITICAL_SECTION*)allocate(sizeof(CRITICAL_SECTION)); InitializeCriticalSection(cs); return (P)cs; } P YtimeSlockYPlock_lock (P handle) { EnterCriticalSection((CRITICAL_SECTION*)handle); return YPtrue; } P YtimeSlockYPlock_try_lock (P handle) { // Not yet implemented return (P)0; } P YtimeSlockYPlock_unlock (P handle) { LeaveCriticalSection((CRITICAL_SECTION*)handle); return YPtrue; } P YtimeSlockYPlock_destroy (P handle) { DeleteCriticalSection((CRITICAL_SECTION*)handle); return YPtrue; } #else P YtimeSlockYPlock_create (P name) { return PNUL; } P YtimeSlockYPlock_lock (P handle) { return PNUL; } P YtimeSlockYPlock_try_lock (P handle) { return PNUL; } P YtimeSlockYPlock_unlock (P handle) { return PNUL; } P YtimeSlockYPlock_destroy (P handle) { return PNUL; } #endif goo-0.155/src/time/%threads.c0100644000175000017500000000666207535176244015330 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "grt.h" #if defined(HAVE_POSIX_THREAD) #include #include void* do_thread (P info) { sigset_t new; REGS regs; sigaddset(&new, SIGINT); pthread_sigmask(SIG_BLOCK, &new, NULL); regs = YPfab_regs(); TSET(goo_thread, YPtelt(info, 1)); REGSSET(regs); return CALL0(1, YPtelt(info, 0)); } P YtimeSthreadsYPthread_goo_thread () { return TREF(goo_thread); } P YtimeSthreadsYPthread_goo_thread_setter (P value) { TSET(goo_thread, value); return value; } P YtimeSthreadsYPthread_create (P function) { pthread_t thread; GC_pthread_create(&thread, NULL, do_thread, function); return (P)thread; } P YtimeSthreadsYPthread_yield () { return (P)pthread_yield(); } P YtimeSthreadsYPthread_join (P thread) { return (P)GC_pthread_join(thread); } P YtimeSthreadsYPthread_priority (P thread) { return PNUL; } P YtimeSthreadsYPthread_current () { return (P)pthread_self(); } extern float truncf(float); P YtimeSthreadsYPthread_sleep (P secs) { INTFLO x; int res; // struct timespec time, rem; x.i = (PINT)secs; // time.tv_sec = (time_t)truncf(x.f); // time.tv_nsec = (long)((x.f - time.tv_sec) * 1000000000.0); // res = nanosleep(&time, &rem); res = usleep((unsigned long)(x.f * 1000000.0)); return (P)res; } P YtimeSthreadsYPthread_priority_setter (P x, P thread) { return PNUL; } P YtimeSthreadsYPthread_detach () { return (P)pthread_detach(pthread_self()); } #elif defined(MSVC_THREAD) #undef PINT #include #undef PINT #define PINT long DWORD WINAPI do_thread (void* xinfo) { /* sigset_t new; sigaddset(&new, SIGINT); pthread_sigmask(SIG_BLOCK, &new, NULL); */ P info = (P)xinfo; REGS regs; regs = YPfab_regs(); TSET(goo_thread, YPtelt(info, 1)); REGSSET(regs); return CALL0(1, YPtelt(info, 0)); } P YtimeSthreadsYPthread_goo_thread () { return TREF(goo_thread); } P YtimeSthreadsYPthread_goo_thread_setter( P value) { TSET(goo_thread, value); return value; } P YtimeSthreadsYPthread_create (P function) { long threadId = 0; long h = CreateThread(0, 0, do_thread, function, 0, &threadId); return (P)h; } P YtimeSthreadsYPthread_yield () { Sleep(0); return YPfalse; } P YtimeSthreadsYPthread_join (P thread) { WaitForSingleObject(thread, INFINITE); return YPfalse; } P YtimeSthreadsYPthread_priority (P thread) { return PNUL; } P YtimeSthreadsYPthread_current () { return (P)GetCurrentThread(); } extern float truncf(float); P YtimeSthreadsYPthread_sleep (P secs) { INTFLO x; // struct timespec time, rem; x.i = (PINT)secs; Sleep((unsigned long)(x.f * 1000)); return YPfalse; } P YtimeSthreadsYPthread_priority_setter (P thread) { return PNUL; } P YtimeSthreadsYPthread_detach () { return (P)0; // return (P)pthread_detach(pthread_self()); } #else /* STUBS */ P YtimeSthreadsYPthread_goo_thread () { return YPfalse; } P YtimeSthreadsYPthread_goo_thread_setter (P value) { return PNUL; } P YtimeSthreadsYPthread_create (P function) { return PNUL; } P YtimeSthreadsYPthread_yield () { return PNUL; } P YtimeSthreadsYPthread_join (P thread) { return PNUL; } P YtimeSthreadsYPthread_priority (P thread) { return PNUL; } P YtimeSthreadsYPthread_current () { return PNUL; } P YtimeSthreadsYPthread_sleep (P secs) { return PNUL; } P YtimeSthreadsYPthread_priority_setter (P x, P thread) { return PNUL; } P YtimeSthreadsYPthread_detach () { return PNUL; } #endif goo-0.155/src/time/event.c0100644000175000017500000000134207510671667014742 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include "mini-prt.h" #include P YeventYPevent_create (P name) { HANDLE handle; handle = CreateEvent(NULL, FALSE, FALSE, (char*)name); return (P)handle; } P YeventYPevent_reset (P handle) { return (P)ResetEvent((HANDLE)handle); } P YeventYPevent_pulse (P handle) { return (P)PulseEvent((HANDLE)handle); } P YeventYPevent_signal (P handle) { return (P)SetEvent((HANDLE)handle); } P YeventYPevent_destroy (P handle) { return (P)CloseHandle((HANDLE)handle); } P YeventYPevent_wait (P handle, P timeout) { DWORD res = WaitForSingleObject((HANDLE)handle, (DWORD)timeout); if (res == WAIT_OBJECT_0) return (P)1; else return (P)0; } goo-0.155/src/time/event.goo0100644000175000017500000000245407546136732015307 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use time/threads) (use time/lock) (use time/%event.c) (dl %event-create) (dl %event-signal) (dl %event-broadcast) (dl %event-destroy) ;; (dl %event-pulse) (dl %event-reset) (dl %event-destroy) (dl %event-wait) (dl %event-wait-timed) (dc ()) (dp event-name ( => (t? )) #f) (dp! event-handle ( => )) (dm new (c|(t< ) args|... => ) (def event (app-sup c args)) (set (event-handle event) (%lb (%event-create (%su (as (or (event-name event) "")))))) event) (dm event-signal (e|) (%event-signal (%lu (event-handle e))) #t) (dm event-broadcast (e|) (%event-broadcast (%lu (event-handle e))) #t) ;; (dm event-destroy (e|) ;; (%event-destroy (%lu (event-handle e)))) (dm event-reset (e|) (%event-reset (%lu (event-handle e))) #t) (dm event-wait (e| l| => ) (%bb (%event-wait (%lu (event-handle e)) (%lu (lock-handle l))))) (dm event-wait-timed (e| l| secs| => ) (%bb (%event-wait-timed (%lu (event-handle e)) (%lu (lock-handle l)) (%fu secs)))) (export event-name event-signal event-broadcast ;; event-destroy event-reset event-wait event-wait-timed) goo-0.155/src/time/lock.goo0100644000175000017500000000217507611105276015106 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use time/threads) (use time/%lock.c) (dl %lock-create) (dl %lock-lock) (dl %lock-unlock) (dl %lock-try-lock) (dl %lock-destroy) (dc ()) (dp lock-name ( => (t? )) #f) (dp! lock-state ( => (t+ ))) (dp! lock-handle ( => )) (dm lock-lock (lock|) (%lock-lock (%lu (lock-handle lock))) (set (lock-state lock) (thread-current))) (dm lock-unlock (lock|) (%lock-unlock (%lu (lock-handle lock))) (set (lock-state lock) 'abandoned)) (dm lock-destroy (lock|) (%lock-destroy (%lu (lock-handle lock))) (set (lock-state lock) 'destroyed)) (dm new (x|(t< ) args|... => ) (def l (app-sup x args)) (def n (lock-name l)) (set (lock-handle l) (%lb (%lock-create (%su (if n "" (as n)))))) l) (ds with-lock (,lock ,@body) (let ((lock-name (gensym))) `(let ((,lock-name ,lock)) (fin (seq (lock-lock ,lock-name) ,@body) (lock-unlock ,lock-name))))) (export lock-lock lock-unlock lock-handle lock-destroy lock-state with-lock) goo-0.155/src/time/threads.goo0100755000175000017500000000363307611105276015613 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use goo/loc) (use goo/conditions) (use time/%threads.c) (dl %thread-create) (dl %thread-yield) (dl %thread-priority) (dl %thread-priority-setter) (dl %thread-detach) (dl %thread-join) (dl %thread-current) (dl %thread-sleep) (dl %thread-goo-thread) (dl %thread-goo-thread-setter) (dc ()) (dp thread-name ( => (t? )) #f) (dp thread-priority ( => ) 0) (dp thread-function ( => ) (fun ())) (dp! thread-handle ( => )) (dm thread-yield () (%thread-yield)) (df main-thread-key ()) (dm new (x|(t< ) args|... => ) (def t (app-sup x args)) (unless (== (thread-function t) main-thread-key) (def f (fun () (set *current-handlers* '()) (try (fun (c r) (post "ERROR: %s" (describe-condition c))) ((thread-function t))))) (def h (%lb (%thread-create (tup f t)))) (set (thread-handle t) h) (set (%thread-priority h) (%iu (thread-priority t)))) t) (set (%thread-goo-thread) (new thread-name 'main thread-function main-thread-key thread-handle (%lb (%thread-current)))) (ds spawn (,@body) `(new thread-function (fun () ,@body))) (dm sleep (secs|) (%thread-sleep (%fu secs))) (dm thread-current (=> ) (%thread-goo-thread (%lb (%thread-current)))) (dm thread-join (t|) (%thread-join (%lu (thread-handle t)))) (df test-thread-1 () (spawn (for ((i (below 3000))) (post "%d\n" i)))) (df test-thread-2 () (spawn (for ((i (below 100))) (post "%d\n" i) (sleep 1.0)))) ;; (df all-threads () (as (map 2nd (items *threads*)))) (export thread-name thread-current thread-function thread-priority ;; thread-detach thread-yield ;; all-threads spawn sleep test-thread-1 test-thread-2 ) goo-0.155/src/time/timer.c0100644000175000017500000000247207447515613014743 0ustar vomjomvomjom//// Copyright 2002, Jonathan Bachrach. See file TERMS. #include #include "mini-prt.h" #include #include // link with -lwinmm void CALLBACK timer_callback (UINT uTimerId,UINT uMsg, DWORD_PTR dwUser, DWORD_PTR dw1, DWORD_PTR dw2) { // printf("--> TIMER START\n"); fflush(stdout); GC_process_hook(DLL_THREAD_ATTACH); CALL0((P)dwUser); GC_process_hook(DLL_THREAD_DETACH); // printf("<-- TIMER END\n"); fflush(stdout); } P YPtimer_create (P delay, P fun) { Thunk thunk = (Thunk)fun; MMRESULT tid = timeSetEvent ((int)delay, 0, (LPTIMECALLBACK)timer_callback, (DWORD_PTR)fun, TIME_CALLBACK_FUNCTION | TIME_PERIODIC); if (tid == 0) CALL1(Yerror, YPsb("Unable to create timer")); return((P)tid); } P YtimerYPtimer_event_create (P delay, P event) { HANDLE hevent = (HANDLE)event; MMRESULT tid = timeSetEvent ((int)delay, 0, (LPTIMECALLBACK)hevent, (DWORD_PTR)0, TIME_CALLBACK_EVENT_PULSE | TIME_PERIODIC); if (tid == 0) CALL1(Yerror, YPsb("Unable to create timer")); return((P)tid); } P YPtimer_kill (P tid) { MMRESULT res = timeKillEvent((int)tid); if (tid == NULL) CALL1(Yerror, YPsb("Unable to kill timer %d"), YPib(tid)); return PNUL; } P YPtimer_system_time () { return (P)timeGetTime(); } goo-0.155/src/time/timer.goo0100755000175000017500000000625707510671667015320 0ustar vomjomvomjom;;;; Copyright 2002, Jonathan Bachrach. See file TERMS. (use goo) (use goo/boot) (use time/event) (use time/threads) (dl %timer-create) (dl %timer-kill) (dl %timer-system-time) (dl %timer-event-time) (dv